... SID. EflfASLR 8. ENABLR. SMCOeC•E•. ENABLA. EXf:FLG•X•FF•. S£fliAth set. Tf ... 110A C1C9C9E3Ee40C5C9. 1112 D~D6094B4C4C40. 1119 4040D5D6E3C56040 1140. 1121 ...
·\ · 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
140
DC
141
J
142 CHKHSL TBN
143
JT
11J4
B
145
DC
11Hi GAWAN ALC
14 7
B
148
Ct!
1is4o9
BL
B
151
CBKHSL HALT
XL2'E06E'
GAVAN
STAT2,B 1 1fl· GAWAR HALT
XL2' E06F'
LPOUNT ( 1) , ONE TEST LPOUNT, I' 14' KZAIGO LINK
PC3 NOT ON AFTER PRTABLF FIELD EF.R HALT HAPIR.SET LATCH ON
HAMP.SET LATCH OFF AFTER PRTABLE FIELD --ERR HALT ADD TO LOOP COUNT 20 TI~ES THPU
GEDO UT
115532 ** ***W*AIT**FO*R*f*t4 ****TH·E·N··D·E·L·A·Y···S·U·B·R··O·O·T·I·N··~···································*
0B89 34 08 0BB6
OBSD 30 E2 1'D32
OB91 38 01 0D32 ~.B95 CO 91) ')BSD 0B99 3C 28 CD 39
CB9D OD PF caoo ~ato
~BA3 OD 3B 0800 0800 OBA9 OF 00 0D39 0~E2
OBAF CO 84 0B9D
0!3E3 CO 87 0000
1i5545 ·Pl·4D··EL····ST······PI·E·X·I·T·+·3,·A·R·R············S·E·'·r ·R·E·~·O·R·N···························
156 MITFG SNS STAT2,X 1 F2 1
GET Tl~IRG
157
TBN STAT2,B'1'
HA~MERS IN M4
158
BF PIIT!G
159 160 WAT 161
PIVI !SECS,X'28 1 CLC LPI(256),LP1 CLC LP!(60) ,LPI
40 MS EC DELAY DELAY 1 MSEC.
162
SLC MSECS(1).0NE
163
BH
WAT
DECP.. DELAY COUNT
164 MEXIT B
·-·
165
RETURN
0EB7 C2 OBBB Qt)
0BB9 FFFF
~~~; ;2 90 ~~ 08
0BC2 CO 87 021A
0BC6 42
013C7 10 0BC8 OD11
.JBCl EOOO OBCC C1 EC 0BD3 0B1'0 F2 87 14 0BD3 38 04 0208
t'BD7 P2 90 r)A OBDA C~ 87 021! OB!>E 41
OB1'F 1F
OB!') 0D30 0BE2 EOE1 0BE4 FO 7C C3
0BF7 3C 03 0D37
OBEB C2 02 FFE8 l)SEF 39 06 O!OC ~BF3 P2 10 OF
0BF6 C2 02 .FFE2
OBPA 38 Q4 OAOC OBFE F2 11'.\ 04 OC01 C2 1)2 FFDF CC05 C2 01 087F CC09 QC t\3 00 OCEE ~C~E CO 87 OC'S9 0C12 E201 0C14 CO b7 0212 0C18 D2 {\ 1 04
01387
!)BBB
QBRA
CBC6
CBC7 0BC9 CBCB
OBDE OBDF 0BE1 0EE3
0C13
116667 ·*······································································*
168 * BOOTINE 2 - HA~~ER ADDRESSING TEST
*
169 ·
*
11771~ *RT*N2***DC***X*L1·1·2·1···················R·O·U··T·IN·E···N·l·H·!!·?E·R··························
17 2
DC
Xt 1 ' 0 '
FLA GS
17 ~
........ ~. r"C:r::-·
&.A.:>.t: t-1001'1 HE
174 ·······································································
17 5
T BN SBYTEO, SSW OS
PR! NT OH !!FCU
17 6
JF
RF'l'!O
177
B
PSI NT
178
DC XL1 1 U2·
PBINT TI'l'LE
179
DC
IL1 1 16 1
~80
DC AL2(TlTL2)
181
DC XL2'EOOO·
182 RETIO TIO TPPAB.BBDY
183
J
LANE
PBINTEP READY
184 TRPAB TBN SBY?EO,sswos
185
JF !IBALT
PRINT ON MFCU SW. OR
18~
B
PRINT
187
DC
XL1 1 ~1'
PRINT ft AKE PP.INTER READY
188
DC
Il1 1 31 1
189
DC AL2(!1KADY)
i90
DC XL2 1 EOE1·
191 ftHALT HPL
192 LANE !VI
193 LANEG LA
194
TEP
195
JT
196
LA
197
TBN
198
JT
I 1 03·,x·7c· LPOUNT,3 REG24,XB2
SPUDT,B1 110· FOUNIT
R!G3~,XB2
SPUDT,8 1 100· POOBIT
HALT E1 SET LOOP COUNT OF 3 LOAD A NEG. 24
96 PRINT POS.
LOAD A NEG. 30 FOR HA!!R.COUBl' 120 PR! NT POS.
199
LA
200 FOOBIT lA
20't ZIPIT · !IVC
202
B
2~3
DC
REG33,IR2 LPD+3, XF1 1)(4.X'R1),EIES XIO
XL2'E201·
LOAD A NEG. 33 POR HA ftR.COUNl' LOkD DATA AREA ADDR. POT 4 X'S 'l"W DATA AREA
GO PRINT
204
B
TEST
205
LA 4 (,XP.1) ,XP.1
GO READ DATA SWITCHES
ADD 4 TO nATA IR!A ADDR.
DATE 25AOG69 FC HO. 81f;485
11f!AY70
816671
01BOf70 816764
28ROV75 5722!;9
PROG ID PAGE
I) El'.'ci- 3
2
I9~ MAINTENANCE DIAGNOSTIC PROGRAM
PABT NO.
PAGE
258995'1 2&
5203 CYCLE STEAL & HA~~EP ADOFESSING TESTS
ERP toe OBJECT CODE
ADr~ STftT SOURCE STATE!!MT
ryc1B 3fi 02 0C!2
ociF co oi oco9
OC23 CF 00 OD37 CCE2 0C29 CO t 1 OBEB CC2D CO 87 0216
I) C 31 3 ti 0 8 C'C 5 8
CC35 OC ~2 0D3C CCF1
cncc34B1
Or 2F
c 2
'3 ,
OD3C
01
0Ct2
'"CU C1 E6 0C3B
OCUS P2 87 CA
t'C4B CC 87 1.)222
0C4F EM1
ocs 1 co e1 oc 3c;
ocss cc 87 oon
OC59 31 E6 ~CF6
OCSD 3f' 08 ClCE2
flC61 3fl 0 8 Oc97
~C65 36 1)8 0CE2 l)C69 34 0 8 OCDA 0C6D 34 01 OCDC ~Ci1 3q 02 OCDE r.c-,c:: c, EC' nc1c C'IC19 F2 87 CA 0C7C C~ 87 0222
OCSO MH~
0 C82 CO 87 OC'75 OC86 CO 87 0C31
/)C8A 31 EO f'CEA
0C8E :!1 E4 OCEU
/)C92 oc 0 'I CCAB co~o
CC98 38 80 0209
l)C9C F2 90 04
CC9F 3A 0 8 OCAA 0CA3 OC ~1 OD36 ~CAB 0CA9 P3 CO 00 OCAC C1 E6 0CB6
l'lcEO CO 87 C222 ~CB4 El'16
0CB6 35 02 OCEO CCBA C1 E2 CCC1
OCBE P2 87 OE
0CC1 36 J2 CICE2 Occs co 01 CCBA l)CC9 CO 87 0222 OCCD E012 OCCF 35 01 CCDC CCD3 35 I) 2 f)CDE
0CD7 C'O 87 t)')(\t) OCDB 0000
CCDD f'.\000
OCDF 0000
..
0CE1 0001
0CE3 080".\
".'CI5 087C
0C~7 0871)
0C50
0C81
OCBS
OCCE OCDC OCDE OCEO
0CE2
0CE4 :lCEt' CCE8
206
l
OIE, XR2
207
BNZ ZlPIT
2'.'.18
SLC t PODKT ( 1) , ONE
209
BNZ LA!t?G
ADD 1 TO HAftR.COOllT BB TO DO N!IT B&!!. D!CR. LOOP COOJT
210
B
tIHIC
GE~OOT
211
212
2D 214
*··········C··H··E··C··K······F·O·~······B··U··SY······&···D···EL··A··Y······S·O···B··F··O··O··T··I··R··! ··································································*
215
i16 BROUT ST
217
21 e
5DC FLOOP
~vc
SLC
B5!XIT+3,~~R
BOSUB(3) ,BUSCTI BUSOB(3) ,ONF
LOAD PETO~' l~DR. STOFE D!LAI COURT
219
JZ TOLOlfG
220
TIO ~LOOP,BOSI
221
J
BSEII'l'
222 TOLONG B
HALT
BUS! !HOR
223
DC
XL2' E011 1
224
B
SDC
225 BS !XIT B
*·*
/26 227
·~ ·····E·X·E·C·U·T·F··S·IO···SO··E·R·O·U·!·IN·E·············································*
228 ······~·······················································e········
229 XIO LIO LPD&DR,LPDAR
LOlD DATl lDDP.~!G.
230 N!XIO A
ON?,AP.P.
231
ST L!>CftD+S,ARR
232
A
ORE, UR
LOAD Pl!A!ET!R POIPTER
233
ST
234
ST
235
ST
23fi TIOCHK TIO
237
J
!XIT+3, ARP SAVVUN,XP1 SAVTUO,.XR2
ERN~DY.NRnt
TIOOK
SET OP EXIT
Sl VE REG. 1 SAVE llEG.2
BRANCH IF JOT RElDY
238 ERNPDY B
239
DC
240
B
24, TIOOK B
HALT XL2' EC 101 TIOCBK SPOUT
BOT READY ID.
24 2
LIO
243
LIO
244 LDCAD PJVC
245
!SN
24 6
JP
247
SBN
248 NOTBIT
249 :no
fstVroC
250
TIO
251
B
252
DC
253 ISBUSY L
FOLG.LOFOLG LPIADR,LPIAR CftND+2(2),·-· SBYTE1,SSV08
!IOTRIT CftHD+1,B 1 1000·
xE·RoT·1,(x2·)o,C·ftRD+2
ISBOSt,BUSt
HALT
IL2' !016 t ZERO,IR2
LOAD tSR lDDRESS P!GISTE! SET UP COftftAID PROB Pl!lftETEB PRI lft 01 RIGHT C&PR ·
SET BIGB! Cl!R.IOD.BI~ 01
CO!!ABD LOADED DOP.IIG EIECU?IOI
IF RO~, BlLT 01 ERROi
Bar BUSI HALT
2SU DELAY TIO
255
J
256 BSYLP A
257
BNZ
258
B
259
DC
260 XIOEXT L
2fi1
L
262 EXIT
263 SAVllON D8C
BSILP,PBBUSI IIOEXT O!f!,IR2
DELA!
HALT xu· E012·
SAVWOH,XR1
SA vruu, XR2
·I-t2· 1 0 1
Hill'l' BUPP BUSI
TRY POB &BOUT ,.5 SECOIDS !':i CLEA! BUS!
BOS! eu.r
RESTORE PEG.1 RFSTORE REG. 2 EXIT SUSROUTII!
264 S!VTUO DC 265
IL2'0'
266 .......................................................................
267 *
CONSTANTS
*
226698
Z. E.R.O. .
.
.
.D.C .
.
.
.
.I
t.2.
.
1
.0
.
1
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
*
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
27 0 ONE
DC
I L2' 1 '
271 LPIADR DC 272 LPDADR DC ~7 3 WP.DADP. DC
XL2 1 800' XL2 1 87C· IL21 08'701
I !AG! lt>DR. DATA IDDR.
DATE 25AUG69 EC: NO. 81f485
11PJAY70 816671
1)1lfOV7~
81676,4
28NOV7S 572259
PROG ID PlG!
· · · · · · · · · · · · · · · · · · · · · · · · · · · · ··
·· ··· I~" MAIN~FNANCF DIAGNOSTIC PROGRA!
· · · · · · · · · · · · · · · · · · · ··
PART HO. 2589957
IB! ~AINTENANCE DIAGNOSTIC PBOGI~!
PAGE
3
F043 52Q3 CYCtE STEAL & HAMMER ADDRESSING TESTS
52~3 CYCLE STEAL & HAMME~ ~DDRESSISG TESTS
· · ·
PART 10.
HG!
2589957 ~
u
E~F LOC OBJECT CODE
ADDR STMT SOURCE STATEf!ERT
CIC!9 70-,C ".'CEB E7E7E7:E1 OCEF 040000
C'CEA OCEE 0CF1
0CF2 C3E8C3 D3C!:,!lr) E2E3 0 D'.),
"Cn C5C1D 340 F3 CS E2 E3
cD02 C8C1D 1rn4C5D94!)C1 (ID 11
27 4 FOLG DC
XI.21 7070'
FORft LENGTH 11'2
275 !.XES DC CL4'XXXX'
276 BUSCTI DC
XL3 1 400~0·
217 278
*$ *******PR*I*N*T*O*U·T~S************$*************·~····························*
. 279 ~·····*********····························****************************
280 TITL1 DC CL16'CYCLE S~AL TEST'
280
281 TITL2 DC
CL~6'HAHP1ER ADD:P.T£51''
')DOA C4C4 D94BE3 C5 E2 E3
28i
QD12 nuci D2C54C'F5F2F'..' OD21 282
DC CL16 1 HAKE 5203 PEADl, 1
IJMA F34CD9C5C1C4!B6B
28~
OD22 F3C8C5 D5 4 ~!)9 c5 E2 0D3C 20 3 !!!AK ADY DC
"D2A CS:t.:34 f' C8C1D3E3
283
0D31 f'.\COI'.'
***** ...... 284
285
*********R*E*S*E*~*V*ED**S*T*O*~*A*G*E**************************************************
(ID32
2~8876
·· *******
STAT2 DC
*****X*L*2*'*~*'***"'****"'*"'***.
**"'********
*****
**** ········ J
OD33 1'000
OD34 28 8 ST AT6 DC
Xl2' C·
CD3~
OD36 289 ERT1 DS
CL2
0D37
OD37 290 LPOONr DS CL1
I
0~)38
CD39 291 MSECS DS CI.2
OD3A
OD3C 292 BUSUB DS
CL3
293 294
295
·****************E*·Q**U**A**T**E*S**·*·*·*·*·*·*·*·*··.·.·*·*·*·*··*·*·*·**********************~*·*·*$*··*·*·**********·····························*·
FFE8 296 NEG2U EQU -24
FFE2 297 NEG30 EQO -30
FFDF 298 NEG33 !00 -3?
08Fr 0008 01)01 OM2
osao
na1c
oor~
00E4
299 PRDAT EQO
300 ARR EQO
J01 XP1 EQU
302 XR2
EQO
303 LPI EQU
304 LPD
EQU
~05 LOFOLG EOO
306 LPIAR EQU
I''78?F·
x·ae1
1
2
x·aoo·
X1 87C·
X1 E0 1 X1 E4·
ADDPESS RECALL REGISTER INDEX REGlSTEF 1 INDEX REGISTER 2
L!NF PRINTER IMAGE AREA LINE PRINTER DATA AREA
OCE6 0216 0212 021A 0222 OC'EC 00E6 OOE2
02(.18
02:>9
ocou
0080
307 LPDAR EQD X'E6'
3~8 LINK EQO X'216 1 309 TEST EQU 1 1 2121
ENTRY TO DCP CHAIN P.OUTINE
ENTRY TO DCP READ DATA sw·s ROUT.
310 PRINT EQJ x·2iA 1
ENTRY TO DCP PRINT RODTIRE
311 HALT EQU 1'222 1
ENTRY TO DCP ERROR HALT ROUTINE
312 NRDY EQU X'FO·
313 BUSY EQU X'E6'
PRUTEF BUSY
314 PBBUSY EQO X'E2 1
* 31~
S~NSE SWITCH EQUATES
BUFFER BUSY
316 SBYTEO FOO l ' 208 1
DCP SENSE SWITCH ABEA
317 SFY~E1 EQU 1 1 209'
318 * CONTROL PG M St:NSE SWI'lCHES
DCP SENSE SWITCH ABEA
319 SSW05 tQO X'04 1
320 SSWOB EQO x·ac·
PRINT MESSAGES ON !FCU OSE 5203 ~IGBT CA~R.
321
TREP
322 ******** SECTION E04 *****·********************* -ROTE- *********¢*
32 3 *********
324
TF.EP
325 * ROUT.01 - CYCI.E STEAL TEST
* BEFORE RUNNING THIS TEST,TBE
326 *ALTERNATE*
327
TREP
* 328 * ROOT.02 - HAftftEB ADDB. TES~
329 ALTERNATE*
· PRINTER SHOOLD BE READYr IF
330
331 *
TPEP
* PPIN~EP. IS AVAILABLE, AND
332 *SSl-05 OM.*
33~
TRFP
334
~35
····················**····················**********···················
··········
336
337 *
TBEP
ERB LOC OBJECT CODE
ADDP. STKT SOURCE STAT!!Ell'l'
338 ·
·
339 3110
*
'?REP
THE C.E. SWITCH,TO OVEP.IDE IDLE COMTBOL,"UST B! 01 P!IO' TO RUllIIG l
* 3161 ·PBOGRlB
3112
TREP
343 *
31U *
·
34 5
TREP
3li6 347
·*·*·*·*···*·*·*·*·************O****************·*******************·············
PFFF 348
ERD
l
DATF 25AUG69 EC NO. 8161185
11f!AY70 81fi671
01NOV10 816764
28NOV75
572259
PBOG ID
PAGE
0!04·3 3
DATE
25AUGF'9
ZC NO. 81fi£185
11MAY70 816671
1'11NOV7C 816764
28NOV75
572259
PBOG ID PAGE
0!04-3 31 f
·
'-"'-:',-_ !;;">-;:-
IBft ~AINTENANCE DIAGNOSTIC PROGRA!! £1)113 5203 CYCLF STEAL & HAMIH'P ADDRESSING TESTS
PART NO.
PAGE
2589951 4
IB~ ~AINTENANCE DIAGNOSTIC PROGRAft
F043 52"3 CYCLE STEAL & HAt!f'!ER ADDRESSING TESTS
"'
PART HO. PAGE
' 258995'1 ' IU t
CROSS-BEPEBENCE
CllOSS·HPEPEICE
SY!!BC'l '!' LEN VALUE DEFN
PEPER ENC ES
J
SYMBOL T t.EN VAL OE D!F!f
~FFEREllC!S
AFB
c oc1
BAPRT A 004
BBOU'!' A 0!'.1" BSEXIT A OOll
BSYLP A 0014
BUSCTI A 0~3
. BUSOB A OC3
BUSY c l)C1
CHHSL A 004
:HKHSL A 004
CHKPC2 A 004
CHKPC3 A i')C4
CflPC2 A 0(14
::HPC3 A 004
0<.'08 0129 OC31 t'CSS 0CC1 0CF1 OD3C COE6
~ABE
0866
0846
0856
CA9E
CUE
~300
0038 0216
0225 0256 0276 0292 0313 0086
~142
0132 0137
0~76
')C81
C-155 0216 0230· 0231 0036 Cl241 0216· 0221 0251l 0217
0217· 0218* 0220 0250 0082
0138 01·28 0133
0072 01)11
0232* ~233
RE TIO A ooca OBCC f) 18'?
0176
I
~'.!'H1 A {101 ~Al'D 0('25
()(.17
RTN2 A 1)01 0BB7 0171
0027
SAVTOO A 002 OCDE 0260
ci2~s· 0261
l
SAVVUN A 1)02 OCDC 02f\3 C234· 0260
SBYTEO C OM 0208 0316
OC29 C'O 38 0175 0184
SBJTE1 C 0~1 0209 0317
(12~5
1
soc A ".'Cf; OC35 0217 0224
l
SPOOF A t\OQ 0A62 0059 SPUIJT A 'Jf"~ CAOC 0"19
0057 fJCl52 0194 019'7
l
I
SSWl)S c Ot.'.11 01) {\4 0319 sswo0 c 001 (\(\80 0321)
STAT2 A ~02 l'..lD32 028'7
CC' 29 0038 0175 01811 ".'245 Or54· 0055 0070· f.)071 0076 0081 0086 0098· 0099 0104 0109 011·
i
CKHSL A 004
CKPC2 A 004 CKPC3 A IJ04
:!IJND A Oi:t3 DELAY A {104 ERNRDY ! 004 ERT1 A f'JC2
EXES A 4'.'04 EXIT A 004 FtOOP A OCE FOLG A 002 FOF.C? A 004 FOUNIT A 004
GAW AR A 0()6
0812 CAF2
oan
0(:A9
OCBA
CC7C
C·D36
OCEE
~Di
OC3B
OCEA
0!7A
ocos
t'B73
0114 0101l
01'9
02119
0254 C238 0289 C·275 0262 0218 0274
'l065 020')
0146
0110 0100 C105
c2"'4· 0247· 0248
0257
0236 0018 0248· 02M
C233·
0220 0242 (IC51* 0059· 0195 0198
t\069 0075 0080 0143
0085
0090
0103
~108
0113
0118
0131
0136
0141
012f* 0127 0132 ~137 0142 0156· 015'1
STATf; A {\02 "D311 ~288
SUNERD A oou 0A5E t\~58
OQ6G* 1)1)6 5
005~
'!EST c nci nn2 ~3!19
0147 02Cll
TIOCHJC A Oi:'O 0C75 0216
0~40
TIOOK A Ot' ii OC86 0241
023'1
T!TL1 A 01f 0D01 ~281)
cc~·
t
'!'ITLi A ,, 16 CID11 {\281 TOGOOR A 00'1 0A3D lC46
018~
00 3'7
'!OLCNG A 1)04 t"CliB "222
0219
TRPAB A t) (\U ~BD3 l'.'181&
~182
UPCPF A 1)04 OACE on94
0087
UVWIYZ A OC1 0100 '}004
WAT
A 00~ 'lB9D ,,,60
0163
V~DADR A 0!12 l"CE8 0273
'>~SO
l
i
.'\
GFTI:f! A 004 t:ODPF A ".'04
HALT c 001
ISBUSJ ! 0011 KZANGO A 004
C'!8A
f')E22
~222
0CB6
CJ..41
O'l70 ".1122 0311
0253
oos~
0066 0115
006"1
(\144
n5o
01119
0073 0222
0078 0.238
0083 0251
0088 0.258
01C1
010£.
0111
0116
0129
0134
0139
110
A ".'"4
X!OEXT A 004
XP1 c OM
IR2
c 001
ec2 ZE~O
~.
ZIPIT A t>OS
0C59
t'CCP
0001 C002 {\CEO
0C09
C-229 ')260
"3 l'.'1 0302
')26~
oic1
M9f\ ~12· 0202 0255 020C· 0201 0205 020S* 02311 0193· 0196· 0199· 0206· 0215 C.253
020'7
'l260· 0253* 0256· 0261·
LANE LA NEG
!,_
OC4
1)04
LDCllD A onf.
LINR c 001
LOBLHK A oou
LOF \lLG C 001
0BE"7 OBEB 0C92 0216
0A66
OOE')
0192 1)193
0244 0308
""60
0305
0183 0209 0231· 01SC 0210
00~6
0242*
!t''!l L STATE"ENTS FLAGGED 1R THIS lSSESBt.r ·
0
LPD c coi 007C 0304 0200
LPDADR A 002 0CE6 0212 0229
LPDlB c 0(11 00!6 0307 LPI c 001 0800 0303
0050· 0229* 016C 0160 0161 0161
LPIADB A OC2 ~CEQ 0271 .0243
LPIAB c OC1 t'OEU '))06
0243*
LPOUHT A {\01 0D37 '.'290
C046* 0146· M48 0192* 0208·
P!AKADY A e1s 0D30 1)283 ftEII'l' A 004 0BB3 ,164
OC43 0189 0155·
i
ftHA LT
Ml'l'EG !HL'l'
A ~t3
r. ()04
A 003
OBBI' 0B8D t'A3A
0191
0156 1)045
0185 0158
0039
,. i.
;
ftSECS A 002 OD39 t'291
0159· 016.2·
ft4DEL ·1 1)1)4 OB89 0155
N'EG24 c 001 FPE8 0296
0058 o.193
~"'
c NEG~O
OC1
FFE2 ('297
0196
UG33 c 001 FFDF 0298
0199
r
lfEX!O A ~04 OC5D 0231)
('062
NOT RI:T A 006 0CA3 0248
02U6
H'Dt c 001 OOEO 1)312
NPTIO A 004 0122 'l036
C!>36 0182 0236
~030
f
OH
A 002 0CE2 1)271)
PSBUSY C C01 O~E2 03ia
0146 ~162 0206 0208 0218 0230 0232 0256 0254
l>Rl>AT c !'01 C8FF 0299 PP!NT c 001 021A 031?
0~60· 0061 0061· OC'9li* 0095 0095· 0122* 0123 0123· ~C31 0040 0177 0186
DATE 25AUGf9 EC !10. 816485
11fUY7~
816671
01NOV70 816764
281fOV'75 572259
PROG ID
PAGE
0.E0"·3 4
DATE 25AOG69 , EC NO. 816485
11PIU7() 816671
01HOV70 816764
28NOV'75 572259
PIOG IJ> PlGI
OEOll·! Ill
·'
· · · · · · · · · · · · · · · ·
IeP. P.AINTEN~NCE DIAGNOSTIC PROGP.A! s2n~ CYCLE S!EAL & HA~"ER A~DRESSING TESTS
PABT JO.
PAGE
2589957 5
OBJECT CAF.D LISTING
THE CHARACTER lNDlCAT!S A BLANK COLU"N AND THE CHARACTEPS D E H INDICATE NUM!RIC SHIFT.
:::t "! THROUGH 16 CL i7 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96
GBK GBD
PN 25
.
89<l56 EC 572259
PRINTER CYCLE ST EAL & H~R ADDR
........ ........
84@@84H
E0430000
'l'+-Y: 8D< &
.
T+-zs~ <@ 47<;Q
'l'·-rO<+Q ((C4 ClL
((>A& o Bt·BA H
<:C,"BXi9< Y<@/
.
2-&x /0 HS8 FG2/= u
Rmz HCH*BPUB&C&G
.
+<+H(<T-BCLG2D?
l'."8-42 +A ((? H&B·B
.
2/tL /C>IiGOh;31
.
G s.-Q?HG5LUHCL.
BI i<-OT=B I"· /0,
2D X /0HS8F 12/it!!
-8-. EZ<E0430'.)01 ) 8-D · Nt8 E0431)0C 2
. .
I
.
?+-~WH>AW@Y;A+ -
. r+-_/-O~=BI" /C1
.
R8-Dt\8-42+A (<?H
.
S 8FT2/6D9 -42~/
&B*BG s.-E?HG.L- ·en.20 I /~RS8F3
A<+H(<!-&CL.20 I
IOH*BH>AZ~Y)JI<-
. .
2/148A 112@/ IOH·
/OR 3S·ECl.t300Ci4
.
H~~O C98E0430005
BH> ft.<E<"430')06
I
?+-1PC~@H - CL~ Y+-OKU , /OHE&J@
. . T+-1 ( *EG /. K &&
T·-2HH> ~OH·<(*B
.
T·-3C<LG-C+Yi9 3
.
T+-3=81 AC., /OH TC&441;.T2<G8~<P
········ SECT!O · ROOT.O, - CYCL
. 20 $ /OHS8F@+ 4
H - CO (+&~SOH&
{<+C/~GOC I < ( (ii>H f -3S') D<B&@ CL*
G 19-3W(·-<8T& UC D<DO +H BB~H SBAHS &3*(&H<7,B
R£<GD1(Y.8@PS8'L
.
N E04 *********
E STEAL TES?
. . . iC+. /0HKIJ&((~B BBUG /OHO( -._re
· X*BG B I""+ &
.
. . B0 =-9A-Y<@/ I 0-.
. .
"ST-DB-32D LB 1 a
.
<SI AB=? /OHO( - <O OBCLO<@&@B:LO
. .
. .
HCI*6B 35\ -<f;T& AC(04 -:!;lj; <~IH
&ACYHCHY< &46CH? 3 CA9-260H*BH>
G·············&-
. A41N ·~.0~4CB1·G D:F?T2<PN&(IE81P
**************** ·· -NOT!- ****
······· .* BEFORE RUNNING THIS TES
.
SCLHS &!1201 .TLO
.. .
JS C!8 ?L@Y*!+ &
-.O-DH-.4 OC 3>0B·
YCLU ~,LIE0430007
.
BBIB :2UEC4300C8
.
<O; H ; IDE04 30009
<8?HH@GVCC?2/0,
GBIBG s.-D<BGCGP
O(&H<B<GSC<G2/08
<tY0 1 tE&+.Ti·G
T&<TAq=< ....... .
.
/(\ff 70@£0430010
.
/00 4AR!0430Cl11
.
6 -C "BQF0430012
.
Lt+< 13QE0430013
NEoE0430014
········ ****************
E0ll30t', 5
········ r.?Hf ALTERNATE*
E0430016
· ROUT.02 - RAP!ft ER AVDB. TFST
·······
*
. P
RI
NTF:R
. ... . · ··············· ················ .. . * PRINTER
SHOULD BE BEADY , IF ALTERNATE ·
E0ll30017
. . ········ * IS AVAILABLE, A ND 3SW-05 ON..
E0ll30018
. .. .. . ... . ···.···.···.·.·.··.··· ················ ................ ................ ............·.· ········ E0430019
········ ·
················ ················ ················ ···············
*
ECll10~20
D!TE 25AUG69
FC NO. 816485
11P!AYi0
ei66'71
MNOV10 816764
28NOV"75 572259
PROG ID PAGE
1)£04-3 5
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
· I
-·
!BM ftAINTENlN:E DIAGNOSTIC P:ROGRA! E043 5203 CYCLE STEAL & HAft~FR ADDF!SSIIG TES!S
PlRT RO. PlGE
258995'7 (
51
OBJECT CARD LISTING
CL , THBOUGH 16
· . . TR E C. E. SIi! ...............
·
***·············
E""'*F7·=~Dc 0 PH$
CL 17 THROUGH 32
·· · · ·· e ·· · ·· · · · ·
*************···
... ... .
="'7!'!&FI
c
CL 33 THROUGH 48
DLE CONTROL,ftOSl'
****************
ASC Il A
Cl ll9 THROUGH 614 CL 65 THROUGH 80
.. .
.
BE ON Pp IOR TO RONNING PROGBl!*
················
.....·····...·.
·
···.·.·.··.·.·.·.·.·.·.·..··. ················
SC 0
09260630751
Ct 81 'fRROUGB 96
........
........ EOQ30021 !000022
........ !Cll30023 20S75·SiECQ3002G
t .
----------------------------------------------- LAST PAGE -----~---------------------~----------···----- l
D! TE
2 5AOG69
I'C NO. 816qas
11 f!AY70 ai6f'71
01NOV70
816164
28NOV7S
572259
PROG lD Pl GE
O!OIJ·3 51 '
·
-
i
I
· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·
· · · · · · · · · · · · · · ·
ISM MAINTENANCE DIAGNOSTIC PROGRAM E055 DATA AND IMAGE ADDRESS REG. TEST
PART NO. 2589959
PAGE
l
ERR LOC OBJECT CODE
AODR STHT SOURCE STATEMENT
OAOO
0 AOO E055 OA02 00 OA03 01 OA04 0000 OA06 OAOO
OM8 15R5 OAOA E05000
OAOl OA02 DA03
OA05 OA07 OA09
OAOC
OAOD 01 OAOE 00 OAOF OFC.9
OAll 38 04 0208 OA15 F2 90 CA
OA18 co 87 021A
OAlC '42 OAlD 12
OAlE 1546 OA20 f 000 OA22 Cl EO OA29 OA26 f2 B7 14 OA29 38 04 0208 OA20 F2 90 OA OA30 CO 87 021A OA34 41 OA35 22
OA36 1580 OA38 EOE! OA3A FO 7C 03 OA30 38 20 OAOC OA41 F2 90 18 OA44 3C 17 0070 OA48 3C 05 0090 OA4C 3C 08 ODE7 OA50 3C 81 OE8A OA54 3C 81 OEEC 0A58 3C et OF3A
OAOD OAOE OAlO
OAlC OAlD OAlF OA21
OA34 OA35 OA37
JA39
OA5C 31 EO 14BF
n MO 31 E4 14BB
0Ao4 31 E6 l4BO OA68 3C OA 1583
OMC cc 02 15Cl 1448
OA72 3B 08 0859 OA76 38 08 OFOD OA7A 3B 08 OEA7 OA7E 38 08 OE50 0A82 38 BC 0209 OAS~ F2 90 10 OA89 3A 08 0959
2
DECK It
3 UVWXYZ START X'A00'
4
5
*****************************S*E*C*l *IO*N***PR**EF*A*C*E*******************************
6
* 7 * 8 * 9
*******TA*THR*HEE*IS*L*PORA*OA*RGDE*RAE*AD*M*CB*OV*IND*TE*AA*N$INS*TES*IM*FB*IICNL*FFA*:OO*TR*IMO0*4*NAT*T, A*IO*F.NL*A*TMGN*SEE*t*CE*AU~N*DSR*AR*RE*FNY*IRT*S*FOT*RR*OR*U*OST*EUIN*CTE*TIN*IOEN*NU*M*AO*DB*EPDR*ER*RE*IASS*ST*IO**N*. ****
* * 10
* 11 * 12
*
SUPPLIED BY THE CONTROL PROGRAM. SECTION UDT ENTRIES ARE
DEFINED PARTIALLY SY THE SECTION SO THAT THE C.ONTROL PROGRAM CAN SUPPLY OPTION BYTES.
*
13 ***********************************************************************
14
DC
Xl2'E055 1
PROGRAM IDENTIFICATION
15
O".:
Xll '0'
FLAGS
.
16
DC
Xll'l'
17
DC
XLZ'O'
CURRENT ROUTINE NUMBER
RES~RVED
18
OC
AL2fRTNl)
ADDRESS OF FIRST ROUTINE PREFIX
19
DC
Al2(ERT11
ADDRESS OF ERROR RECORDING TABLE
20 SPUDT DC
XL3 1 E05000 1
UNIT DEFINITION TABLE - PRINTER
21 22
23 24
***********R*O*U*T*IN*E***1**- **D*A*TA***A*D*D*R*E*S*S**IN*C*R*E*M**E*N*T*IN*G***T*E*ST************************··
25 ***********************************************************************
26 RTNl DC
Xll'l'
ROUTINE NUMBER
27
DC
XLl'O'
FLAGS
28
DC
AL2CRTN2)
~GVRESS OF NEXT ROUTINE PREFIX
29 ****************************************~******************************
30
TBN SBVTEO,SSWOS
PRINT ON MFCU
31
JF
NRTIO
32
B
PRINT
33
DC
Xll 1 42 1
34
DC
IL1'18'
PRINT TITLE
35
DC
Al2(TITL11
3b
DC
Xl2'EOOU 1
37 NRTIO TIO BAPRT,NROY
38
J
TIPS
PRINTER READY
39 BAPRT TBN
40
JF
41
B
42
DC
SBYTEO,SSW05 MRALT PRINT Xll 1 41 1
PRINT ON MFCU SW. ON
43
DC
IL1'34'
44
DC
Al2 CMAKAOY I
45
DC
46 MRALT HPL
47 TIPS TSN
48
JF
Xl2 1 EOE1'
x·o3·,x·1r.·
SPUOT,B'l00000' lOUNT
HALT El THISA 300 LPM PTR.?
49
MVI ININLl+l,X 1 17'
50
MVI INCONT+l,X 1 05 1
51
MVI BESSLI+1,x·os·
52
MVI M3XT+l,X 1 81 1
53
MVI H2XT+l,X 1 81 1
54
MVl . MlXT+1,x·a1 1
55
56
·*······G*E*T*H*A*M*M*E*R*S
******
INTO
****************"·******
PROPER POSIT ION
*****************
***
******
5578 *LO*U*N*T****L*IO*****FO*~L*G*,L*O*F*O*L*G************************************************
59
LIO LPIAOR,LPI~R
LOAD LSR ADDRESS REGISTER
60
LIO
61
MVI
62
MVC
63 TOGOON SBF
64
SBF
LPDADR,LPOAR
LPOUNT ,x· OA'
BAOM3(3itZERO OACMD+l,6 1 1000 1
DACMOl+l,8 1 10001
LOAD DATA ADOR.REG. LOAD LOOP COUNT OF 10 ZERO ERR COUNTERS SET MOO.BIT OFF SET MOO.BIT OFF
65
SBF DACMD2+1,B'l000 1
SET MOO.BIT OFF
66
SBF OACMD3+1,e·1000·
SET MOO.BlT OFF
67
TBN SBYTEl,SSW08
68
JF MOVHAM
PRINT ON RIGHT CARR.
69
SBN DACMO+l.B 1 l000'
SET HOD.BIT Oh
NTE
310CT69
EC 1\10. 81652CJ
2:7DEC69 816547
20JAN70 816548
02MAR70 816631
llMAY70 816671
01NOV70 816764
04JUN71 818968
PROG 'D PAGE
OE05-5 1
·
· "~.
·
·
.
-·
·
·
·
·
·
·
·
·
·
·
·
V~ I >
...
\,.'
,..,,
~J
IBM MAINTENANCE DIAGNOSTIC PROGRAM E055 DATA AND IMAGE ADDRESS REG. TEST ·
PART NO.
PAGE
2589959 lA
ERR LOC OBJECT CODE
OA8D 3A 08 OFOO
OA91 3A 08 OEA7
0 A95 3A 08 OE50
OA99 3C 7F OAEF
OA90 38 80 021JC
OAAl F2 10 06
OAA4 CO 87 1411
OAA8 E200
OAAA 39 30 OAOC
OAAE f 2 90 12
CAB!. 3C 7C OAff
OAB5 38 80 020C
OAB9 F2 10 23
OABC CO 87 OF9S
OACO F2 87 20
OAC3 30 EZ 15A9
~ i .
OAC7 38 01 15A9
OACB F2 10 15
OACE 38 80 020C
OA02 F2 10 OA
OAC'S CO 87 1411
OA09 E200
OAOB CO 87 OAC3
0 ADF CO 87 OF63
OAE3 38 80 020C OAE7 F2 10 15 OAEA 30 E6 l5AD OAEE 30 00 15AO OAF2 F2 81 OA
OAFS CO 87 0222 OAF9 E070 CAFB CO 87 OA72
OAFF 3C 00 14C5 0803 3C 19 14C2 0807 C2 01 14C2 OBOB C2 02 0868
OBOF 4E 00 00 l4AF 0814 9C 02 00 00 0818 36 02 '...481 OBlC 70 FF 00 OBlF CO 82 OBOF 0823 C2 01 l4C5 0827 4E 00 00 14AF OB2C 9C 02 00 00 0830 36 02 1481 0834 7D 6E 00
0837 co 82 0827
0836 CZ 01 OB4F
OB3F C2 02 OC4E 0843 30 E2 15A9 OB47 38 10 15A8 OB48 CO 90 0843 OB4F 70 E2 10 OB52 78 01 OF 0855 DO 90 00 0658 F3 E2 01 OB5B F2 87 08 OB5E 0000
0860 70 E2 10
ADDR STMT SOURCE STATEMENT
70
SSN
71
SBN
12
SBN
73 MOVHIU-1 MVI
DACHOl+l,6 1 1000 1 DACHD2+1,B 1 1000' OACM03+1,B 1 1000' ZPRUNY·H.X 1 7f'
SET MOD.BIT ON SET MOO.BIT ON SET MOD.BIT ON
74
TBN SBVTE4.SSW20
75
JT
DUST
OPTION 1 ON?
76 OAA9 77
8
XIO
OC XL2'E200'
PRINT BLANKS
78 OUST TAF SPUOT,B·ll0000'
79 ·
JF
SIOST
100 LPM PRINTER?
80
HVJ ZPRUNY+1,x·1c·
81
TBN SBYTE4,SSW20
OPTION 1 ON
82
JT NEVES
83
8
M4DEL
84
J
GRAOAR
W~IT FOR M4 ANO DELAY
85 SIOST SNS
86
TBN
87
JT
STAT2.x·e2· STAT2,8 1 1 1 GRAOAR
SENSE TH[ TIMINGS ARE HMRS.IN POS. 4
88
TSN SBYTE4,SSW20
89
JT
NEVES
LPOAR OPTION 1 ON
90 OADA 91
B
XIO
OC
XL2 1 E200'
PRINT A BLANK LINE
92
B
SJOST
GO (HK.AGAIN
93 94 95
N**E~V*E*S*C*H*EB*C*K****C~R*PD*AA*HT*A**A**D*O*R*.*R*E*G*.F*O*R**C*O*GR*OR*E*C*TTO***CIN*H*IKT*.IR*A*EL*S*EIZ*TI*N*SG*U*B*R*T*.**************
96 ***********************************************************************
97 GRAOAR TBN SBYTE4,SSW20
LPOAR OPTION 1 ON
98
JT
SAWRYT
99
SNS
100 ZPRUNY CLI
101
JE
$TAT6.X 1 E6' STAT6,·-· SAWRYT
5ENSE DATA AODR. LPDAR AT 7F OR 7C
OAFA
102
B
HALT
103
DC
XL2'E0701
DATA ADOR.OID NOT START AT 7F HALT
104
B
TOGOON
110056 ******G**EN*E*R*A*T*E***SE*N*S*E***IN*S~T*R*U*C**T*IO*N*S****************************************
107 108
*SA*W**R*VT***M*V*I ****S*T*u*u*,*x*·o*o*·**************SE*T***2N*O***l*~*D~E*X*E*D**S*N*S**D*I*S*P*L*.T*O***c******
109
MVI SWUN,X 9 19 1
SET lST INOE1EO $NS DISPL.TO 25
110
LA
SWUN,XRl
LOAD lST INDEXED SNS AODR.
111
LA
DARS1+2,XR2
LOAD START OF GENERATED FIELD
112 AOTUU ALC 0(1,XRIJ,TWO
ADD 2 TO lST INDEXED SNS DISPL.
113
MVC 0(3,XR2),0(,XR1)
PUT INDEXED SNS IN GENERATED FIELD
114
A
TREE,XR2
UPDATE GEN.FIELD ADOR.BY 3
115
CLI O(,XRllwX 1 FF 1
IST INDEXED SNS OISPL.UP TO 255
116
Bl
ADTUU
117
LA STUU,XRl
IF NOT 1 GL DO ANOTHER LOAD 2ND INDEXED SNS AOOR.
118 ADTUTU ALC 011,XRlJ,TWO
119
~vc Of3,XR2J,O!,XRII
ADO 2 TO 2ND INDEXED SNS OISPL. PUT INDEXED SNS JN GEN. FIELD
120
A
TREE,XR2
UPOATf GEN.FJELD ADOR.BY 3
121
CLI OC,XR1),X 1 6E'
2ND INDEXED SNS DISPL.UP TO 110
122
SL AOTUTU
IF NOT DO ANOTHER
123 124
******W**A*IT**F*O*R**H*O*M*E**L*A**T*C*H*,T*H*E*N***IS*S*U*E*~P*R*I*N*T*&*S*P*A*C**E***-******~*************
125 ***********************************************************************
120
LA
HMLOOP 9 XR1
LOAD l FOR A BASE
127
LA DARS2-l,XR2
LOAD 2 FOR A 2ND BASE
128 SAN
SNS STAT2,X'E2 1
GRAB TIMINGS
129
TBN STATZ-l,6'10000'
PSS-1 ON?
130
BF
SAN
OBSF
131 HMLOOP SNS
132
TBN
133
BF
134 DACMD SIO
135
J
136
DC
137
SNS
16(,XR1) 9 X 1 E2'
15(,XRl),B'l' 0(,XRl)
x·o1·.x 1 E2· DARSI XL2 '0' l6(,XR1J,X 1 E2 1
GRAB SENSE
SYNC ON HCMF l·TCH
HOME LATCn UP 18.24 USEC.LOOP
LOOP IF NOT
PRINT ANO SPACE
GO SAMPLE
SENSE AREA
DATf
310CT69
EC NO. 816529
220ECb9
816547
20JAN70 816548
02MAR70 811:1631
l 1MAV70 816671
01NOV70 816764
04JUN71 e 18968
PROG ID PAGE
OE05-5 lA
·
·
·
(
I! I
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PART NO ..
PAGE
2589959 2.
E055 DATA AND IMAGE ADDRESS REG. TEST
ERR LGC OBJECT CODE
ADDR STMT SOURCE STATE~ENT
0863 78 00 10
138
TBN 16(,XRll.*-*
FI LlER
0866 DO 10 11
OB69
139
BT 17l,XR1)
* 140 ********~~***********************************************~*****~*******
141
SAMPLE THE D.A~R. AT 7.62 USEC
* 142 ******************************************************~·****************
143 DARSl EQU
OB69
* OC4E 144
OS
Cl230
OC4f 145 DARS2 EQU
OC4F
OCBC 146
OS
CLllO
OCBD
0066
147
DS Cll70
* 148 *********************~*****·******************************************·
149
CHECK HAMMER POSITION M4 INCREMENTING
150 *********************************************************-**************
Ou67 C2 02 OB6A
OD6B C2 01 l4CC
OD6f 3C 21 15BO
I' i
0073 3C 00 ODE3
0077 OE 00 0083 14AO
151
LA
152
LA
153 ININLI MVI
154 NEPSS ~VI
155 DIPAD ALC
DARS1+1 7 XR2 M4PSS l, XRl
SAMLI~,33
THCHEK+2~x 1 00·
THCHEK+2{l)TONE
LOAD POS. 4 TABLE ADDR.
sn INlT.INCR. LIMIT (23 ON 300 LP~·n
SEl iN!T.DISPL.TO 0
0070 36 02 14AF
156 SHAD A
TWO,XR2
0081 60 00 00 00
157 THCHEK CLC 0!1,XRlJ.OlwXR2)
0085 F2 81 14
156
JE
I NC ONT
0088 OF 00 1580 14AD
159
SLC SAMlIM1J,ONE
OD8E CO 01 0070 0092 co 67 0222
160
8NZ SMAD
161
B
HALT
O.A.R.D!D NOT lNCR. BY 12 HALT
009t> E071
0097 162
DC
Xl2'E07l'
0098 CO 87 OA72
:rn9C 3C 08 l 5BO ODAO 30 OA 0083
163
B
164 INCONT ~VI
165
Cl I
TOGOON SAMLIM,R THCHEK+2,XtOA 1
SET INCR. LIMIT {5 ON 300 LPMJ 11 D.A.R. lNCR.·S DONE
ODA4 CO 82 0077 OOA8 ZC Di 15B2 00 ODA!) 3C 08 15PO
166
BL D!PAD
167
MVC
LASAV\2!,0{,X~2J
SAVE LAST PS$ D.A.R.VAluE
168
MVI SAMLiM,x·oa·
SET SAMPLE liMLT TO 8
CDBl 36 02 14/1.F OOB5 20 01 15B2 00
169 MALS 170
A CLC
TWO,XR2
LA:AV(2),0!,X~2J
THIS BYTE LESS THAN LAST OF PSS
ODBA F2 84 14
171
JH CHESUB .
OOAO OF 00 1580 14AD
172
SLC SAMLIM1J,ONE
ODC3 CO 01 0081 ODC 7 CO 87 0222
173
BNZ MALS
174
B
HALT
D.A.ReDiu NOT SUBT~. ~FTER PSS
OOCB E072
ODCC 175
DC
XL2'E072 1
-ODCD CO 87 OA72 ODDI 9D 01 00 OC
176
B
177 CHESUB CLC
TOGOON
0!2~XR2},12(,XR1)
NOW EQUAL TO NEXT lNITGINCR.
ODDS F2 81 OA
0008 c0 87 0222
0 DOC E073
178 179 ODDO 180
JE SUBOK
B
HALT
DC
Xl2'E073'
SUBTR. WRONG AFTER PSS HALT
ODDE CO 87 OA72
181
B
TOGOON
. : t'
ODE2 36 01 1486 ODE6 3C OD l SBO ODEA 70 7f 00
182 SUBOK A
1A3 BESSLl MVI
184
CLI
TWLVE,XRl
SAMLIH,13 O(,XRl),xe7f1
ADD FOR NEXT IN!T.INCR. SET BETWEEN PSS LIMIT (8 ON 300 LPM)
ALL 3 PSS'S CHECKED
ODED CO 01 0073
185
BNE NE PSS
CDFl 35 02 14AB
ODF5 Cl E6 OEOO
186 EXLENT L
187 AGAIN TIO
ZEROt XRZ YALED,BUSY
PRINTER STILL BUSY
ODF9 C2 01 OE54
188
LA
GOM3,XR1
LOAD M3 START ADDRESS
ODFD F2 87 12
189
J
STRIT
OEOO 36 02 14AD
190 VALEO A
ONE,XR2
WAIT FOR 1.5 SEC. TO
uE04 CO 01 OOF5
191
BNZ AGAIN
CLEAR BUSY
OE08 CO 87 0222
lq2
B
HALT
BUSY TOO LONG HALT
0 EOC E014
OE:OO 193
DC
XL2 9 E 014'
OEOE CO 87 ODFl
194
8
EXLENT
* 195 *******************************~***************************************
196
CHECK HAMMER POSITION M3 INITIAL INCREMENT
197 ***********************************************************************
0El2 34 01 OE3A 0El6 39 30 OAOC
198 STRlT ST
WHART0+3,XRl
199
TBF SPUOT,B'llOOOO'
100 LPM PRINTER?
OElA f2 90 Of
200
JF
CL I HAP
0 ElD 38 80 020C
201
TRN SSYTE4,SSW20
OPTION l ON
OE21 F-2 10 28
202
JT
BLAH
OE24 CO 87 OF98
203
B
M4DEL
WAIT FOR M4 AND DELAY
OE28 CO 87 OE37
204
B
WHARTO
OE2C 30 E2 l 5A9
205 CLIHAP SNS STAT2,X 1 E2'
SENSE TIMINGS
· 11
DATE
310CT69
EC NO.. 816529
22DEC69
816547
20JAN70 816548
02MAR70 816631
11MAV70 016671
01NOV70 816764
04JUN71 818968
PROG ID PAGE
OE05-5 2
IBM l"AINTENANCF OIAGNOST IC PROGRAM
PART NO. PAGE
2589959
2A
E055 DATA ANO IMAGE ADDRESS REG .. TEST ·
ERR LOC OBJECT COOE
ADDR STMT SOURCE STATEMENT
OE30 38 01 15A9
206
TBN STl'12tB 1 l '
HAMMER IN M4
OE34 f 2 90 04 OE37 CO 87 0000
0 E3'3 38 80 020C
207
JF
208 WHARTO B
209 OPl
TBN
OPl
*-*
SBVTE4,SS~20
GO TO WHERE ? lPDAR OPTION 1 ON
OE3F f2 10 OA
210
JT
BLAH
OE42 CO S7 l4il
211
B
XIO
IF NOT MOVE 'EM
OE46 E200
OE47 212
DC
XL2 1 E200'
OE46 CO 87 OE2C
213
B
CLIHAP
0 E4C CO 87 Of63
214 BLAH B
CRPAH
GO TO CHK.RESET SUBRT:
OE50 CO 87 OE37
215
B
WHARTO
OE54 C2 02 OESF OE58 C2 01 15SB OE5C f3 E2 01
216 GOM3 LA
217
LA
2~B DACMD3 SIO
lUKPSE,XP.2 M30AR 9 XRl X1 0l',X'E2'
LOAD LOOP ADOR. LOAD SAMPlE ·REA ADOR. DO A PRINT & SPACE
OE5f 70 E2 00 OE62 78 40 00 OE65 EO 90 00
OE68 70 E6 00
OE6B 7D 82 00 0 E6E FZ bl 25 OE71 OE 00 l~Cl l4AO OE77 00 00 15Cl 1482
219 LUKPSE SNS
220
TBN
221
BF
222
SNS
223
CLI
224
JE
225
ALC
226
CLC
OC,XRlleX 1 E2'
0(,XRllwB'~~ooooo·
0( 9 XR2)
0(,XRl)·X'~b·
0(iXRl),X 1 82 6
GOAI T BADH3(l)~O~f
BADM3ll)yElGHT
GET TIMINGS PRINT START EMITTER ON
If NOT,LOOP
GRAB O~R INIT.INCR.82 FOR M3
*
ADD TO ERR COUNTER OVER 8 ERRS 1
OE70 f2 81 OC OE80 ?D SE 00 OE83 F2 81 10 OE66 7D 9A 00
227
JE
TMM3E
228
Cll O,XRlJ,X'8E'
229
JE
GOA IT
230
Cll
Q(~XRlJ,X'9A'
HAS IT BEEN INCR. ONCE
*
THiS CHK.ON 300 LPM ONLY
OE89 F2 07 O!I 0 E8C CO 87 0222
231 M3XT JC
232 Tl'IM3E B
GOAIT,X'07'
HALT
IM3 PHT.INCR.ERROR HALT
OE90 E075
OE9l 233
DC
XLZ·E075~
OE92 CO 87 OA72 Gf:96 Cl E6 OE96
OE9A L2 01 OEA2 OE9E CO 87 0El2
234
B
235 GOAIT TIO
TOGOON
GOAIT~susv
WAIT TILL CMOcDONE
236
LA
GOM2,XRl
LOAD M2 START AODR.
237
B
STRIT
238 **************·***********************************~·********$**********
239 *
CHECK HAMMER POSITION M2 INITIAL INCREMENT
OEA2 C2 01 1589
OEA6 F3 1:2 01 OEA9 70 E2 00 OfAC 78 40 00
240 ***·******************************** **********************·········***
241 GOM2 LA M2DAR,XR1
LOAD SAMPLE AREA AOOR.
242 DACMD2 SIO x·o1 1 ,x 1 E2·
DO A PRINT ANO SPACE
243 LOKON SNS
244
TBN
0(,XR1),X 1 E2 1 Ot,XR1J~6'l00000~'
GET TIMINGS WAIT FOR PRINT START EMITTER ON
OEAF CO 90 OEA9
OEB3 70 E2 00
OEB6 79 40 00 0 EB9 CO 90 OES3 OEBD C2 02 OECl OECl 70 E2 00 OEC4 78 40 00 OEC7 EO 90 00 OECA 70 Eb 00
OECD 70 85 00
OEDO F2 81 25 OE03 OE 00 lSCO 14AD OED9 OD 00 15CO 1482
245
246 NOY ET 247
248 249 250 FAST 251
252
2~3 25.'.t
255 256 257
BF SNS TBF
Bf
LA
SNS TBN
BF SNS CLI
JE
ALC
CLC
LOKON Oit XR U, X' E2 1 0[,XRl),81 1000000"
NO YET
F~ST9XR2
0(,XR1),X'E2' Ol,XR11 9 B1 1000000' 0(,XR2)
0(~XRlltX'E6'
0(,XRlitX 1 85'
TWAIT BADM2C 1) 9 0"lE BAOM2fl),EIGHT
GET TIMINGS WAIT FER PRINT START EMITTER OFF
GET TIMINGS WAIT FER PAINT START EMITTER ON
GRAB D~R INlT.lNCR. 85 FER M2
ADD TO ERR COUNTER OVER 8 ERRS 1
OEOF F2 61 OC OEE2 70 91 00
OEE5 F2 81 10 OEES 70 90 00 OEEB F2 07 OA OEEE CO 87 0222
258
JE
259
CU
260
JE
261
CLI
262 M2XT JC 263 TMM2E 8
TMM2E 0(,XRU,X'?l'
ToWc,AxIrT..u .x·901
TWAIT.X 1 07 1 HALT
HAS IT BEEN INCR. ONCE?
*
THIS CHK.ON 300 LPM ONLV M2 INlT.INCR.ERR~R HALT
0 EF2 E074
OEF3 264
DC
XL2 1 E0741
OEF4 CO 87 OA72 OEFS Cl E6 OEFS OEFC C2 01 OF04 OFOO CO 87 0El2
265
0
TOGOCN
266 TWAI1 TlO TWAIT.BUSY
WAIT Till CHO.DONE
267
LA GOMl,XRl
LOAr Ml START AODR.
268
269 270
******C*H*E*BC*K***H*AM*ST*M*RE*RIT**P*O*S*IT**IO*N***M*l**IN**IT**IA*~L**IN*C*R*E*M**E*N*T************************
271 ******·****************************************************************
Of04 C2 02 OFOF Of08 C2 01 15B6
272 GOMl LA
273
LA
MllOK 9 XR2 MlOAR-1,XRl
LOAD LOOP ADOR. LOAD SAMPLE AREA ADOR.
DATE
310CT69
EC NO. 816529
22DEC69 816547
20JAN70 816548
02MAR70
8166~1
llMAY70 816671
C'lNOV70
'116764
04JUN71 818968
PROG ID PAGE
OE05-5 2A
l;
· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·
·,r_ · · · · · ·-· · · · · · · · ·
(
IBM MAINTENANCE DIAGNOSTIC PROGRAM E055 DATA AND IMAGE ADDRESS REG. TEST
PART NO. Z589959
PAGE.
3
~ ! I ! ERR LDC OBJECT CODE
AODR STMT SOURCE STATEMENT
OFOC F3 E2 01 OFOF 70 E2 01 OF12 78 02 00 OF15 EO 90 00
274 OACHDl SIO
275 HlLOK SNS
276
TBN
277
BF
x·o1·,x·e2 1 l(,XR1J,X'E2' 0(,XRlJ,8 1 10 1 0(,XR2J
DO A PRINT & SPACE GET TIMINGS
WAIT FER HAMMERS IN Ml
OF18 70 E6 01 OF lB 70 7C 01
OflE F2 81 25 OF21 OE 00 15BF l4AO
OF27 OD 00 158F 1482
Of20 F2 81 OC OF30 7D 88 01 OF33 F2 81 10 OF36 70 94 01 OF3'9 F2 07 OA
278
SNS l(,XRlJ 1 X 1 E6 1
279
CLI lC,XRl.1X 1 7C1
280
JE
SUSY
281
ALC BAOHl(l),ONE
282
CLC BADMl(lJ,EIGHT
283
JE TMMlE
284
CLJ
1(,XRlJ,~'88 1
285
JE SUSY
286
CLI ll,XR1J,X 1 941
287 MlXT JC susv,x·o7·
GRAB DAR INIT.INCR.7C FER.Ml
ADD TO ERR COUNTER OVER 8 ERRS ?
HAS IT BEEN INCR. ONCE
*THIS CHK.ON 300 LPM ONLY
OF3C CO 87 0222 OF40 E079
288 THHlE B
OF4l 289
DC
HALT Xl2 1 E079 1
Ml INIT.INCR.ERROR HALT
OF42 CO 87 OA72 OF46 Cl E6 OF46 OF4A CO 87 0212
290
B
TOGOON
291 susv TIO susv,eusv
292
B
TEST
WAIT TILL CMD.OONE
OF4E 38 80 020C OF52 F2 10 OA
293
TSN SBYTE4,SSW20
294
JT LORIS
OPTION 1 ON
Of55 OF 00 1583 14AD
ti.
OF58 CO 01 OAAA
OF5F CO 87 0216
295
SLC
296
SNZ
297 LORIS B
LPOUNTC l> ,ONE DUST LINK
ALL HMR.Pos·s TRIED 10 TIMES
.
.
298 ***********************************************************************
299 ·*
CHECK RE SET PROMPTING ANO HALT SUBROUTINE (LP DAR OPT ION 1 J
Of-63 34 08 OF9A
300 ***********************************************************************
301 CRPAH ST SEXIT+3,ARR
SET RETURN AOOR.
OF67 38 04 0208
302
TBN SBYTEO,SSW05
PRINT ON ALT.DEVICE
OF6B F2 90 08
303
JF ES VEN
OF6;; CO 87 021A
304
B
PRINT
PRINT-CHECK RESET INSTR.
OF72 01
OF72 305
OC
Xll '01 1
OF73 34
OF73 306
DC
IL1 1 52'
OF74 158D
OF75 307
DC AL2(MAKADY)
OF76 FO 7C 07
308 ESVEN HPL X1 07 1 ,X 1 7C·
CHECK RESET HALT
OF79 Cl E6 OF79
309 NIPS TIO NIPS,BUSV
MUST BE NOT BUSY
Of7D 3C 28 15AF
Of31 OD FF 0800 0800 ..OF87 OD 38 0800 0800
310 311 TAW 312
MVI HAPOIN,X'28' CLC LPIC25b),LPI CLC LPll60),LPI
DELAY 40 MSEC COUNT DELAY 1 MSEC
OF80 OF 00 15AF 14AD
'111
OF93 CO 84 OF81
313 314
SLC HAPOIN(l),ONE
SH
TAW
DECR.DELAY CCUNT
OF97 CO 87 0000
315 SEXIT B
*-*
* 316
317
*******W*A*IT**F*O*R***M*4 ****T*!*-I*EN**D*E*L*A*Y**S*U*S*R*O**U*T*I N*E*****~*************************
OF9B 34 08 OFCB
OF9F 30 E:2 15A9
OFA3 38 Ol 15A9
0 FA 7 C0 90 OF 9F
OFAB 3C 32 15AF
OFAF OD FF 0800 0800
OFB5 OD 38 0800 OSOO
111
OFBB OF 00 15AF 14AD
OFCl CO 84 OFAF
OFC5 CO 87 0000
318 ~**********************************************************************
319 M4DEL ST
MEXIT+3,ARR
SET RETURN
320 GETIM SNS STAT2,X'E2'
GET TIMING
321
T8N STAT2,B'l'
322
BF GET IM
HAMMER£ IN M4
323 324 WAT 325
HVI CLC CLC
HAPOIN~X 1 32*
LPl(256),LPI LPl(60),LPI
50 MSEC DELAY DELAY l MSEC
326
SLC HAPOINllJ,ONE
327
BH WAT
DECR. DELAY COUNT
328 MEXIT B
·-·
329
RETURN
'r·
330 331
332 *******************'~********************'**"'****************************
OFC9 02
OFCA 00 OFCB fFFF
OFC9 OFCA Of CC
333 334
*
· 335
ROUTJNE 2 - IMAGE ADRRESS INCREMENTING TEST
* *
* · 336
337
**********************************************************************~
P TN2 DC
Xll 1 2 1
ROUTI lllE NU"48E R
338
DC
XLl'O'
FLAGS
339
DC
XL2 1 FFFF 1
LAST ROUTINE IN SECTION
OFCO 38 80 020C
341)
341
***********************************************************************
TBN SBYTE4,SSW20
DON'T CHK IMAGE IF OPTION l IS ON
{
DATE 310CT69 EC NO. 816529
22DEC69 816547
20JAN70 816546
02MAR70 816631
11MAY70 816671
OlN0\170 816764
04JUN71 818968
PROG ID PAGE
OE05-5 3
f,,
; l\1
c
· · · · · · ·· · ·· · · ·· · · ···
0
r
IBM ~AINTENANC[ DIAGNOSTit PROGRAM E055 DATA AND IMAGE ADDRESS REG. TEST ·
PART NO. 2589959
PAGE
3A
ERR LOC OBJECT CODE
ADDR STMT SOURCE STATEMENT
OFDl CO 10 13E5 OFOS 30 FF 0878 OF09 f 2 01 04 OFDC 3C 39 OFE4 OFEO 30 E3 l 5A8 OFE4 38 04 15AB OfES F2 10 17 OFE8 36 04 0208 OFEF F2 90 OA OFF2 CO 87 021A OFF6 Cl 0 FF7 1A OFFS 15A7 OFFA EOOE OFFC CO 87 0222 1000 EOOE 1002 38 04 0208 1(106 F2 90 OA
1009 co 87 021A
1000 42 1 OOE 13 lOOF 1559 H)ll EOOO 1013 Cl EO lOlA 1017 F2 87 36 lOlA 38 04 0208 lOlE F2 90 OA
1021 co 87 021A
1025 41 1026 22 1·'27 1580 l:t29 EOEl 1028 FO 7C 03 l 02E 38 20 CAOC l::l32 F 2 90 OF 1C35 3C 17 133D l(.·39 3C 05 1362 1030 3C 08 1392 1041 F2 fl7 OC 1C44 3C 21 1330 1048 3C 08 1362 1 C4C 3C 00 1392
1050 31 ED l4BF 1054 31 E6 l4BO 1058 3C OA 1583 105C 38 08 10F6 l 060 38 80 0209 1C64 F2 90 04 1067 3A 08 10F6
1066 co 87 1411
l06F E200 1071 39 30 OAOC 1075 F2 90 07 1078 CO 87 OF9B 107C F2 87 15 l07F 30 E2 15A9 1083 38 01 15A<1 1087 F2 10 DA 1C8A CO 87 1411 lOSE E200 1C90 CO 87 l 07F
1094 3C FE l4CB
OfF6 O.F7 OFF9 OFFS 1001 lOOD lOOE 1010 1012
1025 1026 1028 102A
1070
108F
342
BT BLINK
343
CLI UCSFLG,X 1 FF·
344
JNE SENAT
UCSFLG SET
345
MVI TECHBl,X 1 39'
346 SENAT SNS STAT3,X 1 E3 1
SET TO CH~ BIT OFF GRAB STATUS
34T TECHBI TBN STAT3,8 1 100 1
348
JT OKYDOK
48 CHAR.BIT ON OR OFF
349
TBN SBYTE01 SSW05
350
JF
HALIT
PRINT Oh MfCU SW. ON
351
8
PRINT
PRINT LHAIN OR I HAGE ERR.
352
DC
XL1 1 Cl 1
353
DC
~Ll'26 1
354
DC
AL2(CHAERRI
355
DC
XL2'EOOE 1
356 HALIT 8
HALT
CHAIN CHK.HALT
357
DC XL2 1 EOOE'
358 OKYOOK TBN SBYTEO,SSW05
PRINT ON MFCU
359
JF
RETIO
360
B . PRINT
361
DC
XLl 1 42 1
PRINT TITLE
362
DC
lll 1 19'
363
DC AL2(TITL2J
364
DC
Xl2 1E0001
365 PETIO TIO TRPAB,NROY
PRINTER READY
3!6
J
TNUOL
367 TRPA3 TBN SBYTEO,SSW05
368
JF MHALT
PR I NT ON MFCU
369
8
PRINT
:no
DC
Xll 1'tl'
371
DC
1Ll 1 341
372
DC Al2(MAKADVJ
~73
DC
Xl2 1 EOE1 1
374 MHALT HPL X1 03 1 ,X1 7C 1
~IALT El
375
TBN SPUJT,8 1 100000'
376
JF
ERHTKS
377
~VI lNILI+l,X 1 17 1
378
MVI ICTAB+l,X 1 05'
379
MVI STSSLI+1,x·os·
380
J
TNUOL
381 ERHTKS MVI INILI+l,X'21 1
382
MVI ICTAB+l,X 1 08 1
=a3
MVI BTSSLI+1,x·oo·
* 384 *****************~****************************************************
385
GET HAMMERS INTO PROPE~ POSITION
396 **********************************************************************
387 TNUOL LIO FOLG,LOFOLG
LOAD FORMS LENGTH
388
LIO LPOADR,LPDAR
LOAD DATA ADDR. REG.
;.99
MVI LPOUNT,X'OA'
LOAD LOOP COUNT OF 10
390
SBF IACMD+l,8 1 1000 1
SET MOO.BIT OFF
391
TBN S~YTE1,SSW08
PRINT ON RIGHT CARR.
392
JF HERE
393
SBN IACMD+l,8 1 1000 1
SET MOO.BIT ON
39~ HERE B
XJC
PRINT BLANKS
395
DC
XL2 1 E200 1
396 SECIT TBF SPUOT,8 1 110000 1
100 LPM PRINTER?
397
JF
NOHOO
398
B
H4DEL
WAIT FOR M4 AND DELAY
399
J
TYRWAS
400 NOMOD SNS STAT2,X'E2'
401
TBN STAT2,8 1 l 1
SENSE THE TIMINGS ARE HMRS.IN POS. 4
402
JT
TYRWAS
403
B
XIO
PRINT A BLANK LINE
404
DC XL2'E200'
405
B
NO MOO
406 407
******G*E*N*E*R*A*T*E**S*E*N*S*E**I*N*S*T*R*U*C*T*I*O*N*S***********************************·····
408 ***********************************************************************
409 TYRWAS MVI ITUU,X'FE'
SET 2ND INDEXED SNS DISPL.TO 254
DATE
310CT69
EC NO. 816529
220EC69 816547
2 OJAN70 816548
02,..AR70 81 663 l
l 1MAY70 816671
01NOV70 816764
04JUN71 8189b8
PROG ID PAGE
OE05-5 3A
(
(
IBH MAINTENANCE DIAGNOSTIC PROGRAM E055 DATA ANO IMAGE ADDRESS REG. TEST
PART NO .. PAGE
2589959 4
ERR LOC OBJECT CODE
ADDR STMT SOURCE STATEMENT
1098 3C 10 14C8
l09C C2 01 14C8 lOAO C2 02 lOFF 10A4 4E 00 00 14Af 10A9 9C 02 00 00
lOAD 36 02 14Bl
1081 70 FE 00
1064 CO 82 l0A4 1 OB 8 C2 0 l 14CB lOBC 4E 00 00 l4AF lOCl 9C 02 00 00 10C5 36 02 l4Bl 10C9 70 78 00 lOCC CO 82 lOBC
410
MVI
411
LA
412
LA
413 UUTOA ALC
414
MVC
415
A
416
CLI
417
BL
418
LA
419 UTUTDA AlC
420
MVC
421
A
422
cu
423
BL
iWUN,X'iO' IWUN,XRl
IARS1+2,XR2
0{1,XRll,TWO
0(3,XR2)~0(,XR1>
TREE 7 XR2 OC 9 XR111X'FE' UUTOA ITUUtXRl 0(1,XRl),TWO 0(3vXR2l,O(,XRl} TREE,XR2
O(,XRU,x·1s·
UTUTDA
SET lST INDEXED SNS DISPL.TO 16 LOAD lST INDEXED SNS ADDR. LOAD START OF GENERATED FJELD ADO 2 TO lST INDEXED SNS DISPL. ?UT INDEXED SNS IN GENERATED FIELD UPDATE GEN.FIELD ADDR.BY 3 lST INDEXED SNS DISPL.UP TO 254
LOAD LND INDEXED SNS AODR. ADD 2 TO 2ND INDEXED SNS DISPL. PUT INDEXED SNS IN GEN. FIELD VPOATE GEN.FIELD ADDR.BY 3 2ND INDEXED SNS OISPL.UP TD 120
I ..
1000 31 F4 l4B8 1004 3C FF 087F 1008 C2 01 lOEC lODC C2 02 llFC lOEO 30 E2 15A9 lOE4 38 10 15A8 10E8 CO 90 lOEO
424 ***************************************************~*********~*******~*
425 ·
WAIT FOR HOME LATCH,THEN ISSUE PRINT&SPACE
426 ************************·**************~**********~********************
427
LiO LPIADR,LPIAR
LGAD LSR ADDRESS REGISTER
42~
MVI LP0+3,X 1 FF 1
PUT UPC IN M4
429
LA
POOLMH,XRl
LOAD l FOR A BASE
430
LA
IARS2+1,XR2
LOAD 2 FOR A 2NO 6.11.SE
431 NAS
SNS STAT2,X 1 E2'
GRAB TIMINGS
432
TBN STATZ-1,8 1 10000'
PSS-1 ON ?
433
Br
NAS
1 DEC 70 E2 10 lOEF 78 01 OF
l IJF2 DO 90 00 !OF5 F3 E2 01 lOFS DO 87 11 1 OFB 0000
lOFC
434 POOLMH SNS
435 ·
TSN
436
BF
437 IACMD SlD
438
B
439
DC
l6C,XRl),X"E2 1 15(,XRlJ,BEl' 0(,XRl! x·o1·.x·E2' 17(,XRll
Xl2'0"
GRAB SENSE SYNC ON HOME LATCH HOM~ LATCH UP 18.24 USEC.LOOP LOOP !F NOT PRINT AND SPACE
GO SAMPLE SENSE AREA
* 444401
***********·***************************~*~***~*************~*********** SAMPLE THE I.A~R. AT 7.62 USEC
lOFD
* lOFD
442 ****************~*~*****~**~'***************~*************************** 443 IARSl EQU
l lEA 444
OS
CL238
llEB 445 IARS2 EQU ·
llEB
1250 446
OS
Cll02
1251 -1319 3C 40 087F
1310 3C 28 1388 1321 C2 01 14FO 1325 ~O E3 15AB 1329 38 04 l5AB 1320 f2 10 OB
1318 447 448
44~
450
451 452 453
OS
Cl200
MVI LPD+3tX'40'
MVI DUNAl+l,X'28 1
LA
PS14B-l,XR1
SNS STAT3,X'E3°
TBN STAT3 9 S 1 XOOt
JT
SKUC:S
BLANK UPC
SET 48 CHAR.STOPPER
GRAB STATUS BYTES
48 CHAR .BIT ON
1330 C2 01 1512
1334 3C 58 1388
l;,38 C2 02 lOFA
l 33C 3C 00 1560 1340 36 02 l4AF 1344 BO 02 02 1347 F2 81 13
454
LA
455
MVI
456 SKUCS LA
457 INILI MVI
458 UPTWO A
459
CLI
460
JE
PSlUCS-lfXRl DUNAl+l,X'58° IARS1-3,XR2 SAMLIM,*-* TWO.XRZ
2(,XR21 rX'02 1
ITZ~O
MUST BE UCS SET UCS STOPPER
SET lNIT. TO 33 OR 23
INIT. INCR. OZ STILL
134A OF 00 1580 14AD
1350 co 01 1340 1354 co 87 0222
461 462 463
1358 E076
1359 464
l35A F2 87 65
465
SLC SAMLIM(l) 9 0NE BNZ UP TWO
8
HALT
DC
XL2'E076 1
J
NUSAM
OECR a LIMIT
I.A.R. DID NOT START AT 02 HALT
l 350 3C 00 1371 l 361 3C 00 l 5B 0
1365 OE 00 1371 l4AD 1368 36 02 l4AF 136F 60 00 00 00 1373 F2 81 13 1376 OF OC 1580 14AD
1::,1c co 01 l36B 1380 co 87 0222
1384 E077
1386 F2 87 39
1385
466 ITZRO MVI
467 ICTAB MVI
468
ALC
469 ROGAN A
470 CHKINC CLC
471
JE
472
SLC
473
Bf'llZ
474
B
475
DC
476
J
CHKINC+2,X'00'
SAMLIM,*-*
CHKJNC+2t1J,ONE TWO;XR2
0Cl,XRll,Oi,XR2) IT SOK SAHLI~ll) 9 0NE ROGAN HALT
XL2'E077 1 NUSAM
SET INIT.DiSPL.TO 0 SET INCR$ LIMIT TO 8 OR 5 ADD TO OISPL. ADO TO SAMPLE ADDR. SAMPLE EQUAL TO TABLE INCR.
OECR.LIMIT
I.A.R.OID NOT INCR~ BY S HALT
1389 30 OB 1371
477 ITSOK CLI CHKINC+2,X 1 0B 1
11 I.A R.INCR. DONE
DATE
310CT69
EC NO. 816529
22DFC69 816!;47
20JAN70 816548
02MAR70 816631
llMAY70 816671
01NOV70 816764
04.JUN7l 818968
PROG ID PAGE
OEOS-5 4
ISM MAINTENANCE OIAGNOSTlr. PROGRAM E055 DATA AND IMAGE ADDRESS REG. TEST ,
PART NO.
PAGE
2589959 41
ERR LDC OBJECT CODE
4.DDR SlMT SOURCE STATEMENT
1380 co 82 1361
1391 3C 00 15BO
l 395 36 01 14B4
1399 3& 02 l4AF
1390 60 00 01 00
13A! F2 81 13
l3A4 OF 00 1580 l4AD
l 3AA CO 01 1399
l3AE CO 87 0222
l3B2 E078
. I
13B4 F2 87 OB
1367 70 00 00
13BA Cl'J 01 1350
13BE CO 87 0212
l 3C2 35 02 14AB
l 3C6 Cl E6 13C D
l3CA F2 87 OE
1 3CD 36 02 l4AD
478
BL
479 BTSSU M\11
460
A
481 NAGOR A
482
(LC
483
JE
484
SLC
4S5
BNZ
486
8
487
DC
4R8
J
48~ DUNAL Cl!
490
BNE
491
B
492 NUSAM l
493 BUTIG TIO
494
J
495 BULOP A
I CT AB
SAMU~,*-"'
lEVEN,XRl TW0 9 XR2 l(l,XR1),0(,Xk2) DUNAl SAMLlM(l),ONE NAG OR HALT
XL2"E078'
NU SAM
0(,XRl),*-* lT ZRO TEST ZfRO,XR2 BULOP,BUSY SIC EM ONE,XR2
SET BETWEEN PSS'S LIMIT TO 13 OR S ADD TAdLE OISPL.TO TABLE ADDR. ADD TO SAMPLE AOOR. SEARCH FOR NEXT INIT.INCR. DECR.U MIT PSS INIT.INCR.ERROR HALT
ALL PSS'S CHACKEO
WAIT TILL NOT BUSY
1 3 Dl C0 01 l 3C 6
1305 co 87 0222
496
BNZ
497
B
1309 EOll
13DA 498
DC
13DB OF 00 1583 l4AO
499 SICEM SLC
l 3El CO 01 1071
500
BNZ
i.3E5 CO 87 0216
501 BLINK B
BUT IO HALT
XL2 1 E011' LPOUNTlil,ONE SEC IT LINK
GONE THRU 10 TIMES
502 *~*********************************************************************
503 ~
CHECK FOR BUSY & DELAY SUBROUTINE
13E9 34 08 1410 13ED OC 02 l5bE 14B9 13F3 OF 02 15BE l~AD
504 *********************************·*************************************
505 BROuT ST
BSEXIT+3,AR~
506 SDC
~vc BUSUB(3},BUSCTI
STORE DELAY COUNT
507 FLOOP SLC BUSUB(31,0NE
13r-9 F2 8: 07
13FC Cl E6 13F3
1400 FZ 87 OA
1403 co 87 0222 1407 EOll l 409 CO 57 13ED
1400 co 87 0000
1408
50B
JZ
509
TIO
510
J
511 TDLONG B
512
DC
513
B
514 BSEXIT S
TOLONG
FLOO?,BUSY
BSEXIT
HALT
Xl2"E0ll' SOC
*-*
ERROR HALT
BUSY ID. TRY l.GAIN
515 516
*******EX**EC*U*T*E**S*I*O**S*U*B**R*O*U*T*IN*E*********************************************
1411 36 08 14AD 1415 34 08 1443 1419 36 OS l4AD
517 ***********************************************************************
518 XIO A
ONE,ARR
519
ST LOCM0+9,ARR
LOAD PARAMETER POINTER
520
A
ONE,ARR
1410 34 08 14A4
1421 34 01 14A6 1425 34 02 l4A8
1429 Cl EO 1430
1420 f 2 87 OA
1430 co 87 0222
521
ST
522
ST
523
ST
524 T!OCHK TIO
525
J
526 E~NRDY B
EXIT+3,ARR SAVWUN,XRl SAVTUU,XR2
ERNROY~NRDY
LDC MD
HALT
SET UP EXIT SAVE REG. l SAVE REG .. 2 BRANCH IF NOT READY
1434 EOlO
1436 co 87 1429
1435 527
~28
DC
Xl2'E010'
B
TIOCHK
NOT READY IO.
l43A CO 87 13E9
529 LDCMO B
BROUT
l43E OC 01 1456 0000
530
MVC CMN0+2{2),*-*
1444 38 08 145A
531
SBF CMNO+lwB·tooo·
1448 38 80 0209
532
TBN SBVTE1,SSW08
l44C F2 90 04
533
JF NOTRIT
SET !IP COMMAND FROM PARAMETER SET MOD.SIT OFF
PRINT ON RIGHT CARR.
144F 3A 08 l45A 1453 OC 01 l5B5 1458 1459 F3 00 00 l45C Cl E6 l466
l 460 co 87 0222
1464 EOlb 1466 35 02 14AB
1465
534
SB~
535 NOTRiT MVC
536 CMNO SIO
537
TIO
538
B
53q
DC
540 lSBUSY L
CMND+l,8'1000' ERT1(2),CMND+2 X'O'·X'O' ISBUSY,BUSY HALT
XL2 1 E016'
ZF.RO,XR2
SET RIGHT CARR.MOD.SIT ON
COMMAND LOADED DURING EXECUTION
If NO!, HALT ON ERROR NOT RUSY HALT
l46A Cl E6 1471 l46E f2 87 OE 1471 36 02 l4AD
541 DELAY TIO
542
J
543 BSYLP A
BSYLP,BUSV XIOEXT ONE,XR2
PRINTER STILL BUSY TRY FOR ABOUT 1.5 SECONDS TO
1475 CO 01 l46A
1479 co 87 0222
544
BNZ DELAY
545
B
HALT
CLEAR BUSY 3USY HALT
DATE
310CT69
EC NO. 816529
22DEC69 816547
20JAN70 t.16548
02MAR70 816631
11MAV70 816671
01NOV70 816764
04JUN71 818968
PROG JO PAGE
OE05-5
ltA
· '.r Ill ( c c
( 'I I I
ll I
·
·
··
·
·
·
·
·
·
·
·
·
·
·
· · · t t l c~
·
· · ·· · · · · ·- · · ·
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PART NO. 2589959
PAGE
5
I
l
(:
I
.' 1.
I
IBM MAINTENANCE DlACNOSTIC PROGRAM
I
I
PART NO. PAGE
2589959 5A
E055 DATA ANO IMAGE ADDRESS REG. TEST
E055 OATA ANO IMAGE ADDRESS REG. TEST
ERR LOC OBJECT CODE
AODR STMl SOURCE STATEM~NT
ERR LDC OBJECT CODE
1470 E014 l41f 3C 80 15AF
AODR STMT SOURCE STATEMENT
147E 546
DC
547 XIOEXT MVI
XL2 1 E014'
HAPOI N, x· eo·
LOAD DELAY COUNT OF 128
'
1483 OD FF 0800 0800
548 ..T
CLC LPI C256J,LPI
DELAY l MSEC.
1489 OD 38 0800 0800
549
CLC LPI(601tLPI
l48F OF 00 15AF l.4AO
550
SLC HAPOI N( II , ONE
CECREMENT DELAY COUNT
1495 co 84 1483
551
SH
WT
_
1499 35 01 14A6 1490 35 02 14A8 14Al CO 87 0000
552
L
553
l
5~·~ EXIT B
5!;5
·-·SAVWUN,XRl
SAVTUU,XR2
RESTORE REG.l
RESTORE REG.2 EXIT SUBROUTINE
14A5 0000
l4A6 556 SAVWUN DC
JL2'0'
l4A 7 0000
14A8 557 SAVTUU DC
Il2'0'
.
* 558 *~*********************************************************************
559
CONSTANTS
560 ******* ***** *********************************·***********************
14A9 00
l4M 561
DC
IL1'0 1
l4AA 0000
14AB 562 ZERO DC
ll2'0'
l4AC 0001
l4AD 563 ONE
DC
Il2 1 1 1
l4AE 0002
l4AF 564 TWO
DC
Il2'2'
1480 0003
14Bl 565 TREE DC
IL2'3'
1482 08
1462 566 EIGHT DC
IL1'8'
1483 OOOB
1465 oooc
1484 567 LEVEN DC 1486 ~68 TWLVE DC
ll2'11' ll2'12'
1487 040000 14BA 0800
14B9 569 BUSCTI OC 14BB 570 LPIADR DC
XL3 1 40000 1 XL2 1 800'
IMAGE AOOR.
l48C 087C 14BE 7070
14SD 571-LPDAOR DC 14BF 572 FOLG DC
XL2'87C 1 XL2'7070'
FORM LENGl H 112
l4CO 70E619
l4C2 573 SWUN DC
Xt3'70E619'
14C3 BOE600
l4C5 574 STUU DC
XL3'BOE600'
14<:6 70E410
14Ce 575 IH~N DC
XL3 1 70E410 1
14C9 BOE4FE
14CB 576 ITUU DC
l4CC 577 M4PSS1 EQU
l4CC 7F8897A3AFBBC703 1403 578
DC
*XL3 1 BOE4FE'
XL8'7f8B97A~AFBBC7D3 1 OAR VALUES FOR HMR.POS.4 PSSl
14D4 DFEBF7
1406 579
DC
Xl3 10FEBF7 1
132 PP
1407 08
1407 580
1408 838F96A783BfCBD7 14DF 581
DC
Xll 1 08'
DC
Xl8'838F9BA783BFC607· DAR VALUES FOR HMR.POS.4 PSS2
l4EO E3EFFB
14E2 582
DC
XL3 1 E3EFFB 1
132 ?P
l4E3 08
14f3 583
-14E4 87~39FABB7C3CFDB 14EB 584
DC
Xll'08'
DC
XL8'87939F~887C3CfDB 1 OAR VALUES FOR HMR.POS.4 PSS3
l4EC E7F3FF
14EE 585
DC
XL3 1 E7F3FF 1
132 PP
14EF 087F
lltFO 580
DC
XL2'087F'
587
* lltfl 588 PS148 EQU
14Fl 020Al21A222A020A 14FB 589
DC
XLll 1 020A12lA222AOlOA121A22' I .A.R.VALUES
14F9 121A22
589
14FC 050015102520050{) 1506 590
DC
Xlll 1 050015102520050Dl51D25 1 48 CHAR.SET
1504 151025
590
1507 081018202R000810 1511 591
DC
XL11·08101a202eoooo101e202s 1
150F 182028
591
1512 03
1512 592
DC
1513 593 PSlUCS EQU
1513 020Al21A222A323A 151D 594
DC
·Xll'03 1
Xlll 1 020Al21A222A323A424A52' t.A.R..VALUES
1518 424A52
!iq4
151E 0500151D25203530 1528 595
DC
Xlll 1 0500151025203530454D55 1 U.C.S.
1526 454055
595
1529 0810182028303840 1533 596
DC
Xlll'0810182028303840485058 1
1531 485058
596
1534 03
1534 591
DC
Xll 1031
* 598 ***********************···~············································
599
MESSAGES
~00 ***********************************************************************
1535 C4C 1E3C l40C 1C4C't 1546 601 TITLl DC
CL18 1 0ATA ADDR.REG.TE~T'
1530 D94809C5C74BE3C5
601
1545 EZE3
601
1547 C904C lC 7C.540C 1C4- 1559 602 TITL2 DC CL19 1 IMAGE ADOR.REG.TEST 1
154F C.4094809CSC74BE3
602
1562 C5C30240D9C5E2C5
603
l 56A E368
603
156C F5F2FOF340D4E4E2 157E 604
DC
Cll91 5203 MUST SE RE~DYt'
1574 E340C2C54ooqc5c1
604
157C C~E868
604
157f E3C8C5054009C5E2 1580 605.MAKADY DC
Cll51 THEN RESET HALT'
1587 C5E340CBC103E3
605
15BE C904ClClC5405040 1596 606
DC
Cll4 1 IMAGE & CHAIN ·
1596 C3C8ClC9D540
606
159C C406400506E340Cl 15A7 607 CHAERR DC
tl12'00 NOT AGREE'
15A4 C709C5t5
607 608 609
··········~·········~~············***********. .************************
*
RESERVED STORAGE
610 **********************·************************************************
15A8 0000
15A9 611 STAT2 DC
XL2'0'
15AA 15AC 0000 15AE 0000
1580 00 1581 0000
1583
15AB 15AD 15AF 15BO 1582 1563
612 STAT3 OS 613 ST4T6 DC
614 HAPOIN ac
615 SAHLJM OC 616 LASAV DC
617 LPOUNT OS
Cl2 XL2'0 1 XL2 1 0·
Xll'O' Xl2'0 1
CU
1584 1586 0000 1588 0000 158A 0000
1585 618 ER Tl OS 1587 619 MlOAR DC 1589 620 M20AR OC 15BB 621 M3DAR DC
CL2 XL2'0' XL2'0' Xl2 1 0'
Ml SAMPLE I.REA H2 SAtllPLE ~REA 1'13 SAKPLE AREA
15BC
15BE 622 SUSUB OS
Cl3
158F
l!:BF 623 ~ADMl OS
Cll
l5CO l 5Cl
15(0 15C l
0008 0001
624 BAOMZ OS
Cll
625 626 627
*BA*O*M**3 **O*S*****C**U******************************~***·*********************
* EQUATES *
-
62 s **"'****************************"'**********"'******************.**********
629 ARR
EQU x·oa·
AOOPES~ RECALL P.EGISTER
630 XRl
EQU 1
INDEX P.EGISTER 1
0002 631 XR2 0800 632 LPI 087C 633 LPO
EQU 2 EQU x·aoo·
EQU X'87C'
INDEX REGISTn 2
LINE PRINTER IMAGE AREA
LINE PRINTER DATA AREA
0878 634 UCSFLG EQU X'878'
OCEC 635 LOFOLG EQU x·eo·
OOE4 636 LPIAR EQU X1 E4'
OOEfJ 637 LPDAR EQU 0216 638 LINK EQU 0212 639 TEST EOU 021A 640 PRINT EQU 0222 641 HALT EQ~
X'E6' X1 216' X1 212 1 X'21A 1 X'222'
E~TRY TO OCP CHAIN ROUTINE ENTRY TO DCP READ DATA SW'S ROUT.
ENTRY TO OCP PRINT ROUTINE ENTRY TO OCP ERROR HALT ROUTINE
OOEO OOE6
0?08 020':1 02QC
0004
OORCl
0080
642 NROY EQU X1 EO'
* blt3 BUSY EQU X'E6'
644
SFNSE SWITCH EQUATES.
645 S6YTEO EQU x·2oa·
646 S~YTEl ~QU X'209 1
* 647 SBVTE4 EQU x·2oc·
648
CONTROL PG~ SENSE SWITCHES
649 SSW05 EQU X'04'
650 651
*SSWS0E8CTEIOQUN
x·so· SENSE SWITCHES.
652 SSW20 EQU x·so·
PRINTER BUSY
DCP SENSE SWITCH AREA OCP SENSE SWITCH AREA SECTION SENSE SWITCH AREA
PRINT MESSAGES ON MFCU USE 5203 RIGHT CA~R.
LP DAR OPT ION 1
FFff 653
END
1557 C5E2E3
602
155A 0709C5E2E240C3C8 15fl8 603
DC
CL18 1 PRESS CHECK RESET,·
DATE
310CT69
EC NO. 816529
22DfC69 816547
20JAN70 816548
02MAR70 816631
11MAV70 816671
01NOV70 816764
04JUN71 818968
PROG ID PAGE
OE05-5 5
DATE
3 lOCT 69
EC NO. 816529
22DEC69 816547
20JAN70 816548
02MAR70 916631
11MAY70 816671
01NOV70 816764
04JUN71
1'<18968
PROG IO PAGE
OE05-5 5A
·
·
(
(
c
(
t II r .-·
"·
(
.' t 1' I
· ll I
'ii'
IBM MAINTENANCE DIAGNOSTIC PROGRAM E055 DATA ANO IMAGE ADDRESS REG. TEST
PART ND. 2589959
PAGE
'6
SYMBOL T LEN VALUE DEFN
ADTUTU A 005
ADTUU A 005
AGAIN A 004
ARR c 001
BAOMl A 001
8AOM2 A 001
8ADH3 A 001
BAPRT A 004
BESS LI A 004
BLAH A 004
BUNK A 004
BROUT A 004
BSEXIT A 004
BSYLP A 004
BTSSLI A 004
BU LOP A 004
BUSCTI A 003
BUSUB IA 003
BUSY c 001
8UTIO A OC4
CHAE RR
CHES Ca
A 012 A 004
CHKI NC A 004
ClIHAP A 004
CMND A 003
CRPAH A 004
[)ACMO A 003
OACMDl A 003
OJCMO~ A 003
OACM03 A 003
OARSl A 001
OARS2 A 001
DELAY A 004
DIPAO A 006
OUN AL A 003
DUST A 004
EIGHT ,\ 001
ERHTKS A 004
ERNROV A 004
ERTl A 002
ESVEN A 003
EXIT A 004
EXLENT A 004
FAST A 003
FLOOP A 006
FOLG A 002
GETIM A 004
GOA IT A 004
GOMl A 004
GOM2 A 004
GOM3 A 004
GRAD AR A 004
HAL IT A OC4
HALT t 001
0827 0118
OBOF 0112 ODF5 0187 0008 0629 15BF 0623 15CO 0624 15Cl 0625 OA29 0039 OOE6 01$3 OE4C 0214 13E5 0501 13E9 0505 1400 0514
1471 0543 1391 0479
13CD 0495 l4B9 0569 15BE . 0622
OOE6 0643 13C6 0493 15A7 0607 0001 0177 136F 0470
OE2C 0205 1459 0536 OF63 0301 0658 0134 OFOC 0274 OEA6 0242 OE5C 0218 0869 0143 OC4F 0145 l46A 0541 0077 0155 1367 0489 OAAA 0078 1462 0566 1044 0381 1430 OS26 1565 0618 Of76 0308 l4Al 0554 ODFl 0186 OECl 0250 13F3 0507 l4BF 0572 OF9F 0320
OE96 0235 OF04 0272 OEA2 0241 OE54 0216 OAE3 0097 OHC 0356
0222 0641
HAPOIN A 002 HERE A 004 HMLOOP A 003
IACMO A 003 I ARS 1 A 001
I ARS2 A 001 ICTAB A 004 I NCO NT A 004 INIL I A 004 l NIN LI A 004
ISBUSY A 004
15AF l06B
OB4F
1QF5 lOFD llEB 1361 OD9C l33C OD6F 1466
0614 0394 0131
0"·37 0443 0445 0467
0164 0457 0153 0540
CROSS-REFERENCI\.:
REFERENCES ·
0122 0116
0191 0301 0319 0505 0518· 0519 0520* 0521 0281* 0282 0256· 0257 0062· 0225· 0226 0037
0051· 0202 0210 0342 0529
0505· 0510 0541
0379· 0383· 0493 0506
0506· 0507* 0187 0235 0266 0291 030.9 0493 0509 0496 0354
0171
0466· 0468* 0477 0200 0213 0530· 0531* 0534* 0535 0093 0214 0063* 0069* 0064* 0070* 0065· 0071* 0066· 0072· 0111 0135 0151 0127
0544 0166
0449· 0455· 0483 0075 0296
0226 0257 0282 0376
0524
0019 0535· 0303
0521* 0194
0249 0509
0058 0387 0322 0224 0229 0231 0235 0267 0236
0188
0084 0087 0350 0102 0161 0174 0179 0192 0232 0263 0497 0511 0526 0538 0545 0310* 0313· 0323* 0326* 05~7* 0550* 0392
0126
0390· 0393* 0412 0456
0430
0378· 0382* 0478 0050* 0158 0377· 0381* 0049* 0537
0537 0288
051tl 0356
0463
0474
0486
DIJ.TE
3lOCT69
EC "iO. 816529
220EC69 816547
20JAN70 816548
02MAR70 816631
11MAV70 816671
01NOV70 816764
04JUN71 818968
PROG ID PAGE
OE05-5
0
(
·~ ~
·-
' 1';'~
0
;.:-'.
IBM MAINTENANCE DIAGNOSTIC PP.OGRAM E055 OATA ~ND IMAGE ADDRESS REG. TEST
PART NO. PAGE
2589959 6A
· j.
SYMBOL T LEN VALUE OEFN
IT SOK A 004
ITUU A 003
ITZRO A 004
IWUN A 003
LAS AV A 002
LOCMO A 004
LEVEN A 002
LINK c: 001
LOFOLG C 001
LOKON A 003
LORIS A 001+
LOUNT A 004
LPD c 001
LPDAOR A 002
LPDAR c 001 LPI c: 001
LPIADR A 002
LPIAR c 001
LPOUNT A 001
LUKPSE A 003
MAKAOV A 015
MALS A 004
MEXI T A 004
MHAL T A 003
MOVHAf'i A 004
MRAL T A OC!\
MlOAR A 002
MllOK A 003
MlXT A 003
M2DAR A 002
M2XT A 003
M3DAR A 002
M3XT A 003
M4Dl:l A 004
M4PSSl A 001
NAGOR A 004
NAS
A 004
NEPSS A 004
NEVES A 004
NIPS A 004
NOMOD A 004
NOTRIT A 006
NOVET A 003
NRDY c 001
NRTI 0 A 004
NUS AM A 004
OKVDOK A 004
ONE
A 002
13B9 l4CB 1350 14C8 1582 l43A 1484 0216 OOEO 0EA9 OF5F 0A5C 087C l4BO OOE6 0800 14BB OOE4 1563 OE5F 1580 0081 OFC5 1028 OA99 0A3A 1587 OFOF OF39 1589 OEEB 1588
OE89 OF9B 14CC 1399
lOEO 0['17? OAOf OF79 l07F 1453 OEB3 OOEO OA22 13C2 1002
14AD
0477 0576 0466.
0575 0616 0529 0567 0638 0635 0243 0297
0058 0633
0571 0637 0632 O!i70
0636 0617
0219 0605 0169 0328 0374 0073 0046 0619 0275 0287 0620 0262 0621 0231 03lt;l
0577 0481 0431 0154 0093 0309 0400 0535 0246 0642 0037 0492
0358 0563
OPl
A 004
POOLMH A 003
PRINT c 001
PSlUCS A 001
PS148 A 001
RETIO A 004
ROGAN A 004
RTNl A 001
RTN2 A 001
SAML IM A 001
SAN
A 004
SA'JfUU A 002
SAVWUN A 002
SAWRVT A 004
SBYTEO c 001
S BYT El c 001
SBYTE4 c 001
OE3B lOEC 021A 1513 14Fl 1013
1368
OAOO
IJFC9 1580 0843 l4A8 14A6 OAFF 0208 0209 020C
0209 0434 0640 0593 0588 0365 0469 0026 0337 0615 0128 0557 0556 0108 0645 0646 0647
CROSS-REFERENCE
REFERENCES
0471 0409· 0418 0460 0490 0410· 0411 0167· 0170 0519· 0525 0480 02c:n '3501 0058· 0387· 0245 0294 0048
0428* 0448* 0060 0388
0060· 03ea·
0311 0311 0312 0312 0324 0324 0325 0325 0548 0548 0549 0549 0059 0427 0059· 0427· 0061* 0295· 0389· 0499· 0216 0044 0307 0372 0173 0319· 0368 0068 0040 0273 0272 0054* 0241 0053· u211 0052· 0083 0203 0398 0152 0485 0433 0185 0082 0089 0309 0397 0405 0533 0248 0037 0365 0524 0031 0465 0476 0488 0348 0155 0159 0172 0190 0225 02'56 0281 0295 0313 0326 0461 0468 0472 0484 0495 0499 0507 0518 0520 0543 0550 0207 0429 0032 0041 0304 0351 0360 0369 0454 0450 0359 0473 0018 0028 0153* 0159* 0164· 0168* 0172· 0183* 0457* 0461· 0467· 0472* 0479· 0484* 0130 0523* 0553 0522* 0552 0098 0101 0030 0039 0302 034<> 0358 0367 0067 0391 0532 0074 0081 0088 0097 0201 0209 0293 0341
DATE
310CT69
EC NO. 816529
220EC69 816547
20JAN70 816548
02MAR70 816631
l 1MAY70
816671
01NOV70 816764
04JUN7l 818968
PROG IO PAGE
Of05-5
6A
,I r
.....
· · · · · · · · · · · · · · · · · · · · · . -· · · · · · · · · · · ·
I~ MAINTENANCE DIAGNOSric PROGRAM E055 DATA ANO IMAGE ADDRESS REG. TEST
PART NO. PAGE
2519959 7
CROSS-REFERENCE
SYMBOL T LEN YALUE OEFN
REFERENCES
soc
A 0&6
SECI T A 004
SENAT A 004
SEXIT A 004
S ICEM A 006
SIOST A 004
SKUCS A 004
SMAO A 004
SPUOT
sswos
SS\.108
SS~20
A 003
c 001 c 001 c 001
STAT 2 A 002
STAT3 A 002
STAT6 A 002
STRIT A 004
STUU A 003
SUBOt< A 004
SUSY A 004
SwUN A 003
TAW
A 006
TECHB I A 004
TEST c 001
THCHEK A 004
TIOCtH< A 004
lIPS A 004
TITLl A 018
TITL2 A 019
TMMlE ~. OC4
TM..,2 t A 004
TMM3E A C04
TNUOL A 004
TOGGON A 004
TO LONG A 004
TREE A 002
TRPAe A 004
HiAI T A 004
TWLV E A 002
TWO
A 002
TYRWAS A 004
l'CSFLG c 001
UPTIW A 004
UTUTDA A 005
UUTDA A 005
Ul/PiXYZ A 001
WAT
A ON:
WHAR T(I A 004
WT
A 006
XIO
A 004
XI OE XT A 004
XRl
c 001
13ED
1071 OFEO OF97 13DB OAC3 133e 0070 OAOC 0004 0080 0080 15A9 l5AB
l 5AD OE12 14C5 OOE2 OF46 l4C2 OHl
OFE't 0212 0081
1't29 DA3D 1546 1559
one
OEEE OE8C 1050
OA72 1403 l'tB 1 lOlA
OEF8 1466 l.t.,AF
1094 0878
1340
lOBC
lOA4
OAOJ OFAF OE37 1483 1411 147F
0001
0506
0396 0346 0315 0499 0085 Oft56 &156 0020 06-t9 0650 0652 0611 0612
0613 0198 0574 01e2 0291 0573 0311 0347 0639
0157 0524 0047 0601 0602 028B 0263 0232 0387
0063 0511 0565 0367 0266 0568
0~'64
0409 0634
0458 0419 0413 0003 0324 0208 C548 0518 0547 0630
XP2
c 001 0002 0631
YALE D A 004 ZERO A 002 ZPRUNV A 004
OEOO
14AB
CAEE
0190 0562 0100
051:. 0500 0344
0301* 0494
0079 0092 0453 0160 0047 0018 0199 0375 0030 0039 0'302 0349 0067 0391 0!532 0074 0081 0088 0097 0085* 0086 0128· 0129 0346* 0347 0451· 0452 0099* 0100 0189 0:'37 ')268 0108* 0117 0178
0280 C285 0287 0291 0109* 0110 0314 0345· 0292 0491 01c;4· 0155· 0165 0528 0038 0035
0363 0283 0258 0227 0366 0380 0104 0163 0176 0181 050!1
0114 0120 0415 0421 0365 0255 0260 0262 0266 0182 0112 0118 0156 0169 0399 0402 03ft3
0462 0423 Oltl 7
0396 0358 0367 0201 0209 0205· 0206
0234 0265 0413 0419
0293 0341 0320* 0321
0290 O't5B 3469
0400· 0401 0481
0431* 0'~32
0327
0198· 020't 0215
0551
0076 0090 0211 0394 0403 051t2
011 O* 0137 02?0 0251
0286
0436 0111* 0177
0420
0523 0187
0112 Ol3B 0222
0253 0411· Olt38 0113 0186*
0421* 0540*
0113 0139 0223
0254 0413 0450* 0114* 0190*
0430* 0543*
0115 0152* 0228
0259 0414 0454· 0119 0216* 0456* 0553*
0117· 0157 0230
0261 0416 0470
0120* 0221 0458*
0118 0177 0236* 0267* 0418* 0480*
0127* 0249· 0459
0119 0182* 0241* 0273* 0419 0482 01 51 · 0252 0469·
0121
018~
0243 0275 0420 0489 0 l ~ 6* 0272* 0470
0126* 0188* 0244 0276 0422 0522 0157 0277 0481*
0131 0198 0246 0278 0429* 0552· 0167 041"* 0482
0132 0217· 0247 02 79 0434
0169* 0414 0492·
0133 0219 0250 0284
0435
0170 0415· 0495*
0062 0186 0492 0540
0013* 0080*
TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY =
0
DATE
310CT69
EC NO. 1:11652<;
220EC6q 816547
20JAN70 816548
02MAR70 816631
llMAno 816671
01NOV70 816764
04JUN71 818968
PROG IO PAGE
OE05-5 7
llHoll Ml INTHJA~C! DIAGNOSTIC PROGUM
E055
DATA AND IMAGE ADDRESS REG. TEST OBJECT CA~D llSTtHG
PART NO., PlGE
2589959 7A
THE CHARACTER INDICATES A BLANK COLUMN ANO THE CHARACTERS C E H INOIC~TE NUMERIC SHIFT. rL l THROUGH 16 CL 17 THROUGH 32 CL 33 THPOUGH ~8 CL ~9 THROUGH 64 CL 65 THROUGH 80 CL 61 THROUGH 96
T+-Y:8EM & B-4
T+-Z 5-. <8H Y<c Z
N_;A& 0 CaUSA H
.
QIA*l*COECR4@B 7
·- H·l HOH*BFUHKEMS
XIHO+ST2AC>O.i-ta
T+-00+0-1 CL 'tHC D* #B 91+H BB-,tt&DCY HE5U:8 ··+--+Z3Y
- T+-,,IGOHJ3S -3 ?.DBI /0=$@Y·-<+H NOL-AEEX20AM8- H
T+-lWEE4' AO_@YD
- ~·
T+-_IL- EH=* -
-HOH*BH>AOOH*-H*TO
1-HMlP 5> <BBB2-.
E<f"IGlF JLB1>-:-0M'.l%H B &_IO-H<LTCSEEU
TA-_ YDG- 0( &Of.
· 0 .............. 0
·- - <G-~SX2/1&8A H HCZ HOH*BFUDSEQ7
:<; M?3~UE.%19/K
.
!i'.:V4ahJ. 7+H Bf. I H
&A~BGE\GS CUOB-3
·-
-
HOCilBGC6<8- t-i<@I
886_+ H,908
...............·
. -
AC'B& llS -.HGBO
-8-. ILOE0550001
HB5U LK E0550002
2U.\H *18E0550003
·- N<+Q fKCE0550004
Af<M #C*E0550005
. -
*+H =t:-E0550006
4&YE0550007
T+-6/0-H.EtHAE<O
.
T+-7·CQI --57. O
iHJOOI (-08 CQ< Nt- ~BAOOf-HM,24
M,LQBEH·_ ·vo
lE$H CIY&MCO NiAK
G S.-··SGSXH~BAO
- ..
GBXHI & (dYOHOH*
Ol&Y &S*E0550008 BH> #-QE0550009
T+-8P·@BGBXH6 JK 61 ~NIG5" < ACP< T+-9K8-32U @8- H <@I YOH* 1WdJBGC T*
5 /K,O;Q+ <HACVl. 08/0Z+ ONO-.Ht.l<B
2/11-W> /K._0 Dl' *B
·- G 8- H<CJ/ HOH*
G S.-E<BGC-.D~ &8 MD; H OH*+.< BGC6 I
:+L $C*E0550Cl0 108 \II: E05500ll
T+-:((8H8CV"B JC
@-· ·+o -.QH ·vovc- NOJr(_C& NOJK?c"YO <~Q8 @YD&,RY
HOH* =24£0550012
T+-#H S.-J·BGEX.
. -
T+-·C GCW G6E IH
T+-@=O-HIC@HAE$$
A9-:00-Q+YtBGC/.
38-E08-E8 -C-U A
.
WC~! /OHK+H BCIH
B J '19 iii=HA*+H ; D 09-E'-. G2-K~+ AO
OJ ·!JP[ S G\/ <e
) !!-!GB~% S.-l<B
-
"EH4( AO"E ·· 2-~l
. .
/OHO( - I wT-0 -T
GBX.A9-#d0-DIA<B
'S G2-JA'V G2AO,
-· 2U T /OHE L&NT~A
81 :ZHE0550013 GC/~ OEHE05500l4
/OH f.DHE0550015
"B H 4~B H i
« -l?CCSEEUB JC ZO! IX302EEiil"O- B 'Z E0550017
T+-"?CltH - CO N, l K_OHf. ! , iilBG
B l '""+H BC< f.[)=M
TEE.:t8AAU,@/ P+ f. B8iH 5B<E055001S
T+/ OU , /OHEOJY NZ= +OH*BH> ++ t T+/AV@GOC+B HC I H - &C30PD34~AJ!SI
B~IH&R:ec /Z831N
LU?HGCC0/034~'.'31\I
R8 Cl~~ E@Y*6+ & SI 4LuTG-~.~19/K
.
' I V~t3lHDIQ8- H
(8+D 6SDE0550C'l9 IiZ 98QE0!>5002G
T+/B-ACYHDf$ /l& JB- 9( Y<@Z GOH· IW"~GfLCSE~ua JO l~I HJH·~O;H OH· &~33~E<l~DALHO-D M2<H R,Hl0550C21
DATE
310CT6C
EC ~O. 81652CJ
22DEC69
F 1t,54 7
2 OJAN70
el654e
02 MAR70 8lt>631
lll-IAY7J
Ylc67i
(·1MJV70
.s l t. 7 t ..
:: .. JUN71 Rl8'k8
PR Ol~ ID ":i. ::.:E
Of. JS-5 H,
'· 11
IBM MAINTENANCE DIAGNOSTIC PROGRAM
E055 DATA AND IMAGE ADDRESS REG. TEST
PART NO. 2589959
PAGE
6
OBJECT CARO LISTING
CL 1 THROUGH 16 CL l7 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96
.. -
. . T+/CS /C"L- ·· EH= * - (-HMiP7= <B BOHLB JL .L- EH=
80.0l9AK#f liH~·H AO+O N& E0550022
................ ...............
( 111
THAC@O-HJ#CCSEEU
.
T+/ILID H-.30YOfT
BDAOYOI &8GCSDGB JLO<+<ND3-DEE?
AC'B& 11 S IBGD& 20 TB JMKIE-L><H
BDtva AOO(-HM,#4
. -
B ?HAOOGI E$ H,·
19UE0550023 A04 J-8E0550024
'
... -
T+/++OH*BH>A6iilY 1 VI L*LO ES + A( 1EH46 /K?S& fH AOOa ES H·* A06? /OHS8G-.2/3U· Bl ( lOHH PR-OE0550025
t~
.
T+/l106Da A00(-0 M_CQSEH'_ D ilYD LCO NZAK_O DLW*B G·s.-;fHGB74 < AD57 /OHKt&HMDiilG W0d4 Sl E0550026
(
. - ..
.
AOiS /OHS8AOf AO 3EH7 JAlOH*BET& HEA < /O=f.UI /0 =EH72-&-.A9/l3aY·
r
. .
T+/&· S.-D·BGD=7 10 (--M,L&HEO< 6BAK_( -HZC&AEHC 4·/KYO; ·M<IHGBtB G S.-O<BGEBX Ill ZC 0 iS-E0550028
r
- ..
T+/J:EEi CZHEEY 8- HIGIZ D+-H0-0 . AE!MMO"< <GWEFS /OHSBAQ5 /K,O;Q ~*-.HGCTQBEH7 JJ OOH* 2 &E0550029
T+/K5 s.-Ec2 · eeai C"0- B (+0- B
- . I AO?EH7 · /Al<CC &D MZTHBEHT /0
··- A H 0- 80 EH<E0550030
T+/LOC & - BGl O·GCWFSCW GCl'D.C U"X=.V:+?>~-.L7=? 7BH+ I w: ;3?@?P 8= 11 #BH ;LX:>70ii1"$9"l "BGiil S2ME055003 l
. '·'
-· T+/M, -YKFSHD -Y KFSHECJMllK4ECJH H&-tFB Y -&FB
v·· OHHD/YSHTH: wz KAt4NGKM_CL5ELNM HOA- #YtE0550032
.
* T+/NWHB-O+OAHME- Cl<GTOHCAl<LRK 1 X El4?Tl:.T2llA1CilN O*LD6M?Rl*I .BO>P s BI -.R l; · S&<l H1 I K&(U ~&OE0550033
:
T+/0/1;.E86?5@?C 3&CLUB>« oiN 6*P Al+/,8@TE5MCR1;. E84CHOllT2llAl~N MDCC 2<G I 5MC05UC N5>< J2&E0550034
...........·.... ................ ................ ........·.....·. ..... -
TA10Z&<GG6*PE
600E0550035
.......................·.·..................·.··.··.·.··................··.
T A.102
&l&E0550036
·························· 5
TAJO#
················································
;/~E0550037
E"". *E7·=-.DC"PH$ ="7MC:.f I
c
ASC R A SO Q
02350317710 6057l~#*E0550038
.J
J
----------------------------------------------- LAST PAGE ------------------------------~-----------------
DATE. 310C T69 EC Ni:1;-. 816529
22DEC69 816547
20JAN70 816548
02MAR70 816631
llMAY70
816671
01NOV70
816764
04JUN71 818969
PROG IO PAGE
OEOS-5 8
(-.
'! t
· · · · · ·· · · · · · · · · · · · · · · · · · · · · · · · · · · · ·
·
·
' .
·
l.
···-· · · · · ·· · · · · · · -· 0
0
IBM MAINTENANCE DIAGNOSTIC PROGRAM E063 5ZC3 CHAIN EMITTER TIMING JEST
PART Ht.I. 2589961
PAGE
1
ERR LOC OBJECT CODE
AOOR STMT ~OURCE STATEMENT
0
OAOO
2 3 E06
DEtt< It START x·Ao~·
JO
0
4
5 6 7
··· ·
·
·
·
·
·
·
·········
SY5TEM/3
·····
52C3
*····
CHAIN
········
EMITTER
·······
TIMING
·····
TlST
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
···
· *
98 ** ****SE*C*Tl·'JN···6··-··R·O··U·T.I,N.E··l································$It··········. ···*·
OAOO E063
OA02 00
c
OA03 01
OA04 0000
OA06 OAOO
c
OA08 OC99 OAOA E05000
c
OAOl
0Au2
OA03 OA05 OAC7
.OA09 OAOt
10 ********************·················*·································
11
DC XL2 1 E063'
PROG IDENTIFICATICN
12
OC XLl·Q·
FLAGS
13
DC Xll 1 1'
CURRENT ~OUTINE NUMB~R
14
DC
Xl2 1 0 1
RESER~ED
15
DC AL2(RTN1)
ADDRESS C.F FIRST ROIJTINE P~HlX
l~
DC Al2(ERT1)
~DORESS OF ERROR RECORDING TABLE
17 SPUDT DC XL3 1 EC5000'
UNIT DEFINITICN TASLE - PRINTER
1189
*·
*
*
*
********
*
*
*
*
*
********·
··
···
·
··
·
···
···
···
···
·
··
·
···
·
.
.··
·
··
··
*
··
··
·· ·
2C- *
ROUTINE l - CHAIN EMITTER TIMING TEST
*
21 ·
·
c
OAOD 01
OAOO
22L~
***********************************************************************
RTNl DC XLl'l'
RCUTINE NUMBER
OAOE 00
OAOE 24
DC XL1'0 1
FLAGS
OAOF FFFF
OAlO 2~
DC XL2'ffFF 1
LAST ROUTINE
2t .......................................................................
OAll 38 04 0208
27
TB~ SBYTEC1SS~OS
PRl~T CN MFCU
c
OAl!'i F2 10 OA OA18 CO 87 021A
2E
JT NRTIO
2S
B
PRINT
PRINT TITLE
OAlC 42
OAlC 3C
DC XLl·42'
OAlD 19
CAlD 3l
DC
IL1 1 251
OAlE OC76
OAlF 3'
DC AL2CTITLll
·tr ,
OA20 EOOO
OA2l 3~
DC XL2'E000 1
c
OA22 Cl EO OA29 OA26 f2 87 14
3~ NRTIO TIO BAPRT,NRDY
3~
J
NOOGOT
PRINTER RcAOV
OA29 38 04 0208
c
OA2D f2 90 OA OA30 CO 87 021A
OA31t 41
OA34
3t BAPRT TBN
37
JF
38
8
39
DC
SBYTEO,SS-05 MRALT PRINT
XL1 1 4l 1
PRINT JN MFCU SW. ON PRINT MAKE PRINTER READY
0A35 l~
OA35 40
CC IL1 1 31'
OA36 OC95
OA37 41
DC AL21MAKADYt
OA38 EOEl
CA39 42
DC
Xl2 1 EOE1 1
OA3A FG 7C o-l
·~-
OA30 3C OA Ot9A OA41 38 20 HOC
OA45 F2 90 lA
43 ~RALT HPL
44 NOOGOT ~VI
45
TSN
46
JF
x·o3·,x·1c· LPOUNT,10 SPUOT,B'lCCOOO' SNOT RE
HALT El 100-200 LPH ?
OA48 3C lC OB2E
47
HVJ CEMAX+1,x·1c·
OA4C 3C 19 OAFA
4f
MVl ITNAM+l,X 1 l9 1
OA50 3C 19 0880
49
MVI MANTI+l,X 1 l9 1 I
OA51t 3C 08 OB6E
50
~VI HMMIN+1,x·oa·
OA58 3C OF 0875
51
~VI HMMAX+l,X'OF 1
OA5C oc cl oe.f.5 OC5A
52
MVC GOBAK+JC2J,AOFRTY
OA62 3C 04 :-if.AO
OA66 3C 00 '11:9e
OA6A F2 87 C:t.
OA60 OE 00 OCAO OC46
CA73 OC 01 OC4c OC52
OA79 C2 01 OC.ftE
.~.
OA7D C2 02 OEC~
tt,,
OA81 9C 03 00 00
c
OA85 4E 01 CO OC40 OA8A 3~ 02 OC44
OA8E 40 01 00 OC50
c
OA93 CO 01 OA81 OA97 OC 03 1FF3 OC56
C'A90 CO 87 OCll
* * ;~ *******************¥************~~*********************················
54
G~NERATE THE SENSE INST~UCIICNS
55 **********************~·~~***************************~*********~*******
56 SNOTRE MVl t'SECS,X 1 04'
SET 4 MSEC DELAY lSf TIME THRU
57
MVI TOUNT18
58
J
TOGOON
59 SKGOON ALC
60 TOGOON MVC
61
LA
62
LA
63 ADTUU HVC
64
ALC
65
A
66
CLC
67
BNE
.MSECS!ll,NlhE SfUUCZ)rSAMAOR STUU,XRl
;eN IN+3, XR2 .1{4 1 XR'2J,Q( 1 XR1J tH2,":<Rl 1 ,.0NE ;i.JUF 1 XR"
0C21XRll1lASAOR ACTUU
ADD 9 TO MSEC DELAY
LOAD STARTING SENSE ADDR. LOAD S(NSE lNSTR.ADDR. LOAD GEk.FIELD ADDR. PUT SENSE INSTR. JN GEN.FIELD ADD l TO SENSE INSTR. ADD~. UP GEN.FIELD ACOR.BY It 1100 SENSE INSTR.GENERATE07
68
69.
MVC SAMRETC4J,BRUN'
8
BRDllT
.
PUT U UNC BR
DATE 25AUG69 EC NCi. 816485
e
310CT64i 816529
11MAY70
816671·
-01NOV70 81676~
19FEB71 818912
PROG ID PAGE
OEOo-3 l
· · · ·
·-·
.,.,.
· ·
· IBM MAINTENANCE DIAGNCSTIC PROGRAM
0
..,,.., ~o. 2589961
PAGE
IA
E063 52C3 CHAIN EMITTER Tl~ING TEST 0
EkR LOC OBJECT CODE
ADDR STMl SOURCE STAT~MENT
0
0
0
0
0
e
C·
0
0
0
0
0
I1;C~":
lo
; c
I1--Q.
II·" : I
I U
c
I~
1I 0
l 10
I
j ··'?.
il1f P.r
c:
OAAl 30 E2 OC97 OAA5 38 01 OC9e. OAA9 CO 90 OAA! OAAO OC 0() OC.A2 OCAO OA63 vC FF 0800 0800 OAB9 OD 38 0800 0800 OAcF OF 00 OCA2 OC'tO OAC5 CO 84 OA83
OAC9 co 87 o~co
OACD lC 30 130C
OAul C2 01 OECCI OAD5 1f 20 00 OADe f; 90 08 OADO 3~ 01 OC40 OAOF Ct.: 81 OA05 f'AC3 H 01 Ot40 OAE7 7S 20 00 O"EA CO 90 OAE3 CAEE 78 Cl 00 / OAFl CO 10 OA05 OAFS 3C O:> OtA3 OAF9 3C 28 0899 OAFD 36 01 OC40 0801 7D 30 02 0804 F2 81 9F CBOl OE 00 OCA3 CC4~ CBOD 78 20 00 0810 F2 90 04 0813 CO 87 OAFO OBll 36 01 OC40 OSlB 70 30 02 l'8 lE F2 ~1 85 0821 OE 00 OCA3 OC40 0827 79 20 00 CEl2A F2 90 OB 0820 3D 20 OCA3 0831 F2 84 bC
0834 cc 87 0817
CB38 78 Cl 01 0638 F2 90 SA OB3E ?.4 01 OC/.6
0842 36 Cl CC4A 0846 36 01 OC40 OB4A 79 20 00
0840 co 90 0846
OB51 CC 87 OBBE OB55 CC 87 OBBE OB:59 CC 87 OBBE 0850 OC 01 OC'9F OC9D 0063 CO 87 OBBc OB67 OF 01 OC90 OC 9F 0860 30 10 OC90 0871 F2 82 07 0874 30 18 OC90 0878 f2 04 (19
OB7b co 87 0222
OB7F EC82 OB81 F2 87 2C 0884 CC 87 OB8t::.
ORSO
70 71 72
. .·
. .
. ..
. .
. .
.... F.I.N.O.
..... .H.C.M.E.
..L..~..T..C..H..1..T..~..E..N..
....... .S.A.M.P.L.E.
... .A.T.
.. .9.
... ..1.2.
..... .U.S.E.C.
..F..O..~..
... .1.0.
..... .M..SE.C.
. .
. .
. .
. .
. .
. .
. ~······ .......·.
73 SNIK SNS STAT2.X 1 E2 1
GRAB THE TIMINGS
74
TBN STAT2-11B'l'
HG~E LATCH ON1
75
BF
SNIK
76 77 TNA
MVC HCMCNTtl),MSECS tLC LP1(2561.LPI
SET UP DELAY CliUNT l MSEC
78
CLC LPIC601,LPI
DELAY
7c;
SLC HCMCNTtll1CNE
SC
BH TWA
OECR.OELAY COUNT
81
8
SENIN
GO SAMPLE 1100 BYTES AT 9.12
82 ~ETURN MVJ HCMIN+l,X 1 30 1
WIPE HJ AOOR. BYTE
83
Bit
·***··t·H~E·C·K··T·l·~·I·N·G··B·E·T·W·E·E·N··C·H·A··IN··E·M··lT·T·E·R··P·U··L·SE·S···········*··········. .·*·
85 86
··$·····L·A·····StEN··IN·,·X·R·l··············L~C·A·O··A··D·D·R·. ·O·F···lS·T··S·A·M·~PL·E·········..··
87 FIBIOF TBN t&,~P.lt18'l00000 1
FIND CHAIN EMITTER OFF
ee
JF
ErCIF
9c;
A
ONE,XRl
9C
B
flBIOF
91 ENIF A
GNE 1 XRl
92
TBN 0(,)Rlt,8·100000 1
LOOK FOR RISE CF CHAIN EMIT.
93
eF EN If
94'
TBN OC,XRll1B'l'
HOME LATCH ON
95
BT
96 NEXE~ MVI
9·1 ITNAH ~VI
98 lt<GAN A
FIBil:f
SAMC~T.x·ro·
riTHl~+lw4C G~E,XRl
SKIP THIS EMITTER ZERO EMITTER SAMPLE CNTo SET MIN AT 365 USEC
'99
CLI 2C.>Rl),X 1 3C'
100
JE
TSAl
101
ALC
SA~CNTCll,ONE
102
TBN OC,>Rl.,8·100000 1
CHAIN EMITTER STILL UP
103
JF FIRISE
1 04
e·
Ll<GtN
105 FIRISE A
106
CLI
107
JE
CNE 1 XR1 2C1>Rl),x·30· lSAl
1100 SAMPLES CHECKEO?
108
AL( SAMCNTCl) 1 CNE
10")
TBF OC,XR1J,b 1 100000'
IF CHAIN EMIToOCWN1FIND NEXT RISE
110
.JF
ITSLi
111 CEMAX CLI SAMCNT~45
112
JH
TCll't.Y
113
f.
FIFISE
114 IT$UP T~~
115
Jf
116
Sl
1( 1 )Rl),8'1'
l'o.Tt-.CM St\1Fl 9 XR1
·IS THIS A HO~E PULSE
117 118
·*·····C·H·E·C~K··P·U·L·S·..·: ·w··lO·T·H·S~·&··M·G·M··': ·P·U·L·S·E··T·I·M·E··············**··············*
. ..·· 11<}
120
GCB*A*K***·A······S·JS·~F·R·,X··R*l···········~··S·U·B··T·R·.1·2·0·*O·R··1·2··F·R·G·M-·H·O·M··E··A·D·D·R·o·
121 G8RK A
ONE,XRl
122
TBF
cc,x~l),8 1 1G0000 1
FIND GAP
.1.23
BF
GCRI<
i24
8
LULSE
125
8
LULSE
126
8
LULSE
GC CHECK l42~t EMITTER WIDTH GCi CHECK l43RC EMITTER WIDTH GC CHECK 144Th EMITTER WIDTH
127
MVC
I ~cASTt2>1LEEADR
SAVE 144TH ADOR.
128
B
l ULSE
GO CHECK 145TH EMITTER WIDTH
12<}
'SL: LEEAOR(21,LEEAST
DIFF- 1 TWEEN l44TH AND 145TH
130 HMH N CU
LEE~OR,16
SAMPLE Dlrf .LESS T~A~ 16 OR 8
131
.Jl HOMER
132 H~!'AX CU
133
Jt.H
LEEjQ~,27
SEEliiUN
SAMPLE OIFF.MCRE THAh 27 OR 15
134 HOMER B
135
DC
HALT Xl2 1 EOBZ 1
Ht~E TIME ERROR HJLT
l~t
J
GNlP
137 SFEWUN B
LUlSE
DATE 25AUG69 EC NO. 816485
310CT6Cj 816529
11MAY70 8loH1
01NGV70 . l9FE871
816764
818912
PROG ID
FAGE
0£06-3
u
0
·
··~
c IBM MAINTENANCE DIAGNOSTIC PROGRAM
c E063 52C3 CHAIN EMITTER TIMING TEST
ERR LOC OBJECT CODE
AOOR STMT SOURCE STATEMENT
PART NO.
PAGE
2589961
"
(
0088 CC 87 OBBE
138
B
LULSE
OBBC 3C 27 0099 0090 35 0.1 OCA6
139 MANTI MVI NTHOM+l,39
140
L
SA\IRl,>CIU
~El MIN AT 356 FOR LAST EMIT.
0694 CO 87 OAfO
141
B
LKGAN
0698 30 O~ OCA3
142 NTHOM cu SAMCtn,·-·
c
OB9C CO 02 OAF 5 uBAO CO 87 0222
143
BNL NEXEM
144 TOMNY B
HALT
c.'13A4 E080
OBAS 145
DC Xl2'E080'
OBA6 OF 00 OC9B JC40
(
OBAC CO 01 OAuO
146 TSAL SLC TCUNTUJ ,ONE
147
BNZ SK GOON
OBBO OF 00 OC9A OC40
148 GNIP SLC L POU~H ( 1 J ,ONE
c
0686 CO Oi OA~2 OBBA CO 87 0216
149
BNZ SNOTRE
150
B
LINK
LESS THAN 365 USEC 'TWEEN EMITTER~ EMITTER TIMING WRONG HALT OCNE 8 TIMES DONE 10 TIMES
c
OBBE 34 08 0Cl6
OBC2 36 01 OC40
r'
OBC6 78 20- 00
OBC9 CO 90 OBC2
151 152
**********************************.************************************
~ CHECK PULSE WIDTH SUBROUTINE
153 154
*L*u*lS*E***S*T******PL**E*X*IT*+*3*,*A*R*R***********S*E*T**R*E*T*U*R*N**A*O·D..R.&·····················
155 LEEG A
ONE,XRl
156 157
TBN 0(,XRlJ,6'100000 1 BF LEEG
FIND LEAD EDGE CF E~ITTER
c
OBCD 34 01 0C90 OBOl 3C 00 OCA4
OC05 OE 00 OCA4 OC40
OBOS 3t> Ul OC40
OBDF 78 20 00
00[2 CO 10 OBOS
· · 11
c
OBE6 30 02 OCA4 OBEA F2 82 lC
OBED 3C 00 OCA4
158
ST
159
MVI
160 TREG AL(.
161
A
162
TBN
163
BT
164 PUHIN Cll
165
JL
166
MVI
lEEADR,XRl
SAMSAv,x·oo· SAMSAVClJ,GNE
ONE .,XRl 0(,XRlJ,8 1 1000001 TREG SAMSAV,2 WIDER SAMSAV.,X'00 1
SAVE LEADING EDGE ADDR& ZERO SAM.COUNT ACD 1 TO SAM.COUNT ADD l TO SAM.~OOR. FIND TRAIL EDGE CF EMITTER
P.ULSE WI Olli 2 OR MORE
OBFl OF 00 OCA4 OC40
(
OBF7 36 01 OC40
OBFB 30 01 OCA4
OBFF F2 84 l l
(
OC02 78 20 00
OC05 CO 90 OBFl
167 SNAP ALC
168
A
169 GAPWIO CLI
170
JH
171
TBN
172
BF
SAMSAVfll,ONE ONE.XRl SAMSAYwl
PLEXIT
oc,xR1J.e·1coooo· SNAP
GAP WIDTH OVER l ?
OC09 CO 87 0222 OCCO E081 OCOF CO 87 OBBO OC13 CC 87 0000
0
OC'.>E
173 WIDER B
174
DC
175
8
176 Plt:XIT B
177
HALT
Xl2 1 E0~1 1
GNIP
WRONG PULSE WIOT~ ERROR HALT RETURN
117798 *******C*H*E*C*K**FO*R**B*U*S*Y**&*D*E*L*AY**S*U*B*R*O*U*T*IN*E*************········**···············
oc'17 34 08 OC3E
c
OClB OC 02 1FF6 OC5D oC21 OF 02 1FF6 OC40
OC27 F2 81 07
118810 *B~*O*U*T***S*T******B*S*E*X*IT**+3*,*A*R*R****·······L·O·A·D··R·E·T·U·R·N···A·O·O·R·. ···········~·······
182 SOC MVC BUSUB(3), BUSCTI
STORE DELAY
183 FLOOP SLC BUSUBC3) 1 0NE
184
JZ
TOLONG
c
OC2A Cl E6 OC21 OC2E F2 87 OA
185
TIO FLOOPwBUSY
186
J
BSEXIT
SlILL BUSY
OC31 CO 87 0222
c
OC35 ECll OC37 CO 87 otlB
187 TOLONG B
OC36 188
DC
189
B
HALT
Y.L2 1 E011 1 SOC
ERROR HALT
OC3B CC 87 0000
l~O BSEXll B
·-·
119912 ********C*O*N**ST*A*N*T*S·***************··················~······················
c
OC3F 0001 OC41 0003
OC43 0004
OC45 0009
OC47 FFB8
OC.49 FF88
c
OC4B 30c2 OC40 OECl
OC4F 1300
CC51 OECl
OC53 C087
OC55 OACD
OC40 CC42
OC44 OC46 OC48 OC4A OC4C
OC4E
OC50
OC52
OC54 OC56
119934 "O'N*E*****D*C*****I*l2**' l*'****************···············*************"'*********
195 TREE DC · IL2'3'
196 FOUR DC
IL2 1 4'
197 NINE DC IL2'9'
198 FRTY DC
199 SISFR DC
200
nc
IL2 1 -72' IL2'-120' XL2'30E2'
NEG.72 NEG 120
201 STUU DC 202 LASAOR DC
XL2 1 0EC1' Al2(HCMIN+21
SENSE INSTR.
~03 SAMAD~ DC
Al2CSENIN+ll
204
DC
205·8RUNC DC
XL2'C087' AL2CRETURNJ
UNCOND. BR
c
DATE 2 5AUG69 EC NO. 8l6Lt85
310CT69 816529
11MAY70 816671 .
01NOY10 816761t
19fEBll 818912
PROG ID PAGE
OE06-3
2
0
·
0
IBM MAINTENANCE DIAGNOSTIC PROGP.AM
0
EQ63 52C3 CHAIN EMITTER lIMING TEST
PART NDo 2589961
PAGE
2A
ERR LOC OBJECT CODE
AC·OR STMT SOURCE STATEMENT
OC57 OCFF OC59 OC48
OC58 206 OOFF DC OC SA 207 AOFRTY DC
XL2'00Ff' AL2lFRTVI
AFTER SAMPLE
OC5B 040000
0
OC.50 208 BUSCTI DC
XL3 140000'
220190 ·· ·······PR·I·N·T·O·U··T·S···········*·············~··-····························
c
OC5E C3C8ClC90540C504 OC76 221112 ·T·I·T·l·l ··D·C·. ····C··l2·5~'C··H·A·I·N··P··'I·T·T·E·R···T·IM··il·\G···T·E·S·T·· ···························
OC66 C9E3E3C50~40E3C9
212
OC6E 04C905C740E3C5E2
212
OC76 E3
212
OC77 D4~102C~40F5f 2FO OC86 213
oc
Cll6 1 ~AKE 5203 READY,·
r
OC7F F34009C5ClC4E86B
213
OC87 E3C8C5054009C5E2 OC95 214 HAKADY DC
Cll5 1 THEN RESET HALT'
OC8F C5E340C8Cl03E3
214
0
221156 *·······R·E·S·E·R·V·E·D··S·T·O·R~A·G·E································ ..··············*
OC96
oc·cn 221178 .S.T.~.TZ....D.S.....C.L.2....... ~·····················~··························
OC98
CC99 21S ERTl DS tl2
OC9A
OC9A 22C LPCUNT DS Cll
OC9B
('
OC9C
OC9B 221 TOUNT DS Cll OC90 222 LEEADR DS CL2
OC9E
/
CC9F 223 LEEAST OS Cll
.OCAO
OCAO 224 MSECS DS Cll
OCAl
OCA2 225 HO~~NT OS
CL2
OCA3
OCA3 226 SAMCNT DS CLl
OCA4
OCA4 227 SAHSAV OS Cll
(.
OCA5
CECO
CCA6 228 SAVRl OS Ct2
22s
ORG x·oecc·
OECO 230 SENIN EQU ·
Ol:CO
1308 231 HOHIN OS llCLlOO
SAMPLE AREA
130C
1C07 232 NJMOH OS 23C.L100
SAMPLE AREA
ltOB
lOrB 233 DIMES OS 5CllCO
SAMPLE AREA
lD:'=C
1FEF ~J4 SEHIO O~
5CL100
S'-MPLE AREA
lffO
lFFl 235 ZROFF OS CLZ
c
1FF2 lff4
1FF3 236 SAMRET OS CL2 lff6 237 BUSU8 OS CL3
238 239
·* ·
·
·
·-·
·········
EQUATES
·*
*
·
··
·
·
··
·
·
··
·
·
·
·
·
·
·
·
*
··
·
·
··
·
·
··
·
·
··
·
·
·*
*
··
·
·
··
·
·
· .
.··*·
0
0008
240 241
**
ARR
*
*
***
EQU
*
*x*·o*e*·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·······(·
A~DRESS
········
RECALL
·
··········
REGISTER
'
"
·
*
·
·
·
·
·
·
·
·
·
0001 242 XRl
EQU 1
rnoex REGISTER 1 -
__Q
0002 243 XR2 EQU 2
lNOEX REGISTER 2
0800 244 LPI EQU x·eoo·
LINE PRINTER IMAGE AR.EA
0216 245 LINK EQU X'216 1
El'\TRY TO DCP CH-IN ROUTINE
0
021A 246 PRINT EQU X'21A' .
ENTRY TO DCP FRINT ROUTINE
0222 247 HALT EQU x·22?·
ooeo 248 NRDY EQU X1 E0'
ENTRY TO Dtr ERRCR HALT ROUTINE
OOE6 249 BUSY EQU X'E6 1
PFllNTER BUSY CODE
2~0 · SENSE SWITCH EQUATES
0
* 0208 251 SBVTEO EQU X1 208 1
252
CONTROL PGH SENSE SWITCHE$
DCP SENSE StflTCH AREA
0004 253 SSW05 EQU X1 04 1
PRINT MESSAGES ON MFCU
FFFF 254
END
0
0
0
0
0
UATE 25AUG69 EC. NO. fl 16485
0
o·
310CT6.., 816529
llMAY70 816671
OlNOVlO 816764
l CJFEB71 818912
PROG ID PAGE
OE06-3 2A
· · ·-. · · · · · · · 0 --------.~----.-·--' ··--- .~.C---·-- ---.~--- :0. ---'.------·------··
·· · · · · · ·
·- .
...J
0
0
IBM MAINTENAt~E DIAGNOSTIC PROGRAM
c-- , f: E063
52C3 CHAIN EMITTER TIMING TEST
CROSS-REFERENCE
c SYMBOL T LEN VALUE DEFN
REFERENCES
(
r..
(
c c
(;
c
(
(
c
I l t. ..
( (
c
(
(
-·~-
r,_.
r·
"""
C·
\
c
(,'
ADFRTY A 002 OC.5A 0201
ADTUU A 004 OA81 0063
ARR
c 001 0008 0241
BA Pit'! A C04 OA29 0036
BROUT A 004 OC17 0181
BRUNC A 002 OC56 0205
BSEXIT A 004 OC38 0190
BUSCTI A 003 oc:;o C208
f!USUB A 003 iff6 0231
BUSY c 001 OCE6 0249
CE MAX A 004 0820 Olll
DIMES A 100 lDFB 0233-
ENIF A 004 OAE3 !1091
ERTl A ocz OC99 0219
E06
A 001 OAOO 0003
FIBIOF A 003 OAD5 OC87
FIRISE A 004 0817 0105
FLOCP A 006 OC21 0183
FOUR A OC2 OC44 0196
FRTY A 002 OC48 0198
GAPWIO A 004 OBFB 0169
GNIP A 006' 0880 0148
GClBAK A 004 0642 0120
GORK A 004 0846 0121
ttALT c 001 0222 0247
HH~AX A 004 0874 0132
HM:·HN A 004 0860 0130
HOMCNT A ·002 OtA2 0225
HOMER A 004 OB7B 0134
HOM IN .~ 100 13013 0231
IT NAM A 004 0AF9 0097
IT SUP A 003 0838 Olllt
LASAOR A 002 OC50 0202
LEEADR A 002 OC9D 0222
lHAST A 002 OC9F 0223
LEEG A 004 08C2 0155
LINK c 001 0216 0245
LKG/l.N A 004 OAFD 0098
LPI
c 001 ()800 0244
LP!:UN1' A 001 OC9A 0220
LULSE A OOlt OBBE 0154
fllAKADY A Cl5 OC95 0214
l'IANTI A 004 OBBC 0139
MRALT ,\ 003 OA3A 0043
MSECS A 001 OCAO 0224
NEXEM " 004 OAFS OC96 NI MOH A 100 lCO'l 0232
NINE A 002 OC46 01cn
NOOGOT A 0(16! OA3D 0044
NROV c 001 OOEO 0248
NRTIO A 004 OA22 0034
NT HOM A 004 0898 0142
CN.E
A 002 OC40 0194
DOFF A OC2
PLEXIT A 004
PRINT c 001
PUMlN A 004 RETURN A 004 RTNl A 001 SAKAOR A 002 SAMCNT A 001 SAMRET A 002
SAMSAY A 001
SAVRl A 002 SBYTEO C COl
CC58 OC.13
02lA
O~E6
OACO OAOD OC52 OCA3 1FF3 OCA4 OCA6 0208
0206 0176 0246 0164 0082 0023 0203 0226
0236 0227 0228 0251
0052 0067 0151t 0181 0034
006~
0068 0181· 0186 0182 0182· 0183· 0185 OO't7·
0088 0093 0016
0090 0103 0185 0065 0207
0095 0113
0136 Ol75 0052·
0123 0134 0144 0173 0051· 0050· 0076· 0079* 0131 0082· 0202 0048· 0110 0066 0127 0129* 0130 0127· 0129 0157
OlSQ
OlO't 0141 0077 0077 0078 00"4· 0148· 0124 0125 0126 0041
0049* 0037 0056· 0059· 0076 0143
0187
0132 0078 0128
0156· 0137 0138
0059 0035
(l('-::\4
0028 0097'11< 0115 0064 0079 0160 OlH
0139· 0089 0091 0167 0168
0098 0183
0101
0105
0154· Cl70 0029 0038
0205 0015
0060 OC96· 0101· 01Cl8· 0111 0142 0068·
0159· 0160· 0164 0166· 0161· 01690116· 0-140 0027 0036
C'' one
25AUG69
c EC NO. 816485
310CT69 816529
llMAY70' tll667l
OlNOVlO 81676'9
19t=EBll 818912
010'3
0121
PART NO. PAGE
0146 0148 0155 PROG JD PAGE
OE06-3 3
... IBM MAINT~NANCE DIAGNOSTlt PROGRAM
0
E063 S2C3 CHAIN EMITTER TIMING TEST
0
CROSS-REFERENCE
PART NO. 2589961
PAGE
3A
0 SYMBOL T LEN VALUE DEFN REFERENCES
soc A Cl06 OtlB 0182 0189
0 SEEWUN A 004 0884 0137
0133
SEMID A 100 lFEF 0234
SENIN A OCl OECO 0230
0062 0081 0086 0203
0 SJSFR A 002 OC4A 0199
0120
SKGOON A 006 OA60 0059 Ollt7
c SNAP A 006 OBfl 0167 SNIK A 004 IJAAl 0073
0172 OJ75
SNOT .~E A 004 OA62 0056
0046 01~9
c
SPUDT A 003 OAOC 0017
sswo~ c 001 ,0004 0253
0045
oon 0036
STAT2 A 0(12 OC97 C218
0073· OOllt
c
STUU A 002 OC4E 0201 Tllll A 025 OC76 0212
0060· 0061 . 0032
TOGOON A 006 OA73 0060 .P056
~
c- TOLONG A 004 Ot3l 0187 TOM NY A 004 OBAO 0144
0184 0112
,I
TOUNT A 001 OC98 0221
0057· 0146·
TREE A 002 OC42 0195
(: TREG A 006 0805 0160
0163
TSAL A 006 08A6 .P'146
OlCO 0101
TWA
A 0(\6 OAB3 .:>077
0080
·-(:
...
WluER XRl
A 004
c 001
OC09 .0173 0001 0242
f ... '
0165 0061· 0063 0064 0066 0086* 0087 0089· 0091· 0092 0094 0098· 0099 ()102 0105· 01('6 0109 0114 Cll6 0120· 0121· Ci1Z2 0140· 0155· 0156
0
XR2
c 001 0002 0243
0158 0161· 0162 0168· 0111 0062· 0063 0065~
c ZROFF A 002 lFFl 0235
TOTAL STATEMENTS FLAGGED IN lrlJS AS~E"BLY ·
0
'rt·
0 0 0
.....Q.
"
0
(l
0
0
0
DATE 25AUG69
Et NO. 816~85
0
310tT69 816529
11MAY70 816671
OlNOVlO 816"164
19FEB71 818912
PROG JD
PAGE
OE06-3 3A
c
c
(;
. '"""'
I
IBM MAINf~N4NCE DIAGNOSTIC PROGRAM
PART NO.
P-'GE
· E063 52C3 CHAIN EMITTER TIMING TEST
· THE CHARACTER
OBJ~CT CARD LISTl~G
INDICATES A BLANK COLUMN ANO THf: CHARACTERS D E H INDICATE NUMERIC SHIFT.
251'9961 4
Cl 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 Cl 49 THROUGH 64 Cl 65 THROUGH 80 Cl 81 THROUGH 96
·
·
·- T+-Y:BF< & B-4 <W;.\& 0 ""iil8A H Hal/ HOH·BFUHRCGS
HC T+-Z5-. <iil8-2E+B
IH&FTO·B28iH' :IAU.TlOHB68CilCO_
- <G-BSX2/1&8A H
.
5C O.J~lEI &<YCO
·- HilZ HOt!·BFUO-.CIP
HCl?2/0Q+ 2-CDQ
-8-. 424E0630001
. .-
< r.o :o<E0630002
· · · · ·
-· T+-.,,CH l"O- B
T+-%WB>l8 &C D ,
.
T+-_/;K ~z .IK4 T+->*X*BGB#b i. &2
T+-?P -,SOH*BH>B
(+0- B
2SCDC
NI <Y30Y39U6 &l
<Y·HOS<BGBU8 &G ICIGl'D .. 2)@\'HGI J!g
.. -
CO <WOl 0 DH1&&
.. ·-
I 030H*+OCOODO?
~ B~Yf...C- <YOl
.
2UEY4 f.2Wl-D<KTQ <X-.HDB*BG s.--?H
CIY<&< AnW. /OH
B &# ;B @Z H(-0
-
;8 @l DOH*H"LO ACDA9t-. C U _FOH*
<&<Bb8_M6 &l ;B
01 0 <E0630004
. ACDA'< .2-Q~+ 2 TCO ilZDE0630005
.?XBGBU IO>=C D <XOO 1 8QE0630006
G.<eGBU '10>= IB* 0( -<ETQACDA8H C
.WU4ACH$. 10, · 1t
. - U ?SC D<XLO CH&
<Yi -.SHE06300t)7 + 0 &3&E0630008
T+-OKl 1 f-D<>+-l(OH* CtHCC8
- < &B 1 M1 -2U@YH
. .
< /"6CE41 /"6COC
.
.. -
*I <Z 8 CH&<&CQ
2-&-.A9-0/aY·HOH·
.
ACO ' &2U@Y&J;B BH> JOH*<FaBG
.. . .. . 01 .i·BG s.--·e
. & C & 8~=8 118-
. GB# &BQE0630009 . 08-8 :BHE0630010
· . .............................·.. T+-2HOJ<(CiG JO, TC 2NUN 6*PS1; I
( l@<K & <IHO*X
·········
2<GL80
N&<PM2;1TlJV S@X
················
M7.IPG&+IE8>IHOJ.
E&IP2@11 MPH+/
1 8i- t3HE06300U 5-&E0630012
·
c
Fl ASC R A SO Q
20280202710 2197li$UE0630013
·
·
·
·
·
.~.
---------------------------LAST PAGE-----------------------------
DATE
2 5AUG6q
Et ND. 816485
310CT6~
816529
llMAY70 816671
01NOV70 816764
19FEB71
81~912
PROG ID
PAGE
Of06-3
~
·
,. ·
·..··....······· · · ....... "
·.-~... ""
.. , "'-
--"""·~.-·
~·---
-· - ·---,..
''·-'
... ~~-.,
·~-,,--
----~
---
.J
_J
· · ·-· · · · · · · · · · · · ·
·
· · · · · · · · · · · · · · · ·i· ·· ··· · · · · · IB! ftlIITElllCE DllGIOSrIC PBOGRll
PlBT 10. 2589923i ~ IBft BlIITEtillCE DllGJOSTIC PROGR&ll
PIGI
1 ..
S/3 lllSTEB !'IllIIG lllLISIS PBOGl&ll (!UP)
S .1 3 llSTEI TIBIWG llAJ.ISIS PIOGDS (ST&P)
EBB LDC OBJECT CODE
lDDB STBT SOURCE StlTBllBlf
Ill LOC OBJECT CODI
ADDI STllT SODICB ST&TmlllT
2 ·
OBG1 S l'l' 1POO LlS'l' CBG:04:21 75
3
l>ECI ·
0100
l
·
SEQ 0
5 FY48 ST.ABT 1 1 1001
, ...,
ti
TBEP
f
7 ······································································· ,
8 ·
9 ·
!ISTEB TIBIIG lll11SIS PBOGllB
' 0100 rru
0101
10 · 11 ······································································· ,
12 ·
SECTION PREFACE
j
1143 ·······~DC······1L··2·1 ·P·P·4·8·1··············P·IO·G·B·A·B···ID···A·ll·D··B·E·Y·I·S·IO··ll··L·I·Y·!·L········ ~-
0102 00
0&.02 15
DC
IL1 1 00 1
SECTIOI PLlGS
OlOl 00
0103 16
DC IL1 1 00·
CDBBE'T BOCTIIE IDBBEI
0104 0000 0106 OlOD
0105 17 0107 18
DC IL2'0' DC lJ.2 (R1'01)
l»DEESS or PIIST BODTIIE
0108 0000 0101 1'01000
0109 19 OlOC 20
DC XL2'0' DC IL3 1 P01000'
OIIT DEPIII'l'IOI TlBLE
2221 ·*·······B·O·U·T·I·N·!··1··P·B·E·P·I·I···················$·····························1
23 ·······································································
OlOD 01 0101 00
OlOD 24 aro1 DC
O&.O! 25
DC
IL1 1 01' XL,. 001
BOOTIIE UD!BER
OlOP FPFP
0111 co 87 0222
0110 26
DC
21 iDCBTB B
IL2 1 PPPP1 HALT
0115 FlFP
0116 28
DC
1L2 1 PPFF 1
OA 17 lB PF 150
29 COW SBF FLlGS2,11 fP'
TOii OPP fLlGS 10 THRO 17
~l1B OC 01 1679 15£3
30
llVC LIIE1·2, BLAH 12)
OA.21 OC 01 16D1 15!3
31
inc LUE2·2,BLlllt (2)
0121 le oo 1cr2
32
BVI OBTAB·506,l 1 00 1
OA2B 3C f'P 1EEP
33
BVI lNDTlB·506,1 1 PP1
0121' 30 00 1615
34
SIS VOBK,1 1 00 1
BEAD TH! DlTl SIITCBIS
Olll .JD ll 161'
35
CLI iORK-1,1 1 11 1
*CK POR llD BBAICH IP LOOP 01
Ol37 P~ 81 86
36
JE CIPE
·BUllIIG TSE S.l!E TES? IS WAlrlD
OU.l 38 80 0233 0131 P2 10 08 0141 lD J.O 0232
0&45 co 01 0157
37
TBI UTAB·1.1·so·
38
JT sr.s
39
CLI ur lB,1 1 10.
40
BIB IEITI
·CK POI AID BBll~H IP IOT LO&DllG ·PIO! A DIBECT lCCESS DIVlC!
0149 30 00 0153
·1 SIS SIS Dl,0
OUD CO 87 0221
42
8
LOlD
0151 20
0151 ·l
DC
IL1 1 20 1
OlS2 0000
0153 44 Dl
DC
IL21 01
01511 P2 87 OS
OAS 7 CO 87 0221
Ol5S 10
o'sc oc sr 1rsr oeor
0158
·S
J
46 IEIT8 8
·7
DC
48 STOP 8YC
STOP LOAD
IL1 1 10 1 Bl>PD+95,2271(96)
·LOID BEST or BECO&DS
·Oii IT & Tllll
uA62 C;O 87 0211
49
8
PRilt
0166 01 Gi6l 60
0166 50 Olt17 51
~C
IL1 1 01 1
DC IL1 1 96'
0168 USP 0161 JD P1 1P01 0161 1'2 01 1P
0169
52
DC
U.2 (BDFD·9S)
53
CLI IDPI>+1,1 1 P1 1
·c:. roe llD BRllCH IP THIS IS IOT
54
JIE ClBD
PIBST COITEOL CliD
i
55 ······································································· ,
56 ·
COITiOL CARD 1 BODIPIClTIOI or PiOCBAft
0171 38 20 020D 0175 F2 90 06
0178 co 87 0222
Ol7C FPP1
017£ co 81 0226
Ol82 20
Ol7D
0&82
5587 ·~······?·B·l····S·B·!·'l·'!·S·,S·I·S·V·2·A············C··it··P·O·B··A·I·D··B·U·N·C··H··I·P··I·I~·!··l·l·lT··I·IG····'
59
JP PIBST1
·TO BllE CHARGES "lO THIS IIPO
60
B
HlLT
·HALT FOR CHllGES
61
DC
IL2 1 PPP1 1
.-i'O BB ftll>E
62 PIBST1 B
PACI
·PICK COftftllDS
I
·~
63
DC
IL1 1 32 1
*llD l>ELllS
Ol83 1P2l
OlH 64
DC IL2(8DPD·35J
·111'0 CllD
0185 1P6P
0186 65
0187 OC OD 1556 1P31
66
DC
lL2 ~CHDS·15)
inc CHD, BDFl>··9 (1·)
·TABLE IOU: C!llD IHE IUO BSG
Ol8D. 1'2 87 24
61
J
llVEI
GO ~ElD llOTHEd CARD
·r 0190 lD P2 1P01
Ol94 1'2 81
68 CABD CLI BDFD+1,1 1 P2 1
69
JE CABD2
·Cl POB llD SBllCH IP THIS IS ·THE SECOID COITIOL Cl8D
0197 3D 1'3 1P01 OUB P2 01 09
"iO
CLI IDPD+1,l'J'l'
71
.JIB CUM
· · · · · · · PUT 10. 2589923
PIG.I
u
·Cl POI &ID BB&ICB lf !BIS IS 10'1' ·TBB 'fH:UD COITBOL CllD
·
DUE 16HB70 EC 10. 816651
1UPa70
816618
29JUl10 816'704
010CT70 816160
lO.JDJ.73 577121
1510¥7· 572239
02!11115 572266
PIOG .ID PlGB
DUE 1611870 E: 10. 816faS1
1'1PB70 816678
29JDl70 8167016
010CT70 816760
30.JUJ.73 577121
1SIOY7' 572239
021&175 572266
PIOG ID
PlGB
l'H-8 1&
.··, " ' ·2!·_ ·':" J)
_ J, ¥.J 4# .!D.JCP * __,4£ .§.. §If
~. SP I, 0 i
.S $UQS.WJG.,;
j
IBB BlllTElllCE DilGIOS?IC PBOGBAI
PH'l' JO.
PlGB
25899~3
S/3 11.lS'fEB rl&IIG lUL!SIS PBOGBH (ll1'&P)
EBi LlC OB.JECT CODE
ADDR STftT SOORCE STlTEJIEIT
73 ·······································································
74 *
CONTROL CARD 3 ftODIPIClTI05 OF PROGBA!
0&~£ O~ 55 1677 1PS7
0114 P2 87 OD
OU7 JD 1' 1PD1 OUB P2 01 06
7765 ·······a·v·e····L··II·E·1·,·B·D··F·D···8·7·(·8·6·) ······II·S·E·B·T···F·IB··S·T··L·I.·IE·~·O·P··B·I·T··IA··!·E·S······
11
J
llEYEB
GO BEAD AIOTBIB C&BD
78 CAID4 CJ.I IDFD+1,18 1'4'
·CK FOB AID BBUCH IP THIS IS IOT
79
JIE IEYEI
*THE FOURTH COITBOL C\~D
80 ·······································································
'
OUE OC 55 16Cl' 1 PS7 0184 JD C5 1P01
OU8 r2 01 16
81 ·
COITROL ClRD 4 ftODlPICATIOM OF PROGilft
82 ·······································································
83
ave LIIE2,BDPD·87(86)
IISEB7 SECOID LIIE or BIT IA!ES
es84 IEVE£ CLI BDFD·1,1·cs·
JIB ClBD5
OlBB CO 81 0211
86
B
PIIIT
OlBF 16
OlBP 87
DC
IL1 1 16'
Ol:O 38 IU) 15'2 Olt:4 P2 90 06
01:7 co 87 0222 O&::i; POP!
88 ClFE TBI PLlGS,PJ.lG1
89
~p
C&O
90
B
BILT
OlCC 91
DC
IL2 1 POPE 1
·Cl ~OB AID BBAICB IP ··~ HlLT lPTEB LlST COITIOL CARD
Ol: D CO 87 0£111
92 CKO 8
LETSGO
GO START TB! PBOGBAB
93 ·······································································
94 ·
CONTROL CARD 5 BODIPICATIOI or PBOGBlft
95 ·······································································
OlD1 JD rs 1P01
0105 co 01 0157
96 CARDS CLI BDFD+1.1 1 P5'
97
BllE IEITI
OAD9 CO 87 0226
98
8
PlCK
OlDD S4
OaDD 99
DC IL 1·8·'
0101 1F57
OADP 100
DC
U.2 (BDPD·87)
OUO 16PB
Ol!1 101
DC
lL2 (LDIIU·41)
OU2 CO 87 0157
102
B
IBITft
110034 ·· ·······C·O·IT·R·O·L···C·lB·D···2··B·O·D··IP··lC·l·T·I·O·I··O·P··P·B·O·G·R·A·R··················*·······
01!6 JB 20 020D OAEl P2 90 06 Ol&D CO 87 0222
110056 C··li·D·2···?·B··l ···S··B·IT··E·S·,S·I·S·B·2·A···········*C·K··P·O·R··~A·R·D··BB·A··BC·H···IF···B·O·T··V·&·R·T·IN··G··*
107
JF SECOID
·TO CBllGE THIS IIPO
108
B
BlLT
OAP1 PFP2
0AP2 109
DC
IL2'PPP2e
OlP.J OC 03 1P75 1P17 OlF9 OC 01 1478 1PC1
110 SECOID R'fC l!OL1' · RDf'D·2l (4)
111
ave BAI02·3,D&r11c2>
OlPP 3B Olt 15U
0803 JD 110 1P57 OB07 P2 81 Ol 080& 31 40 1543 OBOE OC 01 1CF4 1P57
0810 co 87 0226
0818 58
0819 1'57
OB1B 1727 081 D 38 Ob 0!95
0821 lD CS 1POll 0825 CO 81 1P80
OB29 OD 06 1P31 1513 OB2F CO 01 1PCl
OBll 38 38 16PI 0837 39 CO 16PI Oli3B P2 90 01 OBli ll 08 0!95 0842 DC 01 0184 1PCl 0848 oc 00 0173 1701
0841 OC 00 0 £82 170P
0&5AI OC 00 0!86 1110 OB5l OD 01 1P4B 1513
0860 F2 81 18 OB63 0C 03 1621 1P55 0B&9 Oc 02 OP47 112· 0B6F 0C 00 0P4l 1721
087~ Oc 01 OFlA OP48 0878 F2 87 OP
0818
OB1A OB1C
112
SBP
113
CLI
114
JE
115
SBI
116
11 VC
117 PlCKIT B
118
DC
119
DC
120
DC
121
SBF
122
Cl.I
123
BE
124
CLC
125
BRE
126
TBN
127
~BP
128
JP
129
SBB
130
RVC
131 LD7'HEB llVC
132
inc
133
RVC
U·
CLC
135
JE
1J6
ave
137
llVC
138
ave
139
ave
1110
J
PLlGS2.FLAG15
RDPD·87,1 1 40 1
·Cll ror AID BBllCB IP
PlCKIT
·THIS ABEl IS BLllK
PLlGS2,FLIG11
TUBB O~ SllC-SlffP lllTED
SS,RDPD·87 (2)
ftOVE CODIT 11 FOi SllC·SABP
PACK IL 11 88· lL2(BDPD·87) A.1.2 (DATPLDU3) TIOORE· 1,11 08'
*P··lC·C
·SE1' OFF ft B! T or g COD£
BDPD·4,X'C5'
*CK FOR AND BBAICB IP TBIS
LDPRIT
*lS A PRIJTEB TAP
BDPD+49,BL111.(7)
*CK POI AllD BBUCB IF THIS
LDDISI
*IS A DISK 'fl.P
DA!FLD·2,X1 38 5
·CK POR lJD BBA·CH IP rBIS IS
DATFLD+2,1·coo LDTHBR
*l'lT A
·2501 'l'AP
Tl005E+1,J.'08 1
·SETUP FOB
LET4+3,lfL(2)
·2501 1'.l.P
LET l · 1 ( 1) , DAT f'LD+18 LOAD 1/0
L!Th1(1),DlTFLD·19 LOAD .t/O
LET5+1(1) .DATFLD+20 LOAD 1/0
BDPD·75,Bl.1H (2)
~CK FOB UD BBUICB XF
CK42
·NO THIRD .SUIC
DELlY3,IDFD·85(4)
·l'llS:E sue 3 I.NSTBOC1'IOI
STRC3+2.DATPLD+40(l) ·t!ODlfl'ICATlOltS
· SEISE3+1(1),DATFLD+37
WlY·l,BACll·l(2)
SBTU? 2
I 1811 BlllTElllCE DUGIOSTIC P&OGllll I PF48 S/l llAS'l'EB TIBIIG HlLYSI.S PBOGUll (ft&P)
Pll'f 10. P.lGB
2589923
2A
EBB LDC OBdEC'f CODE
~
087! OD 01 1P 3P 15El
J
0884 P2 81 18 0887 OC 01 OP 31 0768
J
0B8D OC 03 161D 1P49 OB93 OC 02 OP61 171E
0899 OC 00 OP63 1711
089F F2 87 1C
l
0Bl2 JD E3 1P32
0816 1'2 01 OP
0819 OC 00 OP3C 1716
OBlF OC 01 OF3l 1188
0885 1'2 87 -.a
OBB8 oc 01 OFJ& ores
OBBE OC 03 1619 1P3D OBC4 OC 02 0P87 1718 OBCl OC 00 OF83 1715 OBDO OC 04 156C 15El OBD6 06 31 156C 15CB CBDC 07 02 1P17 1502 08!2 CO 01 ORD& ObE6 OC 00 1016 16PE OBEC OC 00 OFAB 16PE
osri oc 00 OFE1 16PE oare oe oo OE95 16P!
OBP'E OC 03 1P7D 1F20 0Cl)4 OD 01 1POD 15!3 OCOl F2 01 OC OCOD OC 01 1704 15P3
OC13 OC 00 1702 161'!
OC19 OC 00 1019 1702 OC 1F OC 00 OPlE 1702
OC25 OC 00 OPEil 1702
0C2B OC 00 1F70 1700
OCl 1 OC 00 1'U'E 1&1'1' OC31 OC 00 1501 16PF OClD OC 00 10 38 16FP OCH OC 00 1041 16PI' OC49 OE 00 1703 OCEl OC4P OC 00 1F71 1704 OC55 OC 00 1520 1703 0C5B 0C 00 152C 1703 OC61 OC 00 106F 1703 OC67 OC 00 1086 1703 OC&.O OD 01 1707 1SDt
OC73 P2 82 SB
0C76 OC 01 OFA9 1106 OC1C OD 01 1POB 15£3
OC82 F2 01 16
ocas oo o1 1.F13 1SEl
OCSB F2 01 28 OC8! OC 00 1P03 16FE 0C94 3C C.8 1P5B OC98 12 87 4!
OC9B OC 00 1P03 16FE OCA 1 3D 01 16 Fl' 0CA5 1'2 01 07
OCA8 JC D5 1P5B
OCAC P2 81 31.
OCU' 3C Cll 1FSB 0CB3 P2 87 ll
OCB6 OC 00 1F03 1702 OCBC 30 03 1703
ADD& S'l'BT SOUBCI ST&TEllBIT
,..1111 ·
1162 CH2 10
CJ.c JB
JIVC
14S S!TUP2 llVC
,., .146
147 148
llfC ave J
150 Cl411 CJ.I
151
JIB
152
BYC
153
ll'IC
1511
J
155 ·
156 Cl41 ll'IC
1S7 PACK 1 flfC
158
llYC
159
llVC
160 CLEAR inc
161 SETSEG .u
162
sz
163
BIZ
164
ave
16S
ll'fC
166
llYC
167
8ZZ
168
llYC
169
CLC
170
Jiii
111
llVC
172
ave
173 DIDEB6 HC
174
ave
175
!IYC
176
llYC
171
!ITC
178
BYC
179
ave
180
!l'IC
181
ALC
182
l'IVC
183
JIVC
184
llVC
18S
llYC
186
llVC
187
CLC
188
JL
189
!ITC
190
CJ.C
191
J11E
192
CI.C
193
JUE
194
BVC
195
l!VI
196
J
197 ·
198 FIFfJ1 ave
199
CLI
200
.JIB
201
llVI
202
.J
203 ·
20· 1.EP!' 1 !VI
20;
J
206 ·
207 PIPT!2 enc
208
CJ.I
BDPD+63,BJ.&IK(2)
·Cit POI HD BB&ICB
CK411
*IP 10 SBCOID SllC
lill·l· BlCK2+3 (2) DBLll2,IDFD+73(4)
*lllKB SllC 2 I.IS'lRUC'fIOI
· SYIC2+2, DATPLD+34 (3) ·BODlPIC·rIOIS
SEISE2·1 (1), DU'PLD·31
P&Cl1
BDFD+ so.x· Bl.
·Cl ro~ S!IC 01 TXO
CU1
*llD BBAICB IP IOI
TIOCl...-1 (1) ,DU'f'LD+26
ll&Hl,l'U0(2)
CLlll
ill·3,BlCK1+3(2)
DBL111,IDPD+61 (4)
*lllll SllC 1 IISTBDC!IOI
SllC1+2,DlTPLD+28(3) *IODIPICATIOIS
SBHSE1·1(1),DlTFLD·25 ·
BISTBI-22,BLAll(5)
CLElB CODITBB
BISTBt-22(5),DS0(2) *lDD SO FOB ElCB
8DPD·23 (J) .D001 (3)
·llICllOSEC
SETSEG
·IIC&EBEIT
SIS 1+1 (1) ,Dll Pl.D+2
·SBTOP .
SIS3+1(1),DlTPLD·2
·PIRsr
SISS+1 (1) ,DlTl'LD·2 TIOOIE+1,DUPLD+2
Tl!ES,&DPD·32(4}
·SEISE
SBTDP rzo 1'01 BlCB DEYICZ
LOAD IOBBER OP CBJDS ro BE S&BPLBD
BDFD·1J,BLllK(2)
*CK FOB AHD BRANCH
DIDEB6
·IP TIO SEISE COlllllDS
DH FJ.D·8, Z EBO (2)
I
DlTFLD+6(1),DlTFLD·2
5152+ 1 ( 1} · DATFl.D+6
·snur
SIS4+ 1 (1) ,DlTPLD+6
·SBCOID
SIS6+1(1),DATFLD+6
*SBISE
llS Jt1 ( 1) , DU PLD+4 .
OYEB+4(1),DlTf'LD+l
CO!P+4(1),D&TPLD·3
OYER3·4 (1) · Ddl'LD·l
COftP3+ij(1),DlTPLD+l
DlTPLD+7 (1) ,PD+1
&DD 2 TO DISPLlCEIEIT
!ASK2(1),DA'l'PLD·8
OVEB22·4(1),DATPLD+7
COllP22+4(1),D&TPLD+7
OYER33·4(1) ,DlTPLD+7
COBP3~+4(1),DU'l'LD·7
DATPLD·11,TEI (2)
*Cl FOR AID BlllCH IP LISS TBll 500
UIDEB
VBBBE+l,1'181+3 !2)
BDFD+11,BLAJI (2)
PIP1'11
·11.ICBO SECOID SIAPLE TIBI SftDP TO SUE DA'fl AS SBESID
·Cl roa llD BBABCB Ir TB1S IS
·BITE TO 50!IC S.lllPL! IITO
BDFD· 19,BLlH (2) PIFTf2 RDFD+3(1),DlTfLD+2 BDPD+91,l'C8'
·Cl roa AID BBAICH 11 !BIS IS ·BITE TO 50ftIC SlftPLE IBTO
·IIIT:LlLIZE ro IGIOBE DAT£ VBICB
·IILL B! SlftPLED !Viii sonic
PU
iDPD+3(1) ,Di.TPLD·2
DAT PLI>+l ,J:' 0 1'
LE1'r1 llDPD+91, J;. DS I I'll
C· RDFD·91,1 1 1
PIX
BOYE FIRST SIS CBID II POB -St ·Cl POI APD BIAICD IP LO& 'nr~
·BYTE IS TO BE -OBBD- IBTO
SETOP !'O -01· .UTO l!IGH UH:.&$;,
SETUP ro -oa- IITO I.OH ~DPiESS '
BDFD+3(1) .D&TPLD+6 Dll'FLD+l,11 03 1
SOfl SECOID SIS C!ID II FOB -SO< $C& FOR HD BBHCB J.l 1.01 lDD.HS
Dlr! 1681870 EC 10·. 8166S1
14&Pl70 816618
29JU170 816704
010C'l'70
816760
30.JUL7l 577121
1SIOf78 572239
02UJ75 5722t.6
PBOG ID PAGE
rn-a:
2
DU£ 16111870 EC 13.. 816651
14&PB70 816678
29.10170 81670·
010C'l70 816760
30.JUL 73 S71121
021U75 572266
PROG ID PAGE
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
· -4
·
·
·
·
·
·
·
·
·
·
·
·
·.'
·
·
IBB BlllTElllCE DilGIOSTIC PBOGBAB
l'ABT 10. Pl.GE
25899~ 'I ' 3 lBB a&llTl!UIC! DllCiOSTlC P80Clllll
PAIT 10·. 2589923
Pl GB
ll
PF~8 S/3 ftlStEB tIIUIG llALtSIS PROGRll (&TlP)
l rru S/3 HSTEB TilllG HAJ.ISIS PIOGBH (llT&P)
E2B LlC OBJECT CODE
lDDB STBX SOURCE STlTEBEJIT
OCt:O F2 01 07 OCC3 3C D7 1PSB 0CC7 !'2 87 1P
OCCl 3C C6 1P5B OCCE P2 87 18 0CD1 OD 01 1707 15P· OCD7 P2 81 09 OCDA OC 01 0Fl9 1010 OCEO F2 87 06
OCE3 04 01 OPA9 OPBC OCE9 OC 02 1606 1F1B OCEP OC 02 1609 1F1B OCF5 06 02 1609 1SPD OCPB OD 03 1619 1SD1 OD01 F2 01 09
OD016 OC 0 2 OP8F 0 Pl9
ODOA 1'2 87 04
ODOD 3C 80 OP8D 0D11 08 03 1022 1FSB OD 17 C2 0 1 1FOJ OD1B 1C 00 1021 00 OD20 1C 00 10~1 00 0D2j 1C 00 105& 00 OD2l 1C 00 1071 00 OD2F 1C 00 1088 00 OD34 1C 00 10&0 00 0D39 1C 00 10B7 00 OD3E 1C 00 10CB 00 ODll3 1C 00 10EO 00 OD118 1C 00 10P1 00 ODllD 08 02 1030 1PSB OD53 08 02 1047 1FSB OD59 08 02 1060 1PSB 0D5F 08 02 1077 1PSB OD65 08 ~2 108E 1FSB ODtifi· 08 02 10A6 1F58 OD71 08 02 10BD 1PSB OD77 08 02 10D1 1P~B OD7D 08 02 10E6 1F58 0083 08 02 10P7 1FS8 OD89 OD 01 1P33 15El OD8F F2 01 06 ~D92 0C 01 OP3l 1PBP OD98 lA 40 1542
C&>9C 3D ca 1P22
ODlO F2 81 C)ll 0&>13 38 40 1542 GDl7 OC 01 111D2. 1PB1 ODAD OC 01 14Dl 1PB3 ODB3 3C OD UDO ODB7 3': 00 111D8 OD8B 3C 00 14 EO ODBF OC 01 0DC8 1PB9 ODC5 3d 01 0000 0DC9 P2 90 24 ODCC OE 01 14D2 1SD8 0DD2 OE 01 14Dl 15D8 ODDS OE 00 14DO 15D8 ODDB OE 00 14D8 1SD8 ODB4 OE 00 14£0 1508 ODE& OF 01 1478 1508 ODPO OE 00 ODC6 ODC6 ()DP6 CO 01 ODCS ODPI 3C 01 ODC6 ODP! 38 04 15·U
209
JIE
210
ftY1··
211
J
212 ·
213 LEPT2 HI
214
J
215 DllDEB CLC
216
.JE
217
SVC
218
J
219 ·
220 JUllPIT ~vc
221 Fii
BVC
222
ftYC
223
AZ
224
CLC
225
JHE
226
ave
227
J
:l28 ·
229 OiIGllil Sil
230 GETOH Bii
231
Li
232
ave
233
ftYC
234
BYC
235
ftYC
236
ftVC
231
HVC
238
llYC:
239
flVC
2410
!VC
241
UC
242
BIZ
243
ft NZ
241J
ftBZ
245
!NZ
246
ftHZ
247
ft HZ
248
BIZ
249
INZ
250
RHZ
251
RHZ
2!'2
CLC
253
JNE
254
!IYC
255 SET1 . SBI
256
CLl
257
JE
258
SBF
259 Lll'EB BVC
260
ftYC
261
ftYI
262
sn
263
HVI
2611
RVC
265 THESE TIHI
266
JF
267
ALC
268
AJ.C
269
.A.LC
270
ALC
271
ALC
272
SLC
273 SHI.PT ALC
2111
BIZ
275
RVI
276
TBI
LIF'f2 BDPD+91,I1 Dl·
PIX
UPD4'91,1 1 C6 1
PU
DlTPLD·11,,0BE(2) JOllPIT VBEBB+3,TIB5+3(2) FI.I
VBEBE·l,,Tl83·3(2) SAftPLE,RDFD+27(3) IUBBER,IDFD+27(3) IDllBER(l) ,D002(3) DELU1,,D001-1 (4) OIUQIH IOWAIT·3,,UBEEE·3(3) GETOI
IOU&IT+1,,1'80 1 DD1+2,BDFD+91 BDPD+l,,IB1 111+1(1),0(,IRi) ll2+1 (1) ,O (,181) A&3+1(1),0(,IB1) .ll4+1 (1) ,O (,181) U5+1(1),0(,lB1) H6+1 (1) ,0 (,IB1) Al 7+1 (1) ,,0(,IR1) U8+1(1) .,O(,XB1) H9+1 (1) ,O (,111) Al 10+1 ( 1) ,O (,D1) BB1+4,BDPD+91 BB2+4,BDFD+91 BB3+4,BDPD+91 Bfl4+4,BDFD+91 BB5+4,BDFD+91 BB6+4,BDFD+91 BB7+4,RDPD+91 BB8+4,,BDPD+91 BB9+4,RDPD+91 BB10+4,BDFD+91 BDPD+51, BLAH (2)
SET1
111+3,lliOIT (2) PLIGS,PLlG1 BDFD+34,%'C8' LlTEB f'L&GS,,PLlG1 CT11,lLIMJ1(2) CT22,ILIH2 (2) CT1,1'00'
a2,i:·oo·
CT3,,I' ooe
TBBSB+l,l!ASK2(2)
·-· ,11 01' SHin
C%11, ELD EB (2) CT22,, ELIHI (2)
CT1 (1), BLBYEI CT2(1),!LEVBI C1'3(1),,ELEUI
BlJ02+3,BLEfE1(2) TBESE+1(1),,TH!SE+1
TBESI!
TBESE·1,1'01· f'L&GS2,FLIG15
·BYTE IS TO BE -OBED- IBTO SETUP TO -OB- IllTO BIGll ADDRESS BITE,
I
SftUP TO -01- IHO LOii ADDiESS BYTE l
I
·Cl FOB llD BBlllCJI IF OIJ.?
.
·SO BICBOSEC SABPLE TIBE
(
SETUP TO DEL.ll BBTVEEI SABPLE TIBES 1
SETOP TO SIBPLE EVERY 50 BICROSEC SETUP S&BPLE CODIT COISTART
·CK FO~ ARD BRAICH xr THERE lS
·A DELAY APTER T BE PIHL sue
StTUP TO BR IBftEDIAT!LY TO Sl!PLE
10-0P TBE BBlHCB COIRAID
·
i
I
· · ·
·*$BOYE SIS II FOB 50!IC SIBPLE
· · · · * · · * ·
··SETUP TO SlfE PBOPEB BITE
·
II<
·..
TORR OH HALT ilHTED PLIG ·CK FOB ARD BilHCB IP 10 HlLT
·APTER LAST COHTRnL ClBD IS llHTED TORR OPF HALT ilBTBD FLAG
·PRillTODT AREl *lDD'llESSES
*IllTIALlZE ·l'lSG PBllT LEllGTBS
*Cl FOB liD BRUCH IP ~'HlS *BIT IS IOT TO BE CHECKED
EBB LDC OBJECT CODB
I
OE02 CO 10 0157
OE06 3.l O· 1543
OEOA OC 01 ODCB 1FB7
J 0£10 CO 87 ODC5
1
OE11l 38 1B 15112
~ 0£18 oc 03 1547 1513
i;.
OB1E 0C 03 1P79 1P7D
0£211 38 FO 0P83
0£28 F2 10 OD
OE2B 3C 87 OF13
OE2P OC 03 018C 1518
0£35 P2 87 18
OE38 38 10 0200 OElC F2 10 07 OEJF 3C 10 OF13 OEU P2 87 04
._
0£116 3C 97 0P13
OEU PJ FO CO
OE4D P3 F8 00
OE50 oc PE 1CP1 1cr2 OE56 oc: PB 1BP3 1err.
OC5C OC FE 1EEE 1EEP OE62 OC FB 1DFO 1DF1 OE68 C.2 01 1P60 OE6C OC 03 159D 1175 OE7 2 31 P&I 1PIF OE76 3D F4 0!7 3
OE7l P2 01 04
OE7D 3C rs OE73
OE81 31 PS 1PAP OE85 31 1'6 1FA F OE8'J C1 J!8 1120 OE8D 39 EO 0:!95
OE91 P2 10 04
OECJ4 C1 PO 112D OE98 4D 01 03 15P3 OECJD P2 81 58 OE&O 79 PO 00 OF.Al 12 90 38 OEA& 1C 01 1615 01 OUB CO 87 021! OElF 02 0£80 1615
0£82 1611 0EB4 OE 02 1602 15P4 OEBI 07 20 1611 1502
OECO CO 01 0 !B4 OEC&I 35 02 15Dl OEC8 36 02 151'1 OZCC CO 8&1 OEC8 OEDO O~ 02 1602 1SP4
0-ED6 CO 0 1 OEC fl
OED.l D2 01 02 OEDD CO 87 0!89
*SlilFt BlSK SI~ 01! POSITIOR LEFT *AND 88 IP fll;il[ DOES BOT GO TO 0
lMITIILIZE !&SX TO -01·CI roe l&D BillCH IF BOTS
0EE1 1C 01 0!13 01 OBE6 1C 01 15El 01
OEEB OC 00 1PC6 11C9
OEF1 Fl 00 00 O!P4 D2 01 02 OEF7 CO 81 0!72
0118 lC 01 OPOD 01
ADDR STftT SODRCB STATEBBIT
OIAP 0£81 OEBl
277
BT IBXTB
·BITES BlYB BEii CBECUD
278
SBI f'Ll.GS2,FLlG15
279
IYC 'f'BES!+l,ABlSl1 (2)
280
B
TBESI
228812 ········B··EG··IN···.E·IE·C·O··TI·O·H··o··r·C·O··ft·B·A·ID·S····················~·················
283 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..
281i LE1'SOO SBF nAGS,l' 18 1
TURI OFF FLAGS 3, 4, 6, 7
285
!IYC Biii, BLAH C·)
CLElB Cl RDS CHECKED COO IT BB
286
BVC PlSSES.TlBES(ll)
LOID IO!BEB or CBIDS TO BE SlBPJ.£D
287
TBI SEISE1·1.x·ro·
*CK POD llD BllRCB lP
288
JT ISBPCO
289
!YI OIL11+1,l'871
·BPCU SEISB COBBllD SETUP TO Sl!PLE lK!lBDIATELI
290 BllBE ftYC TIOTV0+3.10f1+l(4)
IO-OP FIRST ftPCD TIO BD~I
291
d
LETS
292 ·
293 ISftFCIJ TBH
294
on
295
Bil
SB!TES,, SIS112B BJ PASS
OILJ1·1,I 9 10 1
·Cl POB AID Bil.RCS 11 ·PILL C0ft81MD IS lot IAITED
SErUP TO P.11.llE nrco
296
J
297 ·
298 BYPASS an
DXT2 OIL11+1.,X1 97'
SETOP TO SllPLE IBl!!Dllt'EJ.t
299 UIIT2 SIO 1·00·.x·po·
300
SIO 1·00·.1·re·
PRIS PRIBllt PBIB SECOID.lll
301 LETS 3'fC OITlB·505.oBTlB+506(255) ~IIITIAL.IZE -OB- TABLE
302
!VC OBT AB·251,0BT l.8+252 (252) ·TO U.L ZOOS
303
UC AMDTAB+505,UD'1'AB+506 (255) ·IHITIALlZE -HD- TABJ.I
301i
BYC llDTl8+251.,llDTlB+252(252} *TO ALL OIES
305 BEHCD LA CDIDS,IB1
LOID lDDR or CftHDS IITO .181
306
llVC SETPBT,llOLT(4)
LOAD SlDPLE TI"E COOIT COISTAlf
301 LE'l'3 308
LIO CLI
LDBD,1 1 1'4' LET3· 1, 1 1 P4 1
*Cl roa AID BlllCB IP TBl.S IS IOT l
309
.JllE L!~O
310
!VI LET3·1.X1 P5'
·BFCU i:'RIIT LIO
SETUP FOB BE.t.D LIO IISTElD or PBIIT
311 LET4 LIO LDBD,1 1 PS'
312 LETS L.IO 313 TIO!iO TIO 314 KBTST TBP
LDllD,1 1 P6 1
DllG,,1 1 re· rx OORE+1,I' EO.
BBllCB IP EBBOe 01 101' RBI.DI IS THIS COISOLE I/O OB 2956
315
JT
316 TIOOBE TIO
317 CLCCOH CLC
CLCCOB
Dll.G,1 1 F0' l (2 , IB 1 ) , ZBJlO
If SO, SKIP OYER TJ.O BBAKCB IP EBBOR OB NOT BEAD!
·cg FOB lHD BBAWCB IP !BIS IS !BB
318
JB SHP
319
TSP 0(,1&1) ,x·ro·
320
Jl RODLll
*COftRAHD TO BE SABPLED
*Cl roe AID BBAHCB IP THIS IS IOT
·l TIRE DELAI BE~WBEI CO$BA·DS
321
BVC UOBK,, 1 (2,D1)
LOAD DELI I COD If
322
B
UJIPlCI
323
DC
IL 11 2'
324
DC
AL2 (1081)
325
DC
U.2 (llOU-4)
326 DII.ll7 &LC DELU,011!(3)
327
sz IOBl-4 (3) ,,D001 (1)
328
BIZ DELU7
329 BELOID L
D6579 ,182
·DELI!
330 .DLI 1 .l
PFP!',IB2
331
BB DLJ1
332
SLC DELA! (3) ,,OH
333
BIZ RELOAD
·100
I· ·!SBC
·Cl FOB llD BIAICB BACI ·DELI.I l'ACTOI HlS lot GOii ~O S!IO
3311
Ll 2 (,IB1) ,Il1
335
B
TIO HO
336 ·
337 IODLU l!YC ICOTE+2, 1 (2,111)
338
nc TI ftE, 1 (2, IB1)
!OTB CBID 11 FOi £XECUTIOI
339
!YC
340 ICUTE SIO
lil!i)(-1,,0PISIT ( 1)
o,o
341
Ll
2(,111) 11 1B1
342
B
LETJ
343 ·
30 SlllP nc
Bi BlCI TO CK IEIT CBID BOYE CBID II FOB EIECOTIOI
DUE
1611170
1:: 10. 816651
1UPl10 816678
29JUl70 81670I
010CT70 816760
30.JUJ.73
571121
151017· 572239
0211lllS 572266
Pi0'9 ID PlGI
I
pp4-9. 3 I
DATE
16UR70
EC: 10. . 816651
1UP870 816678
29JUl70 816704
010CT70 816760
30JUL73
571121
151017572239
02111175 572266
PHOG ID PlGI
PP4-8
3&
·
·
,.
181 SllltBlllCI DllGIOSTlC PIOGIAB
Pllt 10. PAGE
· 2589921
lBS lllIMTElllCE DI&GIOSTIC PBOGIAB
l'&l'I' ao. 2589921
PAGE
41
FPU S/3 OSTER Tl!llG &llt!SlS PBOGUI (IT&ft
~ rr·a S/l llASTEB TillIIG llALISIS PBOGllll (llTAPJ
EBll L:>C 08.J !CT CODE
lDDB STBT SOURCE ST&tllBIT
BBi LOC OBJlct CODI
ADDR STBT SOUBCB STATBllBIT
orib 1c Ol 1s11 01
OFOS OC 00 1PC6 1PC8 OFOB Pl 00 00 OFOE 38 10 15412 or12 r2 10 oa OP1S 31 10 15fl2 OP19 CO 87 0168 Of1D OC 02 1SEF 1609 OF23 C2 01 16PC OF27 C2 02 11P8 OP2B 7C 00 O& OP2E 7C 00 01 0Pl1 06 JO 15117 1502 0Pl1 CO 87 OFlB OFlB C1 00 0138 OFlP f2 87 64
(
l·S
HC TIH,1 (2,,181)
346
llYC DISK-1,HCK (1J
»
Jiil 1cor12 s10 0,0
EIECUT! CBID TO Bl S&IPLED
JU
TBW PLlGS,l'L&Gl
349 OILY 1 JT STHT
350
581 PJ.&GS,, l'L&Gl
351
B
IEITCD
352 ·
353 STAR~ !YC CHIC11,10ftBl1(3)
LOAD S&BPLB COURT
35·
Ll DATPLD,181
LOAD DlTl FIELD ADDRESS
355
L& OBT&B,112
356
llYI 10(,,01) ,11 00·
357
!'II 111 (,111) ,l·OO·
l~S
lZ 8&11(4),0001(1)
lDD 01£ TO C!IDS CHECKED COUBT
359 Ill
B
...
Ba&~CB TO UIS1 SEISE BIQOIBED
336610 ········s·r·1·c··0·1··T·I·O··C·O··ID··IT·*IO··· ·G··O·ll·G··o··rr·~································
336623 T·l·O·~·I·D··T·I·O······,·,···-*· ·····················································
36·
J
IBBBB
OPll2 70 00 01 OFl65 78 00 00
OPU co 90 or·2 OP'IC oc 03 1615 1621
ors2 07 30 1615 1SD2
OFS8 OC OS 1611 1611 Ol'SB C::O 8 .. OF52
0162 70 00 01 0f6S 78 00 00
OPb!J co 90 0162 OP6C oc 01 1615 161D
OF72 01 30 1615 1502
OP78 oc 05 1611 1611 OF1E co 8 .. OF72
OP82 70 00 01
ores 78 00 00
.Jr&& CO 90 OP82
orsc CO 87 OP90
0'90 oc 0 3 1615 1619
OP96 07 30 1615 15D2
one
Ol'l2
cOoc
,O.S
1611 01'96
1611
OU' CO Bl OPH
oru 70 oo os
OFlD 70 00 07 Of'BO D2 01 Olf
0183 ~7 04 1SEP 1502
OFB9 co o1 oru
OFBD C2 01 16FC
ore 1 C2 o2 1AFB ores oc 02 15EP 1609
OFCB CO 87 11iP6 OPCF D2 01 04 OFD2 01 21 15EP 15D2 0PD8 CO 01 Ol'CB OPDC CO 87 1107
OPEO 70 CO 05 OFEl ·10 00 07
01'£6 07 30 159D 15D2 Ot'EC P2 87 05
OPEP 1C 06 161· 00
OFF/f 07 20 1591> 1502 Of'l'A CO 8" OPEP OFU D2 01 Olf
1001 oc 01 1590 1?75 1007 07 30 15£F 1SD2
iooD co 01 OFEO
1011 CO 8l O!'BD
r·.
--·
lt»b . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . (!;~:
l67 ·
STIBT HERB XP 3 SllCS
368 ......................................................................li!l!.$~-
369 SBIS!3 SIS 370 SlllCl TBI
·1-(·6(X,.BIl1l 1),)··-··-·
371 B&CK3 BP
~ISBl
STOBB DBSIBBD DITA
·Cl FOB &ID iSBllCB 11' sue 81~ XS
*iOt II TBB COIDX!IOI SPECil'iED
372
aYC IJOH,DBLlf3 (·)
373 SDB3 sz
iOH , ..) ,,D001 (1)
LOAD l DELAI CODIT
D!CBBllEH UE D.BJ.U coon
37·
IYC 1081-4,1081-4(6)
DELAY 18 IACBIIE C!CJ.ES
375
BP SUBl
LOOP IP CODI! IS IOT 0 BOT 15 P£US
376 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..
377 ·
START HEH 11' 2 sues
378 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..
379 SEHSE2 SIS 1(,XR1),·-·
STOBB DESIRED DATA
380 SllC2 TBll ·-· (,01) ,·-·
·Cl POi &ND BBAllCB IP SIWC 81T J:S
381 BlCl2 BP SEISE2
·IOT 11 TSE COID!?IOI SPEc.i.rXED
382
!TC VOBl,DELAl2(4)
LOIDA DELAY COUIT
383 5082 SZ WOBK(4),D001(1)
DECBEBBIT TBE DELA! COUIT
384
lltC iOBl-4,llOH-&a (6)
Di.1.ll 18 lllCBXll CICl.ES
385
BP
SUB2
LOOP IP COUIT IS IDT 0 BUT 15 P~DS
386 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..
387 ·
ST1RT BEBE IP 1 SllC
338889 S··B·I·S·!1···S·I·S····1·(·.·1·1·1··),·.·_·*·············ST·O·BB*·D·E·S·IR·E·D···D·l·T·l·········......····
390 SllC1 TBI ·-·c.n1} ··-· 391 BlClt 1 BP SBllSB1
·Cit POB AID BBllCB IP SHC BU XS
··or 11 THE COIDITIOI SPECll'J:D
.l92 IOVllT 8
···
393
ave IOilt,DELl 11 ,.,
BR TO ST1RT SlBPLBS IP 10 D&L&Y LOAD · DEL&! COOH
J9Q 5081 SZ VOBl(4) ,D001(1)
DECBEft!lt TB! DELA! COUIT
395
JITC IJOll-4,IOllt-4 (6)
DELll 18 RlCBIIE CICLBS
396
BP
SOB 1
LOOP 1l coon IS ICl'f 0 BUT IS ft.llS
397 &HEBE B
··4
·
398 .......................................................................
399 *
START S&BPLI8G
400 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..
401 *
SEISE EYE!! SO IICRO-SBC ORLI
..02 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..
·Ol SRS3 SRS 5(,181),*-*
40'1 SISfl SIS 7(.111),·-·
405
LJ.
·06
SZ
·07 TAB3 B!IZ
408 IOWDO J.l
·09
LA
a(,XB1) ,D1
CHECK 1 (5) .D001 (S)
SIS3 DATl'LD+O,,IB1
08TlB+0,Ii2
·DECBEBEIT SAIPLB cou·T &ID ~
·BACJt J:F IT IS IOf TO SEao LOAD DlTl FIELD ADDRESS
LOAD THE IDDBESS OP r ·~ -oa- ram.·
·no
JIYC cu:c1n, ID Hal CJ>
411 SlYEIT B
SETOP1
GO SI.YB DATA
·12
Ll 4( 1 lB1),x.B1
413
SZ
CHECl1(1&) 9 D001(2)
414
BIZ SlYBIT
415 ODT2 B
EBBOR
444111786
.·*·.·.·.·.·.·.·.S·.E·.R·.·S.·!·.·E.·Y.·.E·.B·.I·.·.1·.0·.0· .·- ··.S·.O·.·.·.ll·.I·C.·B.·O.·.-·S.·B.·C.1. .1. .t.·.·.·.·.·.·.·.·,······
··········....
·············
.
·
.....
·····
.
·
1119 5155 420 SIS6
SIS SIS
S(,U 1) '1 (,,l'.11)
·,·*--'**
421
SS SETPllT (C) ,,J>001 (1) 11 DBCl!&!lf SHPLB '1181 COOIT Bl ·
·22
J
·23 llIT15 RfC
4124 UAITSO SZ
425
BB
WIITSO IORK-1,0(7,1'.811 SSTPBT (3) ,D001 (1)
W&IT15
l 19 DELlf 19 BACBlll CICLBS
'°,. DBCIEUlt SlllPLI T182 COO !"f al'.
426
Ll 4{,,111),U1
J
427 421' 429 'UBS
BYC SZ
BIZ
SETPRT,BULT(2) C8£CJC1 (4) ,,DOO 1 (1J
SIS5
·10
11
LOAD Sl8PLE TIRE CODIT
·DECBE!PT S&llPLB coon·
Uii)
C·
·TO SlflPLB IF COUllT I.S llOf 'fl::
430
I
IOiDO
DAU
16HB70
EC ~·o,. 816651
1 l&APR70 816678
29.JUl70 816704
01oCT70 816760
l0.JDL13 571121
1510'7· 572239
02!.&!75 572266
PBOG ID P&GE
FP4-8 4
DUE
161UR70
£= BO. 816651
1UP870 816678
29JOl70 8167().Ja
010C1'70 816760
30JOL1l
577121
1SSOY7· 5722>9
021&175 572266
PBOCi ID
n
PAGZ
14¥!2:; =-~ p
J_.SA t. £01&
· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·
IB! &llHTElllCE DllGIOSTIC PBOG&lB FF48 S/3 RlSTEB TIUllG lll!LYSIS PBOGllft (!'l'lP)
PliT 10. Pl GB
't 2589923
lBft BlIITElllCE DilGBOSTIC PBOGBll
s
t FP48 S/3 !lSTEB rIIIIG lHALYSIS PBOGRl.8 (llTlP)
PART 10. 258992l
PlGE
51
EBB LJC OBJECT CODE
1015 10 00 05 1018 70 00 01 101B 1C QO 1021 Oi 10.! 0 71. 00 00 1023 OC 03 1590 1F75 1029 70 00 OD 102C 1C 00 1032 00 1031 7A. 00 OE 103~ 1C 00 1031 00
1039 BA 00 00 10 3C 36 0 2 1PU' 10140 70 00 OD 1043 1C 00 10-9 00 10i46 71 00 OE 1DQB 1P 00 1~DC 00
ioso oc oo 1065 1snc
1056 F2 IH 00 1059 70 00 OD i05C 1C 00 1062 00 1 0&1 1! 00 OE HH1li BB 00 00 1061 36 02 15FA 106B 1C 00 107C 00 1070 70 00 OD 1013 1C 00 1079 00 Hl7tJ 71 00 OE 101B BA 00 00 i 01 E J 6 Q 2 1F7i" 1032 ~F 00 15DB 00 1067 70 00 OD 10SA 1C 00 1090 00 i06F 7A 00 OE 'i09.2 OC 00 1099 15DB l 0'j8 BB 00 00 109B 3C FF 15DC 109F 70 00 OD 1012 1C 00 1018 00 10A7 7A 00 OE
ioa 3C FF 15DB
~CH 36 02 15FA ·'B2C08710B6 iOB6 70 00 OD ~(ll.19 1C 00 10BF 00 ~'JliE 1A 00 OE 10C1 07 21 i59D 15D4 10C7 f2 87 11 10CA 70 00 OD 10CD 1C 00 10D3 00 10D2 7A 00 OE
10DS 01 12 159D 15D2 10DB CO 84 10Cl
10DP 70 00 OD 10£2 1C 00 10!8 00 10!7 71 00 OE 1011 07 03 15EP 15D2 10FO 70 00 OD 10Pl 1C 00 10F9 00 10F8 7l 00 OE 10PB D2 01 04 10FE 4C 01 OE 15Fl
11 03 co 0, , 0, 5
1107 38 BO 0200
1108 co 10 0£50
110F 38 410 151J 'i
1113 F2 '.)0 01 ;,
ADDB STRT SOURCE STATEREIT
443323 ·*·$····S·E·H·$SE···EV0E¢R·Y·*·50···~I·C·R·O·-·S·E·C··0W·H·I~L·E··Sl·V·!·M·G···TH·E·0·L·A·S·T··S·T·A·T·U·S···········
443345S*ll·S·1····S·N·S··$·5·(·,·X·:·B·1··),··0-·· ···~·~····$·*·····0···········~····*···0··~····
~36 SNS2 SMS 7(,XB1) ~·-·
1.137
1'!11'C DDHi, 10 (1,111~
ljl-OB- lCCUIHJLUED DAU IliTO REGOLU
438 DD1
SB~
·~*(,li.i1).·-·
·STATOS lREl BEFORE SlV!HG IT
~3 9
~iC SET PifT, !'ilJ LT (4}
LOAD SARPLE tieE COUIT COllSTl~T
~40 AA1
SMS
1l(@IR1)~·-·
*SE~SE AID ·OB- OIE
~41 BB1
442 CC1 443 OVEBJ 444 00
~45
ave
SBN
~vc
SIU
&
*-· cc1+1,·-·(1,Xi1)
14(,Xi1) 0
00·1,$-~(1.XE1)
0(.:Ut2} ,1 1 00' D509glB2
*BYTE SPECIFIED EY!i! ~so !ICBO-SECOIDS
"OV! BYTE OF DATl IITO !lSK
-aa- DlTl IifO lLL ZERO TIDLE
ADD 509 TO Iii 2
4146 U.2 qq7 BB2
SISS 8VC
13(,.Ie1} 9 tt-it CC2+1 6 ·-~(1,1~1)
~SE~~E AID -OR0 ON! ·BI?E SPECIYIED EiEfil
~~S CC2
SBM
14~~%21)11'·-*
~su !ICBO-SECOIDS
lHi9 COl'lPJ SLC:
~50
t'!fC
SUEF.,*-"' (1,,U"i)
lDD+1 pi ,SU EF
COISPU!!lE U DAU
u r o ROVE C01lP1.~l!U'l'ED DA'U.
USK
4'51
.J
03
DELAY 3 ftlCHIRE C!~L!S
452 l.i\3
453 ssJ
454 CC3 455 aDt
SNS B(,Xi1l :-·-·
inc ccl"J-1,·-..i< (1,:u1 0
SBil 11q,lll).$-·
sar O{,XR2),x·oo·
esENSE AIHi -OR- OIE
·BY?~ SPECIFIED EVER! 050 ftlCBO-SECOMDS
-.urn- DATA INTO ALL OWES TlBLf
456
A
D50BeXB2
SOBTRACT 508 PO~ UEXY -OB- TlBL! ADD
457 OVEl?.33 MVC
458 1!4 SNS
Oll.33·1 6 ·~·(1.,JB1)
13(,IB1},$-·
BCV E BYTE OF D1U UTO l'lASf.
$SENSE AND -oa- ONE
459 BB4
~vc
CC~·1,·-·(1.,li1)
OBJTE SPECIFIED !YEBJ
~60 CC4
SB~
1~(,lR1)~·-·
$50 BICBO-SECOIDS
4&i OR33 SB!J
O(~ ZR2, gI 1 00'
-OB- Dltl I~ro ALL Z!BO TABLf
4&2
A
D509 ~ U2
ADD 509 TO lfil 2
'-"3 CO!!l?33 SLC S.L'fEf-1,*-· PrARi~
COIU?L!!IEIT DlTli
464 iAS
SNS 13(,IB1),·-·
*SENSE Al~ -OB- ODE
"65 BBS 466 CC5 467 1.16& UD33
f'IVC SBl"l !VC
~BF
CC5+1 6 ·-·(1,I.E1} i4(,.li1) 8 *-*
UH>3.1·1 Pl ,,SUE.f-1 0(,IB2) ,.x·oo·
·BYTE SPECIFIED EVEBt ·50 !1CBO-SEC08DS
PIOV E COKPLEllEMTED DATA IMTO USI
-&ND- DATA INTO ALL O!ES TABLE
46~
3il
SAVEF~xeFr·
RE-ElilITl ALUE
470 Al6 ~71 BB6
SNS 13(,161),·-· nvc CC6·1.·-·(1,XR1)
*SENSE AID -Oi- OIE ·BYTE SPECIFIED EVER!
412 CC6
SBN 14(,181),·-·
*SO IICBO-SBCOJDS
413
fiiI SAJEF-1,.X'FF'
RE-E !II TI .ALI ZE
47~
l
D508rIB2
SUS'UlCT 508 FOB U:XT -OB- TA&LE ADD
475 6'76 I.A7
B
U·4
SIS 1l[.,IB1i ,·-·
·SEMS! lUD -oe- OIE
477 BJB7
KVC CC7·1,·-·(1,ll1)
·Bl!'TE SPECIFIED EVEBJ
Q70 CC7
SBN 14[,ll1}·*-*
*50 !ICIO-SECOIDS
'-l79
SZ
SETPBT\4),l'1F0(2) 12 DECB!BENT SAUPLE TI!E COU!T BT 10
1180
481 Jae
J
PIMSB1
SIS 13(,lB1),·-·
3
·SEISE urn -OB- OliE
482 BBB
AVC CC8+1,·-111< (1,Il!1)
·B!T! SPECIFIED EVEi!
483 CC8
SBti 14(,IB1) ,..._ ...
*50 BICBO-SECOIDS
484
SZ
485 F!HSH1 BH
SET PRT (4), DOO 1 (l) 13 DECRE!IEMT SAftPLE TI!E COUNT Bf 1 ll8
486 l~9
SIS 13(,181),·-·
·SEISE AllD -OB- OllE
487 889
!!VC C:C9+t,·-· (1,Ul)
·B!TE 5P~CIFIED !VEBI
488 CC9 ~89 ~f.90 Ai 10
51:3N
sz
SNS
14(.J.B1).,*-· CHECK1 (4) I DOO 1 (4) 13 (, XB 1) .·-·
·50 !ICBO-SECOIDS
DECREB!NT S.lftPLE COOIT ·SEISE AND -OR- OIE
~91 BB10 ftVC CC10·1,·-·(1.IB1}
·BYTE SPECIFIED EVERY
492 CC10 SBN 14(,l.R1).·-·
493
LA 4(,XB1),XB1
*50 ftICRO-SECOiDS
494
P.VC 14(,IR1},,ZER0(2)
9 CLEAR lBF.l TO -OR- 50 ftlCBOSEC S!BP
495 TlB1 B!llZ SNS'1
BB IF ALL Sl"PLES HOT TAKEN I ET
496 ERROR 497 498
fBN BT TBI
SBJTEl!j. ,Sl1Sli2B
LETS
FLlGS;,FLAG11
*CK FOB AjD BBLRCB IF PRINT ·O~ EBROB 01 BOT ROY OllLT
·CK FOB .lRU Bll:lJCH IF 10
4'99
JP
lLLII
·snc-S.&RP IS IAllTED
EBB LOC OBJECT COD!
4
11 Ht 07 10 1CF4 15D2
11 lC CO 01 OP 1D
t
1120 07 JO 1F79 15D2 1126 F2 81 1C
1129 CO 87 OE68
I
112D 38 80 020D
1111 co 90 1H5
l
1135 oc 01 OFDF uas
11l B CO 81 Ol'BD
11JF Oc 01 OPDF 1PBD 111.i 5 oc 01 UP'S 1U'D
110 oc 01 1CF8 "iCPl
~H1 OD OJ 1547 15El
HS.7 P2 01 o~
115& cc 87 0222
115.l. PFF9
1160 co 87 0A17 1161.i co 81 021£
11&3 02
1109 15EA
1165 1592 1 H>D oc 01 1615 15FF
1113 OF 01 1615 15F4
1179 co 01 1i73 'i17D oc 06 15EA 15IH
1163 JC 00 1756
1H1 C2 01 1lF1 lHB C2 02 1CF7
1Hlf oc 02 15EF
1195 3e. 01 1543
1199 co 10 131 ~
119D 38 40 0200
11&.1 co 90 1ll 1
1U.5 OC 01 11EB 1FB9
11AB co 87 021&
1 HP 163
1180 4F 1181 1592
11B3 Fff'f 1185 OC 0 1 'i20C 11SD2 11 BB CC 01 1212 14Dl 11C1 3C 40 1753
11 cs oc 56 1752 1753 11CB oc 01 1753 1575
1101 Jc 60 1743
1105 C2 01 UFA
1109 C2 02 1CP1
11DD f2 81 08
11 EO C2 01 1AF9
11!4 C2 02 1C1'6
11!8 38 01 0000
co 1~EC
90 1301
11f0 co 81 0211
111'4 12
oc 11F5
02 15EF 1606
11FB oc 06 15 El 15D1
1.;;.o 1 oc Of. 1742 15.El
1207 oc 08 17 25 0000
120D oc 08 1730 0000
121J or 01 120C 1508
lDDR STH SOURCE ST&TUDT
1168 'i16l 11oC
1 UF 11B 0 1182 1184
11Ffl
500
sz
501
BIZ
.502 lLLIJI sz
SS(2) ,D001(1) S!lRT PlSSES(4),D001(1)
DECBEDBIT SllC-Sl!P COUl'f
LOOP IP JOT ~O ZIBO SDBTBlCT 1 FOR IOe OF RBQ SiBPLIIGS
503
JZ
U.LODT
500
B
IEITCD
505 "
506 DUG tBll S5iTB5,SBSl28
501
Bf
lLLOriT
508
ave OOT2+3 B ABOI (2)
509
B
JlO&OO
510 1$
*Cl POI I.ID GO PlUIT llOB8AL Dl!'A
$1!" PBIIT O&LI 01 IR&OB IS OFF
511 HOI
!'fC
512 U.l.001' D'fC
513
nc
S1~
CLC
!)15
JH
00?2vl,AE~ROi(2}
OiTAB·J,CBTAB+.5(2)
UDT 18+3, llUJT IB+S (2)
!AM J" BLl!UC( 4)
cu
on ·UI'!ll~IZB rIBS! 2 U'l'ES Of
i.B
*ARD AiDTAB FOB PRINTIIG
*BRANCH TO CAT 11 DATA HAS
·BEEi ru:o
516
B
OU'
511
DC
IL2 a Pf'P9 ·
518
B
CCI
519 C!'l'
B
Ull'ACI
520
DC
IL 18 21
52~
DC:
.U.2 (TIH)
522
DC
AL2(LAS7)
523
KVC iORIVl'il0380 C2)
524 UUT Si.C aou:.,on(2l
525
BH HIT
526 SCOP.! ave
527
ftifI
U!EwD001-1 ('i) UiiECT.rl 8 00 1
Cl£!R TIBE ~211TODT
nin1.u.x.u: unxs 1..u1 coon
528
L&
ORT.UH2,.IB1
529
u
lit DTAS+ 2~ IB2
530
!ll'C CBEC!\1 ~ Sl.BPLE (3)
LOlD Sl!PLE COUMT
531
TH FLAGS2., FLAG 14
*CK FOB liD BBAICH TO PBIIT GllPS
532
B'f
DO HEU
·IF .3ELt~CTED U'TEB Tl.BOLAR OUTPO'f
533
TH SBITE5, S!JS!.129
53~
SF oonn
*CK FOR AID BUllCH ?O SETUP llD PBT·ODT IF ioT IDT AKD PRIIT BOOB 3
5J5 ··$·*··~····o*****·c·~··················o···············e··············
536 ·
SURT HERE FOR TABDLAR PRINTOUT
537 e····$~$$8$***·***··********··~·~··*·*·····~~··o··~·········o··········
538
fiVC NOi+3,llUSK2(2)
·
539 540
B
PBUT
DC
IL1 8 1&3 1
5~1
DC
IL1 '79'
542
l>C
AL2 (UST)
S.43
DC
IL2 1 FFFl''
544
HYC PIRST+5,CT11(2)
*IBITIA~IZE TO !OYE LEFT BOST BIT
545
BYC SECD1+56 CT22(2)
*BARE IBTO TlBOLlR PBIITODT
546
ftVJ: DAT&,1 1 140'
54i'
!Yl. DATl-1.Dl.1'A (87)
CL!U Di.TA Pl!LD
5~8
l'IVC BIPAID,HISTBI-13 (8) HOVE :II -tUCBOSEC-
549
DVI E1PUD-16.X·60 1
l!OVE II DASH
550 551
** *····8·E·T·D·B·5··H·E·R·E··A·F·T·E·R···E·iC·B···L·IM··E··Z·S··l·lU··IS·B··E*D··························
552 553
·································¥··········~····$·····················
HOWCK Ll
OBTAB·2.IB1
554
LA
llDTIB+2,IB2
555
J
1011
-
556 HEIT1 Ll
557
Ll
558 iOii
TSU
559
BF
560
B
561
DC
562
flVC
563
MVC
OHT·B+1,XH1 AliDT 18· 1, IR2 ·-"'·1'01 1 HOD1 PilliT XL1 1 12 1 CHECK1,Sl.ISPLB(l) TIRE,D001-1 (7)
·Cl FOB llD BBllCH IP ~H.IS BIT IS BOT TO BE CHECKED
·SPACZ
·Ol:lLI
LOAD SlBPLE COUIT CLEAR rIBE P2IITODf
56~
HfC
565 FIRST MYC
566 SECD1 ftYC
.567
SLC
EXPABD-17,TiftE(7)
EXPUID-46 (9) ,·-·
EIPUD-35(9) ,*-*
PI llST·5, ELEY El (2)
·KOY! BOTH HALVES OF BIT IABE *ZITO TISOLAR PBIITOOT
·D'Ef.:RE!EiT BI 11 TO POUT AT
.......DUE
16U.R70
EC 10. 816&51
141PB70 816618
29JOl70 8167011
010CT70 816760
30.JDL73 577121
1510Y74 572239
02811'75 572266
PBOG ID Pl'91
Pf 4-8 5
DlU 1oftlli70 EC 110.. 816651
14 lPB70 816678
29JD!l70 816704
010CT70 816760
3o.JDL 13 577121
1510171&
572219
----------------------------------------------------~~
02HT75
57226~
PIOG ID
PIGE
rr11-s
5&
IB! !lIITEtilBCE DIAGIOS'l'IC PBOGll! PFU S/3 !llST!B 'l'lllllG lllLISIS PBOGBH (HU)
PART 10. PAGB
258~92J
&
· IB! SlllTElllCB DilGIOSTIC PBOGllft
·
l FPU S/J lllSTBB TillnG lllLISIS PBOGUI (ITAP)
PART 10. . 2S8992l
PAGE
6!
Eil LJC OBJECT CODE
ADDR SflT SOURCE STlTBIEIT
12;9 or 01 1212 iSu& 1211 78 tH Ol
1222 P2 10 23 1225 78 01 01
1228 !'2 90 98
122B 38 08 1542
122F !'2 10 OD
1232 36 01 15·2
1236 F2 90 30 1239 OC 08 17 31 1SC9 12lF OC 06 17U 15£& 1245 F2 87 2D 12"8 78 01 01
12119 F2 10 110
124£ oc 08 1731 15&7 1254 OC 06 1742 15El
1251 .88 01 03 125D P2 10 15 12190 78 01 OS
1263 F2 90 OP 1266 F2 87 Sl 12i9 OC 08 1731 15BO 12iF OC 06 1742 15El
1275 co 87 0211
1279 01 1271 37
1278 1753 121D ll 02 1542 1281 38 09 15112 1285 CC 06 1741 15E3 1288 F2 81 35
128.E 3S 01 03 1291 F2 90 18 12911 B8 01 01 1297 P2 10 29 1291 CO 87 123P
129E 38 08 1SQ2
1212 n 10 11
12A5 31 01 1542
1219 P2 87 17 12lC B8 01 01 121f' CO 90 129E 1283 Oc 08 1731 15BO
1289 oc 06 17"2 15El
12BF ll 08 1542
12C3 D2 01 02 12Cft E2 02 02 12C9 06 24 15El 15&C
12Cf' 07 JO 15EP 15D2 12D5 CO 01 121P 12D9 l8 02 1542 12DD F2 90 07 12£0 lB 02 1542
12111 F2 87 23 12£7 OC 01 12EP 1221 12£0 78 01 00 12FO F2 ~O 09
121'3 oc 07 1739 1588
12'9 12 87 06 12PC OC 01 1739 1SCO 1302 CO 87 02U
1306 01
1301 1D 1308 1739 1l0A OE 00 11!9 11E9 1310 OE 00 1220 122': 1316 OE 00 128P 126F 131C OE 00 1258 1258
1279 127& '27C
1306 1307 1309
568
51.C
569 101i1 TBM
570
JT
571 BOWS TBI
572
.JP
513
TBH
574
JT
575
TBI
576
JP
577
l!IYC
578 SECD llYC
579
J
580 10114 TBI
581
JT
582
!IVC
583
ftVC
58'+ llOl3 TBH
585
JT
586 110i9 TBI
587
.JP
588
.J
589 DOIUl1 ave
590
ave
591 LOGIT 8
592
DC
593
DC
594
DC
595
. SBll
596
SBF
597
l'IVC
598
J
599 10&2 TBN
600
JP
601 10116 TBI
602
JT
603
B
604 1!101110 TBI
605
JT
600
SBI
607
J
608 110117 'l'B'I
609
BP
610
llVC
611
llVC
612
SBll
613 TBINH Ll
614
LA
615
lZ
616
sz
617
BIZ
618
TBH
619
JF
620
SBF
&21
J
622 iII.L HVC
623 ROWS TBll
624
JI'
625
BYC
&26
J
627 DOIJI2 ave
628 COBD B
629
DC
630
DC
631
DC
632 llOD1 &LC
633
lJ.C
6311
lLC
635
11.C
SBCD1+5.EL!TBl(2) l(.ll1) ,1·01· 1014 1(1 181) 1 1 1 01 1 TRIRIT FLlGS,PLlG4 SECD FLAGS, PLlG7 DOiii 1 EIPHD-:?5,Y HJ' (9) EIPUD-9.!IH (l) LOG IT 1 (,IR1) ,1·01·
1012 EXPAHD-25 ,DP (9)
EXPAMD-17,TlftB(7~
3(, 1R2) ,1'01 1 LOG I T 5( 1 !B1) ,1 1 01 1 LOG I T
TBYll IT
ElPl~D-2S,DOi5(9)
EIPAHD-17,T18E(7) PRIIT IL1'01 1 IL 1' 55· U.2 (EIPHD) PLlGS,PLlG6 FLlGS,1 1 09 1
EIPABD-9,BL&ll(7)
ftUl'f
3 (,lll2) ,1·01·
1017 1(,:lll2) .,1·01 1
TB'fH1'
SECD
FJ.IGS, PL1G4 TBllXT FLlGS,PLAG7
ftlll'l' 1 (,112) ,1·01·
10110 ElPAID-25,DOIU! (9) EIPllD-17,TIRE(7)
FLlGS,FUGq 2 (,181) ,181 2 (,ll2) ,llt2 TlftE(7) ,HISTBI-22(5) CBICK1 (~) ,D001 (1) NOW1 FU.GS, PLIG&
WILL
FLAGS, FI.lG6
ftOD1 IOl8+2, IOVS+2 (2)
·-· (, XR1) ,11 01' DOH2
EIPUID-26 .,i &SUP (8)
CDID EIPUD-26 ,IUSl>I (8) PBIIT 11.1·01·
.Il.1 1 29 8 AL2 (EXPHD-26)
NOW+ 1 ( 1) , llOl +1
110¥1+1"(1} .. 1mr1+1 1012· 1 (1) ,110112+1 IOU+1(1),11083+1
*IF.IT BIT IABE TO 'l'HB LEPT ·CK FOB AID BBllCB lf
·BIT IS 01 ·CK POB AID BBllCB IP
*THIS BIT BlS 01 BEPO&I ·CK POB HD BRUCH IP
*FIRST TillE EITEBED
BOVE SECOID TlBE XITO ISG
·Cl FOB AID BIAICB IP ·BIT litlS 01 BEFORE
llOVE -litEJllT 00111- IITO llSG ftOV& FIRS~ TISE IR'l'O BSG
·CC roa l9D BBllCH IF
·THE -UD- BIT 15 01
*CK FOB lllD BRAICB IP ·-OB- l.FTEB I.EXT IS 01
BOYE -IEllT UP - 111'1'0 !lSG BOYE FIRST TIRE IITO RSG
TORI 01 LI IE OP DAU PiUITED PUG TOBll OFF P LAGS 4 &liD 1 CL Ell SECOID TI!E AREA
·Cl FOB !ID BIAICH IF *THE -AllD- BIT IS 01
*CK PO& ARD BR.UCH lP *THE PBEYIOOS -ll.D- BIT UlS 01
·Cl FOB &ID BIABCB 1F PIBST
·er. FOB HD BBUC H Ir
*THE PBEYlOOS -ltiD- BIT UAS DORK !OVI -·ERT DP - llTO llSG !OYE FIRST TiftE ll'l'O BESSAGE TUBB OR FIRST TIBE ENTERED PLAG
ADD SlftPLE TIRE TO CCOBTEB SUBTBACT 1 FROB SlftPL! COUIT
·CK FOB Ul D B~.UC H IP J.IllE ·OP DATA BAS NOT BEEi PBIRTED
~UBH OFF LIKE OF DATA PiIHTED PLAG
·BO CHAHGE OF LIHE LEVEL HAS
*BEEN PRUlTED, SO Cf: POii UD
*DBAHCH IF LISE WAS DP
·IIDICA~E THAT THE LillE *~AS EITHER UP OB ·JXHIK FOB THE ·WHOLE SAftPLE PERIOD
· · · ·
£88 LlC OBJECT CODE
1322 OE 00 12·9 12·9
1328 OE 00 1226 1226
1l2E OB 00 1295 1295
13311 OB 00 121D 12lD
1331 OE 00 1261 1261
13110 P2 81 OC
13"3 38 10 15113
..,
1347 co 10 1110
1348 CO 81 11 D5
1ll&F 3C 01 11E9
1353 JC 01 1220
13S7 3C 01 128P
1358 3C 01 1258
us1 3C o1 12119
1353 JC 01 1226
UH 3C 0 1 1295
1368 3C 01 12AD
1l&F JC 01 1261
1313 38 10 1543
1377 F2 10 OE
131& 3A 10 15"3
137E OC 01 11EB 1PB7
1384 co 87 11£0 1388 co 87 021&
138C 16
138D 30 00 1615
139~ ]!) Ff 1615
1395 co 0, 0111
1399 31 08 15'3
1.39D CO 87 117D
13!1 OC 01 144C 14E2 1317 OC 01 1380 1PB9 13AD 38 01 0000 1JB1 F2 10 SD 1lB4 OE 00 1llE 13AE 13BA OE 00 1418 1418 13CO OE 00 141E 141E 13C6 OE 00 142B 1428 13CC OE 00 1431 1431 13D~ OE O~ 1437 1437 13D8 CO 01 1.3&D
13DC JC 0 1 131E
13EO 3C 01 11118
UE4 3C 01 141!
13!8 JC 01 11631
13EC JC 01 1428
13PO 3C 01 un
13P4 38 80 1543
131'8 F2 10 SE
13PB 31 80 151U 13FF OC 01 1380 1PB7
14105 3o 01 15F1 1409 36 02 1SP1 HOD CO 87 13lD 1411 OC Ol 159D 159E 1411 78 01 03 11U.l F2 10 OD 141D 78 01 01 1420 F2 10 20 1423 JC .:"1 1598 1427 F2 81 11' 1421 78 01 01 1420 F2 90 13 1430 B8 01 03 1433 P2 90 OD
lDDB STIT SOURCE ST&TBIBST
138C
636
lLC 1014·1(1),IOIQ+1
·
6l7 638
639
&LC 1085+1(1),1015+1 ALC IOll6·1 (1) ,IOll6+1 &LC 1017+1 (1),1017+1
··*SBIPT ALL DSKS 1 POSI'l'lOI LBft
640
ll.C R019·1 (1) ,1089·1
6·1
.JI.
IIIT
642
'l'BI PLlGS2,FLAG13
64l
BT BBIT1
6QQ
B
101cg
645 IIIT !VI 101·1,1101 1
646
III 1011+1,1·01·
647
BYI 1012+1,1 1 01'
648
RYI 8013+1.1'01 1
6119
RY! 1014·1,1'01'
650
!VI 1015·1,1'01'
651
ftVI J01i6+1,11 01 1
652
!'fl 11ov1+1,1·01·
· · ·
*lit"l'f lLL B&SIS TO -01-
· · · ·
653
RYI 1019·1,11 01'
&54
TBI PLlGS2,PLA613
*Cit FOB llD BRAICB IP BOTH
1'55
.JT SB'l'OP
*BITES BATE BEEi CHECKED
656 657
SBI PLlGS2,PL&G13 ave 101+3,111s11c2>
%DBI 01 BOTS BITES CHECKED PLIG
·
&58
B
IBXT1
659 SETUP B
PRil'f
·SPlCB
660
DC U.1 1 16'
·OIL!
6&1
SIS IOBK,1'00'
662
CL'I IO&K,1 1 Pl''
663
!UIE BDC IT B
664
SBN PLAGS2,FLlG14
·GRAPHIC PBIITOD'f BOT DESillD TOBI OR GBlPBIC DISil&D FLlG
665
B
SCOPE
666 ·······································································
667 ·
SETUP TO PBI!IT DATA
666698 ·D·O·liE·X·T· · ·a·ve· · · · ·!O· ·V·E·I·T·+·3·, ·lD·.·l'·l' ·A·(·2·) · · · · · ·*·l.·it·lT-I·A·L·I·Z·E· ·D· ·l·'t·l · · · · · · · · · · · · · · · · · · · ·
670
nvc
671 THIS1 TBN
672
JT
TBIS1+J ,ll!IASlt2 (2) *-*1 .1 1 01' CIOBS1
*Cl roa AliD BllllCB IP THIS IS
*OIE OP TRB BI:XS 'ID BB COCKED
673 !ODii'? I.LC TBIS1+1(1),THIS1+1
*SBIPY I.LL
6'1ti
lLC ClOltS+1 (1) ,CKOBS·1
·!&SK BITS
675
lLC 811+1 (1) ,BIH1
·OIB POSITJOI
676
lLC ClB4+1(1),C~B4+1
*TO TBE
677
ll.C ClllD+1 (1),CIAID+1
*LEF.l'
678
ALC AIDCK+1(1),11DCl+1
&79
BIZ TBIS1
680
!YI TBIS1+1,1 1 01 1
681
87: CKOBS·1,x·o1·
·IBIT.IlLIZE
*lLL
682
1VI 84+1,x·o1·
*.IUSlS
683
ftYl CKAID+1,I'01 1
68"
'!YI ClB4+1,l'. 1 01 1
*TO ·OB!
685
!YI ANDC1+1,11 01 8
686
TBR PLlGS2,FL&G10
*CK POB AID BRllCH IF BOTI
687
JT
DOIB1
688
SBR PLlGS2,FLlG10
·B~ES BJ.YE BEEi CHECKED TD~ll Oj BOTB BYTES CHECKED PLIG
689
ave TRIS1+3,1RASK1(2)
690
1
FFFP,181
691
l
692
B
693 CKOBS1 flVC
69" CKOBS fBR
695
JT
696 B4
TBI
697
JT
698
!VI
FPPP,D2
THLS1
SETPli'Z,SETPft+1(11)
3(,.181) ,1'01' CKB4 1(,D1) ,.1·01 1
TIBBUP SBfP81'-2,l'P1 1
GO CHEC l BftB 1
CLBAB PBIIT SETUP 18£1 ·Cl FOi AJD BRAICB 1r -oa-
·BIT IS 01 *Cit FOR 1 ID BBAllCB IP PlEHOOS
· -oa- BIT WAS 01 SBTDP 00111 COIDlt'lO!f ~ElBl':'''Jts't
699
J
1no cKB't TBS
701
JP
702 CKABD 'rBI
103
JF
80,E:l'f 1 (,1R1) ,x·o1 11
TillEUP 3(,.182) ,1 1 01 11 TIIEOP
·CK FOB UD BRAICB H' PSEY!DC·
·BIT 15 OFI' ·CK FOR AID Bl&ICS
·IF 10'1' lLBAIS OP
Dl'U
1681170
!:'.: NO., 816651
1141Pi70 816678
29JU1170 816704
010CT70 816760
30.JUL 73 571121
15110'74
572239
0211.1.175 57226&
PBOG ID
PAGE
rr·-s'
6
DATE
16RlB70
EC 110. 816651
1UPR70 816678
29J0170 816704
010CT70
81&7&0
3o.JOL13 571121
1SIOY74 572239
02BU75 572266
NOG ID f l GE
l'"·(·'. .,,.
···
· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·
lB! ftlIITElllCE DllblOS'l'IC PBOG&ll
PlB'l' 10.
PAGE
2S8992J 7
IB! ~lIHXEIAICE DIIGIOSflC PAOGllB
PlRT 10. PUil
2S8992l 7l
FF48 S/3 llASTEB fl!lIIG U.lLISIS PBOGUft (llt'AP)
S/3 HSTEB TilUllG lUl.iSIS PBOGBAB (STAP)
BU LOC OBJECT CODE
lDDB St!T SOU&CB STATEBEl'l'
ERM LOC OOJ EC'l' CODE
ADDI S'f!IT SOURCE STATEUll'f
1436 88 01 01 11139 F2 90 07
14lC 3C F1 1595 11ao F2 87 06
1443 oc 06 1598 15!&
1449 OC 01 0000 159D 144P OF 01 144C 1SD8 1455 co 81 1384 116 39 3B 80 1543
1"5D D2 01 03 1CUt0 E2 02 03 1463 OH 00 1756 1SF4 1469 34 01 1615
1.. 6-D 34 02 1613 1471 C2 01 1602 1475 C2 02 175D 1479 7D FF 00 14' 7C F2 8 1 1 P 147F 7D F! 00
1cu2 1'2 81 23 1485 ijO 00 00 1756
1481 P2 84 OB 148D 4D 00 01 1756
1492 P2 82 OJ 11695 BC SC 00 1498 D2 01 02 149B 1'2 87 06
nu n2 01 01
1411 E2 02 OB 1414 co 87 1479 14A8 35 01 1615
11&AC l:i 02 1613
14B0 06 24 15!A 1SfiC
116 86 38 20 1543
70C! A'YDCI TBI
705
JF
706
ftVI
707
J
708 TIKEOP nvc
709 SOVEll' llVC.
710
SLC
711
B
712 DOIE1 SBF
713
LA
714
LA
715
lLC
7"16
ST
711
ST
718
LA
719 RAY02 Ll
720 8&105 CLI
721
JE
722
CLI
123
JE
724
CLC
725
.JU
726
CLC
727
JL
728
!!YI
72~ BA110 LA
730
J
731 BAl20 LA
712
Ll
733 BAI25 B
734 BAl30 L
735
L
736
AZ
737
TBI
1 (,182) ,I 1 01 1
·CK POI AID BRUCH IF
TUIEUP
*PREYIODS -AtlD- OIT llOT 01
SETPRT-8,1 1 P1'
SETUP OP COBDITIOI PillTODT
!OYEIT
S!TPRT-2.~18!(7)
!OV! TI!! PBIHTOUT IITO PillT ABBA
·-·,SE'l'PB'l'(11)
ROVE THIS BIT UlFO ll'l'O Piiil'l' &REA
~OVEIT·J,EI.EYE1(2}
DECBEBEBT PBIIT ABEl ADD8ESS
ftODIFI
FLlGS2,PLAG10
TOBI OFF FLAG 10
3(,li1),Zl1
3(,D2),IR2
LI llEC"l' ( 1) ,on
UCREBEll'f LlllUS UH coun
llOBK,181
SAYE IB 1
VOBK-2,U2
SA YB .IB2
LI!lTS,181
LOAD ADDBESS OP LlBlTS rABLB
DATA+10,XB2 0(,IB1).I·Fre
PBINT lREA F~B lSTBRlSI
LOOK FOR SEISE BIT SEPABl!OR
i -
BAl20
GO 'l'l HEIT BIT IIPO
0 ( 1 1'.81) ,J: 1 FEc 81130
LOOK FOB EllD OF IIPO GO TO EID
O(,D1) ,l.IllECT(1)
SEE IF J.IH IS UTHU LOU!& LUI'f
11110
GO 011 IP IOT
1(,ll1) ,LZIECT(1)
SEE IP LillE 15 llITHII OPPEi LlftIT
BlJ10
GO ON IF IDT
O(,ll2) ,1 1 5C 1
PDT ASTEBISI Iii PBllf AREA
2(,%81) ,J:B1
lliCB!BEIT LlRIT flBJ.E lDDl.!SS
BA 125
JORP TO BB UCB BICK
1(,IB1) ,ll1
llCIE!ERT Lil!lt tlBLE ADDRESS
11 (,l.12),182
llCBEftEIT PRINT lDDBESS
Rll05
BELOOP
80Bl,IB1
BESTOBE IB1
11oa1-2,u2
RESTORE 112
Tl8£(7) ,HISTIJ-22(5) lDD SlRPLE TIKI to COUITEB
PLlGS2,PL&G12
·CK ~OR lND BRllCB IF BElDllG
14BJ. P2 10 1E 14BD lA 20 1543 14C1 CO 87 021 l
ncs -.J
718 739 740
1"C5 741
.JT
LIIE
SBI PLlGS2,PLAG12
B
PBIIT
DC
U.1 1·3·
·HAS BEEll PBIBTED
TOBI 01 BElDIIG PIIITED PLlG ·PBllT
·BElDIIG
14C6 ZIP
11JC6 742
DC
IL1 1 79'
·
1"C7 1592
14Cd 743
o::
AL2 (LIST)
·
14C9 FFPP
UICI 744
DC :11.2 'l'Pf'f''
·
14CB CO 87 0211 14CF 01 14D0 58
745
B
PBIIT
14CP 746
DC
U.1 1 01 1
14DO 747 CT1
DC
IL1 1 881
·PBIH' fIBST *Liii 01' ·LIIE
14D1 1677
14D3 CO 81 0211 14D7 02
14D8 58 14D9 16CP 14DB CO 87 0211 111DP 01 11iEO 58
1481 17S::S 14£3 07 21 15EP 15D2
1i,c9 co 01 u11
UED CO 87 0211 141'1 16
111r2 co 81 0A11
14D2
14D7 14D8 1i&Dl
111DP 14EO 14E2
14F 1
10 4'8 CT11 l>C
lL2 (LIIE1)
·IHES
749
B
PIIl'l'
·PBIIT SECOID
750
DC
ll1'021
*LIIE OF
751 CT2
DC
IL1 1 881
·LIIE
752 CT22 DC U.2(LIIE2j
·llBES
75~ LI IE B
Pll IT
*PBDT
754
DC
XL1'01·
*l LIH
755 CTl
DC
IL1'88·
·OF
756 lDATA DC U.2(DlTl)
·DlTl
757
SZ CHECK1(·),D001(2)
758
BBZ
DO&EI~
759
B
PBIIT
·se&CI
760
DC
1.L1 1 16 1
·OILJ
761
B
BDCJITB
762 ·······································································
1H6 34 08 15111 14Fl 1C 00 1500 00 14PF Dl 00 00 HO:t 36 02 1F7P 1506 1F 00 15DC 00
763 ·
SET DP 1
776645 ········S·D··B·R·O·U·T·I·I·E·1·'·0··SA·V·~E··T·H·E··S·E·I·S·!··D·A~·A································
766 ·~······················c···················~·························*
767 ~!TUP1 ST
GETOOT+3,ARR
SAVE THE ARR FOB SOBBOUTIIE F.XIT
768 OYEB nvc OR+1,·-·(1,IR1)
!Off BITE OF DlTl INTO BASK
769 OB
SBi 0(,IB2),X1 00·
-OB- DlTl INTO ILL ZERO TABLE
770
A
D509,I82
lVD 509 TO 1Jt2
771 COllP SLC SlY:!F ,·-· (1,%.81)
COllPLEllEl'l' D&TA
1508 OC 00 1512 15DC 1511 BB 00 00 t5U JC l'P 1SOC 1518 36 02 1SPJ. 1>1C 1C 00 1522 01 1S21 Bl 00 00 1524 36 02 1F7F 152d 1F 00 1SDC 01 152D OC 00 1534 15DC 1533 BB 00 00 1536 JC FP 15DC 15 .H 36 02 15'1
153! co 87 0000
1542
150 00
1543
1544 404040110
15,7
15~8 4040404040404040 1556
1550 40404040404040
1557 "OC3DOD5C4E240!2 1582
155F CtDllD7DlC5Cij4060
1S!i1 40POPOPOFOF040D4
156F C9CJD9D6E2C5C340
1577 .E2C1 DllD7D3C540E3
157F C9D4C54B
15a3 4040D3C1E2E340Cl 1592
1588 D"D5C440404011040
1593 4040404040404040 1590
1598 404QIJO
1591 40
159£
159F B6CSD5!340C4D6E6 15A 7
1517 D5
1518 E6C5D5E340ll0E4D7 1580
15BO ~O
1581 E6C1E240C4D6E6D5 15B8
1589 EOC1E24040E4D740 15CO
15C 1 40E5C1D9C9C 1C2D3 1SC 9
1:jC9 C5
1SC.l FSFO
15CC POFOfOFOFOFOFl 15D3 F1FJ 15D5 0001
15CB 15D2 1504 1506
112 113 UD
l!VC lllD+1 (1),SUBF
SBF O( ,IB2) ,x· oo·
BOY! COBPLBBEl'l'ED DITA IITO llSI -llD- DITA llTO lLL OIES TABLE
174 175
BU SATEF,!'PP1
A
D508,H2
BE-UU'.IlLIZI
SDBTBACT 508 FOB IE.IT -oa- TlBLB ADD
176 Oil'B22 HC OB.22+1, 1 (1,181)
llOYE BITE OF DATA II~ BASK
111 OB22 SBB O(,ll2) ,.1·00·
-oa- DATA 1111'0 ALL ZERO 'l'ABLB
118
A
D509.,.IB2
.ADD 5 09 TO lll2
179 COllP22 SLC SUBF, 1 (1.,111)
CORPLE!Ell'l' DlTl
180
BVC
781 llD22 SBP
1s2
an
783
l
UD22+1 (1) ,SAYEP
._.oc,n2> ,x·oo·
SlVBP,J:1 PP' D508,IB2
BOYE COllPLIUftED D.&1'1 11!'0 1151 -&11>- DATA Il'l'O ALL Ol!S 'l'lBLI
RE-Bll!IlLIZ!!
SUBTRACT 508 FOB IBIT -oa- TlBLB ADD
784 GE"t'OOT B
785 ·
* 786 ·~······$··················o······························*·*,..********
181
PIOGBAR IJDIClTOR FLAGS
788 ·······································································
789 PLIGS DC
790 * PLlGO
791 · PL1G1
792 793
·
*
FL1G2 PLlGl
794 * l'LlG4
795 796
· *
PL1G5 PLlG6
U..1 1 0 1
BIT 0BIT 1-BALT lPTEB LAST COIT&OL ClBD BIT 2BIT .3-.FIRST SABPLI CRID !lECDTED PCB PIIBE BIT 4-PIIST TIIE B.lS BEEi EITERED II TlBDLlB TABLE
BIT 5-
BIT 6-l LIBE OP DlTl BAS BEE; P&IJITED
7'17 · FUG1
BIT 7-
798 ·
* 799 FLl.GS2 DC
800 PLlG10
ll1'0 1 BIT 0-BJTES 1 ll~ 2 BllB B!EI CBECIBD
801 802
· *
FLIG1, PLAG12
803 * PLAG13
BIT i-snc-S&BP WlftED BIT 2-BEADIIG BAS BEEi PBIITBD BIT .3-
804 · FLlG1~
BIT 4-
~05 · FLlG15
806 * PLlG16
BI!' SBIT 6-
807 · .FLlG17
BIT 7-
808 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..
809 ·
ftESSAGES
810 ·······································································
811 u n- DC
CIA.
812 CftlD DC
812
813 HISTBr DC
813
813
813
813
813
814 LlST DC
814
815 SETPRT DC
815
816
DC
817 UP
DC
817
818 DOH DC
a1e
CL 151 CL411 1 CHDS SAIPUD - 00000 llICIOSEC SllPLE flll.'
CL161 UST CUD
CL 11'
·
a.1· fl CL9 ·aBll'l' 0081'
CL9 'IEft OP ·
lUl II IBICB TO SBrDP Pllft llPO
819 lflSOP DC 820 ii AS DI DC 821 YlRY DC
C.L8 'IAS DOVl1 CL8 1 li&S DP ' CL9 1 VAIU ABLE'
..··.. 821
822
.......................................................................
823 ·
COWSTA"TS
.
824 825
D·S·O·····D·C··~··D··L2··1 5·0··1 ········
·····································
82: D001 DC
DL7'0000001 8
827 P1PO DC
DL21 101
828 TE.I
DC
.11.2 8 0001 1
DUE
16Ul70
EC 10. 816651
111.&PB70
816678
29.JDl70 816704'
010CT70 816760
l0.JDL73 577121
15110¥74 572239
02111175 572266
PBOG ID PAGE
F.Flf-8
1
DU'E
1b!IAR70
EC IOo 816651.
HllPi10 816678
29.10170 816704
010C'l'70 816760
3D.JUL 7J 577121
028&175 572266
PIOG XJ> PlGE
lB! BAIITElllCE DilGIOSTIC PBOGl18
PAIT 10. PAGE
2589923 , 188 BlllTBHllC! Dl&GIOSTIC PBOGl&I
8 ·
PlBT 10. 258t92l
UGI
81
Ff'B S/3 !lSTEB Til'lillG UULISIS PifOGBlB .(l'1T&P)
,, rPll8 S/J !ASTER TillIIG AllL!S.IS PBOGlll (RT.AP)
Eii LlC OBJECT CODE
lDDR STBT SOUBCE sr&TEBlllT
' ERi LOC OBJECT CODE
&DOR STBT SOOICB STlTJUIBIT
·
1SD7 OOOB 1509 19B3 1SDB PPPF 15DD 40~040401iG40ifu 15EU. 40 4040401&04040 15EB 4040404040 15f'O PPPP 15P2 0000 1514 01 15PS CO 87 OB8D 15P9 PE04 15PB POPOP2 15PE 2380
Hoo oooono
160J JO
1604 16(.'7 1601 1616 1&11 161!
1622
1678 16U 16DO
1602
15D8 829 ELEYEI DC
XJ.2 1 0008'
l
1501 830 D6579 DC i5DC 831 SAYEP DC 15E3 832 BLUK DC
JJ.21 6579·
XJ.2 1 PPFP 1 a.7·
.·..
15El 833 TiftE DC 15EP 834 CHBCI 1 DC
CL7 1 CL5 1
IDBBEI or SlSPl.IS
..
15P1 835 rrrr DC XL2'PPPP1
41
15F3 836 ZERO DC u.2·0·
15P4 831 on DC
838 101'1 B
IL1 1 01'
ltB!'ST
.~..
15Pl 839 D508 DC 15PD 840 D002 DC
IL2 'PEO· I OL31 002'
.,..
.. 15PP 841 TV0380 DC
IL2 1 2380 ·
~
'1602 842 DELAY DC n1·000·
1603
843 844 845
·F·L······D·BC·ES·E·B·V·E·ILO·1·S··~J·OO·B·' ·A·G·E··A·R·EA············································
..,.
1606
846
847
·S·l!·P·L·B···D·S·····C·L·3····················I·D·I·D··~··O·P··S*AB·P·L·E·S··T·O··B·E··T··A·l·E·I·······
1609 1615 1619
161D 1621
848 IDllBEB DS
en 10!?1 DS
850 DELAY1 DS 851 DELU2 DS 852 DELU3 DS
CI.3 a.12
cu
ac.u·
1677 853 L:llE1 DS CL86
1679 854
DS CL2
16CF 855 LI.BE2 DS a.86
· 16D1 856
DS CL2
16D2 857 LillITS EQO
16PB 858
DS
CIA2
· 16FC 859 DATPLD EQO
1Fl.E 1100
1FBO 1621
1PB2 1619
1FB· 11)1
1PB6 1P70
1188 1171
1FBA 01'3B
1PBC 1PBB
1c1rs0c7
1FCO 175D
1FC2 1603
1PC6'
UCB
1FC9
1FCl oc 03 1PC7 1714
1PDO oc 01 0!88 1PED
1PD6 1PDC
oocc
00 00
1FC9
1PC8
1726
1713
1FE2 1FE8
08
co
03 87
0!95 0848
1P23
1FEC 1PBP
1PBE 1FC4
1PAF 1FB1 1FB3 1PB5
1FB7
1PB9 1FBB 1PBO 1FBP 1PC1 1FC3
1FCll 1PC7 1PC8 1FC9
1PBD
1P!F
895 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..
889976 ·········A·D·D·R·E·S·S··C·O·I·S·T·l·lT·S················································
e98 LDRI> DC 89~ ALIRE1 DC ~00 ALIBE2 DC
AL2 (llDPD) lL2 (L.IIE1-86)
AL2(U:IE2-86)
901 AffOll DC
AL2 (809)
902 l!ASK1 DC AL2(BASl1)
903 lll&Sl2 DC
l.L2 (IUSK2)
904 AT.IO DC
AL2 (TIOCID)
905 IBBiOll DC
AL2 (BBBOB)
906 lHOllT DC AL2(10llIT)
901 DAT l 1 DC
AL 2 (DATA+ 10)
990098 l.P..L.....D.C.....lL.2..(.P.L.) ...................................................
910 911
·· ·······T·H·IoS ·l·R·E··l ·C·O··H·T·U·R·S···D·A·T·l·W··H·IC·H··I·I·.L·L··O·l·lL·Y··B·E···U·SE·D···W·I·TH··A··D··I·S·I··T·A·P·
912 BDISK EQD *
913 DISI DS Cl.4
914 BACK DS
915 OPISIT DS 916 tDDISK !VC
0.1
CL1 DISl,DATFLD+24(4)
917
llVC LET5·3.CDIS1t(2)
918
ftYC OPISIT,DlTFLD+42(1)
919
BYC BlCl,DlfFLD·23(1)
920
BBi T.IOOHB+1,BDPD+l5
PIX POB 101d
921
B
n2 CDISI DC
LDTHER lL2 (ADISI)
923 lDISK DC
AJ.2 (BDISI)
999222456
·*.·.·.·.·.·.·.·.E·Q.·U.·.A·.T·.E*S..·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·
·
.
·
.
·
.
··
..
···
...
!' '
UPC
111'8 1C:P2 1Cfl
1Cl'5
1EBP
1POO
1f00
1PftU 1r10 1r11 1Pl2 1f76 1P7A 1F71 01rli
1P80 oc 01 0!75 1Pl 1
1186 oc 01 0£81' 1Pl5
1f8C oc 01 0188 1PA3
1192 1f98
lCC?C
03 OD
OEBC OE2P
1rlD
119C CO 87 08118
1lP7 1lP8 1CP1 1cr2 1cr· 1CF5 11EE 1EEP
1POO 1rsr 1P60 11'6P 1P70 1171 1F75 1P79 1P7D H7P
860
DS
861 011'.&B EQO
862
DS
·4CL255
2Ct25l
863
DS
860 SS
DS
865 AIDrlB EQO
866
DS
a.1
·CL2
2CL253
SJIC-SABP COUIT liEl
867
DS a.1
868
868
868
· 869
OBG .1'1P00 1
1!70 ROl'D EQO
871
DS
872 CBI.OS EQO
873
DS
·CL96
a.16
*COllllU D HD/Oi *DELA! TABLB
874 lllSlt1 DS
CL1
875 llASl2 DS CL1
876 BOLT DS cu
877 PASSES DS
878 'flRES DS 879 D509 DC
aCL.··
.IL2'509'
SPECIFIED IDBBEB or SA8PLIIGS
I
880 881
·*······T··H·IS···A·R·EA···C·O·I·T·A·I·IS···D·A·.T·A··W·B·I·C·9··M·I·L·L··O·M·L·I··B·E··U·S·E·D··W·I·T·H··P·R~IM··T·E·R··T·A·P1j
882 883
L·D··P·R·IT···8V·C·····I.·E·T·3·+·3·,·F·O·B·ft·(·2·) ·········R·U·S·T··B·!··A·T··lD··D·R··-·1·r·e·o·-·*············
881i
!VC LET4 +J, I Ill GE (2)
885
SVC LET5+3,PTAREl (2)
}
886
llYC TIOHO+l; HTBS!+l (If)
887
RY .l BAIB!,1 5 0D'
888
B
LDT BEil
I
0001
0002 0008
020D 0211 021E 0222 0226 0221 0232 0080 0040
0020 0010
0040 0010
0008 0002 0001 0080
0040 0020 0010 0008 0004 1753
1753
1756 0010
927 lB1
B.QD
928 IR2 BQD
929 ABB EQU
930 SBYTES BQD
931 PBIIT EQU
932 UHPlCK !QU
933 HALT EQO
934 PACI BQU
935 LOAD EQU
936 DTlB EQO
937 s1s12e EQD
938 SH SW 29 IQ 0
939 SVSl2l BQD
940 SMSW 2B EQU
9111 PLlG1 BQU
942 PLAG3 EQO
943 PLlG4 EQD
9411 PLiG6 !QD
945 PUG7 EQU
946 PLlG10 !QO
947 PLlG11 BQD
948 FLlG12 EQD
949 FUG1l EQD
950 rLlG14 EQO
951 FLlG15 BQD
952 ElPAHD EQO
953 DAU EQD
95G LIIEC! EQD 955 IEIBBD EQU
1
2
1·oa· X' 2001 1 1211 1 l'21B' 1 1222' 11 2261 1'2211 11 2321 1·eo·
11 '60'
1 1 20'
I' 10' 1'40' 11 101 11 08 1 11 02' 1'01' 11 801 l'G0 1 11 20' 1 1 10'
11 08' 1'04 1 DAT.PLD·87
DlTFL~87
DlTPLD+90 1· 10.
DEi ADDI or UJBOHD HD 2956
995567 * .ziSliST2llE8P- Pll 11' OIL! LIST S&llPLB IIPOBU'fXOI 01 SDTOS PROB OB IOT
1Fl0 15BD 11&2 1l'l7 1PU 1PA9
1PA1 869 POl!l!I DC 1P13 890 PTH!l DC 1Fl5 891 IHGE DC
l.1.2 (IASDl-3) AL2(il'E1C)
.lL2 (lUOO)
I
958 * 1£1Dle
959 960 ·
TIBP SSIS 29 -
PIIITOUT 11
TIBUL&B roaa.
1FA6 08'1C 1FA8 0800
1Pl7 892 AT!7C DC 1Pl9 893 11'100 DC
XL2'81C 1 U.} 1800 I
99661~ · SSiSTR28i!P- BIPASS IIITIAL IO·-SABPLE EXECOTIOJ OF SlBPLE COBllllD
1FU C1 E6 0189
894 PB1'8SI TIO T.IOTI0, 1 1 £6'
DUE
16UB70
EC liOa 816651
111APB70 8166'18
29.JUl70 819704
010CT70 816760
JOJUL73
57"11~1
15IOl'U
572239
0251175
572266
PBOG ID P&GZ
Pf'4-8 f
8 . I
DUE
1611ll70
£C 10. 816651
1:UPR70 816618
29JUl70 8161011
010CT10 816760
30.JDL7l 517121
1SSOY74 572219
0211&175
s1n66
PIOG ID PlGZ
PF4·8 8&
l
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
l
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
· -.
· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·
ltift ftlll'l'ElllCE DllGIOSTIC PIOGllB
PlBr 10·.. 2589923
PlGI
9
!"P49 S/3 BISTER TlftllG lllL?SIS PIOG811 (llTIP)
.. EBB LDC OBJICT CODE
I
' · ~
,.
6-
·~
lDDP STBT SOUICB STlt'llllT
rrrr
963 · -1rco-
964
TIEP
965 · P9 HILT - SlBPLIIG MlS 101' PEP'OBIED DUE TO ll Ea:oa.
966
TIEP
967 · Pl HILT - IP SPECIFIED II 82, TO ALLOW CE IITEIYEITIOI B!FOH TEST
968 · IS P EBPDl!ID.
969
TBEP
970 · rr HlLT - TRI PBOGRlll IS IOI IElDI 1'0 BlYB l -TAP- LOlDED.
971
TREP
972 · -J'P- IM 'l'HE DJ.Tl SllITCBES PllOI !'O TH COllPLEl'IOI OF THE TAIULH
973 · PBill'l'OOT.
9711 975 ·
or HEP iILL ClUS! A SCOPE TJPE PIIITOUT
THI Slftl DATA.
976
TBEP
977 · -H- IN 'l'BE LEPT lDDBESS SllTCBBS, IBIJI TB! -'Fi'- 01 -P9- BALT IS
978 · RESET, ilLL C&DSI
979
'l'BEP
980 ·
l BE-llBCDTIOI OP TSE PREYIODSLI ~OIDBD T&P.
981
TBEP
982 THE IHDIClTED UP 01 DOVI COIDITIOI UPEBS TO TBE LOGIC LEJIL, IOT
·· 983 THE BIT COIDil'lOI.
984
TiEP
985 · -TAP- DECltS lllLL BE LOADED raoa l'HE PllBlll BOPPER.
986
BID
"i.,.
r
\,,·
-c
t
r~·-
DUI E: 10.
1t>lll70 816651
14APl70 816678
21.10170 81670·
010CT70 816760
lo.JUL 73 577121
151017· 572239
0211175 572266
PIOG ID
PlGI
P.Pll-8 9
IDB BlIITElllCE DIIGIOSTIC PBOGl.t.8
Pllt' 10. 2589923
P&GI
91
rru S/l llSTBB TISllG llALISIS PROGBl.11 (!TIP)
CIOSS-BEl'BIEICE
.- SU8DL t' LEI UI.OB
- U1
l 003
_ lUO l 003
112 l 003
- lll
l 003
.~ lU
l 003
ll5
A 003
U6 I 003
ll7
A 003
U8 I 003
U9
A 003
lDUl A 002
UD I 003
lDISK l 002
A!BIOI A 002
&PL
l 002
UOtl A 002
lLIIE1 I 002
lLllE2 l 002
lLLlll I 006
lLLODT A 006
UlSl 1 A 002
lUSJt2 & 002
lllD a 003
lliDCk & 003
lHDTlB l 001
lllD22 l 003
lHD33 l 003
UJH l 002
lilil
c 001
lTEOO l 002
&H1C l 002
A?IC> l 002
Bl:K l 001
BICl'.1 l 004
8l:lt2 l 004
BlCK3 l 004
881
l 005
8810 l 005
882
l 005
883
l 005
Btil6
l 005
BBS
l 005
Bai
l 005
887
l 005
888
l 005
889
l 005
BDlSlt l 001
BLllX l 007
1029 10PO 10110 1059 1070 1087 109!' 1086 10Cl 10DF 14E1 106· 1PIP 1FBD 1FC3 11'85 1P81 1F83 1120 11115 1PB7 1FB9 1511 1430 1CP5 1533 1098 1FBP 0008 1Pl9 1Fl7 1PB8 1PC8 OP88 OF68 OFllB 102C 10Pl 10113 1GSC 1073 1081 1012 1089 10CD 10!2 1PCll 15!3
DEPI
ouo
0490 OU6
0·52 0458 04611 0470 0117& 0481 01186 0756 0455 0923 0905 0908 0901 0899 0900 0502 0512 0902 0903 0773 0704 0865 0781
0·68 0906 0929 0893 0892 09011 091' 0391 0381 0371 OU1 0491 0'47 0·53 0·59 0'65 0471 0'77 0"82 0'87 0912 0832
BIPISS l 004
84
l 003
ClBD l 004
CliD2 l 004
CUD14 l oo..
C&BDS l 00'6
cu l 004
CC1
l 003
CC10 l 003
c:2 l 003
CCl
l 003
c:· l 003
ccs l 003
CC6
l 003
CC7 l 003
CC8 I 003
CC9
l 003
0£46 1111 D 0&90
O&E6
OU7 0101 11611 1031 10F8 1048 1051 1078 108P 1017 1081 1002 10!7
0298 0696 0068 0106 0078 0096 0519 04'2 0492
one
0454 0460 0466 0472 0478 0483
0"88
IBPHBICP.S
0232· 0241· 0233· 023·· 0215$ 0236· 023.,.
0238· 0239· 01185
02·0· 0669 01150· 0922 0511 0130 0508 0259 0260 01199 0503 0507 0279 0657 0689 02611 l\538 0670 0772· 0678 067~ 0685* 0033· 0303 0303· 0304 0780·
0·67· 025· 0767 0891 0890 0153 0346 0919· 0156 01U 0139 02·2· 0251· 02U· 024'· 02·5· 02·6· 0247· 02U· 0249· 0250· 0923 0030 0031 012.. 0134 0597 02911 0675 067~ 0682* 0054 0069 0071 0085 0515 0441· 0491· 01147·
0·53· 0459· 0465· 0471· 0477· 0482· OU7·
0304· 0513 0142 0160
051l· 0529 0169 0190
0554 0192
0557 0252
0285
051'
DAt'E
16Hll70
IC 10. 816lt51
1'lPa70 816678
29.10170 816704
010CT70 816760
l0JOL7l 577121
1SHWJe
S122l9
028H75 572266
PIOG ID PlGI
~·
"
,,._,
91
1·
IBft BlIITEllHCE DllGIOS?IC PBOGB&B
I rru
~~
S/3 lllSTER UllIIG lJALISIS PiOGBll (llTlP) CIOSS-UPllllCI
~ SlllBOJ. ! Ltl YlLOE DEPI
BIPllBICES
Plft 10. P l GB
2589923 10
CDISK l 002
;l. CHECK. 1 l 005
CK.AID l 003
,.· CK.B4 l 003
l, CUE l 004
CK.JBS l 003
, CKOIS1 l 006
l CKO
l 004
CH 1 l OOf»
, C~CJ 11 l 004
CK42 l 006
CLCCOB l 005
CLElB l 006
CSHD l 015
C!MDS l 001
CO!P l 005
COBP22 l 005
CO!P3 l 005
COftP33 l 005
CORD l 004
COM
l 004
cr1 CT11
er 2
l 001
l ooi l oo 1
~t22 l 002
CTJ
A 001
Ol
l 002
DUA A 001
DATl1 l u02
DlfFLD l 001
1FED 15EF 1430 1421 OlCO 1417 1411
OACD 0888 0Bl2 0B7E 0E98
ODDO 1S56 1P60 1506 1528 1048 1082 1302 0117 11100 111D2 1"D8 1401 14EO
0153 1753 1PC1 16PC
0922 08311 0702 0700 0088 06911 069] 0092 0156 0150 0142 0311 0160 0812 0872 0771 0719 01149 0463 0628 0029 01111 0748 0751 0752 0755
oou
0953 0907
0~59
DD1
l 003
DELU l 003
DELlJ1 l 004
DELlt 2 l 004
DELUJ l 004
DELll7 l 006
DUG ! 004
DISK A 004
DL!1 A 004
DOllEU l 006
D::Jt!U l 004
00111 l 009
D01i11 l 006
DOU2 A 006
D001 A 007
1020 1602 1619 1610 1621
OEB4 1120 1PC7
OEC8 1311 1459 1580 1269 12FC 15D2
0438
oa.2
0850 0851 0852 0326 0506 0913 0330 0669 0712 0818 0589 0627 0826
D002 l 003 DSO A 002 D508 & 002 D509 l 002 D6579 l 002
ELf.YEI A 002 EiiOB l 004
EIPllD l 001
15PD 15CB ·1sr1 1P7F 1501 1508 1107 1753
0840 0825 0839 0879 0830 0829 0496 0952
rrrr l 002
PPllB A 001 F:tl'Tl 1 l C06 rrrr12 A C06
FUSB1 i 004
PliST l 006
FlBSf1 l 004
151'1 0100 OC9B OCB6
10DB 1207
OA7E
0835 0005 0198 0207 0485 0565 0062
0917
0353· 0406· 0410· 0413· 0428· 0489· 0530· 0562· 0616· 0757· 0677 0677· 068~
0676 0676· 0684· 0695
0036
067· 0674· 0681·
0672
0089
0151
0143
0135
0315
0154
0066·
0065 030~
0118·
018··
0180*
0186·
0626
OS18
0261· 0269·
0259· 0267· 05"'6
0262· 0270·
0260· 0268· 05·5
0263· 021i·
0041·
0546· OS47 0547· 0719 0756 0907
0111
0120 0159 0177 0198 0954
0126 0164 0178 0199
0127 0165 0179 0207
0131 0166 0180 0208
0132 0133 0137 0167 0171· 0172 0181· 0182 0183 0215 0354 0408
0138 0146 0172· 0173 0184 0185 0916 0918
0147 0174 0186 0919
01~2
0175 0187 09S2
01S8 0176 0194 0953
0230· oq,31·
0326· 0332·
0157· 0224 0393
01115· 0382
0136· 0372
0328
0313 0316
0339· 0346· 0916·
0331
0532 OS34 0758
0687
0589 0610
0576
0624
0162 0224 0327 0358 0373 0383 0394 0406 0413 0421 0424 0428
0484 0489 0500 0502 0526 0563 0610 C757
0223
0161
0456 0474 0775 0783
04·5 0462 0770 0~78
0329
0267 0268 0269 0270 0271. 0272 0567 0568 0710
01615 0905
05"8· 0549· 0564· 056~ 0566· 0577· 0518· OS82* 0!;83· 0589· 0590· 0594
0597· 0610· 0611· 0625* 0627· 0631
0130 0690 0691
0191 0193 01180 054·· 0567· 0059
DUE
16111870
EC 10. 816651
U&P870 816678
29JDl70 8167011
010CT10 816760
30.JOL 73 577121
1510'14 572239
02Blr1S 572266
PBOG ID PAGE
IB!I lllIBTEll·CE DllGIOSTIC PiOGllll
PAIT 10. P&GB
2589'23 101
!'PO S/3 lllSTEB TJ:llU& lllLJSIS PBOGllll (llTU')
CIOSS-UPBIBICI
Sl!BOL T LEI tlLOE DIFI
llPBU~CES
Pll
l 006 OC!9 0221
FL
A 001 1603 08163
FLAGS l 001 15·2 0789
FLliS2 l 001 1543 0199
FLlG1 C 001
FLlG10 C 001
FLlG11 C 001
FL1G12 C 001
PLlG13 C 001
FLlG1' C 001
PLlG1S C 001
PLl33 C 00~
FLlGll C 001
FLlG& C 001
PLAG7 C 001
FORft l 002
F1FO l 002
GETOI l 006
GElOOT l 004
HlLr C 001
BISfBI l 044
HOV
l ~O&
lftlGE l 002
IIIT l 004
11IT2 l 003
IS"FCD l 004
JD!IPir l OOb
ttarsr i oo~
EEl5BD C 001
LlST l 016
LlTEB l 006
LDDISI l 006
LDPiHT l 006
LDID l 002
LDIHES l 006
LEFT1 l 004
LEFT2 l 004
LETS A 006
LETSGO l 004
LEf l l 004
LEU A 004
LET5 l 004
LISITS l 001
Lil!IE l 004
LIN ECT l 001
L1ME1 A 086
LIIE2 A 086
LOlD C 001
L>Git l 004
!AMY l 004
!llSlt 1 A 001
!ASl\2 A 001
HAIBE l 006
ftODIP I A 006
5JD1 l 006
ftJYEIT l 006
!ULT A 004
IEYEB l 004
IEITCD l 004
IElTft l 004
IEl~; l 00'
HODJ.11 l 005
1ar1 A 004
IDM l 004
0040 0080 0040 0020 0110
0008 0004 0010 0008 0002 0001 1111 1504 OD11 153£ 0222 1582 113P 1PA5
13~F
0141 0!38 OCE3 OEBD 0010 1592 0Dl7 1PCl 1reo 1PlF 0848 OCIP OCCA 0!50 CE14 0!72
0£81 OE8S 16D2
14DB 1756 1677 16CF 0221 1275 1547 1F70 1F71 OE2F
13 8'f 130& 1449
~F75
0&84 OE68 OA57 11!0 OE!1 15FS 11£8
09111 0946 0947 0948 09119 0950 0951 0942 0943 09U 091lS 0889 0827 0230 07811 0933 0813 0511 0891 06'5 0299 0293 0220 0314 0955 08111
0259 0916 0883
0898
0131 02011 0213 0301 0280 0307 0311 0312 0857 0753 09511 0853 0855 0935 0591 0811 08711 0875 0290 0673 0632 0709 0876 0081t 0305 001'6 0556 0337 0838 0558
0181 0196 0202 0205 0211 02111 0218 0908 0088 0255· 0258· 02S.* 03118 OJSO- 0573
0612· 0618 0620· 0029· 0112· 0115* 0276 0271* 01198 0531 0688· 0712· 0737 0739· 0088 0255 0258 0686 0688 0712 0115 0"98 0131 0739 0642 06511 0656 0531 06611 0112 0276 0278 0348 0350 0573 0604t 0612 ~595 0618 0620 0575 0606 0883 0'79 0227 0767· 0027 00&0 0090 0108 0516 0160· 0161· 0548 0615 0736
0901 08811 0641 0296 0288 0216 0838
0575 06112
0595· 0596· 0604 0~06· 0654 0656· 06611· 0686
0522 0542 0743
0257
0125 0123 0301 03f1 0312 0128 0888 0921
0200 0209 0291 0097 0092 0131· 0308 0310· 0342 0883· 0130· 0132· 0309 0884· 0133· 0885* 0917· 0101 0718
0738 0527· 0715· 07i~ 0726 0030· 0076· 0748 0899 0031· 0083· 0752 0900 0042 0046 0579 0585 0587
0285· 0358* 05111
0176· 0902 0182· 0903 0887·
0711 0559 0621 0669· 0699 0707 0710· 0110· 0106 0427 009 0067 0077 0079
0151 osori
0040 ~097 0102 0277 0643 OU58
0320 0290 0538· 0555 0632 0632· 0645* 0657·
DlfE
161lB70
EC 10. 816651
1"1PB70 816678
29JH70 816704
010CT70 816760
30.'RJl.73 577121
15IOY71i 572239
0211&175 572266
HOG ID
PAGE
·
·
·
·
·
·
·
·
·
·
· i·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·~~:.::."'
IBft Bll17EIAICI DllGIOSTIC PIOGmAI
Pll! 10. 258992.3
PAGE
11
IBI llllTllllCI DXAGIOSTIC PIOGlll
Pitt 10. - 2!>89923
Pl&E
111
PP48 S/3 lllSTEB TIIIIG llALISIS PIOGIAI (lfTlP)
PP'48 S/3 BISTER TXBIIG ll&LYSIS PBOGIH (IT&P)
c1rss-11Pn11c1
CIOSS·UPJ:IBICI
. SUBOL r LEI YlLOE DEPli
lll'EBBICBS
IOillT i. 004
'! IOICIC A 004
llOIJ DO l 004
NOil l 003
:" NOW 10 l 004
I01i2 l 003
110113 l 003
HOH l 003
1101115 l 003
110116 l 003
ti()i 7 l 003
10i8 l 003
10i9 l 003
illUltBE.li l 003
OHE l 001
OHLl1 l 003
00
l 003
OPlSir l 001
oa
l 003
OUGIB l 004
OR1'l6 l 001
oa22 l 003
O!Ul l 003
our;: l 004
OYEB l 005
OYEB22 l 005
OY£i3 l 005
OV Ei3l l cos Pl:K c 001
P1:nr l 004
u:1:1 l 006
PASSES l 0016
PIHIT c 001
PUBSI l 004
PrUEl l OO:l
Bl 102 l 0011
anos l 003
~U10 l 003
au20 l 003
RU25 l 004
RUJO l 004
RD:lfi l 004
IDFD l 001
orsc
11D5 OFBD 121F 129E 128E 1251 1248 1225 129lt 12lC 12ED 14:60 1609 15n 0112 1039 1PC9 14 FF
ODOD
11F8 1521 1078 OFDC 14Fl 151C 1034 1068 0226 08111
OBBE 1Pl9 021l 1Pll 1FA3 1475 1479 1498
1"9E
14"' 1418 0111 1POO
0392 0553 0408 0569 0604 0599 0584 0580 0571 0601 0608 062l 0586 0848 0831 0349 004 0915 0769 0229 0861 0777 0461 0415 0768 0776 OU3 01157 09311 0117 0157 0877 0931 0894 0890 0719 0720 0729 0131 0733 0731J 0027 0810
i
! ;
l
I
IELOlD l 004 OEC'6 0329 RT01 l 001 OlOD 002·
t
!
Sl!IP l 005 OBPB 0344 SlBPLE l 003 1606 08117 SUEF l 002 15DC . 0831
l ,
SlYEU l 004 OFCB 0411 SDITE5 C 001 020D 0930
I
SC:»PE l 006 117D 0526
SECD l 006 121r 0578
S.EC.01 l 006 120D 0566
SECOID l 006 OlP3 0110
SEISE1 l 003 01'82 0389
SUSE2 I 003 OF62 0379
SEISU l 003 01112 0369
.._ S£1'1BT I 011 1591> 0815
SEfSE:. I 006 OBD6 0161
SETUP 1 004 1388 0659
SE?OP1 l 004 14P6 0767
'.,
DATE
1bllll70
EC 10. 816651
111ait111
.-,'117·
0226· 0229· 0906
064Q
01930 0509
0617 0633 06ll* 06'6*
0609
0581 063ti 06lll· 0647·
0635 0635· 0648·
0570 0636 1)636· 06119·
Of.22 0637 0637· 0650·
0638 0638· 0651·
0500 0639 0639· 0652·
0622·
0640 06110· 0653·
0222· 0223· 0353 0410
0215 0326 OJ32 0524 0'715
0289· 0295· 0298·
041a3*
0339 0918·
0768·
0225
0032· 0301 0301· 0302 0302· OJSS 0409 0512 0512· 0528 0553 0556
0776·
0·57·
0508· 0511·
0177·
0183·
0179·
0185*
0062 0098 0117
011'
0148
0286· 0502·
00'9 0086 0539 0560 Ci591 0628 0659 0740 07'5 0749 075.l 0759
0886
0885
0111· 0271·
073.J
0725 0727
0721
0730
0723
0663 0761
0048* 0052 0053 0064 0066 0068 0070 0076 0078 0083 00811 0096
0100 0110 0113 0116 0119 0122 0124 0134 0136 0142 0145 0150
0157 0162· 0168 0169 0190 n92 0194· 0195· 0198· 0201· 0204. 0207·
0210· 0213· 0221 0222 0230 0231 0242 02113 02"4 0245 02·6 02117
0248 024~ 0250 0251 02.5-2..,.., 0256 0898 0920
0333
0018
0318
0221· 0530 0562
ou9· o·iso OQ63· 0"61 011169· Ci.tin· ~'1 '11. 0772 0774· 0779· 0780 0782·
0414 0058
0106
029l
0·96
o·so·,
O~ll
0665
0574 0603
054~ 0568··
0107
0159· 0287 Ql.9*.jl'
OH7· Ol81
0138· 0371
0306· 0·21· 0424· O·Z7· 0·39· °'l<f* Q.cut4· 0~93 0693· 06~8· 0706* 0708·
0709
016J
0655
0.11
29.JUl?O 816704
.d1ocno
1:'6-760
l0JUL73 517121
15101'1' 572239
0211175 572266
PROG ID PlGE
SfllSOL r Lii ULOE DIPI
sttun I 006
SEU .l 004
SHlPI' l 006
SIS l 004
SMSll2l C 001
SIS12B C 001
SNSll28 C 001
SISl29 C Ci01
SRS1 l 003
SIS2 l OOJ
SHSl l 003
SllSll l 003
SllSS l oo::.
SIS6 l 003
SS
l 002
srur l 006
STOP l 006
StJB1 l 006
5082 l 006
SIJB.~ l 006
SUC1 l 003
SUIC2 l 003
SllCJ l OOJ
ru1 l 004
HBJ l 004
?ABS l 004
?El
l 002
?HISE l 004
?llIS1 l 004
rlll.E l 001
0880 0098 ODPO 0149
0020 0010 0080
OO·O 1015 1018
oru
OPlD OPEO
oru
1CP4 OP1D Ol5C 0P96 0P72 0P52
ores
0P65 OPltS 1103 OPB9 100D 15D6 0DC5 13lD 15El
0145 0255 0273 00'1 0939 0940
0937 0938 0'35 006 0 ..03 0004 Oll19 0420 0864 0353 0048 OJn
0383 037.3 0390 0380 0370 0495 0407 0429 0828 0265 0671 0833
UllES l 0011
TlftBDP l 006
TIOCID 1 0011
?1001£ l 0011
TIOtllO l OOIJ
HHU l 003
?10380 l 002
UHDBR l 006
DID!U l 006
UlllPl:I C 001
DP
l 009
UTlB c 001
UBI l 009
HlT I 006
UIT15 I 005
illT)O l 006
lllSDI l 008
Ill SUP l 008
1111
I 004
iHiBE I 00'6
WILL l ~06
11011: l 012
1P7D 1043 0P3B 019· 0189 12C3 15PP OCD1
OC19
021£ 1517 0212 15C9 1173 OP!P OPPIJ 1SCO 1588 OP'37 0Pl6 1217 1615
0878 0708 0363 0316 0313 0613 08111 0215 0173 0932 0817 0936 0821 0524 0.23 0424 0820 0819 0359 0397 0622 0849
i.:ora I 003
lCDTE2 l OOJ
XB1
c 001
l .....
1 r''
I '·.....,r·
I
- I
I .. ........ ,
0!1'1 OPOB 0601
0340 03"7 0927
I · PP~-8 1
11
DUI 16UB70
EC 10. 816651
1·lPl70 &16671
llElHllCIS
0140
0253
0266
0038
0058 0106
0293
0096 0506
0533
016... 0495
0173·
0165· 0407
0174·
0166· Ola29
0175·
0116· 0500·
0349 0501
0045
0396
0385
0375
0158"'
01116·
0137·
0189
0220
0217
0187
0264· 0273 0273· 027' 0275· 0279· 0280
0670· 0673 0673* 0679 068~ 0689* 0692
0338· 0345· 0521 0526· 0563· 05611 0578 0583 0590 0611 0615· 0708
0736·
0168· 0286
0697 0701 0703 0705
0152· 0904
0121· 0129· 0167· 031· 0920·
0290· 0335 0886· 089'
0572 0588 0598 0602 0605 0607
0523
0188
01'70
0322 0519
0582
0037 003,
0517
0525
0425
0422
0627 0889
0625
0139· 0140· 0153· 0156· 0254·
0189· 0217· 0220· 0226 036"
0619
0034· 0035 0321· 032· 0325 0327· 0372* 0373· 0370 03711· OJ82" 0381* 03811 0384· 039~ 0394· 0395 0395· 0·23· 0523· 052·· 0661· 0662 0716·
0717· 0734 0735
0337·
03114· 0231· 0232
0233
0234
0235
0236
02.n one
0239
0240
02'1
HOS*
0317 0319 0321 03311 033·· 033'1 0338 0341 03'1· 03114 OJ·S 035·· 0356 0357 0369 0370 0319 0380 0189 0390 0403 01104 0405 OltOS*
0408· 6..:·12 0412· 0419 0420 Ota23 0·2· 0026· 0"35 01136 0437 0438
04110 0458
01141 0459
0·112 0460
OUJ 0·63
01146 01164
OU7 01665
0 ...8 0'66
O·U19
ono
0452 01171
0453 01172
0454 0'76
0457 0.77
0478 0481 0482 048l 0486 0487 0488 0·90 0'91 0492 0'93 0'9J·
0490 0528· 0553· 0556· 0569 0571 OS80 0586 0613 0613· 062l 0690·
0694 0696 0700 071J 0713· 0716 0718· 0720 0722 0724 0726 0729
29JDl70 816704
010CT70 816760
3Q,JOJ.7l 577121
151017· 572239
0211175 572266
PIOG I· PlGB
.,.. ... 11&
lb! BllHTElliCE DllGIOSTiO PROGRAB
S/3 ftlSTEB TIBIJG lllLISIS PBOGBI! (RTlP) caoss-BEPBB!ICE
SIBBOL T LEI VlLOE DEPJ
RBf!BDCES
112 c 001 0002 0928
ZIKO l 002 15F3 0836
0729· 0731 07J1· 0734· 0768 0329* 0330· 0355· 01609· 0444 0529· 0554· 0557· 0584 0599 0714 0714· 0717 0719· 0728 0777 0778· 0781 0781·
0171 0317 on·
0771 0776 0719 0445· 0455 0456· 0461 04&2· 0468 0601 0608 0614 06U· C691 · 0702 0132 0732· 07354< 0769 0770· 0773
TOTAL ST&TESllTS FLlGGED 11 THIS lSSEBBL! ·
0
2~89923
12
0414· 070· 0775·
IBB ftllHTEHllC! ~IAGDOST!C PBOGIUB
Pll'l' IOe PAG!
2589923 121
l rru
S/3 ti. STEB Tl!UG l ll L'l SIS PBOG Bl.II ( ltT lP) OB.JICT CUD J.ISTIIG
l · ?ill CHlilCHB
UDICITES
l
BLlllt COLUlll llD THE cuucrus Di
i
IIDIC&TI IQllUIC S&IPT.
'.i.t. CL 1 TD BOUGH 16 CL 17 TBIOUGB 32 CL 33 TBBOUGB ·& CL 49 !BROUGH . . CL 65 '1'00058 80 CJ. 81 naoUGB 96
.... -···· .
. ..
. . . .. ········ ········ BlSTBR TillllG II lL!SIS PBOGR&B 8'ii8,.i
PP·80000
GBI GBD Pl 25
.....a-· r·-r: .,_ . . -· T·-z>- Bl·/ Bl!
.. . .. . . 89122 IC 572266
. .. I g D ··· /OB
B<I lBY·O %LOB·
.
s··M· 11CC DO;JP
... . - - BBS IBG&·BG S. t
.
K D04Jll'TI &CBi...POT10B·Br-1
. ... -as11 .i·a.-o--+B BC1B Q18PF480002
<IOIQ 721FF·8000l
r·-·· 11·r1·111 18
. '
lEIBG /tO·D l&?i
.
&llBG s.o·IBCiC/£
. . ·- ··~110 DBliBG SB
.
ftG5·0"4BGBf·8B B
. (iZ :2DFP4800P4
r·-_IG8 (l/il 1!; I
. .
20 l:B :IC D+/&·
J&OOlGl&~liBG SI
...
CC ··1·+c ·-/*
..QG5·PI31BCZB1 1~i
IC f·//·&e&D~&1 r
. DOBD LUPP-80005
T·ID 80UPP·B0006
DUE 16Ui70
i::: 10. 816651
1UPB70 816618
29.lDl10 816704
010CT70 816760
30.JOL 73 577121
1510'1· 512239
02H'f75 572266
PiOG ID
P l GE
P'P4-8 · 12 ,
. . .. . r·-?PE 112110·s11 . .. .. .. . . . . r·-Oll00·20'BG1* . . . . . . . .... .. .. . .. r·-2B:-o G7DPl 0
2rDIC lll*OC D 141 &B'Q< l 0!?8
&rJ·ec 1.1·ac
II p 00 EIOP 00
< ·,1?8< ·/£18
t9l·BC ....,. c
DPiP 00 DBQP 04
· c <orJ11 c 1111· B :IB78< 1''G2
1·1s·c IB/S·C lBO·IS?BBOOO&C:U
. QC 1-1·1C 51$&P
( Ji (E; 12 60< ...
£+&s·c &L1S·c-
~&-41GOl·8·BAE-·
·
I
TATD ·OQPP480008;
~
DB--< it311PP·B0009 I
P o. g --1rr·aoo10
lG1< 31-PP480011
. . . .. . . . T·-lCB:l2 &-< ~ CE?Bi2i·$·t)+C
UlO J.SIPP480012
1 1$=1&Do··&ll33 IG5?2/31·1l'S·I· 3C · 1·e1&<P ·a
. . . . . .. . -· . .. . . ... T·-·9EiG2 &O< -· . . . . .. ... . . . . r·-54 187 lO D<I
lC:OIT OBE-Q1POO BE-D1POQBl-Ul·&4 CB/U -carr·B001l
.
1c:x210&1- ·(B < £8/'10-D· 10 DB!
G &8 · l.C1
BDC ~oo-BDD...00-
G g.g.g * llE AO
BDP ~oo-BDG·..00-
~..
J>GD ' gs · AB - AO 13DrF·8001·
·
BDH8..00-BDHQ..OO- BD.4 JZQPP,80015
T+-61G5,B /CJGSI
. . T·-8Y JJ8E)-+ l
. T+-9-:8& 2D ·e/01
T+·:SI03fc;.. ). i*H
. .
1(-i 11.-c D(21.-=
.. .
rc·S &711 D(1T-
.
LC <+TAPBH·Q·l
. ..
lG6 < 10)G7B1 1 1·
... - . . ..
9+ D IB&l 8ll(B 16 $1S(Jl6 8 I(
....
DBlll D ZP+-&1&00
BC1B£U~C112/0&
.. . lC*-~-a~GC·BtF11
itTOillA8 a"- Cl8
?11&1-··Bl&CJSCX< 1'J·?<·Q--,aGBDK·
. . &lC_ BBB< JLIGtD
. . IO 8 I (-16 8 B·
BC <·J1PTC <·;J'
·&.Jl2C llS&1?4Cl 8
....
16 · 1 f P480017
..
;1/8 ~trP480019
DUE
16HB70
EC 10.. 816651
141PB70 816678
29~:0110
816704
010Cr70 816760
30JOL73
577121
15BOY7" 572239
02!.U75 572266
PllOG 1D P.lGB
P!'ll-8 121
················ ·················
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
· t '
·
·
·
·
·
·
·
.181 llIITEBllCE DilGIOST.IC PIOGU.I
·o· PlH
2589923
PAGE
1l
.rru S/3 BlSTBI tillI·G ll&LISIS PBOGl&I (ITlP)
OBJECT CARD LISTIIG
-.. CJ. 1 ftBODGB 16 CJ. 17 TBBOOGB 32 CL 33 TBBODGB 48 CL '9 t'HODGB 64 CL 65 TBBOOGB 80 CL 81 THROOGB 96;
.·f"
- .-
r·-101·e10110 1s
\..
.
. . f+·IJ £1D··D808·
. r·-·<·/ B·/ ll&SB
r·-·G 1QIESDG<IQ
.
r+-·aoI 1-sBGC9
&+1011/IUOB·BG·B
. . ·S.JOAC?<lG Dl:-D . . GCW-< /P7E-18 JS
. . IE) H<IJQJB/G / I
.
.< 10·1/UG<&QIB)B
.
.
OEJQ.JC-80 /PU2 OD.JPIO »+_CIBl)I
. .. . . . . < l"FG·ll Cl &. .
. .. -
.
. /092G DIC&D* JP
.. ... . ·O-BZ·GO 810 c-Q OEll·IOIBGCl?A · .
. . K· .&:
OI I a-o CJVllOG&·OJVBn-o
.
<1JQJB/G /·OOH· 101 &P 1 1 a11 ·
.
. .
-· . ..~
6 /P108&·2 ·BB-B
1 1 <·· Q1'DPP480021i
I
.. ... . . . D &O G·Q-.2f < C- &IBH· 980tP480022 t
.. .... . ··r)D· l: 01 1&-0 8C rr·8002l. I '
EIVDOD·BDC7IO E 8
. .~ FPlt800211t.
. D~:···s &c:.a JS ao-a JJ rr·aoo2~
. . . . .. .. ... . . . .. .. f····p1-< /P1B·I /1J.6··DD&2Dlt1P KO Dl2·BGD&)O I 0 *G<&O)l).2/01 *l/QI ··IB41·1B DC·i S30FP~8002b
.. . . . . . ... 'l+/ 811-DDC Dll.J' 513 H1PIO DIB<B Gct50 10 ·· I /ell OCEB4-.) P
. . . CJO DCB :- ·G &+- QA-PP48C1027
. l'+ /13>- (-H-7 -
ft/B> 119 GI C,I
.. . CJO DDD :- ·GO . . CQBG7it-. lPS G
.
.. .. .. 17 < AIYB)l2/0l 0 4· &IS GI C,I
.. .. C.JO DI :- +C
gt.JPS>O I 1·17G
. - . . COSE-.I· llit G
.. .. . CJO DB- :- +JI·
-
CJO 1/HPFll80028
.
163Q QK-FFll80029
f+/C.Z /P:OH·&_I
CJO D.it ;- ·l2D BIJPB·l·J· (G
. &40&: 8GD/0) I)·
/&CB· CG £: I
8 LI!IFF4800JO
.
1'·/DUIO<H1PP
. . . . . . . (G &z&.l: tit &J < &811·· &DH8- I- (01 ·SC/ Elll 2U I GDUU) · &it) U
-.:Jft llSFP480031
T·/1"""1HIG<BGCI·
. - .... . . T·/PBOH· B:UBG /8
8- B(OI JJ£0lC1 it BE; llD-O&IVat·Oa
..._·BGCl4< &·-.Gtll
l!/81 '< lDP«l.IP
.
< ., , ., n< .uea t 1
-. -
DE) D;t 1)00-DB·SB
' 11G!; 12 ' · /OB
.
BGI ·< /P1l!·Q88ll
.
s··u 8C8PP480032
CO& ; 1·PH80033
T·l'GID:DS& B(OI l .18<1) -
. . !.UOID;S-.>·BG /Z
. . GB<BIPUB /36+ D
CL10K. .iK .JH<l(B
. . - . <B&DO, /OBED·O
I .lilt!) /8 & 121>8 C o tG2UI·8811BI/
-.
Cl/) H:D8 £J2Dll 8 &P2D ·2/51<81·
< JHll(IHl)LCIQ
BE ;~l-OPI; 111660
... DIHH&<. 08131
.
:ES <I/) Bl:, /08
Pl/)J.C ·P.111151P P H i i :-ORE2 II 0
-·E L*PlllB!llBtB.JI
P£H : I8FF480034
BEl tCOFP480035
. .. - I -.a : H4PP48003&
BC Q l&lfPr"800l7
\...
.
- . %+/<7l1·9E*C /OB
("°"
\._ r·I' (20D... Al/DIG
r·/·_·l 1&·1&crr
. . ..
DI; Ill ·O l;~HS
-· .
I J·P·68 D;DJ:68
AD/e& /BBaZ G+OB
. . 2-IOID.UCOI· .Jl<B
1£1<< .JG,G·~ /1G
. GD) Jll JGZI HICO
-OB·BP/QO 1011..a
.. . . . DYll008 DDH&H .ADlait .JISI DlllLO
01* AB/D:BAICOB·
. - . - . - .. I IH&B&OGElD·>au GA-0 tirftPFll30039
DSQK.1-3 :>ZlllH8 DDll 1&II PPlf 80040 ·
. -
. . ADSQa .Jiii i Dl,J.0 &DID 1 T*PP48~041 1
.
,
J..,gO&ED018-0&DI -.>L- SO-Fflt80G42
P.llT 10. . 2589923
P l GB
13&
Fl'48 S/3 l&STIR HU·G IH.LISIS PROGUI (BT&P)
OBJECT C.lBD LXSt'IIG
CJ. 1 t'BBOOGB 16
.. ..
!+/II & i/l)C-
.
. . . T·/J;·.JoS·I~; D
T+l'll ·BB 08 ISQ
CL 17 'fllOOGB 32 CL 33 TDODGB 48
t./·>C- IPISQC-
·
.11c·8-11ca/&: ·r . llZ L> DC·Z (> D
. l'C&ll/8' l'Q.LO-D
ai IG/&;C- 15,C·
. .
l&OO&Dt ..._3QlE-.D
.&·z GllD·t~.B-.G&-0
041H8155 . .0C2-.J1
CJ. 49 TBBOUGB 6'
.. .
l<J&1C- 1(1&70 D
CL 65 t'JIBODGI 80 .L,J.OlD:8a J&QI D
CL 81 t'BBOUGB 96
..
IGTO 08DPP·80043
6 /P10B·L,&OB£14
-···
... PIJlll:-OB II&· '
··-C2-l(C PHH
.. &BD016<BGDl5t-&I .. DBG4 J)O·IBCHO
..
.·-D.C4-D 6TllPF·80045 . ll!FP·800'6
.
%+/Ill /IBOUIOB·
. cJ·B)O . T·/OE&D& oCl £DI
'l· /P 0; · t&<. 115·.J r·/H6·PA6·.uo_a
. .
... . . . . BP-IQIS<GB.JP?I).
J·/OB*BP/S /01
. . 6 /P:G IB-r:
6 / 1 ·GO 17 D< II
.
. . . . . &DA &<aas·LS&··. .lS(-.L1·.J QDCO·ac .
. . . . &DA &DA &DI £J>l &DI &+SBS: ( 1 ($ -
1·..co11co11c11-. a- .!'SI ·114& 101
. .
... .J { -II.JO I& >-
4£) 21 P 1P* (-B
o~a2·fB5>.J04C
.
. . iS:SIS; ( &H.Pg+$ &DI 6Dl ~DI &DA
.
..... c-s-11 1)0 c
l·SBG
. DA &Dl
SO)J.P··· B·xa11_
. ... l8DCDS>Sl91GS&DC
IDC...0 ·BGCl7
. . . .&D 116PP480049 ..&{< -.t-PP¥80050
.... 1154 a.4PP480051
·.I I HDPP·80052
···· ·
. . rl1QC·IBT.
C
?·/·8 -.4< &95G:D
················- ················ ···········o····· ················· ······
. . . . -·. < &:DG:I< &:HG:< . ..... ............
-
< O:<G:4itC68?0B· .1101 G:·..D&/·B C
............... ~ ................
19-:lGO O- &Jl9DLI
................
2S PH8005J ..-Aa 01 l'P480054
'
. . .. 7:B/·c·w tDI* 11'1) )B-<
.
.... ........ . ................
·-OPH80055
.. . r1J·1c <..11· ac D
..· SUS 28 - P&I .. . · SSIS 29 - PBI
· SStfS 28 - BIP
+s1·_c ...2.t·11c ft OIL! LI.ST Siii ITOOT II TIBDL&B lSS IIITI&t IOI·
..21·LB <·Y.J·TOB·
. PLE IBPOBl&TIOI .·.......
POBI·
SHPL! BJICDTlOI
.a&·?GI&
01 St'ITDS BllOI
.................
OP SUPJ.I C048&
......... ·
· ··
·,·PP·80056
01 10~ JtBIDI.
PPC80051
................ ········
. PP480058
·»
-arcu-
............... PP480059
.. . . . .J . ......... ········-······· ........ ·. 1'9· BIL% ... SA· PLUG llS ·O'l' PE fOHBl> DUE ·TO H naoa..
PP1'80060
.. . . . . .... .... * PE H&Lt - U' .. . . . . . . ... ... ,
SPECinED II 12.
.
. .
~
TO l.LLOI CE IIT IBYEITlOI BBPOIB TEST 1 S PEIPO& BID.
~
PP·8G061
- ........
.. ·························
.. . . . . . . · '' 8.ILT - TBB .
PBOGRlll IS 1011
BEIDI TO BUE A .
-TAP- LOIDZD.
.
.............PH80062 .·
....... ·- .. .. . ······· ........ · -n- D ~Bl D I ti 5 llITCBES Pll 01 TO TBI COllPLI TIOI or TBI TUD U.B Plll1'0Df· .,
·
"ILL CAD SI l SCOPE Tl.PB PBIITODT OP !'BB SHB U%&. ,·
················-
f'P480063 ., 1'1''80064
D&TI
161l&B70
EC ID. 816651
1UPl10 816618
29..10170
816704.
010CT70 816160
30.JUL'J~
571121
1510f711 572239
02111'15 572266
PIOG ID
PlGI
rr·-e
13
·o.. DUE
BC
16111170 816651
1UPl70 816678
29.10170 81670lf
010Ct'70 816760
JOJOL1J 5771.21
1s1on· · 0211175
5722.1'
512266
PIOG ID HH
PFfl.8 13&
lBft BlllTEillCE DllGIOS?lC PiOGBAB
,,. PliT 10. 2589923
I·
P&GE
FFll8 S/l OSTER TillIIG HlJ.ISIS PHOGH8 (l'l'lP)
0 BJ JCT CUD l. lSTIIG
CL 1 THROUGH 16
..
· -11- II TSE L
.·....·..
.. . ·
l 81-EJB
.
··-· l'H UIDICITZD
· . -ne- DBCIS I
£····£7··..DC·P&S
CL 17 'l'HBOUGB 32
.. . EFT ADDRESS SilT . . CUTIOI or 'l'BB PB
.
DP 08 DOii COID
ILL 81 WlD!D ra
··if ····
··711&FI
C
CL 33 TBIOOGB 118 CL ·9 TBBOUGB 64
.
. CBES, 1811 THI - rr- 01 -P9- KALT ...·........
. . . E'flODSLl LOlDID T lP. . ·
·
ITIOll &BPllS 10 TBB LOGJ:C J.EYEI..
..........
... .... ... 01 TBB Pll11lll 8 OPPU. -
rs
lSC
-
I l
so
...........
Q
CL 6S TBBOUGB 80 CL 81 THIOUGB 96
........ IS RESIT· IILL CAUSE PPll8006S
................
Prll80066
. . ·IOT
.
TB!
BIT
.
COi
· ··
DITI O FPll80061
........................
.....
Ff480068
17300303750 S077S·O'FP480069
' i
DlT!
168&870
EC 10. 816651
11UPB70 816671
29.:8170 816104
010CT70 816760
30.lDL13 577121
1510¥14 !t72239
02Ul75 512266
PIOG XD PlGB
,.rr·-e
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
u·' .
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
· · · · · · · · · · · · · · · · · · · · · · · · · · · · .: · ·
CGDE AODA ST: :.7 MU
. . . . . .A. . . . ."'. . - -
£a. Loe~
SaMC£
t·
:an =-: ~1· ·~
t9l9 . . . ....._CC 0'1.... CSTJC Pll81RIM
II . . . . .,2
OIPLAY ~- .,....
O_..:
CaoE
s~ :·T-=·~
..,..,., ··
Moo
0
c ""
.....00 9912
O.OZ M
-~
0406 .... Oit.86 0.10 OA08 66GI OAOA 890000
- OAOl0602 M03 0.0!5 OAOT OA09 GAOC
1
: t:eiU : -. . :......
I ·
S
,_,.
t
j : . . . . . . .: : . . . : ; : : : : . .. . . . . . . . . . . . . . . . . . . . . . . .- . . . . . . . . ._ . _. . . . . . . . .
8 ·
9EcTJOM NE-FAC£
~ ·
9 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..,......,· . . . , . . . . . . ,
l·
OC
11
oc
12 PRTN DC
-..z·9912·
JG,.!·oo· XLI ·oo.
EOU~NT #10 $£CTUJN ~. HAVE SECT!OM UDT ENTtUES
0
CtJARENT ROlftlNE HUll8P
13
8C
14
DC
15
oc
16 UDT.2 DC
17 ·
18 ·
19 ·
20 ·
at ·
JCL.2·o· AL.2UtT.O.J I "L.2CEAA&..05J JL.3·890000-
OPT 1°"f 0 I
2 3
HSERVED arTE$.
AOOAE SS OF l ST 4"JUTI NE ~-CE·
AtlORESS OF EMIOR LOGOUT lfCTE~· DISP· AD...,...
ttEltMING UTAKAttA FEAT>IAE lt15TILUS>
,.0 ·
3IRD 2k FE.T STG CARO 15 INSALLEO· CZ_.,.,,.4 >
UNU8Et> JtORTs .a ..s.6
l
0.-C 60A2 OME 01 5.0 U
OA't c· e? ·16
0*95 Ct tlE - -
Od9 Cl 6A _._.
OA60 Cl - ....
OA.61 , . .,. ff?
·? ..... Cl . . ....
OA.68 F2
4Mt
o..e co e? 9872
0"61" fla
OA ?O H
OAT! . . ..,
0A73 CO 87 0216
....
OAM
Olt6F GA 7'0 0,A72
~~
Ge
73 TJGI TIO
~:
8
76 T lo.aH llllU
77
TUJ
"78
TIO
79
TIO
80
"
81 Aow.a T10
82
.J
83 ROJPlllT 8
84
OC
-85
96 87
89
DC CC
·
. . . . .lW?t
Tl038M··U>_.~
U·
·
lllnMT~ao1-~
AOIPllT1C..-
lllOJMT . .lPlil"f.CKtta ·UllM' PRJ*T,M Xl.1·03'9 ILi · 16· -..2cnAT-MSI
LINK
............".....
°""' ,·ept ICH Jft C·S· ·fTE lllllTA CMK
......... 1:1' . . . -~ 11' C.S. MT~ OM
~ IF c.s. OATA OtK Tm
OAOO 801000
OAIO Ol OAJI 00 0Al2 OASD
··1 GAi· H 01 "EFI
OA18 OA!C
c- o
01 90
4895
OAC>f'"
OAlO 0Al1 OA13
22 · 23 ·
·
PORTS 7·8·9
j o TERN. E ,PANst OH 2 ( z-w?SZ)
24 · 2$ ·
., 26 ·
27 ·
· 28 ·
29.
30 ·
· 31 ·
oc 32 UDT~
33 ·
5
PORTS 10·11 ·12 TEA~. £XPAH510N 3 CZ-WTT2)
6
PORTS l3·l4·15 TEINil.. E-ANSION · tZ-wtl!:2)
PORTS 16el7·18 TERN· EJIPANSIDN 5 CZ-tf'l'FZJ
B
PORTS 19·20·21 TERM. EXPANSION 6 CZ-W7G.2J
POATS 22·23·24 TERM. EXPANSION 7 (Z-W'l'E4)
A
PORTS 25·26W!7 TERM. EXPANSION 8 CZ-W7At
B
PORTS 2&.29·30 TEIUit. EllPANSlON 9 (Z-W?G··>
BSCA-1 (OP'TJON'W..)
··-·**"""*..···············-····························. ··-············ "'*******"'* 3345 ·
litOUTl NE 1 - Tl O T£ST
.j
36 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .""· · .,. . . . . . . . . . . . . . . . . . . . . . . . . . . .
"* ··Oe · ·o ·
41
.............. ....··································· 42
AU.. ATTACHtieNT CONDI TIOHS A~E TESTEO ON EHTflfY
~
TO DETERMINE JF AWi' CON!>ITJON IS =>eNOtNG. AT THIS TIME· NO CONDITIONS $HOULO SE PENDlffG.
· ·
~····················
·3
44 RTOl
DC
Xl.1 1 01-
ROUTINE HUMSEA.
0
4$
oc XL.l ·DO·
46
DC
AL2UtT021
47
48
TSF AENrRv.x·cu ·
NO MANUAL iNTEA,.NTlON. NEXT ROUT JICE.
TEST FO~ RE-~HTillY VIA SYS
·
49
SBF AENTRY· x· o;.
RESET & RESET R£-E~RV SIT·
50
BF
NTl'RST
AESUME MANUAL I NTERVe ~UTHE
OAT? 01106E~340FGF ..... 0 OA8(: OA?F CIDEX1CX80C5 0487 050400C906
OMD OAH OA8F 0A91
OA95
OA96
0A97 OA 99 0 A9D o.tA6 OUoD OAS! 0A85 0Al!l9 ~ A&O GACI OACS
02 00 8905
CO ST 021A
01
tO
04A.C
CO e7 ·AO 0906£41:34-0FOF ~ C22.l!Clle14GEX ~ Cl 88 OAB5 CO 67 OAC9 C1 89 Moti Cl 8A O"EJ
Ci as OAED
Cl 8C O~
CO 87 0216
OA90 OAAC
OH:9 00 87 5872
OACO 81 O·CE ('6 OACF 617E
OA01 co 87 0216
90 RTIST DC
90 90
91 · · - · · ·. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .. .
92 · AO\ITINE 02 BSC. TIO COMMANDS
·
93 . . . . . . . . . . . . . . . . . . .,·· _ . · · · - ·. .· · - · -. . .. _. . . . . . . . .- . . . . . . . . . . .- ···
94 AT Ol DC
XL.I· 0.2·
95
DC
11..1·00·
96
OC
-.ZCaTG3J
97
II
PRINT
98
DC Jlt..f·Ot·
99
DC lLl·te·
100 101
oc
-.zcao2ti1DR>
e
'HOIT
102 RgzHOA OC
Q.16·ftOuT 02 BSCA Tf1t·
!02
103 TIOJ 7
U>·
105 TlC18
110 8 TUI
'!"J:>1e.x·aa·
TIOl'J'E
Tttn ae.x·e9·
Tia BSCA tffl.l\IC· SfGA.O 9'I T ID BSCA OP END JIVT· liiMDULON · T
106 Tt C19 107 TIOZO 108 TI 021
109
TIO TJO TIO
E
TIOi9E.x·&Jl·
Tl 020E· x· ss·
Yi02JE· 7..· eC ·
LIJ·;·
Tio BSCA SUSY'. SHDut>N·T eRAHCH TJO BSCA ITS INT'· SHD.JLON~T aft. TIO 89CA htT PEND· 5"0ULD-H0 T
110
111 THU7E e
ll2
DC
P"llHTII xt..1·a1·
UHllDA -e1-
113
DC
ILl ·02·
11· 115
DC
IU..Z'(STATB4J
e
UHK
O.t.20 co 87 ...24
OA24 - 01 0208
OA28 co ev oaac OA2C co 87 G.21·
OA30 Ul OA.31 16 OA3r2 OASC
o"a- F3 H 89
51 SToUIT II
52 LA81!l.. TBN
53
8
s. LAt!IEL.R 8
55
DC
!>6
DC
57
DC
58
59
s1 o
LAllEL
98YTEts. ss··
LA8t!Ul lllRI NT JQ.. l ·01 · ILJ · a2· AL2(RT1ST)
x·ao· .stet
· DISA9LE (f<E$ET ATTACHMENT)
·
OA.05 CC 87 6S72 0A09 82 OADA 11
·
OAO& 6087 0 ADD CO 87 0216
OAEJ co 87 581'2
0AE5 83
OA.09 OAOA OADC
116 117 T101ae a
118
DC
119
oc
120
cc:
121
El
122
123 T!Cl9E e
124
DC
PAJfffJI J1L.1·e2· 'fl.l·l7·
AU! (STAT M6 t
Ltll4K
PRJ HTllll
a1 ·a3·
ERAOA -SR-
OA37 3C 89 61AF
Mn K FO 6404
60
·VI IJEVIO .-x., 89·
61
1'1V1 a..PFST,c·o·
eRCSTOR!: DEyJCE 10 ·AESiET e4lROR LOG NO,.
G#.E6 QA OAET 6t'9A
125 1.26
DC
1~1·10·
DC
,AL.21 STATeti>
OilY C2 Ct o.43
o...., c· ·., 51172
o..u. 01
62 63 64
6$ 66 TJGl 67 68 69
USING TIOI ·XRJ
TIOleJC~t
TIO
a oc
TID~n ,JU? 1) 1teTROY
ATTA01NENT NOT RE.UV 7
.ERROR HM..T -01-·
0Ae9 a 87 o.?16
-OAED co 87 021~
OAFS 0AF2 11 OAF3 6887
OAFt5 co 87 0216
OAF'J 0AF2 OAF4
127
8
128
129 TIO.?OE ~
130
DC
131
DC
1.52
oc:
133
8
IS.
t.lNK _
PR!HT XL.t·M..
1u·1v·
Al.at STATN6) Ll1'K
l>ATE
07JUL. 75
L
EC NO· 429023
f:IROG 10
PA~
07.JUL.15 829023
25CX:TT5 82 !032
·
PADG JO
PAGE
. . . . .IN19Mce: 01,._CSTtC lllA·IMP··
·
......
· · · · ·DAfl'f·~
e"'*
....~a napa
OllFE It
...... 6087'
09D1 co 87 . . .
A8DR ST*f SOtiRC£ Ca~
. _ .&AC-~ ~
... T··n· ·
O..t1,1.P.E, ttW·
DDCC
.-0 U8
8C
..........
.I.L.l.·.t.T.e 41LIHSTAT·t
· - .......
Ire -- .,..,
·XOeft CO 87 saaa
(j
ec 91 . . . 00 tD
·~
·
LI·
I
·t·-, ··········-................ ...........................................~. 0
a-a·
MUTitE s - .,..,.. ·DDMSs u· 'f&S1' ·
--i .._ 1-a ....,........,............,................................... , ......
. ~·
... ·
'RE CltT MTA AOOllESS llEfi.STP ts TEsTD Pait COMll!CT
146 ·
..................................................................... ,HT·
UtAOIN6. CDAAl!CT ··MUTT· 8tTS ST"CK ON M fPf' ·
·1
~,.!.·
l··
... 8C " ....
·1· . . . OM& Ka: .eo.6.1.8.7
oaee
nsc
eo
N
co
.... 00 ....... 9512 aOF Ct 98 8M8
080$ ISO RT03 DC
·aGuTl1'd! 3
OMS CO 87 ·Ta
0809 CO 87 021A
eeoo ·1
OHE 10
OBOF 0868
oe u x FF oasa
oa1s F3 58 ao
0818 F.J se CCI oe1e sc ·e oe20
otil1F 31 00 GD62
0823 .JO 41" 0820
0827 F2 81 OA
0806
oaee
aeoo oer-e
09!0
151
DC
1s.z
oc
153
1-.
a
ias
DC
156
oc
1S7
DC
158 SA86 MVI
159
SIO
160
sic
161 RTENO MVI
162 RTLtO LIO
163
Q..l
164-
.tE
JCL.1·01·
IL1·16· -..2Ut1'ZST l RT2FL.6eX·fl'F·
x·eo·.sro1 x·co· .s1c1
RTzt.I OH eHD60
ZEM>·e-·
lil'r2L.IG+l.,M087
RT2LCS
e INlTIN.. lZE fl'LAG
·015.AIJLE .£HAet.£
elNl,.IAL.IZE THE LIO OP
.TRY TO PUT ZEftO IN HOB·$ eTEST FDR LAST HOS'$
· IF so. ,tutlf' OUT
~ 09
08A8 IB
0
09A9 . .A2
o._e a a.,..
0
OMF a SC 08flS
0983 SC FF 61..
c o·eee eet!17 Cl 50 _ . K 00 6190
oe&F F3 68 84
08C2 3C 0 0 OOFO
OBC6 :n s~ OOFO
08CA 0£ 00 ODFO
082A OE 00 0820 SAGB
lftS
AL.C AT2l.lo+1U h·~
eADC 1 TC LlO TO 00 NEXT HOS· S
0800 :SO 20 OOFO
0&30 CO 8T 0811" 0834 F:S S8 80
08 37 30 "' 0859 0838 3C 00 0858 083F CO 81 0818 084;J F3 58 CO OM6 31 58 0062
- 166
B
167 RT&.C5 SlO
168
Q..I
169
MVI
170
171
Sia
R1'2LIO ,
x·ao·.sto1
AT.af"LG. x .,,. I
RT.2FLGeO AT2910
x-co· .stat
l 72 RTLO LID ZEROeCTS10R
eGO LOAD NEXT tol08
·DISA8LE
·TEST FOR 1ST TIME THRU
.srr FUG T!: ZE-AO
eOO LOW KOS· S t< MOT DONE
· f!NAk £11 MDB·S AU.. L..OAOEO oPUT ZEROES IN CONTtltQL STORE
08&4 CO Ol 09C6
0808 F3 58 C:O
oeos oo Ff: ssu asa
08£1 Cl SI> 08e9
c
O ee5 CO 8 'f OOA'f 08t!9 30 FF 61-90
oeeo co e1 oo.7
OB4A OE 00 0859 5AOB
oeso co 01 oeu
OBS. FS 58 ao 0857 co · ., 0216
0858 00
173 174 11'5 1T6 1.,7
.tf..C BNZ SIO 8 DC
RTV'L 6C l J..WU'N
RTZLD
x·ao·.s101
LIM xa.1·00-
·I NCltEfC£NT CGUHTSi oLOAD TIL. 15T 2$6 WORDS DOME" .AESET ATTAOttUENT ·GO TO NEXT ROUTl ttE oFLAG AND CWNTP
08F1 CO 87 SD38
OfVS F3 58 M
-.c OBFB 31 48 0062 30 48 OOEc:
oesc D906E~340F OF .i40 oee.e
DCOO 31 &8 OD59 OCM SO 48 ODEE
0864 C8C·C240C9D5C SE3
ocoe ac · 0(;60 ococ 3C ,. 618?
OCIO CID 01 00£C ODIE
OC16 F2 81 22
OC19 3C OC OC60
0C19 3C FO 618?
ocai oo eo 00!8 oo a>
OC2? F2 81 11
GC.26 _, 00 182': QO IE
OCH F2 Ol SO
OC33 SC GD CIC60
DC3? X Oft 618T
0C3B OC f f GC52 OC ·
CIC·t OC 01 0053 SA e
OC47 OC 01 ·E6 ODS:
OOI& C8 81' st>AS.
0870 CG BT 0.21 A · ,. 01
081"5 -
PRJHT
· ·
OcSl .. oCS2 08
OCS3 MOO
OCS5 OC 01 ·£6 GOE Ocs8 CO 8? HAS
oc· so
0060 00
OCSl OC52 OCS4
9CSF OC60
aoa
DC
203
2tM R03ST
205
206
20'7
208
209
210
au
au
213
214
2U5
a.c
e.16
TIO
.an
9
218
DC
aao
DC
aao
oc
221
aaz aonos TtO
223
TIO
22·· 225
·t TIO
226
MVt
227
228 RO:JHOE SIO
229
MVI
230 Ro3:Ko· LIO
231
232
ALC Q.I
233
BNE
23·
SIO
235
Q..C
H6 2.:ST
·TIC
2H
Q.1
239
ee
240
8
...241
242 R031KO$ Siii
JM3
·uo
SNS
245 246 247
..,,.UCI
SttS
248
MVI
249
a..c
aso
HI
na
253 2M
..,,.IE
ttvl
a..c
ass
286
2ST
.,,~c
.INE
ZSB
MVI
259 A3E
MVC
&60
MYc;
.261
M¥(
262 R3&PO 8
2Q
DC
26-4 R3i'LTI DC
26$
oc
266
NYC
26'r
8
268
oc
269 R3"LT DC
........... U..· ..M...P,~ ...,..~ ......~ .......
YP&..M.a·aoia
a·co·.su*
RePEATCaa..J~T
ADJIKOll.. . . . . . NtN1'· JCL..1·09·
lLt·aT·
AL.Zt S'f:lo'f--1
R03ft0$eFl!1'.., RO:SKOS.Fln&1Ml ATTPl..GtX . . . .· R03H0£11 A'TTCftl( ATTFt..&.O
>e·M· .sun
QPDECOeO DPDEC:0110PDEC QPOECOU)·tf&M
OPDEco.x·zo·
fil03tt04
x·co· .S101
AEPEATl296)~AT
t;03K06. ·nc""
ROHP· A T T P l . G . X · . . .· R03£PA U>ott
x·so· .s1or
ZEROeHD9G HDLOl·Ht>f!O
'1FFFF .KDeo
fG.D2·tf098
fOML.T.x·or
JCFLAG.JC·W· HDl.DlU?J.tCIL.02 JOE
R3ff&..,. .x·oc·
XFLACi·X·FO· MGLDl-lttJ.HGLDe-1
au
MOL.DI Cl J ·HGl..02 R3RST fil3tf..Tex·oo·
Xf'l,.AG..X· OF·
...,..,. R3KL.TU U-etl..._1'
M.O&AI 2 J ·WM
STATAC(2) .Maa..m STATUS
.,_,.~
J11L2·0000· STATACt2h....._ STATUS XL.1 11 80· JCL1·0·
·L ·{;-· · · · ·
11891-2 .OAT£
··2
£C NOe
07.IUL.7!. 825023
. . . . . . . . . . . .C MGS flTH ca.A DATA e lfdTHt..1&£ AODtm.S . _ _ . . . ltiGt·EMT~
.a&LAY ATTACttte·T MDT flDY't IF M'5DY
al!tlAOR tUL.T -o9-
.aRNtCM , . c.s. &MGR
·M#ICH IF Cd· ·l!MO't ·R'I' AttACMtill!tfT O«e ~LG·
·~ ttr ATTe att. etteSET ATT· CMlle flLM
.aUET ATT · ANO SET 01 AG. 2 eltUTIM..IZE DATA ·LOAD OP OEC WtTH &M P·1TY elNClitBle-NT TO N'EXT AEG
·TEST f'Ga £ND el.GOP JF NOT EM>
.oau., .~ &. RESl!T OJA&. 2
·ATTACMM£NT Ct1ECK MUST 8£ ON
aEMOR IF NO ATT· Ct«· ·WAS Ttt&flE AM ATTACttMIENT otl!C"·
oGO TO e__,R IF SO
·GO Re.LDAC UP aaCGDE AEGS
·AESft A'TTACMlllttlff
· TftT 1tl LOAD ZEACI IN HOB 00-01
eSt!!NSE C.OHTENTS CF HDe 0-0-0l
· Ta>f'' TD &..GAO FFf"f" IN HDe OO-Ot
· sEttSE COtcTEffTS CF MOe 00-01
eS«t' uP FOR ..-.T OB ·SET FLAGS
*
· seE ff' ff08 COH'RENTS CKA"6EO
·£. . . JF I!~
.UT ..,,. FCMl HALT OC
·st!T fll.Aii$
·
. s a "' Ml PTE c~
eEalllDR· IF tdJT
·SEE IF L.O 9YT£ CHMIGEO aCONl'INJE IF IT CH....al!O
·SET FOA HM-T 00 .Sl!'f FLAGS .
*
·SET MALT cGDE
-eSET UP AO!m F81t MINT
·llOVE SST RESULTS TO S:TATAC
.GO PRltfT t!-AttOA
. e - -Palf!(f HOS AOOA· EJCP· ACT MD HLT HALT -oe- -oe- OR -o0-
.1ST £.JCPe R£SULT
.ltCWE 2NO REsut..T TO STATAC
·Ge NINT 2NO ~
.,..INT M08 Al>DR· E>Pe ACT
.£....... HALT -oe- -OC- OR -oo-
PROG ID PAGE
· · · · · · · · · ·-· · · ·- · · · · · · · ··· · · · · ·
. . . . . . . . . . . . . - - - - - f IEGJilt.iill
............... ................. ....... "o*ca' .a.c..e.e ..._.,.
.......... ._ a..n.. __.. .8-C.
· . . . .Cffe . . . . . . . . .
.ae.rr "'-._·
·OP' ......
ecaaP>·ce
OC.11£t1171 ..
OC'lt ,. - ..
· .,. tie · 'ft OC"8 f"I .,. ··
GC?e SC DI 'h . .
OC"IF 1'2 . . H
OCH 9C ·1 Tl a
CM Fa ti? Ir
a OC89 lie ·1 71
eceo
«90
txta,,..,,,
.... .·
OCM SC et Tt Ft
Zf'lll · _. . _ . S'lO
2M
SID
.....Zrs lt.H900 MC
2217'76 ....... "WC
" naan----·.,c
a t ·~·IWC
~
an · · · t1111C
....
J
aes ·-.c ·t
..
tlWC
. .. . . . . .OI
....................... .-ct-..sa.c11
,. .--..£ ·HSADI..& TC . . . AT'fM.'lilli:UI .uu 7ao,... ··
·.00 ...........
---..-1. ..........-1i.......1.Jllu ~,.,.as Cao.a
Aa3ntCa..u ,. :lfAMlllH . . .u ..... AA155 . . . ..,..
....... ............... .-11 ...,nca.-u.___..,·
··-··aeais
ttoaOTa la eXltl) de2G2 C·&Al I ·USE oao 2 - Da'fA
1tCP&..·x.,.·
·d'Y JMC~1' DAT-A f'&,.AG
lt03DTIC.R·Hl I·_..,( ·Ml f ·l·fTl&tZC DA'f'A
297
. . . 111: · · ·
2aa...asw1 ll03Kl6+1l·XR1hteel
,·SET &11' TO t..AMD MDB·s
OC98 Tt eo 71
289 Roal&6 LIO soznc ··· ,.._.
.utAD ALL ..-... ·JT,M on·
GCft 79 r. F3 OCA1 tra 10 M
_..
··
T9F
.n
INCft. G1·M1 J..Jt.,.: · ll031CZ1
·TE ST FDR I MCAE·MTt.... l>A'T.a
· .....,. lfl" -.n
OCM $E 01 1'1 1!E
292
41.C fl03DTJC.2 ·.MJ) ··0202'' ·-1 · .1F. so IMCINllEtrf'r OATA
ec.a·o·rFD
&93 ao.a1e21 .._c A021Kl6+1CelM1>.ROaa.l!Cl·XAll
OCAC ?D _, aF
..
c:Ll R03K16+1 C.Xttl) ·tee'?
Ex IT ·Hl?H M.L. HD&·s L0ADeD
DCAF DO 04 2E
2-M-
.8NH ROllllt161.S U
IF NDT.. 80 Lad NUT t9B·S·
oc.. OCll2 tlC at £6 F2 7C: . . 57
29?
2M
tWC +meA(,ZeJCRJ J ·HDllSTl·XIU I
-.1 A03K1.,..11·JCr.ll·ND98
elMITIALIZE tfD8 ADDRESSflS eStET UP TO ·HSE tDtt·S
:6
t·....i
i · ·,
!
! .
:o
I
I.
.
I
'······.·.
Ij·..
e
io
.·.·.4....C..·-,. ·:· ... 19 S9FZ
.-.--- .... _ ,-- w; ......
. . .? . . .2 .....
eo.ec·es·tii
..... ff . . .
.-.-....ODM H....,
GD5T M ODl58 fPflF 8ODDS!ICA - lO- H CD!!IE OOM
·--..
... .-. -·""···· De ...........,.......
M2
=.-.·. ........ HS
........... JT ltO:ld·
:tc···H·····,.... ·c
·t
1'flOl!L·t--- J····
· , SIO
lMo6
347 Ma M3K21t G.I
.-..._. .... -.n:a. . . .
3M-590
~ -
"'* . . . . . SET ..... _ . .
... Ottec«
10-1 l ..,,, OllllltW
351
HI
Ht
ODD :ODS0056 GD57 8099
362 . . . . . . . . . . . .. 353 · CDNSTANl'S . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .,_......, , ············
>54 . . . . . . . . . .......
HS
·? ..... __....·. 356 t10M DC
JQ..2·0·
ROJDNE DC
.......... ·M JC.Aet; DC
-.1·01·
-.2···99·
.-ee..- SM X$MA DC
MO . . .F DC
JCLl·AA·
,.,_a·Ff"P!F·
DQla :161 JC8&D2 IN:
JIL.Z·Oaot·
0090 362 ua1 DC
Dl>SF 3i6ll "°9.&T DC
XL.2·1011 ·
JC&..:.t·o·
._...ACE · .wO- llll ·cC:ODttftSs'Tf*.l.n,
OCH ?e P'F F3
2M
TBN IN<fll..S(eXRJ)dt·...-
·TE.ST FJJa INCRE·NTl"5 DATA
GD60 00
QD&O .366 JMCFLG DC
XLt·O·
· lllCRSIENT'JW ·l"l.M5
ocec '"2 90 ..
MO
I
tlO>C17
. . . . . JF tclST
0
ODel 'IDOOO
0062 36$ ZERO OC
Jq,.Z·O·O. . .
L
OC9F SC 01 71 P2 eccs so oe !!ll"e·
OCC'7 Cl 5A OOW
occe ID ·1 SFE6 ?J
OCOU F 2 81 8C
OCDS CO 9'P ·aF
8CD1' CO 81' SIAS
ocoe eo
OCDC U OCDO MOO
OCDF tlE 00 S'I' El'
ocu 51: 01 E6 ,. ocn T· FF n
OCEA F2 10 M OCED 5C 01 71 9 GCFJ 70 . , 57 OCF4 DO M -
OCF? Cl 5A aile3
Oatl M .. oaM OCP:P F2 M OI! 9D02 Te 18 FZ ODOS CO 10 YET
G£f09 ri ID F2 oooc co t· S&P·
CDIO - DI 71 ... 0Dl4 90 91 07
ec 001., , . ·· ,.. eoa.., n · eo1esaoe79u
e· 0021! ·· 91 ··
CllDU · oe ·
0029 DOM IC
OOK so oo.,. Ill!
O.TE EC .._
ecoe
OCDC
oc:or:
- .. alll
MC
902 80311U 1' SNS
.S03
TIO
··
a..c
"'!Ct6
·
301'
3oa A03PRT 8
309
'DC
:H·
DC
St 1 ·olDTl OC
312
313 A031C.18 AL.C
SI·
ALC
31S
T. . .
...
.If
317
tf¥C
Sl· ~ Q..J
519
.....
329 32.1
322
T..J.D.
us
.n:
3a·
T...
..32S
56 3127
8T TIF 9T
a&9 ....lllt19 G.C
3D3D1
a- .c
D &ll:2:S
C- L.c
334 335 336
CLC lllE
....3..3..?....... 0..C
R030Tl(2·1dtll·teeSTC ·JlRU eliNITIALIU itXP. DATA IF 1.CRe
STATAC.·..e
-
.SS&£ HO. .S
·a3EM.~
STATAC
,.3qe
.
·
0
3
D
TI
C
2
9
.
. J
t
RO_,.
eEaRO* IF _,. ·CMt
.c. . ..-e FOR EJPl:'CTED ,DATA
e IF Y!Se CONT IM\JE · !F MO'f· eAROA ·
eo63 OllME4£M#'. . Ct>6 0868 0760C.CSC.,_.Dall6 GD73 Cl~.CCZ 01>?8 48£3C9Eai!.M,. . . . .
STATUS JIL.1·80· -.1·11·
· JIL2·0M·
.....JWT MD8 . . . . . ·~JlP &. ICT DATA ·e90R MALT -11·£XPECTED OAT A
t10:tK1T+1 c. x11u.ao3DMt!c 1. lllRl)
· MDSAC.·UJ .xoao2c2.xa11 ·ADC OHE TCI ND9 AOOAESS
INCfll.GleMl)eX_,..·
·1'EST FOA NOT JMCaEtENTlttG DATA'
M3Kaa
·IF MOT CONTI""1E
· R03DTJ(.z.JIRU .....o.u ··111.1 .IF s:D MOVE lfll NEXT DAT·
AD.3KJ7+ll.xau· ...,.,
·EXIT WHEN ~ HDe·S SENSED
AO~ TC eXRl I
·JP NOT GD $BISE NEXT . . . .S
i· liD3E09.HC9CMK
1· S8T1£a.SSWJ 0
.·..·..1. · I. HDllSTCeXlll J.JC·tllt·
M11BSTC,X·t 1.a·10·
:· t4DBL
.ERROR IF . . . CHl5CK
·PRIN'I' IF SSW 10 JS . .
.COMTJ:NUE JF eiOT
I
.TEST FCtlll DOING HI ttDB·S
ePftlNT Ml HDB·'s
eTEST FOR obi HG LD .,_. S
eGO PAINT LO HtS·s
AO-SOTUa.·a:t.ZEROC.Jlfll)- ·CHECK FOlllt DATA · 0000
R!PFPfl'C.XRt)
·l'F SD U'SE DATA · FFff
ll030Tl-IC l ,,·U . . .,.,.,. h XAU
·CIMECK FOR OATA c .....
QAMSSC.XR1J
.
elF SD USE DATA · AA!lllS
lll03DTl-1 U ·Jiil) eXAASS-1 C..XIU .) eCMEc« FDa Ol\TA · A*55
a396AAh JR l)
·IF m UsE DAT.& · SliM
'°O:SOfl-IUe·lt.XSSAA-llelClltU eCH&CK lllOR o,ATA · . . . .
,I ··.
OOU ~cas.:D
.,. n seco
em.a 38 . . SFD
00Bor OD 01 SFe& . . . .
· - co ·· 8211i
0099 OC DI ·01m3 809
,.,. . co 8? · · ·
00.U .. ODM 12 GOAS IO'U
... -8CA7 co 97 581'.Z
00.C 11
ODAB ODAc
HAD
Gl)af:
cooa t.,,.
aaaP
ODAE
.......,.,.,,. 8083 Ct 8? 59?2 10
..,. 0098 10
·t· ., GD88C·
0087 OD83 OD8A
R302QC ··I I
elF SO USE DATA· 02GI
aoao·n-1c1.·u .· xuoac.Xfll.u ·OE~K ,.. DATA · - -
I
1
Ofl91-~ .DATE
!166
1166 167 ·T3ST OC 967
....,..,
368
SJO
91$
-·no
a..c
3Tl
eE
.S?J! 3?5
3ft
··«
K
31'5
DC
31'6
oc
SXT" AcToA·C·e·ff'E"llB'O
ST.TAC( 2 )..·U:D:l 1
LlMC M>llA1l 21. XI 011
5"ATV$
&1,·ao· Jl..1·12·
xu·1eu·
.En·ean~ .~N0111e-u
.cf4EOC -ir.._T !T eso tmT CHANl;E
eTe.11.aTE IDUT1NE IP OKA\' · . , - Wt fllDe JrDl!IRESS ,,_ "1Qt1111'f
eGD'MlllT-
· £ - ·PRIJ!f'f ·tQlll · - · EX'Pe ACT t.IM.,. -1;e-
·8JCPECTE'O ..._T
377
377
371'
5?8 31"9
. ·
.
..- ··· ERRGAS
·**·******.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.........,..
.
.
H O _ .. . . . . . . .
· HI
382 RO !EfllA
383
DC
3M
oc
PRlW'f!N
XLt·eoE·
u ..1·1?··
-CE·
385 S86
Ge
ilL2f OPDECFI
,9
A0~~+4
387
HIB R03E09 l!l
389
DC
NUN,_
XLt·IO·
AT'l'AOtMEllJT CM£OC
. . - - MAILT -.aea
390
DC
ILl·t6·
..391
392 H3
,,393
·DC
C..2CSTAT·St 1IOS1l19
~·
s .---
·
·-~·~.·~· ·"~----- ~" ~ ,~ ~·~~~ 1'---------~--~---~
j__ .
..
__"___............ .. ".. .......>t'i<.'\'. ...
.· -- .
~-.-~---~ -~-
~-
.
. ... . ...,,N ....· ·
t
-
I
·
008F x 00 ....
OOC3 GfJ 00 11Pe5 SF·
GDC9 ca et OCO?
e8CO OE 00 eFeS . . .
0803 OD M $flllE9 · t a
ID09 co ·· . . .
~DOD !IC Pf: 6198
OOE1 OF 00: SPeS tl6 '9
...., co 87 tea?
C1D118 0000
ODED 0000
·OEC tlD&
O:OeF 2200
-ODFO
09FI 060740C4CSC30C4 OEOI
ODf"J C540.C6C 1(;_,3E 41)9
OE01 CS
_ _.... - - - Q-.·C
96
81!
aT
a.Le
..
Cl..C
wSMt..'.l'A.C.:.-U.U. ·ST'&l:M:
~
n·..-.a.c-i tu .-.01
nATAC-ltU.sY:.t.T.C
trl .... · .C~9
NWS
1.-.c llltlV-.. w1 TRY....
, G
II
= .....,. a.
-
a.c 400
11\11
.., UACPT
·_L...M...l.i···R"
STA'FAC·ttU.J10oe1
· .,._. .-CTVM.
1··f c
I
.... -.Ot DC
- . 2 · 0 0 0 04
-·
..,. MC1LDe oc X1,.2·oon·
e 406 GPDea> 8C
40'1 OPQ!Cff DC
11..2~2200·
Q..JT 1 QP DfiCCIDE fl'AIL~·
I
40?
*?
!' C
...
I
..................................................................--.............:ro
41G ·
«IOVTINE 05 ff08 TEST t"°9 1 S 20-3F>
..:
... ..... .. .-......-...·.-..·.,--,.d.~.r.·.....
· u · CIE'?t · ,._
u
~ · ·a c:·· . . .e.e?.F.
..--JIOFF6t80
GER CO 8.1 t . .O
·· ce .,, wae
·_·.a.nae.e..-...
eeea so ee eaec
GE96 :SI N 0059
-oE9-E S-C o.e. oa.ot!aF6:
OIE42 SC ff 6l&T
o&M o.a 01 o-oec ooa
·11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..
0 ·12 ·
* o\13
.j·
CP-HCGOE 111.fGlSTE'R IS U)AOEO MO CM&Ct(EE) FM ~
*\
* · l ·
* 0 415
UC>ICATICINS· lHO&·SJ ·SU..
BTME £~0t'4.:I£G>HEOeOESNESN!l"SYEDS.UAFMFEORSTM2E0
...3F COt-.l
t1TlON$
111
-.j
·1·.* ·1· ·
417
* - ·19
CKECKEI). TI'fff OAT A useo 15 OOO(h FFFF. AAffw SSAA. Gaol? '4:
'It(£ ACTUAL H09 ADOA£SS (20e21·22·-----30·3Ew3-F>.
·· c
SETTING SENS,£ SWITCH 10 ON CAUSU TtlE CONT&ITS CF THE MDB·s
·
::: :
TD · PRINTED OUT AS Tl'E'f AfllE SEN.HO.
: U
0E-..c FZ 81 &2
···? OEM" X GC teP6
oeu x tro
·t 0£9T OD 00 0Dee Ol>e
OHO F2
11
OECO 00 00- eoec OD IE
0£'6 F2 01 30
0£"9 3C 00 . . .
GEa> 3C fJIF 6187
OEOI OC 00 GEES OE f!6
6£0T ec cu 0063 SACB
GEOZ OS
0£03 GO
·22 . . . . . . .- ··- . . . . . . . . . . . . . . . . . . . . . . . . . ._ . . . _. . . . . . . . . . . . . . . . . . . . . . . .. .
·.a·423
oeo2·
RTGS DC
o£03 -as
DC;
a..1·os· xa..1 1 0-0·
.
ROUTINE ...
Q
ND MANUAL lWTEflVEMftOff AEQtllffEOo
OEDD OC. 01 &FE6 00 IC KU CO ST SO-S
oen ei
ae:ee oo
0£04 110?
0£06 co 81' 021A
OEM 426
·a?
428
DC
..-..2CRTOfi-t
e
PRINT
tEXT AOUTllE.
0£-£9 0000
0
G£Ee GC 0-1 SFE6 00 fE
OEFS CO 87 SOA5
GEM 01 OE08 25
OEOC 1029-
OEGA "'29
DC
aeae ·30
DC
0£00 43'1
oc
0£0£ co .,., 5038
Of.12 oc 01 OFF6 oFfB
432 433 ·XST 9 434
0£18 3C 0-0 OFF?
43:5
OEIC 3C 00 6187
436
JCLl''Cll 1 11.1 ':ST·
~2CRT3CSTJ
U>OP
"°8STC( 2J .~31 ltiCA..C.X1"08· ·LAGwPGe·
· ·LOAD oP-De< REGS WITtf COA1t DATA1
.lNIT1.._IZE AOOfleSS
.REllET INCRElENT Ft..A&
io
Of!f"$ 110 0£1"6 00 OS 7 PFFf' 8EP9 3C ·· i!il97
Of!FD F3 M 80
OFOG F~ 98 CG OF03 5C 01 1'1 F6
0£20 3C M 61aB
4-3?
OE24 x oe 6tB· 0£28 F3 &a CO
....458
439
YFl..ACM.lt·U· ZFLAC.-·· 80 ·
xecoe.-uoi
··
OF07 F2 8? M
n CIFGA 5C Ol
IF
OF&E Fa 81' ID
M'"l 1 t5C Ot 71 ee
OE.!F OD FF 5512 56 J2 OE3!1 Ct 58 0£41 8E39 CO 8T 58'72o£30 09 023£ ,.
oEJIF 60A2
oe-1 o se oeaa
OE~ Cl SC 8£88
a · oeu x. -. 61eo
g-.o
0£55
DES-J :SC ec 01ao
01!55 F3 u .. 0£58 :JC 00 . . .
.... 1
......~2
443 444
CL.C
TIO
e
CIE3D <M>T
DC
O oeE&X· .4..4..8.
DC DC
459-
451 ·3DUl3· TIO
4S2
TIO
.4.$_3
T-I·G
4'Si&
1CVI
.·.· _, ·S7 A30IOE srs
- REP£A1' U1M :t .RfPEAl'
AX:l(03wNOTAOY lllfltlll'nl lllL.1·099
ILl ·21'·
ilt.2tSTM'_.,)
R3CKOS.F£1'_.. QC:tCOS.FETADll
·Ttf'LG-.x: .,.,.,.
IQCMOEIA Trc.t&
~fft.Geo
Jl·84·eS.IOJ OPf>EC:O.O
· · ·· · · · · ·
GFlS Fae? 1:6
0Ft9 SC at 1'1 11>
Of'lcC: Fe SY ·
eot!iLAT A-nllC.w.EWf Mn' AOr? lF REMJJf ·Et61111iJR MALT -09-
to
I
WtF SC 0-l Tl Ft OFft F2 81' M WM 3C: FF fll'F7
l·
i
8faA ·ec: 01 71 fl'S
. . . 7C "2F ClF31 Tl GO Tl
· 9MtlCM
.MMtCH
IF
IF
C·S·
C·S·
eti::lMllAaORtll
.SEf ATT~ Ct4lt· A-G·
. . _ . · " ' e s .~ JF lllTTe OHt.
·ftU£T A.TT· CC· flLAGj
· ........... ·lllEIET A'f"f· AM) S£T OJ-.. 2
·lltfTIA.IZE MTA
i·
CF>& 1"9 FfF A
OF.sT Pa 10 0. OFSA S.£ 01 Tl Pl
4"'42 - 8F 2F
· 099 t - 2 ·i.·e:c-.. !
OATE
-
· ·
·· 1I · l ,
·M·~uo
460
.a.c
. .1
CL1
..... 462
...
.66.3
sa.r.co:
....
n:a
... . "6T ll3CC.06 Q..I
.....,... .- ~
CfllDKO. . . . . .
. .co.a.,. -.OSCOl.l....
a-co·.sta
U· MCa-tTt-<.-a."·ft,,u_-· · ·
lll3Q'llA
A T ' I F L ·. . . . . .
~ LOOP
....., ......., ...... ·....-...0. llEc Wl'fM ... ..-1TY
··ICMte·T W -..r ..
. . .Tf'IOlt . . · . . . . . . . t!OY' . .
~
··ft.._..., OllC-k MUST · Gii
...-.. IF-- A'n'· C..
4 __ Y. . . . · - AT?ACtdlBfT aeot'I
... ,,..,... ttr .---..aoGPaeCODEHU
4-?l u~o· SHI
472
LIO
4'1S
SNS
474
...,.&TS
..,.476
477
-·LIO
SNS
ll'll
a.c
.IE
·BO
·lfl
...481
482 4.83
NYI CLC. JIE.
Q..C
-.s
.IHI!
...4e6
467 4>88R3C£
MVJ
ttvl
MVC
·¥C
490
MYC
49l R31PC1 a
.....492
DC
493 R30tLl oc
oc:
...495
49.6.,
llVC
a
DC
498 UCNL oc
499
oc
SOO ~Tl WI
561
502 RXJSA ${0
So3.
510
504 IUCOOO MiVC
sos
.J
506 QGFFF _.C
507
J
508 R3CA$S IWC
509
"
510 tll3CS4A MWC
511
"
SlZ R3C.i!OZ MIK'
$13
..
514 A3C:INC WI
515
llVC
.,,, Sl6.
517 R30U!5
Ste R3C106 LIO
....519
TaF
SIG
.IT
sat
saa
Neka1
A,._LcC:
.c..u.,,
sas
526
X·M·e&lOI
··o.-··ea·
·tCFI'LPOft"·····e··e··
ttl3L.Oa . . . . . .
RXML·X···
JFLAG·X· . . .
tCM.J> l <ZI ·f!olDl.Da
fl3Ce
IQQU,. .x· OC·
IFLAG1111t·t=-O·
ta...01-1 ( 1.-t. fCl..02-t
tl3CE
f'llLDtt U ·MK.02 Ra"5T1
11t3C"'-eX·_.
JCFLACi.ellt· OF·
tQCHLt (1 J ·R3CMI.
f'O&A-( 2) · - -
ST AT AC (2) 1fotCLOl
STATUS
JLt·e1· XLl·oo· JILZ·O-DOO·
STATACC2t.....,_02
STATUS
lQ...t·ao· XLt·OO·
l'L.Z1 ffFP·
JCllLA~10
.-91.TA-fl..._llfT ·""flW TO UMC U!llO IN .......at
· _..E COfiTEtftS OF H08 20-21
...,. ...... . e1'RY TO .....0 Ffllf'P IN "88 20-21
·S. . .£ CONTENTS Of' tfD8 20-21 .ET tlPFOll totAt..T -o9
· . - t· HOB CONTetfTs c~
·l!MCMI If" SGUAI. ·Sft di' . . . HALT OC
.seT-..4S
·
·SU JP ttl 9-ntE ("....,.ED
· lflWllllil I ft tilOT · S8E tF 1..0 8¥T£ CMANGE~
.CONrlNUE IF IT C!MM'EO
·SET FCJR ftMl&.T 01>
e911iT A..AGS
·
·S-ET ..._T C00E
·SET vP ~ FOR PRtttT
eMOV£ lST MStA.TS TD STATAC
eGG PalNr EMOfli
.PftlNT MOS M>Olte EXP, ACT NG Ml..T
·£MGll ....._T -a&- -oc- OR -oo-
·lST EXP· tlesut.T
··VE INO llEsULT TO STATAC
·Ga PRlMT 2NO l!IRttGR eNIMT HOB AOllA· EXP· ACT
.e..... MALT - - - -ec- OR
et!XPECTa ltNO lte:IUL.T
-oo-
·MSl!T Ft.Ms
··
Jl·80· 15101
.DISA8UE TC a&Si!T
x·c:o· 1SIOI
.~EAff~iff
A:SCOTJ '-2 ..XRl >· ZEROCC elCRl I .Us.E .Zl!IRO FIJlll OATA
Al1Cttt5
·GDL..0 ~S
f;3CDT-1 <a·XRI >·XCf'f'f"I · JiiR1 t ·U$E FWF Ali DATA
R3C«l5
. a a u A . J C D ' f t ( 2 d 1 R l t 1 X C A 5 s <
·V.tlE AMS AS OA'IA
R:IC.CIS
R3CDT1f2·.dl1t·XCSAAC·aillf.ll ·USE 85A-A AS DATA
A3CclS
R3CDT1 ~2 · - , .xczez< . . . I .use . . . . AS DATA
A3CKl.5
tMCFl.CeX_,.·
·Sfl lfCjf£tlE1fT OATA fl'L,AG
IUCOTUZ ·Xlll J ·KOeSTC:t·IU I ·Jllll'IALIE OM'A
113CK16+1 <·JClllhX'M·
·-·x·w· RXOTU,JCRlJ.....
JN~C(. · 1
··sttf -
..UJAO
-.aT.GttLD.OBA·OS
tea·S
wnM OATA
1'1£ST Fott 1..c:-..ettTlttG OATA
A3Cd1
_,.,.. SF fCJT
R3COT1C2.aa1t .xcaoat ·.an .IF - IMC....,. DATA
R3at16+1 t·Xlil >Mt3CONEC.&··1J
R3CKJ6+2:(eX~1Jaa·....
EJCIT ·Mf!N ALL MiJ8·$ U)AGll!9
RX«.16( eJIRU
IF llD'I'· GO LOAD M?XT .......
· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·
·..···
··
;
.~ . .
.
·-- --
....,.
·
aam . . ~OC ONEC'f'
.......... .°."..".Of'.C ....... ,,,
............9C Ot ?l A
_.. Cl Sil .... Oft61 18 ·1 _... Tl
. ..... ft.t ·· oc
o~ con 1ose
··.,c., ··M&$
.,.. u
·noeoo
OF?S IE 00 91' ea
OF1"9 SE 01 119 "l .,.., 1'9 ,. ... OfleG F2 10 04 .... 9C 01 'It l!9 · ·,, 70 8F · .,
OFW. DO o· M
Of'81> CJ 5A lMC °"'91 38 80 02CM OF95 F2 98 OE OF98 1'.8 10 1'3 0"98 C8 10 1DM OF· T9 10 f'3 OFA.2 CO JO JOH
OFA6 SO 01 '?t F6
Of'AA 00 81 OT OFAO SO 00 70 1!F ·Bl IJ0-81 OE OF·· 50 00 70 lfA GP99 DO &1 15 Gf'8B SC DO TO K OFBF GO 81 lC OF« 90 00 1'0 f'l Of'C6 DO 81 23
OFC9 79 10 F3 OFCC F2 10 OE arCF .C 01 P.S OFCA Of"6M- ~ 00 F·
·o o~ fllll·se ao
OFOrA DO 8'1
WOO 30 4a OAO'S WE 1 CO 81 ·f!A ·Fl!S f'2 87 39
............. 01
~ aoz.1
..... ,,,,.,. OP'etr 95M
,,-....0Pf'3 0202
#!<". (,;
L OA'IE
··~
.
-·····
... ,_,
.. T- I .......
...f'.:c
............ ................... ·.,·. ·ou? .iJ-:G
.... ·
Q..C
·
4E
._t.,_._. f 0 .B_I.O1-i..a.a·c··a........-.
llKG't
··f.i.e.!.I.',.·
....
.~,..n.>.1..c.·.li.e
--., wrhil
a
n
a
eDdTl~""8 ---~· .._.t-a:Caeaat +188S1Cl .-at I .
J!JIPe
·. ·.· c · __ :_·. ·...··
-.~.- ...- c.--so-nc·.·u .coeP.,. ..,. ..,,act·.._.,.
~
· Y£S. c:ar..1Mdt.1tt .,..,. --..
.-.. . .......... e .. GCPRI'.
U8
DC
..... .. 1539
DC
... Qan1 8C
. Mt
-.c Ma tlSOU· M.C
iloQ
·u·· ..._,. _,.... e . .a...ia·-·0.J0'I0·0·
.lllllJM' NOB AGOR. &IP 6 M:1' OAT4'
~-·-· c tt9Ql&T·t«···a>.eJICONt!c1.JCR1J
ttDBCC'9RIJ.K.20ZC2eXID) ··00 ONE: TG fll09 ADDI IS
f
...
TllF
$4$
.w
............ tM6
..-c
M? QC!Kaa ".41
TIO
ft1
'18N
....SU
SS3
4'ft T8fli
eT
lf":"-CC··JhJC... · IGC1Cii2
.._T c RXDTIC2··11...,.ACte·I)
QQCl7+U.M11eX···
1QC"17I ··At I
.TEST FOR flOr ltee·tllt!#FING DAT·
·lft NM' CONTINUE
.IF SO MOVE ltt
Otrf·
eEXJT flllotl!.. ALL tt0eeS S!ttSED
e If NOi' GO Sl!NSE MDT . . . ·S
· el!mOR J,. ffD9 Cttl!Cte
eNIHT IF SSW 10 IS ON
,· ·CONTI Nllll! IF NOT
· TEST FDlll OOINti Kl tdl8·S ·PRINT Kl .....
le
SU 5&6
9S?
T8F ST
1tOeSTc· . . .~1.x·10·
MDllLl
·TEST FDtl oDtNG LO .... S
.co PAIMT '-0 HCe·s
I
10
·
....... - ............ ee'2 --TC 9'
993 IMcFl.C 0C ..S .a-se.s.a: CC
.~..........
~.
............ ... .. ..,CON&....._.......,. _.,. .,.XSI' DC
..,. 100· H·c·c>-·..
aCK':c o~·····aaiuca
WT
.... 40IEX_,......,.. ..,, -=fllD te1c ......
S8Y
......... <:o
998RK.8N9$10
. . . . . .1 . . . . . . .
....
a..c
ioa ~·at on· aoa ac; oa . . . · · 1038 cc 87 . . . .
601.
-
6oe
IWC
. .3
·
!·§·K· -u
604
UC
606
DC
··· 3'031
606
llC
............. 697
607 607
..C.0-·Sla
.....ST·M.a._.·
STAYllCC2) . . . . .l
...,.... ICl!IAta1.U«n
STATUS
JCLJ·&. . ...-303:1·
···· · anAae1·rrT
............. ~ TM.-T ft DID ~ ~
................................... ·...*, -·· tlOUTl"IE tfr GICAY.
C·· ·.M £-l".t1t' & - .T--1·a-
ACT
dUl!cYD ....._T
609 · &AORS . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..._· .,.... . . ., , , , , ···· , , , , . .
1040 co 87 981'2
IOIM OE JMS ll
JM6 .....
....
IMS lM7
610 . . . . . .. . . .
6U
612 R3CEPA 8
613
oc
6l6
DC
615
DC
Atl..,..
JILl···
ll.1·17·
AL.21QPOECF)
558 QC:.C.19 CLC tl3CDTIC2.XAJJ,ZEaoC<·XAU ·CMECK FOA DATA · 0000
I 048 c;o 87 OMS
·616
8
lt3CX034-4
599 960 Ml 56.2
~~3
_..
ses
'566
56?
8E CLC 9E CL.C
BE
CLC
llE.
Q..C
BE
fOCF~F(eXAIJ
elF SO USE 0ATA · FFl'F
R3COTl-l(l.JlltlJeJCCl'FF(·JlRlJ
.cwec« FDR OATA. FFFF
. UCASSCellRI t
.IF SO Us£ DATA a AAM
AXDT1-1u · ·11 .. xCAS6-l(·XRJ) ·CMt!cK FOR f)ATA. MSS
R3C5AA(ellU J
.JF SO U9E IMTA · liliAA
··i · . t;3CDT1-1 UeMl l.XCSAA-1C1QI J ·CHECtC FOR DATA · tiMA
AX20at
tF so use DATA c .0202
ll3COl'l-ICl.;.MUeJCC202(·XAU .CHECll F'CIR DATA · 0202
IGCINCC ··ftl I
·IF so· use IMCR. CATa
,.f o
I
I' e
104.C co 87 5872
1090 I 0 10·1 10 1092 . . ..,
10M CO 87 Clf'A6
1050
loe1
100
61?
618 fl3C£09.
619
DC
620
DC
62J.
DC
M2
e
625
623
623
PRttn· JCL1·10·
ILJ·l6· Al,.21 STAT·5> lt3CK19
ATTACHtlENT OIECC ....... MtflLT -10-
::
se.9
SPO
sn 572
573
sT·
T8F .IT
MVC MVI
s10
11
HOeSTcc.xa1>.··10·
RX&ZO M>l!ISTcu~·H=~~~~"!
11Cf't..C( sXltt J ···OO·
x·ao·.s101 A3coooc.au
.TesT roa OOING LO ...oe·s
.1F so. EJUT
.. seT t..P ,..~ :..:: ~~= .,M5£T TM tNCRIE.::=D;"r P'LAC
.01sABL£ ATTAcHtCENT AtlD GO
TEu THI! LO HDB·s
II 0
; I
-
V
I I I
·
0
1058 3C 00 6188
10t5C 00 00 Sl't!· 5F' 16
l 062 CO 81 . ONO
1066 ee eo SF£S sew
106C 00 80 SFES SF·
1 01".? CC. Bl 1 Ol'A
x " 10'1'6
6188
lOl'A OF 00 $FES 961!9
62· ft3CEAll fWI
625
Ct,.C
626 627
8-E.c
628
CLC
629
tfE
630
MVI
631 R3CACiP Sl-C
YFLAGaX·oo·
STATAC-ICIJ·STATAC r<3CPRT
~T~~~C~!!!):Xeee!
STATAC-!!! J .,5T~'!'AC
RKACP 'YF&.M·X· Ftr· $TA TAC-11 1 J .xooo1
tUllLD f'IF ACTUAL? U IF 8D · ._~-TUM. " I TllW' AGAIN
ltESTDAE ACTUAL
575 576
1080 co 87 ...
I
577 ft30t20 0..1
578
8E
5"
~
NTN.X1 4,I!· MOftl -~
·TEST FDR ROUTJtllE 42
·
I .1F so. RETuRN. TO fltOUTIN£ 42
I · GO CHECK ""9 20-21 NOT CtlAMGEO
=....... . . .'·· HO
·
-
I
58~ · CGteSTANTS .....*..'****···········..·········~··········................1
583 . . . . . . . . . . . ..
1
~
1084 3· 08 1115
MS tlt3COllE DC 586 JC2CliU oc
SH HDMC DC .
sae JICMIS DC
S89 Jtc:e.A DC $90 AC.... DC 591 JCCM.I 8C
XLl·Oa· J1L2·a:az1·
XU:-e ·
............ ._2·9MA·
JIL2·f't'PF· &2·0202·
.wDRK coNSTMIT
ND9 AOC>· -AAS·-sSAA-
-Fl'Pfl-0202-
,..cc... --23 I'
1088 S. 01 UGD I 08C C2 01 U91
j ·
lOM fll'3 se co
.
aen n e7 OF
·
1096 34. 08 lllS
lffA 34 01 1100
...,.... oa·
. 11:
I
. . . . .U L . 7 5
;I e
**. . . . .. . . . . . . 6 3 2
·
QCl'RT
633 ...........................................................
. 634
635
·· ·*te'°B·H·*-***H*O*M*. **·
SUSRCUTlNE LISTS CDNTEMIS GF SELEC1"£0 Hll9·S
·
·
* 636 ·
637
CALL SLISROUTJ NE By
·
8
tD9tt 1..1 STS HI HOB· S
·
639.
·
639 ·
8
HDeL LISTS LO ffDB·S
·
...M MlO*·***.*********
.
.
.
.****
.
.**.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
. .
.
.
.
* ..
642
M3 tCt&tl ST
SAARJ+~1MR
·54¥£ RETUitN AOOAESS
ST
SXIHl+310XRI
eSAYE Xttl
LA
~1-·1
SIO x·co· .s1a1
eLOAO Mt MC8 MEAOIN5 AOOAESS
-e·a;..!' ,..rT·CHMen
"
STIC>J
eGD STORE ffEAOING ADDRESS
ST
SAAAt+3e_.
·S-lf aETIJAN ADDRESS
ST
SJCl'U 1 +3e MU
·liA411E Dl
PROG JO PAR
j
I~
....
. .,2
lME C2 Ot ttS8
1oa.2 nsaae
........ 1...
IOA9 M - IUY J-0&0 .... 111·
1091 H 8iA U19
lG8$ SO e lUO
108 - 8C Ult'
118D ,.. - 1121 IOCI 30 IE 1121
u>cs · · uas
10C9 CO 8'1 021A lOCO 81 IOCE 9C lOCI" 11,,. 1001 CD 8T 021 A lODfi 81
1006 1007 11158
1oco
IOCE lCIDO
1005 1006 lOD8
1009 C2 01 119"
1000 c.e oa 1U6
100 M 01 10Fl IOE5 ~ 02 lOEV
10£9 co 87 021E
10£D 01
toe.£ 0000 lOFO 0000
lOEO
toe=
lOt=t
10FZ E2 02 01 10f=S 70 FF 01 10F9 FZ 81 07 1011'9 02 01 03
10F£ co · .., JOEi
1102 CO 87 021A 1106 86 11·7 36 11 Oil UC"P 1 lOA CZ Ot 0000 110£ C2 02 0000 1U2 CO 87 0000
1106 ll07 1109
1116 001>0
1117
1118 0080
1119
UIA 0000
IUB
lllC 0008
tllD
lllE 0000
UiF
1120 0000
1121
1122 oOOO
1123
112· 0000
1125
1126 CIC.C4DM0604C ll2C
1121> FaFO.CFaF14:.'1' EZ 1158
11315 .utFZF340FZf=4'4 tF2
1130 f0540F2~0F~ .....
ll·5 F2F84GF 2F94CIF 4'1
1140 40F2CMOF2C34CF2
1155.C440F2CS40F2Ct
l1$C Cl<.'4«:40940604( 1162
1163 F_.04GFlF140F 1'2 1191
..-o 1168 -.3F340F.JF44fFa
1173 FMOF3F640F3F
l I '18 F3F MOF3FMOF JCl
1163 40FSC240F.ICM l'F3
use 1
C440F3CMOF3C~
-1 .....
es2
SIG
... ~. ST
...s6
6!R'
.......,
....,
.. 8
665
DC
......,,
oc
·DC
669
DC
6TO
DC
61'1 HDMIRt DC
·n
673
LA
674
LA
6?5
6?6 ACAINt ST
...6TT
678 679
RT21
ST 8 DC
DC
...6el RYU DC
682 683
686
686
687
· ua
689 DOH1Sl
698
DC
691
DC
692
DC
M;3 $XRU LA
694 SXfl21 LA
695 SAMl e
696
697 HOU oc
698 HOZI DC
699 IC>3l DC
700 ..,.l oc
701 . . . DC
702 . .61 DC
703 MD1'1 DC
704 MOm oc
?OS
DC
706 HDICI DC
706
?06
706
706
,...706
?GT
DC
708 tmtGAl oc:
..?Ge
?08
.f,.'88
L
OATE
EC NO.
~
. .~
07.IUL 75 &...""S:>23
25CT75 82!032
.... , .. ,
K._·eSIOI
tee\DIU.lllll
MD11··._..
tea ·.-...
...... .......·. ,MD:H·····
, tes1·a.-eec·
........... MD'fl·····
PRltlT JILl·fta·
n.1·1a·
Al.ZftlDMHll) PRINT
x&.l··t· P.t·M·
111..Ztl'lllNGl)
RYllellRI AY2S.JClt2 UNPAC« Lt·Ot·
M..ZC·_.a
M.2(--·t
lleXR2t.xA2 lCe.xtlll)eJC*FF· DOMISl 3( ·JIClitll .... AGAINI
PRINT xt.1·86·
lLl·M·
.....1_11....X2cI1II1·ua1>
-··.ICR2
Jll..2·0000· xa..2·0000· xa..2·0000· JL2·0000· JQ.2·0000· J1L2·0000·
xa..z·oeoo·
XLZ·OOGG·
CL?·A.DOR - · Q.47·20 21 22 23 M
a.7·A111DR - ·
CL·?·_, al 32 33 M
....v~~
...................... ·&&····
.OI~ A\"tMfl. .ltT
·.-ur AODRl!SS ... Nita' <a·ul!IC
SYMll &I. 16 . . . .$
IC1 -UIC·..-:T - 1198 Oieletlet...... ( tt· U .. dtrf'.ol!?ff40fUEY UCY
,c
}o lo
11·1 .aen,,.~er
1 llAi91£ t1~ an . .~- -M..0
U · 40E71!M.ei!. .eT
:ucs E7·_.,...,.eiEl'I! 1
llC8 ftF
uca
uc· cecc.a.ac-..·s Uk
llW. al-.PE2
uosoeeo
1106
1:.·
le
7'09
DC
710 ...... TIO
710
?SO
TlO
?10
711
DC
712 ....,...... oc
a......-- - ·
~~··········u·uua~
712
713 MOUi OC a.2·.....
714
TIS . . . . . . . . . . . . . . . . . . . . . . . . . . .···········. . ...._. . . . . . . . . . . . . . . . . . . . . . . .. .
"P16 ·
.atnlME 6 - ·IM R£GlS"fU UIClltf!tlENT TEST
·
TIT . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ,.._ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..
718 ·
* 719 ·
720 721 ·
·
LOAO COWT-Aa STOllAo811 1'0 CMl!CK . . . ·~ss
·
l..C:RElld!ttTI.._ TIE OATA HING Lo.taEO IS VNl~MIT· f'OWEVSRe TME ADOA«U Sl'IOUU> INCM··T
* ·
eJCRl · 1ST HOe POSITION
.xaa · lST tee OATA
.STORE U~ACK OEST. AODR
eSTORE UNPACK SOURCE AOOA
·GO UNPACK ONE NOB
1.
I ·
iC
UC>7 06 ttD8 08 1109 ilt87
7&2 ·
723 · 72· · ~·
CML.Y T!'C£ lNca&fif!t« atJ TtE LG 8 8tTS OF AIMllUS M1£ OteCKG> 8Y 1NIS ttCMnllE· THIS IS 00N£ 8Y SEfcSING MOB IF SIMC£ MIM GIET$ OU*EO tNWJ IT EAC+t MCttlNE C\'CU!·
. ·
· ·
726 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..
727
728 RTCl6 DC
729
DC
730
DC
?31
a1·06· XLl ·oo·
~(lllT07)
RNOa.ITll&1AMftUEAI-.. -1-"1·'£RdNTIONe NEXT ROUTHC·
.SOUR«. AOORE'SS GETS F ILL&O Uf
11 0B CO 87 021 A
732
e
Pfil INT
eD£STe ~OORE55 GETS FILLEO IN
· I .."CU.ENT CAT A ADDRESS .TEST FOA Ere
e
·· -~·~so
.NCT EtO. lNCR. .<At TO NEXT AOat'
·LCD'
·" PRINT MDII· S
c
110F ·1 llEO 19 11£1 1284
11E1' TC 00 6" UEA 5F 01 &a &2
uee F3 sa eo Utt ti's H CO
UF4 31 _. 0062 11'"'8 30 .,- 9FE6
t IDF 11£0
nu
11£7
733 734
ns
DC
XLt·o1·
DC 1t..1·as·
DC
IL.2(RT-ST)
?36
73?
·us
USING R04'K0t··l
LA
R04K01.,XRl
739
740 AO«Ol MVI
741
$LC
R04£XPCeJIR1>·X·oo·
.l~lTlALlZE CGUNT
A040..T( ··-1 )·fl04CNT{ · ·1) .zeao TME COtlNT
742
510 X·80· eSlOI
eClsA9L.E llTTAC*8tT
7.,,4..3.
SuIoG
745 R04KO.? SNS
x·co·.s1o.1·
ZERO.MOS?
STATAc.~7
* .~ ATTAOttlftlT
·SET M18 t£-IF 0
.stENSE wee 1e-1F
11FC 4D 00 64 ~
746
Q..C: FI04EXP( l·JIRt)eSTAW.C
eOlECK FOR CQRM!CT
1201 FZ 81 49 1204 3C 00 6ta?
741' 748
.IE.
R04KOa
·JC· MVI JCF4AG 00·
....... IF tJK AV
1208 3C 00 6188
7-9
Miii YFLAGeX·oo·
l20C 3C 00 6189
750
MVI 2FLAG.x·oo·
1210 ., 01 12··
751
CLI R04EX-PeX·o1·
1214 CO 81 lUO
T52
SE
ll04ATa
iQ
UUl 3C PF 6198 121C CO 87 1244
'1'53
'1'54
"B "'
W'LAGeJC41 . . . R04EMl
215 26 2'1' 28 29 2A 28 .1!C 20 2£ 2F·
·
1220 :u 58 0062
12~ H 4F 1286
1228 Of" 00 1286 Mat
0
t22E 00 .. t286 . . .
·· 35 36 37 38 39 3A 38 SC 31> 3£ 3/F ·
12.- co a1 1e·o
1238 3C PF 6188 12X CO 87 1244 la.c> X f'fl' 6t8S
12.W. CO ff S0A5 1248 0. 1249 13
124A oooe
·· 0891-2
&ATE
07.IUt:r~
dlC1'75
. '755
'156 · ExPEC TED VALuE 01 NOT AGHIEVEO·
757 A04AT~ LIO
158 T59 760
SNS &LC
a..c
ZEfl01 CTSlOR
TRYTwo.ea:w lAYTwoe 11 .aoooa.
TWrTWO(lleSfATAC
761
8£
ll04ZZ
...T62
.,763
MVI 8
·vi
'165
1'66 R04ERA 8
761'
oc
768
oc
W't..AG · X·PF · R04£fUI ZFLMieX·PF·
. ..STATtlS
,., J{Ll·Oo·
769 ROExP OC JCU!·. .
770
PfeV ACTUM.. VALUE tNC.AEtlEN'ft!O?
aa If' SO· TO R~ ACT ·"'Z
S£'f Y-FLAG. RE.IECT lST ACT
.£talOR · GO .-RIMT ePRltff fltfMI lttea ERll eEflASQ ttAl.T -13·l!XJIECTtEO RESULT GETS FIL.LED IN
ttaOG 10
0891-2
6. .EC N3e 82S023
UIO.H
PA4£
6A'
···
· · · · · · · · · · · · ·1· ··········· · ···
.. ~:""'M,.....,."""--·t.·-«-~~-,.....--~..~---~.,..~~~~~->'-'·· ."'""'-~"""""':'~""·"'·~"'~-.___...,<.....,,;.:;...~~-"---..-~-~-'-"'"'"""""'~........, .'-·''l;=*-"-"~-~A'"'··;,.·."'1.'...~--·"-il ......................... ,, ~,,,.__,_, ,.,.,.....____,,,_._....,.._,...,....,.;;~~~.r::~-~~,---............,...,._ .........~.
....,,. ~!.·.--'·"'·<--
'f' --r:~, -
JUI. #ilt...._.IC f; ··· 1 F
......,...., ......,..
I
. . . UIC OEWl!C1' - -
a--. ..... 1..-C 4t!' 09
.......,. ........... ........ :e .......... ...... :1,,_ - USltf!EttlG-ft ....
...................... J.asAFaat ..
1at10asn.oeea
.· -· ...........nu·.·.·...........,·.. 111161 - - It ...,...,...... ......... ·· .·.1s..a-·...···..--·..·-o...... .... ··· .....-..........,..,.......1.........··.....·....... ta.,.. U'K OD0&&4£M.OF648* ....
C9Cl 09t:CttMte5C ao
.. .... -......, ta7c cesc..-auc:EZ
s-. n
· .. ... ..... SflltSooee
l j
...
,,· . - - .atPLM' ... ._~..._
.
.
.
-..-,.mw
....
..,.,...,
.,.. . . . . . . . .c
n.a
-.c
,.,..
a..c
"H"S'.
4uEo
n~1· '
e
?7e __,,,.
.................
·l~llT·~~·
..,_ -.owa ~a··o..-aos .t...1w1Hi1ec.--1 · ·~ ·····._C.ll.lW-'f
. ...CUTOR
4GM> ~ ~To ·MR ....:tifT
.t..ODP e.tac
10
! ,
li '.
LhA:_y··-.
:. .
Ml -..CHT OC Ne aOlllEND DC 'Nla
7U ..... RT.sT OC
·s&.a·o·
~.
eSTGP HIDICM'm
0
.7,. M
.,.
YU ~.a oc
~oo·
?86 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .. .
787 ·
ROUTlfll!: '1 · LIOl'llNS MJCRDCDtiTAOL -STORAGE TtUST
·
?e& . . . . . . . . . . . . . . . . . . . . . . . . . . . ..,. . . . . . . . . . . . .~. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .'
~·
~
~·-·U
J_. . . . . ., -
.,.
l'. . - · · · · · · · · ·
I,..._.
«'tlF
01 01
M?'a ... ... ...
JaMt ca e? SOA\5
· · · eC . . . . . ..
1.aaa
.
ISM.,,,,,.
1aa-a K Q 1;,MC .
a..- ac c· J.391
·o ..... 1232 SC 18 1....
1336 K
13M ca 02 ....
SS.ts
U·if'
634
..
83$
a..c
06
~
··
tWJ
839 RePB ·11¥C
eo:&
SLC
.....
tee
M2
·
-.-.~. --..,ioocc
MS
0(
...
11\fC
M1' ··14 8
,..._
BC
. . . ·f!5H.:T 0C
eeo
Dt
·1 ·tlSF WI
.,fl 862
853 Aoe&T
855
·I
8$6 RO.ST tlWl
85? Ro&G() 1 i..A
~la). . . . .
~T·«·»·
~·-·
ST4l'f.&e(a t......:...
~
STRM:GI· .._. S"MTV$
,.,.,..
lFLM.O
. . . .$1+2-.·~·
JD5"2+z.x·Cff"
Ro*5c.x·t·
· · · 1. -x ··o·
............ ---... ..... _ _.,~ ,. .... 11·
·GO ST..i ....... ·tl8UT · IF c..-.e
·teT . . . . . .. .
........ ... . __.,~
... ......... ...,.,, ·~----..- ~ ........T ... .,....
..... c-s . . . . . . . . . . . - .._.,,
· . . . . . . . . . ., . . ~-19- . . _,...
· · . , . . . . . . . . .T
...,. l!llD ......., 111 SY·ftC
·4IO -MIMf . . - - - T
-t_.. .M1·T CS . - . ·E·· ACT
..-- ttlll."f
- t... OA _..._
....-....n.
.... fir&.&$
.
.
. T
·
·-.T f/11 tl'9lt t ST STG
·Sft' tilrAl.'!f cGoE N
eLOlt.O AU. CS Wl'1" ....,.._
..._. XRa M CS A-EU CGUftD
128" OJ' 12·· ·· 12119 lTX
12&· Co 87 ··,,. 12· 01 1290 17 1&91 9911'
1287 12ee 128A
790 · LGAOS AIG &EHSES F'ET S'TDAAGE CARDS ffl'&C) WITH F'QL.L.&l·1.._ DATA
·
?91 · 792 · 793 · 11'94 ·
~ U fl£C1·2·3 WITl'f -0000- . PART 2: f"SCl .z,.3 ·tTtt .,.,._ PlllT .3: f<SCI WITH -0100- Ta -CUFF-
PSCP. ·ITH -0200- TO ....02fi'F·
··*
· *
'P9S · 796 .·
e T97' ·
7'98 ·
F9C3 ·ITM -0400- TO -o6l?-
ETTI· SE·SE S.U'CH 12. OH CAUSE$ THE CG'f'l'ENfS OF «Wf'ROL. STORAGE TO !IE fllRI N'TED OUT AFTe:ti EAC,w SE-NSE IF 256 W-ORDS
·***
?99 ·
·
c 800 - . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 1' . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .. .
..,802 ATW oc
0 903
oc
..... DC
JU.1 ·0T·
xa..1· o·
-.2CRTOll t·
ROUTINE T
NO MANUAL tHTSIWEtll'T ION NEXT ROUTINE
.... 0 9
, cc
JILJ·oie
... 0 eoa
oc IL1·z3·
DC
M..2CAT5S'ff
LJO.l'SNS MC STOit£
JS:lf! M 02 96?>
1~42 co ·7 1.U
UM6 ·
IMT f'S N 8-0
.... "3 ... co
IJS49 SO 4F J6r;2
IHI x: OJ aac2
139 11 Sil UMUi J.»99 Cl l5E 1691 IStll> CJ SC 1691 1·1 .N .,.. Sf'E6
l.S6t5 CD 00 · U 16'2 1:J61!1 CO -OJ I . . 1.W GE 00 16C2 Ji.A,QI
131'9 OE 01 aaa Ma
137· E2 O;t 'Dt
t 37E 3· n een
1.-ea C110 '01 IN13 NH
1Ma co oa 1ae
...
$T
-~
860
DIIC
...861
862
SJO
863 ROt!FSI SUI
SlltS
8165
ttvI
866 R'OfKD2 LID
· ·9 6 7
TIO
1'JG
1869
PIS
870
CLC
8TJ
&NE
972
ALC
81'3
41..C
e?·
LA
875 876
ST a.c
877
9N!H
. . . .01.&fCZ M99PC
-.i·.eo·
x·eo·.s101 x:·c-o- .s-1m
tt0fUtitC.tma7 SlOStNC.I RO!SSSC·CTSTm fllOSl..PR.FG-0 aosLPA-.PET ADii STA'TAC.Mo&?
STaU·CU t· AOSl#C RSlNCE JIOSJfllCI 'S }·WUN
AollSssC.ROSs1..u >
IC · JIA 2J · -lllltt
fii05'WGl·Jl'R2 RO&lf01 ·Xoetrfr
Ro8K02
eHdTIALIZli ADlillUiS AT %ao
·1IET U- -aMM.._.S trCllt P'saa
Dl9A81..E AnAClllEtt't IE........E A1'T.......... elNJTIALla IMC. DATA
I.MD CS WlTM NE-oEFltrlEO IMTA · Tf!ST FO. ·1 TE DATA Cte!C&
··lllSE ... ·TIM' flDtl ADDRl!ss Ctee:K .11E-lf'
.ct«c ·IM CORAee.1' ·GO To e.llRGR lfl tiem'
.JtlC'NE:tlENT Eld'ECTl!D MT-A elMCREtlll!HT DATA FOR "£JCT CS .LOC
· INCRE11E· .,.._SS CGuNTt!lt C OECIK IP AT £111) OF MO STG CD.
IF - · ~oao NIEXT cs ~DCATlCllh
1293 x 10 ......
1297 3C 00 6187
1298 3C 00 6188 J..aW' 3C 00 6189 UtA3 F3 58 N
lZM f'3 S8 CO
1249 31 S8 OMZ
!.240 Fa 99 Ut80 P5 S8 Ge
tlBil 30 s· eaec
tataT fr3 S8 ,eo
1.29A n sec·
180 311 H e0s9
1ec1 n u ·
1.zc. P's ·· ca
UC'I 38 Se «lle:E
1.aC:a OD Ot OAK 4>01E
1aru 3C 1· :19.I
aaos ·c,. ··~
1209 F2 81 a.t
e 1&DC
09 aDl!;JleDa>
&ID
·11
·1Z
·1·813
ass
816
..8·,1·1·'
820·
NI
au
82:1
a2·
Baa
4126
.·eU,·aT.
01
*IYI titotiSF hX 1 1e·
M'IJ Xts'LaG·X· 001
NVI 1FLAG · x· 001' 11¥1 ..._AG.x·oo· SJO x··o· ..s101 SJO ··c:9· .st OJ
t..10 zt!tlO.CTS'TDR
SJO JC·80· ·.SIOJ
$10 x·co· .stOI
$"6 fiQ.;01 · C1'ST8R
SJO x·eo· .$1e1
510 JC·Co·.SllJI LIO XFFFF,CTSTGR
SIG x·aoe eSIOI SIO x·co·.stoi
SNS HOLO;! .CTSTOR
CLC ttOL:DlU}...._.2
..... tilVI ll5NLTeK·14·
·I JFL·ePtllf'· .IE
..... -IC1J·ttGUIZ-I
elNITIALIZE FLAG
·DISABLE ATTAQtlltENT · E N1 A-l!L£ ATT ACNllENT
·ATlEMPT TO lllfJT ZettO JN c.s.
aOISA8..E kfTAC...9N'T ·ENABLE .an~~
.sEH5f! ·~ zeao
·DISABl..E ATT~ ..ENABi.Z ATTACHMENT .ATTEMPr TO PVT ,.,,,,., 1N C·S· · OlSABUE ATTACHMt!lN1' .ENAIN..E AT'tA~tn'
·Se..&E ADGMU5 ZEIWI ""-9EE Jfr C., S. CffA. . . . AT AU..
· sE1' I/IP NAf.,.T 1.a · Slit l''-Ali ·E'RROA I.fl' ·HO CHANllll! Ill C · S. .seE · +11 ,..,,.£ c:tWfGll.O
0
10
· · ·
IJ.e
,.i · ·
I I
as.: F3 sa ··
1...- Fae.a .CD
>- .s...-.
C2
" 02
.·.n. .
Jl9A C2 01 SNl
Utle CO 8T 16CA 1-.Z ...
1MJ 30 se 5Pll6
SSA7 ..: OJ 81 · H
t:sAc 112 01 oa
IMF Cl lllD I~
1383 oo 01 5F&6 169
S·9 F2 81 CJI
ISK OC 01 lMI> 1'6W
,._0061.:N
. . . .IC ·· 61·
.IX.A.
M
co
2o
lO
9IWW , ...
UM .., 00 llPt!S SFIii
878 RO&c96 SJO
a79 Roru sio
8&0 aOSC.07 LA
... 1Mt
Mt
M2
ea3
ST
LA
e
us
'886 lllOfillt08 SHS
887
MWC
eae
LA
889
890
TIO
891
Q.C
·892
.,E
......···893 R06SEJC ttVC
MS
WI
.,..,
flflfl T8N
ST
899-
a.c
x·eo·.s1t11 x·ca· .~01 o.ua
Ao5901eXA2
Rnw1a.a1
tto59PC
JIL1·~
STATAC.CTSTDR 112 ··RI) wSYATAIC lt(eXRU1a1ll:l
A05SEX.ATTCMll
STATAc.aoSSSC(2) AOSK0-9 ff5X01-.ROSSliCU!I
~LM.x·oo·
IPLAG·X1'00·
AOSIWh x·zo-
Ml'5 ART STATAC-1 (JI . . .TAC
D~SABLE ATTACMllENT
·u· --- E~ ATTACMIC1!NT Ai$ CS A01>AIE:S& CQuflrER · INIT lllU.. 121! MJCllE'SS AT ZERO . u n x·1 AS cs SNS CATA POltlTt!A ·SET uP COUNTERS FOR FSG 1
atllE CS·STOl'E IN 9'lla ~TA TAa.£o ·I- a'hlPME TO IEJ1!PEC1£D
DATa ..
· lfl' ATT· O.e GD PRINT
£--. aCOlllPAfilE TG -EXPECTED OATA-7
elt= YES· C:O-NTINUEaJF' Ml)T11 .1'0VE lfll bfl£CTl!D DATA
.-ART 3'f 811 IFSD
ACTUAL Hlw.ACTUM,. &.Giit
la& 3C us . . .
aa· X FO 61P
N2
·33
. . . . . TeJt··u~· ltPLA4;.lC·ff·
..,sqn-r...V.,P..M. &T la
, ·
UN CO a1 .l--.4
41
l :.C lie Ft= Haa
'· ....a-~ IM1'W
07' .IUL.?tS
"J·IECND. NMU
900 901
1~6
82803·
BE
llO:SAOO
MVI 'WFUG.x· . .·
9Sl!A T .....-.......
···
:·'·I
J -
·
1 IUHM
\.:
SRO Cf> 81' t..a
lS.. 94 OZ M?lt
co., ..... 1ae oo 01 &e?a 20-.:
1~
131'2 :m Ot we6 l 3't6 co 81 l·U
l3FA 30 02 9FS6
13'5£ co e1 '""'a
140.1 !D 04 . . .
1406 co 81 1.W2
l.OA 30 08 IP£6
1&0£ co 81 1·42
l<fU, 2 3D l 0 IWU
1416 co 81 1442
141A SD 20 SPE6
141£ co 81 1··2
1422 30 40 9F'E6
i426 co 81 1442
14.&A 3D 80 !WE6
142£ co I'll 1442
1432 30 00 5FE6
1436 co 81 1·42 143A 3C '"f' 6188
143E CO 87 1446
1442 3C Ff' 6189 1446 CO 87 SOAS 144A 40 1448 DO 1441(; 0000
144E OE 01 1698 S6 71 1454 E2 02 01 1457 34 02 ~73 14SB 3D 00 St'i1'13 14SF CO 01 13A.J 1463 C2 01 5701 146'1 30 01 5612
1468 co 84 1480
146F 38 20 02 OA 1473 CO 90 13All
141'7 co 87 556'1'
14?9 80 147C CO 67 1SA!
1480 3D 02 6672
1464 co 84 1499
14&8 38 20 020A 14K CO 90 1343
1490 co 67 5561'
1494 40 1495 CO 97 13AJ
1499 30 03 5672 1490 CO &4 1492 14Al 38 20 020A
14A5 CO 90 1343 14A9 CO 87 5567 !449 20
14Af! co 87 131.3
14'&2 llD 04 5672 1466 CO 84 14CB l 48A 38 20 020A
14B£ co 90 13A3
14C2 CO 87 5967
14~
1448 1440
.....·3
8
.9_05 -.a8'0 aS'.1.c
..,.
eNE
908
Cl.I
... 910 911 912 913 9!4
f5E CL.I 8E CLt 8E CLJ
915
SE
916
CL I
917
ae
918
CL.I
919 tl20
BE CL!
921
BE:
9-22
CL!
923
8£
924
Cl.I
925
BE
926
MVI
927
s
928
929 AOSZZZ MVl
930 tr05ART ti
931
oc
932 ROSMC DC
933 ROP.01 f)C
9:M
935 ~OSK09 ALC
936
LA
937
ST
938 939 940
CL.I eN£ LA
941 AOJU 00 CL.I
942
&M
943
TBN
944
8F
945
e
9416 947 948 ~· 950
AO~oo
DC
e
.c;i.1 8H
961 95.!
953 954 955
TBN
BF
s
DC
e
956 957 AO~OO Q...I
956
8H
959
960 901 962 96.1
TBH
SF
s oc
8
06:·
965 AOMOO Ct.I
966
SH
96T
TBfil
968
SF
969
e
......,. aoa.o1.xu
·wo1ca .......
STATAC.·..I· ROSZ.U
STA~·lt·_.
ftOUU STATAC.X·M·
ROSZ.ZZ S't AT AC. JC -OS·
ROUZZ StATAC. >t·to· AOSZZZ
STA"fACeX·20·
qszzz
STATAC.X·.O· ROSZZZ STATAC.K·eo· ROSZZZ
STATAC. x·oo·
RO.SZZZ W:t..AG · ll· Ff"·
ROSA~T
ZF'LAG·)l· PF· STAlUS
x&..1 ··o· .lC&...t ·o.o·
Ai..2(*... ,
ROSSSCeR OSS HU 2 I 1 C e>i.R2) e~2 ROSWOlellGA2
acswo1.x·oo·
R09K0'8 f<C)&Wl &. XRl
A0&.01-1 .x·oi ·
AIKil200 SBVTE2·SSW12 flOSK08
~OSDCS
x1.1·ao·
ROSKOS
Roh01-1.x·o2·
AOR300 S8YTUeSSW12
ROS~8
R051XS XLl ·40· AO See OS
R09wo1-1.x·03·
~0.0
SBYTUeSSW.l2
R~O-S
ROSDCS X1..1·20· ROSfC08
fe5W01-1.x·o··
~00
581"TE2· Sfflt! R05K08 ROfSOCS
OATE
L
EC NO·
(.,,
25(C1"1'$ 82!032
·~
· ·
0
,,.
w
0
0
·
ePAlNT CS A~. EXP· ACT OA~A
.ERROR ;'4At.T -16- OA -19-
.INCREMENT EXPECTED DATA
£NO OF A GROUP OF 2Ht RTN FM MOl/tE IF NOT
use XR1 AS cs SNS DATA POJNTER
END OF. 000-oF"F? SAAtlfCH IF foilOT.
IS SS· 12 ON? SAANCH IF NOTe ~ANCH TO ,,_INT
OUT GOO-OFF
RTN TO SNS NEXT 256
END OF 100-IFFf &RANCH IF NCT 1 S SSWU ONt l'IRANC"I IF f\IOT SRANCH TO PRINT
OUT 100- lFF RTN TO SNS NEXT 2$6
etD Of' 20.0-2PFf BRANCH IF HCT IS SS· 12 Ota 8RANCH IF NOT BRANCH TC Nl.iT
OUT 200-JFF JlTN TO Std MDT 256
Ef>tD OF 30G- 3FF f
941lANCtt IF ttt:rr IS SSW 12 Otf'I ~ANCH.IF t«n'
BRANCH TC PfllNT
·
;()
·
0
· · ·
~.
i··.
, ·· 18 t«Y C8 9'T Ull3
l.c:B · oti MH 1·0' Qt .. ,...,.
1·n Mao-..
,14,0.?
co co
·90.,.
lM3 9961'
14'.PF ec >·EC co .., I au
1·· X> 06 9612 1·&8 co .. 1..-0 14EC M 20 020A 14>1=0 CG 1JO 1-3
l4fl'I. CD 87 5&67
14F8 « 1411'9 ce · .,. '34 :s
14FD SO 07 56?2 1h1 co 84 1116 1506 38 20 020A
1609 co 90 l JA3
u~oo co e1 H61
1511 2C
15U CO 87 1 JA.J
1516 :.so oe 961'2
151A CO 84 1ii3'f 151E 38 20 020.A
1522 co 9f> 1$28 1526 co 87 5567
152A lC l5 28 3$ 02 Ot. 0C
t 52"' co 90 t 680
15:53 CO BT 13A3
1537 30 09 $6f2
153b co 84 1$50
153"' $8 20 020A
co 1!)~
90 13"3
·· 164'7 co 87 !!1567
1$4-8 1s.c; CO 87 U·U
1950 3D OA 5672
1554 cc .... 1969
1556 38 20 O~OA
155C CO 90 13A3
tS6o co eT S56? 1564 4A
156& co e? 1:u.3
1569 'SD OB $672
1560 co .... 1582
1571 38 20 020A 157'5 CO 90 13A3
15?9 co 87 5567
15TD 2A U57E CO ST 13A3
l 582 so oc 907:!
1586 co .. 1582
is· 38 20 02·
Ui8E CO 90 1680 US92 CO 8? 9967 15'96 lA
1!59f co 87 16&0
Ofl91-·
DUE
!8 .EC ..Oe
I
i·
9TO 971
9T2 973 974
DC ·
ADMOCI Q..I ..
9?5 9?6 91''7
""' .. ·
9T8
8C
9T9
II
MO
Ml /l.Dflf>l'>O CU
982
...
943
T8"
U4
BF
ff$
·
9&6
DC
987
8
988
9'89 AOt:rOO CL I
990
8"
991
T9"
992
SF
993
El
1511 994
DC
995
e
""'99"1 AD~OO 0..1
998
BH
999 1000
1001
l52A 1002
10.03 FET.JlN
1004
1005
s
1006
1007 ADR900 C..I
1008
SH
1009.
T9N
1010
BF
lOU
B
1548 1012
DC
UH3
e
1014
1015 AORAOO CLJ
lOlb
1017
TBN
1018
eF
1019
e
1564 1020
oc
1021
e
1022
1023 ADA&OO CLI
1024
611
102!5
TBN
1026
SF
1027
e
lS?i> 1028
oc
1029
e
1oao
1031 A.DACoo CLI
1032
SH
1033
TBN
1034
BF
103.S
e
ISM 10>6
DC
1037
8
...... ...,. ....,~.x·ose
AM6M
~
a-.
-..1·«·
ttOS.oe
liOHO·l""l ·X 1 oe·
ADR'l'OG
SB\"l'tta·SD U!
~
aoeecs a1··c· ~-
fUUiWO l-l ·JC ·oT·
--"~· SBYTIUI· SSW12
ROSDCS
11L1·ac·
t:l05KOl8
Ao5Wo1-1.x· oe·
AOR900 SSVTE2. 5511112 FET3UI 1tosocs ila..1·1c·
uOT2.x·o2·
ROS.ICl
RO$K08
Roswo1-1 ·x·09·
AOAA00 sBYTf.aeSStlftZ RG5K08 Ro50CS
xi..t·eA"
Rcr9t<08
ROPOl-1 ·X'OA" AOASOO SSYTE2·SS·12 f<O&i:08 AO&OQ xt..1··11· AOS1'08
ROMOl-1eX·08· ACIRCOO
sevTEz.ss·12
R05K08
ti!OS~ xt...1 · 211· AOtsttOe
RO!iwOl·t .x· oc·
ADRCOO
S8"1' 52· SStU 2 ROSJCI
AoNM:s
~·a.
ftOS.-Cl
.... .......
......... M'lll'TO·flS 18KT 296
eilOOF ............
,9A.-C... .. . .
-8ft TIPQ NMDITNI' QUT
000 ..... ...... TD81tS.._,..H6
MD OF &G....911P T
-is.,,,,.tCsna' . a
tlll ltr NOT
M TO flllUHT
OUT soe-SFf"
ATH TO 5'JtS NEXT 296
£H0 lJF ..... f///PF. INt W WT 1$ "" .....
R IPNIJT
- 1'0 . .lfllT GUT 600-fill'F
Mtc TO SNS NEXT 2H
l!..O OF 1'00- 'flFF 7
ea IF NOT
IS SH 12 Ctli.? 9R IF fCIT 9R TO PRl..T
OUT ?00-?FF IS 3RD FET IMSTALLEOf M IF NOT
RTN TO SNS fllEXT 25·
&-ND OF eoo-8Ff"f
BR JF HOT IS SSW 12 ON7 &«l IF tetT
°"' flR To PRINT &00-eff
RTN TO 5"$ ff&JCT 256
ENO OF 900-4Jf'F7 SR IF NOT IS SH 12 GN? M lF NOT 8R TO PRINT
OUT 900-9fi'F RTH TO SNS fEXT 2$6
eNO OF 400-M"Ff SR IF NOT 1$ SSW12 ON1' M IF HOT 8R TO PR~ttT
OUT AOO-/iff<F RT.. TO SNS fllEXT 2&6
~ M' 9G0-11FF'f £ND »O PET: SR IF NOT IS UW 12 ON'I &ft IF tl01" H To MINT
OUT 800-DFF
· · · · · · · · · ·· · · .j· · · · · · · · · · · · · · ·
. _,_ ·- __,_ ..__. ~--.--~~~-.-- ·~----·-...,.. """'"""'·=~""'~~...,_- --·~·--~---"-··· ~~·<·'·o'""'~·.~_....~-"'""''""',""'~~-..,..,,.,..""°"'~::....~-·'""'""'···-;;:....·_,.·«d,.. 1~,_,,~,_,_.,,_,._,.,_"'""'~""'·--···a'-·.V~ -~ "'"''~----='""'"·.__,,,,.,.4_.~.,:.,;;-.J......,..,.,,.......~--;.~_,~,~or.i' .,~.. ,..!''"ii"·~"""' 'IS'""'...,,.-"'-"*'~---<~·.-..'-'.-~
·:HO
I
- - - i · · · . - .......... · ...."-MIM8 JIMtr ......CSf'tc MD.GaAtl
1!MUK-..c't6981£
,,._, c· 1'6-98 e MO! t1l6at:tta96m
H15i4M5 "- 29..0.0-S-
1.t5M: co 81' 91161' 1980 80
I S81 C2 01 STGl Hfh15 t:f> U 1·~ 1589 ..
ISEM. M 5e i!FE6 151iJE 4C Ol 01 tiF&6
llie3 D2 o.s ·
1 SC6 Cl SO 13J8C ISCA CIO 01 S::E6 1618
1500 CO et HM
tSCW. CO 8T 13K
! 508 - 01 1698 f f '11
!SOE E'.2 C2 41
151!1 34 02 5673
15£5 Cl) 01 567;1 56£0
co 159
04 198A
1SEF 39 20 Gao.t
15F3 F2 90 05
1 !JF6 CO e? 9967
lllFA 40
15FB C2 O! 5701 15i='F CO 87 16C· 1603 20
1604 30 69 Sfl'E6 1608 4C 01 01 5"E6 16® D2 OJ 02
1610 Cl SD l:JBC 161· OD 01 9FE6 16Se l61A F2 81 04
16U> CO II? 138C
1621 OE Ot 1698 5611 1627 E2 02 QI 162A 34 Q2 9673 162E OD O1 5673 56 CF 16~ CO 04 UiM
16M 38 20 020A 163C F2 90 05
16JIF co 87 556'7
1643 20
1644 C2 CU 5701 1648 CO 87 16CA 164C 10
1640 ;JO 58 SFE6
16$1 .c 01 01 5FE6
1696 D2 01 ~
16!59 Ct 50 13BC 16st> 00 01 SFE6 16 ·
A0GR AmrrT ....... STA'R"""1'
.... .................... 1.-.
....,S840
i..a
IM3
--- t'llBO ,...
.... ...... ~- 1........ 1..
, · ·?
8
... .. .... , 1999 ,...
Ille
asnu.-u
-~ .1··...
, ,"9..C
!0$0 ...... 8N$
1051
ttVC
1M2
!.A
1053 tOM
TIO
1099
Q...C
1056
8£
1057
II
10M
lltff
1060 ~oc *-C
l06S
LA
1862
ST
1063
a..c
1064 106$ 1066 1067
..SHH
TBH
1068
e
lSFA 1069
DC
1070
. 1071 RG-SKOD LA
1072
8
1603 1073
oc
107'· 11175 AOSl(.OE SNS
1076
MVC
10??
LA
10?8
10"19
1" JO
ueo
e&.c
1oe1
.IE
1o-a2
e
1083
1 oe· ROSK OF Al...C
1095
LA
1086
ST
1oa7.
a.c
1Da8
BNH
1089
1090
T8ff
1091
JF
1092
8
1643 1093
oc
1094
:1095
l 096 fUU!IK l 0 LA
1097
8
16.-C 109:8
K
1099
1100 R05«11 SH$
1101
WC
1H2
LA
110· 1104
1105
TIO
c.c
:sTATA'C.cTSTGA
u a. xtu, .11111T..c
ac .xt1t1,. icfu
R-STO-AB·TGA·C·C" -.JTIOTCSMMlltCU t ..SSH
lil0$SSC·R 0$$ lfltt.2 1 l(cXAZJ·X. A09·01cJfA2 A05WO&.X01FF
·os«o·
sl!r\"Te2.ss·u
ROS1cOC lt0$0CS
XiLt··o·
ROSlf 18. JlR 1 fGSSPC a1·20·
STATAC·CTSTOfil U 2eXRU .·sYATAC
2(eXR1)ed1
AOSSEX·ATTCt« STATAC9 R06SSC(21 R09KOF MSSEJC
R05SSC ,a OSSIH(Z)
l<·XR2hXRJi
Ros·o1.xR2
R0Swo1.xo1FF ROSKOE
SBYTE2.Shl2 ROSK10 Ao!SDCS .IL 1·20·
ROSW1B.XA1 ADU PC XL.1 8 10"
ST AT-'<· CT5TGR
·1 1C2eXAU ·ITATAC
2<.x·s>·
R09SEX·A TTCHK STATAC.ROSSSC:C 2t
GATE
SC NO·
.................. ., tt· .a'f ,_.. 8F
1·.
e
j
I G .... .Mt Olo IP Wi· f'fll· .......
.~ ...... WOR69,... f)aTA fl'OR .,,. ..4;. . l
~
" ' ·VSE at q cs SNS ...,._.·~ I
.&eT UP ~-· "OR PSO 2
j 0
seNSE a.. STORa 'hi SNS .DATA 1'AllL~· g CliMPME TCI EXPECTU DATA.
· i
I@
.Ga PRlf!fT IF ATT... CKK·
\
.cOMPAR£ .IF ¥£°Se
TCOONT1l5**>".f'!CE·TlI!O~
IN.TA?
1
Nl'JT· liRROR·I
·
.2~ .. 4190 Paltff
Cc
.4T SHO OF FSQ 2T IP NOT'· Ge SENSE A45A1N·
·SSW 12 ON? Ji"' YESe PR! NT ALL
SE"'5ED OAT A f<OA FSQ 2· .OU*" H6 WOROS PRH FSQ 2
!·
!
c~ · U$E XRl AS CS SNS DATA POINTER :
.SET ~ COUt·u EAS ll'Qf.l f"SO 3
\
.. ....,.~et
.... co e? l:IBC
...,. .. -·a ··a ..,. 1'661. - 01 ··· 9611
ldft *677 . , es ...,,, ·e1 ·.,,..,. co .. ....
MSS·S'ONM UH15 ·ft2 N .
1698 co 87 . . ..,
1,.6.-.C, c1o0 87 , . .
co !691
8l' ...
1.- .. . . . 11'
!69? 0000
s·· co · ., aeca
1 MIO 31'> 80 566F 16&1 P2 91 09
16-M SC ·O 566¥
S6A8 ce .,. tUA
l6AC :ID 40 $66F 1680 F2 01 10 16193 3C 20 M6F t687 CO 87 1QA
tftB CO 87 SOAS
16&9" 04 J.6C'O IA
16C1 0000
UiC:3 F'3 158 80 16C6 CO 8'1 0216
· IF ATT· CH«e GO NIN'f
.COMPA~ TO EXPECTED DATA?
lI ··
! · · lF YESe CD.NTIHUEelF NOT· Slt:tOR·l
~GO PR1NT ERR.OR
· l HC:REMENT EXPECTED DAT A
.AT ENO OF FSO 3? IF NOT. GO SEHSE MiAIH·
·SS· 12 Ot'f IF YES· PR INT ALL
!
I·
· !
I
i
SENSED DA"TA FOR F SQ 3.,
,!!·.
·
.OUN;!> 256 ·OROS FROM FSO 3
! ·USE XIU AS CS SHS OATA PO!N'l'ER
'· .:sET lP coVNTeRs fl'oa Fso 4
I
· S~NSE CSc 5TO'R£ IN SNS 84TA T A~e &. CCNP"aE TO £XPECTC 0AT4·
· eGO PtfllNT IF ATT· Cf«·
.CDMPAf:IE TO ElO'e:CTel> DATA?
··OAU:
··c "°·
· ·
2S.CCT7'5 82to32
1106
...
1107
e
uoe
1109 ft0SK12 M.C
1110
u
1111
ST
U12
C&..C
H.·&I.- . AO$$$CcR...9'(-
· 9 l t 0 1. . . . . Ao&ttOldClllfiP
... ._. 'Q!llllrffNUE·l'f' ttDT· ......
tf11Mt1R· - flllllWT
............. ·f.t1Cft&J8Ui -~ M?a
1113
aHtt A09Cl1
... . . ,·.$0 . . . . . . . . . . . . . .
1114 1115 1116
1U7 1118
9lYTE.&.,gs.n;a
a.Rc.es,e...v1ice1.s.
..... U! ..., ·· ..... .llllRIM' .....
fl'· - - DATil ftM P. . ··
...., 86 WGllBS PROll
4
1119
flOIM(J4
112.0
1121 ttO!il..PR 9
1122
cc
lt.23
DC
1124 ROSSC DC
112$
8
STAYUS :.a.1·60xt..1·1?·
.x,a"..21·08·
·*TTACH Ct« DtMlflG LR
.flltlttWT c.s. MH:llt. a· DATA
·EllllOA IMIL.T -IT-
.t!~ OATIA
U26
1127 ROlitU 4 C1. I
1128
JNE
1129
MVI
R05SFl·X . . .· fl05¥.15 AOSSFl·X·40·
.PART I ..fttS'f C.......TEDI'
IF HGT· . CONTtttUE.
a. IF YE$. SET \IP '"Ott PMIT
1130
B
R05KOl
Ulll
U32 RO!lkUi CLl
Ull3
.tNE
1134
MY!
R05SFJeX·40 ..
AOSKS8
ROsSFa .x·ao·
·"ART 2 .JUST C~ rF NO· <IVMP. ENO flF PART a,.
1¥ YU. SET UP FDR PART 2·
1135
uu
B
RO-SKOi
1137 R5t,HCE 8
1138
oc
STATUS JltL.1·04·
1139
DC
u·o R051 NC DC
Xi..l· tA·
xa..a·o·
eEMOA tlALT - IA· EXPl!Ct"D OAT A
U41
1142 Rt>5K18 SIO
DISA8LE ATTACMNl!NT
1143
8
LINK TO NEXT aouTJNE
1144
1146 *****'**"'**.._·········
11..·.·········*··--······ ·. 1146 * SUi!JROUTlNE AOSSPC *"'*****.,.**-..·-···***'"""**"'****"·**"'****"**"'*..,..._.,.
11478 * PURPOSE OF SUilROU'Tltd:: TD SET ~CGfl.,\1111 COUNTas ftOR FSQ·s IH TEST
..
* USO * 1151
&..lNKAGe:
e
lX
115% ·
R05SPc
XLl·XX·
oFLlo& SFTE
"'
* ·
1153 ·
an 0
FSQ l COUNT lfltlTIALIZATION
""
1154 · Uc!S5 .. U56 ·
* 1157
eIT 1
FSQ 2 ccum IHl'T'IALIZnlDN
·
en 2 en 3
FSC 3 CC-uNT INITIALIZATION F$C. CQJNT lNIT1'11L.IZATlCN
· *
BIT 4'-7 NOT LleD
·
USS*
·
* 1159 II: 11-t?UT REQUIREMENT: RCSSFl tStJBROUl'INE FLAGt MUST BE li'R£Vl£JUSLV SET ·
1160
TO THE TEST BEING EXEC\11£0:
·
1161 ·
·
* 116! ·
1163
'* 1164 ~
1165
* 1166 "'
1167 1168 ·
!llT 0 BIT 1 SIT 2.
P.AIRT t : FSC1aFsQ2a:FSCl3=FS~:= -0000-
·
PMH a::: F'SQl·FSCiU!""FSQ3..F~4= -FFFF-
PART 3: FSQ1:;Q.1o:0-01FF.FSQ2:=0.200-02FF
* ·
s:n 3
FS03a04 0-0- 04f'"F .,FS04:0800-U8FF
$
PART "': F!!C l==cool-FF01.FS:C2=0H2-fl'F02
·
FSG."!-0004-FF041FS04=8008·FFOB
·
@IT 4-7 NOT vtao
·
····i:o···-················...···... 1169 ·
* 1170 ie: OUTPUT: R05SSC WIU. c.OtrlT'AIN THE 51"__,.IMG CSUNT FCR FSQ
11?1
ROSSIN lllllLL COM~IH '\"'tE COUNT INCAEtlllENT!HG FACTOR
· *
·
1172.
·
117 3
·*·:t:····..........,··.,.....................
MOG !D FAGE
·
f
c_,_J_
....
l6CA M 08 l TB
16C£
s·a
:aM.
e1
ea
I1fuf&s
t-606 31' . . 11".99
leDA - M Me?
160£ - ·1 11'39 l6U U 01 0-1
!6E$ M OS 1 'f39
16e· ae n 966F
·c 16& tra " to
1&..o
01 t6"
t6"-6 CIC 01 56'11
16FC CO &T 1T2A
1700 38 40 566F
ST04 P2 90 10 170? CIC 01 1ff8 OD1!9 1700 flC 01 6671 56£? 1713 CO 87 172A
11'17 H 20 566F
1719 f"Z 90 oc
171£ Oc 01 5671 5618
172· 0C Ol 1698 56£7 172A 35 04 1738
172£ C.2 01 0000 1732 C2 02 0000
1T36 CO ST 0000 1T3A 0000
l ''f3C QB 1730 00 173E 193C
1 740 CO 87 021A IT_. 01
1745 u
1746 18"8
1748 c.t 01 1840 1T4C F3 58 &O
174F F3 58 CO l?S.2 OC 01 I 7-F8 18 CO lT58 0C 01 1870 IBM
175£ oc 01 186£ l8l6
1764 OC. 01 l1'F8 18(2 176& 0C 01 1870 liA (0 1770 OC 0.1 U6E 1898 1776 oc 01 17F8 l66'c 17'1C OC 01 1870 U!I_.
1782 oc 01 l&6E 181C l?M F2 87 12
1789 0C 01 l'l'F8 UU6 l 791 OC 01 &870 SA~
UM
U't4
............. 1179 ROS.lliiPC ST
UM
ST
........ .... un
ST
·ssau+a.·t
~
·STMI! llCat· JCaee ,.._ .._ £ GET TffE A.AG ......
lt'N
$T
ao58PS..,PSA
un
1180 U81 1182
....... L
ROSHfaePsa
.~u._.a·an·.·1
UP
.1te·111Eflt1' 1G ,..,.,... ....... cSTGRE R£T\ltllll+ ~-
1184 UQ UM
ROssPt···eo·
ll0681U
RO$SllC etl05Zf!R(al
ePAllT 11'
If" iCIOT· CONTfNfl£·
0
· qW! IN -o.60- "'DR Pu..&. ._.,
1187
ua.s
UM
u·o *OSSKl TH
· H 1-. AOSZ&'K2) ROS. .
flll'SSfthX·40·
-0000- f'IQR ttCUMl!ttTttll&.
0
.P#lT a?
1191 1192 U93
./IF
A0'5$d
aosssc. ilFFFF< 21
A0551N.A05ZBl,2)
IF HOT· COl«IMIEe · tt0WE IN ~FF - F Cfil F l.U.. AND
-oouo- FQR JffCRl!44'1!NTINGe
1194
uos
ROSSflR
UH R05SJC5 18fll ROSIF1·JC·z,e·
1197
JI'
R05SRR
IF NOT.. CONTINUE.
11~
MYC R05Slti.Ro50NEC2 >
..tetJVE IM -0001- FQR IH<~'t"UilG
1199
MVC
1200 ROSSO L
1201 ROSSX.1 LA
A05SSC·ROSZER<2)
AO~!P$·PsA
._. eXRl
c ·MOVE JN -0000- FOR F$-Q 1 £. Go .
·~STOAE XA1e XA2· & f>SR
1ao2 aoesx2 LA
. . . ·.JICR2
1203 AOSS·B 8
. . ..
0
173B 1204 R05SPS DC
XL2·0·
0 1.&05 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .,
1206 ...............- . . . . . . . . . . . . . . . .- ....................................._ ···:
1207 ·
ROUTINE e - cOHnt~ STORE ....0 ·U:...ll.W C:tcANCMING TE~T
.;
1208 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .*!
UH*
~ {'.)
1210 ·
* 1211 * 1212
1213 ·
1IE AOUTIHE l'iSTS tll~ADCONTfiCU..EA tNSl'AUCT10N S:lUt.totCH ON SMVICE REOUE$T FOR TK£ FCILLOWtNG SERVICE REQUESTS: Ut<ONOITlOtlfM.. &AANCHe MtO KATAl<.i\NA EIAANCM
it:.-········-·········-··..··········i e 11221145 .......................................
t73c 1216 Moe
o.:
Lt·oe·
I 1 ?30 1217
DC
.X.Ll ·oo·
17JF 1218
oc M..2CAT091
AGUTIHE -ea-.
NEXT ttc:IUTINE
~
0 *!
1' ~
· I
I ·
1219 1220
17"4 lUJ
·a
PfUtlT
oc
JtL.1·01·
ROUTINE HEAOING PRtwr
II ·
1745 1222 1747 t223
lU· 1840 1225
1226 1UT 1228 1229 1230
DC
ILl·.35·
ec
·1..2otT6ST>
USIMG A04UAeXllt
s ··o· u 10
4'06ZER.at11 ······
$10
we
x· co· .stet R06XD1e·oc;xe:u>
tevC M&a.£.X5060U.i
eU-SE Jill f'CIR IND£XIN6
·.,, 5AftLE ·TT·01·MENT
·E"tABt..E ATTACKMENT <---:EHTER~ExPECTEO DATA FOA 1 FSQ
aEN"Sl;R soc· 09-000 IN UX: NO
I I
Ct
I e
I 1
I ·
1231 12:n
tfVC MVC
R069flffl..>Ui0FP(21 A06XOJ.R0611CS2t2>
I eENT£fil BOC O.eOFF - FSOJ MAX AOORI
< - - :EtfTER t:XllECTED DATA FOR 2 P$QS
1233
ave ll06BlllE. XS1"4>«2>
.
·ENlER eoc o.ooo IN LOC ' " . I ·
1234 12:t5
1236 1237 1238 1239
12·0
ttVC ftVC
-C
MVC
J
tllVC *VC
R068·M·XSlFFC2> A06X01efl06d:J{2) R06Bfd-.xs1eoc2> R0'8fltMeXSitFV<a> RG6K01 A06XOteR06XS.C2t
R068tce.xuootu
j .ettreR aoc o.1FF - FSOt MAX AODRI
<----l"&NttUt EXPECTED DATA flOR 3 FSQS
.etiiTe· soc ·ENTER eoc
o.ooo
o.2FF
IN &..oc - FSQ.1
1eo ....
1 · ACOR!
l eEXI T
.
I · <--·:ENTER EXPtiCTEO DATA FDA 4 F.SOS
I . .eMTEfll aoc o.oo.o u1 LOC 200 .
.
11'97 Ge ... 1861! , ··
1no 31 · 1·e
1'1.U OD 01 le61! 1810 17A? .. 01 M 17AA lit S.e- $AOA J?AE ffll' OJ 188 l&E
I?. . ae 01 le&e 5A (A
J?8a co .. 1790
nee nee ao
I 'PCl F3 58 EQ l?C4 C1 tSD te7f)
1TC9 Ge 01 1·· 1.e12 1Ttt Ct 58 1871 1702 41) D9 00· 1"1;
17'01' GE 01 l!ilSO le«
&TOO CO 20 17CE
l'l'EJ F3 58 co
·e· 1TE4 30 58 SF66
n u 17£8 00 01
F2 81 08
17P8
1 W1 co ST 5CA5
1 l'FS 10
l7P6 1C
17F7 00-00
lTff CO 87 l ?FO eT tTFE 1867 1800 t&&C 1802 Ge DF UFC 19(C. 1808 3A Ot 554t> l&K 39 01 OAOC
°" 1810 Fa JO
1813 co 8'1 64f'E
181? tE 1818 SC03
181A f""2 8'? 1810 OC Of
1823 co ..,
1821' lft 1828 1I003
t a b OD 01 111"£6 $5 !O 183-0 co 81 0216
18:1& co 8? 021 a
1· ·e-n 8ea1 ta· s·c
18:SC C:O 87 021A
11e8.41u0 -aa
18·42 1938
184" co 87 · ·
1848 co 87 0216
1MC 0000 1&4E 01 1&41' 0000 18$1 FOOi
1as1 · ·
... .
~
ta.3 R._Ol &..Ht
l_..
CLC
1245
ME
ta46
LJO
124., ~ $&.C:
1a.e
c&..e
la.9
8H
U$0
U51 l2S8
$10
SIO
12U
TIO
1_2,.
1255~ Mite
12$6 R061<03 TIO
1257
use
C-.LcC
1259
8H:OL
1Z60
1261 ROetOT SIO
1262
ws
1263
CLC
1a6·
.tE.
1265 R06PAT 8
l7FS 1266
OC
lTF6 U6T
OC
a7F8 U68 R06ltD1 OC
UH
U?-0 ROEll:05 8
lTFO 1271
DC
1''FF UT2
CC
1801 1273
DC
1274
MVC
UTS
SSN
1276
TSN
1277
.IT
12Te
e
1817 1Z79
OC
1e1· ue.o
oc
1281
12e2
"
1283 R 06fC. OEI *'IC
tn·
e
1827 1285
DC
1829 1286
DC
12&7
1288 AOSEHO CLC
12&9
BE
1z·o
e
1838 1291
DC
1839 1292
oc
1Q8 1293
DC
1294
8
.... 1295
oc
Ut4l 1296
DC
1843 1297 1298
·DC
1299
1300
8
1301
1301
lMl
1840 1302 R06ZEA oc
oc 184£ 1303 A060tf£ 18$0 1304 AOetlOl oc
1852 130$ XFOOJ DC
1854 1306 xsoao DC
......... .~ -.·. .-.C .·.R' ..l0:6Swf·t·t .
~CTS'l'Ofl ~
RG68(11l. .ltSOootal . . . .l
._.eD··SICI
x·a·.si.ct
aoa.c:ti-.anCHK
llD64fOl··F001 A061!0t ,ffOTftO\"
~06Zatt21e.11R1J.aoaGMe
fl06W01 ·AO·OMetU RoeK03
ac·co· .s101 STATAC .c T:STGR
ST ATAC.«06XC:S(,2) R06Kff STATYS JL.1· 10JL.1· 1c· ....2, ...... ,
L.OAOCS
)Q..1 ·S?·
AL.2 cA06-·Cl J
Al..2(R06MC41 KAT 114( 16) eK AT......._ EHBf'eX· 01 1 UOT2· X·01 · taa.61(.oe OOMICJI
xa..1· 1e·
.......xi..2·&C03·
KA,.flt(l6J ettATfllfll CO.JG
XLl ·tF·
lllL.2·5003·
STATAC(2)aSTATEa 1..IH.K NINr JU..1·e1· n..1··1· AU?CtUTIO PRJMT
...1·aa·
IL1·4:SAL.2:t KATttAJ GoaLflO
LINK
JI.a···
XL.t·oi-
lCt..a···
XL.2·NOl·
XLZ·Soeo·
........ IN
...,... aoc O· 3FF - fl 901 MAX ADDR
.........'"" .._CAO COW--. STIIAe
·-s. 1tr tilOfe COfilf IHU& ·
IF
~-~ 80C o.ooo.
. . . ....,.,. 4"l0R F'OR Ml!XT UIC
.~ A.CICATf°"S LCAoeot
IP fll81'e o0 &.O*o NEX'T - ·
eDl&alt&J! ATT~Mtd:ffT ......... MlC.....GGRAW
.EfllAOR lf' AT'TACtf Ctll!CK
·lfltlT LOOP COUNTER TO i.o96 LOOP$ ·if= A1'TC+t HQ ftD¥ · ~
tf·960 lltlCRCI -~ 101..£ e l·IC1lb&EMT UJOP COUNTER
f;CTUllNG LOOP· 00 MOT ALTER·
·STOfll Ml CAO CONTROU..l!A · OETea.1 NE UX I tli CC!f!ITAOI. STOAE ·Sf!Ns£0 DATA a EXPECTED DATAt
1¥ Yes. c0ti.T1MH£.
.PAINT AC:T g EXP DI.TA
·ERROR MALT -1 c-
· E ·PECT£0 DATA ENT&f'lED
.&o l..OAO ~ICAO cooe
.ADJUST MESSAGE'. FOR NO KATAKANA
.SeT ERR~ MALT BYPASS ON ·TEST FGA KATAKANA INSTAu,.£0 · .IUMP lF SO
e&O 00 MICRCPROGfa._, eEft.OR HALT -1£eEJ(PECTE-D CATA
eGO C.tff!CK FDA EAllOR
·AO..IUST M£S&AG£ FOR KATMMA .GO PO MICROPAGGAMI eEftROR HALT - IFe EXPEC1'£0 R&SULT
·WAS T+ERE M ERROR aEXIT IF NOT .Al ltlfT KATAKANA BRANCH lllESSMlE
:
01Af1£
£< ...
28£CT1'9 82to32
eJ5a.IA~N·1'6
· · @ · e
PR0G 10 PAGE
t·l 0891-j · OAT£ 10 ec ......
OT.Nl.?5 8.215023
1,·:
25«T75 UIQ2
15.IANl'6 825034
· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · . ,.
1&55 'SOf!F
18'56 1307 X$CIFF SC
ae-~·
l9SF ta5·
t-65? $!ff
1eS9 eteo
1858 J S-08 XtU,. 0(. 1e$4 1309 X5tao oc
JQ..2·'5JFF · Kt..2·5180·
139$ 19tU 1356
USlffG RO?Ul ·JC.·
18$8 Vff'
lHID 53f'F" llltSF $$"tie 1861 s1ac
1863 ses::
1 &6'5 S21':C
1867 9C03 1869 15~00 1Bfl8 S.003 1860 0000 186" 0000
1s?1 co 67 5872
IS'tt5 20
l&SC 13.J.O XSaFF OC
185£ 1311 l<SJFF oc
1660 1312 aOti.ICtU OC 1862 1a1a ft&61t&a oc
1864 l>l4 ROU83 DC
le66 1316 . .~... oc
1316
1316
1867 1317 A06MC.1 llQU
1868 1Sl8
DC
186A 1 31 'i frt>MC2 DC
186C 1320 R06NC4 0C
186£ 1321 ROEBtllM DC
1870 1 32 2 A068ME OC:
1323
1871 1324 ROe£01 EQU
1325 li06NR S
U!7S 1326
DC
JIL.2·51!PF · X\..2·53FF· XL2·-sooc· JL2·il at,)C I
-..a·&zsc·
JIL2·!i.20C·
·
:1CL.2'·&eo:34 XL.2·5000· Xl,.2·5003·
aa..z· o·
XL2·0·
·
PAlN'Tflt XLJ·20·
<--------- £XPECTE1) DATA f"Of< 1 f'SO <------- £J(P£C'Tt!O DATA F(Jflt 2 F&OS <-------- EXPECTED OATA f'OR 3 FSQS <------- e"PECTEO OATA F~ '4 ¥$05
.60$ 3.003
.so-s c.ooo . .eas 0.003
eAD#tPTl!R NOT R£AD¥ eEAROR HALT -&O-
1944 1C o& t5A3S 4E
1949 ce e? oa1A
1'940 01
Hl4£ t9
0
194'f' ~
19151 CO 87 591S 1955 87
c
195-A F.3 se so
t9SD 71 ·8 ~O
1960 31 49 0966
1964 CO 87 SliFE
1357
LA
1358
Ul59
·..C
1360
8
IMO 1M1
oc
19C 1362
DC
19U 1363
DC
1364
136!5 R07K01 8
19~5 1366
DC
1367 ...
!957 1366
oc
1999 1369
DC
1370
1371
:uo
1372
uo
137.3 1374
LIO
e
R07KGl·a:lt1
#ICOP.ATCJ?Glllt6eJIRtJ
PRlMT
ZL1·cu·
lt..1·2· AL 2'ffi@ I a>fft' I
UtADC& JllL.1·&?·
·WHR07'fl'ICSI AL 2 UU> ?fltCEI
X·80· .&IOI EOOFF(eXRIJ.MiMSO XAASS·HOel
CO~ICllO
tHW£ OP HIMG Tl!STD TD
il'af"1' ROU1"t1111 te~lMG
·GO LOAD ifl~GGAMI .DI 5AeLE uP0N ewtfty., FfU.. 2JllO
& MO 256 taOS WJ TW eGS eO - ~ eSTART Of' MICRO CODE
·END CF ·tcaeccDE
eOISASI..£ ATTACM"1E'#T eJNITIALIZE KD8 0·1 · OOFF ·INITIALIZE t0>8 2-J a A.a55 .~MtCW TO EXECUTE t41CROPR0aRAM
1816 l1 1871' 6083
18'6 1327
1878 1~8
DC
l'-1'17·
DC
Al.2(ST AT·ti)
1968 ff 1969 5004
1968 1375 196A 1376
DC
Xl.1$ 261
oc
Xi..2 1 5004·
·E~ HALT -1!&e£>1iPl!C1'£0 DATA
18?9 CO ST 17E1
1329 1330
B
R061C:O?
.RETURN TC ROUTINE
19-68 F3 S8 &G
1377 1376
SIO x·eo·.s101
eDlsA£1LE ATTACtttltl!NT
1e ?o co &7 5872 1881 21 1882 1'1 1883 6047 1885 CO ST 1TC8
1889 D906E4f340F8·4 CD· 1891 C9c.3D906C306D~3
1331 R06ACP 8
l&Sl 1332
IX
1882 1333
DC
1884 13M
DC
1335
e
1336
18'.8 1~3T
DC
1337
PAitirrtf! a1·21· IL1 '!6' AL.2(STATMS) R06K06
·A.OAP TSt CHECK .ERRO~ ttALT -2.1-
·RETURN TO AGUTlNE
e eos. Ct..351 ROUT' ~ICRCCONTlilOLLER ENAS\..E &
196£ 30 48 SFS6
C','
1972 10 01 15FE6 3G 191'? F2 St 08
c
197#. Co 67 SOAS l'Gl'E 20
19?F 26
1980 OOFF
197A
197E l97F
1981
1379 1380 l.JSl 1382 13e3
1384 1.385
1386
R07K03
EOOPF
SNS
C4..C
JE EQIJ e
DC
oc
OC
STATACo HCS·O STATAC.EOOPF(2.·XR1)
R07T01
·
STATUS
lCL t ·20· XL1 '26· XL.2· OCFF"
.st;ill&E HOB 0-1 .COM'F>AJae · TO OOFF .JUMP l'F SCI
.eAROR. GO TO STAiVS ROUTI!\!£ .~INT ACTUAL· EXP· OATA .e;fOQDR M"-T ·2... .EXPECTED DATA
1899 D906D3D3CS094 IC5
1331'
1387
18 Al OS Cl C2 D3C5405 '40
1331'
1982 30 49 !IF!f6
1388 R07T01 SNS !!T.ATM: eHllSl
·SENSE M0:£! 2-3
18~9 C201!>E2
1:5."57
1BAC C3C8CSC"".024oe.:ca 18DF 1338
DC
c CLSZ·CWECK THE FO!..LOWIN6 - UCT SAYS KATAKANA (FEAT· cooe ·
198· 10 01 5FE6 4~ 1'9es F2 ii oe
1389 1390
CLC J£
STATAC,E5~AA(2·XR1)
'107T02
.cOtiPA"E a TC 5$AA
1884 C64t>C6t6C303DtE6 18BC C90SC 7406040E4C4
1.538 1338
14i8E CO 87 50A5
1391 1392
13
STATUS
.e~ROfiw GO TO STATUS ROUTINE
18C4 E340E2C1EBU4 CD2
1338
1992 20
1992 1393
DC
XLl · 2t>·
.PRINT ACTUAL· EXP. DATA
l8CC Cl E3 Cl 02C1 OSC .140
1338
i.9.)3 27
1993 1394
DC
XL 1' 27·
.. efiiAOA HALT ·2?-
1804 ·DC6CSC1E.:MS4 C3
1338
19~ SSAA
1995 1395 ESSAA DC
XL.2 1 55AA'
·EXPEC:TED DATA
18DC D6C4C540
1338
18EO FZF7FO'F750...0EcC8 18FC 1339 KATM DC
1996 co 87 0216
1396 1397 R07T02 B
1..INK
.GO TO NEXT fl!OUTINE
1BE8 D6E403C440404C40 18FO 40404~040404 (40 l 8F8 4040404040
1339 1339 1339
e
1398 199F 1399 RT070P 0C
0-6· 09 s1..·
1400
lBFO D506E340C2C54 C9 1910 1340 tc.ATMN DC
1905 DSE2E3C1D303C !C4
1340
1900 40404040
1311:0
0
19AO 1040
10A2 114-0
19A0 i40) R07MCS EQU
19A1 1402
DC
1943 1403
DC
)iL 2 1 1140.
00 SL HOt\111 01 SL M081
1911 4040C5C9E3C8C S>e 1936 134U KA"m.A DC
1919 40f:4C4E340DEID~O
1341
1921 C6C5C 1EJE4D9C !40
1341
1929 E3C9C540E4DT.. 04
1341
1931 CIE840C2C540Et09
1341
1939 0605C7
1341
CL431 EITHER I.IDT OR FEATURE TIE UP MAY BE WRONG·
19A4 1.240
0
l9illl6 1340
19£8 500.
·
1342
1343 ...................*..............****"'****"'****·*****""3**"'*****"'******'***· 0
,-
13·4 1345
· .
.
.
.
.
.
.
ROYTINE
........
09 ...
..
SL
...
.
·ltI1CR'·O··3OP··T·E··S·T·······-·:a:·******"'
···*ll<l*'*'"'*
··
,,.
·*····· .
\._.
J346.
· ·
J347. 1348 ·
nus ROUTINE CHECKS TtlE SL MICRO DP. TtiE OPERANDS
SHIFTED AR£ OO. FF· A/A ANO 55·
* ·
ts.9.
· ·
19A~ 1404
OC
Xi,.2· J 2-tO ·
02 SL Htt82
19A7 1405
DC
XLZ' 1340·
03 SL HOS~
l9A9 1406 P07MCE DC
XL.2:' 5004 9
04 80Se 0 HANG AT AODR 4
1407
* 1406 "'*******~*·~*"'****""""'"*'*'.;.··*******"'·"'***"'*"'**·$************·******"'****
1409 :ii>
ROVTINE OA - BOC MJCRO J!<ISTRUCTJON
1410 **-**************************·*******·****"'"'**"'***$**·***"'**"'~*·······
1411 ·
·
141.2 ...
nus ACVTINE TESTS eoc.,3 (ALL ens :;; o>. aoc.2 (LOW! · BITS. 0)·
!413 *
eoc.1 (HI 4 SJ~S :Q) ~ND eoc.o (ALL BITS NOT ZERO)· THE TEST ·
1414 $ 1415 · 1416 :Ill
IS DONE ev StUFTING ONE BIT 'THROUGt10U"l' THE 8VTE ANO l!!Y SHIFTING·
ZERO BITS IN A BYTE.
· ·
1417
i·x oe
193!> 00
L
GATE
EC ND.
133'5510 · · - · · . - · · · · · · · · · · · · - · · · · · · · · - · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · -
l 9:1C 1352 tQTH oc
ROUTINE NUMBER
··· 13$.S
oc
ND MANUAL fN'l'EAVENT JOH
PRCJG II> PAGE
0991-2 1l
19. . OA 19AB 00 19AC IAeB
··OA'f!;
.EC NO·
1418
19AA J419 RTOA oc
l9A6 1420
DC
19·0 1421
cc
XL.1 · OA·
a1 ·oo·
AU?(AT081
2$ £c:T7!S 82!032
ROUTINE hU!1!6ER NO MANUAL INTERVENTJON AOORESS OF NEXT AOUTIHE
PAOG ID PAGE
·
8912
19.E C2 OI l'MF
1.- u:es
199'1 <· 8'7
1988 Ol 19i&C 19 1990 ...
19C8 F3 58 ff 1oce Y1 ·· 21
1·a co 87 s.Fe 1902 a·
1903 SM4
1905 co 8"1' 0216
19" FOC140C2D6C3
19£1 1040 19E3 91:03 19E5 5002 19E7 90£1 19£9 1140 1'te8 9000 t9EO 9901 19EF M09
19F1 5008 19F3 9008 19¥5 ~OA 19F7 11~ t9F9 9002 19FS 990'! ltFO 9410 19FF 5001=' 1A01 901~ 1A03 5811
1A05 lUO 1A07 90M !A09 9905 lAOB 941? 1AQO 5016 lAOF 9019 1A11 5018 1At3 11.0 lA15 9006 1Al 7 9907 1A19 941E 1A1B 5010 IUD Mao lAlF HIF 1A21 1140 1A23 11Dcte
1IA1·2275 ·-H -
l
OAT£
ftC NO·
Lf
&!
·~·
.....1.-zR
198F IU3
......... VSIM& aoao··atU
~
·Mi~M
t.a7 l.a81Qe
e or:
-·-tfJCEIP.RTO«Jtlt6.JIR U
JC&.t··t·
1911C 14'&9
oc JLt·H·
198E IQO
DC
-.2CM1CPf;Tt
..... .1.-1
1.aa --.01 e
1"9C3 tU~
DC
19CS 1435
DC
19C? 1,..4..3..,6.
DC
14H 1439. 1.-..0 1441 1902 , .....2
190* 1443
,,.......14415
510 Lit>
8 DC
DC
B
x·&O· eSJGI
X0080( e Ul) ·M098
DC*ICR XLt·2A·
ICL.2·50..·
LINK
tl0¥E GP ef! I ·"'Ci Tl!STED TG ~$NT a&\ITl'IE +EM>lftG
.GO LOAD «IC~
...otSA&,£ ut'ON EN'TRY· fl' a.L 2lillD FSQ Wl'fM SCSeO ON llDDAUS
.START OF ·tOtO CCDE
.END OF ·l~DE
.01$40&..£ ATtACMNenT ·t..OAO tq')SO-l · O&&D
.GO EXECUTE ·ICROPROGRA11 eEAAO:R HAt..T -2A-
eEX'PECTED RESULT
190£ 1447 ·TOBUP DC 1. .8
19£0 1449 )(0080 oc
XU!. 0080 ·
.CONSTANT ooeo
* 1450 · - - - - - - - - - - - - - - - - - -...
1451 · START OF MICROPMUiRAM Ll6Tl1tG
19El 114·5523 ·R-O--et-C-S--E-Q--U----·----------__,,.
l9E2 1454
oc xa...i· 1040· 00
19E4 1455
DC
XL2·9C03· 01
191$6 1466
DC
XL2' 5002 · 02
1 9£8 l ·S'P
OC
XU ·GO.El · 03
19EA 1458
OC
XL2" 1140· 04
l9EC 1459
DC
JL2·9000· 05
19EE 1460
DC
Xl.2·9901' 06
l9FO 1461 19F2 J.462
DC
XL.2· 0409· OT
Oc
XL2·5008· oe
l9F4 1463
DC
XL.2·9008· 09
19F6 1... l 9FB 1·65 19FA 1466
DC
lQ..2·SOOA ·
OA
DC
XL2· 1 t40.· oe
DC
X&.21 9002· oc
19PC 14'67
19FE 1468
DC
}L.2·9903· 00
0C
XL.2·9410· OE
I AOO 1469
DC
XL.2· SOCF · elf'
l A02 1470
DC
>q.2·9012· 10
IA041471
DC
x1..2·so11·
1l
1A06 14.,2 1408 147.J
DC
JCL2·U40 · 12
0C
XLZ·9004·
u
IAOA 1474
DC
XL.2·9905· 14
IAOC 1·75 -AOE 14?6
DC
lCL.?·94t7· 15
oc llJ..2·5016' 16
IAlO 1477 1"12 t·7e 1Al· 1·79
DC
~2·9019·
17
oc xt.2·so1s· 18
DC
XL.2·lJ4(1· u·
l A16 1480
DC
~2 1 9006·
IA
1A18 1481
DC
X1..Z·990?· 1fl
lA1A 1482
DC
XL2·~1E 8
1c
IAtC 1·83 1A1E 144..\
DC
X1.2·so10· 10
DC
1e XLa·9020·
lA20 1485
DC
JCL2·S01F · IF
1 A22 1486
OC
XL2~ 1140 ·
20
1A24 1487
DC
Xt..2·9D08· 21
1 A2'6 1448 IAZ8 t·M
DC
lll..2·9509· 22
DC
XL.2·9825· 23
·
SL woeo TO SET COND 3
BOC· 3 NU$T 8R.AMCH
EARQfi · WAf·16
= Bt>C· 0 MUST NOT BRANCH
SHIFT H09 1 01
eoc. 3 MUST MOT BftANCH
BOC· 2 MU$T NOT SAANC:H aoc.1 MUST BRANC~
EAROfh HAHG BOCeO MUST SflAHCM
E RROtit · KANG SHIFT HOB l · 02 eoc.3 MUST NOT eRANCt4
SOC.2 MUST NOT SRANCM &Oc·l MUST S~ANCtt
ERRORe HANG
SOC·O MUST ertAWCH
= eRR~. MANG
SHIFT HOB 1 04 BOCe 3 ttVST NOT BRANCM aoc.2 MUST NOT BRANCtl f.'OC·l M~ST BRANCH ERfHJR· MANG
soc.a fllUST SllANGH
'!t:mOR · HANG StiJFT HDe 1 a OS BOC· 3 JCU$T MOT BMNOf 80Ce2 MuST NOT BRANCM eoc.1 MUST BRANCK
£~·HANG
e.oc.o M.l&T 8faANCH
= EH~. MANG
StilFT HOB l 10 SOCe3 MVsT fllOT &RANCH &GC· 1 f4tJST MOT tMAflolCM 80Ce2 MUST BflANCH
,o
}o
Je
,eI,e
l
I
il e
Il. ~tr"\
1
1C
1(;
c
.... .,_.
lA.28 9027
n· U.20 9086
1.dF l . . . 'll!DOI\
IAU 9Sfl8 IAH 982C
lAS? - -
t··· J.A.39
1 ··
- s o-n
lASf' .1o1o.c0
1IA44413 9-83-3 1.-s 5032 11141' 9035 1A4"1 9034IA4i& 1140 1A40 900E 1A4F ffOF IA$1 ~ lA$3 50.39 l AS5 9:0.!IC IA.ST 5·0'38 1A59 104:0 1AS8 9C3F IASD ff:!E I A!W 9&41 1A61 5~0 1A63 9443 1 "65 5042 1A6"1' 9110
1.t.69 5044
· ·
1Afl8 Oil 1A6.C 00 lA60 IA'F6
0
ie
i !8
I
i9 i !O
I
,.le
j
IA6F C2 Gl lA80
1A73 u: 015 5A38 67 lA78 co 87 021A
1Al'C 01 lA?D 19 1A7'£ SA4'6
I ABO CO 87 15918 IA84 8,
1·es tAea
U81' 1AF5
IA89 F3 5tl 80 IA&C 51 48 0062 lA90 St 49 0057 1A94 31 4A Cl>S?
1 A98 CO 87 54f'E
... 1480
IA2C 1491
... 1·92
lAIO I~
1"32 l ...
,·· 1.- 1A34 1499
IA.38 l~
1A3" 149:8
IA3C 1'499
SAK tilOO 1A.0 190:1
1M2 1901?
l.A44 UIG5
oc
1... t504
oc
IA48 1505
oc
1A4A ls06
DC
lfl4C 11107
DC
lA4'E 1$08
DC
lAIO 1509
DC
1AS2 UUO
oc
IAS.tt 1 SU
lAM U512 1A58 1513
lAliA 1514 lASC l!iUi
lA5E 1516
lA60 1517
DC
1"62 l5UI
oc
1A64 1519
1A66 152'0
lA68 1521
cc
1A6A 1 $22 ROeMCE DC
....$024·
"-r9UT·
:ia.a·su·· JLa-u·oa
JCL.&·900A· JCLa·990tJf
&.a··eK·
xt...a·so2e·
...JCUt·.oa~·-·.zo· Xt-2' 114(1'
JCL.2· 92)oC ·
JL2··SOD· XL.2·9833·
xt..2·5~32' JtLZ·oto~·
xt.2· &oM·
llll..2°11·0·
Xt..2 1 9.l:lOE' ....2·95.(IF·
... 2*98.11A ·
XL.2·5039·
JICl..Z·vex ·
Xt..2.. $03S·
xt...Z' 10401
Xl..2·9C3F·
xu· s.o:te·
Xt...2 1 9$41· X\..21 5040 8 xt..2·9443·
xi..2· 5042.
Xl..2·9110 1 xt..2·5o44·
....... --e~ ac.- ....- ... .....
9"l ll''f .... l ,.. -
............ ·oc.s-..TM0"'8RMIGM
eec.e 80C11 Al&T. ·~ .,...~
aeotRcO.Ao.·."".".".9ftANCM
......... Stffft Hi!l9 I · "40
eaC ·3 tlUS1' """ 9Raet'I
eoc:.1__.tlO'f8'tAtlOI
eoc... _.,. ~
SOC. 0 MUST &aMGtt
EMoa, HAN& SHIFT MO& 1 · eo
BOC.3 .UST tot0T flRA.tlCH SOC·1 tlUST NC'f' 8RMCCM BGC12 MUST 8AANOf
efl.AOA. ..,.. eac.o MUST BRANCH
EMO·, +tAMG SHIFT Hoe 0 Ta SET ALL COMOITJONS
~D BOC· 3 MUST eMHCH
3E i::Rao~ · . . . 3F ecc.2 flfUST BAAHCM 40 tERflOA, HANl'i
41 eoc. 1 MUST &RAMO'!
42 ER~CR, HAN& 43 eoc;;. 0 MUST NOT eAAitCH 44 HANG, TEST RAN OKAY
1523
1523
1524 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..
* 1525
ROUTINE OS - S8N MICRO INSTRUCTION
*
1U5S2267 1528
.* .
·
.
.
.
.
..... THIS
.~R·O·U·T·IM·E··T·E·S·T··T··IE··s·&·N··M··IC·R·O··I·N·S·'l·tl·l.·IC·T·I·D·N-······-·············**
1529 ·
·
lSJIO "'**************..**********.,...*'"'****·...*************.-.**·..···****..*
1531
1A68 1532 RTe oc
XLt·Oe·
MlVflME MUMIH!!R
IA6C 1533
DC
>Q..1·00·
NO MANUAL JNTERVENTtON
1A6E 15:14
oc
"1...2 CATO CI
ADL'llllESS OF NEXT ROUTINE
1535
IA80 1536 1537
U$1NG AOii*Ot.><·1
LA
R09tC.01eXRJ
INITIALIZE >t'll FOR IHOEXIMG
1538
153· 1540
MlCOPeRT09QP(6·>CR1) P'tJNI'
MOVE OP HING Tf!STl!O TO PRHIT ROUTINE HEAOIN&
lAl'C 1541
xt..1801·
1A7D 1542 lA'l"F 1643
Jt,.1·2!!· .....Z (MICl'.s;T)
1$44
1545 R09K01 ·
lA84 15..
DC
154? ·
lA86 1548
DC
1A88 1549
DC
1Uo
1561
SJC
U552
LIO
1553
LIO
1554
uo
UHH
1596
B
t..OAOCS
X·BO·.SICll
ZERC>.Hl>80 lt!SSAAe HOS1 Jt55All·tt062
·GO LOAD Ml CROPROGIUI· dUSASLE uPOM ENTftYe FILL 2NO
FSQ ·ITW ecs.o ON AOORESS
eST-T OF MICRO CCDE eEMD OF MICROCDO£
elH$AllLE ATTAC.fftllENT
.SET HOB 0-1 · 0608
·SET HOB 2-3 · &SAA .SJrr t409 4-!5 · fiSAA
eGO 00 Ml CfitC: MOGAAtt
Oe91-2i OAT£
07JUL.T5
12 . ·EC ..O· 825023
25CCT?S 82eG.J.2
PR06 IO PAGE
· ·
· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · I ,·j.
1A9': 2F 1 Ml·O 5.0-06
:i ,e.91'" 1"' ~ ei·!'l 6\? 1 AAl! 3oQ '>S SFE6 l il\Afi 10 ~1 SF'~ ~$ iAAfi f=2 &l OB l AAE CO $7 50A5 tAB;2 ~.~
1111.';:S s-e
~. A~ !HSA.ti.
ii.AB'& :15!.l A}'!;' 5FE~ l ;Ui>ll. ! C Ci l SFE6 4i# lA6!" F2 S1 OS 1 AC2 C-0 t:l7 50A5 l ~Cf.> 20 lAC? 31 l ACS f'FFl""
lAC.A 30 41i', 5re6 l ACE 10 o~ 51"'e6 SP lt.03 1"2 till CS
lAD~ CO B1 SOA5
1 AOA 20
v.rm 32
l AOC FSA.!'
1AEE' 60Sfc 1 lt<l:U· 6).AA :!.AEC 62Aiil 1 AEE f>~S!S l ~FD 64F5 sAF2 6SAF l AF4 5006
U·ljC l~l>'
1*'~ llfi~& i~
oc
ltl.l ~ 21"(;
oc
lQ...2.e5%!>"
,,£1/ll~OR HALT -2'11.,ezPSCTEO OAT.A
iSti.Q
1561
lffl!:
1S6c3
15~"4
1565
l!.~
oc
1501' RQ~.Jii::l IX
tU!I
x~ Sf!" 1dHCF S'fATllC·iiiflS:lii
STATAC~~r.9£~!(2~~11 ~:m~eo;.
!i.tTUS
XLl~lliO"
xt.1 "~0"
Xl...~"!iHi11,g,
.,pJ:SJ.f!LE AT1'~(:H~N'i QSENS~ Hi)I!! 0-1
.,CHECK FC!i< f;X.f"l:'.(";1"£0 Rf:S!J!... T ., GO ON Ir D«·M'
cE"·ROR ~i!'';l;!N~· ACT" JP [}5>£T!'l:O i:H\'1.t ~El':!RtlP HJ\$..'t -SO~· ., £ Xr.>f;C'i'EtJ 0.£7:A
156f;; ill@!JiB £H SNS
!S?~
ci..c
.IE
157.it
s
l A(;~. I 573
0C
:!. AC7 151'-"·
l>~
1i&.C9 1$7~ R~~~.2 IX
U'l"Hi
STA j~,.:;. ,.HOS! 5T,~TAC··P.0S'EX2~ .<tr. Xfll ~ ~09!il-02
STA"NJ~ .ia.ae~o·
lq.1Q31"
~~&f"ffF'·
.,$N$t; H!:k·11J ~-3 ~CHE:Ct.:. FOH F."PC;:;TEIJ il!Et';UL"r · GfJ ON J F Ot;~V d:RROR ~µ·~IN1 Ait: ..r~ £. £XFEC'iE.Q Df~""lf#~ .£PRO~ H;,J.. 7 -:U= .,EA.PEC!"ED iRESl.H..7
1577 !11.'0m 02 SNS
1 S.lf.
Cl.C
l679
15f}ff
i ;,oA 15fia
l. AO fl 15S?.
DC
l>.OO l'M:'3 k09£X:l 0-C
1584
1 58 S ~ @-tJii;Hl3 S
:5TATAC~rws2
STA'l"AC~R C9E l13{ ;;.,, XRi. >
~o·i.Hso.;ii
ST ATVS llL..2 "20< Xi..1 ~32· >il.2·r5~F ·
·S.i:::~E Mf)f) 4-·-~'\
aCNECI< FOR EXPECTED m:sut
.c;;c UN lF OKA'!
o E:i!<Rr.%1
o?RtNT ACT· & EX~ECTED RESULl
d:'RROJ;l HAl..Y -:.:.;:;;-.
»i.'i.;F1:cre:o D!~·r,;:,
15&6 l ~E7 ! 5.S1' RTiJ9,0I~ DC
15$6
J 56~
O!!;c·----~------------~· ----------- $
15,~(l. 31< S"l'"'"';;'T OF Ml C:ROPROGfU't"i LIST lNf; *
15\16! >!>--·-~·---~------·-------------·,'.·
iAEe 159~ R~~cs £GU
1AE9 159~
OC
*XL2·605S·
00 :SET HOB O
55
l AEB J :3;;.4
OC
XJ., ~·lf>lAA ~
O! SET HOS l ~ A&
1 s.Eo i si;;f.,
IX:
x;,..z·c.2it..11: 02 SET Hee 2 ~ FY
l.A,EF l S9~
OC
XL2"63S5·
O::! ~E·r l"<l'JE 3 "' FF
1 AF! 15!1·1'
OC:
ML2.·64FS'
O<.i 5El hOB .ii.
f'~
?AF::>; Ui96
OC
l\~F5 1 S"it.'S· 3"\ll~CE OC
XL2"65Af'"
Xt..2·SQO~Ji·
05 SET ~~DS 5
f<,f"
0!1 H;\NG. f) 7E5 "t CCvi.1P!....E:T EC
I6QQ
!(·Q.j;
:C
U.U6 11'!15a 1eut 1n-64
15114 F:il SS ~ti
HU7 :n 4A fr.>SQ
113 Hil 2~ ~9 005'f
H'll F C-0 ~? 54~£ 152~ 3.,;
lR~ 5'*~
!1326 F3 SS aa
li3~9 3(1 ~A 5FE.!'>
xaw 10 fil SFeie :n
1a31.e; Ft: e:, os 153S Ct} I!!"? 5DA5
!fLii~ acv
1S3A 37 lBlle 5$.f.-A
ie~o :H.:~ ~-;: ~·Fi;.{'.,
lBt!'!l S,D ~Jl 5FE6 '.. ~~ l !'!lt.6 f';i IS!. 08 H'i.49 Cl) 8? 50Ac''i. '.iB~O 2'1 l B!i';.f:! Z.fl !Si"<r 048t,
e l i::S C.,,J,fo.
:H35tl CS5$
1 esie- c;: Fn l eei; cs·:?»"
11:1 ::):;t 50~}.f;
!SU lf>a5 HU3 16~6
Al...il{:R()NfQU Al. 2 { Ac('H\1¢££ l
U.2?
i~:::a :us.2~
*lt>&~ ·.&fst
~f'ff.,Mf>S
H·ZO
XSSJ>A~~U
'i63S
l6U 1623 1633
OOMI<:~
xi.a ~~If>'
:tB25 !634i
J'ii....2ll50~A"
1636
!i.646 1631'
$!0 SNS
x~ SO" G5iC! Sl'A ·rAC~ Mt$2
i633 163'$
Ct.C ,Jt
ST A'f AC., RO-i!IE)'(l U: .- ~Rl i
P.<u.a,::n
la~
i 13.;>iil 163C
1~~0
t6·H !642
164::!
l<l
51ATU~
oc
Xt.l · 20·
!";C
Y.L l ~37'"
X!..;G~~SAA·
:1.644
Hill-S
le%
c ( i..
ST 11 TAC~Nti5 l ST1,·1.1,.o:;;.na1. tx2(2 .. ~!'!li'
l6<l-7
.sE
R{M.f; O.t;
i ti-4::; 1640 J.64S ~ El4E l 6-51.'.'
B
S!ATV?
Pc;
Xl..l·20'
DC.
xt..i 11 :::.ies
185-0 i6S1 R0ill£~? DC
X!·.2 e04-SO r
1652
1=!)53 .>i-0i11eo2 a
1654
! ~ 5p;. 1 65 5 R ·n~AI. OP t\C.
!~Se.
1651
__ .,.,,.,._..,,, ___ ,_____.,,.. _________________ .,...$
~-"""-'"'"
l65fil >l< START OF IHCRtJl"\'.?OGRAf>.I LISTlN<.1 $
.,$T~RT OF MICRO.CODE ,..f.!~ OF MJCRCCOOE
,.Oi&A.at.E AT'i ACMN!Ef;l"f
.. sev MOS ~-5 "" FFFF
.,"51e; HOB 2-~ "" e~AA
·GO f!XECVTE ~IeftO ~AM ·Ef«!~O~ !iAL'T -36-
., EMPec-rt:o ,. ~a-sw...
elHSAiiii,.~ liiTT1'Cfoillt&!T
.. SENSE Koe 4'-5
~~ARE AGAINST EX?l::CT~D
.. CO.flo'T 1 NIJE !F OKlt'f
"ERP.OF( .. ~i::llNi f_xp., £ ACT·
·ER~OR HALT -37-
.,£'.!(PEC'!~EO RESU'.T
¥At.u£S
.. sewse 1100 2-;3
..COMPARE AGAINST EXP'-&":TEO ,.,.(;()NT1N';J£ JF 0¥.AV .,£4'<nM .,PP-li'>!·i E;x:P., G- 1"CT,. *<ESUt.TS .. eAAOf;l HAL "f -:sa.,;;;xPECTEO i;.ESt,J;...1'
t £.s.c 1t'.11;&1.
c~c.
X!.. 2 ~c <>A,~ 0
00 S9F ~ Hf)e 4
!\.!'
I.El5t: 1,1662
DC
moo u . ;:E;a
cc
1B62 ~66"<·
IK
l66>% ;, 6""5: l''':i~.;.;C.:f I).('
Xt..;<;t C55:3 4 XU:C"C.2FB· )Q.. 2 '-(:J-!F 5 Xt.2. ~ 500*~ s
O! S BF" HOS !$ A-ti, 02 Stw ~ t-OB 2 04,
Sflf' · HOS ~ 60
~6f6$
* "·"' **'* *$* !. ~·~ ~~-~{~ :(· ~: ~ ~ ::{. ;~ .;,:, ~~- :t!{. )-~·- ~' t: ;ij_~~:'rf:: *'**~) ;t;; ~ ·~·*:!t'*i;~lj;l(t,;;.~)Jt*#~~i#:.:¢;:3$·$*-~***$.$.~!)'.*j~~'***'**~~*$
ie68 »
RtJ\JH i·Jf" l)D ~· IC -'<IQ.i.D ItJST;;ilJCTION
11<
11\Ff> 0C l AF7 00 111.FS 1!16!5
luC<! "'
ROUTINE OC - SSF l'iICRO ! N5Tf<l.JCTICW
"''i @:
1603 ····*~·~···~·····~··~···~·**·*&····***··~~~·*················*~····~·ua
!6G4 g;
l'i'
16'1>5 ""
1606,..
* 1607 *-*'t\t~;tr..~*'~'*"**~* ::oi!>***~;.:~~:\)i ~:.t~1 ~~.i(:.lf.~~:-~~:*** ~!>j;:~:P."f'l:!i"·*t-i:*'!:::.'.ll:to:.:ie :Q:if;.:-.~**::.-i~:::1;.:;::.iij;;~*~·~==~~r- ~~*~~·*'
l&Oe
j
1AF6 160'51 1 Al'"? 161@
:t AF9 161.i. 16U:
.i:.t.1 ·0C*
~ 1 ·oc·
.t.t.fdf.'H'OOJ
i;!O!.."! !NL l~iJMEEf~ NU ~AN'J.,ld. J;:lllrEiill!f.NT 1 ON AOD'.'<Es:;. f.l'" NEJ<T ~OUTIN!:
1808 1613
l IS65 co
1866 i)l}
1667 :;SC4
Aeiss 10 66 reeia
:,12;7A
l66~
1ib'7C ! (~ ::· '.!..
i6'1~
l t.~ ;· 3 £67·; tt>··t· 1!J', Till:
~6'1'7
! :1·7B l 6·;s.;
l 6°8(~
·&~W~~¥d·-~-·~·~$····~=~·\·~····~·*························O&·~····~···
~
:-J."
~'·~? :.t.::.·· .Ji:: .if. :.-Ji .lli1<.*<~ ~ 4:.t ;,t.. 4 !~,. it:,;ii:,;.~:~r: *~· 1£. :f.:J:..~;,_ :l1:$~~~~tat::: *~*~*~~~:.;;..~. ~";:.-.f .t; ~ *";. ;,, ..~.t:">~';;i'",** ~ii&:*~ ~.lits.it:~ :;;..f:'.,~~~.cl§;;
rq·oc DC
oc oc
)'1,_ 1 q:q;;c
Ji'~l. l . 00'
R> ;~:_.2.(
0£ l
oc~rn.rr1 Nt:: 1H.m8'E:A
NO MANvJIYI H~'fERVEt.,;1 !Dh S:.OO~E S 5 Of NE JI(; f.<!'.lllT l NE:
VS.i f-,,K.~ ROSKO~ ~·>~~l
l_.I',
RO[l,.;.Ol.,X~l
IAFE lC 09 5A3S ·F 1so:i1 co S7 c21~, 1807 01 1£1 Olii 19 1S09 51146·
t.608 CO eT 5916
lSOF 83
1614 1615 A6lti 161-:i' 161t!.i
1619 :1620 162i 1622 1623 1624.
r
07.IUL. ?!i 829in23
Z5£CT75 82I032
MICO~o~7CAOF(6oX~l) PJ<lN"( xi.,..~e(l.J.t'
lLli ·£9 9 A.1..2 Ii IH: CPr.n
LOAOCS Xl..l 1 6~-t
MOVE OP SEJhG TESTED TO
F>i-U>!T RtHJ'r!l'>l·f' ~EADINi:>
HH;,Ll l(. o-:~ $,t,;:>1.;
l 6? 2 CQ e ?' o t? U: 1e-r6 lH
1577 1 ¥
1 £i;7f-
1r~r;,~7
~.661
lo5!':2
a~~
11. 6{34
i ,;:-.,,a;:;:
l 1578 !ill,46
l B7'.ii icae;.
f£i87
l. Sl'A CO !'H 5911!
l6E:8 k)C8!r~O~ B
·. GO 1..0;f,D MICRO~OGf..t~lol
eDISABLE IJPt'.iN EN'i'RV,. FI!..!... 2NO
F SG tsl TM ec;s. 0 1:11'1 AO~ESS
187E SJ
l 871" l l';;(.t\, 1se:. lBO;:;
· PROG IO I ·· PAGE
os91-2i 13 ~
Dir.TE
07.JUL"i':..
EC: NOo 62502;!
IB?E 1669
l.!:>90 ~' t:.'--SO U:i!9J: 1.BBi. 169~
Z!ii (CT75 82 !:032
i5Ji!iN'?'fi B:i'.5034
DC
DC
oc
·
~l~OPoP10B0P(6oXAlJ PH!f.n
;-::Li" 01 t H.... l ~ ~ti{ij ALZOHC::-A1·}
LOACoCS XL.PB;;)·
,e!...zH~06MCS}
AL2 {R06t<!C£i
MOVE DF BEING TESTED To
Pnx~1 y.;:OU"f~ h~~ 1·-fC:AO~ Nloii
~Ge !.O.Al) l·11CRCPRCGf<,>;;; ·Dl $>1,!SLE UPON ENTRY. FH..i.. 2Nti
FSQ Wi'\' i"i 8CS eO CN AOOIH!SS ·STABT OF td (RO CG-OE
GENO o~ ~1c~o~ooe
PROG IO PAGE
l·
8912
0111PL #t AOAPT IR TEST
A00A STMT SOUllCE ST A'fEtlEfft'
J;&tQ F3 5-8 M
1698 1694
SJO .....sua
10l$AILE ATT·C.·&Wf
lBF& 42 l9F7 $017
1'161
DC
JM2
DC
1Me. H ·· GB99
IMA S1 ·c 96De
1695 1696
LIO . . . . .t«Jflll LIO JCOGfl'f'· ..,,...
e-· · aSi!T MOB 6-? · ~
· s£T +IDS
OtlFF
l8F9 CG 8? Ul6
1?631
1764
B
oGG 1'0 NE JC'f tmUTI NE
lB:tlE CO 8? 54FE 1892 3C 14!911 5004
189$ f"3 H 80 1898 3D 48 5¥£6 1S9C lD 01 5Pt:6 31 1··1 F2 a1 oe ll!M CO ST !ICA5 18A8 20 l 8-A9 :JE 18AA S5AA
1 &AC 30 4C &FE6
1880 10 OJ 5FE6 45 1ees F2 e1 ca 1 tee CO 87 '50A5 l98C 20
1eso 3F
MOY
1698
e
1892 Hi99
DC
1894 1700
oc
1701 1?02
SIG.
1?03
SNS
1704
CLC
uos
.J/E.
1?06
e
18Ae 1707
DC
1BA9 1708
DC
!SAS 1709 ~llEX1 DC
1710
1711 ROSB01 SNS
1712.
CLC
1713
.IE.
1714
B
1&8(. 1715
DC
1880 1716
oc
x·eo-t ..sun
$'TATM:·MOS3 ST AT AC11tiOS-EX1 C2· XR1 i Aoe&Ol STATUS a1·20· Jl..1·3E· XL.2·6SAA·
STA TAC ·H084
STATAC·R06EX2(2·X~l)
tlt09:802 STATUS
XL1·20·
XL.t···
e40 e..qc;U'l·e MJC~fl
eEMOA ""'-T -XeEXPECTEO at!SU&..~
.ctsA. .E ATTACMtktT
wne · 5titBE
6·?
.COMPARE FOR e~TEO
.cOHrtNJE tF Ot(A'Y
eEffffOR
.~JffT EXP. G ACT. 04TA
· E~ROR HALT -.H:-
eE .lCPEC'rEO RESULT
· SE NS-E HOS &-~ .. cDMPARE AGAlNST EXPeCTtro .CONTINUE IF OKAY
eEAfitOA .PRINT Ed'· & ACfe VAt.UES .eR~Ofi t+ALT ·3F-
· ·
,..r·
\j,.,. .
1
.;.
ICH ?..S
ices lBM
lCOl' ·AO
1C09 9000 lCDB 9901
1c&r> no2
IC*F f'A5C
1CU 9003 1Cl3 99a. 1us 9408 1-Cl 7 &OOA 1Cl9 Pe3A
1c1e wos
l '16t5 1 766 RTOCOP DC Jt T'?66?8 ..............__ _.....__._..........._...____ .._.....................
J ?69 · !TART OF MICROHOGAU -.IS1'1·HG ·
· 1co:s
1l 77??0l
·--------~------...---------------·
A (ICMC S EOU
ICM 1772
IC06 1T73
1coe 1774
lC.O,.. 1775 lCO..C l .,..,.
lCOE 17??
1Cl0 a·ns
DC
lllL.2· ?ASli ·
fC . . . . . . . a: -
0C
XU?' TSAA·
IC SET ·tee S · AA
DC DC
DC
Xl...2·FAC3· Xl.2'9000·
Aa·9901·
eoe. T&l'h MfM!TS AU. COHDIT IOWS 3 ....,..,. NOT BRANCH
·· eoc.2 teU$1' wm- S&tcHCfol
DC
XL.2·9502· 05 SOC· l ·>UST ffClT ~HCff
oc
XL2·FillS.C· 06 T8Ne SETS COf!IO 1 ON· 2 AND 3 Cl"'F
icu 17?9
DC
K4..2 8 9003·
07 SOC e3 llWST NOT &RANCH
1C14 17&0 tC&6 1?81 lCUS 1782 lClA 1783
JClC 1'184
DC DC
DC DC DC
XL.2·9904·
XL.2·Moe·
Jl'1.2·500A.
Xl..2·FS3A*
X&.2 · 9£).'.>5 ·
-SOC ·2 MUST WOT BRANCK BOC-·1 MU$T 8~NCM
OA ERj;tOAe MAN&
T81·h sE TS C~ 2 ONo 1
i'>C eGce3 Ml.tST NCT SA*ffCH
ANO
3
oFF
188£ FFOO
1BBF 1?17 ROBEX2 DC
Xt,.2·FFOO'
oEXPS<TEO RESULT
ic10 9506
IC le 1785
DC
Xl..2·9SOe·
OD BOC· 1 MUST NCT 8$tAHCt4
1718
JC.JF 9810
ica~ l7&6
DC
Xt..2 ·9810. OE AOC· .2 MUST eRANOt
1 &CO CO 87 0<!16
1719
LlttK
eGO TO NEXT ROUTIN£
tC21 S-OOF
1<:2.2 1787
DC · Xl..2· SOOF· OF ERRCWie KANG ·
l-'720
1C23 FS'8.t
lC24 1786
DC
XL2 9 FBS2· 10 TBN· SETS ALL COftDITIC:ftS 01ll
11C4 FOC44-040C9C3
18C9 l 7Zl RTGaOP DC
C&..6·00 IC"
1C21i 9C l.i
1C26 1789
DC
XL2 8 9Ct3·
11 SOC. 3 MUST SRANCH
1722
1C2? 5012
1C28 1790
DC
>a.2·so12 · 12 ERROfi · MANG
1723 1724
·*--ST-A--R-T-O--F --M-I-C-R-O-P-R-O-GQ-A-~---L-I-S-T-I-N-G~·$
1C29 9815 IC2B 5014
lC2A 1791 lC2C 1792
DC
x:u·9e1s· 13 acc.2 MUST BQANCH
DC
>C!..2·5014.
14 E~~OA· MANG
lBCA 7655
. 1725 -------~---~-~----~~-------·
1 SCA 1726 ROe.&CS EQU
1ece 1727
DC
llll..2· 765$·
00 JC SET woe 6
SS
C.'
1c20 9417 1C2F 5016
1C31 5011'
1C2E 1793
DC
lC30 1794
DC
lC!Z 179S AOCMCE DC
X:t.2 · 941 T · X\..2·5016. JICL.2· 5011' ·
15 BOC· 1 tllUST BRANCH 16 E~ROi:ie MANG 17 HANG. TEST CCJNPLETED OKAY
18CC T?AA 18CE 78FF 1800 ?'900 1802 5004
1aco 1 T2e
DC
XL2·T7AA' 01 IC SET HDS 7 AA
l&CF 17?.q
DC
= 1 S0-1 17 .30
oc
1803 1 '1'31 RoeMt:e oc
Xl..2 I 7 ef"F. XL.2·7900. X&,.2·5()04·.
02 IC SET HOB 8 "" FF 03 JC SET HOB 9 00 04 HANGc PROGRAM COMPl.ETEO
1732
· 1733 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..,........................................................... ,
* 1734
ROUTINE OE - TEtj MICRO lNSTf;CUCT ION
·'
0 1735 ........................................**********"'**~·········11o················:
l 73f> ...
... '
1737 ·
THIS RCUTINE TEST THE Tefl! ~ICRO INSTRVCTJOH
·:
1''96 1796
17978
·*·······R·O·U·T·IN·-E·O·F··-··T·S·F·R··M·J·C·~·D··I·N·S·T·R·U·C··T·IO·N·-···*·······················*
1799 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..
* l~O·
1601
THIS ROUTINE TeSTS T?te T&PA MICAtl INSTatJCTICH
* *
* 1802
*
1803 · · - · · · · · · · · · _ . ............,.. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..
1804
1804 OE 1805 00 1806 1C33
1738 ·
*'
*****·**··*·········******························· 1739 .......................
1740
l e.04 1741 RTOE DC
· lBOS 1?42
oc
xt..t ·OE·
Jll_l·oo·
!
ROUTINE NUMSER NO MANUAL gNTERVENTION
1S07 1743
DC
Al..2CRToF)
AOOi:lESS OF "'EXT Ri:IUTJNE
lC!'f CZ 01 lC:48
1805 fQTOF 1606 1807 1808 1809 1810
DC
Xi..1·0F·
DC
xt..1 · oo·
oc
.tll..z(RT10)
USING ROl)K01·XR1
LA
"10DKOl~X~1
ROUTINE NUMB£~
Ntl MANUAL lNTf!fl!VENTtDN
ADD~SS aF t.IEXT AOUTINE
!NiTf4\..1ZE lilRl FOR INDEXlN
181>8 C2 01 1BE9
1744 1B£9 1745
1746
USING AOCKOhX~l
t...A
AOCKD1.Xft1
JNlTtAl.IZE XRl FOR INDEXIN
1C36 IC 05 5A38 19 1C40 CO 87 021A
1811 1812 1813
NYC
e
MICOP.RTCO~C6oX~l)
HlffT
·eve OP 5£1""6 TESTEC TD
PRINT ROUT! NE t<.fAOJHG
ieoc sc os 5A3S 19
1747 1748
MVC
MJCOPoRT(JCOPC 6·~1>
MOVE OP e.Ll~G TESTED TO
1C4'4 01 tC4S 19
1814 1815
DC
llL1 ·01 s
DC
1L1 ·2s·
lf3El CO 8? 1BE5 01 1SE6 19
18£7 SA46
021A
1BE9 CO S7 591 a
1749
B
11'50
oc
1751
DC
175.2
DC
11i.J
11'54 ROCKO 1 B
PRINT Xt...1 ·01 .. Jt.t · 25° AL2{MICPA'f)
LDAOCS
PRINT ROUTINE 1-te:AOING eGO LOAO MICROPROGRAM
1C46 5A4'6
0 '
l C48 CO 87 5918
I C4C 83
1816
DC
e 1'::117 ROOl<.01
1818
DC
1819 ..
!C4E 1820
cc
1C50 1821
DC
ltLZ(MICPi;TI L_DAOCS JCL.1 ·83·
AL2(AOOMCS} AL.2(R0DNCE)
e60 LOAD M!CROPAOGAAM eDI SASLE \IPON ENTRY· FILL 2ND
'm>E*·· f:SQ wITH SOSe 0 ON A:ODRESS
~START OF ·ICAO
.ewo OP ·lCROCDDE·...
lliEO 83
!BEE JC03 1f3FO 1C32
1SF2 CO 87 54FE
1BEO 1756 1TS6 o
lBEF 1757 1BF1 1 ?58
1759
11'60
DATE
Et NO·
25 CCT?S e2 f032
15.tAN76 825034
DC
.-i..2Ul0CNCS)
oc
AL 2( R OC*CE)
s
DOMJCfa
.oJSA8LE U91lN ENTflYo FJLL 2MO
so F
ecs. 1111 TM
0 ON MJ.O~ESS
oSTA~ OF MIGIO co0E
· eNO DF M1c+cocooe
eGC EXECUTE M !C~-AM
PAQG ID PAGE
1822
1 C5l C 0 81' MFE
1823
tC95 44 1C56 SOie
1CS8 ca ST 02Hi
1C55 1824 1C57 1825
1U6 1827
··OATE
07.ut.?S
25CCT75
.EC ND· 829023
82t032
s
DDMICP
DC
XL1 ·44·
DC
XL2·501fil ·
e
.GQ E~CUTe MICAOPAOGRAM
.,ERROR tUILT -<M-
.EXPECTE1) UTA
PADG lfl P.t.GE
0891-2 14AJ
·~·
' ··
· · · · · · · · · ·· · · · ·
.
,.
I
·
·
·
·
·
J
· · ·
· · · · · · ··
i
·284296:
1':$
iC6i! 'M~ lC'&Jl. l'ilAA 1C:66 TCA~ lC.66 'mSD 1C6JI! TE3:5 1C« 7F41 lC!foE ~Of.> 1C70 9t>OO 1.C72 ffOJ l C'l'4 95-02 1C:76 ·ri.OC 1C78 9DO::l 1C'1il 9904 lC?'C 948"' 1C7E 500ft 1C80 !BOE 1ca2 '9000 JC6ft 950. iC86 .9814 tCSS 50!3 !CSA eaoF
ice<: «17
lC$E 5016 1C90 9819 1C91 5018 JC94 9418 1C96 60U 1C9e so1e
1C9A 10 1C9f3 .OC 1 C9C 1C£'9
l C9 E C2 0 1 l C AF
1CA2 1C 05 S.r.!8 19 1CA7 CO $7 OUA lCAEI 01 lCA(; 19 1CA.D 5A46
1C4F CO S7 5918 1CB3 83
1C:84 1C:C9 !CS6 lCEe
1C88 CO 87 54FE
1cec 4-A
lCf!O SOOF
1 CSF CO 67 0216
1CC3 Flf"04040E7D9
1828 let>~ l'829 RTGDCI> QC
·
t$SO
1 C62 l&3l f<Oi.CS £Q:"
IGO ;j iea.i
oc
1C6ti 1833
OC
le&? 111?;34
OC
~
Xl.2* 7 .t$5.,
~2~1'EtAli."
lll.L2·?CAC"
0111 l c SET t-me A · f f
e 01 IC SiE'l Ht:lS #AA 02 !C SET +«:>a C =a..c
1<:;f!9 1835 1C66 1~
iccc l&S?
!COF iasoe
tlC
l!IU?·?'OM~
03 !C SET HOe D ~-
oc
Xt.~e7E35"
: c <l)4
SeT NO-e E =:S'S
oc
XL2'7F·l1 ~ 05 lC SET ~~a F =-41
DC
-..2·EMOO"
06 TBFr< RES.ET$ AU. tO~:&:THi'M;
1<:71 1839
DC
XL."e·9000 ·
07 SO:C3 l'<IU5T NOT B~A?llCW TD 100
lC:?:S 1940
l<:?S 1641
icrr 1M2
O'C
X1..2·9901 ·
(;6 soc2 MUST NCT ~A."IC+i 1'0 101
oc
~· 9!.'Hl2 11
09 eoca fllUST NCT &RANCi'I TQ 102
DC
X!..2"8ACC. ~ Te:FR SETS CONDl .. NCT.B4ND3
1<=79 18-43 lC?a 1811-4
DC
XL~P9003"
!18 flCC3 MIJST NOT SRANC~ TO 10.3
oc
~2"9<.;04"
oc eoc.a Ml.!ST NOT B'lANCH 'TO 10¢
lC?'G 1845 1C'1'1" 1$46 1C81 1847 1C83 l84B lCSS 11:149 1 C6'7 1850
OC
XL2~~Ul·t'H"e
00 BOCl MUST ~
OC
xt...2· SOOE ·
OE EAAOR t'tANv
DC
XL2·fH!>O£u
CF TBFR SETS COHDZ~NOTll·Ntl;]')
DC
XW:·~!ttl!}5o
10 BOC3 MIJST Nfri 8RANCtl TO Ht~
DC
ll!'.!..2"95'16 6
11 eoc1 l(IJ$T wen 8RkNCi>1 TO 10$
oc
XL.2 ·~HH4"
J,;<: sec;: MVST BRANCii
IC I
1CS9 1~51
OC
XL2·5013~
13 ERROi< +'!ANG
lCS~ 1852
DC
llll...2·SBOf"" },;t TBFP. SETS A.LL CONPITI OtlS
IC SO 1ti53
OC
Xt.2 ·'9 C1 7 ·
i. 5 B0C3 f!!VST 1*tA~CH
lCSF 1854
OC
Xi..2· 5016"
16 ERf.!OR HANG
1C91 1855
DC
Xi..2~9819~
17 SOCi MUST ~4MC~
tC93 l&S6
DC
x1..2,·so1s·
1£1 ER~OR toiANC".;
1C95 1857
DC
X..2°9418 8
19 60Cl "4UST BAANCM
1C97 1858
OC
XL2 1 SotA·
lA ERROR HANG
1C99 1859 i<OO..CE 0(:
XL.2"5016" · Hl kANG TEST COMPLETED CkAY
1860 18C>1
**'*"'*****R*"O'*lH"'"J'N'°'E*"'*1l0l="-'·"'X*:*R**M**IC*R*O*!loI*N*S*T*R'"U"*C*T*I*O*N***T*E*S"T'*"'***"'::;"'""*"""'-*$¥$$11!<'1"'!<*1'l*l,:
1862 1863
***"'*"'**"'"'*"'"'*11311<11:·:1<'~"·*!111**"'****~*~''
"'*****'*"'ll<''";o"'"''l'**"'*·"''**""*"''*'*"ll''***"',,**""*
Ill<
1 F164 *
TH! S RCUTlME TESTS THE XR ti.IC RO l NS"f~UCT !ON
.,, ( '
186!5 ~
~
1866 "*****,lil'!<Jl<llll4<** .. **"'**>!:*l!l:·!"ll'li'$$**"*"****"""'*$'"'1'"'"'~"'·*11<"'*'****'11'**'*"**"'***"'"'"'"*
1867
1C9A 1868 RT1G DC
lL3 9 1D"
RCiUil NE ;.;U'flt5E~
1C98 1869
oc
Xt.l ·OO e
NO ~ANUAL INTEAVENT!ON
1C90 18'10
oc
Al..2HH'U)
ADORESS OF i.;EXT ROUTi1'tE
1871
1CAF 1872 1S?3 1674
USING F'110k0t.XF"11 LA
lNlTIAL.IZE Xfll FtJF< INDEXING
A.
~
1875 U17n lCA.e 1677 lCAC 1678
MVC B DC DC
ll'fCOPoR"fl00~(6 ·XR!)
PRINT x1..1 ·01 ~
1 i.18 .e-s·
MOVE OP aeING TESTED To
?RI NT AOUTI NE HEAD I NG
lCAE 1879
DC
11..20UCPRT)
1UO
1881 RlOKOl 8
1CS3 1e.82
DC:
1883 ·
1 CBS 1884
oc
1ce7 1ees
DC
1886
1887
6
JCSC 1888
DC
1cee 1a&9
DC
1890
l.OAOCS
At..2<fll10NC$) Ai..2(Rl0MCEJ
Xt.1" <&A.'1
a2·soc1u
.GO LOAD MICROPROGRAM G D!sABLE uPON ENTi:i!Y. F lL.L 2NO
FSO 11111...i eos$o o"' .c.opr...:ss ·STAf<T OF i"!lCP:O <:ooe:
oENO OF ·1<11.Cl'<f.ICOOE
eGO EXE.Cu,.E HlCROP~OGfiAM .ERROA HAL1 -4AoEXPECTEO AESl.JLT.
·
v~'
1891
1892 lcce 1893 RTl&OP cc
LINK
oGO TO N!:lCT RCUTlNe
1894
1895 ·---------~---~-------------~·
ICC~ 73'ff
u:ce n. oa
!CCD '?20~ H:CF A#!iU U:ttl £~.3 lCO:i K07 1<':05- :&D~ 1~07 A205 !COO £22C l COS ~M !COD SOOA JCOF U02 J.CE! E3?13 lCE3 9COF
tees soee
iCtH f.&OeF
1ce..:i u lCEA 00
lC!fJ 1038
lCFi lC OS 5A36 &9 1CFCi CO 87 Ol'HA 1 CF~ 01 2CFB 19 1<.FC 511.46
H:.Ft': Cf:i 67 59Hi lDOi! e3
1003 1016 lDOS lt:!?
1007 CO !l7 64FE lt>OB 48
iooc so.Of'
lOOt:: CO B7 0216
11:112 F1Fl~OC3C>J09
lDUl 7e5C 1014 TF58 1'>1C 76181
1 DIE nsc
1020 SE06 1 D22 90UO 1024 "901 1D26 9SOI!
'* * 16'96 STA,ftT OF tUC.aoPRQGR.t.fll USTt1irl&
189? ·--------------....-..........~-
1CC9 1898 RlO!ltCS SOU ·
lC'CA 1899
oc;
lll\..2·?..,.·
---·.
1c.. 8£'T , . . · · w
1CCC 1900 1cee 1901
DC
XL.2 9 7.lOO*
oc
Jt1..2·?a&s·
JC. HT ~ :J · 00
ICc S·ft HD 2 · $
1CD-.O ! 902
O'C
lll..2 ·A2'0P
li1la 1)3 ·~1'tt 00 ~ 9lii t40 GH-liil:NGE
lC~ !9$3 tC.0.4 l9il 4
OC
:U..<:·£;tD3·
OC
)tL,2· 9CC1"·
Ci 1"0 &Ii ~E ftiiJS 2 · 1!J:3
sac ~a NUS<f 8R!lflf01
JCe6 1905
DC
~2·5'1)1)6.f
E~OR .. HAN$
tCDe 1906 1c:OR 190-r 1coc 1i;,oa 1CM 1909
OC
ll.t,.2· A20J!·
oc
l!Cl-a·£a.2C·
KR O~ 4JT~ FF TC JNV£RT M..L S1TS
C.I Ttt TE$T MDe 2 = 2C
oc
.lCL&··c&&· 09 eoc.~ ·MU'li'T ~
DC
XL.a~S&J.OA·
E~R~. MAf!l4
1ceo 1910
oc
lCL2·1.3c2 e
1'A f f Wt "JM 2C
1 Cl!!~ 19! 1
DC
.tCE4 1912
OC
1C5e 1913
o.c
icea 1914 RlOf'ltCe oc
'i915
Xi-2· E303 ·
lq..~·9COF·
JIL2·!1ooe · xtJ:·SC(lfH
C l TO Cffi!Ck ilID& 3 t= (>3 BOC·! -.nT P.At<IC+I E.f'tR~,. ..,,.HG
HANG" TttST <:OMPJ..ETEO
1915
'* i 9116 *"'**ll<**"'***"",.,*""**·*'*'*··11<·'1<*11<~""'**"''$*"*$=11'**"'**~'*"'**'****·:1')*11>:if!:to****'*"'""***"'·
i9l 7 "'
1'01.IT!NE l l - CI~ MICRIJ iNS'iQUCTlON ttSTS
! 9J. S ~ "'*"'**·-·'****""*"'**lll:li<:.lil'i'8'!-1i<l(I011·11t$·11>$$lt"i<* lll$1i"$>11*-****'**:$11o"i<'lo*lll'**"'°******"'**fl<·<lll
1919 $
...
i920 *
THIS ROUTINE TfSTS THE CIR ~ICQC !WS~UC:T!ON
·
!921 ·
·
19"'2 ··~"'"'"'*****""*"'*"'****"",.*"*'***"'>i<***·*·*·····*··Dl>*"'***l\'<"'"'****·······*·*··.;.
1923
tce9 1924 RTH oc
XLl · 1 l ~
tCEA 1925
DC
XJ..:i 10 00"
NO MANUAL J W"l't;AVENT JON
1CEC 1926
oc
"L2 O~T l:i! l
ADMEss OF NEXT ROUTINE
1927
l CFE 1926
USING ROPKGi~XRt
192~
LA
f<OFKiH · XA!
1930
1931 1932
MVC
e
MlCLJF.RT-OFCP(6·111iR1J PRIN1''
MOvE OP SEI t.G TESTl£D TO P'R I NT ABUT J td: 1'>1:A0 !*'fG
lCFA 1933 lCF~ 1934 1CFO !935
DC
X1.l1'0P
oc
n..1·25·
oc
AL2(M!CP~)
1936 l 937 RO F~fH 8
LOAOCS
·GO LOAD NfCROPRO&RAN
ioo2 l93s 193.9 ,.,
lDOti 1940 1006' 19'-H
oc
XLl" 63°
PC
AU:! ( ROFMCS)
oc
,?1.1..,<:(ROFMCEJ
· 0 IS A81-E UP1.lN £NT RV" I' lLi... 2NO
F SO Wl TH 8tl 5 · 0 OH ADO'RE SS
eSTART OF MICRO COOE
., EfiO OF MICJ:IOCOOE
1008 1000
1942
19~.3
19~4
1945.
e
DOfltlCA
DC
XL! 1 4S·
oc
XLZ·SOOF'
~~o ExECUTc ~ICRO COO£
,. E~OR HAL 1 -4G-
.. EXPEC T£D Rf!SUL't
1946
1947 t S-4S
LO!K
~co 10 NEXT f.!OUTJ NE
lt'.!17 l949 RTOFO" DC
l950
i95t 1952
*-----·----------·---------------·
* START Of' MlCROP"iOGRAM !,.lSTlt<IG "'
1953 =!'--------·-------······-~------------*
!OU.! 1954 ROFMCS Eau
1019 1955
x
O!<
M.L2'7ESC ·
= 00 IC SE't Htfil e 5C
1010 1956 1010 1~57
DC.
oc
= XL2'7F58' 01 re sEi HOS F :§6
XJ._2. 7681 1 02 tc seT H06 6
e1
lO!F 1958
OC
XL2'1'15C 1 0.3 IC 5E T HOS 1 .. SC
lOU 195~
DC
xL2·eeoe.~ 04 Cl~ RESETS Al.t. COMO IT IONS
t Di! 196CI 102.S 1961
oc
XL2·9oooe
aoc. o5
3 tlltJST N·ClT 0f:<ANCH
DC
eoc., XL2~9901 1
06
2 MUST NOT BR,i,UCM
l0Z7' 1962
DC
XL2 ·9so2· 07 eoc, 1 NUST NOT BRANCH
DATE
07.IUL 75
EC NO. 8.::3023
25CCT1'5 82 !O.JZ
15.JAN76 82503'4
PRQ(ii lD
PAGE
0891-2 1 !5
· ·
07.JUl..7:> 825023
25 (CTTS 82 f032
PROG IO PAGE
·
·
I (,.·
1'2942Mi 16
PART NO. PAGE
8912
Dl SPLAY ADAPT IA TQT
'' 8 - 9 U
DI Wt.A"t AOAPHA '1'£51
ERA LOC 08.IECT COOE
1D28 BE01 1D2A 9C08 102C SOOA 102E EWOE 1030 MCIE 1032 SOOD 103· 9003 1l>36 SOOF
AOGA STtltf $~CE ST ATEtt&Wi"
1029 1963 1028 1964
DC
ICL2'6E01 1 08 Cl~. $!TS AU. CONClTIG~S
DC
x'-2·9coe· 09 BOC13 MU!..T BRAMCH
·E· Le<: 01W$:-C:T CODE
1D2D 1965 102F 1966
DC
xt..2·500A 0 OA EftRCJA. MANG
oc
Xl.2-BFOE· oe C !R · S£ TS COM> 1 RESETS a.., 3
1031 1967
DC
1033 1968
oc
10.15 1969
oc
1037 Ulff IQ Ol=flU:E DC
xu·940£· JQ..2·5000· XL2·9003 1 JQ..2·SOOF 1
oc eoc.1 MUST MACH
00 ERROR · +4Afl!G OE ooc.3 .UST NOT ~ OF HANG. TEST COMPl..f!Tlil>
·
uru
1n1 t9T2 1973
·*·....,···R..O.,U··T·I*NE...1.2,**- *C**l "M'*IC·*R*O*t*N*T*R*U*C·T·l-O-N···T·E·S··T·S······..,._,*******····....,·!M·t1\I
0
1974 ..............................................................- .....................1 ·
* 1975 ...
1976
T~IS ROUTINE TEST THE Cl MICRO INSTAl.fCTIO~
·.1
·I Cl) 1011 · I 1978 · · - · · ·. . . . . . . . . . . . . . . . . . . . . . . . . . . . . .,. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
At)OIR STMT S0utC£ STA1'EtENT
2029 . . . . . . . . . . . . . . . . . . . . . . . . ._ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..
2030 *
ROUTINE 13 - &$l WICRO IWST-·UCl'IOH Tt;STS
·
20l1 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .. .
2032.
203a *
2034 ·
·
THIS AOUTI~ 1'ES~S Tl't£ fiA.·~ *EelSTER INSTAU'CTlO~
*
wlTMhl THE .,MST IK AOOAE:SS . . . . . u s r · ONLY REGS 00 TO OF.
·
2035...
·
ao36 ·
8RA'NC+1 R£G1S11ERS MIE DONE AE f'l)l..LO.S,:
·
2037 ·
·
2038 *
2039 *
* 2840
FRC~ A00Rii$$ 0-CM> TO ~ 101· F1COM AO~E SS 101 TO AOeat!SS 20.te
Ff:ICM A00ff£$S ,.0.2 TO Ai.>~$ 303·
* * *
* 2041
FROM A0~£!S 303 TO Af.JO~S 006e
·
2042 · 2043 ·
FRON AD~SS 004 TO A00"£SS 20S. FRCM ADDRESS 205 TO ADCIRESS 006e
"* '
2064 ·
FRDM ADORE es 006 TD AOO'AESS :JOT·
·
2045 ·
F~OM ADDRESS 30? TO AIH>41£S5 l.M.
*
1038 12 1039 00 103A 1069
1979
lD36 1980 RTl' DC
1039 1981
DC
103e 1982
DC
1983
XL1·12· XLt·oo· lllL.2(RT13l
ROUTINE H~
NO MA'«.f4L lm'£f'W'ENTlON
ADDRESS OF NEXT flOUTJNE
I 0
2046 ·
FRCM AOORESS 108 TD A&Ctl£$S IOA·
·
2047 *
FROM ADDRESS 10A TD AOORSS 30&-
"'
2048 ·
FRCM ADCfiESS soe TO ADCR1ESS aoc.
"'
* 2049 "'
2050
FRCM AOD~SS 20C TO AOC!iESS 20Ee FAD4 AOCAESS 20£ TO AOOJlllESS O"'·
*
·
1D3C C2 01 1D4D
1984 1995
USING ROEKOls~Al
&.A
AOEKO 1.KRI
1 NI TJ ALI ZE XR 1 ~OR IND£ XtfllG
2051 ·
·
20$2 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .,..... . . . . . . . . .- . . . . . . . .- . . . . . . . . . . . . . . . . ....
1C40 lC 05 5A38 19 1D45 CO S7 021 A 1049 01
1986 1987 19ea 1049 1989
MVC
e
DC
MlCOP.,~TOEOP( 6oJllRl) PRINT XL191')19
MOVE OP eelNG TeSTec TO PRINT ROUTINE HEADING
1089 l!
c
t08A 00 1088 1£93
2053
1089 2054 RTU
l08A 2055
lDSC 2056
DC
XL1 1 l!·
XLl ·Oo·
~lRT14)
ROUTlN£ NuMEER HO titAtfltAL J111Te11WEHTIOH
ADDRESS OF NEXT ROU'TINE
104A 19
104A 1990
DC
IL.1°25"
2057
1048 SA46
1040 co 87 5918
1D51 83
1052 1067
1D4C 1991
DC
1992
199.3 AO ISKO 1 B
1051 1994
DC
1995 "'
1053 1996
DC
Al..2 (MI CP"T ) LOAOCS
"4..20tOEMCS>
.GO LOAD ·ICROPfUJGRAM
eOISAILE UPON ENTRY., FILL. FSQ ·ITH Bcs.o ON ·ODRESS
· STAAT ::lf-" M&.::tO CCIO£
1080 C2 01 1099
c
1091 CO 87 021 A 1095 01
1096 2?
2058 2059 2060 2061 1095 2062 1096 2063
USING R11K019)(Rl
LA.
R11 K.01,XAl
e
PRINT
DC
XLl '01 1
DC
11..1·39·
INITIALIZE XR1 FOR INDEXING PRINT AOVTthE ttEAOIHG
1054 1088
11)55 1997
DC
At..2(ROEMCU
oENO OF MICROCOD~
1097 10££
1098 206·
IX
IL2UU1HDR)
1056 CO 87 54f'E
1998 1 '>9-l
e
COM I CR
.GO EJllECUT£ MICRO Pf20GRMC
1C99 CO 8? 5918
2065
s 2066 RUK01
C..OAOCS
1 OSA 46 1058 5010
105A 2000
DC
IDSC 2001
oc
· ERROR MALT -46o EXPECTED RESUJ..T
'C
10«> 91 1D9£ 1Def"
1090 2067 1t>9F 2068
DC
XLl UJSS
oc
A1.2(RUMCS)
lOSD CO 87 0216
2002
2003
e
2004
1066 2005 RTGEOP DC
Cl·
2006
2007 2008
··-S-T-A-R-T -O~F-~M-IC~R-O-P-RO-G~R-A-M~-L-IS-T-I-N·G-·*
c
:c
IDA' 1E32
IDA2 CO 87 59Hl
U>A6 ez
10AT 1E33
1049 IEU
1 CH CO 81' 5918 . 10AF 84
1DA1 2069 2070
10A6 2071 1DA8 2072 ll>AA 2073
2074 tOAF 207$
IX
At.2<R1Uta£)
e
LOAOCS
DC
xe..1·e2·
DC
AL 2t R u·ca 1
DC
Al.2 ( Rll MC3)
8
L.OAOCS
DC
ICl..1·84·
1067 ?CAA 1069 TOTT 1068 ECBe !1>60 9000
= 1067
22001009
-------------~~-------~------·
fiOEfllCS EQU ·
106'3 2011
DC
XL2'7CAA 8 00 IC SET HOB C AA
106A 2012
oc
xt..2· 7077 9 01 IC sET HOB 0 · TT
106C £:013
ec
lCL2. ECSfP 02 Ct ANO RESET ~t.. CONDITIONS
1D6E 2014
DC
:n.2·9000· 03 eoc.3 MUST NOT BRANC~
1,.,,,
I~~
/o
lDBO 1E53
1oe2 1e?2
1084 co 81' 5911!1
1oee ·e
1De9 1£73
IOSB 1£92
lOSl 2076 1083 20T7
2078
1088 2079
lDeA 2060
ioec 2081
DC
AU (RU MC.)
DC
AL.Zt R llMCS)
B
LOAOCS
DC
JU..l ·A8·
l)C
..,_ 2 HU tMC61
DC
Al..2 CRl 1 ttC7 I
1D6F 9901 107'1 9502 1073 ECA4
1075 9C09 1077 5008 1079 ED7F"
1D70 2015 1072 2016 lt>74 2017 1076 2018 1078 2019 1D7A 2020
oc
Kl-2 1 9901 · O<\ eoc.2 MUST NOT 8RANCH
oc
xL2·9so2· 05 eoc.1 MUST NOT 8(0iANCH
OC
iQ..2 1 ECAA 0
06 CI ANO SET ALL CONt>ITIOfilS ON
DC
XL2 1 9Ct)9· 07 soc.3 MUST BAANCH
DC
XL2 1 5008 1 08 ERROR .. HANG
OC
Jl(t..2 1 EDTF 1
09 CI ANO SET CCND 1 ON· 2 ANO 3 Ol=F
!o
I
le
101!10 CO 81' 54<f'E ll>C 1 4IE 10C2 500F
10C4 co 87 0216
2082 2083
10Cl 2084 10C3 2085
2086 2087
B
DOtil lCfl
oc
XL1·4£1
DC
XL.2· SOOF ·
8
LI N1<
1D7B 9003
1070 9400
l01'F sooc
1081 ED77
1D7C 2021 lDlE 2022 1080 2023 1082 202~
DC
XL2 1 9o03' OA eoc · .3 MUST NOT &RAMCtt
oc
~z·9·00· oe eac.1 MUST 9f2,AtfCH
DC
KL2·f>OOC ·
oc ERRORo HANG
DC
xa..2·£077' OQ SET ALL CONf> IT I f)M5 ON
I
10
I
2088
1oce D906E4E:t40Fl F ~O 1DEE 20&9 Rl1Hl>R OC
1000 C2 C9400.C'IC3D f)6
20&9
lmM 4006 C140E3CSE .iE3
2089
1083 9C10 1085 508F 1i>87 5010
1084 2025
OC
1086 2026
oc
1088 2027 R0EMC£ DC
XL.2·9ClO·
lllL2~sooF·
xu·so10.
OE BOCo3 MUST BRAMCH
OF ERR.DR 1 HANG 10 HANG· TES"T COMPLETE
DATE
07JUL. 75
f!C NO· 82!'023
25 LCT"P5 &2!032
15.IAN76 825034
PROG t.O PA-GE
10
10£0 5E40f"11>240C:lC «;4
1oea 09C5E2E2C5E24 C
,I.·1.
I 0891-21 16
OATe EC NO.
O?.NL.75 829023
25 CCTT5 82!032
2099 2089
2090
2091 ·--------------------------~·
2092
eGO LOAO MlCROPRO'GftAM .LOAD Con£ IN lST FSQ eSTART OF MICRO CODE eENO OF MJCROCOOt!
.LOAD cooe IN SfiCOND F sa
eLOAO CODE I~ 3RO 256 WCS
J..040 CODE IN ·TH 256 WOS
-·E- eGO EXECUTE MICROCODE
.EIUIDR KM..T eE>tfaECTEO 0.TA eGO TO NEXT ROUTINE
PROG IO PAG£
0891-2 16A,
1.
I
··············· ·················
IBM MAINTENANCE OIAGNCSTJC PROGRAM
8912
DISPLAY ADAPTER TEST
ERA LOC OBJECT CODE
ADDA STMT SOURCE STATEMENT
lDEF 5010 1DF1 5001 1DF3 5002 1DF5 5003 1DF7 3205 10F9 5005 1 OFB 3307 lOFO 5007 lOFF 5008 1E01 5009 1E 03 500A 1E05 500B 1E07 SOOC IE09 5000 l EOB SOOE l EOO SOOF 1EOF 7000
1E11 71Cl 1E 13 7202 1E!5 7303 1E17 7404
1E19 7505
lElB 7606
lElD 7707
1E1F 7808 1E21 7909 1E23 7A0A
1E.25 7BOB
1 E27 7COC 1E29 70 OD
1 E2B 7EOE
1 E2D 7F OF 1E2F 3101 1E31 5021
1E33 5100 1E35 3202 1E37 SJ 02 1E39 5103 1E38 5104 1E 30 Sl OS 1E3F 5106 lE41 5107
1E43 3l0A 1E45 51 09
1E47 3.308
1E·9 5108 tE4B 51 OC 1E40 51 OD lE·F SlOE 1E51 51CF
lES3 5200 1E55 5201
1E57 3303
lES9 52 03 lESB 5204 1£50 3006
1E5F 5206 1E61 5207 1E63 52 08 1E65 5209 1 E67 520A
lE69 s2oe
lE6B 320E 1E60 5200
lOEF
2093 2094
·A-l-l-~-C-S--f;-Q-U----*------------------·
lOFO 2095
DC
XL2·so10·
1 DF2 2096
DC
XL.2 1 5001'
l OF'° 2097
DC
XL2·5002·
tOF 6 2098
DC
XL.2' 5003·
lDFB 2099
DC
Xl.2· 3205 I
lOFA 2100
DC
XL2'5005°
lDFC 2101
OC
XL2· 3307·
IDFE 2102
Or.:
XL2"5007 1
lEOO 2103
DC
XL2 · 5008 ·
1E02 2104
DC
XL2'5009 1
1 E04 2105
DC
XL2·500A·
1E06 2106
DC
XL.2· sooa·
lE08 2107
DC
XL2 1 500C 1
lEOA 2108
DC
XL2" 5000·
1EOC 2109
DC
XL2 1 500E·
!EOE 2110
1El0 nu
DC
Xl.2'500F'
DC
XL2 1 7000·
1E12 2112
oc
XL2 1 7101 ·
1 El4 2113
DC
XL2 1 7202·
lE 16 2114
DC
X!..2' 7303 1
1 El8 2115
DC
XL2·7404 ·
lElA 2116
DC
XL2°7505·
1E1C 2!17
DC
XL2· 7606·
lElE 2118
DC
XL.2'7707·
1E20 2119
DC
)U..2 I 7808 t
1E22 2120
DC
XL.2 1 7909.
lE24 2121
DC
XL2·7.-0A·
lE26 2122
DC
lt.L2' 7808 1
1E28 2123
DC
>U..2·7COC·
1E2A 2124 1E2C 2125
DC
XL2 8 7D00 1 ·
oc
.ICi..2 1 7EOE·
1E2E 2126
DC
Xl.2 1 7FOF·
1E30 2127
DC
1E32 2128 fH lMCE tx:
1E33 2129 R11MC2 EQU
1E34 2130
oc
XL2 1 3101·
.ICL2'5021 1
·
XL.2· 5100·
1E36 2131 1E3a 2132 1E3A 2133
DC
XL.2·3202·
DC
XL2'5102 1
oc
Xl.2 1 5103·
1E:5C 2134
DC
Xl.2 1 5104 1
lE!e 2135 1E40 2136
DC
Xl.2·5105·
oc
X&..2'5106·
IE42 2137
DC
XL2·5107·
1E44 2138
DC
AL2 1 31 OA 1
lE46 2139
DC
>CL.2·5109.
lE48 2140
DC
XL2 1 330B1
1E4A 2141
DC
XL.2 1 5108·
1E4C 2142
DC
xa..2·s1oc·
1E4e 2143
DC
JCL2·5100·
lE!SO 2144
DC
Xl.2'510E 1
1E52 2145 R11MC3 DC
1E53 2146 R l 1MC4' EQIJ
1E54 2u,7
DC
XL2·!HOF·
·
lCL.2·!5200·
1E56 2148
te5e 2149
lESA 2150
DC
XL2'5201 1
DC
XL2· 3303·
DC
XL2'5203·
lESC 2151
!ESE 2152
DC
XL2'5204 ·
DC
XL.2 1 3006 1
1E60 2153 1E62 2154
DC
XL.2·5206 1
DC
XL2" 52071
1E64 2155 1E66 2156 1E68 2157 lE6A 2158
1E6C 2159 lE6E 2160
DC
>0..2·s2oe·
DC
XL.2 1 5209 1
DC
XL2· 520A'
DC
xL2·s2oe·
DC
XL2" 320E'
DC
>Cl..2' 520D·
DATE
OTJUL 75
EC NO· 825023
25CCT75 82 !032
PART NO. PAGE
4234255 17
IBM MAINTEN~NCE DIAGNCSTIC PROGRAM
8912
DI SPLAY ADAPT £R TEST
PART NOe PAGE
"2342t5!5
17A
ERR LOC OB.JECT CODE
AODR STM T SO 1.R CE ST ATENENT
000 6051 0 TO ADDRESS 010
001 ERRORo HANG.
002 ERROR 9 HANG· 003 ERROR, ~ANG, 004 BR TO ADDRESS 205 00 5 ERRORo HANG 006 BR TO ACDRESS 307 007 ERROR., HANG
ooe ERROR., HANG
009 ERROR, t-1ANG
ooA ERROR., HANG ooa ERROR . . .ANG
OOC ERROR, HANG 000 ERRORe HANG OOE ERROR, HANG 0 OF E XPECTEO DA TA 010 IC HOS 00=00 011 IC HOB C1·01 012 IC HOB 02=02 013 IC MOB 03·03 014 IC HOB 04==04'1 01s IC ~oe 0~05 016 iC HOS 06=06 017 IC HOB 07=07 018 IC HOB 08::06 019 IC HOB 09m09 01A IC HOB OA·A 018 IC HDB 09=09 01C IC HOB OC:OC 010 tc HOS OD=:OO OlE IC HOS Oe=OE 01F JC HOB OF·OF 020 ElR TO ACDRESS 101 021 ERROR. HANG
100 ERAORe tiANG 101 BR TO ADDRESS 202· 102 ERROR. HANG 013 EAROA. MANG 014 ERROR· HANG Ol 5 ERRORe HANG 016 ERROR., ..ANG 01 7 ERROR· HANG 108 BR TO ACDRESS 10A
109 ERROA· HANG 10.t. eR TO AOORESS 30B
toe ERROR. HANG
10C ERROA· HANG
1 OD ERROR· MANG
1 OE ERROR· HANG l OF ERROR· HANG
200 ERROR. Hll\NG 20 1 ERROR., H~NG
202 BR TO ADDRESS 303 203 ERROR· HANG 204 ERROR. MANG 205 BR TO ADDRESS 006 206 ERROR· HAN(; 207 ERRORo HANG 208 ERROR, HANG 209 ERRORw HANG 20A ERROfco HAN~ 208 ERRORe HANG 20C BR TO ADDRESS 20E 200 ERRORe HANG
PROG ID PAGE
0891-2 17
lE6F 300F 1E71 520F
lE73 5300 1E7& 5301 1E77 5302 1E79 3004 1E7B 5304 1E7D 5305
1 ETF 5306
lESl 3108 1E83 5306 1E85 5309 1E 87 530A 1 Ea9 32oc l EBB 530C 1E8D 5300 1E8F 530E 1E91 530F
lE70 2161
DC
1E72 2162 R11MC5 DC
1E73 2163 Rl U4c6 EOU
1E74 216~
DC
1E76 2165
OC
1E78 2166
DC
1E7A 2167
OC
1E7C 2168
DC
1E7E 2169
DC
1E80 2170
DC
1E82 2171
DC
1E84 21 72
OC
1E86 2173
DC
lESa 2174
DC
1E6A 2175
DC
1E8C 2176
DC
lEBE 2177
DC
1E90 2178
DC
1E92 2179 Ri lMC7 DC
2180
2180
XL2·300F· XL2 1 520F ·
·
XL2'5300 1
XL 2·5:!01 ·
XL2'5302·
XL.2 1 3004' XL2°5304· XL2 1 5305· XL2 1 5306·
XL.2 1 3108' xL2·saoa· XL2 '5:!09 ·
XL2 1 530A 8
XL2· 320C 1 XL2'53oc·
>tL2'530D 1 XL2 '530E 1 XL2 1 530F'
20E BR TO ACDREss OOF 2 OF ERROR· HANG
300 ERROR, HANG 301 ERROR, HANG
30 £: ERROR· HANG 303 BR TO ACORESS 004 304 ERROR· HANG 30 5 ERROR. HANG 306 ERRORe HANG 307 eR TO AOORESS 108 308 ERROR· HANG
3 oc;; e RROR. HANG 30A ERROR· HANG 30B BR TO ACDRESS 20C
30C ERROR· HANG
30D ERROR· HANG 3 OE ERROR · HANG 30F ERROR· HANG
2181 2182
~*******R*O**U*T*IN*E**1*4**-**I*N*C**M**IC*R*O**I*N*S*T*R*U*C*T*I*O*N**T*E*S*T***************************
2163 2184
*···~·········*·····*********************************····················
2185 *
* 2186 * 2167
THIS ROUTINE TESTS THE INC ~ICRO INSTRUCTION. OF INCREMENT FROM 1-256 ARE TR!eo~
ALL COMBINATIONS*
· ·
lE93 14 1E94 00 1E95 1F27
22118898 ···$******·***********************************··················*······
1E93 2190 IH14 DC
1E94 2191
DC
1 E96 2192
DC
2!93
XL1' 141
XLt·oo·
AL2(RT15)
ROUTINE NUMBER
NO MANUAL INTERVENTION
AOORESS OF hEXl ACUTINE
1E97 c2 01 1EAa
1E9B lC 05 5438 22
c
lE~O CO 67 021 A lEA4 01
1EA5 19
C) "
1EA6 5A46
1 EA6 CC> 67 5918
1EAC "ill
(: l EAO 1ECB
1EAF lF02
c
1EB1 CO 67 591 S l EB5 A2
1EB6 1F03
1EB8 1F26
1EBA CO 67 !54FE lEBE 50 lEBF 5018
1EC1 CO 87 0216
1EA8 2194 2195 2196 2197
2198 1EA4 2199 1EA5 2200 1EA7 2201
2202 2203 1EAC 2204 lEAE 2205 1EBO 220fi, 220?
1EB5 2208 1EB7 2209
1EB9 2210 2211 2212
lEBE 2213 lECO 2214
2215 2216 2217
Rl2K01
USING LA
MVC B DC
DC DC
B
0(:
DC
cc
B DC
DC
DC
6
RU:KOtwXRl Rl2KOt.XRl
MlCQP,RTt20P(6eXRl} PRINT XLl · 01 · IL1'25 1 AL2 ( ~iCPS<T)
LOAOCS XLl I 91' AL2CR12MCS)
AL Z<R 12MCE > l.OADC$ >:I.. I 1 A2 1
ALZOH2MC2)
AL2(R12MC3)
D0fl4JCR Xl..1' 50·
JCL.215018 I
LINK
JNITIA~IZE XR1 FOR INDEXING MOVE OP BEING TESTED TO
PRINT ROUTJNE HEADING
.GO LOAD MICROPROGRAM
.LOAD lST FSQ
.START OF NICRC cooe
.ENO OF MlcROcooe .GO LOAD MICROPROGRAM ·LOAD 2NO FSQ
.GO EXECUTE NJrCROPROGRAM ·E~ROR HALT -50.E xPEC TED RESULT .GO YO NEXT ROUTINE
1EC5 F1F·40CS05C3
lECA 2218 A1"120P DC
CL6'14 lNC·
22J9
lECB 7AOO
c
tECD 7704 lECF 7600
1ED1 5100
c
* 22222210
*-~----------------·-----------·
START OF MICROPROGRAM LISTING$
----------* * 2222 ·----------,··--------...
lECB 2223 R12MCS EQU
lECC 2224 tECE 2225
1EDO 2226
1ED2 2227
DC
XL2t 7AOO· 00 1c. SET Hoe A · 00
DC
KL2 I 7704.
01 JC· PUT RETU~N ADOR IN HOB 7
DC
XL2·7600· 02 IC. SET HOB 6 : 00
DC
X1..2·s100· 03 eos.o BRANCH TO INCREMENT R~~TINE
DATE
e EC NO·
07.JUL 75 825023
25CCT75 82 fO~'?
l5JAN76 82503"
PROG 11) PAGE
0891-2 l?Al
·
·
IBM MAINTENAN~E DIAGNCSTIC PROl'8RAM
PART NOo PAGE
4234255 1e
IBM MAINTENANCE DIAGNCSTIC PROGRAM
PART NO· PAGE
·23·2!!5 l8A
6912
DI SPLAY ADAPT tR TEST
8912
DI SPLAY ADAPT fA
ERR LOC OBJECT COOE
ADOR STMT SO~CE STATEMENT
ERR LOC 08.IECT CODE
lED3 EA10
lEOS 9C07 1ED7 5006 1ED9 7801 1EDB 770A lEDD 5100 !EDF 1810 1 EEl 1840
1EE3 1840
1EES 1640
!EE7 1040 lEE9 9418 1 er::e BAOB
1 EEO 9C13
lEEF 5012
1 EF l 1840
1EF3 1840
1EF5 1840 1 EF7 1840 1EF9 5100
l EFB EAOO 1EFO 9C18 1EFF 501A
1FO1 5016
lf'03 lAlO 1F05 1A10 1FC7 lA10 lF09 l A.10
lFOB 1A l 0 l FOO lA.10 1FCIF lAlO lFll 1A10 1Fl3 1A10 lF 15 lAlO 1Ft7 1Al0 1F19 1Al0 1F1B 1A10 1F10 lAlO lFlF lAlO 1F21 1A10 1F23 3607 IF 25 5111
1F 27 15 1F28 00 1F2.9 1FM
1F2B C2 01 1F3C
1F2F lC 05 5A38 1F34 CO 87 021A
1F38 01 1F39 19
DATE
07JUL?5
EC NO. e25C23
1ED4 2228 1E06 2229
1Eoe 2230
1EDA 2231 tEO.'. 2232 lEOE 2233 lEEO 2234 1EE2 2235 1EE4 2236
1EE6 2237 !EE8 2238 lEEA 2239
lEEC 2240 lEEE 2241 1EFO 2242 1EF2 224~
DC
XL2°EAl0" 04 Cl· HOB A MUST HAVE 10 JN JT
l)C
XL2·9C07· 05 eoc.3 MUST BRANCH
oc
XL2·5006 I
06 ERl:!ORe HANG
DC
XL.2·7BO1' 07 IC· SET HOB B ~ 01
DC
XL.2' 770A 1
08 IC1 PUT RETURN ADOR I~ HOS 7
DC
XL.2. 5100.
o'" BOS. 0 BRANCH TO INCRE.,.ENT ROUTINE
DC
.AL2 · 1810'
C. A ~NCREp;!ENT HOB B
DC
XL2· 1B40·
OB SHIFT HOB 6 LEFI
DC
XLZ" 1840 · oc
4 TIMES
DC
XLZ.· 1640 · OD
DC DC
Y.L2"1El40· XL2·9418 ·
OE OF BRANC~ TO END IF ~I SITS : 0
DC
"L2 1 BAOB·
10 C! R · COMPARE FOR CORRECT i:IESUl,.T
DC
XL.2"9Cl3·
11 WILL BR·NCH IF O~Ay
DC
XL2." 501'! ·
12 ERROR· HANG
DC
XL2· 1640·
13 SHIFT HOB S AROUNtl A~AIN
(
1F3A 5A46
1F3C CO S7 5918 1F40 83
lF 41 1F56 1F43 1FA3
1F45 CO 87 54FE &F49 52 1F4A 5026
1F4C CO 87 0216
lFSO FlF5404003D9
1EF4 2244
DC
XL.2" 1640.
14
1EF6 2245
OC
XL2m1S40· J.5
1EF8 ?.246
DC
lEFA 2247
DC
lEFC Z248
DC
lEFE 2249
DC
1FOO 2250
DC
1F02 2251 1:<12MCE OC
Xl..2 8 1840' XL2·5A00· xt.2· EAOO·
Xl.2 ·9ClB ·
xu:· soi,..
XL2· 5016·
Ui 17 RETURN TO INCF<EMEN T Rou·(H~E 18 END· iEST "Tt-!.AT HOS A "-" 00 19 MUST BRANCH lA ERRORe HANG 1,B HANG· Ei>.!D OF TEST
2252
1F03 2253 R12NC2 EQU
1F04 2254
DC
1F06 2255
o ....
..
X1..2 9 lA10~ XLi!.·lA~O·
100 INCREMENT RDUYINE· INC~ENEN1S HDB A
10 l
·;o 16 l IME:.; ~ND RE1 '-.~~NS
l!l!A!N t<OUil NE"'
iFOEl 2256
DC
Y<t..2 9 1 ofi, ~ l.J<
102
lFO A 2257 lFOC 2258 1FOE 2259
DC
J<t.,2'l~J;O
103
DC
.ll,1..2 · 1 "-'· c · 104
oc
Xi.2' lAiO·
HIS
lFlO 2260
DC
J(l.2· 1A10 · !06
lF 12 2261
DC
XL2· 1Al0 e
l(>'f'
1Fl4 2262 1Fl6 2263
JF 18 2264 1F1A 2265
DC
Xi..2m lAlO' 10'11
oc
X!.2'1ill10· 1:)9
DC
XL2' lUCl' lCA
oc
7'1...291AlOe
1oe
tF lC 2266 1F1E 2267
DC
XL2 2 l A!O·
10C
DC
Xl..2~1Al0·
100
(
JFZO 2268
DC
x1..2·1A10~
10E
1F22 2269 1F24 2270
DC
XL.2· 1 AHi ·
~OIF
DC
XL.2'360"l'·
uo BF!0 REiURN TO t<UlIN ROUTINE
(
l.F26 2271 R3.214C3 OC
Xl...2·51lI1·
U1 ERROAo HANG
2272
!(
c 227'2
2273 2274
2275 2276
·*~···~····*··$··R·$O·$U··T*·IN···E~··$·1·5·····-·····L·i··'<·····M···!C···R·$O···$·IN···S·*·T·R··v··C···T··H··lN··-·~T·E~*S··T*···········~·······$····*······~$··*·*·~*·*····*··$'I;::;
2277 ·
THIS ROUTlNE CHECKS l~E LR MICRC !NsTAULTICh wITHiN THE
·
2278.
HOe·s ONLY· THE ABll...l!TY TO LOAD FROl\i ANO TO EXTERNALS
·:
2219 11<
'11H.L 6E CHE CKE 0 Li1'TER$
"'
2280 >1<$0
l.R CK OF lSl l'IDei C!N'l..1f
*'i''i<,
""*"'"'* "** **'·*** 22EH $
22 82
!!!
$$ll<>ll111!lli<ll':fl<'lt$·lt1il' *ll<1!1<1!<********$:il l\l>it.IF\l<lll<"' 1!111)<$.$$$11\:lil>li !i!>ili~**"'****lii<'i<'lt '110!<*
$] (_ i
2283
!F2i' 2284 RHS DC
U'2Ei 2285 !F2A 2286
DC
oc
XL:P 15·
XL i · aoe
~3HAT16J
ROUTINE NUMBER NO MA!iUAI... !!NTERVENT ~ON
ADORE SS OF l\E X1' f;!OUT l Nii
l r56 73AA
1F5"!l 7155 lFSA 2FO~ 1F.5C EFAA j, FSE 9C 06 1F60 5005 lF62 2F Ol
ll.F64 EF55
'.l.F66 9CO.~ !F-58 5009 1F6A 202F lF6C E3.t.A 1 F6E 'ilC OE 1F70 5000 1F72 75FF 1F74 2510 1F76 E555 1F78 9Cl3 lF7A 5012 11'"7C 76FF lF7E 2623 1F80 E6FF
1F s.a 9C: 1 a
1F64 51.H 7 1F86 2616 1F88 E6AA !FSA 9C1C lFSC 5016 11.FSE 2430 lf"90 2614 JJ'"'>12 E655 tf'9~ 9Cli.':1 1F96 5020 1F9S 2436 1F9A 2616 1F9C E6AA 1F9E 9C2.6 lFAO 5025
U"A2 5026
2281
1F3C 2288
2289
2290
19
2291
2292
1F38 2293
1F39 2294
USING Rl 3KOhXfU
LA
Rl~KO 1 1 X~1
MVC
e
D(;
DC
~XCOPsRTtSOPC6·XRI)
PRINT
MOVE OP ~ElhG T6ST~b 70 PRINT ROUTINE HEADING
G
\e
25 U:T75 82 £032
UIJAN?6 825034
PROG 10 PAGE
IO
0891-2!
DATE
:o 1 e 1 ec NCH
Ol'.JUL1'5 6250.23
TES)'
AOOR STNT SO~CE STATEMENT
1F 38 2295
DC
At..2(MICPRTi
2296
22.97 R13K01 B
1F40 2298
OC
229'ir ·
1F42 2300
DC
1F44 2301
DC
LOADCS
Xl.1. 83'
ilt.2 (R13MCS t AL2CR13MCE)
eGO LOAD MICROPROGRAM eDISABLE UPON ENTRY1 FJLL 2ND
FSQ WITH ecs.o ON ADDRESS
.START OF MtCRO CODE
eENO OF MICROCCDE
2302 2303 1F49 2304 1F4B 2305
a
OOMICF!
DC
XL.1 9 52·
DC
XL2'5026 ·
oGO EXECUTE MICROPROGRAM .ERROR HA~T -52~ExPECTED RESULT
2306 2307
8
LINK
~GO TO NE~T ROUTINE
2308
1F55 2309 RT130P DC
2310
2311 2312
·*-~ST-A-R-T--O~F--M--IC-R-O-P-R-O-G-R-A-M--L-I-S-T-I-N-G-·*
lF56 tF57 1F59 iFSB 11"'50 1F5F
2313 2314 23J.5 2316 231 7 2318 2319
$-------·--------~----·----------·
IH:?JMCS EGU
*
DC
XL2"7'JAA·
00 IC, SET HOEi 03
DC DC
XL2°7!55° XL.2° 2F03·
01 IC, SET HOB 01 02 LR· SET HOB OF
AA FRO~
OC
><L2" EFAA'
03 Cl· CHECK THAT HOB OF IS
DC
XL2· 9C06 1
04 BOSo3 MUST BRANCH
HDB 03 "' AA
lFf.l 2320 H'63 2321 1F 65 2322 1F67 2323
1F69 2324 u=68 2325 ~.1""60 2326 lFeF 232'1'
DC
xi..2· soos · 05 ERRORe HANG
DC DC
XL2·2FO1 · XL2' EF55·
06 LR· SET HOB OF ; 55 FROM HOB 01 07 C!~ CMECK THAT HOB OF : 55
DC
Xl..2e9coA· 08 BOCo3 MUST BRANCH
xL2·soo9·
09 ERRORe HANG
DC
XL2'202F'
OA LR. SET HOB 10 ; 55 FROM HDB OF
D<.:
XL2°E3AA«
09 CI· CHECK THAT HOEi 03 010 NOT CHANGE
8C
Xl...2" 9CCE 0
oc aoc~ 3 MUS'i S;;<ANC~l
1F7l 2328 lF7~ 2329 1F75 2330
oc
XL2·500D ·
OD ERRORe HANG
DC
XL2·75FF" OE IC, SET HOB 5 m FF
DC
XL2' 2StO·
OF LRo SET HOS 05 =: 55 Fr.10M 1'!06 Hr
1F77 2331
1F79 2332
OC
XL2'E55S·
10 Cl· CHECK K!)B 05 "" 55
CC
X!..2 1 9C13 · u eoc.3 MUST iSP.ANCt1
1F76 2333 1F7D 2334 1F"l'F 2335 1F81 2336
1F83 2337 lF85 .2338 1F67 2339 lF89 2340
1F88 234!.
OC DC DC DC
DC
X.1..2·so12· :li:l.· 2·76FF· XL2·2623 1 x1.2·E6FF · Xi... ?. 0 9C18"
12 ERROR" HAl'<tG
= 13 IC:· SET HDS ·06 = FF
14 LRe SET M00 16
Ji.A FROM 1-lDB 03
15 Cit CHECK THAT HOS 06 SYILL tS FF
16 eoc.3 ~UST aR~~CH
DC OC
Xl.2"5017· XL.2·2616 1
17 ERROR· HANG 16 LR· SET HOB 06 :: AA FROM HOB 16
DC
DC
XL2°E6AA 9 Xt.2· 9C lC ·
19 Clo CHECK 06 s AA lA soc.3 MUST 6~ANCH
!FBD .2342 J.F 81" 2.'143
1F91 2344 lF93 1?345
1F95 2346 lF97 2347 lF99 2346 1F9B 2349 1F90 2350
u=w 23s1
lFAl 2352 1FA3 2353
DC DC
DC DC
DC
oc
DC DC DC
oc
DC R13MCE DC
)l(!....2°5016' XL2 6 2430·
XL2 8 21614 · XL2 11 E655· XL2= 9C2l" XL2S 502.0. XL2·2.436· XL2e2616· XL2' E6AA 1 XL.2C9C26· XL2°5025· XL.2·5026 ·
16 ERROR e HANG
= 1c LR· SET HOB ll.4 :: 55 FROM HOB 10
10 ~Fl. SET HOB 06 55 FROM HOB 14 1E CI· CM:.CK Tt·IAT HDB O~ ,.. 55 lF 80C·3 MU$T BRANCH
20 ERROR· HANG 21 LR· SET HOS 16 3 AA FROM HOB 14 22 LR~ SET HOB 06 ::: AA FROM HOB 16 23 Cl· CHECK THAT HOB 06 ,,. AA
24 BOC · 3 fl!UST l!U1At.!CH 25 ERROR· HANG 26 HANG· TEST COMPLETED
2354
2354
2355
i:i"1<il<**""*lt'************"'********'*'***********'******$~$l!l>i<>&:ll<$l!ll3'$l!llll'$1!<$$llil·llll·~'" .,,~
"'*** *"'* 2356 *
2357 ··
RQUTI NE 16 - TSN MICRO INSTRUCT EON TEST
**********"'* **"""*******11''4<11'$$/Jfl...........* *** ** $.$$1$$11!$$$$$$$$$$$$$
2358 ·
* 2 3 5 9 .
2360
THIS ROUTINE TESTS THE eAstc TSN~s wH!CH ARE EN A KNOWN QUIESCENT STATE· OTHER TSN·S WILL BE CHECKED LATERo
·
* ·
* 2361
15.IAN76 82503·
PROG 10 PAGE
0891-2
is:'
\·
I
· · · · · · · · · · · · · · ·'I·· · · · · · · · · · · · · · ·
·
·
·
· · · · · · · · · · · · · ·· · · · · · · · · · · · · · · ·
.ct'aM MAINTENANCE DIAGNCSTIC PROGRAM
PART NO. PAGE
c 4234255 19
JBtll MAINTENANCE DIAGNCST IC PROGRAM
PART NQ.
PAGE
8912
DI SPLA., ADAPTER 1£ST
ERR LOC OBJECT CODE
ADOR STMT SOLRCE STATEMENT
( '8912
Ol$PLAY ADAPT lR TEST
ERR LOC OBJECT CODE
ADDA STMT SQU"CE STATEMENT
2362
24'29 ·
FSQ WITH acs.o ON ADDRESS
1FA4 16 tFAS 00
2363
lFA4 2364 AT16 DC
!FAS 2365
DC
>CL.1·16·
XL1" oo·
ROUTINE NUtlBER NO MANUAL INTERVENTION
1FFA 2026 lFFC 2041
lFFB 24'30 lFFD 2431
2432
DC
M..2(R15MCS)
oc
AL2CR15MCE>
.START OF MICRO CODE ·ENO OF MICROCODE
1FA6 1FE5
1FA7 2366
DC
AL.2(RT1TI
ADDRESS OF ~EXT ROUTIKE
1FFE CO 87 54FE
2433
e
DONICA
.GO ExECuTE MICRO PROGRAM
2367
2002 56
2002 2434
DC
xt.i · 56·
·ERAOM HALT -56-
1FA8 C2 01 tFB9
1FB9 2368 2369
USING R14K01 .XRl
LA
R14K01.XR1
INITIALIZE XR1 FOR INDEXING
2003 SOOD
2004 2435 2436
DC
Xl.2·5000.
.E xPECTED DATA
2370
2005 CO 87 0216
2437
B
LINK
·GO T 0 NEXT ROUTINE
lFAC 1C OS 5A38 1 9
2371
MVC
tllCOP.RTt40F(6 eXRl)
MOVE OP SEING TESTED TO
2438
lFBl (;0 87 021A
2372
B
PRINT
PRINT ROUTINE HEADING
2009 D~D6E4E340F1F 740 2025 2439 RTlSOP DC
CL29·ROUT 17 SSF,SSN ~ICRO OP TEST'
IFf:SS 01
1FB6 19 1FB7 5446
1Fe5 2373 tFB6 2374 1FS8 2375
DC
XLl·01·
DC
1Ll·2!!:1
DC
llL.2CMICPAT)
,.
2011 E2E2C66JE2E20!40
'
2019 04C9CJD~D640DCD7 2021 40E3CSE2E3
2439 2439 2439
2376
2440
1Fe9 CO 87 5918 lFBD 87
lFBE tFD3 1FCO lFt;'.4
1FC2 CO ST 54FE 1FC6 54 1FC7 5008
2377 R14K01 8
1FBD 2378
DC
237il.
tFBF 2380
DC
lFCl 2381
DC
2382
2383
s
1FC6 2384
DC
1FC8 2385
oc
AL2(R 14MCS) AL2CR14MCE)
COM I CR XLI 1 541 XL2·sooe·
eGO LOAD "ICROPROGRAM ·DI SABLE UPON ENTRV,. FILL 2NO
& 3RO 256 wcs w.tBOs.o TO AOORo
.START OF MJCRO CODE .END OF MICROCODE
.GO EXECUTE MICROCODE ·ERROR HALT - 54· EXPECT£0 DATA
2026 1008 2028 42El 202A 43E2 202C 4AE3 2Q2E 1204
* 2441 ·-~-----~-------~----~-~---·
2442 · START OF MICROPROGRAM LISTING
2026
2443 2444
R·1-5-M-C-S--E-a-u----· ----------~--~---·
2027 2445 2029 2446
DC
.xl.2 1 1008· 00 SSFe RESET BITS 2.3 Al\D 13 OF VO REG
oc
x1.z·42e1· 01 TSNo MUST NOT BRANCH
2028 2447
DC
XL2 · 43E.2 · 02 TSNt tlUST NOT BRANCH
2020 2448
DC
XL 2 · 4AE 3 · 03 TSN· MUST NOT BRANCH
202F 2449
DC
XL 2 · 1 20 4 · 04 SSNe SET BIT 2 OF l'O REG ON
1FC9 CO 87 0216
2386 2387
s
LINK
eGCI TO NEXT ROUTINE
2030 4207 2032 5006
2031 2450 2033 2451
DC
XL2'4207 1
05 TSNo ~UST BRANCH
oc
XL.2 1 5006· 06 ERROA. HANG
2388
2034 1304
2035 2452
DC
XL.2' 1304 · 07 SSN· SET BIT 3 OF I'D REG ON
lFCD FlF640E3E205
lF02 2389 RT140P DC
C' 2036 430A
2037 2453
DC
XL2·430A·
08 TSNe ~UST BRANCH
2390
2038 !5009
2039 2454
DC
XL2 1 5009· 09 ERROR· HANG
* * 2391
2392
·--S-T-A-R-T--O-F--M-I-C-R-O-PR-O-.G-R-A-M-~L-I.S.T-I.N-G--·
c
203A 1008 203C 42E4
203e 2455 2030 2456
oc
XL2· 1oos · OA SSF1 ~ESET BITS 2.3 AND 13 OF l'O REG
DC
XL.2·42E4. oe TSN. MUST NOT BRANCH
lFD3 40E1
lFD;.s
22339934
*------------~----~-~*~-------
AUMCS EOU ·
1FD4 2395
DC
XL2 1 40E1· 00 TSNo MUS1 NOT BRANCH
I
J ()
203E 43E~
2040 5000
203F 2457
DC
2041 2458 A 15NCE Q(:
2459
XL2·43E!5·
Xt.21 5000 1
oc TSN. MUST NOT BRANCH OD HANG· ENO OF TEST
1FD5 41E2 1FD7 48E3 1F09 48E4
tFDe 4DES
lFOD 4EE6 lFDF 4408
1F06 2396 1F08 2397 !FDA 2398 lFOC 2399 1FDE 2400 1F£0 2401
DC
XL2··1E2· 01 TSNe "UST NOT BAANC~
DC
JCL.2 1 4SE3· 02 TSNo ~UST NO~ BRANCH
DC
XL2 1 48E4· 03 TSN· MVST t.IOT BRANCH
OC
XL2·40E5· 04 TSNe "UST NOT BRANCH
DC
>1..2·4EE6' OIS TSNo MUST NOT BRANCH
DC
XL2·4408· 06 TSNe NUST BRANCH
lI 0
I
,
I ()
2042 18 2043 00
24$9
22446610 ** *R*OU*~*I*NE**1*8e**BA*L**OP****··················**····..···························*
2042 22446623 R··T·1·8····P·C··**X*L*1·** 181 ***···············~·O·U·T··I·N·E··N·U··M·B·E·R·····················
20 43 2464
DC
>CL 1 c 0 0 ·
NO MANUAL 11\TEAVEN1' I ON
lf'E1 5007 lFE3 5008
tFE2 2Q.02
DC
lFE4 2403 R1-.ce oc
2(04
240·
lld..2 1 5007· xL2·sooa·
07 ERROR· HANG oe HANG. TEST COMPLETE
I·
I () I
2044 2152
2046 CO 87 021 A
204A 01
* 2045 2465 2466 2467
204A 2468
DC
ALZ CRTS 9)
e
PRINT
DC
XLl'Ol·
AOORESS OF Nl!!XT QOU1"1NE
PRINT ROUTINE HEADING
·! C: 2405 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . *··~······
2406 ·
ROUTINE 17 - SSF/SSN MICRO INSTRUCTION TESTS
2046 27 204C ~018
2048 2469 20·0 a47o
oc
IL l ·39·
oc
Al..2(R34HDR)
2407 ·······································································.
204E C(> 87 2079
2471
e
flT34GO
IFE5 l? lFE6 00 IFE7 2042
2408 ·
·
2409 · 2410 ·
lHIS RCUTJNE TESTS THE BASIC SSF AND SSN MICRO tNST~UCTIONS BV MANIPULATING BITS 2· 3 ANO 13 OF THE 1~0 REGe OTHER SSF
··1j ('
2411 *
AND SSN INSTRUCTIONS WILL BE Tt!STEO LATER·
*I
2412 ·
·l (;
2413 ....................................................................... !
2414
lF£5 2~115 RT17 oc
JCL.lf17·
ROUTINE NUllll!ER
I c
1FE6 2416
DC
xt.l·OO·
NO MANUAL INTERVeNTION
I
lFE8 2417
DC
At.2(RTJ8)
ADDRESS OF NEXT ROUTINE
II
20$2 0906E4E340F1F t40 2078 2472 A34HDR DC
20!$A C2C10340U4C9CW9
2·72
2062 0640D6D740E3C£E2
24T2
206A E35E40F1D240C1C4
24?2
2072 C4D9C5E2E2C5Ei
2019 co e7 5918
2472 247.3 RTl4GO B
2070 91
2070 2474
DC
20?E 20A$
201'F 2475
oc
toao 201!5
2081 2476
DC
2082 co 87 5918
2477
s
Cl.39 1 AOUT lS BAL NICRC OP TEST; 1K AOOAESSES·
LOAOCS Xl.1 1 91 1
.AUC~34M($)
AL.2CR34MCE)
LOAOCS
GD LOAD MICROCODE IN 1$T F$Do
STAl'cTlNG AOCRESS
ENC ADDRESS 60 LOAD MICROCODE IN 2NO Fso.
1FE9 C2 Ol lFFS
IFEO CO 87 021A tFFI Ol lFF2 10
2418 1FF5 2419
2420 2421 a·22 lffl 2423 1FF2 242·
USING RUSKOleXAl
LA
rU6'<0l·XAl
e
flAlNT
DC
-.1·01·
DC
n.11 20·
INITIALIZE XRl FOR INDEXING PRINT ROUTINE HEADING
()
I
i C;:
2086 B2 2087 20E6 2089 20EF
2oee c;o 87 5918 ~08F . . 2090 20FO 2092 ZUB
2086 2478 2088 2679 208A 2480
2481 208F 2482 2091 2483 2093 %484
DC
XLl'IJI·
DC
A\- 2( R 34MC U
oc
AL2U~J4Mat)
B
... OAOCS
DC
XL~ ·a··
DC
ALICR!·MC3.
DC
Al..2C R34MC4)
ADDA OF 1ST ·ORO
ADDR OF LAST WORO·
GO LOAD MICRDCQOE ~ESSES 200·2,,,..
1FF3 2025
lFFS CO 87 &919
JFF9 83
IFF· 2·25
DC
2·26
2·21' Aae«oa a
lff9 a·2e
DC
DATE
EC ND.
25CCT?S 82!032
UUAN76 Q50M
llLZCAT180P)
2!09· co 87 5918
2485
eGO LOAD ·ICROPAOGAAM
c 2098 A8 2099 auc
· .DISAS..£ UPON ElfntY· l"'!LL 2ND
2999 2151
PAOG ID
089 l -2:
DATE
OJ.JUl..75
PAGE
I l9 ~EC NO. 825023
2098 2486 t.09A 2487 209C 2488
25tCT1'S 82503t..
e
LQAOCS
DC
XLP A81
()C
A.2CR3"'4(!5)
oc
AL·CA34NC6 I
60 LOAD MICROCODE ACORESSES 300-3FF
PffOG 10
PAGE
l
I
1·
!e
··I
I
· ·
·
IBM MAINTENANCE DIAGNCST IC PROGRAM
PART fllO,
PAGE
8912
OISPLAV ADAPT IR TEST
ERR ~oc OB~ECT CODE
2:090 CO 87 54FE i!OAl 34 20A2 521 S 20A4 CO 87 0216
20A8 7101 20AA 0003 :Ztl#t.C 5002 ;,;rnM: 615F 2('tl0 9C06 2lHl~~ 5005 :;?:08'~ bo08 2096 5001 ~OBIS 7606 205#!. B65F .2 OBC 9C. OC
2oee sooe
~oco :?.EA& t!OC2 DOM' 20C~ SOOE 20C6 Bl SE 2oce 90'.2 .?OCA SOU 2occ 7000 ,;:;t\CE ~OSE
zooo 9Cl6
2002 5Cl15 20D<I> O!.lO 2006 5017 2Goe a1oc 20011. 9Cl6 200C S01A 200E !B05F 2oeo 9CtE 20E2 5010 20E4 020F
20£6 CH.l2 !GE& 51 OA 20EA 2C5E 20EC CC:FO
20EE si:ae
20FO 5200 20F 2 5201 2QFt!> 52Co;e 20F6 5C!03 2~8 5:t:M 21H"A 520~ .?.OTC 5206 20FE 5201'' 2100 5208 "1:102 5?(!9 ~104 S20k <H 06 5208 2UU:I 520C
uoe. s200 2). oc 5201:'
210£ D311 2110 5210 2112 7313 2114 B35E
2116 9Et5 2118 5214 2UA 521$
ADDR STMT SOURCE STATEMENT
20At 20A3
2~S9
2490 2491 2492
8
DOMICR
t'C
>ll.. l ' 34 1
DC
XL2 1 5215 1
B
LINK
GO DO NJCROCOOE
ERROR HALT -34-
EXPECTED RE5ut.TS EX!T ROUTINE
2493 :!!<- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - · ·
2494 * ~TART OF NICROPROGRA~ LlS7!NG ·
* 2495 ·------------~--~---------~-·-->!>
20A8 2496 R34MCS EQU
20A9 2497
DC
20116 2498
DC
20AD 2499
DC
20AF 2500
DC
2061 2501
0(.
2003 2502
DC
20135 2503
oc
?.:Oa7 2504ll
DC
2069 2S05
oc
2088 2506
oc
2080 ZS07
DC
2oaF ;;:soa
oc
2.ICi 2509'
oc
20c;3 2510
oc
20C5 2511
oc
20C''f 2512
DC
20C9 2513
oc
2'.0CS 2514
DC
2oco 25 As
oc
20CF l5!.6
DC
2CDli. 251.?
nc
200:! 2s1 a
DC
2005 2519
oc
2007 2520
oc
20!>9 252l
oc
20DB 2522
oc
2000 2523
oc
200F 2!124
oc
20E1 2525
QC
20£3 2526
oc
20E5 252T R34114CE cc
Xt.2" i'Ull · XL2·DOO.:S= :r.t.2. 5002. x1..2·Bl5>"" · XL2·9C06' Xi..2·5005· XL2·1H.iOS· Xl.2· 50(17 · XL2" 1606" Xl..2·865f'. xi..z· 9Coc· XL2·5008· XL,.2 · 2EA :i · X!..2 · OO!iH" · XL2·50CE 0 XL.2· BHif'' x1..2e 90U!" :l:!'...2 ~soi 1
~{.i..._2°7000''
}1!_2·BOSE" X;J..2. 0 9CH:i )IL.2· 50'.:i 5 < IU· .!l:·DlC(I 1( L 2 ~ SO l "I' ~ ,
XL.2~fHOC'
Xl...2i;9C18 t
XL2"501 A· Xi-2·BOSF · XL2"9CU!: 0 XL2 10 50t0· XL.2'"CH!OF ®
003 004 00!:'.· 006
0.::11 U08
009
{)t}A
008
coc
000 i:IOE
()Ji t)
OU. 01.2. ~' l :;;. Otto.
J.5 iHIC OH
ca a
OF~
iH A CHS OH'.
o;,o ou:
aAt, TIO A!')OS!il'Z;>S 00!1
BOS ~o
ERfrCFt·;:·
Ci'.R Ot...31'0
\SOC·:::\ BOS· O
ER::<!O'l<l ,.
BAL TO ADDRESS DOB
!'!Ds.o
1 e: 6 .x· 06 · :r C~R 06t1
BOC,:;!·
BOS ~o
6AL TU ADDRESS ooF
aas.o
EAROA
C~R 01~ ,3E
e.o<: Q~
T 1::: Pf,Oi£l'1: n :t .~
3;~;:;§{il
E~~~Ot.! a,
~t {, Q'f, }11
00 .., ::~:;:·
·ro t~ODH
EIRRO?I ~
6A~ TD ADDRESS IDO
WS®O
c:l.R 01 .oc;
SC.IC.~ :3
eos ..o
ERR Of-<·
TO AOOR ·~) ~ 8 t:::RRORr HANG
CH>l 0¢hY°
e1t1c.,3
TO ADOR OlE
i!HlS ~o
ET-tRiOt<l4 t~ANC:i
BAL TO AOOR Z '· 0
20E6 2528 R311U4Cl EQU
20E7 2529
DC
201:9 2530
oc
20E.E'I 2531
DC
20EO 2532
DC
zoEF 2533 R34MC2 DC
20FO :i? 534 I"! 34#!C~ EQU
20Fl 2535
DC
20F'.'3 2536
oc
?Of"'S 2537
oc
20F7 2.538
oc
2~9 2.53'9
cc
lHlf=B 2 544.l
oc
ZOFO 12.541
DC
20f"F 2!542
oc
2101 2543
oc
2103 2544
oc
2105 2'545
DC
2HH 2546
DC
2101il 2S~7
oc
2H)B 2546
oc
2100 2549
DC
uor 2sso
DC
uu 255i
DC
2U3 .2552
oc
2U5 2553
DC
2117 2554
oc
2119 2555
DC:
2ue 2556 t:iJ,qMC4 DC
:!Ji
xt..2· [)! 02: ~ )(1.2 ·!;)101. x1..2· 2C!.'H!e
XL2~CCFO·
Xt.2"5018"
xi..2es2000
Xi..2·szo1 · XL.2°5202·
~zes20::;~
x11.,2eszo.11.·
'1a.2e 5205 · :JQ..;?Gf32Q6· )(1..2 · 52(.)i' e
~2os2ce~
Xl.2 · !S 20'9 · x1..2· S20A~ XL2·s.;;:oe ·
xt.t.:ts2oc~
XL2· 520f.'' xa,..2°5201!': · Xi-2 1031 l ~ xa.2~s210 · x&-28 7313" XL2·B35E e :ti..2°9EH;$ JU..2:" 52 ! 4.
xi..a·s:us·
BAL '\Hl j\\(ll.)f.i;E$S !O<it~
BOS· C
ERROR,, ttAHG
LR 1-i06 3E TO HDS OC
s;SF $ OC e X' FO @
sos.o
TO AOO~ESS o~e
200
"Ol 202
203
~04
~;as
i'i!Oc 207
20s 209
il:OJO
eot!
E:!OC 20!) 20E
20F 2i.O 2U 212 213 214
:ns
BOSoO
aos. Ci aas.a i!l(j S · o
sos~n
E!':lSef~
l'!c !) s · 0
BOS·O
BD5·D
BDSwO
eas.o aas. (l
SOS ~u l~QSglJ
ERROR~HANG
ERROR ,.HANG
ERROAtHANG
E f.l~O~ ·'"" ~i1!'4G
ERROf',d1lAN(l. ERR0~9HAl'<JG
e RROR 'H i!l;N(i;
ERRO~~H~NG
ERAOR·HANG EAROAeHA"G
ERROR·H~H~ ERROf.! ~HM~G
Er.l:RORt t\PIN<;; E~RQR ···KAN(i.
sas~o
ERROR~HANG
6A~ TO AODRE$S 3~1
ens~o
E~RDRtHANG
(S t<DS 03""13
CIR OJle 3E
aac:.3 To AllDR 215
BOSeO
EARORe HANG
aos.o EXPECTED RESULTS
4234255 20
IBM MAINTENANCE DIAGNCSTIC PROGRAM
PART NO· PAGE
8912
01 SPLAY ADAPTER TEST
ERR LOC OB.JECT CODE
c 2llC 5300 2UE 5301 2120 5302 2122 5303 2124 5304 2126 5305 2128 5306 212A 5307 2t 2C 5308 212E 5309 21 3Q 5;;1CA 2132. 53()8 213.t 530C 21 36 53C0 2138 530E 2ll 3A 530F ;H3c 53t0 2l3E 70 OF 21 $0 BOSF 2142 9fl5 2144 s:n ~2146 701:2' 21.it.a 905r 214A 9Fl, 2.14C S;!!H~ 2 JJ<.E i) e. 11 2}J, S!i.~ 53~
AODR STMT SO!..RCE STATEMENT
211C 2557 R~4MC5 EQU
2110 2558
DC
211F 2559
OC
2121 2560
oc
2123 2561
DC
2125 2562
oc
2127 2563
oc
2129 2564
DC
2128 2565
oc
2120 2566
DC
2L?F 2567
DC
2131 2568
()(
2133 2569
oc
2135 251 Q
DC
2137 ;;.::57~
DC
:U'.39 2572
oc
21'38 Z.57'3
oc
2!.!ID 2574
c;.;:::
213F 2.575
DC
2141 25"76
oc
Zl<!!.3 257~/
L'IC
2145 2576
oc
2'!47 25?9
DC
21"'9 2560
oc
.2146 258i
DC
,:n;;!.i 2ssz
oc
,::,14~ zsa3
rn::
!}'. ! 5J. 2501~
:"ttr.MC6
1}1 (
*Xl.2 6 !53001
X!..2" 53Q 1 1 XL2 1 5302· XL.2" 5303. XL2 8 5304 · XL2"5305· Xl.2. 5:306. XL2" 5307· xt_;a:e 5306" XL26530S'<' Xi..2 · s::H; ,f'>' XL 2· 530H" -XL2' 5:.'HiC'' AL.2· 5301). XL2"53oE·
>tL2"530F~
xt..2·53! '
XL2&70~P I~
XL2" 1l05F .ilij,.2·9!Pl5. ;cct.~~ 5314 · X-!..2· 7!Jl2.·
:2'90SF" .1'1,.?. · 9Fl 9' )ij_.2· 5:318. :l(L.2·o;u l1 X.7-2&S3!Jt!P
300 300 302 303 304 305
JC6 307
306 309 JOA 306 30C 300
30E 301F
~HO
,?11 3:>.t? 313 3\4
::ns
316
:n7
316 31".& ::li Jo,
BOSeO
eos.o eos.o
ERROR· HANG ERRORv HANG
ERROR· "4ANG
BOSeO
eos.o aos.o eos .. o
EAROf< · "'ANG ERROR,, HANG
ERROR· HANG
ERfliO~., HANG
eOSoO
EIOS .. o
aos .. o
aos ..o eos,,o
aos .. o sos .o
ERRORe
ERROi<,, ERROR·
ERP.OR., ERROR(,
ERR1JR., ERIRO!R ·
l-IANG
MANG HANG
I-ANG HANG
HANG HANG
ans,,o
6CiS ~o
aos .. o IC o.x·CF~
ERRCfl:,, e~P.O~ · ERROR t'
HAN<G MIM1ill(;
FJ.t~~,~(;,
CIR oo.3F 80C~3 TO ~OO~ESS 3~5
SQS,,O
ERROR· i!-!,~t'<l.;Ji
IC Q~)P1.2
CBI QQ.,::JE
SOC~ 3 "f Cl AOOl'!IESS :!'!Hl
aas.o
EARDA· H~HG
BAI.. i 0 0 $',!)DRESS :U 1
aos.o
ERROR. HANG
·
19
·
DATE
07..tUL.'fS
EC HO· 825023
PROG 10
PAiGE
0391-2 20
· · · · · · · · · · · · · · · ···
07JUL75
825023
25LCT7!5 82f032
· · · · · · · · · · · ·
·
·
·
·
·
· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·
IBN MAINTENANCE DIAGNCSTIC PROGRAM
8912
DI sPLAY ADAPT ER 'TEST
PART NO.
PAGE
4234255
IBM N~INTENANCE DIAGNCSTIC PROGRAM
21 \.
8912
DI SPLAY 4DAPTER 1EST
PAAT NOe PAGE
ERR LOC OB.IECT CODE
ADOR STMT SOlRCE STATEMENT
ERR LDC OBJECT COCE
AOOR STMT SOURCE STATEMENT
2152 19
* * 2586 ************~********************~~···················*****************
2587 ROUTINE 1~ CHECK FOR INTERFERENCE BETWEEN LE OP ANO LR OP.
2588 ~····················~·~·······$~·~···~******·$**************~·*·******
2152 25S9 RT19 OC
XL1'19·
ROUTINE NUMBER
210A 65A9 21DC 9029 21 DE 502A
21DB 2652
DC
2100 2653
DC
2 lDF 2654 R3AMCE DC
XL2 e 8SA9 · JCL2 1 9029· XL2 1 502A ·
028 029 OZA
CIR 35e09 BOC Oe3ELF BOS o.SELF
HOB 3S-53? ERROR· MANG IF NOT EXPECTED RESULTS
2153 00
21!-:~ 2590
DC
* 2154 22!28
2155 2592
DC
2592
2156 CO 87 021A
2593
B
21 5A 01
21 SA 2594
OC
2156 14
2158 2595
DC
215C 2175
2150 2596
DC
215E co 87 2176
2597
B
2162 0906E4E340F1F S46 2175 2598 R3AHOR OC
216A 4003C54006076 103
2598
XL.1·00· .tL2(RTIA)
NC ~ANUAL l~TERVENTIQN ADOR OF NEXT ROUTINE
PRINT
PRINT ROUTINE HEADING
XLl ·O 1 ·
11.l ·20s
Al.2(R3AH0R)
R3AGO
CL20"ROUT 19. LE OP/LR OP·
2172 09400607
2598
2176 co 87 59!8
2l 7A 83
2599 R3AGO 8
217A 2600
DC
LOAOCS XL1·83·
LOAD MICROCODE
f' ~.. .
2178 2170
21 7F
*-------------------------------· 2183
21SA 21DF
CO 87
3A
54FE
217C 2601
217E 2602
2603 2183 2604
DC
AL2-C R3ANCS)
DC
AL2CR3AMCE)
B
DOM JC~
DC
Xl..1 ·:SA·
START ADOR
ENO ADOR
00 MICROCODE
ERROR HALT
2184 502A 2186 CO 87 21EO
2185 2605 2606
DC
X!-2 1 S02A ·
B
RT3AP2
EXPECTED RESULTS Br.l TO PART 2
2607
* * 22660089 ·-~ST-A-R-T~-O-F--M-!-C-R-D-P-RO-G-R-A-~--L-I-S-T-IN--G-·
* aos.o 218A 7605
218C 771!5
'l 8E 7825
c ,U90 7935
2192 7002
2194 7100
----·-------------- 2196 7C22
2198 2506 ~19A 2527
( ~19C 2588
£ 19E 2!1A9 21 AO 066C
21 A2. es oc.
21A4 9000 21A6 5527
21A8 90ClF
· ~lAA eses
21AC 9011 21AE BSA9
* * 2180 9013
2182 0045 21a· eooc
· * 2186 9016
* 2188 7650
21BA 7751
218C 7852
· 21BE 7953
( 21CO 25A9
21C2 2588 21C4 2527
21C6 2506 21C8 OE45 .21CA 8EOC
( 21CC 9021
21CE 8506 2100 9023
oc 21 8527
2104 9025 2106 8588 £1De 9027
218A
2610 2611
·-~---~----~---------~------· A.'!AMCS EQU
2186 2612
2180 2613
oc
)l;l..2 1 7605= 000 !C 06 .. x·os·
DC
Xt...2 1 7715'
001
IC 07.X·!S·
218F 2614
DC
XL2 1 7825' 002 Ic oa.x·2s·
2191 2615
OC
XL2"7935'. 003
IC 09eX 1 35 1
2193 2616 2195 2617
DC
XL2·7002' 004 tc oo.x·o2·
DC
XL2 9 7100 1 005 IC 01.x·oo·
2197 2618 2199 2619
DC
XL2"7C22'
006
1c oc~x·22·
DC
XL2 9 2506'
OC7 LR 05.06
2198 2620
OC
XL2·2527· 008 LR 15,07
2190 2621
DC
)il_2 ·2see · 009
21'.ilF 2622
DC
XL2"25A9' 00.A l..R 35.09
21.Al 2623
21A.3 2624 21A5 2625
DC
'°'-2·058C 4
OOB LE 25 .. oc
oc
XL.2°8506. ooc CIR 05,06
DC
XLZ·9ooo·
000 eoc o.sa.F
21A7 2626
DC
Xl..2 1 8527"
OOE
CIR 15,07
2149 2627
DC
XL2°900F· OOF eoc o. set.~=
21AB 2628
DC
xL2·esea·
01 Q Cio:l 25t08
21AD 2629 21AF 2630 2181 2631 2183 2632 2185 2633
2187 2634
DC
XL.2°9011°
011
BOC OoSELF
OC
XL2 1 B5A9 1 012 ClR 35.09
oc
xt..2·9013' 013 BOC 0 , se:u=
oc
"2...2 8 0045·
014
LE 00 · .25
DC
XL2·BOOC· 01!5 CIR OO·OC
OC
XL2"9016" 016 Boe o, SELF
2189 2635 2186 2636
21BD 2637
2HIF .?&:ie
DC
XL2 1 7650·
01.7
IC o~.x·so·
DC
XL2 1 7751 1 018 IC 07 .x· 51 ·
DC
oc
Xl..2'7852· 019 IC oa. X· 52· xl.2. 7953. 01 A tc o9.x·s3·
21C1 2639
21c3 2640
DC
XL2 1 25A9·
018 LR 35e09
oc
xt...2·2ssa· 01C LR .25,08
21C5 2641
DC
XL2 1 2527 1
010 LR 15t07
21C7 2642 .ilC9 2643
DC
Xl.2°2506' OlE 1..R 05,06
DC
XL2 1 0E45 1
OlF LE ae. 2s
21ce 2644 21CD 2645
oc
XL2"BEoc·
020 CIR OE,OC
OC
XL..2·9021" 021 BOC OoSELF
21CF 2646 2101 2647 2103 2648
DC
XL2"B506' 022 CIR 05,06
DC
XL2· 9023· 023 eoc o.seu:
oc
XL.2 1 8527·
024 CIA 15,07
2105 2649
2107 2660 2109 2~5l
DC
Al.2'9025· 025 eoc o.saF
oc
lCL.2 1 8588·
026
CIR 25.08
DC
XL2'9027· 027 BOC 01SELF
.......... ·
MBAR ::-C.2XX
MElAR =0200
~DS OC SET TO 22
HOB 05 SET TO 05
1-'DB 15 SET TO 15
HOS 25 SET TO 25
HOB 35 SET TO 35
WRITE MSG BFR FROM OC
HOB 05 STiLL=OS
ERROR o HANG JF NOT
HOB lf5 STILL=<lS?
ERROR, HANG IF NOT
HOB 25 STILL=.25?
E;AROR, HANG IF NO"i'
HOB 35 STILL=~5?
EAW~R, HANG IF NOT
READ MSG BFR TO OD
MB (ACOR 0200!e22? ERROR. HANG JF NOT
HOB 06 SET TO 50
t-<OB 07 SET TO 51
HOB 08 SET TO 52 HOB 09 ScT TO '53
., :;
HOB .35 SET TO 53
'
HOB 25 seT TO 52
HOB 15 SET TO 51
1-108 05 SET TO 50
RO MSG BFR TO H06 OE
MSG 6FR STILL 22?
ERROR. HANG !F NOT
t-108 05.. 50?
ERROR. HANG IF NOT
HOB 1~=IH1
ERROR. HANG IF NOT
HOB 25=521
ERROR. HANG IF NOT
21Eo F3 sa so 21E3 31 46 0056 23E7 F3 58 CO 21EA 31 48 0059 21EE CO 87 5918 21F2 83
21F :3 2202 21 F5 2227
21F7 CO' 87 54FE 2lFB 3C
21FC 5012 21FE CO 87 0216
2655
2656
BfGIN PART 2 OF ROUTINE
2657 RT3AP2 s1a x·ao·.s101
2658
U 0 Jt:AA55 .HOBO
2659
s10
x·co·~stoz
2660
LlC XFFFFeHOEO
2661
8
LOADCS
21F2 2662
DC
XL 1 '83·
21F4 2663
DC
At..2 (R3.AMC1 !
21F6 2664
DC
AL.2(R3AMC2)
2665
8
COMICR
21FB 2666 21FO 2667
DC
XL.l '3C·
oc
XL.2 1 5012 1
2668
S
LINK
2669
DI SASLE RE SET LIO TO HOe 00,01 ANO ENASLE ATTACHMENT LIO TO HOB 101'11 AND LOAD ~JCROCCDE
20.121 30.131·
GO 00 MICROPROGRAM ERROR HAL. T 3C EXPECTED RESUL~S
2202 EOAA ~~04 9C03 2206 5002 2208 Ei55
220A 9C06
.C20C !SOOS 220E 8040
221 0 9C09 2212 5006 2214 B141 2216 9COC 2218 5008 221.A 8070
.C:21C: 9COF 221 E SOOE 2220 BJ 71 2222 9C12 2224 5011 2226 5012
* 22667710
START OF MICROPRQGAAM LISTING ·
2672 *-~--------------~-------~---·
2202 2673 R3·MC1 EQU ·
2203 2674
2205 :'675 2207 2676 2209 2677
2206 2678 2200 2679
IX
XL2·EOAA· 000 CI oo.x·AA·
DC
XL2'9C03 1
001 soc · .: TO AOR 0031 BA IF EQUAL
DC
XL2·5002· 002 eos.o ERROR HANG
DC
XL2"El55·
003 Cl 01 ..x·ss·
DC
XL2 1 9C06· 004 soc.~ TO AOR 006~ BA 1F ECuA~
DC
XL2 1 500S· 005
ERROR. HANG
220F 2680
OC
XL2 1 8040·
006 CIR 00 ·20
2211 2681 2213 2682
DC
XL2 1 9C09·
001' BOC· 3 TO AOR 009. BR IF EQ\IA\.
oc
XL2'500B· 008 aos.o ERROR. HA~G
2215 2663
2217 2684 2219 2585 2218 2686 2210 2687
DC
XL2 1 Bl4P
009 CIR 01121
D~
~L2·9COC·
OOA BOCs? TO AO~ OOCe SR JF EOuAL
DC
.l<L2'5L08' ooa eas,o ERROR. HANG
DC
XL2·B070·
OOC CIA 10·30
DC
XL2"9COF·
000 90Ce:!I TO AO~ OOF. SR IF EQUAi..
Z21F 2688
DC
XL.2· SOOE ·
OOE BOS ·0 ERROR. HANG
2221 2689
OC
XL2 1 B171 1 OOF CIR 11.31
2223 2690 2225 2691
DC
XL2·9C12·
010 aac.3 Tr AO~ 01~. BR IF EQUAL
DC
XL.2°5011~ 011 eos.o ERROR. HANG
22l7 2692. R3A.\~Cl DC
XL2.·so12·
012 sos.o ExPECl'ED RESIA.TS
2693 ·····*****········~········**·****~**·$·********·····******·**·········
2694 l!I f;.OUT JNE l A· AOOR ESS ING ABOVE 11<
"'
2695 ,..
·
2696 $ PZRT 1· IF THE 2NO 2K FET STORAGE CAAD IS PRESE,..T.,
·
2697
l·U CRQCODE IS LOADED INTO IT· ADORE SS 000
o
2698 ·
8ALS TO ITe
2699 ·
·
2700
PAR1 2· lF THE 3RO 2K FET STORAGE CARO IS PRESENTe
·
2101 "'
MICROCODE JS LOADED INTO IT AND ADORESS 000
2702 ·
SAL'S TO IT.
·
2703 ·
·
2226 lA 2229 00
2228
2704 2705
···¥***********~*******************~···**···********·····-~··~·******·*
RTV. DC
XJ..1·1A·
~OU1'1NE NUfllSff<
az29 2706
oc
XL1·00·
222A 22Fl 222C CO 67 021 A 2230 01
2226 2707 270(!,
22jO 2709
DC
AL2(RT113)
a
AA lN'f'
OC
XLl·Ot·
AOOR OF NEXT ~OUT INE PRINT ROUTINE HEADER
2231 ls
2232 2252
2234 co 87 225l
2231 2?10 2233 2711
2712
DC
IL1'27·
DC
AL2(R40H0R}
6
R40GO
2238 D906E4E34Qf1CJ40 2252 .2713 f<'4(l1~D~l DC
2240 r:tC4C404',;C5E2E ZC9
2713
Q..27·~0UT lA AO'bAESSJNG ABOVE 11«
2248 D5C740C1C206E fCS
2713
2250 40FI 02
2713
2253 CO 87 59UI 2257 9F 2258 2270
i:!? 14 R4 C'JGO 6
2257 2715
DC
2259 2716
oc
L.OADCS X1..1*9F· AL.2(R40NCS)
tN lST FE1 STORAGE g FILL WITH
BOS-TO-ADORE SS
DATE
07.IUL 75
1i·"·· EC NO· 825023
2SCCT'15 82 to~2
ls.MN'l6 825034
PAOG 10 PAGE
0891-21 21 I
I
I
DATE
07.IUL 75
EC NO· 825023
Ull.JAN76 825034
PROG ID PAGE
I
!·
:I e
IBM MAINTENANCE DIAGN CST IC PROGRAtt
8912
01 SPLAY ADAPTER 1EST
PART NO.
PAGE
4234255
! 22
IBM MAINTENANCE DIAGNCSTlC PROGRAM
8912
DISPLAY AOAPTEA TEST
PART NO. PAGE
42342!5! 22A
ERR LOC 08.JECT CODE
ADDR STMT SQ\JiCE STATEMENT
ERR LOC OBJECT CODE
ADDR STMT SOURCE STATEMENT
225A 2U!A
225C CO 87 5918
2260 EF
2261 2288 2263 2296 2265 20 2 266 3C FF 5564 226A CO 87 54FE 2.26E 60 226F 5005 2271 38 02 OAOC
2275 co 90 0216 2.279 co 87 22;7
2270 0400 227F 0001 22131 0002 2283 0003 2285 0004 2287 0005 2289 1)006
2286
~280 ~28F
2291 C'.293
2Z95
77FF 77,.,E 5004 5003 "1'7FD
SOOS
2.297 22 96
229c. 229E
co 87
9F
22c:s 2202
591f.i,
22A0 CO 8i' 59!6 22A4 FF 22AS 2203
22A7 22E2 22A9 20 22A.A CO 87 5918 22AE FF 22AF 22E3 22131 22FO ~263 40 2 264 3C FF 5564 2268 CO 87 5~FE 22BC 61
22eo sooe.
22BF CO S? Oi!16
2258 2717
DC
i1L2 CA40111CE I
2718
2719 2260 2720 2262 2721 2264 2722
8
LOADCS
DC
XL.1 · EF·
oC
Ai..2(A40MC1)
DC
lli..2(A40MC2i
GO LOAD MICROCODE IN 2ill0 FET
STORAGE ANO FILL W!TH eos-T o-ADDREss
2265 2723
DC
x1.1 ·20·
2724 2725 221SE 2726 2270 2727 2 72 8 2729
2730
MVI
B
DC DC
TB N BF
6
t..PCNTeX'FF' OOMICR >U..!960@ XL.2·5005· UOT2 cX c 0 2 · LINK A40PT2
EXTEND LOOP COUNT BR TO DO MICROCODE
ERROR HALT 60
EXPECTED RESULTS
TEST FOR 3RC FET INSTALLED EXIT IF NOT
* 22773312 ·*-S~T-A-~-T~-O-F--~~JC-R-O-?-R-O-G-R-~-M-L-I-S-T-I-N-G-·
2733 ·--------------------·~-------""*
2270 2734 R4CllOIC S EQY ·
227E 2735
OC
2280 2736
DC
2282 2737
oc
2284 2738
DC
2286 2739
DC
2288 2740
DC
228A ~741 F!40MCE DC
22SB 2742 R40MC 1 El}U
XL2"D400e XL2·D00t · JltL2i0002· Xl...2 1 0003 1 XL2·0004' xa..2·0005 m
X~2"0006' >I:
001 002 003! 004 005 006
TO AODRi:: SS 0400 .. ERRON,, HANG ERROR., HANG El'!RQR e HANG
ERRORv HANG
ERROR· HANG ERROR,. HA.NG
.228C
22SE 2290 2292 2294
2296
2743
274· 2745 27""'&
27~7
2748 2749
OC.
DC
oc
oc DC
R40MC2 OC
* eEGIN PART
Xi...2277FF·
XL2"77FE$ ~2· 5004· xi..2·soo3·
XL2.·77rD~
);1.. 2m SOOS 0, !WO
~00
401 402
<. 05
!C ~ 7=FF
H~o "/';o;!~E
i.:>OS .o
BOS.O
iC~7~~D
eos g {)
li.C HOB 1'""-Ff' IC HOS 7 ..f"E
TO J!l,OOR 404
ERROR· HA~G f.C HOS 7:F~ f.XPEC'!~J) Rf:: 511.tl.'1'5,
2750 R40PT2 B
22913 2752
oc
Z290 .2752
DC
229F 2753
0C
i..OADCS
J(i.,),·91"~ ~L~(R40MC3)
M..2(R40MC4t
GO LOAO llHCl"lCCOOE !N :i,ST
FET S70RAGE ANO FELL WlTH
605-TO-AODRESS
2754 2755
22A4 2756 22A6 2757 22A8 2758 22A9 2759
2760 22AE 2761
22BO 2762 2282 2763 2283 2764
2765
2766 22SC 2767 22BE 2768
2769
2·no
a
DC
DC DC
DC
a
DC
oc
DC
DC
llAVJ
B
DC DC
0
XL.1 e FF·
Al..2lR40MC!H
Ai..IHR~ONC<!U
XL.1'20 1
1...0AOCS
Xl..l'FF·
~l...~CR40MC1') Ai..2(AltOMCe~
r.1..t·too·
LPCNT.Xtf"F· COM I CR
ICLtetH~
xi..2~soot1t
UNtt.:
GO LOAD MI CRQCOOE ! f~ 2NO FET STORAGE ANO FILL WITH BOS T 0 ADDRESS
GO LOAD NICROCOOE IN 3RD
FET STORAGE AND FH..!., ~l TH
BOS i·o AOORess
EXTEND LOCP COUN~ BR TO DO NJCROCQO~
IHlAOR HAL.-· 61
EXPECTED ~ESlLTS
2203 4COO 2205 4C01 2207 4C02
~209 4<:03 2208 4«:04 2200 4C05 22DF 4C06
22E1 4C07
('
22E3 7600 22ES 5003 22E7 50¢2
22E9 1610 22EB 0806 22ED 5005 22EF 5006
2204 2785
DC
2206 2786
DC
2208 2787.
DC
22DA 2788
DC
220C 2789
oc
22DE 2790
oc
:?2E0 2791
DC
22E2 2792 R40MC6 DC
2793
22E3 2794 R40MC7 EQU
22E4 2795
cc
22E6 2796
DC
22E8 2797
DC.
22EA 27'98
DC
22EC 2799·
DC
22EE 2600
DC
2ZFO 280 1 fU+O~ca DC
2802
)Q..2 · 4COO · XL2·4C01 · XL2·4C02· XL.2 1 4C03 1 XL2·4C04· XL.2 1 4C05 I XL.2·4C06 · xt..2' 4C07'
*
XL2· 7600·
XL2·soo~·
XL2·5002 t xt..2"1610. XL2·0806· Xl.2 8 5005·
400 401 402 403
404 405 406 407
TSN1C
TSN·C
TSNtC
TSN·C
T~NtC
TSN,C
TSN.C
eos.c
ERROf:t. HANG
ERAORt HANG ERRORo H,ll,NG ERRORe HANG ERftORe HANG ERROR· HANG ERROR, HANG
ERRORe HAM.i
800 801 802 803 804 805 806
IC 6""00
eas.o
BOS90
I NC oE
BAL.
aos.o sos.o
IC HOS 6"'00 TO ADOR 803 ERROR., MANG INCREMENT HOB 6 TO AODR ISQ6
ERROlh MAhG
ExPECTEO ~Esut..:rs
2803 **~***~*****"'***'**""'***"'*****"'"'******·**********"'*'**ljl*"'"'*t!r~!!'~:\t>'j?$,~u;;$$1'l!~lt.$
* .aso~
ROUT !NE .i.s~ OOANCH REGISTER To ALL ADDRESSES Wf TH SAi.. aACf\'t.:-'"tO 000
II/I
* · 2805
* 2806 THIS ROUTlNE LOADS ALL OF CONTROL STORAGE ~!TH MICRO-OP 'DOoo·
$
* 2807
tili!CH IS ft. BAL TO ADDRESS 000..
""
* 2806 * 2!:>09
lHE FIRST 26 WOROS ARE TMEN OVERLJ!lyEO 11tITH A MICROPROGRAlile
*
2810 ~ THRS MICRO-P~OGRAM OOES A BRANCH REGISTEA TO EACH ADD~ESS lH
* 2611
CONTROL STORE~ AFTER 'Y-HE BAL RETW'!N? T~IE L!N!( la>iF'.!JRllllATlON
22Fl 18 22F2 00 2:2F3 2480
* 2612 ~' !N Hoa~ s 3E AND ~'1F !S CHECIH:::o..
2813
28:,\" 2!H 5 2816
* !HE A.OD·:.:i::.ss OF THE I" uzs1·
** BY t ! 0 Tll H!)B 0 S 16~17
liiORO
TO
\i::;f
~ANOiED
l'::Ji
is
PRQ'/~OEO
* 281.7 * 2818
* 2819
A FLAG fl'l''fE MUST BE PRO\l'lOEO av LlO Tf,l: HOS 1>9~ SI 6= l !F THIRD FET INSTALLED~
ax·r 'I'=· 1 IF Sl:':CONO FE1' lti.STAU.ED.
28~0 $
'****-----
2821 >ltll)I$*"'·****·**1%'~*·····******'*** 111"'*****"''*'*****·~***l1il*"'"'~*'**"':l)I$$$*$"'"''*""*'°*
2622 RTl!il
CC
~(l..1"lJ.B·
RO\.:l°t!f>lE NI.WISER
2623
OC
){Cl ·OO·
2a24'
oc
tit. ;:::on1<!>
282$
22F5 cO 87 02.J.A
2826
B
Z2F9 Ol 22FA 25 22FB 2325
22F9 2827 22FA 2828 22FC ?.829
oc
DC
u ..i e :i?·
DC
AL.?.( R41o;OR)
22FD CO 87 2326
2630
6
2301 0906E4E340F1C&40 2325 2831 R41HOR OC
2309 C20940Cl05C44CC2
2831
2~11 C1D34006D7EZ5E40
283l
RT41GQ Cl.3711 ROIH 1 B BR ANO SM.. OPS: ALL AOCRf:SSes~
2Sl9 C1030340CtC4C ol09
2831,
2321 C5E2E2C5E2
(:
oa 2Ji.a6 oc
2~s.t. ~o f2.
23.i:!C F3 5~ SO
2831
2832 1<:·r41 GO MVC
2833
SI Cl
Rt>l C,"( R (2 h l ERO
x· ao~ · :Sll O!
ZERO OUT COUNTER
!DllSA64..E RE5eT
a2c3 O&CO
22cs 0001 2:2C:7 0002
22C9 0003 22CB 0004
22co ooos
22CF 0006 2201 DOD?
?Att
OTJUL1'5
EC NO. 82!5023
~?71
2772 :$ s:fART OF 1:1.ttAfJPROGRili/!I! Ll$1 rnG Ill
2773 $··~-----··-·*-----··------·~·-··-~-;1;
220 2774 R4G~C3 EQU
~
22C4 2'175
oc
xi..2· Daoo · IHHl
2&:6 2776
DC
Xl...2·0001:
1
Z2C6 27'77
DC
)11. 2~ DC!!J2 t
22CI. 2778
oc Xt.atooo::;·
2.2CC 2779
DC
>ll.2~00()4 1
22CE 2780
DC
x1..2~ooose
2200 2781
DC
2202 2782 R4Qiill!C<l DC
XL250006·
lill..2 1 0007 *
6 EIAL 7 SAL
2783
2203 2784 R4U14C5 EQU
25 CCTl'S 82£032
TO AOM 800 ERROR~ il"!lil\!G ERwo~ .. N~>NG Eli'HIOR~ t-IANG ERROR,, HANG
ER~OR. HANG ERROR~ HANG
J;Rl:U'.lth HANG
PROG ID PAGE
/C
c
2321!" F::l SB CO :c:~;3z l l se 240C 2336 O~ 01 248A 5ACB 233C 00 01 2484 20 CO
2342 co 01 :>:332
23'"4>6 CG ~i" 591 B
2344 80
2348 23E6
2340 2423
c
ti.'34F F3 se co 2352 :;u 48 2425
2356 OC 01 24.2? OD t2
i35C 311. 01 2421'
C·
~360 '.38 02 OAOC
'· ZJl64 CO 90 236C
oa91-2'1 . OA'rE
07..!llJL ?5
25CCT75
22 I ) . !iEC NO· 82$023
82~32
:.I·
2834
SIC!
2835 R41L.CS L.l O
2636
Al..C
2837
CLC
2838
BNE
2S39
B
2840
2841
oc
~64.a
DC
284.3
SlCJ
2844 2845
LIO
~vc
2846
SBN
264? R41FET ;BN
2848
SF
)!·Co~"' S!Ot
XOOOO eC"rSTOR f1141CTR( 2, ~WUN A41 C'f~H;.? ~ ~ XOCOO
R41LC:S !..OADCS XL1 $l~O~
At..2( R4J, MC S)
M..2Ht41MCE}
x· CO· oSICX
R4lFR!i.HOBl R41FI..,. G~ 2} ·ZERO
R4iFLGeXC0J.·
1.0T2.x·o~·
P41LDF
ENAS~E ATTA(HNEhT
LID TO en.. STOR
IMC COUNTER COWllTER TO ENO OF CTL ST?
LOOP BACK IF NOT$
GO LOAD MJ;Ci:!CK:ooic OON° T F U..L ll!lf.1'~1
sos-n:i-Aool'l
ElloiA.BLE t1 TTAQ>JM ENT FIRST AODR 70 ~1Dr:l~S lfh17 ZERO OUT Fl.AGS SET 2NO FET Fl..AGe
IS 3RO FE.T !NSTALLeD?
BR IF NOT ..
PROG lD PAGE
le
eiI ·e
.
.·---- ~~-·
-·
·-
·
·-·.
·
·
·
·
·
·
·
~
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
l
IBM MAINTENANCE DIAGNCSTIC PROGRAM
8912
01 SPLAY ADAPTER 1EST
PART NO. PAGE
42-.4255
IBM lilAINTENANCE DIAGNCST JC PROGRAM
23 ·,
8912
DI SPLAY ADAPT ER TEST
PART NO. PAGE
ERR LOC: OBJECT CODE
ADDR STMT SO~CE STATEMENT
ERR LOC OBJECT CODE
AODR STMT SOURCE STATEMENT
2368 3A 02 242 7
2.36C 311 4C 2427 2370 34 01 5540 2 374 3C FF 5564 2378 CO 87 54FE 237C 5C
2370 5017
237F 00 01 5FE6 23 7E
2385 co 81 0216
2389 30 4S 2486 23eo F3 se eo
239C 30 4B 2:688
2394 CO 8'? 021 E
2398 02
2399 24l'6
2396 2443
2390 oc 03 2464 24 ~
23A3 CO 87 021 E
23A7 02
23A8 2488
2.3AA 2472
23AC CO 87 021A
2380 62
2.lel 39
2382 2460
2384 CO 87 021 A
2388 82
2389 12
23BA 2472
23BC CO 87 021A
23CO 82
23C1 12
23C2 2484
oc 23(:4
03 f>601 2412.
23CA OC 03 65FO 24 14
23DO 3C SC f>5F2
2304 3C 1B 65Fl
2308 CO 87 63F£
230C CO 87 0222
23EO 145C
23E2 CO 87 0216
23E6 2819
23E6 265E 23EA 275F
23EC C6FO
23EE F880
23FO 9018 23F2 8616
23F4 9007 23F6 8717 23F8 9009
23FA 501C
2~FC 9018 23FE 1630
2600 E903 2402 9011
2404 F801 2406 9017
2408 E90?
240A 9015
2·oc F&o2
240E 4il017
2410 E908
DATE
07.JUL?ti
EC NO. 825023·
2849
SBh
~1FLG.x·o2·
2850 R41LDF LI 0 R41Fi.GPHDB4
2851
SBN EHBP.x·o1·
2852
MY! LPCNTeX·FF·
2853
8
OOMlCR
237C 2854
DC
Xf..1 ·SC·
237E 2855 R41EX1 OC
XL2·5017 1
2856
a..c STATAC(2hR4:Ex1
2857
BE
Ll!NK
2858 * PREPARATION OF ERROR PRINTOUT
SET 3RO FET FLAG.
LIO FLAGS TC HDB 1 S 18019 SET ERROR·-HAL T-BYPASS CN INCREASE MICRO DELAY GU EXECUTE MICROPROGRAM
ERROR HALT 50 EXPECTED RESULTS
TE ST FDR ERROR EXIT ROUTINE IF EQUAL
2412 9018
2414 5017
24!6 6880
2418 29?.8
241 A J637
241C 5018
(
241E 2916
2420 1730 2422 5008
2413 291 7
DC
2415 2'il18
DC
2417 2919
DC
2419 2920
DC
2418 2921
DC
2410 292..2
DC
241F 2923
DC
Z421 2924
DC
2423 2925 R41MCE DC
2926
XL.2 1 9018 1 Xl.2·5017' XL2"6880 1 XLZ· 2928 1 XL2' 3637 1 XL2 · 50113 1 XL2"2916' XL2 1 1730 1 xt..2 · 5000·
016 017 018 019 OlA 016 OlC Oto OlE
BOC 1 0
eos.o
sBN a,x·aor
LR 19008
BR 16 0 17
eos~o
LR o~.16
JNCo17
eos.o
BR TO ACOR 018 IF NOT HANG. EXPECTfD RESULTS SET FlRST-COMP FLAG MOVE COR~ECTEO FLG TO 19 BR-REG FROM HOB 16·17 ERRORe HANG
MOVE AOC~-Hl To ~OB 9 INC BRANCH AOOR-LO
TO ADDR 008
2859 2860
2861 2862
2398 2B63
SNS SIC
SNS
8 DC
R41EXLcHDB3 x·ao·cSIOl R41ACLeH083 UNPACK XLl·02·
F~ATCH EXPECTED LINK JllFO DISAE!LE ATTACHMENT
FETCH ACTUAL LINK INFO UNPACK
EXPECTED
2927
2424 OOlF
2425 2928 R41FRS DC
2426 0000
2427 2929 R41FLG DC
24~8 C209ClD5C3C84 (09 2·443 2930 R41EM1 OC
2430 C5C7C9E2E3C5DS40
2930
XL2·001F 1
FIRST ADDRESS
Xl..2 1 0000 1
FLAGS
CL28·SRANC~ REGISTER 1'0 AOOR xxxx·
239A 2864
DC
Al.2(R4lEXLt
LINK INFO AND
2438 E30640Cl C4C40S40
2930
239C 2865
DC
AL2 (R41 EMlJ
MOVE INTO OUTPUT
2440 E7E7E7E7
2930
2866 2867
MVC B
R41EM4(4) eR4lEll!!!
UNPACK
MESSAGE. USED TWICE. UNPACK
2444 40C105C440C2C103 2460 2931 R41El42 OC
244C 4oc2c1c30240£ a>6
2931
0..29· AND eAL BACK TO ADDRESS 0000 1
23A7 2868
DC
Xl..1 1 02 8
ACTUAL
2454 40C1C4C409C5Ec2
2931
23A9 2869
0C
AL2(R41ACL!
LINK INFO INTO
24SC 40FOFOFOFO
2931
23AB 2870 2a71
DC
Al.2 CR41 EM3)
B
PAINT
ERROR MESSAGE. SR TO PRINT EMl ANO EM2
(
2461 03C9050240C90 EC6 2472 293.2 R41EM3 OC
CL18·LJNK INFO WAS XXXX·
2469 0640E6ClE240EiE7
2932
2380 2872
DC
lQ..1·82 9
2471 E7E7
2q32
2381 2873 2303 2874
DC
ILl857·
OC
AL2(R41EM2)
2473 03C9050240C9D S:6 2484 2933 R41EM4 OC
2476 0640E261C240EiE7
2933
CL18"LINK INFO S/B xxxx·
2875
B
PRINT
BR TO PAI NT
2483 E7E7
2933
2388 2876 2389 2877 2388 2878
2879
23CO 2880
23CI 2881
23C3 2882
DC
XL1 9 821
DC
IL1·1a·
DC
AL2(A41EM3)
B
PRINT
DC
X1... a·e2·
DC
IL1"1S·
DC
AL2(R41EM4)
·LINK INFO WAS XXXX 0
BR TO PRINT
·LINK INFO S/B xxxx·
2485 0000 2487 0000 2489 0000
2486 0000
2486 2934 R41EXL DC 2488 2935 ~lACL OC 248A 2936 R41CTR DC 248C 2937 XOOOO DC
2938
2939
XL.2· 0000· x._2·0000.
Xl.2· 0000 1 x._2·0000·
EXPECTED Ll~K INFO ACTUAL LINK INFO
ROUT I NE 41 COUNT ER CONSTANT
2883 2884
MVC.
MVC
ER~OG(4)1R41EM3 ERRLOG-4 (4) eR41 EM4
2940 2941
***R*O**U*T*IN*E**1*C**E*X*P*A*N*D*E'*D**H*O*B**A*O*O*R*e*s*s*r~*G***(1*0*·*T*O**3*F*)**U*S*IN**G**C*IR**o*P*~***********~
2885 2886
MVI ERRHt.. Tex ·!;le.
114Vl ERRRTNeX · 1e·
2887
B
El.PO
23E1
2888
B
HALT
2889
oc
XL2·14-f5Co
2890
a
LINK
* 2891.·------------~--------~-------·
2892 · START OF MICROPROGRAM LISTING
BR TO HA"-T EXIT ROJrtNE·
23E6
2893 2894
A.4.!,-M~C-S--eo~u----·~---~-~---------·
23E7 Z895 23E9 2896 23EB 2897
OC
XL2*2819·
000 LR 080 19 fltOVE FLAG TO HCS 08
OC
XL.2 1 26-5E ·
001 LR 0~.3E MOVE LINK HA lO ~0& 06
OC
XL2·275F· 002 LR 07o:;F MOVE LI~K LO TO HOS 07
23ED 2898 23EF 2599
23F1 2900 23F3 .i?li>OI 23FS .?902 23F7 2903 23F9 2904 23FB 2905 23FO 2906 23FF 2907
2·.01 2908 2403 2909 2405 2910 2407 2911 2409 2912 2408 2913 24-00 2914 240F 2915 24U 2936.
OC
Xl..2 1 C6f'O·
003 SBF 6oX·F0 1 CLE~N UP HIGH LINK
DC
>.'l....2 1 F880·
004 TSN EeX·ao° FiRST-~C~P. FLAG ON?
DC
XL2·9015· 005 eoc.o
TO ~DOR 018 iF NOT
DC
XL2·B616·
006 CIR 06·16
HIGH Ll"-K DATA EQuAL EXP a~
0C
)(L.2 1 19007· 007 eoc.o
To ADOR 007' IF NOT
DC
XL.2 1 8717· 008 CIR 07·17
LOW LINK CAlA EQUAL
DC
J!tt..2 1 9009·
009 BOC.!!
OC
XL2'501C 1 OOA a.os. o
DC
XL2 1 9018· ooe eoc.o
DC
JQ...2·1630· ooc INC 16
TO
009 IF
TO .400R OlC
SR O\"C:R HI JNC IF NON-ZERO
INC BA-ADDRESS HIGH
oc
xu· E9o3· GOO
FIRST AODR OF aNO FET?
DC
XL.2 1 9011 ·
OOe
BR TO ACOR 011 IF NOT
DC
oc
XL2 1 F80l 1 Xl.2 1 9017·
OOF TBN s.x·o1· JS 2NO FET INSlALLeo?
010 eoc.o
BR TO EXP· Res. IF NOT ..
DC
Xl-2·E90?· 011 Cl o~.x· 07· F(RST ACOA OF 3Ro Fet·
DC
XL2·9015· 012 eoc.o
BR TO ADOR 015 JF N~T
OC
XL2 1 F802 1
013 TBN e.x·o2· IS 3RO FeT INSTA~EDf
DC
XL.2·9017· 014 eoc.c
BR TO EXP. RES· IF NOTe
DC
Xl.2 1 £908· 015 c1 09.x·oe· FIRST AOOR BEYOND .iAD FET7
, r,,
(
()
2480 JC 24SE 00 24SF 24FF
2942 ·······································································
2480 2943 RTlC DC
XL1'lC 1
ROUT NO.
248E 2944 2490 2945
DC
XLJ,. oo·
DC
ALat~TlO)
NO MANUAL. INT ERV ENT ION AODR OF NEXT ROUTe
29'46 ·
2491 co 87 021.t. 2495 01
2947 2495 2948
B DC
2496 lE
2496 2949
DC
2497 24BA
2498 2950
DC
2499 CO 87 24BB
2951
8
2490 0906E4E340F1C .;:.40 2484 2952 R30HOR OC
2411.5 C8C4C240F1F06 CF3
2952
24AO C640C1C4C4095E40
2952
2485 C3C909400607
29sa
PRINT xt.l · Ol 1
1L1'30' AL2fR30HDA> RT.30GO
CL30·ROVT 1C HOB
10-3F
PR!NT RCUTe ADDA; CIA OP 11
HEADING
24BB CO 87 5916 248F 83
24C0
24C2 24C4 24CS 24C9 2·CB
24CF 24FE CO 87 30 5015 CO 87
54FE 02.l 6
2953 RT 30 GO f!
24BF 2954
DC
* 2955
24C1 2956
DC
24C3 2957
OC
2958
Ii
24C8 295~
OC
24CA 2960
CIC
2961
e
2962 ·
M.. 2(R JOMCS)
AL2 CR30NCE} OOMICR AL i; 30;
YJ...2 · SOJ. 5 8 LINK
GO l.OAO MICROPROGRAM DISABLE UPON ENTRY, FILL
Wi~H eos. 0 CN ADORfSS
Sl"ART a" MIC~OCCOE END OF ~!CROCOOE GO LXECVTE VICROCOOE ERROR HAL f - 30-
EXPECT EO RESULTS GO TO NEXT ROUTINE
2NO FSQ
2063 2964
$*--S.T.A.R.T-~O-F---M-IC--R~O·P~R-O-G-R·A-M~--L-I-S-T-I-N-G--··
24CF 73S5 2401 232:3
2403 2383
24Q5 23A3 2407 73AA
· Z4CF
22996656
·----~-------~------------------·
R30MC S EQU
2400 2967
DC
>U...2·73!55·
000
JC HD6u3=55
24Da 2966
DC
XL2'2323" 001 LA ~OB 03 TO HDB 1~
240· 2969
DC
)Q...2· 2383·
002
\..R HOB 03 TO HOS 23
2406 2970
DC
XL2 1 23A3·
003
LR HDB 03 1'0 HOB :!3
2408 2971
DC
JU.2·73AA· 004 IC ..08 OPAA
I
PROG ID PAGE
0 I
I 0891-2
.. DATE
23 · EC NO·
07.JUL75
825023
2$<CT7S
82f~2
PAOG 10 PAGE
· ·
8912
015"'..ft ADAPT tA TEST
EAR LOC oe..li!CT COOE
AOl)a STfllT SOURCE ST AT91911'
2409 .,..
24US 8413
2400 «09 240F 5008
24£1 23&3
E4£3 9413
ui!4eE,S,
9CJ6
_..;J
24!!£9 «OF
249 560e
24£0 23'e3 ~4EF 8443
24f' I CJC! 7 24F3 f!:M.4
24F5 9CUi
24FT S.014
24F9 5015
2'<Fe !i>016
24PO 501?
241CA 89?2
!X
24DC 29?3
DC
247)£ 2974
DC
24£0 ~?S
oc
24£2 29?6
DC
24£4 2977
DC
24E6 29'1"8
DC
24E8 29?9
DC
24EA 2980
DC
2·ec 29e1
DC
24f!E 2932
oc
241f"O 29B:J
DC
24F2 2984
DC
2.W:4 2985
fX
24*'6 20e6
DC
24F6 298'1
DC
211/FA 296&
oc
24FC 29e9
DC
24f'E 2990 R_3GlllC£ DC
XL.2·7455· Xl...2 8 8413· XL,2 11 9C09· lCl..2· 5008· :ia..2·2323· Xl.2 11 &413 1 XLl2 1 9Cl6 9 Xl.2' 8443. Xc,.2°9COF·
JU..Z·SOOc ·
KL2*2S83·
XL.2· 844:!1·
~2°9Cl7"
XL~· !!3M·
>Q...2 8 9C15· XL2·S014· XL.2' 50! 5e
XL 2 9 5016 · XL.2. 5017.
005
006 007
ooe
009
OOA
OOB
ooc
ooo ooe.
aoF
010
OU
012 013
014
OU
016 017
IC MOS 04=55 CIR 04a 13 eoc.3 ro ADO-A 009 ERACRe HANG LR HOB 03 TQ HOS 13
Cls:I 04113 80Ca3 SKLO NOT BA TO Af)t)t:l 016 CIR 04· 23 eoc o3 Te AGOR 00 F
ERl'?DR · i>tAWG t..R 03 TO 23 CIR 04·23 BOC· 3 SHl.D i'iOT SR TO ADOR 01 7
CIR 33·0'> eoc.~ TO AOOR 015 E~fUlR , ttA NG EXPECTED RESULTS i'ERR OR · HA NG ERROR· i'4ANG
· ·C··
4234-295
IBM 4VolN1£f!IAHCI!'. DIAGHCST!C PRGUU·
24 (.
PART No. PAGE.
( 8912
DI $PLAY ADAPT 61 TEST
·······-··'*******·----................-........................................... E~ l.DC CS.SECT CODE
AfMJR STMT SOUK:E STAfttllt!NT
0
* 2992
2993
ROUTINE ID EXPANDeO t1DB ~s&;fiG C10-T0-3F) USING SHIFT OPe
$
II c··..
2994 . . . . . . . . . . . . . . . . . . . . . . . . . . $ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..
2tl!A'" 2995 RT!O . DC
XL!~ 10'5
ROUTIKE NIJMEER
25.00 .!996
DC
lfil..1·004'
NO MANUAL INTERVENTION
2502. 2'\»7
OC
At..a<RTUU
-~ OF NEXT ROUTINE
2'998 ·
~iiel CcO &? 021 A fft)? 01
H68 ac
2999
Z507 3000 2508 3-0()1
8
oc x1..1·ca·
IL1" 32-e
~509 H a ~So& CO e~ 252.F
250A 3002 3003
AL.2 H13U-t:OR J
e
~31GC
z50F 090&£41:34 OF.1C440 zseE 3004 R31HOR IX
CL 32 ·ROUT 10
~11' C8C4C240F!FC~ o£F3
3004t
(
i v!!"-'>
2~!F C64-0C1C4<:4095e40 K:i?l' eaea.c9C-6E34-00«01 laSIF CO S? 5918 .2.59 B:B
HM 2'543
3004 3004 3005 2533 3006 3001' 2$35 3008
a ~T3.i.G0 cc
...
oc
Al..2(R31~CS)
GO g_Q.AD fill IC~o&aru-. DI SASLe UPON ENTRY· FILL SECOND
FSO W1TK 805 · C ON M>t>RE SS· ST~ OF ~ICROCOOE
c
2536 2!H2
2538 co 87 54Ff!
r.ssc 31
2un s~xe
.t53F co 81' 0216
253? 3009 3010
253C 3011 as3E 3012
3013
DC
4.2(R3lMCE)
e
COf!UCf:i
DC
l!Cl..t·:!U·
OC XL.2·sou.1·
B
UNK
ENO OF MICROCODE GD 00 MICAOCOOE ERROR MALT -31-
EXPl!CTED RESULTS
GO TO fEXT ROUTINE
3014 ·
* * 33001156 ·--S-t-A-R-~i -O-F~--N-IC-R--O-P-R-G-G-R-A-M-__L.I.S.T_I.N..G......
1C 2543 ?SAA
2543 33001187 R·3-1~M-C-S--EQ-U----*~-----------~--~·
2544 3019
l)C
XL.2 1 751AA&
000 HOB OS·AA
2545 2525
2546 3020
DC
XL.2'2~25·
001
LR HDB 05 TD US
254"1 25&5
2548 3021
0C
XL2· 258551 002 LR HDS 05 TO 25
2549 ZSA5
254A 3022
DC
xt.2·2SAS 0
00.3
LR Hoe 05 TD 35
2S4S 7501
254C 3023
OC
>U..2·TSQ1 · 004 IC HOG OS-01
2540 76AA
254F 7755
254E 3024 2550 3025
DC
xt..2· 76AA· 005 IC HOB 06·AA
oc
Xl.2·7755· 006 IC t!05 O?·ES
2551 8615 2553 9006
2552 3026 2554 302?
Do.Cc
XL2' 8615· JCL 2 H~OOS ·
007 008
CIR 06.15 BOC ·O
EAAOA., HANG
25'55 1560
2556 30.2.a
OC
XU* l $60 · 009 ·sL 1$ SHIFT 1't08 15. NOW-SS
2!115? e?1s
c
2$59 90(16 2555 !!}615
2558 3029 2S5A 3030 259' 3031
IX
XL.2·67U5· OOA Cif.! 07·15
OC
xt..2°9009~ ooe eoc.o
0C
Xt..2' lii615.. ooc CIAo06· Ui
2550 9COD
c
259F 15CO 2561 11745
2563 9Gl0
255E 3032
2560 3033
2562 3034
2564 3035
DC
X&..2·9COD · 000 90C·3
ERROllo HANG
IX
xL2·1sco· ooe SL 25 St'tFT HD8 as. NOWm65
DC
XL2 8 B74S· OOF CIR 07·25
DC
Xl..2·9010' 010 eoc.o
2565 8566
0
2567 9CU
2569 1SEO
2566 3036
2568 3037 256A 3038
DC
XL2 9 BS66· 011 CIR He06
OC
Xl...ZO 9C 12 c OU eoc.>
EM0$1. KA.HG
DC
Xl..2 9 ! SEO"
013
SL ~5 SHIFT H06 35 ~55
2566 B7tt5 2$61) 9015
256C 3039 256E 3040
IX
KU!·S745 1
014
Cl~ 07e25
OC
.lfi...2'901!i· 0!5 soc.o
256F 8655
25?0 3041
DC
XL.2·B6SS· 016 CI~ 06eH
rv-,
2571. 9Cl? 2573 5018
2f75 5019
257? 50111
2572 30-42
2574 3043 2576 304·~ 2578 3046
DC
XL2" 9C11' 1 01 T 61X .3 SfolU> M:IT Sff TC Set.F
DC
XL.2'5016'
018 SO 5 .,o E X?IECTEO RE SULTS
DC
xt..2 1 5019 1 019 aos ..o ERROil.,
DC
Xl..2' SOlA 1 OlA eos.o EAAQ4il,.,
. ·
,
2579 5018
2578 5C1C
2570 5010
257F sou:
2!5f.!11 501F
2S7A 3046
CIC
257C 3047
oc
257E 3048
DC
2580 3049
::>C
2562 3050 RJl..CE DC
3051 "'
xL2~so1a·
xL2·so1c·
lCl..2 1 SQ1D.,
XL?' SOH!~
XL.2" 501F"
OU! oic 010 OlE 01F
BOSoO EMORo B.0$ ,,o EMO~
sos .. o ERAOA· eos.o EMOR. HA.NG
B£I S ·O ERROR., KAMG
· 089i -2.
OATE
24 : .EC MOc
25CCT7'5 82 !032
6891-2' 24.A
·
· ·.,.-.·. ...,. -· :~. ···~·-·· -~·- ·--~-~-·--~·-=·-·--,-.,~~-··~-,
-:_~
-'
I
IBM MAINTENANCE DIAGN<ST IC PROGRAM
PAAT fllD.
PAGE
4234255
IBN MAINTENANCE DIAGNCSTIC PROGRAM
2!5 '
8912
DJSPLAV ADAPTS1t TEST
ERR LOC OB~ECT CODE
AOOR STMT SOURCE ST ATEM~T
8912 (
DISPLAY ADAPTlR TEST
E~ LOC 06..IECT CODE
.\ODR STMT SOURCE STATEMENT
3053 3054
****R*O*UT*J*N*~***l~***EX*P*A*N*D*E*D**H*C*B**A*O*O**R*. *<*1*0*-*<*0*-*3*F*)**U*S*t*N*G**X*R·w*T*B*F*~*.**I*N*C**O**?S**. *·****
~·
2583 lE
3055 ····********~********·*·********************·**************************
2583 3056 F!TlE DC
lU..t·tE·
ROUT NO,.
2584 00
25e4 3057
OC
XL1 1 00·
NO MANUAL INTERVENTION
2585 2634
2586 3058
* 3059
DC
~(RT1FI
AOOR OF NEXT ROUTINE
2587 co 87 021 it.
2588 01
3060
25e::i 3061
e
PRINT
DC
xi.1·01·
PRINT ROUTINE HEADING
258C 29
258C 3062
DC
IL! 1 41 1
2580 2588
258E 3063
cc
ilL2 CR32 HOR)
258F CO 87 25BC
3064
B
RT32GO
25'.i3 D906E4E340Fl C f40 2588 3065 R32HDR cc
Q.41-ROUT le
2598 C6C4C240F 1F06 fF 3
3065
·"'·~· .
261A 8£14 .26lC 9C26 261E 8E47
2620 9028 2622 1790 2624 SE47 2626 9C2B
2628 eesa
26.2A 90.20 .262C 16BO 262E SESB 2630 9C30 2632 5031
25A3 C640ClC4C4095t40
3065
25AB E7D96B40E 3C2C «09
3065
25B3 6t140C9D!C3400 W7
3065
2SBB E2
3065
2sec co a1 5918 25CO 83
3066 RT32GO B
2SCO 3067
OC
LOAOCs lCl..l' 83·
GO LOAD MICROPROGRAM DISABLE UPON ENTRY· FILL 2NO
25C1 2500 25C3 2633 25C5 CO 87 !S4FE
3068 · 25C2 3069 2SC4 3070
3071
DC
At-2 ( R32 MCS )
DC
AL.2( R32NCE)
B
oCMJCR
WITH eos~o ON ADDRESS START OF MICROPROGRAM END oF MICROPROGRAM GO EXECUTE MICROPROGRAM
25C9 32
2SC4 5031
2!SCC co 87 0216
29C9 3072
DC
~see 3073
oc
3074
8
2500 3075 R32MCS EQU
XLl832· lll..2 1 5031 · LINK
·
ERROR HALT -32·
EXPECTED RE SULTS
Go To NEXT ROUTINE
3076 3077
*·-S~T-A-R-T ~O~F--M-IC-R~OP-R-O-G-RA-M-~L-I-S~TI-N-G-·*
2soo 7404
2501
3078 3079
·~-----I-X-----X-L-2-1-7-4-0-4-·---~0~00......
-~_.
JC
HDe
04a04
2502 7105 2504 7206 25D6 2321 2508 2422 250A 2681 250C 2762 250£ 2AA1 25EO 2SA2 25E2 8324
2!503 3080 .2505 3081 2507 3082 2509 3083 ZSDB 3084 2500 3085
25DF 3086
25E1 3087 2!5E3 3088
DC
XL2·71os· 001
IC I-IDS Ol·OS
DC
oc
XL2 1 7206· XL2'232l·
002 003
IC MD8 02·06 LR HOB 01 To 13
DC
XL.2· 2422·
004
LR .-oe 02 To 14
DC
JCL.2·26e1 · 005 LR I-OB 01 TO 26
De
Xl..2 1 2782·
006
LR t1DB 02 TO 27
PC
XL2'2AA1· 007 LR HDB 01 TO 3A
DC
oc
XL2"2BA2· XL21 &3'24·
008 £109
LR HOB 02 TO 38 T8Ff0 13a04
:·.
I 10
25E4 9COA
25E6 A334
2SE8 8324 25EA 9000 2!5EC 1330 2see 8324 25FO 9C10 25F2 8684 2SF4 9Cl2 25F6 A6C7 2!5F8 8684 25FA '9015
2SFC 1690 2!5F£ 8684;
2>00 9t18 2602 8AA4 2604 9ClA 2606 AAFB
2608 8AA4 260A 9010
260C lA80 260.E 8AA4 2610 9C20 2612 7E01 2614 8El4 . 2616 902~ 2618 1430'
OAtt
01'.WL~S
EC HO. . easo2~
251!:5 3089 25E7 3090 2SE9 3091 25EB 3092 SISE&> 3093 2SEF 3094 25F1 ~095 2SF3 3096 2SF5 3097 25F7 3098 29F9 3099 25FB 3100 25FD l101 2SFF 3102 2601 3103 2603 3104 2605 SlOS 2607 3106 2609 :St~7
260& :uoe
2600 3109 2.0F 311"1
~611 3111
2613 3~12 2615 .:Jl13 26l'r 3114
2619 JU5
2.SC(;TTS 82 fOJI
DC
>G..2 1 9COA ·
OOA B0Ca3 SHLD NOT BA TO SELF·
DC
XL2· A334'
OOB
lCR 13.14
l:t NOW·03
DC
)(L2t $324C ooc TBF,. 13 ·04
DC DC
JCL.2. 9000. XL21 1330·
OOD
ooe
BOC ,O SHL.D NOT BR TO Sf!LF41 lNC 13 T0-:04
DC
XL2'8324' OOF TBFA 13,.04
DC
XL2·9cao· 010 eo·c,3 sH..D NOT BR TO SELF·
DC
XL2 1 8664·
011
TBf't; 26e04
DC
XL2·9Cf2t 012 Bac,3 SHLD NOT BA TQ SELF a
DC
XL2 1 A6C7·
013
XR 26 0 27
26 NOW'-03
IX
XL2· 8684·
014
'IBFri 26 104
DC
JCL2·9o as· 015 eoc,o SHU> NOT BA TD Set.Fe
DC
XL-4' 1690·. 016 INC 26 T0-04
DC
lll..2· 8684. 01 '7 TBPR 26s04
DC
XL2 1 9(:18· 018 eoc,3 stLO NOT Bil TO seu\t.
DC
Xt..2·8AA4 1
019 TBFIC 3Ae04
DC
.lCL.2 1 9ClA· OlA eoc,;:i SHLO NOT BR T<l SELF ..
DC
xu· AAFB· OlB XR 3A.38 3A NOW·03
DC
JQ.2· 8AA4·
OlC
TBFf.i 3At04
DC
a2·-;010· 010 BOC aO SHU> NOT BR TC SELF.
DC
xu· 1Aao· 01e INC 3A TO=Q4
DC
XL2·8AA4 t
OlF
TBFR 3A·04
DC
Xt..2·9CZO· 020 aoc.3 Stt..D NOT SR TO $El.F ·.
DC
XL2 1 7EO l· 021 IC t-Da oe-oi
DC
oc
DC
lG..2 8 8E14 · XL2·9023·
xa..2· 1430·
022 023 024
TBFR OE·l"
aoc.o SHLO NOT BR TO SS..Fo
INC 14
f'ROG ID PAGE
,,..·I
I
I~
I i
,l .
I
j C)
'·I
I
io
I
,'·.le
I
21 oev1 ...
2lS l
OATE EC NO.
Ol'.JUL 1!5
825(>~3
2618 3116
oc
2610 3117
DC
261F 3118
O<:
262). 3119
DC
2623 3120
oc
2625 3121
DC
2.627 3122
DC
2629 3123
DC
262a 3124
DC
2620 3125
DC
262F 3126
oc
2631 3127
DC
2633 3128 R32MCE DC
3129 ..
Xl.2 1 eE14 ·
XL2 1 9C26·
XL2° SE47·
XL.2'9028· XL2 1 l 790 1
XL~'8E47·
XL2·9C26· xL2· aese· X!..2 5 9020·
xL2 1 1 eeo·
XL2' 8E58'
XL2'9C30·
XL2 1 5031 1
l9.JAN?6 &a5034
I ··
025 026 027 02e 029 OZA 028 02C
020 02e 02F 030
031
PART NO. PAGE lBFR 0Eel4 BOC,3 .H11.. D NOT BR TO SELFe
TBFR OE·27
BOC .o SHU> NOT 8~ TO SELF
INC 27 TBFR OE,.27
eoc.3 SHLD NOT BR TO SELF
TBFFi 0Es3B
BOC ,o SHLI) NOT BA TO SEt.F
INC 38 TBFR 0Ee3B BOC,3 SHLO NOT SR TO SELF
aos.o EXPECTED RESULTS
PRQG go PAGE
IB,. MAINTENAhCE DIAGN CST IC PROGRllN
PART NC.
PAGE
4234255 26
IBM MAINTENANCE DIAGHCSTIC PROGRAM
PART ND.
PAGE
42342!5 26A
8912
DI sPLAY ADAPT fR TEST
8912
DISPLAY AOAPTtR TEST
E~R LOC OBJECT CODE
ADOR STNT SOURCE STATEMENT
ERR LDC OBJECT COOE
AODR STMT SOURCE STATEMENT
33113312 *··R·O··U·Tl·N~&·::··lF·~·E·X·PA·N·D··ED···t"·t·!··.A·O··O·R·.U·O··-T·O··-:·!J·F·)··U·S*IN*G*$·B·R·*Q*P*.,·*···············*
2634 lF
3133 **···········**********···*·***************************¢***····********
2634 3134 RT lF DC
XL l' lF"
ROUT NOe
2E35 00
26:':'3 3135
OC
.XL1'00 9
MO MAW.Jl\L iNTEWtlENTiON
2636 2668
2637 3136
DC
AL2\lllT2CH
AOOR. OF MDl'f ROU1'1NE
3131' ·
2638 CO 87 OZiA
3138
B
263C 01
26~C 3139
OC
IU..1 111 01 9
2630 lD
2630 :31.-,0
DC
l!L1e29e
26JE 2660
2640 co 87 2661
~63F 3141 3i.42
DC
AL2CR33HOR)
e
RT33GO
2644 0906E4E1401"'1C: '1.40 2660 31~3 ~33HDR DC
Ct.29& ROIJT 11"
264C C6C4C240FlF06 0:3
31.43
2.654 C640ClC4C4D95E40
3143
265C C2094006D7
2E16l co 67 5918
3143 3144 ~Y33GO B
LOADCS
2665 91 2666 267E
2665 3145 2667 3146
DC
XL1·91 1
DC
AL2(R33MCS}
STM~T OF ~n:cROC.OOE
r
\ ...
2666 2699
2669 3147
DC
AL 2(>!: 33~Ce)
END OF ~ICROCOOE
266" co 87 5911~
266E A2
3146 266E 3149
6
11..0ADCs
oc
XLi<IA.2·
·GO LOAO illi l'.:R.OCOOIE iN 2:NO FSQ
c
266F 269A
2670 3150
DC
M..2(R33MC~ ~
STAAT OF Mi CROc;cme:
2671. 2687
2e?2 3is1
oc
M..2 ( R:33 MC2 )
END OF MICROCODE
Z6T3 CO 67 54Ff
3152
B
DOM I CR
Go Do MlCRC:COOE
2677 33 2678 5107 267~ CO 57 OiH6
2677 2679
3153 3154 3155
31 56 3157
DC
xa..1·33e
oc
iu..2as107·
. a
LINK
'41-c,-··---~-"·-·------·----,~~~~,. ,~·--=·'~
!I: START r.}I"' tUCRCPROGRAl>I Lll 5"fti'lG
ERROR WALY ~33-
EXPEC'fED RESV!..'l/'S
IE xn· ROUTINE
3158 *--------~- ''·-·~~--·<>--··-><o"~'<>'>·"-W"""~··o'il<
261E 3l 59 !~33MC.:S EQi..I
,;,
:H,7E 7'!01
261F 3160
OC
)'.t,2·1:1.0P
!C \>108 :.HstU.
2680 7202
2681 3161
DC
XL2·7202·
IC ~'!)Cl 02sO~
2682 7303 2684 711.0D 2686 2521 2688 2622:
Z683 3162 2685 3163 26e'? 3164 2689 3165
GC
~2·7303e
002
H:: t\iJ6 03=03
DC
XL2"1'·1iOp· 003 IC MOB oe;... oo
DC
XLZ0252l1. t
LR ~oa 01 TD is, HOB 15 ND·=OI
DC
m.. .iP 2622 ~
LR 1-108 02 TO H·< MOB 16 NCt11~·02
.268A 2?23
2668 3166
DC
XL?. 8 2723e
l..R I-OB 03 1'0 17., HOB 17 NOW=03
2686 20 2689 00 Z6BA 2772
26CO CO 87 OZlA. 26C4 01 Z6C5 18 26C6 2749
26;CS t.:0 87 59.l. a
26CC 83
26CD 21'4E 26CF 2771
2601
26[.li' 26.0A 26 OE 26E.2
26El
OC Ol
1'! 4fJ 3C OC CO 8 7 58
5010
26F8
30 5564 !:j4f;E
66£3
26E5 30 40 5FE6 26E9 H> c11 SFE6 30
26EE F2 81 08
33119923 *···**~·R··O*U·T·IN~E··2·0***- *M**e*AR··/'C·U·R·A·R··H·A*R*C*W**"'R*E··T·E·S·T·S···························*
3194 **************····~···*··*·~·······$***~····****~*··~··················
3195 ...
* ·· 3196
nus RCUTINE TESTS THE O!!B.IHl AND CuRAR liARDw·RE AND THE SSN
* · 3197
wHll:CH MOVES HIE VALUE OF Mf.lAR TO cURAR~ THE VALUES useo ARE
* :H98
7FFe 000· 555 ANC 2AAe THE ~ICROPROGRA~ IS ENTERED 4 TIMESu
* "' 3199
sos.1 ~HICH iESTS FOR ~BAR : CURAR IS ALSO TESiEVe
II<
* 3200 "' 33220012 *****·······~············*~····~······~·-·········*·········*$·~·-····$
26e8 3203 AT.'20
oc
AL1 ~ao·
RCU.iii NE Nt.~eE~
266<;; 3204
oc
x1..i~oo·
NO MANUAL INTERV ENT !ON
2666 3205
OC.
AL 2H1 T2il.)
ADDRESS OF ~EXT ROUTINE
3206 zecs 3207
3208
USING RU1KOl eXf.ill
t.A
P.l6K01.xrn
INITIALIZE X~l FDA INDH~ING
3209
:;5210
B
PR.INT
26C4 3211
oc
Xl..1 5 01"
26CS 3iH2
DC
l!..l\~a4t
26C7 3213
OC
AL20t'n60P)
3214 .'l!!lS f0.6K01 B
.. GO t.OP.D MlC~OPROORAM
26CC 3216
3217 'it 26CE ,l2\ 8 2600 3219
DC
DC
illL2HU6MCS)
oc
AL:.i?C R 16MCE ~
&DISABLE UPON ENTRYo F!L~ 2ND
F 5Q wI TH acs~ 0 (JN ADORE SS ,.START OF ~ICRO CODe
.EhD OF ~IC~CCODE
~6E2
26E4
3220 ::iz21 3222 3223 3224 3225 3226
!Rt6RPT
~vc
LH)
~vx
8
DC DC
Rl 6EX2 f. 2 ..xo7f'F
Rl6EX2~ "l<Rl ~ .HDeu
LPCNT t'(~ oc·
iDOMl!CGl
m..1·;;:s 0
x1.."2~soao~
,<Pl.IT FIRST CONSYANT !N PRClG!~M,\
,,i_,i{J,:,o (,;(Jil''<IS'"Li\NT !N HOB .ao-u
· HlC~ll:llSE OELA'i' ·GO f:>U:.CU'ff MiCRO~ROGi'<il<~i oE~f.!C.lk H~i...T -SS.. EXN'::C~'EO !!)J'l.a~
322!.7 3:?.28 .3229 3230
SNS
cu:
.IE
S:.i"'1iTAC.. HOB5 STATAC 0 Rl6EX22~XR1)
~161302
"sENZE t.yi'!A~ CONTEM'fS ,,cOt.i!P/.l.!~E FOR EXPECTED VAA.UE ~cONTl~VE IF OKAY
261!1C 2824 268E 2981 2690 2AS2 2692 2BA:5 269'1 2CAl 2:696 ::!538 2698 l'>OOD
~69A ~H 00 .269C 35?B 269E 5! 02
26AO 7507 26A2 21).t.5
;l!Jl>A4 3CFCi 2611.6 5106 l6AS 5! 07
?6AA 5XOS 26AC 5109 26"'-E 51 O,!\ 2i)00 5HJ6 2682 5l Oi:; 266<;. 3995
26!'.!f> Sl OE'.
2680 3167
OC
2oSF 3168
DC
2691 .U69
OC
269J li?O
DC
2695 3111
OC
2697 31 72
PC
2699 3173 R3ll<l!Ce oc
311'4 ·
269A 3175 ~a:!NCt eau
2699 3116
DC
2690 3177
oc
269F !178
DC
26A1 3179
PC
26A3 31,60
OC:
26AS 3181
DC
26A? !182
OC
i6A9 31 a.:'!
UC
?.6A6 31 fU
<>C
26,'<0 ;;n,':J.5
oc
~""'" :use
cc
2681 3167
DC
lt~e:s 31 ae
oc
2685 llS~
DC
<!6B7 3!90 ~33~K<?, DC
XLV 2e.a4· )CL 2· 298P XL2'2A82· XL2"26A3· XL2·2CAl· Xl.2" 35388
.~2·sooo·
'°'~L,2Q 510(1 s
X1...2·~s1a~
x~. 2·s1oa: ·
Xl-2 1 ~507~ :ii:t.2·<:0AS·
xLzt'> .:scr.:o~
XL2'5106" :<',;, 2 5Ul7' · )'(1..2:' SUH!· 6'1. 2 '51 (~·1!11 ' Xl.<"o! "fH. 0 A · J,fl... 2 ~ ~S H>l:P
).(~-:?:· 51oc 9
XL.2· l'P9S·
XL.2°5101:~
008 009
OOA OOB
ooc
OOD
LR 1-.UB ()t., TO 1 B · t~OS
I.Ft l-0'6 0 l "i'O ;;:sin I-IDB I..~ \1"06 02 YO :<!A· HOe
LR rol)fJ 0.3 To 3fh HDl!l
LR t-1)6 01 ·m 3Co HOS
1'.if! 15~!8 TO ADDRESS eos~o ERROR~ HANG
18 NOlll=OD !9 t>lt0'9t=01 2A NOW:02 36 Htli<.:=03 JC NIJl.!'l&()l H'JO
.o er.ls
ERROR~ HANG
BR l5t3B TQ AOilREiS O~
eos~o ERl'1,or.:t 1-1.r.N1G
IC &-:;::ie 05,.,0'f
LR Hl)6 05 TO Jl:h HD8 3if;i, hlClilf"'·til"I SA ~C.JD TD ADDRESS 01~1~
so;s,,o E~t;io·h tMNG
BOS· EXPECT!i~(I tlE; $\Jl,. l~~"
aos.o ERf!Oj;je 11·1.uG
aas.o E·H;ia;a,, i·~AhH~
BOS ,J.l El'lROi'h HAN(i
ecs.a ERRD~~ HANG
Bos~o e1:wu;;A. &"JA.,;G
eR a<.J·~Hi to 11.00REss HH
!'Hl Si, 0 E l=tf'.<0£.? ~ HANG
26F1 26F5
261='6 26F'7
CO 87 20
59 0000
5DA5
26F9 00 01 2.6F·a !56 E3 26FF F2 fH 16 270Z 40 01 30 0062 21"07 F2 61 16
?.?OA 50 01 30 65
270E FZ al 16
2111 so 01 30 a3
£'715 F2 61 Hi
2n 8 4C Ol 30 0062 211() l:>O 1'!11 OF
27 20 5('. IJ l 3(l BS
2724 [)0 [fl' w
2727 SC 1J l JO .13 27213 00 12t·1 !:IF
2732 09 06· E4E:HOF2F (40
3z,3.1. Rl6R1'N e
3232
oc
3233
IOC
3z34, Rl 6EX2. OC
:3235
3236 R16602 Q..C
323i"
JE
32.38
CLC
3239
.JE
3240
CLC
30:41
32·~2
..IE
cu:
32il>3
.JE
.J244
:~2;;,5 R:!,6603 lil',/C
32:<i.6
B
Ji(t;,\'1 fU6B0'> M\!C
32
8
32.,'fl.'); Rll5605 M\IC
l2:fi0
B
:!J25ll.
3252 1'<~6806 le
3253
2'1'49 3254 RT 16lW DC:
S"f A7US
tl~.1e20~
:it1.. 1e59 5 Xi..21!10 ·
,.ERROR ,.p;::aNT ExP~ ~ ACT .. DAl'A
eEAROR HALT -59· .,EX?ECTE!l OA'fA FH.Ll!i'> IN
Ri6EX2( 2) · J:O?FF
ifU6503
~16Ex2<2.xn11~zenc
iU6B04 fH.6EX2~2: .. XR1, ·. K02A,M <>J:i'.R°l ~
Rloaos !116tf:X.2 l.2 · XRl h X0555(., :uu.)
r.<16$tlo
oCHECK FOR ~SlNG DATA o ?rF
"!F SO iNSERT Ht:X't' OA"fA
oao ~CHECK FOR USlNG OATA ·
"l!F SO IN SERT NEXT OA'fA .,CHECK FOR USE liNG OlffA ·"" aA.A ., ::i:e::· SO INSERT NEXT DATA
,,C.Hl:CK FOR '.JS1Nu DATA "" !:115!5 " Rf' SO EX l'f ROUT ltNE
flit 6E.'.'(.c:t2 · xr:.1 h za~o
Rl.e:R?T~ ~ ~iRU
IH6f.t}~;H2 .xFn h ~02.1%A~ ~ Xf;.!, J Rlu.SRP'I"( .xRl) R Hi>f:P~«H .2 ~ XR), .~ · XOS55( "~~1 ~ IRl <l:;RP'H o.;\;Rl j
*' ~SET EXPEC1'\EIJ Oil.TA
i\Hi.:I
~G~ AEP!AT ~cuTnNE
.. :SET EX?EC"H;;o OA'H\ 2#1.i!i.
.. Go REPEAT >mtn !1?<iE .. SE'it cXPE~TEO f:H<fil "" et!.5
,.,(;il!J fH:.PEAi i'<OU'f 111\l\£
273A 04C2CH>9fHCJE4D9 2742 C10940E3C5E.2E 3::'.2
3254 3254
3255 3256 X0555 DC 3257 XO.t!AA DC
>CLZ·osss 0
XL2"02AAS
.- W~K CONST Ai-!1' ..wt.mK CONSl' ANT
DATE
07 .JUL75
EC NO¢ 825023
2SC.CT7$
ea fO;$i
0891-2
ac
e DA1'1!
eec No..
07.IUl..?5
826.023
25lCTT5 8210.52
·
· ·· · · · · · · · · · · · · · · · · ·- . · · · · · · · · · · ·. ·.·.--~
IBM NAINTENANCE DIAGfHST lC PROGRAM
PART NOe PAGE
4234255 27
IBM MAINTENANCE DIAGNCSTIC PROGRAM
PAAT NO.
PAG!
42342!!! 27A
8912
DISPLAY ADAPTER TEST
8912
DtsPLAY AOAPTiR TEST
ERR LOC OBJECT caoe
ADDA STNT SOURCE STATEMENT
ERR LDC OBJECT CODE
AOOR STMT SOUQCE STATEMENT
3258
2786 co e1 oai 6
3325
ee
* * 33225690 · - -ST-A-R-T- -O-F- -M-!C-R-O-P-R-O-G-~-AM- -L-I-S-T-IN-G- - ·
274E
3261 3262
R·1-6~M-C-S--E-Q-U---*------~------~---·
27BA 30 2 0 5FE6 27BE F2 Ol 65
27c1 F3 se ao
27C4 30 48 2840
33.26 R l 7PO 3327 3328 3329
CLI .INE SIO SNS
274E 2El0
274F 3263'
DC
XL2'2E10 1 00 LRo MOVE EXPECTED DATA TO HDB OE
27C8 30 49 2842
3330
SNS
2750 2FU 2752 200E
2751 3264 .2753 3265
OC
XL2 1 2Fll 1 01 LR 1 MOVE EXPECTED DATA TO HOB Of'
DC
XL2·200E · O"! LR, LCAC MSAR HI FROM HOB OE
27CC 30 4A 2844 27 DO :SC 04 65FB
3331
3332
SNS t.4VI
2754 21 oF 2756 1704
2'15S 7000
2755 3266 2757 3267 2759 3268
DC
XL2 1 210F 1 03 LR1 LOAD MBAR LO FROM HOB OF
DC
XL2'1704 1 04 ssN. LOAO CURAR FROM MBAR
DC
'°-~·7000·
05 IC, RESET MBA~
2704 79 FF SA 2707 F2 !O OD
2 7DA oc 04 zaee 2s o
3333 3334 3335
TBF JT MVC
27SA 7100 275C 540E
2758 3269 ~750 3270
DC
Xl.-2 1 7100· 06 ICe RESET llllSAR
DC
XL2 1 540E·
07 60$11 BRANCH IF MBAR · CURA~
27E0 3C 09 65F 9 27E4 F2 87 OA
3336 3337
~VI
J
275E 1110 2760 9007 2762 1010
2764 eooe
2766 9':12
2768 5007 276A 2A20
275F 3271 2761 3272 2763 3273 2765 3274 2767 3275 2769 ~276
2768 3277
OC
XL2·~110 1 08 JNC, INCRo NBAR LO
DC
XL~ 9 9007 1
09 aoc,o LOOP BACK lF NOT ZERO
DC
XL2·l010 1 OA INC, INCR. MBAR HI
oc
xt..2° eooe· OB Cl· TEST FOR END
DC
>0...2·9C12· oc eoc,3 BRANCH lF ERROA
DC
XL2 1 S007· 00 eos.o ~ETURN TO LOOP
DC
Xl..2°2A20' OE LR1 LCAO MSAR HJ TO HCB lA
;·....
,!"., __ _ \...
27E7 OC 04 2868 28'2 27EO 3C E6 65F9 27F1 CO 87 021 E 27F5 02
27F6 2840
27F s 2898
3338
3339 Rl 7602 MVC
3340
MVJ
3341 Rl 7603 S
27F5 3342
DC
27F7 3343
OC
27F9 3344
DC
.276C 2821 276E 5010 2770 5000
2760 3278
OC
276F 3279
oc
2771 3280 R16MCE DC
XL2 1 2B21' xL2·so10· >CL.2 1 5000·
OF LRo LOAD MBAR LO TO HOB JB 10 HANG. TEST COMPLETE 11 BRANCH TO RESTART PROGRAM
27FA CO 87 021E
3345
B
(...
27FE Ol
27FE 3346
DC
27FF 2843
2800 3347
DC
3281 3281
c
2801 28AC
2803 co 87 021E
2802 3346 3349
DC
B
c 3282
3283
*···A·O··U·T·!·N·E···2·1···M·E·S··S·A·G·E···B·U·F··F·E·R*A*O*OR*E*SS*tN*G*T*ES*T*S ******····················*·
3284
*· 3285
MICROCODE. RUNNING lN CS ADDA 000-TO-OFFo LOADS ALL FET STORAGE
* *
2807 01 2808 2844 280A 2880
2807 3350
DC
2809 3351
DC
2808 3352
DC
3353
3286 ·
* 3287 ·
3288 3289 ·
329C *
CAqos ·ITH INCREMENTING DATA· 01-TO-FFt (HEX 00 rs NOT USED.)
STARTING AT AODAESS 0100 AS EACH SYTE IS WRITTENo IT IS READ BACK FOR VERIFICATION· AFTER THE ·RITE-WITH-REAOBACK-CHECK PASS IS COMPLETEa THE~E IS A SECOND PASS Tt.ROUGH WITH READOUT ANO CHECK ONLY
r.
** (:
* * (>
280C OC 02 65FC 28 SS
2912 oc 01 65FE 28JC
2818 Oc ~l 6600 26 fD
2S1E CO 87 021A 2822 82
3354 3355
3356 3357 2822 3358
MVC
MVC
MVC
8
2772 21 2773 00
33229912 ·················~·················$******·****************************
2772 3293 RT2l DC
X"-1 1 21·
ROUTINE NUMBER
r
\~,.. ·'
2773 3294
DC
xt..1 · oo·
NO MANUAL INT ERV ENT ION
2823 50 2824 28BD 2826 CO 87 63FE 282A CO 87 021 A
2823 3359
DC
2825 3360
DC
3361 R17HLT B
.3362
e
2774 2946
2775 3295
DC
AL2(RT22)
AQDRESS OF ~EXT ROUTINE
2e2e 96
28.2E 3 "363
DC
3296
3364
27£7 3297
USING R11"802.XRI.
282F OC 00 2S3A 55 E:
3365
filVC
2776 C2 01 27E7
3298
LA
RI ';'B02cXRI
INITIALIZE XRl FOR INOEXING
2835 co 87 ~222
3366
B
2'1?A CO 87 0.21A
3299 3300
e
PRINT
PRINT ROuTJNE ~EAOING
2839 145C
2838 co 87 oa10
283A 3367 fU7HC DC
3368
e
277E 01 277F 27
277E 3301 277F 3302
DC
Y.L.1·01·
oc
IL1 1 391
283F 0000
3369 2840 3370 RJ. 7L.1 OC
2780 2860
2781 3303
DC
...:..2CATI 7CJP)
2841 0000
2842 3371 Rl 71..2 OC
2782 co 87 !5918
2786 83
2?87 28C8 2789 2945
3304
330!5 Al ?KOi 8
2786 3306
DC
3307 ·
2788 3308
DC
278A 3309
be
t.OAOC$
1
--·· 83
AU? (Rl 7MCS) AL.21Rl7MCE)
1GO L.OAO MICROPA(IQRAN
·CISASLE UPON ENTRY· FILL 2NO
FSQ WITH eos.o ON ADDRESS .START OF MJCRO cooe
.END OF NJCRoco9e
c
2843 0000 2845 8!01
2844 3372 Rl 71...3 DC 2846 3373 Al 7P DC
2847 09D6E4E340F2F J40 2660 3374 RT17DP OC
c
294F D4C5E2E2C1C7C ~O 2857 C2E4C6C6C6D'il4 <Cl
3374 3374
28SF C4C4C9C5E2E2CSDS
3374
3310
2867 C740E3CSE2E3E&
3374
2788 · 02 2849
3J1l
SBF Al 7P-1 ·X·02·
3375
2 ?f/F 38 02 OAOC 2793 co 90 2798 2797 3A 02 2845
2798 F3 58 CO
3312 3313 3314 3315 Rl ?PP
T&N BF SBN SJO
UDT2.x·o2·
Al 'tPP
RI ?P·1,x·o2·
X·CO·eSIOI
286E 04E2C74B40C2E4C6 2880 3376 Rl711ll DC
c
2876 C6C50940CS090~0o 287E 0940C4E4C9C9D!C7
3376 3376
2886 40E7E7E7E7E7
:5376
279E 71 ·8 SF ;tl' Al 3A 01 $540
au.e; :sc FF s5E4
3316 Rl 7RPT LID
3317
SBN
3318
MVI
Rl 7P I ·>CR 1 ) 9 HD60 fHBPe X·t)JI LPCNT eX · FF t
.LOAD PARAME~ERS INTO HOS 10·11
·SET ERROR HALT BYPASS BIT ON
(
·INCREASE MICRO Q.. AY
288C 6B40CIC4C4094 (7E 2898 3377 A 17142 DC
2894 40E?E7E7E7
3377
2899 6840C4C1E3C14 <CS 28AC 3378 A17M3 DC
27A9 CO 87 54FE 27AO SC
3319 3320 27AO 3321
e
COM I CA
DC
Jll..J · sc·
eGO EXECUTE MlCRoPR(IGRAM eERROR HALT ·5C~
2841 E71)'tCSC3E3CSC 440
(
2849 7E40E7E"I' ,
3378 3378
2B4D 6B40C4C1E;lC14 CD9 28BO 3379 A17M4 DC
i7AE 503E
27AF 3322 AJ7EX1 DC
lQ..2·503E·
eEXPEC'TlaD C>ATA
2885 C5(i37DC44,07E4 CE7
3379
3323
211JBD E7
3379
2780 00 01 5FE6 27 #I'
3324
OAT!;
OT.IUI,.7 S-
EC ND· 829023
.tStCT?S
azro:n
lS.JAN'l'6 82.5034
CL.C STATAC(z)eR1?Ex1
eTEST FOR EAAOR
PROG 10 PAGE
28BE E609C9E3ti!
28C2 3380 Rl 7"'5
0891-2
·0 27 .
DecATNE O·
fJ?JUL.75 825023
2lSCCT?5 82 f032
UIJ1Ut?e 825034
DC
LINK
STATACex·20·
Rl7HL T
x·ao·.sIOI
Rt 7L1 oHOBO R17L2eHDBl
Rl 7L3 wHDl!2
ERRLOG-9 .c · M·
R17L2-l(oXRl)·X·FF· R!7B02
R17Nl(!i) .R17M6 ERRLOG-8 ,C·R·
RI 7803
= EXIT ROUTINE
.STATAC E2 IF DATA ERROR
eIF NOTe TAKE THE HALT
.DISABLE ATTACHMENT
.FETCH MBAR (HOB 00-0l»
oFETCH FLAGS (HOB 0.2-03)
.FETCH ExP.,ACTe DATA
elNSERT CHAR FOR LOG OUT
·
.TEST FOR FAILURE OuRING llRITE
·JUMP IF SO .INSERT ·REAO· IN MESSAGE
eMOVE CHAR FOR LOG OUT
·
eGC UNPACK l"EST OF CATA
Rl 7 Ml (5 J .RI 7M5
ERRLOG-8 ·C' ti·
UNPACK XLl·02·
AL 2( f:U 7L. l)
AL.2( Rl 7N2) UNPACI< .ICLt-01 1 AL.2 (R17L3-1J Al.2(Rl 7N.3) UNPACK XLl"Ol 1 AL2(RJ?l.31 AL2(R17M4)
ERRLOG-5C3)eR17M2 eRRLOG-3(2)oR17M3 EARLOG-1(2).R17M4 PRINT XL1 1 82' IL 1· 6?· AL2(R17N4) ELPQ PRINT XL1 1 96·
.INSERT 'WRITE' IN MESSAGE
.JNSERT CHA~ FOR LOG OUT
·
.Go UNPACK MBAR
.GO UNPACK EXPECTED DATA
ePUT ADOR I~ I.CG OUT .PUT EXPe DATA IN LOG OUT ·PUT ACT CATA IN LOG OUT
· · ·
.GD PRINT MESSAGE
eLENGTH
eAODAESS
eGO PAINT LCG OUT
·
.GO SPACE 6
S::17HCU J eSTATHC HALT XL2'14Sc· LINK
· JNSERT CORRECT HALT COOE
eGO HALT
.HALT -sc- -se- OR -ec...
wGO TO NEXT ROUTINE
Xl..2·0 ·
eLOG AREA FOR HOB 00-01
XL2' O·
.LOG AREA FCR 11DB 02-03
XL;zeo'
eLOG AREA FDR HOB ()4-05
x1-2·e101·
.PARAMETERS GET FILLS) IN
CL39·~0Ul 21 MESSAGE BUFFER AOOREssING TESTS·
CL~o·MsG. Bl.FFER ERROR OURIN~ XJOCXX·
CL13· , AODR s xxxx·
cus· WAITE·
PROS ID PAG!
0891·2 2.,......
· ·
ISM MAINTENANCE DIAGNCSTIC PROGRAM
PAflT NO. PAGE
42342~5
IBM MAINTENANCE DIAGNCSTIC PROGRAM
PART N01 4234255
28 ··-
PAGE
28A
8912
DISPLAY ADAPTlR TEST
ERR LOC OBJECT CODE
28C3 D9C5Ct C440
ADDR STNT SOURCE STATEMENT
28C7 3381 A17N6 DC 3382
Q..S·READ ·
i
8912
DI sPLAY ADAPT ER TEST
l· ERR LOC OBJECT CODE
1"
293C 7415
ADDR STMT SOURCE STATEMENT
2930 3449
DC
XL2·741S 1
1c 3A
~.x·1s·
CHANGE EXPaOATA TD 15
28C8 231 C 28C:A 2411 28CC 7200 28CE 7001 2800 71!>0
* 3383 ·-~---~----~-~---~--~~---*
3384 START DF MICROPROGRAM LISTING $
28C8
3385 3386
·-----~-----~------~~--~---·
~1 ?ICCS EOu
It
28C9 3387 28CB 3388 28CO 338'iil 2BCF 3390 2801 3391
DC
Xl.2·2310· 00 LR· SET HOB ~ DATA FLAG
DC
XL2 9 24ll 1
01 LRo SET tlDB 4
DAT A TO BE WRITTEN
DC
XL..2°7200. 02 ICo SET HOB 2 l!fA!TE FLAG
DC
XL.2°7001·
03 IC· RESET lllSAR HI "' CH
DC
XL2· 7HIO· 04 IC~ RESET MBAR LO
I
i
j .
IC
I
10
293E 5023 2940 F302 2942 9C23 2944 S03E
293F 3450
oc
2941 3451
DC
2943 3452
DC
2945 3453 R17MCE DC
3454
XL2'5023 ·
XL2 1 F302 1
XL2" 9C23° XL2·so3E·
38 eos,o
JC T9N 3ex·o2·
.30 eoc.3 3E eos.o
TC AD~ 231 CATA INC TEST FOR FET 3 INST FLAG TO AOR 23· DATA INCe IF SO HANG. EXPECTED RESULTS
33445556 ** *RO*U*TI*N*E ·2*2*M*B*AR**IN*TE*R*AC*T*IO*N****········$·······································*
33445578 ****M**A*C*R*O*-*lo**~*I*O**H*O*B*·O··C~/C·l·:O··O·O·O······¥$$$········*·*·*···················*
28t>2 0584 .C804 0545 2806 £1405 '21!11:>8 9COA 260A 5009 28DC 112 0 28l>E 9COF 28EO F380 28E~ 9C13 28E4 5005 28!::6 1010
2aee Fo1e
2EEA 900C
28EC 5018
2803 3392 zeos 3393 2807 3394 2809 33~5 2808 3396 2800 3397
280F 3398 28El 3399 28E3 3400 28E5 3401
28E7 3402 281:9 3403 28E8 3404
28EO 3405
DC
XL2 1 0584· 05 LE· WRITE FROM HOB 4 TO MSGe BUFFER
oc
XL2 ·0545 ·
06 LE· "'0VE DATA TO HOE! 05 FROM PhS·
DC
XL2"B405· 07 ClR. CHECI< DATA
oc
Xt..2·9COA· oa eoc. 3 BRilN(;H IF DATA OKAY
DC
XL2· 5009·
09 ERROR· HANG
DC
XL2 1 1110· CA INC~ INCREMENT MBAR LO
DC
XL2 9 9COF 0
oe BOCo3 IF ZERO, INCREMENT HI
DC
xt.2·F380· oc TBNo TEST FOR OATA TC SE INCP.EMENTEC
DC
XL2"9C13· 00 aoc · .3 BRANCH IF so
OC
xt.z·soos · OE eos. 0 LOOP
OC
.XUP 1010 ·
OF !NCfi l"CREMENT NBAR HI
DC
XL2·F016·
10 TBN~ TEST FOR ENO
DC
Xt.2°900C ·
u eoc~ 0 ff NOV RETURN TO LIJ(iP
DC
Xi..2·5018.
12 BOSeO BRANCH TO READ U)OP
le
jc
I
2946 22
I
2947 00
29!48 2A49
3459 ·
·
* 3460
MICR0-1· MBAR TO CURAR STROBE§
3461 *
INSURE M6AR=CURAR.
* *
* 3462 Ill<
3463
WRITE HEX "FF'- TO ALL l>-OB·S THA·r ARIE *ONE-AOOR-BIT· AlriAY~ "'
ENSURE MBAR ST!LL EQUA~ CURARe
$
* 3464 * 3465 * 3466 * 3467
NACRo-2 MI CR0-2
LIO TO ALL HCS'S T~iAT ARE ·ONE-AODR-SIT·AWAY ·ITH DATA OF FFFF.
INSURE MS'11R STil..L EQUAL CURAR..
* * *
3
* 3466
*
3469 *****e************~····~··***~*****$*******·********···~·*~~~**********
2946 3470 ~T2'
OC
XL1·22·
ROUTINE NO ..
2947 3471
DC
XLt·oo·
2949 3472
OC
Al...2(RT23}
28EE 1410 2SFO 9Cl6 2SF2 5005 28F4 141 0
2SF() 5005
28EF 3406 28F1 3407 281"3 3408
28F5 3409
2 f!F 7 341 0 341:!.
DC DC DC
DC
DC
XL2C 1410.
XL2·9CJ6 · XL2 1 5005·
XL2·1·no· x1-2·soos·
1:=! JNC. INC HOB 4 TO NEXT DATA TO BE USED 14 60Se 3 BRANCH IF ZERO 15 BQS90 RETURN TO WRITE LOCP
I NC~ !NC MOB 4 AGAi N
eos00 F<?ETURN TO lllRITe l~OOP
I
11' lr..·
294A CO 87 021A 2cuE 01 294F 18 2950 2960 2952 CO 87 296E
3473 3474
294E 3475 29llF 3476 2951 3477
3478
B
PRINT
oc
XL1'01·
tL1·24w
oc
AL2rn42HDIU
OORT42
3412 ·
RiEAO LOOP
2956 09D6E4E34"FZF ~O 2960 3479 R4.'i!HDP. Dt:
Cl.24°ROUT 22 t4BAIR INT!.':RAC1'10H·
28FS 72FF 28FA 7001 2.SFC 7100 4!8FE 24!1 2900 7599 2902 05415 2904 8405 2906 9C..21 2908 5020 290A 1110
3413 2SF9 3~14
28F8 ~415
28FD 3416 28FF 3417 2901 3418
2903 34·19 2905 :5420
2907 :s·:u
2909 3422
i9o8 3423
oc
DC
XL.2· 72FF · XL2·7001 ·
= 18 !Ct SET HOB 2 READ FLAG = 19 IC· RESET MaAR HI 01
DC
XL.2·7)1.00·
l Ill ! C· RESET "48AR LO
DC
XL2'2411 · 18 LR~ SET HOS 4 TO Of.TA EXPECTED
DC
XL2·7S99· 1c ICe PUT 99 IN HOO 5
DC
JQ..2 9 0545· 10 LE· READ MSG. SUF. TO HOB 5
DC
oc
)(l...2·6405· XL2'9C21 ·
J.E cu~. CHECK FOR EXPECTED ElESVLT 1F SAANC~ JF OKAY
DC
XL:2· 5020'
20 ERROR, HANlit
DC
XL2 9 1110 ~ 21 !NC· INCREMENT MaAR LO
I
I
I \
le
1-~
295E 04C2 Cl 0940C9DfE3
2966 C509C1C3E3C90 ms
3479 3479
296E CO 87 5918
34·60 DORT42 0
2 '972 SF 29't3 29F8
2972 3481
DC
2974 3452
oc
2975 2A42
2971' F J se 80
2976 3483 3484
DC SI 0
297A 31 48 0062
3485
~IO
297E CO 87 54FE
3486
S
2982 70
2982 3467
oc
2963 5023
2984 3488
oc
1..oAocs
>C!..1 "SF· Al..2 ( R42 NC$ ) Al..2( R 42MCE J ioao· .. s101 ::seROetiDSO DONICA Xi!.J. !70·
Xt~2:· 5~.23·
LOAD NlCROCCOE le FILL !!fl TH aOS-TIJ-llooR
DX sASLE RESET
MBAR & HOB oo;01·ZERQ
GO DO Ml CAOCODE 1 <> ERROR HALT ?()., EXPECTED RESULTS
290C 9C2B 290E F380 "910 9C26 2912 501C 2914 1410 2916 9t.29 2918 501C
291A 1410 291C: 501C:
2900 3424 290F 3425 29U 3426 2913 3·27 2915 3428 29!7 3429 2919 3~30 2~HB 3431 2911) 3432
3433 "'
DC
DC
DC DC DC
oc
DC
DC
oc
READ
XL2·9C28· 22
XL2RF3BO G
23
XL..!·9C26·
24
X1..2e so1c· 25
lCL2 1 1·UO·
26
XL2'9C29· 27
a2· so1c · 2e
l!;L2 9 l4HP
Z9
x1-2~so1c·~
2A
LOOP ENC TE ST! ~G
eot.. 3 TO AODR 2B IF ZERO TeN~J .. eo TEST FOR DATA 1NCRaMENT
eoc.3 TO ADOR 26 IF so
aos.. o TO AOOR lC TO AEAO LOOP
ee INC t1D6 4 TO NEXT DATA TC
USED
soc.3
SR TO AOOR 29 IF ZERO
eOS@O TO AODR 1C TO REAO LOOP
INC HOO 4 AGAIN
aos. 0 TO AOC" 1 C TO READ ll..OOP
,~
IA
,~
lo
I,o
-2985 F:S 58 80 2968 31 49 0059
298C 31 4A 0059 2990 31 48 0059 299'4 31 4C 0059 2998 51 40 0059 299C 31 4t; 0059 29AO 31 4F ®59
34.59 349(1 $ 3491
3492 3493 3494 3495
3496 3497 3491:!
ST ART MACR0-2 ..
sxo x·ao·11s1101
l.10 XFFFF .. HOBI
LIO XFPFFsHOB2
LIO
#'FFF .. HOB3
LIO XFFFF,HQB4
LIO XFFFF,HOBS
LIO xrFFF.HDB6
LlO XFf'FF1tHDE!7
DISABLE RESf!f HOS 021'0.J=FFFF HOS 04/0 S.-=FFIFF
H08 061'07cFFf'F
HDB OS,1'09=FFFF
HOS 0 A/O 6"'FFFF HC6 OC/OOuf=FFF HDB OE/OF=FFFF
291E lOHJ 2920 EOOS 2922 9C35 2924 EOOE 2926 9C3.S 2928 EOl 0 292A 9C3C
2'il2C EOHl ~92E 9C3E 2930 5023 2932 F.301 2934 9t:23 29.36 503E 2938 F302 293A 9C:23
DATE
0T.IULl'5
EC wo .. 825023
291F 343'4
2921 :;.435 2923 3436 2925 3437 2921' 3438
2929 3439 2926 344-G
2"iH?D 3441
292r 3442
2931 344-3 2.933 .3444
2935 3445 2931' 3446 2939 3447 2938 3448
DC t>C
oc oc
~
DC
DC IX DC
DC
oc
O(;
DC
DC cc;
XL2~1o:i.ot
~t.2· E ooa·
Ja.2·9C35" XLV EOOE 0 XL<:· 9C.38· )IL;?.·fOIO·
m...<i· 9C3C·
XL2'EOU!JO
X:Li<9C3E~
xu?e so231
XL2·F301 t
Xi..2'9CZ3· x:..2· 50JEil Xt.2·F.302o
m..a·9C.2:s"
2e UK MBAR HI 2c c1 o .. x·os 20 BOC~ 3 2E c:1 i::~.x·oe 21" eoi::;,,3
30 ci o.x·HP
31 ace~ 3
::l.2 Cl o.x· u1·
em:~ 3
eos .. o
TBN :hx·o1 ·
i30Ce3 BQS.,o
T8N 3sX'02 1
soc .. 3
29A4 FJ 56 CO
I
29A 7 31 46 0059
TEST FOR 1ST ACOR 01" FE:l 2
BA TO ADDA JS IF SO
TEST FOR 4TH QUAO OF FET c
BR TO ACDR 36 IF SD
TE SY FOR 1 Si f\ Of)R or FE l !>
BR fO ti·CIDR :SC lii" SO
\ C· l I I
29AB 31 49 0059 29AF 31 4 A 0059 29B.3 31 48 0069 2987 31 4C 0059 29BB 31 40 0059 29BF 31 4E 0()59
MAXI MUN Aoo!Re:SS? TO END AT AOOR O::IE·
I
29C3 ::!£ 4F 0059
29C7 .:Sl ae 0059
SR T 0 AOOR 23 T t! DATA l!N(:
29C6 31 89 ooso
TEST FOR FET 2 !NST FLAG TO AOR 23. UATA tNCs J~ SO
OTHERWISE SR ·TO 3E9 ENDe TEST FOR FET 3 INST FLAG
I
II(,".,;,
29CF 31 SA 0059
29D3 31 es 0059
?9D7 31 ec 0059
29DB 31 so 0[)$Q
TO ADA ~3 5 CATA lNCe PROG ID
-21'· IF SO OS"'!
29DF :u SE OE>59
. Qj;.TE
07JUL75
25CCT75
3~99
3500 3501 3502 3503 3504'
350S 3506
3S01' 3508 3509
3510 3511 3512 3513 3514
PAGE
28 1 EC NO' 825023
82!032
:.10
510 LIO
Li c
LlO l.i C
LIO LHJ
LU1
LIO
t.Hl
1..10 t.I 0
LIO LIO LlC
uo
x·cot eSIOl
XFFFF~HOl!O
XFFFF ~tme1
XFFFF~HOB2
XFFFF ~HOE3
XFFFF ·MOB4
XFFFF~MOBS Xl"Ft'F~HD!e6 XFFFF~HOB7 XFFFF.,~~ase
XFFFF o X· "19t
XFFa;F~X~f!iA' XFFFF0X~8i:h
XFFFF t x ~ ac ·
XFFFF~x~sD·
XFFFF {I )(Ii se·
E~ABLE ATTACHMENT HOS 101'1t=FFFF
HOS l2.... 13"""li"FPF
H08 14.'15'.#FFFF
HOB 16/17""-FFFF HDB i ev1 g:e:FFFF HOB 1A.11S,..FFFF HOO U:..ltDJFFF HOS J.E.f&F=ll"FFF LOAD
Hi
HOB'S TO FFff
PROG 10 PAGE
089&-2 28A·'
lo
I
·· · · · · · · · · · · · · · · · · · · · · · · · · · · ·· ·
i l.
·, j
IBM MAIN1ENANCE DIAGNCSTIC PROGAAM
e912
DI SPLAY ADAPT IR TEST
ERR LOC OBJECT CODE
AOOR STMT SOURC:E STATEMENT'
NRT NO. PAGE
4234255
IBM MAINTENANCE DIAGNC:STIC PROGRAM
29 \..:,
.. 8912
( ..
DISPLAY AOAPTER TEST
ERR LOC OBJECT CODE
ADDA STMT SO\RCE STATEMENT
PART NOe PAGE
29E3 31 8F 00$9 29E7 CO 87 5918
29E8 BF
29EC 2443 29EE 2A48 29FO CO 87 54FE
29F4 71 29F5 5002 29F7 co 87 0216
29F8 1704 29FD 5403 29FF !5002
2A0l 72FF 2A03 73FF 2A05 74FF 2A07 75FF 2A09 78FF 2AOB '79FF
2AOO 2029
2AOF 2129
2All ~229 2A13 2329
2Al5 2429 2Al7 2529 2Al9 2829 2AlB 2929 2A10 2089 2A1F 2189 2A21 2289
2A2J 2;,99
2A25 2489 2A27 2589 2A29 2889 2A2B 2989 2A2D 20A9 2A2F 21A9 2A3l 22A9 2.A33 23A9 2A35 24A9
2A37 2SA9 2A39 28A9 2Al8 29A9 2A3D 5423 2AJF 5022 2A41 5023
2AO 5402 2A45 5001 2A47 500.2
3515
LtO XFFFF.x·eF·
3516 R42M12 B
LOADCS
29E8 3517
DC
JILl·BF·
29ED 3518
DC
AL.2(R421tCI I
29EF 3519
DC
AL2(R42MC2)
3520 29F4 3521
29F6 3522
B
DOMlCR
Dc· XL1'71·
DC xu·soo2·
3523
B
LINK
352·
* 3525 START OF MtCROCODE 1·
GO LOAD MICROCODE 2.
c
GO DO MICROCODE 2 ERROR HALT EXPECTED RESULTS
·---------------------** 3526 ·--------------
-·
3527 1111 START OF MICROPROGRAM LISTING
3528
29FB 3529 R42MCS EQU ·
29FC 3530
DC
XL2' 1 704· 000 SSN A MBAR TO CURAA STROBE
29FE 3531
DC
XL.2·5403· OD1 eos.1 TO ADDA 003 IF MBAR==CUAAR
2AOO 3532 2A02 3533
DC
XL.2'5002· 002 eos.o ERROR. HANG
DC
JCl..2·72FF t
003 IC 2.x·FF·
c
2A04 353·
DC
XL2'73FF 1 004 IC 3.X·FF'
2A06 3535
DC
XL2·74FF· 005 1c Ahx·FF·
2Aoe 3536
2A0A 3537
DC
JCL.2'75FF · 006 JC e.x·FF'
DC
XL2·78FF· 007 JC e.x·FF·
2A 0C 353 8
DC
XL.2 1 1'9FF' 008 IC 9eX1 FF·
2A0E 3539 2A10 3540 2Al2 3541 2Al4 3542
OC
)(L2·2029· C09 LR 10·09
DC
XL21 2129'
OOA LR 1h09
DC
>CL2'222g' 008 LR 12,09
CC
XL2 1 2329· ooc LA 13109
2Al6 3543
DC
XL21 2429'
000 &.A 14,09
2Al8 3544
DC
>CL.2 9 2529· OOE LR lfh09
2AIA 3545
DC
JCL2'2829 1 OOF LR 189 09
2AIC 3546
DC
>Cl..2'2929', 010 LR 19·09
2AIE 3547
DC
l!L2 1 2089' OU LA 20,09
2A20 3548
DC
XL2'2189· 012 LR 21t09
2A22 3549
DC
)d..2 1 2299· 013 l..R 22.09
2424 3550
DC
X~2'2389·
014 LR 2.1·09
2"26 3551
2A28 3552
DC
XL2'2489' 015 LR 24,.09
DC
L .2 '2589 ·
OJ6 LA ae.09
( ...\
2A2A 3553
oc
xu·2ee~··· 01'7 LR 28,09
2A2C 3554
OC
Xl..21 2989 1
Ol8 LR ztJ.09
2A2E 3555 2A30 3556
DC
>CL2'20A9 1
019 LA 301 09
DC
XL2'21A9' OlA LA 3h09
2A32 3557 2A34 3558
DC
XL·2 1 22A9 1 018 LR 32.09
DC
XL2~23A9' 01c LR :U.09
0
2A36 3559
DC
)!\.,2 1 24A9' oao LA M,09
2A38 3560
DC
lQ..2 1 2.!A.9· OIE LA 3t!t09
2~A 3561
OC
XL2'2·A9' OlP LR 3a.os;
2AX 3562 2A3E 3563
DC DC
JCL21 2cJA9· JCL2 1 54a3·
.F 020 LA 39,09
021 aos.1 TO AODR 023
MeAR~CURAR
2A40 3564
DC
JCl..2' 5022 · 022 BOStO ERROR, HAWG
2A42 3565 R42MCE DC 31566
-.2·15023· 02~ eos,c
3567 · - - - - - - -...._.._.._..___._.~------_...._....
£XPECTEO ReS~LTS
c
33556698 .·_..S.T_A_R__T_O_F_ MICROPROGRAM · _...._.__ ~ISTING ...__~--··-~-~·
· 3570 R42NC a eou
c
3571
DC
>CL 2. 5.402. 000 eos.1 TO ADDA OQ2 IF MSAR~CURAA
3572
DC
3573 R4a4C2 DC
x1..2·soo1 ·
Xl..2·5002·
001 BOSoO
002 eas.o
ERROR· HANG EXPECTED RESULTS
vr1
3574
3575 ....................................................................... ()
* * 3576
ROUTINE 23 - ATTACHMENT CHECK TESTS
*·········* 357'7 ............................................................
3578 · 3579 · 3580 ·
THIS ROUTINE Tes-rs THAT ALL DIFFERENT TYPES OF l'tirllCt'IMENT CHECKS CAN BE DETECTED· IT ooes THIS av USING DIAG. L~TCH 2
Ill: ( )
~
·
3581 ·
tlHICH CAN 9LOCIC THE PARITY EITe
·
:S5&2 ·
"'
2A49 23 2A4A 00 2A4B 2880
2A4D CO 87 021 A 2A51 01 2A52 18 2A53 287F
2A55 co 87 5918
2A59 01 2ASA F3 58 84 . 2ASD 31 59 5D8D
2A6l F3 58 80 2A64 F3 58 EO
2A67 co 87 61E6
2A68 80
2A6C 5D 2460 co 87 5038
2A71 F3 58 84
2A.74 31 59 5060 2A78 F3 58 80 2A7B F3 58 EO 2A7E CO 87 61E6 2A82 80 2Al!l3 5B 2A84 co 87 5038
2A88 F3 58 84 2A es :u ·A o::>s6
aA8F F3 58 80 2A92 30 4A 5FE6 2A96 CO 87 61E6
2A9A 88 2A98 SA
2A9C F3 58 co
2A9F 31 sa 2aSF 2AA3 F3 58 80
2AA6 co 87 54FE
2AAA SE
2AAB 5001 2AAO CQ 87 61E6 2AB1 88
2A82 SF
·8 2AB3 F3 58 co
2AB6 31
2e61
2A8A F3 $8 80
2AS0 CO 87 S4FE
2Actl 6Q
2AC2 5001
2AClll. CO 87 61£6
2AC8 88
2AC9 61
2ACA 31 49 0056
2ACE 31 4A 0056
2A02 F3 68 84
2AD!I 31 48 3198 2AD9 Fl $8 EO
2ADC co 87 6lE6
2AEO 81
2AEI 62
3583 .........................................................................
3584
2A49 3585 RT1!3 DC
2A4'A 3586
DC
2A4C 35S7
DC
lll..l· 23·
XL1'0' AL2(RT24)
RCUTI NE NUM!ER NO MANUAL INTERVENTION AOCRESS OF NEXT ROUTINE
3588
3589 2A51 3590
B
PAINT
DC
XL1·01·
PRINT ROUTINE HEADING
2A!52 3591
DC
ILi '24·
2A54 3592
DC
AL2CRT18CP)
3593
3594 2A59 3595
3596 3597
3598 3599 3600 2A6B 3601
B
LOADCS
oc: XL1·01·
SID JC' 84· .s1 Cl
LJO x22os.OPOEC
SlQ x·ao·,stct
SJO X·EO· ·SIDI
B
TSTCHK
DC XLl ·ao·
.Ge PUT eos OeAOOR IN CTAL STORE
1ST 256 tllOROS
·CISABLE ~ SET DIAG 2 LATCH eLOAD OP DECODE ·ITH BAD PARITY
eDISABLE ATTACHMENT .ENABLE MIC~Q CCNTADU.EA
·OP OECOOE CHECK SHOULD l:e
PE;eDING
2A6C 3602 3603 3604
DC
XL.l·so·
B
LOOP
· Ef;ROR HALT -50eGD RESTORE OP CECODE RE.GS·
3605 .,606 3607
3608 3609 2A82 3610 2A83 3611 3612
510
LIO SID
SIO
B
DC DC
B
X·84··SJOI X1415·0PCEC X·80·eSIOI X·EO·tSIOI TSTCHK
XL.1·eo· XL1·SB· LOOP
eOISABLE ~ SET DIAG 2 LATCH .PUT BAO PARITY IN OP DECODE eDISABLE eENABLE M1CROCONTROLl.ER
eOP DECODE CHECK StCDU&..O BE PENOlNG
.ERROR HALT -98eGO RESTORE OP CECODE REGS
36U 3614 3615 3616
SIO x·a4·,s1c1
L'O XAA55.MDl!l2
eDISABLE S SET DIAG 2 LAtot ePUT BAO PARITY IN MOB 4-5
3617 ~618
3619 2A9A 3620
2A9B 3621
3622
SJO x·ao·.&IClI
SNS $TATAC·"DB2
B
TSTCHK
DC XLl ·aa·
DC
XLl·SA·
eRESET A TTACHMEMT eCALISE ATTACttMENT CHECK eHDB.IEXT PARITY CHECK
SHOJ.LD BE PENDING eERAQR HALT -SA-
3623
3624 3625 3626 2AAA 3627 2AAC 3628 3629 2ASI 3630 2A82 3631 3632
Slo x·co·.s101
LIO X2204 sC'fSTQA
SIO x·ao· .stat
e
DOMlCA
DC
Xt..1 1 51;·
DC
xt.2·soo1 ·
B
TSTCt-itc
DC
XL1 ·ae·
DC
XL.l·!SF·
.ENABLE ATTACHMENT
eLOAD lST WO · &..R"HOB 4 TO 2 eDISASLE ATTACHMENT
.GO DO PRG
·ERROR HALT -SE·EXPECTED RESULT .HOB CHECK SHOULD BE PENDi NG
FROM BAD PMllTY ON A REGe .,EARoR HAL,. -5F-
3633 3634 3635 3636 2AC1 3637 2AC3 3638 3630 2AC8 3640 2AC9 364!
3642 3643 3644
510
LIO SID
B
DC
oc
B
DC
DC LIO LIO
x· c: o· ·SI (II
X2!5<>3· CTSToR
x·ao· tSIOI DOM I CR
Xl., l ·60·
X&..2 1 5001· TS'!CHK
XL1 ·es·
XLI '61'
XA"5S .Hoe1
.>cAA55 eHDS'
.etwA8~E ATTACHME~
·LDAO 1ST -0 · LR 3 TO $ .DISABLE ATTACHllENT .Gil 0(] PRGe
eEPRGR HAL. T -6...
·EXPECTED RESULT .HOS CHECK SHOULD SE PENOING
FROM BAO PARl TY ON B REG.
·E~RCJA HAL~ -61-
ePUT GOOD PAAlTY .N HOB a-3 ·PVT GOOD PARlTY iN HOB 4-5
3645
3646 3647
3648 2AEO 3649 2f\El ,660
SJO LIO SJO B
DC
oc
X· 84 · ·SI QI XOl 55 tt10BO X·EO'tSICI TSTCHK
XL.1'81'
XLl ·ea·
.otsABLE & SET DIAG 2 ON ePUT BAO PARITY J~ NSAA LO .ENABLE MeCe & REsET DJAG 2
·CCNTROI.. STCRE ADDA. CHECK SHOULD BE PENDING
eERAOR HM..T -62-
DUE
07.IULl'S
EC NO. 829023'
2.5<CT?$" 82to32'
·
PROG ID PAGE
07.NL75 825023
··
···
PRocr ID
PAGE
IBM MAINTENANCE DIAGNCSTIC PROGRAM
PART ND. p"GE
c 4234255 30
1814 MAINTENANCE DIAGN CST IC PROGRAM
PAAT NOe PAGE
8912
DISPLAY ADAPT ER TEST
ERR LOC OBJECT CODE
ADOR STMT SOURCE STATEMENT
"" 8912
(:
DISPLAY ADAPT IR TEST
ERA LOC OfUECT CODE
ADDA STMT SOURCE STATEMENT
2AE2 F3 58 84
2AES 31 4 8 SAOB
2AE9 F3 58 eo
2AEC CO 87 61E6
ZAFO 8l
2AFt ee
2AF2 31 4e 0058
3651
3652 3653 36S. 3655 2AF0 3656 2AF1 3657 3658
SIO x·a·· .sto!
LID WUfhHDBO
SlO x· eo· .s101
e
TSTCHI<
DC
DC
XLl·6&·
LIO X0202eHDB0
eClSASLE £ SET OJAG 2 .PUT BAD PARITY IN MBAA HI ·ENABLE MC. &RESET OIAG 2 ,.CONTROL STORE AOOR. CKECK
SHOULD BE PENDING ·ERROR HALT -68ePUT GOOD PARITY IN M6AR
2AF6 F3 58 E4 2AF9 CO 87 61E6 2AFD St 2AFE 68
3659
3660 3661 2AFO 3662 2AFE 3663
SIO x·e·· ,,sun
B
TSTCHK
oc
DC
~ENABLE M~Co ~ITH D!AG 2 ON
.CONTROL STDRE AODR CHECK
~HOULD BE PENO[NG .ERROR HALT -61."!l-
2AFf' CO 87 5918 2803 01
3664 l665 2803 3666
El
LOADCS
DC
.. Go PUT Bos .. o ADDR IN CONTo STG .. ;
28'34 F3 58 co
2801 30 58 5FE6 2808 31 58 286?
280F F3 se 80
2812 F3 58 co
2815 30 58 5FE6 2819 F3 !SB E4
2HC: CO 8? 61E6 28!0 32 2f:l21 6D
2622 F3 58 CO 2825 30 58 5l"E6 2e29 F3 58 EO 2a2c F3 SB 80
3667 3668 3669 3670
3671 367a
3673 3674 3675 · 3676 · 3677 2820 3678 2821 3679 3680 3661 3C>82
368:.!! 3684
SIC x· co~ .sl(JJ:
SNS STA1ACeClSTOR
LIO X0584.CTSTQR SIO xoeo· .s101
SIO x·co·.s101
SNS ST AT AC. C:TST OR
SlO
B DC
oc
SIO
$NS
S!O SJO
TSTCHK
X·COt eSIOI STATAC 0 CTSTOR
x· EO· ..,5101 xeeo· cSIDI
eENABLE ATTACHMENT ,. INCREMENT I d AR .LOAD WORD IN CONT. STORE oDisABi..E ATTAC~ENT oENABLE ATTACHMENT · tNCREM~NT tUAR oENABLE MeCe & SET DIAG 2
PROG. ~ILL LR FROM HOB 4 Ta MeBo WITH BAO PARITY .CONT. STO~E wRITe DATA CHECK SHOULD EE PENDING oERRDR HALT -60-
,(
c
eENABLE ATT~CHMENT e I N(.REMENT MJAR eENABLE M.C. RESTORE GOOD DATA eDISABLE ATTACHMENT
2880 24 21381 00 2ea2 2oc7
2884 co 87 0214
2888 01 2889 31 2B8A 208A
2eec 3s oe 02oe 2890 co 1.0 0216
l!B94 35 01 020A
2898 co 67 5918
269C 91
3685
2B2F F3 58 C4
2832 31 se 2B63
3686 3681'
SIO.
LIO
x·C4'! oSIOI XElOJ. 11CTSTOR
.ENABLE WIT~ O!AG 2 ON cWRITE BAD PARt1Y EVEN BYTE
2836 F3 58 80
2839 F3 se eo
3668 368111
s10 SI 0
x·&O·eSIOI
eD!SAEILE .. ENABLE M.,c,.
2B3C CO 87 61E6
3690
8
.c.s. OATA Od!C~ sHOuLD ee
2840 84 284l 74
2840 3691
DC
2841 3692
oc
PENO ING
oERROR HALT -?4-
2842 F.1 68 C4
2845 :u 58 2865
.1693
3694 3695
SIO x· C4· .sun
LJO XE003eCTSTOA
eENASLE WITH DlAG 2 ON .~RITE BAO PARITY ODO BYTE
2849 F3 58 BO
2B·C F3 ss eo
284F C 0 87 61E6
2653 BC
2854 7B
2855 co 87 5918
2859 01
2B5A CO 87 0216
:1696 3691' :5698
2853 3699
zeslf 31700
3701 2859 3702
3703
SIC )l'·ao· .. srot
SlO x·eo·.sio1
B
TSTCHK
DC xa.1· ec·
DC
:xa..1·78·
B
LOAOCS
oc
X&..1· 01'
e
LINK
eDISAEILE
.ENASl..E M.,C,.
-c· S· DATA AND HOB/EXT CHECKS SHOULD ee PENDING
£v!''.',
.ERROR HALT ·78-
oGD PUT (~OD PARITY IN C·S·
c
.GO TO NE~l ROUTINE
3706
2B5E 2204
2S6f' 3705 X2204 DC
X!..2· 2204'
2860 2503
2861 3706 X2!!03 DC
XL.2· 2503·
2862 EIOI
2863 3''07 xe101 f'.>C:
xL2·1uo1 ·
2864 E003
2865 3708 XEqQ3 DC
JCL2·E0038
2866 0584
2867 3TM X0584J DC
>CL.2'0584t
2868 0906E4E340F2F .::40 287F 3'110 RT!80P De
CL.24- 1 ROUT
2610 Cl E3EJC1C3C8D «CS
3710
2B7& 05E34 OC3C8C$C .:02
3tto
33771112 31'13
.*:O........*.·.·.R·.·O.·I.J·.T·.I·N.·.E·..·2.·4.·.·-.·.*C.*O.*N.*.T*.A*.O*.\..*.*S.*T.*O.*R.*E.*.:.*S..*.C.*,A.,*.N*.*.*.*.*..*.~.·.·.·.·.·*·········-·····$·$$·!1·11·1·<$·,.·*·*·*·*·"'·*·"·'::'
0
3714 ·
'* 371$ O
3116
THIS ROUTINE WILL EXCERClsE ALL OF CONTROL STQ~AGE JNC;LUDING THAT PART lf.HICH IS USEO .AS THE MESSAGE BUFFER.
c.,:
·*i;
28'° 2004
289F 2DO!S
2BA1 co 87 591$
2BA5 32
co 2BA6
87 5918
2BAA A4
2BA8 20()6
28AD 2043
28AF 3A 01 &540
2883 3C lA 5563
289? F3 SB CO
2SBA 31 4A 2DSC
2BBE 31 4B 56'=4
2ec2 co 8? 54Fe
28C6 88
2BC7 !SUE
2BC9 OD 01 5FE6 28(8 28CF CO 01 27BA
2803 co 87 5918
2607 83 2608 2044 28DA 2081
2BDC 3A 01 5~40 28EO 3C 1A 5563
28E4 F3 56 co 2BE7 31 ·A 56F4
aeee 31 48 20BE
DATE
01'JUL'P5
ec NO. 925023
25CCT?5 82t032
PAoG to
PA6E
e I
I
0991-2i
DATE
OEC 30 i
NO.
07JUL75 825023
I
'·I
I
t·
* 3717
3718 ·
* 3719
3720 ·
* 3721
3722 ·
3723 ·
3724 '* * 3725
* 3726
3727 *
3728 ·
* 3729 ·
3730
IT DOES THIS BY P~TTING INCl'E·ENTING DATA 1~ EACH SYTEe 256 PASSES ARE MADE SO THAT EACH bYTE WILL HAVE ALL COMBINATIONS
* ·
OF DATA IN ITo THE DATA IS WRITTEN AND REAC ANO C~ECKED USING · MBAR AND MICROPROGRAM TO ADDRESS EACH BVTE.
·· THE ROUTINE IS DONE IN TWO PHAS~S· IN THE FIRST PHASE· THE · MICROCODE IS LOAOEO IN THE 3RO 256 WORDS ANC T~E FIRST 1024
SYTES ARE EXCERCiseo. THEN THE MICROCODE IS LCADED IN THE FIRST 256 WORDS ~NO THE 2ND 1024 BYTES ARe EXCERClSED·
·
IN A MACHINE ~ITH 2 STGSe THERE ARE 4 PHASES DCNE TO TEST BOTH STGS. !N THE FIRST TWO PHASESo THE lol!CROCOOE IS IN 'l'HE 2ND S7G AND THE 1ST STG IS TESTED. ERRORS IN ~HE lST STG ARE
DENOTED BY HALT -ee-. IN THE NEXT TWO PHASES· THE NICAOCOOE
·"··'
IS IN THE tST STG AND THE 2NO STG IS TESTEO. ~RORS !N THE
2ND STG ARE OENOTeo av HALT -ac-9
·
3?31 ·
3732 ····******··**********~******······$********······e·················$·5 3733
2880 3734 ~T24
DC
2881 3735
DC
2B83 3736
DC
ROUT I NE NUMBER
NO ~ANUAL INTERVENTION ADORE SS OF l\E~'f Fl001' U'll:E
3737
3738
B
?RltNT
2888 3739
DC
xa..1·01·
2ee9 3740
DC
IL1·49·
2888 3741
DC
Al.2(RT2DCP>
3742
3743 3744 3745
TBN ST SBF
SBYTE3wSS'111C
LINK
SBVTE2· SSW 1?
eTEST SSl!l IC ON ·IF SOe SKIP THIS ROUTINE eRESET SE~SE S·ITCH 1?
3746 st.
* 3747 SEGIN TESTING LO HALF OF FIRST STORAGE ·ITH
3748 · THE MICROPROGRAM RUNNJNG IN THE M HALF
3749 RT19ST ~
LOAOCs
~Go LOAD lST 256 WOADS ~tTH A
2B9C 3750 RT19M1 DC
XL1 ·~1 ·
·ITH A SRAHCH TO 3RO 256
2B9E 3751
OC
Al.2(R20MCS)
2BAO 3?S2
OC
AL2(R2DMCEt
3753
8
LOADCS
.. GO PU'T SOS TD ADDR. IN TKE
2BA5 3754
3755
OC
XLt·32·
B
LOADCS
2NO 256 WORDS
.. GD PUT PROGRAM IN ·RO 256 WDSe
2EIAA 3756
DC
XL1 8 A4·
2BAC 3757
OC
Al..2(R20MCU
2BAE 3758
DC
AL2<~20MC2>
3?59
3760 3761
SBN NVJ
EH8Pe X· 01 ~ LPCNT-1 e X11 IA t
cSET ERROR HALT eYPASS DN .. exTeND LOOP COUNT
3762
SID .lCcCO· eS!CJI
ENil'Bl..E ATi'ACHMENT
3"763
L.10
3764 3765
LIO
e
2BC6 3766 RT 19M5 DC
~sea 3767 R2DEX1 DC
XOOOO·HOB2 X0400.HOe3 DOMICR
XL la see x1,..2es21 e·
PROVtDE START AODft PROVIDE ENO ADDR
eGCJ 00 MJCACPRQGRAM
.E~OA HALT -ee- OA
.. EXPECTED RESULT
3?66 3769 3770
a..c
SNE
STAT AC( 2 hR2DE"1 lill 7.PO
eTEST FOR £ARDA
·PA~fff OUT tF ERROR
3771
* 3772
3773 ... eEGIN TESTl~G HI HALF CF FIRST S'l'ORAGE W1T1't
* 3774 lHE MICROPROGRAM RUNNING IN THE I.Ott MAL.Fa
3775
e
LOAOCS
.LOAD 2ND ·tCAQPROGGAN
280'7 31'76 R~19M6 O~
XLl 1 83·
2809 31'T?
OC
At..2(R20MC3t
2eoe 3778
OC
""-2(R2DMC4)
37'79
:nao
37'81
$8H
MVI
EHBP·X· 01s LPCNT-l11XGIAe
eSET ERROR HJl;\..T $YPASS ON ..e :KTe NO LOOP COUNT
3'182
SIO X·CO· e$10!
ENABLE AT1' ACHM ENT
3783 3784
L.10 X0400eHOB2 L!O X0800eHDe3
~'VIOE $TMlT ADDA
PROVIDE ENO ADDR
15<11MC?6
e~:s·
el1'
· · · · · · ·
· · · · · · ·
· · · · · · · ·
·
·
· ·
·
·
·
·
·
IBM MAINTENANCE DIAGN CSTIC PROGRAM
PART NOe PAGE
4234255 31
IBM MAINTENANCE OIAGNCSTIC PROGRAM
PART NO. PAGE
4'234299 3lA
8912
DI SPLAY ADAPT tA TEST
ERR LOC OBJECT ''cooe
Al)OR STMT SOlRCE STATENE....T
8912
(
DI SPLAY ADAPT ER TEST
ERR LDC OBJECT CODE
ADOR STMT SOURCE STATEMENT
2BEF CO 67 54FE 28F3 88 2BF4 SOlE
2BF6 OD 01 SFEo 2Bf5 2 BFC CO 01 27BA
2COO CO B7 5918 2C04 9F 2COS 2oa2 2C07 2083 2C09 CO 87 5918 2COO F3 2COE 2082 2Cl 0 2083 2C 12 20 2C!3 CO 87 5918 2C1 7 EF 2Cl8 2006 2C1A 2043 2C IC 20 2Cl0 3A 01 5540 2C21 3C lA 5563 2C25 F3 58 CO 2C28 31 4A 20BE 2C2C '.31 48 20CO 2C'30 CO 87 54FE
2C34 ac
2C35 521E
2C37 OD 01 SFE6 2eca 2C30 CO 01 27BA
2C41 2C45 2C46 2C48 2C4A 2C4E 2C4F 2CSl 2C53
CO 87 9F 2084 2085 CO 81 EF 2044 2081 20
5918 5918
2C54 3A 01 554D
2C58 3C lA 5563
2C5C F3 se co 2CSF 31 4A 2oco 2C63 31 ·e 20CZ
2C67 co 87 54FE
2C68 ec
2C6C so1e
P.C~E 00 Ol 5FE6 28f5 2C74 CO 01 278A
2C. 78 se 02· o..,oc 2C7C co 90 0216
.... 2C8.0 co 87 5918
2C84 2C85 21)86
3785
8
COMICR
.GO DO 2ND MJCROPROGRAM
2SF3 3786 ~Tl9N7 CC
XLt ·Se·
.ERROR HALT -ee- OR -ec-
2BF5 3787 R2CEX2 DC
X!...2· 501E ·
.eXPECTEO RESULT
3786
CLC STATAC(2) eR20EX2
·TEST FOR ERROR
3789
BNE R17PO
.PRINT OUT IF ERROR
3790
* 3791 * 3792
BEGIN TESTING LOW HALF OF 2NO FET WITH
::'"793 "' MICROPROGRAN AUNNlNG JN t1IGH HALFe
3794 2C04 3795 2C06 3796 2C08 3797
B
LCADCS
DC
XL.1·9F·
CC
~2CR2DMC5)
DC
AL2 ( R2DNC6)
GO LOAO AOR 000 WJTH SAL TO 0600 ANO FILL wlTH 505-TO-AODR THRU 03FF
3798 2COO 3799 2COF 3eoo
B
L~AOCS
DC
XL1·F3·
DC
AL2CR2DNC5t
GO LOAD ADA 400 TO OSFF WITH
aos~TD-ADORESS·
2C11 3601
DC
.lll...2(R2DMC6)
2c12 3802
oc
xu 1 20·
3803 2C17 3604
2C19 3805 .2C1B 3806
B
LOADCS
DC
Xl..l'EF 1
0C
AL2 ( RC:DMC1)
DC
AL2CR20MC2J
GO LOAD ACR 0600 wlTH FIRST
PROGRAM AND FILL REST OF STG eos-7o-ADDR.
2C1C 3807
DC
XL1·20·
3808 CONTuE SSH EHBP.X1 01"
SET ERROR-HALT-BY PASS ON
3809
3810 3811
MV1
SIO LIO
LPCNT-t. X·lA·
x·co·.siOI X0800.H082
EXTEND LOOP COUNT ENABLE ATTACHMENT PROVIDE STA~T AODfi
38!2 3813
LIO xoCOOeHOB3
e
DONICA
PROVIDE ENO AOOR GO DO MICROPROGRAM
2C34 3614
ac36 3815 3816 3817
381e 3819 ·
DC
oc
CLC
BNE
ld..P8C·
XL2·5.21E·
STATA<;( 2)·R20EX! R17PO
ERROR HALT EXPECTED RESULTS
TEST FOR ERROR PRINT OUT I~ ERROR
3820 $ BEGIN TESTING ~IGH HALF OF 2NO FET WITH
3821 · NJCl'l0PROGRAl041NG RUl\Nll\G IN l.OW t-A!.F.
3822
382~
B
LOAOCS
DC
lU.· 1 ·9F·
GO LOAD t;OA 000 \l!JT'H BAL TO
0401) ANO
3824 382!5
OC
AL.2tR.2DMC7)
OC
M...2(R2bNCe)
FILL W!TH SCS-TO-ADDR
THRU 03FF
3826 2C4E 3827 2CSO 3828 2C52 3829
S
LOADCS
cc
JQ.! ·EF·
DC
lt,..2(A2DMC3~
DC
aL2(R2D~C4J
GO l.OAD 2NO MICROPROGRAM AT
AOOREss 0400 ANO FILL WITH 805-TO-ADOR
2C53 3830
DC
3831
3832
3833
3834 3835 3836
3837 2C6B 3838 2C6D 3839
3840
5BN EHeP .. x 1 01·
MVl LPCNT-h X 1 lA ·
SIO x·co· .sua
LI 0 xocoo.Hoe2
LIO Xl0001HCB3
e
DOM I CA
oc
DC
SET ERROR-HAL.T-6YFASS ON~
EXTEND LOOP COUNT.
ENABLE ATTACHMENT PROVIDE ~TART ACD~ PROVIDE END ADDA
G0 00 N ! C ROPROGRAM ERROR HALT
EXPECTED RES!JL.tS
~Ml
CLC
STATACC 2) eR2DEX2
TEST FOR ERROR
3842
GNE R17PO
PRJNT OUT JF ERROR
3843.
* 3844 TEST FOR 3AD FET IN~TA~Leo. IF NCTe ENO RoUTI"'· IF so.
38-5 ·
3846 · BEGJ N TE ST I NG OF LOii HALF OF :!!RD FET Id ITH
3847 · MICROPROGRAM RUNNING IN Hlc:.H HALFe
Jl8¢8 3849 3850 2C84 3851 2C86 3852
TBN BF B 0C DC
UDT2.x·o2· LINK LOADCS Xl.1 '9F 1 AL2(R2DMC9J
TEST FOR 3RD FET INSTALLED OUT IF NOt GO COAD ADDA 000 WITH BAL TO OAOO
ANO FILL WITH SCS-TO-AODR
(
c
(
,.-.
\.._
c.
IC I 10 IC I lO
I IG I 10
I 10 I le
l
I
2C87 2ca9 2C80 2C8E 2C8F 2C93 2C94 2C95 2C99 2C9A 2C9C 2C9E
2087 co 87 7F 20 CO 87 73 40 CO 87 EC 2D06 2043 40
591 a 5918 5918
2C9F 3A 01 5540 2CA3 3C lA 5563 2CA7 F3 56 CO
2CAA 31 4A 2DC2 2CAE 31 48 2DC4 2CB2 CO 87 54FE
2ce6 eo
2CB7 521E
2C89 OD 02 SFE6 2B CB 2C:BF CO 01 27BA
2CC3 CO 87 5918 2CC7 9F 2CC8 2088 2CCA 2D89 2CCC CO 87 5918 2COO 7F 2CD1 20
2C02 CO 8i" 5918 2C06 EF
2C07 2044 2C09 20S1
2COB 40
2coc !A Ol 5540 2CEO 3C 1A 5563 2CE4 F3 sa co 2CE7 31 4A 20C4 2CEB 31 48 20C6
2CEF CO S7 54FE 2Cf3 80 2CF4 !501E
2CF6 00 01 5FE6 26f5 2CFC CO 01 27BA 2000 co 87 0216
ioo· 5200
2006 2008 200A 2ooc
7FOO
240F 7200 201·
2C88 3853 3854
2C8D 3855
2C8E 3856
3857
2C93 3858 2C94 3659
DC
"4...21R2DMCA)
B
LOAOCS
oc
XL.1 9 7F 8
DC
x1..1·20·
e
LOADCS
DC
XL1·7J·
DC
XL1 1 40 1
THAU 03FF
FILL 0400 T~U 07FF WITH BOS-70-ADDR·
FILL 0800 TMRU 09FF WITH BCS TO ADDA
3860
2C99 3861 2C9B 3862
2C90 3863
2C9E 3864
B
LOADCS
oc
XLl · EC1
DC
AL2CR20MC1)
DC
AL2 ( R2DMC2 »
oc
XL..1 8 40'
LOAD lST MICROPROGRAM AT OAOO FILL THE REST OF CS ~ITH BOS-TO-AODR
3865
3866
3867
3868 3869 3870
3671 2CB6 3872
2CBS 3873 3874
Sf3N
Miii
SIO
Ll 0 LIO
a oc oc
EHSP1x·o1·
LPCNT-J,. >C 1 1 A'
x·co·.s101
XlOOO tHOf2 Xl400.HDB3 OOMICR
XL.1'80· xa.2·521e·
SET EAROR-H-'LT-8YPASS ON EXTEND LOOP COUNT ENABLE ATTACHMENT PROVIDE ST~RT AOCR
PROVI OE END ADOR
GO 00 MICRO
ERROR HALT EXPECTED RESULTS
3875
CLC STATAC(2hA20EXl
TEST FOR ERROR
3876
BNE R17PO
PRINT OUT IF ERROR
3877 $
* 3878 * 3679
BEGIN TESTING HIGH HALF OF 3RD FET WITH MICROCODE RUNNING IN LOW HALFs
3880
2CC7 3881 2CC9 3882
2cca 3883
3884 2CDO 3885
2C01 3886
B
LOAOCS
DC
XLl '9F·
OC
AL2(R2[)NCB)
DC
AL2(R2DNCC)
B
LOADCS
CC
XLl ·7F·
OC
XL l ' .:.o·
GO LOAO AOR 000 WITH BAL TO
0800 ANO
FILL WITH ecs-To-ADCA THJ<U 03FF GO FILL 0400-07FF ·lTH
BOS-TO-AOOR
3887
2C06 3866 2coa 3889
2COA 3890
B
LOADCS
DC
XL1 · eF·
DC
AL2(R2DMC3)
OC
AL2(R20MC4~
GO LOAD 2NO MICROPROGRAM AT 0800 ANO FILL REST OF CS WITH BOS-TQ-AODR
2coe 3691
Dc
xt.P·o·
3892
3893
3894 3895
3896 3897 3898 2CF3 3899
2CF5 3900 3901
SSN MV l SJO LlO
LIO
B
DC
DC
EMBP· X1 01 ·
LPCNT-1,X'lA'
X·CO· 15101 X1400 9 HD62 XU!000HDE3
DOMlCR
a 1 ·eo ·
XL2 9 501E'
SET ERROR-HALF-6VPAS$ ON .. E XTENO LOOP COUNi ENAfJLE ATTACHMENT
PROVIDE $TART AOOR
PROVIDE ENO ADOR GO 00 MICR~FROG~AM
EAROA HALT
EXPECTED RESULTS
2004
3902 3903 3904 3905
R2CMCS
CLC
BNE
B EQU
STATAC( 2 >.R,eOEX2 R17PQ L.lNK
$
TEST FOR f::RROR PRINT OUT IF EQROR EXIT TO NEXT ROUT!N!·
2005 3906 R20MCE O' 3907
XL.t·s200·
BOSoO TO AOOR. 200
3908 ·
3909 *
3910 ·
* 3911
33991123 *·· -_-_ST-_A-_R_-T_-_-O_-_-F_-_M-_-IC_-R_-O_-P_·R_-O.-..G,-..R_-_A-...M.-_-__-L-I-S-T-l-~~G-·$ ..,._~----·
3914
39J 5 · lST MICRO PROG~AM
2006 3916 R2CMC1 2007 3917
2009 3918 2006 3919 2000 3920
EGU OC OC DC Oc
¥
XL2·7FOO· X!.2 1 240F'
XL.2·7200 · XL.2'2014'
co JC. SET HOS OF TO START DATA COO)
01 LOAD START OATA INTO ~OB 04 02 ICe SE7 HOB 02 TO INOJCAT~ ·AITE 03 LR 0· ltf. START AOOR HI
DI.TE
Ol'.JULri
EC NO·. ezso23
25U:T75 &2E031
PROG ID P.-<aF.
lo
(189&-.a
DATE
31
EC NO·
'1
07JUL7!5
82$023
25 CCT7S 82 £032
PROG ID PAGE
0891-2 31·'
· ·
IBM MAINTENANCE DIAGNCSTIC PROGRAM
PART NO.
PAGE
4234255 32
IBM MAINTENANCE DIAGNCSTIC PROGRAM
PART f\ICe PAGE
8912
01 SPLAY ADAPT ER TEST
ERR LOC 08.JECT CODE
AOOR STMT SO~CE STA TEMEHT
2DOE 2115 2010 0584
2012 os·s
2014 B·OS 2016 92E1 2018 1410 201A 1110 201.c 9205 201E 1010 2020 B016 2022 9205
20~ 72FF 2026 201· 20ZB 21~5 202A Z·OF
202c os·s
202E 8405 2030 92E2 2032 1410
2034 1110 2036 9213 2038 1010 2D3A 6016 2D3C 9213 203£ 1F 10 2040 9201 204&: 521E
.;?04<\ ?'FOO 2046 2fl.CIF 2046 7200 204A 2014 204C 2115 2D4E 0584 2050 0545 2052 8405 2054 90E! 2056 1410 2058 UHi 2DSA 9005 205C HHO !DSE 6016 2:!:)60 9005
2062 72ff 2064 ZOl 4 2066 2115 2D68 240F 206A 05~5 20{>C e40ti 2D6E 92E2 li!D·fo 1410 2072 UlO 2014 9013 2076 1010 2078 eOl6 207A 9013
2DOF 3921 2011 3922
DC
XL.2 9 2115 9
DC
XL.2·0584'"
2013 3923 2015 3924
DC
Xi.2"'0545 1
DC
XL2"B405 ·
2017 3925
DC
Xl..2 9 921E1'
2019 3926
DC
Xl.2'"1410 1
20lB 3927
DC
Y.L2· 111oe
2010 3928 2DlF 39?.9
DC
XL2"9205·
oc
XL.2·1010·
2021 3930
DC
XL2" 9016"
2023 3931
DC
XL2·9205·
3932 ·
3933 ·
* 3934
2026 3935
START READ LOOF
DC
XL2"7'2FF·
2027 3936 2029 3937 2028 3939 2020 3939
DC
Xi..2" 2014·
oc
.xi.2 11 211~·
oc
XL2 9 240F"
oc
)ll.2· 0545·
202F 3940
DC
XL2 1 B4o5·
2031 3941
DC
XL2.·92E2·
2033 3942
DC
.xl..iP141oe
2035 3943 2037 3944 2039 3945
DC
Xl.2 9 1110·
oc
XL2 9 9213'
oc
XL2· 1010 ·
2038 3~6 2030 3947 20 3F 3948 20~1 3949
DC
XL.2·ea1&·
CC
Xl..2·9213·
oc
XL2 ~ 1 F10 e
oc
XL 2 °9.:!tH 1
2043 3950 R2CMC2 DC
* 3951
3952 ·
Xi..2 ·5<i!lE ·
3ff3 ..
3954 $ 3955 ~ 2!11D MICRO PROGRAM
3956
2044 3957 R20MC3 EQU
2045 3958
DC
·
XL2E7FCO·
2047 3959
D~
Xl..Z' 2401" e
2Die9 3960
IX
Xt...2° 7200~
204E! 3961
DC
XL2·2014·
2040 3962 204F 3963
DC
X1,.2·21 H!i'
DC
xi..2·oss4·
2051 3964
DC
XL.2· 0545.
2053 3965
DC
Xl...2"B40l:P
2055 3966
2057 3967 2059 3968 2D5a 3969
DC
XL?. 0 ~Hl£1 ·
DC
Xl....2' 1,41 oc
DC
)11..2· 1 uo·
DC
x1..2·9oos·
2D5D :.!i'!inO
DC
XL.2@ lOHlc
2D5F 3971
DC
Xi..2'8016·
20(',;\I. .597Z
39?3 '*
3974 $
PC
lli1-2"9CO!!P
"1975 $
2063 3976
)(l..;?·72FF ·
2065 3917
>1L2e2011p
2067 39'11'8 2069 39"1'9
t>C
J<l..2 11 2H!:·
oc
).!L,il!B 2.'lioF·
2068 3981)
:iu..2eo5.11;,5·
2D6D 398& 2D6F ;J98Z? 201'1 3983
.lll,..2Gf;'l4(J!$ ~
oc
Xi...2 ·92i.;:a ·
oc
XL2'" 14 iO ·
2D'f3 3984
2D75 1905 2071' 3966 .20?9 3!1e7
DC
XL20111oe
oc
XU!· 91,)13 ·
DC x1-2· uno·
DC
>0-2 9 80!6 9
a>TB 3988
DC
XL.2 11 9013·
04 LRlwl! START ADDA LO 05 LEo WRITE M.S. FROM HDB 04 06 LEs READ NeB& OATA TO HOB 05 07 CIR· COMPARE DATA
oa eoc.o BRANCH IF NO COMPMtE
C9 !NCo INCREIENT DATA OA INC~ INCREMENT ADDRESS OB B0Ce0 LOOP IF NCIT ZERO
oc INC· XNCREMENT HI AODR~
OD c1~ TeST FOR ENO
OE aoc.o RETURN TO LOCP IF NOT
OF iC· SET HOB 02 TO INDICATE READ 10 LR 0~14 START ADDR Ml
u LR 1~1s START ADDR LO
12 u;i, SET MOB Ot. V'O STA~T DATA
13 LEe READ N.s. TO HPI 05
14 CIR, c:o~Al'!E DATA 15 eoc~ 0 BR~.NCH H" ERROR 16 INCo iNCREMeNT DATA 11 INC. INCRMENT ADDRESS !8 aoc~o LOO? IF NOT ?ERO 19 INC. lNCAEMENT HI ADDRESS !A Clo TEST FOR eND ADDRESS
lB soc~o LOOP IF NOT END
1c INC· !l'ICPEMENT THE S'f'AAT C.ATA
10 eoc.o LOOP !F NOT ZERO
,tE HANG9 TEST IS COMPLETE
c 00 !! c 4 SET HOB or· ·10 s·u~n 01\TA 00)
01 ~OAO START OATA INTO HOB 04 02 lC· SET HOB 02 TO ENDJCATE ~RlTE 03 LR 0+14 START AOOR HI 04 LR 1~15 ST .ART ADM LO 05 LE, ~RITE M.a. FROM HOS 04 06 1..e~ READ M.a .. OATA r o NOB OS Cl7 CIR~ C~~PARE DATA 06 aoc~o BRANCH IF NO COMPARE 09 lhl<':~ lNCREMeN'f DAtA
t}I!, H>K:. iNCRC:MENl' ~PRESS
08 aoc. 0 LOOP lF NOT ZERO oc I NC· 1 NCREMEt.ff l'iI ADOR,.
00 Cl0 lEST FOR ENO OE ~oc.o RETUIRN T(.i l,QO~ IF Nl;J"l·
IC· SET HOB O.i? TO lNDIC:ATE AEAD l,. ~ Q, !4 $1"AAT AOm'C LO LR 0~14 START AODR HI ~~~ SET HOB 04 To START DAT~ LE~ AEAO M~B~ TO HOB OS CU:!, CCl14PARE DkTA
eoc. 0 BRANCH u· ERRDR
!NC,. i!NC~EMElllT OA'fA
Ii'&C· Jt<CRMENT UJPRESS
aoc.. o LOOP IF NOT ZERO
INC~ INCREMENT HI AOORESS Cle TEST FOR END ADDRESS iUlCoO LOOP IF NOT ENC
OAT£
O?.JUL75
E'.C NO. Sl$023
25CCT'Pfi
e2to.:u
PA04? 10 PAGE
8912
0 I SPLAY ADAPT tR TEST ·
ERR LDC OBJECT CODE
ADDR STMT SOURCE STATEMENT
2D1C lFlCl
207E 900!
c
2080 501E
2082 0000
2D1'D 3989
DC
207F 3990
DC
2.081 3991 R20MC4 DC
3992
2062 3993 R2DMC5 EOU
2083 3994 R20MC6 DC
X1..2·1F10· XL2·9001'
xa..2·so1e·
lC INC· INCREMENT THE START DATA
10 aoc.o LOOP IF NOT ZERO
1E ~ANGo TEST IS COMPLETE
000 EAL TO ADDA 600
3995
3996 2084 3997 R~Di«:? EQU 2085 3998 R2CMC8 DC
000 BAL TO ADOR 400
3999 2086 4000 R20MC9 EQU 2067 4001 R2CMCA DC
000 BAL 10 AOOR AOO
4002
2088 4003 R!CMCB EQU
2088 0800
2089 4004 A.t?OMCC DC 4-005
2 08 A 0906E4E34-0F2F "40 2DBA 4006 Rl'.l<OOP [le
2092 C30c05E309060~40
4006
209A E2E3D6D9C640E~C5
2DA2 E2E3404DE202CSD1'
4006 4006
2DAA 07C5C440C9C64 E2
400~
2CB.2 E2f640F1C3401)to5
4006
2QBA 50 2088 0000 2DBD 0800
2DBF ocao
2oc1 1000
4006
2DBC 4V07 XOOOO DC
20BE 4008 XOSOO OC 2oco 4009 xocoo oc 20C:2 4010 XlOOO DC
x1...2°oooo~
m..2" ceou~ a2· ocoo' xu· tooo·
211)C3 1400 20C5 1EIOO
20C4 4011 X1400 DC 20C6 4012 X!800 0(.
XL2' 1oiiOO'
xue1soot
4013
40~4 4015
e,4'01 f>
····*········*·*·*******··$·····························$···***·*·~··*·
*
ROUTINE 25 - SPARE
·0
*$$i$$i!l::ifi0itll<%*"'"' "'***>l<Jli!<$:$>);$$*$:ii>$;6>:(,!~$1!<$*f·>lt.$'$$'i0$..,>j:'41t;l;:@; ~ ;$$ ~J!t>!< >1>$ ;;<:®il!t:\1!·$$:!1<~$$$tl<$$)\i!<
~017
2DC7 25
2DC7 4018 A1'25 DC
20C8 00
2oce 40ll9
DC
2DC9 2DE4
2ocA 4020
DC
20CB CO 97 02111\
4021
B
2DCF 01
2DCF 4022.
DC
2000 oO
2000 4023
DC
2001 21)1::~
2002 4024
oc
200::1 co 87 o;uo
4025
6
2007 0906E4E340F.2F t40 2:DE3 4026 f.Q2&1DR DC
~DOF U O?Cl 09C5
4026
t~l $ il)Qij
AL 2 <RT.26 ) PPtNt l".t.1 ~01 11
n~.ieu1e
At..2UU5HCR)
f. l NI< CL! ;:Jli ROUT 25 SPARE·
~OUTINE NVMl:ER NO MANUAL lhTERv.ENT!ON r..ooRESS OF NEXT RO!Jl'ZNE
4027
4028
* 4029 *** *"'*** "'* *** *·····>:>$ '*'""....... 4 03 0
'****"'**~***$*****"".,,$$;$$$****""**·····$>:1<1¢:$4'$:/it>l'*'l<***'*'$***"'*s1t*itll$$$$$$$0$$$
!!:
ROV7I NE 26 ,. L lO HD8 1A TESTS
·ll>·<t<·Ctl!tl!<ll<$
111111' ,, "'!;)> >!!'!! *""~
$$$'9<111!1< .$
$ "'"'"'*""*'*"1*$·1i':ll>'$>!< **
* ·031
4032 "'
THIS j:lQUTINE CHECt<S THE "TSN THAT DE'WEAt<IINES THA·r HCS !A HAS
* *
4033 !l!
* Q.034 * ~035
rr BEei\j LC:ldJEO BY ·rt;E PROGRAM~
CHECKS THAT THE TSN C:OME:S ON
·
PROPERLY ANO THAT I"! 1 s REse·r av ssF c~ IT ALSO TESTS THAT
·
THE TSN DOES NOT COME ON IF ANY OTHER HDB·S ARE LOAOEDe
a
*******"'"'** 4036 ·
!1)!*$$"*****"'"'. 40.31'
*lt·**"'* ail!ill**'ll':I);$>)<
$#* $$lt<$$1$$$$oj;.'lll$""'* $$$
II: O!)oi,.'8<11l<ill!>$'11$$$'i'$>Q!
20E4 i:':ib 2DE5 00 :#1!0~6 ae:SSF
w~~'i,
40415~
.2oEA- 4039 RT26
2DE5 404Q
2DE7 4041,
·oie2
20F4 404.S
·o.ii.~
xa.1e?.6~
Xi,.1 ti()~)·
t.t.,?(~1";!7 ~
USING !HSK0h:iR1
ij..A
a Rl Eli<O eXf.1!1
ROt.rtiNe NVME!ER NO NANUA~ INTERVEN~tO~
IUlttREss OF NEXT RQi.,ITli.NE
20EC CO !i>T 021 A, 2DFO 01 20F1 15 2QF.2 .2-E4A
4045 4046 4047 4048 4049
a
~INT
DC
xt..J.Ci'H"
!le
t~ieu~
DC
At,.HATUlOP»i
e DATE
01'.IUL?S
@EC NO· 825023
· · · · · · · · · · · · · · ·-!··o·· · · · · · · · · · · · ·· ···
·
·
·
·- · · , I
· · · · ·
ISM MAINTENANce·orAGNCSTIC PROGRAM
8912
DI SPLAY ADAPTER ~ST
EQR LOC OBJECT CODE
AODR STMT SOI.Ree STATEMENT
PART NO. PAGE
4234255
IBM MAINTENANCE DIAGNCST IC PROGRAM
3.:S \._
8912
DISPLAY ADAPT IR TE~T
PART fllO. PAGE
4234255 33A
20F4 CO 87 5918
2DF8 83
4050 4051 R1BK01 B
LOADCS
ERR LOC OBJECT CODE
ADOR STMT so~ce STATEMENT
2DF9 2E4B
20F8 4052 4053 ·
DC
Xl.1 1 83 5
eGO LOAD ~ICROPROGRAN ·DISABLE UPON ENTRYs FILL 2ND
4113 *
ROUTINE 28 - SID NON-IMMEDIATE TESTS
*
2DFB 2E5E
2DFO CO 87 54FE 2E0l 69
2E02 5002
2E08 CO 87 54FE 2EOC 6A
2EOO 5007 -
2EOF 31 4B OOE2 2El3 31 "-9 0062 2E 17 31 4A ODE2 2E1B 31 48 ODE2 2E1F 31 4C 0062 2E23 31 4E 0DE2 2E27 31 4F 0062 2E2B CO 87 54FE 2E2F 6C 2E30 5009
20FA 4054
2oi:oc ·oss
4056 4057 2E01 4058 2E03 4J59
4060 4061 4062
4063
2Eoc 4064 ZEOE 4065
4066 4067 4068
4069
4070 4071
4072 4073
4074 2E2F 4075
DC
oc
8 DC DC
LIO
e
DC
oc
LIO LIO LtO LIO LIO LIO LIO
a
DC
AU?<RlBMCSJ AL2<R1BMCEJ
DOMIO! XL1·6g·
XL2·sooz·
COMiCFI
XL1 9 6A~
XL2· 5007·
ZEROoHOBO ZERO~HOBl
2eRO,HDE2 ZEAOoHOB3 ZEROe ...084 ZEROeHOB6 ZEROoHOB7
COMICA XLJ "6Co
F5Q WITH eos.o ON ADDRESS
eSTART OF MICRO CODE oENO OF NICP.OCOOE
· Go DO FI AST PHASE ·ERROR HALT -69-
·EXPECTED STOP
·DO LIO TO HOB lA
eGO DO NEXT PHASE
·ERROR HALT -6A~ aEXPECTEO STOP
.oa A LIO TO ALL HOB·s
EXCEPT HOB !A-lBP THIS MUST NOT SET TSN LIO HDBlA
·GO REST~RT MICROPROGRAM
0 .
0
c 2E7C 28
2E70 00
(
2E7E 2E99
'-.'
2E80 CO 87 021 A
,-·
\ __
2E84
2eas 01
2E86 00
2e;88
2E9S
co 87
0216
41145 4-116
**
·
*
***T~l*lS*
**····
ROUTINE
············
TESTS THAT
······
·HEN
······
A 510
·
·········
NON-IMllol
···
IS
·········
lssueo.
·····
THE
·
··
·
····
·
4117 *
IR/[Q SITS ARE LOADED INTO HOB 16-17, ANO THAT THE ATTAC1'114ENT ·
4i18 ·
** 4119
4120
4121 * 4122 *
* 4123 * 44112245 l(I
DTCTBIToUOEECSRRAOTTIRNSHMSEGSECElNTST~THLEHACBYETHU. TESHYCTIAQHTKTHSE/WJEHRATMEO~NICISCCIYRBTOREOHCOPELPNSREUROOSSORGINOG~OE-RAFJNAMTSMN~VTAHECCTAEDINsRIATSETHTRIQOEHEE.ESNNEILHSTAOOSRTNUBECS-·EIRHIsMDDuMNecWecS1~VwA~NICNEeGLORsEERAMEOQTHANHTAN.EENWIPSOIUTATII.HLETTDAITSTATSEHSCD~FEHNO- CEo
* ·
· · ·
·
MENT IS BUSY WILL HANG THE CPU UNTIL BUSY DAQPSe
·
·
2E7c
2E70
2E7F
41.27
44112286 4129
4130
R*T*28***DC****X*L1*·*28*· ****··················***·*·······························
DC
lCLl. 00.
ROUTINE NUNEER
DC
AL2(RT,29 l
NO MANUAL INTERVENTION
4131
4132
B
AOURE55 OF NEXT ROUTINE
2E84 4133
DC
PRINT
PRINT ROuTl~E HEADJflt!G
2E8S It 134 2E'.S7 4135
DC DC
ILl·13·
4136
8
AL2 CR28HCR)
2E32 CO 87 0216
2E31 40l''6 4077
DC
XL.2°5009 6
eEJOROR HALT -6CeEXPECTEO ReSVLT
2E8C
2E94
091>6E4E340F2F f.40 E207CJOSC 5
2E96
4137 4137
R2SHOR
DC
LINK CL13·ROUT 28 SPARE·
cTERN.ilNATE
4078
e
4079
2E36
2E3E 2E46
OS06E4E340F2F t40 E3E20540C3C90l40
cec·cZFl c1
2E4A
4080
4080 4080
RTlSOP
DC
4081
UNK
eGO TO NEXT ROUTINE
CL21·ROUT 2~ TSN LIO HDB1A 1
4138
44114309 441421
*~··~·*~····~···R··O···U···T·I·N*·E····2··9*····-····T··R··A··N··S··M···I*T····t-····R··E··C··E··I·V·*·E*·~.W·.O··R··O***R··E·*A·D*·Y·$·T··E~·S*·T··S····································'·*
2E4B .iC08 2E40 49EO 2E4F 5002
2ES1 4905 2E53 5004
2ess 1coe
2E57 49El 2E59 5007 2ESB 49£2 2E5D 5009
2E48
4082 4063
44008845
R··*-I-BS~~.T-C-A-S-R-T-~E~Q-O~U-F---M--I~C-*-R--O-P--R-O--G--R--A--M----L~-I--S~T~I--N--~--··$
2E4C 2E4E
4086 4087
oc
OC
2E50 4088
DC
2E52
2E!54 2E56 2ES8 2E5A 2esc 2ESE
4089 4090 4091 4092
4093
4094 409 5
Al B·CE
oc oc
DC
DC
DC DC DC
4096
)(L2· 1coe · XL2 1 49E0 1
XL2· 5002 1 XL.2·4905· XL2·soo4· Xl..2 1 1C08 I XL2·49E1·
JQ..2· 5007·
Xi..2 · 49E2 ·
XU!. soog.
00 ssr:. RESET TSN 9 01 YSN1 ~UST NOT BRANCH 02 HANG. ENO OF FIRST PHASE 03 TSN1 NVST B~ANCH 04 EAAOR, HANG 05 SSFs RESET TSN 9 06 TSN, NUSt NOT BRANCH 07 HANGe ENO OF PHASE 2 08 TSNo~ MUST NOT BRANCH 09 HANGe ENO OF TEST
v A
c
4096 4097
lo
2ESF 27
2E60 00
2E61 2E7C
2E63 CO 87 021.t. 2E67 01 2E68 OD
2E69 2E7B
2E6e CO 87 0216
·······························································~·······! 4098
4099
*·········R·O·V·T··I ·N·E··2·7·'··-··S·P·A··R·E··············c********·*******************i'! C
juoo
2E!5F 4101 RT27 oc
2E6o 4102
De
2E62 ·1o;s
oc
~°'104
8
2E67 4105
DC
2E68 4106
DC
2E6A 4107
DC
xt..1·27· KL.l·Oo·
ALURTaa·
~INT
XLl·o11 1Ll913·
A. 2<fU?HDR)
ROUTINE NuflleER NO MANUAL INTERVENTION ADOAEss o~ NEXT ROuTlNE
2E6F 2E77
0906E4E340F2F ,.0 E2D7C1D9C5
2E7B
4108 4109
R27HOA
B DC
4109
LINK CLUJ· ROUT 21
4110
4111 4111 4112
.......................................................................
'
DATE
07.IUL7S
25 Cc:t''PS
4143 ·
*** 4144
44114456
T~E ~NC THIS RCUT!NE CHECKS THAT TR~NSNIT ~NC AECElvE WORD REAOY ANO INVOLVED TSN·S ARE WORKING PROPERLY. A WORD OF ZEROES
lIsS T~HADAENSOMNITTTEHOE DATAW. RAPPED eACK IN DIAGNOSTIC MOOE. NO CHECK
*· ~~~~~~~~~-----------
· ·
4147 *
·
2E99 29
2E9A 00 2E9B 2F40
44114489 **************************************·..·······~·$··············*·····
2E99 4150 AT29 oc
2E9A 4151
DC
2E9C 4152
oc
Xt.1·29· Xl.1·00· AL2(RT2AJ
ROUTINE NUMBER NO MANUAL INTEAVENl' ION
4153
AOORess CF fllExT ROUTINE
2E90 C2 01 2EA9
2EA9 4154
USING AlEKIJlsXRJ
4155
LA
R1EKOleXR1
2EA1 CO 87 021A
4156
INITIALIZE XA1 FOA INOE>e!NG
2EA5 01 2EA6 10 2EA7 2EES
~EA9 CO 87 5918
4157 2EA5 4158
2EA6 4159 2EA8 4160
4161
B
PRINT
DC
XL.I· 01·
DC
IL1 ·2g·
DC AL2CRneoP>
PRINT ROUTINE HEAOING
2EAD 83
4162 R1EK01 B
2EAO 4163
O~
eGC LOAD MICROPROGRAM
2EAE 2EE6
uac 2F3F
2E82 F3 $8 EO
4164 · 2EAF 4165 2EB 1 416f:
4167
DC
oc
AL2(R1E~CS)
AL2UHEMCE)'
·DISABLE UPON ENTRYe FILL 2NO
FSQ WITH ecs.o QN ~DDAESS
.S.ART OF MICRO CODE
·END OF MI CROCCDE
2Ess oo 10 ss12 ss1a
zeee F3 se eo
4168 4169 41?0
SI 0 CLC S!O
X·EO·eSJCI
~PEAT(30)1REPEAT
)( ·eo ·· SIO I
·ENABLE NICAOCONTRCLLER TO DO A ORV AUN TO SET UP
2E8E CO 87 S4F£
2EC2 80
2ec3 so2s
2ecs co &7 oaa 6
4171 4172 2ECa ·U 73 2Ec;4 41?4
4175
e
DONICA
DC
XL 1 ·so·
DC
XL2·502s·
PCWER U~ CCNDITIO~S
eGC EXECUTE NICAOPROGRAN ·ERROP HALT - 80·~PECTED REsUL T
417'6
e
LINK
2EC9 ieo1
D906E4E340F2F~o
E7D4C9E340504 ~9
2ees
4177 4178 417e
RTleOP
oc
·GO TO NEXT ROUTINE
EC NO. 82!5023
82 !032
PROG ID PAGE
'O
0891-2
DATE
Gee 33
NO.
07JUL75 826023
PROG ID
· ·
PAGE
IBM MAINTENANCE DlAGNCST IC PROGRAM
PAAT NO. PAGE
4234255 34
IBM MAINTENANCE DlAGNtSTIC PROGRAM
PART NOe PAGE
8912
DISPLAY ADAPT fR TEST
8912
01 SPLAY ADAPTER 'iEST
EAR LOC OBJECT CODE
ACOR STMT SO~CE STATEMENT
ERR LOC OBJECT cooe
AOOR STMT SOURCE STATEMENT
2ED9 C3E540E606D9C '40 2EE1 09CSCl C4E8
2EE6 5026 2EE8 0880 2EEA 1F04 2EEC 1008 2EEE 0780 2EFO 40E1 2EF2 0780 2EF4 4009 2EF6 5008 2EFS 41E2 2EFA 400C 2EFC SOOS 2EFE 4lE3 2FOO 400F 2F02 SOOE 2Fg4 41E4 2F06 4012 2F08 SOU 2FOA 41E5 ;?FOC 4015 2FOE 5014 2F 10 41E6 2FU 4018 2Fl4 IS017 2F16 4'1'!,A 2Fl8 5019 2F1 A 40E7 2FiC 024~ 2FlE 41E8 2F20 411F 2F22 5010 2F2-4 7400 21""26 4122 2F28 5021 2F2A 0241i 2F2C 41E9 2F2E tFOfl
a: 30 5025
2F32 1E04 2F34 7000 2F36 OA80 2F38 OC80
2F3A OQ80
2F3C oeao 2F3E 50 01
4178
(
41T8
4179
44118810 ··-S~T-A-R-T--O~F--M~IC-R-O-P-R-O-G-R-A-M--L-I-S-T-IN--G-=$
* 2EE6
44118823
·------~---------~-------~---·
R1EMCS EOU
2EE7 4184
DC
XL2·so26· 00 80So 0 GO SET INSIDE ·RAP
2EE9 4185
DC
XL2 1 0eao· 01 LE· DESELECT ALL L UIES
2EEB IU8~
DC
XL2. 1 1F04 e 02 SSN1F TURN ON DIAGNOSTIC MOOE
2EEO 4187
DC
XL2"1008· 03 SSF.O RESET 1,0 REG BITS 2·3~13
2EEF 4188
DC
Xl.2 9 0780" 04 LEe LOAD 1/0 REG £ XMIT ~ORO (ZEROES)
2EF1 4189
DC
XL2 1 4CE1 · 05 TSN.O MUST NOT BRANCH
2EF3 4190
DC
XL~'0780 9
06 L.Ee RELOAD !'O REG
2EF5 4191
2EF7 4192
DC
XL2·4009 9 07 TSNeO MUST SRANCH
oc
xt.2·sooe· 08 EAROR 9 HANG
r·....·_
2EF9 4193
DC
XL2 1 41E2.·
09 TSNe1 MUST NOT SRANC~l
2EFB 4194
DC
XL2 1 400C" OA TSN.O MUST SRANCM
2EFD 4195
DC
XL2 5 SOOB· OB ERROR· t-!ANG
2EFF 4196
DC
XL21 41E.J·
OC TSN 9 l l>IUST NOT SRANC~
.2F01 4197
OC
JCL.2·400F·
OD TSNe 0 MUST BRAf>.'CH
2F03 4198
DC
XL2'50CE· OE ERRORe HANG
(
2F05 4199
DC
Xl..2 1 41£4·
OF TSNel ~UST NOT SRA~CH
2F07 4200
DC
){1....2 1 4012 · 10 TSN, 0 14UST BRANCH
2F09 4201
oc
x1...2·so11· 11 ERP.ORe *'4/ING
(_
2FOB 4202
OC
XL2°41E5 1
12 TSNo 1 MUST NOT fl$tANCH
2FOO 4203 2FOF 4204
DC
Xl-2 1 4015·
13 'iSNoO MUST t:RAHCH
DC
XL.2'!5014 o l4 ERR01h HANG
c
2F11 ~205
DC
XL2·41E6·
15 TSNs 1 MUST NOT BRANCti
2F13 4206
DC
Xl.2 1 4018 1 16 TSN.O MUST ERANCH
2Fi5 420?
DC
n..2·5017·
17 E~ROR,. HANG
2F17 4208
DC
XL2·4l1A·, 18 TSN .. 1 MUST BRANCH THl!'S HME
2F !9 lll-20'6>
OC
X~2' 5019· 19 ERROR. HANG
2F1S 4210
OC
XL2"40E7·
lA TSNo 0 MUST NOT 9R ANCH 'l'l·U S 1"! !\IE
ZF lO 4211
DC
llti..2 9 024~ ·
16 !..IE, PUT 11'0 REG INTO MOS 02
2F1F 4212 2F21 4213 2F23 4214
DC
Xl-2"41ES· 1C T$Nol MUST NOT BRANCH
OC:
oc
XL.2·4UF · XL.2'5010 1
JO TSNo1 LOOP UNTIL RECe WO& ROY. ON AGAlN
1 E eos. 0 BRAl"Cl-1 BACK Tc ASOV'E l!IOAD
0
2F25 4215 !F 27 4216 2F 29 4217 2F2B 4218 2F2D 4219 2F2F 4&20
DC
Xl..2'"7400 · 1F' JC· SET HPB 4 "" 00
OC
XL.2' ·H22' 20 TSN·l MUST STILL BRANCH
OC
XL.2· 50214 21 ERROR~ HANG
OC
XL.2'024·P 22 LE· PUT t'O REG IN "OS 02
OC
XL.;?·41E9· 23 TSNo 1 MUST NOT BRANCH
DC
Xl.2 1 1F0131· 24 SSFoF RESET DIAGNOSTIC MODE
ie
:I o
2F31 4221 2F33 4222 2F35 4223
OC
XL.2·5025· z5- HANGe TEST COMPLETED
oc
xi...2· 1eo4· 26 SSNeE TURN ON !NSIOE WRAP
~
OC
XL2·TOOO t 27 !C1 PUT 00 IN HOB 00 TO DESELECT ~INES
2F:J7 4224·
DC
xu~·OASQ·
28 LEeOfSEl..ECl lilU. M...T LlNes.
2F39 4225
DC
2F38 4226
0C
2F30 4227
Pc
2F3F 4228 l'UeMCE OC
4229
XL2'0C80 · XL2·00S0t .ld..2·oeeoe >CL2·5CHll t
29 LE
DESELECTS ~
2A u:
DESB..EC-fS D
2B Le
OESELECTS E
2C BDSoO TO ADDRESS 001~
10
I\0
4229
4.230 ·231
**"'***"$**"'R**O*'U*l''lfllli!lN<lftl$2lfA!ll<-l!t!Dl<A!lTl'lA<ll!lfiiRl!lA!<P$>T1EtS·>Tl<*~liAl'*L"L*"'*e"'n*"'s"'")"'**"'*·*ll<···'·*ill'*·***"'*"'**""·lf.>il\l'.'11$':,
4232
·~.;i;s
4234
4235
**~·····o··~~···*~e······******~*****~*********~*******$***************(
*JI!
II!
THiS ROUTINE l:lf'.llPS ALL ens IN OU.GNOSTIC MOOE ,!',NO TESl"S
THAT THE iHTS RECEl 'llEO ARE T.1E SAME AS THOSE TflANSf>'liT'i'EO.,
*i
~'*·'
c
4236 $
4237 *
* 42~8 ·
4239
THE DATA TO SE VSEO IS SUPPLIED BY P~E-LOADlNG HOS 10-119
$i
*: lHE DATA PATTERN !S WRAPPED AND CHECKED 255 TIMESa THE
*
MICROPROGRAM FOR THIS ROUTl~E IS USED FOA THE NEXT 3 AOUT!NES
SY SUPPLYING l')IFFERENT DATA l'O HOS 10-U"
'*!
i 4240 ·
*'
4241 ******·******1$$$$1i14*$ lt$1t$0$$$1$$t.!:!l:$$lll<$$$>1<$4'1i<llU'<:it;$$$$>!<**"'**"'*****$021<$>1<$$ 1'1$
.-2.-.2
2F"O 4243 ~TIA
i
2F41 00 2F42 3049
2F41. 4244 2F43 4245
DC XLt·oo·
DC
AL2<~T2B)
NO MANUAL INTERVENTION ADDRESS OF ~EXT ROUTINE
4246
2F44 C2 Ol 2F62
2F62 4247 4248
USING R1FK01.XR1 LA RIFKOleXR1
INITIALIZE XRl FOR INDEXING
2F48 CO 87 021A 2F4C 01
4249 4250 2F4C 4251
8
PRtNT
oc
XLI ·01 ·
PRINT ROUTINE HEADING
2F40 19
2F4E 2FA6
2F40 4252 2F4F 4253
DC
111.. 1 · 2 5 ·
DC
AL2«RT1FOP)
4254
2F50 OC 01 3022 30~A 2F56 OC 01 302~ 30 ZC
4255 4256
MVC MVC
R1FMCE-6C2J,HDB900 IUF!4CE-4 C2) .LI SELA
2F5C OC 01 3026 30 46
4257
MVC
RlF~CE-2(2)·.-APIN
2F62 CO 87 5918 2F66 83
2F61' 2FA7 2F69 3028
~258 R1FK01 B
2F66 4259
DC
4260 111<
2F6S 4Z61
oc
2F6A 4262
DC
LOAOCS XLJ.·83·
Jl.L2<RU"MCS) Al...2( A lFMCl:)
eGO LOAD MICROPROGRAM eOISABLE UPON ENTRY· FIU.. 2ND
FSQ WITH BOS.O ON ADORE~~
eSTART OF MICRO COOE
.eN.> or MlCJaOCODE
2F66 31 48 SfiEl 2F6F ::;c ! o 5564 2F73 3A 01 5540 2f'.T7 CO 97 5~FE 2F76 8.2 2F7C 5037 2F7E 4D 01 lB 5FE6
?.F83 F2 61 04 2F66 CO 87 5254
4263 4264
4265
4266
~267
2f'7B 4268
2F70 4269 42.70 4271
o1i..~72
4273
R1FEX1
L..10
MVI
seN
e
DC
DC
a..c
.JE
a
X03FFeHOBo LPCNT.,X·!O" EHBP 0 X9 01 ·
OCJMIC~
RlFEX1C2eXR11aSTATAC F<1FB01 PI OREG
eLOAD DATA F~TTE~N .INCREASE MICROPRO~RAM TIME .seT ERRO~ !YPASS BIT ON oGO EXECUTE MtCROPRDGAAM
.ER~OR liA'-T -e2-
·EXPECTED END OF TEST eTEST FDR ACTUAL ENC OF TEST
· .JUMP IF SO
eERAOR GO PRINT 1/D REG
<l.274 Rlf'SOl\ fl
4275
2F6E ~906E4E340F2Cl40 2FA6 4276 R"f lFOP !K
2F96 E704C9E361D9C !C3
4!76
2F9E 40ClD30340C2C~E3
4-276
2FA6 E2
421'6
4277
. . . * 44227789 *·--S-T--A-R~T---O-F---M--IC-R--O-P~R.O..G_R_A..M...L.I.S-T~-I-N-G---·
42&0 $-~-----------~--~-~--- ---*
44>228821 4283
******TW*HO*ER*O*FS*O·U0·3.·.OD*W*a *IN*0GI3lEl'M*&*IC*R*0O"3P'F*R*O·AG·RR*EA*M*M*O*J*DS*I F*UI"ES'*OE*D*T*OB*Y*S*RU*OI*TU**TT*IHN*EE**S*U*2S*AI N*.*2G*e".R':*Oa*Uc*.T"2i'N*0*~E*3· *c~****'***·*
* 4284 ·
4285 see SEl...OW FQR CHCICES
*
44228867 ***************************········$#*$**************$***···*·*········
2FA7 7AOO
2FA7 4288 AtFMCS EQU
2FA6 4289
DC
II> XL.2 9 7AOO·
00 IC ZERO OUT HOB A,.
2FA9 5-038
2FA8 5002
2FAD 2010 2:FAF 2111 2FB1 '14-FF 2Fe3 ElOO 2F85 9c09
2FB7 7400 2F69 7500
2Fae i soe
2FAA. 4290 2FAC 4291
2FAE 4292 2F80 4293 2FB2 4294
2FB4 4295 2FB6 4296 2F88 4297 2FSA 4298 aFBC 4299
DC
X!...2 1 5038· 01 sos.o_TO ADDA 038&
DC
Xl..2·5002t
02 ERROR., HANG
DC DC
XL.2·2010 1 XL2 9 2U1 1
= 03 LR9 HOB .00 Q BITS 2·~·13 TO BE WRAPPED
o4 LRe ~De 01 BITS 4-ll To BE ·RAPPED
DC DC
XL21 74FF· XL29 E100·
= 05 IC. S~T RESET PATTERN TO FF
06 Ciw TEST ~lTS TO BE WRAPPED 00
oc
XL2' 9Co9·
07
eoc. 3
so IF
z..EAY!: ~ESET PAT1'EAN ... f f
DC
XL2°7400· 08 IC· CMA!-.!GE RESET PATTl:RN TO 00
oc
XL2· 1soo· 09 TC., RESET REC., CHke 1M'JJCATOR
DC
XL2®l508· OA SSFw RESET REC. CHK.
2F60 768::! 2f'BF 27Qil>
2FC1 7301 2FC3 1006 2FC5 lF04
!FBE 4300 ?FCO 4301 .2FC2 4302 2FC4 4303 2FC6 4304
DC
Xt..2· 7683·
08 ICe l~ITlALiZE RECEIVE HOB 06
oc
XL29 2704 1
oc LR· 11\ITIAl..IZE RECIUVl.i: HOS 07
DC
>0-2"7301'
00 INITIALIZE COUNTe~ TC 01
oc.
xi..2· 1 ooe · OE RESET 11'0 REG SITS 2· :;., 13
oc
XI+. ~ 1 1F04 · OF SSN. SEl ON DIAGNOSTIC MOOE
2FC7 FOQ2 2FC9 9013 2FC8 1204
2FCO F001
2FC8 4305
;aFCA 4306 2FCC 4307
2FCe 4308
DC
X'-2·F002·
10 TBN. CHECK FOR BIT 2 TO SE ON
DC
XL2 8 9013· 11 ecc.o BRANCH IF al~ 2 SHOULD BE OFF
oc
m..2· 1204· 12 SSH,, SET !JI T 2 OF I AJ REG DH
DC
x1..2~Fooie
13 T BN.. C::HcCK FOR en 3 TO BE OFF
DATE
07..IUL75
ec NO. s2so2:s
25cct?s 8110.U
· e
PROG ID PAGE
0891-2! ()DATE
34 ! EC NO..
I~
07.JUL.75 825023
25CcT75 82!032
!e
.,
1i ·
I
11·
! .
PROG 10
PA~
···············, ··················
JBM MAINTENANCE DIAGNCSTIC PRO~RAM
PART NO. PAGE
;
I {. 4234255' 35
IBM MAINTENANCE DIAGNCSTiC PROGRAM
PART NQe PAGE
42342'H5 35,-
6912
DI SPt..AV ADAPT ER TEST
ERR l.OC 06.JECT CODE
AOOR STMT SO'-RCE STATEMENT
2FCF 9016 2F01 1304 2F03 078! 2F05 4017 2FD7 1008 2F09 0784
2FD8 40 lC
2Foo so1e
2FOF 41 lE 2FE1 501C 2FE3 0744 2FE5 41El 2FE7 4222 2FE9 C60?. 2FEB 4324 2FEO C60l 2FEF 4426 2FF1 C660 2FF3 4834 2FF!; 8600 2FF7 9C2A 2FF9 5035 2FFB 8701 2FFD 9C20
2FF¥ so=s
3001 7683 3003 1310 3005 9C37 3oo7 41 lE ..5009 F301 3006 9COE 3000 5033 300F 75FF 3011 5035 3013 50.:!!6 3015 5037 3017 0·8A 3019 OBSA 3018 OCSA 3010 008A 301F OE8A 3021 0000 3023 0000 '2025 0000 !02'1 5003
3029 ?980 30.28 7940 3020 7920 !02F 7910 3031 7908 3033 '7~04 3035 7902 3037 ?901
3039 7900
3038 0A89 3030 0889 ?03F 0C89 30·1 0089 30-3 0E89
2FOO 4309
oc
2FD2 4310
DC
2F04 4311
DC
2F06 ·l312
DC
2FD8 4313
DC
2FOA 4314
DC
* 4315
2FOC 4316
DC
2FOE 4317
DC
2FEO 4318
DC
2FE2 4319
DC
2FE4 4320
oc
2FE6 4321
DC
2FE6 4322
DC
2FEA 4323
DC
2FEC 4324
DC
2:FEE 4325
DC
2FFO 4326
DC
.2FF2 43.27
oc
2FF4 4328
DC
2FF6 4329
DC
2FFS 4330
DC
2FFA 4331
oc
2FFC 4332
DC
2FFE 4333
DC
3000 4334
DC
3002 4335
DC
3004 4336
DC
3006 4337
DC
3008 4338
DC
300A ·339
DC
300C 4340
oc
300E 4341
oc
3010 4J42
DC
3012 4343
DC
3014 4344
GC
3016 4345
DC
3018 434>6
DC
301A 4347
DC
301C 4348
DC
30lE 4349
DC
3020 4350
DC
3022 4351
oc
3024 435.2
oc
3026 4353
DC
3028 4354 RlFMCE DC
4355
XL21 90l6· XL.201304· XL2 1 0761 1 l<L2'4017' Xl...2 8 1008. XL2· 0784 ·
XL2 1 401C 1 XL2·i:;o1a· XL2' 411 E' .xL.2 8 50lC' XL.2 1 0744. XL2·41E1 1 XL.2'4222 6 XL2"C602· XL2· 43241 XL2°C601 1 XL2"4A26 1
XL.2 1 C~80 1
XL2·4E34· xt..2 1 6600' Xi..2°9C2A· XL2'5035· · XL2·B "101 1 »-2t9c20· XL2'5035'
XL.2'7663' XL.2 1 1310· XL.2 1 9C37· )C!..2'41 lE· XL..2'F301' Xl..2 1 9COE· XL2 1 5033 1 XL2·75FF· XL2 1 5035° Xt.2·5036 1 XL2 1 5037 1
XL2 1 OC8A · )(L2 1 00SA· XL2°0E6A· XL2 1 0000 1 XL4!·oooo· XL~· 0000· XL21 5003 1
14 eoc.o B~ANCH IF so
15 SSNe SE"f Bl T 3 OF I .10 REG ON
16 LE. LOAD I/O RF.G AND TRANSMIT l'iORO
l7 ·rsN.o WAIT A CYCLE
18 SSFeO RESET BITS 2·3·13 OF 1.10 REG
19 LE· C~ANGE SITS 4-11 OF 1.10 REG ANO
SYART ANOTHER TRANSNlTe
lA TSNoO MUST eRANCH
10 ERROR, HANG
l C TSNo' WAIT FOR RECe WORD READY ON
10 eos.o REiURN TO PREVIOUS WORD
lE LEo MOVE I.10 REG TO Hoe 07
!F TSNGl MUST NOT BRANCH
20 TSNo 2 CHECK FOR BJ T 2 ON
21 SBFo SET SH 2 FLAG OFF IN HD6 06
22 TSN.3 CHECK FO~ BIT 3 ON
23 seF. SET Bl T 3 FLAG OFF IN HOB 06
24 TSNoA CHECK FOR BIT 13 OFF
25 SSF. SET SIT 13 FLAG OFF JN HOB 06
26 TSNeB CHECK FOR RECEIVE CHECK
27 CIR. CCMPAAE Hoa 06 WITH 00
28 BOCo 3 ERROR IF NOT THE SAME
29 BOS 0 TO AOR 35. DATA ERROR
2A CIR. COMPARE HOS 07 WITH 01
28 BOC. 3 ERRon IF NOT THE SAME
2C BOS 0 TO AOR 3S· DATA ERROR
?.O !C 0 l~ITIALIZE HOB 06 AGAIN 2E INC. INCREMENT THE COUNTER
2F eoc.3 BRANCH IF ENO OF TEST
30 TSN·l REC. ·De READY MUST BE ON AGAIN
31 TSN. IF NOT· COUNT MUST BE 000
so. 32 soc.3 IF
RESTA~T PAOGAA~
33 ERROR· HANG
34 REC· CMK, SET HOB 5 · FF
35 DATA E~ROR· HANG
36 DUMMY HANG
37 HANG· END OF PROGRAM
LE A.A
DESEL ALL OR/RECo OECOOE A
LE B.A
OESEL Al..L DR/REC; OECODE 5
~A LE CeA
OESEL ~~L DR/REC; DECODE C
3B LE DoA
DESEL ALL OA.tREC; DECODE 0
3C LE E.A
DESEI.. ALL DR,REC; DECODE E
30 IC 9oX·ZZ· FILLED IN BY USER~
3E LE Z·9
FILI.ED tN ev USER.
:!F 'SET INSIDE WR· OR" BOS 70 040
·o BOS. 0 TO AOOR Ot:t3.
BY USER.
4,356
4357 · CHOICES FDA WORO 030
302A 4358 HOS980 OC
XL2 1 7980 1
302C 4359 t406940 DC
XL..~ 0 79~0'
302E 4366 HOe920 DC
XL2'7920'
3030 4361 H05910 DC
XL21 7910'
3032 4362 t40E908 DC
XL.2·7908 ·
3034 4363 HOBv04 DC
XL.2$7904'
3036 4-364 ~De902 DC
>Cl..2'7902·
3038 4-36S HOEl901 D~
303A 4366 a-408900 oc
XL2'7901' Xl.297900 1
4-36?
tC" Hoe 0 EQUAL 80
IC HOB 9 EQUAL 40
lC HOS 9 EQUAL 20 IC HOC 9 EQUAL 10
IC HD6 9 EOUAL 08
IC HOB 9 EOIJAI.. 04 lC HD8 'i EQUAL OZ IC HOS 9 EQUAL 01 IC HOB 9 EQUAL 00
LOAOEO BY USER 1..0AOEO BY USER LOADED BY USER 1:-0AOEO BY US~R
l.CADEO BY USER
LQAOEO BY USER
LOADED lilY USER LOADED BY USER LOAO!D BV USER
4368 · CHOICES FOR WOAD 03E
303(; 4369 LJSELA DC
XL2·0A89·
303E 4370 LISt!LB DC
>Cl...2 1 0889·
3040 4371 l.JSELC DC
XL.2·0 CS9 ·
3042 4372 LI S::i..O DC
XL2·ooec;i·
3044 4373 LJSSLE DC
>L2·0E89·
·374
Uo LI NE-SEL-A FROM MOS 9 o 1..0AOEO BY USEA LE LI NE-SEL-B F'AOM HOB 9. LOAOEO ev USER
LE l..INE-SEL-C FROM HOB 9. LOAOED B'! USEt:t LE LINE-SEL-O FROM HOB 9. LOADED b't USER
LE LlNE-sEL-E FROM woe 9. LO~OEO ev USER
4375 · CHQ I CE S FOR .ORO 03F
3046 4376 WRPlN OC
xt.2·lE04 1
CSNE
SET INS! DE WRAP
l 8912
01 SPLAY ADAPTER lEST
I
I
!
ERR LDC 06.JEC'l" CODE
I
I
(·~", .
3047 5040
I
I
! r~
!
I
I e1
'I! (;
3049 26 304.A 00 3048 30C1
AOOR STMT SOURCE STATEMENT
3048 4377 ~RPOUT DC
XL2·S040·
eos.o TO Arq 040
44337769 *··········~·O·U·T··I·N·E···2·8···- ·D*A*TA**WR*A*P *(N*O*e*tT*S*J*******··························*·
44338810
4382
4383
**********************************"'********·············~················
* *
THIS ROUTINE IS SIMILAR TO THE LAST ROUTINE EXCEPT THAT NO BITS ARE WRAPPED. THE MICROPROGRAM LOADED ANO EVERYTHING
* *
* 4384 "'
4385
EXCEPT THE OAT .e. IS THE SAME·
* ·
44338867 ···············~·········************·*****'*·$·························
3049 4388 RT 26
DC
304A 4389
oc
304(; 4390
DC
4391
XL1·2B·
XLJ·oo·
AL.2(RT2C)
RDUTI NE NUlllBEA NO MANUAL INTERVENTIOH
ADDRESS CF ~EXT ROUTINE
3077 4392
USING A20K011Xfll
3040 C2 01 3077
3051 co 87 021A
3055 01 3056 18 3C57 308A
4393 4394 4395
::.oss 4396
3056 4397
3058 4398
LA
R20K01,XR1
B
PRINT
DC
x;_1·01·
DC
I&.1 1 24·
oc
Al..2(RT200PI
INITtALtZE XA1 FOR !NOEXlll!C' PRlNT ROUTINE HEADING
3059 co 81 5918
:rn·so e3
4J;99 4400 3050 44-0 l
e
LOADCS
DC
XLl I 83·
vLOAD PGM TO SE1' CURAR
r ,
I "-. ··
c
305£ 3098 3060 .!OCO 3062 F3 58 EO
oc 3065
01 3022 30 ~A
3068 oc 01 3024 30 ::c
3o71 oc 01 3026 3046
3077 co 87 5918
3078 83
307C 2FA7 307E 3028
305F 3061
3070 307F
4402 4403 4404
4405 4406
~407
4408 4409 4410
4-411 441Z 4413 4414
*
R2OKO1 "'
DC
oc:
SI 0
MVC B
oc
DC
oc
llL2(R20MCS) AL2CA20MCE) X·EO· ·SIOI
RlFMCE-6(2).H08900 RlFMCE-4( 2l 9 Ll SELA RlFMCE-2(2).WP.PlN LOAOCS
Xl..1 8 83·
AL.2U'HFNCS) AL2Ht1FMCEt
.ENABLE MICRO CONTRDU..ER
TO SET CURAR
·GO LOAD MICROPROGRAM .D!SAB!...E UPON ENTRy· FILL 2NO
FSQ WITH eos.o ON AOORESS eSTART OF ~ICRC CODE .ENO OF MicqocooE
____________ _____ _ ,
3080 31 48 0062 3084 3C 10 5564 3088 3A 01 5541)
308C CO 87 54FE 3090 64 3091 5037 3093 -0 01 18 5FE6 3098 F2 81 04 3098 CO 87 525A
( ; 309F CO 87 0216
3090 3092
4415 4416 44l 7
4418 4419
4420 4421 4422
4423 4424
4425
R20:::Xl R20601
LIO
MVI SBN B
oc oc a.c
.JI:.
e
B
ZEROeHOe()
LPCNT.,X·:to· EHBP .. X·O!·
OOMICR
XLl'S4· ML2· 5037· ~20EX :\( 2 · XR 1). STA TAC R20S01 Pt OREG
el.CAD DATA FATTERN ·INCREASE MICROPROGRA~ TIME ·SET ERROR eyPAss BIT ON eGO EXECUTE MJCROPROGRAN ~ERROR HALT -84~EXPECTED END CF TesT eTEST FOR ACTUAL ENO OF TEST .JUMP IF SO .ERROR GO PAIN~ 1/0 REG
44Z6
c
30A3 P9C6E4E340F2C 4'40 30BA 44<?7 RT200P OC
30AB E7D4C9E!6109C !CJ
4427
JOB3 40050640C2C9E.!E2
4427
* * 4428 ., - - - · - - - - - - - - - - - - - - - - - - - - - · - - - - ·
4429 ~TART OF MlCROPROGRAM ~lSTING
r·~· ~}
3oaa 7000
3080 7171
30BF 1704
4430 ·---------·--------------------·
30BS 4431 ~2CMCS EQU ·
30BC 4432
DC
JOBE 4433
DC
30CO ·~34 R20"1CE DC
4435
Xl.2'· 7000 1
XL,2"7171 ·
XL~· 1704 5
00 IC· SET HOS 00 TC ZERC 01 IC· SET HD6 Cl TO 71
oz SSN· LOAD CuRAR FRON NBAR
4436 4437
~*******·······*·*·***·······**·*·******q~···8·$····~·*··~····3·~$····*
*
ROUTINE 2C - OATA WRAP (ALTtRNA7E SITS AA)
·
4~38 ***····$········~····~·········***········*****$*~****·*~···~·~·····***
4439 "'
* 4440 *
44·H
·
fHIS ROUTINE I~ LIKE THE LA~T ROUTINE EXCEFT Tt·AT ALT· (.AAJ BITS ARE WRAPPEOe THE M!CAOPAOGRAM LOADED ANO EVERYTHING
* *
4442 *
EXCEPT THE DATA IS THE SAMEe
·
OATE
07..JUL ?S
EC NO. 825023
2$Q;Tl'S 62f032
UUAN1'6
8250~4
PAOG 10 PAGE
()
DATE
"EC NO.
D7.NL75
a2soi3
25 CCT75 82!034
1S.JAN76 825034
PROG ID PAGE
-----·--'""'' -''···-·-,, ,·r.'
· I
i9
!"""----- . . . . . . . I
._._..~ ·N'' ... ~,-----"-'· ~--- .·.'· _·.~
- -,-. i19.~·~ ,...a.~__...-,~ ~,...~- '.'lll~"ilt!,· ................- - - - - - - - - - - -...........
.' ...... .,.__................I I . -..·-..........
......
~M
IBM MAINTENANCE OIAGN CST IC PRCGRAM
PART NC· PAGE
4234255
IBM MAINTENANCE OIAGNtST!C PROGRAM
36 I \,.,
PART NOe PAGE
8912
DISPLAY·ADAPTlR TEST
8912
DISPLAY ADAPT ER TEST
ERR LOC OBJECT CODE
ADOR STMT SOUQCE STATEMENT
ERR LOC OBJECT CODE
30Cl 2C 30C2 00 30C3 3130
30C5 30C9 30CA 30C6
CO 87 01 19 31ZF
0.21A
JOC.0 C2 01 30E 3
ADOR STMT SOURCE STATEM9'T
4443 4444
······················*··············~······**************3**************
4445
30C 1 4446 RT ~C
30C2 4447 30C4 4448
4449 4450
J0C:9 4451 30Ct 4452 30CC 4 453
4454
30E3 4455
4456 R21ST
DC
)(L.1 ·2C·
DC
XLP00 1
DC
AL2{RT2D>
e
PRINT
DC
xt.l· 01 11
DC
11..1 ·25·
oc
AL2(RT21CP)
USING R2lKOl.XA1
LA
~lK01.,XR1
ROUTINE NUME!ER
NO MANUAL INTERVENTION
ADDRESS OF NEXT ROUTINE
{
PRINT ROUTiNE HEADING
311\C OC 01. 3026 3046
3152 co 87 5918
3156 83
3157 2FA7 3159 3028
3158 31 48 3198 ::HSF 3C 10 5564 3163 3A 01 5540 3167 CO 87 54FE 3165 88 316C 5037 316E 40 Ol lB 5Ff6 31 73 F2 81 04>
3176 co 87 52511.
4507
MVC
4508 R22K01 B
3156 4509
4510 ·
3158 4511
oc
31SA 4512
DC
4513 4514
LIO
4515
MVI
4516 4517 3166 4518
SBN
a oc
3160 4519 R22EX1 DC
452.0
CLC
4521
.JE
4522
B
A1FMCE-2U) ,,lifRPIN LOADCS
)IJ...1 41 83'
AL2(RtFMCS)
AL..2( R 1FMCE >
Y.01ss.Hoeo
P-PCNT· xe 10 ·
EHBP.x·01 9
DOM I CR xt..1·88· XL2 9 5Cl37· R22EX1(2~XRli·STATAC R22BO 1 Pt OREG
.GO LOAD MICROPROGRAM @DISABLE UPON ENTRYo FILL 2ND
FSQ WITH eos.o ON ADDRESS
eSTART OF MICRO CODE .ENO oF MICROCCDE
oLOAD CATA PATTERN 1NCREASE MICROPROG~AM TIME
0
wSET ERROR BYPASS SIT ON ~GO EXECUTE MICROPROGRAM
.ERROR HALT -sa-
.EXPECTED ENO OF TEST .TEST FOR ACTUAL END OF TEST
o .JUMP IF SO .EP.ROR GO PRINT i/O REG
3 001 OC 01 3022 30 :!A
JOO? OC 01 3024 30.:C
3000 oc 01 3026 30.0
30c3 co a1 591 B 30E7 63
30E8 2f"A7 30EA 3028
4459
4460 4461 30E7 4462
4463 30E9 4464 30EB 4465
R,HKOl
$
MVC
MVC MllC 13 OC
DC DC
R1FMCE-6l2)11HOB900 Rl FMCE-4 (.2) 9 1.. ISELA
R1FMCE-2(2)e~RP1N
LOAOCS
XL1ea3·
AL2UUFMCS) ALUl:UFMCe)
oGO LOAD MICROPROGRA~ .DISABLE UPON ENTRY~ FILL 2ND
FSQ ~!TH eos.c ON AOO~ESS
tiSTART OF MICRO COOE
·ENO OF MICROCODE
317A CO 81 0.216
4523 452~ R22aO 1 8
4525
31 'fE 0906E4 E340F2C'1140 3196 4526 1RT .220P DC:
3!86 E7D4C9E36ll>OC !C3
4526
318E 40ClD3E340C2CSE3
4526
3196 E2 3~97 0155
4526 a198 ·527 X015S CC
4528
~GO TO NEXT ROUTINE CL25·ROUT 20 XMITJ'REC ALT BITS~
~ALTERNATE BIT P~TTERN
4466
30EC 31 ·Ul 2740 JOFO SC l 0 5564
30F4 3A 01 5540 30F8 ~O 87 54f'E
30FC: 86 30FD 5037 30FF 4-0 01 1B SFE6
3104 F2 81 04
31 07 c.o 87 5251\
4467
LlO
4468
MVl
4469
S8N
4470
d
30FC 4471
OC
30FE 447Z ~2iEX1 DC
4473
CLC
4474
JE
4475
a
4476
31 OB 30 42 0A03
:uoF co e1 4FF4 3113 co 87 0216
4477 4478 4479 4480
R;? 1801
O.. li
BE
a
3117 D906E 4E 340F ZC .;40 3 l 2F 4481 ATUOP DC
xo2AA11HOeO LPCNTvX· 10~ EH13P.,X 1 01 9
C:OMICR Kl..1° e<&·
° XL2·50J7
R.21Ex1 t2 ..xiRi a .sr11.YA£:
R?.1601 PJ.CREG
PR'fN,, X·"'2@
~OR2
LINK
cLOAD DATA ?ATTERN
G!NCREASE MICROPROGRAM TI~E
en· ~SET ERROR 1.'!YPASS
ON
,...,,
.GO EXECUTE MICROPROGRAM
lj'
&E~ROR HALT -86-
" E XPECTEO ENO OF 'fE Si · T f.ST FOR ACHJAf_ E;~O Of' TEST
e .JUMP IF 50 cf'RRO~ GO PRlNl' !.ftl i"~G
·TE ST !"QR RCUT~ NE 42
.,flETURN IF SO
t/f"-1;.
oGO TO NEXT ROUTINE
~
4~552298
4530
4531
**·*~~·-···~·$·R$·O$**U·*·T**IN**E**~**2·E*·*·*-*~·*T·~R·*A·N**S*·~*·l*·T*·*·*Z·*E*R$·O*·*E·*S·*·*T*$E$S**T*·********~**·***~*~*·*·*·*·*···~········***·*·*·*$*·***·$~~···**
4532 *
4533 ii<
* 4534 II<
4535
·536 4537
· *
TTSRH~A}!.N~~S;lllRlOH\ \SJ"l"1TI.NU'3REN!E<C"RHCQECECKSNS
SSN 0 INSTEAD AND THE
\OHlCM CAUSES OF H1f.: !)ATA l!/C REG IS
·rt,iE ~TTACl-INENil' YO
KN THE I 1'0 REGl STER· l.OADEt "O! !CE· AT THE
END OF 13 CYCLES RECEIVE WORD READY lS CHECKED TO ASSURE IT
010 NOT COME ON (INDICATES ALL ZEROES TRANSMITTED>· THENs
·'*
** - - - - - -
*
*
<t-538 >'
4539 *
t;,540 >!<
~13OMROD::!RE ECCYECIVLEEDS
L..AH:R RECEIVE
IS CHECKED TO
..ORD READY
BE SURE IT
ONE TRi>NSMlTTECo THiS ROUT !NE IS DONE
MBISYUST~TM~CAEOPMPSiEAN~OEGN
AND THE
AS THE IN OJA&-
ll1
*
*
4541 ·
NOSTIC MODE·
1$
4542 4543
****·**·*·******~····************·*********""***·*~*·····~···············*
311 F E? O.C9E.36109 C EC3 3127 40C103E340C2CiE3
312F E2
4481
4481
4481
4482
e 4482
4483
4484 4485
·$$$·$i$$»*·**·*·"'R·"·O'**Ul·iTl·*IN-**·E"·'*~2**·0$·1!·-i·lf·Ol·<A'·Tl·Atl$l*;~\*Rl*lAl*Pi*$**t*A·"L'$*.·T*'E·*Rg·:·N**·A*·T*O·El·t1·BC·ItT$·*S·**·15·11·5<·*)$~**$"*'*'***$*>*1'$$$*~$*$"'$"$'"$'$*"*'**"*"***********;l
3199 2E 31. 9A 00 319B 3244
3190 C2 01. 3lA9
4544
3199 4545 319A 4546 319C 4547
4548
31A9 4549 4550
DC
Xlcl ~zec
DC
xi~i" oo·
DC
AL..li!«RT2F)
USING R23K0l~XIFl1
l..A
~2.3KO 1 $X Rl
ROUTINE NUMBER NO MANUAL INTERVENTION ADORES S Of' hE x1· ftOYTI NE
lNlTIALIZE XA1 FOR INDEXING
3130 20
3131 00 3132 3199
3138 CO 87
313C 01 3130 l9 :!l 3E 3196
021A
* 4486 ·
4467 4488 ·
THIS B!TS
RAOR EU T1I1N1~E.o.PPIESi..i.L. l
l
<E THE LAST ROU"tINE EXCEPT THAT ALT· THE MicRoPROGRAM LOAOEO :.NO ttveRVTH
t
(5 NG
5
)
C· *'
$!
"'
44-89 4490
4491
······*··E·X·C··EP·T·*T*H·E··D·A·T~A···IS··T·H·E··S~A·M··Eo*·$··~*···***·*···~····*···**···6$$~·*lit
('.i,.
449.2
:s 130 4493 ITT' 2.0
3131 449~'
3133 4495 4496
JH'l.2 4497
4498 ·499 4500 313C ·SOJ. 3130 4502 3l3F 4503
DC
Jlll..1 ·2D~
oc
X!..1 9 00·
DC
At.2lR1'2E)
USING R22K<H ~><'"11
~A
R22KCi~XAi
B
PRINT
OC
!llL.1 9 CIP
Dt;
IL1 · 2541
DC
Al..2(RT220P)
s::lOlJTI NE N\il'llf.H':'.A
NO MANUAL JN1'ERVENT:li0H
ADDRESS OF ~EXT ROUTINE
31 !Ill CO 87
31\AS 01 31A6 13 3U7 3J,03
04?1 A
::H ll.9 co 87 5918 ::nao &3
31AE 3104 3180 3243
:!182 ~c 20 5564 :S166 CO $7 54FE 31BA SA 318B 5033
.nee co &7 0216
·S51
4552
a
~HAS 4553
oc
31A6 4554
oc
:n"e 4555
DC
4556
4-557 R23<01 8
31AO 4558
oc
4559 "'
3i Alf' 4560
DC
3181 .\.561
DC
4562
4563 4564
MV ¥
a
3lBA ·S6S
DC
31ac 4566
oc
456'1'
4568
0
4569
PRINT X\.l' 01 1
u.. 1·19·
AL.2.{RT23C:Pi
LOADCS x1..1 ·e3·
AL 2l R 23MCS) #IL 2 { !<.~314 CE}
L.Pcwr .. x~20~
COMXCFI X!.. l ·\;Ai
XL2'503~·
LINK
~GD LOAD MICROPROGRAM ., OlSA6l.E UPON EN-n:tYe FILI.. <!NO
FSQ ~lTH eos.o ON ADDRESS
e STAR·r Of' Ml CRC CODE .. END DF MIC:ROCODl=l
~INCREASE M!CRO DELAY Tl~E .GO EXECUTE MICROPROGRAM
eEAROR HALT wSAeExPECTfW oATA
oc 31 ·0
01 3022 30U>.
3146 QC 01 3024 30~
4504 4505 4506
MVC t4YC
~1FMCE-6l2l·HOS900 R1FMCE-4(2J.LlSF.~A
! 103 4570 RT ~{llP IX
PAOG 10
DATE
07.IUL75
EC NO· 1:125023
25 lCT't5 82 !032
PROG ID PAGE
l5JAM76 8260:54
PAGE
! ·
· · · · · · · ·
·
·
·
·
·
·
··~
·
·
·
·
· · · · · · · · · · ·
·- ·--·· _ -·- · · · · · · ·
·--~·-----L·~~·~-·-·r·c~·~
!
·· · ·- · · · · ·
·\..
I
I
IBM MAINTENANCE Di AGN CST IC PR.:'IGRAN
8912
DISPLAY ACAPTEA TEST
PART NO.
PAGE
I
42342551
37
I
IBM MAINTENANC~ OIAGNCSTIC PROGRAM
PART NO. PAGE
EAR LOC OBJECT CODE
ADOR STMT SOURCE STATEMENT
I
8912
I
DISPLAY ADAPTER TEST
31C9 E704C9E340E9Cf09 3101 06C5e2
4570 4570
I
ERR LOC 08.IECT CODE
le;.
AOOR STMT SOI.ACE STATEMENT
3104 5034 3106 0989
3108 7300 31DA 1008
::noc 7FAA
310E 7400
.31EO 1304 31E2 1F04 31E:i!I- l 004 31E6 078F 3JE8 SOOB 31EA 078F 31EC 400E 31EE SOOD 31FO 41E1 31F2 5010 31F4 5011 31F6 5012 31F8 5013 3JFA 5014 31FC 5015 31FE 5016 3200 !5017 3202 5018 3204 41 E2 .3206 40E3 3208 41E4
.:!20A 1006 .:!20C 41 ES
320E 41 E6
·571 3104 4572 R2314CS Eau
3105 4573
DC
31D7 4574
oc
3109 4575
DC
3108 4576
DC
3100 4577
DC
31 nF 4578
DC
31E1 4579
DC
31E3 4580
OC
31E5 4581
DC
31E7 4562
DC
31E9 4583
DC
31EB 4584
DC
3 lEO 4585
OC
31EF 4566
DC
31F1 4587
oc
31F3 4588
DC
31FS 4589
DC
31F7 4590
DC
3lF9 4591
DC
31FB 4592
DC
31FO 4593
oc
31FF 459~
OC
3201 4595
DC
3203 4596
DC
3205 4597
DC
3207 4598
OC
3209 4599
DC
3208 4600
DC
3200 4601
OC
· XL.2'5034·
)(L.2·oes9· XL.2·7300 I XL2· 1008 1
xu:· 7FAA 8
XL.2·7400 1 XL2 1 1304·
XL2· 1F04·
XL'=' 11)04 · XL2· 078F· XL2'500B· XL2·076F· XL2 · 4 OOE8 XL2·sooo· XL2 1 41E1· XL2V5010· Xl.2·5011 · XL2·so12· Xl.2'5013· XL2·5014 · X1..2·so1s· >L2·50lf··
xt.2 1 5017 1 Xl..2' 5018·
XL2·41E2· XL2 1 40E3· Xl..2 1 41E4 · XL.'2°1008 · , XL2C41E5·
00 aos.o GO SET INSIDE WRAP
01 LEw OEsEL.ECT ALL LINES
02 IC· SET COUNTER (HOB 03) TO ZERO
03 04 05
= ssF.o RESET I/OREG BITS 2.3.13
IC· SET HOB OF AA (!ITS TO ee XMITTEO)
ICv REsET HOB 04 (RECEIVE AEGe!
06 SSNe3 SET BIT 3 OF l/O REG ON
07 SSNeF SET DIAGNOSTIC NODE ON
08 SSNw 0 SET XNI T ZEROES ON
09 LOAD l/O REG & XMIT 13 ZEROES
OA aos.o WAIT A CVCLE
OB LOAD I;O REG AGAIN TO XMIT DATA
OC
oo
TSN.O ~UST BRANCH (XMJT WC ROY ON) ERROR,. HANG
oe TSN,1 ~UST NOT BRANCH {REC. WO ROV OFF) OF SOS·O TO COUNT CYCLES
10
l1
12
13
14
15
16
1 7
18 TSNol MUST NOT BRANCH 19 TSNtO MUST NOT SRANCM lA TSNol ~UST NOT BRANCH IB SSF.o RESET 1,0 ~EG BITS lC TSN,l MUST NOT BRANCH
3.<?44 2F
3245 00
(
3246 32EB
3248 c2 01 3254
(
324C C 0 87 021 A 3250 01
3251 17
3252 3282
3254 co e7 591 a
c 3256 83 3259 3283 3~56 32EA
325D 3C OF 5564
(
3261 CO 87 54FE 3265 SE
3266 502F
c
3268 co 87 02lt>
4636 ·
* 4637
4638 ·
* 4639 * 4640
***************·****········*··········································· 44664412
PUTTING THE ATTACHMENT IN DIAGNrsTIC MODE ANO ACTIVATING SSN 6 ·
-~ICK BLOCKS THE PARITY SIT QN THE WORD TRANSMITTED THEneev CAUSING A PARJTY CHECK IF BIT 12 SHOULD HA~E BEEh Oh· A~L
· *
BITS A~E USED IN BOTH THEIR 0 ANO l STATES·
·
3244 4643 RT 2F
DC
3245 4644
oc
3247 4645
oc
4646
)Ci...1$2F·
XL 1' oo·
AL2(RT30)
ROUTINE Nu..eeA
NO MANUAL l~TERVENTION
AODREss OF NEXT ROUTINE
3254 4647 4648 4649
USING R24KOJ.XR1
LA
R24K01 .xr.:a
INITIALIZE XRl FOR INDEXING
4650
3250 4651 3251 4652
3253 4653 4654
e
PRINT
oc
xt.1· OJ·
DC
IL l '23·
DC
AL2 ( RT24 CP)
PRINT ROUTINE HEADING
4655 R24K01 8
3258 4656
oc
4657 *
325A 4658
DC
325c 4059
oc
4660
LOAOCS Xt.1 1 83·
At..2UU!4MCSJ Al..2 CR24MCE)
oGO LOAO NICROPACGAAM .oJSAeLe UPON ENTRY. FILL 2HD
FSQ WITH ecs.o ON ADDRESS
·START OF MICRO CODE
.ENC OF MICROCODE
4661 '>662 3265 4663 3267 4664
4665
MVI
B
oc
DC
LPCNT.X 1 0F·
COM I CR XL1·8ES XL2·502F·
alMcREASE MJCROPAOGRAH DELAY
·GO EXECUTE MICROPROGRAM
·ERROR HALT -ee-
.. E>IPECTEO DATA
4666 4667
B
LINK
.GO TO NEXT ROUTINE
ZC:lO 41E7 3212 41E8
3214 41E9
3216 41 EA
3218 41EB
::?21A 41EC
321C 4127
321E S025
::!220 5026
3222 0444
3224 41EE
3226 42EF
3228 432C 322A 502B ~22C B40F
322E 9C2F
3230 so2E
3232 4BFF
~23.\ 1310
3236 9C33
3238 .323A
323C .323E
sooe 5033 1EO~
7900
3240 OA89 3242 5001
DATE
07.IUL 75
EC NO. 825023
320F 4602
3211 4603
DC DC
)Cl.2··fHE6 · XL2 1 41E7·
ID lE
IN FOLLOWING SEQUE~CE OF i110R05
326C 0906E4E340F2C f40 3282 4668 RT240P DC
3274 E3C5EZE34009C fC3
4668
.'.:L23·ROUT 2F TEST REC. CHECK·
3213 "'604
DC
XL2·41E8·
lF
327C 4840C3CSC5C3D c
4668
3215 4605
3217 4606
DC
XU?·4JE9· 20
0C
)CL2·41£A·
21
4669 4670
·----------·--------------------*. 3219 4607
OC
321B 4608
DC
3210 4609
OC
* 321F 4610
DC
3221 4611
DC
i C 3223 4612
DC
3225 4613
OC
3227 4614
DC
I C 3~222289
4615 4616
DC DC
3220 4617
DC
322F 4618
oc
3231 4619
DC
3233 "l620
OC
3235 4621
DC
3237 ·622
DC
3239 4623
DC
3236 4624
oc
3230 4625
CIC
323F 4626
DC
3241 4627
OC
3243 4628 A23MCE DC
c 4629
4629
Xl..2"41EB· XL.2· 41EC·
XL2·4127' XL2·5025· XL.2 1 5026 8 XL2"0444 ·
XLP41EE·
XL2·42EF· xu:·432C 1 XL.2·5028·
XL2 1 B40F 1
XL2·9C2F 1 XL2·so2e·
::G...2·4BFF 1
XL2'1310 1
)Cl... 2·9c33· XL2·sooe·
XL2·so33·
XL291E04·
XL2"79oo·
>CL.2 1 0A891
XL2·soo1·
22
23
24 TSN· l MUST BE ON (AEC., WO RDV .. )
25 DUMMY WORO
26 ERRORo KANG
27 LE. E.-PTY I /0 REG 28 TSNtl ~ST NOT BRANCH AGAIN
29 TSNe.2 t.IUST NOT BRANCH {l/Q REG 2 OPF) 2A TSNo:! MUST BRANCH ti,o REG 3 ON) 28 ERRORa HANG
ZC ClAs CHECK DATA SAME AS XMlTTEO 20 sos.3 MUST BRANCH 2E ERROR. ~ANG
2F TSNoB REC. CHK. MUST BE OFF 30 INC· JNCR. COUNTER
31 aoc.3 BRANCH tP TEST tVER 32 aos.o RESTART TEST
3~34
HANG. TEST COMPl,.l:tED OKAY
SSN.,E TURN ON INSIDE WRAP
3~65
IC, PUT 00 IN HOB 9 TO DESELECT LINES l..EoPESE.:L.ECT ALL ALT LINES e
37 eos.o RETURN TO ADDRESS 001
I
I
I (,~
!
J
···············***·****··*******"'**····****"'*******************"'*"'*****I 44663310 ·
ROUTINE 2F - Rtcuve CHECK TESTS
·l (_.'.
*·····················' 4632 .................................................
4633 ·
·'
0 4634 ·
THIS ROUTJNE TESTS THAT Tt1E PARITY CHECK CIRCUITS ON YltE DATA *;
* 4635
RECEIVED BY THE J;-o P.EG ARE WORKING PROPERLY. THIS JS DONE BY ·
25CCT75
15JAN?6
3283 !5030
:!!285 0889 32ts7 7300
3289 l 008 3288 1508 :3280 74AA 328F 1F04 3291 1604 3293 120. 3295 0784 3297 410C 3299 500A ~296 4BOE :!290 5000 329F 150& Jl2A1 4BE1 .I!243 0644 32A5 I 008 32A7 1604 32A9 7555 32AB 1304 32AO 0785 32AF 4'118
:!281 5016 32B3 0644 32B5 4818 3281' !501A
32B9 isoe
4671 · START OF MICROPROGRAM LISTING
3283
'4672 4673
R~2-4~1-M-C-S-E-Q-U----------~~----~---·
3284 4674
32ee, 4675 3268 4676 328A 4677 320C 4678
328E 4679 3290 4680
3292 4681 3294 4682
3296 4683 3298 4684 329A 4685 329C 4686 329E 4667 32AO 4686
32A2 46Cl9 32A4 ~690 32A6 4691 32A8 4692 32AA 4693
32AC 4694 32AE 4695
3280 4696
3262 4697 3284 4698 3286 4699
.3288 4700 328A 4701
DC
De
XL2· 50.JO ·
x1..2·osa9·
00 eos. 0 GO SET I NSJ DE tlRAP
01 DESELECT LlNES
DC
XL.2· 7300· 02 JC, SET COUNTEq TO ZERO
oc DC oc
DC
oc
XL2·1ooa·
XL2 1 1508· XL2°74AA 1 Xl.2·1 F04 I XL2' 1604·
03 SSFo 0 RESET 1/0 ~EG BITS 21.'S.13 04 SSF o 5 Rf:SET REC. Cl-ii< .. 05 ICo SET HOB 4 TO XMIT lST PATTE~N
06 SSNoF SET DIAGNOSTIC NODE 07 SSN,6 SET BLOCK BIT 12 (PARJTYJ
DC
DC
Xl.2·1204· XL2'0784t
09 S5Nt2 TURH ON BIT 2 CF l'Q REG 09 LEo LOAD I'O REG & XNIT WORD
DC
DC
XL2· 410C·
XL2 ·sooA ·
OA TSN.1 -AIT FOR REC. we. ~O't' ON
08 BOS,O BRANCH BACK
DC
XL2° 4BOE·
oc TSN·B REC. Ct« ~UST SE OH
DC
XL2 ·SOOD· 00 ERROR. HANG
DC
XL2· 1soe· OE SSF,5 RESET RCCEIVE CHK~
DC
XL2'4BE1 1
OF TSN,B MUST NOT B~ANCH
DC DC
Xl..2'0644· XL2 1 l 008·
10 LEw P~T 1,0 REG IN HOB 06 11 SSF.O RESET l'O REG 2·3ol3
DC DC
Xl..2"1604· XL2' 7555 ·
12 SSNo6 S~T B~OCK BIT 12 (PARITY· 13 SET HOB 5 TO NEW PATTERN
DC
oc
DC
DC
XL2' l 304 ·
XL2'o785'
XL2t41181
XL2 1 \50l6 1
14 SSN,3 SET BIT 3 O~ I'° REG
15 LE. LOAD J;o REG WITM NE· PATTEAN
16 17
TSNol eos.o
W~IT FOR REC WO ROY TO COW! ON LOCP EACK To PAEV. WO
oc
DC
lQ..2 1 0644. XL2 1 4Bl B·
IS LE· UN..04D I ,0 REG TO HOB 6 19 TSN,e REC. CHK. MUST BE o~
DC
XL2· 501A ·
IA ERRORo HANG
DC
JCL.2"1508· 18 SSF.5 A'ESET AEC. CHK.
&0 82~3~
·825034
PRQ\a ID PAGE
0891-2 37
DATE
07.JUL75
EC NO· 825023
25KT7t5 82SOJ .
15.IAN76 82150:S·
PROG 10
PAGE
·
IBM MAINTENANCE DIAGN CST IC PROGRAM
8912
DI SPLAY ADAPTER 1EST
PART NO.,
PAGE
4234255 38
IBM MAINTENANCE OIAGNCSTIC PROGRAM
8912
DISPLAY ADAPTER TE~T
PART NO.
PAGE
EAR LOC OBJECT CODE
ADOR ciTMT so~ce STATEMENT
ERR LOC OBJECT CODE
AODR STMT SOURCE STATEMENT
3288 48E2
3280 SOlE .328F 1008 32Cl 1204 32C3 0784 32C5 <'123 32C7 5021 32C9 "'8E3 32CB 43E4 32CD 4AE5 32CF 4228 3201 5027 3~03 0644 .3205 8406 3207 9C2C 32o9 5028 3208 1310 3200 942F 320F 5003 32El 502F 32E3 lE04 32E5 7900 32E7 OA89 32E9 5001
32EB 30 32EC 00 32EO 33F5
32F3 CO 87 32F7 01
32F8 21
32F9 3350
021 A
32F8 CO 87 59H~ 32FF 63
3300 3351 3~02 33F·
3304 330A 330E 330F
OC 01
CO 87 90 5039
S564 54FE
31$6
3~11 30 40 SFE6 3315 F3 58 SO 3318 30 49 :S326 331C 10 01 5FE6 3~
32BC 4702 ~703 ·
DC
XL2 1 46E2 1
lC TSNwB MUST NOT BRAN~H NOU
32BE 4704
DC
>L2·501E·
lD DUMMY l!IORD
32CO 4705 32C2 4706 32C4 4707
DC
XL2'1008 1 lE SSFeO RESET !/OREG 2e3t13
DC DC
XL.2· 1204· x1_2·07s4·
1F SSN12 TURN BIT 2 OF 1/0 REG ON 20 LEe LOAD i/0 REG & lOUT WO
32C6 4708
DC
XL2 1 4123 1
21 TSN1l WAIT FOR RECo WC~ ROY
32C8 4709
DC
XL2~so21 ·
aos.o BRANCH BACK
32CA 4710
OC
XL2"48E3 1 23 TSNeB MUST NOT BRANCH
32CC 4711
DC
XL.2· 43E4 1
24 TSNe3 MUST NOT BRANCH
32CE 4712
DC
XL.2"4AE5· 25 TSNoA MUST NOT BRANCH
32DO 4713
DC
XL2°4228o 26 TS~.2 MUST ERANCH
3202 4714
DC
XLZ· 5027 ·
27 ERROR· HANG
3204 4?15
DC
XL2"0644· 28 LEo UNLOAD I/O REG IN HOB 06
3206 4716 32D8 4717
DC
oc
)lr.L2°B4o6· XL..2°9C2C'
29 CIR. CHECK FOR EXPECTED RESULT 211. B0Ce3 B~ANCH IF OKAY
32DA 4718
DC
XL.2 9 5028 1
2B ERROR., H.4NG
32DC 4719
OC
Xl.21 13101
2C INC· l~CRE~E~T COUNTE~
320E 4720
OC
20 aoc.2 EXIT AFTER 16 TIMES
32EO 4721
OC
Xl..2"5003' 2E BOS, 0 RESTART TEST
32E2 4722
DC
XL2°502F · 2F HANG· TEST COMPLETED OKAY
32E4 4723
DC
.30 SSN.E TURN ON INSIDE a~AP
32E6 4724
DC
xt.2· 7900·
31 lC 0 ~VT 00 IN HOB 9 TO OESELECT
32E8 4725
DC
32EA 4726 R24MCE DC
4727
XL2· OA89 · XL2'500J.·
LEoOESELECT ALL At. l· !..i"-'ESe
aos.o RETURN TO ADDRESS 001
c
4727
* * 4728 **********·······$····~··*·*·*******$********$~$*$***********·*·*~··~*$
4729
ROUTINf 30 - CURAR SET DURING RECEIVE DATA ~ODE
647310 ·······~·-·······················*·····***·············~~·········*······
473.2 II: 4733 "'
THIS ROUTINE TESlS' THAT 19HE1' THE ATTt.CHMIE:!\T IS ;;lECEI'ln'NG DATA >I> WlTH SSN B ~RECEIVE DATA MOOE) ACTIVATED. ~8.1\R tll!LL 8E
* 4734 "'
4735
* 4736 * 4737 * 4738
4739 ·
MOVED lO (.IJ;lAR WHEN THE CURSOR SIT HHT 3» IS RECE!VEDo
THE VALUES OF MSAR MOlfEO ARE 5AA AND 255 ~ CURAR ! S. THEN RESET
TO ZE~O ANO RECEI\lf CATA MOCE <TSN tH IS 'f(JRNEO OFF.. THE
*
TEsT IS THEN REPEl'TEO TO BE SURE MeAR DOES 1'C!T GET TRANSFERRED $
** TO CUR AA iN THI$ CASE·
44774410 ~············~***$*****····$***··****·*·*···*····*······**********#*~*·
32EB 4742 RT30 oc
32EC 4743
O(;
.32EE 4744
DC
4l'45
XC..1 1 30· XL.1 GOO· AL2RT.U)
ROUTINE NUMEER NO MANU4L JNTeRVENTtON ADDRESS OF NEXT ROU'tl NE
32FB 4746
USING A25KOloXRl
4747 4748
LA
~51<:01.,XF<l
4749
B
PRINT
32F7 4750
DC:
XLS 8 01 1
32F8 4751 32FA 4752
DC
IL!' 33'
oc
M..2(RT250? i
475.)
4754 R 25KO 1 B
32FF 4755
DC
4756 $ll
3301 4751'
oc
3303 4758
oc
4759
4760
MVC
4761
El
330E 4762
oc
3310 4763
DC
4764
LOADC.S X&.1'8:3·
~.l...2(R2Sfl!CS)
AL!<R25MCE)
l..PCNT" XO l!:HH 2l OOl>IICA JU. p 90~ IJCL!· £H:l3B'
oGO LOAD ~ICROP~OGRAM
.or SABLE UPON ENTRY. F JLL 2NO
FSQ WITH eos~o ON ADORES$
~START OF ~ICRO CODE
eEND OF ~ICROCODE
( '·~.
$EXTEND MltRO?AOGAA~ OE~AY ~GO EXECUTE. MICROPROGRAM
·ERROR HALT -90~ ~e XPECTED DATA
4765 4766
SNS STl.TAC 9HCBS
Sl[(J x·oo·.,s;oz
~SENSE ACTUAL CURAR
~DISABLE ATTACHNEN~
4767
SNS R25EX:1 aHCBl
$SENSE exPecteo DATA
4768
CL.C
STATACeR2SE~l(2·XA1)
.COMPARE FC~ ExPECtEO
I
3321 F2 81 08
4769
JE
~324 CO 87 5CA5
4770
4771 R25ERR B
3328 06
3328 4 772
DC
3329 91 332A 0000
3329 4773
DC
3326 4774 R25EX1 DC
332C CO 87 0216
4775 4776 R2!801 B
4777
3330 09D6E4E340F3Fl40 3350 4778 RT2SOP OC
3338 C3E4C9Ct0940E ~5
4778
R25B01
o.JU'4P IF OKAY
STATUS XL 1 ·os·
XL:i. '91" XL.2. 0.
.ERRORe GO PRINT OUT .PRINT CURAR ERROR MESSAGE .E~ROR HALT -91·EXPECTED DATA GETS FILLED IN
LINK
sGO TO NEXT ROUTINE
CL33·ROUT 30 CURAR SET DURING REC DATA·
3340 E340C4E4C9C90!;C7
4778
3348 4009C5C340C4C lE3 3350 Cl
4778 4778
4779
* 4 780 * --------··--------------------·
4"181 * START OF MICROPROGRAM l...ISTJNG
3351 504E 3353 0689 3355 7000 3357 71 00 3359 1704 3356 7205 3350 73AA 33SF 76F1 3361 1F04 3363 1604 3365 1008 3367 0766 3369 4H>E 3366 500C 3360 07-4.4 336F 1110 .3371 9C33 3373 6200 3375 9C14 3377 SOH\ ::1379 8301 3378 9C17 337() SC.118 337F 503C 3381 E007 3383 9C1B 3385 500A 3387 ElEO 3$89 9C1E 3388 SOOA 3380 5041 :338F S01F· 3391 B21A .3393 9C23 3395 502$ ,tl397 B31B 3399 ~26 3398 5035 3390 E355 339F 9C3E :i3Al 7000 3311.3 '7100 33A5 7202 33A7 7355
33A.'9 500A 33~8 76F2 33AD 7000 33AF 7100 3381 1 704
4782 ·-----------------------------··· 3351 4763 R2SMCS EQU ~
3352 4784 .33'54 4785 3356 4786
3358 4787'
335A 4788
DC
oc oc
YJ..2· 504E· XL.2· 01389' XL2· 7000·
00 E:HJS·i> GO SET lNS!WE 1115'/I.?
= 01 L.Ee DESELECT ALL LINES
02 lC9 SET MBAR HJ 0
DC
XL 2·7'100 ·
03 lC. SET MBAR LO "' 0
DC
XL2e 1704 ·
04 SSN. 7 RESET CUR AR
335C 4789
DC
XL2"7Z05· 05 1c. SET ~DB 02 TO lST EXPe VALUE
335E 4790
DC:
XL2·73AA· 06 IC. SET HOB 03 TO lST EXPe VALUE
33EO 4791 3362 4792
DC
XL2*76Fl· 07 IC· SET DATA XMITTEO TO Ft
DC
XL 2· 1F04 · oe ssN.F sET DIAGNOSTIC MOOE
3364 4793
3366 4794 3366 4795
33l:A 4796 336C 4797
DC
XL2' 1 B04 ·
09 SSNd~ SET REC. OATA MOOE
oc
XL.2°1008·
OA SSFoO RESET l/0 REG e!VS 2·3o13
oc
XL2e0786 ·
08 LEo LOAD U'O REG & XMyT il10RD
DC
XL;:w410E· oc TSN,l WAIT FOR RECs weg ACY
oc
X&..2 · sooc ·
oo sos~ 0 ii..OOP BACK
336E ~796
DC
XL2·0i'44·
OE L Eo EMPTY 11 /0 AEG TO HOB 7
3370 479~ 3372 4800
3374 4801 3376 4802
33?8 4603 337A 4804
!)C::
xa_2·;,110· OF INC· lNCR. MSAR LO
oc
XL2·9C33·
!O soc.3 BRA~H IF MBAA HI ~EDS ENC.e
DC
XU?· 0200 · l l CIR· CHECK FOR MATCH
DC
Xl..2~ 9C14·
12 aoc.3 5RANCH IF HI ~·TCH
DC
XL2"5016'
l3 BOS· 0 iF NOT ~ANCH TO CHE:CK MBAR
DC
Xl..2 8 6301· 14 CIR· CHECK FCR LO MATCH
337C 4805 337E 4806
DC:
XL.2 & 9C 11' ·
15 80C· 3 IF ~A"l'Cl-h SET BIT 3
DC
JtL2·5016· 16 aos.o NO MATCH CHECK NBAR
33eo 4BG7 3382 4808 3384 ~509 3386 4610 3388 4811 338A 4812 3Ji8C 4813 33se 48!4
3390 4815
DC
XL.28 503C· 17 eos~o BRANCH TO SET BIT 3 (CURSOR)
DC
XL2·E007·
18 Clo CHECK MSAR HJ c 07
DC
Xl..2. · 9Cl B·
19 aoc.3 IF $0 CHECK MBAR LO
DC
XL.2 1 500A· 1A eos.o RETURN TO LOOP
DC
~L2" E1EO · lB Cl· CHECK M&AR LO & EO
DC
XL2 ·9C1 E · ic aoc. 3 lF so. END LOOP
DC
XL2 esoo.t. · 10 aos.o RETURN TO LOOP
DC
XL.2·5041·
1E BOS. 0 GO CHECK CUR AR VALIJE £. SET HOB lA-16
DC
XU?· 501F'
1F DUMMY llORO
3392 4816
DC
Xl...2·821A· 20 CIRo CHECK FOR COP.AECT VALVE
3394 4817
DC
XL2° 9C23· 21 60Co3 BRANCH IF MATCH
3396 4818 3398 4819 339A 4820
DC
XL2· 5025· 22 Bos.o SRA..CH TO CHECK MISCCNPARE VAL.iD
DC.
XL2"B31B· 23 CIR. CHECK F()+.l CORRECT VA.Lue LO
DC
Xl..2·9(26. 24 eoc.3 BRANCH IF CORRECT
339C 4821 339E 4822
DC
XL2 1 5035·
?.5 Bas~o C~t:CK FOR VALIO MlSC()iltP~AE
DC
XL2 1 E3:55 9
ex. 26
Cl-ECK FOs:! ?ND OR 3RO PASS
3311.0 482:3
DC:
XL2· 9C3E· 27 Boc.3 BRANCH IF so
33A.2 4824
33A4 4825 33A6 4826 33A8 48?.7 33A,, 4828
DC
XLZ·7000·
28 lCt RESET MSA~ HI
oc
XL.2 · 7100 · 29 H:. RESET 111\BAA LO
DC
XL2· 7202·
2.A ICo SET NEW illlATC:t~ VA!l..UE
0(;
XL.2°7355·
26 IC~ SET NE~ ll>IATCH V~LUE LO
DC
XL2·500A·
2C BOS· 0 FIE.!.:l i~RT 111 ITH NE\ll VM..UIE
33AC 4829 33AE 4830
DC
XL2'76F2·
20 IC· C&<lANGE OAlA VALi.IE TO F2
DC
XL2"7000· 2E IC* RESET lliBAR Ml
3380 4831 3:382 4832
oc
XL2 1 7100· 2F IC.RESET MBAR LO
oc
lCL.2· 1 '704 t
30 SSNe 7 RESET CURAR
DATE
07.JULT5
EC HO .. 825023
25CCT75 82 £032
15JAN1'6 8215034
PROG 10 PAGE
10
08?1-2;
llATE
3S
EC NO·
"
O?JUL 75 825023
2SCCT7!5 82 £032
15JAN76 825034
PICOG ID FAGE
OB9l-2 l 38A
· ·
··············· ··· ·············
IBM MAINTENANCE DIAGNCSilC PROGRAM
PART NOe PAGE
4234255
IBM MAltlfTENANCE OIAGNCSTIC PROGRAM
39 \
PART NOe PAGE
8912
DI SPLAY ADAPT EA TEST
, . S912
DISPLAY ADAPTER TEST
ERR LOC OBJECT CODE
ADDA STMT SO~CE STATEMENT
\ ERR LOC 06.JECT CODE
AODR STMT SOUl~E STATEMENT
3393 1808 3385 500A 3387 1010
3389 5011 3388 E6F2
3360 9C38 33BF 5038 33Cl 7200 33C3 7300 ::!!3C5 lFOB 33C7 503B 33C9 1304 33CB 5008 33CD E6F2 Z3C~ 9c38 3301 5020 3303 7000
3305 7100
3307 544A
3309 1110 331)6 9043
3300 1010 33DF E080
33El 9C40
33E3 5043 33ES 2A20
33E7 2621 33E:9 5020 33EB 504D 33ED 1E04 33EF T900
33Fl OA89
:33F3 5001
3.3F5 31
33F6 00
33F7 3498
33F9 C2 01 3405
33FD CO 87
3401 01
3402 10 3·03 3438
021A
3405 co 87 '5918 3409 83
3·0A 343C: 3·0C 3497
3·oE oc 01 !se· 31se 3414 CO 81 54FE
O"TE
07.IUL '15
EC 1110. 825023
3384 4833 3386 4834 3388 4835 33BA 4836 338C 4837 33BE 4838 33CO 4839 33C2 4840 33C4 4841 3X:6 4842 33C8 4843 33CA 4844
33CC 4845
DC
xt.2·1eoa· 31 SSFoB RESET Rec. DATA MOOE
DC
.XL2 1 500A· 32 BOStO GO RESTART LOOP
DC
XL.2·1010' :!!3 I NC o INCRe MS.AR HI
DC
oc
XL2 1 5011 1 Xl..2'E6F2 1
= ~3·5
eos.o RETUR~ TO LOOP
Cl1 C~ECK DATA F2
DC
X&..2 1 9C36· 36 eoc.3 IF so ERROR MAY BE LEGIT.
DC
XL2·50::SB· 37 ERROR. SUT GO TO END ANYHOW
DC
XL.2·7200· ;;e IC· SET HI EXP RESULT TC ZERO
DC
XL2'7300· 39 IC1 SET LO EXP RESULT TO ZERO
oc
xt.2 1 IF08 1 3A SSF1 RESET DIAGNOSTIC MODE
DC
XL.2 1 5038' 38 HANG, TEST IS COMPLETED
DC
XL2·1304 1 3C SSN, TURN ON BIT 3 OF 1/0 REG
DC
>CL.2· 5008. 31) eos.o RETURN AND XMIT CURSOR SIT
3418 93
3418 4900
oc
3419 5027
341A 4901
DC
3418 co 87 0216
4902 4903
4904
341F 0906E4E340F3Fl40 3438 4905 AT2oOP DC
3427 E704C9E340C2C g:3
4905
342F 40F340C6C9060~40
4gos
eERRDR HALT -93,. EXPECTED DAT A
LINK
eGO TO NEXT ROUTINE
0...29·ROUT 31 XMIT BIT 3 FROM CUAAR·
3437 C3E409C1D9
4905
4906
* 4907 *-~---~~~~----------------·
4908 · ST ART OF MICROPROGRAN LISTING
33CE 4846 3!00 484'7
DC
>0..2'E6F2' 3E Cl· CHECK FOR 3RD PASS
DC
XL2'9C38'
so 3F ecc,3 GO TE~MINATE IF
3302 4848
DC
.lCl.2"5020· 40 eos.o GO DO 3RD PASS
3304 4849
DC
XL2'7000' 41 lCt SET MBAR HI · 00
3306 4850 3308 4851
3.lOA 4852
oc
DC
XL.2· 7100· lilL2'544A'
= 42 IC1 SET MBAR LO m 00
43 eos.1 BRANCH IF MBAR
CURAR
DC
XL2 1 lll0 1 44 INC1 INCR. MBAR LD
f
'
33DC 4853
DC
XL2 1 9043 I 45 eoc.o BRANCH BACK IF ~OT ZERO
330E 4854
DC
XL.2 1 1010' 46 INC, INCR, MBAR HI
33EO 4855
DC
xL2·eoso· 47 CI1 TEST FOR END OF MBAR
33E2 4856
DC
>U...2 1 9C40 1 48 B0Ct3 BRANCH IF ERROR
33E4 4 85 7
DC
Xl.2'5043 1 49 eos.o BRANCH BACK
33E6 4858
OC
>IL2'2A.20 · 4A LR 9 LOAD HI CURAR HOE lA
33E8 4859
DC
XL2 1 2B21· 48 LRe LOAD LO CURAR HOB 18
33EA 4860
33EC 4861
DC
Xl.2 1 5020· 4C 805 0 0 RETURN TQ MAIN LOOP
iJC
>CL.2 1 5040· 40 BOS.O ERRORe HANG NO MATCH FOUND
33EE 4862
DC
XL2' 1 E04 · 4E SSN.E TURN ON INSIDE WRAP
33FO 4863 33F2 4864
DC
XL2· 7900· 4F 1c. PUT 00 IN HOB 9 TO DEsCLECT LINES
DC
>«..2' OA89'
50 LE.OE SELECT ALL ALT LINESc
(
33F4 4865 r.25McE oc
XL2·500J · · 51 eos.o RETURN TO ADDRESS 001
4866
4866
c 44886678 ·· ······R··O·U·T·IN··E··3·1··- ··T·E·S·T··X·M·I·T··B·IT···3··-H·E·N···M·B·AR······C·U·RA·Q·***··········~····*'
4486790 ·· ························~···*············**····························
* 4871
* 4872
= THIS ROUTINE ASSURES THAT A CURSOR BIT IBIT 3) IS TRANSfi4JTTED ·:
WHEN CURAR MEAR. IT IS DCNE BY TRANSMITTING DATA IN
·:
4873 ·
OIAGNO!TIC NOOE AND CHECKING THAT BIT 3 RECEIVED 1$ ALLWAYS
·;
4874 ·
OFF UNLESS MBAA a CURAR. ACDRESSES WHERE CURSOR IS INJECTED ·:
* 4875 ·
4876
ARE SAA ANO 255 TO ASSURE Tl-AT ALL ens IN THE COMPARE CIRCUITS ARE CHECKED·
·'
*'
4877 ·
..:
4878 ....................................................................... !
4879
33F5 4880 Af31 33F6 4881 33F8 4892
4883
3405 4884
4885 4£186 4887
3401 4888
~402 4889
3404 .\890 4891
C>C
XLl·.31·
C>C XLt·oo·
DC
._2(RT32)
usiNG A26tl:Oh>tR1
LA
A26K01,XA1
8
PRINT
C>c
XL1·01·
DC
u.1 ·29·
C>C
AL~CRTZ60P)
ROUTINE NUMBER
NO MANUAL INTERY,ENT ION
ADOREss OF ~EXT ~OUtlNE
C.'
INITJALliE XAi FOR IN>EX?NG
PAINT ROUT1~i HEADING
c
0
44l92 R2EK01 8
3409 4893
DC
4894 ·
3408 4895
DC
3400 4896
oc
MVC
a
LOADCS lfl. l 183·
AL2(R26MCSJ A.2CA26MCE)
&.PCN't .xo1 !!55(2)
~JCA
eGC LOAD MICROPROGRAM eOlSAat..E UPON ENTAY, FILL ~NO
FSQ WITH eos.o ON AOOR&SS
eSTAAT QF MJC~D CODE ·EiC> OF MICRoCOOE
elNCAEASE MICROPROGRAM DILAY eGO 00 MICROPROGRAM
· I
1I e
I
iI e
343C S02A 343E 0989 3440 7005 3442 7lAA 3444 1704 3446 220(} 3448 2301 344A 76F3 344C tF04 344E 7000
3450 7100
3452 1008 3454 0786 3456 41 OF
3458 5000 345A 0744
34SC 8002 345E 9C13
3460 50 l!S 3462 8103 346" 9Cl7 3466 43El 3468 5019 346A 4319 346C 5018 346E 1110
34?0 9C28
34?2 E008 3474 9C1E
3476 5008
3478 ElEO 34TA 9C21
34l'C 5008 347E E355
3480 9C26 3482 7002 3484 7155
3486 5004 3488 1F08
348A 5027 348C 1010 348E 5008
3490 U04
3492 7900 3494 OA89 3496 5001
· 4909 · - - - - - - - - - - - - - - - - - - - - - - - ·
343C 4910 R284CS EQU
343D 4911
DC
XL2 1 502A · 00 GO SET INSIDE WRAP ON
343F 4912
DC
X&..2· 0869 1
01 LEt DESELECT AL.L L lNES
3441 4913
DC
Xl.2 1 7005 1 02 ICo SET MSAR HI · 05
3443 4914
DC
XL2·7tAA 1 03 ICe SET MBAR LO · AA
3445 4915
DC
XL2 1 1704' 04 SSNt7 SET CURAR FROM ·BAR
3447 4916
DC
Xl.2·2200· O!S LR, SET HOB 02 N8AA HI
;'?;449 491 7
DC
XL2 1 .2301' 06 LR. SET HOB 03 a MBAA LO
344B 4918
DC
XL.2· 76F3 1 07 ICe SET HOB 06 · CHAR TD XMIT
3440 4919 344F 4920
DC
oc
XL2' 1F04· XL.2·7000'
= 08 SSNo F SET DIAGNOSTIC MOOE
09 re. SET MSAA HI 00
3451 4921
DC
XL2 1 7J 00' OA IC1 SET MBAA LO · 00
3453 ·~22
3455 4923
3457 4924
oc oc
XL2·1008· XL2' 0786·
oe ssF.o RESET BITS 2.3.13 l/O REG oc LEe LCAD 1~0 REG & X~IT WORD
DC
XL2'410F· 00 TSNel llAIT FOR REC. ~D ROY TC GO ON
3459 4925
DC
Xl.2 · sooo· OE SOS· 0 SR ANCH BACK
3458 4926 345D 4927
DC
XL2· 0744 1 OF LE. PUT )/0 REG IN ~ce 07
oc
XL2' eoo2· 10 Ciq, CHECK HI MBAR ADDRESS
345F 4928 3461 4929
DC
oc
XL2·9C13' Xl.2 1 5015 ·
11 soc.3 BRANCH IF = TO TEST LC 12 eos.o NO MATCH· BIT 3 MUST BE OFF
3463 4930
DC
xc..2· e10.,. · 13 CIR. CHECK LO NBAR ADDRESS
3465 4931
oc
Xl.2 1 9C17' 14 80Ce3 IF. EQUAL BJT 3 MUST BE ON
3467 4932
DC
XL2·43E1 · 15 T!N·3 MUST NOT BAAHCH
3469 4933
DC
XU! 1 50J9 1 16 80S10 BRANCH TO INCR. M8AR
3468 4934
oc
.111..2 1 4319· 1? lSN·3 ·U$T BRANCH
3460 493$
346F 4936
DC
oc
Xl.2 1 5018' XL2 1 112 0'
18 eos. 0 ERROR· HANG
19 INCe INCR. NBAR LO
3471 4937 3473 4938
DC
XL.2·9C28 1 IA BOC· 3 BR.-NCH IF HI NEEDS INCA.
DC
Xt..2· E008 · ie CI. CHEOC NBAA HI · oe
3475 4939
3477 4940
DC
XL2° 9C:l E 1
JC BOCe3 IF SOe CHECK LOW
DC
>0...2·sooB · IP BOS· 0 AE TURN TO LOCP
3419 4941
DC
XL2' El EO I lE Cle CHECK MeAR LO · EO
3478 4942
DC
XL.2·9C21 1 lF aoc.:s ENO OF PHASE IF so
3470 4943 347F 4944
DC oc
xa..2·5ooe·
Xl..2·E3551
20 eos. 0 RETURN TO LOOP
21 Cl1 TEST FOR END OF TEST
3481 4945
UC
Xl.2 1 9C26 I 22 BAAN(H IF SU
3483 4946 3485 4947 3487 4948
3489 4949
348e 4950 3480 4951 348F 4952
DC
XL2·7002 1 23 IC, SET MBAR HJ "' oa FOR NEXT PHASE
DC
oc oc oc
XL2' 7155 · XL2'5004· .)L.2 1 lFOa·
XL2· 5027·
24 ICe SET MBAR LO a 55 FOR NEXT PWASE 25 llOSe 0 BRANCH SAO< TO 00 NEXT PHASE 26 SSF1 4itEsET lllAGNOSTIC NODE 21' HANGe TEST IS COM·LETED OKAV
DC
.lCl-2 1 1010 1
28 I NC· INCR· MB.llA ffl
DC
XL2·500B· 29 RETURN TO LOOP
3491 4953
DC
3493 4954
DC
3495 49155
DC
3497 4956 R26NCE DC
Xl..217900· Xl.2' 0At99· Xl..2~ 5001'
2A SSNe E Tl.J·RH ON INS IDE WRAP
aa lCt P~T 00 IN HOB 9 TO DEseLECT
2~ LE.DESELECT ALL ALT Llllffi:S.
20 aos.o '-TURN TO ADDRESS OOI
4957
4957 44995598
·· ··*···R·O·U·T·I·N·E··3·2··-··"·"·A·C·H·.M.f.;N··T··RE·S·E·T···Tt...~.T.5.........*·····················
4960 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..
4961 ·
4962 *
·
THIS RCUTJNE TESTS THAT VAR,OUS Ll"!ES AND SIGNALS ARE RESET
·
49(1.J "'
BY ATTACHMl!Nt RESET-. THIS IS DONE IN TWO PMASESe THE FIRST ·
PRDG 10 PAGE
089&-21
···39
OATI! l!C NOe
07.IUL75 8HOU
lS..AN76 Nh.34
PROG ID PAGE
---------.-----~.-------------------------------------~~~
·
IBM MAIN1£NANCE DIAGN'5TIC PROGRAM
PART NO. PAGE
I BM MAINTENANCE DI AGN CST IC PROGRAM
PART NCe PAGE
8912
DISPLllY ADAPT IR TEST
8912
DISPLAY ADAPTER TEST
{_
ERR LOC OBJECT CODE
APDR STMT SOURCE STATEMENT
EAR LDC OB~ECT CODE
AODR STMT SOURCE STATEMENT
I
* 4964 ·
4965 4966 ·
4967 ·
4968 ·
* 4969 ·
4970
PHAsE sETS THEN GIVEN
lP THE VARIOUS ANO THE SECOND
PS~IGANSEALOSF·
AN THE
ATTACHMENT AESET l.S MICROPROGRAM lESTS THAT
·\
*'
THE LINES wERE PFiOPERLY RESET· THE LINES TESTED ARE:
... 1
SSN F DIAGNOSTIC MODE
*\
rsN 0 TR.AHSMIT WORD READV'
*.
TSN 1 RECE I VE WORD RE ADY
tt i
SSN 8 RECEIVE DATA MODE
·l
3506 5015 3508 0784 350A 4118 35-0C 5016 350E 0784 3fl10 501A 3512 0784 3!14 5018
3507 5030 3509 5031 3508 5032
3500 5033 350F 5034 3511 5035 3513 5036
3515 5037
oc
DC
DC DC DC
DC
DC
oc;
>CL.2· 5015·
)(l..2' 0784' XL2'4ll8· )(J..2 8 5016.
XL2'0784'
XL2 8 501A 1 >U..2. 0784. xL.2 · so1 a·
14 ~os.o DELAY 1 CYCLE 15 LEe LOAD l/O REG TO XMIT WOAD 16 TSN·l WAIT FOR REC· WD ROY TD COME ON
17 eos,o LOOP BACK TO PAEV. ·D
18 LE· LOAD 1/0 REG TO XMIT AGAIN
19 eos.o DELAY 1 CYCLE 1~ LE· FOAM XMIT WO ROY CN 18 eos.o ~·NG· ENO OF PHASE
4971 ·
SSN D INTERRUPT REQUEST
.;
4972 4973
································*·······~*********************··········1!1d
5038 · 5039 ·
5040 *
!:ND OF PHASE 1· NE:KT TIME MICROPROGRAM IS E9'iABLED 1T WILL BRANCH TO THE FO~LOWING WORC -
3498 32
3499 00 349A 355A
497·
3498
3499
4975 4976
4977
RT:!2
DC
oc OC
3498
>Ll ·32· XLioooa
AL.2 (RT33)
4978
349C C2 01 34A8
34A8 4979 4980
USING R29KOleXR1
LA
R29K01 eXR1
34A0 CO 87
34A4 01 34AS 12
34A.6 3400
021 A
4981 4982 34A4 4963 34A5 4984 34A? 498!5
e
PPINT
oc
xt.1·01·
DC
IL1·u1·
DC
AL2(RT29 CP)
4986
;;" :.e c:o ST 591 e 34AC 83
34AO 340E 34·F 3559
4987 R29K01 B
34AC 4988
OC
4989 ·
;:!4AE 4990
oc
3~80 4991
DC
LOAOCS XL.1 e93·
1t..2UU9MCS) AL2(R29MCE)
3~Bl Ji 48 Ot>E.2
3i\.6S FJ 5E! IEO :S~BS OD 12 34.il.8 3~ IS
~46E F3 58 80
4992 4993 4994 4995
4996
LIO SIO CLC
SI Cl
ZERO.HOBO
x· EO' oSl OI
R29K01C1~1~~~9K01
x·eo· .s101
3<\Cl CO 87 S4FE
3·C!S 99 341>C6 5036
4997 4998 34C5 4999 34C? 5000 5001
a
DOMICR
oc
)(Ll"99"
DC
)Cg..2·5036"
34C6 CO 81 02.16
5002
8
5003
34CC 09D6E4E340F3F440 3·0D 5004 RT290P DC
3404 Cl E3E3CiC!C84 (1)9
5004
34DC E2E3
5004
5005
ROUTINE NIJt'f!ER NO MANUAL :!:NTERVENTION ., ACDRESS OF NEXT S<OUT INE
INITIAL!ZE XR1 FOR INDEXING
PRINT ROUTINE HEADING
.GO LOAD MICROPROGRAM ~DISABLE UPON ENTRYc FILL 2NO
rsa W!TH ecs~c CN ~crmess
c START OF MICRO CODE
.END OF MICROCODE
·SET HOB l u~' U "" 0 *START M!C~OPROGRA~
~DELAY 4 2 CYCLES oOlSABLE ATTACHMENT
(RESET)
~Go DO SECOND PAAT oF ~!CAO
~e:FIROR HALT -99-
· EXPECTEO RESULT
340E 5031 34EO 7900 34E2 0AB9 34E4 Fi?FF 34E6 9C1C 34E8 72FF 34EA 2022 34EC 7000 34EE. 71 00 34FO \ S04 34F2 5008
3.-F4 lE04 34F6 1 C04 34F9 1F04 34FA 1008 34F~ 7443 34FE 1204 3500 1304 3502 1004 3504 0784
5006 5007 ·
START OF NICROPRCGRA~ ~ISTJNG $
5008
·----~---~----,.--~--------~-~~----· 34DE 5009 R2914CS EOU
oc 34DF 5010
34El 5011
DC
34E3 5012
DC
34ES 5013
DC
34E1' 5014
DC
34E9 5015
DC
34EB 5016
DC
34ED 5017
!)C
34EF 5018
DC
341" l 5019
DC
34F3 5020
DC
34!=5 so.al
DC
oc 34F1' 5022
oc
341"9 5023
DC
34FB 5024
DC
34FO 5025
DC
34FF 5026
DC
3SiH 5027
u 350.1 5028
DC
cc
UC$ 9029
DC
XL2@503T 8
XL28 7900· XL.2° OA89 1 xt..2 8 F2FF" XL2 1 9C1C: · XL2 1 72FF; XL2 · 2 04!2 9
XL2·7ooo·
xL2en.oo·
XL..2 8 1 !304·
Xl-2$51}00'
m..z· i E04 ·
)(L2' 1C04 · XL2'1f'04" KL.2$1ooe·
~2·7443·
XL2· 1204"
a2· 1304·
X!..2°100.-·
.xuao7e4~
00 BOS*O GO TO A00e37
01 IC· SET HOB 09 TO ~E-SEL£CT 02 LEe DE-SELECT FIRST DA,RC 03 TBNo CHECK HC6 02 FOR 2ND PHASE (FFt 04 aoc.3 IF so BRANCH tc 2NO PHAS~ OS tc~ s·T HOB 2 TO FF ()6 LRe SET HDe 10 TO Fr
07 IC· SET M6AA Hi s 00
oa !Ce SET MBAR LO s 00
il'9 SSN,B SET REC~ O~TA ~00£
QA OUMWf l!iO~O
OB SSN.E SET lNSiOE WRAP DN S5NoC SET INTRe REG~ OW
OD oE
SSNoF SSFoO
SET DIAGNOSTIC MODE ON ~ESET BITS 2~3el3 IN 110 REG
OF ~Ce SET HOO 04 "' 43 10 sSN~2 SET BIT 2 OF 110 REG
u ssw.3 SET SiT 3 OF 110 REG ON
SSN· 0 ~ T TRANSMI "I' ZEROES
u LE· LCAO 1/0 REG TO XMlT ZEROES
\
I C
(
c
c
3516 40E1
3518 41E2 351.A 4EE3
3!51C 4BE4
351E 40E5
3520 1008 3522 1204
3524 1304 3526 1E04 3528 0784 352A 7680
3~2C 1640 352E F610 J5;,!: ~02-r 3532 41E6 3534 1704 3536 7001 3538 71 ~2 353A lF04 353t" 0784 353E 4132
3540 5030 ~542 7000
3544 7100 3546 5436
3~46 !5035 )54A 5036
:,54C 2210 354E 7900 15550 0889
3552 OC89 3554 OD89
3556 OE89 3$58 5()01
5041 ·
3517 5042
DC
3519 5043
DC
3518 5044-
oc
3510 5045
DC
351F 5046
DC
3521 5047
DC
3523 5048
DC
3525 5049
DC
3527 5050
DC
3529 5051
DC
3528 5052
DC
352D 5053
DC
352t 5054.
oc
35~1 S05S
uC
3533 5056
DC
3535 50S7
DC
3531' 5058
DC
3539 5059
DC
353B 5060
DC
3530 5061
l.'C
3~3F 5062
DC
3541 5063
oc
.3543 5064
DC
354~ ~065
DC
3541' 5066
DC
3549 5o67
DC
3548- -5068.
DC
3540 5069
oc
354F 5070
oC
3551 50?1
DC
3553 5072
DC
3555 5073
DC
3557 5074
DC
3559 5075 R2'iMCE OC
5076
)Cl.2 ·40E1 ·
xua· 41 e2 ·
~2·4EE3°
XL2'4BE4 1 XL2·4DES· XL.2m1ooe· XL2' 1204 1
XL.2· 1304' xt.:t:e 1E04· Xt,.2· 0784 1
XL.2 · 7680" XL2·16#o0'
XL2·F610· XL2 1 9027 1 XL2·41E6· XL2 1 1704o
XL2·1001~
XL2 9 7122 ·
XL.2· tF04· XL.2 8 0784@
XL2 1 4132 1
XL2 1 :6030·
XL.2 1 7000 1
XL.2 1 71009 XL2·5436 ·
XL.2'5035' Xl..2 1 5036· XL.2 9 221.0.
XL2 1 7900·
XL.2· 0889 I
XL2' 0Ce9· ~2· 0089· Xl.2 1 OEB9 1
xL2·soo1·
tC TSN·O XMIT WO ~PY MUST NQT BE QN
10 tE
TSNol REC WD ROY MUST NOT BE ON TSN·E DATA LOOP MUST ~CT BE ON
lF TSN· B REC e CHK Ml'ST NOT BE ON
20 21
TSNeO INT· REQe MUST NOT BE ON SSFoO RESET ~ITS 2 ..3113 OF 11'0 REG
22 SSNo2 SET BIT 2 OF 11'0 REG 23 SSN13 SET BIT 3 OF ll'D REG
24 SSNeE sET INSIDE lli!RAP ON 25 LE· i..CiAD 11'0 REG &. XM11· lrfD
26 ICo SET HOB 6
SO FOfi 01.':LAV
27 SLo SHIFT HOS 6 LEFT
28 TBNc TEST HOB 6 FOi:.> Et.If'.\ OF DELAY
29 2A
LOOP BACK TIL 16 CYCLE DELAY OVER TSN·l REC· WO ROY M~ST NOT BE ON
2B SSNs7 RESET CURAR TC ZERO
2c ICe SET MBAR HI · 01
20 !Ce SET MSAR LO · 22
2E SSN·F TURN OIAGe MOOE BACK ON
ZF 30 31 32
LE o LOAD ! l'O REG & XMI T TSN· l WAIT FOR REC· ~O ADY ON
= aos.o LOOP eACK TO P~EVe ·D
re. SET NBAR HI 0
33 IC· SET NBAR L.0 · 0
34 BOSol MUST BRANCH
35 B0Se0 eRROAe HANG
36 HANG· E"-D OF TEST>
37 LR·MOVE HOB 10 TO 02
.38 ICcSET HOB 09 TO 00
39 OESEi..eCT Ml'REC
3A DESEL.ICT muREC
38 DESELECT DA.IREC
JC DESELECT DIVAEC
30 BOSeO RETURN TO AOD·01
·
5076 507"7 5078
5079
"*·'·*R·'*O$*U·**T*·IN*·E*~S*·*·3·*~·*t·*3·*4·'e*·3*·5*·*·"·S'·*P·"A·'R"·E*·e*·········*·*·*·*·**"3"*·······*·*·*·*·****~*·*··*********·*·*·*·····························**·
c
:!55A 33 3550 00 35SC 3568
355E oc 01 3596 35 g: 3564 co 87 3584
355A SOSO RT33 3558 5061 3550 5062
5083 5084
DC DC DC
MVC
B
XLJ.8 331
~1"00 1 AL!Utt34)
SPAAUT(2)eDEC33
SPAREX
5085 ...
(
3568 34 3569 00
356A 3576 356C OC 01
3~72 co 67
3596 3584
35#1
3566 5086 RT34
35(1)9 5087
:J5t:IB 5088
soa9
5090
DC DC DC
MVC
e
XLl· 34' Xl..1 G 00° AL2(RT3S) SPA.RUT( 2) .oeC.34
SPA.REX
5091 ""
(
.'
;;
;:)576 35
3577 00
3578 35A4 357A OC 01 3596 3513
3580 co 87 3564
35?~ 5092 RT 35 3577 5093 3519 5094
5095 5096
DC
DC
oc
MVC
B
)CLP35'
xf..1' oot
AL.2(RT36~
sPARIJT( 2 i e PEC36
SPAREX
PADG 10
DATE
07.JUL75
25 CCTT!I
PROG ID PAGE
07JUl..75
825023
25CCT7$ 82!""'32
15JAN76' 825034
PAGE
EC NO. 62E023
62 to.32
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
iI ··
i
~
·
·
·
·
·
·
·
·
·
·
·
·
·
·
· · ·
· · · · · · · · · · · · · · ·
·
·
·
·
·
·
·
·
·
·
·
·
·
. ·.,. ;,.'
·
·
IBM MAINTENANCE DIAGNCST IC PROGRAU
PART NO.
PAGE
4234255
IBM MAINTENANCE OIAGN(STJC PROGRAM
41 \..
8912
DI SPLAY ADAPT lR TEST
8912
DISPLAY ADAPT ER TEST
ERR LOC OBJECT CODE
ACOR STMT SOUACE STATEMENT
ERR LOC OBJECT CODE
5097 ·
''-._,.
3584 CO 87 021 A
5098 SPAREX B
PRJNT
3588 01
3588 5099
DC
3569 OE
3589 5100
DC
358A 3590
3588 5101
DC
358C CO 8 7 0.216
5102
e
· 5103
3590 0906E~E340E7E i40 3590 5104 SPAAMS DC
XLI · 01 1 JL1·14· .tc..2CSPAfU4S J
I.INK
I (i
3598 E2t7C109C548 359E F3F3
510·
eau 3596 5105 SP~QUT
3~9F 5106 DE03 DC
SPAAMS-7 cu·33·
~ C'"\ ·· If,,-'
35AO F3F4 35A2 F3F5
35A1 5107 OEC34 DC
35A3 sloe DECJS DC
5109
a..2· 34· Q..2 1 35·
C·' i -.fr.:/
55111110 ·*··R·O··U·T·il·'"·E···3·6··S·I·O···I·M··M·E·D··IA··T·E··T·O··E·N*A*BL*E*l'O*IS*A*EL*E*B*SC*A***·····················:
55111132 ·*······M·I·C·R·O···I·N··S·U·R*ES*B*S*CA**NO*T*E*NA*B*LE*D*· **#·······································
5114 ·
* 5115
MACRO ENABLES esc.a.
MICRO I NSuRES BSCA NOW ENABLECo
0 ·'
·:
5116 ·
MACRO DJ SABLES BSCA ·
*'
5117 ·
MICRO INSURES BSCA CISAEIL.EDa
*'
3544 36
5118 ·········******************************************····················
3SA4 5119 RT36 DC
XL.1 ·36°
ROUTINE NUMBER
35A5 00
35A5 5120
DC
Xl..1·00·
NO MANUAL INTERVENTION
35A6 3612
3SA7 5121
DC
AL21RT37)
AOOR OF NEXT ROUTINE
5122 ·
35A8 CO 87 0214 35AC 01
5123
35AC 5124
B
PRINT
DC
XL.POI·
PRINT ROUTINE TITLE
'C
35AD 22
35AE 3505
3580 co 87 3506
35AO 5125 35AF 5126
5127
DC
ILl ·34·
DC
At..21R35HDR)
8
RT35GO
3584 0906E4E340F3Ft40 3505 5128 R3SHDA DC
CL34·AOUT 36 BSCA SIO IMMED; ENAS/OISAS·
358C C2E2C3C140E2C S06
. 5128
35C4 40C90404C5C45 l40
tU2&
35CC C505ClC26lC4C iE2
5128
3504 C1C2
3506 co 87 591 e
35DA e~
5128
5129 AT35GO e
35DA 5130
DC
&.OADCS
x1.1·a3·
LOAD MICROPROGRAM
3508 3604 3500 3611 3SDF CO 87 54FE 35E3 35
354 5001
35E6 F3 58 EO 3SE9 F3 88 CO
3SEC CO 87 54FE
35Fo 36 3!!Fl 5004 35F3 FJ 58 EO 35F6 F3 88 80 35F9 CO 87 54FE 35FO 37
JSFE 5006
3600 co 87 0216
35DC 5131
350£ 5132 5133
35E3 !S134 35ES 5135
5136 5137
5138 35FO 5139
35F2 5140
5141 5142 5143 3SFD 5144
35FF 514~
5146 5147 ·
DC
M.. 2CA 35MCS)
DC
AL2CR35MCE)
e
DOMICR
DC
)L1·35·
DC xL2·soo1 ·
SIO x·Eo· ·SIOI
SIO x·co· .x·ee·
e
OOMICR
DC
:ICL 1 9 36·
DC xu·soo··
SIO x·eo· .s101
SIC x·eo·.x·ee·
e
cOMJcA
DC
XL1·37·
DC
XL2°5006·
a
LINK
DO MICROPACGRAM ERA. HALT EXPECT ED Ae SUL TS SlO ENABLE MC
SlO ENABLE BSCA
DO MICROPROGRAM 2ND TIME ERROR HALT EXPECTED RESULT$ ENABLE ,,, ...
Slo DISABLE BSCA DO MICROPROGRAM 3RD TINE
EffRe HALT
EXPECTED RESULTS
Go To NEXT ROUTINE·
0
·
55114489 *·--~T-A-R-T-~O-F-~M-IC-R-O-P-R-O-G-R-A-M--L-I-S-T-IN--G-··
3604 4700
3606 5001
3608 4704 360A 5002
;560C 5004
360E 4705
· 3604
55115510
·------------~----~---~------·
R35MC:s EGu
3605 5152
cc
XL2· 4700· 000 TSNo7
3607 5153
oc
XL2 8 500l· 001
3609 5154
DC
XL2·4704· 002
3608 5155
DC
XL.2·5002· 003
5156 ·
3600 5157
DC
Xl.2·soo4· oo· BOSeO
360F 5158
DC
lCl,.2 1 4705' 00!5 TSNe7
BR TO SELF tF BSCA ENAS· EXPECTED RE!"'-. TS BR TO AODR 004 IF 8SCA ENAB· LOOP BACK TO AOOR 002 lllF·ITING
FOR BSCA TD BE ~NABLEO· SECOND EXPECTED RESULTS 6R TO SELF ~AITlhG FOii
5US9 ·
BsCA TO BE DISABLEO·
3610 5006
ADOR SHCT SOURCE STATEMENT .
3611 5160 RJSMCE DC
XL2·5006·
006 sos.o THIRD EXPECTED RESULTS
DATE
07.IUL75
EC NOe 825023
2SCCT75 82!032
l5.IAN76 82$0~4
FROG ID PAGE
0 DATE
,.EC: "10· G i
07JULT5 825023
25C:CT?S 82f0'\2
PROG lO PAGE
le
i 10
IB~ ·AINTENANCE DIAGNC:STtC paCJGRAM
PART fllO. PAGE
4234255 42
IBM MAINTENANCE OIAGNCST IC PROGMM
8912
Ol ~AY ADAPT IR TEST
8912
DISPLAY ADAPTiR TEST
ERR LOC OBJECT CODE
·*·····..········· ADDA STMT SOURCE STATEM91T
* 55116632 ···f;·O·U·T·lr·-t·e··~~7··S·IO···IM··M·E·O·.···EN·A.B.··B·SC·A···W·/·~-·S·E·C··T·I·M·E·O·U·T··R.E.QUEST·
*
5164 ·······································································
5165 · 1.MJCRO INS\.RES BSCA NOT ENABL.ED ANO NO 2-sEC T·C· ~EOUEST
·
* 5166
MACRO ENAEl_ES BSCA
·
5167 · 2.MtCRO fN~URES BSCA IS ENAS. BUT NO 2-sec T·O· REQUEST
* 5168
MACRO TURNS ON 2-SEC i·O· REQUEST
* ·
5169 · 3.M1CRO INSURES 2-sec T.o. REQUEST 15 Off
·
ERA LDC OS.JECT CODE
c 36A7 4700 36A9 4601 36AB 5002 36AO 4705 36.AF 5003 3691 5007 3683 5006
5170 · MACRO RESETS 2-SEC T.c. ~ITH TIMEOUT CANCEL cc~~AND
·
* 5171 4.M1CRO IUSURC.S BSCA IS STILL ENABLED BUT NO 2-sEC T·O· REQUEST
*
5172 · MACRO SETS 2-sec T.c. REQUEST llGAIN
5173 · s.MtCRO 1t11s~ES 2-SEC T.o. REQUEST IS ON.
· *
* 5174 * 5175
MACRO DISABLES 6SCA 6.M1CRO INS~RE~ BSCA DISABLEC ANC 2-sEC TeO. REQUEST RESET
*
·
3685 4606 368'1' 5008
3689 4619 3688 5009 .36BO 5008 36BF 4717
3612 37
3612 55117767 ·R·T·3·7····D·C·····X·L·1···3·7······················R·O·U·T*IN·E··N·U·M·B·E·R···················'
36C1 sooc 36C3 SOOE
3613 00
3613 5178
O..:
><l..1 1 00 1
NO MANUAL (11.TEAVENTJON
36C5 460E
3614 360F
3615 5179
DC
M..21RT38)
ADDRESS OF II.EXT ROUTINE
36C7 5010
5180 ·
3616 CO 87 021A
!5181
B
361A 01
361A 5182
DC
3618 2D
361B 5183
DC
361C 364E
361[) 5184
DC
361E CO 87 364F
s1es
e
3622 0906E4E340F3F i40 :!tl.-E 5186 R36iDR DC
362A C2E2C3C140E2CI06
5186
3632 40C9D404C 5C45f40
5186
PRINT
PRINT ROUTlll.E TITLE
><1..aeo1·
IL1·451
AL 21R36HDR)
RT36GQ
CL45·ROUT 37 BSCA Slo IMMED: ENABfDISAB W/T.o. REQ·
(
36C9 4613
36C8 5011
36CD 5013
(
36CF 4614
3601 4715
3603 5016
t''
t
3605 5018
3607 SOOF
3609 1908
363A C505ClC26lC4C~E2
5186
36t.2 Cl C240E661E34 lD6
5186
364A 484009CSD8
5186
364F CO 87 5918
5187 RT !6GO B
3653 83 3654 36A7
3653 5188
oc
3655 5189
oc
LOADCS
XLl ·83·
~(R36MCS)
LOAO MICRCFRQGRAM
(: "'-··'
e
i
3608 4608 3600 5018
3656 HOE 3658 CO 87 56FE 365C 36
3657 5190
5191 365C 5192
DC
M..2CR36CEI
8
COMICR
DC
llCLl. 36·
00 lST MICROPRO~M
ERA. HALT
10 I
3650 5002 36fiF F3 58 EO 3662 F3 ee co 3665 F3 58 0. 3668 co 87 9~E 366C 37 3660 5008
366F F3 se eo
36'1'2 F3 88 0. 3675 CO 8? $4FE
3679 38 367A sooe 367C F! SB EO 367F F3 88 00 3682 CO 87 54FE 3686 39
365E 5193 5194
5195 5196
5197 366C 5198 366E fU99
5200
5201 5202 .1679 5203 3678 5204 5205 0206 5207 3686 5208
oc JC&..2·soo2·
510 X·EO·eSlO?
SID x·co· ,x· ee·
s10 x·o···SIOI
8
DCJMICR
oc
Xl...1·3.,.
DC
J&.2·5008 1
s10 JC·Eo· .s1c1
SIO x·o··.x·ee·
B
CQMICR
DC
lCLl· 38·
DC
JCL.2·5008·
SID x· EO· .s101
SIO JC· oo· ·x· ea·
B
OOMICA
DC
XL.1·39·
1ST £XPeCTED AE,ut.TS ENALE MC EN·sLE llSCA
D~ 2ND MlCRDPRD~RAM EAAe HALT
2l0 EXPECTED RESlLTS
ENABLE MC
BSCA a-sec t.o. REQUEST
DO lRD 1Ua..OPROGRAM ERR· HALT
3AD EXPECTED RaSULTS £NABLE MC BSCA 2-SEC T·D· CANC~ 00 4TN Ml:(;AOPROGRA·
Et;AOR t4AL.T
10 I 1e I 1e I !O
I
1·
:e
3687 5010 3689 F3 58 EO 368C F3 88 04 368F CO 87 54FE 3693 ~ 3694 5013
3696 FJ 58 eo
3699 f'"! 88 80 369C CO 87 s.f"E 36A0 38
36Al 501f» 36A3 CO 87 0216
3688 5209 5210 5211 5212
3693 521.1 3695 5214
.. 5215
5216
DC
JCL.2·so10·
s10 x·eo· .s1c1
SIG x·o·· ,x· ee·
8
DOMICR
DC
X&..l 13A·
DC
Jc&..2·50131
$10 x·eo· ,SIOI
SID X·80·1X·88'
5217 36A0 5218
36A2 n52z1o9
B
OOMICA
DC x&.1 ·:se·
oc xa..2·so16·
e
LINK
5221 · 5222: ......................................
mi & t ......
5223 · START DF MICROPROGRAM LlsTING ·
522· ·~--...- - - - - - - - - -
4TH EXP$CTED aesUt..ts ENABLE MC
BSCA a·sec T.o. ReG.
00 51'" M*citCPROGftAM ERA. HALT
STH ExPECfED RE$JLTS ENA&L~ MC DISAEILE 85~" 00 6TH MICACJlitllOGMM
ERA<I HALT
6TH EXPECTEC AE$UL.TS GO TO NEXT AOUTU·
I
I
!·
I
lI o
l·
l
1I 0
I
I·
OA'tc
07.RU..?5
EC MO. 82$023
25tCTts ai10.s2
··
e 0891~21 DATE
01'.lut..75
, 0 u 1 . I
f!c - · 82$023
:o
I
I·
e le
ADDA STMT SOURCE STATEMENT
36A7 5225 R3CtltCS EQU
36A8 5226
DC
36AA 5227
DC
36AC 5228
DC
36AE 5229
DC
3680 5230
DC
3682 5231
DC
36B4 5232
DC
3686 5233
DC
3688 5234
DC
36BA 5235
DC
36BC 5236
DC
36BE 5237
oc
36C0 5238
DC
36C2 5239
oc
36C4 5240
DC
36C6 5241
oc
36C8 5242
oc
36CA 5243
DC
.36CC 5244
DC
36CE 5245
DC
36QO 5246
DC
3602 5247
DC
3604 5248
oc
3606 5249
oc
3608 5250
DC
36DA 5251
oc
36DC 5252
DC:
36DE 5253 R3flltCE DC
·
Xt..2·4700 · XL.2 1 4601 1 Xl.2 1 5002. Xt..2 '4705 t )Q...?·5003· XL.2'5007· XL2·5006 I XL.2·4606' XL2·5008· XL2· 4619'· Xl.2 ·5009 I XL2 · sooB· XL2· 4717· x1..2·5ooc·
Xl.2·500E· XL2 1 460E · x1..2·5010· XL2 1 4613 1
XL2·so11 · Xt.2'5013 1 Xl..2·4614 1 XL.2'4715 1 XL2·5016· xa..2·so1e· XL2 1 500F· xa..2·19oe· XL.2·460B· xa..2·501e·
PAAT NOe PAGE
000 001 002 003 004 005 006 007 008 009
OOA ooa
ooc
000
OOE OOF
010 011 012 013 014 015 016 017 018 019 OlA OlA
TSNo7 BR TO SELF IF BSCA ENABe TSNe6 BP TO SELF JF 2-sec T.o. REQ ONe
eos.o 1ST EXPECTED PESULTS
TSNe7 BR TO 005 WHEN BSCA ENAB· Bos.o TO ADOR 003· WAIT FOR esc~ ENAB.
eos.o TO ADDA 007. aos.o Et:IRORe MANG TSNe6 BR TO ADDA 006 1F 2-sec TeOe AEQ. eos.o 2ND EXPECTED RESULTS
TSNo6 BR TO AOOR 019 IF 2-sec T.o. AEQ.
eos.o TO ADDA 009· ttAIT FCR TeO· AEQ·
aos.o 3RD EXPECTED RESULTS
TSN·7 BR TC 017 IF ESCA STILL ENABe eos.o TO ADDA OOC WAIT FOR BSCA ENABe
eos.o ERROR· HANG TSNe6 BR TO AOoR OOE IF 2-SEC T ·tl· AEQ.
eos.o 4TH ExPECTED RESULTS TSNe6 BR Tu AoDR 013 II'' 2-sec T.. o. REo.
BOSt C TO ADDR 011 · iaAI T FOR ToO· REQ· eos.o STH EXPECTEC RESULTS
TSNe6 BR TD SELF IF BSCA STILL ENAB· TSNe7 BR TO SELF IF T.o. REQ STILL ONe eos.o 6TM EXPECTED RESULTS eos.o TO ADDA 018 DUMMY CYCLE
eos.o TO ADOR OOF DUMMY CYCLE
SSFt9 SHOULD NOT RST TeCe REQ TSNeE BR TO AODR OOB IF STILL ToCeREOe
eos .o ERROR HANG
PROG 10
PAGE
·
· · · · · · · · · · · · · · ·1· · · · · · · · ·
I
IBM lillj1,INTENANCE DIAGNCSTIC PROGRAM
8912
DISPLAY ADAPTER TEST
ERR LOC OBJECT CODE
ADOR STMT SOURCE STATEMENT
PART NOo
PAGE
4234:;51l i,. IBM MAINTENANCE OIAGNCST IC PROGRAM
I ::: :~:~:v sou~ce 2 Loe
c:::PT £R T:::R STMT
STATEMENT
*i 5255
5256
***R·*O*U*T*I *N*E*.*3*8*$8*S*C*A**S*I *0 **N·O*N·*-H*4*M**E*0I*A*T*E************************************'
r
5257 5256
i*i< *····~···********···~·~$~·$***********·******************~*************!
*' * 5259
lo MICRO.
:1 ;~:~ :
INSURE NC·SIG SVC REG ESCA 8US'ir 1 .,,
Z~RO OUT HOB 16d7c2ti.27.
3748 OF 3749 60C2
3748 CC 87 54FE 374F 38 3750 5018
3748 5318
DC
374.t. 5319
DC
5320
532:! R37MC& 6
374F 5322
DC
3751 5323
DC
5262 >!< 1A l<lACRO
* 5263 5264 *
5265 ·
INSURE TIC eSCA NOT ausv ·· ENABLE BSCA ~ITH A NON-IMIEOIATE SIO
INSURE SSC/I S'JSY
5266 lll 2. MICRO
5267 "' 5268 ·
* 5269
5270 ...
INSURE BSCA EN·BLEO.,
INSURE ·src SVC REQ BUSY~ IS ON~
INS~RE HOS 26·27 EQUAL IR. JQ~ INSURE HCB ~6.17 NOT CHANGEOe
5271 ~ Je Mi:CRC
5272 * * 5273
RESET BSCA BUSY
INSURE BSCA BUSY JS RESETc
,..! I
5274 * 3A M4CRO 5275 *
INSURE TIO BSCA NOT BLSY ENABLE BSCA AGAIN WITH ANOTHER NON-JMMEDJATE ~IO.
'l'lt"i
5276 ·
INSURE TIO escA eusv
5277 ·
DISABLE BSCA
5275 ....
5279 * 5280 *
INSURE SSCA NOT eusv
LIO HOB 16.17 EQUAL 0000 LIO HOB 26.27 EQUA~ 0000
szs1 ·
ISSUE BsCA SIO CONTROL ONLY
528Z Iii'
INSURE B SCA NOl" BUSY
5283 ·
5284 *
5285 ·
lNSUAE:: HOS 16.17 ANO 2th 27 s·u1..L 0000
ISSUE BSCA SI!) NON-Uoieou:rE I ssuE 32XX SI 0 NON-I ~~EOX ATE
*I (
5286 ·
SNS BA,CK J.O,. Hl FRO,,, EIOTH COMMANDS ANO CHECK.
"':
36DF 38 36EO 00 36El 3843
3 6 E3 CO 8 1' 02 AA 36E7 01 36E8 2B 36E9 3719 36EB CO 87 371-. .36EF 0906E4E340F3F ~40 36F7 C2E2C3Cl40E2CS06
5287
36DF
5288 5289
36EO 5290
36E2 5291
5292
5293
36£7 5294
36E8 5295
36EA 5296 5297 5298 5298
~"·'1·3*8·~·~D·C-·~·*X·L·1··· J·a··~·*··¢*····**·······*R·O*U*T*I*N~E··N~O········~·····********·*:I
OC
YJ..1·Q()·
OC
.et.2C~T39)
NO MANUAL 111.TERVENTION AODR oF NEXT RO~JTINE
8
PRINT
DC
Xi..1 8 01'
DC
ILJ. '43·
DC
AL2R31'HORI
RT37GCl
CL43·fiOUl ae BSCA SIC NON-ikMEDXATE A~o TJO BUSY·
I r'
I
I(.__
..!6FF 4005D60560C90 404 3707 CSC4C9Cl E3C54 CCl
5296 5298
!70F 3717 371" 371E 371F 3721 3723 3727 3728 !72A 3720 37.31 37!4 3737 3736 373F
~740
3741
3743
3747
OSCl.4 OE3C9D64 OC2 E4E2E8
co 87 5918
83 .!801 3842 CO 87 54FE
37
5006
FJ se EO
CJ SA 3743 F3 88 CO F:! 8A C4 Cl 8A 37~,5
co 87 5672
40 16 60F7
CO 81 Se72 41
5298 5298 5299 AT :!7GO 371 E 5300 ~720 5301 3722 5302
5303
3727 S304 3729 5305
530fl 5307 530:1
5309 5310 53! l 373F 5312 37·0 5313 3742 5314 5315 5316 BSVEAA
!747 5317
B DC DC DC B
DC
cc
SI 0 TIO SI 0 SI 0 TtO 8
oc
DC
oc
B DC
LOAOCs XL1oe3t Al...2(R3l111CS) AL.2(R3?MCE)
COMIC~
Xt.. l 1 37e ld-2 1 5006·
)(· eo· &S!OI BSYERReX ·eA' x·co·.x·see x·c4· .,x· eA·
R37MC2oX·8A· AAINT·
Xl,.! ·4Q·
IL1 ·22 1 M..2 (STATfillfU
PRINTIVi XLl · 41 1
GO LOAD MIC~Ocooe
0
c
00 M ICROCOOE E~ROR HALT -37FlRST EKPECTED RESULTS
ENAE!LE MC Tl C BSC>. BlJSV~ S&-tOUl..CN"l IBE · ENABL.E 6SCA
SIO NON-!fieME!J
Tl 0 6SCA Bl.15't'· SHOULC BE:., ERROR HAI.. T 40
(
ERROA HALT 4111
3752 CO 87 54FE 3756 39
3757 50.20 3759 F3 58 EO
37SC C 1 BA 3772 3760 F3 88 CO 3763 F3 8A C4 3766 Cl 8A 377C 376A CO 87 5872 376E 112 376F 16
3770 60F7
3772 co 87 5872
3776 49
3777 OF
3778 60C2 377A 0000 37,7C F3 80 80 377F Cl SA 3709 3783 31 48 ODE2
3101 F3 se eo
376A 31 68 0062 376E F3 58 EO 3791 F3 88 04
3 794 Ct BA 37FQ
3798 30 46 377B
379C OD 01 3778 00~2 37A2 CO 01 37El
37A6 F3 sa eo
37A9 30 86 3778
37AO F3 sa EO
3780 00 01 3778 0Dt2 ~ ?B6 CO 01 37E9 378.A F3 88 CO
:!17eo F3 s A co 37co F3 se ea
37C3 30 SB 377'8
37C7 F3 56 EO 37cA 3D SA 3776 31CE CO 01 37F1 3702 Fl 58 80
:nos co e? 0216
3109 co 87 5672
37()0 43 370E OF 370F 60C2
37El 37E5 37E6 37E7
CO 87 44 16 6i7c
5B7Z
37E9 37EO 37EE 37EF
CO 67 45 11', ~176
5872
37Fl 37F5 37F6
37F7
CO 87
47 le 6176
5872
5324 3756 5325 3758 5326
5327 5328 5329 5330 5331 533.2 376E 5333
B
oc oc
SIO
TI 0
SIO
SIO 'T[ 0
B
oc
37t:F 5334
DC
3771 5335
oc
5336 6SYER2 9
3776 5337
DC
3717 5338
DC
3779 5339
DC
3776 5340 $NSIT DC
5341 R37NS1 S10
5342 5343 5344 5345 5346 5347
53481 5349
TIO L!O sI 0 LIO SlO s1 o Tl 0 SNS
5,350 5351
CLC
BNE
5352. 5353
SI 0 SNS
5354 5355
SIO (.LC
5356 535"1'
5358 5359 5360 5361
5.J62
BNE
SI Cl SiO SIO SNS
SIC
Cl.. I
5363 5364 5365 5366
BNE SIO
e
53u7 OIScl"!R a
3700 5368
DC
370E 5369
DC
37EO 5370
CC
5371
5372. H06EFl 1 Ei
37E5 5373
DC
37E 6 537~
OC
37ES 5375
DC
5376
s::n7 HOB.ER 2 fl
37EO 5378
DC
J7EE 5379
DC
37FO 5380
DC
5381
~362: R3 lE4 7 8
37F5 5383
IX
37F6 5384
DC
:;,rr S 5385
DC
DATE
07.JUt..75
EC NO. 82 5023
25CCT75 82 ~0.J2
1SJAN?6 825034
PAOG JO
PAGE
10
0&91-2i DATE 43 , EC NQ.
!.!O
I
07.JUL75 825023
25 CCTl'5 82 !032
1!3.IAN76 tl.Z6034
I
ie
,...I
I
,,, ..
IL 1 1 1 !5· Al..2( STATl49)
DOM I CR
X!.1'38 1 XL2·so1a·
DOM I CR
XL! ·390 XL2· 5020' X·Eo·.SIOI ESYER2. X 1 8I. 1
ill·CO· eX· ea·
X· C4 t eX · 8A · R37NSJ oX 1 8A· PRINTM XL1·42t ILl' 22· AL 2( STATHB) FR!NTM XLl"49' IL1 1 15° AL2(STA.TM9)
XL2"00·
x·so· .x·ee·
DisERR.x·aA· lERO.H063
x·ao· 1 s1c1
ZERO.x·see
x·eo·.s101 xo 04· ~x· llEl·
A.37K·IH:~. X 1 EIA · SNSI T eHOF.l3 SNSIT( Z> .ZERO
HOBER1
x·ao· .s1c1
SNSITeX·E8·
x· eo· .s1 cl
SNSITl2) wZERO HOBER2
lll' co· .. x· ea· Jl'C:o· .x· eA ·
X1 80· oSJCI
SNSITox· Se·
X'EO'eSIOI
SNSIT·X~SA·
R37E47
x·so· tSICH
LINK
PRINn~
XL.l ··3·
IL l · 15 °
AL2tSTATN9)
PfilNTM Xl.!"44' H.J. 8 22· ALiHSTAYl33)
PRllHM X!..1 8 45· IL1·221 Al..2($TATB1)
,7. PRINTM
Xl..l ..
IL1·a2e At.2( STATB3J
· · · · · ·
PART NOo
PAGE
42342!5!5 43A
00 2ND MICRC?AOGAAM ERROR HALT -38EXPECTEO AESUL TS DO 3RO MICROPROGRAM
ERR HALT EXPECTED RESUL.fS ENAE·.E MC
TIO BSCA BUSVs SHCULON·T SE ENA6LE BSCA
SIO NON-I MMEO
TIO BSCA eusv. SHOVLD BE
ERROR HALT 42
SENSE H08°S HERcG
DlSABt..E BSCA
TIO BSCA eusv. SHCULON·T eE
HOB 16el7 SET TO ZERO DISABLE Mc; ttOB 26. 27 SET TO ZEAO ENABLE Mc SIO BsCA CTL ONLY NO-OP.
no BSCA eusv. SHLD N01' BE
SNS HOB·s 16917
DIS.ABLE MC SNS HOB· S .26; 2·1 ENABLE MC
ENA&... E esc:A -
SIO NON-lflllNEO DISABLE MC SNS tiOa·s :!6,.27
ENABLE MC DU> IQ Of' '8A · GET TO HDEI 27? BR IF NOT DISABLE RESET
S~ TO NEXT ROUTINE
ERGOR HALT 4 7
PAOG ID PAGE
0891-2 43A'
·
·
·
IBM MAINTENANCE OIAGN<STIC PROGAAM
PART NOe PAGE
42M255
IBM WAINTENANCE OIAGNCSTIC PROGRAM
··It
PART NO· PAGE
891.Z
DISPLAY ADAPT £R TEST
I 8912 I (
DISPLAY ADAPT ER TEST
EAR LOC OBJECT CODE
ADDR snn SOURCE ST ATEMEN1"
I ERA LOC OBJECT CODE
AODR STMT SO~CE STATEMENT
3?F9 co 8 7 5872 37FD 48
37FE OF 37FF i60C2
3801 7000 3803 2620 3805 2720 ~807 2680 3809 2780 3808 5805 380D 5006 380F 5808 3811 5007 3813 SOOA 3815 500A 3817 8016 3819 9COE 3818 5000 3810 8720 381F 9C11 3821 5010 3823 2446 3825 2547 3a27 76C4 3829 778A
3828 8406
3820 9C18 362F 5017 3831 8507 3833 9C1B 3835 SOlA 3837 5018 3839 581E 3838 SOJD 3830 1308 383F 581F 3841 5020
5386 R37tt48 B
37FO 5387
oc
37FE 5388
oc
PRINTM XL1·48·
IL1 1 151
ERR HALT 48
3800 5389
DC
A.2(STAT N9 I
5390
55339912
·------~----~~-
· START OF MJCROPRDGA·M
LISTING- -··
5393 ·-~--~-~~~~--~---~-------
3801 5394 R37MCS EOU
3802 5395
0C
·
XL2·7000·
000
IC ..,oe oo·oo
0 I
I I I I I
I
I
I
c I
I
3804 5396
DC
XL.2·2620· 001 LR HOB 00 TO HOB 16
3806 5397 3eoa 539a
DC
XL2· 2720 · 002 LR ~DB 00 TO HOB 17
oc
xL2·26eo· 003 LR ~OB 00 TO HOB 26
()
380A 5399
DC
XL 2 1 2780 · 004 LR HOB 00 TO HOB 27
3eoc 5400 380E 540 l 3810 5402 3812 5403 3814 5404 3816 5405 3818 5406 381A 5407
381C s.-oe
381E 5409 3820 541 O 3822 5411 3824 5412 3826 5413
DC
or.
DC
xL2·sso5· XL.2· 5006· >CL2·seoa·
005 006 007
eos.2 SR ON BSCA SIO SVC REQ~ ERR. HANG
i o eos.o tST EXPECTED RESULTS·
I sos.2 BA ON BSCA SIO SVC REQ TO .ADO OS
DC
XL2·5007· 008 eos.o WAIT LOOP
OC
>CL2 1 500A · 009 BOS .o DUMMY
0
OC
XL2 1 500A· 001' eos.o ERROR. HANG
DC DC
XL2·S016· ooe CIRe00.16 XL.2·9COE· ooc eoc.3 BR IF EQUAL TO AOOAESS ooe.
0
oc
XL.a·sooo~
000
BOS .o ERROR· HANG
I
DC
XL.2·8720· ooe CIR 11·00
DC
XL.2·9CI 19 OOF eoc.3 BR IF EOUAL TO ADDRESS 011
OC
XL2· 50l0 · 010 aos.o ERROR. HANG
oc
XL.2 1 2446· 011 LR HOB 26 TO HOB 04. (IR BYTE)
DC
XL2·2547· 012 LR ~OB 27 'TO HOS 05· (IQ BYTE)
lloe
!828 5414
DC
382A 5415
OC
382C 5416
DC
382E 5417
DC
3830 5418
OC
3832 541.9
DC
38;,4 542 0
oc
3836 5421
DC
3838 5422
oc
383A 5423
De
383C 542·
DC
38~ 5425
oc
3a·o 5426
cc
3642 5427 R37MCE OC
S.28
)CL.2·76C4 5 JCL.2·778A· XL.2' 8406· XL2·9C18·. XL2'5017' XL.2· 8507 · XL.2 · 9C 18 " XL2·501A· xt.2·so1e· JL2·se1e · XL2·5010·
Xl..2·1308~
XL2·sa1F· XL.2·5020·
013 01.015
016
on
01B
019
01· OHi 01c 010 OIE 01F 020
IC ~OS 06 EQUAL C4
IC HOB 07 EOUAL 8A
ClR 04e06 TEST IF IR EQUAL C4
eoc.3 BR IF EQuAL TO ADDRESS 018
eos.o ERROR. HAN~
CIR 05·07 TEST tF IQ EQUALS 89 BoCw3 BR IF EQUAL TO ADDRESS OlB
eos.o ERROR. HANG eos .o 2NO EXPECTED RESULTS
BOS.Z BR ON BSCA 510 SVC AEQ TO OlE eos ..o ERROR. HANG
ssF.3 RESET BsCA SID SVC REQ
eos.2 e~ROR. HANG
eos.o 3AO EXPECTED RESULTS
l r·
l "---
!
le
1I C
I
lO
I
1I 0
·o
~ r \
5430 ·······································································
* 5431 FCOUTINE 39 ESCA INTERRUPT TEST
*
55443332 5434
· ·
·
·
·······
MACRQ-1
·
·
·
·········
DISABLES
·····
ESCA
·····**··
INTERRUPTS
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
····
5435 ·
* 5436 IMtCR0-1
5437 ·
5438 · MACR0-2
PRESENTS INT REQ. (NO INT SHOULD OCCuR YETet INSURES TIO INT THAT AN INT IS PENDING.
· * · ·
5439 · 5440 ·
INSURES TIO OP-ENO INT IS PENDING·
* ·
5441 ·
** 5442
5443·
* 5444
* 5445 *
5446
(THIS SHOULD RESET THE OP-END INT PENDJNGI INSURES TIO OP-END INT PENDING NOW NEGATIYE ENABLES INT· (INT SHOULD occuR.l RESETS INT REQ. (INTERRUPT SHOULD TEA~INATE)
DISABLES INTERRUPTS
· *
*"··'
5447 >II MlCA0-2
* 5448 *
5449 MACR0-3 5450 ·
5451 "' 5452 " 5453 · r-ACRCi-4 5454 ·
PRESENTS INT REOe (NO INT SHOULD OCC"R)
INSURES OP-ENO INT PENDING., DISABLES SSCA I'. NSURES NC CP-END I NT f:ENOING ·
CAUSE ATTAC~MENT CK & INSURE INT· OCCuRS·
·*······
5455 ·······································································
3843 39 3844 00
3643 5456 RT39 DC
3844 5457
DC
3845 3983
3846 5458
DC
5459
3847 co 87 0.:!11\
5460
B
3848 01
3848 5461
oc
384C lC
384C 5462
DC
3840 3S6E
384e 5463
DC
384F CO 87 386F
5464
e
3853 0906E4E340F3F S40 386E 5465
oc
3850 C2E2 C3C140C9DfEJ
5465
XL1'391 >Cl.l·OO· ;lL2tRT3A t
PRINT XLl 1 01e tL1 "28· AL2lR38HDRt AT38GO CL281 ROUT 39
ROUTINE NO. NO MANUAL J'°'TERVEhTION ADDRESS OF NEXT ROUTINE
PRINT ROUTl~E HOR
3863 C50909E407E34 E3 3868 C5E2E340
386F co .e1 591 a
3873 83 3874 39A7 3876 :?982 3878 F3 58 80 387e F3 58 EO 387E 3C 00 394C 3882 F3 88 C2 3885 F 3 88 00
3888 3S AO 3948
:seec 3C oo 394C
5465
5465
·· ·~s466 I ST AAT MACR0-1
5467 RT38GO B
LOADCS
3873 5468
DC
d..1 1 83 9
3875 5469
DC
_,,_2(R38MCS)
3877 5470
DC
AL2(R3sMCEJ
5471
SID x·eo·.s101
5472
SIO x·eo·.slDI
5473
MYt INTFLG1X·oo·
5474 5475
s10 x·c2·.x·ea·
s10 x·oo·.x·ee·
5476
L
1NT38A·IAR2
5477
~VI INTFLGex·oo·
GO LOAO tUCROCOOE
START ADORE$$
END ADDRESS 01 SASl.E RESET 32XX ENABLE 32KX RESET lNTFLG ENABLE GSCA
LOAD INT LVL 2 IAR RESET INT FLAG
5478 · START MICR0-1 ANO MACRQ-2
3890 F3 se eo
3893 Cl 88 30:'.'IA
3.97 Cl SC :leA~ 3898 co 8'P 5972
5479 5480 5481
5482
s10 x·eo·.s101
TIO R38E4l1x·ee·
TIO A381NT.x·ac·
6
PAINTM
ENABLE MC 8$CA ITB INT SHLD NOT BE PENDING
LSCA INT SHCULD ee PENDING
ERROR HALT 39
389F 39
389F 5483
DC
xt.1'391
38AO lF
38AO 5484
DC
IL1·31·
38AI 60E1
38"2 5485
DC
,.._2(STATMA)
38AJ Cl 89 38AF 38AT CO 87 5872
5486
5·87 R38i NT TIO
54ee
e
R38IOE·X·89· PRINTM
8SCA OP-E~D INT SMLC BE PENOING EARDa HALT· 3A
() 38Aet 3A 38AC IF ~8AD 60El
38AB 5489 38AC 5490 38AE 5491
DC
XLt ·3A·
DC
lt..1 ·31 1
DC
ALa(STATMAt
c
38AF Cl 89 391 C
3883 3C Oi 394C
5492 5493 R3810E TJO
$494
MYI
R38E421X·e'i· INTFL.G.x·o1 ·
BSCA OP-END INT SHLD NOT BE PE~O SET INT EXPECTED A.AG BIT
07JUt.75 825023
25(CTY5 82!032
PRtlG ID PAGE
·
15.IAN?6
82503·
PAOG ID PAGE
· · · · · · · · · · · · · · · · · · · · · · · · ·· · · · · · · · ·
· · ·· · · · · · · · · -·j~---· · · · · · · · · · ·
8912
OISPL AY ADAPT St'-"IESJ.~
E~R LOC OBJECT CODE
38B7 F3 88 02
38BA CO 87 3881: 3SSE 30 02 394C :!8C2 CO 01 3924
38C6 F3 58 EO 38C9 F3 88 CO
38CC CO 87 54FE
3800 45
3601 5003
ec 3803 F3 58 EO
3806 ci
:see2
38DA CO 87 !872
38DE 44
380F 1F
38EO 60E1
38E2 F3 88 80
3ees cs ec 3932
38£9 F3 58 80
38 EC CO 87 5918
38f'-0 Ol
3f..Fl F3 58 e4 38F4 31 69 5080
3BFe F3 se ec 38FB ,.-3 58 EO
3£.FE 3C 01 394C
3902 3!S A 0 3948
3906 F3 88 C2 3909 co 87 3900 3900 30 02 394C
3911 CO Ol 3942
3915 F3 se eo
391 8 CO 8 T 021 6
391C CO 87 SB'?.i 3920 42 3921 11 3922 6087
3924 OC 01 3990 39tE 392A CO 87 5872 392E 43
392F 18 3930 39A6
3932 co · ., 6872 3936 40
3937 u
3938 6087
393A CO 87 5972 393£ 41 393F 11
:S9·o &oe?
3942 c:o 8., 58,7J . '
'394f; 48
394? 12 3948 6190
... -
39~ 3940 394-C: 00
AQDR ST_MT S.OVRCE STATEMENT
5495.'
54-9;.6.-
SJ 0 x· 02· .x· 88"
a
NXTJS
54.97 rsx_T3S CL I INTFLG .. xeo2"
5498
BNE R3SE43
~499
5500
s1,o x 1 eo·.s101
$10 x·co·.x·aeo
5501 · START MICR0-2
5502
. e
COM!CR
38DO 5503
OC
X'-1·4$1
* 3802 5504 5505
OC
Xl.2·5003"
START MACR0-3
5506
s10 x·eo· .s101
5507
TIO HAVINT.x·sc·
5508
B
PfHNTM
380E 5509
DC
>CL.1·44·
38DF 5510
Or.
ILi 1 31'
38£1 5511
DC
AL2CSTATMA)
5512
5513 HAV1NT s10 x·eo·.x·ae·
5514
TIO
R38E40~x 0 ac·
5515
sxo x·ao·.SIOI
5516 · ST AAT MACR0-4
5517
6
L.OAOCS
38FO 5518
DC
>Cl.POP
5519
SI 0 X4 84· .. s! C!l
5520 5521
5522
LIO X2205eOPDEC
SIO x·ao·.s10: 510 x·Eo· .sioI
5523
MVI !NTFLG,,x ·01 i
5524
L
1NT38A,, I AR2
5525 5526
SIO x·c2· ·x· 8e·
e
NXTUI
5527 NXTl 11 CLI 1NTFt..G .. x·o2·
5528 5529
8NE R38E48
SIO x·ao· .s1ca
5530
8
LINK
6531
5532 R38E42- S
!920 5533
cc
39.21 5534
DC
3923 5535
DC
PRINTM
XL.1. 42'
n.. t ·17·
AU!CSTAT~)
5536
5537 A38E43 MVC
5538
El
392E 5539
OC
AlCIC(2)·WmtONO PRINTM
Xl..1 ·43·
392F 5$40
3931 5541
DC
tt.1·24·
DC
AL2UUCrU>
5542 R38E40 B
MINTM
.3936- 5543 3.37 5544
DC
~1··0·
DC
IL.1· J 7·
~39 $845
DC
.-,.2(STATM6)
S5"-
t554 T
PRINTM
39.3E 5548
XL.I ·41·
393F 5649
tLl ·1 ?·
3941 5550
At..2CST4TM)
5551
_ ~$52' R3E48 B
3946, 5553
oc
3947 $554
oc
3949 5555
DC
PAINT" X\,.1 9 48' ILl 9 18·
~2CSTAT85>
5556
* 55555578 ·· ··R·Q·U·T·l·tE···3·9··IN·T·E·R·R·U··PT···SU··8R·O··U·T·IN·E····
5559 ····································
3948 5560 INT38A DC
~2U~T38)
· 39~ 5561 IMTFL G DC 5562
Jll,.1 · 00·
O"TE
0?.IUL?S
EC NO. 82!i023
2SCCT7ts
82~32
UUAN76
atsoM
PART NO.
PAGE
"·..
4234255 45
I8M MAINTENANCE OIAGNCSTIC PROGRAM
PART NO. PAGE
8912
DI SPLAY ADAPT ER TEST
ENAELE BSCA lNTC:RRUPTS
DUMMY OP 010 INT 0CCUR1' BR lF NOT ENABLE MC
DISABLE BSCA INToe ENAeLe BSCA
DO 2 NO MICRO ERROR HALT -4S2NO E X?ECTED RESULTS
ENABLE MC BSCA INT SHQUL.0 BE PENDING ERROR HALT 44
DISABLE B5CA ·'O INT RESET eScA 1m-. S~OVLO NOT BE PENDING
DISABLE RESET 32XX
GO PUT BCS-TO-AODR IN FIRST 256 WOROS
SET DIAG-2 LATCH LOAD OP-DEC WITH BAO PARITY DISABLE RESETe ENABLE MC.
ATTACH CK SHOULD OCOJR SET INT-EXPECTED FL~G BIT LOAD INT LVL-2 JAR ENABLE BSCA INT
OUMMY OP DIC JNT OCCUR?
SR IF '40-T DISABLE RE5eT BR TO NEXT ROUT ?Ni;
ERROR MALT 42
·35CA OP-ENO INT P6'01NG·
ERROR ttALT 43
ERR LOC OB.JECT CODE
ADDR STMT SOURCE STATEMENT
c
5563 $
Ol·INT EXPECTED
394D 30 01 394C.
3951 co 81 3964
5564 ·
5565 t NT3e
5566
CLI BE
!NTFLG.xeo1 · INTEX1
02=1 NT OCCURRED
IHT IxPECTED?
395!:> 35 20 398A
3959 F3 sa 01 395(" co 87 5872
3960 39
3961 OF
396.2 613E
5567 5568 S569 EH39 3960 5570 3961 5571 3963 5572
L
SI 0 B
DC
DC DC
~EH39·Pl1AA
x· 01 · ,.x· ee·
PRINTM
XL1'39'
11..1·1!·
Al..2C STAT60 t
RESET INT ERAOR HALT !CJ
5573
3964 3C 02 394C
3968 F3 se 01
3968 30 01 394C
39~F CO 81 3982
S574 5575
5576 5577
JN TEX 1
MVI
sto
CL!
BE
INTFLG·X·02·
x·o1·,x·as·
INTFLGeX ·01 · INTEX2
SET 'INT cccu~RED· IN FLAG BYTE RE SET PEND! NG &SCA I NT IHT ExPECTEC'l
3973 3977 397A 397£ 397f" 3960
35 20
F3 se
CO 87
3C OF 613E
398C 01 5072
5578
5579 5580 Et-13(;
397E 5581
397F 5562 3981 5583
L
SlO B
OC
DC DC
AEH3C.P11AR
x· 01 · .x· as·
PRlN'tM XL1 1 3C1 !Ltw 151 '1L2C STATSO I
PESET INT
ERAOA HAL., lC
5564
3982 F3 88 01
39S5 <:O 67 3940
\ ...
3989 395C
3968 :397A
5585 IN1EX2 SIO
ssso
e
399A 5587 AEH39 0C
~9ec-5se6 Aek3c ~oc
x· 01 · .x· ee·
INT38
AL2(EH39,
AL2CEt-13C!
REsET PENOl~G SSCA INT
5569
3980 05FO
398E 5590 lllORDND OC
C&..2· N()c
398F C3C3
3990 5591 RlCIC DC a..2·cc·
(
3991 C905E3CS0909E <¢01" 39A6 5592 RlCMl DC
3999 E3E240e~D6060<40
5592
CL22·INTERRUPTS TOOK PLACED
39A1 07C3C1 C3C540
5592
3'1lA7 4702
39A9 5000 39AB 1404 39AD 5003 39AF 1404 3981 5005
---· * 555599<3t- ·--S-T-A-R-T--~-F--M-I-C-R-O-P~~-O-G-R-A-M~-L--IS-T.I.N.G--·*
39A7
55S~
5596
5597
·R-3f-!M-C--S-~EIX-Q-U----X*-L-.2-·-4-7-0~a~·-----......
39AA 5598
DC
Xl..2 1 5000.
39AC 5599
DC
XL2 1 1404 1
39AE 5600
oc
XL.2'5003·
396(1 5601
oc
XL2' 1404·
3962 5602 R3&.cCE DC
XL.2· 500!5·
TS-·7 BSCA EMABL.£0
eos.o
SET INT OH
HANG
SSNe4 SET lNT AGAIN tcAl4G AGAIN
·o ER~ HALT
l!RR HALT 41
ADDRESS FOR lNT LVL·a tAR INTERl\uPT FL.AC
OO=NO INT EXPECtE.0
· · · · · ·
G
0
·OATl!i EC HO.
07.IULTS 825023
25Q;T7f5 02fn32
· · -PAOG 10 PAGE
·
·
·
ISM MAINTENANCE DIAGN CST IC PROGRAM
PART NO. PAGE
:(
42:S.::s (. IBM MAINTENANCE DlAGN CST IC PROGRAM
PART NO·
PAGE
42342$5 46A
8912
DISPLAY ADAPTER TEST
8912
DISPLAY ADAPT fR TEST
ERR LOC OB~ECT CODE
ERR LOC OB~ECT CODE
AOQR SHIT SOURCE STATElltENT
5604 5605
5606
·**·*·R·*·O"·'·U·*T·*I·N·*·E*·*··*3·A*·*··*&·*S··C*·A*·*··*T·*IO***·*N·*O·*T·*·*R**o~·Y*·;·U···N··t·T*···C··K·······································*··*·*··*·*··*··*·*··*·*·*
3A40 38 20 OAOE 3A44 CO 90 3A4C 3A48 Cl 80 3A4C 3A4C Cl 88 3A58
3983 SA 3984 00 3985 3AA9
3987 CO 87 021 A J98B 01 398C 23 3960 39E5 39BF C~ 87 39E6
* 5607 ·
5608
* 5609
5610 ·
MACAO
ENAEl..E MC
DI SlllBL.E 8SCA TIO SHOULD BE NOT RDY,UNIT CK
·
*** c
* 5611
5612 ·
ENAB.. E BSCA TIO SHOULD NOT BE NOT AOYl'UNIT C.K
** (
* 5613
5614 ·
015ABt..E BSCA
TIO SHOVLD ee NOT ROYl'UNiT CK
* *
* 5615
* 5616 ·
5617
* 5618
5619 ·
* 5620
5621 ·
MICRO MACRO
ENABLE BSCA
SET UNIT CHECK
TIO SHOULD SE NOT RDY,UtUT CK SI 0 NON J.li4MEDJ.ATE TO SSC.l lJO SHOULD NOT SE NOT RDY/UNlT CK
*· (
"'
· * * *
5622 5623
$·$it'4l***"'"'****$$1U:11<ll"i'$*.;tll<>l"lil<""*******'****ll>*********:IJ'll<llt$!1:$*!l<:ll#il<:ll'1'1'~1!o$*2'i'~"''****
3983 5624 RT3A DC
XL1·3J\·
ROUTINE NC*
3984 5625
:!966 5626
CC
XLl·OO·
OC
AL.HRT38)
ADOR OF NEXi ROUTINE
5627
5628
3988 5629 39BC 5630 39BE 5631
5632
B
OC
XLP 01 1
OC
ILl 9 35'
DC
-U ( R39HOfU
B
~39GO
PRINT ROUTINE HEADER
(
3A50 c;o 87 5872 3A54 3C 3A55 13 3A56 6160
3A58 Cl 88 3A68 3A5C CO 87 5612 3A60 49 3A61 13 3A62 6160 3A64 CO 87 021& 3A68 CO 87 S~FE
3A6C 45 3A6D 500A 3A6F F3 58 EO 3A72 F3 88 CO 3A75 F3 SA 00 3A78 Cl 88 3A8B 3A7C F3 56 80 3A7F CO 07 0216
3A83 3A87 3A88 3A89
CO 87 3A OF 6140
5872
39C3 0906E4E340F3C 140 39E5 5633 A39HDA DC
c 39CB 2e:2c 3C 14*0E 3C'. m6
5633
3A8B CO 87 5f37Z 3A8F 44
3903 400506E34009C,E8
5633
3A90 OF
3908 61E4DSC9E340C .:CS
563S
(
3A91 6140
39£3 C!5C:302 39E6 F3 56 80 39E9 CO S7 5916
39EO 83 39EE 3A93 39FO 3AA8 39F2 F3 58 EO .2>9F5 c1 ee 3A01 39F9 CO 87 5812
39FO 39 39FE l3
391=F 6160
3AOl F3 es co
3A04 38 20 OAOE 3A08 CO 90 3A10 3AOC C.1 80 3Al0 3Al0 Cl 88 3AS3 3"14 F3 88 80
3Al7 Cl 88 3A23 3 Al El CO 8? !58 f 2
3A1F 41 3A20 13 3A2l 6160
3A23 F3 58 £0 3A26 F3 88 C'l
3A29 CO 8'F 54FE
3A20 42 31<.2E !5004 3A30 F3 58 EO 3A33 CO 8? 54FE 3A3T 43 3A!e 5006 3A3il F3 68 EO
3.t.30 F3 ee co
5633 5634 R3GG0 5635 39EO 5636 39EF 5637 39F1 5638 5639
5640
5641 39FD 564:i 39FE 5643 3A00 564'1t
SCM-5 A39S1 564-6
5647
~8
5649 R3U1 5650 5651 5652
3AlF 56!53 3A20 5654
:51122 5655 5656
$6l57 R3'.SS2 5658
5659
3A20 5660 3A2F 5661
5662 5663 3A3? 5664 3A39 5665
5666 566'P
S!O IS
DC DC DC SIO TlD
e oc
DC
DC
SIO 1&N BF TJO
TJO
SIO TIO
B
DC oc
oc
SIO slO
e
DC DC
SIO
8 DC
oc
SID
SJD
x·&0'1o1SiO!
LOAOCS )IL!· 83· A..2(R39NCS)
Al.2 l R39MCE I
x·eo· .s101
R39s1.x11ea·
PRINTM
>Cl..1·39·
u..1·1··
AL.2( STAT82)
x"CO'. x·ee·
UDT3-l eX ·20·
R39T1
R39T1 .. x·so·
~39E3Aex·se·
Jll' eo·, )(ll!ee ·
R39S2 ·X' 88 1
PR I NTN JG..l '·1· ILl ~ 19·
AL2CSTATBU
x·eo· .s1c1 x·co· 0 xe ea·
DDNJCfl
XL1*42 1 JG...2·50040
x· et'· ,s101
OOMJCR
Xl.1 8 43· XL2·5006i
x·eo· .$.Ol
x·co·.x·ee·
DISABLE RESETe 3ZXX
l..OAO t.Uc;ROCODE
ST ART AOORESS ENC ADDRESS
ENABLE MC
6SCA NR/UCa 5HOyt...O
ERROR HALT 39
BRANCH
ENABLE ilSCA IS BSCA-1 INSTALLED
BR 1F NOT
TIO UeC· TO BSCA·t BSCA NRl'UC· SHOU~DN·T BRANCH
DISABLE i1SCA SSCA NRl'UC · $H0Ut.D BRANCH
ERROR HALT ·a
ENABl,.E M(
EHAeLE &SCA
11ALT _.2· 1sT E-~TEO Rl!Sut..'1' !:HABLE MC
HAL.t ·4:5-
2ND EXPECT EC RESUL t
ENA~E MC E.NASL E 8 SCA
i~~·
()
ii
c 1
\e
· · · ·
1.
1.
3A93 73FF 3A95 2FA3
3A97 4704 3A99 5002
3A9B 5004 3A90 1104 3A9F 5;)06 3AA l 1104 3AA3 BFA.3 3AA5 900F 3AA7 500A
OATE
OT.JU\. 75
EC NO· 825023
25CCT15 82 ef.13 2
PROG 10
PAGE
0891-21 . DATE
4.6 I EC NO.
\G
07.IUL?S 825023
ADDR STMT SOutCE STATEMENT
5666 5669 5670 5671 R39S4 5672 3A54 5673 3A55 5674 3A57 5675
TBN BF TIC Ti 0 B DC DC DC
LOT3-1 ·X·20'
R39S4
R39S4.x·so·
R39S3·X' ee·
PRJNTM XLl · 3C' !Ll' 19"
AL.2(STATB2)
IS 8SCA-l INSTALLED BR IF NOT TIO UC TO BSCll- l SSCA NRl'UC· SHL.D BRANCH" UNIT CK
ERROR HALT JC·
5676 5677 R39S3 TIO
R39S3A·Xt8~e
5678
B
3A60 5679
OC
3A61 5680
DC
3.A63 5681
DC
soa2
a
5683 1=139S3A B
3A6C 5604
DC
3A6E 5665
oc
5686
$10
5667
Si 0
5688 5689
SIO TIG
5690
SI 0
5691
8
PRINTM XL1·49· IL 1·19 ·
~2(S!ATe2)
LINK COM I CR
XL1 9 45·
XL2 9 500A · Xv EO · ,. S U::II X·CO· eX988·
x·oo· .. x~eA·
F<39E30~ X · 88 · x·eo·~s1c1
LINK
ERAOR HALT 49
ERROR EX IT
ERROR HALT -45-
3 RO EXPECTED RESULTS
ENABLE MC ENABLE B$CA BSCA SIO NON IMMEDIATE TO AST UC SSCA NR/UC· SHOULD NOT BRANCH
DISABLE RESET 32XX BR TO NEXT ~OUTINE
569Z
5693 R3~3A IB
3A87 5694
oc
3ASS 5695
DC
3ASA 5696
oc
PfUNTM ><.!... 1e3A · IL!."' 15~ At.2( STATB1)
ERFiOR HAL.T 3A
5697
5696 R39E30 B
3A8F 5699
oc
3A90 5700
DC
3A.92 5701
DC
PRINT!ll XLP 44c
It.1"15'
Al.2(STATt".1 >
ERROR HAL- T 44
5702
5703
5 704 5705
**·
-----
START
---
Of'
--··---------
MICROPROGRAM
-
L
------
ISTING
-· ·
-3A93
5706 5707
R·3-~-M-C-S--EQ-U----*--~--------~~~-~·
3A94 5708
DC
>Cl..2·73FF-· 000 PUT ·FF· IN HOB 3
3A96 5709 3A9S 5710
DC
XL.2 1 2FA3·
001
MOVE tT TO HOB 3F
DC
XL2 1 4704 1
002
BSC .. ENjl8l.EO
3.A9A 5711
DC
XL.2 · 5002 ·
003
WAIT & 1..00P
3A9C 5712
DC
XL.2·5004 9
004
lST EXi;IECTED RESULT
3A9E 5713
DC
Xl.2 1 1104'
005
SET U/C
3AAO 5714
3AA2 5715 3AA~ 5716
DC
XL.2°5006 9
006
2NO EXP RE SIA. T
oc
XL2' 1104 1 007 SET U/C
C~
XL.2°BFA3 · 008 TESl HOB 3F STILL · HDS 3
3AA6 5717
DC
3AA8 5718 R3iMCE DC
XL2'900F' x1..2·so0Ae
009 OOA
BRANCH TO ERROR IF NOT HANG 3RO EXP RESULT
25CC1'?5 82 f032
fl:IRQG 11) PAGE
I
1·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
\·
e1I '9
·
·
·
·
·
·
·
·
·
·
·
·
··
· · ·
· ·t · · · · · · · · · · · · · · · · · · · · · · · · · · · · · .,.·
IBM MAINTENANl.'.:E DIAGNCST IC PROGRAM
8912
DI Sf:i.. AY ADAPT Bt TEST
ERR LOC OB.IECT CODE
AODR STMT SOURCE STATEMENT
PART NO. PAGE
4234255 47
IBM 14A.INTENANCE DIAGNCSTIC PROGRAM
8912
DISPLAY ADAPTER TEST
PART ftt01 PAGE
4234255 47A
ERR LDC OBJECT CODE
5720 5721
·· ~*f<*O*IJ*T*J*":*E**;JpB**e*sC**A*M*·O·D·E·~C·Y·C·LE···S·TE*A·*L **T*E*ST*************····················*
5722 5723
*· ****************************************************************·*·****. (
5724 ·
= MACRO 1 CLEAR CYCLE STEAL AREA AND SET LAST BYTE FF.
5725.
3 BOS 3BOC 3810 3811 381.t.:
Cl SA CO 87 3C 16 60F7
3B1C 5B72
5726 ...
5727 ·
5728 *
5729 · 5730 ·
5731 ·
5732 *
5733 ·
* 5734 * 5735
5736 ·
5737 ·
LOAD C~TAR
MICRO l
lEST BSCll lllOOE CYCLE STEAL LATCH IS OFF ~ET BSCA MOOE CYCLE STEAL MOOE LATCH ON
TEST FOR Ohs SHOULD SE s
MACRO 2
ENABLE MC
TEST ascA Busv-sHOUL.D NOT BE.
ENABLE BSCA WITH NON-IMMEDIATE SIO~
LOAD BSCA-2- CURRENT ADOR REG
TEST 8SCA BUSY SHCULD Be.
·
*
· *
*
· *
· *
*
·'"
3614 cc 87 5872
:SB18 30, 3819 OF 3BlA 60C2
!etc co 87 54FE
3820 3E: 3821 50ZI
3B23 SD 01 57 08 3827 F2 81 00
5738 ·
5739 ·
* 5740
5741 ...
* 5742 * 5743
!5744 ·
5745 ·
* 5746 * 574 7
5748 · !5749 ·
* 57!50
* 57!51 ·
!5752
5753 *
5754 ·
MICRO 2
MACRO 3 N1CRO 3 MACRO 4 MICRO 4 MACRO 5
TEST esc. ENABi..EO.
TEST 8SCA MODE Cs LATCH, SHOULD BE ON·
.**.
00 4 CYCLE STEAL OPEAAT!ONS USING ·FFAA5528 1 CATA PATTERN*
COMPARE STORED DATA PATTERN. SNS CRTAR FOR SA~E AS ORIGINAL· SHOULD BE THE SANE·
CO 4 FETCH C'tCLE STEALS Al'!D COMPARES
ENABLE MC
DISABLE BSCA ANO TIO BSCA BUSY, SHOULD NOT SE.
lEST BSCA filCDE CYCLE STEAL LATCH, SHOULD BE ONe
CISASLE AESET
BRANC>-! TC ..EXT ROUTINE
.*·.
* ('
· * ·
" (
* * * ·
c·:
* ,-
*· \._
382A IC 01 5FE6 08 3B2F CO 87 5DAS 3833 20
3834. 3F
383!> FFAA
3~37 50 Cl 68 DA 3B.3B F2 81 00
3e3E ic oi 5FE6 DA
3B43 CO 87 SDAS
3847 20 3848 40 3849 5528
3848 70 00 06 3B·E F2 01 06 3851 70 00 DB
3AA9 38 3AAA 00
3AA9
5755 5756
R. .T.~.
.
.
.
.. DC
.
.
.
.
....... XL1·3s·
.
.
.
.
.
.
.
.
.
.
.
.
.
.
........ ROUTINE
.
....... NUMBER
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
. .
(
385" F2 81 12 3857 lC 00 SFe 5 06
3AAB 400C
3AAA 5757
DC
lCL.l ·oo·
NO MANUAL iNTEA\IENTIOt-i
385C 1C 00 3FE6 OB
3AAC 5758
DC
..._21RT3Ct
ADD OF NEXT ROUTINE
3861 CO 87 5DA5
3AAD C2 01 3AOF
5759 3ADF 5760
5761 5762
USING R3BGOJeXAI
LA
R3EIG01 eXlil
JNITIALJZE XRl FOR INDEXING.
c
;5865 20 3866 41
3867 0000
3A81 CO 87 021 A
3A.B5 Ol 3A86 22
5763
3AB5 5764 3A86 51'6!5
e
DC
oc;
3AB7 3A09 3ABD
!ADE CCI 87 3AOF 0906E4E340F3C&40
;JA88 3ADE
5766 5767 5768
RJ81'iOR
DC
8 DC
3AC5 C2E2C3Cl40D4DtC4
5768
3ACD C!i·OC!E8C,303C 140 3AD5 E2E3C5Cl D340E.'!CS
5768 5768
3A.OD E2E3
5768
3AOF co 87 5918
3&.E! 83
3AE4 !BBF 3AE6 :!CSA
5769 R3BG01 8
3AE3 5770
DC
3AE5 5771
DC
3AE7 5772
oc
PRINT
xt.1·01·
1Lt 1 34·
.tlL.2 lR.:SSHDR >
A38G01 CL34 1 AOUT 3B
SSCA
MODE
C::YC'..E
STeM.
TEST·
LOAOCS
JCL.1 '83· 'L2(A38MCSI -..2CR::!BMCU
GO LOAD MICROCODE
'C
(.
3869 F3 88 eo
386C C1 8A 3086 3870 F3 88 CO
3873 31 8C 3BBC
3977 F3 BA C4
3B7A Cl BA 3896
3B7E CO 87 5872
3ee2 ··
:a&B.3 16
31884 60F'7
3-886 co 87 5812
388A 45
3~88 Of<
JAE 8 !1iF 05 08 D8
3AEC 3C Ff' 3889
3AFO CO 87 54FE
3AF4 38
JAF5 500.
3AF7 FJ 58 EO
ee 3AFA Cl 8A 3814
.JAFE FJ
co
3ao1 :n ec :seac
3805 F;s 8A c.
5773 5'?74 577!5
5776 3AF4 5777 3AF6 5778
5779 9780 5781 5782 5783
SLC MVI B
DC DC 510 TIO SIO l.10 Sia
PASTCs(6;
BCYSTAeX1
COMICR
xR Ff<
1
1
t
1
P
A
S
TC
S
C
tXA 00
l) CL.EAR OUT CYCLE SET LAST cYCLE S
MICROCODE
STEAL TEl\L
AREA BYTE ·
F
F
Xl.l · :!B·
ERROR HALT ·38·
Jll..2·SOO··
x· r:o· ,s 101
FIRST ExPECTEO RESULTS
ENABLE MC
BSYEAl1X·8A·
x·co·.x·ee·
BCYSTLtBSDAA
x·c4· .x· eA·
TIO 8SCA eusv. SHOUl.O NOT !)E
ENABLE BSCA WITH SIO IMMEDIATE. LOAD BSCA C:URRENT ADDR REG SJO NON-JMMEDIATE SET BUSY
c :ssec 6oc2
:S'f.8E CO 87 5872 3992 46
3893 OF
3894 60C2
(;
3896 CO 87 54FE
389A 42
3B9B S03E
c
Jago F3 58 eo
SBAO F3 88 80
38A3 CJ IA 388E
OATi EC·Ho:_...
25KT7$ 82!0.12
!
l 0
U89l-2i
DATE
e 47 i ec NO.
07..UL75 825023
ADOR STMT SOURCE STATEMENT'
5784 5785
3Bl0 5786 3911 5787 3Bl3 5788
5789
TI9
e
DC
DC
DC
5790 BSYEAl 8
3B18 5791
oc
3819 5792
oc
3818 5793
oc
5794
5795 R ~8"'C2 B
3820 5796
DC
3822 5797
oc
5798
5799 5800
CLC
5801
MVC
5802
a
3633 5803
oc
3634 5804
DC
3836 5805 R3BEX1 DC 5806
5807 R3 eao 1 CL c
5808
JE
5809
MVC
5810
8
3847 5811
oc
3648 5812
DC
384A 5813 R3Bex2 oc
5614
5815 R3eSO<! CLI
5816
JNE
5817
CL I
5818
..IE
581 9 R 366 03 MVC
5820
MVC
5821
B
3865 5822
oc
3e66 5823
DC
3668 5824
DC
5825
5826
5827 R3Bo05 SIO
5828
TIO
5829
SIO
5830
LIO
5831
SID
5832
TIO
5833
B
35682 5834
DC
3eea 5835
DC
3Bes se36
oc
5837 BSSl;R2 e
~88A 5838
oc
3BEle 5839
DC
3880 5840
cc
5841
5842 BSVC:RJ B
3892 5843
DC
3893 5844
c;
3895 5845
DC
5846 R3BB06 e
389111. 5847
DC
3B9C 5848
DC
584Q
SIO
5850
SJO
5851
TIO
R3BNC2· X '8A ·
PRINTM
XLl' 3C 1
lt..1·2~·
.tUUTATfltSI
TIO BSCA BUSY ERROR HALT - X-
PRINTM XL1 1 30· IL1 1 1541 AL.2CSTATN9)
ERRQA HALT - 3D-
DOM I CR XL1 1 3E· xL2·so21 ·
DO 2NO MICROPROGRAM (STORE CS>
ERROR HALT -3E-
ExPECT ED RESUL. TS
R3BEXl<2eXR1)1BCVSTA-2(eXR1) CHECK FIRST 2 BYTE~.
R3SB01
JUMP IF OKAV
STATAC.BCYSTA-2(2oXRl> PUT ERROR RESULTS JN STATU~ STATUS
PRINT EXP & ACT RESULT EARQq HALT -3F-
EXPECT ED RESULTS
R3BEX2C2wXRUoBCVSTAC ·XAU CHECK 2NO 2 BYTES
'"38802
.
.JUMP IF OKAY
STATACoBCYSTAC2eXR1) PUT ERROR RESULTS IN STATUS STATUS
XL1·20· XL 1'40·
Xt..~·5529·
PR I NT EXP ' ACT RESut.,TS
ERROR HALT
EXPECTED RESULT
PRBCS(oXAa>.x·oo·
R3B803
FIAsT BYTE OF ·e·cs AAEA - 00
JUMP IF NOT - EQUAL
P.ASTC.H o>CRt) oX 1 00'
LAST SVTE OF ·e·cs A~e- c 00
R3BB05
JUMP AROUND ERROR
STATAC-1oPRBCSC1oXR1) ~DvE lST BYTE TO STATUS
S'l'ATACo PASTCSC lo XRU MOVE LAST BYTE TQ STATUS
STATUS
XLl · 20·
XL1 1 41·
Xl,.2'0000·
ERRQA HAA., T -41-
EXPECTEO RESULTS
X·80·tX·88·
BSSER2oX 1 8A'
x·co·. x·es·
BCYSTLwBSD.tR X·C4· ·X· 8A· A.18806. x '8A I PRINTN X&..l ·44· ILi 1 22· AL2CSTAT..B) PAINTM XL1 1 45·
l'-1 · U!· AL2CSTATM9)
PRINTM XL l '46· lq t 15· Al..2CSTATN'i1J DONICA
XL.1 · 421 XL2 1 !S03E·
x·eo· .s101
x·eo·.x·ee·
l!S"ER3eX' 8A 1
DI SABLE BSCA TI 0 SSCA SUSY S MOULD NOT BE ENASLE BSCA IMMEDIATE 510 LOAD BSCA ~URRENT ADDR REG SID NON I~MEDIATE SET BUSY T10 BSCA SUSY - GO 00 MICRO EAAOA HALT -44-
EARDR HALT -46-
00 3RD MICRO PROGRAM <FETCH CS)
EOUICJR HA!..T -·'2-
EXPECTED RESULTS ENABLE MC
OISAe'-E BSCA TIO BSCA BUSY $HOULO NOT 8E
UJAN76 828034
PROG ID PAGE
· · ·
~·-
·
IBM MAINTENANCE OIAGNCSTIC PROGRAM
PAR't. NO. PAGE.
4234255 48
IBM MAINTENANCE DlAGNCSTIC PROGRAM
PAm NDe PAGE
6912
DISPLAY ADAPT lR
E~R LOC OBJECT CODE
36A7 CO 87 54FE 3BAB 47
3BAC 504C
3BAE F3 58 80
3BB1 CO 87 O!l6 3BB5 00
3866 00000000 3BBA 00
JBBB 3096
:seeo 0000
3SSF 4500 3BC1 1504 38C3 4504 38C5 5003 36C? 5004 3BC9 5807
3BCB 5005
3BCO 1504 38CF 45.0A 3BD1 5R09 3803 SOOB
3805 sooc
3507 5000 3BD9 7FFF 3BDS 1904 3600 4911 3BOF 5010 3BE l 4811 3f:IE3 ?FAA 3BES 1904 36E7 4816 3BE9 5015
38EB 4816 3BEO 7F55 !BEF 1904 38Fl 4618
3BF3 501A 3BF5 4818
3BF7 7F28 3eF9 l 90-
3BFB 4820 3SFO 501F 3BFF 4820 3C01 5021
3C03 5042
Jcos so2·
3C07 5025 3C09 502:6 3CCB EFFF 3COD 9C29 " - - )Ct.If' 5028
3Cll 1804 3Cl3 482C 3Cl5 5028 3C1'7 ·~C ~Cl9 EFAA 3C18 9C30 JC. ID 502F 3C1'' U\04 3C21 4833
DATE ·· ·ec No.
TEST
ADDA STMT SOURCE STATEMENT
5852 3BAB 5853 3BAO 5854
B
DCIMICf;l
DC
>G..1·47·
DC
Xt..2'504C·
OD 4TH MICRO ERRCla HALT -47-
EXPECTEO A£SULTS
5(o55 5856
SIC
DI SABLE RE SET
5857
5858
8
3885 5859 PABCS DC
3866 5$60 BCVST EQU
3899 586 l BCYSTA 0C
38~A 5862 PASTCS DC
386C 5863 SC YSTL DC
L!H~ X~l 1 00'
*
l(L4GO·
XLt·o· AL2!ecvsn
SR TO NEXT ROUTINE START OF ·B· CYCLE STEAL AREA
ACTUAL CVCLE STEAL AREA
ENO OF ·e· CYCLE STEAL AREA
ADDRESS OF CYCLE s·n:At. AREA
?BBE 5864 CCYSTL DC
Xi..2~oo·
:SNS CRTAR HERE
5865 5866
·*-~ST-A-R-T--O-F--N-I~C-R-O-P-A-O;G-~-A-M--L-I-S-T~I-N-G-$*
·------------*--------------~---· 5867
3BSF 5668 R38'4C S EQU
3BCO 5869
DC
3BC2 5870
DC
3BC4 5871
oc
3BC6 5872
OC
3BC.8 5873
OC
3BCA 58?4
DC
3BCC 5875
DC
3BCE 5876
DC
3800 5877
DC
3802 5876
oc
3804 58T9
DC
3606 saao
3eoe 5881
oc oc
31.'JD.ft 5882
DC
3BDC 5683
DC
3BDE
3eeo
588>4
sass
DC
oc
3BE2 5886
oc
3BE4 5887
0C
3BE6 5&86
DC
3SE8 5889
DC
3BEA 5690
DC
3BEC 5891
DC
!BEE 5892
oc
3BFO 5893
DC
38F2 5894
DC.
>Q..2 1 4500~
XL2 1 J504 1 ia.2· 4504·
Xl.2°5003' XL2 1 5004 1 A.2 1 5807· XL2@S005° XL.2 1 1504&
xt.2·450A' l<L2 Ii 5009.
Xl..2·5008·
Xt..2·sooc·
XL,;?95000· Xl.2"'·r:r·rF.
XL2·1904·, XU:· ~811"
)ll.2e~o10·
x1..2' 4811 1 >L2" 7FAA · xt.2 8 1904' XL.2·4816' Xl..2'5015 1
xu~e4fH6'
Xi..2 1 7f55. XLze1904·
XL.2 1 4818 9
000 OOJ. 002 003 004 005 006 007 008 009 0011. 008
ooc
OOD OOE OOF
()10
OU
OH~
013 014 <H5 016
011' 018 019
TSN BSCA MODE CS lATCH SHCULO BE
SSN·5 SET BSCA MOOE LATCH ON T~Ne5 SSCA MOOE l~TCH ON? SHOULD
eos~o EAAOR HANG
ecs.o lST EXPECTEC RESULTS
sos.2 BA IF sto SVC REQ
BOS·O LOOP & WAIT SSN SET escA MODE cs LATCH ON
TSN SSC.A MODE LATCH SHOUl..O SE ON
ERRO!=I HANG EH~s.o NEXT ADDR -
605§0 NEXT AooR -
ec:s.o NEXT AOOR -
D',HJIMV CVO.... E DUMMY CYCLE OU?llM'f CYQ..E
! C SET HOB OF=FF S~N~ SET S"IORE C.yCLE S1"EJH, LATCM ON iSN· TEST STORE CSR e~UST BE ON
ER~OR HANG
TSN ll'AIT FOi'< STORE CSR.TO GO OFF
IC SET HOB oF·l\A SSN SET STORE CS LATCH ON TSN TESl' STORE CS 5R,.MUST BE ON
ERROR t-iANG
TSN WAIT FOR $TORE csr<.TO GO OFF
iC· SET HOB OF=55 SSNe SET STORE CS LATCH ON
TSN TEST STORE CSR.MUST ee ON
3BF4 5895 3BF6 5896
3BF8 5897
3SFA 5898 !BFC. 5899
DC
>a..2·so1A · 01A
DC
l<L2 1 481 B'
OlS
DC
)Q...2 1 7F28·
01 c:
DC
,,..2·190·· olD
DC
XL2 9 4B20 9
01E
ERROR HANG
TsN WAIT FOR STORE CSReTO Go OFF
IC· SET HOS OF·28 SSN SET STOAE CS LATCH ON fS!\ l"EST STORE CSRe MUST BE OH
3BFE 5900 3COO 5901 3C02 5902
5903 ·
3C04 5906 3C06 5905
:scoe 5906 XOA 5907 3COC 5908 3COE 5909
3Cl0 5910 3Cl2 59U 3C14 5912
DC
JC1..2·Solf'·
DC
XL2·4820'
DC
XL2· So~l 1
THE NEXT PART IS
DC
XL2e5042 8
oc
>Cl.2 1 5024·
DC -..2·so2s·
OlF 020 021 ENTERED 022
023 024
E$tROR HANG
TSN 111AlT FOR STORE CSR.TO GO OFF
ecs.o 2NO EXPECl~C RESULTS
TO 'TEST FETCH CYCLE STEAL tN BSCA MODE·
aos.o GO DO SET UP ~OR FETCH· ecs.o DUMMY eos.o DUMMY
DC
1u.2·so26· 025
DC
>«..2 ·EFFF · 026
8 CS· 0 DUMMY
Cl TEST MOB OF·FF
ttc
XL2 9 9C29' o:H
eoc~ !I Ml..!$T SRANCt!
DC XL2·5o2e· 028
oc
xo..2·1eo4· 029
DC
xL2.··a2c· Q2A
ff<FIOR Hl!iNG 5fN SET FETCH C! LATCH ON
TSN TEST FETCH CSR·MUST BE ON
3Cl6 l;>913 3':18 59141
3C1A 5915 XIC 5916 3C1E 5911' :JC20 5918 3C22 5919
DC
lCi..2· so2e· 028
DC
XL2·4e2C@ 02C
DC
XL2·EFAA' 020
oc
)CL.2·9C30"
02E
oc
XL29 502F·
02F
oc
Xl..21 1804·
030
DC
JD..2··83.3· 031
EfiROR HANG
TSN WAIT FOA FETCH CSRoTO GO OFF
Cl TfST HOB OF=AA
BCC e3 MUST BRANCH
ERROR HANG SSN SET FETCH CS LATCH ON
T5N TEST FETC41 CSAeMUST BE OH
PROG 10 PAGE
8912
DI SPLAY ADAPTER lEST
ERA LOC Oe.JECT CODE
3C23 !5032
3C25 4833
3CZ7 EF55
3C29 9CJ7 3C2B !:036
3C20 1804
3C2F 483A
3C31 5039 3C33 483A
3C35 EF28
3C37 9(:3E
3C39 5030
3C3B 503E
3C3D 4541
3C3F 5040
3C41 504A
3C43 1504-
3C45 4545
3C47 5044
3C49 1804
3(;48 4846
(
3C40 5047
3C4F 4848
3~51 5026
3C53 1308
3C55 4540
3C57 504C
3C59 50"1-D
ADDR STMT sol.RC! STATEMENT
3C24 5920
DC
3CZ6 592.l 3C28 5922
DC
DC
3C2A 5923
DC
3C2C 592.4
oc
3C2E 5925
DC
3C30 5926
DC
3C32 5927
oc
3(:34 5928
oc
3C36 5929
DC
3C38 5930
oc
3C3A 5931
oc
3C3C 5932
DC
3C3E 5933
DC
3C40 5934
oc
3C42 5935
oc
3C44 5936
oc
3C46 5937
DC.
3C48 5938
DC
3C4A 5939
IX
3C4-C 5940
DC
3C4E 5941
oc
'."C50 5942
oc
3C52. 5943
oc
3C54 5944
DC
3c56 594s
DC
3C58 5946
DC
3C5A 5947 R3B~CE DC
XL2·5032· Xl.2'4833. XL2·EF55· XL2'9C37·
><L.2·5036. XL.2"1804@ Xl..2 1 483A e XL.2 1 5039·
XL2·483A·
.>0...2 9 EF28" XL2"90E 1
XL2° 5030· XL2 1 503E' ~L2·454t · Xl.2 1 5040.
XL2 1 504A' XL2·1504 8
XL.2 1 4545.
XL2 1 5044 · XL.2°1804· )(1..2°4848. XL2 8 5047· XL.2'4848 1
XL2'5026'
XL2' 13081 XL2·454Di XL2 1 504C1 )!1_2 1 5040"
032 033 034
035
036 037
038 039 03A 036
03C
030 03E 03F
040 041 042 043 044 045 046 047 048
049 04A 048 04C 040
El"ROR HANG
TSN ~AtT FOR FETCH CSA1TO GO OFF
Cl. TEST HOB OF·!5
acs.3 MUST BRANCt1
ERROR HANG SSN SET FETCH CS LATC~ ON TSN TEST FETCH CSR.~UST BE ON
ERROR HANG TSN wAIT FOR FETCH CSA, TO GO oFF
CI TEST HOB OF=28 90Se3 MUST BRANCH
EfolROR HANG
aos~o 3RD EXPECTED AESut..TS
TSN TEST BSCA CS LATCH SKJ.,._D BE ..
El'iROR HANG
eos.o TO AODR.04A
sst-.s ALT CYCLE STl!!AL
TSN· 5 BR IF ONe
eos.o ERROR HANG sst-.SET FETCH c.s.
TSNo TEST FETCH C· S., i)'N
aos.o ERROR HANG
TS~· WAlT FOR C·S· TO GC OFF~ RTN TO FETCH OP· SSF.3 RESET BSCA CsS· LATCH TSNvS TEST BsCA CoS« LATCH,.BR OTO 040
5QS,.O 4TH EXPECTEO RESULT
eos.OEAROR HANG
5948
5599~496 ****** c A u T I 0 N ~-$***** 00 NCT MOVE THE FOLLOwI~G cooe.
5950 ***11<** IT MUST REMAIN ORG'D AT THIS LOCATION TO AGREE WlTH UeGs
5951
O~G CE M!C~CPROGRAM STUFF
3F8E
5952
ORG
~INSERT STO~ AOOR .. ' " l.0 ev1'11"
3F9E SOOO
3F8F 5953 R28EXO DC 3FC0 5954 R26MCS EQU
·Jet.20·S0005C0150025003f004S0055006500750085009i
(
3FCO 5000500150025,03 3FD3 5955
DC
3FC8 5004500550065(07
5955
3FD0 5008~009
5955
3F04 500ASOOBSOOC5 (OD. 3'FE7. S956.
oh oii xi....20 · 500A500B560C500DfOOE500FSOl so12soi.3'0
DC
3FC>C 500E 500F !::0105 <11
5956
3FE4 5012S013
5956
3FE8 5014501550165 U 7 31FFB 5957
XL.20" 5014!:'155016501 7f01850H11501A5ol8!:01C50JO·
DC
3FFO 5018501 'i501A5 (18
5957
3FF8 501C5010
3FFC 50tE501F
5957 3FFF 5958 R2BMCE OC
· ·
OT.JUL75 825023
25 (CT75 82 !032
1!5.IAN1'6 825034
PROG JO PAGE
· · · · · · · · · · · · · · · ·· · · · · · · · · · · · · ·
·
·
·
·
·· · · · · · · · · · · · · · · · · · · · · · · · · · · ·
ISM MAINTENANCE OIAGNCSTIC PROGRAM
PART NO.
PAGE
j
491 4234255,
IBM MAINTENANCE DIAGNCST IC PROGRAM
8912
DISPLAY ADAPTlA TEST
ERR LOC 08~ECT CODE
ADOR STMT SOURCE STATEMENT
l !
8912
DISPLAY ADAPT ER TEST
ERR LOC OBJECT CODE
ADDA STMT SOURCE STATEMENT
*: 5960
5~61
5962
**····R·S·CO··RU*IT*AI*NL*E*W3*RC*AeP**T*H*R*O*U*G*H**ID**A**D*R*IV*E*R**R*E*C**cl*V*E*R*5*. **(A**S *D**E*FI*N*E*D·**IN**U*O**T*a)********!'
4000 3C
5963 *****************************************************·*****************!
400i.. 5964 RT3C OC
XL1'3C 1
ROUTINE NO·
:
4001 00
4001 5965
DC
XL.t·ooc
4002 4538
4003 5966
DC
AL21RT3D)
4004 CO 87 021A
4008 01
5967 4008 5~68
B
PRINT
oc
XLJ·O:&·
PRINT ROUT TITLE
4009 lC
4009 5969
DC
IL1·28 1
400A 4028 400C CO 87 402C
4QOB 5970
5971
DC
AL2(R3CTTL)
e
COR3C
4010 09D6E4E3.$0F3C .;40 4028 5972 R3CTTL DC
CL28·ROUT 3C
4016 C4D9 C9ESC5096 109
5972
4020 C5C3Ct:C._E5C50 V.O
5972
4028 EfD9ClD7
5972
5973 ·
* 5974 * 5975
FIRST A WRAP WITH NC CRiVER/RECEIVER SEl...ECTED. 1HE WRAP SHOULD NOT WORK.
4 02C OC 01 3022 30 .:A
4032 oc 0 l 3024 30 .:c 4038 oc o 1 3026 30 ce
5976 OOR3C MVC
5977
MVC
5978
MVC
R1FMCE-6(2)1HOB900 Rl FMCE-4 (2) tLISELA RlFMCE-2(21.WRPOUT
NO BIT ON IN HOB 9 DESEl...ECT Wl'OECOOE A (AGA!Ne) DUG OFF
403E CO 87 5918
4042 83
5979
4042 5Sl80
B
LOADCS
DC
XLl983·
LOAD MICROPROGRAM
4043 2FA7
40.\4 5981
DC
AL2(RlFMCS)
·o4s 3028
4046 5982
OC
-L2(RlFMCE)
4047 31 48 4534
5983
LIO X0343eHOBO
LIO VALUE TC SE useo.
4048 3C 1 0 5564
404r CO 87 5.WE
5984 SSl85
MY l LPCNT. x· 10·
B
DOMICR
INCREASE Ml CROPR0GRAll4 TIME.
I,,
'4053 SF
:.-os· 501c
4053 59S6 4055 5987
DC
XL.1 9 !SF·
tic
XL2'50lC·
ERROR HALT -SFEXPE'CTEO RESl.A.. TS
5988 ·
* 5989
NOW TEST FIRST 3 OR IVER.tRECE!\!ER CIRCUITS· (BASIC)
4056 OC 01 3022 le CA
4 osc oc 01 3024 30 .:c
4062 oc 01 3026 30'8
5990 5991 5992
MVC
MVC
MVC
RlFMCE-6(2~eHDB980 RtFNCE-4(2)1LISEL.A
R1FMCE-2(2)eWRPOUT
BIT o
LINE SEL A
DUG OFF
4068 3C 40 4538
5993
MVI DEVADR.x·4o 1
ADDR 40
4 06C 3C 10 4'143
4070 co 67 4426
5994 5995
MVI lllRAPEthX 9 10'
8
WRAP
ERROR 10
4074 OC 01 3022 30cC
5996
MvC RlFMCE-6C2)·HD8940
BIT 1
4074 OC 01 3024 30~C
5997
MVC RlFMCE·4l2loLISELA
LINE SEL A
4080 oc 01 3026 30·8
5998
MvC RlFNCE-2(2),WRPOUT
DIAG OFF
4 086 3C Cl 4538 4084 3C 11 4443
5999 6000
NV J CEVADR, X ·C 1' MVI WRAPEH,X' l 1'
ADDA Cl ERROR 11
(
408E CO 87 4426
6001
B
llRAP
4 092 OC 01 3022 30 cE
4098 oc 01 3024 30 .zc
409E OC 0 l 3026 30 .CS
40A4 3C C 2 4538 4048 3C 12 M1'13
40 AC CO 87 4426
6002
MVC
~1FMCE-6(2),H08920
6003
MVC RlFMCE-4(2)eLISELA
6004
MVC RlFMCE-2c21.wAPOUT
6005
MVJ DEVAORex·c2·
6006
MVI WRAP£H.X'12'
600'1
8
WRAP
* 6008
CHECK FOR TEX1 FEATURE·
* 6009 * 6010
TEST 3 LINES IF PRESE...To EXIT IF NOTe
BIT 2 LINE SB. A OIAG OFF
ACOR C2 E~ROR 12
(
i I(
I
I
i(.;
I
4080 38 08 OAOC
4084 co 90 0'216 · oe8 oc 01 3022 30 io
40BE CC 01 3024 30 X
·oc4· 'O·c 01 302"6 30 '8
4oCA JC C3 4538
40CE 3C 13 4443
4002 co 87 4426 4006 oc 01 3022 30 ~
40DC OC 01 3024 30~C
4 CIE 2 OC O 1 3026 JO "8 ~OE8 3C C4 ·'538
40EC 3C 14 44.\3
40FO CO 87 4426
6011
6012 6013 6014 6015
6016
6017 6018 6019 6020 6021
6022 6023
6024
TON
BF MVC MVC MYC MVI MYI
8 NYC MVC
MVC
·vt
MVI
e
UoT2.x·o8·
LINK R1FMCE-6(2),HD8910 R1FMCE-4(2)1LISELA
RlFMCE-2<2>.wRPOuT
DEY _.DReX ·(.31
WRAPEH.X 9 13· WAAP
~1FMCE-6(2)oHD8908
RtFMCE-4(2).LISELA AlFMce-2(2)1WAPOUT oevAoR.x·c·._ WAAPEH.X·141 lllAAP
BIT 3 LINE SB. A DIAG OflF AOOR C3 EfHIOR 13
en 4
LINE SEL A DIAG OFF ACOR C4 ERROR 1·
IO
I
1(
(
c
40F4 OC 01 3022 30~4 4 OFA OC 01 3024 30 ;;c
4100 oc 01 3026 3048
4106 3C CS 4538 410A 3C 15 44·3
410E CO 87 4426
4112 38 10 OAOC
4116 c 0 9 0 021 6
411A OC 01 3022 30~6 4120 OC 01 3024 30 ;;E
4126 oc 01 3026 3048
412C 3C C6 4538 4130 !C 16 4443
4134 co 87 4426 4138 oc 01 3022 30 .:a
413E OC 01 3024 30 ::E 4144 oc 01 3026 30<8 414A 3C C7 4538 4 l 4E: 3C 17 4443 4152 co 87 4426
4 ~56 OC 01 3022 30.0A
415C OC 01 3024 30 ~
4162 oc 01 3026 30~8 4168 3C c 8 4538
416C 3C 20 4443 4170 co 87 4426
417· 3ti 20 OAOC
4176 co 90 0216 417C OC Ot 3022 30 ;/;
41 82 OC 01 3024 30 .:E
418S Oc 01 3026 30'8 418E ~C C9 4538
4192 3C 21 4443
~196 co 87 4426
4J 9A OC 01 3022 30 CE 41AQ OC 01 3024 30 3; 41 A6 OC 01 30 26 30 '8
.fllAC 3C 4A 4!538 4 l BO '.3C 2 2 44 4 3
41 ~ co 87 44.26 4188 oc 01 3022 30 .:o 41BE OC 01 3024 30.:E 41C4 OC 01 3026 3048
41CA 3C 48 <t536 4 lCE 3C 23 444!
4102 co 87 4426
4106 38 40 OAOC 410A CO 90 0216
410E OC 01 3022 30.:2 41E4 Oc 01 3024 3040 41EA OC 01 3026 30 '18
411"0 3C 4C 4538 41F4 3C 34 4443 4lF8 CO 87 4426 41FC OC 01 3022 30~4
4202 OC 01 3024 30 oillO
4208 oc 01 3026 30d8
420E 3C 40 .\538 4212 .3C 35 .\443
DATE
07.JUL75
EC NO· 825023
25 (CT?& 82 f0.12
UUAN?e
8250~4
PROG ID P-'GE
0891-2 49
0 DATE
0 ec NO.
07JUL71S 825023
25 CCT?S a2 eo;s2
· ·
6025
MVC
~1FMCE-6C2)·HDS904
6026 6027
MVC MVC
R1FMCE-4(2)1LISELA
~1FMCE-2C2)eWAPOUT
6028
MVI DEVAOR.x·csu
6029
MVI WRAPEHeX'l5 1
6030
B
WR~P
6031 * CHECK FOR TEX 2 FEATURE.
* 6032 * 6033
TEST 3 LJNES IF PRESENT. EXIT IF NOT·
6034
TBN UOT2eX·tO·
6035
BF
LINK
6036
MVC R!FMCE-6(2)1HDB902
6037
MyC A1FMCE-4(2)eLISEL8
6038
MVC R1FMCE-2(2lsWRPOUT
6039 6040
6041
MV I
MVI B
DE VADR 0 X ·C6 · WRAPEH·l' · 16 1 mRAP
6042
MVC RlFMCE-6(2)1HDB901
6043
6044 6045 6046
60~7
6048
MllC
MVC MVI
MVt
B
Mvc
R1FMCE-4<2i.LISELB R1FMCE-2(2)1WRPOUT CEVAOR 1 X·C7 1 llAAPEHoX' 17 · wRAP
R1FMCE-6(2).HOB980
6049 6050
MVC
MVC
R1FMCE-4(2)·LlSELB
~IFMCE-2(2),WRPOUT
6051
MVI CEVAOR1X·c8·
6052
MVI llRAPEH,X 1 20'
* 6053
6054
B
·RAP
CHECK FOR TEX 3 FEATURE.
6055 * TEST 3 LINES IF PRESENT. * 6056 EXIT IF NOT
6057
1BN UDT21X 1 20 1
6058
BF
LINK
6059
6060 6061
MVC MVC MVC
F<lFMCE-6(21 eH08940 R1FMCE-4(2) 1 LISEL8 RtFMCE-2<2> ·WRPOUT
6062
Miii 0EVADR·X'C9 9
6063
6064
MVI
B
WRAPEH1k'21'
WRAP
6065
MVC R1FMCE-6(2>eHOB920
6066
MVC Rl FMCE-4 (2) 1LISELE
6067 6066
MVC R1FMCE-2C2>.wRPOUT MV I OEVADR.X ·4A·
6069 6070
MVI B
wRAPEH,x·22·
WRAP
6071 6072
MVC:
MVC
R1FMCE-6Ht) 9 HOB910 RlFMCE-4(2)eLISELB
6073 6074 6075 6076
MVC
MVI MVI
B
RlFMCE-2(2) 1 WRPOVT OEVA.DR1X·4B·
~APEH1X'23·
WRAP
6077 · CHECK FOR TEX 4 FEATUREe
6078 · TEST 3 LINES IF PAese·n.
0079 · ExIT IF NOT
6080
TBN uoT2.x· ·o·
0081
BF
LINK
6082
MVC F:l f'li4CE-6 (2) ·HDB908
6083
MVC
R1FMC~-4(Z).LISELC
6084 6085
MVC MVI
R1FMCE-2(2) 9 WRPOVT Ot!VADR o X· 4C·
6086
MVI
wRAPEH.x 134·
6087
8
llAAP
6088 6089 6090 6091
6092
MVC NVC MyC
MY I
MVI
R1FMCE-6(2) 0H08904
~1FMCE-4(2)1LISELC
RlFMCE-2(2),WRPOUT CEVADA.X·4D· WRAPEH1 X ·35·
l&IAN76 82&0:H
PART NO. PAGE
ens
LINE SEL A OIAG OFF AOOR CS ERROR 15
BIT 6 LINE SEL B DJAG OFF ADDA C6 ERAOR 16
BIT 7 Llfl.E SEL B DIAG OFF ADDA C7 ERROR 1?
BIT 0 LINE SEL B DI AG OFF AOOR C8 ERROR 20
BIT 1 LINE SEL B
OUTSIDE WRAP
ADM C9 ERROR 21
BIT·2 LINE SB. B OUTSIDE WRAP ADlR 4A ERROR 22
BIT 3 LINE SEL S OUTSI OE ·RAP AOE:R 48 ERROR 23
,li!IJT 4' UtE sEL C OUTSIDE WRAP A~CR 4C ERADR 34
BIT 5 LIHE sEL. C OUT$tDE WRAP
AOOR 40 ERROR 35
PROG ID PAGE
0891·2. 49A 1
"<·~·
i:
·
IBN MAINTENANCE DIAGNCSTIC PRGGRAM
8912
OlSPLAY ADAPT M TEST
ERR LDC OBJECT CODE
AODR STNT SOURCE ST AT EM BIT
4216 co 87 4426
421 A OC 01 3022 30 :if>
4220 oc 01 3024 3040 4226 oc 01 3026 30(8
422C 3C ·E 4538
4230 3C 36 4443
4234 co 67 4426
4 238 38 60 OA OC
423C Co 90 0216
4240 oc 01 3022 30.::&
·2·6 oc 01 3024 3040
424C DC 01 3026 30 '8
4252 3C 4F 4538
4256 3C 37 4443
425A CO 87 4426
425E DC 01 3022 30"' 426~ oc 01 3024 3040
426A 0C 01 3026 30(8
4270 3C 50 4536
4274 3C 30 4443
4278 co 87 4426
427C OC 01 3022 30cC
oc 4282
01 3024 30~0
4288 oc 01 3026 3048
428£ 3C 01 453l' 4292 3C 31 _..43
11U96 CO 87 4426
429A 38 01 0"06 429E CO 90 0216
42A.2 oc 01 3022 30.i:E 42·8 OC Ol 3024 3042
42AE O~ 01 3026. 3048
4264 3C 02 4538 4288 3C 42 4443
428C CO 87 4426
·2co oc 01 3022 30~0
42C6 OC 01 3024 30 42 &2CC OC 01 3026 30C8 ·202 ~c 03 4538 ·'21)6 3C 43 4443
412DA CO 6 7 4426 42DE OC 01 3022 30 .:Z
·ze· oc 01 3024 30 ~
42EA OC 01 3026 30~8
42FO 3C 04 4538
42F4 3C 44 4443
42F8 CO 8? 44.26
42FC 38 02 OAOB
4300 C0'90'"0el6
4304 oc 01 3022 30~4
430A OC 01 3024 30 412
4310 oc 01 3026 3048
·316 3C 05 ·538
431A 3C 45 4443
3022 431E CO 87 4426
4322 oc 01
30~6
·328 0C 01 30.?4 JO 42
432E OC 01 3026 30(8
4334 3C 06 4538
6093 6094
8 MVC
~RAP
R1FMCE-6(2),HOB902
6 09 5
6096
MVC MVC
Rl FMCE-4 (2) ·L ISEL C
RJFNCE-2(2)·WRPOUT
6097
MVI DEVADR.x·4e·
6098
MVI ll:RAPEH.,X 0 36 ·
* 6099
6100
B
tlRAP
CHECK FOR TEX 5 FEATURE~
6101 · TEST 3 Ll~ES lF PRESENT·
* 6102 E." IT IF NOT
6103
TBN UDT2.x·eo·
6104 6105
BF
LJNK
MVC R1FMCE-6(2)sH0890l
6106
MVC RlFMCE-4(2).LlSELC
6107
NVC RtFMCE-2(2 hWRPOUT
6108 6109
M\l OEYAOR.X 1 4F 9 MVl WRAPEHex·J7·
6110 6111
8
WRAP
MVC R1FMCE-6(2)oHDB9So
6112 6113
MVC
MVC
RlFMCE-4(2)eLISELC RtFMCE-2(2).WRPOUT
6114
MVI DEYADRex·so&
6115
MYI wRAPEH.x·3oc
6116 6117
B
·RAP
MVC R1F!!otCe-6(2JeHDB940
6118
MVC fl1FMCE-4(2J.LISEl..C
6119
MVC R1FMCE-2(2)·WRPOUT
6120
MVt CEVAOReX 1 Dl 1
6121
MVI WRAPEHex·31·
* 6122
6123
B
WRAP
CHECK FOR TEX 6 FEATURE.
6124 $ TEST 3 LINES IF PAESf;NTe
'*' 6125
EXIT IF NOT
6126
TBN
UDT2-le~ 1 0l·
6127 6126
BF MVC
LINK R1FMce-6(2)eHDB920
6!29
MVC RlFMCE-4( U eLll SELD
6130
MVC R1FMCE-2C2)eWRPOUT
6131
MVI OEVADR.x·o2·
6132
MVl WRAPEHeX 1 42·
6133 6134
B
WRAP
MYC RlFMCE-6(2!·HDB910
6135
MVC R1FMCE-4(2)eLISELD
6136
MVC
RlFMCE-2(2)e~RPOUT
6137 6138
MVl
~EVAORoX·03·
NVI ·RAPEH.X·43·
6139
6140
B
!MRAP
MVC A1FMCE-6(2)·HDB90S
6141
MVC RlFMCE-4 (2) eLISEt.O
6142
MVC R1FMCE-2(2Jo·RPOU1
6143
MVI
OEVADR.x·o4·
6144
MVI ·RAPEH0X·44s
61·5
* 6146
* 61·7
e
WRAP
CHECK FOR TEX 1 FEATURE.
TEST 3 LINES IF PRESENT·
6148 ·
6149 61·50
6151 6152 6153 6154 6155 6156 6157 6158 61519 6160
EXIT IF NOT
TBN w12-i..11·oi'
BF
LINK
MVC R1FMCE-6C2t.HDB904
MYC RlFMCE-4(2»·LlSELD
MVC RlFMCE-2(2) 8 WRPOUT
MVI DEYADR eX· 05 1
MYI 111RAPEi'l.X 1 45·
e
lllAAP
MVC A1FMCE-6(2J.HOB902
MVC
~1FMCE-4(2)eLISELO
MVC RlFMCE-2(21eWRPOUT
MVl CEVADRt1X·D6·
DATE
0?"UL?5 .
EC NOe 825023
· · · · · · · · · ·
PART NO. PAGE
4234'255
50
IBM MAlNTENA~CE DIAGMCSTIC PROGRAM
PART NOe PAGE
BIT 6 LINE SEL C OUTSIDE WRAP
AODR 4E ERROR 36
BIT 7 LINE SEL C ouTSI DE WRAP AOCR 4F ERROR 37
en o
LINE SEL C OUTSIDE WRAP ADDR 50 ERROR 30
SIT l LINE SEL C OUTSIDE WRAP AODR 01 ERROR 31
BIT 2 LINE SE\. D OUTSIDE WRAP ADDi-l 02 ERROR 42
en 3
UNE SEL 0 OUTSIDE WRAP ADDA D3 ERRCR 4~
BIT · LINE SS. 0 OUTSIDE .,:RAF
AODR 04 ERROR 44
ans
LINE SEL 0 OUTSIDE WRAP AODR 05
ERftOA 4'5
BIT 6 LINE SEl. D OUTSI OE WRAP ADCR 06
PROG ID PAGE
· · · ·
8912
DI !PLAY ADAPTiR 1£51
ERR LDC OBJECT CODE
AODR STMT SD'-ACE STATEMENT
4338 3C 46 4443 433C CO 87 4'426
4340 oc 01 3022 30 ~
oc 434~ 01 3024 3042
434C OC 01 3026 3048 4352 3C D7 4536
4356 3C 47 4443
435A CO 87 4426
435E 38 04 OAOB
4362 co 90 0216
4366 OC 01 3022 30&A
436C OC Ol 3024 30 414 4372 oc 01 3026 3048
4 378 3C 08 4538
437C 3C SO 4443
4380 co 87 4426 43 M oc 01 3022 30 &c
438A 0C 01 3024 30~
4390 oc 01 3026 3048
4396 3C D9 4538
439A 3C 51 4443
439E CO 87 4426
43A2 OC 01 3022 30&E
43A8 OC 01 3024 3044
43AE OC 01 3026 30"8
4364 3C SA 4538
4388 3C 52 4443
(
438C CO 87 4426
43C0 38 08 OAOB
43C4 CO 90 0216
43C8 oc 01 3022 30~0
43CE OC 0 l 3024 30 ~
4:SD4 Oc 01 302.6 30 48
(
430A 3C 58 4!538
'-
43DE 3C 53 444 3
c
43E2 CO 87 44Z6 43E6 OC 01 3022 30 ~
43EC OC 01 3024 30 '44
43F2 oc 01 3026 .30.t.8
43F8 3C SC 4538
43FC 3C 54 4443
4400 co 8"t 4426
(.
4404 oc 01 3022 30~4
440A OC 01 3024 30414
4410 cc 01 3026 3048
(
4416 3C 50 4538
441A 3C 55 4443
441E CO 87 4426 4422 co 81 0216
4426 34 08 4483.
c,
442A CO 87 5918 442£ 83
442F 2FA7
4431 3028
4433 31 48 453A
4437 3C 10 5564
6161 6162 6163 6164
6165 6166 6167 6168
MVI
a
MVC MVC
MVC MV i
MVI
B
WRAPEH.X·46 1 tfRAP A1FMCE-6(2)·HOB901
RlFMCE-4(2)eLISEl_O R1FMCE-2(2)etfRPQUT CEVADR.X ·07 · ·RAPEH 9 X·47· tllRAP
ERROR 46
BIT 7 L lfl!E SEL D OUTSIDE ·RAP ADOR 07 ERROR 4?
6169 · CHECK FOR TEX 8 FEAlURE.
6170 · TEST 3 LINES IF PRESENT·
6171 · EXIT IF NOT
6172 6173 6174 6175 6176
6177 6176 61?9
6180
6181 6182 6183 6184 6185 6186 6187 6188 6189
6190
TBN BF
MVC MVC
ti!VC MVl
MVI
B MVC
MVC MVC
MVI
MV! B MVC MVC
MVC MvI MVJ
UOT2- t.X·Q4' LINK RlFMCE-6(2).HDB9SO RlFMCE-4(2)eLJSELE A1FMCE-2(2)oWRPOUT
DEVADlh x ·oe·
WRAPEHeX 5 50 1 lllRAP A1FMCE-6(2),HDB940 Rl FMCE-li (2)eL1SELE R1FMCE-2(2···RPOUT CEVAOR.X 9 09'
llllRAPEH.X·51 1
~AP
i<lFMCE-6 (2) e HDB920 R1FMCE-4C2)eLISELE RlFMCE-2(2)oWAPOUT
OEyADR.x·sA· ltRAPEH·X· 52·
BIT 0 LINE SEL E OUTSIDE WRAP AODR 08 ERROR 50
BIT 1 LINE SEL. E OUTSIDE W~AP AOOR D9 ERROR 51
BIT 2 LINE Set. E
OUTS! DE WA.IP ADDA 5A EMOR 52
6191
B
WRAP
6192 · OiECK FOR TEX 9 FEATURE·
* 6193 * 6194
TEST .3 LI.-.IES IF PRESENT· EX iT IF lllOT
6195
TaN uo12-1.x·oe·
6196 6197
6198 6199
6200 6201
BF MVC MVC MVC
MVI MVI
LIN~ ~1FMCE-6C2)eHDS9l0
R1FNCE-4(2)·LISELE
R1FMCE-2(2)e~P0UT
DEVADR.x·ss· \1RAPEH.x·s3·
&IT 3 ·LINE SEL E OUTSIDE WRAP
ADDA SB
ERROR 53
6202 6203
6204 6205 6206 6207
El
MVC
MVC MVC MVi MVI
WRAf" RlFMCE-6(2t.HOS908
RlFMCE-4(2)oLISELE Rl FMCE-2 (2) 9 WRPOVT
DEVADReX1 SC·
WRAPEH,X 9 54'
BIT 4 LINE SEL E OUTSIDE WRAP
AOCR SC
ERROR 54
6208 6209 ea10 6211
6212 6213
B MVC MVC MVC
MVI MVI
-RAP
RlFMCE-6(2)eHOB904 RlFMCE-4(2hL.ISELE R1FMCE-2(2t,wRPOUT
DEVAORtX·5D'
WRAPEH,x·55·
BIT 5 LINE SEI.. E QUTSIOf; l!IRAP
ADDA SD ~RAOR 55
6'.H4
8
WRAP
66221165 ........8.....L.I.N.K..................$ .........$$$0·······················
-··-. .' 6217
6218 6219 6220
·*·*·*~*W·*·R*·A*~P***·S·*U·B*R·*O·*U··*T·I.·.N·*E*·'~·*·*··»·i·t····i·t···*····*···.··.-.-·.".'.**.*.·.··.·*··*-~l*l!··!·t·''·l·l·t·i·.l·l·l·:·&l·l·l·.························*··-
-,..·~-
6221
6222 lllRAP ST
6223
B
442F; 6224
DC
1iRAP£X+3 ·t1IRR LOAOCS XLI *83 1
SAVE ARA LOAD MIC~OCODE
DISABLE uPON ENTRYe
6226 4430 6225
4432 6227 6228
DC
oc
LIO MVI
AL.2lR1FMCS)
lll...2(RlFMCEJ X0343oHOeO
LPCNT.,x·10·
START FINISH
LOAD VALUE TO ese USED·
l"CREASE MIC~OPROGAAM TIMEe
0
0891-2
DATE
50
EC NO·
'O
0TJUL75
8250~3
25U:T75 8.2 f"32
PROG lD
PAGE
·
· ·
c
;
·
·
·
··
·
·
·
·
·
·
·
·
·
·
·
·
·
· · · · · ·· · · · · · · · · · · · · · · · · · · · · · · · · · · · ·
IBM MAINTENANCE DIAGNCSTIC PROGRAM 8912
PART NO. PAGE
42342S5· 51
/' IBM MAINTENA~CE OIAGNCSTIC PROGRAM
\ ..
8912
DISPLAY ADAPTER TEST
PART NO.
PAGE
4234299 51A
ERR LOC OBJECT CODE
AODR ST~T so~ce STATEMENT
ERR LOC OWEC.T CODE
ADDF< STMT SOURCE STATEMENT
4438 3A 01 5540
443F CO 87 54FE 4443 00 4444 5037 4446 OD 0 1 4445 5F f6 444C F2 81 31
444F CO 87 0214 4453 81
4454 30
4455 44DC 44>57 CO 87 021 A
4·'4·5<~;; 3841
~450 4510
USF CC 87 021A
6229
SDN
6230
B
4443 6231 WAAPEH OC
444~ 6232 RAPEXP DC
6233
CLC
6234
JE
6235
B
4453 6236
oc
4454 6237
DC
4~56 6238
DC
6239
B
4456 6240
DC
445C 6241
0C
445E 6242
OC
6.?43
s
EHBP.x·o1e
DCMICR
XL1 1 00·
XL2'5037· RAPEXP(2)·STATAC WRAPeX
PRINT
XL.1 ·81· l!..la61· AL2fCOAXl) PRINT
XL1 ·es· ILi ·sz·
"L.2(COAX21 PRINT
SET ON ERROR HALT BYPASS BIT.
BRANCH TO DO MICROPROGRAM ERROR HALT CODE
EXPECTED HALT CHECK !F ERROR OCCURRED~ JUMP IF NOT
c
6270 6271
** *R*OU*T*IN*ES**30*.3*E*e******SP*A*R*E.*····$·············································*
45.38 30
4538
6272 6273
R*T*J·O···~O·C·:·····X·L1··1 3·0··1 ····················································
453C 00
453<: 6274
DC
XLl·OO·
453D 4549
453E 6275
DC
AL2(AT3E)
453F OC 01 3596 4A CZ
4545 co 87 3584
6276 6277
* 6278
MVC El
SPARUT(2) eCEC30 sPAAEX
4549 3E 454A 00 4548 4557
4S49 6279 RTJE
DC
454A 6280
DC
454C 6281
oc
XLl ·3E· >Cl..1 1 00 1 /ll.2(RT3F)
454D OC 01 3596 4A(4
4553 co 87 3564
6282 6283
MVC
SPARUTCU eDEC3E
B
SP AA EX
4463 82
4463 6244
DC
xt.1·a2·
6264 "'
4·4·6~5 415737
41467 CO 87 021E 4468 01 446C 45!8 4116E 449F
4470 CO 87 021A
4464 6245 4466 6246
6247 4468 6246
4460 6249
446F 6250 6251
DC
IL1 ·39·
DC
AL.2(COAX3)
e
UNPAC:K
DC
XLt· 01'
DC
IL 2( DEVAOR I
OC
AL.2 (ACRMSGt
B
PRINT
66228865 ****R*O*U*T*IN*E***3*F*e**D*E*V*IC**E**PO**L*L*IN*G*..*********"'***"'··························*·
* 6287
POLL CMOS ARE ISSUED TCl ALL DEV ICES THAT MAy eE ATTATCHED.
*
6288 $
·
* 6289 * 6290
UDT DEFINES THE NUMBe~ OF ORIVERJ'RECEIVER CAROs. EACH CAAO HAS 3 DRIVER/RECEIVE~ ClRCUITS TO POLL THROUGHc THERE M~Y
· *
6291 4 OR MAY NOT BE A DEVICE ATTATCHED.
$
4474 62
4475 IC
4476 A49F
4-478 co 87 5.254 447oC co 87 0216'
*480 co 87 4460
4474 6252
DC
44?6 6253
DC
4477 6254
oc
6255
a
6256
6
6251 lllRloPEX S
6258
4481! Cf.Cl C903C9DSC 't40 449F 6259 AOR14SG DC
XLl "82" IL1528·
AL2fACRf.liSG) Pl OREG
·LINK
GD PR !N1· 1/0 REG
4557 3F 4558 80 4559 4AC5
4558 CO S7 455F 01
0211i.
6292 *
·
6293 * THE RESPONSE TQ THE POLL IS NOT CHECKED.
·
6294 *·****$**~***********$**$******.. ************····¥*·*·******"'*******~·~
4557 6295 AT.:!F
DC
XL1 "3F ·
ROUT NO o
4558 6296 455A 6297
DC
XL1 9 80 8
DC
AL2<AT40)
VES. MANUAL INTEf<VENTION(MAYSE)
6298
6
PRINT
455F 6299
DC
XL1·01·
448C C4C5E5C9C3C54 'Cl
6259
4560 2E
4560 6300
OC
ILl t46«
4494 C<llC.409C5E~E2~ (C9
6259
449C E240E7E7
6.2:59
44AO 0706E 6C509600 tC6 44Cf' 626C
CC
44t..8 C64006094006() de5
6260
4561 45,94
4563 co 87 4595
4562 6301 6302
DC B
4567 456F
D906E4E340F3Ct40 C4CSE5C9C3C54 C07
4594
6303 6303
RT3FNA
DC
AL2(RT3FNA)
RT3FGQ CL46·RCUT JF DEVICE POLLING (SKIPPED IF SS~' IS ON)Q
4480 0540C306C1E74(Cl
6260
4577 0603 C:3C905C74 C40
6303
4488 E340Cl40E3C50 fiD4
6260
457F E202C:90707C5C <!40
6303
44CO C9C5C10340D4C K7
6.26C
4587 C9C640E2E2E6Fc~O
6303
44<:6 CBE340C3CIE4ECC5
6260
458F C9E240060550
6303
4400 40E!CSC9E240C .Ct 440<: 6261 CDAlU OC
4408 C903 f409CS
6261
··oo D6o7csosc905C ;.o 4504 6262
DC
44£5 E3C8CS40C306C JE?
6262
44EO 40Cl f340E3C8C MO
6262
44F5 C307£440E6C90.:o.J
6262
44FO 40C1ES06C9C44<E3
6262
45()5 C8C9E240CSE7D 106 4510 6263 CCIAX2 oc;
CL4011 ClPEhlNG Tl1E COAX AT THE CPU WILL AVOID T·
'C
4595 3C FF 4A 76
4599 OC lE 4A75 4A 76
459F 3C FF 4A96 45A3 OC 1E 4A95 4A~
(
45A9 3C 40 4A4E
45AO OC 01 4AA4 30cA
4500 E2E409CS
6263
4511 5C5C5C40C2CS4 <E2 4537 626~ COM 3 DC
4519 E4D9C540E3064 C09
6264
*** Cl..39·
BE SUPE TO l<ECONNECT AFTEI~ TEST ····
4521 CSC30ED~5C5C ::£:3 4529 40C1C6E3C5D94<E3
6264 6264
c
4531 C5E2E3405C5C5<
6264
4538 00
4$39 0343
-_.r .·<· ,...,. ·..._,~-.....
. ~~·.,--
4!38 6265 DEVA.OR 0C
xt.l·OO·
DEVICE ADD~o
c * 453A 6266 X0343 DC
.>L2·0343·
6267 EHO UF WRAP SUBROUTINE
..,:
*****·················· c 6268 .....................................,············
4583 OC 01 44A6 30 .3:
4589 co 87 49(6
4580 3C Cl 4A4E 45Cl OC 01 4AA4 30CC 45C7 CO 87 49C6 45CB 3C C2 4A4E 45CF OC 0 l 4AA4 30 ;,.E 4505 CO 87 49C6
4509 38 08 OAOC
450D CO 90 4787
c
45E1 3C C3 4A4E 45E5 0C 01 4AA4 30~0
45EB CO 87 49C6
c
45EF 3c C4 4A41E 45F3 oC 01 4AA4 30 .:2
45F9 CO 87 49C6
c
45FO 3C CS 4A4E 4601 OC 01 4AA4 30~4
4607 Co 87 49C6
OA1E ' 07.IUL 7!: . - 2"!SKT75
EC NO. 825023
82 !0~2
lS.IAHT6 825034
PROG ID PAGE
0891-2 51
e DATE ec; NO.
0
07.IU'- ?5 825023
25CCT75
e2eo 2
6304 RT3FGO
PDLLYE·X'FF·
6305 6306
PDL.LYE-1(31>.POLLYE POLLNOeX·FF·
6307
POLLN0-1(31).POLLNQ
6308
* 6309 FOLL FIRST 3. (BASIC)
6310
MVI
OEV3F · )(· 40·
6311
MVC R3FMCS+13(2)eHOS980
6312 6313
MVC 8
R3FMCS+l5(2)sLISELA POL.L3f'
6314
MVl DEV3F.x·c1·
6315 6316
MVC B
R3FMCS+!3(2>oHOE9·0 POLt..31"
6317
MV! OEV3F. x·c2·
631 8 6319
MVC
e
R3FMCS+13{2) 9 HOB9?0 POLL3f'
* 6320 · CHECK FOR TEXl FEATURE.
6321 POL.L 3 IF. J?.RESENT,. C:3.C4eCS
6322
TBN UOT2 .. x·os·
6323 6324
BF
?RTABL
MVI DEV3F.x·c3·
6325 6326
MVC 8
R3FMCS+l3(2JeHDB910 POLL3F
6327
MVI OEV3Fex·c··
6328
6329
MYc R3FMCS+13(2teHD8908
B
POLL3F
6330
6331 6332
MVI
oeV3F·X·Cs·
NVC R3FMCS+l3C2) 9 HD8904
B
PQLL3F
15JAN76 825034
BIT Q. Lifll£ SE&. 1.. GO PQLL 40. BIT 1· GO POU. c;J. o
en 2 GO POLL ca
BlT3 GO POL.L C3 BIT-4 Gg POLL C4
ans
GO POLL C!
PROG ID PAGE
· ·
IBM .MAINTENANCE DIAGN CST IC .flROGRAM
8912
DI StLAV ADAPTfA TEST
EAR LOC OBJECT CODE
AODR STMT SOUICE STATEMENT
460B 38 10 OAOC
460F co 90 4 787
4613 :SC C6 . .4E 4617 OC 01 4AA6 30.;E 4610 OC 01 4AA4 30=-6
4623 co 87 49C6
4627 3C CT 4A4E 4628 OC 01 4AA4 30 ::S
46 31 CO 87 4CX6 4635 3C C8 4A4E
4639 OC 01 4AA4 30 .&A 463F CO 87 49<:6
4643 38 20 OAOC
4647 co 90 4787
4648 3C C9 4A4E
464F OC 01 4AA4 304C
·A 4655 co 87 49C6
4659 3C
4A4E
4650 oc 01 ·AA4 30 cE
4663 co 87 49C6
466? 3C 48 4A4E
4668 0C 01 4AA4 30~0 46?1 co 87 49C6
46?5 38 40 0AOC
4679 co 90 4787
4670 3C 4C 4A4E
4681 OC Ol 4AA4 30~
4687 oc 01 ~A.6 3040
46 80 CO 87 49C6
4691 3C 40 4ME 469S 0C 01 4AA4 30 i4 469 B CO 87 49C6 464JF 3C 4E 4A4E 46A3 OC CH 4'AA4 30~
46A9 CO 87 49C6
46AO 38 80 OAOC
4691 co 90 4787
4685 3(: 4F 4A4E 46&9 0C 01 4AA4 30.?8 468F CO 87 49C6 46C3 3C 5 0 4ME 46C7 OC 01 4AA4 30 ~ 46CO Q» 87 49C6
4601 3C 01 ·A4E
4605 OC 01 4AA4 30.C
4608 co 87 49C6
46DF 38 01 0408
·6E3 CO 90 4787
46E? 3C 02 4A4E 46E8 OC 01-~43"44 3 0 E --
46Ft OC 01 .a.A6 30 '2 46F7 CO 87 49C6 46FB 3C 03 4A4E 46FF OC 01 6AA4 30 ~ 470$ co 87 49C6 4-709 3C D· 4A4E
· Too oc cu ·AM 30:2
·713 co 87 49C6
6333 · OtECK FDA TEX 2 FEATURE.
6334 · POLL 3 IF PRESENT. C6.cr.ce
6335
TBN UDT2·X·to·
6336
BF
PRTABL
6337 ~38
MVI MVC
DEV3FeX·C6· R3FMCs+15(2)eLISi!LB
6339
MVC R3FMCS+13(21eHDS902
6340
8
POLL3F
6341 6342 6343
MVI
NVC B
DEV3FeJ1·c7·
R3FMCS+1~(2)eHD890l
POLL3F
634·
MV1 DEY3Fexrce·
6345
NYC R3FMCS+13(2)eHDS980
6346
B
POLI.SF
* 6347 CHECK FOR TEX3 FEATURE
* 6348 FOLL C9e4Ae4e IF PRESENT
6349
TB~ Ul>T2eX 1 20·
6350
BF
PRT ABL
6351 6352
6353 6354
6355 6356
MVI NYC
B
MVJ MVC
B
OEV3F · X· C9·
A3FNCS+13(2J ·HOB940
FOLL3F
DeV3F ·JI· 4A·
R3FMCS+13(2>eHOS920 POLL3F
t>357
MVI OEY3F.x··s·
63515
MVC R3FMCS+13(4!),HDS910
6359
8
POLL3F
6360 · CHECK FOR TEX4 FEATURE.
* 6361 POLL 8Cw40s·E IF PRESENTe
6362
TBN UOT2ex·40·
6363
BF
PRTABL
6364 6365
MYI DEY3Fax,·c·
NYC
A3FMCS+1~(2)eHOB908
6366
NYC R3FMC$+1!5C2)eLISELC
6367
B
POLL3F
6368
6369
MVI
MYC
OEv3F,x··o·
A3FMCS+l~(2teHOB904
6370
B
POLL3F
6371
MVI DEV3F·X·4E·
63'72
Mvc; A3FMCS+1312)·HP8902
6373
8
POU..3F
6374 · OIECK FOR Tl:XS FEATURE
6375 · POLL ~ 1!50eDl IF PRESENT
6376
TBN UDT2.x·ao·
6377
BF
PATABL
6378
NVI
OEV3FeX·4F·
6379 6380
6381
NYC R3FMCS+l3C2>·ADB901
B
POLL3F
MVI oev:sF.x·so·
6382
6383
MVC R3FMCS+l3(2t·HDS980
B
POLL3F
6384
NVJ CEV3FeX·Ct·
6385 6386
MVC R3FNCS+l3C21.HD1!940
8
PQLL3F
6387 · OIECK FOR TEX6 FEATURE·
6388 · POLL D2eD3e04 IF PREeENT.
6389 6390
TllN SF
UOT2-1.x·o1·
PRTABL
6391
MVI DEV3Fe .x·o2_~
6392
NVC R3FMCS+13(2)·H08920
6393
MVC R3FMCS+t5(21·LISELD
6394
B
POLL3F
6395
MVI DEy3FeX· C3 ·
6396
MVC R3FMCS+l3C2t ·HOB9t 0
6397
B
POLL3F
6398
MVI DEvSF. x· C··
6399
MVC A3FMCS+13(2JeMD8908
6400
B
POLUF
DATE
0'7.IUL.75
Ee · · e2so2s
. -·
PART NDe PAGE
LI NE SELECT B BIT 6 GO POLL C6 Bl T -7 GO POLL C7
BIT 0
GO POLL ca
BIT 1 GO POLL C9 BIT 2 60 PILL 4A
BIT 4 LINE SEt..ECT C
GO POU. 4c.
BIT 5
SIT 6 GO POU. 4E
BIT 7
GO POU,.. 4F SIT 0 GO POU. ~O
ant
GO POLL DI
BIT 2
LINE seLECT 0
GO POU.. oa
BIT 3 GO POLL 03 BIT 4 GOP~ 04
PROG 10
PAGE
4234255 52
IB· MAINTENANCE DIAGNCSTIC PROGRAM
8912
DISPLAY ADAPTIR TE!:.T
EAR LOC OBJECT CODE
ADDA STMT SOURCE STATEMENT
* 6401 CHECK FOR TEXT FEATURE·
·717 38 02 OAOB
4718 co 90 4787
471F 3C DS 4A·E 4723 oc 01 4AA4 30;;4
4729 co 87 49C6
4720 3C 06 4A4E
4731 oc 01 ·AA4 30~6
4737 co 87 49C6
4738 3C 07 4A4E
473F OC 01 4AA4 30J8
4745 co 87 49C6
(
4749 38 04 OAOB
4740 co 90 4787
4751 3C 08 4A4E
475!5 Oc 01 4AA4 30'-'
4758 OC Ot 4AA6 3044
4761 co 87 49C6
( . 4765 3C 09 4A4E
4769 0C 01 4AA4 30.iC
47.6F CO 87 49C6
6402 · FOLL 05eD6wD7 IF PAESENTe
6403
TBN ucr2-1.x·o2·
6404
BF PATABL
6405
MYI DEv3F.x·os·
6406
NYC R3FMCS+13(2)aHDB90·
6407
8
POL.LJF_
6408
MYJ DEV3FwX·C6·
6409
MVC R3FMCS+13C2)eHOB902
6410
B
POLL3F
6411
MVI DEy3F.x·c7·
6412
MVC R3FMCS+13(2)aH08901
6413
* 6414 * 641 5
B
POLL3F
CHECK FOR TEXS FEATUREe
POLL D8· 09 ·SA IF PRESENT·
6416
TBN UDT2-t.x·o··
6417
BF
PRTABL
6418
MVI OEv3F.x·oe·
6419
MVC R3FMCs+13(2)eHDf!980
6420
MVC R3FMCS+15(21eLISELE
6421
B
PCLL3F
6422
MVI
DEv3F.x·o~·
6423
MVC R3FMCS+l3(2)·HCS940
6424
B
POLL3F
I
IG II ,,...
\._,.
c
i ('
I lt e...,
4773 3C SA 4A4E 4777 oC 01 4AA4 30~
4770 co 87 ·9C6
4781 38 08 OAOB 4785 co 90 4787 4789 3C 5Ei 4A,.E 4'780 oc 01 4AA4 30~
4793 co 87 49C6 4797 3C SC ·A4E 4798 uc 01 4AA· 30.:2
47Al CO 87 49C6 47A5 3C 50 4A4E 47A9 0C 01 4AA4 30;"4 4TAF CO 87 49q> __
4-783 co 87 4787
6425 6426 6427 6428 · 6·29 · 6430 6431 6432 6433 6434 6435 6436 6437
6438
6439 6440
6441
MVI
DEV3F.x~5A·
NYC R3FMCS-t;1.3 C2) eHDe920
8
PDLL3F
CHECK FOR TEX9 FEATUREe
POLL 58·5C·So IF PRESENT· TBN UOT2-1.x·os·
BF
PATABL
MVI DEV3F·Jl·se·
MVC R3FMCS+13(2).HD8910
B
P0l.L3F
MVI DEV3Fex·sc·
NVc R3FMCS+13C2)wHDB908
8
POLL3F
Mvl DEV3F,x·so·
MVC R3FMCS+l312)·H01!1904
8
PCILL3F
8
PRTABL
Ile,.
I{) I
l ()
le
I c
II c·:-·
lj V " ·
I I
, C)
·?87 CO 87 021 A 4188 02
·Tee ·2
4780 48CC
478F OC 01 47C8 4A U 4TC5 30 FF 0000
47C9 co 81 4802
4Tc0 OC 01 4706 4Af2 4 703 !D FF 0000
4707 CO 81 480A 4708 OC 01 ·7E6 47t6 47El OC 00 4A4E 00 C:O 47E7 CO 87 021E 47EB 01 47EC ~4£ 47EE 4800
47FO CO 87 021A
47F4 01
47FS l1
·7F6 4$00
4 7F8 OE 01 4706 56 t9 47FE CO 87 4703
6442
6443 PA'fABL 8
PRINT
·788 64-44
DC
XL1·02·
47ec 64·5
DC
IL1·66·
·TBE 6446
DC
AL.2CA3FM0l J
6447
MVC CKFFY·3(21ePOLVA
6448 CKFFy 6449
CLI BE
·-·eX·FF· EMPTYE
6450
MVC CKFFY1+3(21·POLYA
6451 clCFFYl CL.I ..-.eX·PF·
6452 6453
BE
ENDYES
MYC SETDA1+512>·CKFFY1+3
64S4
MyC CEV3FU) · ._·
6455
8
UNPACK
4TeB 6456 47ED 6457 ·1EF 6458
0-C
lCL.1 1 01'
DC
Al.2CDE~FI
DC
AL2(R3FM02)
6459
B
PRINT' .
47F4 646() 47F5 6461
DC
XLl·ot·
DC
ILl 'l7 ·
47F7 6462
oc 4L2(R3FM02 I
64-63
ALC Q<FFYJ +3(~ hXOOO'
6464
B
(:KFFYl
Ir
I .._)
4802 CO 87 021 A 4806 03
6465
6466 EMPTYE 4806 6467
oB c
. 'o 0~91·21
152
4807 04
. OATE
EC NO.
tO
4807 6468
25Cc;T75 821032
IX
PRINT
~La·o3·
u.a ·04·
I
:t·.
I -
11-e·
PART NOe PAGE
42342155
52A
BIT 5 GO POLL 05 BIT 6 GO POLL 06
BIT 7
GO POU. 07
BIT 0 LINE SELECT E GO POU.. 08 BIT 1
GO POU. 09
SIT 2 GO POLL SA
BIT 3 GO POLL t5$
BIT 4
GO POLL SC BIT 5 GO POLL·so·
8R IF NO EMl'fiY
MINT 8 NONE'
· · · · · · · · · · · · · · · --·---.-.~~~ · · · · · · · · . -.· · · · · · · ·
IBM MAINTENANCE OIAGNCSTIC PA.OGRAM
PART NO. PAGE
4234255 53
IBM MAINTENANr.E DIAGNCSTIC PROGRAM
PART NOe PAGE
8912
DISPLAY ADAPTER TEST
ERR LOC OBJECT CODE
AODR S;TMT SO(.RCE STATEMENT
8912 (
DI SPLAY ADAPT EA TEST
ERR LOC OBJECT CODE
AODR STMT SOURCE STATEMENT
4808 49BB
480A CO 87 021 A 480E 92 480F OC 01 4818 4At0 4815 30 FF 0000
4819 co e1 ·ee7
4810 CO 87 021A
4821 02 4822 58 4823 4935
4825 OC 01 482E 4Af0 4828 30 FF 0000 482F CO 81 485A 4833 OC 01 483E 48cE 4839 Or. 00 4A4E OO<C 483F CO 87 021 E 4843 01 4844 4A4E 4846 4800 4848 C0 87 021 A 484C 01 4840 11 4184E 4800 4850 OE 01 482E 56 c;9
4856 co 87 4828
48$A CO 87 0.21 A
48££ 92
4809 6469
DC
AL.2(R3FM06)
6470
6471 ENOVES B
PRINT
48oE 6472
cc
XL1 ·92·
6473
MVC CKFFN+3C2),POLNA
6474 CKFFN
CLI ·-·.x·FF ·
6475
SE
£ND3F
6476
B
PRINT
4s21 6477
4e22 6478
~c
XL1·02·
cc 1L1 ·ea·
~824 6479
DC
AL2(R3F'403 t
6480
MVC CKFFNl ·3 U ),POLNA
6481 CKFFNl CLI ·-··X·FF·
6482
BE
Ef'IONO
6483
MVC
6484 SE1DA2 MVC
6485
e
SETOA2+SC2)e0CFFN1+3
DEV3FU >·*-* UNPACK
4843 6486 4845 6487
DC
Xt..l 1 01 ·
oc
AL2<DEV3F)
4647 6488
DC
AL2CR3FM02J
6489
B
PAINT
484C 6490
DC
4840 6491
DC
ILJ·17·
484F 6492 6493
DC ALC
AL.2(A3FM02)
OCFFN143( 2 >. XOOOI
6494
B
CKFFNl
6495
6496 ENONO.
e
PRINT
485E 6497
DC
Xl..1 '92·
INC IADDR
4933 060303
6518
4936 C9C640C4CSE5C ~3 49SO 6519
493E C540C9E240C30 .WS
6!519
DC
CL40·IF DEVICE IS CCNNECTEC AND HAS POWER ON.·
4946 05C5C3E3C:5C44 <Cl
6519
494E 05C440CSC1E24<07
65J9
4956 D6E6CSD940060f6B
6519
495E E2E4E207C5C3E~40 4985 6520
4966 C3C6C1 E740C10 fe4
6520
DC
CL4o·susPECT COAX AND DEVICE WHILE CONTINUING·
496( 40C4CSESC9C3C f40
6520
4976 E6C8C903C540C ::06
6520
497E 05E3C90SE4C90fC7
6520
4986 40C90540ClE3E~C1 499A 6521 R3Fl404
DC
498E E3C3C6C4C505E~40
6521
CL2l· IN ATTATCHNENT MAPS.a
4996 04Cl07~24B
6521
4998 C9C6400506E34 <C3 4987 6522 R3Fio!OS DC
49A3 06D50SC5C3E3C !C4
6522
CL29·JF NOT CONNECTED. RESET HALT.·
49A8 684009C5E2C5E.!40
6522
4983 C8C103E34B
6522
4988 0506D5C5
4986 6523 R~f'M06 DC
CL4·NONE·
49BC 050640C1D5E2E CCS 49CS 6524 POU.NR DC
CLlO·fllO ANSWER ·
(
" . .,'
49C4 D940
c
6524
6525 ........................................................
* * 6526 POLLING SUB~OUTINE FOR ROUTINE 3f·
* * ~327
THE MICROCODE HAS ALRGADY BEEN TAILORED
* * 6528
TO SELECT ONE DRIVER.IAECEJVER CIRCUITe
* 6529 * LOAD MICROCODE
* 6530
00 14 l CF.OCODE
·
* 6531
IF POLL SUCCESSFUL. ADO OEV ADDA TO 9 POl..L-YES· LIST·*
485F 'O 87 0.21 A
6498
e
PRINT
6532 * IF POLL FAILED THEN ADO DEV ADO~ TO 1 POU.-NO· LIST· ·
4863 Ol 4864 65
4863 6499
4864 6500
DC XLI ·01 ·
DC
JL1 1 10H
'C
49c6 34 oe 4A4.:>
6533 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..
6534 POLL3F ST
P03FEX<f3o ARR
4865 499'. 4867 CO 87 OUA 4868 02
4866 6501 6502
4868 6503
DC
.AL.2CR3FM04 J
B
PRINT
cc
Xi.l ·02;
49CA 38 02 0200
49CE CO 90 4908
4902 cc 87 0222
6535
6536
6537
TBN S8YTE!!S.SS1il2E
ef
TE$TEQ
B
HALT
486C to
4860 4987 486F 3C SE 65F2
486C 6504 486E 6505
6506
DC DC
MVI
IL1·29·
A&..2(R3FM05)
ERRHLTox·sea
4906 OlFE
4908 co 87 5918
49DC 83
4907 6538
DC
)Q..2·0tFE·
6539 TESTEQ B
LOADCS
49DC 6540
DC
XLJ·B3·
MFG TEST HI. T
4873 3C Sf" 65FJ
4877 oc 09 6601 49(5
6507 6508
MVI MVC
4870 CO 87 63FE
4881 co 87 0222
4885 OISE
4887 co 87 0216
4888 E3C8C540C6D6D .1>3
6509 6510 4886 6511 6512 48A2 6513
ENQ.3F
e
B
oc
B DC
4893 06E6C905C7400SCS
6513
·899 E20706D5C4C5C 440
6SU
48A3 E30040Cl40070 C03 4E'CC 6514 R3FMOl
oc
4848 03484 04DE3C8C E40
6514
468 3 09C5E.2070605E .C l5
6514
4888 40E6ClE240DSOcE3 48C 3 ·oc3cecec 3D2C £C·
6514 6514
ERRRrN,X 1 3F· ERRLOGfJOt·PQ.LNA El.PD
HALT XL2 1 0l!E 1 LJNK CL241 THE FOLLOWING AESPCNOeD ·
CL42·TC A POLLe CTHE RESPONSt WAS NOT CHECKEDeJ 9
4900 4A.97 490F 4AC'0. 49~i Fl 58 80
49E4 F3 !IS eo
49E7 OD FF 49C6 49'6 49EC F3 58 80 '49FO 30 4C 4A56 49F4 00 00 4A56 4A ~4
49FA CO 81 4A26
49FE OC OI 4A07 il-AfO
4A04 30 FF 0000
4A08 CO 81 4A16
4A0c ~E OJ 4A07 56t9
4A12 ca 87 4AO·
490E 6541 49EO 6S42
6543
6544
6545 6546
6547
6548 6549 6550 6551
6552
6553 6554
AOONO TAECKl
OC DC s10 SIO CLC s10
SNS
CLC BE
MVC CLI SE
Al..C B
AL2(R3FMCSI A,L2 <,R3fl~CEJ x·eo·.s1c1 X·EO·.SIOI
FOLL:iF(256),POU.3F
x·so·.s101
ACTR3F.HOa4 ~CTR3F(l)oEXPR3F
ADD YES TA8CKl·3(2)ePOLNA ·-··X'FF· TA8ENT
TABC1q+3'2J.xooo1
TA8CK1
DISABL6'RST
ENABLE
WAIT DISA8LE;' RST HDB08o09 09=FF7 BA IF' SO
NEXT ENTRY? BA IF SO INC ADOR
48C8 4850
6514
4A16 Ot oi 4Al F 4AC1
655$ TASENi' MVC TA8DO+::!C2ht'A8CK1+3
48CO C4CSESC9C3C54CC1 48DD 6515 R3FM02 DC
4605 C4C409CSE2E24 CE7
6515
4A 1C OC 00 0000 4A E
4A22 CO 87 4A4A -
6556 TAeoo 655?
14VC ·-·Cl>·DEY3F
e
Po3Fex
PUT OEV AOR IN 'NO· TAe&..E
4800 E7
6515
480E E3C8C540C606DW3 48F6 6516
DC
4A26 oc 01 4A2F
{.SS$
6554!.I ADDYES MVC
48E6 D6E6C905C 740C «:l
6516
48EE ESC540Cf40"C~C(i(t . ·. -·516
48F6 E7
6516
4eF 7 4070D7D609E37 t40 4922 6517
oc;
48FF c1esc1C9D3C1C .03
6511'
4907 C5404' DC1E.?o\OD1C5
651?
490F 0940E4C4E35>4 <C2
491? E4E340C7C9E5Ct40 491F 05064040
6$17 6517
6517
4923 4009CSE207060 £2 493!5 6518 R3PM03
DC
492'8 CS40 E3D640Cl 4 CD7
6!5~8
CL44· · ·PORT·. AVAILABLE (AS PER uon BUT GI VI! NO·
CL19· fiESPONSE TO A POLL·
C:
c
i
442C ~o FF 0000
44.30 co es 4A3!
4A34 OE'. 01 4A2F
4A3A co 87 4A2C
oc 4A3E
01 <11.A47 4A ;r
oc 4A44
00 0000 4A 41E
co 4A4A
87 4A4A
4·A4E 00
4A4F 4A57
4A$1 ·A7?
4AS3 OOFF
4A55 0000
6S60 TABCK.2
6561 656~
6563
65(~4 TABNx;T
6565 TAOOOA 6566 Po3FEx 4A~ 6567 DEV3F 41150 6568 POl..NA 4A52 6$69 POLY A 4A54 6570 EXPRJF 4A56 6571 ACTR3F
CL,.I
ee
A~C
8 MyC
MVC
e DC
D<C DC DC DC
*-··X·FF II TA8NXT·
TABCK2+3(2) 0 X0001 TAB0<2
*..TABCDA<t3(2).TABCK2+3 ·CU ·OEV3F
*Xl..1 ·oo ·
AL.~( POLLve...:iu
AL21PDLLNtJ;.3l) )(&..2 1 00FF 1
~2·0000·
NEXT ENTRY?
BR IF so· ...
INC AOOR
POT DEV Ml'CR IN ·vez· TALE
RETURN
ACOR OF DEVICE UNO~ TEST AODfi! OF 1 ST POS OF NO TABLE
AOIJR OF tST POS OF YES TABLE
EXP. R:ESULTS AC:T RE SUL TS
DA TE
0 7.lut.75
25<CT?5
15...AN76
. ,()
EC NO. 825023
825032 .
825034
PAOG 10 PAGE
0891-2'.
OAT!
01.JUt.. 75
53
EC ND. aasou
I ti#·
l5JAN'F6 825034
PROG 10 PAGE
· ·
·
IBM MAINTENANCE DIAGNCSTIC PROGRAM
PART NOe PAGE
4234255
IBM MAINTENANCE DIAGNCSTIC PROGRAM
54 \.,_.
PART NOe
PAGE
8912
OJ SPLAY ADAPTER 1EST
ERA LDC OB.IECT CODE
ADOR STMT 50\RCE STATEMENT
,,... 8912
01 SPLAY ADAPT~ TEST
l. ERR LOC: OBJECT CODE
ADDR STMT SO\RCE STATEMENT
·
4A57 40404,0404040. '40 4A76 6572 POU.YE DC
4A5F 4040404040404(40
6572
4A67 4040404040404040
6572
32CL1 · ·
4816 4DM
4B18 co 87 021A
4BSC 86
4817 6627 6628
481C 6629
DC
AL2CNTFMU
e
PRINT
DC
)(Ll I 861
4A6F 404040404040~<40
6572
4A77 4040404040404'40 4A96 6573 POU.NO DC
32CL1· ·
''·
4810 21 481F 40C5
4810 6630 4BlF 6631
DC
IL1·33·
oc
~L2(NTFM2)
4A 7F 4040404040404 {40
6573
6632
4A87 4040404040404(40 4A8F 4040404040404 C40
6573
6573 6574 6575
.................................
* * START OF MICROPROGRAM LISTING
4820 F3 58 84 4823 31 4A 0056 4827 F3 58 80 482A 30 4A 5FE6
6633 IOCHKN 510
6634
LI 0
6635
SIO
6636
SNS
x· a4· ,5101 XAA55eHDe2 X' 80 8 eSIOl STATACetcCB2
4A97 7900 4A99 OA89 4A9B 0889 4A90 OC89 4A9F CD89
4A97
6576 6577
·R·3F·M··C·5····EQ·U····*··················
4A98 6578
DC
XL2 1 79CO"
000 I c HOB9=· 001
4A9A 6579
DC
XL.2 1 0A89 1
001 LE LINE SEL Ao DESELECT ALL
4A9C 6580
4A9E 6581
DC
X&..2'0889 1 002 LE LINE sa... e. DESELECT ALL
oc
n.2·oce9·
003 LE LINE SEL c. DESELECT ALL
4AAO 6582
OC
XL2 1 0De9·
004 LE LINE SF-L Os DESELECT ALL
4B2E CO 87 021A 4832 86 4833 lA 4834 400F 4B36 CO 87 0222 483A 14FF
6637
6638 4832 6639 "633 6640 4835 6641
6642 4B3B 6643
B
PRINT
DC
XL1·86t
DC
ILl8261
oc
AL2CNTFM3)
e
HALT
DC
XL2· t4Ffa
4AA1 OE89 4A.t.3 0000 4AA5 0000 4AA7 7182 4AA9 1508 4AA8 1008 4AAO 1204
4AA2 6583
4AA4 6564 ~AA6 6585 4AA8 6586 4AAA 6587 4AAC 6S88 4AAE 6589
oc
XL2'0Ee9· 005 LE LINE SEL Ee DESEl.ECT ALL
oc
J<L ·P oo co· 006 IC i10B9=XXe LOADED BY USER·
DC
XL2 1 00 00 1 007 LE LINE SEL XeFROM HD89· USER LOADED.
DC
XL2 · 71 e2·
008 1c.1~x·e2· SET HOB i FOR POLL WORD
DC
XL.2 8 1508·
009 ssF. 5
RESET RECEIVE CHECK
oc
xL.2 1 1008'
OOA SSF,O
RESET I/OREG 2·3e13
DC
Xl...2 1 1204'
ooe S5N·2
SET IFO REG BIT 2
483C 30 00 5FE6
4840 39 OF 5FE6 4844 F2 90 OE
4847 oc 09 6601 4Et:O
4840 3C 96 402A 4851 co 87 4D02
6644 6645 6646 6647 6648 6649 6650
SNS
TBF
.JF
MVC
MVI 8
STATAC.X·OO·
STATAc.,x·oF·
IOCHKO ERRUJGU 0) eNTFE1
NTFHLT.xo9s·
NT FLOG
4AAF 1004 4AIU 0781 4AB3 400E 4AB5 0781
4A87 4010
4Ab9 4113 UBB 501!
4ABO 79FF
4A80 6590 4AB2 6591 4AB4 6592 4A86 6593
4A88 6594 4ABA 6595 4ABC 6596 4ABE 6597
DC
XL2 1 1004 1 ooc SSNoO
SET TRANSMI1' zeRO·s
DC OC DC
iu_2001s1· XLZ 0 400E· XL2·0781·
000 OOE OOF
. LE TC 11'0 REG TO x~IT ZERo·s
TSN·O
~AIT FOR XMJT WO ROV TO FALL
LE TO 1/0 REG TO XMIT POLL WORD
\._
4855 31 4A 0062
4859 CO 87 021.A 4850 86
OC
XL2 1 4010·
010 TSt. .. O
WAIT FOR XMIT ·D ROY TO FALL
485E 2S
DC
XU? ·4l 13s 011 TSNw l
oc
xt..2·so1i- 012 sos.a
WAIT FOR RECEIVE WORD ROY
1·0 ,..DOR 01 l. · DEEP WAiTINGo
(
48SF 4E04
4661 co 87 0222
oc
Xl.2 ·79Ffi ·
013 IC
HDB9; 1 FF·=SOCCESS
4865 14FF
6651 6652 -IOCHKO 6653 4850 6654 4B5E 6655 4860 6656 6657 4866 6658
LIO 0 DC OC
oc
ZEROeHOB2- -
PAINT
XL1°86° IL1' 37· "L.2 NTFM4) HALT >Q..2· 14FF·
4A8F 5014
4AC1 F3C4 4AC3 F3C5
4ACO 6598
6599 4AC2 6600 4AC4 6601
6602 6602
6602
R3FMCE · OEC30
OEC3E
oc
DC
DC
xLZ ·so 14 · 014 aos.o
END· HANG
4S67 CO 87 021A
4668 86
c
4B6C 18 4860 4ElF
486F co 87 0222
4873 14FF
6659 6660 4868 6661 4S6C 6662
·B6E 6663 6664
4874 6665
a
PRIN1
oc
XL1 9 86'"
oc
ILi ·27·
DC
AL2( N'TFN!t
B
HALT
DC
XL2·14FF 1
66660043 *···a<·Q·V·T·I·N·E·4·0······S·K·lP·P·E··D··I·F~·55·1·11·2**I*S'"O'N*e*················~······$·········*
* (· 6605 ·
·
6606 · THIS ROUTINE WILL OC VARIOUS tESTS THAT AEGUIRE fllANUAL. INTERVENTION
4875 30 00 SFE6
4879 39 OF 5FEe
4870 F2 90 OE
6666 6667 6668 6669
SNS T6F .JF
STATAC.x·oo· STATl'.CeX0 0F· TPCl
6607 $ TO TEST THINGS SUCH AS THE l.IO CHECK LIGHT .. THE ll'O ATTENTION LIGHT·*
4BSO 0C 09 6601 4ECO
6670
MVC
ERRLOGl10)·NTFE1
6608 · INVALID OPS THAT CAUSE PROC CHECICSo ETCo
*
4AC5 40
*····························$···· 6609 ...
*i
RT~ 6610 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
4AC5 6611
DC
)Cg_t · 409
ROUTINE NO.,
1
4AC6 00
4~C6 6612
OC
Xl..1·00·
4ACT 4EF2 4AC9 30 00 65F3 4ACO CO 81 40,28
4ADl CO 87 021A
4AC8 6613
6614 6615
6616
OC
1.L2 ( RT41 t
CL I
IPL.FL.Geo
BE
R2AEXT
B
PRINT
**"' *** REMOVE FOR RELEASE ***
REMOVe FOR RELEASE **'°'
c
PRINT ROUTINE ~EAOER
4A05 01
4A05 6617
DC
Xl..t ·01 ·
4AD6 28
4A06 6618
DC
IL1·43·
4A07 4807
4AD8 6619
OC
M..2(R4CHDtU
4A09 CO 87 4808
6620
B
·AOD 090f>C:4E340F4F (40 ·807 6~21 R40tOR DC
A4CGO
CL43'AOUT 40 MANUAL INTCRVo ($KIPPED lF SSW2 ON)·
4686 3C 9A 402A
4BBA CO 87 4002
4B8E OC 02 4E88 4E &:7
4S94 CO 87 021 A
4898 81
4899 39
4B9A 4E89
co 4B~C
87 021A
46"-0 86
48A1 3l
4BA2 4E50
4BA4 CO 87 0222
4BA8 l4FF
6671
6672
6673
6674 TPC1
6675
4898 6676
4899 6677
S.69B 6676
6679
48AO 6660
48Al 6681
4BA3 6682
6683
48A9 6684
...
6685
MVI B
MVC
e
DC DC DC
B
DC DC DC
B DC
NTFHL T,.X· 9A· NTFLOG
NTFM8-l(3) ·NTFSIO PRINT XL1·a1· 'IL1 11 S7·
M..2(NTFU8) PRINT >G.. l ·86· IL1 ·49· AL2(N'fftM?I HAl,,.T XLa·14Ffta
4-ES C4Ct C5E4Cl034 CC9 4AEO 05E3,CS09E54M (41) 4AF5 E202C907D7C5C 440 4 AFO C9C640 E2E2E6F .S40 4805 060550 4808 38 20 0208 480C CO 1 0 4D3T
4810 CO 87 021A
4814 81 4815 67
- --66662211
6621 6621 6621 6622 R4CGO 6623
6624 481" 6625 4815 6626
18N 5SYTE0eX·208
BT
LNKTER
B PRINT
DC
JCL.1·81 8
DC
1&..1·103·
DATE
07.JUL.75
EC NO. 825023
25U:T?5
82f0~2
IS SSW 02 Qt;? TERMINATE JF SO
PRINT IHSfRUCT 10"5
PAOG 10
PAGE
48AA 3C 41 4EF1 ·SAE F3 SC eo 4681 CO 87 4CF8
c\BBS 3C 40 0A03
4B89 38 40 4EF1
I
4880 F2 90 28
I C 48CO OC 02 4E88
I
48C6 CO 87 021A
' e21 0891...
.o . 54
DATE
EC NO·
07.IUL.15 825023
25CCT1'5 828>32
6686
MVI
6687
SIO
6688
El
6689
6690 NTFAST MVI
6691
TBN
6692
.IF
6693
MVC
6694
B
AEllfTRY·X '41 1
X' eoe eFE1'ADA
NOPC
PRTNeJC·40· AENTRYeX·40· RENT3
NTFM8-1(3)eNTFSNS
PRUIT
15.JAN76 825034
· · · · · · · · · · · ··· ·'·· · · · · · · · ·
.DISABL.t= g TURN ON DIAG ·2 eLOAD BAO PARITY IN HOB·s
.DISABLE & RESET DIAG ·2
eCAUSE ATTACHMENT CHECK IS 1/0 CHECK ON?
..RF' AD THE CONSOLE swi Tt'.Mt':S oTEST FOR ANSWER ·NO*
.. .JUMP IF ANS~ER "4AS t YES· .,ERRORe MOVE IN LOG MSG ..
cooe ~INSERT H~LT -98-
oGO LOG ERROR
t-1oe·s .REsToRE · <itco P-11r.i!iv tii
DEPRESS CHECK RESET
IS t/0 CHECK OFF?
..READ CONSOLE SWITCHES ·TEST FOR ANSllER ·NO· 0 .JUMP JF ANSWER ve's .ERROR1 SET LOG MESSAGE se uP HALT ~ODE -9AoG0 LOG THE ERROR .CORRECT MESSAGE PRJNT INSTR·
·SET \P FOR NEXT RE~TRY ,.JNVALID SIC SHOULD PC .BRANCH IF ~O PC CCCUREO
eFORCE ROUTINE BACK TO 40 eTE$T FOR IST ReNTRY ·.JUMP IF NOT
.CORRECT MESSAG& PRINT INSTR·
PROG 10
PAGE
0891·2,
&·A
· · · ··· ·
·
·
·
············· ··················
IBM NAINTENANCE OIAGNCSTIC PROGRAM
8912
DI SPLAY ADAPTER TEST
ERR LDC OBJECT CODE
4BCA 81
4BC6 39
4BCC 4E89 4BCE CO 87 021A 4802 86 4803 31
4804 4E50 4 806 co 87 0222 4BDA 14FF
4BDC 3C 21 4EF1
4BEO 30 SC 5FE6
4BE4 CO 87 4CF8
4BE8 36 20 4EFl 4BEC F2 90 28 4BEF OC 02 4ES8 4E to 4BF5 CO 87 021 A 4BF9 81 4BFA 39 4BF8 4E99 48FD CO 87 -021 A 4C01 86 ·co2 31
4C03 4ESO 4C05 CO 87 0222 4C09 14FF
4COB 3C 91 4EFI 4COF 31 5F 5FE6
4C13 CO 87 4CF8
4Cl 7 3D 90 4EF1
4C1B F2 01 213 4C1E OC 02 4E88 4Ef0 4C24 CO 87 021A 4C28 81 4C29 39
4C2A 4Ee9 4C2C CO 87 021A
4C30 86 .C31 31 4C32 4E50 4C34 CO 87 022Z 4C38 l4FF
;C3A 3C 11 4EF1
4C3E Cl 8F 4C42 4C42 CO 87 4CFS 4C46 3D 10 4EF 1 4C4A CO 01 4C73
·c·e sc Fl 4ecs
4C52 CO 87 021A
4C56 81
4C57 3C
4C58 4EC6
4C5A CO 8T 021 A 4C5E 86 ACSF 31
4<:60 4£50
4C62 CO 87 0222 4C66 14FF
4C68 3C 81 4EF1
4C6C F3 8A 00
4C6F CO 87 4CEA
ADDR STNT SO~CE STATEMENT
48CA 6695 4BCB 6696
oc xu·a1·
or.
IL!·S7·
4BCD 6697
6698 4BD2 6699
DC
.tt..201TFN8)
B
PfUNT
DC
XLl ·&6·
4803 6700
DC
IL1 ·49·
4805 6'1'01
DC
AL2(NTFM7>
6702
B
HALT
4BOB 6?03 6704
DC
XL2·14FF·
6705 6706 6707
MVI SNS 8
RENTRY., xe21 · STATACsFETi\OR NOPC
6708
6700 RENT3 TBN RENTRYeX ·2c·
6710
.JF
~.ENT4A
6711 6712 4BF9 6713 4BFA 6714 4BFC 6715 6716 4<:01 6717 4C02 6716
4C04 6719
6720 4COA 6721
6722
MVC B DC OC DC
e
DC DC
OC
B
DC
~TFM8-1(3ieNTFL!O
PAINT XLI ·e1 · ILl ·Sl'· AL2(NTFMea PRINT XLl · 86" IL 1 1 49· i&L2CNYFM7) MALT Xl.2 8 l4FF·
6723
6724
MVI LIO
RENTRYaX·91t
STATACeBUSV
6725
6726
8
NOPC
6727
Cl.I
~ENTRYeX'90"
6728
.INE RENT4
6?29 6730
Mvc
B
N1FH8-I( .3) 9 NTFTIO PRINT
"'C28 6731
oc
Xl.1 1 81·
4C29 6732
oc
ILl95?·
4C2B 67:13
DC
AL2CNTFM8)
6734
e
PRINT
4C:30 6735
DC
Xi.I 1 861
4<::31 6736
DC
ILi ·49·
4C33 6737 6736
4C39 6739
oc
AL21 NTFM'U
e
HALT
oc
XL2 1 t4'FF·
6740
MY!
fO~TRYe >: 1 11 41
6741
6742
Tao SAOT10.x·sF·
6743 BAOf.10 B
NOPC
6744 RENT4 CLJ RENTRYeX·10·
6745
SNE REHTS
6746
MVJ NTFN9-l·X·FJ·
6747
B
PRINT
4C56 674S 4C57 ~?49
oc
)IL.1·81·
oc
ILl '6P
4C59 6750 6751
0¢
Al..2(N"f1=MU
s
PAINT
4C:5E 6752
cc
XLS 8 86·
.-.C-5F 6?53
-De
·Q;:l ··9·- - ~'
4C6l 6?54 6755
cc
AL2CNTFN7J
e
HALT
....... e. 4C67 6756
DC
.>'J...2 8 l ltFF ·
6757 "' ISSUE BSCA SIO WITH AfTACH DISA6'.ED
6758
AENTRY.x· I
6759
S1'.0 x· oo·. x·&A·
~760.
676l
6?62
e
DATE
0?.JUL.75
EC NO. 82,5023
1S.IAN76
a2soa4
PART ~Oe PAGE
4234255
!914 MAINTENANCE DtAGN CST JC PROGRAM
55 l.
69!2
DI SPLAY AD<fi.PTER TEST
PART NO. PAGE
ERA LOC OB.JECT CODE
ADOR STMT SO\RCE STATEMENT
6763
4C73 3D 80 4EF1 4C77 CO 01 4CAE 4C7B 3C F2 4ECS 4C7F CO 67 021A
6764 RENT5
6765
6766
6767
CL!
BNE
MVl 8
RENTRYoX·aoc RENT6 NTFM9-1·X·F2· PRINT
RENTRY AFTER !Nv.sEo 1 t BR IF NOT SET MsG FOR INV SEQ· 2.
c
4Cl33 81 4C64 30
4C83 6768 4C84 6769
DC
XL!·Bl·
DC
IL1"61·
4C85 4EC6
4C86 6770
DC
AL2(MTFMU
·SET UP FOR 2ND RENTRY
· IIWAL.ID SENSE SHJUl,..0 PC
.BRANCH.IF ~Q PC OCCURRED
4C87 CO 87 021A
(
"' .
4C8B 86
4CSC 31
4C80 4E50
4C8F CO 87 022.?
6771 4CBB 6772 4C8C 6773 4C8E 6774
6775
B
PRINT
OC·
Xl.1 1 86 1
DC
IL1 1 49 1
OC
AL2CNTFM7J
B
HALT
eTEST FQA 2NO ~ENTRY oIF NOT TERMINATE PROGe
eCO.,:/RECT MESSAGE PAINT I NSTA ..
4(;93 14FF
4C95 CO 87 5918 4C99 01 4C9A F3 58 EO
4C9D F3 88 CO 4CAO F3 8A C4 4CA3 3C 83 4EF1
4CA7 F3 BA Cl;. 4C AA CO 8 7 4CEA
4C94 6776
OC
XL2' 14FF·
* 6777 MAKE BSCA/3271 EMUL BUSY ANO THEN ISSUE SIC.
6778
B
LDADCS
4C99 6779
DC
XLt·OI'
6760 6781 6782 6783 6784
6785
SIO x· EO· ·SI DI
SIO
SIO
x·co·.x·aa·
x· C4· .x· SA·
MVI RENTRv.x·a3·
SIC x·«· .x·eA·
B
NOH ANG
ENABLE ATTACH&MC
ENA.;&..E BSCA
MAKE BSCA BUSY
TO BUSY ATTACHeSHOULO HANG
1'>786
/SET UP F~ 4TH RENTRV .INVAL!G LIO SHOULD PC
·REENTRY AFTER INV. LIO?
(~ .. ·
c
,G C;.
(.
4CAE 30 82 4EF1
4CB2 CO 01 4028 4CEl6 3C F3 4EC5 4CBA CO 87 021A 4CBE 81
4CBF 30
4CCO 4EC6 4CC2 CO 87 021 A
4CC6 86
4CC7 31
..cce 4E5o
4CCA CO 87 0222 4CCE 14FF
4COO CO 87 5918
4C04 01
4C05 F~ 58 EO
4CD8 F3 88 CC
4CDB F3 8A C4
4COE 3C S7 4EF1
ec 4CE2 31
388C
4CE;f> CO 87 4CEA
6787 RENT6 CLI AENTRV.x·e2·
6788
8NE
R2AEX1' . -· , '
6769
MVI
NTFM9-11 X1 F:! 1
6790
B
PRINT
4CBE 6791 4CBF 6792
DC
JCL.1·a1·
oc
1L1 11 61°
4CC1 6793 6794
4CC: 6795
DC
AL2CNTFM9J
e
PRJNT
OC XL1·86'
4CC7 6796
OC
IL1·4~·
4CC9 6797
OC
Al..2(NTFM7J
6798
B
fiALT
* 4CCF 6799 6800
oc
JCL.2· l4FF·
MAKE BSCA/3271EMUL BUSY&ISSUE
68(11 4CD4 6802
B
4..DAOCS
oc
Xl..1. 01 1 - ; ' ·
680.J
SiO X·EO·aSIDI
6804
SI 0
lC1 CO· rX· 88 9
6805
SIO X'C4·ex·eA·
6606
MV! AENTRY.x·a7·
6807
LIO
BCYS~L.BSOAR
6808
B
NOHANG
RENTR Y AFTER I NV SEQ 2.t' BR !F NOi ' ... sET MSG FOR lfolV sec.3
EHASLE ATTACH&MC ENABLE 8SCA MAKE BSAC Bll$Y LICWITH BSCA eusv.SHOULD HANG
elNVALJ:D TIC StiOULO Cl.USE P .. c ..
oER~OR~ NO PaCo
REENTRY AFTER IN~· LIO? r;R IF NOT
SET MSG FOR INVALID SEQUENCE 1
4CEA oc;: 09 6601 4ECA
4CFO 3C 9F 4D2A 4CF4 CO 87 4D02
4CF 8 0C:: 09 6601 4E E4 4CFE 3C 9E 4DlA
6QOtol
6810 NOMA.NG MVC
6811
MVI
6812
e
6813
6@14 NOPC MVC
6e1s
MVI
6~16
ERRLOG(lO>·N'TFE2
.x NTFH!,. t ·~F·
hTFl.OG
ERRLOGC10).NTFE4 NTFHi.,T · X· 9E·
MOvE lfll UJG MSG MOW: JN HALT CODE
eMOYE IN LOG MSG. eMOVE JN HALT CODE -9E-
SET UP FOR f<ETR\' Af=1'ER FIRST· INV~L!O COMMAND SEO.as~v~ s10 WIT~ 8SCA OlSABLEDc
4002 OC 00 65F<i: 40.iA
6817 NTFLOG MVC ERAHLTC!)eNtFtt...T
4008 3C 40 65F1
6818
MVI
ERRRTNeX1 40'
(;
4QOC 0C: 00 401 S 65 f~ 4012 CO 87 021A
6819 6820
Me.VC·. __BNUTFNITOE(l).fRRHl.,.T
4016 q
4016 6821
DC
XLl·C:t·
4017 OA
() 4018 6601
4017 t>822 40!9 6623
DC
IL1"1C ·
PC AL2CERJlL.CGI
401A 1400
4018 6824 NTFIOE OC
Xl..2'1400'
()
4DIC CO 87 63FE 4020 co 87 02p.
6825 6626
S
ELPO
B
PRINT
4024 96
0
4025 co 87 022.a
4049 1400
4024 6827
DC
6828
B
6829 NTFHl..T DC
XL.1·96·
HA!,.T
Xl..2 1 1400·
ellf0·"£ HALT TO LQG. OUT
.llllJVE tN ROtlf tNE
·400 PRINT OUT LOG ·SPACE 6
PROG ID PAGE
,'.·_ 0~91-2/ 55 I
DATE f!C NO.
07JUL75 825023
68'50
2SCCT'1!5 82to32
.15JAt,j76 625034
PAQG JO PAGE
le
I
ie
I
l
·
-------------------------------------------~~~~
'!.--
·
lBM MAINTENANCE DlAGNCSTIC PROGRAM
PART NO.
PAGE.
4234255 56
IBM MAINTENANCE DIAGN'5TIC PROGRAM
PART NOe PAGE
42342155
IS6A
8912
DISPLAY AOAPT~ TE5T
8912
DISPLAY ADAPT IR TE5T
ERR LOC OBJECT CODE
ADDA STMT SOlMCE STATEMENT
4028 6831 R2AEXT EQU
4028 30 00 65F3
402F CO Bl 0216
4033 co 87 6606
4037 CO 87 022A
6832 6833
CLI
BE
6834
8
6835 LNKTER 8
4038 00
4D3B 6836
DC
6837
403C 0000
4030 6838
DC
403E Cl0SE2E6CS094 CE.3 4067 6839
DC
~D46 C8C~OC606030~6
·o·e e6C9D5<:7· ooee «:s
6839 6839
4056 E2E3C9D605E24<C2
6639
4C5E E840E2C5E3E3C i05
6839
4066 C740
6839
4068 E3C8C540D9C9C XS 4094 6840
oc
4070 E3~06E2E340C~D6
6840
4078 05E2.0603ClS40E &E6
6840
4080 C9E3C3C840E30t40
40 es ao TOF 07D40C9C6·
6840 6840
4090 0506706840
6840
4095 D6D94070Ft704CC9 4DA4 6841 NTA41 DC
4090 C64070EeCSE27(48
6841
·oAS D9C5E2E4D4CS4 CD7 4DC5 6842 NTFM2 DC
4CAO D9D6C740C2E84 C09
6842
4DBS CSE2CSE3E3C90 !C7
6842
4DBD 40C8ClD3E"40C(C6
6842
·ocs ·a
6842
oc 4DC6 C9E240E3CBC54 lC9 4DDF 6843 NTFM3
4DCE 61 D640C3C8CSC W2
6843
4006 4003C9C7C8E34 CD6
6843
4CDE 056F
6843
·oeo C4C5D709C5E2E440 4E04 6844 NTFM4 DC
40E8 ClC8C5C3D2400 {CS
6844
4CFO E2C5E340C1D5C,._O
6&M
4DF8 D9C5E2C5E340C tel
6M-4
·eoo 03E3·ocec6
6844
oc 4E05 C9E240DC8C54 CC9 4E1F 6845 NTFNS
4'£00 610640C-'C8C5C JD2 4E15 40C3C9C7C8E34 <D6
6865 6. .5
4El0 C6C66F
6845
4£20 D9CSE2E404C54 CD7 4£150 6846 NTFN7 DC
4E28 D9D6C709C1044 CC2 4E30 ee·OC4C507D9C !E2
6846 6846
4E38 £2C9CISC740E2E EE2 ·E·O E3C51>"4009CSEC<;5
6846 6846
4E48 E36840E2E3C1D C.l
·eso ·8
6846 6846
4E51 D9CSE2CSE340C ECI 4E7B 684?
DC
4E59 D3E340C1D5C44 CCI
6847
4E61 40'1007D906C34(C3 4E69 C8C5C3027040E K8
6847 684?
4E71 D6E4D3C44006C X3
6847
4E79 £40948
684?
·e7c 4040C905E5ClDX9 4E89 6848
DC
4E84 C440E7E7E75D
6848
4E8A 09CSE2~5E340CEC1 4EAA 6849
DC
4E92 D3E34GClOSC44 E2
Cl849
4 E9 A E8 E2E3C50440E .C8
6849
4EA2 D6EA83C44-0C8~ 406·· · ·
6849
4EAA C7
6849
4EAB 40C9C5ESC103C!C4 4EC6 6850 NTFl49 DC
4E83 40C3D60404C10!C4
6850
4E88 40E2C50@E4C5D tel
6850
4EC3 C540E750
6950
4EC7 C9610640C3C80 &40 4EDO 68!51
DC
4ECF D3E3
6851
4£01 050640C8C105C 140 4EDA 6852 NTFii2
4£09 4040
6852
·
IPf..FLGeO LINK TERLNK
LOAD
XLl·O·
*** REMOVE FOR RELEASE ***
*** *** REMO VE FOR RELEASE *** *** REMOVE FOR REL.EASE
·TERMINATE SECTl(1N
lCl..2·0·
etlOAK $PAC£
Cl..42·ANS·ER THE FQi..t..()WING QUESTIONS BY SETTJNG ·
CL33·REsu~E PROG EY RESETTING HALT FF.· CL26·!S THE 1/0 CHECK LIGHT DNt· ~7· DePR~SS CH£CK RESET AND RESET HALT FF·
Q.27·15 THE l/D CHECK LIGHT 0Ffr7·
CL49·RESUME PROGRAM IY DEPRESSING SYSTEM RESET· START··
Q.33·RESET HAt..'f ANb SYSTEM SHOULO HANG'
ERR LOC OB~ECT CDOE
ADDR STMT SOURCE STATEMENT
(
0
0
!
!i 'f·'
4E08 DSC64007C3404C40 4EE4 6853 NTFE4 DC
CLtO·NO PC
4EE3 4040 ~E5 E2C9D6
6853
4EE7 6854 NTFSIO DC
cu·s10·
4EE8 E205E2
4EEA 6855 NTFSNS DC
CL3·SNS·
4EEB U3C906
4EED 6856 NTFL!O DC
0...3 1L 10'
4EEE E3C906
4EFO 6857 NTFTIO DC
CL3·T10·
4EF1 00
4EF1 6858 RENTRY DC
>CL.1·0·
ePROGRA· RE ENTAY FLAG
6859
66896610 ** *****RO*U*T*IN*E*4*1**- *D*C*M*I*CR*O*P*RO*G*RA*~********··········-·*························*·
* · 6862 ****************************************···$···························
6863 6864 ·
* 6865
THIS ROUTINE WILL PERFORM A MICROPROGAAM tlHICH IS IhSERTEO INTO CCRE FROt.I LQC., 3FC0-3FFF (AS Re:Q,.)., Tt-e MICROPROGRAM
* *
* 6866
6867 ·
MUST BE WRITTEN SO THAT IT STOPS AT A PRECICTABLE LOCATiQN
·
* WHICH WILL SE A BRANCH TO ITSELF· CAUSING THE PROGRA~ TO HANG
6866 *
6869 ~
* THERE. THE CONT. STO~E ~oo~. OF THIS wORC IS iNSERTEO IN SIG~ ·
3FBF. AFTER THE MICROPROGRAM [S DONE· IF THE CONTENTS fJF THE
6870
6871
6872 6873
6874
* *
.* .
.
.
.
.
LAST
A 9F
.....
SENSED wo~o cces
HALT WIU.. occuR.
..*··············
NOT
····
AGREE
······
WITH
·····
THE
····
EXPECTED
·········
CON'fE~Ts.
··········
·
·
·
··· ··
4E;F2 41 4EF3 00 4EF4 4FA3
6'375 6876
6877
DC
X&..1 8 41 11
oc
~1·0·
oc
AL2(RT42J
· ROUTINE HU·eeR .NO MANU"'- INTERVENTION eADOQESS OF NEXT ROUTINE
6878
4F.F6 CO 87 021A
6879
B
PAINT
4EFA 01 4EFB ID
4EFA 6880 4EFB 6881
DC
lel-1·01·
DC
IL1·29·
4EFC 4F49
4EFO 6882
DC
AL2<RT28111)
4EFE CO 87 021 A
6883 R2BGD B
PAINT
4F02 01
4F02 6884
DC
lCLl' 01 ·
4F03 2E
4F03 6885
DC
11.1· ;,6·
4'=04 ·F77
4F06 co 87 021A
·F05 6886 6887
DC
AL2CRT29M2)
e
PAINT
4F0A 07
4FOA 6888
DC
X\..1907·
4F08 28
4FOB 6889
DC
11.1··3·
4FOC 4FA2
4FOD 6890
DC
Al..21RT28fl.U
6891
4FOE CO 87 5038
6892
B
LOOP
.GO LOAD OP DECODE REGS.
4Fl2 OC 0 I 4F2? 3F EF
4Fl8 co 87 5918
6893 6894
MVC R28EX1(2),R28EXD
B
LO ADC$
elNSERT EXPECTED DATA eGO LOAO MICAOPAOGAAM
4F1C 83
4F1C 6895
DC
Xt..1 '83·
4FIO 3FCO 4FlF 3FFF
4FlE 6896 4F20 6897
DC
AL2CR28MCS)
DC
ll..2CA28MCE)
6898
4F21 CO 87 54f'E
4F25 9F 4F26 0000
6899
B
111.F25 6900
DC
~27 6901 R2eex1 DC
DON I CR
XL1'9F· XL2·0·
eGD 00 MICACPRCGRAM .ERROR KAl.. T -9F· ExPECTEO DATA FILLED IN
4F28 CO 87 02ZA
6902
6903
e
.TERMINATE: PROGRAM
4F2C 00
6904
DC
6905
6905
4F2o D~06£4E340F4F 140 4F49 6906 R'f28MJ. DC
4F35 6040 D4Cl C5E4C 103
6906
4F30 46D4c9C30906D &>9
6906
4F45 D6C7C9CID4
6906
4F4A D306CtC440C5EiD7 4F77 6907 AT 2BM2 DC
Q..46·LOAD EXP. STOP ADQR· (00-lF) IN STGo AODA 3FBF 1
4F52 4840E2E3Df»074(C1
6907
4F5A C4C4094B4040F <FO
6907
4F62 60Ft C6SD40C9D MO
6907
4F6A E2E3C'14840C1C IC4
6907
4FT2 0940F3C6C2C6
6907
4F78 0306C1C440D4C SC3 4FA2 6908 RT2BM3 DC
4F80 D9060709D6C7D~C1
(t908
4F88 0440C90e40E2£.:C'1
6908
OATE
07.IUl..?5
ec_ .ttO· 825023
25<CT75
82!~2
NOG ID "PAGE
! (ij 0891-21 CtDATE
07.IUL 75
56
EC NO· 825023
25Q:T?5 82£032
15.IAN76 82$034
PROG ID PAGE
1 ·
· · · · · · · · · · · ·· · ··· · · · · · · · · · · · · · · · · ·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·-
·
·
·
· ·).,.
··--···
.
IE'M MAINTENANCE DIAGNCST IC PROGRAM
FART NOe PAGE
4234255
IBM MAINTENANCE DIAGNCSTIC PROGRAM
57 \.
PART NOe PAGE
·2342!5!5 57A
8912
DISPLAY AOAPT£R TEST
8912
DI SPLAY ADAPTER TEST
ERR LDC OSJECT cooe
ADDR STNT SOUICE STATEMENT
ERR LDC OBJECT CODE
AOOR STMT so~ce STATEMENT
4F90 4840F3C6C3F06 CF3 4F9e C6C6C640C1E24(09 4FA0 C5D84B
6908 6908 6908 6909
4FA3 42 4FA4 00 ·-.5 5092
4FA7 CO 87 021 A 4FAB 01
4FAC 18 ~AO 5091
4FAF CO 87 !5038 4F93 CO 87 !5020
4F97 CO 87 0222 4FBB 1·,FO
66991110 ·*········R·O·U·T·I·N·E···4·2*-···C·H·E·C·K··O··U·T··C·.·E·@···C·A·R·O··············*·····*********' ,-
66991132 6914
6915
·*····························****·····································*·
·
*
THIS ROUTINE IS CCOE USEO TO CHECK OUT THE c.e. DIAGNOSTIC
A.IO CARD TO VE~IFY THAT IT IS WORKING PROPERLY. 8~1 MUST BE
**·
,
6916 ·
CAPABLE OF RUNNING ERROR ~REE BEFORE THIS ROUTINE CAN ae useo · ·
:C:.$*······: 691 7 ·
6918 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..,. . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
* /"'-.
I
6919
4FA3 6920 RT42 DC
4FA4 6921
DC
Xl..1·42 1 X&..1 ·00·
RCuTINE NUMeER
4FA6 6922
6923
DC
.IL2(RT43)
LAST ROUTINE
6924 4FAB 6925
e
PAINT
DC
XL1·01 1
PRINT ROUTINE HOR
4FAC 6926
DC
1Ll 9 24'
4FAE 6927
DC
6928 RT2EG0 B
6929
B
6930 ·
Al.2(R2EMSG) LOOP
R40L0
(
eGO LOAD OPCECOCE REGS·
eGO LOAD ALL OF c.s. WITH
BRANCH TO NEXT ADDRESS
6931
8
4FSC 6932 R40HO DC
HALT
)CL2· 14FO ·
.OPERATOR HALT -FO-
6933
5040 co 01 5030
5044 31 58 5079
6974
SNE
6975
LIO
6976 *
50·8 oc 01 so11 soa= 50-E ll 58 5071 5052 OE 01 5071 5ACB
6977
MVC
6978 R40L3 LI 0
6979
ALC
5058 00 00 5070 50t:D 505E CO 01 504E
6980 6981
CLC
SNE
5062 31 58 5077 5066 F3 SB BO
6982 6983
LIO SIO
5069 co 87 0000
6984 R40LDR B
6985
506D 54
5060 6986 R40E DC
506E 5001
5o6F 6987 R40ST DC
5070 0000
5071 6988 R4 OOT DC
5072 5002 5074 5003
5076 0000
5078 0400
5073 6989 R4 OC 1 DC
5075 6990 R40C3 DC 5077 6991 RTOOO DC 5079 6992 RT400 OC
507A D9D6E4E340F4F '40 5091 6993 AZ ENSG DC
5082 C3C540C3C1D9C 4140 508A C3 ca C5C302D6E CE3
6993
6993
R40L2 RT400 eCTSTDR
A40DT (2) oR40ST R400T .CTSTCR A400T( 2) .wuN ft40 DT-1 Cl)· A40 E R40L3
....ATOOO e CTSTQR
x·eo· cSICI
eLOOP IF NOT .PUT BRANCH TO AODRe 400
IN LAST WCRO OF IST FET .REINITIALIZE DATA ·LCAO 2NO FET elNCRMENT BRANCH TO NEXT ADDA .TEST FOR ENO OF 2NO FET elF NOT LCAC NEXT WORD eBRANCH TO ADOR 000 AT ENO ·DISABLE eRETUAN TO lJSER
XL1 1 54·
eENO OF CeS· INDICATOR
XL.2 1 5001.
.START DATA FOR ADDA. ooa
XL2·0 ·
eLIO DATA DR COUNTER
XL.2· 5002 1
eBRANCH TO ADDA 2
XL2·sooa·
.BRANCH TO AODR 3
x1..2·0000·
BAL TO ADOR 000
)CL2·D·Oo·
BAL ro ADOR 400
Cl..24 1 ROUT 42 CE CARD CHECKOUT·
6994
6995 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..
6996 *
ROUTINE 43 - DUMP HOB 1 S AND CONTROL STORE.
*
66999978 *· *********·························**···································
4FBO 3C 00 5071 4FC1 F3 58 EO 4FC4 OD FF !5!512 55 .12
4FCA oe oo 5071 SA<B
··········~·······································*********············ 4FOO co 20 4FC4
4F04 F3 58 80
c 4F07 co 87 0.222
4FDB 14Fl
6934
MVI
6935
SIO
6936 R40TOL CLC
6937
ILC
6938
BNOL
6939
SIO
6940
B
4FDC 6941
DC
6942
R400T .o
x·eo·.s101
REPEATC256) eREPEAT
R40DTC 1) · W~N R40TOL x·eo· .s101 HALT XL2 8 14FJ·
· RESET COUNT ER eENABLE NICRQ CDNTACLLEA
·518 CYCLE CB.AY ·INCREMENT COUNTER .BRANCH TIL OVERFl..QW FOR DELAY eCISAE!L.E
.OPERATOR HALT -F1-
v'-""'
5092 43
5093 00
5094 FFFF
5096 co 87 021.1.
6999 ·
7000 *
7001 ·
THIS ROUTINE C~N BE USED TO DUMP THE CONTEhTS OF THE HDe·s.
·
AND COt.TROL ST<iAAGE.
·
·
70023
5092 7004 RT43 DC
5093 7005
DC
5095 7006
oc
7007
e
XLl · 43 1 X&..1·00 .. X&..2·FFFP·
PR1NT
PAINT ROUTINE HEADING
() 4FDD F3 58 eo
4FEO CO 8?- 0222 4FE4 14F2 4FE6 CO 87 0678 4FEA CO 87 0222 4FEE 144"3
c 4FF 0 CO 87 30CD
4FF4 CO 8? 0222 4FF8 l4F4
4FFA CO 8Y 5020
4FFE F3 58 CO
5001 lll 58 5013 5005 31 58 506F 5009 31 58 5075
i o SOOD F3 58 80
5010 F3 58 EO
5013 OD FF sua 55 .12
,. 5019 F:S 58 80
1 0 so1c CO 87 4FFE
6943 6944 6945 6946 6947 R40R1 4FEF 6948
6949
6950 R4QR2 4FF9 6951
6952 6953 6954 695!5
6956
6951'
6958
'-959 6960
6961
6962
6.3.
6964 · 6965
SIO B DC B 8
oc
B B
oc
X·EO·eSIO! HALT )CL.2· 14F2· A03ST HAl.T JCL..2 1 IU-3·
R~JST
HAl.1'
JIL.2· J4F4 ·
eENABLE MICP.O CQNTACU.ER AGAIN .OPERATOR HALT -F2-
eGO DD ROUTINE 3 TO SET HOB· S .OPERATOR hAl..T -F3·
eGO 00 ROUTINE 21 TO SET I /0 REG: eOPERATOR HALT -F4-
8
R40t..O
·GO RELOAD CCNTROL STORE
SJO x·co· .s101
eENA8LE ATTACHMENT
LIO A40Cl aCTSTOR
.CHG. lST we = BRANCH AODR. 2
LID R40STeCTSTOR
eCHG. 2ND ·D "' BR,.NCH AOOR. l
r
LIO "40C3 ·CT ST DR
SID x· eo· .s101
eCHG. 3RO WO e BRANCH ADDA· 3
.DISABLE
I
SIO X·Eo·.SIOI Cl..C t:IEPEAT(256) ·REPEAT
·ENABl..E MICRO CCNTACu,..l.A
.sie CYCl.E OB...AY
I
SID X· 80· ·5101
e
A40SY
e01SA8LE
eHANG IN LOOP· SYS. RESET TO EXIT THIS ROUTINE
I
SUBROUTINE TO LOAD CONTROL STORE WITH BRANCH TO NEXT ADDRESS
I
7008
5C9A 01
509A 7009
DC
5098 10
5098 7010
DC
509C 50D2
5090 7011
DC
509E co 87 5038
7012 R2FAOL 8
50A2 CO B? 5BF9
7013
B
50A6 CO 87 5BE7
7014.
e
50AA CO 87 lOf.06
50AE co 87 1084 5082 co 87 5003
7015
e
7016
B
7017
e
5096 0906E4E340FGF .140 5002 7018 R2FMSG DC
SOBE C5C4C2405040C~E2
7018
!SOC6 40C4E4040740E °'E3
7018
SOCE C903C9E3E8
7018
7019
XL.1·01· ILJ·29· Al.2(R2FNSG) LOOP HDBL tiDBH
HOBLI HDBHl A2CST CL29·~UT 01 HOB '
·GO LOAD OP DECODES .GO !)UMP LCW H08·S .Go DUMP H'IGH HDe··s
CS DUMP UTILITY'
· 50 20 34 08 506C
6966 R40LO ST
A40LDR+3 eARR
I
·STORE RETlmN ACCRESS
6961'
10 5024 oc 01 5C71 50CF
!!»0.2A F3 58 80
;O 5020 F3 58 co
5030 31 58 501'1
5034 oe 01 5071 5A (8
503A OD 00 5070 50 Cl>
6968 A40SLO MVC
6969
SIO
6970
510
6971 A40L2 LIO
6972
AL.C
6973
CLC
A40DT (2) eA40ST
x· eo· .s101
x·co·.s101 AODT eCTSTCR
R40DT(2J eW~N
R40DT·1C l J 1A40E
eREINlTIALIZE START DATA
I
·DISABLE
.ENABLE ATTACHMENT
eLOAD c.s ..
I
e I f\CREMEtifT CAT"
eAT LAST llfORO ?
l'e· t>ATE
O?JUL75
1 0 EC NO· 825023
25CCT'P5 82 eGJ2 ..
15.IAN76
8250~4
PROG ID PAGE
0891-21 S? I
DATE
07JUL 75
EC NOe 82!5023
25"T75 82£032
1SJAN76 828034
PAOG 10 PAGE
I
· I · ·
... ''"'-
IBM MAINTENANCE DIAGNCSTIC PllOGAAM
PART NO.
PAGE
4234255 58 ;
IBM MAINTENANCE D!AGNCSTIC PROGRAM
PART NO. PAGE
42342!!5 58A
8912
DISPLAY ADAPT~ TEST
8912
DISPLAY ADAPTlR TEST
ERR LOC OBJECT CODE
AO~ STN1 SO\.RCE STATEMENT
ERR LDC OBJECT CODE
AODA STMT SOURCE STATEMENT
soo3
5007 5008
SODE 50El
sees
50E6
38 oe co 87
F3 SB
F3 58
:Jc 00
oF ot
C2 01
02ca
5038 8G CO 5229 5673 5701
56 43
SOEF 30 58 5FE6
50F3 4C 01 01 5FE6 50F"8 30 00 5229
50FC F2 Ol 04
50FF Cl 50 5203
5103 02 01 02
5106 OE 01 5673 54 as
510C 30 00 5673
suo co 01 5oeF
5114 :JC 80 51CE
5118 al) Oi 5672
sue F~ 81 9E
SUF 3C. 40 51CE
su:.:. 30 02 5672
5127 F2 81 93 51ZA 3C 20 51CE
512E 30 03 567.2
s132 F2 s1 ea
5135 JC 10 51CE
5139 30 04 5672 5130 F2 81 70 5140 lC 8C 51CE 51·· 30 0!) 5672 5148 F2 81 72
5148 3C 4C 51CE 514'= 30 06 5672 5153 F2 St 67 5156 3C 2C 51CE SI.SA 30 07 5672 SISE F2. 81 5C
5161 :sc 1c s1ce
5165 30 oe 5672
5169 F2 81 51 516C 3C 8A SlCE 51?0 30 09 5672 517· f'2 81 46 5177 3C 4A S1CE 517e 30 OA 5672
S17F F2 81 3B
5162 3C 2/i. 51CE
'51&6 30 oa S672
SlSA F2 61 :30 5180 3C lA 51CE
5191 :so oc 5672
5195 F2 81 25 5198 3C 89 51CE
Sl9C 30 OD 5672
Sh.«> F2 81 1" 5lA3 3C 49 51CE 51AT 30 OE 5672 SSAB F2 81 OF SlAE 3C 29 51CE 5182. 30 OF 5672
DATE
07.JULTS
£C NO· 825023
25CC1'75 82t032
71)21
* * 77002223 ········R·O·U·T·IN·E··4·3··C··O·N·T·IN··U·E·D·. ··S·TA·R·T··C·T·L··S·T·O·R·E··D·U·M·P·······················
7024 ********************************************····O*'*******lil1*:11$alc··*******' (
7025 it
*
7026 A2CST SBF SB\'TEt.hX·08·
..RESET st::NsE S\ll!TCH 04
7027
B
LOOP
·GO LOAD OP DECODES
5186 F2 81 04 5189 :3C 19 51CE 5180 OC 00 51C4 SlCE
51C3 38 00 0200 51C7 F2 10 05 51CA CO 87 5567
7089
.JE
7090
tilVI
7091 R2CP13 MVC
7092 ...
7093 R2CTSX TBN
7094
.JT
7095
6
A2CP13 ~cpx.x· 19· R2C TSX+ 1 ( 1 ) .R2CPX
SBYTE3····
R2CK02 f'05DCS
SET FOR 4TH 256 WORDS OF 4TH FET e lllOVE IN CO ...STANT TO TEST
SENSE SWt TCH ON .TEST SENSE SWITCH ON ~SKIP PRINTOUT IF ON eGO PRINT 2~6 WORDS
7028
SIO x·eo·.SI01
.REsET ATTACHMENT
51CE 00
51CE 7096 R2CPX DC
XL1 8 0 1
·CONSTANT TO SELECT 256 131...0CK
7029 R2CENli. Slo
7030
MVI
7031
SLC
7032 R2CRST LA
7033
x·co· .su:i RT2CAT90 i:l05W01(2leR05lll01 R05W169Xf°<l
8ENABl..E ATTACHMENT .,RESET ATTe CtiK· FLGe .,SET STARTING ADDRESS TO ZERO ePO!NT XRl To START OF DUMP 1>.REA
SlCF 30 04 5672
st 03 co s2 soe.e
5107 3!) 08 5672
5106 CO 82 50EB
7097 >!<
7098 R2CK02 CLl
7099
BL
7100
CL I
1'101
BL
f'oswo1-1 .. x· 04"
R2CRST
Aoswo1-1 ex 2 oe·
R2CRST
GETS FILLED IN TEST FOR ENO OF 1ST FET
TEST FOR END OF 2ND FET
7034 R2CK01 SNS
51· ATAC9 CTSTCR
aSENSE CONTROL STORE WORD
510F 38 02 OAOC
7102
TBN UJT2o )(· 02°
3RD FET INSTALL.EC?
7035 7036
7037
7038
MVC
CL I JNE TIO
U2eXR1> .. STATAC RT2CATe 0 R2CHIC R2:C ATT .A TTCHK
.MOVE TO DUMP AREA ,.·rEsT FO~ NC ATT$ CHK. YET
.JUl>liP IF /\TT c Ct«· HAS OCCURRED
4TEST FOR ATTACHMENT CHECK
51E3 Co 90 5!F7 51E7 3D OC 561'2
s1Ee co 82 soea
51EF 30 10 5672
7103 7104 7105 7106
BF
ACHCMK
CLI Rosuo1-1 ..x·oc·
BL.
R2CRST
CLI w:;os11rn1-1 .x·10·
TEST FOR ENC OF 3RO FET TEST FOR ENO OF 4TH FET
7039 ~2CINC LA
2( oXRi. h XR1
.INCREMENT TO NEXT ~ORD
51 F3 CO 82 50E6
7107
St..
R2CRST
7040
Al..C i<oswo U2>. ·UN
· i!'<CREMENT .;100RESS
51F7 3D GO 5229
7108 ACHCHK CLI
RT.?CAT~x.·oo·
TEST FOR NO ~T'!ACMMl!'.':~T ('.t"IECK
7041
7042
CLl BNE
~oswoi.o
fi2CK01
.TEST FOR lkCAe TO ZERO .SENSE NEXT WORD IF NOT
S!FB F2 01 tF 51FE CO 87 022A.
7109
.JNE
7110 R2CTEF< El
R2CPRT
l.O~D
QPRtNT MESSAGE IF ATT6 <:::HK,. ·TERMINATE ~OUTlNE
7043 7044 7045
M\fl CLI
R2cPx.x · eo·
~0511l01-1 ·1
oSET UP FOA !ST 256 WORDS .TEST FOR lST 256 lllOROS
5202 00 5203 3C FF 5229
5202 7111
DC
7112
7113 R2CATT MVX
XLl8 0°
f;T;,;CAT· x· FF·
.SET ATTACHMENT CHEC~ ON
7046
JE
R2CPi3
.JUMP IF lST 256 WORCS
5207 CO 97 021E
7114
B
UNPACK
.UNPACK ADOfiESS
7047 7048 7049
MVI f:l2CPXeX"40·
CLI
f.iOSIW:t-1 o2
JE
R2CP! 3
·SET UP FOR 2NO 256 llORDS .TEST FOR .ZNO 256 ~OROS 0JU~? IF 2ND 256 wo~os
52013 02. 520C 5673 520E 524C
5206 7115 5200 7116 520F 7117
DC
XL.1·02·
oc
Al.2 (R05tlil01)
oc
AL.2( R2CMG1)
7050
to!\fi lil2CPX .x· 2oe
oSET I.JP ~OR 3RO 256 -OROS
5210 CO 81' 021E
7118
B
UNPACK
eUNPA.CK DATA
7051
CL! R05·01-1 .::;
oTEST FOR 3~0 256 WOADS
5214 02
5214 7119
DC
XL1·02·
7052.
·ros3
7054-
JE
MVI
Fl2CP13
RaCPx,.x· 101
·JUMP IF 3AO 256 ·OROS .S,ET UP F0$:! 4TH 256 WORDS
5215 51"'E6
521? 5259
5219 co 87 5103
5216 7120 5218 7121
7122
DC
Al-2( STATAC)
DC~
4'1.2(R2CMG2)
6
R2COK
.RETURN TO ~AIN LOOP
7055
Q.!
R05·0l-1·X 111 04°
TEST FOA 41"H 256 WORDS
7123
7056 7057 7058 7059 7060
.IE MVI CLI JE MVl
R2CP~3
R2CPX .. x· ac.
ROSW01-1.x·os·
R2CP13 R2CPx.x·4c·
SET FOR 1ST 256 WORDS OF 2ND FET: {::
TEST POR 15~ 256 ·RDS OF 2ND FET'
SET FOR 2NO 256 WORDS OF 2ND FET' rI\..,_·
5210
5221 5222 5223 5225
CO 87 06 30
5259 CO 87
C21A
5 lFE
71,24 R2CPRT 6
5221 7125
IX
5222 7126
DC
5224 "1'127
oc
7128
B
PRINT
XLl.·06 11
11..1 ··e·
-~L2 (R2CMG2) R2CTER
·TERMINATE
7061
CLI
i<05W0!-1 ·Xt06t
TEST FOil 2ND 256 ll!RDS OF 2NO FET'.
7129
7062 7063
7064 7065
7066 7067
.JE
R2CP13
Eo1V l R2CPx.x·2c·
CLI s:<oswo1-1,.x·o7·
.Je
R.::.'CP13
MV! R2CPx.x· 1c·
CLI ROSWOl-1 .x·oe·
SET FOR 3RO 256 WORDS OF 2NO FETi TEST FOR 3Ro 256 WROS OF 2ND FET
t.: SET THE 4TH 256 WCROS OF 2NO FET'.
TEST FOR 4Tt1 ?56 wRDs OF 2NO FET
5229 00
5229 7130 RT2CAT OC
7131
522A C6C909E2E340C ..1£3
713Z R2CllllG1 DC
5232 E3CtC3C8D4CSD!E3
7132
523A 40C3C8C5C3D24 <Cl !5242 E340C1 C4C4094 (£7
'?132 7132
Xl.l · 0:
oATTACHMENT CHECK Fl.AG·
CL35eFIRST ATTACHMENT CHECK AT ACOR KXXX 1
7068 7069
.JE Miil
R2CP13 R2C:Px.x·SA·
SET FOR !ST 256 WORDS OF 3RO FET (
!:24A E7E7E'f
7132
5240 6B40C4C 1E 3C H <7E 5259 7133 R2CMG~ DC
= c~l3'. DAT~ xxxx·
7070 7071 7072 7073 7074
CLI .JE MVI CLI .JE
Roswo1-1.,x·091
R£!CP13
R2C.PX,.X'4Ai;
ROSWOl-leX"OA" R2CPi3
TEST FOR :.ST 256 WROS OF 3RD FET1
e SET FOR 2NO 256 "#OROS OF 3RD FET;
TEST FOR 2ND 256 'lllROS OF 3RO FETI
5255 40E7e7E7E7
7133
7134 ···~···*-·***~*******$**********"'*
· 7135 · SUBROUTINE PRINT t,a REGISTER **********"'$***************·**********
7136 ····~*******·********************* 7137 ·
...
?075 7076 7077 7078 7079 TOSO 7081 7082 7083 7084 7085 7086 708? 7088
MVI
C.L.1 .tE MVl Cl.I .JE
MVI CLl .JE MVI CLi .JE MVI
CLI
R2CP)( ·X · 2A· R0511101-1 tX 11 0B· lil2CP13 !'!2CPX.,x· I A' Roswo1-1.x·oe· Fl2CP13 R2CPx .. x· eg· ROSW01·1 oX 3 00· f42CP13
R2CPXsX 8 49° Roswo1-1.x·oe· R2CP13 lt?CPx.x·29· t:aOS·Ol-1 .x·OF9
SET FOR 3RC 256 WORDS OF 3RD FETI . ,
TEST FOR 3RD 256 WRDS OF 3RO FETI
I SET FOR 4TH 256 WORDS OF 3RO FET!I~~ ./
TEST FOR 4TH 256 WROS OF 3RO FET!
C). i
SET FQR iST 2:56 WORDS OF 4Ttt FET1
TEST FOR !ST 256 WROS OF 4TM FETi
! 0 SET FOA 2ND 256 WORDS VF 4TH FET:
TEST FOR 2ND 256 WROS OF 4TH FET!
SE'f FDR
3~0
256
llORUS OF
4TH
i
FET[
·
TEST FOR JRO 256 WRDS OF 4TH F-ET:
1I ()
7138 ·
* "1'139
7140 $
7141 ·
* 7142:
·rHIS SUBROUTINE IS ENTEREO IF A OA'tA Ml scc"'PARE OCCURS WHILE WRAPPING DATA IN OIAGNCISTIC MOCE 0
THE FOLLO~JNG PARAMETERS MUSI BE IN THE Hoe·s:
HOB 00 BIT 0 VALUE FOR 81T 13 TO BE TRANSMITTED
* · · * ·
7143 ;lr 7144 $
* 7145 * 7146
S!T 6 VALUE FOR BIT 2 TO BE TRANSMITTED
BIT 7 VALUE FOR BIT 3 TO BE l'RANSMITTED
HOB 01 BITS 0-7: SITS 4-11 TO BE TRANSMITTED
HOB 03
s HEX NUMBF..A OF ~ D TAANSM! TTED l'RECEl veo
··'·*
7147 ·
* 7148 * 7149
HOB 05 HDB 06
00 lF NO RECEIVE C~E~K OCCURRED
FF IF A RECEIVE CHECK C~CUR~ED SITS Z.3.13 RECEIVED (SAME PATTERN AS HDQ 00)
*
.".".
7150 · 7151 ·
HOB 01' BITS 4-11 RECEIVEO
· ·
l5.IAN1'6 825034
PAOG ID PAGE
0891-2
OA. TE
se
EC NOo
0
07.JUL75 825023
25(CT75 82 !O:"?
l5.JAN76 825034
PROG 10 PAGE
·
a ··
· · · · · · · · · · · · · · · · · · · · · · · . ·~-·\,- · · · · · · ·
ISM MAINTENANCE DIAGNCSTIC PROGRAM''
8912
DI SPLAY ADAPT ER TEST
PART NO. PAGE
4234255
IBM MAINTENANCE DIAGNCSTIC PROGRAM
59 : \".
8912
01 SPLAY Al>APT ER TEST
PART NOe PAGE
E~R LOC OBJECT CODE
ADOR STMT SO~CE STATEMENT
ERR LCC OBJECT CODE
AOOR STMT SO~CE STATEMENI
525A 34. 08 535F 525E 34 01 5356 5262 OD 01 5FE6 54E;.
5268 co 01 5343
S26C X E6 6SF8 5270 3C 40 6600 5274 F3 58 80 5277 30 4l!l 5455 5278 30 49 5457 527F 30 4A 5459 5283 30 46 5FE6 5287 C2 02 !!299 5288 oc 01 5458 54f5
5291 C2 01 53F6 5295 CO 87 S4SF
5299 C2 02 52AS
52 9D OC 01 54SB SF £6
52A3 C2 01 5421 52A7 CO 87 54SF 52A8 39 FF 5459 52AF F2 10 OF 5282 78 01 IE
5285 F2 10 06 52B8 7A 01 lE
S~Be F2 87 03 52BE 78 01 lE
52C1 CO 67 02U. 52C5 81 52C6 47 52C7 53A6 52C9 CO 87 021 A S2CD 81
52CE 28 52CF 5301 5201 CO 87 021A 52D!i 81 5206 28
52D7 53FC 5209 CO 87 021 A
52DD Bt 520E 2e'
52DF 5427 52EI CO 87 021E 52E5 01 52Ef> 5457 S2Ee 5440 52EA 3C OS 65FO
S2EE OC Ol 6SFF 54 C>
!S2F4 CO 87 021E !S2F8 C-1 ~2F9 54SA
!S2F8 63FO
52FO 0C 00 65F9 63 fD !5303 CO 87 021E
5307 01 5.308 54~ 530A 65FB
* ?152
· * 7153
THE ROUTINE ~ILL THEN CHECK FOR A DATA ERROR (MJCRO HALT AT ADO~ 035)· IF THERE IS NOT A DATA ERRORo A HALT WILL OCCUR
* 7154 ...
IF THERE IS A DATA ERROR· THE INFORM~TIQN iRANSM!TTED AND
* * 77.55
RECEIVED WILL EE FORMATTED AAID PRINTED OUT·
· 7156
7157
·*····················*···········***************************************
(
7158
7159 PI OREG ST
7160 7161
ST Ci..C
7162
BNE
71e3
"'VI
7164
NVI
7165
SIO
7166
SNS
7167
SNS
7168
SNS
716;
SNS
7170
LA
7171
MVC
7172 ·
7173
LA
7174
8
7175 PJ081 LA
7176
NVC
7177 ·
7178
LA
7179
B
7180 PtOB.Z TBF
7181
JT
7182
TBN
7183
JT
7184
SBN
7185
J
7186 SB1.ZF SBF
7187
PIORTN+3 wARR PJOXR1+3wXR1 STATACC2 l oX5035
MV~T
ER ..LOG-9. c· w·
ERRLC!G-1 oC · ·
x·ao·eSioI
Fl OLl eHOEO PIOL2eHOe1 Pl OL3 .Hoe2 STA TAC oHOB3 Pl 081 eXR2 PIOWKl(.2),,pJOLl
XRN2-6e XR 1 SET PO P1os2.xR2 PIOWK1(2).STATAC
>CRN3-6·XR1 SET PO Pl 0&..3 eX ·FF·
NORC
3oc.xR1J.x·o1·
SB12F ::!0( ·XAl J 1X1 Ol' fl;ORC
30( .xs.11 · .x·o1 ·
~STORE ~ETU'"N AOORESS
G STORE XR 1
.CHECK FOP CATA ERROR
.IF NOTe GO HALT
.INSERT CHAR JN LOG OUT
·BLANK ouT ~NUSEO LOG OUT
.DI SABLE ATTACHMENT
*
""
.SENSE HOB 00-01
·SENSE HDB 02- 03
(
·SENSE HOB 04-05
·SENSE HOB 06-07
·LOAD RETURN A.DOR.
.MOVE ~ORO TRANSMITTED TO
WORK AREA
.POINT XRl TO BIT 11 PRINTOUT
oGO FORMAT PRINT FIELD
oLCAO RETU~~ ADDRESS.
.MOVE WORD RECE1VED TO
WORK AREA
oPOINT XRl TO BIT 11 IN PRINT oGO FORMAT PRINT FIELD
·TEST FOR REC. CHI<
.CONTINUE IF NONE
·TEST· BIT 12 MUST BE I NVERTEO .JUMP JF BIT 12 [S ON
·CHANGE 0 TC
.CONTINUE
eCHANGE 1 TC 0
7188 NORC
B
52C5 7189
DC
PRINT XL1·e1·
.PRINT l~O REG TITLE
52C6 7190
!52C e 7191
7192
S2CD 7193 52CE 7194 5200 7195
7196 5205 7197 52D6 7198
DC
1Ll871·
DC
Al.2(XAMTa
B
PRINT
DC
)(1..1 1 81'
C>C
1Ll·4!·
DC
Al..21XAMl)
B
PAINT
DC
~:L.1 ·e1 ·
cc
ILJ·4!·
.PAINT BIT TITLE
ePR INT wORO TRANSMIT TEO
(
s2oe 7199 7200
5200 7201 !S20E 7202
s2eo 1203
7204 52E5 7205
52E7 7206
52E9 7207
7208 7209
7210 52F8 7211
!S2FA 7212
52FC 7213
DC B DC DC
DC B
DC DC DC
MVI MVC 8 DC
oc
DC
Al.21XAM2J PAINT XLl 1 81 1 IL 1"43 1 AL2(XAM3) "NPACK >CL..1·01· -L2 (PIOL2)
AL2( XAM6-61 ERRLOG-4,C·N·
ERALOG~2 (2) eXRM6-6
UNPACK
XLJIO!· AL2(PJ OwKt-u AL2C R 18WK)
ePAINT WORD RECIEVED
·(
(
·SET LOG OUT FOA NO REC. CHK ·
eMCVE IN NOe OF TRIES eUNPACK BITS 2-3
(_
."" (
""
. (
7214 7Z15 5307 7216 5309 7217 5308 7218
7219
MVC B DC DC DC
ERRLOG-ec1>.Rl8WK
UNPACK Xl..1 1 01' AL2 CPl OW Kl) AL2(ERRLDG-6J
·NOVE CHAR. FOR BITS 2-3
.UNPACK ens 4-7
.· c .·· c
530C OC 01 5342 54 EE
5312 39 FF 5459
5316 F2 10 OB
5319 3C 29 5340
5310 3C 09 65FD
5321 F2 67 04
5324 3C 2C 5340
5328 30 35 OA03
532C F2 01 OC
532F OF 00 5340 54EC
5335 OF 0 l 5342 54 EC
co 5338
87 0211\
533F 82
5340 OQ
5341 5453
7220
MVC
7221
TBF
7222.
JT
7223
MVI
7224
MVI
72;;?5
.J
7226 NOR(: 1 M\.'I
7227 PLAsT CL I
7226
.JNE
533F
7229 7230 7231
7232
PLASTI\
SLC
SLC
e
DC
5340 7233 PICLTH DC
5342 7234 PJOADR DC
5343 53-9
~340 5351 5352 53!:'6
oc 00
CO 87 CO 87
97
co 87
1400
5357 63FE 021A
0222
55 4E
7235
7236 MVHL T MVC
7237 P IOHL T 8
7238
B
5351 72.39
DC
7240
e
5357 7241 Pie.EH DC
5~58 C2 01 0000
535C co 87 0000
7242 7243 PJCXAl LA
7244 Pl CRTN 6
7245
7245
5360 4040404040404(40 5391 7246
DC
5368 4040404060C?6~6
7246
5370 4009C5C7C9E2E.;cs
7246
5378 D96040·ooso6E .;cs
7246
5380 6840C2C9t:340F JF2
7246
5388 404007Cl09C9E~E8
7246
5390 5D40
7246
5392 C9E240E3C8C54 CC3 53A6 7247 XRMT
DC
539A 06D407E4E3C5C 440
7247
53A2 E5C1 D.3E4CS
7247
53 A7 C2 C9E34 04 040F .140 53Dl 7248 XRM1
oc
53AF 40F24040F3404 CF4
7248
5367 4040F54040F64C40
7248
S38F F74040FS4040F S40
7248
53C7 FJF040FIF140FJF2
7248
53CF 40Fl F3
7248
5302 E704C9E34040F J.40 53FC 7249 XRM2
oc
S30A 40E74040E7404 CE7
7249
53E2 4040E74040E74 (40
7249
53EA E74040E74040E i40
7249
53F2 40E74040E7407lE7
7249
53FA 7040E7
7249
53FD 09C5C370C440FJ40 5427 72SO XRMJ DC
5405 40F74040E7404CE7
7250
5400 4040E74040E74 <40
7250
5415 E74040E74040Ei40
7250
5410 4 OE74040E740't lE1'
7250
5425 7040E7
7250
5428 05Cl640
542A 7251 XRM4 DC
5428 09CSC3CSC9ESC:40 5437 7252 XRM5
DC
5433 C3C8CSC302
7252
oc 5438 6B40C6C1C903C!C4 5453 7253 XRM6
!:'440 400f.D540E309E ~O
1253
5448 05064B40E7E74C40
5450 CSC5E750
7253 72$3
5454 0000
5456 0000
54ti8 0000
545A 0000
545C 00
7254
54~5 7255 PICl..l DC
5457 7256 p I 0.. 2 DC
5459 7257 PIQ..3 DC
5458 7258 PIOWKl DC
545C 7259 PAR
DC
OA'tE
07.IUL 75
EC NO., 825023
25CCT75 82 !032
1!5JAN76 825034
PROG 10
PAGE
0
C891-2
DATE
59 ~EC NOe
07JUL 7!5 82502.3
25CCT7S 825032
l 5JAN76 825034
PJOADR(2 )tR2AMA PIOL3.X 1 FF· f\OflC1
PI0LTHo41 ERRl..OG-4eC·R·
Pl.AST
P(OLTH.44 PRTN,X 1 35 1 PLASTA
PIOLTH( 1) .x1c
PIOAOR(2>.x1c
PRINT )CL 1. 82.
ll.1'0 1
AL2C XRM6)
Pl OEH(J) ·STATHC ELPO PRINT Xl.18 97· HALT XL2' 1400 ·
elNITIALIZE PRINT ADDRESS eCHECK RECEIVE CHECK
elNSERT LENGTH OF MESSAGE oSET REC. CHK IN LOG OUT .JUMp TO PRINT LAST LJNE .I~SERT LENGTH OF NESS·GE eCHECK FOR ROUTINE 35 oJUMP IF NOT .SHORTEN MESSAGE IF ATN 35 .CHANGE ADO~Ess IF RTN 35 oPRINT LAST INFORMATION
oL ENGTH GETS FILLED IN
·MOVE IN HALT CODE
.SPACE 7 LINES
oGO HALT .HALT CODE GETS FILLEO IN
·RE STOR:'. XA 1 .RETURN TO USER
CLSO·
-1/0 REGISTER- NOTE· BIT 12 (PARITY) 0
2 3 · 5 6 7 8 9 10 11 12 13·
CL43'XMl't
x x x x x x x x x x ··x·· x·
CL3 1 NO · Q..13·RECEl~E CHECK'
CL2e·. FAJ~ED o~ TRY hO· xx IMEX)·
xL2· o·
JICL 2 1 0. XL2 1 0 1 XL2 1 0· XLl'Ot
·LOG HOB 00-01 ·LOG HOB 02-03 .t..oG HOB 04-05
··ORK SPACE ·PARITY PREOICTOR
WORK
SPACE
PROG JO PAGE
·
IBM MAl~TENANCE DIAGNCSTIC PROGRAM
PART NOo PAGE
4234255 60
IBM MAINTENANCE OIAGNCSTIC PROGRAM
8912
DISPLAY ADAPT ER T('ST
8912
DISPLAY ADAPT~ 'TEST
ERR LOC OBJECT CODE
AOOR STMT SOURCE STATEMENT
ERR LOC OBJECT CCDE
ACOR STMT SOlRCE STATEMENT
5450 FFFD
545E 7260 NEG3 OC 7261
545F 3C 01 5468 5463 3C 00 545C 5467 38 00 5458 5466 F2 10 06 546E 7C FO 00
5471 F2 87 09 5474 7C Fl 00
5i77 OE 00 545C 5ACB
5470 3~ JOl 545E
5481 oE oo 5~66 s·ea
5~87 F2 81 04
54EIA CO 87 5467
7262 seTPO 7263 7264 TSTdJT
7265
7266
7267 72 68 SE l'l
7269 727 0 NEXT
7271
7272 7273
1'27~
MV l 14Vl TBN
JT MVI
J MVI A.LC A ALC
.JZ
a
548E 38 01 545A 5492 F~ 10 06
5495 7C FO 00 5498 Fl: 87 09 5496 7C F1 00 549E OE 00 545C SACS
54A4 36 01 545E 54<1>8 38 02 5454. 54-AC F2 l 0 06 541\F 7C FO 00 5462 F2 87 09 5405 7C Fl 00 54B8 Ol:c: 00 S45C SA U3 541;BE 38 80 511;5,t, 54C2 FZ 10 M
S4C5 7C FO 21
54CB 3C FO 65FC
54CC F2 87 07 54CF 7C Fl 21
5402 3C F 1 ti5FC
5406 38 01 545C
54 OA F'2 1 0 06
5400 7C FO 1E
54EO F2 87 03 S4E 3 7C Fl 1E 54E6 eo 87 oo 54E9 5035 54EB OOlC 54ED 5453
7275 HIBITS TBN
7276
.JT
7277
MVI
7278
J
7279 SET.3 Miil
7280
ALC
7281 TB2
A
7282
TBN
7283
.JT
7284
~VI
7285
J
7286 SET.? MV I
7287
ALC
7288 TB13 TBN
7289
.JT
7290
MVI
7291
Miii
7292
.J
7293 SET13 MVI
7294
MVI
7295 ca 1.i? TBN
7296
.JT
7297
~VI
7298
.I
72'i:9 SETl 2 MV I
7300 RTN
B
54EA 7301 X5035 DC
54EC 7302 x1c
DC
54EE 7303 R2ANA DC
7304
7304
XLZ·FFFD·
TSTBlT+l eX ·01 1
PARex·oo·
PIOWKt-X·OO·
SETl C( eXRU eC· O· NEXT 0 ( oXRl) vC· 1 ·
PASH l ) e WUN l\EG3,x;R1 TSTBl~+l{l}~TsTeIT·l
HI Bi TS
T~TSIT
PIOWK1-1exeo1·
~ET3
0(e>tR1ioC 0 o·
T82
ot ~xR1, .c= l"
PAR{ 1) ~WUN
"°EG::39XA1 i::! ow1<1-1 ,.x· 02·
SET2 O(,.X.RlioC"O' TS;.3 O(.XRl)ec·1·
PMHJ, >.. wuN &:>lo'l!IK 1-1 .. x· eo·
SETt:.;
33t.xR1» .c·o· ER~oG-s .. c· o·
CB12 ::<3l.xRUvC"l'
eRRLOG'-5 ~c. 1 ·
FAR .. x·o1·
SET12 30(,.XRJ!.,C:·o·
RTf\I 30(oXR1)oC·a·
0( eXR2) x1.2·so3ss xL2· 1c·
AL2C XRM6)
.CONSTANT N~GATIVE TK<EE
.INITIALIZE TEST BIT INSTRc .INITIALIZE PARITY PREDICTOR oTEST BIT (SET BY PRG.)
s..IUMP IF ON
.~OVE A 0 TC BIT POSITION .cDNTiNUE .MOVE A 1 TO BIT POSITION .ADO l TO PARITY eSUBTRACT 3 FROM XRl
.sHmFT BIT 1'ES'l'ED LEFT ONE
.GO TEST HI BITS IF ZERO
~<>O TEST NE'.XT !HT
oTESi FOR BIT 3 ON 0 JUMP IF SO .~ovE A 0 TC BIT POSITION .GO TEST BlT 2 .MOVE A 1 TO SIT 3 .ADD ONE TO PARITY
~suSTRACT 3 FROM XRl
eTEST FOR BIT 2 ON "JUMP IF TF!UE .,SET BIT 2 TO 0 .. Go TEST a n 13 ., SEi BIT 2 TO
~ACD TO PAR
.TEST FOR BIT t3 ON ~.1UMP lF SO .,SET BIT 13 TO u .SET S!T 13 IN LOG OUT OF!" oGO SET BIT 12 (PARITY) .GO SET SIT 13 ON .SET BIT 13 IN LOG OUT .TEST FOR BITS 000
= e .JUMP IF SO
.SET PARITY BIT 0
.GO EXIT $SET PARITY BIT· ·"ETURN TO MAlNLlNE .CONSTANT STOPPING POINT .CONSTANT 28 .ADDRESS CO~STANi
(
54EF 34 08 5562 54F3 ~ FO SSlE 54F? 3C DO 55 3A
54FB ""2 87 OC 54FE 34- 08 5562 5502 3C EO 551E 5506 3C CO 553A 550A 34 01 555E 550E 35 01 5562
5512 lC 00 554E 00 5517 lC 01 5550 02
7327 7328 OOMlC2 ST
7329
7330
fAVI MYl
7331
.J
7332 OOMICR ST
7333
MVI
7334
MVI
7335 MlCOM ST
7336
L
733 7 ~EPEAT M\IC
7338
MVC
COM lRA+3eARR t«ICEN+2 eX· f'0 1
STPMC+2e>l~D0 3
Ml COM
00,.1 RA+3 ·ARR MICEN+2.xeeo· STPMC+2.x·co·
OOMIX1+3eXRl OOMIRA+3,.XRl SiATHC.,O (l ·XR1)
STATE ie2t2 aXRU
551C F3 SB eo
551F OD FF 5512 5512
5525 oo 01 5564 oot2
552El F2 61 01\ ss2e OF 01 5564 s ,u.:e
7339 7340 MJCEN 7341 DELAY 7342 7343 7344
SI 0 CLC CLC
.JE SLC
xe EO · cSI 01
REPEA 1· ,REPE.AT( 256)
LPCNT" ZEl<O ( 2)
ST?ll'IC
L.PCNT.llfUN(2>
5534 CO 87 55tF
553S F3 se co
5536 30 56 sFE6 553F 00 01 5FE6 55~0
5545 co at sss1
7345 7346 7347
7346 7349
STPMC
B
SIO
SNS
CLC BE
OE!..AY X·CO· ,,siiH
STAT AC·CTSTOR STATACeSTATE1(2)
REST
7350
5549 5540 554E
554F
CO 87 10 00
0000
50A5
7351 MICERR 8
5540 7352 ErSP DC 554E 7353 ST ATHC DC 5550 7354 STATEl DC
STATUS
XL1"10@
Xt...t · oo·
XL.2°00·
5551 OE 01 5562 55t6
5557 38 o3 554D
7355 7 :356 RE ST 7357
Al)...C
S8F
DOMIRA+3<2>~THREE
EHBP~ x·oJ·
7358 ·
5556 C2 Ol 0000 555F CO 87 0000
7359 OOl41 X l LA
7360 DOlllif;lA IB 7361
5563 0000 5565 0003
5564 7362 LPCNT DC 5566 7363 TH~EE DC
7364
16
i' A v
7305
~ICROPROGRAM 0 7306
··························$$$$$*
I
· SUBROUTINE DO
***************$*·**********************:
·!
.;.I
·····················~·········· 77330078 ·
?309 II<
7310 ·
* *·' i. 7311 ·
THIS S\JBROUTINE EXECUTES THE MICROPROGRAM '1.T TtlE LOCATION IN
.~
MIARe 08...AYS 516 CYCLES ANO THEN STO?S THE MICROPROGAAMe A SE~SE CF CONTRCL STORAGE IS THEN DONE ANO T~E INFORMATION IN
1111
CONTROL STORAGE IS COMPARED FOR T~E EXPECTED VALUEe IF IN-
7312 7313 &
CORRECTe ~ HALT CCCURS AND THE E)(PECTEO ANO ACTUAL DATA ARE
7314 ·
~INTEO OUTo
* 77331165 ·
7317 ·
7318 ·
7?3~1290
.ti:
"'
IF MORE THAN 518 CYCLES OF OEl..AY ARE NEEDED. ENTER HEX· CJ§' DELAYS IN STG. LOC· 'LPCNT" e
B
DOMICR
oc
Xo..18 10·
BRANCH TO S\JBROl.ITINE
JD = HALT cooe. EHTRY 1
3.'*1!1 flt
·i C)
·\
7321 · 7322 · 73Z3 ·
DC
.lQ...2·HHHH t
HHHH = EXPECTED DATA· ENTRY 1
IF PROGRAM IS TO eE fruN FROM STG 2o BR~~CH TO 9 00Mlc2·
e lll1
·:
*1
DATE
07.J'JL75
EC NO· 825023
25CCT75 62 f032
?324 e
INSTEAD· ALL. CiHER PARAMETERS ARE THE SAMEe
·I
e 7325
!o 7326
·
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
~·····················1\
PAOG ID PAGE
08''.H-2 1
OATE
eo VEC NOo
07.IUL75 825023
25CCT75
62 C032
PART NCe l=IAGE
4234255 60A
e STORE ARR .SET TO RUN MICRO FROM STG 2
9 ..IUMP TO MAIN ROUTINE eSTORE ARR oSET TO RUN MICRO FROM STG 1
e STORE XA1 ePO!NT XRl TO P~RANETERS eSTORE HALT CODE .STORE EXPECTED OATA
eSTART MlCROCONTROLLER eDELAY 518 CYCLES
.CHECK LOOP COLIN"I" FOR ZERO
~STOP M1CRC CONTROLLER Ir SO ~su~TRACT ONE F~O~ LOOP ~ .~~· eGO ~ACK TO DELAY AGAIN
·STOP MI CRC CCl'il RCLLE'FI
e SENSE CONTROI_ STORE CONTENTS eCOMPA~E TO EXPECTED VAl.UES eBRANCH IF OKAV
eGO TO STATUS ROUTINE oPA!NT EXP/ACTUAL DATA & ~SG .DESIRED ~ALT CODE ,.EXPECTED DATA
·UPDATE RETURN ADDRESS eRESET THE BYPASS ERA~ STOP S["f
AND THE OVPASS PRINT/STOP SIT .RESTORE XRJ, ~RETURN TO USER
.LOOP COUNTER (NORMAU...Y ZERO> .. coNS"fANT THREE
PAOG 10 PAGE
· · · · · · · · · · · · · · ··· · · · · · · · · · · · · · · · · ·
·
·············· ·········
IBM MAINTENANCE OIAGNCSTIC PROGRAM
PART NO., PAGE
4234255 61
IBM MAINTENANCE DIAGNtSTIC PROGRAM
6912
0 I SPL l<Y A CAPT IR TEST
8912
OJ: SPLAY ADAPT EA TEST
EAR LOC OBJECT COOF.
5567 34 08 5668 5566 3'11 01 56~3 556F 34 02 5c6?
5573 34" 04 5660 5577 35 04 56E7
5578 35 01 5666
557F 1C 00 566E 00 5584 02 01 01 5567 34 0), 5666
5586 OC 01 5679 56E7 5591 38 BO 566E 5595 F2 10 ZO 5598 OE 01 5679 56E9
559E 38 40 566E SSA 2 F 2 l 0 13
55A5 OE 01 5679 56f9 SSAB 38 20 566E E5AF F2 10 06 55B2 OE Ol 5679 56 E9 5598 38 08 566E 55BC CO 90 55E2 SSCO OE 01 5679 56 f""i
'"'SC6 38 04 566E 55CA CO 10 55E2 55CE OE Gl 5679 56 f4 f5So4 36 02: 'S66E
5508 CO 10 55E2 550C OE 01 l567'il 561'4 5SE2 OC 01 5620 56#5 55E6 CO 87 021 A 55EC Ol ssEO OA 5!5EE 56FE
SSFC OC 59 5606 56[7 55F6 CO 87 021E 55FA 02
SSFB '5679
55FO 5670 SSFF OC 01 5700 56 19 5605 OE 01 5700 57<0 St.OB CO 87 021E St.OF 04: 5~)10 5700 5612 5683
ADOR STMT SOURCE STATEMENT
.. 7366 ··@~** *·***········~
7367 * SU6ROUTINE ROSDCS "'*'***********"">i4:d<$$:t·'*****·***********·******"'****** * 7366 **********·****~*****
* * 7369 PURPOSE OF SUBROUTI~E: TO DVMP 2~6 WORDS OF' SPECIFIED FSO
* 7370
* 7371
I..! NKAGE g
RO!!:OCS
7372 "'
XL 1 ·xx·
of'LAG BYTE
7373 ..
7374 ·
7375 ~
* '1'376 * 7377
7378 · 7379 · 7380 $
* 7381 "'
7:!82 7383 ~
Bi T 0 SIT
FSQ 1 COUN1 INITIALIZATION FSQ 2 COUNT INITIALIZATION
BIT 2
FSO 3 COU~T INITIALIZATION
BIT 3
Fsa 4 COL11'-;T INITIALIZATION
B ITS-ti-5-6-7
1-x-x-x 2NC~3RD. OR 4TH FET INITIZ·N
1-1-0-0 2ND FET INiTJALIZAT!ON
1-0-l-o 3RC FEy IkITIALIZATION
1-0-D-1 ATH FE1 JNJTIAL!ZATION
*
\_ ¢
7384 $~·····*·****$$~·---$~····*··$·········-~···*···*·········6***~··*$···*
7385
7385
73ac R osoc s ST
7387
ST
7388
ST
7389
S'T'
Fl050RB+3·ARR f<05CX 1 +:h ~Fl!
R0!50X.2+3 ·XR2 R050PS.PS~
,.STORE XRl · XR2,, PSfh AR~ & GET THE FLAG BYTE~
7390
L
l'<OSZERoPSR
7391
L
R050RB+:3·X~l
1"392 7393
7394 7395
MVC
LA
si·
Rc50FL~0( 1.x.i;:1 i l ( oXRl S wXRl R05DRE+3.XR1
·TRANSFER THE FLAG BYTE elNCREMENT TO RETURN ADDRESS .STORE RETURN AD~Aess
7396
~vc
7397
TBN
7396
.IT
7399 7400
ALC
T8N
7401 7402
.JT ALC
'i'403
"t6N
7404
.JT
7405
ALC
7406 IR05Dlq TBN
7407
BF
7408
ALC
7409
"'i'BN
7410
BT
7411
ALC
7412
T6N
'7413
BT
7A%4
ALC
7415 R051:)KC!I MVC
7416
e
55EC "1"417
DC
SSED 7418
DC
55EF 7419
DC
7420
R050~!oR05Z~R(2J
R050Ft.· x ·eo·
R05Dll'.! R050WlwR05100(2J ROSOFLw X 9 40° FiOSOKl
R0501f! wRC5lOOC 2)
A050FL~X.·i20·
ROSO>i(l
R050Wl.RC5lOOi2l RosDFL9x·os·
R050K~
R05DW lo X0400( 2)
RO'>DFLox·o4·
RC50K9 FIOSObt 1 o X0~00(2 J
Ao50FL.x·o2·
ROSDK~
R05DW1 .X0400(2J R050UP.R050AS PRINT Xl...1. 01 ·
tL1·1oe "'L2(RCSHC6J
~MovE IN ADCRESS ~OR FSQ
.FSO l DUfolP?
IF VES 0 EXIT. .MOVE IN ADDRESS FOR FSQ 2
.FSQ Z PUMP? IF YES~ EXIT,,
-~ovE IN ADDRESS FOR FSQ 3
· FSQ 3 DUMP?
IF YES · EX IT · ·MOVE JN ADDRESS FOi'~ !"'$0 4
BEYOND l ST FET?
SR IF NITT BF.YONO
JNCA FOR 1SY AOD~cF
2NC FET?
BR IF 2ND FET
2NO
FET
INCR !=OR 1s1· A0000F :SRO f-"ET :SRC'' FET?
BA ! f~ 3RD FET
INCSI. FOR l ""'T AOD.OF 4T11-: FET
"MOVE IN ST .ciRT OF OUMP ADDRESS
.GO PRi,Nl HEADING
7421 FIO 501< 2 MY C
7422
5
55FA 7423
DC
SSFC 7424
cc
5~E 7425
DC
7426
MVC
7427
ALC
7428
8
56CF 7429
DC
5611 7430
oc
5613 '7431
DC
7432
R05P02·ACeP OJ( 90) UNPACK tL 1 · 02t AJ..2(A050W1) AL2(R05P01J R050WK(2).ROSDW1
R05DWK(2)~A050WK
UNPACK
11.1·02· AL.2 ( ROSDWK) Al,..2(R05PQl0
.. CLEAR PRINT FlELD
.UNPACK <::ONTROL STORE ADDRESS
(
'"
(
.MOVE MJAR AODRe TO MBAA WK SP. \
.CONVERT TO MBAR ADDRESS
.. GO UNPACK 1'4SAR ADDRESS
(
ERR LOC OBJECT COOE
ADOR STMT SOt.RCE STATEMENT
561.1.\ 561E S6lf' 5621
5623 5629 562F
seo3s
5639 5630 563E 563F
5641 5647 5640 5653
5657 56.56 56SC
5660 5664
5666 566C 51'56c 566F 5670> 56 72
5('1,.74 5C716 5~7a 567A 567E 56 84 568C 5694 569C 56A~ 56A~ ~684
~6BC
56C'< 56CC 5604 5607 56D6 560A 56DC 560E 56EO 56E2 56E4 56E6 5oE8 S6E9 56EA 56EB 56EO 56EF 56FI
CO 87 02 0000 5606
021E
Of' 01 5~20 5fHo
OF 01 5622 56f0
00 01 5622 56 tC
co (n sc.1 .I\
co 87'
01 50 5606
021.0.
OE 01 5679 56f.A
OE 01 5620 56 f2.
oo 01 5620 56Tl
CO O~ 55FC!
CO 67 021 A 16 35 04 t 736 c2 01 0000 C2 02 0000
co 87 0000
0000
oo
1 C
0000
0000
5720
S90<:i 0000
ocoooooo
000000000000 4 0404 040ltQ404 C40 4040·04040404(40 4040404040404C40 4040404040404(40 40·0404040404(40 4040404040404(40
4040404040404 40 4040404040404(40 4 0404040404-04 (40 4040404040404 (4Q 404040 40 0001
OOFF OlFF 02FF 03FF 07FF OBFF
0000
01
00 10 5687 5606 0005
0040
5151E 5620 5622
5630 563E
5640
!5658
566D 566E 566F se11 5613
5675 5677 5679 se10 5683 5606
5607 SED9 5606 5600 56DF 56El 56E3 56E5 56E7 56E8 56E9 56EA
S~EC
56EE 56FO 56F2
7433
74.34
1·~35
·74315 7437 743S
7439 7J.l.40 7¢41 7442 7443 7444 7445 7446 7447
7446
7449 7450
7~51
7452 7453 7454 7455 7456 7457
7458 7459 746 0 746! 7462 7463 7464 7465 7466 1'·!>66 74n6 71;.67 741f>B 7469 7470 7471
·p4 72
7472
7472 741'"2 74i'2 7472 7'472 74"'1'.2 7472 74·72 ?472 7473 7474 7475 7476 ?477 7478 7479 7480 7481 7482 7483 7484 7465 7486 7487 7488
RQ5UNP R050uP ROSPX
R050X1 R05DX2 ROSO RS R05D?S RQ50FL R05SFI
Ro~sIN R05~01
R050AS R05i:;AE ~osow1 RD5POl 1'<05POX i><:05P02
RCSP03 XOOOl XOOFF XOlFF XO::F'F
XO~FF
X07FF
XOBFF ROSZER R050NE ~05100 R05010 R 05PA S ROSPAO X0005 X0040
MVC
13 DC DC DC
SLC SLC CLC BNL
a
DC
DC
oc
Al.C
ALC CLC
EINH
6 DC L LA LA 6 DC OC DC
oc
DC
DC tK oc DC OC 0(
OC DC DC DC DC DC DC
DC OC DC DC DC
DC
~C
DC DC
Fl05PX (2) eR05PAD
UNFACK ILl ·02· Al..2( $-$) Al.2 CR05P02 J
1<osouP< 2,. xooo2
f.l05PX (2 J .X0005 ROSPX(2)of.IOSPAS
fi.05llNP
PRINT xt.1·01· IL! ·93·
Al.2(R05P02~
ROSO~l~P.05010(2)
x ~050uP. 0040( 2)
!<05DUP. R05CAE(2)
R05DK2
Fl'iINr XLl 8 165 A05SPS.PSR *-·.XRl ·-··XR,2:
*-*
XL2· O· XL.l"O· XLl '' 10·
xa..ze o·
~.::·o·
itl!.2CROS~ 1E·~3~)
AL2Uii05''1llE)
;a..z·o·
XL4' 0 · XL6 · 0'
83XLl·~o~
>§... 1 8 40 ~ XL2'0001 · X4..2 · OOFF · XL2e01FF" XL2 9 02FF· XL2'03FF · XL2 9 07FF· Xl.2· OBFF· JQ..2 1 0000. Xi.1"01G l<t.1 '00 e
XLl·to· AL2(AOSPC1+1 OJ
Al.2(R05P 02)
xa..2 1 0005·
XL..2· 0040·
D"'TE
07.IUL 75
EC NO. 825()23
2SCCT71!5 82 S032
15.JAN'J~
825034
PROCO 10
PA Ge
c~· 0891-2' _,!DATE
t;:/C I
61
i
NO.
I
I
io
07JUL7S 825023
2S<CT15 82 f03;>
15JAN76 825034
I
I()
· · · · · · · · · PART NOe PAGE
·INSERT START ACDRESS ~UNPACK 16 WOROS OF CONTROL STOA
eUPOATE UNPACK SOURCE AODAe .UPDATE UNP~CK OESTINATION AOORe ·TEST FOR E~O OF LINE .UNPACK AGAIN IF NOT ~PRINT 16 WCRDS OF CCNT~OL STORE
.INCREMENT cs ADDRESS ev 16 ~JNCAEMENT DUMP AREA oAT END OF DUMP AREA?
IF NCTe GO DUM~ NEXT 16 WOROSq
~sPACE 6 LINES AFTER PRINT oRESTORE XRl ~ XR2,, & PSA
eRETURN TO ROUTINE
·START OF OUMP AOORESS 0 END OF 0011.P ADDfiESS
-------------------··-
... .... 0 0 0 0 .. -0001.. -0100..... 010110-
PROG 10 PAGE
IBM MAINTENANCE OIAGNCSTIC PROGAAH
PART NOe PAGE
4234255 62
tBM MAlNTENAN~E DIAGNt~TlC PROGRAM
PART HOe
PAGE
8912
DI !:PLAY ADAPT lR TEST
8912
DISPLAY ADAPTER TEST
ERR LOC oa~ECT COOE
ADDR STMT SOl.RCE STATEMENT
ERR ~oc OB~ECT COOE
AOOR STMT SOUlCE STATEMENT
56F3 0400
56F4 7489 X0400 DC
56F5 l)4C9C1D9404004':2 56FE 7490 AOSHDG DC
56FD Cl 09
56FF 0000
7490 5700 7491 ROSDWK DC 5701 7492 RO!:lf1B EQU
5701
5900 7493 R05!11E OS 7494
7495
OAOB 7496 DPTDEF EQU
0001 7497 STG2
EQU
llQ..2·0400.
CLtO·MIAR
&MBAR ADDRESS WORK SPACE
,,.."
I t.!...- .
1'554 ...
* 7555
* T556 * 7557 * 7558
1559 · 7560 ·
* 7561 ** 77556623
* 7564
ENTER PROGRAM or- LESS THAN 256 INSTRUCTIONS·*
EXAMPLE USING ONLY THE FLAG BYTES:
*
1-st ENTRY: FLAG = DC x1..1 ·93·
·
2-NO EN~Y~ FLAG : DC XLl 1 AC·
*
& ENTER PROGRAM BETWEEN 256-512 INSTRUCTIONS*
EXAMPLE USING ONLY THE FLAG BYTES:
*
1-ST ENTRY: FLAC-
DC XL1 1 92·
·
2-ND ENTAY: FLAG :a DC Xl...1 9 Ae"
* ·
5* NOTE - 1K BLOCK SVTE AND FLAG BIT 2 MUST EITHER
*
B0Tt-? BE PRESENT OR BOTH ABSENT..
*
7496
* 7565
1 K BLOCK BYTE
"'
5901 0906E4E340!"74 (0.3 5917 7499 Rl5ST oc
CLz3·RWT 7 llO;SNS MC STORE"
5909 C90()61E205E24 C04
7499
591 'l C340EZE3D6C9Cf
7499 7500
···········*********.****·*********$**~$*$*********~·~*··~$**·······*·*'
* 7566 * 7567
BIT 0 FLAG SiTS 4,.5.fui' APPLY 10
*
""
7568 Ill 7569 it
4TH l
FLAG
K BLO
BITS
CK ALSO
4.5.6~7
·
A
P
PLY
lO
* *
* 750l
SUBROUTINE LOA DC!!
Ill<·
7510 ·
3RO 1 K !$LOCK ALS04
Ill>
77550023 ·*·······LO··A·D·S··C·O·N·T·R·O·L··S·T·C·~·E······*········*·············$·~~····*···~···*.
* 7504
7505 ·
L iNKAGE TC SUBR!JU1" INE: B LOA DC S
~*, '
7506 11!
DC
XLl ~xx'
FLAG i;YTE
~·
751'1 11<
2 FLAG BITS 4,,5.6,,1" APPLY 1C
II!'
7572 Iii: 7573 .;:
2ND 11< BLOO<. AL.SO., 3-7 f<ESERVED
* *
7571,. "''*'"':!<**>l>··**"'""'"*******"'*********"""'il'*"'**"'***'**""'*"'**"'**'~'· '~''**~'~""''"'"'*"'*******
7507 $
1· DC
AL2(XXXXXX» BEG1NN!NG AOOR $
7575
7508 *
7509 ·
7510 ·
* 7511
7!HZ li>
7513 ·
FLAG BYTE:
l* OC AL2(XXXXXX) END ADDRESS
*
S· DC )(Li ·xx.
i.r.: BLOCK BYTE ·
*
EllT 4,,3* 0
LOAO PRCGRAM INTO CON1"RCL STCP-E ON A 256
BOUND RY
s91 e 34 02 S?Fc 591C 34 oe SAOO
5920 35 02 5AOO
5924 2C 04 5AC7 04
5929 C2 02 599F
599F
7575 .,576 ?'577 757S
7579 7560 7561
LOAOCS
USING ST
ST
L
LIOCs.xR2 SAVXR~9XR2 SAVARR~ARR
SAVARR~XR2 EADORe4 (5,XR2}
LIOCSe XR2
.SAVE THE CONTENlS OF XRl & XR2 ~sAvE ADDRESS OF NEXT SEQ INSTR &
LOAD iT INTO XR2 eENTER LOADING FLAGo BAOOR· & EADDR
.SET XR2 AS INDEXING POiNTER
7514 ., 7'S15 t1i 7516 $ 7511' 1\1< l'5l9 ~ 7519 · 7520 ii;< 7521 ... 7!522,..
USE lK BLOC!\: SYTE
3.l:'Jr.;i;; 11! I LL Ntl"r BE DIS ABUi:C UPON EN"IRY THE (~ONTPCIL STORE LOADl' Mi RCUi ~ ~E
32XJ;< W1Ll. NOT SE DISABLED t1~01~ !::lt.lT FROM THE CONTROL STORE l.OAOJ. NG f<C~!TI NE
"' F !LL. 4-TI'< 256 Bt.ClC4{ wITH acs 0 HJN Al'.H::RESS ~
5920 S4 ca 59
5930 ~E 01 6l ¢C 5934 68 80 6~ 5937 !F2 90 OF 593~ AE 01 61 72
593E as 01 66
5941 AF 01 68 66
5~45 AE 01 68 6C
758.2 758.3
758~"
7585
7586 7567 7588 75e9"" 1'590
.SF
AL 1~.
L
SLC
SAVXR1{.XR2!.XRl
.SAVARIHeXR2hWUN(Z«XR2) e:UllCR RET AC:DR TO 6"(PASS FLAG BVTE
LFLffe.G( .xR2~ ,,x·so·
.,IF JOROG~Al-1: ls TO SE LOADED !NTO c.,s~
7STS2
JNCRE.t<IENT RETURN POlNTER & DETERMINE
SAVAl'h.( ,XR.:2) 0 FQUR(2. 9 Xl'<2)
fl OF BYTES TO "fi<ANSc=IEGl!~tF NOTe
SADOR{~XR2)·XR1
BYPASS 'tlilS AREA
EAODIH.XR2) ~ SAODR(2~XR2) ..oETERMINE NUrJ!e;ER OF DATA av-res
TO BE ENTERED INTO CONTROL S1"0RE &
El<DOIH.,XR2)~W0Nt2·X~2) CHECK TO SEE If AN EVEN NUMBCR OF
-----------~--~
1'523 "'
7524 ·
TS.25 ~
7526 · 7527 · 7528.
?529 "' 7530. '?'531 .. 7532 · 7533 It!
°' 7534 "'
7535 7536 · 7537 $ 7536 ... 7539 $ 7540 · 7541 · 7542 · 7543 · '1'544 Iii
7545 · TS46 If<
?547"" 7'548 ....
* 1'549
7550 · 7551 ·
l'552 '°'
7553 ·
( If' PRE SENT)
·
5
FILL 3-i:iO 256 BLOCK wnt-i BOS 0 {ON ADDRESS)*
(IF Pl<!ESENT>
*
FILL 2-NO 256 ~OCK 111I'TH BOS 0 {ON ADDRESS)"'
(ff PRESENT)
"' (
FILl. J-ST 256 Bl.OCK 11;I TH BCS 0 lON AODRESS)··
1* N0'1'E 2* NOTE -
*i (
THESE. PARAIE TERS llliUST BE ABSENT IF f'U:;G
err 0 IS OFF
*
c **:
JF A BLOCK OF CONTROL "'TtRE. IS TO BE FILLED "";
Ii l"iH SOS 0 · THE PREVIOUS BLOCK OF 256 MUST
il<LSO BE FILLED· [ ~ E .. kC GAPS IN l>Ol:lRESS HIG
1
C 1·1<~i
IF A PRQGRA~ rs TO ee LO~OED STARTING AT
~
THE BEG[NN&NG OF A 256 BLOCK <-oo- SCUNDR~~ ~
JI.NO THE REST OF 'fHAi BLOCK 15 TO OE LOADED '4'.
tlllTH BOS 0" THE. APPROPRI ~TE BIT 4-7
BE TuRNED ON .. IF MORE Cct.TROL STORE
FILLED w ITH eos o. SEE 2· NOTE..
. StiO\..ll..O oii
ts TO ae·: 11>; :
'* FLAG Bl TS 2&3 IN CONJUN1'.: T:l:ON '1'11 'rH ex T 0 CAN
BE usEO TO LOAD CONTROL STORE ONE 256 BLOCK ·.
~TA TIME IN SEQUENTIAL CROE~·
E)i,t,NPLE uSING ONLY THE FLAG BYTE$:/
,., (.;
1-&T ENTRY: FLAG DC X~1 6 91 8
2-NO ENTRY: FLAG DC XLPS2° 3-RC ENTRV: FLAG DC xi..1'64·
·.
4-TH E"!'tRY: FLAG OC XLl g AS·
5949 3C 00 5A4:l
5940 ee 1oo 64
5950 CO 90 59E4 5954 OC 01 59SF 5AC.O 595A 0C 00 5A40 S9fA 5960 AE 01 61 6C
59&4 es 20 64
S967 F .2 10 OA 596A F3 58 80 5960 F3 58 CO 5970 AC 01 63 66
59?'1 3e 40 ozoa
5978 F2 90 14 5976 38 O! 020A 59"YF F2 90 00 ~982 80 00 69 OA03 5987 F2 61 51 596111 8C ,:10 69 OA03
~98F 89 60 64 5992 1""2 90 04
5995 co 87 5036
5999 ea ao 64
599C FZ 90 11
599F 7i 58 01 59A2 02 01 02 59A5 AE 01 6~ 6C
7591
7592 TSTS2 MVI
7593
TBN
?594
BF
7595
MVC
7596 GEt.\ K8 M\l'C
7597
ALC
7'598 SKIPiK TBN
7599
JT
7600 t_CSOI~ SIO
7601 iLCSENA SiO
7o02
MVC
7603 7604 TSTSS~ TBN
7605
JF
7606
TSN
7607
.;F
7608 7609
CLC .JE
7610
MVC
761 :\.
7612: TSTRST i'BF
7613 7614 7615 TSTSO
..IF
e
T8N
7616
.JF
7617 7618 LIOC S 7619
LI 0 LA
7620
ALC
STGlK·)!· cc·
ZERO OUT STGlK FLAG
LFLAG(oXAii.x·40@
SK! Pl It
GETlKB+5(2)·SAVARR
S1"GtK(1J.,·
SAVARR(·XR2)e~UN(2·XR2)
LFLAG(.xR2>.x·20·
C:HECt< IF ATTo!S TO BE DISABLED
TSTSS\!i
ENABLED ON ENTRY INTO LOAD RlN·
x· so· .. st 01
x·co·sSIOl
IF YESe CISABLE ATTCHMENT ENABLE ATTCH· RESE~ CONTR ST ·O
CS·ORD(eXR2S.xsooo<2.xR2J COUNT TO ZERO· lF NOT· SVPASS.
S8"'Te0o X ·4!!P
TSTRST SBVTE2.ss·11
"TSl'RST CSLD(1$XR2).PRTN
!ENOFIL CSLDt lfi:(1'2) ePRTN
oTEST SSlllOl (LOOP RCIJHfl,f:;il ON .,JUMP JF WOT
· TE ST SS 111 1? ON ....JL"MP IF NOT
.TEST c.s. LCADeD FQA ROUTINE
...SUMP IF CONT" STG,, U)Al)EO
eMCVE IN THIS RTN · N!J.,
U'"li..iu:;; ( .x l<2 >.x · 60 ·
TSTEllO
LOOP
.x"' > 11..FLAG { 1' XRa
ao·
FIL.LC:!:>
..TEST Fl. AG BYTE
.ooN·T LOAD OP OEC lF E!THEA nN
.GO LOAD OP DECODE REGS
olF NO PROGRAM TO SE LOADED GO ANC
Flt..L CONTROL STORE ·ITH eos 0
u ~xRU ,,CTSTOR
.LOAD TWU aYTES OF CONTROt.. STORE
2(aXAl)wXR1
.INCREMENT POINTER TO NEXT CS WOAD
cswoRO(,XR2>.WUN(2@~R2t .1NCR COUNTER TO NEXT cs WORD
OATE
07JUL 75
EC NO<> 8250Z3
25LCT75 82 ;032
15.JAN76 825034
PROG 10 PAGE
i ()
0891-2 1
DATE
62 I (;EC NO.
O?JUl.,.75 825023
25 (CT75 82 Ul~2
l S.IAN76 1n5034
PROG IC PAGE
· · · ·- ·-·-·
·--·--·- ·
· · · · · · · · ·
··············· ··········
IBM MAINTENANCE OIAGNCSTIC PROGRAM
8912
DISPLAY ADAPT iR TEST
PART NO. PAGE
4234255
IBM MAINTENAN("E OIAGNCSTIC PROGRAM
63 ~'·
8912
DISPLAY ADAPTER TEST
PART NO. PAGE
4234255 6!A
ERR LOC OBJECT CODE
ADDA ST NT SOURCE STATEMENT
ERR LDC OBJECT CODE
AOOR STMT SOURCE STATEMENT
59A9 AF 01 68 6F
59AD eo 01 oo
7621 7622 7623
SLC BNZ
EAODR(,XR2)·T~OC2eXR2) .DECREMENT DATA BYTE COVNTEReIF ALL
L IOCS(eXR.2 J
DATA NOT TRANSFERRED. REPEAT.
5960 AO 01 63 6E 5984 F2 02 97 5987 88 01 64
59BA EO 90 3C
5980 co 87 59C1
7624 FIU.CS CLC
7625
JNL
7626
TBN
7627
BF
7628
e
CSWORDCeXR2)1XS100(2,XR2) ·LESS THAN 256 ~OROS IN CS?
BL0CK2
IF NOT, GO TO NEXT CHECKe
LFLAG<exf;2JeX·!l1 1
$IS ·FILL TO END OF 1-ST BLOCK· FLAG
ENDFIL(eXR2J
ON? IF NOT, BYPASS FILLe
FILLFF
7629
7630
59Cl OC 0 I 5A4C SA C2 59C7 38 OC 5448 59CB 81 58 AO , 59C! AE Ot 63 6C 5902 89 FF 63 5905 EO 90 22 5908 EO 87 11
7631 FJU..FF MVC
7632
SBF
7633
LIO
7634
ALC
763!5
TBF
7636
BF
7637
B
BOSADR(2)eCSWORD ecSADR-1 .x · oc· BOSAOR(oXR2)eCTSTOR CSWORD(,XR2)eWUN(2·XR2) CSWORD(eXR.21oX·FF·
FlLLFF( · XA2l FILLCS(eXR2>
·LOAD CTRL STORE WITH BOS 0 (ON ADDRESS) TO A 256 BLOCK BOUNDRY·
! {
5908 BS 10 64
59DE F2 10 OA S9El F3 58 BO
59£4 F3 58 CO
59E7 AC 01 63 6B
7638 7639 7640 7641
7642
7643
7644
ENOF IL
TBN
.IT SJO
sto
MVC
LFLAG(eXR2J.X·tO·
.CHECK IF ATTACH. IS TO SE OlSABLEO/
RESTR
x·so·~s101
x·co· ,SIOI
ENABLED UPON EXIT FROM THE LOADER.
Ir ves. D!SAB/ENAB ATTACH. & RESET
THE CONTROL STORE WORD COUNT. IF
CSWORD(1XR21.xsooo<2.xR2J NOT. REsTORE XR1 & XR2.
59EB 38 01 020A 59EF F2 10 03 59F2 BC 00 69 s9F~ c2 01 0000 59F9 C2 02 0000 59FD CO 87 0000
7645 RESTR Tl:lN
7646
.IT
7647
NVI
7648 RESTOR LA
7649
LA
7650 AETSR B
7651
7651
SBVTE2.ssw17
RES TOR CSL DC · XA 2 J · 0
·-··-· eXRl
._·· XR2
eTEST SSW 17 ON
.,SKIP NEXT INS'tAUCT ION IF SO
eCLEAR CONT· STGc LOADED FLAG
.RESTORE XRl·XR2e & AND RETURN TO
(_
CALLING ROUTINEe
(
7651
7652 ·····································
7653 * PROGRAM DEFINITIONS ANO CONSTANTS ***********************************
7654 $ ····································
SA01 5000
'5A03 00 5A04 0000
5A06 0000 5A08 00
7655
7655
5A0.2 7656 CSWORO DC 5A03 7657 LFLAG DC 5A05 7658 BAOOR DC SAO? 7659 E'OOR DC SA oe 766C c SU> DC
7661
XLl·O·
XL.2·0° XL2·0·
(
c
THESE ~UST BE TOGETHER oCONTROL. STORE LOADED FLAG
7661
5A09 5000
5AOA 7662 X!SOOO DC
SAOB 01
5AOB 7663 WUN
DC
5AOC 5100
SAOo 7664 X5100 DC
SAOE 02
5AOE 7665 TWO
DC
5AOF 5200
5A10 7666 XS200 DC
SAil 04
5All 7667 FOOR DC
5A12 5300
SAl 3 7666 X5:!00 DC
5Al4 5400 5A16 5500
5Al 5 7669 X540 0 DC 5Al 7 7670 X51500 DC
5Al8 5600
5Al9 7671 x!SEOO DC
SAIA 5700
s.uB 7672 xs7oo DC
51.IC 5800
sAlD 7673 xseoo DC
5A1E 5900
!SAIF 7674 X5SOO DC
5A20 SAOO
5A22 seoo
5A21 7675 XSAOO DC 5"23 76·76 xseoo DC
5A24 SCOO
SA25 7677 XSCOO DC
5A26 5000
5A27 7678 XSDOO DC
5A28 5EOO
5A29 7679 X5EOO DC
SA2A t5FOO
5A2B 7680 X5Foo DC
5A2C 6000
5A20 7681 X6 00 0 DC
5A2E D906E4E340E7E 140 5A!8 7682 MICOP OC
5A36 E7E7E7
?682
SA 39 4 004C 9C 30 9064 C06 5A46 7683 MICPA· DC
xL2· sooo·
XLl·01·
x·~ooo·
x·ooo1·
XL2·s1ooe XL1'02·
x·s100·
x·ooo2°
>CL2· 5200· x1..1·04·
x·s200·
x·ooo··
>CL2 1 5300.
x·s300·
XL2·5400·
xt.:2· ssoo·
XL2·5600 1
lL2· S?OOe
xt.2 1 15800'
JU..2·6900·
XL2·5AOO ·
XL2·5600·
JCL.2· 5COO·
xt.2·scoo ·
XL2·6EOO·
Xl.2 1 SFoq·
~2 1 6000·
CLU·AOUT xx xxx·
\f'l
II THESE MUST SE TOGETHER
c
:I
(;
r
\.. ·'
5A41 D740E3C5E2E3
5A4 7 lE 04 7900
5A4-6 0000 5A40 00
SA4E AD 01 63 71 5A52 F2 02 OA
SASS es 02 64 SASS EO 90 3C 5A5B CO 87 59C1
5A5F AD 01 63 74 5A63 F2 02 OA 5A66 88 04 64 5A69 eo 90 3c 51l6C CO 87 59C1
SATO AD 01 63 76 5A74 F2 02 04 5A77 88 08 64
s~7A eo 90 3c
5A70 CO 87 59Cl
SA 81 38 20 5A40 Si\85 CO 90 5A01 5A89 AD 01 63 78 5A80 F2 Oi OB SA9o ea 01 o4 5A93 CO 90 5906 5A97 CO 87 !59Cl
5A9B AD 01 63 7A !!SA9F F2 02 08
5AA2 ea 02 64 SAAS CO 90 5908 5AA9 CO 87 59C l
SAAD AO 01 63 7C
5AB1 F2 02 OB
SAB4 Be 04 64 S A87 CO 90 59DB SABB CO 87 59Cl
SABF AO 01 63 7E !:AC3 F2 02 06
5AC6 ea oa 64
5AC9 CO 90 59CB
SACO CO 87 59C1
5A01 38 40 !SA40 5A05 CO 90 5821 5AD9 AD 01 63 80 SM>O F2 02 OB
SAEO ee 01 64
t5AE3 CO 90 5908 SAE7 CO 87 59<: 1
SAE8 AD 01 63 ez
SAEF F2 02 OB 5AF2 88 02 64 SAFS CO 90 5908 SllF9 CO 87 59Cl
5AFO AO 01 63 84 $801 F2 02 OB
7683 5A4A 7684 INSWR ~C
* 7685
5A4C 7686 BOSAOR OC
SA40 7687 STGJ, K CC
7686
7688
7688
7689 SLOCK2 CLC
7690 7691 7692 7693
.JNL TBN BF
B
7694
7695 BLOCK3 CLC
7696 7697 7698 7699
.JNL TBN
SF
a
7700
7701 BLClCK4 CLC
7702
.INL
7703
TBN
7:"04
BF
7705
e
7706
7707 BLCCKS TBN
7708
BF
7709 7710
CLC
JNL
7711
TBN
7712
BF
7713
a
7714
771 S 7716 7717 7718 7719 7720
6LOCK.6
CLC
JNL TBN BF B
7721 BLOCK7 CLC
7722
.JNL
7723
TBN
772·
SF
7725
8
?726
7727 BLOCKS CLC
7728 7729 7730
.JNL TBN
BF
7731
B
7732
7733 BLOCK9 TBN
7734
BF
7735
CLC
7736 7737
.INL 'tBN
7738
BF
7739
e
7740
7741 Bt.OKl O CLC
7742
.JNI...
7743
TSN
7744
BF
7745
B
7746
774 7 Bl.QI( 11 CLC 7748
DATE
Ol'.IUL75
EC NO. 8215023
25 CC:Tl'S 82 &>32
PRO«i ID PAGE
o
e
o
i
-2
'
O DATE
63 eEC NO·
07.JUL 75 825023
2SCCT7!5 82:03'*
1!5.JAN76 82$034
XL4 · 1E047900 ·
Xl.2 1 00 1 xL1·00·
.CONSTANT FOR SETT! NG uP INSIDE WRAPS INC LINE SELoi
CSWORO(eXR2>.xs200<2.xR2) .Less THAN 512 WORDS IN CS?
BLOCK3
IF NOTo GO TO NEXT CHEC«e
LFLAGC.xro2>.x·o2·
olS 'FILL TC ENO OF 2-ND BLOCK' FLAG
ENDFIL( · XA2) FILLFF
ON? IF NQTe BYPASS FILL·
CSWORDCeXR2>·X5SOOC21XR2) oLESS THAN 768 WOADS IN CS?
El..00:4
!F NOTe GO TO NEXT CHECKe
LFLAG( ,x1<2> eX 1 04 1
olS 'FILL TO ENC OF 3-RD BLOCK· FLAG
ENDFIL(eXR2) FILL FF
ON? IF NOTt BYPASS FILL.
CSWORDC.XR2)eX540012eXR2> .LESS THAN 1024 WORDS IN CS7
BLOCKS
IF NOTo TERMINATE LOADING.
LFt.AGC1XR2hX·08·
coJS ·FILL TC! END OF 4-TH BLOCK' FLAG
ENOFIL(eXR2)
QN? IF NOTt BYPASS FILL.
FILL.FF
STG1K.X~20 I
BLOCK9
CSWOROCeXR2).X5500(2oXR2) BLOC1<6 LFLAGl.XR2),X 1 01 1
ENDFIL.
~U.LFF
SHOULD SECOND FET BE LOADED? BR IF NOT
LESS THAN 1280 WDS IN CS? BR IF NOT
IS'FILL TO ENOOF 1ST BLCCK·ON? BR IF NOT
CSWORO(eXA2)·X!5600C2eXR2> LESS THAN 1536 WOS IN CS?
BL.ClCK7
BR IF NOT
LFLAGC.xR2).x·o2·
IS 1 FJLL T~ END OF 2NO ~LOCK·ON?
ENOFIL
BR IF NOT
FILLFF
CSWOROC1XR2)eX5700(2eXR2) LESs THAN 1T92 WDS IN CS?
El...OCKe
BR IF NOT
LFLAGC oXA2) .X 1 04 1
IS 1 FILL TO ENO OF 3RO 9LOCK·ON1
ENDFIL
BR IF NOT
FILL FF
CSWOR0(1XR2>.xsaooc2.xR2) a..ocK9 LFLAG ( ·X S<2) ~x 1 08 1 ENDFIL fl LI.FF
LESS THAN 2048 WDS lN CS? BR IF NOT
IS 1 FILL TO END OF 4TH BLDCK'ON? BR IF NOT
STG1K1x··o·
Bl.OKI! CsWORO(eXR2).X5900(2 9 XR2) ELOKlC
I.FLAG( ·XA2) .x· 01 · ENOFIL FILLFF
SHOULD 3RD BR IF NOT
LE:;iS THAN BA IF NOT
IS·FJLL TC BA IF NOT
FET BE LOADED? 2304 WOS IN CS? END CF 1ST BL00< 5 0N?
CSWOAO(.XRZ>eX5AOOi2·XR2) BLOKll
LFLAG( eXR2 >.x· 02 1 ENDFIL FILLFF
LESS THAN BR IF NOT
IS·FILL TC BR IF NOT
25EO WDS JN cs?
ENO OF 2ND SL0CK 1 0N?
CSWORDCeXR2)1xSBooc2,XR2> LESS THAN 2816 ·os IN CS?
8t..QK12
BR IF NOT
PAOG 10 PAGE
· ·
·~·
IBM MAINTENANC.E DIAGNCST IC PROGRAM
PART NO. PAGE
4234255
18M MAINTENANCE OlAGNCSTIC PROGRAM
64 (.
PAAT NOe PAGE
8912
DlSPLAY ADAPT~ TEST
DISPLAY ADAPT St TEST
ERR LOC O~JECT CODE
ADDR STNT SOI.ACE STATEMENT
ERR LOC OBJECT CODE
5804 88 04 64 5807 CO 90 59CB 5808 CO 87 59Cl
5BOF AD Ol 63 86 5Bl3 F2 02 OB
5El6 es 08 64
5819 Co 90 5908
se10 co 87 59Cl
5821 38 80 SA4D sezs co 90 5908 5829 AD Ol 63 88 5820 F2 02 OB Sf30 88 01 64 5533 co 90 5908
5S37 CO 87 59C 1
5838 AD 01 63 8A SB3F F2 02 OB 5E42 68 02 64 5845 co 90 5908 Sl!49 CO 87 59C1
5840 AD 01 63 8C 5851 F2 02 OB 5854 88 04 64
5057 CO 90 59DB ses~ co 87 59C1
SBSF AD 01 63 8E 5863 co 02 5908
5867 ee oe 64
5 66A CO 90 5908 58'6E CO 87 59Ct
se12 34 oe see4 5876 34 01 50EO
5B7A 35 01 see·
587E OE 01 5BE4 SAU 5884 1C 00 S89C 00 5889 1 C 00 5BD8 00 SBSE lC 02 589A 03
5893 CO 87 021 A
5897 C2
5898 co
5699 0000 5898 S400 5890 IC 00 65F2 00 50A2 OC 00 6SF1 OA '3 SBA.8 C2 01 6511 SBAC 10 01 5894 00 SBBl F2 8l 01
5884 02 01 04
see7 co 87 !5tH·C SBSB lC 01 58C5 02 ssco oc 09 6601 00 co 58C6 Cl SD 621B
5BCA CO BT 6JFE
7749
TBN
7750
BF
7751
e
7752 7753 BLCK12 CLC
7754 7755
.INL TBN
7756
BF
t.FLAG(eXf<2) .x·o4·
ENOFIL F I U.. F F
lS 1 FILL TO END OF 3RO 8LOCK 1 0N? BR IF NOT
CSWORO(eXR2t.xscoo<2.xR2)
BLOKl:S
LFLAG(eXR2>·x·~e·
ENDFIL
LESS THAN
BR IF NOT
IO'FILL TO BR IF NOT
3072 WDS IN CS? ENO QF 4TH BLOCK'ON?
SBCE CO 87 OZl A 5802 96
5BD3 co 87 0222 5601 1400
5BD9 co 87 0216
5800 C2 0 l 0000 5BE1 CO 87 0000
7757 7758 7759 aLCKl 3 7760 7761 7762 7763
7764 7765
B
TBN SF CLC .JNL TBN BF
e
FILLFF
STG1K.,X· eoo
SHOULD 4TH FET 6E LOADED?
ENDFIL
BR IF NOT
CSWOAD( · XR2) · X500 0( 2 · XR2) LESS THAN~328 ~Os lN Cs?
utf")
E!LOK14 LFLAG(eXR2)oX·01·
BR IF NOT lS 1 FILL TC ENO OF lST BLOCK'ON?
ENDFIL
BR IF NOT
FILLFF
58E5 0002
7766 7767 8LCil(14 CLC
CSWCR0(&XR2)eX5E00(2oXR2) LESS THAN 3584 WOS IN CS?
7768 7769 7770 7771
..JNL BLOK15 TBN LFLAG(eXR2>ex·o2·
BF
ENDFIL
FILLFF
BR IF NOT Is·FILL TO ENO CF 2~0 BLOCK'ON?
BR IF NOT
7772 7773 BLOKl 5 7774 7775
7776 7777
CLC JNL TB!\
SF
e
CSWORO(eXR2>·X5F00(2·XR2) LESS THAN 3840 wDS IN CS?
BLCIK16 LFL AG (.,Xf'2) · X ·04 1
ENDFIL
BR IF NOT
: c lS 1 FlLL TO EMO Of= :!RO BLOCK 9 0N?
BR IF NOT
FILLFF
7778 7779 BL0<.16 CLC
CSWORO(sXR!}sX6000(2·XR2) LESS THAN 4096 WDS IN CS?
7780 7781
BNL T8N
ENDFIL LFLAG(eX~2l eX·OSt
BR IF NOT 1s·FILL TO ENO OF 4TH BL0CK 1 rN1
7782
SF
ENOFll..
BR IF NOT
7783
e
FILLFF
:! ( 7764
7785 7786
..................*··········-·············********······**"'***********"'**
·
SUBROUTINE PRINTM
*
· "'.............................,······ -····· ············ ······******* ····· ;
\ ..
7787 :
~~::~~ES~R~~~:;~u~o~s~lL RC~TI~cp!~N~:ovIDE ERROR PRINTOUT.
7788 7789 · 7790 · 7791 ·
DC XLl · 10·
DC XLl I xx·
DC AL2( Mt
* WHERE 10 IS ERROR
c ·HERE xx IS LENGTH ·.1·
\llHERE M l S MSG AOOR
7792 ····..··············***************************·e··********************i
7793 PAINTM ST
PM5+3eARR
·SAVE ARR
7794 7795
7796 7797 Pl
7798 7799
7800 7801 5897 7802 !iB98 7803 589A 7804
ST
L AL.C MVC MVC MYC
a oc
DC DC
fl>t~t +:J,,Xf;l PM5+3eXRl PN5+3 ( 2) .FOVA PM3(1 J eO C·XR1)
P"'"' 1 > .o< ~xRU
Ptt3-2e3(31XRl)
PRINT XLl·C2· 1 L l ' 0 011 >CL.2·0000·
oSA'IE XR I cLOAD HALT CODE PARAMETER AOOR .POINT TO CORRECT RETURN AOOR elNSERT ERROR ID IN PRINTOUT .INSERT ERROR ID INTO EAR HALT .MOVE IN L<-:G111 ANO MESG. AOORo
.PRINT ERROR MESSAGE
.LENGTH FILLED JN .ADDRESS FILLED IN
!o
I
c
1C
5B9C 7805 PM! 7806
7807
7808
7809 LOOK
7810
7811 7812 7813 MF IND 7814 MVLG
7815 Till6
DC
:.tVC
MVC LA CLC JE LA B MVC MVC
TIO
s
xt..2 1 1400'
ERRHLT(1)·0·XRl! EARRTN (l ) · PRTN ICTABLE eXR1
Pii43-2. 0( 2 9 XRU
ffFlND
4C 1 XRU .xRl LOOK trvLG+5o2C2.XR1) i:RRLOG(10i··-· PCHKe ATTCHK El.PO
eMOVE IN ERROR HALT eMOVE JN ROUTINE NOc .INSERT ACORESS OF TABLE oSEARCH TABLE FOR MESSAGE
·..I UMP IF FOUND
el"CREMENT TO NEXT NSG· eGO LOOK AGAIN elNSERT MSGs ADDRe eMCVE IN LOG CUT MSG· .IF ATT. CHKe PRINT TYPES
eGO PRINT ERROR LOG
r * I ~-/
*·
..·*: c
·~
*· (;·
*··
5BE7 34 oe 5C78
5BEB 34 0 l 5C70
5BEF C2 01 5CF4 58F3 F3 58 CO
5BF6 F2 87 OF
5BF9 34 08 5C78 5BFO 34 01 5C70 5C01 CZ 01 5CBE 5C05 F3 58 80
SC oa 34 01 5C3B
scoc 30 48 SC7A 5C10 30 49 SC7C
5Cl4 30 4A 5C7E
5Cl8 30 48 sceo
5ClC 30 4C 5CE2 5C20 30 40 5C84 5C24 30 4E 5Ce6 5C28 30 4F scaa
5C2C CO 87 021A SC30 81 SC31 OC 5C32 5037
5C34 CO 87 021 A 5C38 81 5C39 36
5C3A 5CBE
5C3C C2 01 SCFO 5C40 C2 02 5C79
5C44 3· 01 5C54 5C48 3- 02 sce2 5C4C co 87 021e scso 01 SC51 0000 5C53 0000
scss E2 02 01 scse 70 FF 01 scsa F2 81 07 scsE 02 Ol 03
5C6l Co 87 5C44
5C65 CO 87 021A
ADOR STMT SOURCE STATEMENT
7817
B
5802 7818
DC
7819
B
5808 7820 PM4
DC
7821
B
7822
7623 PXRl LA
7824 PMS
B
PAINT
XL1 1 96° HALT XL2 1 1400' LINK
·SPACE 6
.ERROR HALT
.exn ROUTINE
.RESTORE XRl .RETuRN TO MAIN PROGRAM
7825
5BE6 7826 X0002 DC
>4...2 1 0002"
7827
7828
782'.il
***********************************************************************
* HOBH - HOSL *
*
7830
SUBROUTINE LISTS CONTENTS OF SELECTED HOB'S
7831 ·
7832 ·
* 7833 * 7834
CALL SUBROUTJNE SY -
6
HDBH LISTS HI HOB'S
B
HDBL LlSTS LC HOB'S
· ·
7835 7836
*· ****************************************************~$$$$$···~*·······
7837 7838 HDBH 7839
7~40
7841
7842
ST ST LA s10
J
SARR+31ARR SXR1+3e XR1
MONGA.XR1
x·co· .s101 STHO
.SAVE RETURN ADDRESS
.SAVE XRl .LOAD HI HOB HEADING ADDRESS ·ENABLE ATTACHMENT .GO STORE HEADING ADDRESS
7843 7844 HOEL 7845 7846 7847 7848 STHO
ST ST Lt<.
SlO ST
SARR+3.,ARR
SXR1+3.XR1 HDNGoXRl
xeeo· .. s101
HOADRoXRl
eSAVE RETVR~ AOORESS
eSAVE XRl eLOAD LO ~Ce HEADING ADDRESS
.DISABLE ATTACHMENT ePUT ADDRESS IN PRINT COMMAND
7849 7850 7851 7852 7863 7854
7855 7856
7857
SNS SNS SNS
SNS SNS SNS SNS
SNS
HDhHt:eo
HD2sHOB1
HO~!.HOB2
H04.HD83 H05sHOB4 H06.HD85 ~o7 .. HDe6 H06,.HOB7
STORE ALL 16 Hoa·s
7858
7859
B
5C30 7860
DC
SC31 7861
DC
5C33 7662
OC
7663
B
5C38 7864
OC.
5C39 7865
DC
5C38 7866 HOADR DC
PAINT XL.le eic
11..1 1 12· AL2 (HONGfllA) PRINT XLJ·Sl' IL1·54' M..2CHDNG)
.PRIN1 HD6 8 5 HEADINGS·
7867 7868 7869
LA
HONGB-45eXR1
LA
HDl-JeXR2
eXRl tST HOB POSITION .XR2 : 1ST HOB DATA
7870 7871 AGAlN 7672 7873 5C50 7874 5C52 7875 RY2 SCS4 7676 R'O 7877 7876 7879
7880 7881 7882
ST ST B
DC
DC DC
LA CLI ..IE LA B
RYleXFU
RY2eXR2
UNPACK
>Q..1901' AL2<·-·) AL2C·-·>
l ( eXR2h XR2
1(eXR1)wX·FF·
OOHJS
3( eXR1) oXRl
AGAIN
eST~RE UNP~CK DEST· AOOR .STORE UNPACK SOURCE AODR .Go UNPACK ONc HOB
.SOURCE ADDRESS GETS FILLED IN oDEST· ADDRESS GETS FILLED IN
·INCREMENT DATA ADDRESS .. TEST FOR El\D o.JUMP IF SO eNCT END, INCRo XR1 TO NEXT ADDR ·LOOP
7883 7884 OOHJ 5 8
PRINT
oGD PRINT t!CB·S
OAT£
OT.NL15
Ec NO· 825023
zsccrrs
82f032
PROG ID PAGE
07JUL75 825023
25CCT75 82 t032
15.JAN.,6
825034
PROG ID PAGE
0891-2 64'14
········· ·················
· ·· · · · · · ·· · · · · · · · · · · ·_, · · · · · · · · · · ·
IBM MAINTENANCE OIAGNCSTIC PROGRAM
8912
DISPLAY ADAPT lR TEST.
PART NO. PAGE
4234255 65
IBM MAINTENANCE OIAGNCSTIC PROGRAM
8912
DISPLAY ADAPTER TEST
PART NO. PAGE
ERA LOC OBJECT CODE
ADOR STMT SO\IRCE STATEMENT
ERR l..OC OBJECT CODE
AOOR STMT SO~CE STATEMENT
SC69 86
5C6A 36
SC68 502A 5Ct>O C2 01 0000·
sen c2 02 oao_o
5C75 CO 87 0000
SC69 78S5
DC
SC6A 7886
DC
5C6C 7887
DC
7888 SXR1 LA
TS89 SXRZ LA
7690 SAAR a
XL..l·&E·
1Ll·54·
Al.2010NGBJ
·-·sXR:
.·--··.XA2
.RESTORE ALL REGS ANO RETURN.
7891
SC79 0000
5C7A 7892 HD1
DC
xu·oooo·
SC7e 0000 SC70 0000 5C7F 0000
5C7C 7893 H02
DC
·Xl.2·0000 I
5'C7E 7894 HD3 oc x1.2euooo·
sc eo 7«395 HD4
DC
xa.2·0000 1
5C81 0000
5C82 UJ96 HOS
DC
5C83 0000
see· 7897 HOE
DC
sees ocoo
SC 86 789"8 HO 1
DC
5C87 0000
scea 7899 t-toe
oc
5C89 C1C4C40940604 C 5C6F 790-0
DC
5C90 FOF040FOFl40F (!=2 SCBE 7901. HONG DC
SC98 40FOF340FOF4· CFO
7901
JCL.2 ·0000. XL2·0000· lCl.2· 0000· XL.2·0000·
CLT·AODA - ·
CL47·oo 01 02 03 04 05 06 07 08 09 OA OB oc OD OE OF·
SCAO F540F OF640FOF i40
7901
5CAe FOF840FOF940F CCl
7901
5CBO 40FOC240FOCJ4 FO
7901
seas C440FOC540FOC t
7901
5C8F Cl C4C4094 0604 C secs 7902
DC
0...7'ADDA - ·
SCC6 FlF040F1Fl40F F2 5CF4 7903 HONliA DC
CL47·to 11 12 13 14 15 16 17 18 19 lA 18 lC 10 lE lF·
5CCE 40F1F340F1F44CF1 SC06 F540FIF640F1F ~0
7903 7903
(
5cne F1-=840F1 F940F JC1
7903
SCE6 40F1C240F1C34CF2
7903
SCEE C440FlC540FlC «
7903
5CF5 C4C1E3C140604C SCFB 7904
0C
5CFC E7E740E7E740E;£7 502A 7905 MDNGB DC
5004 40E7E740E7E74 (£7
7905
CL?·OATA - ·
CL47·xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx·
, Q P..
5DOC 5014 Sole 5024
E740E7E740E7E i40 E7E740E7E740E z.:T 40E7E740E7E74 <ET E740E7E740E7E 1
7905 . 7905 7905 790!5
5028 FF
5028 7906
DC
502C C8C4C240C3D60 fE3 5037 7907 HONGNA DC
5034 C505E3E2
7907
XL1 c FF·
CL12·HDB CONTENTS·
5038 34 08 5061
503C 34 01 SOSD
5C40 C2 01 5063
5044 F3 58 80
5047 71 59 00
SD4A 70 FF 01
5040 02 01 02
co 5050
01 5047
5054 F3 58 80
5057 F3 se co
5 OSA C2 0 1 OuOO
505E CC 87 0000
5062 9210 5064 2911 5066 921.2 5068 1613 506A 1414 S06C 1415
5Df-£ 0016 SO?O 9017 5072 4318
7908 7909
0
7910 7911
*· · · · · · · · · · · · ·
. . .SU. .B.R.O.U.T.IN.E. .
·L.O·.A·.O·.·O.·P.·.·.·*.************·*********************************~···;ii
7912 ·
LOOP - LOADS 32 OP-DEC REGS ~ITH OP cooes
·j
7913
7914
·······················>1o····························t1c··*···****"'*******'
79US LOCP 7916
7917
7918
7919 LOADl 7920 7921
7922 7923 7924
7925 XXR1
1926 LOAD.? 7927
Sf
ST LA s10 LID Ct.I LA BNE S.10 SJO LA
B
LOAD2+3.ARR XXR1+3·XR1 TABLOPaXRl
x·eo·.s101
Ol.XRlleCPCEC u.XR1>.x·FF·
2<·XR1)·XA1
LOl\Dl X·&O·e SIOl
x·co· .srot
,._*·XAi
._..,
SAVE REtUR~ ADDRESS
.SAVE XR1
·SET UP TABLE ADDRESS
.DISABLE AT,.ACHMENT LOAD OP-DE~ODE REG .LAST ENTRY? .INCREMENT TABLE POINTER
.REl..OOP IF NCT COMPLETED
DI SABLE Al'TAC:HMENT ENAEILE ATT.4CH14ENT eR-ESTORE Xi:-<~
.RETURN TO M,'l\IN PROGRAM
i I
,
I
e '
~ ~
5063 7928 TA&...DP DC
5065 7929
DC
!5067 7930
DC
5C69 7931
DC
5068 7932
DC
5060 7933 Xt415 oc:
506F 7934
C>C
!D7i 7935
cc
$0?3 ?936
DC
Xl..2 8 9210 1 XL2·2su·
XL2·92i2· lCL.2· 1El3· XL.2 8 1414·
lLa· 1·us·
~2 1 1!11016· Xl.2·9017·
xt..z·43ta·
.TASLE OF ~ICROPRQCE$SOR OP COOE'
5D74 1419 5076 F31A 5078 7318 507A E11C 507C 9-410 507E 71 lE 5080 511F 5082 2200 5084 2201 5086 2202 5088 2203 508A 2204
5Dec 22os
SOBE 2206 S090 2207 5092 2208 5094 2209 5096 220A 5098 220B 509A 220C 5D9C 2200 S09E 220E SOAO 22()F
5QA2 FF
5DA.3 5000
SOAS 34 08 5FE1 SDA'lil 34 02 !SFDD 5DAD C2 02 !SFlA 5081. B4 01 BF
sos4 B4 o· ce
5075 7937
DC
So7? 7938
OC
5079 7939
DC
5076 7940
DC
5070 7941
DC
S07F 7942
OC
5081 7943
DC
5083 7944 X2200 DC
5085 7945
DC
5087 7946
oc
5089 7947
DC
5068 7948
DC
5080 7949 X2205 DC
508F 7950
DC
5D91 7951
DC
5093 7952
DC
5095 7953
DC
5D97 7954
DC
5099 7955
oc
5098 7956
DC
5090 7957
DC
509F 7958
DC
5DA1 7959
DC
5DA2 7960
DC
50A4 796 l BRUO
DC
1'962
XL2·1419·
XL2·F3!A·
XL2·7!1B·
XL2·EJIC·
Xf..2·9410· >CL.2·71 IE· XL2' 51 l F· XL2·2200' XL2'2201 9 XL2 1 2202 1
XL2'2203' XL2'2204 1 XL2'2205· XL.2·2206·
XL2*220T· XL2· 22oe ~
XL..2'2209· XL2·220A 1
Xl.2 1 2208.
xL21 22oc·
XL.21 2200·
Xl..2 1 220E 1 XL2'220F·
Xl..1 ·FF·
xu·sooo·
·END
7996643 ·II<··S·U·B·R·O·U·T·I·N·E··S·T·A·T*US··*···············..·································$·
* 7965 ********·************
7966
PURPOSE OF SUBROUTINE IS TO P'RJNT THE EXPECTED AND ACTUAL
· *
* 7967
* 7968
DATA AFTER AN ~PEATION AND hAl..Ta THIS IS AN ERROR PRINTOUT.
*
ON -HALT RESET- PROGRAM RET~RNS TO NEXT SEQUENTIAL INSTR\;CTJONe*
* 7969
·-------· 7970 ·
LI NICAGE:
* 7971 ·
B
STATUS
* · 7972
7g73 *
oc x1..1·xx·
eF'LAG BYTE
"· '
* * 7974 Fl,..AG BYTE OPTIONS
* 7975 * 79'l"6 * 7977 * 7978
BIT O· MASK -so- PRINT ·HOS A.DOR, El<P ANO ACT DATA
*
BIT 1· MASK -110- PRINT ·cs AOOA., ExP &. ACTUAL DATA·
B!T 1 .2
-ciO- PRINT ·cs ADDA g EXP DATA·
BIT 2 · MASK -20- PRINT ·EXP DATA & ACT DATA·
· * *
** 7979
* 7980
* 7981
7982
*
7983
SIT 3e MASK -10- PRtNT ·UHEXP MICRO PGM HAL Te EXP. £ ACT··
SIT 4· MASK -oe- PAINT "CURAR ERROR - EXP & ACT DATA·
·
BIT S. MASK -04- PAINT ·MlAR INCe eRR - EXP & ACT DATA· *
eIT 6· NASK -02- BYPASS ERROR PRINT/STOP
BIT 7. MASK -ot- BYPASS ERROR HALT
· *
7984 ·
·
7985 7986
* *
DC DC
* eERROR PRINTOUT~HALT ID * .EXPECTED DATA CSIT Ollf2 ONJ
7981' ·
7988 ...
* 7989
PROGRAMMING NOTE! l':EEP CURRENT VALUES IN S~ATOS FIE~os.
* *
· 7990 lO:
· 7991 ...
ERROA MESSAGE IS PRINTED WITH TtlE ~r~T to ClSPLAyEO fN THE
7992 ·
·"' 7993 * · * 7994
tiALT INDICATOR LIGHTS. RESETT!N-G THE HALT lllLL CAUSE Tt1E
PROGRAM TO RETURN TO THE NEXT .$:0UENT JAL INSTRUCTION IN 'THE ROUT! NE.
· 7995 ·
·
*·····*················ 779999~7 *'**"'***"'****"'*******"""'***********·····-·······..
7997
7998 SlATUS ST
STATA6+3~ ARR
7999
ST
STATX2+3 .. XR2
5F1A 8000
USING STATK7sXR2
8001
LA
STATK7 .xR2
eoo2 STATP 1 ST
STATX1+3(eXR2)·XRl
8003
ST
STATPS( ·Xfil2hPS~
.use X~2 FOA INDEXING
OA1E
07JUL7!5
EC NO· 825023
PROG 10
~GE
iO
0891.,.2
OAT!
6$ : EC NO·
,.10
·
07JUL7S 825023
25CCT7!5 82£032
15.JAN76 826034
PROG 10 PAGE
IBM MA l ..TENANCE OIAGN CST IC PROGlllA·
9912
DISPLAY AOAPT&a TEST
EAR LOC 08.IECT CODE
ADDA STMT SOlRCE STATEMENT
5DBT 35 o· ooe2 sees B5 01 C'T
508E 9C 00 C8 00
sea 9C oo ·6 01
5DC6 02 01 02
soc9 1c 01 !FE· 01
SOCE D2 01 02
5001 34 01 SFEl SOOS 3C 00 6180 5DD9 38 02 SFE2 5000 CO 10 5FD2
SOEl (0 87 021 E SOES 01 50E6 Oe53 50E8 5FF1
5CEA 50EE 50EF 50F1
CO 87
01
0052 SFEE
021E
50F3 5DFT
5DF8 SOFA
CO 87
02
5F£4 c023
021.E
SOFC CO 87 021 E seoo 02 5E01 5FE6
5E03 60'.'!7
seos co e1 021 e
5E09 02 5EOA 5673 SEOC 6060 5EOE OC 09 6601 65F0 5El4 OC 03 6600 60.?1 SEIA 0C: 03 65FC 60.i3 5E20 OC 00 65F2 5F tO 5E26 OC Ot' 65Fl DA C3 5E2C 38 FO 6187
5E30 F2 90 OC
SE33 OC 01 65FE 61 t8 Sf39 OC 00 6601 61 EB 5E3F 38 OF 6187 5E43 Fi 90 OC 5E46 OC 01 6600 61EB 5E4C OC 00 6601 61 HI
5E52 8C 01 44 61e4
SES? 38 FO 6188
5E58 F2 90 OC SE5E 0C 01 65FE 61 EO
5E64 0C 00 6601 61 ED 5E6A 38 OF 6188 SE6E F2 90 OC
sen oc 01 6600 61 a>
5E77 OC 00 6601 61 ED SETO 38 OF 6189 SE8l F2 90 OC SE&\ OC01 6600 6lfF SE8A OC QO fl601 61 fF 5E90 38 FO 6189
5E94 F2 90 OC
8004
L
8005
L
8006
MVC
8007
MVC
8008
LA
8009
MVC
8010
LA
8011
8011
8012
ST
8013
MVI
8014
TsN
8015
eT
8016
8017
B
50E5 8018
DC
SOE7 8019
DC
50E9 8020
DC
8021
8022
s
SOEE 8023
DC
soro so2·
DC
5DF2 8025
DC
8026
8027
8
5DFT 8028
DC
5DF9 8029
oc
5DFB 8030
DC
8031
8032
8
seoo ao33
oc
5E02 8034
DC
SE04 8035
DC
8036
803T
8
!:£09 8038
DC
5EOB 8039
DC
seoD e040 8041
DC
MVC
8042
MVC
8043
MVC
80·4
8.>45
MVC MVC
8046
TBN
8047
.JF
8048
MVC
8049
MVC
8050 NDTHI TBN
8051
.IF
8052
MVC
8053
MVC
8054
8054
8055 NOT'-0
8056
MVC
TBN
8057
.JF
8058
MVC
8059
MVC
8060 CKLOW TBN
8061
.JF
8062
IAVC
8063
MVC
8064 Cl<Hl Z TBl'll
8065
.IF
8066
MVC
8067
MVC
8068 CKUhlZ TBN
8069
.IF
ZEROePSfl STATRB+3( .XR2).Ul STATFL(eXR2a.0<1.xR1) STATP2( · ·2J · U 1 e XR1) 2( eXRl )e XRl STATEx.tc2.XR1)
2CeXRlhXA1
ST ..TRB+3· JCA 1 ATTFLGeO STATFl.eX· 02· STATRS
UNt>ACK XL1·01·
AL.2CHOSAI oflC...2(STATMI)
«MPACK
XL1·01 1
AL2(HDBA-1J
M..2CSTATMl-:9)
UNPACK
XLJ·02·
l'lL2( STA TEX) .tL.2(STAT ..3)
UNPACK Xl..1' 02·
llL2(STATAC) "L2CSTATM4)
UNPACK
XLl ·oz·
AL2CROSW(lU itL2C STAT 11121 ERRLOGC10l·8LANKS ERRLOG-1(4).STATM4 ERRLOG-S(4)·STATM3 ERRHLT(l)eSTATP2 ERRRTNCl I.PATH XFLAGeX· FO · NDTHl
F~RLQ~-JC2)eXXXX
EARLOGCl) eXXXX JCFLAG· X·OF· NOT L O ERRLOG-l(2)eXXXX ERRLOG( l I. XXXX
STAT"M( 2eXR2)eSTATA1 YFLAGeX· FO' CKLOW ERRL.OG-3(2)1YVYY ERRLOG(t)·YYYY 'Wf'LAG eX' OF· CKHJZ ERRLOG-1 (2) eY'f'fY ERAL..OG( 1 h 'fYYY ZFLAGeX 9 0fU CKLOWZ
~ALOG-IC21eZZZZ
ERRLOGCI t · ZZZZ
ZFLAG.x·Fo· STA1'Kl
OATE
07.IUL 7!
EC NO· 825023
25C:CTY5 82 f032
15.IAN1'6 . 825034
FART NOe
PAGE
4234255 66
IBM MAINTENANCE I> IAGN CST IC PROGRAM
42342St5 66A
8912
(
DISPLAY ADAf»TfR YEST
ERR LOC OBJECT CODE
ADDA STMT SOtRC£ sTATEtlENT
eCLEAR PS~
.use XRI AS DATA POINTER
oSAVE FL AG enE ·ENTER ERROR ID FOR PRINTOUT
olNCREMENT TO N~XT FlRLO eENTER DATA & INCREMENT
TO RE TURN ADDRESS·
·STORE ADDRESS FOR ~ETUAN .RESET ATTACHMENT CHECK FLAG .TEST BYPASS PRINT/STOP ON
.ext T IF so
.UNPACK HI ~80 ADDRESS
·UNPACK LC ~DB ADDRESS
(... ,
·UNPACK ACTUAL DATA
,~
\.
.UNPACK co~TROL STORE AOOR
·BLANK OUT LOG OUT .INSERT ACTe DATA
·INSERT EXP· DATA .INSERT HALT CODE alN~RT RO~fINE NOe
.TEST HI ens UNPREDICTABLE
·JUMP IF NOT eSET Kl BITS UNPREDICATABLE
. (
* (
· ·
*
'
c
*
.TEST LO BITS UNPqEDICATBLE eJUMI' IF NOT eSET LO SITS UNPREDICTA8LE
· ·
c
£-"";
~
eSET MESSAGE ADDRESS
Ht BtTS IJNPREDICTABLE!
.JUMP IF NOT
SET HI BITS UNPREDICTABLE (y)
c
LO SITS UNPREDICTABLE?
JUMP IF NOT
SET '-0 BITS UNPREOIClABLE (Y)
c
PROG ID PAGE
i
I
I
Ocl91-2
66
5E9T OC 01 69FE 61 fF 5E9D DC 00 6601 61 EF 5EA3 BC 28 4Z 5EA6 BC 00 45 61AF SEAB AC 01 B3 46 5EAF 88 80 ca 5EB2 F2 90 lC
5£85 OC 08 600A SF fl
5EBB BC 36 42
5EBE 3C ca 65F8
5EC2 0C 01 65FA SF fE 5EC8 OC 00 65FB 60~0 5ECE F2 87 7F
SEDl 68 40 ca
5ED4 F2 90 49 5ED7 OC 18 600A 60t0 5EDO 3C E2 65F8 5EE1 OC 02 6SFB 60t0
SEE7 :38 2 0 566F
5EEB F2 90 04 SEEE 3C D 3 65FC 5EF2 38 10 566F 5EF6 F2 90 04
5EF9 3C ce 65FC
SEFD 88 20 ca 5F00 F2 90 17
SF03 BC 32 42
sFo6 ec 01 ·· 61B6
5F08 OC 03 65FF E 0'3
SFlt OC 01 6601 65f0 5F17 F2 87 36
SF" IA ac 46 ·2
5F10 F2 87 30
SF20 ae 20 ce
5F23 F2 10 2A 5F26 88 10 CS
5F29 F2 90 10
5F2C OC 18 600A 61JO
5F32 BC 46 42
SF35 3C 04 65F8
!SF39 F2 87 14-
SF3C BB 08 Ce
5F3F CO 90 6061 5F 43 0C OA 600A 61 IB
5F49 BC 38 42
5F4C 3C C3 6SF8
5FSO ea 01 ca 5FS3 CO 90 6lCO 5F57 CO 87 02lA
5F58 C2 SFSC 00 SF50 6037 SFSF 1400
SF61 Cl 50 6198 5F65 3D FO 6404 5F69 F2 01 00
5F6C 39 01 S:E2
SFTO F2 90 SF
SF73 38 FO 6187 5F77 CO 10 SFA7 5F7B 38 OF 6187 SF'J'F CO 10 5FA7
5F83 38 FO 6188
5F87 CO 10 SFAF 5F8B 38 OF 6188 SF8F CO 10 5FAF
5F93 38 FO 6189
8070 8071
NVC MVC
8072 ST 11TKl MV I
8073
MVC
8074
MllC
8075
8076
TBN
JF
8077
MVC
8078
MVl
8079 8080
MVI
MVC
8081
M\'C
8082
.J
8083 STATK2 TBN
8084
JF
8085
MVC
8086
Mlfl
8087
MVC
Bose
TBN
8089
.JF
8090
MVI
8091 T?4
T8N
8092
JF
8093
MVI
8094 NP4
TBN
8095
.JF
8096
MVI
8097
8098
MVC
MVC
8099
8100
MVC .J
8101 STATKT toil/I
8102
J
8103 STATK3 TBN
8104
JT
8105
TSN
8106
8107
JF
MVC
8108
MVI
8109
MVI
8110
J
8111 STATKS TBN
8112
BF
8113
MVC
8114
8115
NVI MVl
8116 STATPL TBN
8117
BF
8118 STATP.J B
5F5B 8119
oc
SFSC 8120 STATL DC 5F5E 8121 STATAM DC 5F60 8122 STATP2 DC
8123
eta· STATP3 TIC
8125 STAT$P CL(
8126 8127
8128
8129
8130
JNE
STATSQ TBF
.JF TBN BT
8131 8132
TBN
BT
8133 8134
TBN
BT
8135 8136
TBN
BT
813T
TSN
ERRLOG-3 (2) eZZZZ
ERRLOG( 1) eZZZZ
STATL(eXR2h40
.MOVE IN PRINT LINE LENGTH
STATP2-1(1.XR2)e0EVID
.FILL IN DEVICE ID 1 S
STATEU2.xA28.STATP2(exR2, .FILL IN HALT JhFD
STATFL<.XA2)eX·ao·
.TEST FOR B1T 0 ON
STATK2
eCONTINUE IF NOT
STAT8L(9hSTATMl
· MOVE IN HOB ADDA MSG
STATL( eXf<Z) e54 ERRLOG-9 ·C 1 tl · ERRLOG-7l21eSTATN1-3 ERRLOG-6(l)1STATM3-3 STATPL
aNOyE IN PRINT LINE LENGTH
· SET CHAR FOR LOG OUT .INSERT HOB ADDR. elNSER EXP· DATA
.·.. ·
eGO PRINT
STATFL(·XR2)1X·40'
.TEST FOR SIT 1 ON
STATK3
.CONTIMJE IF NOT
ST ATBl.( 25).STATM2 ERRLOG-9oC·s· ERRLOG-6(3)oSTATM2
f.i05SF10X·20·
TP4 EIHILOG-5·C'L'
ROSSFl eX' 10 1 NP4
ERALOG-s. c· H 1
.MOVE IN CS ADDA· MSGe
.tNsERT CHAR. FOR LOG OUT ·INSERT ADDA. lh LOG OUT eTE~T FOR PART 3 .JUMP IF ~CT .SET E)CP · DATA CHAR
.····..
.TEST FOR PART 4 · JUMP IF NO'f eSE'f EXP DATA CHAR
.··.
STA"iFLC · XR2) eX· 20'
.TEST BIT 2 ON ALSO
STATK7
.JUMP IF NOT
STA TLC eXl<2) 150
e INSEAT MES!'iAGE LENGTH
STATAM(2,XA2) 1 STATA2 ERRL.OG-2 (4) · STATM3 ERFILOG(2) .BLANKS
eCHANGE MESSAGE ADDRESS alNSERT EXP· IN LOG OUT eCLEAR LO 2 BYTE
· ·
STATPL
.GO PRINT
STATL(.,Xh2) 9 70 5TATPL
·MOVE IN PRINT LINE LENGTH .GO PAINT
ST ATf""'_C. XR2 hX · 20 1
sTEST FOR BIT 2 ON
STATPL
e IF SO GD PRINT EX Pe & ACT·
STATFL( · XR2>.x 1 10·
·TEST FOR BIT ~ ON
STATK5
e IF NOT CONTINUE
STATBLC2S>1STATMC
eMOvE IN MICRO CODE MSGe
STATL ( eXA2) · 70
ERRL.OG-9 e c· 1111'
.MOVE IN PRtNT LINE LENGTH .INSERT CHA~. FOR ERROR LOG OUT*
STATPL
.GO PAINT
STATFL(eXA2)1X·oe·
.TEST FOR SIT 4 ON
STATK6
.IF NOT GO TEST BIT 5 ON
ST ATBLC 1 l) eSTATND STA TLC ·X~2) ·56
ERRLOG-9oc·c·
.MOVE lN CURSOR ERROR MSG·
eMOVE IN PRINT L.INE LENGTH .INSERT CHA~· FOA LOG OUT
*
STATFl.( ·XR2 )o l
STATNH PRINT
XL1·C2·
tL.1 · oo·
At.2(STATM4)
XL.291400'
·TEST ERROR HALT BYPASS ON elF NOTe TEST FCA NO HEADEA .PRINT DATA REQUESTeD l~ FLAG .ERROR PRINTOUT AND SPACE 2
eLENGTH GETS FILLED IN eADDRESS GE~S FILL.ED tN eERROR ID FILLED IN
PAOCHKeATTCHK
ELPFST.C· O· STATSQ STATFLeX·Ol' STATRS
XFLAGeX ·f'o·
LOGXAC XFLA<i.X' oF· LOGXAC YFLAG.x·Fo· L.OGYAC YFLAGeX·OF·
LOGVAC ZFLAG.x·Fo·
·T;ST FOR ATTACHMENT CHECK eTEST IST ERROR LOG ·SKIP VOLTAGE MSG IF NOT
eERROR HALT BYPASS?
07.JULTS 825023
25CCT?5
82f032
pAOG ID PAGE
· ·
ie,I ·"'.
·
·
·
·
·
·
·
· ·
··
·
·
·
·
·
·
··········· ·····
IBM fl4AINTENANCE OIAGNCSTIC PROGRA!lll
8912
DISPLAY ADAPT £R TEST
ERR LOC OBJECT CODE
ADDR STMT SOURCE STATEMENT
FART NOe
PAGE
4234255
67
IBM MAINTENA1'1CE Ol·AGfHST IC PROGRAM
r 8912
Dl'SPLAY ADAPTER TEST
ERA LOC OBJECT CODE
ADCR STMT SOURCE STATEMENT
PART NOe PAGE
SF97 CO 10 5FB7 5F98 38 OF 6189 5F9F CO 10 5FB7 5FA3 CO 87 5F8F
SFA7 3C E7 6601 SFAB CO 87 5FBF
8138
BT
8139
TBN
8140
BT
8141
e
8142
8143 LOGXAC MVt
8144
e
SFAF 3C E8 6601 5F83 CO 87 5FBF
8145
8146 LOGYAC MVI
8147
e
5FB7 3C E9 6601 5FBB co 87 sFeF
8148
8149 LOGZAC MVI
8150
B
Sf"BF cO 87 63FE
5FC3 CO 87 021 A 5FC7 96
5FC8 CO 87 0222 SFCC 1400 5FCE CO 87 0216
8151
8152 GOELPO S
815~
8154
B
SFC7 8155
DC
8156
8157
B
5FCO 8158 STATEI DC
8159
B
5FD2 35 04' 5FE8
SFD6 C2 01 0000 SFOA C2 02 0000
!SFDE CO 87 0000
8160 8161 STATAS L
8162 STATXl LA
8163 STATX2 LA 8164 ST,HRB S 6165
SFE2 00 5FE3 0000
5FE5 0000
5FE7 0000
" 65 t'165
5FE2 et66 STATFL DC 5FE· 8167 S.TATEX DC 5FE6 8168 STATAC DC SFE6 8169 STllTPS DC
8170
8170
l!ll 70
5FE9 5FF1 5FF2 SFFA
CeC4C240E7E76 CE7 E7 40410404040404 '40 ·040404040404 C40
SFE9 SFF 1
600A
8171 8172 8172 8173
8173
STAT140
STATM1
STATSI.
EQU DC
DC
60~2 4040404040404 '40
8173
600A 40
8173
6008 404060
600D 811'4
DC
600E 4040CSE707C5C ;:£3 6023 8175 STATM3 OC
6016 CSC·40C4C 1E3C 140
8175
601E 7E40E7E7E7E7
8175
6024 4040ClCJElE4C!03 6037 8176 ST11TM4 DC
602C 40C4C1E3C1407E40 603· E7E7E7E7
81 '?'6 8176
6038 C 1E3E 3C1C JC80 CS 6047 8177 STATN5 DC
6040 05E340C3C8C5C ~2
8177
6048 C30605E3D9060 .:40 6060 8178 STATM2 DC
6050 E2E30609C540C lC4
8178
6058 C409407E40E7EiE7
6060 E7
6061 ee 04 C8
606· EO 90 36
6067 OC 1.3 600A 61 J' 6060 BC 41 42
6070 3C C9 65F8
6074 EO 87 36
&178 81 ?8
8179
8180
81e1 8182 8183
8184
STATK6
TBN BF
~vc
MVI
t4Vt
B
8185 6077 C905E3CSD909E.q)7 6087 8186 STATN6 OC
607F E34007C505C4C iiDS
8186
6087 C7
81B6
6088 C1E3E3C1C3C84l40 60A2 8187 STATM7 OC
OATE -07JUL7!5
EC NOo . 825023
25«:T?5
82~032
l5.IAN1'6
8250~4
LOGZAC ZFLAGeX·QFt LOGZAC GOELPO
6090 E2C806E403C44 WS
8187
6o9s 06E340C2C540o ~cs
8187
60AO C1C4E8
8187
60A.3 Cl E3 E3Cl C3C84 £4.0 6083 8188 STATMS DC
ERRLOG.C·X· GOEL.PO
60AB i>506E34009C5C JC4
8188
6063 ES
8188
6084 CtE3E3ClC3C84 140 60C2 8189 STATM9 CC
ERRLOGeC·Y· GOEL PO
60BC C9E240C2E4E2EE
8189
60C3 C905E3094940E .iC6 60El 8190 STATMA DC
60CB 06E4C3C440C2C f40
8190
ERR!..OG.c·zc GOELPO
60D3 07C505C4C9DSC 168
8190
600B 40C9E2400506E~
8190
60E2 Cl E3 E3C1 C3C84 MO 60F7 8191 STATNa DC
ELPO
PAINT XLI ·968
GD PR INT ERROR LOG
· SPACE 6 LINES
60EA E2C806E403C44 CC2
8191
6QF2 C540C2E4E2E8
8191
60F8 E405C5E7D7C5C ~l 6110 8192 STATMC OC:
61 00 C5C44 OtM C9C3DS06
8192
61 08 40D7C 7D440C8C JD3
8192
HALT Xl.2· 1400. LINK
·ERROR HALT .ERROA 10 FILLED IN .EXIT ROUTINE
6110 E3
8192
611 l C3E40~10940C:09 6116 8193 STATNO DC
6119 090609
8193
61 ! C 04C9C! D940C9DfC3 612F 8194 STATNE DC
STATPS.PSR
·-··-·.XRl
.,_*eXR2
)IL 1 ·o.
Xl,.2·0· >IL.2·0 1 XL2·0·
.~ESTORE XAl · XR2 · & PSR
.FLAG BYTE
-PASSED PARAMETE~ j (
.EXPECTED DATA-PASSED PARAMETER '
· ·CTUAL DATA -f'lLLEO IN f5V PROG·
!
6124 09C504C5DSE34 (CS
8194
612C 09090609
t'194
61°30 E4DSC5E707C5C ~E3 613E 8195 STATBO DC
6138 CSC440C905E34f
819!5
613 F 0506 E34009C4E ~61 6140 8196 STATBl DC
6147 E40SC9E340C3D~
8196
614E 0506E340D9C4EE61 61EO 8197 STATB2 DC
6156 E4 05 C9E340C30~0
8197
61 SE DCiC6C6
8197
616 I ca C4 C240 E2D5E ;:40 6176 8198 STATB3 DC
6169 C4ClE3C140C:9DfC3
8198
6171 D609D9C!5C3E3
6198
6177 C2E2C3C140D9C cEa 617E 8199 STATB4 DC
·
CL9· HDB xx-xx·
25CL1 8 ·
·BLANK FIELD
(
617F o50640C90SE34 (06 6190 82 00 ST ATBS OC
6187 0540C1E3E3C3C '40
8200
618F C302
8200
619~ C2E2C3C140C2EE2 619A 8201 STAT66 OC
I (
6199 ES40
8201
6198 CO 87 021A
8202 PADCHK B
619F 62
619F 8203
oc
= Cl.3· -·
CL.22 1 EXPECTEO DATA
xxxx·
61AO 10
61AI 6047 61A3 3C FF 61BO 61A7 co 8? 6218
61AO 61A2
8204 8205 8206 8207
ATTMA
DC DC MVI 8
61 AB CO 87 5FE5
8208
e
Q.!?O· ACTUAL DAlA · xxxx·
0..25·CONTROL STORE AO~ · XXXXG
STATFLC.~R2)·X·Q4· STATPL(eXR2) STJllTBL(20) eSTATME StATL(·XA2io6!5
ERRL.OG-9 .c · 1 ·
STATPLi .xR;U
Cl.ll'· INTERRUPT PENDING*
.. TEST FOR e n 5 ON
elF NOT GO PRINT
·MOVE MESSAGE TO PRINT FJELD
·"'ove IN PRINT FIELD LENGTH
·INSERT CHARc FOR LOG OUT eGO PRINT
0
I
10
I
I
IC I IC I IC *I
i (.
I
IC I
! ()
61AF 89 6180 00 6181 00 6182 00 6183 6031 61£:!6 6023
6187 00 6186 00 6!89 00 61SA E1E1' 61BC E8E8 61BE E9E9
61CO 61C4 61C8 61CC
6100 6104
30 00 CO 81 3C 00
3C 00 3C 00
oc 02
6167 5F57 6181 6186 6189 61Et
5F fE
8Z09
61AF S210 DE\IID DC
6180 8211 ATTFLG DC 6181 6212 VOl.TFL DC
6182 8213 V0t..T5F 0C
6164 8214 STATAl DC
6196 8215 STATA2 OC 6187 8216 "1"LAG OC 6186 8217 YFLAG DC
6169 8218 ZFLAG DC
6168 8219 xx xx oc
6180 8220 YYYV DC
61BF 8221 l.ZZZ OC
8222
8222
8223 STATNH CLI
8224
BE
8225
NVI
8226 8227
MVI MVI
8228
MVC
FIROG ID PAGE
\J 0891-21
67 j
OATE
07JVL75
EC NO. 825023
25 (CT75 S2f032
l5JAN76 825034
I
10
'I I ·
le
Cl.l7·ATTACH. NOT AEAOy·
0..31·INTRo SHOULD SE PENOlNGe IS NOT· CL22 9 ATTACH. SHOULD BE BUSY·
CL25 1 UNEXPECTEO MICRO PGM HALT·
Cl.20·MJAR INCREMENT EAROR·
Q.15°UNEXPECTEO INTe· CL15 9 NOT ROY/UNIT CK8 CL19°NOT RDYIUNIT CK CFF'
CL2.2tHDB SN~ DATA INCORRECT'
a..e·escA ROY·
CL18 1 NO INT ON ATTCH Qc·
CL1o·escA eusv 1
PRINT Xl.!882' ILi · &6 1 Al.2CSTATM5) ATTFLG.X·FF' PCHK STA TSP
xL1·89· XLt·O·
XLl ·o ·
Xt..l *O 1 AL.2( STATfl!4) AL2(STATM:S) Xl.190· lll.1 ·0C· XL1 1 00· Cl.2· XX· 0...2·\'V· C&.a· ZZ·
PRINT ATTACHlllENT CHECK
.seT ATTACHMENT CHECK FLAG ·GO PRINT ATTACHMENT CHECKS
·DEVICE ID GETS FILLED IN
·ATTACHMENT CKECK Fl.AG eVOLTAGE MESSAGE FLAG
eAUK 5Ve MS~ Fl.AG
XFl.AGeO
STATPO
XFf..AGoO
'WFLAGeO ZFLAG10 N!-IAOR«:U .STA1AM
oTEST FLAG
elF ZEROe PRINT HEADING <>RESET FLAG
·INSERT LGTH. g AOOR
PAQG ID PAGE
0891-2
&,yA'':
IBM MAINTENANCE DIAGNIST IC PROGRAM
8912
PJ SPLAY Aj)APT IA TEST
PART NO. PAGE
4234255
IBM MAINTENANCE DIAGNCSTIC PROGRAM
,. 68 : ··..,
i
8912
DISPLAY AOAPTlA TEST
ERR t,.0(: CJl).JECT CODE
AODR STMT SOUlCE STATEMENT
EAFI LDC 08.IECT CODE
ADDA STMT 501..RCE STATEMENT
6IOA C.0 87 021A
610£ <e2
8229 6tDE 8230
e
PRINT
DC
XL1·82·
.PRINT WITH NO HEADER
610F 00
61DF 8231
DC
tLl·o·
61EO 0000 61E2 CO 87 5F61
61El 8232 MtAOA DC
8233
e
.-UC·-*) STATP3
.RETURN TO FINISH RDUTINE
8234
8235 ***·********************************************
I
8236 8237
· .
.
.
.
SUBROUTINE ...........
.
.
ANALIZE ........
AND PRINT ..........
ATT· ....
.
CHECKS .......
*.********************$**·\i
8238 ·
·I {~)
8239 *
8240 *
8241 *
8
TSTCHK
DC
X\.PXX·
DC
Xl.l·HC·
CHECK ANO PRINT ERRORS
*:· 1
C at::
8242 ·
WHERE ·xx· SIGNIFIYS ERRORS EXPECTED
.!
8243 8244
* *
8245-*
BIT 0 ·le CP DECODE CHECK BITS 1-3 MUST BE ZERO
BIT 4 ·l= HOB/EXT CHECK
·**;,i \_
8246 8247
* *
BIT 5 =1= CCNTROL STOfiE DATA CHECK
BIT 6 ·1= CONTROL STOl<E WRITE DATA CHECK
·1
*' (
* 8248 ·
8249
* 8250 ·
8251
BIT 7 c1= CONTROL STORE ADDRESS CHECK ·HC· SIGNIFIES THE HALT CODE TO BE USED FOR ERR<lR HALTS
B
PCHK
PRINTS OUT ERRORS
*I
c *
·' *!
8252 ·
·:
88225534 ···································*···············****················: (_
61E6 34 OB 62E4
8255 TSTCHK ST
ERRT+3eARR
·STCRE RETU~N ACORESS
61EA 34 01 62EO
8256
ST
TXA1+3eXRI
.STORE XRl
61EE 35 01 62E4
8257
L
ERRT+3.x1<1
·LOAD ADDRESS O~ PARAMETERS
61F2 OE 01 62E4 58£6 6lF8 lC 00 62E5 00
61FD IC 00 62S8 01 6202 OC 09 6601 6efO 6208 lC 00 65F2 01 6200 OC 00 65Fl OA C3
8258
82S9
8260 8261 .8262 8263
A.LC
MVC MYC MYC
MVC
MVC
ERAT+3( 2 >. X0002
EXERR.oC. hXRl)
ERt-IC 1 ·I< 1 'XAI t ERR..OG(lO,eBLANKS
ERRHLTe 1 ( 1 wXRI >
ERRRTN( 1) .PATN
.UPDATE RETURN ADDRESS oLOAO EXPECTED ERRORS .LOAD HALT CODE eBLANK OUT ~QG OUT .LOAD THE HALT CODE eLCAD THE RCUTINE NO·
c
.·J'! (...'.:..
6213 1C 00 6202 01
621e F2 87 0C
6218 34 08 62E4
8264
MVC ERHC2eU hXA1 I
8265
.J
STERR
8266 PCt« ST
EART+3eARR
.LOAD HALT CU>E .STORE RETURN ADDRESS
'O
621F 34 01 62EO 6223 3C 00 62E5 6227 3C 4 0 63FB
8267
ST
8268
MVI
8269 ST ERR MV I
TXRl+3wXfal ExEAReO ERRPOEeC c ·
eSTORE XR1 eRESET FLAG BYTE
c
.CLEAR PAINT OUT AREA
6228 OC 22 63FA 63FB 6231 3C BF 62E6
8270 8271
NYC ERRPOE-1(35teERRPOE MVI ACTERReX· 8Ft
elNITIALIZE FLAG BYTE
r
<.,
623S Cl SA 6230
82T2
TIO ERA4eHD8Ct4K
eTEST FOR HOB/EXT CHECK
6~39 3B o.:: 62E6
623D Cl SC 6245
8273 8274 ERR4
SBF TIO
ACTEAAeX·08·
ERR3.FETADA
.RESET HOB/EXT CHECK BIT .TEST FOR CaSa ADDA· CH.
c
6241 38 01 62E6
8275
SBF ,tCT ERAo X·01 ·
eRESET BIT
6245 Cl SE 6240
8276 ERR3 Tl 0 ERR2eFETwAD
·TEST FOR C·S· WA. DATA CH.
6249 38 02 62E6
8277
S8F ACTERRe X·02 ·
.RESET BIT
6240 Cl 5B 6255
8278 ERR.? Tl D ERAleCSCHK
.TEST FOR Co5e CHECK
6251 38 04 62E6
8279
SBF ACTERR1X·04·
eRESET BIT
6255 Cl 5D 6250
8280 ERf'il TIO ERAO. ATTCHK
oTEST FDR ATTo CHKe
(_
6259 38 80 62E6
8281
SSF ACTERA.X·80·
.RESET BIT - ACTERR NOW HOLDS
8282 ·
IMAGE OF ACTUAL TYPES OF
8283 ·
ATTCHMENT CHECKS
6250 CO 87 021E
8284 ERRO 8
UNPACK
oUNPACK ACT ERROR CODES
6261 01
6261 8285
DC
lCL.1 8 019
6262 62E6
6263 8286
DC
-.2CACTERAI
6264 63FD
62~5 8287
6266 oc 00 6601 63 l'D
8288
DC
ALHR18Wtd
MVC ERALOG< 1 leR18WK
626C 30 00 62E5 6270 F2 01 13 6273 OC 00 62E7 62 t:6
8289
8290
8291
CLI JNE MVC
EXEAR 9 0
TS TERR
POFLGU >eACTERR
eTEST FOR PRINT ONLY ·JUMP IF NOT
.seT UP TO PR1NT ACTUAL ERRORS
62?9 CO 87 62ES
e292
e
POERR
.GO PRINT
6270 CO 87 021 A
a293
e
PAINT
aGO SPACE 2
6281 92
6281 8294
oc
XLl·921
6282 CO 87 62El
8295
8
£RAT
.GO EXIT
8296
6286 OD 00 62E5 62 E6
8297 TSTEAR CLC
628C F2 Bl 48
8298
£
628F CO 87 021 A
8299
B
6293 Cl
6293 8300
DC
6294 OA
6294 8301
DC
6295 63A3
6296 8302
DC
6297 1400
6298 8303 eRHCl DC
6299 OC 00 62E7 62f5
8304
MVC
629F CO 87 62E8
8305
B
8306
62A3 C.O 87 021A
8307
B
62A7 81
62A7 8308
DC
62A8 OA
62A8 8309
DC
62A9 63AO
62AA 8310
DC
62AB 0C 00 62E7 62E6
8311
MYC
6281 co 87 62E8
8312
B
6285 CO 87 021 E
8313
B
6289 01
6289 8314
DC
62BA 62E5
6288 8315
DC
62BC 63FD
6280 8316
DC
62BE OC 00 65F8 63 FD
8317
MVC
62C4 CO 87 63FE 62Ce CO 87 02U
8318
B
8319
e
62.CC 96
62CC 8320
DC
6 2CO CO 87 0222
8321
B
6201 1400
6202 8322 ERHC2 _DC
6203 F3 58 80 6206 co 87 0216
8323
SID
8324
e
8325
62DA F3 SB 80
8326 RSTRT SID
6200 C2 01 0000
8327 TXRl LA
62E1 CO 9T 0000
8328 ERRT 8
8329
62E5 00
62E5 8330 EXERR DC
62E6 00
62E6 8331 ACTEAR DC
62E7 00
62E7 8~32 PCFLG OC
8333
62E8 34 08 637F
8334 PDEAA ST
62EC 38 08 62E7
8335
T8N
62FO F2 90 10
8336
.JF
62F 3 OC 06 63E· 63 C8
8337
MVC
62F9 OC 05 63EA 63(1
8338
MVC
62FF CO 87 6380
833~
B
6303 38 01 62E7
8340 TERR3 T8N
6307 F2 90 10
8341
.JF
630A OC 11 63EF 60 f9
8342
MVC
6310 OC 05 63F5 63Cl
8343
MVC
6316 co 87 6380
8344
e
63lA 38 02 62E 7
8345 TEAA2 T8N
631E F2 90 16
8346
.JF
6321 OC OC 63EA 60!4
8347
MVC
6327 OC OA 63F5 63t3
8348
MVC
6320 OC 05 63FB 63 <I
8349
MVC
6333 co 81' 6380
8350
B
6337 38 04 62E7
8351 TERR 1 T8N
6338 F2 90 10
6352
.JF
633E OC OC 63EA 60!4
8353
MVC
6344 OC OA 63F5 63Cl
8354
MVC
634A CO 87 6380
8355
e
634E 30 80 62E1'
8356 TEAAO CLI
6352 F2 01 10
8357
JNE
6355 0C 08 6!E'.6 63 E6
8358
MVC
6358 OC 05 63EC 63 Cl
83S9
MVC
6361 co 87 6380
8360
e
6365 3D 00 62E7
8361 TNONE CLI
6369 F2 01 10 636C OC 03 63E1 63C7
8362 8363
.JNE
.we
63T2 OC 03 6601 63~7
8364
MVC
EX ERA (l) · ACTEAR RSTRT PRINT XLl·Cl' IL1· t O· -...2<R l8EXP) XL2·1400· POFLGC I> eEXERR POER A
PRINT XL1·81· ILt· 10· M...2(R 18REC) POFLG(l ) · ACTERR POE RR UNPACK XLl801· AL.2CEXERRI AL2 (R18WK) ERRLDG-9(l)·Rl8WK a.PO PAINT )(Ll ·96· t-ALT XL2· 14QO· x·eo·.s101 LINK
....x·80·.s101
*-··XR1
XLl · c;· X&..1·0· XLt·o·
POERRT+3.ARR
FOFLG·X·o8· TERR!
ERRPOS+13{7)·R18HDB
ERRPOS+19(6)·R18CHK PERR FOFLGeX·o1· TERR2 ERRPDS+24(18).Rl8CSA ERRPOs+30{6)·Rl8CHK
PERR
POFLG·X·02 1 'tERRl ERRPOS+l9(13)·R18CS ERRPOS+30(ll)eR18WRD ERRPDs+3E(E)eR18CHK PERR POFLGeX1 04 1 TERRO eRRPOS+19(13JeR18CS ERRPDS+30( I 11eA18CHK Ft:RR f'DFl..G. x· so· TNONE ERRPOS+15(9) 1 R18QPD ERRPOS+21 (6) .Rt 8CHK PERR POFLGeO POERRT ERRPOS+l0(4)1R18NON ERRLOG(4>.R18NON
DATE
OT.JUL TS
EC NO· 825()23
PROG lD PAGE
0
DATE
07.JULTS
0 I EC NO. 825023
i
..:'\.·0
25CCTTS
825~ ) 2
15.JAN76 825034
PART NOe PAGE
42342!5!5 68A
.CHECK ACTuAL · EXPECTED · IF SO· RESET AND EXIT .ERRORe PRINT ·EXPECTED·
·HALT COCE GETS FILLED IN .seT UP TO PA1NT EXPECTED ERR. ·GO P"R INT T"4EM
.PRINT RECEIVED
.SET UP TO PRINT ACTe ERR.
.Go PRINT THEM
.UNPACK EXP ERROR CODES
· · ·
.MOVE IN ACT ERRCR CODE
.Go PRINT ERROR LOG
* · ·
.SPACE 6
.GO HA.Lt
·HALT CODE PILLED IN .RESET ATTACHMENT CHECK
.EXIT ROUTINE
.DISABLE TC RESET CHECKS .RESTORE XR1 .RETURN TO USER
.EXPECTED ERROR FL.AG .ACTUAL ERRCR FLAG
.PRINT OUT ERROR FLAG
·STORE RETURN ADDRESS .TEST HOB/EXT FLAG ON
.MOVE IN ERROR TYPE
.GO PAINT HDB,EXT ~HECK .TEST CeSe AOOR ERRo
.MOVE IN ERROR TYPE
aGD PRINT c.s. ADoRo CHKa .TEST c.s. WRe DATA CHK·
.NOYE IN ERROR TYPE
eGO PRINT C·S· WR. DATA CHK·
.ics"t c.s. DATA CHKe
.MOVE IN ERROR TYPE
.GO PRINT C.5. CHK. eTEST FOR OP DECODE CHK ONLY .JF NOT TEST FDR NO CHK. .MOVE IN ERROR TYPE
.GO PRINT OP DECODE CHECK
·TEST FOR NO CHECKS
.1F NOT1 EXIT
.MOVE IN NONE MSG·
·MOVE NONE TD LOG OUT
·
PROG ID PAGE
· · · · · · · · · · · · · · · ·~ · · · · · · · · · · · · · · · ·
IBM MAINTENANCE DIAGNCSTIC PROGRAM
PART NO. PAGE
4234255 69
IBM MAINTENANCE DIAGNCSTIC PROGRAM
8912
DISPLAY ADAPT fR TEST
DISPLAY ADAPTER TcST
ERR LOC OBJECT CODE
ADDA STMT SOURCE STATEMENT
ERR LOC OB.IECT COOE
AOOR STNT SO~CE STATEMENT
6378 co 87 6380
63 7C CO 87 0000
6380 34 08 6399 6384 CO 87 021 A 6388 81 6389 24 638A 6.3FS 638C 3C 40 63FB 6390 OC 22 63FA 63[-B
6396 co 87 0000
8365
a
8366 PCERRi B
8367
8368 PERR ST
8369
e
6388 8370
DC
6389 8371
oc
6388 8372
DC
8373
MVI
8374
MVC
8375 PEFiiT e
8376
·-·PERR
PERRT+3vARR
PRINT
XL1 1 81· tL1·36· AL2 (ERRPee) ERRPOE,.C· ·
·-·eqRPOE-lC35l.ERRPOE
·GO PRINT ·NONE· .RETURN TO USER .STORE RETURN AooRESS
.GO PRINT ERROR TYPE
eBLANK OUT PRJNT AREA eRETURN TO USER
639A CSE707CSC3E3C fe4 63A3 8377 R1scxP DC
6JA2 4060
8377
63A4 09C5C3CSC9ESC~C4 63AD 8378 R1SREC DC
63AC 4060
8378
0..lO'EXPECTED -·
Cl..lO'RECEIVED -·
63AE D6C740C4C5C3CtC<l 6386 8379 IHeQPO DC
6386 cs
8379
CL9'0P OECCDE'
6387 40C4ClE3C140C~e 63C1 8380 R1aCHK DC
630F C5C.l02
8380
CL11' DATA CHEC.C 1
63C2 C8C4C261CSE7E~ 63C8 8381 P18HDe DC
63C9 40E609C9E. 3C5· £C4 6~03 8382 Rl ewRo DC
6301 C1E3Cl
8382
CL 7 · ti08/EXT s CL1P WAITE DATA·
6304 050605CS
6307 8383 Rl8NON DC
6307 8384 ERRPOS EQU
6308 4040404040404 C40 63FB 8385 ERl'POE DC
6JEO 4040404040404(40
8385
·-1CL4·NCJNE·
36Q.. t · ·
.START OF PRINT L!NE .PRINT LINE
63E8 4040404040404(40
8385
63FO 4040404040404'40
8385
I (
63FS 40404040
8385
6054 8386 R 1 ecs EQU
STATM2-U
63FC 0000
6059 8387 Rl8CSA EQU STATM2-7 ·
63FO 83e8 RlEWK DC
XL2·0·
·WORK SPACE
················$····················· 88339809 ·
SUSROUTINE - PRl~T ERROR LOG ***·~·****·******·***********·****
88339912
·······························~······
·
THE FOLLOWING SUSROUTINE WILL CAUSE
A
PRINT
0lJ1
CF
AN
ERROR
8393 *
LOG WHICH IS CONPILEO UNIQUE TO EACH HALT.
*·"' (
63FE 34 08 64C5
6402 CO 87 021E f:406 01
~407 65F2
6409 65F7
6406 Co 87 021E 640F 01
6410 6SF1
6412 65F5
6414 30 00 65F3 6418 F2 81 A7
6418 06 00 6404 65f6
oc 6421
00 64~4 66 (1
E427 CO 87 0.11A 6428 91
642C CO 87 021 A 6430 81
6431 OF 6432 6404
6434 OC 01 64EF 64C6
to43A 0C 01 64F9 64 CA
8394 ·······--··············································t··············· {
8396 ELPC
ST
ELPORT+3tARR
eS~VE RETURN ACORESS
'\. ...
8397
6
UNPACK
eUNPACK THE HALT CODE
6406 8398
DC
XLl '01 1
6408 8399
DC
AL2 ( ERRHLT)
640A 8400
DC
AL.2< UNPHL T)
8401 640F 8402
B
\INPACk
DC
l'lLl'Ol'
..UNPACK THE ROUTINE NUMBER
6411 8403
DC
AL2(ERRATN)
6·'13 8404
oc
AL2(UNPRTN)
8405 8406 8407
CLI JE AZ
IPLFLGt 0 EL P O R T
ELPFSTC1J.DECONE(1)
*** REMOVE FOR RELEASE *** *** REM0··1 E FOR RELEASE ···
.INCREMENT ERRCR LOG NDo
(
8408
MVC El.PFL 0-l ( 14), EARl..OG
,5fT UP FOR PRINT OUT
8409
B
PRINT
eSPACE 1 8EFORE PRINT
64,B 8410 8411
DC
)CL 1 tCH t
B
PAINT
(_
6430 8412
DC
Xll t 81'
6431 8413
DC
11..1·1~·
l'
6433 8414
oc
Al.2(ELPFST)
\.
8415
NYC LOGROU(2J,fLPFL0-13
8416
NyC t..OGtt..TCZ>.ELPFL0-11
8417
6440 OC 01 644F 65(0 6446 oc 01 6457 64 4F E44C 30 40 0000
6450 co 01 6458
8·'18. THE FOLLOWING 9 OP! CHANGE ANv BLANKS IN THE
8419 · 10-BYTE ERROR LOG To DASHES.
8420
NVC CHKBLK+3(2)·LOGAOL
8421 LOt:PlO MVC
CLRBLK+3(2)·CHKBLK+3
(
PUT L.EFT AOR iN BLAN!< Cl:ECk OP MAKE AOOR JN CL~ OP=TO 81..ANK OP
8422 CHKSL.K CLI
8423
8NE
·-··X'40· OIKENO
Is THIS BYTE aLANk? BR IF NOT
6454 3C 60 0000
842/if CLRBLK MV i
6458 00 01 650f' 64 -<F
842 5 CHl<ENO Cl...C
645E CO 81 646C
6462 OE 01 644F 56 C9
8426
8427
BE ALC
646A CO 87 6446
8428
B
8429
646C CO 87 021A 6470 81
8430 PRTLOG B
6470 8431
oc
64 7:l OA 6472 64EF
6471 8432
DC
6473 8433
oc
~4 74 C 0 8 7 021 A
8434
B
6478 81
6478 8435
DC
6479 OA
6479 8436
DC
647A 64F9
6478 8437
DC
647C 0C 09 6508 64E4
8438
MVC
6482 CO 87 02tA
8439
8
6486 81
6486 8440
DC
6487 12
6487 8441
DC
6488 6508
6489 8442
DC
648A 30 07 65F 1
8443
CLI
648E F2 01 OC
8444
JNE
6491 00 09 650B 66 13 6497 F2 01 24
8445
8446
CLC JNE
649A F2 87 19 6490 30 21 65F1
8447
J
8448 TRTN21 CLI
64Al F2 01 IA 64 A4 CO 09 650B 66 JO 64AA F Z 81 09
8449 8450 8451
JNE CLC JE
64AD OD 09 6506 66'7
8452
CLC
64B3 6496 64BA 6488 64BC
F2 01
co 87
81
4F 6676
08 021A
64BA 6498 6480
8453 8454 8455 8456 8457
UOTPO
JN(:
B
DC
oc
DC
64BE CO 87 6602
8458 ELPORE S
64C2 CO 87 0000
8459 ELFORT B
64 C6 C509090609400 .;06 6404 5460 ELPFST DC
64CE C74005064B40E i
8460
6405 4060E7c7E7E7E iE7 64E 5 846i ELPF'-0 OC
6400 E7E7E7E7E7E7E iE7
8461
64E5 60
8461
E4E6 4040400906E4EJ7E 64EF 8462 LOGROU DC
64EE E7E7
8462
64FO 404040C8C103E ;:7E 64F9 8463 L0Gl-4L T DC
l:4F8 E8E8
6463
64FA 4040404003 D6C 77E 6508 8464 LOGLOG DC
6502 E9E9E9E9E9E9E 5£9
8464
650A E9E9 650C 640B 650E 64E4
13464 6500 8465 LOGA')L DC 6SOF 8466 LOGAOR OC
6510 512 6514 6516 6518 ~51A 65JC 651E 6520
60A2 6559 6087 6563 6047 6560 60Q 6577 6083
65! l 8467 HT.ABLE OC
6513 8468
DC
6515 8469
DC
6517 8470
DC
6Sl9 8471
DC
6518 8472
DC
6510 8473
DC
6!:1F 8474
DC
6521 84?5
DC
6522 6581
6523 8476
DC
6524 60 El 6526 6588 6528 60F7
6525 8477
DC
6527 8478
DC
6!:29 8479
DC
652A 6595
6$2B 8480
DC.
65.t::C 39A6 t.S2E 659F 653 0 OEOl 6!32 65A9
6520 8481
DC
652F 8482
DC
6531 8483
oc
6533 8484
oc
·-·.x·t>o·
LOGAOR(2) ,CHICB'.K+3 PRTLOG CHK8LK+3(2J.X0001 LOOPlO
PRINT XL.1·e1·
1Ll 1 10·
AL2(L0GRQU) PRINT XL1'81' ILl·lO· AL.2(LOGHLT)
LOGLOG(lO)tELPFLD-1
PRINT XL1·81· IL1 1 l8'
AL2(LOGL.OG)
ERRRTN,X"07·
TRTN21 LOGLOG( 1 0) ·ULOGl
EL PORE \.t!TPO ERRRT NoX · 21 ·
ELPOAE LO<;LOGC10>oU.OG2 UDTPO LOGLOG(I0)1ULOG3
El...PORE PAINT XL.1 1 81·
IL1·7~·
AL2(U0TNSG) ELL INK
·-*
x· CL15·ERR~R LOG NOo
CL17· -xxxxxxxxxxxxxx-·
CL10'
cuo·
CL18·
FiCUTaXX· f"ALT=YY·
LOG=Zzzzzzzzzz 0
Al..2(ELPFLD-10)
AL2(ELPFL0-1) .Al.2( STAT~?)
AL2(M7LJ
AL2( STAT916)
.Al.2(M6LJ AL.2 (STAT fil5) AL2C M5LI Al..2 (ST AT M9) AL2(M9L) -.__ 2( STATMS)
~L2(M8L)
AL.2( STA TNA) Al.2(MAI..) Al.2 lSTATt18) Al.2( MBL) AL2(RlCMl) Al.2( MIU Al..2(0POECF) AL2 (MClPO)
D"TE
07JUL 75
£C NOe 825023
25<CT15 82f032
PROG 10 PAGE
QB91-2 69
07JUL 75 825023
25C.CT75 82 S>32
15.JAN76 825034
PART NOe PAGE
= PUT IN A DASHe
INCR· ACOR RIGHT BA IF SOe !NCR· ADDR·
BYTE
TEST FOR RTN Oi IF NOT TEST FCR RTN 21
TEST FOR POSSIBLE VDT ERROR OUT IF NOT
GO PRINT CAUTION TEST FOR RTN 21 OUT IF NOT
TEST FOA POSSIBLE UDT ERROR PR INT IF SO TEST FOR PClSSIELE UCT ERROR OUT IF NOT GO FOR INT MESSAGE
*** REMOyE FOR RELEASE ***
.RETURN TO USER
LEFT AOOR OF 1 0-B 't TE LOG RIGHT AOOR
· eTABLE OF ~ESSAGES FDA PRINTM · · · · · ·
· · · * "· '
·.··..
FROG IC
PAGE
0891·2 69Al
IBM NAINTENANCe DlAGN(STtC PROGRA-e
8912
DI SPLAY ADAPT IR TEST
ERR LOC OBJECT CODE
ADCP STMT SOURCE ST ATEMBIT
6534 613E
6!!3!5 "85
DC
6536 6583
6537 8486
DC
6538 6140
6539 8487
DC
~SS.ifl 6580 ~ 6160
6538 8488
DC
6530 8489
DC
6153E 65C7
6!53F 8490
DC
6540 6176
6541 8491
oc
6f42 6501
6543 8492
oc
6544 617E
6545 8493
DC
6546 6508
6547 8494
DC
6548 6190
6349 8495
DC
«:54A 65ES
6548 8496
DC
65-C 619A
6540 8497
DC
654E 619A
6!54F 84-98
oc
6550 C1E3E340E2D5Ci40 6559 8499 M7L
DC
~558 09C4
8499
65SA C9C5E3D940070 !!C4 6S.'3 8500 M6L
DC
6562 4040
8500
t'i564 CIE3E340C3C80 '40 6560 8501 "15L
DC
~56C 4040
8501
656E ClE3E340C2E4EcE8 6577 8502 M9L
DC
6576 4040
8502
65?8 CIE3E340D5610~C4 6581 8503 MeL
DC
6580 E840
8503
6582 C905E340E2C24 C07 6988 8504 MAL
DC
658A DSC4
8504
~sec .;: 1E3E340E2C24 lC2 6595 8505 fllBL
DC
6594 E2E8
9505
65% E7E740C905E30"40 6591" 8506 ,_IL
DC
659E 4040
8506
6SAO D60740C4CSC34(40 65A9 8507 MOPD oc
65A8 4040
8507
65AA E4C5C5E7D740CSD5 6'!!83 8508 MBO
DC
6582 E340
8508
t5B4 D50961E..C3·04t·O 6580 8509 ~Bl
DC
655C 4040
8509
~5BE 050961E4C340Dtc6 65C7 8510 M82
DC
65C6 C640
8510
65C8 C8C4C240E2DSE·40 6501 8511 MB~
oc
6500 OSC7
8~11
65t>2 C2E2C3C16009C fC 1 6S>B 8512 M84
DC
65DA C4EB
8512
650C C1C360050660C g>5 65E5 8513 ~BS
DC
t5E4 E340
8513
t5e6 Fl
6SE6 8514 DECONE DC
t5E7 4040404040404C40 65FO 8515 BLANKS DC
65EF 4040
8515
t.5F1 00
6SF1 8516 EASORTN DC
t.SF2 00
6~2 8517 ERRHL.T DC
eSF3 01
65F3 8518 lPLFL.G DC
65F4 0000
6SF5 8519 U"'FATN DC
65F6 0000
65F7 8520 UNPHL. T oc
t5F8 4040404040404'40 6601 8521 EARLDG DC
6600 4040
8521
8522
6602 CO 87 64C2
6606 co 87 ~37
es23 ELt.INK B 8524 TERl..fl!K 6
660A E.2F8FOFOC6FOF CFO 6613 8525 ULOG1 OC
6612 F060
8525
661A 0409C5FOFOF1Ft:FO 6610 8526 ULa.2 DC
661C C560
8526
661E 04D9CSFOFOFOC ff'l 662? 8527 ULCG3 DC
6626 F660
852?
6628 C3C1E4E3C9060!40 6652 8528
DC
6t:30 6040C905C.31>60 to9
8528
~638 C5C3 E340f4C4F. .;40
6640 CID5C461D6094 cce
8528 8528
6648 ClC'9C4E6ClD9Cf40
8528
AL2(STATeo· ll..2(MSO, AL2(STATE1 I AL2CNBU "L2CSTATB21 AL2(MB21 AL2C STATB3) _.L2(MS3)
AL2CSTAT8") A.2CMB4» .el.2 (STATe5) AL2CNB51 -..2CSTATB6 I
AL2(STATB6) CL.10 1 ATT SNS RD· CLIO· INTl:i PND
Q. lo· ATT BUSY
CLIO' INT SB PNO·
CL1 o· 4'TT se esv·
cuo· "'1Vuc
XLi·O · XL.PO· XL.l·Otc XL.2 8 0 8 XL.2· O· toa..1 · ·
ft..POAT LNKTER
CL 1oesso0Foooo-·
DATE
07.JULTS
EC ND· 825023
2SCCT75 82~032
15.fANT6 825034
PART NO.
PA6E
1
I { 4234255 7o
IBM MAINTENANCE OIAGNtSTIC PROGRAM
8912
DISPLAY ADAPT £R TEST
PART NOe PAGE
·2~255
'POA
ERR LDC OBJECT CODE
ADOR STMT SOURCE STATEMENf
6650 C6D609
8528
6653 400406C4C5034 <F2 66?6 8529 UDTMSG DC
6658 40E2E40707060 ~3
8529
CL36· MOCEL. 2 SUPPORT CAN CAUSE THIS HALT'
6663 40C3C10540C3C 1E4
6669 E2C540E.3C8C9e '40 6673 C8C103E3
8529 85.29 8529
8530
8531 ...................
8532 * PROGRAM EQUATES *****************************************************
8533 ...................
8534
8534
5AOO 8535 SA \IARR EQU
s9Fa 8536 SA\IXHl EQU
fCETBR+3 RESTOR+3
59FC 8537 SAVXR2 EQU RESTOR+7
8538
0001 8539 XRl
EOU
0002 8540 XR2 0004 8541 PSR 0008 8542 ARR
EQU
EQU x·04· EQU x· oa·
0222 8543 HALT EQU x·222 1
0080 8544 $Silt 0 EQU
0040 8545 SSW11 EQU
0020 8546 SS·12 EQU
x·20·
0010 8547 SSIU3 0008 8548 SS11114 0004 8549 551815
EQU EQU
EQU
Jl· 10·
x·oe·
x·o··
0002 8550 SSW16 0001 8551 SSllll 7
0008 ess2 ss111c
EQIJ EQU EQU
x· oee
0001 8553 SSWlF EQU 0002 8554 SS"lE EQU 000 l 8555 SS1i12F EQU
0200 6556 ~ODTVP EQU
0208 8557 SSYTEO EQU
x·o2· x·o1· x·2oc·
x·208·
020A 0558 SSYTE2 EQU 0208 8559 SBYTE3 EQU
0200 8560 SBVTE5 EQU
0212 8561 TEST EQU
x·20A ·
JC·2oe·
x·aoo·
x·212·
021 A 8562 PRINT EQU 0216 8563 t.1 NK EQU
xe21A·
x·216·
022A 8564 LOAD EQU x·221o·
s DEC1 MAL ONE
021E 8565 UNFACK EOU
0020 8566 P 1 IAR EQU
OOCO 8567 IARl
EQU
OOAO 8568 IAR2 EQU
X"21E·
x·20· x·co·
PRCGRAM 1 IAR
INTERR\PT LEVEL l IAR
8569
8569
.ROUTINE FLAG FOR P~OCs CHKo
"EXTERNAL LINKAGE BRANCH .EXTERNAL LINKAGE BRANCH
lo
0049 8570 IN32CA EQU
004C 8571 8$CAE£M EQU
0058 8572 NOTRDY EQU
0059 8573 INTPNO EQU
0050 8574 ATT<;HK EQU
0058 8575 CSCHK EQU
005E 8576 FET~RD EQU
005C 8577 FETADR EQU
005A 8578 HOBCHK EQU
OOSF 8579 BUSY
EQU
0048 8580 HOBO
EQU
0049 8581 HDBl EQU
004A 8582 H082
EQU
0048 8583 HD83 EQU
004C 8584 HDB4 EQU
0040 6585 HOBS
EQU
004E 8586 HDB6 EQU
004F 8587 l-i087 EQU
0(158 6!SB8 CTSTOR EQU
0059 8589 OPOEC EQU
X·49·
X'4C'
X·58·
x·s9·
x·so·
x·sa1 X·sE t
x·sc· x·sA·
X·SF·
x·4s·
x·49c
)(G4A'
>! 9 48 1
x·..c·
X·4D 1
X"4e·
X·4F·
x·se·
x· 59·
TIO 32CA INST o
TtO BSCA/3271 E~UL· lHSTo
TIO NOT READY
TIO INTERRUFT PENDING
TIO ATTACH~ENT CHECK TIO c.s. CATA CHECK
Tl~ c.s. -RITE DATA CHECK
TIO C·S· ADDRESS CHECK TIO HDBJ'EXT CHECK
TIO ATTACHMEhT BUSY
LIO/SNS HOB 10-11
LIO/SNS HOS 12-&3 LIO/SNS HOB 14-15
LIO/SNS HOe 16-17 Ll~/SNS HOe 18-19
LID/SNS HOB tA-18
LIOl'SNS HDB 1C-1D LiO/SNS HOS IE-IF
LIO/SNS CONTROL STORAGE
LIO OP OECCCE REGS
PAOG ID PAGE
0891 -2 j . DATE
: e '10 i EC NO.
07.IUL?'S 825023
25 'CT75 a2 eo32
15JAN76 625034
PROG ID
PAGE
0891-r. 70A'
l
.I.10 I 1G
······· ···
IBM MAINTENANCE OIAGNCSTIC PROGRAM
PART NO. PAGE
42342S5 71
IBM MAINTENANCE OIAGNCSTIC PROGRAM
8912 ERR LOC OBJECT COOE
8912
OISPL~Y ADAPTER TEST
AOOR STMT SOURCE STATEMENT
ERR LOC 08.JECT CO OE
oo5a 8590 MS OAR EQU
0058 8591 Sl Cl eau
0048 8592 SION [ 0 EQU
00.\9 8593 SlONll EOU ooec 8594 BSOAR EOU
X·SB·
x·se·
X·48 1
x·49· x·ec·
LIO/SNS CAT LS ACOR REG (CRTAR) r . \. .. · ~~~
SIC IMME DJ ATE
SIO NON-IMMEDIATE LINE 0 SIO NON-IMMEDIATE LINE 1
c:
LIO/SNS esc- 2 ACOR REG(BSCAA)
8595
lREP
8596 *
SECT ION B91
lSYS/J DISPLAY ADAP'TER TEST
()
8597
TREP
8598 8599
········T·R·E·P································*···························
8600 · SSW 10 ON PAINTS HDB·s IN ROUTINE o· ANC 05
·
8601
TREP
8602 · SSW 12 ON PRINTS CC~TRCL STORAGE IN ROUTINE 07
· c
8603
TREP
9604 · SSW 17 ON BYPASSES CCNTAOL STORE LOAD FOA A TIGHT LOoP WHILE
8605
TREP
8606 ·
LOOPING ROUTINES.
8607
TREP
8608 · SS· 1C ON CAUSES ROO'TINE 24 TO ee SKIPPED·
8609
TREP
8610 · MANUAL SELE~TION ROUTINES-
8611 8612 ·
TREP
ROUTINE 41 - c.e. MANUAL MICROPROG~AM
8613
8614 *
TREP
ROUTINE 42 - c.e. TEST BOX CHECK OUT ROUTINE
8615
TREP
8616 ·
ROUTINE 43 - HOB AND CONTROL STCIAE DUMP UTILITY
8617
TAEP
8618 · WARNING - THIS SECTIC~ DESTROYS T~E MICROCODE REOUJR~O FOR SYSTEM
8619
TREP
8620 ·
OPERATION. ~UN SECTION 893 TO RELOAD.
8621
TREP
· ·
·
c
c;
· ·
c
· 0
·
·
e
· 0
8622 ·······································································
0
ADOR STMT SOURCE STATEMENT
FFFF 8624
END
0
0
· . -· ·.._._..,,.._.,,,
PART NO. PAGE
42342!5!5 7&A
DATE
07.IUL 75
EC NO· 825023
2SCCT75 82!032
e\
""'
PROG ID PAGE
I
I
c I
I I 0891-2' DATE
71
EC NO·
I(;
lo
i I Ci
07JUL75 825023
25 CCT75
82 £032
1SJAN76 825034
PAOG 10 PAGE
- --- - ..... --- -·~
·
IBM MAINTENANtE DIAGNOSTlt PROGRAM
8912 DISPLAY ADAPTER TEST
SYM8CL. T LEN VALUE DEFN
ACHCHK A 004
ACTEP.R A 001
ACTR3F A 002
ADONO A 006
ADOYES A 006
ADRAOO A 004
ADP.BOO A 004
AORCOO A 004
AORMSG A 028
AORlOO A 004
AOR200 A 004
A0R300 A 004
AOR400 A 004
ADR500 A 004
ADRbOO A 00~
ADR700 A 004
ADRBOO A 004
ADR900 A 004
AEH3C A 002
AEH39 A 002
AGAIN A 004
AGAlNl A 004
ARR
C 001
51F1 62E6 4A56 49FE 4A26 1550
1569 1582 449F 1467 1480
1499
l4B2
14Ct!
14E4
14FD
1516 1537 398C 398A 5C44 lOEl 0008
1108 8331 6571 6550 6559 1015 1023 1031 6259 091tl 0949
0957 0965 0973
0981 0989 0997
1007 5588 5581 7871 0676 8542
ATTCHK C 001 0050 8574
ATHLC A 001
ATTMA A 002 8AODR A 002
SAOT IO A 004
BCYST A 001
SCYSTA A 004 8CYSTl A 002
BLANKS A 001 BLCJCK2 A 004 BlOCK3 A 004 BLOCK4 A 004 BLOCK5 A 004 6L0(Kb A 004 BLOCK7 A 004 BLOCKS A 004 BLOCK9 A 004 BLOKlO A 004 BLOKll A 004 6LDK12 A 004
BL0Kl3 A 004 BLOK14 A 004
BLOK15 A 004 BLOK16 A 004 BOSAOR A 002 BRUO A 002 BSCAEM C 001 BSOAR C 001 BSSER2 A OOio BSYERR A 004
BSYERl A 004
BSVER2 A 004
BSYER3 A 004
SUSY C 001
88910 A 001
CS12 A 004
C.C 'f°S TL A 002 CHKBLK A 004 CHKENO A 006 CKFFN A 004 CK FFN l A 004
6180 6U.2 5A05 4C42 3886 3669
38BC
65FO
5A4f 5A5F 5A70
5A61
5A99 5AA0
5ABF
5A01 5Af d 5AFD
~BOf
5821 5638 564D 5B5F
5AltC
SOA4
004t 008C 3886 3743 3£14 3772 388E 005f
OOOQ
5406
3~tu:
644C
6458 4815 025
8211 8205 1658 6743 5860
!'861 5863 8515 7689 7695 7701 7707 7115 1121 7127 7733 7741 7141 7753 7159 ll6l
7773 7779 7686 1961 8571 8594 5831 5316 5790 5336 5642
8579 0004 7295 5864 8422
1&425 61t11t 6481
CROSS-REFERENCE
REFERENCES
7103 8271* 8273· 8275· 8277· 8279· 8281· 8286 ~547· 6548
6549 1008 1016 1024 6250
1032 6254
0942
0950 0958 0966
0974
0982 0990
0998 5578 5567 7882 0687 0643 0649 1175 7836 7844 7915 0073 0225 0236 8124 8280 0224· 0226· 0238
6222 6534 6966 7998 8255 9266 0454 0465 0890
0~53· 0455$ 0467
7159 8334 1054
7587 7588 6742 5863
5175· 5799 5801 5782 5830 6807 8041 8099 8261 7625 7690 7696
1702 7110 ?716
1722 TlOB 7728 7736
1142
1748 7734 ll5't 1162
7168 7774
7631· 1'632· T633
5807
5809
5782· 5630· 6801·
5828 5307 5780 5328 5851
672"
1292
8420· 8421 8423
6473· 6480· 6481
8425 8427· 6493· 6494
DATE Ol.3Ull5
EC NO. 825023
250Cl15 825032
15JAN76 825034
· ·
8291
7328 8366 1079
8297
7332 8396 1104
8311
7:;86 1253
PART NO. PAGE
4234255 IBM MAINTENANCE DIAGNOSTIC PROGRAM 72 (..
8912 DISPLAY ADAPTER TEST
PART NO. 4234255
PAGE
72A
( SYMBOL T LEN VALUE DEFN
CROSS-REFERENCE REFERENCES
7578 7793 7038 7815
PROG ID PAGE
CKFFY A 004
CKFFY l A 004
CKHIZ A 004 CKLOW A 004
CKLOWZ A 004
CLRBLK A 004 COAXl A 013 COAX2 A 012
COAX3 A 039
CONTUE A 004
CSCHK c 001
CSLO A 001
c CS WORD A 002 CTSTOR C 001
c ' DECONE A 001 DEC3C A 002
O~C3E A 002 DEC33 A 002
DEC3"t A 002 OEC35 A 002 DELAY A 006 DEVAOR A 001 (_i
47C5 4703 5E70 5EbA 5E90 6454 440C 4510 4537 2Cl0 005rl 5A08 5A02
0058
65E6 4AC2
4At4
359F 35Al
:35A3
551F 4538
6448 6451 8064 8060 8068 8424 6261 6263 6264 3808 8575 7660 7656
8588
8514 6600 6601 5106 5107 5108 7341 62:65
DEV ID A 001 6lAF 8210 OEV3F A 001 4A'"·E 6567
\.. OlSERR A 004 OOHIS A 004
OOHISl A 004 \._. OOMICR A 004
3709 5C65 1102 54FE
5367
1884 0689 7332
(':DOMICZ A 004
l OOH IRA A 004 DOfllIXl A 004 OORT42 A 004 DOR3C A 006 l'EADDR A 002
EHBP A 001
54EF 555F
5558 296E
402C
5A07 5540
7328 1360
7359 3480 5976 7659 7352
(: EH3C A 004
EH39 A 004
ELUNK A 004 ( · ELPFLO A 017
ELPFST A 015 ELPO A 004 ( ELPORE A 004 '- ELPORT A 004 EMPiYE A 004 \t_ ENDFIL A 003
397A
395t 6602 64E5 6404 63FE 64BE 64C2 4802 5905
5580 5569 8523 8461 84oO 8396
8458 8459
6lo66
7b39
ENDNO A 004 485A 6496
EN DYES A 004 480A 6471
EN03F A 004 4881 6512
ERHCl A OOZ 6298 8303
l i ERHC2 A 002 <-- ERRHL.T A 001
I
6202 65F2
8,2? 8517
Ci 0691-2\ DATE
Il . 7Z
EC NO ..
{J
07JUt.75
8Z5023
250Cf15 825032
. ,.i· I 10
6447* 6450* 6453 8061
8057 8065 8421· 6238 6242 6246
6463· 6464
0079 0081 8278
7608 7610* 7647·
7602* 7620* 7624 7631 7634· 7635 7643* 7689 7695 7721 7727 7135 7741 7747 7753 7761 7761 7773 0172· 0757· 0775* 0817· 0820 0823* 0826 0866· 0886 1243· 1246* 1262 2B35* 3624* 3634· 3669 3670* 3673 6955· 6956· 6951* 6911* 6975· 6978· 6982* 7034 7147 8407
7701 7709 7115 7779 1050 1075 1100 3682 3687~ 36~5'
7618· 1633·
6276
6282
5083
soq9
5095
7345
5993· 5999* 6005· 6016* 6022~ 6028· 6039· 6045· 6051· 6062* 6068· 6074· 6085· 6091* 6097* 6108* 6114* 6120· 6131· 6137· 6143· 6154· 6160· 6166· 6177· 6183* 6189· 6200· 6206· 6212· 6249
0060* 8073
6310· 6314· 6317· 6324* 6327* 6330* 6337· 6341* 6344· 6351· 6354· 6357· 6364* 6368* 6371· 6378* 6381* b384· 6391· 6395· 6398· 6405· 6408· 6411* 6418· 6422· 64~5* 6432* 6435· 6436· 6454· 6457 6484· 6487 6556 6565 5342
7880
0685
1278 2083 3010 3837 4662 5217 5985
1284 2212 3071 3871
4761 5303 6230
1374
2303 3152 3898 4899 5321 6899
1·~41
2383 3224 4057 4998 5324
1556 2433 3320 4063
5133 5502
1632 2489 3486
4074
51.38 5659
1698 2603 3520 4172 5143 5663
1760 2665 361.6
4267
5191 568!
1823 2725 3636
41tl8 5197 5716
1887 2166 3765 4470 5202 5795
1943 2853 3785 4517 5207 5846
1999 2958 3813 4564
5212
5852
7328*
7335· 3478
5971
7580· 7588· 1590· 7621· 1275· 2851· 3317· 3760· 3780· 3808· 3832· 3866· 3893· 4266· 4417· 4469· 4516* 6229· 7357· 5588 5587 8458 8408· 8415 8416 8438 8465 0061· 8125 8407* 8414 2887 3361 6509 6825 7237 7816 8152 8318 8446 8449 8453 8396· 8406 8523 6449 7609 7627 7692 7698 7704 1712 7718 7724 7730 7738 1744 7750 7756 7760 7764 7770 7776 7780 7782 6482
M52 6475
8260· 8264·
2885· 6506· 6817· 6819 1806* 8044* 8262* 8399
1!5JANl6 825034
PROG IO PAGE
· · · · · · · · ··'!.- ·- · · · · · · · · · · · · · · · · · · · · · · ·
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PART NO. PAGE
c 4234255 73
IBM MAINTENANCE DIAGNOSTIC PROGRAM
8912 DISPLAY ADAPTER TEST
CROSS-REFERENCE
c 8912
DISPLAY ADAPTER TESI
CROSS-REFERENCE
SYMBOL T LEN VALUE DEFN REFERENCES
SYMBOL T LEN VALUE OEFN REFERENCES
ERRLOG A 001 6601 8521
ERRPOE A 001
ERRPOS A 001
ERRRTN A 001 ERRT A 004
ERRO A 004 ERRl A 004 ERR2 A 004
ERR3 ,A OOlt ERR4 A 004 EXERR A 001 EXPR3F A 002
EOOFF A 002
E55AA A, 002
FETADR c. 001 c FETWRD 001
FETllN A 004
flllCS A OOlt FJlLFF A 006
63FS 6307 65Fl 62El
6250
6255 6240
6245
6230 62E5 4A54 1981 1995
oosc
005E 1528
5980 59Cl
8385 8384 85H. 8328 8284
8280 8278 8276 8274 8330
6570 1386 1395 8577 8576 1003 7624
7631
FOUR A 001 GET1K8 A 006 GOELPO A 004
HALT C 001
5All 595A 5FBF
0222
7667
7596 8152 8543
HA VINT l 003 HCADR A 002 HOADRl A 002 H06A A 002 H08AC A 002
HOBC HK c 001
H08ER1 A 004
H08ER2 A. 004 HOBH A 004 Hll8Hl A 004 H08L A 004
HDBll A 004 HOB ST A 002 HOBSTC A 002
HD!"'l c 001
38E2 SC38 1008 0053 OFEC
005A 37H 37E9 5t:sE7 1084 5BF9
1096 005F OFF6 0048
5513 7866
0671 Ol56 0587 8578 5372 5377 7838 061t3 7844 0649 0363
0592 8580
H081 c 001
HD82 c 001
HD83 c 001
HD84 c 001
HDBS c 001 HD86 c 001
HD87 c 001
HOB900 A 002 H0890l A 002 H08902 A. 002 HDB904 A 002 HDb908 A 002 H0El9l0 A 002 HD8920 A 002 HD8940 A 002 HD898C A 002 HDNG A 047
0049
004A
004ts
004C 0040 004E 004F 303A 3038 3036 3034 3032 3030 302E 302C 302A 5CBE
8581
8582
8583
8584 8585 B5e6 8587 4366 lt365 4364 lt363 4362 lt361 4360 4359
4~58
7901
0015 2883· 2884* 3332· 3336* 3340· 3354· 3355· 3356· 6508* 6648· 6670· 6810· 6814· 6823 7163* 7164* 7208* 7209· 7214· 7218 7224* 7291· 7294* 7814· 8041· 8042· 8043· 8048* 8049· 8052· 8053· 8058* 8059* 8062· 8063* 8066· 8067· 8070· 8071· 8079* 8080· 8081* 8086* 8087· 8090· 8093* 8098· 8099· 8109· 8115· 8143· ~146* 814°· 8183· 8261* 8288* 8317· 8364* 8408 8269· 8270 8270· 8372 8373$ 8374 8374· 8337· 8338· 8342· 8343· 8347* 8348* 8349· 8353· 8354· 8358· 8359· 8363· 2886· 6507· 6818· 7807· 8045* 8263* 8403 8443 8448 8255· 8257 8258· 8266· 8295
8280
8278
8276
8274
8272
8259· 8268· 8289 8297 8304 8315
6548
1372 1380
1389
0223 0452 0868 6687 6706 8274
0077 0222 0451 0867 8276 1000
7616 7637
7628 7636 7693 7699 7705 7713 7719 7725 7731 1739 7745 7751 7757 7765 7771 7777 7783
7586 7796
7595·
1298 8141 8144 8147 8150
2888 3366 6510 6537 6642 6657 6664 ~683 6702 6720 6738 6755
6775 5507
6798
6828
6931
6940
691t4
6947
6950
7240
7819
8i57
8321
7848·
0653·
0260· 0297· 0314· ~317 0372· 0489* 0602* 8019 8024 0526· 0543· 0546
0078 0303 0321 0532 0550 8272
5351
5356
0325 7014
0554 7016
0327 lOU
0556 7015
0205· 0286 0297 0301 0321t 0326 0340 0342·
0434· 0515 0526 0530 0553 0555 0569 0571·
0161 0243· 0244 0243· 0246 0288 0298 0369 1372· 1379 1439· 1552·
1561 4264·
2658· '4415·
2660· 41t67·
3222· 4514·
3316· 4993·
3329 5983·
3485· 6227·
3500· 7166
3646· 7850
3653·
3658·
4067·
1373· 1388 1553· 1569 1630· 1645 3330 3492· 3501· 3642· lt068· 4767
7167 7851
155" 1577 1629· 1637 3331 3493· 3502· 3615· 3618 3~43· 3763· 3783·
3811· 3835· 3869· 3896· 4069· 6634· 6636 6652· 7168 7852
1695· 1703 2844· 2859 2861 3494· 3503· 3764· 3784· 3812· 3836· 3870· 3897· 4070· 5343· 5349 7169 7853
1696· 1711 2850· 3495· 35044< 4071· 6547 7854
3228 3496· 3505· 4061· 4765 7855
3497· 3506· 4072· 7856
0163 029~ 0318 0744· 0745 0758 0864 0869 lt255 4406 4458 4505 5976
6042 6105 6163 6342 6319 6412
6036 6()94 6Ul 6339 6372 6409
6025 6088 6151 6209 6331 6369 6406 6439 6019 6082 6140 6203 6328 6365 6399 6436
6013 6071 6134 6197 6325 6358 6396 6433 6002 6065 6128 6186 6318 6355 6392 6426
5996 6059 6117 61CW 6315 6352 6385 6423
5990 6048 6111 6174 6311
64i.9
7846 7866
HONGA A 047
HONGAl A 047
HDNGB ' 047 HONG Bl A 047
HONGMA A 012
HDNGMl A 012
~NGl A 047
HOXXl A 002
HOl
A 002
HDll t. 002
H02
A 002
HD21 A 002
H03 A 002
HD31 A 002
H04
A 002
H041 A 002
HD5 A 002
HD51 A 002
H06
A 002
HD61 A 002
HD7 A 002
HD71. A 002
HOB
A 002
HD81 A 002
HIBITS A 004
(___ HOLOl A 002
5CF4
1191 502A llC7
5037 llDlt
11511 1106 SC7A 1117 5C7t
1119 5t7E 1118 5C80 1110 5C82 lllF 5C84 1121 5C86
1123 5C88 1125 548E ODEC
7903
0708 7905 0710 7907 0712 0706 0713 7892 0697 7893 0698 7894 0699 7895 0700
7896 0701 7897 0702 7898 0703 7899 0704 7275 0404
HOLD2 A 002
(- IARl C 001
IAR2 C 001 ( INCFLC A 001
JNCFLG A 001
INSWR A 004
( INTEX 1 A 004 ·- ~NTEX2 A 003
INTFLG A 001 { INTPNO C 001
. INT38 A 004
INT38A A 002 ( IN32CA C 001
IOCHl<N A 003 IOCHKO A 004 ~ JPLFLG A 001 KATM A 019 KATHA A 043 ( KATMM A 020
LABEL A 004
LABELR A 004 ( LCSOIS A 003
LCSENA A 003 LOOP A 004 (, LFLAG A 001
ODEE
ooco
OOAO
OFF7 0060 SAltA 3964 3982 394C 0059 3940 3948
0049 4820 4855 65F3 18FC 1938 1910 OA24 OA2C 596A 5960 5038 5A03
Olt05
8567 8568 0593 0364 7684 5574 5585 5561 8573 5565 5560 8570 6633 6652 8518 1339 1341 1340 0052 0054 7600
7601 7915 7657
LINK C 001 0216 8563
()
c
0 LIOCS A 003 LISHA A 002
(_, LI SEL6 A 002 LISELC A 002
599f 30!C 303E 3040
7618 4369 4370 071
7840 0645 7868 0673 7862 0667 0651
7887 0692
0671
7850* 7869 0655· 0674 7851· 0656· 7852· 0657· 7853· 0658· 7854·
0659· 7855· 0660· 7856* 0661· 7857*
C662· 7272 0244· 0249 0831 0835 0246* 0249 0831 0835
0253 081tl 0253
0846
0255 0255
0261 0266
Olt7.3* 0478 0475* 0478
5476· 5524· 0435· 0514· 0519 0528 C~44 0572·
0206· 0285· 0290 0299 0315 0343*
5566 5577
5473· 5477· 5494· 5497 5523· 5527 5565
5560 5586 5476 552.it
6647
6614 6832 8405 1274· 1283· 1293 1297 1274 1283 0051 0053
0204
7584 7723 0014 1143
2003 2961 4025 4903 6058 8159 7576 4256 6037 6083
0240 7593 7729
0088 1289
2087 3013
4078 5002 6081 8324 7581 4407 6043 6089
0433 7598 7737 0109 1300 2216 3074 4108 5102 6104
7622 4459 6049 6095
0469 7612 7743 0115 1397 2307 3155 'tl36 5146 6127
4506 6060 6106
3603 7615 7749 0121 1445 2387 3252 4176 5220 6150
5977 6066 6112
3612 7626 7'is5 0127 1585 2437 3325 4274 5365 6173
5991
6072 6118
6892 7639 7763 0133 1653 2492 3368 44-25 5530 6196
5997 6338 6366
DATE 07JUL75 EC NO. 825023
25ocns
825032
1SJAff16 825034
PROG JD
PAGE
0891-2· ()DATE
07JULl5
10 73 I
EC NO. 825023
2SOCT75 825032
15JAN76 825034
0482 0484 0482 0484
5574· 5576
6928 7691
7769
C.139
1719 2668 3523 4479 5682 6215
7012 ...697
7775 0176 1764 2729 3703 4524 5691 6256
60Q3 6014
0490 0495
7027 7703 7781 0371 1827 2769 3744 4568 5858 6512 6020
PART NO. 4234255
PAGE
7JA
0820· 0827 0826· 0827
7614
nu 7117
0601 1891 2857 3849
4666 601Z 6833
0779
1947 2890 3904 4176 6035 7821
6026 6312
PROG 10
P~GE
0891-2 13A'
1'I 0
0
·
ISM MAINTENANCE DIAGNOSTIC PROGRAM
PART NO ..
PAGE
42.34255
14
8912 DISPLAY ADAPTER TEST
CROSS-REFERENCE
SYMBOL T LEN VALUE OEFN REFEREHCES
LI SEUl A 002 USHE A 002 lNKTER A 004
LOAO C 001
lOADCS A 004
3042 3044 4037 022A 5918
4372 4373 6835 8564 1571
LOAOl A 003
t0~02 A 004
1.0GADL A 002
l..OGAOR A 002
!..OGHl T A 010
lOGLOG A 018 lOGROU S'. 010
lOG)(AC A 004
LOGY AC A OO'i
lOGZAC A 004 LOOK A 005 lOOPlO A 006 lPCNT A 002
5047 5D5E
6500 650f l',)4f9
6508 64EF
5FA1
5FAF
5F67
SBAC
6446
5564
7919 7926
8'·65
8~66
S&to3 8464 8462 8143 8146 6149 1809 8421 H62
l<IAl
A ()10
MSl
A 010
MBO
A 010
MB1
~ 010
MB2
A 010
MB3
A 010
1'184
A 010
MB5
A 010
MFINO A 005
MICE!'<! A 003
MlCERR A 004
HICOM A 004
;.:IC.OP A 011
6580 6595 6583
6550 e5C7 6501
650~
65E5
5B!3B
55lC 5549 550A 5A38
0504 8505 8508
8509
asrn
il\5U 8512 6513 7813 7340 7351 1:05 1682
MICPRT A 014 5A46 7683
MODTVP C OCH
M~1PO A CHO MSDAR t 001
i'HABLE A 002
~\tlHLT A 006
Ml/LG A 006
~ll
A CHO
ll'l5L
A cno
f'\6l
A 010
M7l
A 010
Jo!ISL
i\ 010
l'i9L
.~ OlO
hEG3 A 002
NEXT
.A 004
NhADR A 002
NOMA~G A 006
NOPC
A 00&
NORC
I. 004
NORCl A 004
NGYH! A 004
NOTLO A 005
Nornov c 001
WP4
A ocn
NTHl A 010
0200 65A9 OOS8 6511 5343
58CCl
ib59f 6560
65~3
6S5«i 6581
6571'
!:l"<~E
5410 HEl 4CLa
4CF8
S2Cl '532'· 5E3F 5£52 0058 SEHi 4EOO
8556 8507' 8590 8467 7236 1814
8506 8501
8500 8499 8503
8502 not) 1210 823£ MHO
6814
7138 7226
eoso
8055
asn
$0911,
6851
6129 6175 l.>623 6835 1.270 2070 2599 :H48 3794 4051 5129
6135 6181 8524 6t;i03
1365 2074 2661 3215 3798 4162 5187
6141 6181
7110 1432 2078 2H4 3305 3803 4258 5299
6152 6198
1545 2203 2119 348C 3822 4400 5467
6158 6164 6393 6204 6210 6420
1622 2207 2750 3516 3826 4409
5~17
l68J 2297 2755 3594 3850 4461
5635
1754 2377 1.760 3665 3854 4508
576~
Hi17 2427 2839 370l 3857 4557 5979
1881 2473 2953 '.51·1,.9 3860 46'55 6223
1937 2411 3005
~753
3880 4754
6539
19<?3!
e 2 1..
3066
3755 386·4 1;892
6178
2066 2485 3144
3175 3881 4987
6801
6894
7922
7915· 8420 8';25 8416· 84.i!fl' 8438* 8442 8415>1< 8433
8130 8132
Bn4 8136
u n ~H40
8450
7812 8428 2124$ 2165· 2852* 3223· 3318· 3761* 3781· 3809* 3833· 3867· 33940 4265* 4~16* 4468· 4515· 4563· 4661· 4760~ ~898· 59860 6228· 73~2 734~·
8418 MSO 6486
6~98
8490 8492 8494
1'$96
n29e lfl.110 u:u~
nn
13590 2371· 1363 2375
1426* 1430
1539$ 1543
l6l6· 1620
1682* 1686
1148· 1152
1812* 1816
1875* 1019
1931· 1~35
1967· 1~91
2197· 2201
2291· 2295
'1808 7162 1513$1 8482 M?2 8410 Sl4i>8
fM1l'6 SH~
?HO "1"28l
ne.1
B228l'll ~7b2 US!i> 6688 6707
ne1 7185 1222 8041
8051 006~ 02t6 8092 6648 ~610
6~.0ti
6126
044~
61~3
1&56
ISM MAINTENANCE DIAGNOSTIC PROGRAM
'·
8912
(
OiSPLAY ADAPTER lESl
C.ROSS-REHRENCE
SYMBOL T LEN VALUE DEfN REFERENCES
!HH2 A 010 4EDA 6852
NTFE4; A 010 4EE4 6853
NTFHLT A 002 402A 6829
NTFIDE A 002 4018 6824
NTFUO A 003 -4E.EO 6856
NH·LOG A 006 4002 6811
NTFMl A 016 4DA4 6841
NTFM2 A 033 t10C5 6842
f>.IH-X3 A. 026 ·~ooF 6843
NTfM4 A 037 4E04 6844
NTFM5 A 027 4Eif 6845
NTFM7 A 049 4E50 6846
N1FH8 A 014 4E89 6848
!HFM9 A 028 4EC6 6850
NHRSt A 004 4BB5 6690
NTFS HJ A 003 4EE7 6854
NTFSNS A 003 4EH. 6855
NTFT!O A 003 4EHl 6657
NXTlll A 004 3900 5527
NXH8 A 001t 3SSE 5497
OPDEC c 001 0059 8589
OPDEC.D A 002 OOFO {)406
OPDECF A 017 OfOl 0407
c OPTDEF
001 OAO~ 1496
PA DC HK A 004 5198 8202
P,4R
.I\ 001 545C 7259
PASTCS A 001 3f:H3A 5862
PCHK A 004 621B 8266
·PERR A 001-t 6"60 8368
PER.RT A 004 6396 8375
P IOAOR A 002 5342 7234
PlOBl A 004 5299 7175
Pl082 A 004 52M 7180
PIOEH A 002 5357 7241
PIOHLT A 004 5349 7231
f>IOL TH A 001 5340 7233
PIOL l A 002 5455 7255
PIOl2 A 002 5457 7256
PiOL3 A 002 5459 1257
PIOREG A 004 525A 7159
P iORH~ A 004 535C 7244
P KOWl<l A 002 5456 7258
PIOXIU A 004 5358 1243
( Pli:lST A 004 5328 1221
PLASTA A 004 5338 7231
Pl'l3
A 002 5B9C. 7805
( PM4
A 002 5808 7820
' PM5
A 004 SB f l 782'~
PO ERR A 004 62E6 8334
?OH.RT A 004 637C. 8366
POFLG A 001 62.fl 8332
P'JU.NO A 001 l,A96 6573
l f'OLLNR A 010 49C5 6524
i~Oli YE A 001 1:+A 1b 657?.
POll'.H A 0(!4 49Co 65~4
POLNI".
POLY.A
PR!:lCS PRINl
,t;_ 00?.
A 00.2
A 001 C: 001
4A'j0 ·1A52 3885 02U
6568 6369
58~9
8562
6810
6814 664911< 6611* 6811· 6815* 6817
6019*
6711
6650 6672 6812
6627
6631
6641
6656
66b3 6632 6701 6674* 6678
6746* 6750
6119 6737 6693* 6097
.b766* 67?0
6754 67"1'4 !:>Hllll 6715 f,7{191' 6193
6197 61'2911< 6'133
0050
6674
6693
671.9
5526
5496
0230* 0459* 3597* 3b06* 5520* 7919* Oil29* 0230 0231* 0232 0458* 0459
0385 0615 8483
8124 '7263* 7269* l2BO· 1281· 1295 5774 5174~ ~81? 5820 1815 8207 8339 8344 8jiC 8355 8360
3368* 7220* H70 7175 7236·
83&5
7223* 1226* 1229~
7166· 7171.
n67* 7206 7168* 7180 7221 4272 4423 4475 4522
7159* 7171* 717&· 7212 7217
7160*
722S
1228
1791*
1'198·
7193:1!: 7195 11%*
8292 8305 8312
8334· 8362 8291* 0304$ 8311* 8335 630611< 6307 6307· 6569
6508
630'·"' 6305 6313 6316 6361 63?0
630~* 6568 6319 6326 6373 638()
6'·21 6''·2<· 6·fif21 6434
if:,.-{,"i3 i!J.f,.ii].Q 65~.!,)
6447
1:>559
5815; 5519
0054 0097 (1129 0154
1290 2061
29'~7
1.294 2198 2999
1360 2292 3060
14<:'.'l 2372 :H38
4046 4104 4132 4151
4982 5098 512) 5HH
6255 7264
6340
6329 6383
6t~-37
0199 l''.140 2422 3210 -42 '.iiO 5293
7275
8345
6332 6386 64'·0
0423 1611 2467 HOC 4395 5460
7282
6340 6394 6545
0&64 1683 2593 3357 't-450 5628
634~
6391 65Afa.S
Ou68 ._749 2708 H62 4500 S7e.3
63'4·6 6400
06d9 UH3 21326 '.;414 4552 '5%7
PART NO .. PAGE
635{;, ;<,·!HIJ
i.11'32 HH6
zen
3589
'if.50
6235
0801!:> 1932 2875 3718 4749
62~9
1220 1988 2879 4021 4SS1 620
DUE
07JUl15
EC NO. 8250B
250CH5 82:5032
!SJA~1~
825034
PROG IO
PAGE
07 JUL 75
825021
250CT75 825012
l~JAN16
825034
· · · · · · · · · · · · · · · · · · · · · · · · · ·
I
l
t:
f
r
!
I.
l
I
i ' l
/;
Ih\
1\
I
l
l '-·
· · · · · · · · · · ··········~. ·~-· ··1 '· I
18" RA1·TENA8CE OIAGNoSTIC PROGRAM
8912 DlSftUY ADAPTER TEST
CRQSS-REFE.REMCE
SYMBOL T LEN VAWE DEFN REFERENCES
PUNTM A 004 5872 1793
PRTABL A 004
PRTLOG A Q04
PRTN A 001
PSR PXRl
c 001 A 004
P03FEX A 004
Pl
A 005
PllAR c 001
RAPEXP A 002
RENTRY A 001
47fs7 646C
OA03
OOOlt 5800 4A4A
5884 0020 4445 4Efl
6443 8430 0012 8541 7823 6566 1797 8566 6232 6858
RENT3 A 004 RENT.It A 004 RENT4A A 004
RENT5 A OOft RENT6 AOM REPEAT A OOS
48E8
ltC46 4Cll lttl3
4CAE 5512
6709
6llt4 6721 6164
6187 lJJl
REST A 006
UStOR A 004
RES TR A OG4
RETBR A 004
RSTRT A 003
RTN
A 003
RTOA A 001
RTOAOP A 006
RT08 A 001
RTOSOP A 006
RTO~ A 001
RTOCOP A 006
RTOO A 001
RTOOOP A 006
RTOf A 001
RTOEOP A 006
RTOF A 001
RTOFOP A 006
RTOOO A OOZ
RTOl A 001
RJ02 A 001
RT03 A 001
RT04 A 001
RT05 A 001
RT06 A 001
RTOl A 001
RTOlOP A 006
RT08 A 001
RT080P A 006
RT09 A 001
RT090P A 006
RTlA A 001
RTl6 A 001
RTlBOP A 0.21
RTlC A 001
ar10 A 001
RTlE A 001
llTlEOP A 029
5551 59F5 59ES 59FD 62DA 54E6 19AA
lBSA lA68
1BC9 1AF6 lt02 1865 1C61
1804 1066 ltH 1011 5077 OAlO OAOO
0*'05 086C OE02 1101 1287 l99F 173C 19DE
l93C lAEl
2228 22Fl 2EltA 2480 24FF 25H
ZEH
1156 1648 1645
l65i> 8326 lJOO 1419 1655
15U
1721 1609 1166 1615
1829 1141 2005 1805 1949
6991 0044 0094 0150 0195 0424
0728 0802 1399 1216 1447 U52 1587 2705 28ZZ 4080 2943 299S 3056 4178
6251 6298 6443 6459 6466 6471 6476 6624 6628 6638 6653 6660 6675 6679 6734 6747 6751 6767 6771 6790 6794 6924 7007 7124 7188 7192 7196 7200 7801 7817 7859 7863 7884 8118 8154 8319 8369 8409 8411 8"30 843" 8439 0068 0083 0111 0117 0123 0135 0217 1325 1331 5311 53lb 5332 533b 5367 !"88 5508 5532 5538 5542 5547 5552 5678 5693 5698 5785 5790 5833 5837 6323 6336 6350 6363 6377 6390 6404 8426
0348 0577 4477 6690· 7227 7608 7610 1178 1179· 1200* 7389 7390· 7457· 8003 7794·
6534· 6557
6489
6694 6820 7231 8202 8454 0382
5372 5569 5842 Ml7
6496 6698 6826 7238 8229
0388 5377 5580
6431
6498 6712 6879 7416 8293
0446 5382 5641
6441
7807 8045 8263 8004· 8161·
5567· 5578· 6233 0048 0049· 6686· 6691 6783· 6787 6806· 6692
6728 6710
6145
6765 0215 0215 0235 0235 6960 6960 73"1 1341 7349 7646 8536 85Jl 7640
8535 8298 7298 1354 1616
1421
1682 1534 171t8
1611
1812
1677 1987
1743
1931 6982
0014
0046 0096 OlSZ
0197 0426 OlJO
1359 080. 1426
1218 ·1539
2591 2101
4049 28.24 2945 2997 4160
6105· 6709 0444 0444
6723· 6727 0464 1)464
6740· 6744 4169 4169
DAU OJJUL15 EC 110. 825023
250C1'lS
aitOJ2
lNAIR6 8Z5GM
PART NO.
PAGE
4234255 ?5
IBM MAINTENANCE DIAGNOSTIC PROGRAM
c 8912
DISPLAV ADAPTER TEST
6502
6716 6883 7445 8299
6616 6730 6887 71t55 8307
0612 0618 5386 51t82 5652 5672
6758· 6764 6936 6936
PltOG IO
PAGE
', SYMBOL T LEN VA!.UE OEFN REFERENCES
RTlF A 001
RTlFOP A 025
RTlST A U22
RTlO A 001
RTlOOP A 006
RTll A 001
R112 A 001
RT12C!P A 006
RT 13 A 001
RTl30P A 006
RT14 A 001
RT140P A 006
RY15 A 001
RT150P A 029
RT16 A 001
RT160P A 024
RTl7 A 001
RT170~' A 039
.. RT18 A 001 ( RT180P A 024
RT19 A 001
RT19111 A 001
RT19M5 A 001
RT19M6 A 001
RT19M7 A 001
RT19S":' A 004
RT2A A 001
RT2B A 001
(--RT2BM1 A 029
. RT2BM2 A 046
RT2BM3 A 043
( RT2C A 001 '· RT2CAT A 001
RT20 A 001
f RT200P A 049 "" RT2E A 001
RT2EGO A 004
( RT2END A 004
RT2F A 001
RT2FLG A 001
( RT2LCS A 003
RT2LD A 004
iC RTZLIO A 004 RT2ST A 016
RT20 A 001
I
I
(-
RT200P RT21
A A
024 001
RT210P A 025
cI RT22 A 001 RT220P A 025
RT23 A 001
RT230P A 019
( RT24 A 001
RT240P A 023
RT25 A 001
( RT250P A 033
RT26 A 001
RT260P A 029
1( RT27 A 001
RT28 A 001
:c RT29 A 001 RT290P A 018
RT3A A 001
RTJAP2 A 003
( :RT38 ~·· RT3C
I
A 001 A 001
2634
2FA6 OA8C 1C9A
lCCS 1CE9
1038 lECA 1089 1F55 1E93 1FD2 1F27 2025 1FA4 2749 1FE5
2860 2042 2B7F 2152 289C 28C6 2807 2Bf3
2898 2F40 3049 4F49 ltF77 4FA2 30Cl 5229 3130 2DBA 3199
4FAf 0818 3244 0858 0834
0846
081F 0868 2688
30BA 2772 312F 2946 3196 2A49 3103
2880 3282 ZOC7 3350 20E4
3438 2E5F 2Elt
ZE99
3400 J983
ZlEO
3AA9 4000
3134
4276 0090 1868 1893 1924
1980 2218 2054 2309 2190 2389
228~
2439 2364
3254 2415 3374 2463 3710 2589 3750 3166 3776 3786 3749 4243 4388 6906 6907 6908 4446 7130 ltlt93 4006 4545
6928 0161 4643 0177
0167 0112 0162 0119
3203 4427 3293
4481
3470 4526 3585 4570 3734 lt668
4018 4718 4039 4905 4101 4128
4150 5004 $624 2657 5156 5964
,.0 0891-2! DATE ! e 75 : EC NO. I
07JULl5 8Z502J
ZSOCT75
825032
3058 4253 0057 1807 1575 1870 1926 2197 1982 2291 2056 2371 2192 2425 2286 3213 2366 3303 2417 3592 2465
ltl52 4245 6882 6886 6890 4390 7030· 7036 44't8 3741 4495
0170 4547 0158· 0168 0164 0174 0161· 0163 0157 3136 4398 3205 4453 3295 4503 3412 4555 1517 4653 3736 4752 4020 4890 4041 4103 41JO 4985 5458
2606 5626
5758
15JAN?6 1250M
CROSS-REFERENCE
7108 1113· 011.19· 0173· 0165· 0166
I
,.
1-0
,, ._ '
I
·· · ·
PART NO. 423U5S
PAGE
1SA
PROG ID PAGE
0891-2 l5A'
IBM MAINTENANCE DIAGNOSTIC PROGRAM
8912 n1sPLAY ADAPTER TEST
SYMBOL T LEN VALUE OEFN
ltTJCST A 037 RUD A 001
RT3E A 001
RT3F A 001 RT3FGO A 004 RT3FNA A 046 RT3ST A 037 RT30 A 001 RT30GO A 004 RT31 A 001
RT31GO A 004 RT32 A 001 lT32GO A 004 RT33 A 001 RT33GO A 004 l\TM A 001 ltl34GO A 004 RT35 A 001 RT35GC A 004 RT36 A 001 RH6GO A 004 RH7 A 001 RT UGO A 004
RTlC A 001 RT38GO A 004 RT39 A 001 ltT4$T A 025 RHO A 001 RHOO A 002 Rlltl A 001
itHlGO A 006 RT42 A 001 RT43 A 001 RT5ST A 023
RT6ST A 035 RYl A 002RYU A 002 RY2 A 002 RY2l A 002 ROABOl A 004 ROA602 A 004 ROAEXl A 002 ROAEX2 A 002 llvAKOl A 004 ROAMCE A 002 llOAMCS A 001 ilOBSOl A 004 R06ti02 A 004
ROBEXl A 002
R08Elt2 A 002 ROBKOl A 004 ROBMCE A 002
ROBMCS A 001
ROCKOl A 004 ROCMCE A 002 ROCMCS A 001 ROOKOl A 004 ROOMCE A 002 RODKtS A 001 ROEKOl A 004
ROEMCE A 002 RCEKCS A 001 ROfKOl A 004
flOFMCE A 002 ROFMCS A 001
ROUB A 004
1020 45)8
451t9 4557 4595 4594 0081
32E8 248tS 33F5 252F 3498 2S8C 355A 2661 3568 2079 3576 3506 35A4 364F 3612 371A 36DF 386F 3843 1284 4AC5
5079 4EFZ 2326 4FA3 5092 5917
18Ad SC54 lOFl SC52 lOEF 1830 lti5l l83C lS50 l&Ob 1864
1858 UAC 16CO lBAB l88F l87A 1803 lBC.A
l8E9
1C32 1C03 1C48 1C99 lC62 1040
1088 1067 lCFE
10~7
1018 OA64
0591 6273 6279 6295 6304 6303 0361 47'92 2953
4880
3005 4975 3066
5080 3144 5086 247J
5092 5129 5119 U87 5177
5299 5269 5467
5456 0784
6611
6992 6875
2832 6920 1004 7499
1337 7876 0681 7875 0680 1645 1653 1643
1651
1622
1665
1660
1711 1119 1709 1717 1688 1131 1126 1751t
1795 llll 1817 1859 1831 1993
2027 2010 1931
1970
1954 0081
CROSS-REFERENCE
REFERENCES
0431 5966 6275 6281 6302 6301 0202 4645 2951 4744
3003 4882 3064 497l
3142 5082 2411 5088 5127 5094
UH
5121 5297 5119 5464 5291 0735 6297 6975 6611 2830 6877 6922 0809
1223 1811· 0676· 7872· 0677· 1619 1647 1638 1646 161J 1614 1626 1625 1105 1713 1104 1112 1619 1680 16..2 1691'
1745 1746 1158 1157 1809 1810 1821 1820 1984 1985 1991 1996 1928 1929 1941
1940
0078
DAJf
C>7JUl75
EC llO. 82SOU
2SOC.T'1S 82S032
lSJANl6 125034
PART NO.
PAGE
c 4234255' 16
IBM MAINTENANCE DIAGNOSTIC PROGRAM
8912
(:
DISPLAY ADAPTER TEST
c: SYMBOL T LEN VALUE OEFN
REFERENCES
CROSS-REFERENCE
PART NO. PAGE
4ZJ425S '16A
ROlPRT A 004 OA68 0083 R02HDR A 016 OAAC 0102 R030Tl A 002 OCOE 0311
R03ENO A 003
R03EPA A 004
R03ERll. A 004
R03E09 A 004
R03K03 A 004
R03K04 A 004
R03K05 A 003
R03K06 A 004
R03Kl5 A 003
R03Kl6 A 003
R03Kl7 A 004
R03Kl8 A 004
R03Kl9 A 004
R03K20 A 004
R03K21 A 004
R03K22 A 003
R03NOE A 003
R030NE A 001
( R03PRT A 004
R03ST A 004
R04CNT A 002
! R04END A 002
R04ERR A 004
R04EXP A 002
(- R04K01 A 003
R04K02 A 005
R04K03 A 004
i '·
R04K07 A 004 R04RTR A 004
R04ZZ A 004
( R05ART A 004
ROSAOO A 004
R05DAE A 002
(
\,..
R050AS
A 002
R05DCS A 004
0088 ODA7 OOBF
0083 OBAB OBC6 OdFS 08E9 OC98 OC98 OCC3 OCDF 0010 0047 OCA8
OCFl OBISF 0054 OCD7 0878 1269 1268 1244 1248 1 1E7 l24C llf8 1264 1220 1240
1446 13E4 5617 5675 5567
0368 0382 0394
0388 0222 0230 0242 0238 0288 0289
0302 0313 0329 0348 Oi93 0318
0228 0357 0308 0204 0781 0182 0766 0769 0740
0771 0745 0779 0757 0764
0930 0905 7468 7467 7386
( R05DFL A 001
R05Dl<l A 004
R05DK2 A 006
( R05DK9 A 006
R050PS A 002
ROSORB A 004
( R050UP A 002
R050WK A 002
R05DW1 A 002
{.... R050Xl A 004
R050XZ A 004
R05FS1 A 0.03
( R05FS2 A 003
R05HC A 001
ROSHDG A 010
(-... ROSI NC A 002
R05JCl A 004
R05KOA A 004
R05KOB A 004
R05KOC A 006
ROS KOO A 004
r· \...
RO SK OE R05KOF
A 004 A 006
R05K01 A 004
( R05K02 A 004
- R05K07 A 004
566E 5588
55FO
55E2 5660 5668 5620 5700 5679
5660 5664
l34A
138F 1448
56FE 16C2 1680 1581 158A 1508 15F8 1604 1621
l33A 1355 1392
7462 7406
7421 7415 7461 l'i-60 7437 7491 7469
7458 7459 0863 0879
0932
7490 1140 1119
1046 l\>50 1060
1071 1075 1084
0857 0066 0880
0077 0079 0080 0081 0082 0100 0275· 0277· 0279· 0281· 0283· 0286· 0289 0292· 0301· 0304 0317· OJ29 0331 0333 0335 0337 0350 0237 0239 0303 0306
0321 0216 0386 0233 0222 0223 0236
0276 02'18 0280 0282 0284 0288· 0293· 0294 0295 0298· 0300 0313· 0318 0319 0305 0323 0392 0341
0291 0316
0225 11293 0313 0396 0402 6946 0741 0741· 0772· 0713 0773 0754 0763 0740· 0746 0751 OTIU 0737 0738 0747 0777
0774
0752 0761 0898 0903 0907 0927 0900
7452 7415 0945 0953 0961 0969 0977 0985 0993 1001 1011 1019 1021 1015 1043 1068 1092 1117 7095 7392· 7397 7400 7403 7406 7409 7U2 7398 7401 7404
7453 7407 7410 7413 7389· 7386· 7391 7391t· 7415· 744().¥ 745U 74: ~ 7426· 7427 7427* 7" .· 7396· 7399· 7402· 7 .. ·~ 7408· 7411· 7414· 7424 7426 7450* 7387· 7388· 0853·
08~
0855· 7419 0864· 0865* 0870 0872· 1004 1034 1037 1116 1042 1064 1056 1067
1088 1081
1130 1135 0877
PROG 10 PAGE
0891-2 ()GATE
76
Et NO.
!0 .
07JUl75 125023
.· .
250CTt5 825032
15JAN76 825034
PRO& 10
PAGE
oa·t-2 '16A>
vt .
I :
!<'!
f ... I'
~:
(I ~I /.
f
I
I
)'
}
i
i J j.
I I.
I'
f
l:
~
I
' ,
~
.,
I
j
!
1
f.
11
I
;
IM MAltilTENMlt-f DlAGllOStu; NOGRAM
8912
0-l~PLAY AOAPTER TEST
SYMBOL T LEN VALUE DEFN
ROSKOS A 004 130 0886
R05K09 A 006
R05Kl0 A 004
R05Kll A 004 R05Kl2 A 006 R05KH A 004 R05Kl5 A 004
R051<18 A 003 R05K96 A 003
R05Lf>R A 004
R050NE A 001 R05PAO A 002 R05PAS A 002 R05POX A 006
R05PX A 002
R05P01 A 004 k05P02 A 001 R05P03 A 001 R05RST A 004
R05SEX A 006 ROSS fl A 001
ROSSIN A 002 R05SK1 A 004 R05SK5 A 004 ROSSPC A 004 R05SPS A 002 R05SRB A 004 ROSSRR A 004 RO~S!iC A 002
144E
16"94 1640 166A 1690 l6AC l6C3 138C 1691 56E8
56EE 56EC 5683 5622
5670 5606 5607
1336 UBC 566f 5671 1700 1717 l6CA
1738 1736 172A 1698
0935
1096 1100 1109
1127 1132 11'\2 0878
1121 7482
7486 7485 7471 7438
7470 7472
7473
0856 0893 7463 7464
1190 1196 1175 1204
U03 1200 1124
R05St A 004 R05SXl A 004
R05SX2 A 004 R05UNP A 004
R05W01 A 002
l32A 172E 1732 561A !i6l3
0853 1201
1202 7435
7465
R05Wltt A 001 ltOSWlE A 256 ROSX:.l A OOZ R05ZU A 002 R05ZZZ A 004 R05010 A 001 R05100 A 001 R06ACP A 004 R068ME A 002 R068MM A 002 R06E01 A 001 R06K01 A 004 R061C.02 A 006
RO@OJ A 00'°' R06K05 A 004 R06KC6 A 006 R06K01 A 003
R06K08 A 006 R06MC1 A 001 RO~C2 A 002
R06ftC4 A 002 R06NR A 004 R060NE A 001 R06PRT A 004
R06W01 A 002 k06X81 A 002
5701 5900 1440
56El 1442 56EA
56E9
1870 1870 186E 1871 1790 llAE 11CE 17F9
nee
llEl 1810 1867 186A l86C 1871 l84E llfl 1850 1860
7"t92 7493 09JJ 7481 0929
7~84
7483 1331 1322 1321
ui"
1243 1247
1256 1270 1255 1261 l28J 1317
1319 1320 1325 1303 1265 1304
1312
CRIJSS-REFERENCE
REFERENCES
0939 09fl7 0892
1091 1113 1106 1119
1128 1125
0944 0992
1133
0947 0995
09!>2 1005
0955 1010
0960 1013
0963 1018
0968 1021
0971 1026
0976 1029
0867 0868 1198 7433 7442 1431
7433· 7441· 744.?. 7425 7485 7421· 7438 1448 7421
7486
0890 1054 1057 1079 0811· 0856· 0897 1127 0873 0935 1060 1084 1185 1191
0859 0883 104~ 1072 1178· 1200 l45l
1175· 1180 1182· 1188 1194 1197 0866 081'3· 0891 0893 1192· 1199·
1082 1104 1107 1129* 1132 1134· 1184 1190 1196 1109 1187· 1193· 1198· 1091 0935*.1055 1060· 1080 1084· 1105
lll6·
llll·
7443
0840 0957 1063 7055 7098
0840* 0858· 0875· 0876 0965 0973 0981 0989 1086· 1087 1111· 1112 7058 7061 7064 7067 7100 7104 7106 7116
0882 0940 1046 1011 1096
7"68
0893·
1179 1186 1187 1193 1199 0909 0911 0913 0915 0917 7450
1399 7402 7405
1253
1230· 1233· 1236· 1240· 1244 123)· 1234· 1237· 124U 124]
1256
. l23i 1249
1245
1259
1264
1335
1129
1217
1272
0881· 0905· 0906 0937· 0938 0997 1007 1015 1023 1031 7031 7031· 701tO· 7041 7045 7070 7073 7076 7079 7082 8039 7032 7467
1390 1396 0919 0921 0923 0925
1244 1247· 1241
1211
1247 1257 1258
USS· 1251· 1229
DATE 07JUL75 EC NO. 825023
250tTl5 125012
15JAN16 825054
PART N'1. P'AGE
4234255 77
IBM MAINTENANCE DIAGNOSTIC PROGRAM
8912
·..
DISPLAY ADAPTER TEST
CROSS-REFERENCE
PART MO. PAGE
UJ425~
7lA
SYMBOL T LEN VALUE DEFN
0979 0984 1039
R06XB2 A 002 1862 1313 R06X83 A 002 1864 1314 R06X64 A OU2 1866 1315.
R06XD1 A 002 R06ZER A 002 R071<.0l A 004 R07K03 A 001 R07HCE A 002 R07MCS A 001
R07T01 A 004
17F8 1840 1951 197A l9A9
l9AO 1982
1268
1302 1365 1382 1406 1401 1388
8088 8091
1109· 1186·
0941 1038 70'98
10tt5
0949
1062· 7051 7088
R07T02 A 004
R08END A 006
R08K01 A 004
ROSMCE A 002
R08HCS A 001
R09B01 A 004
R09802 A 004
R09B03 A 004
R09EX1 A 002
R09EX2 A 002
R09EX3 A 002
R09K01 A 004
R09MC.E A 002
R09MCS A 001
R18K01 A 004
RlBHCE A 002
RlBMCS A 001
RlCIC A 002
~ --RlCMl A 022
RlEKOl A 00.lt
RlEMtE A 002
i ( RlEMCS A 001
RlFBOl A 00"9
i(
RlFEXl RlfKOl
A 002 A 004
RlFMCE A OC2
!C
I
1996 182A 19BF 1A6A l9El
1A86 lAC:A UDE 1AB5 1AC9
lADD
lABO 1AF5 1AE8 20F4
2E5E 2E48 3990
3~A6
2EA9 2F3f. 2EE6 2F8A 2F70 2F62 3028
1397 1288
1432 1522 1453 1569 1577 1585 1567 1575 1583 151t5 1599 1592 4051 4095 4085
5591 5592 4162 4228 4183 4274 4269 o\258 4354
ie
I '
!o
:cI RlFMCS A 001 RlOKOl A 004
RlOMCE A 002
'(
RlOMCS A 001 RllHDR A 039
RllKOl A 004
RllMCE A 002
( RllMCS A 001
RllMC2 A 001
RllMC3 A 002
l RllMC4 A 001 RllMC5 A 002
RllMC6 A 001
RUMC7 A 002
Rl2K01 A 004
Rl2MCE A 002
( R12MCS A 001
Rl2MC2 A 001
Rl2MC3 A 002
( Rl3KOl A 004
RUMCE A 002
2FA7 IC.AF lCE8 1CC9
lOEE 1099 1E32
lDEF 1E3J 1E52 1E53 lE72 lE73 lE92 lEAI 1F02
1EC8 1F03 1F26 lFJC
lFAJ
4288
1881
191.ft 1898 2019 2066 2121 2094 2129 2145 2146 2162 216S 2119
2293 2251
222J 2253 2271 229'1 2353
i
PROG 10 PAGE
0891-2 ODATE
07JUL75
e 77
EC NO. 825023
250Ct75 825032
· i
lo
REFERENCES
1232 1235 1239 1229· 1232* 1235· 1239· 1263 1225 1226 1257 1356 1357
1369
1368
1381
1390
1282
1423 H24
llt36
1435
1563
1571
1579
1562
1510
1578
1536 1537
1549
154ti
4043 4044
4055
4054
5537·
5541 8481
4154 4155
4166
4165
4271
4210
4247 4248
4255·
"9505· 5997·
4256·
4506· 5998·
4257· 4507·
6002·
4262 4512
6003·
4406· 5976· 6001t·
4407· 5977· 6013*
4408· 5978· 6014*
4413 5982 6015·
4458· 5690910~·
4459· 5991· 6020*
4460·
599~
6021·
~65
5996· 6025·
6026· 6027· 6036· 6037· 6038· 6042· 6043· 6044· 6048· 6049· 6050- 605. .
6060· 6061· 6065· 6066· 60~7· 6071· 6072· 6073· 6082· 6083· 6084* 6088·
6089· 6090* 6094· 6095· 6096· 6105· 6106· 6107· 6111· 6112· 6113· 6117·
6118· 6119· 6128· 6129· 6130· 613"'· 6135* 6136· 6140· 6141· 6142· 6151·
6152· 6153· 6157· 6158· 6159· 6163· 6164· 6165· 6174* 6175· 6176· 6110·
6181· 6182· 6186· 6187· 6188· 6197· 6198· 6199· 6203· 6204· 6205· 6209·
6210· 6211· 6226
4261 4412 4464 4511 5981 6225 1872 1813
1885
1884
206'
2051 2059
2069
2061
2812
2073
2076
2071
2080
2081
2194 2195
2206
2205
2209
2210
2218 2219
2301
l5JANl6 1250J4
PROG ID
PAGE
0891-2
na'
;·
I ~~~
j' l
l
1
l
l
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PART NO.
PAGE
.\234255
IBM MAINTENANCE DIAGNOSTIC PROGRAM
78 \.._
PART NO. 4234255
PAGE
18A
8912
DISPLAY ADAPTER TEST
CROSS-REFERENCE
8912
(--.·
DISPLAY ADAPTER TEST
CROSS-REFERENCE
·1 I I
SYMBOl T LEN VALUE DEFN
Rl3MCS A 001 Rl4K01 A 004 Rl4MCE A 002 Rl4MCS A 001 Rl5it01 A 004
Rl5MCE A 002 RlSMCS A 001 Rl6802 A 006 Rl6ts03 A 005
Rl6804 A 004 Rl6805 A 004
Rl6806 A 004
Rl6U2 A 002 Rl6K01 A 004 !U6MCE A 002 Rl6MCS A 001 Rl6RPT A 003 Rl6RTN A 004
1n1~02 A 006 Rl7803 A 004
Rl7EX1 A 002 Rl7HC A OOZ Rl7Hl T A DOit Rl7K01 A 004
Rl7Ll A 002 Rl7L2 A 002 Rl7L3 A 002 Rl7MCC: A 002 Rl7MCS A 001 Rl7Hl A 030 R17M2 A 013 Rl 7M3 A 020 Rl7H4 A 017 Rl7H5 A 005 Rl7H6 A 005 Rl7P A 002 Rl7PO A 004 Rl7PP A 00~ Rl7RPT A 003 ;..18CHK A 011 Rl8CS A 025 Rl8CSA A 025 Rl8EXP A 010 Rl8HOB A 007 Rl8NON A DOit Rl80PD A 009 Rl8REC A 010 Rl8WK A 002 Rl8WRD A OU
R2AEXT A 001 R2AP'IA A 002 R2AWK A 002
RZBEXD A 002 R2BEX1 A 002 R2BGO A 004 R26MCE A 00... R2BHCS A 001 R2CATT A 004
R2CENA A 003 R2CIHC A 003 R2CK0l A 004 R2CK02 A 004
RZCMGl A 035 R.2CMG2 AOU RZCPRT A 004 R2CPX A 001
1F56
1F89 lFE4 lF03 1FF5
2041 2026 26F9
2718 2720 2727 272E
26F8 26C8 2771 274E
2607 26fl 27El 27Fl 27AF 283A 2826
2782 2840 2842 2844
2945 28C8
2888 2898 28AC 2880 28C2 28C7 2846 27BA 2798 279E 63Cl 6054 6059 63A3 63C8 6307 6386 63AD 63FO 6303 4028 54EF.
4030 3F8F 4F27 4EFE
jfff
3FCD 5203
500E 510J 50EF 51CF
524C 5259 5210 51CE
2314 l377 2403 2394 2427 2458 2444 3236 3245 321t7 3249 3252 3234 J215 3280 3262 3222 3231 3339 3341 3322 3367 3361 3305 3370 3311 3372 3453 3386 3376 3377 3378 3379 3380 3381 3373
3326 3315
1316 8380 8386 8387 8377
8381 8)83 8379 8378 8388 8382 68Jl 7303 6838 5953 6901 6883
5958 59S4 7113
7029 7039 7034 7098
1132
713)
"1124
7096
REFCRENCES
2300
2368 2369 2381
2380 2419 2420 2431 2430 3230 3237 3239 3241
3243
3221· 3222 3207 3208 3219 3218 321t6 3248
3229 3250
3~36
3238
3240
3242
3245· 3247· 3249·
3297 3298 3337 3324 3365· 3327
3334
3329· 3343 3330* 3333
3331* 3347 3351 3309 3308
3335· 3339* 3344 3354 3348 3355 3352 3356 3360 3339
3335 3311· 33llt· 3316 3770 3189 3818 3313
3842
3876
390J
8338 8347 8342 8302 8337 8363 8358 8310 7213 831t8
6615
7220
8343 8353
8364
121'\ 6188
8349 8287
8354 8288
8359 8316
8317
6893 6899·
6897
6896 1038
7031 7122 7042 7094
7117 7121 1121
1109 70"· '1Clt7· 705(,tl 7053· 7057· 7060· 1063· 7066· 7069· 7072· 7075· 7078·
" SYMBOL T LEN VALUE
..--
I
R2CP13
A 006
5lBO
OEFN
7091
R2CRST A 004
R2CST A 004
.R2CTER A 004
R2CTSX A 004
R2DEX1 A 002
R2DEX2 A 002
R20MCA A 002
R2DMC8 A 001
R2DMCC A 002
R2DHCE A 002
R20MCS A 001
RZDMCl A 001
RZOMC2 A 002
R20MC3 A 001
R2DMC4 A 002
RZDMC5 A 001
R2DMC6 A 002
R2DMC7 A 001
R2DM~8 A 002
R2DMC9 A 001
R2EMSG A 024
R2FAOL A 004
R2FMSG A 029
R2C80l A 004
R20EX1 A 002
-R20K01 A 004
RZOMCE A 002
R20MCS A 001
R21801 A 004
R21EXl A 002
R21K0l A 004
f.__ R21ST A 004
R22801 A 004
R22EXl A 002
R22K01 A 004
R23KOl A 004
RZ3MCE A 002
f R23MCS A 001
R24K01 A 004
R24MCE /I. 002
~
·~
R24MCS A 001 R25i!Ol A 004
R25ERR A 004
( R25EXl A 002
R25HOR A 013
-- R25KOl A OOlt
t R25MCE A 002
R25MCS A 001
R26K01 A 004
\ R26MCE A 002
RZ6MCS A 001
R27HDR A 013
( R28HOR A 013
R29K01 A 004
R29f"!CE A 002 ( R29HCS A 001
R3AA55 A 004
R3ACPT A 006
~. R3AGO A 004
R3AHOR A 020
R3AMCE A 002
L R3AMCS A 001
R3AHC1 A 001
50EB 5003
51FE 51C3 28t8 2BF5 2087 2088 2089
2005 2004 2006 2043 2044 2081 2082 2083 2081t 2085 2086 5091 509E 5002 309F 3092
3077 3uCO 3088
3108 30FE 30E3 30CO 3l7A 3160 3152 31A9 3243 310'e 3254 32EA 3283 332C 3324 3328 20E3 32FB 33F4 3351 3405 3497 343C 2E78 2E98 34A8 3559 34DE OC78
ODEl 2176 2175 21DF 218A 2202
7032 7026
7110 7093 3767 3787 4001 lt003 40Q4
3906 3905 3916 3950 3957 3991 39CJ3 3994 3997 3998 4000 6993 7012 7018 4425 4420 4409 4434 4431 4477 "472 "461 4456 4524 4519 4508 4557 4628
4572 4t.55 4726 4673 4176 lt771 4774 4026 4754 4865 4183 4892 4956 4910 4109
4137 4987 5075
5009 0279 0401 2599 2598 2654 2611 261:;
REFERENCES
7081· 7084· 1oan 7090· 7091
7046 7049 7052 7056 1059 7083 7086 7089 7099 7101 7105 7107 7017
7128
7091· 3769 3817 3875 3788 3841 3902 3853
3882
3883
3752 3751
3757 3805 3862 3758 3806 3863 3777 3828 3889 3778 3829 3890 3796 ::1800 3797 3801 3821t
3825
3.152
6927
7062
7065
1068
7071
7071t
7077
7080
7011 4422
4421
4392 4403 4402
4474 4473
4455
6949
4521 4520 4497 4549
4561 4560 4647 4659
4658 4769
4393
4456
4498 4550 4648
4767· 4768 4024 4746 4747 4758 47§7
4884 4885 4896 4895 4107
4135 4979 4980 4991
'4990 0332 0399
2597 2596 2602 2601
2663
4995
4995
OATE 07JUll5 EC NO. 825023
250CT75 825092
15JANl6 825034
PROG ID
PAGE
~891-2 ( ) l}ATE
18
EC NO.
0
07JUL75 825023
···0.
250CTl5 825032
15JA~76
8ZSOJ4
.,,., PROG ID
PAGE
0891·2
· · · ·
IBM MAINTENANCE DIAGNOSTIC PROGRAft
PART NO.
PAGE
4234255 79
IBM MAINTENANCE DIAGNOSTIC PROGRAM
8-9lZ
OISPLA'Y AOAPTetl TEST
CROSS-REFERENCE
c 8912
DISPLAY ADAPTER TEST
CROSS-REFERENCE
SYffBOl. T LEN VALUE OEFN REFERENCES
,' . SYMBOL T LEN VALUE DEFN
REFERENCES
R3AfllC2 A 002 ll38801 A 004 R!8802 A OOJ R3880J A 005 R38605 A 003 RlB806 A :>04
R3BEX1 A 002 ~3BEX2 A 002 R38G01 A 004
R3BHDR A 034
2227 3837 3848
3H7 3869
J896 3836 384A 3AOF
JADE
2692 5807 5815 5619 5827 5846 5805 5813 5769 5768
2664 5800 5808 5816 5818 5832 5799 5807 5760 5766
5761
5767
R3RST1 A 004
R30HDR A 030 r..30MCE A 002 R30MCS A 001
R30000 A 004
R30202 A 004
R31HOR A 032 R31HCE A 002 R3lMCS A 001
OEF9
24BA
24Ff
24CF
Ott>O
OC89
252E 2582 2543
0500 2952 2990 2966 0275 0283
3004 3050 3018
0485 2950 2957 2956 0212 0336
3002 3009 3008
0213
0345
RJBMCE A 002
R3BMCS A 001
R38Mt2 A 004 RlCACP A 006 R3CA55 A 004
RJCDTl A 002
3C5A 388F
JBlC
lOlA Ofll
0Fl4
59o\-7 5868
5795 0631 0508 0540
RlCE ~.. ,A 006 OEDl 0488 R3CEND A 003 1021 0598
R3CEPA A 004 1040 0612
5712 5771 5184 0629 0561
0504· 0506· 0508· 0510· 0512· 0515· 0518 0560 0562 0564 0566 0479 0483 0579 0466 0468
0521· 0530· 0533
0546· 0558
R32HOR A 041
R32MCE A 002 R32MCS A 001 R33HDR A 029
R33HCE A 002
R33HCS A 001
R33MC1 A 001 R33MC2 A 002 R34HOR A 039 R34HCE A 002
2588 2633 2500 2660
2699 267E 269A
2687 2078 20E5
3065 3128 3075 3143
3173 3159 3175
3190 2472 2527
3063 3070 3069 3141 3147 3146 3150 3151 2470 2476
R3CERR A 004 1058 0624
0532 0535
R?·4MCS A 001 20AS 2496
2475
R3CE09 A 004 104C 0618
0550
R34fliCl A 001 20E6 2528
2479
R3CFFF A 004 OFOA 0506
0559
R34HC2 A 002 20EF 25~3
2480
R3CHL A 001 OEF6 0498
R3CHLl A 001 oeea 0493
0476· 0480· 0486· Q.\88 0488·
R34MC3 A 001 20FO 2534 R34MC4 A 002 2118 2556
2483 l484
R3CINC A 004 Of26 0514
0567
R34HC5 A 001 211C 2557
2487
R3CISA A 003 OEFD 0502
R34HC6 A 002 2151 2584
2488
R3CK03 A 004 0£41 0451
R3CK04 A 004 OESC 0459
0"5 0616 0462
R35HOR A 03.ft 3505 5128 Rl5MCE A 002 3611 5160
5126 5132
R3CK05 A 003 OEB8 0411
0451 0452
I -- R35MCS A 001 3604 5151
5131
R3CK06 A 004 OETF 0467
O<fto65
R355AA A 004 OC82 0281
0334
R3Cf{ l5 A 003 OF2E 0517
0505 0507 0509 0511 0513
R36HDR A 045 !)64E 5186
5184
R3fK 16 A 003 OF31 0~18 R3CK17 A 004 OF59 0531
R3CK18 A 004 OF75 0542
0517· 0522· 0523 0524 0527· 0529 0542· 0547 0548 0534
R36MCE A 002 36Df 5253 R36MCS A 001 36A7 5225 R37E47 A 004 37Fl 5382
5190 5189 5363
R3CK19 A 004 OFA6 0558 R3CK20 A 004 OFDD 0577
0552 0622 0570
R37HOR A 043 3719 5298 R3TH48 A 004 37F9 5386
5296 5348
R3CK21 A 004 OF~E 0522
0520
R37MCE A 002 3842 5427
5302
i I i
R3CK22 A 003 OF87 0547 R3CNOE A 003 OE55 0457
0545 0454
i R37MCS A 001 3801 5394 R37MC2 A 004 3748 5321
5301 5310
R3CONE A 001 OFE8 0585
0522 0542
R37NS1 A 003 317C 5341
5331
RJCPRT A 004 OF6D 0531
0626 0632
i. R38E40 A 004 3932 5542
5514
~3CST A 004 OEOE 0433
0349
R38E41 A 004 393A 5547
5480
R3CTTL A 028 402tS 5972
5970
R38E'-2 A 004 391C 5532
5493
? ...coco A 004 OF03 0504
0441 Olt42 057o\-
( R38E43 A 006 3924 5537
Slt98
R3C202 A 004 OflF 0512
056S
. R38E48 A 004 391t2 5552
5528
R3C5AA A 004 OF18 0510
0563
R38HDR A 028 386f 5465
5463
R301SA A 003 OC6l 0213
( R38INT A 004 l8A3 5487
5481
RU
A 006 OCJB 0259
0250 0254
R3810E A 004 38AF 5493
5487
R3EPC1 A 004 OEE3 0491
R38MCE A 002 3982 5602
5470
R3EPO A OO't OC4D 0262
(. R38MCS A 001 39A7 5596
5469
R3FFFF A 004 ot74 0271
0330
R39E3A A OOlt 3A83 5693
5649
R3FMCE A 002 4ACO 6598
6542
R39E3D A 004 3A8B 5698
5689
R3FMCS A 001 4A97 6511
RlFMOl A 042 48CC 6514
u3ll· 6312· 6315· 6318· 6325· 6328· 6331· 6338· 6339· 6342· 6345· 6352· 6355· 6358· 6365· 6366· 6369· 6372· 6379· 6382· 6385· 6392· 6393· 6396· 6399· 6406· 6409· 6412· 6419· 64200 6423· 6426· 643)· 6436· 6439· 6541 6446
( R39GO A 003 . R39HOR A 035
R39MCE A 002 R39MCS A 001
39E6 39f5 3AA8 3A93
5634 5633
5718 5707
5612 5631 5638 5631
R3FM02 A 017 ie8DD 6515 R3FM03 A 019 4935 6518
6458 6462 6488 6492 61t79
R39Sl A 003 JAOl 5645 R39S2 A 003 3A23 5657
5640 5651
R3FM04 A 021 49~A 6521
6501
( R39S3 A 004 3A58 5617
5611
RlfMOS A 029
R3FM06 A oo.r.
RJHLT A 001
R3HLT1 A 001 RJINC A 004
RlftST A 004
lt987 4988 OC60 OC52 OC90 OC6J
6522 6523 '0269 0264
0285 0211
6505
6469
0247· 0251· 0257· 0259 0259·
0338 0256
R39S3A A 004
I I I I I
( l .
R39S4 A OOlt R39Tl A 004 R4CGO A 004
R4CHOR A 043 R40Cl A 002
R40C3 A 002
3A68
JA4C 3Al0 4808 4807 5073 5075
5683
5671 5649
6622
66~1
6989 6990
5677
5669 5647 6620 6619 6955 6957
5670 5648
DATE 07JUL75
EC NO. 825023
250CT75 825012
15JAN76 825031t
PROG 10
PAGE
0 0891"'2' DATE 07JUU5
791 ()EC NO. 8250Z3
2!>0CT75 825032
l5JAN76 825031t
c
0 0
PART NO. 4234255
PAGE
79A
PltOG ID PAGE
0891-2
'T9A'
IBM MAINTENANCE DIAGNOSTIC PROGRAM
8912
DISPLAY ADAPTER TEST
SYMBOL T LEN VALUE OEFN
R40DT A O~?
R40E A 001 R40GO A 004 R40HDR A 027
R40HO A 002 R40LD A OOlt
R40LDR A 004 R40L2 A 004 R40l3 A 004 R'tOHCE A 002
R~OMCS A 001
R40MC1 A 001 R40Mt2 A 002 R40MC3 A 001 R40MC4 A 002 R40MC5 A 001 R40MCt. A 002 Rlt0Mt7 A 001
,. R4DMC8 A 002
R40PT2 004 R40R1 A 004
R40R2 A 004
R40SLD A 006 R40ST A 002 R40SY A 003 R40TOL A 006 RltlACL A 002 R41C. TR A 002
R41E"l A 028 R'-lt:H2 A 029 R41EM3 A 018 R41EM4 A 018 R41EXL A 002 R41EX1 A 002 R41FET A 004 R41FLG A 002 R41FRS A 002
R41HDR A 037 R41LCS A 004
R41LOF A 004
R41HCE A 002 R41MCS A 001 ~42HOR A 024
Rlt2MCE A 002 Rlt2HCS A 001 R42MC1 A 001 R't2MC2 A 002 R42H12 A 004 R5El4 A 004 R5HlT A 001 RSHl Tl A 001 R5IHCE A 004 R5PO A 006 R5RSF A 004 SA86 A 004
SARR A 004
SARRl A 004
SAVARR. A 004
SAVXRl A 004
SAVXR2 A 004 S8YTEO c 001
SSVTE2 t 001
5071
5060 2253 2252 4FSC 5020 5069 5030 50.itE 2Z8A
2270 228b 2296 22C3 2ZD2 2203 22E2 22E3 22FO 2297 4FEA 4FF4
5024 506f 4FFE 4FC4 2488
248A 241t3 2460 2472 2484
2486 237E B60 2427 2425
2325 2332 236C 2lt23 23E6 29&0 2A42 29FB 2A43
2A48 29E7 i31E 1323 1315 1688 12FE 1326 0811
SC75 1112
5A<.O 59F8 59FC 0208 020A
6988
6986 2714
2713 6932 6966 6984 6971 697& 2741 2734 2742 2748 2774 2782 2784 2792 2794 2801
2750 6947 6950
6968 6987 6954
69S6 2935 2936 2930
2931 2932 2933 2934 2855 2847 2929 2928
2831 2835 2850 2925 2894 3479 3565 3529 3570
3573 3516 0847 0849 0844
1137 0839 0851 0158 7890 0695
8535 853'6 H37 8557 8558
c S8YTE3 c 001 0208 8559
S8YTE5 001 0200 8560 S612F A 003 52BE 7186
CROSS-REFERENCE
REFERENCES
6934· 6937· 6968· 6971 6973 6980 2712
2711
6972· 6913
6977· 6978
6929 695J
6966· 6974 6981 2717
2716 2721 2722 2752 2753 2757
2758 2762 2763
2730 0578 4478
6956 6968 6977 6962
6938
286U 2869 2832· 2836· 2837 2865 2866 2874 2UO 2811 2883 2866* 2882 2884
2859· 2864 2856
2845· 2846'* 2849* 2850 Z81t4
2829 2838 2848 2842 2841 3417
3483 3482 3518
3519
0828· 0832· 0837· 0839 0839· 0871
0830 0834 0836
7838· l8~ 064~ 0649·
7578· 7579 nu· 7586· 7595
7582· 151n
6622 1026* 7604 0322 0551 0943. 0951 0959 1025 1033 1041 1066 1090 3743 1093 0052 65S5
1183
7591·
0967 0975 0983 1115 3745· 7606
6979· 6980
0991 09'99 7645
f>ART NO.
PAGE
4234255 80 l
I
IBM MAINTENANCE DIAGNOSTIC PROGRAM
c. 8912
DISPLAY ADAPTER TEST
CROSS-REFERENCE
PART NO. 423"255
PAGE
BOA
\ SYMBOL T LEN VALUE DEFN
REFERENCES
1009 lOJ.7
SETO Al A 006 SE TOA~ A 006 SET PO A 004 SETl A 003 SET12 A 003 SET13 A 003 SET2 A 003 SET3 A 003
SIOI t 001
I C··..t
I
I
0 .
47El 4839 545F 5474 54E3 54CF 5485 5496 0058
6454 6484 7262 7268 7299 7293 7286 12.19 8591
0
0
cl SIONIO c 001 S HlNil c 001
t SKIPlK A 003 SNSIT A 002 SPAREX A 004
\:_- _SPARMS A 014 SPA RUT A 014
SSWlC c 001 ( SSWlF c 001
SSWlO c 001 SSWll c 001 ( SSW12 c 001
0048 0049 5964
3776 3584 .>590 3596 0008 0001 0080 0040 0020
8592 8593 7598 5340 5098 5104 5105 8552 8553 8544 8545 85"16
sswu c 001
{' \_
SSW14 SSW15
t 001
c 001
SSW16 c 001
( SSW17 c 001
SSW2E c 001
SSW2F c 001
( START A 004
STAT AC A 002
0010
0008 0004 0002 0001
oooz
0001
OA20 5FE6
8547
8548 8549 8550 8551 8554 8555
0051 8168
0
·
0
STATAM A 002
( STAT Al A 002
STATA2 A 002
STATi:ll A 001
f STAT BO A OlS
STAT Bl A 015
c STATB2 A 019 STATS3 A 022
STAT84 A 008
STAT'~5 A 018
( STAT,~6 A 010
STAHi A OOl
5F5E 6184 6186 600A 613E 6140 6160 6176 617E 6190
619A
SFCD
8121 8214 8215 8173 8195
8196 8197
8198 8199
S200 8201 3151!
6453·
6483· 7174 7179 7265 7296
7289 7283 7276 0059 0!59 0344 0368 0742 0743 0878 0879 1560 1628 3328 3484
3623 3625 3674 3681 3810 3834 5194 5196 5359 5361 5529 5634
6544 6546 6961 6969 7642 7841
0160 0439 0815 1142 1636 3491
3633
3683
3868 5200 5364 5639 6633 6970 7847
0167 0457
0816 l227 1694 3499
3635 3684 3895 5205 5471 5657
6635 6983 7918
0171 0463 0818 1228 1702 3596
3645 3686 4168 5210 5472 5662 6780 7028 7923
0175 0471 0619 1251 2657 3598
3647
3688 4170 5215 5479 5666
6803 7029 7924
0210 0502 0821 1252 2659 3599 3652 3689 4404
5306 5499 5686
6935 7165 8323
0228 0503 0822 1261 2833
3605 3654 3694 4766 5327 5506
'>690
6939 7340 8326
0234 0573 0824
1371 2834
3607 3660 3696
4994 534.lt 5515 5779 6943 7346
0242 0598 0825 1378 2843 3608 3668 3697 4996 5346 5519 5849 6951t 7600
0273 0646 0862 1438 2860 361 .. 3671 3762
5136 5352 5521 5856 695e 7601
027lt 0652 0863 1551 3315 3611 3t-:'i 3782
5141 5354 5522 6543 6959 7641
7594 5349· 5350 5353· 5355 5360· 5362 5084 5090 5096 6277 6283 5101 5105 5083· 5089· 5095· 6276· 6282* 371e3
0322 0551
0943 0951 0959 0967 0975 0983 0991 0999 1009 1017 1025 1033 lOltl 1066 1090 1115
3745 7606 7645 6535 0052
0261· 0266* 0302* 0304 0369· 0370 0395 0395 0397· 0398 0398 0401·
0490· 04951' 0531· 0533 05'99· 0600 0625 0625 0627· 0628 0628 0631· 0745* 0746 0760 0841* 0846· 0869· 0870 0886· 0887 0891 0899 0899 0908 0910 0912 0914 0916 0918 0920 0922 0924 1050· 1051 1055
1075· 1076 1C80
1389 1561* 1562 1704 1711· l 712 3769 3788 3817
1100· 1101 1105 1262· 1263 1288 !379· 1380 1388* 1569· 1570 1577· 1578 1637· 1638 1645· 1646 1103· 2856 3228· 3229 3324 3326 3618· 3669· 3673· 3682· 3841 3675 3902 4270 442' 4473 4520 4765· 4768
5801* 5809· 5819* 5820· 6233 6636* 6645· 6646 6667· 66b8 6706· 6724
7034· 7035 71..20 7161 7169· 7116 734~· 7348 803.it
8055· 8097· 8228
8055
8097
8077· 8085· 8107· 8113· 8181·
5572 5583 8485
5696 5701 848'r
5644 5655 567.5 5681 8489
5375 5380 538~ 8491
0114 8493
5555 8495
0126 8497 8498
801it·
·one OUUL15
EC tlb. 8ZS02J
250CT75
auou
15.tAa76 lnOM
··
PROG 10 PAGE
i.08CJ1-2 OOATE
80
Et rtQ.
0
07JUL15 825023
::·.
UO&TIS 82503:
15.JAN76 825034
···' PROG 10
PAGE
-.-.1-2
..
11 ·. ··-·. ,.__.___.~·-······-
·--~·h··- .··· .·..·
I
l
I
I
I
l.
.H
IBM MAINTENANCE DlAGNOSTIC -
8912 DIS9LAY ADAPTER TEST
SYMBOL T LEN VALUE DEFN
STA TEX A 002 STATEl A 002 STATFL A 001 STATHC A 001 STATr.1 A 003 STATK2 A 003 STATK3 A 003 STATK5 A 003 STATK6 A 003 STATK7 A 003 STATL A 001 STAH~A A 031 STATM6 A 022 STATMC A 025 STAT MO A 011 STAT ME A 020 STATMO A 001 STATMl A 009 STATM2 A 025 STATM3 A 022 STATM4 A. 020 STATH5 A. 016
STATM6 A 017 STATMl A. 027 STATMB A 017
STATM9 A 015 STATffH A OOlt STATPL A 003 STATPO A OQ.\
STATPS A 002 STATPl A 003
STATP2 A 002 STATP3 A OOlt STA.TAB A COit
STATRS A OOlt
STATSP A 004
STATSO A 004
STATUS A 004
5FE4 El67
5550 7354
5FE2 8166 554E 7353 5EA3 8072
5ED1 8083 5F20 8103 5F3C 81 \1 6061 8179 5FlA 8101 5F5C 8120 60El 8190 60F7 8191 6110 &192 6118 8193 612F 8194 5FE9 8171 5FF1 8172 6060 8178 6023 8175
6037 · 8176 6047 8177 6087 8186 60A2 8187 6083 8188
60C2 8189 61CO 8223 5F50 8116
5f57 8118 5FE8 8169 5081 8002 5F60 8122 5F61 .&124 5FOE 8164
5FD2 8161 5F65 8125 5f6t 8127 5DA5 7998
STATXl A 004 STATX2 A OOlt STERR l 004 STGlK A 001 STG2 c 001 STHO A 004 STHOl A 004 STPMC A 003 SXRl A 004 SXRll A 004 SXR2 A OQ.\
SXll21 A 004
TABCKl l 004 TABCK2 A OQ.\
TABOO A 006
TABOCA A 006 TAIENT A 006
TABLOP A 002
TABNXT A 006 TBU A. OOlt
TB2 A 004 THU« A 004 TEkRO A 004 TERRl A 004 TERR£ A 004 TERR3 A 004
5F06 5FDA 6227 5A40 0001 5coa lOA5
5538 5C6D llOA 5C71 llCE 4A04 4A2t
41.lt 4A44 4Al6
5063
4A3E 5UE 54A4 6606 634E 6337 6316 6303
8162 8163 8269 7687 7497 1848 065J 7346 7888 0693 7889 0694
6551 6560 6556 6565 6555 7928 6564 7288
7281 8S24 8356
8351 C345 8340
CROSS-REFERENCE
REFERENCES
8009· 8029 1288 7338· 7348 8006· 8014 8075 8083 8094 8103 8105 8111 3365 7236 733H 8069
8076 8081t 8106
8112 8000 8001 8095 8072· 8078· 8096· 810U 8108· 8114· 8182· 5485 5491 5511 8477 5314 5335 5788 5836 8479 8107 81U
8181
8020 8025 8040 8085 8030 8043 8035 8042 0086 0391
0120 0132 0071 0220 1328 8475
5319 5339 8117 8082 8100
8224 8003· 8161
8017 8087 8081 8121 0621 0138 0449
5370
8102
8080 8386 8098 8214 1334 5535 8467
5389
8104
8007· 8044 eon· 8074
8233
7998· 8005 8012· 8015 1128
8208
81Z6 026~ 0267 0308 0373 1121 1137 1265 1383 3231 4771 5802 5810 8002·
1999·
8265
7592· 7596* 1101 nn
8387 8215 8205 SS45 5793 8110
0491 1392 5821
7159
M71 5550 5840 8180
0496 1564 7J51
8469 58"5 8184
0537 1572
M73
060J 1580
7842 0647 733~ '1JJ4· 7343 78S9· 784S-
0644· 0650·
655~ 655!· 6554 6559· 6562· 6563 6555· 6564· 6552 1917 6561 7285 1218 6H4 8352 8346 8141
HM
6555 6564
DATE
07JUL75
EC MO. 825023
250CT15 8250)2
15..1&1176 825014
8116
0166 1640
8127
0842 !648
-PPAAR~TE NO.
4234255
IBM MAINTENANCE DIAGNOSTIC PROGRAM
81 ; "
,_ 8912
DISPLAY ADAPTER TEST
CROSS-REFERENCE
PART NO. PAGE
423lt255 81A
SYMBOL T LE'4 \r"ALUE DEFN
REFERENCES
8179
0847 0930 1706 1714
TEST t 001
TESTEQ A 004 THREE A 002
TIOl A 003 TI017 A 004 TI017E A OOlt
TI018 A 004 T 1018E A OOlt
11019 A 004
TI019E A 004 Tl020 A 004 Tl020E A 004
TI021 A 004
T I021E A 004
TI03 A 003
TI03ER A 00-1
THONE A 004
TPCl A 006
TP4 A OOlt
TRTN2l A 004
TRYTWO A 002
TSTB~T A OOlt
TSTBO A 003
TSTB2 A 004
TSTCHK A 004
TS TERR A 006
TSTttST A 003
TSTS SW A 004
(_.TWO
A 001
' TXRl A 004
UDTMSG A 036
( UOTPO A 004
I " UOT2 A 003
I I
0
uon
A 003
I ULOGl A 010
' ( ULOG2 A 010 ! UlOG3 A 010 I UNPACK c 001
0
I UNPHLT AOH
I 1_ UNPATN A 002
,
I
VOLTFL A 001 VOLT5F A 001
I ( WORONO A 002
WRAP A 004
I
I 0 WRAPEH A 001 l
I 0 WRAPEX A 004
L' I WRPIN A 002
I WRPOUT A 002
0212 4908 5566 OAU OAAD 0AC9 OAB5 OAD5 0AB9 OAEl OA80 OAED OACl 0AF9 OA4E 0A55 6365 488E 5EF2 61t90 1286 5467 5999 5949 6H6 6286 59BF 5974 SAOE 6200 6676 6486 OAOC
OAOF 66U 6610 6627 021E
65Fl 65f5 6181 6112 398E 4426
4443
4480 3046 3048
8561 6539 7363 0066 0103 0111 0105 0117 0106 01;!3 0107 0129 0108 0135 0073 0076 8361 6674 8091 8448 0785 7264 7615 7592 8255 8297 7612 7604 7665 8327 8529 81t51t 0016
0032 8525 8526 8527 8565
8520 8519 1212 821J 5590 6222
6231
6257 4376 4377
I OwuN
A 001 SAOB 7663
C XAA55
XCA55
I
(_
XCFFF XC202
I XCSAA
A 002 A 002 A 002 A 002 A 002
0056 OFEE OFF2 OFF.\ OFFO
0358 0588 0590
0~91
0519
6536 7356 0062 0101 0104 0103 0105
0061t
0106
0107
0108 0066
0073 8357
6669 8089
8444
0758· 0759· 0760 7262· 7271 7271· 7273 7613 7585
3600 3609 3619 3629 8290 7605 7607 7599 7621
8256· 8267· 81t57
8447 8451 1003 1276 272-8 2847 6149 6172 6195 6322 7102 5646 5668 8445
81t50
8452 0678 2862 2861 3341 7210 7215 7422 7428 8313 8397 8401 8400 8404
3639
3312 6335
3345 7435
3648
3848 6349
3349 7873
3655
6011 6362
6247 8017
3661
6034 6376
6455 8022
3677
6057 6389
61t85 l'027
3690
6080 6403
7114 8032
3698
6103 6416
7118 8037
6126 6430
7204 8284
5537
5995 6087 6179
6001 6093 6165
6007 6099 6191
6018 6110 6202
6024 6116 6208
6030 6122
6214
6041 6133
6047 6139
6053 6145
6064 6156
6070 6162
6076 6168
5994· 6086* 6118·
6000· 6092· 6184·
6006· 6098· 6190·
6017·
610~
6201·
6023· 6115· 6207·
6029·
6121·
6~13*
601t0· 6132·
601t6· 6138·
6052· 6144·
6063· 6155·
6069· 6161·
6075· 6167·
6222· 6234
4257 41t08 4460 4507
5978 6073 6165
0165 6937 l631t
5992 6084 6176 0173 6972
5998 6090 61112 0231 6979
6004 6096 6188 0260 7040
6015 6107 6199 0342 7269
6021 6113 6205 0460 7280
6027 6119 6211 Q.\89 7287
6038 6130
0771 7144
6044 6136
0772 1583
6050 6llt2
0812 1590
6061 6153
2n8Jn6
6067 6159
U5J 1620
0279 0508
033) 0562
1373
2658
3615
J642
3643
4~1
6634
0506 0560
0512 0521 0543 0566
0510 0564
PROG ID
PAGE
0 0991-2! DATE
81 I EC NO.
IU I i9
1.II..·.
C7JUL75 825023
25DCT75 87.5032
UJAN76 825034
PRO& 10 PAGE
0191-~
au·
-----------~
IBM MAINTENANCE DIAGNOSTIC PROGRAM 8912 DISPLAY ADAPTER TEST
PART NO. 4234255
PAGE
82
SYMBOL T LEN VALUE OEFN
XDGOO XE003
XElOl XFFFF
A 002 A 002
A 002 A 002
248C 2865
2863 0059
2937 3108 3707 0360
XFLAG A 001 6187 8216
XFOOl XRMT XRMl
XRM2 Y.RM'3
XRM4 XRM5 XRM6 XRl
A 002 A 021 A 043
A 043 A 043 A 003 A 013 A 028
c 001
1852 53A6 5301 53FC 5427 542A 5437 5453 0001
1305 7247 7248
7249 725C 7251 7252 7253 8539
-
XR2 c 001 0002 8540
XXRl
xx xx
ICOBFF
xocoo
A 004 A 002
A 002 A 002
505A 6188 56E5 2DCO
7925 8219
7480 4009
CROSS-REFERENCE
REFERENCES
2835 3695 36.:31 0245 0277 0331 0474 0823 1192 1629 1695 2660 3492 3493 3494 3495 3496 3497 3498 3500 3501 3:.i02 3503 3504 350°5 3506 3507 3508 3509 3510 3511 3512 3513 3514 3515 0207· 0248· 0252· 0258· 0271· 0436· 0477· 0481· 0487· 0500· 0748· 0812· 0829· 0833· 0838· 0851· 6046 8050 8129 8131 8223 8225· 1255 7191 1195 1113 7199 7118 7203
7207 7209 7234 7303
0062 0064· 0066 0073 0212 0213· 0275 0275 0277 0277 0279 0279
0281 0293
0281 0294
0283 0295
0283 0297
0286 0297
0286 0298
0288 0299
0289 0301
0290 0301
0292 0304
0292 0313
0293 0313
0314 0331 0340
0314 0331 0342
0315 0332 03ft3
0317 0333 0345
0311 0333 0441
0318 0319 0334 0335 0442· 0504
0324 0335 0504
0326 0336 0506
0329 0337 0506
0329 0337 0508
0330 0338 0508
0510 0510 0512 0512 0515 0515 0517 0518 0519 0521 0521 0522
0522 0543
0523 0543
052't 05't4
0526 0546
0526 0546
0527 0547
0528 0548
0530 0553
0530 0555
0533 Qlj58
0542 05S8
0542 0559
0560 0569
0686
0560 0561 0562 0571 0572 0574 0686· 0693· 0131
0562 0563 0564 0644 0645· 0650 0738· 07't0 0741
0564 0565 0651· 0653 0741 0746
0566 0566 0673· 0676 0771 0772
0567 0684 0773
0773 1076
0777 1077
0882· 0887 0888 1077· 1096* 1101
0888· 094C* 1046· 1051 1052 1102 1102· 1176 1180· 1181
1052· 1071· l!.81· 1182
1201· 1225 1226· 1257 1356 . 1357· 1359 1426 143.9 1536 1537· 1539 1562 1570 1646 1679 1680· 1682 170lt 1712 1745 1872 1873· 1875 1928 1929· 1931 1984
1372 1380 1578 1613 l 7116· 1748
1985· 1987
1389 1423 l421t·
1614* 1616 1638 1809 1810· 1612 2058 2059· 2194
2195· 2197 2288 2289· 2291 2368 2369· 2371 2'tl9 2420· 3207 3208·
3222 3249
3229 3249
3238 3250
3240 3297
3240 3242 3298· 3316
3242 333:J
3245 4043
3246 3247 't044· 4154
3247 3248 4155· 4247
4248· 4270 4392 4393· 4421 4455 4456· 4473 4497 4496· 4520 4549
4550· 4647 5774 5774
4648· 4746 5799 5799
4747· 4768 5801 5807
4884 5807
4885· 4979 5809 5815
4900· 5760 5817 5819
5761· 5820
7032· 703!> 7039 7039· 7160 7173· 7178· 7182 7184 7186 7243· 7266
7268 7270· 7277 7279 7281· 7284 7286 7290 7293 7297 7299 7335
7336· 7337 7587· 7618
7809 7811 7879 7881
7338 7359* 7387 7391· 7392 7393 7619 7619· 7648· 7794 7795· 7797 7811· 7813 7823· 7839 7840* 7845 7881· 7888· 7916 7917· 7919 7920
7393· 7394 7458· 7582 7798 7799 7806 7808· 7846· 7848 7868· 1871 7921 1'921· 79l5· 8002
8005· 8006 8259 8260
BOC7 8262
8008 8264
8008· 8009 8010 8267 8327·
8010· 8012
8162· 8256
8257*
0674· 0677 0683 0683· 0694· 0857· 08!'.8 087't 0811t· 0875 0880~ 0881
0905 1111
0936 1177
0936· 0937 1061 1061· 1062 1202· 7170· 7175· 7300 7388
1085 1085· 1086 7459· 7576 7577
1110 1110· 7579· 7580
758l· 7582 7593 7597
7583 7597
7583 7598
7584 7602
7586 7602
7586 7608
7587 7610
7588 7612
7588 7615
7590 7620
7590 7620
7621 7637
7621 7639
7622 7643
7624 7643
7624 7647
7626 7627 7649· 7689
7633 7689
7634 7691
7634 7692
7635 7695
7636 7695
7697 7721 7147
7773
7698 7721 7747 7773
7701 7723 7749 7775
7701 7727 7753 7779
7703
7727 7753 7779
7704
7729 7755 7781
7709 7709 7735 773'5 7761 1761 7869* 7872
7711 7737 7763 7878
7715 7715 7717 7741 77.41 7743 7767 7767 7769 7818+ 7889· 7999
8000 8001· 8002 8003 8005 8006 8007 8055 8072 8073 8074 8074
8075 8078 8083 8094 8096 8097 8101 8103 EH05 8108 8111 8114
8116 8163· 8119 8180 8182 8184
7916·
8048 8049 8052 8053
0876
2837 3812 3835
IBM MAINTENANCE DIAGNOSTIC PROGRAM
\1.._:
PART NO. 4231t2S5
PAGE
82A
8912
(,'
DISPLAY ADAPTER TEST
;
\
SYMBOL T LEN VALUE
DEFN
REFERENCES
CROSS-REFERENCE
XOOFF
xoooo
XOOOl X0002
xooos
X0040 XOOBO XOlFF
X0155 X02AA XOZFF
X0202 X03FF X0343 X0400
X0555 : X0584
X07FF X0800 i XlC XlOOO XlOll Xl400
Xl415 Xl800 ( X2021 IC2200 X2204 X2205
X2503 X3031
{ X5AOO X5BOO X5COO
( X5DOO
X5EOO
X5FOO
{'
I.,
X50FF
X5000
X5035
l X5080
X51FF
X5100
( X:>l80
X52FF
c X5200 X53FF X5300
X5400
(-....
X55AA X5500
c X5600 X5700 X5800
X5900
( X6000
VF LAG
c YVYV ZERO
A 002 A 002 A 002 A 002
A 002 A 002 A 002 A 002 A 002 A 00.l A 002 A 002 A 002 A 002 A 002 A 002 A 002 A 002 A 002 A 002 A 002 A 002 A 002
A 002 A 002 ~ 002 A 002 A 002 A 002 A 002 A 002 A 002 A 002 A 002 A 002 A 002 A 002 A 002 A 002 A 002 A 002 A 002 A 002 A 002 A 002 A 002 A 002 A 002 A 002 A 001 A 002 A 002 A 002 A 002
A ooz
A 002 A 001
A 002 A 002
5608 2DBC 5609 5BE6 56FO 56F2 l9EO 56DD 3198 2740 56DF OD5S 56El 453A 56F4 2748 2867 56E3 2DBE 54EC 2DC2 0050 2DC4 5D60 2DC6 OFEA 5083 2B5F
~080
2861
OFF8
5A21 5A23 5A25 5A27 5A29 5A28 1856 5AOA 54EA 1851t 1858 5AOO 185A l85C 5Al0 185E 5Al3 5Al5 0057 5Al7 5Al9 5Al8 5AlD 5AlF 5A20 6188
6180 0062
7475 4007 7474 7826 7487 7488 1449 7476 4527 3257 1477 0361 7478 6266 7489 3256 3709 7479 4008 7302 4010 0362 4011
7933 4012
0586 7944 3705 7949
3706 0595
7675 7676 7677 7678 7679 7680 1307 7662 7301
1306 1308 7664 1309 1310 7666 Ull 7668 7669 0359 7670 7671 7672 7673 7674 7681 8217
8220 0365
(') ZEROC A 002 OFF9 0594
ZFLAG
uzzzz
A 001 A 002
6189 61BF
8218 8221
1038 0906 0397 7440
741tl 7451 1439 1063 3646 3240 1087 0283 lll2 5983 3764 3242 3670 3221 3784
7229 3836 0205 3870 3606 3697
0571
1696 3763 0401 8258
4514 3247
0292 4264 6227 3783 3249
3236 3811 7230 3869 0370 3896
0627
4760 4467 0314 7408
0372
0631
4898 0337 7411
0759
3658 7414
6463
6493
6553
6562
8427
3624
3597 5520
3634
0434 0600 0602
7741
7747
7753
7761
1161
7773
1231
1246 1248 7602 7643
1161
1230
1234
1233 7624
1236
1237
1240 7689
1241
7695
7701
0281 0335 1553 1554 163()
7709
7715
7721
7727
7735
7779
0208· 0394· 0400· 0437· 0624· 0630· 0749· 0753· 0762· 0815· 0895* 0901· 0926· 8056 8060 8133 8135 8226· 8058 8059 8062 8063
0162 2845 4993 0504
0172 3238 5343 0558
0243
3245 5345
0275 0329 3485 4061
5350· 5355
0472 4068 6652
0744 4069 U42
0757 4070 8004
0775 4071
0817 4072
1552 4073
2832 4415
0209· 0438· 0750* 0761t· 0814· 0896· 0929· 8064 8068 8137 8139 8227· 8066 8067 8070 8071
CATE
07JUL75
EC NO. 825023
250CTJS 825032
U.JAN76 825034
PROG 10 PAGE
0891-2 OOATE
82
EC NO.
0
w·i
· !
07JUL75 825023
250CT7S 825012
1SJAN76 82'°34
P1tOG 10 PAGE
orn~2
SZAt
II.
IBM MAINTENANCE DIAGNOSTIC PROGRAM
8912 DISPLAY AOAPTE« TEST
CROSS-REFERENCE
SYMBOL T LEN VALUE OEFN REFERENCES
TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY .-
0
DATE Ol...U5 EC NO. WOH
250CT75 825012
15.NllT6 8250M
I
f
l
· j
PART NO.. PAGE
4234255; IBM MAINTENl.NCE DIAGNOSTIC PR.OGRAM HI(_
PART NO. 4214255
PAGE
8JA
f .,,-: 8912
I l,,;
DISPLAY AOAPTEll TEST
~BJECT CARD LISTI~
If ("\ -~- THE CHARACTER
INDICATES A BLANK COLUMN ANO THE CHARACTERS D E H INDICATE NUMERIC SHIFT.
! ( CL
I '·--
l THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48
CL 49 THROUGH 64
CL 65 THROUGH 80
CL 81 THROUGH 96
. -··· '
,. ("':-.
. .
! . GBK GBO PN 42 34254 EC 825034
I
.
.
........ ........
S-YS/3 DISPLAY ADAPTER TEST
a1taae4aa
89120000
l (' T+-V:SJH·····B/A I ,,,.,..
!t r I l. 'T+-Z5llAU5<ttABUI
I ... T+-OOE_X09+(. ilE
! c~ -
I· . T+-,,OH*H2·Fl8_P
lo . I C\··1we1ec(iooooe
N au··H·,··o·BY4
JO? 1s_2·J_-Y_e
O;ITD*IH5<PN84C
AS-,/OQ&H··F<B?X
GOH*eesaG01HEooa
9.M.l+OE+a·&&K#P
1oiaG· /SAP-z,o~·v
T21QB &EOH·BF-0 /OHOOH)l·YDHQPM
GOH·eE-<· &63 10tt
/OVU+.OBC·BGBS3
HR<Essw1210-.Aooz
-. -
&803 /OD_6JSU84C
/OHOOHIS·YHJQH...
e· / .eH·esHoHC
/OHE.JoHTllQ-C2
.av·.OHU~cocr.
oaucaaztA£·tI5ZF /OHOOHl£·Y<HQR·
JO<·aK · s-<' ·cars
IQEa , ....89120001
.IOH.81489120002
.
H8,M 18089120003
.
/OH 3-08912000lt
1a2 ·:ae·1200os
I! :- T+-_1avoi'tc- ··HEY
0t T+->·a1tcHi<1·21P
1,.,..
I v
.
I- T+-?PNJ.AO >,OHi
I 0
.
! T+-OK85T c... ·NOYM
i0 . .
1· T+-11· l>IYOSI 0
: (}T..,2H/56V-g····O
; C\+-3CPu n i i s a u
I e · ; T' -3· E"NON'l l7l4
i 0
.
: T+-49a1 +;AC20AA
0 l . .
.
. T+-54 "'IE8l0 a-1
OT+-61UA· 2<L8'+1
C) T+-70/0)10tUS·/·
0 T+-8V· ····BH· 5_1
.OH·.G·Co-t7"851
1aoc·c-. ·,oHi· KM
S-USOH.AP-?50NO
-
KGl'tlt. :·BGCE···6f
<OCSOOS·I l.C;l
. AP-Gt·IBGPEO·· I·
"COA* PG2~0-1·£A
. . AP·Rl8YD<OH·l1aB
$9lU,as co·v· PG
. . . 0-C&G C58tt-J -ca . . . H>I l...COOl&FP~C
CQO... /CM-'I Al> 4
l<PC5aH<SA211
a _SOHD.F·lQOCE
.
l/28~PL-< &S...CN4
QCOH+ _10-7 '-
. .
a S-1 A/_30 QS-
.
. .
· 1 L3·QSCAP'->"I A /lllQ/CO c ... lOU
OOHOUHGPLT30H
.
lit SS<D-UCEHCNU
2-JDI 71t;·2 L acc1-1··,_oo·ceK
·l.AJ_·CQ-ICQOEO
.
. .. 1;...·3a1 OP-EltVB -
6PEO Ol P-AP958
. . "*"'P2/2...·PCStlY· . . ···'l2·,AB9· ;s
A9>99··12D .J* PG
54HOGPC~O·C~ACYlt
... - -
. +avit6 ADVOD··a
. OOCAHP·QC N·WCNl P·...918ACC·· E· .
U6·RE AGPOH·BF-D
. . ......
. 8 I J
Cll5>L
. . -£HOC OCllOSIOH)
. . VILUC E"VP·S -&l
YDBC /5"C DI·-·
F a S S . OH·BE-Cll5>L
. .
a Ff9a5T 0-D<Hl
.
·
OC- liE'l.fK UK
. .
OK 7>1 l<QCJ·Qs·
<Q.OACNtE800AP·Q
. . IP.Elt...HcEVOA·;·
. 2..0JP;l·3aZ DP E
....... M ..IOONYl.,S
.
. . TCIJ s_t-l<PClCI
UQ ltO.G 15_2C/O
. ,,,.,>a P·N06·8
.
., 1·30 QS·a FF
T,, ··EC489120006
.
"N.IH 611*89120007
.
ABao BS'89120008
. .
( C4 35'189120009 Ct< 5888912001~
2/Da·;~ . .9120011
. laT I ZU89120012 -Y 1t··89UOOH
.
00-SC R-489120015
. + · ;Qo\89120016 ... . CCI· 40-89120017
81 ·l 891200-18
Pll06 ID
PAGE
0 ..
. .
.
. .
.
T+-is l00-1·H l 00 O+PilOO l"IUI ld)IEICX· /lA I"'' ll<BADOC /$4815$
0891-2 ·on£ 01.IUl.JS
8J
EC NO. 82SOZS
i·Q.
250Ctl5 825052
·
. O~JOHCa lO<NU Ca I 7 09120019
<O-tQT8HC&OlS 5 R<H- l S89120020
PROG ro
PACE
IBM MAINTENA~CE DIAGNOSTIC PROGRAM 8912 DISPLAY ADAPTER TEST
PART NO. PAGE
42342551 18" MAINTENANCE DIAGNOSTIC PROGRAM
84 t l,
I
8912 DISPLAY ADAPTER TEST
PART NO. 42)4255
PAGE
84A
OBJECT CARD LISTING
OBJECT CARD LISTING
I
Cl 1 THROUGH 16 CL 17 THROUGH 32
h-#CC ;saB016l I.
. . . . T+-aJC OCM5Y.C E
T+-·( PG,aV·OP E
l_04At;OCti~AHTO l#...tfGC50~ ...G2/0-
CL 33 THROUGH 48 Cl 49 THROUGH 64
.
. .
<t?oaaFF7C& c:o1 _avoJt& tt ?>o-o
. .
.
< rc·wc;t /56V- ~ c HJO QS...30t1C30<A
Cl 65 THROUGH 80
..
OI 4+ 0 TOICS*< I
t\. 81 THROUGH 96! CL l THROUGH 16
I
·
I
I
r-
·
·
YC?Q ~JB89l200211 . T+/IV IEJD#OI N·
I r··,
GGNO· ;8H89120022: ~-. T+l&Y. ll!R3.$3 JJ
II (~.,
8
li70 NY4i89120023: . T+/ J; P=S -JJSI QA
Cl 17 THROUGH 32
.
WEZT2-RH< JJCEZ-
.
Fl&f~9Z8AEOH 1 V"
CL 33 THROUGH 48
. .
a FFBI Al>L--NW"
.
WOHDM&T#tDP=S -JJ
.
M&13sogn /lJF i I '
CL 49 THROUGH 64 OAJFC&A ... 9N"'W0HD
CL 65 THROUGH 80
. . . L9t3·QST /lJF( I
NOHDM&T4-P=S -JJ
.
OWER18-HA( 10·34
CL 81 THROUGH 96
.
O·~ KIU69U0043
BIM NV889120o-t4
.
NX< O/Q89l20045
T+-·Bt5 ... &AESAO/A
..
T4--"° GC14HOT;JC
0
·
T+/ 89+C 'MtOS6C
T+/CZDJUOS/OS<Hl
. . T+/DU/OH; t
t
T+/E.. <GDlCV ODC
. T+/Ht 0 ov~ /OH
T+/I. Jl.OHOKHC3
-
..
T+/tll·L·-AUO-_+ QI
. .
T+J.AAO Pf <Bb /'f
. .
T+/o~OHC30< 00 7
.
T+/<7_00 DlMlHui
T+/(2H~·8 - C I
r+1+_0-i+.JEONXG
· PG3< A~91EEDE<+H BB?H&CX-&aa
.. .
361 +l G3tsza IL
.
Ol·t 4 1 SA1DA&&<T
...9NSROH*lil&HDJM
JGLB<OJaaTJDl<H8
.
.
s -E G ·OG2-&-.K 'I
-·E JUKl<HAO;)i FJ
agsT /llO<N--(QTA
.
E651tA-YL2-&·lO 5
.
AE5UPf,u.ouo QI·
.
>C&Olf 7>1AtlH33
ANX(O·OOAP·Q(f<S
-·
s -04 vRJCtE0·5$
.
&DHJ9Dll DABOP&E
.
JOHC&/O 1 &-YCOHE G07HCOFAGOH·IZTO
JHJS lr'·KP · /OHE-CO
. -
~ OH8a5S a5T <Ma
. . S4H·JOH*BE- &G
a FF81 At>~lO-IC
·os~2-KH(
GPENA <DilOOTOt.ElUUOAE
vo &LN~CO-ilOO<H
/S6V-AD EB N·N
0
I : ?HG+&D-H& "'ovN
..
31 V730< OSE 11 Wt&E
J5<~G /OAC/ESO-D 2z:OC 2=MC20MC20UC
. -
(QTAIP·R( rJ~9?H
~
R5>LT£1R 5<XA6~C QOCEQC0.30HC30<
eG.~4.VRlO-EP ·s
) Gt04HONP&AOH B
ND?"" -H v····· c ·
JO"IQ-CUD<-OSAD
JWIHBOJQ4 JCU H
204C21DC21MC2liG
.
aaN HSOO; I A&FA
. X"iTDOUtt 5_PT l) P
AKCO QS·a FF81 A
. R 1e ! 2 i PC6MC Tl; ..
oo nass ast <N-
GEID <e1~9UOA N~
.
r .
l: P4 RSU891200241 - T+/KRO OlY@HANOO
I C'
·
AGE4· KQHB9120025i - T+/LM 5R20H&MST-
I
l6)Q· ...-&69120026:
~-(""
T~/~I
0
·
-.
UA+TOH!
..
!,r~ - .
fc:a .6-H89120027' '" T+/NHR23 /l+TI&/
I,,.,
NOHD l&-891200281 ~ .r T+/OESl8GDH'8VR
r~""?r
·
·
T+/P OH&N-T-- -,
- -, UA+TOH)NR2t
.
NR83 /l+Tl&RO*~B
.. -
O*XBDEL·BH HHOI
20H&NEL~ ~· UA+
I
&#i N,¥89120030
3C&E ... 9/EQOHDN6<6
cI .,
·
PJQ89l20031 T+/Q6 N·AOH*02S
c, . .
.
Dl(U 1 1Y89120032' T+/R!AC-- -.2U P /SNXH<ftANOG I U
I
1
0
9zll: 1 0 89120033 (:' T+/f'i l&BNX<C "HR
i
3N>G · AAR(+8 .. BB?H
..
osa8G03. /56VAAY
. - ..
< JEQH>*< NRlN),
~ nMB9120036j ( ) T+/i l .. OAEZ/093M Df3?6 t I
0-H <B
T ··u "'-l'l89l20037i () T+/;QC · DCS//OC .. D
i
i(j fO...< :Q089120038· . .t T4/-.tfFSQPiEQFf8
I
PcAISC .. DQ·fY(C · 0 ,·J1>F&c2 &&1oev
.
,.jH &&889120040 () T+/IICIHUUCN!8 ;P l2104<ClUFJC
M~~o !.9Ya~120042 <:~1+1s·oH*P21xo9+t =DCM2·9RS:IOS;l
UA+TOHllllRSC /1<0-
. -
. NH38GNO··+ HHC<S '
TOHINR4, /l+TI~
.
lC&E0·5UO tlV3-
GD#O+ JEQNXGS -o
APJ+acu:~9/EQ3YD
.
llQ-<6G /Q4BA1ii<
0$1/Qf- "DPsA/UC · D HC00Qs11+c&oosvv
.
t N"WE"T2-&T /56
.
/5l=G5 CC &f.,.91/N
R5_llllV liPAO_I
TIt I o·iBDE IUS}t. H ~0.1 ·,LvaBGNO l OH· l V34 MSi89120046
SH .. HHOI. l Yiil8GNO* . &OH*LY34ENX. /AL
. .
GNO)<OH·LY34GNX.
.
/AKO+B 86HtO:I
u+a 9ZMB9120047
.. .
/5M aL 89120048
.
&EY7 /l+Tl&VO·SB
. -
0*¥BDEQH8H HHOI
. .- -.~u P /5NX-<H
LYaBGNO*OOH*LY34
.. . 4 VR3C&E0·5S!O & N>T- -, 2U 9 15N ..
DOH*LT SAEZ/O*;H B L&BNX<l NR3N_·
. .
..
A ietO#O( N·WEZT 2-&L /l+ac-DOWER
GNO· 5L089120049
.
<NXH J0'89l20050
. .
< &O 0:9089120051
...
X&<H KlD89l20052
.
AAQ OHU89120053
.
18-H tC889120054
..
GPEM-EO OH·0036
.
. . L+T4 U489l2D055
. . 9{ DP<L&BE3M4AA· ectJ093HAE3XK tC 4 J* Nl&89120056
. AEZ-tO&OANXE09e8 GE2Y8ttER?iZ <C E O·NQ 08089120057
.
ICC OPc:A/wt DQ·EY
OFEG NL·89120058 &t 0 $2Y89120059
HoH&PX~co-ttQS<E
VOAO <&GOJSGFF*
..
IFG4< J/&FE.AOA/
-
QS OiFIORCCYANMlt
lL )U KQa89120060
.
.......
.M <
OHU·S
.
.IO.t /l.,./OHIS·SD
·OK· &A'lBCJ 120062
EtEA O~SSOaTcO·I
DAU
C7JUL7S
EC NO. 825023
2socns
825032
15JAt476 82503'\
PROG ID PAGE
0 0891-2
DATE
84
EC NO ..
I «)
I
i () ·I
ie
07JUL15 825023
250CT75 82S032
15JAN16 825034
PROG ID PAGE
ISM MAINTENANCE DIAGNOSTIC PltOGRAlll
PART NO. 4234255 IBM MAINTENANCE DIAGNOSTIC PROGRAM
PAGE
85. (.,
PART NO. 4234255
PAGE
85A
8912 DISPLAY AOAPTEtl TESI . OBJECT CARO USTINC
Cl 1 THROUGH 16 ct n 'tt«O~H 32. ·ct 33 THROUGH 48 CL 49 THROUGH 64
Cl 65 THROUGH 80
8912
0
DISPLAY ADAPTER TEST
c CL 81 THROUGH 96 CL 1 THROUGH 16 CL 17 THROUGH 32
OBJECT CARO LISTING CL 33 THROUGH 48 CL 49 THROUGH 64
CL 65 THROUGH 80
Cl 81 THROUGH 96
T+/T:QDCUl+( 816
.
T+/U5&DC~5>C DIN
Yaut'5o;IA4SGNbMA 2JPSaaGL4aPD&DA
.
(1SPA84_ o·sDlMC
.&DA.l·XTZ<PR&+L
2··C7PMCS2CSU1taJ D84C06MtFl·GT91X
.
lDA lDA £DA &DA E&+lllMCU54tMO;/
.
.r
go ·E089120065 ' T+/8<&CLIO'XO&U
r·
·OIM.OE-89120066 ~ T+/9GM ·O GDA*-1
.
,r_-.
Pt+I E8>C UIGKG<G 3 7tDl&N6AX·G; I
. .
Oll KCB>.EBUA&DE
96PYH;O_GCG4C,-9
AM ll 3HEM M3A5
·t30AMBEJ CNBM&l
-
.
·- . GM /&BN HM _&CE
J 5DDM&NJAVOG<£Z
. (M 8 1 :H8912008l
. JBL< 21089120088
T+/YO,+SR5_PG8' ,T+IW9 9/ltAP·QDaYD
. . RD~AFND·AHY8Ll8
HOKI I ZK M fiiOKHI'
G /YAFNZFOHIRFH* WG&E-.9UL2-U /56
RYAWZi5S ·M-O<MU
. CNIBGNIBYM L30H
8_<UAE OU L&E
OKEi '9i89120067 T+/:8850.M&lJCND +M&'K EHA<O(K SH
r
-
.
08- 3:089120068 '" T+/: 'MO/LBN<H<-1 . LCE<IM09LCU G2...
.
O< RKAVHGM-/K&NH
.
HM-i2tVHC< 1 KC5<
. .
~OEL T DMOJLAN< ~·SBGDJSSGO<~llB
.
F<&- 58089120089 GNl8.Mi089l20090
l
\
T+IZ·ll~V&lfQIN
. -
UU8JC1/E X'ONB9-
.
IMB>&.V _DMBtCIM
HH·8GNl8DMDt.. /OH
.
JAIUEVAt,EZ RMAtWCl&<Z 5MC&Jtl4
oa<e·o_sc H UIO
.
J&lltFWt;MGY lUBA
+V&cQ+Y 9UCl&+lA
CM H 2CU9120069
£Gl0· ·8089120070 C'· T+/Cil3M&CO· l0$MAZ ' 0 xca i l 89120071 T+t·>OH·BF-OROUS
4&<XN07Y JOJ6 ED
.
/SUQ-1 106:1 /5L
:tB·A5 F;OE7BVO
.
·MV WOH·BE?G5&DC
Fl S&A_ Flt SU&
. -.
L6P+D·NM? ··DX R
. . . . Q>->·05 KFlt S&A_ F4 QHH89120091 -
. - . JDJM C:LB JaaG N E+AU NtM89120092
&AKiAtSO*BV IHB· TOZO 6KQ89120093
T+/OPJCC:CHA VO(
- - A8<8GPEM-<EOO<OV -.9/4AP·RlaYOHOHI
'
.
..9y4 · Oe Q89120'l73. (: T+/·UGtU·ANY8F·B G /1AFNZFOH)RFH· -.41·uoH>M·VJ&8<B c /Sl'UCT8_N 8MG SK·CH907VL>RDttE
GM - t/<89120095
T+/ltaYDHOHlllK 2 1E·./OHDi<l·81. NQEN/0WHoQSNU1 00 ?M Q<·a_vo-01e10
~T+~ 0 /5U.3Tl89120074;
0
..E0°-&IHAG·P
/OH061SU84Cl 1 4C S81Rl8>.N,ILI0 1 X 0C(Q.J0889120096
. . . 2-&~·2saB9120075! T·/_HFH<SOl_uass <MYCOLEICN-. /5L ·CV oass <01~9/4 AP·QlaYOHOH)llK 7NEYOKN·WGlE..9uP
I
()T+SAE54CT1;.To·, 88MISK><KADHGM.Q LAD<H"·U,BD.U£atl &CJ- HN·· /OHE.K· -;<BGHGXR5>LTCIG 8C<f;JT-8912C09l
.
T+/>COHtllK 8AHC
.
T+,.>cOH lKOSR<Ml
.
T+/04/0ttOa<N aa.
JOHOa<c e1.F1ii.
06taBGNl8aM L30H
' f 0
EN·.t07'lA · F·L e · J_:G· Ne+o· 10H JVEJ::BGOJscnv
.
DC- ·<IHAF·U·ANY
. .
8·V21 9UDV _&811
. /56VHC9NDTA<P·Q
8F·8G /YAFNZFOH)
,· ··WJ~AB<BGPEM
.
aFH<· 1020HIM·UI
I
0 c M·<· ·JY89120076 T+SBNOI s<xt6tR
I
c -1·a.N9Q891200'17: T+SCto.tSVHJOIM·B
c . I
··
i
CEa JJY891200781
/ T+SO.EV NltUUtD
;
I
G PCO·· t08891200l9l T+SEFM-tLDNH&·l+
I I
0 1
AS-4· JHM89120080 T+SflDZA..XlVLFCH
· s_t ·aaPses9au
0
GNl84M/P /0HO·&G
<X~CF1A~XA9,GtH
3PZ8Nfll/JKEN<.MOE JMlYA..BHYOH·BF-D
O*L06·PS81PSOHI ' 5 eiN··Av· E4·,
.
l4£1J Kl;3IA&FEH L·V<CMOJLAN<FMOI MHPP./2E66)SU84C
RFIO-OBCVOHIRF.H
. a.. U7QF_V..CE··· ft-EK VHCM-JKANH
. . . -9~?0HJRF.,-aeo
ccs +a:cov ... 8
FM-tK8EHtM-Z~B5H
L8E<IMOZL85<<M05 lCV<IRlAOC·A~N
l·M_...a.·s_l/4 1 V 5_..·1suo-2Ffftt1·
..
. SOH* :1189120098 . OPZO 98H89120099
<M-4 NJ089120100
. LEG··il489120101 /SC 63Y89120102
. . T+/3V.JVEJ18GOJS
T+/4-CV 10, J+<H
T·/5SAl4 MtFN .a
.
T+/60D<BG 1s1au1
.
T+/lJG;t /5UQUJ7
. .
) 9UOV 1 &CYl+X£0
.
.AGl8·ANY8F·BG /Y
AX _,e,a+v 9CCR4
.
?GT. /SUQl/83GV.
NAZ-MMA+.C90PMAE
AfNZFOHIRFH<IFAlt
. .
CM aK A610-DILJO
. /5UQ_A9LGX. /SU
QFN · Q'VA_£FV·SD
·:·HAGiia·ANY8f*8
.
. lOHJM·u1ccaaG /S laMCC21V·PG·QIYE
.EOT-ROH·8F-DROU$ 15UQ-15XGQT ISL
- . . . CV 5&C+5lXAUC5
·
·
CDO ;uaHAGRX /OH
QDA9JGZ. /Si·LV IOH·B~X09+( a~c
e I
i
G· /Y · M.<89120081'I 'r+sFa·TZ,HIBGH;A I
0 ·C5 ··R.·e·12ooa2'. T+SG7MXVLIEUVSBM
e 1Pe8· 5*i89120083: T+Sff2/Sl·I E·KOH·
e ·JV ·Y4Hl20084, T+Sl_MIBGHVIR5>L
c · · -E·
K·
·
o.·
891
200
8
I
5.
T+SHYOE E+ HHc<B
o_u.9. 089120086; (} T+S. TH<BGOJT·HX
XHQ+JSI CUBF5Al
T& IGA&<GDl CXE&>.
··- ·
.' /S /2HP5 Cl I
sao . .SNUOHIM·WE
. . . . . 15·1 o·.09·N it. . 84 llAl E4 R7·7~
'AIBG /SQ ( A· ·
. .. . lNB,JciH lK soa5T
,8.AOX 'lCeElXAI
<M-l~BGOJSCH-H
. .
.
·M Jl 1~ 1 M P /SU QX2.Ctt_. /5UQ·2.
.,,A_ . . . ' · 04
GL A < llOBL C<AOOEL ·
Sli I 5'89120104
.
AF2H AC089120105
.
. LH>H MSM89120107
<A7Q Q8019120108
DATE 01.IUl '15 EC NO. 825023
2mtTlS 825032
1SJA11l6 825034
I
l
1
PRC)G ID PAGE
I
I
·D. 0891-21 ()DATE
15 I I
EC
,·i
07JULl5 825023
. I
,.I
,I _
250CTl5 825032
15JANl6
825034
PROG ID PAGE
08'1-2 HA'
J
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PART NO. 4234255 IBM MAINTENANCE DIAGNOSTIC PROGRAM
PAGE
86 l.
PART NO. 4234255
PAGE
861
8912 DISPLAY ADAPTER TEST CL l THROUGH 16 CL 11 THROUGH 32
OBJECT CARO LISTING CL 33 THROUGH ~8 CL 49 THROUGH 64
CL 65 THROUGH 80
8912
( . "-'-
DISPLAY ADAPTER TEST
CL 91 THROUGH 96 ( tt. l THROUGH 16 CL 17 THROUGH 32
OBJECT CARD LISTING Cl 33 THROUGH 48 CL 49 THROUGH 64
Cl 65 THROUGH 80
CL 81 THROUGH 96
. . . . -·
T+S<; E CM HOOi- FM NU/i IHi /OH e KMTJ·BGH2$R5>L HIG8&<.R&<GN1DC
-a-o H.·c T+ScR1cxea>
AIHYlO?co-11ooce 01Mo+.KK"Ho-1t.KK
K<20HIRFH
T+S+MCOH: K&X+ ff Ht<B&H60Z.S&X<MO Ul3YANM4..-SNUOHI
. . ..
. -
, HSI.I /OH;. SKFlO< < 2KD10l /Ott; SK KU·· /OHE-TWO<B G /D8DSJ20H·8FYH
.
BOU s_..sPUCA4 1 (
T9S&Ta5T <MIUl&O
KIH&< 6QAIGH< 6P
c ·
!
O·& &9l89120l09
T+S-OHD·Y~<BG /8
.
r·
AIB· 5Z889l20110 T+S/ 1HCZNLIBG SH
·- - I!!-'<
'IH& E0&8912011Z \ ... - T+ST/1DA·&+~XE4C
. ....... . . .
MP<BG /Q
B A IX09+C 8?E 5<P
UlSSE6MCE61X06MC
oo:IAttXEOllD&G9
S81GG1MC89<SF UV
O*LD6·PSHXN14C xi4coo;IA,<PXSaP
...Lf1189120Ul
. Tl ;H ;C·89120132
C8aM RI0891201J3 1ae 81089120134
·
·
l (~.....
·
·
·
· ·
··
T+S&HI ElVaTOSR..G /6l·OH*8H/J·O..- BES-RIV8XP8$0sH8 &F.QOU ;7E9 IMA2 &FAOO:&+&O..-AUA.. ZA9 ;Jl891Z0113 T+SU*XAC&AJ &iAS 'CE QEAB·EV EEAA &~?.·· El BLllRU EJS&EXBE&HAO&XB? 3-IOWMAOMOIOZMAO MOE 5:-89120135
T+SJEE~BuA~ZBI T+SK S·J OIGL&<. T+SK#9·..X90
T+$L6/5U0-2L 1111
.
T+SMlMAJ&EN OMA·
QMAlY-BUYCTl&F2U
AO'I 8 1 R O·LD6·P
.. .. .. . G u·aeG /Y . ./SL·<E NOH·BEXC t BOCOH·BF-D-IK·
OE3A&BC .. tB6·G S8UCOalC04iXN4UC AGSK:OH·U>'X09+C
/2"?6ISU84Cl1DC
·
NOa/ 6·PG2;.TUV
.
a·l Z<LBCIGOOI I
.
Hl<J a..a-aaR O·L
·
e·R O·LD6MCX9·..
X4iAN4UCl5·SO&+I F&<GD1CV;&<ll6MC
. .
06N9 8lTll>C 5_..
. -
( E·Bl JR '-OE*O/P
I('
X'&<D ·1889120114. .. T+SVPGA ts S·t;
c I
I
. .
/OU I. Y891201151 . T+SWK9+t a?I 5<·
05i
I .. IM89120116:
(..,_
T+SX~OLE<CNU1L&5
·
I("'·
-
UXAM IS<89'.Z01171 ' T+SYHOLFHCNU1S05
·
IC .
·
/SU M8il8912011Bj . --T+SZC; t ·9·2 ZHKU
·
I (:
·· · ·
-_4M l3·891Z0119j 't+SZ· V AM HT 8)
+XCT-DIOiBAS·IV
A6MCI5;IE6·GC8ax R<M8COLElCNX3:J< R<oocoLFtCNu11-s sHK<ZIBUVHK-ZHKU
TaOF~S -a~HU
OS·BGOJSIH..lO&?C
. -
lK SR<MUCOLEHCNU
R<0a1o·BGOJSIHU<
-SKFIHYUTSKKllQU
. llltMBl3 ZOTMtes Bl
Q-CEHCO. /5l··E 1K05R<MOlOLEICNU DK<BGNl91M · /OH YSKWIHHU/OKHZH:U
. .
30+C /6GW-ET /54
lOH·BF-DoHol /2V
. . ll-SR<MalOLFHCNU
OEOJM s 8*?·3·lL UDkOZHHuZDN,TMBI 8a5SO<NVIS..10-ll
. >610 4RU89120136
lk.04 : S'891201Jl
.
15'4 MYa891Z01J8
.
· 1..a s.oa91Z0139
.
&tf5& 8&£89120140 QB< 8.JU8912014l
.
T+St'S6"9 9'V,&+I T+SQt I 10Hv3KCI I
- . . T+SRQTU;&HA;&TU;
T+SEL6N9 o_v 5_..
T+Ss+.HDS+E ·CM&·
.
T+S·ll70< KS8N>l T+SIOP&DOl~HAEV4
T+S; :Hfl · /SUQ-21
8l_V,&<XN04COS·.
/50QUKR·IZX /5U 5;508U.·_ZLJ'M£R
- . . A<Hl~-JR< l CCLB
O./ ?DK +H&aPAG
.
/5UQ-2P&lll /SL
ovsee1.~ /5L·<5D .IA50HMUJBVO.M&O
.
GC50A<HPl/0'* LB
. .
'191: s1ean ·Ml
.
·<V lOH·&EX&D*&N
UXAOo·10uuA4E1HD
WQ<BGIWGU>L T t l G
9VNO+H X·IHAllT
AB<BGPEM-0& C&D C4H·IOH·BE_X09+l HXA1u2v-H2uoe ..+-ENll3·NOL /SL
E&<TDOUtlilFC31UC
2AS<ll8HW-K;&HDD
UXBA·.QBMUB<M<H8
F&<TOOUClaFC!lUC
- - llKOWHS·THB&Z-kD
0
/OHE J-XK·BGOJS
W=E$TiilYOOL&DOCQ.
i?A 5<.A60GC9CX
H&.ZJIHAI·~ /OH
.
·PE ·C&E ..9S;?OHO
i C"
Al<& Q-089120120j ;. ;· T+SOCJ/6Gw-E?/54
1YY<· ·IH89120121\ () T+S 14i5S · OH1M·WA
·
i c
MXBQ UQ891Z0122\ ·. ; T+suo·CQ9<8GQ;E
c Al<&. Q9&89120123\ T+S 00<'108 Tass
I
-
-
BH:< · MaY89120124: C T+S>V84C2a4CA8·1
Cl
48
·
I
NA889120125'.
()
.
T+S?-OH)RFH~AS5
·
! 0
.
2...JQ a.0891201Z6i T+SOSFVNTiST <Ml
C+
A6M OHU89120127: T+SlOHCYANM4aFVN
I
E·K.·N3<89120128: <:·T+S2JLLOENOl30<.
C: BETI; ·Rn9l20129: T+S3<FGl · GH)RF+o
. - & *BGQ;i:HQL-EICNQ
. -
AEiBG0.1-AaST <El
ast-OHl/9YJ4aST
A08TMliPT&<IHl·I C+-ENLLOENOl30<
o·ce·· H /SL·SS
·
Ta5T <MY_?TE·· ·C 1KS7.<Ml_OIBGNI:
_Asst~CYANM4aFVN
lK-50a5SD<M-lWIC
. D<N-1R..(Q-f (Q8<8
KI _1aeG /YA<K6
. 1KS6a<M_o·<6GNI:
;t&E..9S?50 OX>IB
- .. /5L·TEH;C&E-.9S?
<MSC N11WH·P K;
tasr ·<Mv_on:·· ·L
QB<BGQ;EAQ?CQ/CE
ooe·wa5TUOH, /9Y I GQ;E<;aBGOJ-AOH*
:+·~aaa & 1a1 '"
. - ..
.M/8( M"WHat K;
.GOJS...;OH_-aa'GOJT
HO OX>SBGCJS-.·Q& I +· HHt<B-&· IS· /5\J
/5t;sTHM;·cge..9S't
.
tt0-?30+C /6GW-O-
BESHDl&I/ ; CAOL
HoH>RFID_Ae~EOHI
:OHIRFH<_J86A+-E J.OH_-2C /SUOl24
. _l·BGO.IT?.M&_-K
QX26F.Q-. /5UQ-.2C HO· DX>SBGOJs-..o-
. . aH6o·6.<891Z01~2
lK 4 83089120143
.
. a-1< aoo8912D144
RS>g 59489120145
. RFCH.EEQ89120146
NLLO 51889120141
. . .
: NM $1'.. 89120149
_s· 3:tt89U01Sl
1+s..sHe·wa-evass
DATE
Ol.JUL15
EC NO. 82502$
<0-YlCAIHDHOKS/ OlCJV·GX·O?HlC'O
2SOCT75 825032
15.SANf6 82505'\
DHHIY133RR~X2/0Y
I
e <A8S.H<Ha9WP90H· BG-H. 1 RH89120130: T+S4G/SUQ-.2C ·,su
PROG ID PAGE
0 oa91-2! DATE 86 . EC NO. 0
07JUL75 825023
01250.QE. +-ENLLO ENOIJO< lKS70<Mi
250tTlS 825032
1SJANl6 8250)4
_lUGNf :CMAIC ...
llffWP
... &;IOH~EVH ...o···M891201Sl
PROG lO PAGE
, 0891-2
1···
\
·
·
l \
!I ,
! :
l l
f I
f
I
\ __ _
l
I
I
' :
Jj;
1 t
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PART NO. 4234255
PAGE
87
IBM MAINTENANCE DIAGNOSTIC ~ROGRAM
PART NO. PAGE
~234255
87A
8912 DISPLAY ADAPTER TEST
8912 DISPLAY ADAPTER TEST
OBJECT CARO LISTING
OBJECT CARO LISTING
r.t 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 Cl 1 THROUGH 16 Cl 17 THR.DUGH 32 Cl 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96
.
. .
T+S581 1 2 B MHJM E/ NE_ OK8J&,DJ8
T+S5 1 GXa I · 2 8
/EK&fAM04AR.SEA
. ·HA&/EK&IAMOltAR.
JDIHLDABOEZHLGlB
. . . . SEA JOI LDABOEZ
. .
r
.
K NH £JU89120153 T+TIMg;lAIS VMBQ
c LGl·· 7HH9120154 T+THl/5UQ-3"C<>Y
. .
DJOG>t>·t.E ,_ =
. . at5NUOHIM"Y9&..ae
. .
*·5 >K"8LDI03M I G· ,SRS>LT&f .F£.+I
.
&<180;t.HSN·A.o
.
E8>( 6·PCK4CC2<P
. -·
2:aHA<VL /OHE J·
.. .
2-1 ..1 89120175
.
......
'r+SlJ5N4 .- c
. · c· . . t5_PT6JSL&+.T5_X E&.+IE8>l L;.K2J .. Pl·J 2·R B>.W&IG C&CQ 2 U89120155 T+T.HAAQDO-&G/00 <M z.cv fE&/.B&R DD -OAGNNDO&G/MD QHAQFJDlSMAYNBD? S'4A8&.8AHOA8JAH5
/K·< RIY89120111
BF-0(.;I /OH06JS U84C2·MtS5aGRlKQ .v·e K740H*BF-D N.uy OY-89120156 T+T<E&·JitCJHHYMB·
.
.
r .
. 0 Cl50-D2·i1BG /Y AHLl&OH)RFH<JMLI 4C 0 8.Q89120178
. T+S8>0HJRfH<>K29 . T+S9ZSE IOH*BE_X
; OHi M·wn TE (CNS
. .
09+( a?R 8·.NlC I
/5L·EV· G<M-CQTE 15UCH1<.10JOHK;A
. . . IC1JH1K-5S<MUQTE
. & UUEM &·8DX/M I
<COHlL-5S<MilCQIB
.. .
18Y 110 ~8G /Y
GNl8 ·CH9120157 .. T+H N0£1W<8GNI:
.
('·
ACK8 21089120158 T+J(#&<LU6·XN14C
IZ&SJ C /OH06JS
~AAIDO -G/UD+~ 0
.
U84CJiDCC9(XA6MC GJAD&XC+2 IOMMAS
. . St;< 3/089110179 . 3 RO PSD89120180
T+s:u;aBG /SRS>L
.
.
.
BE_JC09+ C a? I a_~
. . . G /Y· ..Dil89120l59 (' T+T+6E5· QMC3-A90 SM .1a1o;M Z&&N
..S/O*H5 Vll>*IV
5850·IX ·&A2 Xt NM Z6aX
.
... Y RY 89120181
. . . T+St~ J4>~BGOJS t.>Q?l·fQ8 41NJI NO?CO-<BGNI: MBP
. ..
. . &·TH ·o ..ae. tDOJ &6·S2XC/&.P ·&.A MK/O&UD<&O+B XD5 &l2Y-H2ECHEACG-.I 9 Y K.189120182
. .
. . . T+S'N901DC:/AG5
T+S·U: DOJC ac D
ti AAHV I UJA:Ja
. OITAFOH)RFH<?Z3
BN H&;J CE .l:C HMBM;AG BY<- 6
.
Y<M/08LO&NOl: NN
. . . . C5 +c;J OV J&;N CY·l KY <OXB K'
SOH*BF-Dk.:Q< L
i o S<CY 1'889120162 -~T+TJX2;(.i14Cf6JS
. (\ . T+TKSMAVCFN QOJ8
- .M&<IU6*GRMBY.SP
*ff+ HXA9&8·G-XBE
lW<BGNl:LMB- /OH
E·EYPA8H ~OE6ala o· Al A HA8RAC5
. &8·(NX8RO XENM & -.BE XDAAHlBDI'
. . 06)$U84C3aMCX5<X
CA4KO ZOLIUOl 90
. TC<H 2Y889120183 . P~·O t.aa9120184 .IOH J.M8912018S
. . . . . T+S·.84C20MCX5<X tOJXE04CA4 1 C OIX T8XY MC/C S &HJE
. .
. . . . . M·ZVUIBG ISR5>L T&ll2&<GTaaGC2DC ll8>< SS8891Z0186
T+T FAI AUAQLA ;
. T+TAaS,:IG-J&CBI
. T+T87ZJ Y<M-CQTO
. T+TC22;1S· Al·J·
T+TD_RCYANM7 /SL
AgA·&B ;OCAl&F40
.
. <<GB LAJOH·BF-D
lN0£1 NNCOHl~·v.1 D. l<<~G /YAFLD
.
·Ill 7L&D$P· a2-&L
;RAOGJOG/CS.F U<
.
O<., /5UO.JBt<<t CC44AF5·WaYDDOHI ?O-DOIOOA<llti0+-0
. JO+ < l S<CY< L . KOIBG /IR5>LTCI.
A<&COI OA<BQOJl8
/Ott061SU84C204C
.
U<CO< L W<DS /5U
B&+~M2;(/6·PCLiP
GOJSC.:·OHCEHl44 XS<XTOtXE04CA4·C
.
c
.
<Sl4 R8889l20166 T+TNL8U·TK·Jl9J
·
i o,i
·
·
Q-28 ;118912016lj T+TD+CQU+SN A<O
' o O'<H· '9U89120168: ·.. T+TPIE_X09+C · 9·1
aDEM· .IKH89120169! () T+TQOPUCES·GBO·L
c~ OlU · 4TY89120170 T+TQ· · E· AJOJC· V·
HO-&LAA8DA8.16-AR
&81806 &~AA HID<
.
1 /8&14GWEOJO PD
8_..,.\6·N.a·n· 11 181G80HIRFH<6ACQ
. .
. sc- 6Dl8G /YAHTP
JOH)M·TNl ~coal+
KAA<DD &G/E NA8J
.
SGO&G/OD2MCAO GD
.
. NOH·55_X09+1 awa
. HO<BGNl86M L3D+C
Tlllll<.SOaE asx
. . AFE OALICF-;DMA_
lllCRCIN 6H/A9 >
/30DOH*8f-O+IR1
.
. . O>.COllCS2tR ZlL
3SHC /5L·l5 FOH·
~<X"5<PDPUCE5·G
.llMD Q 089120187
ICHU LB·89120188
.
.IOH -.«889120189 . - Ml*' 0At89120190
&EU- ·11189120191
.
BQ·C OT-89120192
·
. T+TEY8·H_ CFRO-D
T+TFTNl:HMCJC J_
.
T+TG;F-DL<ll /SU T+THR A<DGOUA ;
·
·
· ·
· ·
lMIBG /YAFLFDC 0 OHT :c DOI: ac 0
~9?HAA<aGMV· /OH 06llU84C210CX5<X
. . . . · 0-JGM(U<aHENUOHJ M·YZC<iBG /SRS>L
IM SGT4 +M 5A8N £RAECD¥ lMAJgEN
.
·
. OITAFOHIRFH<7Z3
TQ)XEOltCA~·C DIX
Tlf.El·~MZ;I · :·P
DtlAl&FDGSUCA9A
·
'<M-lWCOUIOE: NN T8-EN.- 2J<HA<EX R51PSMtl.SP< 0 I H&;NA9UGXCl/A:MG
·
I 0
COH· R.Y89120171 T+TR:2;.AOUCWQ;C
/OH 81'89120172 (" T+TESB·CQ8 l+H· <8
·oxt·9J4&91201 n C> T+uoav· HJ1vnN·
-·
'C'
..
DC;i OL0891201l4 T+T· 1 9+C a·/ O>.
.5u_ 6·PQOHJRFH<
GNl89MAC30·C3S \
.
.J 11 'CE ·+J-9,DOQ
·
. 6Z3S;OHJM·TR&. ?C 15L·+v La5t-aas LMAElOltQMJlN&EV
C8l+HOICQA<BGNl8
.
OHtM·T_&EIBG /R 8iXO,<.U8>T /SU
·
7M TJO+CSS L /5L
. . ..
G DOAN IGAN CM I
.
0-J,-A.0. /5L·C5
··f··E208912D19J
.
lAUQ 11·89120194
Fas- &.-19120196
DATE OlJUllS EC NO. 825023
zsocns
825032
H.a&a16 8250J4
PROG 10 PAGE
0 0891-2 DATE
10 87 , EC NO.
lo \o
DlJUL75 825023
250CT'15
825032
15JAN16 125034
PROG ID
PAGE
0891-2
au>
·
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PART NO. 4234255 IBM MAINTENANCE DIAGNOSTIC PROGRAM
PAGE
88 l.
PART NO. 4234255
PAGE
88A
8912 DISPLAY ADAPTER TEST
OBJECT CARD LISTING
. 8912
!C
I
I
DISPLAY ADAPTER TEST
OBJECT CARO LISTING
CL 1 THROUGH 16 CL 17 THROUGH 3£ CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96! ( CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 Cl 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96
·
·
!I r,_
T+T)W8<FH(413S<C T+T; 1snaOH) S·UH
T+T-P&0 1 -018G071
.
T+T/KE?O+M 67HIO
. 3SILAST).0H)S·U
OQI .. /5_2K& 1 -0· '7730+ l LUCO. DEME60HIS·UMOOPS
.
JMA UJSNGllJlS1t
OQf .. 15_2&& 1-0SB ass OQY76LE.co.
/5_2J lR/ I 186071 FXA/&EllMGX"-.&FV
GNl88MA? /5L·+N JOH 1S05~a5T-i18-
<Hl7;·CQ8t6H(7? HC6CB· WHB·-IY $0A9&G.l<HOA·&HCU
-it5T-OCY1·?+HOI+
OOQYl·LA.(71( Lt
L..1ass OH·BESB
·
·
X-E-EM RQB5 GM Z
+sl · /OHE· JOSUB
Hl<D -'1089120197; . TGClE&NA HOYNADN
·-
\r~-
·
·
ICOH lHa89120198, -,_ T+T"8H A& E AM l
I
! ("°'
GOlH tLH89120199 T+U 3GE )MA9&G30
I
I ("">-
·
&B,··PL&89120200; T+UA><B&OI OA<BQ
· _
Ii
G+Fa 2H489120201,
r'~·.
T+UBZ&CiBGJBO<
L
EMDgQAD/HHDtHKE ( 5 OM N&AV GM I
-· ·- JU /OHE Jl Has
S<BO< L U<CO< L
WDO/ELNA<M04
·- .
&BN HM _&CE tM 9
G&B3R5>LT& ! I C&<L
HJLvaDENUOri) M·v'
W<D-iiiOMMBIAEO&iB
.
&C5 &HAE&DV LMAJ
R2;PE60GRl·IE2;P
. -
&G OA<BHOH-OA<B&
GJBQ< L S<B8< L
&EN OMA)&FE RMAZ
. .
01 OA<BQOKtl JLU<CO< L W<O-aOUM
88·89120219
..gF5 21H89120220 . . :c o 7:ae9120221 . aoo& 9· 89120222
BIAH M0<89120223
c~
. .
T_.TSC6UU84C3·MC T+TTH+M330+CAS3U
.
. T+Tucaar OHtM·UN
T+TU·+M?3S<. /3U T+TY900&GOHl$·U-
881IA&<XN8aPR6;L
. . : OQ08YaBG07H9G6C
' ·CQB<F<++. 15_
.
Cl&H9L< A+M.30HC
.
KQR 9L& ' LV<OHO
P84CT1;.T&<BGOJS /OQU811BG07H:G6C 2JA·-a..+H-<F<+L.
/OHOOH)S·UHJOH* 9RCH-+Q,3S G /5_
. . C+E·9S?IQ-llQ8CO +M33S<.3S 5YCV
. . /OQU9GCOA+M33S · /3S·l&H9L< A+KL
30HC /SUQ .. (Q/CE RPQ730HC30+ a LV
.
< LW&+Ot /5_2&1- 9Zl86071 DOBGOHt
.
2+&1/ITOB+M33S D I LV<OH!>9-TM-+Q3
.
.
·I Q-<89120202: T+UCUJDI /4&W+ -
c 30+ BLMB9120203: T+uo..nAHI <JE+CO
<ce·· ·ose91zo204, C' T+uEic · 001c ··t ·o
I
S·U0.&1<89120205~ ~ T+UFUH-OA<B&Ol-0
C-
3s 0 R 089120206: -· T+UG&OHIDl-OA,BH
0 I
i
.
HC<8& IQ< L S<t MJDI. /4:WC. DOHT oITAHl<RE+cooJot A<BOOKC3HJL-aHOJ o.-OA<B&Ol-OA<BQ
.
< L U<CO< l W<O- a04M8IAlD&i8GJ8Q
. .. . . .
/4&WC DOHT BC D OIC ·C OOITAHl<I COHIOlT--8-3 UH OC OOHT IC OOIC OKClHJL-aHUJ~OHJ 01-0A<BHO< OA<B&
.
< L S<tH< L U<CO
. .
.E+COPJDI /4&WC 0
·C OOITAHl<VE+CO
. . Ol-OA<BQOKCl.JL-
. ' L R8D89120224
. S<CO &"1·89120225
.·o OHT
89120226
. /JD< JJ089120227
. iiH4& ·-889120228
T+TW40H)S·TOIQLt 3S' /3V(+N09;_P ooa11s;IE6JXU5·1 S&+I05_l 51 IAoaN
.
JOI& A&DM <MAE
E+- 0Zi89120207, . T+UH.&a8GJ8Q8& Y <OI BE-OA<BH0<-0 A<8&0& OA<BQOKCl <JL-a(OJCOH)Ol-0 A<BHOC OA<8&0& 0 A<BQ ;,~89120229
C",
· ·
T+tvO+DT30+CAStY
.
. . T+TZVHl98M LJO+C .
T+TD- /S /SL·JN
. .
T+T,SD&K·Y9 IM y T+TSOl;.TOHtRFH<
.
. 99·8G+;SRS>LT&ll
AOHtS·TULQOCJS<
.
/SL·&5 Fa5T-a8T
- . . Hast-asi asv oo.
· D 0-D:TaBG /Y 1?31EPOPS63J·+tX
. . A&<.SOiE eaxo&CP
8H Y+OI :D<F +IC
. . +8·Htl8&.+U3A-tl
: S·tO-<BG /S /5_
. AHT,;OH·:1·x09+c /SL·+5 Di5T-OQY
084CR1+//9(Pl84t
-.
ASCDtaes OQ-:HaB <OQ-:O<BG01HCi06E 2+-· /L·BGD7IOC6E
aai o>.COMCM51l
fEl+HOCF<+#33Sll
C2<Pt4?(0-<BGOJS G07IAD6E-i5T-a8T -OQ-:E<BG07 I ID6E
.
l··iii?Y4·DM l&AAD E&<IYO' I E&.+·Tl*G
C+Z< *·<99120208 T+UlF<O-aLMMBICN O&iBGJBO< L S<CQ < L U<D < L W<D-
c - ..
OH* GIB<89120209, T+UHA L U<D < L W<D-aL4H8ICJO&aB G.IBQ< l S<BY< L
I '
c - . . . -OH*·E- Z-89120210,I T+UHaC DOICA C D
I
I
. . . . I
()
OITAHICEE+COlJOI
.- .
/4&W+ DHSa&& IQ
.
OM Q J0189120211' T+U.7/4&WC OOHT CC OOICABt DOITA HllCE+CICJDI /4&
0 I
I
. .. .
L&+< 55&89120212 T+U<20H1DIT-88-? U HOC DOHT 4C D OlCABC DOITAHltN
0 . I
1si"' aV-89120213:
T+U(_KC30Jl-iJUJ COH)Dl-DA<BHO+ 0 A<B&O&-OA<BQOKC3
c I
.
.
aLUM8ICRD&aBGJBQ U<D < L W<D-aMDH
. . . < L S<BB< L U<OH . . we DOHT 2C OOltA
E+ClEJOt /4&WC 0 P.IL-aJ4JCOHIOIT-
.
8- Y<OI BE-OA<BH
. .8ICAD&aBGJBQ< L
.< L w<o-a4UM8ID1
BC OOITAHf l.IE+Cl
. .
OHT 6C DOICABC D DB-? U HOC OOHT
. O+ 0 ·24891202)0
S<BO atta8912023l
. . D&a M2089120232
OJD< ·9 89120233 OIT 'Y089120231t
.
T+T_J·T41Q<. /5l
.. .
,·O?EaYD(G·e...9_,
. . . . . . /56VHDA..HG4'" S?H AAX4 · &-tB9120214i T+u+Y<B&OJ OA<BQ OKC3QJL-aMOJCOH) Dl-OA<BHO. OA<B& OJ OACBQOKC3RJL- aMMJCOHIOl-OA<BH o.-o N&Gl89l202J6
~
,.,
T+T>< t?2-JH· E· VS/O P·SSOHllZKA A C3SHCAST>Fa8T
<aont+Hl<FH+9S
.
. l5_2JAR-' iSG071 EC6 ·1089120215,
T+Ul T l U<O&< L W<D-aOUM&IEID&as GJSQ88 v.01 BE-0 A<BHO< OA<B&OJ 0 A<.SQOKC1SJL-8M4J COH* 02M89120237
T+T?GOIBG071FC6C
. T+TOBAE-GH MNADM
T+TO'MDlllC VMBS
. . . BOHIM"Ul&l?(QBI+
-
HM V&85 <M s··1u
H-<FH+Bf /5L·J5A DKAE,DD-J.. :YRAO-
<ass OH·BEOMANHEX·NF&JHF5
. .
&<U-3t50·l5 6f J
C>6 AE AMOJ&J EKA_·HAUDKBA&G4H+V 9KC1 ?HIO·MC5
& 5 : /089120216: () T+U& ;JBO< ·L· S<C!i
-HBO )T"8~l20211 ()T+UJR/4&WOH·8ET&
·
l F\
·
&IUK E-08912021e' - T+UKMFYD4JJC /OH
!
<· L· U<D&< L N<DHJHl./5UQ-2=X<Bi-steca3G /8AJL/
aPDM8 I EJO&a.SGJBO lKDM: I AANRCYANM7 oxa~G·1oaGDK..OHJ
< L S<C&< L U<D&
/SL· E lt&EOJN~
. .
KOIBG /S /4K llG
< L W<O-aPMH8 l EN
wavDlOH·BFYO·J() 14iXN14COl;PJOaN
D&a 1 089120238 /OH . . .EH89120239
.
O·& ·z<B9120240
I
OATE 07JUL75
EC MO. 825023
250CT75 825032
l5.1Alll6 825014
PROG ID PAGE
orn-2: OOATE
c 88 I I
ec NO ..
· I
I
t
I
I
10
1.
07.IUL15 825023
250CT'15 82SOJ2
1SJAN76 825034
PROG ID PAGE
0891-2
au'
I
i
·· · · · · · · i · · · · · · · · · · · · · · · · ·
I~M MAINTENANCE DIAGNOSTIC PROGRAM
PART NO. 4234255
PAGE
89
ISM MAINTENANCE DIAGNOSTIC PROGRAM
PART NO. 423.U55
PAGE
89A
8912 DISPLAY ADAPTER TEST
OBJECT CARD LISTING
8912 DISPLAY ADAPTER TEST
OBJECT CARD LISTING
Cl l THROUGH 16
.
T+uLlllXE8>1 2;1
T+UHE5 1 $S9CXEPE1
3
T+U0 /30Dl-AENOO
.
T+U012)~Pl·J 2·R
Cl 17 THROUGH 32
9·...P5>fE60\:0llR
.
·&<.E&+.C6*N 8'R ACRRHl<SGCQ&._D.
S>.WilUCl8UC05N4
CL 33 THROUGH 48
.
s_v 5_~E5MCC51G
.
saTE&<IOO;, O;(
6·Pt5_PNl·IT&<G
.
EOH·6F-O>JRL /40
a·4Z6CA9HIMZ61 I'
CL 49 THROUGH 64
X&<GT&<E 8iPR5<X saTE&<IP90CW2JI ·
FSiPR&+IEB>C PEl H6)$U94C31UCDl;P
- -.
HV-C;KZNHVTl KUS
CL 65 THROUGH 80
. .
NO)( 5<XG2+( OiG L&<GV51XO&+IH2;1 · CCl&AEK&OAlRR IOiN 5'SL4iXN14A
Cl 81 THROUGH 96 I·-~- CL
THROUGH 16
.
r
\
.
UBSM ;JQ89120241 T+uX/O·IElF_ 6·P
0
('-.
·
l;· i/189120242 T+UY·OHC30+ C·4X
Hol
a U89120243
tr--.. T+UZP
.
KUI /4Z
"''
(8_H LLU89120244 !. T +IJOK&OA .. &OA .. &DA
.
r .
. .
l'tU JZ089120245 '- T+U,l&DA &GU BYU
CL 17 THROUGH 32
.
Sl;( 2<Gl84?N5_P
Cl 33 THROUGH 48
.
E5)R OJPS91PR&C&
. .
.. .. .
AKT8+ MY?N_X /4Y
. .. .
. . &DA &DA tOA £.DA &DA &DA &DA &DA
.St2!CQU+S& A 1-/MHD -KAA DASE
Cl 49 THROUGH 64
.
HKU48 -HI01Ai6<B HHC7· c -MVOC-E ZC·EHJltY?C
. . .
&DA &DA &DA tDA
.
c-;A&AAAOS J;~·
CL 65 THROUGH 80
.
G SHA·IBGOJSCKZJ HASSROHtHA.OAK/ 1
. . .
&DA tDA &DA CDA &EllPesN Ot21&A
CL 81 THROUGH 96
0
HOl< ·S089120263 HA00°61889120264
D 80489120265
.
CD 6/ 89120266 Viil L:-89120267
t;
I"
.
- · ( AKO& M,Y89120246 T+UiH-H4,0H*BF-D
('·
,KO-. /41H6UU84t
42DCHOtPUO)l 2JP
Tl>XVK4A(8_.15· ..
ElDCilUCS8>S2tls
. NPL- 0 089120268
T+UQl<t. /ltXFl<N HL-OAKD&oc<BGK·o eD.Y<OIAG_JiFKue <·MOW<CB<.MDU<CS T·URl/4XFl<IHL-O AKD&OHIBGK·Q8H y
. . . /4X.Fl<JHL-OAKD& O+< 2ZQ89120247 . T+U_CH HHOAA((i8
{'"~
.
/L·P30H&lK-50i5S
~ T+U_·aZ +C VW Mt tlI/lHl~GL&HlK-5 SOH·BFYQVL-L /OH
<DZ-.9UG· /DFFU7
~oH·BH/L·< A~9TU
G SHM"3 P·Q9C5·
IP·Q Rf089120269
.. -
waz £0-89120270
T+UEXK~lO<<BGK·Q 0
0
,,·Y<OIAG_3l<KU8 < MOU<CH< MDtKDC ·,4XFID5HL-OAKD& OC<BGK·QILUZ·C E HZC·· K:l89120249 ()T+U>9C·OIR-E+4C2 ELKt ·,44BC.l+SOt XOH·BFYD9LYX./OH E/TE+M<BG.SHM·Jl
T+USSClBGK·oa-·v
T+U-.+/4XFIE1HL-O
.
T+U/DOH·BFZH< M-
.
T+US:·IBG SHAPIB
T+UT5& +SA8UCN5> I
T+UU094A 1 5 1 SR875
.
T+UWM5·J l<PV2·1 DATE OlJUl75 EC NO. 825023
<OIAG_3llKua<·..0 U<CT./4XFlfAHL-O
.·- . -
< MDU<88< MOW<D. 14XF I I lHL-OAKDt
AKD&O<loGK·QaPMl
.
. . HL- OH·BG-atLUT
OKV ··o OHEH/i8 G /Y80DU5C fH.UZ
. .
.G /$T2<N L.SL4 1 S oareo·.ElO_ll<P . . O;PA2JIAO_IE'Dl Dl;P1raN 2:1 01 $
~t+SH21IEC<I05;1
"2JPG&CXE8-~05·L
Y2·1Et<GD1CXE8>1
.
A8UCPUV 9<LTPMC N5·PC8iPD&<GHlOC
.
15;LI5·1 21N O;I
250CT75 825032
l5.tAN'16
8250J4
aKoioHIBGK·Oi4M2
+C.EHZC.IOHJJlT-
-.
HZC 20Hllll-BB-?
Aa-i·2HH891202so (;_T+U?~'Dt1az·vc 0 1
+SDtDOH·8FYD9LYX
-.
/o+IE/TE+M<BG SH
/OHE/TE+M<BG.SH M·32JL?DlP5·WOHt
C': -
·
T+UlO/TE+M<BG SH M·JOJL?GAT4180Ht
C· . UOHI E_HL-OAKOt O« 20'89120253 T·U2Vii...+t( <BGL+Y 1 -0110 E<,T32LIP
.
. )0H·6F-DJKC4+ .....
t 1-..i <BAKEY< M-
.
IWl8G /YSGJl!W7IE9 E10CT5UCA&C-.04' C
. . 9a-.T2<N l_stlt·$ .
. . 89+( liXVlMCN5UA . HOii 5 1 SWUV 5_N
TO; lt21 LE5;( 5<G
.
ON_X /4-..LOH·BF-<
.
·KBB< OZ+ C /OH
VilTO·R-.D<BOQAK·P
·
.&07T2<N 6·PS5'$
r.cxee_~os; .ee+1
c~ BC·D· -..1&89120254: T+UJ-a..+Hl<BGL+Y I I
~ DUI·' 8Q89120255j T+U4S&LF<+t3 · /43
i
c ; ·MY· 7-489120256[ T+USOOHI T·IBG· /D
I
4
/6< · MSi89120257; (" T+U6J8iX05; I·O>I
C"' o
N81M
)3Q89l20258~1
".)T+U7<-.0_·s_v· ......e
l
0 I
C51D S Q89l20259, T+U8G20GO&<IHl*I
!
·
I
Ot<D NKY89120260j
. 'C' 1B>LS5aPC84CC51G X~<O lS089l20261 T+U9'&1XE81PTE4C I
U P8U? llUCNS> C 01 $ N5·M· tlY891204:!62 T+U:82 JPVOJ I llDC
1
PROG ID
PAG~
c 089l-2i DATE 89 ; EC NO. !Q I
07JUL75 825023
i·
l·
I
-.
00...BH/£· llAViits
81PTHXH14CT2<N 6·XG2+IM5>.Tf.<I 1 &<XF&G7YUl 1 K1 X EB>LM1MCP6)$G&<.
KtCIIlaTT&ISN$8L E5 1 XE8>I OITEO'I
011R?6·PS9CLE&c..
. S8aGR84?Rl;.E84C HOJIT&<GN1DCA&G7
X9·)t6·PS1;C 2<G L84CA5·J B>TSBaP
250CT75 825032
15JAN76 825034
. . M·JO/L?DoPe·woHt
<-C6U 7G2 K-< u:
<GNB>SE6MCT2<N
.
05;.0ltaN B>S 18il
.
. . 6·PS1;1 OJPDCIX
R51..ROtJ 0)/ l<P
P6JSC&<IHl·IK~MC
M&+.HS>LLlDCHO)P
. .
BFYQlLVC /OffSEta a-118 Jt&89120274
. . RF G30+C3S<C3SI'
lJ_VillBG /,ABWQ l_SL4'SW21PGlCT H&+IOlG70...MCllUA HOllTl<SFKiXSC+I
.
8/48 PJM89120276
AE l8189120277
. -
Ul;H aEQ89120278
. .
. 1 5~Q ·I 89120279
HIM &B 89120280
E81PT&<TA4·( lU P6·PSB·XN14CSz+.
.
S21SU48J 51IC9(V
. l8U $9·89120281
~l)l R8089120282
. .&04 SLQ89120283
M5<D ilS489120284
PROG 10 PAGE
0891-2 89A'
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PART NO. 4234255 IBM MAINTENANCE DIAGNOSTIC PROGRAM
PAGE
90 -.._
PART NO. 4234255
PAGE
90A
8912 DISPLAY ADAPTER TEST
OBJECT CAAD LISTING
8912
(..,
DISPLAY ADAPTER TEST
OBJECT CARO LISTING
CL 1 THROUGH 16 CL ll THROUGH 32 CL H THROUGH 48 Cl 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 (_ CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH '6
.
T.U.J5·J 81PQ9<P
T+ua>L: 1· /OHE· J5
. .
J+u·Z9+C ·tE QOC
. . . NOaN 9571Q1R oaT
IK*bG /YA.U170ff*
.
MOIPUDIC S<XC61S
; T+U-U8>1GK.4CAl<L R&llFOSSLSIGO"l
.
K'llT5)R 2<GN14A
. .
8F-·1L:. /~8C E
P~ISG6·GM4·SAlDC
. . ,,,o,c~ClOA 'DC . E9'1.&+.T5_1 C·L
S2)SS5;.L2)STZIQ
.
D6M_ L~COOIGFPMC
. . . 1o·xos·x01 1 XASOC 15MCS8a).£11FO·A -aasF1UCA8UCRU/
I
i c
'' 71489120285
T+Y&EaMc~auc1a-~
. . . £"',
6JQ. Q.189120286 \ T+YJ 94A 94A 94A
r~
.
15M 9ta8912D287 T+VJt5_N a·xY&(P
c·
.
_,_ '8Q89120288 - T+VK683QANE8'+ EJ
(-·
. . .
M2;( &IE &+I , ··
. . .
94A 94A 94A 94A OK4CX94Al2<PXP& YNFT2-&L./5Jx+·E
.
. . .
&+I g+I £+) £+)
. .
94A 94A 94A 1 975 MO?H&AX3D.IHGBP3
. . .
t+I &+I t+I g+) 91 P0,(XEOaPl9*N
.
~;1·c~R1·1·1oc
. oareo·1.&<sa211 . ~I av·I~ID C-A
av·
.
lCD RQl89120JOl
. ElD ·K089120J08
. MPEY 11<89120309
1~10 aLua912os10
T+VAN-<BGL·84BEA
. . . .;<BG SHMllBG<<l
IC E'*HA?ass a5T
. . . &H/LOI A&·1lQ8 l /OHSE IL /5 -a5T ~N1'·'8AMGEEBO't .
·NJIND-8.,.GEEH·
. ..
. .MGA£S· AMC lOEA
. -LIL30HC /OHSEIG
sass i5T-C1 1 NDV"
.
9C El·NA?<N/&·&8
. 30+ N:U89120289 T+Vll 8 NE1E83S ("-,.
Ka5- a.&89120290 T+VMIQT30NJ8a4EM
.
r
AMGD 5.Q89120Z9l ~. T+VNXB-IANOJEBaB
c~ . .
NE1ZD zaaaoaaFP :aY·<I /NQT3-NJ8 GNJ·30< OOE·Wt&E
. aav·G1ID/llEV·c-
IDEM:( ENPTMANOH
~9VNlOHEftM·86PEM
. .
. . ANE32D R8Ht1/0(
· EN+ AOANN 815T
' C-ENQVNW+O(
.
aaJt-/OA&C& ·NE< 5 -c~'NDVMKC,ENR NL·HA C 10
. . savD 1Jtt&9120J12
3& ·J'8912031J
T+VB,O-·I EAOMF7
NA+<Nt,l·CO-<b
G AMM D E BM I 90H)S9aBGOIS /18
. £ ft 6ISU84C42UC
DOHl&41 X09+( ate
.
ClMCCOIXD&<IHl·I
. . 2<LB&EA O· I l +L
KS>t &1<89120292 ,- T+VOSBER, ( EOQ3'
0
.
M54 RB&89120293 - T+VP)DA<+ NR9N>U
. BNW*ltAER_Ct1r1093M
8HER>ll FC-EO;NS
AMII* ER> CHA L&
. .
Z+ /OSS8&N;H+ NR
ANMI< NR9N>_·S-ER
. . 9N?t8AER>OAAN8-8
. >at -c-eo;NSZ+DA
ANXV01 C-BNW· OEP
. OS?H.EK&89l203l4
SC-D SZ<89120315
. .
T·VEA NR30-I' ER
. ..
30 EltJ2 M·a· NR 1avF;IOAJ3T48NX.
ANODOOE·WL DAP·Q 2-R<aHEG+l,CO·?ff
' EHZa-ODON5K 'H ASCO&M·8 1 AER2ave
0 'IHO· RY8891ZD295 T+YRLHBG· /88··A
05-aANSAS9-IANSl
. . ...... ..... Da 4ANSIOt< 8N/1
1 C EP ER9C-EP E· /OHE.N505-8ANXV
............
. . o:-BANSAOGl-4ANSA
o·a
4Ll89&20317
T+VEaMt<8 1 ANR21YE T+fflllX.2-lliHVG
2101JJT·FNx.2-D4' +ILDl'?HA<COEM·8
a.eG+1c1a.1itAPCo 1 CER2aYOVIHVJ3T4
·M·a·BER2avEJlHZ (NX.2-JYIKMG+l,9
J3T41NX.2-MaaKvG O·?HAC30ZM·8 1CSR
+1tv.3oge9120296 C>T·VE·AEPOOH·BF/Q
c· zavo· QS089120297 T+VSUDA ·£DA· &DA
. . . s&···o-o <He c &DA 'DA &DA &OA
. . . . . . 10
0
A PHEU
&DA &DA £DA &DA &DA &DA &DA &DA
. . . 'DA &DA 'OA
&OA &DA £DA lDA
tD 19M89120Jl9
·
T+YG2ACORM·8< EG T+VIY84CA8·lACJaT
·
DM·88 H.a/ F.OHt Ml)PT&<IHl·tKt<G
·
. . HRO 'AER20Hl&:34 /OH; VR3MUJ /OH . T&<GDlCV 9·~X96_
· ·
. . HNX. -vc,+ HHc<b .; V·WMVX /50COH·
l<GTOMA·,+~X9··
. . ''~'CER20Hl&:34
BF-QOMVX /SG· <S
.
48E<~C EL004AP·R
·
c·i · · ·
tNXH JZ<89120298 ,'t(V· 'DA &DA &OA
I
l6:H· 1-0891202991 (j T+VUHUU8ltC7U. I
0 1
M:I · lt89120300 T+VY6QPH5.OE?.0/
· ·
&DA ,0 gc· ~
. . . 15WGS5;1 5<C 8>1
w,-evsco OU68lFL
· · · ·
a·Dl·A·a.·o
'
.&NY)OS- E 0 D (L
BO- IAEYGA<H&DR·
uevuc ERPsv c A ELHve,-e1s.--RIH
·
. . IOIV &tLBOIU
4 NW> OEl>HAUil 'a7co-1coo'HoA061
88-89120320
.
1.-0 21·89120321 a&·H·2e-191zo322
.
T+V.; Nl/OHtMPJX
·
·
T+V<RNB~ /OH; NJ
.
T+Y+IH/& 0-D <8
.. .
"MEX2D 1 8 J·20 R
·
PNOltiS091 C EV·SJ
.
. GACOU!4 1 1,vca-o
G A ~A COA &DA
·
COH·BG-EtroWl 1 C A V·Ol 1 0H*8G-EM06P
<COALCELICOELCVL IOH·BFVH NE« E(
tDA-2060&11.EllX saaPRQDA 51ST1Q...
/5J->O-IKOOOANE_
·
. IC EL&VL>+~'MO~
PNMt /6l·OH·SFZ1 OIXTEIG2&DlPO)X
0 - . ~91H·
I
:RH8912030l'.
T+VWlBIH&EC-A - 1
·
1 0
. ..
£830 OKD89120303 T+VVX -,20 +a FX
0
...
/OH a&D89120304° T+VZSP-A1 F 6)$
I
C IS·-· ..zve9120305'. T+vota-tt"H> · Jua1 ·
·.
............
Bl 0-H <BG A t
E NO
. ..
U84CX94CXCJ-) 5<X C61R 5_) 81PS818
aoHJRoi4Aonz· -0 a&FL-Ut3· 1sxA+BA
9·61-UB.-/lfBOFL
. VH AE< N AN EQ
O;& e_ oua-H
iua&o_F_ · D<aa-H
.
. . . 20 .JOHC30<81 OC NOAQ EU 0-AS EO
. > · EuOIARH&GD*F
.. .
·· D :L 89120324 P& 2Al89120J25
_ · O< · Nllt89l20327
T+VIHPMCIBUCT2<N
L9<P82;C U>tltDC
A,&ET~7tteH-HR<B 1
6&0C7&DC8,DC9&IG 0&10 · 8RM8912CJ06 C\+v,Q;?H8H-BR<B cot?· ,sXA,lET.. IH ea.,_D.,<B&On /5X
Ult?·/5XA·DAEL*B co20· ·.U89120J28
OATE OlJULlS EC ·O. 8ZS023
2SOCT75 825012
1SJAll76 8Z50J4
PROG ID
PAGE
oen-2! ()DATE 07JUL15 90 . EC NO. 825023
'9
250CTT$
825032
1S.JAN76 825034
PROG ID
PA~E
0891-2, 90A
19
···
·
·
·
·
·
·
·
·
·
·
·
·
·
·I'I· !o
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·---· ·- ·- . - ·~"···-··
.
··--·
·-·.. · ·-,·-·· · · · ·· · · · · ·
j l'
I
I I
':
I I
l·Ii
I
! i If
;f I!
\ \
l i
! !
! '
Il .l
I:! I
i I
l,j Il!
1 I
li .I
j:
: ~
i i j
l
.,·,_,'_.[
IBM MAINTENANCE DIAGNOSTIC PROG~AM
8912 DISPLAY ADAPTER TEST OBJECT CARD LISTING
CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64
T+VZL,&ET-IHB&·-
. . . T+V_+ ->8BFL UEX . . T+V>IQ832 ->8AFL
T+'v70 e'?Q A0809Y
. .
T+V?· <EIQ/7 /61
. T+VO:·<HAP.·30H
T+Vl5?1HAPl78 Vl
....·....
T+V20/0
.
T+V3,·<I ~<l a<J
AR<o&O)? /5XA,&E
. .
SOHIROLS OUl UEX
UEXSOHIROE~AQBt
COH·BFZH M AO
sQH·BFZS /OHSE C
.
4 NOt<OJ·;TAIPGO
9( E·NC&BPE. /OH
·············· <G .. a<N i<SAl<LRtFA
T-?H88#-BR<Bt01? Ss&ETSIHBB#-AR<B
.
VXS> /UOIAR6i8 R1H C AVi&YCO-E /OH00-0 <BG OKVl·<O_·-CA<PHH
; ' cs -e··oG
01cv cocoaocoaMC
/5XA,tET/IH8B#-
.
. &01? /5XA,&ETS?H
GO·D4BE?UC ESBLM VDJ4A09Y iYDG4-D
T&HPG-4 NlOO-E OLN2D<D9·/TAIPHT
. .
2-t-.K ,, /51DOH· oaucoa4co·oco·Mc
T+V~W&IGO&IGEtlG
T+V5/94CX9··Hl<I
T+V1 PC KH+H-""M
.
T·V8KIC-8P·. DE·
.
T+V9Ci OCR-A-COO
. T+V:HR-E/>BOAJFF
r:+vtC?OO R-El13T
T+Vi92IHtEt02tYO T+Y'4/1K8B<T UFA T+Vc?QS-. DE·X+ 1
Fl<GTOMA-&+~x&+1
0 'SNHPN8·Hlt8E5 MEAtNZAE&E4<QEAX
. -
48E·/C l~l·HBPlD
. . KOH·8G-OfM5"10H·
tR~l-HOO R~l~Q 0
. .
OQSXZU O< OP·Osa
. ..
AJFf6C IV"6 TC E
.
/ t l-BWOS?C/l~l<C
.
t_a tt:·8iFF80AA
.X&+-.X&+~x,+..Xt+~
/C EJP·HAPOIJOHA 3FX<S8J2MGPD;MJa 4 S·4A<85A ss_,G 86-DtMV·>OH·BG-I
.
/HO R-E17L-ICST
. .
QQ Z-QC3SA-.-< WP
. . V·.-A2<8&Q·C /OH
-.,3-f QST DE·1+IA
X&·~xt+~xt+-.Xt+..
. . HS
S BHAK-HS 2HDtt-" GX CH 10 J-GK lH
.
~9F TOH·BG- h9W
. . . . . . < OP·QU< FQAQSI
2U O< OQ QS4< FO
. . I, :OAZ..E8-<T2UAO
IQF 8HER?aZ Diec o>ecHa1·ii>ACHaz EO-A-ll& ON5/W37 I>· lP . .8C6f90AA
T+Y"D:FQAOHl~?33
0-H
DA TE 07JUL75 EC NO. 825023
250CT75 825032
15JANl6 8Z50:M
PART NO. 4234255
PAGE
91
IBM MAINTENANCE DIAGNOSTIC PROGRAM
8912
(
DISPLAY ADAPTER TEST
OBJECT CARO LISTING
CL 65 THROUGH 80 CL 81 THROUGH 96 ' - CL 1 THROUGH 16
. DR<BtOt? /5XA,tE
BB·-BR<B&OI? /5X
.
. -
T/?H 5EM89120329
T+W VOUCXY6CX94A
·
r-
A,&D KKM89120330 - T+WA-0* IT9<GL&<l
AO·&+ N?UO/D* E> · AO· ;H&89120331 (" T+WBS> LH81 6CA(
c
DOHlS,AOA02MBC V W & 21889120332 T+WCOlMCRl·GD:<G
CL 17 THROUGH 32
tDA tOA &DA &DA
.
A8tJE -.UCX9·-.XO; I -BWD??DEBl<YV·+B
m
T8aGC20_ 51ST&IX
CL 33 THROUGH 48
£.DA &DA &DA &DA TO·IH5<PN84CC2<P GltXN82PR6:LPB4C EO·LYO;ITO·IHK4C
CL 49 THROUGH 64
&FA &<PX52PC8GIP
.
C1ti!05; IRS_C S>I Pl)P021PGO;ITO·I 18UC89+.Y21PT6M_
··I CQO IHGCUHPG-
/OHE-U I UBG · /D
BFYQ6PK,8 t 0-H
. . Xt+~xt+~xt+-.x&+~
Gass asr o-o <B
SASHGH--SBKHHH-1
. . .
8C6F7az <C EW FF
C·
-
4 NO )HY89120333 . T+WDJ2) PGE4Cl8UC
.
c
AlVO NAi89120334 T+WE<9(XA6HCE6)X
,C
.. - r < lRt.89120335
T+WF~_P084CR1+/
OOM ;El89120336 . T+WG8t<GT8ilH&<I
I '
··< 9J889120J37,
·
c:.- · - ·
X&+· )2Q89120338 - T+WH8 FHQ &OIR-E
f')
G 4 <89120339: . T+W 13+0/S91E·QUM
·
. . - I
I (:
SCBH iUY89120340'. T+WH> F.XQ>S /6.
c .
a FD PCY89120341. T+W.ZQ>s /6.YOH·
c
.
W·OM· MAV89120342: T+W<UQ7iiBBF.xaz
I
eee -
I
I
()
IC SDM8912034~
T+wc~OEt<BWl5Q'<
0 - . . AOS48C6F9az ~r. E W FD 0 489120344 T+W+EO·BGQ8 ' F.
.
v·t-tNw·zu &a2FP
'C
SC D OHY89120345 , T+WIN9'-.EO·IE1DA
~ ..
a>e M9189120346 T+Wt&S·N &DA &DA
tCA/-BWD&?DRBllJ ORIL2 ' 9 N·sazA
~_i8GP·aa96QAOHI
0
....
..., .5YQ89120348 T+WKFIM < ARE-
.. i30 81089120349
··········· <BG
2<& ·OHB89120350 () T+WliOH··· <PR6U
PROC 10 PAGE
° 0891-2
,e.91
DATE 07JUL75 Et NO. 825023
N5>1 AS= I AOa/ .&+.. H5>lllDC81MCB9+..
06)LIO)V 21PC6·P MllPT£.<PR6)SR91P
/9(Pl84CC4UCOll$
KO>.COHC89+.,&<B
. ..
71 A/>CO QSU< WG
Hl<I 8_PS&<LA8iE
. -
G /OBDFAGI 11 /l<B
. -
/P5t /OHE-- <8
ViAO R-.HAC AVa&v CG AS4-G2/004BF.
t O.WON9SLLIBQ>S A061N+OJS91EtQV4
YOH*8FZ. /6./C&A
.
BG-ES90f ·t AV·FI
. . . tC RT9F IHC NT:WI
. . <AOl·QaG /6+ + J
xa-occ U801Pt (
.
-6·PCl·XVl·J Q(S
·tOA &DA £DA· &DA
.
AZOQ RlJY9-0(R+J
'OHH11HG · /DOOH·
AOHIT-C-AQ>-.2UA
-. .S9"H&O O<~·Z-N 0
W OIPOHH-<BG
P&<LEO'SDlMCDO;I
&DA &DA &.DA &DA
C&E VC6J I OHE US 8ARD 1 06·BGRDS
.
R&ll014CN5U_ 9~A
GFL4/R~2 JY(80M
250CT15 825032
15JAN76 825034
V9C PE9 1 1EO·I El DC
21PC5_XRl·ITO>. GQ/7 /5'VS& F
.
GP6D48f.U( ESSCM
.
UC ES8CO Q>Mi&F I t-F.WOH·BG-ES9WI
. .
BH/t ass OH*BE?C <DDl?OEU<AOl5QaG
-.
HQ·NTO·BGQ8 1 -F.
&DA &o C&HR<P
. .
IRCt< OL?R<-< OL
/OHE-&ZUHBG. ID
.
X9·1-lDA 6)SU87t
PART NO. PAGE
CL 65 THROUGH 80 CL 81 THROUGH 96
O&<LA8aE -.ucx9....
..
06·N O*l.D6MA·'+... HK4CS2lSU4iJ 51$
eiT09lfO&<.Etc ...
.
M2·IR5UCPl'J 2<G .5tSTtlXO:FGU5·X COMCRl+TN5UCl5;C
X&O 3tU89120JSl
. X9=· ;2a&9120352
T&<H JYM89120353
.
E5·t ll-89120354
.
L8a< N3089120355
. .
T&<< NZ 89120356
.
5_M 4JH89120357
. . 7QB< CX9·TY:;U ' FO 6tU89120358
AO>&+ O.UO·Q· F. Y AO 9K889120359
·CBIT=WlllH 1 S91E EQT.ft &Yt89120360
. .
·c AW OI 'I l:AS9...tt ADOO OQ'Y89l::OJ61
. .. o-<HA c /0 /6+ + IS9"H&E-O . xa-DtC /T9W+6C N
( - 1:M89120363
. <Q·Y SSQ89120364
TIF< KK489120365
X8~CW6·XT1MCDO;I
.<M 4KY89l20366
ASIQ lll<89l2036l
/OH; OP2R...-. /OH
. .
~CY< OJIR&4< OJ
.
A8~L9C VVB6LUOH·
. . ; OM ·Bt89120368
PROa 9Q 89120369
.. - a.=vo 30189120310
GR-H Ola891203ll
X94A l<TA4·(a:+/ &D·· 9H889l203l2
PROG ID PA6E
0891-2 91At
0
IBM MAINTENANCE DIAGNOSTIC PtlOGRAM
PART NO. 42Jlt255
PAGE
92
8912 DISPLAY ADAPTER TEST
OBJECT CARD LISTING
CL l THROUGH 16 CL 17 THROUGH J2 CL 33 THROUGH 4B CL 49 THROUGH 6lt C~ 65 THROUGH 80 CL 81 TitROUGH 96
I
T+WM1£11.0ll1Z:;x T+WMZQMSV?OE-R·t
z:;xz:;XZRl_U9F6 /IWPJQP9Y66FlR;N
SRNV-/6NTQDIYSOC /WWFEO;fTt+.NOut
8RPl-S60AQ+EVS6t Rl<XN8 1 V 51 PDlDC
. . lRRM9ZWO-.C-EvOOD
A8·C oaTK&OA O;I
·~S< M3t89120373 Tl<H 1J8891Z0374
T+W0_9+.Yt0CA8·1 ·SOGRl+/ ZIPTt+. 8~C ....l<GT84CSOUC B8>TX94Cl5;1R&DA 5_1 l<PCCDA t+L Nl;· 69·89120375
T+WPY54Cl5;C 51V 19<1 £DA CCPRQ;l C&CSFlUCHl<I e_P S&lPGO>.COCCRl*G o:<GCQIPOQ<XN84' l&D 9J0891203l6
T+WOTlDl &OA &O
0
'DA goA &DA &<BGR<. /44 l87TOa<SOilCOOIL a1~coa~so10CM6·P oat l$S891203ll
. T+WR;l~G6Q<IA9+1 tS_N QDCl5·I061X EO·C 9<lTt<GNlFG 06MCHOIXD9SGR1MC F5_V 5CSD1JI auc S9C· LA 89120378
........... ..·.·.··........ ...·.·.........
TE6R65 1 SR84CCOIN OaGU8SN 82Tl8UC HOllT
.....·..·
·....··.·.......
.......ae-89120379
.
·
SEC TION 891
SYS /3 DISPLAY ADAPT ER TEST
...·... ................ ................ ................ ................
...... ........ - * SSW 10 ON PklN TS HOB'S IN ROUT INE O~ AND 05
....·.·.·...··..
.. ...... ........ ..·...·.·.......
···...·... ....·....
89120380
89120381
89120382----- ··---·-----
* SSW 12 OM PRIN TS CONTROL STORA GE IN ROUTINE 07
......·...·..... ........89120381
· SSW 17 ON 8VPA SSES CONTROL STO RE LOAD FOR A Tl GHT LOOP NHILE
. ...... ........ ...........
..........·..... ................
*
LOOP IM6 ROUTINES.
...... ........ .·.···.·......·.
·
.·....··.
·
......·..
89120384 89120385
· SSW lt ON CAUS
· MANUAL SELECTI
······ ·
ROUTINE 4
ES ROUTINE 24 TO ON ROUTINES-
. 1 - c.E. MANUAL
BE SKIPPEO.
~-··············
MICROPROGRAM
............·... ..·.·...·.·.....
....·....·.··
.·.·.·.·.·.····.··......·...··.. ......· ····.....
89120386
........ ........89120387: ........89120388
·
...... ........ ROUTINE 4 2 - c.e. TEST 80 x CHECK OUT ROUT INE .·....·...
· .........
e91203a9
·
ROUTINE 4 3 HD& AND CONT ROl STORE DUMP U TILITY
·
89120390
·---~-------. -
...... ........ · WARNING - THIS SECTION DESTROY S THE MICROCODE REQUIRED FOR SYS TEM ·
...·.........··
.·.......
89120391
OPER ATION. RUH SECTI ON 893 TO RElOAO
. ·
.....·.··
89120392
...... .
................ ................ ················ ················ ·······
.......
89120393
··111,FI
C
ASC R A SO Q
09510608UO 115761· 89120394
· - - - - · - - - - · - - - - - - - - - LAST PAGE - - - - - - - - - - - - · - - - - - - - -
-·
j
DATE OlJUUS EC NO. 825023
zsocns
825032
15.IAN76 82503"
PROG ID PAGE
0891-2 92
· · · · · · · · · · · · · · · · · · · · · · · ·--·-··· · · · · · · ·.J · ·t
-.---.
--·
·
·
·
·
·
·
·
·
·
·
· ·! ~. . J ..
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
IBM MAINTENANCE DIAGNOSTIC PROGRAM
- . -..... " ,_ "' . ,.. -..., ~ ~.
I
8930 FC7 MICRO-CODE LOADER PROGRAM
ERR LOC OBJECT CODE
ADDR STMT SOURCc STATEMENT
PART NOe PAGE
42342571 1 ' ()1BM MAINTENANCE DIAGNOSTIC PROGRAM FC7 MICRO-COD~ LOADER PROGRAM
PART NOe PAGE
423418?
1A
0000
, ......
OAOO OAOO 8930 OA02 00 0A03 01 OA04 0000 0A06 2005 0A08 FFFF OAOA 890000 OAl)O Cl 1000
· ..-..'
DATE
26.JUN?S
EC NOe 825023
OAOl OA02 0A03 OA05 0A07 0A09 OAOC OAOF
0058 0059 0050 005F 0048 0088 0058 0059 0058 0058
2 3
· 88930 5
DECK 4 SEO 0
START o
TREP
1e8 I
ERR LOC OBJECT CODE
1.
ADDA STMT SOIJRCE STATE~NT
4309 ·*··e·········*··························································
···----------------····*·········· 76 *·········*·····3·2·C·A··*UT·I·L·IT·Y··P*RO*GR*A*M*F*OR*L·O·A·D··IN··G··M··IC·R·O··P·R·O·G·R·A··M···············*,' ·
98 ***
************** ................... ,
·I ·. 10 ****** SECTION PREFACE *****$************$*****************************!
11
ORG Y.·Aoo·
12
oc
>CL2 9 8930·
13
DC
XLt·o·
SECTION ID
14
DC
15
DC
16
DC
17
DC
18 UOT 1 DC
19 UDT2 DC
XLl'Ol 1 XL2·oe
AL2(RTNC1) XL2 1 FFFF 1
XL3 1 890000' XL3 1 C11000 1
CURRENT ROUTINE NUMBER RESERVED
ADDRESS OF FIRST ROUTINE RESERVED UDT ENTRY
le
I 10
20
21
22
23 24
0
25
26
27
28 NOTRDY EQU 29 INTPND EQU
30 ATTCHK EQU
3t eusv eou
32 HOBO EQU 33 HDBCB EQU 34 CPSTOR EQU 35 OPOEC EQU 36 NSOAq EQU 37 SIOI EOU
x·se·
X1 59·
x·so·
x·sF·
X'481
x·a9· x·5a·
)( 1 59 1
x·5B·
x ·se·
TYO NOT READY TIO INT PENDING TIO ATTCH CHECK TIO ATTCH BUSY LIOl'SNS HOB
SEhSE AUX HOB'S LIOl'SNS CONTROL STORE LIO/SNS OP DECODE
LIOl'SNS MS CATA ADDA REG SIO IMMEDIATE
,.0 0
2000
2000 2868 2002 C6C3F7
200!5 01 2006 00 2007 FFFF
I
2009 3C 20 2129
2001
~004
2005 2006 2008
* ·l
42
* *
43
·· · 45 ·
USES DA PROGRAM
L ro INSTRUCTION
AT AOORESS 0 IN
TO DA
LOAD CORE ATTACHMENT
WCIOTNHTROOBL.IESCTTOR~
OBJECT PROGRAM INPUT FROM CARDS OR DISK
AT eNo OF LOADING " DUMP rs DONE FOR VERIFICATION.
· · ;-; ·
· ·
47 46 ·······································································
* 498 ·············R·O··U·T·IN·E··I··-··M·I·C·R·O·P·R·O·G·R·A·M··L·O·A·D·E·R···························$·
5s1o ·········································································
53
5642
······································································· ORG X1 2000 1
55 ·
56 · 57 ·
THIS PROGRAM DCP MAY LINK
MUST AND
BEGIN AT LOCATION
ee RETURNED TO FROM
XT·H20IS00P· AOSOG~~T~HAT
58 · 59 ·
BEFORE THE 1 HA 1 HALT IS GfYEN WHICH SIGNIFIES THAT DCP HAS LOADED SUCCESSFULLY.
60 ·
THE FOLLOWING FIVE BYTES ARE A COMMUNICATIONS AREA USED TO
61 ·
INFORM FGM rc1 OF THE NICRO-NAP LOCATION AND THE DECK ID.
62
DO NOT CHANGE THE LOCATION OF THESE BYTES
63 ANICRO DC 64 XkFC7 DC 65
AL21TABLE+25S) CLJ·FC7 1
STARTING ADDR OF MICRO-CODE FOR FCI DATA DECK ID TO 8E USED
66 · 67
ROUTINE PREFACE
68 RTNOl DC
69
DC
70 XFFFF !)C.
71
XLt·Ol 1 >eLt·oo· XL2·FFFF·
ROUTINE I LAST ROUTINE
732 74
**····FB·IY·RT·SE·TS··R·EA·D··M·~IC·R·O·C·O·D·E··CA·R·D··I·M·A·G·E·S··A·N·O·C·O·V·E·R·T··F·R·O·N··4··B·Y·T·E·S·T·O··3······*······--------~~~~~~~~
IO i
'I o
lo
0
0
2000 OD 01 3C5A 2642 2013 CO 01 3C41
2017 30 FF 3CDC 2018 F2 81 34 201E 3C FF 3CDC 2022 38 01 0200 2026 38 01 0200 202A F2 90 10 2020 OC 01 3C5A lFF5 2033 OC 01 2128 lFEF 2039 3C 30 2129
2017
765 ·······N··Y·t ···O·U··IC·K·-·2·e>·C·1·2·0················································
77
CLC BLOD+lC2>eLINKA
78 79 START
80 81
8NE EQU
CLI JE
*LINKK
SWITCH1>e·FF· BYPASS
WAS A SYSTEM RESET PERFORMED
·WHILE DCP WAS IPLING7
FIRST PASS?
82
NVI SWITCHeX·FF·
83
TBN S8YTE5eSSW2F
84
SBF S8VTE5eSSW2F
85
JF
NORN
BYPASS AFTER FIRST PASS SHOULD THE RETURN BE TO OCP?
86 87 88 89 ·
MVC 8LOD+3(2)eX'lFF5· MVC OUICKC2)eX'lFEF· MVI 0UICK-2eX 1 30 1
NO--SECTION WAS LOADED NORM-LLY USE THE ADDRESS AT IFFS AS THE USE ADDRESS TO LOAD MICRO FROM
1I e
lo
!
lo
I
I
10
I
I
i 6)
2030 CO 8! 021A 2041 06
2042 lC 2043 395F
2045 39 co 0208 2049 F2 90 06 204C co 87 0222 2050 89A3
20~1
2042 2044
2051
90 · 91 · 92 · 93 · 94 · 95 · 96 hORN 97
98 99 100 IOI 102 103 104
RETURN POINT TO DCP NOTE THAT IF THE IPL HAS BEEN DONE FROM THE 3340·
THE 'B LOAD· WILL HAVE AS ITS PARAMETER
AN ADDRESS POINTING TO DIRECT LOAD OF THE FCX
DTHEECKC. CHHTRH~SREAQDUDIRREEDSSFOISR
THE
PJCKEO UP AT 1 lFEF - IFFF· (SETUP BY DCPt
a
DC DC DC
TBF
JF
8 DC
PAINT XL1'06· ILi 1 281 AL2(MSGLD)
sevTEo.sswoo+sswo1 BYPASS HALT XL2 189A31
P~INT ONLY ON FIRST PASS
BYPASS HALT IS LOOPING
* HALT A3····················· IF SSW04 IS OH
PROG ID PAGI!
I
10
20 !2 3C 00 3888
I 0893-ol
DATE
26.Jt.JN?S
l QEC NO. 825023
2052 105 BYPASS EOU
106
NVI
·
M1coo.x·oo·
CLEAR BUFFER FOR MICROCODE
I
I·
PROG ID PAGE
0893-0 I A
'·I ..
... --- -· .. ' ~
. ... .. ...,,, ,_ ~......
!BM MAINTENANCE DIAGNOSTIC PROGRAM
-------
8930 FC7
42342=71 PART NO.
PAGE
()IBM M·INTENANCE DIAGNOSTIC ............
PART '«le PAGI!'.
ERA LDC OBJECT CODE
2056 oc 27 388? 3888
205C C2 01 3867 2060 3C 10 2lH 2064 SC FF 00 01 2068 36 01 2118 206C OF 00 2ll4 2113
2072 co 01 2064 2076 co 87 0212
207A 38 80 02 OA 207E F2 10 07 2081 3C 02 2640 2085 F2 87 32 2088 CO 87 021A 208C 03 2080 22 208E 38FC
ADDR STNT SOURCE STATEMENT
208C 208D 208F
107 108 109 110 CLEAR 111 112
113 114 ACT2 115 116 117
118 119 114SGG 120 121 122
NYC LA NYI MYC A
SLC
BNZ
e
TBN JT MVI
J
B DC DC DC
MICOD-1.NICOD(40J NICDD2-.l · XRl COUND.16
0(256.XRl,.lC.XRl) NG256.XR1 COUND.ONO CLEAR TEST SBVTE2eSSW10
MSGG
TERP.x·o2· SETUI PRINT
XLl 1 0:S· lLl834· AL2COPR1)
THIS CLEAR Cl.EARS THE BUFFER OF MICORDE REGION ANO ONE BYTE RIGHT BEFORE THE MICROCODE OR THE LAST BYTE OF THE UNUSED REGION
SENSE SWITCH 10 IS NOT ON
THEN OPTION 2 IS USED
OPERATOR PRINT
I ()8930
MICRO-COO£ LOADER PROCRAN
1:I ERR LOC 08.JECT CODE
lI o
I
io
!
ro
0
20FF 2769 2101 FFFF 2103 FFFD 2105 0200 2107 0100 2109 3888 2109 0000 2100 0000
ADOR ~TMT SOURCE STATEMl!NT
20FF 20FF 20FF
2100 2102 2104 2106 2108 2lOA 210C 210E
1?5
USING STAT.XRI
176
USING STAT.XRI
177 STAT eou ·
1789 *·~·····C·O·N··ST·A·N·T···*······················································
1eo 118812
B·· U··FA·O····DC·····A··L·2·(T·A·B·~L·E·t ··········································$·····'
183 NEG! DC
XL2·FFFF·
184 NEG! OC
XL2 9 FFPD·
185 D255 OC
IL2·St2·
186 0256 DC
IL2 9 256·
187 BUFEC DC 188 WORK OC 189 LPTR OC
AL2CNICOD) XL2'0' XL2·0t
2090 CO 87 021A 2094 \)2 2095 47 2096 3943
2098 CO 87 02U 209C 01
2090 35 209E 3994
20AO CO 87 021A
20A' 01 20AS 26 2t'A6 39BA
-
20A8 CO 87 021A 20AC 07
20AO 27
20AE 39Et
2080 co 87 0222
2084 89FO
2066 30 00 2640
208A 30 FO 0232 20BE F2 81 OE 20C1 30 51 0232 20C5 F2 81 07 20C8 30 F2 0232 20CC F2 01 11
20CF CO 87 021.11. 2003 07 2004 57 2005 3A3S 2007 co 87 0222 2008 89Fl
2000 F2 87 30
20EO 38 80 0233 2CS:4 F2 10 36 20E7 C2 01 0232 20EB 70 AO 00 20EE F2 81 2C
20F1 CO 87 021A 20F5 C6 20F6 38 20F7 2686
20F9 1502 20FB CO 87 3C41
2094 2095 2097
209C 209D 209F
2CIA4 20A5
20~7
20AC 20AD 20AF
2085 21'BA
2003 2C'I04 2006 200C 20EO
20F5 20F6 20F8 20FA
123 124 125 126 127 1213 129 130 131 132 133 134 1 ~ .. 136 137 138 139 140 141 142
143
144
145 146 147 SETUl 148
149 150 151 152
153 154 155 PFFX 156 157
158 !59 160
161 162 OICKL 163 164 165 166
167 168 169
170 171 172 173 174
B DC DC DC
B DC DC DC
B
DC DC DC
B
DC DC DC
e
DC SNS EQU CLt .IE CL! .JE
CL~
.JNE
B
DC DC DC
~
DC .J EOU TBN JT LA CU'. .JE
B
DC DC DC DC B
PRINT XLl·02 1 1Ll 1 71 1 AL2(0PR2)
OPERATOR PRINT
PRINT
XLI ·o 1'
ILt·531
AL2(0PR3)
OPERATOR PRINT
PRiNT XL t ·Ot · IL1·38 1 AL2(0PR4J
OPERATOR PRINT
PRINT XL1 1 07· IL1 9 391 AL2(0PR5)
OPERATOR PRINT
HALT
XL2·89FO·
TERPex·oo·
*UTAB.x·Fo·
PFFX UTAe.x·s10 PFFX UTAB.X 1 F2 1 O!CKL
FO HALT SENSE DATA SWITCHES
SHOULD MFCU BE USED AS THE LOADER?
SHOULD 1442 BE USED AS THE LOADER? SHOULD 2560 BE USED AS THE LOADER?
PRINT XLl"07 1 tL1'87· AL2(0PR6) HALT XL2'69Fl' SETUP
OPERATOR PRINT TO SURE THE DECK FC7 JS tN THE PRi HOPPER
HALT TO C~ECK PROGRAM iN HOPPER
UTAS+t.x·eo· SETUP UTAS1XRt
iH oXR1) oX 1 AO· SETUP
CHECK FOR DIRECT ACCESS DEVICE IS IT A 5444?
PRINT XL1 1 C6· IL1'56G AL2(ERR6) XL2 1 !502· LINKK
ERROR PRINT
0 0 0
0
io
0 0 0
0
0
0 0
210F FOFOFOFl
'.'" : 3 01 2114 08 2115 2788 2117 FFOO
2H 9 40404040
2110 C2 02 20FF 2121 C2 01 20FF 2125 CO 87 022A 2129 20 212A DFCT 212C OC 00 3AA9 08D6 2132 F2 97 11
2133 CO 87 022A 2139 10 213A C2 <'l 0880 2l3E 40 03 SF 2t1C 2143 F2 01 A7
2146 C2 01 0880
214A 40 02 SA 2004 2l4F F2 01 C3 2152 1C 03 211C 5F 2157 06 03 2l!C 2112
2150 70 cs 00
2160 F2 81 C6 2163 70 E3 00 2166 CO Ol 2135 216A 70 00 01 2160 F2 01 03 2170 7C 2A CH 2173 02 01 01 2176 34 Ot 210C 217A 3D 08 210C 217E CO 04 216A 2182 C2 01 06D8 2166 C2 02 0808 218A 3C 00 2195 218E OC 00 2199 2195 2194 AE 00 00 00 2198 AE 00 00 00 219C OE 00 2195 308E 21A2 30 04 2195 21A6 CO 82 2t8E 21AA 36 02 2102 LlAE 6C 02 00 00 2182 36 01 2104 2186 36 02 2104
2112 2113 2114 2116 2118 21iC 2110
2129 2128
2135 2139
2146 214A
190 ONDE DC
191 ONO
DC
192 COUND DC
193 OP32 DC
194 NG256 DC
195 SEO
DC
196 SETUP EQU
197 CLFL~G LA
198
LA
199
B
200
DC
201 QUICK OC
202
MVC
203
J
204 LOACC EQU
205
B
206
DC
207
LA
208
CLC
209
JNE
210 COMM EOU
211
LA
212 NREP eou
213
214 215
CLC
.JNE
216
MVC
217
A.Z
218
CLI
219
.IE
220
CLI
221
BNE
222 LOOP2 223 224
CL!
.JNE
MVI
225
LA
226
ST
227
CL!
228
BNH
229
LA
230
LA
231 LENG~H MVI
232 CMLOOP MVC
233 Sl
ALC
234 S2
ALC
235
ALC
236
CLI
237
BL
238
A
239
MYC
240
A
241
A
DL4·tt IL1'1' ILt·e· AL2(0PREGt IL2'-2S6·
4*CL1· ·
STATeXR2
STATeX~l LOAD
XL1'20· XL2 1 0FC7· LEVEL(l)e!NPUT+91
C*ONN
LOAD XL1·1oe INPUT.XRl 95{41XRl)·SEQ
*CHl<SEQ
INPUT.XRl
·
9 CC 3· XRU · Xl<FC7 CHKFCB SE0e95(4.XR11 SEQ(4J.ONOE(4)
o<,,xRtJ.c·e·
CARO IN 0(eXR1)aC 1 T·
LC!ADC
t(,,XRlieX·oo·
·+6 1(oXR1)aX02A' l(eXRt),.JCR! WORKeXRI
WORK.x·os·
LCOP2 I NPUT+88 · XRl INPUT+88.XR2 s1+1 .. o S2+1(1J.S1+1
O(·-$eXR2le0(,~2)
0(·-·eXR2)e0CoXR2i S 1+1 Cl ) .ONET S!+le4 CMLOOP NEGl,ICR2 0(3.XIH hO( ~XR2) NEG3sXRl NEG3eXR2
LOAD FC7 FIRST CARD
SAYE THE ~ICRO LEVEL LOAD NEXT CARO
COMPARE CARO SEQUENCE
CHECK CARD 10
10 DOES NOT MATCH STORE PRESENT SEQ ADD SEO BY 1 CHECK IT IS A END CARD ALL OATA CARO ARE IN CHECK Ii IS A TEXT CARO NOT T CARO THEN GO TO NEXT CARO REPLACE x·oo· BY x·zA·
INITIALIZ~ POINTERS TO THE CARD
SET COUNTER SHIFT OFF HIGH ORDER T~O BITS ADO BVTE TO ITScLF INCRESE COUNTER BY l COUNTER IS 4 THEN DONE
DATE
26.JUN75
2!BA 34 01 210C
0
242
ST
WORK .xnt
EC NO. 825023
PROG ID PAGE
0893-0
DATE
26.JUN75
2 ()EC NO. 825023
PROG 10
0893-G
PAGE
2A
· · · · · · · · · · · · · · · · ····· · · · · · · · · · · · · · ·
·
·
·
·-· · · · · · · · · · · · · · · · · · · · · · · · · · · ·
?eM MAINTE~ANCE DIAGNOSTIC sit:lOGRAM
8930 FC7 MICRO-CODE LOADER PROGRAM
ERR LOC OBJECT CODE
ADDR ST~T SOURCE STATEMENT
21BE :!O 96 210C 21C2 CO 84 218A 21C6 C2 01 0880 21CA 4E 01 19 2100
21CF 40 01 19 210A
2104 F2 84 2A
2107 1C 02 21E7 19 210C lC 00 21E8 17 21E1 02 01 tA
2JF-· \C 00 0000 00 ZlE9 CO 87 2135
21Ei::> CO 87 021A 21F1 C6 21F2 31 21F3 2687 21F5 15F2 21F7 CO 87 0222 21FB 89F2 21FD CO 87 2017
2201 CO 87 02lA 2205 C6 ~206 31 22C7 2768 2209 89F3
220B co 87 0222
{20F 89F3 2211 co 87 2017
2215 CO 87 021A 2219 C6 221A 31 2218 26E8 2210 89F4 22lF CO 87 0222 2223 89F4 2225 co 87 2017
2229 C2 02 2608 2220 30 03 2640
2231 CO 81 23FE
2235 30 FF 7000 2239 CO 81 22E9 2230 CO 87 021A 2241 02 2242 20 2243 4El8 2245 co 87 021., 2249 01 224A 09 2248 4E21 2240 C2 01 6FFE 2251 02 01 02 2254 lC 01 263E 01 2259 IC 01 210C 01
225E OE 01 263E 263E 2264 C2 02 286A 2268 36 02 263S:
243
CLI WORK,>1. 5 96·
244
BH
LENGTH
245 TEOONE LA
INPUT.XIU
246
ALC 25(2oXRl!eBUFAD
247 ·
246
CLC 2!5( 2eXR1) ,.BUFED
249 ·
250
.JH
251 ·
252
MVC
MCVE+3(3)12~(.XA1)
253
MVC MOVE+4(1)e23(,XAl,
254
LA
26< .xR1 >.x·u
255 ·
256 MOVE NYC ·-·<·-·>··-·CeXRl)
257
B
LQADC
"' 21ED 258 CHKSEQ EOU
259
B
PRINT
21Fl 260
DC
XLl 9 C6 1
21F2 261
DC
ILl'49'
21F4 262
DC
AL2CERA71
21F6 263
DC
XL2 1 l5F2·
264
B
HALT
21FC 265
DC
XL2 1 89F2 1
2201
266
B
267 CHKEND EQU
268
B
START
·
PRINT
2205 269
DC
XLJ 9 C6 1
2206 270
DC
ILi 1 49·
2208 271
DC
AL2(ERAF)
220A 272
DC
XL2·99F3 9
273
B
HALT
2210 274
DC
XL2'89F3'
275
B
2215 276 CHl<FCB EOU
277
B
START
·
PAINT
2219 278
DC
XLI 1 C6 1
221A 279
DC
ILt·,.9·
221C 280
DC
AL2(ERA8)
221E ~Bl
DC
XL2 8 89F4·
282
B
HALT
2224 283
DC
XL2·89F4·
284
B
2229 285 CARDIN EOU
START
*
2600 286
USING ENDADDeXR2
287
LA
ENDADD.XA2
288
CL~ TERP.x·o3·
289 ·
290
BE
SENSE
291
292
CLI PATCH.X·FF'
293
BE ENDAOT
294
B
PRINT
2241 295
DC
XL1'02'
2242 296
DC
IL1 1 32 8
2244 297
DC
AL2CPATCHXI
298
B
PRINT
2249 299
DC
XL1 ·01 ·
224A 300
DC
1L1 ·9·
224C 301
DC
AL2(PATCHHI
302
LA
PATCH-2eXAl
303 INCTOA LA
2(.XRlleXRt
304
MVC TEMPe1(2eXAI:
305
NVC WOAKetC2.XAl)
306
307
ALC TEMP(2teTEMP
308
LA
UNUSD+2eXR2
309
A
TEMP11CA2
310
DATE
26.JUN75
EC NOe 825023
FART NOe PAGE
4234257 ()ISM MAINTENANCE DIAGNOSTIC PROGRAM 3
PART NOe PAGt!
4234297 3A
FCT MICRO-CODE LOADER PROGRAM
ERA LOC OBJECT CODE
ADDR ST~T SOURCE STATEMENT
0 22ec 02 :u 02
311 NEXDAT LA
2(e>CRUeXRI
INCREMENT XAl TO DATA
LOAD CARO !MAGE POINTER ADD BUFFSll LOCATION TO
0
ENO AOORESS OF CARO CODE
COMPARE SUFFER LENGTH TO CARD CODE CORE REQUIREMENT
0
IF BUFFER IS NOT BIG ENOUGH
ERROR
()
INDICATE CAR~ ADDRESS IN CORE
INDICATE LENGTH OF CODE
INDICATE START AD~ESS OF CODE ON THE CARD
0
MOYE CODE TO BUFFER
BRANCH TO READ NEXT CARO SEQUENCE CHECK
0
226F 40 01 Cl 3D8C
2274 co ei 2251
2278 4D 01 01 2008 227D F2 81 SA 2280 39 F8 2108
22!'4 F2 90 3F 22e7 tc 01 263E 01 226C 9C Oi 00 01 2290 co 87 021E
2294 02 2295 210C 2297 4E2! 2299 OE 01 210C 3D8E 229F OD 01 27BA 2ioc
22A5 F2 84 06 ~''8 OC 01 27BA 210C
2294 2296 2298
312
CLC
313
BE
314
CLC
315
.JE
316 NOTSAT TBF
317
.JF
'318
MVC
319
MVC
320
B
321
DC
322
DC
323
DC
324
ALC
325
CLC
326
JH
327
MVC
l ( 2e XRI leALLO INCTOA l (2eXRU .XFFFF EPATCH WORK-I .x·F8· PATCHF' TEMP cl C2.XllU) OC2.XR2J.l(eXRl)
tJNPACK
1Lt·2· AL2(WORllC) AL2 (PPATCH-5) WORKC2>.0NET NINST(2,·WOIU(
NUMIOK NINSTl2J.WORK
IS DATA ALL 0000 (OELIMtTERI IF SO GO TO NEXT ADDRESS rs DATA. FFFF (ENO OF PATCHt JUMP OUT IF SO HI 5 BITS MUST BE ZERO ERROR IF NOT MOVE DAT~ FOR UNf:tACllCING MOVE DATA TO MICRO MAP UNPACK ADORESS FOR PRINTING
ADD I TO ADDRESS IN WORK IS 1T HIGHER THAN NUN INSTRUCTIONS JUMP IF NOT INCREASE NUN.OF INSTRUCTIONS
328
22AE CO 8T 021E
329 NUMIOK B
UNPACK
UNOACI< THE DATA FOR PRINTING
2282 02
2282 330
DC
ILl 1 2'
0
2283 263E 2205 4E2A
22B4 331 2i!B6 332
DC
AL2(TEMP)
DC
AL2(PPATCHI
333
CODE LENGTH CHECK
0
2287 CO 87 021A 228B 01
228C 09
334 2288 335 228C 336
B
PAINT
DC
XLt·oa·
DC
ILi 1 9 1
PAINT ADDA ANO DATA
2280 4E2A
22BE 337
oc
AL2CPPATCHI
338
22BF E2 02 <'2
339
LA 2( 1XR21.XR2
POINT XR2 TO NEXT WOAD IN MAP
0
22C2 CO 87 226C
340
B
NEXDAT
341
GO GET NEXT DATA
22C6 CO t»7 021A
342 PATCHE 8
PAINT
PRINT FORMAT ERROR
DECK ID CHECK
0
22CA C7 22<:8 12
22CC 40F8
22CA 343 22CB 344 22CD 345
DC
XLl ·c7·
DC
ILi ·ta·
DC
AL2(FORNEI
0
22CE 89EC 2200 co 87 0222
22CF 346 347
DC XL2·89EC·
B
HALT
2204 89EC
22D!i 348
DC
0
2206 CO 87 3C4l
349
B
350
GO ENO
ALL CARD ARE READ IN
22DA CO 87 3D15
0
220E OC 03 27BE 3085 22E4 CO 87 021A
351 EPATCH 8
352
MVC
353
B
GENSUM CHKSUMC4lePAR+3 PRINT
GO GENERATE A CHECK SUM MOVE IT INTO MICRO MAP
SPACE 6
BUFFER
SEE IF OPTION 3 SELECTED CSENSE AND DUMP MC CORE)
0
,o
22E8 16 22E9 OC 01 264C 264E
22E8 22E9
354
DC
XL1·16·
* * 355 ·······································································
356
CHECK NUMBER OF INSTRUCTIONS OF MICRO-CODE WITH THE AVAILA6LE CORE
357 ·······································································
358 ENDAOT EOU ·
SAVE START ADDRESS OF CODE
359
MVC ENTTeAOMICD
IN BUFFER
ANV PATCHING TO 8E DONE? BRANCH 1r NOT PRINT HEADING FOR PATCH
PRINT HEADING
POINT XR1 AHEAD OF PATCH POINT XAl TO ADDRESS GET PATCH ADDRESS SAVE PATCH ADDR IN WOAk SPACE
!o l' o
t
I
io
!
,o!O
!
I
22EF OE 01 264C 2106 22F5 OC 01 210C 2644 22FB 00 01 278A 210C 2301 F2 04 3F 2304 OE 01 264C 2106 230A OE 01 210C 2644 2310 30 09 2109 2314 CO 82 22FB
2318 OC 01 233E 264C 231E CO 87 021A 2322 C6 2323 4F 2324 2T37 2326 89EI
2318
2322 2323 2325 2327
360
ALC
361
NYC
362 LOOP CLC
363
.JNH
364
ALC
365
ALC
366
CLI
367
BL
368 NOCO~E EQU
369
NYC
370
B
37!
DC
372
DC
373
OC
374
DC
ENTTeD255(2) WOAK(2)eX0100 NINST(2)·WORK ACT ENTTe0255(2) WOAK<2).X0100 WORK-1.x·o9·
*LOOP
ENTAB(2) ·ENTT PAINT
XL1'C6· lt.t ·79·
A~2CERA9) XL2·8~E··
ADO 256 BVTES INITIALIZE WORK TO 256 TEST FOR ENO
!NCREASE ADDRESS COUNT BY I BMT ADD 256 TO WO<lK TEST FOR ENOUGH CORE OKAY UNTIL WE REACH 9
CORE IN NOT AVAILABl.E
MOVE END cone ADDRESS TO DUMP
PAINT NO CORE MESSAGE
CONVERT AODR TO BVTE Ol~LACEMENT POINT XA2 TO Ml~O MAP ADO DISPLACEMENT
.!I o·
I
i8
2328 CO BT 0222 232C 89Et 2321! BC 00 38 2331 BD Oiit 38
375 232D 376
377 378
8
H"'-T
DC XL2·e9e1·
SNS TERPCeXR21.x·oo·
CLI TERP(.XA2t.x·04·
El HALT SENSE OATA S·ITCHES SEE IF OPTION 4 SELECTED DUMP
PROG 10 PACI!
gee 0893-c!
3 l
OAT~
26'.IUN75
NO. 829023
PAOG ID PAGE
0893"~
3A
:I ·
l·
·
·
·
8930 FC7 MICRO-CODE LOADER PROGRAM
PART N01 PAGE
CtaM 42342:?
MAINTENANC! DIAGNOSTIC PIROGRAM
FCT MICRO-CODF LOADER PROGRAM
PART NOe PAGE
·· 4234297
ERR LDC OBJECT CODE
2334 F2 01 08
2337 co 87 38'1"9
2338 2764) 2330 0000
233F CO 8'1" 3C41
2343 C2 01 277A 2347 C2 02 2608
2348 F3 58 80
234E 71 59 00 2351 64 01 36 2354 02 01 02 2357 BO 01 36 2116 2~5C CO 82 234E
23~0 OC 01 3CE8 3CE2 2366 3C 00 3CEB 236A 3C 48 23'1"3 236E 3C 48 3CA4 2372 31 48 3C07 2376 Cl 50 2628 237A CO 87 3C9F 237E OE 00 2373 3ClC 2384 30 50 2373 2388 co 01 2372 238C 30 FF 3CEB 2390 F2 81 14 2393 3C FF 3CEB 2397 F3 58 80 239A F3 58 CC 2390 OC 01 3CE8 3CEO 23A3 CO 67 2364
23A7 F3 58 eo
23AA 31 BC 3C07 23AE OC 01 3CEB 3CE4
2384 3C ea 3CA4
2388 CO 87 3C9F 23BC 30 90 3CA4 23CO CO 01 23013 23C4 31> 00 3CE8 23C8 F2 81 14 23C8 3C 00 3CEB 23CF OC 01 3CE8 3CE6 2305 F"3 58 80 2308 F3 58 CO
2308 co 87 2384
23DF F3 58 80 23E2 F3 58 CO
23E5 C2 01 2 86A
23E9 71 58 00 23EC Cl 50 2628 23FO 84 01 36 23F3 02 01 02 23F6 AO 01 36 44 23FA CO 82 23E9
23FE 3C 00 4t>BC
2402 oc 27 40139 4lJaC
2408 C2 Cil 4094
DATE
26JUN7S
EC NOe 825023
AO~ STMT SOURCE STATEM!NT
ERR LOC OBJECT CODE
233C 233E 233F
23·3
379 380 381 382 ENTAB 383 OUTGO 384 385 ACT 386 387 388
.INE
a
DC
DC EQU a EQU
LA
LA
OUTGO DUMP AL2CTABLE) xL2·0000·
·*LINKK
ECSF>C+2.XR1 ENDAOD.XR2
LOAD ADDRESS 0¥ OP-CODE TABLE
0
240C 3C 10 2114
2410 SC FF 00 01
0
2414 36 01 2118 2418 OF 00 2114 21 t:!I
241E co 01 2410
0
2422 oc 01 31'88 27BA 2428 oc 01 264C 3088
242E F3 58 80
0
2431 F3 58 co
23A7
389
SIO x·eo· .s101
3':10
DISABLE
391 LOOPOP LIO OC1XRll.OJ'OEC
LOAD OP-CODE
392
ST
TEMP(eXR2)elCRl
STORE XRl
393
LA
2CeXRt ).XRt
BUMP ADDRESS
394 395 396 ·
CLC TEMP(eXR2)oOP32(2)
BL
LOOPOP
·ENO OF OP CODE
?
397 398
* *
INITIALIZE HOB'S TO ZERO
399
~00
401 002
MVC WORK2 (2) eCOUNTI
MVI SECSW .x·oo·
MVI LIOl+t ·HOBO
SETUP
FOR !ST PASS
0 I
10 I
IO I
lo
2434 C2 02 3096
2438 eo 58 oo
2436 Cl SD 2628 243F OF 01 3088 308E
2445 co 81 2450
2449 E2 02 02 1?44C CO 87 2438
2450 F3 58 80 2453 30 03 2640
?.457 co 81 24 73
245B CO 87 3DlC
402 403 LIOl 404 405 406 407 408 409 410 4ll 412 413 414 415 416 DOONE 417
~18
419 420 .EMUL
421 AGAIN 422
423 424 425
426 427
428
429
430 431
MVI
LIO TIO
B
ALC CLI BNE CLI
JIE MVI
SIO SIO MVC
B
EQU StO LIO MVC MVI
B
CLI BNE CL t JE
MVt
MVC sto SIO
R
SNSl+l eHDBO. OZEROeHDBO AOC HK 9 ATTCHK SNSOEC l.101+1 ( l hONED L101+1.x·so· LIOt
secsw~x·FF·
DO ONE secsw.x·FF·
x·eo·~srot
x·co·.stot WORK2(2),COUHT2 002
x* ·ao·.stot
ozeRo.x·ec·
WORK2(2hCOUNT3
SNSl+l oHDBOf! SNSDEC
SNS1+1eX 1 90' AGAIN secs,_,.o P.ATCHR sEcsw~ o
WO~K2(2)eCOUNT4
x·so· oSIOI
x·co·.stot
E~UL
ATTACHMENT CHECK? CHECK FOR ZERO IN BOTH BUFFl!RS
CHEU FOR END OF LIST
HAS SECOND PAS'S BEEN C0'4PLE'. TEO?
DISABLE ENABLE
COMPLETE LOADING HD8 5 S
= DISABLE
FORCE CAR
0000
SET UP TO SENSE AUX HOB 8 5 SENSE HOe·s DONE YET? LOOP IF NOT SECOND PASS?
DONE IF SO SET FOR SECOND PASS
DISABLE ENABLE GO DO ScCONO PASS
0
lo
10
l'oo
0
0 0 0
0
245F OD 03 3085 27BE 2465 CO 81 25ES
2469 co 87 02 lA
2460 C7 246: tl 246F 38C9 2471 8901
2473 Co.. 01 3095 2477 34 01 3C18 2478 34 01 3C1A 247F OF 01 3ClA 3C1C 2485 OE 01 3C1A 27BA 2488 OE 01 3C1A 27BA 2491 OC 01 3COB 3C07 2497 C2 01 2869 2498 34 01 3Cl4 249F 34 01 3Ct6 24A3 OF 01 3Cl6 3CtC 24A9 OE 01 3C16 27BA 24AF OE 01 3C16 278A 2485 CO 87 021A 2409 02 24BA 58 2488 3810 2480 OC 01 3C20 3Cl6 24C3 OF 01 3C20 3C14 24C9 OC 57 3875 3876 24CF CO 87 021E
432 PATCHR SIO
433 434
SIO
xeeo·.stOI x·co·.s101
DISABLE ENABLE
2403 02
0
2404 3C08 2406 3822
435 LOAT 436 · 437 LUOP1 438
439
440
441 442 44.J
LA
LIO TIO ST LA CLC BL
UNUSD+2eXRl
LOAD BEGINNING
O(oXRt).CPSTOR
ADC~KoATTCHK
ADDRESS OF PROGRAM LOAD CONTROL STORAGE CHECK FOR ATTACHMENT CHECK
TEMP(oXR2l.XR!
STORE XRl
2(oXRt).XRl
BUMP ADDRESS
TEMP(.XR2)oENTTC2.XR2) ENO OF BMT
?
LOOP!
RELOOP
c
2408 OE 01 3COB 3C09 240E 00 01 3C20 3C1E 241"4. F2 84 82
24E7 OC 00 2550 3C20
0
24F.D OC 01 2552 3C16 24F3 OE 00 2550 3CtC
24F9 CC 00 2559 2550
0
24~F OC 01 2558 3C1A 2505 OC 00 2514 3C2C
EWl/iiLT+39~x·oo·
:~i..T+38 e ENl'4L T+39 ~ 40 l W~T-lsXRl
CLE~R BUFFFQ FOR MICROCODE
2508 35 01 2552 250F 35 02 2558 2513 60 00 00 00
e
2517 F2 81 04
PROG ID
0893-o! DAT~ 26~UN75
PAGE
4 ; (jEC NOe 825023
I
AODR STMT SOURCE STATEMENT
2450
2460 246E
2470
2472
2489 24BA 24BC
2403 2405 2407
447
MYI
448 CLEAN MVC
449
A
4!50
SLC
451
BNZ
·!52
MYC
453
MVC
4!54
510
455
SIO
·56
457
LA
458 GETC SNS
459
TIO
·60
SLC
·.:01
ez
462
LA
463
8
464 COMPP EQU
465
SIO
466
CLI
467
BE
468
B
469
470
CLC
471
ee
472 ERRLOO B
473
DC
474
DC
475
DC
476
oc
477
478 SNSPRT LA
479
~'
480
ST
481
SLC
482
ALC
483
ALC
48·
MVC
485
LA
486
ST
487
ST
488
su:
489
ALC
490
ALC
491
B
492
DC
493
DC
<t94
DC
49!:' XOOPO MVC
~96
SLC
497
MVC
498
8
499
oc
500
DC
501
DC
502
ALC
503
Cl.C:
5('!4
JH
505
MVC
506
NVC
507
ALC
506
MVC
509
MVC
5\0
MVC
SU
L
512
l.
513 KCJMPX CLC
514
JE
COUND.16 OC2S6eXRltelC.XAl) NG256eXRI CQUNOeONO CLEAN MCSCC2)eNINST ENTT(2) ·MCSC
x·eo·.s101 x·co·,s101
MLTAC+l.XR2
O(.XR2) ·CPSTOA
ADCHKeATTCHK MCSC( 2 le ONET COM PP 2( eXR2J eXR2
·GETC
x·eo·.s101 TERP.x·o3· SNSPRT SUMCHK
PAR+3( 4) .CHKSUM
PRINTQ
PRINT x1..1·c7· 1L1 1 17 1 AL204CSLOD) x1..2·a901·
MLTAC.XRl
se.x1u
EB.XI<!
Ee~oNED(2)
EBoNINST(2) EBoNINST(2) AOl.hOZEROC2t UNUSD+l .XRl
SAvXRl
EA.XRI
EA.ONE0(2t EA.NINST(2J EA,NINST(2) PRINT
XLl 1 02 1 IL1'68 8 Al.2(0PRTt TEilot.EAC2) TEM,.SA(2t BUFeBUF+li39) UNPACK IL1 8 2· AL2(A00) AL2CBUF-83) Aoo,xoo1oc2> TEMv0000F(2) XVERl6 XOUNT.TE!it(!) XDDR.EA{2) X CUNT v ONEO( 1 l VOUNT · XOUNT U) YODR.EBC2}
KC~PX+i~TEM(l)
XOORsXRi YOORwXR2 0(.XRilo0(*-*·XR2i
XOKX
DISABLE ENABLE
SNS BACK ATTACHMENT CHECK!
OISABLE
GO TEST THE CHECK SUM
ERROR PRINT
MCS LOADING ERROR
PRINT PROGRAM OF SENSEO CODE ST ART ADORE SS
ENDING ADDRESS PRINT PROGRAM PRINT PROGRAM OF READ IN CODE START ADDRESS
ENDING ADDRESS PRINT PROGRAM PRINT HEADING
LENGTH COUNT CLEAR BUFFER
16 CHARACTERS
LENGTH OF CHAR -1 MOVE AODR FO~ UNPACKING LENGTH OF Cl·U.Jq MOVE LENGTH ASSIGN ADDRESS FOR CONVERTING SET LENGTH FOR COMPARING
NO ERR THEN ~UMP TO XOKX
PROG 10 PAGE
0893-0 ·A
l·
·
·
·
·
·
·
·
·
·
·
·
·
·
.
:,le
I
··
·
·
·
·
·
··
·
·
·
·
·
·
··
·-· · · · · · · · · · · · · · · · · · ·-·-·-·j.\______,------·-~-.-·--··- ·.... ·--·-·- · · ....... · · · · · · ·
IBM MAINTENANCE CIAGNOSTtC PROGRAM
8930 FC7 MICRO-CODE LOADER PROGRAM
ERR LOC OBJECT CODE
ADOR STMT SOURCE STATEMENT
251A 3C ee 3873
515
MVI
251E OE 01 3C20 3C1C
S 16 XOK X AL.C:
2524 OC 01 3878 3C20
517
MVC
252A OE 01 3878 3C20
Ste
Al..C
2530 C2 01 3625
519
LA
2534 34 01 2554
520
ST
2538 C2 01 3840.
521
LA
253C 34 01 2550 254~ OE 01 2S54 3B7S
522 523
ST ALC
2546 OE 01 255D 3878
524
ALC
254C CO 87 02lE 2550 00
2551 0000
s2s
e
2550 526 X~UNT DC
2552 527 XODR DC
2553 0000
2554 528 XDDRt DC
2555 CO 67 021E
529
B
2559 00 2ssA eooo 255C OOCO
2559 530 YOUNT DC 25SB 531 VDDR OC 2550 532 YODRt DC
255E CO 87 021A 2562 06 2563 sa 2564 3B75
2566 F2 87 55
533 2562 534 2563 535 2565 536
537
13 DC oc DC J
2569 OE 01 3CJ4 3CIE 256F O~ 01 3C18 3ClE
538 XVER16 ALC
539
ALC
2575 OC 01 25A6 3C14
540
MVC
2578 OC 01 25AF 3C18 2581 OE 01 3C14 3ClC
541 542
MVC ALC
2587 OE 01 3Cl8 3CtC 2580 35 '.>1 25A6 2591 35 02 25AF
543 544 545
ALC L L
2595 60 OF 00 00 2599 F2 81 04
546
CLC
547
JE
259C 3C SB 3873 25AO CO 87 021E 25A4 10
25A5 0000 25A7 3845 25A9 CO 87 021E 25AD 10 25AE 0000 2580 386D
548
MVI
549 XOl<Y 8
25A4 550
DC
25A6 551 XUNPK DC
25A8 552
DC
553
B
2!5AD 554
DC
25AF 555 YUNPK DC
2581 556
DC
2582 co 87 021A 25r;,6 01 25B7 58 2508 3875
25SA CO 87 248D
2586 2587 2589
557
558 559 560 561
B
DC DC DC B
25BE CO 87 021A 25C2 01 25C3 2F
25C4 3A67 25C6 CO 87 021A 25CA 07 25CB 2F 25CC 3A96
25CE CO 87 0222 2502 8QE2
25BE
25C2 25C! 25C!»
25CA 25C8 25CD
25D3
562 XDONE 563 564 565 566 567
568 569 570 571
572
EQU B DC DC DC 8
DC DC DC B
DC
BUF-2ec·so TEM,,ONEOC2) QOUNTeTEM(2) QOUNT.TE"4(2& BUF-80eXRl XODRleXRl BUF-40eXRt YDORt.XRl XOORt.QOUNT(2) YOORl.OOUNT(2)
xLi·oo· xL2·0000· xL2·0000· UHPACIC XLl ·oo· xL2·0000· XL<:: ·oooo · PRINT XL1 1 06 1 ILt·ae· AL2(BUFI XO ONE SA.DOOOF(2 l se.0000F<21 XUNPK1SA(2) YUNPK1SB(2) SA.CNEDC2> se.ONE0(2, XUNFK1XRl YUNPK.XR2 O(.XRl)10(l61XR21 XOKV BUF-..21C·s· UNPACK IL1·16· XL2 1 01jOO· AL2CBUF-481 UNPACK 1Ll·l6· XL2·0000· AL2(8UF-8) PRINT XLl·Ot· IL1·e0· AL2CBUFI
·XOOPD
PRINT XL1 101· IL1 1 47· AL2COPRXI PRINT XLl ·07· IL1 1 47· AL2COPRYI HALT XL2·89E2·
57!
2504 30 00 2640 2'508 30 05 2640 25DC CO 01 2609 25EO 3C 02 2640 25E4 CO 87 2343
574 575 576
577
578
SNS TERP,x·oo·
CLI TERP.x·os·
BNE ENDLOD
MYI TERP,x·o2·
8
ACT
2SE8 30- 02 2640 25EC F2 81 IA
25EF
579
580 PRINTQ CLI
581
JE
582 PRINTX EQU
TERPeX·021
·ENDUJO
DATE
26.JUN75
EC NO. 825023
PART NOe PAGE
19
I
42S42!s57jI ()!BM MAINTENANCE DIAGNOSTIC PROG~AM
I C)St:i30
FC7
PART NOe PAGE
423419?
SA
I ERR LDC OBJECT CODE
GET LENGTH AFTER UNPACKING GET LENGTM AFTER UNPACKING
~ e
I I
c
GET START AOORESS IN BUF GET ADORESS FOR UNPACKED CODE
!I ()
GET START ADDRESS tN BUF OF ~ICRO co1
25EF cc 01 2608 4DE6
25F5 OE 01 2608 264C
25FB 2601 2605 2C07
OE 01
co 87
3095
ocoo
2608 3BT9
264C
ADDA STMT SOURCE STATEM@NT
2606 2608
!583
MVC
584
ALC
585
ALC
586
e
5ts7
DC
588 ENOADD OC
!589
END ADI:>. ADK. TC 2 I ENDADD(2) wENTT ENOAODC2).ENTT DUMP
AL2(NLTACt Xl2 1 000t"I·
MOVE IN BUFFER START AODR~SS
ADO 2 TIMES OF · OF INSTRUCTIONS FOR ENDING ADDRESS FOR DUMP PRINT PROGRAM ST ART ADDRESS
ENDING ADDRESS
AOVANCE OFFSET UNPACK CODE
PRINT BUF ADVANCE ADDRESS TO ENO OF CODE MOVE TO UNPACK AREA POINT TO NEXT STARTING ADDRESS
1'"v'
lo
i IO
le /I o
/o jo
·
2609 CO 87 021A 2600 06 260E 2F 260F 3AC5
2611 39 co 0208 2615 CO 90 3C57
2619 co 87 0222
2610 89A4 261F 38 oe 0200
2623 CO 90 3C57 2627 35 20 IFFF 2628 CO 87 021A 262F 06 2630 It 26!1 380A 2633 co 87 0222 2637 89E3 2639 CO 87 3C41
2609
2600 260E 2610
!590 ENDLO:> EQU
591
B
592
oc
!593
DC.:
594
DC
595
TBF
596
BF
597
B
598
DC
599
TBN
600 ·
·
PRINT Xll 1 06 1
ll.1 '4?· AL2(0PRK)
SBYTE01SSWOO+sswo1 BLOO MALT XL2 1 89A4 1 sevTes.ssw2c
601
BF
602
L
603 ADCHIC 8
262F 604
oc
2630 605
DC
2632 606
DC
607
B
2638 608
oc
609
B
610 ·
BLOD X1 1FFF 1 1PllAA PRINT .<Lt·06· IL1 1 t7· AL2(AOK)
HM..T
XL2 1 89E3· LINKK
611
612 ··············
OPERATOR PRINT MICROCODE LOAD OK
HAIFLTSS*WA044 *IS*·C1·N······················
TEST FOR 893 LOADED BY FC8 MIC~OCODE HAS LOADED
TERMINATE SECTION RETUkN TO PGM FC8 PRINT ATTACHMENT
CHECK
UNPACK COOE
PRINT CODE PRINT OPERATOR MESSAGE
OPERATOR PRINT ERROR HAI.. T · E2 RESET OPTION TO 2 LOAD CORE ONLY '
0
· I
lo
I lg
/o
i,
10
I
0
0
0
,I o
I
10
I
:I o
I
'o
263D 0000 263F 0000
6143 *·······V··A·R·IA·B··LES ******************************************************
263E 615 TEMP DC
~~2·0·
2640 616 TERP DC
XL2 1 0·
617 618
·········11J:····
2641 0216 2643 0100 2645 0200 2647 0300 2649 0400
2642 2644 2646 2648 264A
·············· 619 ·
CONSTANTS ···············································-······
620 LINkA OC
XL2·02l6·
621 XOlOO DC
XL2 1 0tOO·
622 X0200 DC
XL2·0200·
623 X0300 DC
XL2 1 0300·
624 X0400 DC
XL2 1 0400·
2648 0000 2640 2868
625 264C 626 ENTT DC 264E 627 ADMICD DC
xL2·0000· AL2(UNUSD)
264F C5C9E3C8C!SD940C3 267F 2657 ClD9C44009CSClC4
628 629 629
DC
CL49·EITHER CARO READER OR FILE MUST BE USED AS LOADER·
265F C5D940060940C6C9
2667 03C54004E4E2E340 266F C2C540E4E2C~C440
2677 C1E24003D6CtC4C!5
267F 09
2680 40C4C5E5C9C3C5 2686
2687 268F
C3C109C440E2C5D8 E4C505C3C!540C9E2
2687
2697 4006E4E34006C640
269F 0609C4C509404040
26A7 4040404040404040
26AF 4040404040404040
2687 40
2688 C3C109C440C9C~40 26E8 26CO C9E240D506E340C6
26C8 C3F7404040404040
2600 4040404040404040
2608 4040404040404040
629 629 629 629 629
630 ERR6 631 ERR? 631 631 631
631 631 631 632 ERRB 632 632 6!2 632
DC DC
DC
CLO 7 1 DEV ICE· CL49'CARD SEQUENCE IS OUT OF ORDER
Cl..49·CARD ID IS NOT FC7
26EO 4040404040404040 26E8 40
632 632
PROG ID PAGE
0893-01 . DATE
s I gee NO.
1.
26JUN79 82!5023
PROG ID PAGE
0893-0 SA
,1i .·
·
·
·
IeM MAINTENANCE DIAGNOSTIC PROGR·M 8930 FC7 MICRO-CODE LOADat PROGRAM
PART NOa PAGE
ERR LDC OBJECT CODE
ADDR STNT SOURCE STATEMENT
26E9 4040404040C30609 2706 633
oc
26F1 C540C9E24005D6E3
63'!
26F9 4003ClD9C7CE40C5
633
2701 D506E4C7C840
633
2707 E2C5E340C4Cl40E2 2737 634 ERR9 DC
270F E6C9E3C3C840FOF4
634
2717 40E6C903D340C7C9
634
271F E5C540C140C4E4D4
634
2727 07404040404C4040
634
272F 404040404040404~
634
2737 40
634
2738 C5C9E3C8C5D9400S 2768 635 ERqF DC
2740 0640C505C440C3Cl
635
2748 09C4400609400709
635
2750 06C7D9CiD440E306
635
2758 064003D6D5C14~40
635
2760 4040404040404040
2768 ·o·
635 635
CL30 1
CORE IS NOT LARGE ENOUGH ·
CL49 1 SET DA SWITCH 04 WILL GIVE A OU"11P
CL49'EITHER NO END CARD OR PROGRA" TOO LONG
~.
.- '···
PART NOe PAGE
FC7 MICRO-CODE LOADER PROGRAM
·EAR LDC OBJECT CODE
Cl 2769 276A
ADDR STMT SOURCE STATEMENT
63?
· 2?69 638 TABLE EQU
2?69 639
DS
CLt
2770 640 PART· DS
CL?
MAP OF MICROCODE
0 BYTE: RESERVED
I-?
PART NUMBER
27?1 2?72
2771 6·'1 27'?? 642 EC·
OS DS
~!
8 9-14
RESERVED EC NUMBER
2??8
2778 643 ECSFX OS
CLl
15
EC SUFFIX
2779
2788 644 OPREG OS
32XL2
16-79 OP DECODE OATa
0
2789 27BB
27BA 645 NINST OS 27BE 64~CHKSUM OS
XL2 XL4
80-81 82-85
NUMBER OF Mlc:qOINSTRUCTIONS CHECK SUM
27BF
281!8 - 647 '\INUSD OS
CL170
86-255 UNUSED
0
2869 3869
3868 '"~ 648 M1COD2 OS 3888 649 MICCO OS
16XL256 XL80
256-XXXX MICROCOOE
·
650
.-.
········· 651 ······· MESSAGES
652
10
3889 04C3E240DJ06c1c· 38C9 u53 MCSLOO DC
38C; '905C740CSD909D6
653
38C9 09
653
CLl7 1 MCS LOADING ERROR·
10
38CA ClE3E3ClC3C804C5 380A 654 AO"'.
3802 05E340C3C8C5C3D2
654
'380A 40
654
DC
CL17 5 ATTACHMENT CHECK ·
3808 C6C3F7404004C9C3 38FC 655 OPAi DC
CL34·FC7 MJCRO-COOE LOADER PROGRAM
10 3BE3 090660C306C4C540 38E8 0306C!C4C50940D7
655 655
c
38F3 0906C709Cl044040
655
3BFB 4040
655
3.3FO E2C503CSC3E34006 3930 656
DC
CL52 1 SELECT OPTION BV PUTTING X~ YALU~ INTO DATA SWITCHES·
lo
lo
3905 07E3C9060540C2E8 3900 4007E4E3E3C905C? 3915 40E7E740ESC103E4 3910 C540C9~5E30~40C4
3925 ClE3Cl40E2E6C9E3
656 656 656 656 656
lo
3920 C3C8C5E2 3931 40C!05C44009C5E2 3943 3939 C5E3E3C905C740CB 3941 CtD3E3
656 657 OPR2 657
657
DC
CL19· AND RESETTING HALT·
II o
3944 C6C3F7404004C9C3 395F 658 MSGl.D DC
394C D9D660C306C4C540
658
3954 C2CSC905C7400306
658
Ct..28 1 FC7 MICRO-CODE BEING~ LOADED·
1! 0
lo
I
lo
395C C1C4C5C· 3960 FOF14060·003D6Cl 3994 3968 C440CID5C44CE2C5 3970 05E2C540C306D5E3 3978 09060340E2E3D6D9 3980 C54050400709C9D5 3988 E34006C201C5C3E3 3990 40C306C4C5 3995 FOF24060400306C1 39BA
658 659 OPR3
659 659 659 659 659 659 660 OPR4
DC CL53 9 01 - LOAD ANO SENSE CONTROL STORE & PRINT OBJECT cooe·
oc
CL38 1 02 - LOAD ANO SENSE CONTROL STORE ONLY·
lloe
3990 C440ClD5C440E2C5 39A5 05E2C540C3060SE3 39AD 09060340E2E30609 3985 C540060503Ee 3998 F0!"3406040E2C5D5 39E1 39C3 E2C540Cl05C44007
660 660 660 660 661 OPR5
661
oc
CL39 1 03 - SENSE ANO PRINT FC7 CONTROL STORE'
I
39CB 09C905E340C6C3F7
661
I j v~
3903 4040C30605E30906 390B 0340E2E30609C5
661 661
l
0
39E2 C505E2E409C54CC4 3AOF 39EA ClE3C140C4CSC302 39F2 40CtC3F740C60609
662 662 662
DC
CL46·ENSURE DATA DECK FC7 FOR
NICRO-LOA~ER IS c
39FA 40404040404004C9
662
0
3A02 C~09066003D6C1C4 3AOA C50940C9E240
662 662
3A1C C905400709C904Cl 3A38 663 OPR6 DC
Cl.4t·IN PRIMARY HOPPER. RESET HALT TO CONTINUE·
0
3A18 09E840C80607D7C5 3A20 096B4009C5E2C5E3
663 663
3A28 40C8C1D3E340E3C6
663
DATE
?oJUN75
EC NO. -~ :<t023
~OG 10
. NGE
oecOATE
26.JUN75
NOe 825023
PROG ID PAGE
0893-0 6A
·
·
·
·
·
·
·
·
·
·
·
·
·
·
1··
~
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·············· ·············
IBM MAINTENANCE DIAGNOSTIC PROGRAM 89'30 FC7 MI CRO-COOE LOADER PROGR·AM
PART NO· PAGl:
., ~234.25'! ·_
·
0 IBM fleA INTENANCE DI AGfllOST IC PROG9'AM
FC7 MICRO-CODE LOADER PftOGRAM
PART NOe PAGI!
ERR LOC OBJECT CODE
ACOR STMT SOURCE STATEMENT
3A30 40C306D5E3C905E4
663
3A38 cs
663
3A39 E2CSE340C4Cl E3Ct 3A67 664 OPRX DC
3A41 40E2E6C9E3C3Ce40
664
ct..47 1 SET DATA SWITCH TO 05 - TRY TO RELOAD M!CROCOOE 1
·ERP LOC OBJECi CODE !BA2 AD 01 A? AS 3BA6 F2 84 34
ADDR STMT SOURCI! STATEMENT
597 698 699 70(..·
CLC TEM(.XR2J.DOOOFC2eXA2) 16 CHARACTERS TO PRINT 7
JH
OYERl6
3A49 E30640FOF5406040
664
3A51 E309E840E3D640D9
664
3A59 C5D3D6C1C44004C9
664
3A61 C309D6C306 C4C5
664
~A68 C609D60440C3D6D9 3A96 665 OPA'f DC
3A70 C5684006E3C8C5D9
665
3A78 E6C9E2CS40EeCSC3
665
CL47·FRCM COREo OTHE~WISE SECTION TERMINATES
3BA9 AC 00 4C A?
3BAD AC 01 4E 98
38Bl AE 00 4C Al
3885 AE 01 4E A?
0
3889 AC 01 9B 4E 3880 AE 01 98 A3
701 702 703 704 705 706 707
MVC MVC ALC ALC M\IC ALC
CQUNT(.XR~).TEM(l.XR2) PUT LENGTH COUNT IN PRINT ADDAC.XA2)oSAC2.XA2) RH ADDRESS COUNTC.xR2).DNEDCloXR2t AOOR(.XR2)1TEM(2eXA2)
SA(1XR211ADD«IC2eXR2t CURRENT STARTING ADIMESS SA(eXR2)10NEOC2eXR2J
3A80 E3C9D60540E3C5D9
3A88 04C905ClE3C5E240
3A90 404040404040·0
3AA9
3A97 D4C9C3D9066CC306 3AC5
3A9F C4C5404003CSESC5
3AA7 D340E75040D3DEC1
3AAF C4C5C440E2E4C3C3
3A87 C5E2E2CEE4D3D3E8
3A8F 40404040404040
3AC6 40CtC4C409404040 3ACD
3ACE 40404040C306C4C5 3AF5
3A06 40D9CSC1C440C905
3ADE E3D640C3D6D9CS40
3A'!6 4040404040404040
3Al!:E 4040404040404040
3AF6 40404040C3D6C4C5 3810
3AFE 40E2CSD5E2C5C440
3806 4040404040404040
380E 40404040404C4040
3816 40404040C5DCiD940
381E 0000000000000000 3875
3826 OOOOOOJOOOOOOOOO
3B2E 000000~000000000
3836 OOC')OOOOOOOOOOOO
383E 0000000000000000
3846 0000000000000000
384E 0000000000000000
3856 0000000000000000
3B5E 0000000000000000
3866 0000000000000000
3B6E 0000000000000000
3876 40
3876
3P77 0000
3878
665
665 665
666 l.EVEL 667 OPRK
667 667 667 667 667 668 669 669 669 669 669 670 OPRT 670 670 670 670 671 BUF
671 671 671
671 671 671
671 671
671 671 672 673 QOUNT 674
Ecu
DC
DC DC DC DC
DC oc
·+18 CL47·MICRO-COOE (LEVEL X) LOADED SUCCESSFUt.LY
CL8· AOOR
CL4C 1
CODE READ INTO CORE
CL40 1
CODE SENSED
XL88·oo·
ERR t
CLl · · xL2 1 00·
()
10
0 0
0
0
lo
lo
j
I
Q
38Ct CO 87 021E 3BC5 00 3BC6 0000 38C8 3C40
3BCA AC 00 5E 4C 3BCE AE 00 SE SE
3002 CO 87 021A 3806 01 3807 00 3808 3C40
3BDA F2 87 20
3BOD AE ~l 98 AS 3BEI AC 01 76 98 38E5 AE C1 98 A3
3BE9 C:O 87 021E 3BEO 10 3BEE 0000 3BFO 3C40
38F2 CO 87 021A 38F6 01 3BF7 20 3BF8 3C40 3BFA EO 87 21
38FD CO 87 021A 3COI 17
3C02 C2 01 0000
3C06 c2 02 oooe
3BC5 3BC7 38C9
3BD6 3BD7 301)9
3BED
3BEF
38F1
3BF6 38F7 3BF9
3COI
708
B
709 COUNT DC
710 ADDA DC
711
DC
712
71:!
MVC
714
ALC
715
716
8
717
DC
718 LPRtrn CC
719
DC
720
721
J
722
723 DVER16 ALC
724
MYC
725
ALC
726
727
B
728
"c
729 LUNPK 0-
730
DC
731
732
B
733
DC
734
DC
735
DC
736
B
737
738 DONE B
739
DC
740
741 SXRl LA
742 SXA2 LA
UNPACK XL1·00·
XL2 1 0000· AL2(BUFFAR)
READY DATA FOR PRINTING
L~RlNTC.XR2).COUNTCl1XA2)
l.PAINT(1XR2)1LPRINTCt.XR2) DOUBLE PRINT COl!""1'
PRINT
XL1·01· xLt·oo· AL2 (BUFFA~)
PRINT DATA
DONE
SAC2.XR2)1DOOOFC1XR2) ADO FIFTEEN LUNPK(.XR2).SAC2.XA2) SAC.XR2J.ONEOC2.XR2)
UNPACK
1Ll·t6· xL2·0000· AL2(BUFFAR)
PAINT XLl90l· IL1·32· AL2CBUFFAR) LOOPDC.xA2t
PRINT DATA RELDOP
RESTORE XRI RESTORE XA2
* *I 0 667765 · · · · · · · ·SU· ·B·R·O·U·T·IN· ·E·D·U·M· ·P· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · '
677 ······································································· ,
678 *
CALLING SEQUENCE
*.
6?9 680 681
*·*
682 ·
B
DUMP
DC AL2(STARTING ADDRESS)
DC AL2CEND1NG ADDRESS)
·**·1II
Q 0
3COA CO 87 0000
3COE CO 87 022A 3Cl2 40 3Cl3 0000 3Cl5 0000 3Cl7 0000
3Cl2 3C14 3Cl6 3C18
743
744 DMPlOO B
7\5
746
B
747 RESTAT OC
748 SA
DC
749 EA
DC
750 SB
DC
LOAD
x:..1 1 ·0·
XL2 1 0000· XL2 10000· xL2·0000·
f;ETUAN TO MAIN PROGRAM
3679 34 08 3COD 3R7D 34 02 3C09
3881 C2 02 3879 3Bes 84 01 8C 3888 e~ 01 94 3698 9C 01 98 01 388F 9C 01 90 03 3893 02 01 04 3896 34 01 3COD 389A AC 01 A7 9D 389E AF Ol A7 98
3879
66883· 685
·······································································!I
DUMP ST
DMP100+3.AAR
SAVE RETURN ADDRESS
I
0
686
ST
SXR2+31XR2
687
USING DUMP.XR2
688
LA
DUMP1XR2
SAVE XR2
I I
0
689
ST
SXRl+3(1XR2J1XRl
SAVE XRl
690
L
DMP100+3C1XR2)1XRl
LOAD PARAMETER ADDRESS
691
MYC SA(1XA2hlC21XRl)
SAVE STARTING ADDRESS
692
NYC EA(1XR2).3C21XRl)
SAYE ENDING ADDRESS
I
I j
0 .
693
LA
4(1XAl)1XRl
INCREMENT RETURN A~DRESS
694
ST
DMP100+3· XRI
CHANGE RETURflf *'OORESS
695 LOOPD MVC TEM(1XR2)1EAC2.XR2) PRESERVE END ADDRESS
I j
A
w
696
SLC TEMC1XR2).SAC2.XR2) GET LENGTH COUNT FOR PRINT
j
3Cl9 0000
3C1A
3Cl8 0001
3C1C
3C1D OOOF
3C1E
3ClF 0000
3C20
3C21 0000000000000000 3C40
3C29 0000000000000000
3C3l 00000001)00000000
3C39 0000000000000000
3C41
751 EB
DC
XL2·0000·
752 DNED DC
753 OlOOF DC
754 TEM
DC
755 BUFFAR DC
x:..2·0001·
XL2 1 000F·
XL2·0000·
XL32· oo· ·
755
75!5
755
7!56
757 ·
758 · 759 ·
THIS SUBROUTINE VILL DETERMINE VHETHER TO RETURN TO DCP OR TO TERMINATE THE SECTION·
7e.O ·
761 LINkl( EQU ·
10
OATE 26.JUN75 EC NO. 825023
PAOG ID PAGE
., eec 0893-o!
OATI!
26.IUN75
NO. 825023
PROG 10 PAGE
· · ·
·
0893-0
7A
1I--. ·, ._. ·-·. ,. '"'-·"" . ',, -·-"'-"'.···...., - - -.c"'-"~4'"""""'"~f..,....,.,_""""''"-'--"-'4-WY,_."--"·~-_, v.~~>-. ' ~- , , ,,._ ·-·.,.,,_(A_...,_,,_~,"'"""-"_;,
~··" ~,,.,;
·~·· ~~";.. -;.I·«--'···'"'-"-·--"'--~.;;.;....,.~,.·''·»'"'' -
10
~- ._,,_, - '"
18~ MAINTENANCE DIAGNOSTIC PRO.-.AM 89!0 FC7 MICRO-COOE ~QAOER PROGRAM-
PAFtT NO·
~AGI!
4234297 (Jte~ MAINTENANCE DIAGNGSTIC PRoatAM 8
FC7. MICRO-CODE LCAOER PROGRAM
PART ND.
PAGE
ERR LOC 08JECT CODE
ADDA STMT SOURCE STATEMENT
3C4l CO 87 02U 3C4!5 Ol
· 3C46 15
, o 3C4? 3C6F
3C49 CO llJ? 021 A
3C4D 06
lo 3C4E 2F
3C45
3C46 K-1'8
3C4D
3C4E
162
?63, ?64 765 766 767
768
a
PRINT
DC
XLl·Ol 8
oc
IL1 1 21 8
DC
AL2CMSGNA)
B
PRINT
DC
XL1 9 06 1
DC
1Lt·471
PRINT MICRO NOT LOADED
3C4F 3C9E
3C50 769
DC
AL2(MSGNAA)
!C51 CO 87 0222
$$$$·$·········*****······ 3C55 89A4
!C 3C57 CO 87 0216
f''
770
B
3C56 771
oc
772 BLDD B
773
HALT XL2·89A4 9 LINK
HAlT · A4 IF SS11104 IS ON
1 0 3C58 D4C9C3D9D660C3D6 3C6F 774 MSGNA DC
3C63 C4C54005D6E340D3
774
CL21'NICRO-CODE NOT LCAOEO·
3C6B 06C1C4C5C4
774
3C70 D~C5C6C5D9~0E3D6 3C9E 775 MSGNAA DC
3C78 40E2C5C3E3C906D5
775
CL47@ REFER TO SECTION 891 IF El:U:IORS ~ERE ENCOUNTEREDe
3C80 40F8F9F140C9C640
'?75
0 3C88 C5D9090609E240E6
775
3C90 C509C540C505C306
775
ERR LDC OBJECT CODE
'!Dl!S C2 01 2869
3019 F2 87 04
301C C2 Ol 30915
'3020 34 oe 3D92
3024 OC 03 3085 !08C
I
3D2A OC ?l 3088 27BA
!
30'30 3C 80 305E
3034 C2 02 3082
:so~e sc eo :so7?
I I
3D3C IC 00 30e6 00
~041 2C 00 304C 00
I
3046 IC 00 3DSO 00
I
'3048 3B 00 3086
304F BB 00 00
3052 SE 00 00 3086
3-·7 02 01 01
3t15A E2 02 01
305D F2 eo 08
3C98 E405E3C5D9C5C4
775
776 ·
* 777 *
7?8 779 ·
THIS SUBROUTINE IS USED TO SNS EACH HOB AND ENSURE TH~T IT HAS BEEN CORRECTLY LOAOEO 'dlHI X'00' ·
3060 3C 87 305E
0
306-* CO 87 303C 3068 OF 01 3068 306E
3D6e CO 81 30SF
0
3072 3C 130 3DSE 3076 co 80 3034
3C9F 34 08 3014 3C.A3 30 00 3CDE
780 · 781 SNSOEC ST 782 SNS1 SNS
ESNS+3 ·.ARR SAVSNs.x·oor
SAVE FOR RETURNtNG
307.lt 3C 87 3077 :30"1E CO 87 303C
3CA7 00 01 3COE 3CD7
783
cu: SAVSNS{2).0ZERO
i S HOB X · IHl" t
3CAD F2 81 55 3CBO CO 87 021E '3C84 01.
3CB5 3CEB 3CB7 3CF4 3C89 CO 87 021E 3CBD 01 3CBE 3CE7
3CB4
3CB6
3CB8
3CBD 3CBF
784 785 786 787 788 789 790 791
JE
SETRET
B
UNPACK
DC
XL1°0l·
DC
AL2('i'f0RK2)
DC
AL~OlSGHJ
B
UNPACK
oc
XLl 1 01'
oc
A!..2 OIORK2-l 1
UNPACK BITS 3-15
UNPACK BITS 0-T
0
I
1i 0
3082 00000000 3086 00 3087 0000 3089 00000000 3080 OOO'i
3CCO 3CF1 3CC2 CO 87 021A 3CC6 C6
3CC1 792 793
3CC6 794
DC
AL201SGH-3)
8
PRINT
DC
XL1 ·co·
PRINT HOB
lo 308F CO 87 0000
3CC7 19 3CC8 3004 3CCA 89E4
3CC7 795 3CC9 796 3CCB 797
DC
ILi '25·
DC
AL204SGtiOB)
DC
XL2·89E4·
ERROR
I
IC
3CCC CO 87 0222 3CDO 89E4
3CD2 .:o 87 3C41
3C06 000~ 3CD8 0008 3CDA 0000 3COC 00 3COO 0000 3CDF 1011
3CD1
3C07 3C09 3COB
3COC
3COE 3CEO
798
B
799
DC
800
8
801 DZERO DC
802 XOOtO DC
803 ADO
DC
804 SWITCH DC
805 SAVSNS DC
806 COUNT2 DC
HALT XL2 1 89E4 1 LtNKK xL2·0000· XL2 1 0008 1 XL2 1 0000 1 xL1·00· xL2·00· XL2e1011·
I
10
1I 0
le
3CEl 0001
3CE2 R07 COUNT1 DC
XL2°0001 1
3CE3 2021
3CE4 808 COUNT3 DC
XL2'202t·
3CE5 3031
3CE6 809 COUNT4 DC
XL2'3031·
3CE7 OOCO
3CEB 810 WORK2 DC
xL2·00·
3CE9 0101 3CEB 00
3CEA EH t A0101 OC 3CE8 812 SECSW OC
XL2"0101 f
xLi·oo·
3CEC C8C4C240FOF06!FO 3CF4 813 "1SGH DC
3CF4 Fl
813
CL9°HOS 00/'Gi. 1
3CF5 404DC8C5E75040D5 3004 814 MSGHD8 DC
3CFO 06E340E9C5090640
814
3005 OE Ot 3CE8 3CEA
3DOG OE 00 3CA4 3C1C
3011 co 87 0000
815 SETRET ALC
816
ALC
817 ESNS B
WORK22loAOl01
·-*SNS1+1(1)9QNED
SETUP FOR
NEXT PASS RETURN
818 **********~********$*********
619 *
CHECKSUM SUBROUTINE ******$**************$*¥************$*****
820 *****************************
3093 0000
ADCR STMT SOURCE STATEMENT
3082
30S5 30(!6 3088 3D8C 308E 0001
ooeo
OC87
0001 0002 0008 0004 OOAO 0020 0222 0212 021A 021E
0216 0203
0208 0080 0040 020.4
020::>
oooa
0001
ooeo
0226 022A 0232 0880 3094
821
822 GENSUM LA
823
J
824 Sll'llCHK LA
825 STARR ST
826
MVC
UNUSO+leXRI STARR
MLTAC·XRl 0Rt+3.ARR 'pAR+3eALLOC4t
LOAD ADDRESS OF MICRO MAP GO STORE ARR LOAD ADDRESS OF SENSED MICRO CODE STORE RETURN ADDRESS
821'
MVC MCSC( 21.NINST
828 829 ORA 830 831 ORC 832 833 834 ORO 835 ORE 836 837 838 8J9 OAF 840 841 842 ORG 843 844 845 CRH 846 847 848 ·
849 PAR
850 851 IGRK 852 MCSC 853 ALLt'> 854 ONET 855 QQ 856 NOOP
"'VI
LA
MVt flfiVC
"4VC
MVC
SBF SBF
ALC LA LA .JC MVI
e
SLC BZ: r.1Vl
BC
MVE
a
EQU
oc cc
DC oc
oc
EtlU
EQU
ORF+OOaNOOP
PAR.XR! Of<H+0011NOOP
WRl<(lleOC.XRt) ORD+OQ(!)·OC.XR2) ORE+QQ(l)eO(.XRl) WRKcO
0 ( · XR2) .o
IH., XR2 J o'llRK(l) I (.,)(R! l.XRt I ( "XR2) .,XR2 ORGeNOOP
ORF.f-QG!c SRANCH
ORC MCSCC2).0NET O!lll ORF+QO.NOOP 0~11.. NOCP ORH+oa. BRANCH ORC
·
XL4~oo·
XL1"00 9 XL2·ooe XL4·oooooooo· XL2 1 000i· l
LOAD ACPARITY BYTESt SET JUMP 10 NOOP MOVE SENSED BYTE TO WORK FIB.0 MOVE PARITY BYTE MOVE SENSED BVTE TAKE PARITY OF THIS SENSED SVTE ANO THIS PARITY BYTE ADO REMAINING BYTE INCRESE REMAINING BITS I NC RE ME NT PC INTER TO PAR·. ~y BYTES JU~O EVERV OTHER TINE RESET JUMP TO A ~ANCH
REPEAT FOR SECOND BYTE OF SNSEO DATA DECREMENT COUNT OF INSTRUCTIONS SENSE DONE RESET JUMP TO NOOP JUMP EVERY OTHER TIME
RESET JUMP TC BRANCH REPEAT FOR SECOND PAIR OF PARITY BYTE
PARITV SVTES USEO FOR CHECK SUM
857 B~ANCH EQU
858 ORI
B
859 $
RETURN TO USER
860 861
*********E*Q*U*A*T*E*S
862 ··············
863
864 X~l
EQU I
865 XR2
866 ARR 867 PSR 868 IAR2
EOU
EQU EQU
eou
2 6 4 X·AO·
869 P1IAR EQU x·20·
870 HALT EQU )(&222·
871 TEST EQU x·212e
872 PRINT EOU X8 21A 1
873 UNPACK EQU x·21ea
874 LINK EOU
875 stze eou
876 SSYTEO EQV 877 SSWOO EQU 878 SS'l!l!'H EQU 879 SBVTE2 EQU
880 S0YTE5 EQU
)( 6 2116'
x·203·
)(¥206'
xceo·
x·4os
X·20AG
x·200·
SRT - CORE SIZE OF ThE 5YSTEN
LOOP ON SECTION \..OOP ON ROUTINE SECOND BVTE OF SENSE s~s
881 SSW2C 882 SSW2F 883 SSWtO 884 PACK 885 t..OAO 886 UTAB 887 1... PUT 888 GARBE
EOU
rrnu EQU eOU
EQU EQU
EQU DC
l(@OSE
xe"1" x·SG' xf2:u;·
l(@22J\G
x·232e
x·sso·
XL2·ooe
SSW 2C
SStr: !O SRT .. ENTRY TO PACE EBCOIC TO HEX
SRT - ENTRY TO LOAD SRT - FIRST BYTE ADDRESS OF READIN AREA UNUSED
DATE
26JVN75
EC NO. 825023
PROG ID PAGE
0893-0
DATE
8 ()EC NOe
· ·
26JUN75 825023
PROG 10 PAGE
0893-0 8A
·. ~.
--·- ·---~. · · · · · · · · · · · · · · · · · · ·
··, ,.-,
lo
IBM MAINTENANCE DIAGNOSTIC PROGRAM 6930 FC? M!CPO-CODE ~CADE~ PROGRAM
!
I 42342571 ("°JIBM ~~tNTENANCE OIAGNOS~IC PROGRAM 9
ERR LOC OBJECT CODE
AOOR STMT SOURCE STATE~ENT
l ~8930
I
FC7 ~tCRO-COOE LOADER PROGRAM
3095
4095 40E!5 3094
3095 4094 4095 4'0E4
~OE6
689 890 891 592
893 691;
Ml.TAC ENMLT AOM!..'f
EQU
DS EQU DS
oe
$
·16XL!!56
XLSO
AL20li.. l AC-!~
4DE? 07C1E3C3CS40C606 40FS 995 FOf;lME DC
40EF 0904CiE340C50909
895
40F7 0609
895
40F9 E3C8C540C6060303 ~E!S 896 PATCHX DC
4E01 06E6C905C740D7Cl
896
4E09 E3C3CBC5E24CE6C5
!396
4Ell D9C540CiC4C4C5C4
896
4E19 ClC~C40940C4C1E3 4E21 4E21 Cl
697 PAICHH 0(; 69"1'
4E22 E7E7E7E740E7E7E7 4E2A 4E2/\ E7
ec;ie PP:nc1-1 oc 898
7000
899
ORG
X 1 700C)O
7000 7000 FFFFFFFFFFFFFFFF 7~FF 7008 FFFFFFFFFFFFFFFF
900 PATCH 901 901
eau
DC
*256Xt. ! "-FF·
7010 FFFFFFFFFFFFFFFF
901
7018 FFFFFFFFFFFFFFFF
901
7020 FFFFFFFFFFFFFFFF
901
7028 FFFFFFFFFFFFFFFF
901
7030 FFFFFFFFFFFFFFFF
901
7038 FFFFFFFFFFFFFFFF
901
7~40 FFFFFFFFFFFFFFFF
901
7048 FFFFFFFFFFFFFFFF
901
7050 FFFFFFFFFFFFFFFF
901
7058 FFFFFFFFFFFFFFFF
901
7060 FFFFFFFFFFFFFFFF
901
7068 FFFFFFFFFFFFFFFF
901
7070 FFFFFFFFFFFFFFFF
901
7078 FFFFFFFFFrFFFFFF
901
7080 FFFFFFFFFFFFFFFF
901
7088 FFFFFFFFFFFFFFFF
901
7090 FFFFFFFFFFFFFFFF
901.
7098 FFFFFFFFFFFFFFFF
901
70AO FFFFFFFFFFFFFFFF
901
70A8 FFFFFFFFFFFFFFFF
901
7080 FFFFFFFFFFFFFFFF
901
7088 FFFFFFFFFFFFFFFF ~oco FFFFFFFFFFFFFFFF
901 901
70CB FFFFFFFFFFFFFFFF
901
7000 FFFFFFFFFFFFFFFF
901
7008 FFFFFFFFFFFFFFFF
901
70EO FFFFFFFFFFFFFFFF
901
70E8 FFFFFFFFFFFFFFFF
901
70FO FFFFFFFFFFFFFFFF
902
70F8 FFFFFFFFFFFFFFFF
90\
902 *
PATCH FORMAT
MICRO PATCH ARE~
903 "' 9v4 >I< 905 ...
* 906 "'
907 908 ·
AAAAOODOOOOOAAAAOODODDOOFFFF
WHERE
AAAA ODDO
=
4 DIGIT HEX ADDRESS (HI 5 BITS ~UST BE ZEROES) HEX DATA (MUST SE PUT IN IN GROUPS OF 4 DIGITS,
WHERE EACH 4 DIGITS IS l MICRO-wo~o. THERE CAN
BE MORE THAN l WORD SPECIFIED. EACH WORD MUST
909 ·
CONTAIN 4 DIGETS ANO WILL 82 PLACED IN TH: MICRO
FFFF
910 $ 911 · 912 ·
913
STORAGE MAP IN ASCENDING OROER UNTIL A DELIMITER
IS REACHED.
0000 FFFF
DELfMITER (ENO OF PATCHES AT THIS AODRESS) END OF ENTIRE PATCH
END
I ~SY"BOL T LEN VALUE D£F~
iI c~' ~c,"CT2
, r· !
_i.OCHK
I
,,_
oo _!;,
!\DOR
A 00~
"" ei o2
A 002
2343 2076 2628
3CDB 38Ci'
0803 0710
I C' AOK
A {)11 380Pt
A0"4'CO fl. 002
-AO~LT AOOE
0893
AGAIN A 004
r'>ALLO A OOJI.
\, -AMJCRQ A 002
ARi<
C 001
2368 308C 2CCH
oooa
042&
085:::1
006! 0866
(:ATTCMK C 001 0050 0030
,1,0101 A 002 3CEA Of,Jl l
BlCt'I
A OOll
r·,BRAN_.~ C 001
\...-- sur A c se
3C57
!1087 35·p5
0772 0857 -0157!
C. !3Uf'A!) ·~- BUFEO
A 002 A 002
BUFFAn A 032
2100 2HlA
3C:~o
0102 tHe7 0755
BUSY
C Q(lt OOSF 0031
('BYPASS A 001 2052 Oi05
- 88930 A OCl
CARDIN I< 001
C.CHKENO A 001 ,;CHKFCB A 001 CHKSEC! A 001
(';CHKSUN! A 001J!j
'-"CLEAN
CLEAR
OCLFLAG CMLOOP
A 00°'
'°' COl!
A 004
A 006
0000 2229 2201 2215 2tEO
278E
2410
2064 2110
21BE
0004
0285 0267
0276 0250
064·6 0448 0110 0197
02j2
COMll4 QCOMPP
COUNO
COUNT
A 001 A 001
A 001 A 001
2146 2450 2114 3BCS
0210
0464 0192 0709
OCOUNTl A 002 COUNT2 A 002 COUNT3 A 002
3CE2 3CEO
3CE4
0807
0806
oeoa
c,COUNT4 /J. 002 3CE6 0809
CPSTOR C 001
ooODONE A OOJ ICKL A 00-1
- OMP100 A OO'i
OONE ( ·,002
.,.;DUMP
A 004 A 004 A 004
OZERO A 002
ODOOl'F A 002
0058 23A7 20EO 3COA 3BFO 2364
3679 3C07 3ClE
0034 0416 0162 0744 0738 0401 0685 0801 0753
0255 0256
()EA EB EC11
CECSFX EMUL ENDA DO
C·ENOAOT -· ENOLOO
Ii 002 A 002 A 002 A 002 A ~06 A 001 A 004 A 002 A 001 A 00!
2106 2108 3C16
3C1A 2777
2778
2384 2608 22E9
260\:l
0185 0186 0749 0751
0642 0643 0420 0588 0358 05t;;O
ENMLT
I (ENTAB ENTT
I I
EPATCH
L I -- ERRF
I I
ERRLOO
A 001 A 002 A 002 A 004 A 049 A 004
4095 233E 264C 22DA 2768 2469
0891 0382 0626 0351 0635 0472
CRDSS-REFER!NCE
0404 e4a4* 0702$ 0606
0430 0500 0104*
0459
0~~2~
C7e5
Cf.SS Oti04
081!5 0077 CHi-'110 04197 0246 0248 071l
coeie:~ 05'i6
08<1;1~
0497::t 0!50\
073!5
0061 0101.
0219 0250 02HS 0209 0352'1> 0451 Oi13
0470
0521
0237 0203 0461
0109· 0112· 0447· 0450·
0701* 0703* 0713 0399
0414
0419 0427
0437$ 0458 0410
0153
0685>1: 0690 0721 0415 0380 05<;6 0403 0418 0'503 0538 0360 0364
0687 0481'
0539
06ee 0783 0698
0·123
0487· 0488· 04890 0490· 0495 0506 0480· 0481· 0482· 0463$ 0509
0386 0430 0286
0293 0576 0444$ 0369·
0359· 0315 0271
0297
0581 0645
0360·
0387 0364·
05030 0369
0584~
0441
0585·
OATE
26JUN75
EC NO. 825023
PAOG 10 PAGE
I I I I
0893-o;
9 I r
ERR6
0
.. 007 2666 0"'30
26.JUN7!5 825023
0172
I
· r
I
I
I
I
I
I
I
· I
I
j
l
· ·
0585
· · · · · ···
PART NDe PAGI!
O!S'.56 0560
------·----
PROG 10 PAGE
0893-0 9A
IBM MAINTENANCE DIAGNOSTIC PROGRAM
8930 FC7 MICRO-CODE LOADER PROGR·M
SVNBOL T LEN VALUE DEFN
ERR7 A 049
ERRS A 049 ERR9 A 049
ESNS A 004 FDRME A 018
GARBE A 002
GENSUM A 004 GETC A OC3
HALT c 001
2687 26E8 2737 3011 4DFe 3094 3015 2438 0222
0631 0632 0634 0817 089'5 0888 0822 0458 0870
Hceo c 001
HOB08 C 001
I AR2 C 001 INCTOA A 003
INPUT C 001
INTPNO C 001
KOMPX A 004
LENGTH A 004
LEVEL A ocn
LINK C COi
LlNl<A A 002
L INKK A 001
LIOl A 004
LOAD C 001
LOADC A 001
LOAT LOOP
A 004 A 006
LOOPO A 004
LOOPOP A 003
LOOPI A 003
LOOP2 A 003
'- LPRINT A COl
LPTR A 002
LUNPK A 002
MCSC
A 002
MCSLOO A 017
MICCO A 080
MIC002 A 256
MLTAC A 001
MOVE A 005
MSOAR C 001
"1SGG
A 004
MSGH A 009
MSGHOB A 016
MSGLO A 028
MSGNA A 021
MSGNAA A 047
NEGl
A 002
NEG3 A 002
NEXOAT A 003
NG256 A 002
NINST A 002
NOCO~F. A 001
NOOP
C 001
NORM
A 004
NOTROV C 001
NOTSPT A 004
NRFP A 001
NUMtOK A 004
ONOE A 004
ONf!D A OC2
ONET
A 002
ONO
A 00 l
OPDEC c 001
OPREG A 002
OPRK A 047
0048 0088 OOAO 2251 0880 0059 2513 218A 3AA9 0216 2642 3C4l 2:!72 022A 2135 23E5 22FB 3B9A 234E 23E9 216A 3807 210E 3BEF 3080 38C9 3888 3868 3095 21E4 0058 2088 3CF4 3004 39!'5F 3C6F
3C9E 2102
2104 226C 2118 27BA 2318 eo00 2030 0058 2280
214A
22AE
2112
3C1C
308E
2113 0059 2788
3AC5
0032 0033 0868 0303 0887 OC29 0513 0231 OE66 0874 0620 0761 0403 01.'185 0204 0435 0362 0695 0391 0437 0222 0718 0189 0729 0852 0653 0649 0648 OBS9 0256 0036 0119 0813 0814 0658 ' 0774 0775 0183 0184 0311 0194 064S 0368 0856 0096 0028 0316 0212 0:!'29 0190 0752 0854 0191
0035 0644 0667
CRQSS-REFERENQ
REFERENCES
0262 0280 03?3 0781· 0345
0351 0463
0102 0798
0401 0420
0144 0402
0159 0264 0403·
0273
0282
0313 0202 02C7 0211 0229 0230 0245
051 O· 0244
0202· 0772 0077
0078 0174 0349 0401· 0406· 0407 0199 0205 0746 0221 0257
0384 0408
0609
0800
0367 0736 0395 0442 0228 0713· 0714
0714·
0724·
0452· 0475
0106· 0108
0457 0252*
0453
0107
0478 0253·
0460· 0107· 0587
0827* 0187 0824
0842· 0893
0116 0788 0796 0099 0765 0769 0238 0240 0340 0111 0325
0792
0241 0449 0327· 0362
0452
0482
0483
0828 0830 0839 0844 0845 0085
0326 0217 0406 0481 0235 0324 0112 0450 0391· 0193 0594
0488 0460
0507 0842
05!6
0542
DA TE'
26JUN75
EC NO. 825023
0347
04!!9 0543
0375
0490 070:!
0571
0827 0706
0597 0725
I
I
PART NO· PAGE
!
l 42!4cST 1 (JtBM MAINTENANCE DIAGNOSTIC PROGRAM 10
I
I
!
FC7 NtCAO-CODE LCAOER PROGRAM
I
I
I
I
I
~SYMBOL
T
LEN
VALUE
OEFN
REFERENCES
I
I
I
coPRT
A 040 3810 06?0
0494
I OPRX A 047 3A67 0664
0566
CRQSS-REFERl!NCI!
OPRV
coPRl
OPR2
A 047 A 034 A 019
3A915 31SFC 3943
0665 0655 01557
OS'PO 0122 0127
OPR3 A 053 3994 0659
0132
{)OPR4 A 038 39BA 0660
013?
0607 0770
OPR5 OPR6
A 0:!9 39El 0661 A 041 3A38 0663
0142 0158
( ) OP32 ORA
A 002 2lt6 0193 A 0(14 3034 0829
0394 0845
OPC
A 005 303C 0831
0841
CORD
A 004 3048 0834
0832·
OPE ORF
A 003 304F 0835 A 003 3050 0639
0833· 0828· 0840· 0844·
A 006 3068 0842
0839
"' 004 3076 0845
0830· Oe46·
ORI
A 004 3D8F 08!58
0825· 0843
couTGO A 001 233F 0383
0379
OVER16 A 004 380l' 0723
0699
PACK C 001 0226 0884
I CPAR
A 001
i I
PARTlf A 007 PATCH A 001
I OPATCHE A 004 I · PATCHH A 009
PATCHR A 003
I c,PATCHX A 032
3082 2770 70CO 22C6 4E21 23DF ·1:1 e
0849 0640 0900 0342 0897 C.432 0896
0352 0470 0826· 0829
0292
0317 0301 0425 0297
0302
PFFX A 004
I PPATCH A 009 I ()PfHNT C Ot..l I I
c,PPINTQ A 004
20CF 4E2A 021A
25E8
0155 0898 0872
0580
0149 0323 0096 0298 0603 0471
01~'
033i 0119 0334 0716
0337 0124 0342
0f32
0129 :>353 0738
0134 0370 0762
0139 0472 0766
0155 0491 0793
0169 0533
!
PRINTX A 001 25EF 0'582
PSR
C 001 0004 0867
QP1tAR C 001
. OOUNT A 002
I QQ
c 001
/"'\QUICK A 002
i '\.,,.,. RESTRT A 001 RTNOl A 001
osA
A OC2
0020 3878 0001 2128 3C12 2005 3C14
0869 0673 0855 0201 0747 C068 0748
0602· 0517· 0518· 0523 0524
0828· 083C* 0832* 0833· 0840· 0844· 0846· 0076$ 0087· 0088·
0016 0486· 0496 0538· 0540
0702
SAVSNS A 002
I ,sa
A 002
C'seYTEO c 001
SBYTE2 C 001
I C' S8YTE5 c 001
i ..... secsw A 001
I I
SEHSE A 004
3CDE 3C18 0208 020A 0200 3CEB 23FE
0805 0750 0876 OE.'79 oe8o 0812 0444
0725· 0782· 0783 0479· 0539· 0541 0100 0595 0115 0083 0084· 0599 0400· 0409 041!· 0424 0290
·SEO
A 001
I C. ,SETRET A 006
! SHUP A 001
211C 3005 2110
0195 0815 0196
0208 0784 0161
0216· 0217$ 0164 0167
0816
II C:SETUl A 001 SIOI C C'Ol
I
SIZE c 001
I c~·SNSOEC A 004
I SNSPRT ,.. ooii
I SNS1
A 004
I c··,sswoo c 001
i
SStf01
l SSW10
I cssw2c
c 001 c 001 c 001
I SSW2F c 001
20BA
0058 0203 3C9F 2473 3CA3 0080 0040 0080 0008 0001
0147 0037 0875 0781 0478 0782 0877
0878 0883 0881 0882
0118 0389 0412 0413 0417 0428 0429
0405 0421 0467
0402· 0420· 0422 0100 0595 0100 0595 0115 0599 0083 0084
0816·
0433
PROG ID PAGE
;
STARR A 004 3020
10
I 0893-0
I oec 10
DATE
26.JUN75
NO. 825023
0825
0823
1.
I
1·
!·
PART "'°·
PAGI!
0259 0268 027? 0294 0557 0563 0567 0591 0705· 0706· 0723· 072~ 0454 0455 0465
PROG 10 PAGE
0893-0 1.JA
·
· ·
· · ·
· · · · · · · · · · · · · · · · · · · · · · · ·· · .---- ·-· Io··- . ' ~ "-~~ ---~---~~-·-·--~·-.--~.--~
·- . ""
~ ·---~-..........,...._--.______ "·····-
. .-:,
·
IBM MAINTENANCE DIAGNOSTIC PRO~AM
PART NOe PAGf!
423425? (}18M MAINTENANCE DIAGNOSTIC PROGRAM II
PART NOe PAGe
8930 FC7 MICRD-CDOE LOADER PROGRAM
FC7 Mlat~COOE L~ADER PROGRAM
!'"·
SVMBOL T LeN VALUE DEFN
START A 001
STAT A 001
SUMCHK A 004
SWITCH A 001
SXRI A 004
SXR2 A 004
Sl
A 004
S~
A 004
TABLE A 001
TEOCNE A 004
TEN
A 002
2017 20FF 3DJC 3COC 3C02 3C06 2194 2198 2769 21C6 3C20
0079 0177 0824 0804 0741 0742 0233 0234
063~
0245 0754
TEMP A 002
TERP A 002
TEST C 001
UD'Tt A 003
UOT2 A 003
UNPACK C 001
UNUSD A 170
UTA8 c 001
W~K
A 002
263E 2640
0212 OAOC OAOF 021E 2868 0232 210C
0615 0616 0871 0018 0019 0873 0647 0886 0188
WORK2 WRK XOOR xooq1 XDOi'f E XFFFF XKFC7 XOKX XOKV .. xooi:io
XOUNT XRl
A 002 A 001 A 0~2 A 002 A 001 A 002 A 003 A 006 A 004 A 006 A 0('1 c 001
3CE8 3086 2552 2554 25BE 2008
~004
251E 25AO 2480 2550 0001
0810 0851 0527 0528 0562 0070 0064 0516 0549 0495 0526 0864
XA2
c 001 0002 0865
XUhPI< A 002 XVf:R 16 A 006 X0010 A 002 XOIOO A 002 X0200 A 002 X0300 A 002 X0400 A 002 YODR A 002 YOOR1 A 002 YOUNT A 001
YUNPI< A 002
25A6 2569 3CD9 2644 2646 2648 264A 2558 2550 2559
2SAF
0551 0538 0802 0621 0622 0623 0624 0531 0532 0530
0555
TOTAL STATEMENTS FLAGGED
DATE
26JUN75
EC NO. 825023
CRDSS-Ae:ERENCI
REFERENCES
0266 0215 0175 0176 0468 0080 0689· 0686· 0231* 0232 0232· 0063 0182
0284 0197 0198
02'15· 0236 0381
0495· 0496· 0503 0505 0510 0516· 0517 0518 0704 0304· 0307 0307· 0309 0318· 0331 0392· 0394 0117· 0146· 0288 0377$ 0378 0466 0574· 0575
0114
0439· 0441 05'17· 0580
0701
0320 0329 0498 052~ 0529 05·9 0553 0708 0?27 0785 0789 0308 0435 048! 0627 0822 0148 0150 01!52 0163 0165 0226· 0227 0242· 0243 0305· 0316 0322 0324· 0325 0327 0361· 0362 0365· 0366 0399· 0414· 0419· 0427· 0787 0791 0831· 0834· 0836 0506· 051l 0520· 0!523· 0537
0314
0214 0514 0547
0561 0505· 0507· 0508 0108· 0110 0110 0111· 0165· 0166 0175 0198· 0207· 0208 0211· 0214 0216 0218 0220 0222 0224 0225 0225· 0226 0229· 0239 0240· 0242 0245· 0246 0248 0252 0253 0254 02!54· 0256 0302· 0303 0303· 0304 0305 0311 0311· 0312 0314 0318 0319 0386· 0391 0392 0393 0393· 0435· 0437 0439 0440 0440· 0446· 0448 0448 0449· Q478· 0479 0480 0485· 048 .. 0487 0!511· 0513 0519· 0520 0521· 0522 0544· 0546 0689 0690· 0691 0692 0693 0693· 0694 0741· 0822· 0824· 0831 0833 0837
0837· 0176 0197* C230· 0233 0233 0234 0234 0238· 0239 0241· 0286 0287· 0308· 0309· 0319 0339 0339· 0377 0378 0387· 0392 0394 0439 0441 0441 0457· 0458 0462 0462· 0512· 0!!13 054!· 0546 0686 0687 0688· 0689 0690 0691 0692 0695 069!5 0696 0696 0698 0698 0701 0701 0702 0702 0703 0703 0704 0704 0705 0705 0706 C706 0713 0713 0714 0714 0723 0723 0724 0724 0725 0725 0736 0742· 0829· 0832 0835 0836 0838 0838· 0540· 0544
0504
0502 0361 0365
0509· 0!!12 0522· ()524· t'508·
0541· 0545
IN THIS ASSEMBLY ·
0
PROG 10 PAGE
·THE CHARACTER
OBJECT CARO LISTING INOICA~ES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE NUMERIC SHIPTe
0 Cl. I THROUGH 16 CL I? THROUGH 32 C~ 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96
-· ..
GeK GBD PN 4 2
TCOYISL c H p
·T+S :HFTF~··A I·
·T+S~· ~x /OHEA,0
·T+SBOOH·SOTS -·
· o T+sc,,oHss~
BR
·· . - T+SDWV C2-K3 .l'OH
T+SE/
0
34256 EC 825023
··au <DC ·IB 'Ht4AfEVW&X
9P3X -T2U · ,OH 2D ·· SA 8Y·20H·
I~ B<?HACTSJ Te ElT-W.l'/MBOH·li>&KJ ZBC?2/1G /OHDD<H
FC7 NICRO-CODE
........·.......
SSE,. CS~CB·8_3S
eF-<S+I~ ,OHE.U·
2-&··Z-H28-DJOH· c 8>
ASHA( 58/Gl~AZ8H
LOADER
........ ........
.84888···
.............. .
89300000
L8089300001
?IC M·.089300002
80-D8A30,HJJ··O 9&8BG ,YA(LWNOH·
BF-Ow+s. ,OHEA2~
..AHF& LK·89300003
98· &·U89300004
BF-)P+TT 'OHSS~G 2'348- HJ8, 60-D B<X4 28089300005
·OH· 81·89300006
.... llBHAC V\'-AIHAOIO . CHJb1A-<J'GBDK...M 8YD 90889300007
0
T+SGP 8FNI08 1 ABF
0
NOHH/TTQBH&IX -
C-D,ACQBH&&4 KD
. B &TOO-HH6CO HAM
<IRO,C<BDH018 CS
< BFRHRO>
,-
L-ORH&AC JU.I'S?,.
8 ~E&8930000e DtVO ·5889300009
c T+SHK SGXFJO HI-
T+Sl(HA, 'OHElTD
0
T+SHH o·=4-DBG D
0
P4-DEG
C /20
W:HX40H·BHYX40H· wl-D· KO< &S~ITB
SO~·BFXQlle·N2X8
-E8HBl-- 1 2R CHD ·IXHBHFYe SQ·4-D
G SHl8XBGHA~ 'OH T·T7"· C -K.ZOH* Bl.&0AfQ3 -KIJl..&D
ElTOXEHX30H·BHYX
-· BF-H-&JT /OHE &V
AH T2-NV9·8D.az
30H· le<89300010 +H·H 1 148930001 l ·G D 83¥89300012
T+S1CIT8AX 0 ·B G /8BH&l+l&8AH&O ·T-4Al·v,CIHDA-O Al·Y,C<BG '8BIT9 +HXBG /YA8M808-H
0
T+S.·HW3 'OHElll
0
T+S<9H£32AC8+ KR
0
C=HXXOH·8HYXXOH* <H&Q+ kC<IUt·Bt<O
a&·BGIJM< 2;=IOP e0HHS=OOAH3BWL<B
'OHEE-OAIUOWL-8 G '·FL2*7S;G 'OH
AIUO,A-~AH&OWJ 4 SS:FO CS'ACT2 &T
Al·Y 2KD89300014
·- ,3111 ED889300015
T+SC4;kJZ C /31
0
AO-DXIXHBl-T30HA
10&04 LSK tHC l.0 /EXBBH48< L3Yl+H a C3 1 fO-T·31HfH&
tKCO ·AD89300016
T+S+?58E)tS? .1'32
0
T+SIDl+-il9C2HIHL
Q
T+S&Y <E)IS>4 LS
0
o T+SJ-l·Y< KR<JOT
I
0893-01
DATE
26.JUN79
l l I C)EC NOe 82!5023
~c- T·30·IN T·8
. - . /32~IA ·Z< AH·-
K &H_ LROOHHT:l.O 30HC30<CB T6DXE-
AH7H··33,mvo·ll· I C318YO~I a:oo
LSO<l46·l.13e M6 ON4WHOIAfQ-·Txe
a:·ca-1100 OAf+At+-89?(0-f COO<B MfA .l'EE3· 06 KD AIECS -. ,2&885S
88<8GH6e3CH 1TC3 PC D 4J489!0001?
GHat.30MC3D<CB K/ o·r+- oeu9g3oco1e
QCO /EBDl.O DUD 0 l&<W&<BAIGI .1'34
Alo- eA-89300019
. -
·C&< PD*8930C020
PAOG ID PAGE
0893-0 llA
I
I
!!·.
I
IBM MAINTENANCE DIAGNOSTIC PROGRAM
8930 FC7 MICRO-CODE LOADER PROGRAM 08.JECT CARD LISTING
CL 1 THROUGH 16 CL \7 TI1ROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64
/OME 11 D820UAO-D ·vL&AfA-· LoecoD aFTO·C-DaFs;:c-o
T+SLO LOM( oae-a Af AQ8G 8Af AOX>-8
T+SM.JH-8AI (X86&4 AIB eG?Hn--o IN 8H OAINH8E-8 IN 8G 0 INUYM OAlNX
T+SN<064 C2-&&
T+SOG/OH;
C /OH;
C /OH
I
PART NO· PAGE
I i
1 42342!i7 ' ()tBM MAINTENANCE OIAGNOSTIC PROGRAM
! 12
CL 65 THROUGH 80 eFs;:c oe633Po-o
1
FCT MJCPO-CDDE LOADER PROGRAM
I·
961 .CL CL 81 TtfRDUGH
l
OBJECT CARD LISTING 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64
iI !.
I YEL& 9/089300021
T~T ·· &DA &DA 5(X
&F-0 l.J&8HCMAINH
· ·
I 0
.
863" 00 89300022~ ~T+T~F&DA &DA o·s
· ·
I 0
.
.. - ....··...·. ' 0 - 5 SM 8BY8~30002~ : T+T A&OA &DA &DA
·:< ·D<893D0024
T+T_e
................
.·....·.··...
R6M
..............·.
...·.....·......
.. . . . . . . . . . . . . . .
0
8G 8 Ll089300025
T+' 7( t4@B*H8+7W 4 Q25 RK· RXAX F
·- 8 HAAC >A I 6X e; )e0FXW:4AZ:P2/CK
PART NO·
PAGE
CL 65 THROUGH 80
·
&<IOl<N 8XPN8SP
CL 81 THROUGH 96
.. .. - 06M ~'089300043
D&D ·D08930C044
.. . . . . . . . . . . . D CC.
· · · 02x. E+w:e LH+ > M8 LQ869300047
T+SPB LOOIA05 KO T+SP1 e3ZXOH·BF-· T+S08BBR<OH·#;L6 T+SR30H$8&& T+SE>t·.J 0;1 4·s T+SSZ&OA &DA &OA T+S·U&OA &<f 06*N T+S )-.9 ( LP&OA &DA TBB)Y&OA &OA &DA T+TT35<ts&<loo·L T+TU>5"-,RO)J &DA T+TVZt;t O)PD&CX T+TWUO)PD&+.es;.
Wl&HY164I C2-&& ?+ZS /OHSS:HO BR
ee-c - c &
Al<PR&<LE9·XC1·1 C8GRIOCl1DCieuc 2;1 5)ST&(IA6·~ &DA &DA &DA &<P
15·) l)XR5_XAe=I 8XPL1·,T&CSPeax
EeXPT8&XN14CHOll E&<tcs;IR5_( 8>1
l&MW&< At-ue SR -T UClPOH*BHYW
VE<PteaTE6MCCO)X
N5>( 1Xl7&DA &DA E&<PN5>LG2DCS1;( teiTE6MCN5UCE5·.J
A0ilTM1lPT&<IH1*1 05MCB:OCP9+IT2)P T1Xl7&DCM2·fRSWC
EOH*BG/ OH·T&34B IUC2-JY
0&( XEO*LE6MC06MC 2;t 5>LT&CSF&CS &DA &DA &DA ~DA l<E 8>SI88f~&IC oeGRIOC06MCP6)$
K&<SC'4A 5<XC6~R
G&+~x&+PA4=LE&<X
C5XLE&<.E2tPG&CI
DF-EQ+?P /2K·OH* BF-0 03089300026 < KQHL;Q+ KQHIUO + KO 31<89300027 ·OH·BF-0.J+(~ /OH ss;< 85089300028 F2) IEMLUB>< OXN 9+H ;HM8~300029 Rl<PR&DA &CA &DA EO 41·89300030
&DA &OA &CA &DA &O ORQ89300031 4&+St4·( taxvtMC A&<& 31889300032 G6·GM&+I05UCL5_P G&D s:ee9300033
.J&<89300034
-O·SD1MC1.5"G01)V s·u ·8089300035
NS·R l<GTOMCS9XX T08- 09&8930003~ OO*LEllC!&FA 4·$ A10 60869300037
8XM lH-89300038
T+Tt2Z:OAW4:> R>
0 -· . T+TO_/OHE K a&+B
6)
T+TlY
0
T+T2T&<IOO·LEi(X
C)
T+T3: C3;C&0&7T3
0
T+T4ROAD K l<CD
0
T+TSM/CLB L6N(
0
·T+T6llOSK &GS -G TAC6M/O
G
T+U8-.IRLPO;tc2oc
()
TBU8D6@GX9=,x&+...
0
T+X :nn·nttnn·nn·
0
Cl · A GH*BG /YPO-D <H
..............
<B ElXPR&+!O&+.EO=I P@YENOH·BG-oa:c3
DA <TDOUCOmFG
F5_XMO;C l)XR5_x
............
X9=· -nnnnn·nnnnnnnnn·
. . ;Lt48 Py· l'OHE & - ·.....·...·..
B C 10 OH·B~U
A a
G /VAELl?OH·BF-Q ti U /OHSSEL /OH
t5_N =l>«l&<XF&<P R6)SR8UCW1)XE&<P
40~*BG-r~q3~lOH·
SH 9
eF"QAl&Kl9<BG
O&MAC2<PXPMCN5>C :·P~5U + L3Yf +Y
................ ..·.............
T2<N l_SL4·SW2lP G&C~A88fHi;1 9XP
...·..·.··....·. ................
················ ················
S s-FSY8BG /8C.
05<XC6SR-o·sotMC
NO·sus;IE6·PO( -
19<BGIOD
H
+ C2UIA3 ,0 0-D
· cs& ex toe· a
.. . . . . . . . . . . . . . .
.RlMCAl<LEl<GOICV
·....······....
nwnnnnnnnff·n····
..... ·:<89300049
N5>< ·OH89300050
.....·EC O~MB9300051 71H893000!52
ve~H 1KQ89300053
+
"ZDB93000!54
K.fU89300056 l<O P:·993000!57
L -893000!58
n··e L0489300059
T+Tx~s;.E&<tos;t
OlPD&(~R2)PT&<S C 1 4A o·sN8 1 X044C 58 1 Q :0889300039
T +T ZN 2 ( SP5 &:PR E4C
i<GTOMCD1*1 K&<S Rl:eE84CHO)IT&+f
C0 4CF5_Y &CA &OC
M2·IR5WCL5XGD1lY
e
T&<LA8ZE B>SIBal
2;! 2)N 5"Xl5<G
H&+IO&f CS&FA a·x
"H&89300040
T+XC·"""""""""""
1
10
r&+< 30&893000411 _ T07C"·n·ntt""""""
.. """"""' '""""""""
M·t1tUt·ff1$tltHl9CNllftlt
.··.....·......·
T+TD&5UCR1 't IOO·.J
··
Cl)
!!<XC6) SC5XLEt_X 05CCC5_XEE4C088T e6;s1exN exPcemx 05MCTl)XM2)PA8mP S&O JI 88930004 21
=· E ..... ·E7·=~oc·PHS
1 7M&F I
t
c
FX ASC R A SO Q
()-------------------------------:-------------~ LAST PAGE
o.-TE
26JUN75
EC 1110. 825023
PROG 10 PAGE
OEC 0893-0: 12 '.
DATE
26JUN75
NO. 82!5023
·
···e PQM8~~~0062
c&eec;300063
0932060873C 626753.&$9300064
PROG ID PAGE
0893-0 12A
ec;.·
················· ················
IBM MAINTENA~CE DIAGNOSTIC PROGRAM
8943 DA FUNCTIONAL TESTS
ERR LOC OBJECT CODE
ADOR. STMT SOURCE STATEMENT
OAOO
OAOO 8943 OA02 00 OA03 00 OA04 0000 OA06 OAOD OAOB FFFF OAOA 895000
OAOl OA02 OA03 OA05 OA07 OA09 OAOC
0058 005D 0058 0001 0002 0008 OOOlt OOAO 0222 · 021A 021E 0212 ooac 008A 0089 008B 008A 008A 0002
ooco
0088 0088 0058 0008 0010 0020 0208 020A 0208 020C OZOD 0216 022A 0040 0080 0040 0020 0010 0008 0004 0080 004::1 0020 0010 0008 0004 0002 0001 0080 0001 C004 0020 OOltO oooc 0010
2
DECK 4-
3 4
wxvx
SEQ 0
STAltT X'OA00 1
5
TREP
6
DC
Xl2'8943·
7
DC XLl ·o·
8 PRTN DC
9
DC
nz Xll 1 0 1 1 0·
10
DC Al2 l R.TNOU
11
DC Xl2' FFFF1
12.. LINES DC XL3'8950001
13
13
14 NOTROY EQU x·ss·
15 ATTCHK EQU XI 50 1
16 SIOI EQU )[ '58 I
17 XRl EQU 1
18 XR2 19 ARR
EQU 2
eou s
20 PSR EOU It
21 IAR2 EQU x·Ao·
22 HALT EOU x·22z·
23 PRINT EQU X1 21A'
24 UNPACK EQU x·21E·
25 TEST EOU x·212·
26 CAR t:QU x·ac·
27 TAR 28 SAR
EQU X1 8A'
EQU x·a9·
29 STATUS EOU x·se·
30 BUSY EQU X1 SA·
31 XMITR EQU X1 8A'
32 ENINTR EQU x·o2c
33 ENABLE EQU 34 CNTRL EQU 35 NORDUC EQU 36 CTRSTG EQU
x·co· x·ea· xx··ssss··
37 OPT3 EQU x·os·
38 OPTlt EQU x· 10·
39 OPTS EQU x·20·
40 SB VTEO EQU x·208·
41 SBVTE2 EQU X1 20A'
42 SBYTE3 EQU x· 208'
43 SBVTE4 EQU x· 2oc ·
It-'+ SBVTE5 EQU x·200·
45 LINK EQU X1 216 1
lt6 LOAD EQU X1 22A·
47 SSWOl EQU X1 40'
48 SSWlO EQU x·so·
49 SSWll EQU X1 40 1
50 SSW12 EQU x·20·
51 SS!otl3 EQU x·10·
52 SSW14 EOU x· 08'
53 SSW15 EQU X'04 1
54 SSW20 EQU x·90·
55 ssw21 EQU X'40' 56 ssw22 EQU x· 20·
57 SSW23 EQU x·1c,·
58 SSW24 EQU X'08'
59 SSW25 EQU X' Olt'
60 SSW26 EQU x· 02 1
61 SSW27 EOU x·o1·
62 SSW28 EQU x·ao·
63 SSW2F EQU X'Ol' 64 UNX EQU X'04 1
65 RVIS EQU X1 20 1
66 EOTC EQU X1 401
67 UNK EQU x·oc·
68 INCOR EQU X1 10'
DATE 26JUN75 EC NO. 825023
250CT75 825032
15JAN76 825034
14MAY76 825035
PART NO. PAGE
s
E
c
T I
0
N
p
R E F A
c
E
TIO NOT READY TIO ATTACH CHECK SID IMMEDIATE
SSW 10-17 SSW 18-lF SSW 20-27 SSW 28-2F
PROG ID PAGE
I
c ·234259'. l j
IBM MAINTENANCE DIAGNOSTIC PROGRAM
i 8943 DA FUNCTIONAL TESTS
! ,_i
{''"
.ERR
LDC
OSJEC T
CODE
AD?R STMT SOURCE STATEMENT
PART NO.,; 42342'59
PAGE
1A
10
!o
I
11I n-
1
0
G
c
iO
lo
l
10
I
l()
0
I
io
I
I()
I
OAOO ~l
' o OACE 00 OAOF oces
(_:
OAll 3D 00 260E OA15 F2 01 16
0Al8 38 40 0208
c
OAlC F2 10 07 OAlF 38 ltO OZOA
OA23 F2 90 08
OA26 3C FF 3099
OA2A 3C 00 2629
OA2E 30 00 3099
OA32 F2 81 08
OA35 3C 00 2629
OA39 3C 00 3099
0
OA30 30 00 2629 OV.l F2 81 13
0013
0002 OOOA 0008 0008
oooq
0001 0003
0005
0006 0007 OOllt 0015 0016 0017 0018 Ol'OF
OAOO
OAOE
OAlO
69 ACCIN EQU x·13·
70 BUSE EQU· x·o2·
71 ATNR EQU 72 WACKE EQU 73 DATER EQU 74 OEVHB EQIJ
x·oA·
X'OB'
x 1 08'
x· 09·
75 UNITCH EQU x·o1·
76 INPN EQU x·o3·
77 ATTCH EQU x·os· 78 ITBE EQU X1 06'
79 NOINT EOU x·o1·
80 NOEOT EQU X1 141
81 BOST EQU 82 MPINT EQU 83 HPCS EQU 84 RNST EQU
as MNL EQU
x·15· X1 16 1 x·11· x·1e 1
x·oF'
86
86
86
87 ·
88 SQ
· *
90 ·
91 ·
92 ·
SSW 10 ON = SELECT DEVICES FROM SWITCHES
SSW SSW
11 12
OONN==
DO ROUTINE HOLD TEST
01 COMPLETELY ON SYSTEM PATTERN INDEFINITELY
RESET/START
SSW 13 ON = SEL PEN, BUT NO V.EVBOARD
SSW 14 ON = NO KEYBOARD OR SELECTOR PEN
SSW 15 ON = GET SINGLE CHAR. FOR ROUTINE 4 FROM CONSOLE SWITCHES
93 ·
94 *
95 96
* *
97 ·
98 * 99 ·
100 ·
101 ·
102 ·
103 ·
104 ·
105
SSW 20 ON = 00 ONLY SELECTED TEST PATTERNS AS DETERMINED BV SSW
21 THRU 26 AS FOLLOWS:
SSW SSW
21 22
ON ON
= =
00 DO
TEST TEST
PATTERN PATTERN
1 2
IF IF
SSW SSW
20 20
IS IS
ON ON
SSW SSW
23 24
ON ON
= =
DO DO
TEST TEST
PATTERN 3 PATTE.RN 4
IF IF
SSW SSW
20 ZO
IS IS
ON ON
SSW 25 ON e DO TEST PATTERN 5 IF SSW 20 IS ON
SSW 26 ON = DO TEST PATTERN 6 IF SSW 20 IS ON
SSW 27 ON == SKIP FULL BUFFER PRINT OUT ·rN RTN 03, 04
SSW 28 ON · ON A MODEL 4 ONLV, DEVICE 40 IS NOT A MODEL l 3277
WITH NO KEYBOARD (CONSOLE).
110067
108 109 110 111
****·*······CD~ERTOHC·OETE·NVURE·FTIOECI·IGNE·UESAD·RNE·EO0VA·D1IR·ECA·ESNO·E~SRA·R~V·VES·IASREE·IJSLL·NEAT·GCHAB·TEL·NEADE·DU··PAP·ORLD·IAL·ENNP·LVTU·.IECF·RDEF·PSA·OOH·SULAA·ETRL·I.STE·TF·OTD·PRHOO·UEFL·RNTL·INHEA·GDEO·l·ClCT·TCEOHC·UEO·R·STNSE·EFF.EJ·LIGR·LUSI·INRTF·FG·.DTP·HA·WE·OSHY·RSIC·,H·SA·AER·ELl·l-····****
112 113 114
* * *
ON All SUCEEOING PASSES, ROUTINE 01 UPDATES THE SELECTED DEVICE TO THE NEXT AVAILABLE DEIVCE Till All DEVICES ARE DONE. THE SECTION IS THEN TERMINATED.
·
· *
1165 *****·*******************····························~·················
117 RTNOl DC xu·o1·
118
DC Xll 1 00·
119
DC Al2fRTN02)
120
NEXT ROUTINE
121 START Cll
122
JNE
123
TBN
124
JT
125
TBN
126
JF
127 l.OOPRl 14\11
128
MVI
129 TSSWFL Cll
130
JE
131
MVI
132
fllVI
133 OK
CU
134
JE
RESTFL ,o TS SW Fl sevrEo.sswo1 lOOPRl
Se YTE2e SSWJ l TS SW FL SSltfFL,X 1 FF·· PASSl,O SSWFL,O OK
PASSl,O SSWFL,O PASSltO !NIT
TEST FOR PGM LOOPING JUMP IF SO TEST LOOPING RTN 01 JUMP IF SO IS SSW 11 ON JUMP IF NOT INDICATE SSW 11 WAS SET RESET PASS 1 FLAG
WAS SSW 11 OFF LAST TIME THRU7 JUMP IF SO
SSW 11 WAS ON LAST TIME THRU RESET THE FLAG TEST FOR IST PASS JUMP IF lST PASS
0894-3: C:oATE
i I EC ·NO.
I
I
C'~
10
I
!Q
I
io
1-·---
26JUN75 825023
250CT75
825032
15JAN76 825034
14MAY76 825035
PROG ID
PAGE
0894-3 lA
·
·
·
I
I
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PAR; NOc PAGE
I
42342591
z I
IBM MAINTEN~NCE DIAGNOSTIC PROGRAM
I. 8943 DA FUNCTIONAL TESTS
8943 DA FUNCTIONAL TESTS
ERR LDC OBJECT CODE
AOOR STMT SOURCE STATEMENT
ERR LOC OBJECT CODE
AOOR STMT SOURCE STATEMENT
OA44 30 00 260E 0 A48 CO 01 OCAl OA4C 38 80 020A OA50 F2 10 04 OA53 CO 87 OClE OA57 38 01 OAOC OA5B CO 90 JA71 OASF OC 01 2EEA 4181 OA65 OC 01 2E04 4183 OA68 OC 00 4173 4181 OA71 F3 5& 80 OA74 F3 58 CO OA77 30 58 2H9 OA7B OD 01 2FF9 2663 OA8i CO 01 OCAO OASS 3C 02 2612 OA89 3C F9 2611 OA8D 30 58 2FF9 OA9l Cl SD OCAO OA95 OE 01 2612 2620
OA9B CO 20 OA8D
OA9f CO 87 19F9 OAA3 CO 87 021A OAA7 01 OAA8 22 OAA9 2680
OU6 3C 01 2607 OAAF OC 01 7.605 265F OABS 3C 00 260F OAB9 0C 01 1960 2609
135
CLI RESTFL,O
136
BNE PRlMG
137
TBN SBYTE2t SS~lO
138 139 140 I NIT 141 142
143 144
145 NOKAT 146
147 146 149
150 151
152 MI CLP
153 154 155
JT
s
TBN BF MVC
MVC
MVC
SIO
SIO SNS CLC BNE
KVI
HVI SNS
TIO
ALC 8NOL
INIT
RlOUT U NES,X'Ol 1
NOKAT RI?Oll21,KATD1 RI PDT-22 (2 >,KATD2 EXRIPE-3ll),KATD1
X' 80', S IO I x· co· 9s 101 WORK,SIOI WORK ( 2), X7200
MICNL
SCNT ,x· 02'
BCNT-l,X'F9 1
WORK,S IOI MICNL,ATTC'"IK 8CNTl 2) I ONE MI CLP
OAA7
OAA8 OAAA
156 157
158 159 160 161 162 163 164 165
B
SETUP
B
PRINT
DC
Xll '01'
DC IL l' 34'
DC
ALZlHEAOlAJ
MVI LI NE,X'Ol'
MVC CURDEVl2J,STDEV
~VI DONE,O
MVC RINXR2+3(2J,INXR2
166 OAC3 167
USING CL SET, XRl
TEST FOR PGM LOOP IF SO, GO TO NEXT DEVICE GET DEVICES FROM SWITCHES? JUMP IF SO GO RE I NITIALl ZE IS KATAKANA FEATURE IhSTALLED? BRA"lCH If NOT MODIFY RIPPLE DATA FOR KATAKANA
DISABLE ENABLE ATTACHMENT SENSE lST WORD OF CNTRL STG TEST FOR CORRECT VALUE ERROR IF NOT EQUAL SET UP COUNT ER
SENSE CNTRl STG CHECK FOR ATT ACHl'IENT CHECK INCREMENT COUNTER LOOP TIL FINISHED
GO DO INITIAL SETUP GO PRINT HEADING
INITIALIZE
SET UP XR2 START ADDRESS
OB2F 3058
0631 co 87 02lA
0035 06
0830 203 204
0635 205
DC AlZCSETMGlt
B
PRINT
DC XLl' 06'
I
I
0836 Z2 0637 307D
OB 39 3C 00 2629 0830 OF 03 2600 2600
0843 3C FO OB4C 0847 CO B7 0222 0848 B9FO
0840 30 00 ZFFC 0851 38 FF 2FFC
0855 F2 10 9E 06!>8 39 20 2FFC OBSC 38 40 2FFC
0836 0838
OB4C
206
DC
207
DC
206
MVI
209
SlC
2Hi SETFO MVI
211 DEVHLT B
212 OEVHC DC
213
SNS
214
TSN
215
JT
216
T8F
217
TBN
IL l' 34 1 ALZ(SETMG2)
PASSl ,o
ONFLGl4),0NFLG
DEVHC,X 1 F0'
HALT XLZ 189F0 1 TCOUNT,x·oo· TCOUNT,X'FF'
DONXT TCOUNTtX'20' TCtlJNT,X 1 40'
l I
0860 F2 90 87 OB63 OC 00 2ff9 2FFC
OB69 38 FO 2FF9
I
0860 3C 01 2FF8
I
0871 3C 07 OBA3 0875 39 SF ZFFC
\
0679 f2 10 18
I
087C 38 BO 2FFC
I
0680 3D 09 2FF9
I
0884 F2 10 06
OB87 F2 04 60
\
I
06BA F2 87 OA 068D F2 84 5A
I
I
i
0890 39 OF 2FFC
OB94 ;:2 10 53 C.B97 36 FB 2FF9
218
219 220
221 222 223 224 225 226
227
22B
229 230 CORD
231 232 233 DOK
JF MVC SBF MVl HVI TBF
JT TBN
CLI JT JNH
J
JH TBF
JT ·5pf
INV WORKll),TCOUNT WORK1X 1 FO' WORK-ltl TADD+l,7 TCOUNT1X'8F'
DOK TCOUNT,x·so· WORK,9 CORD
INV DOK INV TCOUNT,X 1 0F 1
INV WORK,X 1 F8 1
i \
I
0898 38 5E 2FFC OB9f FZ 10 48
234
235
TBN TCOUNT,X 1 5E'
:'.36
JT
INV
OABF C2 01 OAC3 OAC3 5F 03 5B SB OAC7 7C lC 58 OACA OF 03 2600 2600 0 ADO 3C EO 260A OA04 5C 01 22 50 OAD8 7C 08 lF UAU8 5C 00 20 lF OADF 7C 38 lF
OAE2 38 00 0000 OAE6 F2 90 05 OAE9 lE 03 2600 5B OAEE 5E 03 58 58 OAf 2 5E 03 58 58 OAF6 5E 03 56 55 OAFA 78 EO 58 OAFO f2 10 21 0600 7C 02 lF 0803 SE 01 20 20
0807 co 20 0803
0808 78 80 20 OBOE CO 90 OADB OB12 4E 01 22 2620 0817 CO 87 OADF
OBlB 00000000 OBlF 0A06
0821 3B 80 020A 0625 CO 90 0BF6
0829 co 87 02 lA 0820 01
168
LA
169 CL SET SLC
170
HVI
l 71
SLC
172
HVI
173
MVC
17'·
MVI
175 NEXT MVC
176 SETT8N MV I
CLSET,XRl
SET(4,XRl) 1 SETt,XR1) CLEAR THE SET AREA
SETt,XRll,X'lC'
SET lST 3 BITS USED
ONFLG(4) 1 0NFLG
CLEAR THE ON FLAGS
ONFLG-3,X'EO'
FORCE HI 3 BITS ON
TLIN+312 1 XRl),CONS(,XRll INITIALIZE AOJR I~ TBN INSTR.
TLINlrXRll,X'08'
SET UP THE STARTING TEST BIT
TLIN+llltXRll,TLINl,XRl) MOVE TEST BIT TO IMMEO. BYTE
TL1NlrXRlltX'3B'
FORCE TBN OP
177 178 TUN
179 180 181 UP~
ld2 183
184 185 186 187 SHIFT
TBN JF ALC
ALC
ALC AlC TBN JT MVI ALC
·U-P*l ··-·
ONFLG,SETl4,XRl)
TEST LINE INSTALLED SET ON FLAGS If INSTALLED
SET(4,XRll,SETl,XRll SHIFT LINES LEFT 3 BITS
SETl4,XRll ,SETI ,XRU
SETl4,XRll1SETl1XRll
SET-3l,XR1J,X'E0'
ARE WE DONE YET
TSSW TLINl,XRlltX 4 J2'
JUMP IF SO Pl~G IN SHIFT STOPPER
TLIN+ll2tXRll,TLIN+l(,XRlJ SHIFf LINE RIGHT ONE BIT
188 189
BNOL SHIFT T6N TLIN+l(,XRlltX'80'
OIO WE JUST GO TO NEXT BYTE
190 191 192
BF NEXT
ALC TLlN+3(21XRlltONE
B
SETTBN
INCREMENT THE TEST ADD~ GO SET TBN
~ 93
081E 194 SET DC OBZO 195 CONS DC
XL4 1 0 1 ALZlLINES-1 \
SET BIT MASK ADDR OF OPTION BtTS
196
197 TSSW T8N SBYTE2,SSW10
198
BF DONXT
TEST DEVICES SELECTED BY SSW JUMP IF NOT
199
200 GETDEV B
0820 201
DC
PRINT Xll'Ol'
PRINT MESSAGE
l
I
(
( ___ .
i I l
Ii (_,·,
I
I
t
I IC
OBA2 30 00 2FF9
08A6 FZ Bl 10 OBA9 OF 00 OBA3 2620
OBAF OE 00 zi:;:a £FF B
OBBS CO 87 OBA2 OBB9 C2 01 260A OBBD 38 10 2FFC
OBCl f2 90 03 OBC4 02 01 02 OBC7 38 08 2FFC OBCB F2 90 03
08CE 02 01 01 OBD l OC 00 OBD6 2FF B
0607 7A 00 00 OBDA 38 01 OB4C OBOE CO 10 0643 08E2 3C Fl 084C OBE6 CO 87 0847 OBEA CO 67 021A OBEE 06 OBEF IA OBFO 3097
OBF2 CO 87 OB47
OBF6 CO 87 1959 OBFA 30 00 260F 08FE f2 01 lD
oOcCoOsl
CO 38
87 10
ll:39 2b58
OC09 F2 10 82
OCOC OC 01 2BOF 25Cf
OC12 GO 87 OZlA
OC16 02
237 TADD 238
239
240
241 242 FND 243
244 245 246 NOTD5 247
248 249 NOT8f 250 SETFL
251 252 253 254 2!'5 I NV
(.'.I JE SLC ALC
B LA TBN JF
LA
TBN
Jf
LA MVC
SBN
TBN
BT MVI B a
OBEE 256 OBEF 257 OBfl 258
DC
DC DC
259
8
260
261 DONXT 8
262
CLI
263
JNE
264
265 POLLl B
266
TBN
267
JT
268 AVAIL MVC
269
B
OC16 270
DC
WORK·*-*
FNO TAOD+l( U, ONE WORK-lll),WORK-1 TADD ONFLG-3,XRl TCOUNT,X 1 10 1 NOTD5 2(,XRll1XRl TCOUNT,X 1 08'
NOT8f
lltXRl>1XRl SETFL+l(ll,WORK-1
Ol,XRl),·-*
DEVHC.,X'Ol' SETFO DEVHC,X'fl' DEVHLT PRINT Xll' 061 IL l '26 1 AL2 l INVMG)
OEVHLT
UPDATE DONE ,o RlOUT
oOPOL POLfLG1X'lO' CHKST DEVMG(211DEVICE PRINT
XLl ·oz·
OB2E 4E
082E 202
DC
IL1'78'
1(
DATE 26JUN75 EC NO. 825023
250CT15 825032
l5JAN76 825034
14HAY7f
82503~
PROG ID
Pt.GE
0894-3l '-· DATE
2
EC NO.
\o
26JUN75 825023
250C T75 825032
15JAN76 825034
14MAV76 825035
PART hO. PAGC
423~259
ZA
SET PASS l !NOICAl ION
RESET ALL ON FLAGS
SET FOR HALT FO
HALT TO SET SW ITCHES
HALT FO/fl READ THE CONSOLE SWITCHES
TEST FOR END OF LIST
OUT IF SO BIT 2 MUST SE Off
BIT l HUST BE ON
INVALID If NOT MOVE ADDRESS TO WORK
SET HI BITS OFF INIT IALIH POINTE, TO l
START TEST AT 7 TEST FOR 40 OR 50
OKAY TEST
IF SO DEVICE
HI
BITS
= C OR
0
TEST LO BITS OVER 9
JUMP IF HI BITS = C OR 0
JUMP If LO BITS NOT OVER 9
ERkOR If LO BITS OVER 9
TEST LO BITS C IN VA LI 0 IF SO SET HI BITS Off
TEST DEVICE 5E OR ~F
INVALID IF SO
TEST 3 BITS IN WORK
JUMP IF EQUAL
CHANGE COMPARE BYTE
SHIFT BIT LEFT l
LOOP GET ADDRESS Of ON fLGS
TEST BIT 3 ON JUMP IF HI BITS = 4 U~ C
INCREMENT BYTE POHl f[R
TEST JUMP
BIT 4 IF LO
ON BITS
=
o-r
SET HASK SET BIT IN ON FLAGS
TEST HALT Fl IF SO CHANGE TO HALT FO
CHANGE TO HALT Fl GO GET NEXT ENTRY PRINT lNVLAID DEVICE
GO HALT AGAIN FOR NEXT
GO SET UP FOR DEVICE TO BE POLLED TEST All DONE EXIT IF DONE
GO POLL THE DEVICE WAS STATUS RECEIVED? GO CHECK IF SO PUT DEVICE IN PRlNTOUT
PROG IO PAGE
I ,
I (J
I
!O
·
·
·
·
·
·
·
·
·
·
·
·
·
·
I
0
I
e 1 ~e
·
·
·
·
·
···
·
·
·
·
·
·
·
·
· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·
IBM MAINTENANCE DIAGNOSTIC PROGRAM 8943 DA FUNCTIONAL TESTS
PART NO.
PAGE
i
4234259' IBM MAINTENANCE DIAGNOSTIC PROGRAH
3 II "r",-.,
8943 DA FUNCTIONAL TESTS
PART Nil. 4234259
PAGE
3A
ERR LDC OBJECT CODE
AODR STMT SOURCE STATEMENT
r '.. ERR LOC OBJECT CODE
ADDR STMT SOURCE STATEMENT
ocn u
OC18 2819
OC lA CO 87 08F6
OCIE OC 01 2605 2~5F 0C24 3C 01 2607 OC28 DC 01 1960 2609 OC2E 3C 00 260F OC32 30 00 2629 OC36 3C FF 2629 OC3A F2 01 37
OC30 CO 87 02~A OC41 41
OC42 56
OC43 2C5A OC45 89FF OC47 CO 87 021A OC48 01 OC4C SO OC4D 2CAA OC4F CO 87 021A OC53 01 OC54 47 OC55 2CF1 OC57 CO 87 021A OC58 06 OCSC 4F OC50 2040 OC5F 38 40 0208 OC63 f2 90 04 0C66 CO 87 0216 OC6A CO 81 0222 OC6E 89!=F OC 70 38 CO 020A
OC74 CO 87 1959 OC78 3C 00 260E OC7C 30 00 260F OCBO CO 81 0216 OC84 CO 87 021A OC88 16 OC89 CO 87 022A OCBD 00
OC8E ~9 12 2658 OC92 CO 10 OCOC OC96 89 00 00 OC99 CO 87 1027 OC9D CO 87 OBF6 OCAl CO 87 021A OCA5 01 OCA6 16 OCA7 26C6 OCA9 CO 87 OC74
OCAO 3C CF 262A OCBl CO 87 22A7
OC17 0Cl9
OCltl
OC42 OC44 OC46 OC48 OCltC OC4E OC53 OC54 OC56 OC58
ocsc
OCSE
OC6F
OC88 OC8D
OCA5 OCA6 OCA8
271
DC
Ill 119'
272
DC AL2CAVALMG)
(':
273
274
8
DONXT
275
GO DO NEXT DEVICE
276 RlOUT MVC CUROEVl2J,STDEV
REINITIALIZE
277
Miii UNE,x 1 01 ·
278
MVC RI 1'1XR2+3 (2), INXR2
SET UP XR2 START ADDRESS
279
HVI OONe.o
280
Cll PASSleO
IS IT THE lST PASS?
281
HVI PASSltX 1 FF-
SET PASS l Cm4PLETED FLAG
282
JNE SKIPl
JUMP IF NOT lST PASS
283
284
8
PRINT
285
DC XL1'41 1
PRINT MESSAGE & HALT
2 86
DC IL 1 '86 '
287
DC AL2CRT1MG1J
288
DC XL2 1 89FF 1
289
B
PRINT
290
DC
Xll 1 01 1
I ..
: \ ..
291
DC ILt·ao·
292
DC
AL2CRT1MG21
293
8
PRINT
294
DC XL1 1 01 1
295
DC IL1'71'
296
DC Al2CRT1MG3J
297
8
PRINT
I
298
DC
XL l '06 1
I r-.
299
DC
Ill 179 1
i I·.
300
DC AL2CRT1MGJ
301
TBN SBYTEO,SSWOl
302
JF RTlHLT
TEST LOOP ROUTINE SSW ON HALT IF NOT
c j
I
303
B
304 RT lHL T B
305
DC
306
SBF
301
308 SKIPl B
30'11
MVI
310
CLI
311
BE
312 TERM 8
LINK HALT XL2 '89FF· SBYTE2,ssw1o+ssw11
UPDATE RESTFL,o DONE10 LINK PRINT
NO HALT IF SSW 01 IS ON HALT ******FF******
RESET SSW 10 AND 11
STEP TO NEXT DEVICE RESET PGM LOOP FLAG ARE WE DONE? GO TD ROUT. 2 IF NOT GO SPACE
II (. ,·_
III (~).
I c
I
313
DC
314
8
315
DC
331167 Cttii.ST TBF
XL 11 16' LOAD XL1 1 00· POL ST ,x· 12 1
TERMINATE THIS PGM.; ARE. IR AND CC OFF IN STATU!'
I c-.'·)
I I
I O',
318 319 SF1
BT AVAIL saF oc,xR2J.·-·
SET AVAILABLE IF SO RESET THE~ en FDR THIS DEVICE
! r·
320
8
FORHA T
GO PRINT STATUS
I '<.)
321
8
:~; PRlMG ~
DONXT
:~!~~l'
GLGO TO NEXT DEVICE PRINT HEADING
j
i C·
324
DC
Ill 122 I
I
332256
BDC
321
328 MICNL MVI
329
B
ASKLI2CPHl EAD181 ERR.MNL ERROR
I ',:-.·\
_
SET MICRO CODE NOT LOADED
II ,-_
V
330 ·······································································1
331
332 333 334
* * * *
0 THIS ROUTINE WRIT~S THE DEVICE ADDRESS TO THE DEVICE BUFFER ·j
USING THE ERASE:/ WRITE COMMAND. A READ BUFFER OPERATION IS THEN·'
*I DONE. FROM THE INFORMATION, THUS OBTAINED, A MESSAGE IS PRINT-~
ED TELLING THE DEVICE TYPE tDISPLAY OR PRINTER) ANO THE MODEL. r>i.
335 336 337
* * *
THIS INFORMATION IS USED IN ALL FURTHER ROUTINES. WHEN SEL- · V
ECTING ROUTINES, CARE MUST BE TAKEN TO BE S'JRc ROUTINE 2 HAS -,1
BEEN RUN FOR THAT DEVICE.
~
338 ······································································, (.)
339
OCB5 02 OC86 00
OCB5 340 RTN02 OC
OC86 341
DC
OCB7 0060
OCB8 342
DC
343
OC89 CO 87 021A OCBD 01
344
oceo 345
B DC
OCBE 29 OCBF 26EF
OCBE 341)
occo 347
DC
DC
OCCl CO 87 19F9
34S
B
OCC 5 3C 00 2FFD
349
MVI
OCC9 CO 87 1C9A
350
8
OCCD OC 01 2D6E 25CF
351
MVC
0Cu3 3C 60 3098
352
MVI
OC07 OC 01 37E7 25CF
353
MVC
OCDD 3C Fl 37F4
354
HVI
OCEl OC 06 37FC 380A
355
MVC
356
OCE7 CO 87 1A84
357
B
OCEB 0010
OCEC 358
DC
OCED 431F
OCEE 359
DC
OCEF 2072
OCFO 360
DC
361
OCFl ~ 01 01 263F OCF6 F2 81 34 OCf 9 40 01 01 2639 OCfE F2 81 52
0001 ltO 01 01 2637 0006 F2 01 OC
362
CLC
363
JE
364
CLC
365
JE
366
CLC
367
JNE
OD09 JC 40 Z6ZA GOOD CO 87 Z2A7 OC\U CO 87 lCDB
368
MVI
369
B
370
8
OD15 CO 87 lf05
0019 oc 10 2D83 Zl'72
ODIF DC 01 2085 263F
371
?72 SETIN B
373
~'IC
374
MYC
0025 3C 10 262A
0DZ9 co 87 221.7
375
MVI
376
B
0020 C".> 87 1088
377 378 REA02 8
0031 80 0032 4040
0031 379
DC
0033 380
DC
381
OD34 3D 02 2FFC
382 ·
CU
0038 F2 81 08
383
JE
0038 3A 80 2FFD
384
SBN
003F 3C F2 37F4
385
MVI
0043 co 87 021A
386 HODl 8
0047 03
0047 387
DC
0048 37
0042 388
DC
0049 37FC
004A 389
DC
004 B 3C FF 2660 OD4F CO 87 0216
390
MVI
391
o
0053 3A 40 2FFD
392 SPB SBN
0057 OC 06 37FC 3803
393
HVC
OOSD 3C E8 3098 0061 CO 87 215E 0065 CO 87 1C9A
0069 co 87 0020
394
HVI
395
8
396
B
397
B
XU '02 1
XLl' 01
AL2CRTN03)
PRINT
XL1 1 01 1
lll'H' Al2CHEAD21 SETUP RTNFLG,O SELECT DEYRT2l2),0EVICE NOAJD,X 1 60 1 MODMG1C2) ,DEVICE MOOMG21C'l' MODMG3 (7), DISPLY
GO PRINT HEADING
GO DO INITIAL SETUP RESET ROUTINE FLAGS GO SELECT DEVICE SET UP MESSAGE TO XMIT SET DISPLAY tJO AID CHAR PUT DEVICE IN MESSAGE SET MODEL 1 IN MESSAGE SET DISPLAY IN MESSAGE
DOSIO
Al2(EWRT2-WRTRT21
AL2CXMITEJ AL2CEWRT21
GO DO ERASE WRITE ruT DEVICE ADDRESS ON SCREEN
1 CZ ,XRl) ,ACKl
READ2
1'2, XRll ,WACK SPB 1 C2,XR1 J,EOT SHIN ERR,EOTC ERROR FETCHS
CHECK FOR CORRECT RESPONSE
MAYBE IT WAS A PRINTER IF SO. GO SET PRINTER BIT WAS RfSPONSE EOT? . JUMP If NOT SET ERROR
GO GET THF. STATUS
FILL FF EXPBUF+l6(17),EWRT2 EXP8Uf+l8(2),ACK1 ERR.INCUR
ERROR
GO FILL EXP 8llFF WITH FF SET UP EXP DATA
SET INCORRECT RESPONSE GO TO ERROR ROUTINE
REA08F
xu·90·
XL2 1 40401
GO READ THE BUFFER
EXPECT NULLS CURSOR AT ZERO
TCOJNT ,2 MODI
RTNFLG,X'80'
MDDMG21C·2 1 PRINT
XL1'03' IL1'55 1 AL2CMODMG3J
CONFLG,X 1 Ff' LINK RTNFLG 1X'40' HOOHG3(7) ,PRINTR NOAID,X'E8 1 WAITPB SELECT REA02
TEST TRANSMISSION COUNT IS MOD l IF COUNT WAS 2 SET MODEL 2 FLAG ON SET MODEL 2 IN MESSAGE GO PRINT MESSAGE
SET CONFIG FLAG FOR THIS DEwICE GO TO NEXT ROUTINE SET PRINTE~ FLAG ON ·SET PRINTtR IN HESSAGE SET PRINTER NO AID CHAR WAIT FOR &LISY TO DROP GO RESELECT THE PRINTER GO READ THE BUFFER
339998 ·*······T·H··IS··R·O·U··TI·N·E··W··R·IT·E·S··A··R·I·P·P·L·E··P·A·T·T·E·R·N··T·O··T·H·E··B··U·F·F·E·R·. ··T·H··IS···D·A·TA····
400 401 402
· *
*
IS WRITTEN ONLY 80 CHARACTERS AT A TIHE SO THAT THE BUFFER ADDRESS DURING CHAINED OPERATIONS IS CHECKED·
· *
A READ BUFFER COMMAND JS USED TO CHECK THE CONTENTS OF THE
·
403 ·
BUFFER AFT ER IT IS FI LL ED.
·
OD6D 03
4045 ·······································································
006D 406 RTN03 DC
XLl 1 03'
START OF ROUTINE 03
DATE 26JUN75 EC NO. 825023
25DCT75 825032
15JAN76 825034
14"AY7' 825035
l
PROG ID P4GE
0 0894-3: DATE
3
EC NO.
lo
I .
10
f
j0
le
26JUN75 825023
250CT75
825032
15JAN76 825034
14MAY76 825035
--------------- ----~-----
PROG ID PAGE
089-\-3
3A
I
·
i
IBM MAINTENANCE DIAGNOSTIC PROGRAM 8943 DA FUNCTIONAL TESTS
PART NO. PAGE
,cI
0:.2342591 4 1
ISM MAINTENANCE DIAGNOSTIC PROGR~~
PART N~..
PAGt:
4234259 it A
ERR LDC OBJECT CODE
ADOR STMT SOURC~ STATEMENT
8943 DA FUNCTIONAL TESTS
!I ("· ERR lOC OBJECT CODE
AODR STMT SOURCE STATEMENT
OD6E 00 006F 0El5
0071 co 87 021A 0075 01 0076 19 0077 2708
0079 co 87 l9F9
0070 co 87 lC9A 0081 oc 01 30AB 25Cf 0087 OC 3F 30EF 2EEA
0080 3C 40 3090 0091 3C F5 3l'9C
0095 oc 11 2EAA 30AF
0096 3C 61 2FF8 009F 3~ 01 2FFC
ODA3 CO 87 lAB4 OOA.7 0056 ODA9 431F OOAB 30FO
OOAO CO 87 211C
ODBl 30 70 2FFB ODBS 3C 61 2FFB 0089 F2 81 04 ODBC 3C 70 2FFB ODCO 3C Fl 309C ODC4 30 40 3090
ooce F2 01 31
ODCB 38 80 2FFO
OOCF F2 10 OA
0002 30 05 2FFC 0006 F2 81 OA 0009 F2 87 16
ODDC 30 17 2FFC ODEO F2 01 OF OOE3 3C C2 3090 OOE7 36 01 020C ODES F2 10 04 ODEE 3C 7A 3090 ODFZ OE 00 2FFC 2620 ODFB CO 87 ODA3
OOFC 38 40 2FFD
OEOO F2 90 07
OE03 CO 87 1C9A OE07 F2 87 00
OEOA CO 87 lDBS
OEOE 40 OEOF 4040
OEll CO 87 0216
OE15 04 OE 1.6 00 0El7 0E86
OE 19 CO 87 021A OElD 01 OElE lE
006E 0070 0075 0076 0078
ODA8 CDAA ODAC
OEOE OElO
0El5 0El6 OE16 OHO OElE
407
DC XLl ·oo·
408
DC
Al2CRTN04)
I
409
410
B
PRINT
GO PRINT HEADING
I
411
DC
XL l 'Ol 1
t
412
DC Ill'25'
I
413
DC
AL2(HEA03)
I
414
B
SETUP
GO GO HOUSEKEEPING
415
B
SELECT
GO SELECT THE DEVICE
416
MVC DEVRT3-2CZ),OEV!CE INSERT DEVICE
I I
417
418.
419
MVC
MVI MVI
~RTR3R(b4t,RIPDT
RT3CW,X 1 40' RT3CW-l,X 1 F5'
PLliG IN OATt.
INSERT DO NOTHING wee
FORCE CHO TO ERASE WRITE
i I
420
MVC RI PrlO( 18) ,RT3HO
PUT HEADING IN RIPPLE DATA
\
421
HVI ACK1X 1 61'
422
MVl TCOUNT, 1
START WITH ACK l INITIALIZE COUNT TO 1
i
423
I
424 WRTR3A B
425
DC
426
DC
DOS IO
AL21E~RT3-WRTR3)
AL21XMITE)
GO WRITE PATTERN
I
!
l -
427
DC AL2lEWRT3t
428
!
429 430
B
TRESPX
GO TEST RESPONSE FOR CORRECT ACK
431 R3NXT Cll ACK,X 1 70'
TEST FOR ACK 0
432
HVI
~~K,X'61 1
433
JE WA SAO
434
MVI ACKtX 1 70 1
SET ACK l JUMP IF IT WAS ACK 0 FORCE ACK 0
435 WA SAO MVI RT3CW-l, X' Fl 1
CHANGE CHO TO WRITE
436 437
438
439
440
441
442 443 R3M2
Cll Rl3CW.J(' 40 1
JNE R3PTR
TSN RTNFLG,x·so· JT R3HZ
C.ll TC OU NT· 5
JE
R3WPR
J
UP TC NT
CU TCOUNT 123
WERE WE DOING LAST XMIT?
JUMP IF SO
TEST FOR DEVICE ~ MODEL 2
JUMP IF SO
MODEL l~ NEXT TO LAST XMIT? JUMP [F SO MODEL 2~ NEXT TO LAST XMI T1
II -
!I "
444
JNE UPTCNT
445 R3WPR MVI RT3cw,x·cz·
JUfoiP IF NOT FORCE DlFF~ wee FOR Lil.ST xMn
I\ ~.....,
446
TBN S8YTE4,SSW27
447
JT UPTCNT
I , __; TEST FOR SKIPPING FULL BUFFER PRINT If:'~
JUMP IF so
448
MVI RT3CW,X'7A"
449 UPTCNT ALC TCOUNTClt,ONE
SET START P?.INT BIT ON LAST XMIT INCREMENT TRANSMISSION COUNT
l r·
450
B
WRTR3A
GO WRITE NEXT PATTERN
I ~·
451
:
452 R3PTR TBN RTNFLG,X 1 40'
453
JF READ3
TEST FOR DEVICE :: PRINTER
i1 (_;
454
B
455
J
456
457 READ3 B
458
DC
459
DC
SELECT
REA03
READBF Xll'40 1 Xl2'4040'
RESELECT IT GO READ BUFFER
CO READ AND CHECK BUFFER US4= RIPPLE PATTERN CUkSOR IS AT ZERO
1
c I
l,
I I
460
I
461
B
LINK
GO TO NEXT ROUTINE
I
462 *********************************************************~************~ (
*i 463 *
THIS RQITINE WRITES A SINGLE CHARACTER OVER THE ENTIRE SCREEN
* 464 * 465
USING THE REPEAT 10 ADDRESS OPTION. UNLESS THE CHARACTER IS
GOTTEN FROH THE SWITCHES, AN '*' IS USED.
*i· *
~60 **********************·····*************·*·****************************!
467
!
468 RTN04 DC
~Ll'04'
START OF ROUTINE 04
469
DC
Xll 1 00 1
470
DC Al2CRTN05)
!
471
I
472
B
PRINT
GO PRINT HEADING
I -
473
DC
XLl 101 1
474
DC
IL1'30 1
I
I
J \,__,
OElF 2726
OE21 38 04 020A OE25 3C 5C 3812 OE29 F2 90 20
OEZC co 67 021A
OE30 01 OE31 42 OE32 2ACE OE34 CO 87 02lA OE38 06 OE39 30 OE3A 2AFE
OE3C co 87 0222
OE40 89F3
Of42 30 00 2FFC OE46 OC 00 3812 2FFC OE4C CO 87 19F9 OE 50 CO 87 1C9A
OE54 :.c 4A 380E
OE58 38 01 020C
OE5C f 2 90 04 OE5F 3C 40 380E
OE63 CO 81 lA84 OE67 OOOC OE69 431F OE68 3811
OEoO CO 87 2118 OE71 CO 87 lC9A OE75 OC 00 3818 3812
OE7B CO 87 lDBB OEif 20 OESO C75F
OE82 CO 87 0216
OES6 05 OE87 00 OESS OF.FA
OESA CO 87 021A OESE 01 OESF lB OE90 2741 OE92 CO 87 19F9 OE96 CO 87 1C9A OE9A OC 01 3828 25CF OEAO CO 87 lA84
OEA4 ooze.
0EA6 431F OEA8 3846 OEAA CO 87 2116 OEAE CO 87 lC9A OEB2 CO 87 1AB4 OEB6 0003 OE68 431F OEBA 25FF
OESC CO 81 1F05 OECO OC 03 2076 25FF OEC6 OC 03 207A 2E98 OECC OC 00 207A 3098 OED2 OC 00 2D79 2605 OEOS OC 01 2D7C 2651
OE20
OE30
OE31 OE33
OE38 OE39 OE38 OE4l
OE68 OE6A
0!:6C
OE7F OESl
OE86 OE87 OE89
OE8E
OE8F OE91
OEA5
OEA7 OEA9
OEB7
OEB9
OEBB
475
DC
AL2 lHEAD4 t
476
T8N SBYTE2, SSW15
477
MV I R.PTCH, C. 0 · '
478
JF US EAST
479
B
PRINT
480
oc
XL1 1 01'
481
DC
lll 1 66'
TEST SSW DEFAULT
15 TO
*
ON
USE CHARACTER * IF NOT
GO PRINT HESSAGE
482
DC Al2lR04MG1
483
8
PRINT
484
DC
Xll 106'
485
DC
486
DC
487
B
488
DC
489
490
SNS
491
HVC
492 USEAST s
493
B
494
MVI
495
TBN
496
JF
497
MVI
498 R4WRTl B
499
DC
ll1'48 1 Al2lR04MGZ) HALT XL2 1 89F3 1
rcwNr ,x ·oo 1
RPTCH ( l), TC OU NT SETUP SELECT R4WRT+3,X 1 4A1 SBYTE4,SSW27 R4WRT1 R4WRT+3,X 1 40 1 00510 AL2(R4WRTE-R4WRTJ
GO HALT Tll CHAR SET HALT - F3 -
READ THE SWITCHES HOVE lN THE CHARACTER GO 00 INITIAL HOUSEKEEPING GO SELECT THE oev·~E SET UP TO PRINT TEST FOR S~IP FULL BUFFER PRINT SKIP IF NOT FORCE NO PRINT IN PRINTERS GO WRITE SINGLE CHARACTER
500
DC AL2 lXMITE)
501
DC AL2lR4WRTE)
502
503
B
TRESPl
504
e
SELECT
GO TE~T FOR ACK 1 RETURNED GO RESELECT
505
MVC SINCHR-ltlt,RPTCH
FILL IN THE REPEAT CHAR. USED
506
B
READBF
so-r
DC XL1'20·
GO READ THE BUFFER
508
DC XL2 1 C15F'
509
510
e
LINK
* 511 **¥$****·********************~*************************4·······********
512
THIS ROUTINE CHECKS THE READ MODIFIED OPERATIO~.
*
513 **~*$*************~************$**************·*******·**************** 514
515 RTNOS DC
516
DC
XU '05 1
xu· oo·
START OF ROUTINE 05
517
DC AL2(RTNu6,
518
519
B
PRINT
520
oc
Xll' 01 1
521
DC
Ill 1 27 1
GO PRINT HEADING
522
DC AL2(HEA05>
523
B
SETUP
GO DO INITIAL HOUSEKEEPING
524
e
SELECT
GO SELECT DEVICE
525
MVC DEVRT5(2)t>DEVICE
FILL IN DEVICE IN PATTERN
526
e
DOSIO
GO WRITE PATTERN TO TEST
527
DC AL2 l R5WRT E-R5WRT)
READ MODIFIED
528
DC
Al21XMITEl
529
DC AL2(R5WRTE>
530
B
TR ES Pl
GO TEST ACK l RECEIVED
531
B
SELECT
GO SELEtT AGAIN
532
B
DOS IO
GO no READ MODIFIED
533
DC Al2lRDMODE-RuMOD)
534
DC Al2lX!4ITE>
535
DC
AL2 ( RDMOOE) ·
536
S:H
B
Fl llFF
GO FILL EXP BUFFER WITH Fi-
538
HVC
EXPBUF+3(4t,ROM~~E
GO SET UP EXPECTED RESULT!
539
HVC
EXPBUF+7l4it~8EX1
540
MVC EXPSUF+7(li,NOAID
FILL IN NO AID CHAR.
541
MVC EXPBUF+6ClltClJRDEV FJLL IN CURRENT DEVICE
542
MVC EXPSUF+9(2t,POLl
FILL IN CURSOR ADDRESS
I
OATc
26JUN75
EC NO. 825023
25DCT75
825032
15JAN76 825031t
14MAY76 825035
PROG ID PAGE
C 0894-3!
DATE
4 i EC NO.
io
26JUN75
825023
250CT75 825032
15JANT6 825031t
14MAY76 825035
PROG ID PAGE
0894-3 4A I
I
lI,oo
lo
· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·
IBM MAINTENANCE DIAGNOSTIC PROGRAM
8943 DA FUNCTlONAL TESTS
ERR LOC OBJECT CODE
ADDR STMT SOURCE STATEMENT
PART NO. PAGE
4234259. IBM MAINTENANCE DIAGNOSTIC PROGRAlt
s I ,,..,
! \. 8943 DA FUNCTIONAL TESTS
I _,
ERR lOC OBJECT CODE
ADDR STMT SOURCE STATEMENT
PART NO. lt2M259
PAGE
5A
OEOE OC 17 2094 3842 OEE4 OC 01 ~07F 3908 OEEA 3C 03 2D95
OEEE CO 87 1F90 OEF2 CO 87 lBC6
OEF6 CO 87 0216
OEFA 06 OEFB 00 OEFC OF64
OEFE CO 87 021A OF02 01 OF03 25 OF04 2766 OF06 CO 87 19F9 OFOA CO 87 lC9A OFOE OC 01 381F 2SCF OF14 OC 01 3B94 2SCF
OF lA CO 87 lAB4 OFlE 0053 OF20 431F OF22 3862 OF24 CO 87 2118
OF28 CO 87 lA84 OF2C Of'24 OF2E 431F OF30 3887 OF32 3C 70 2FF8 OF36 CO 87 211C
OF3A CO 87 1088 OF3E 10 OF3F 4001
OF41 CO 87 1C9A OF45 CO 87 lAB4 OF49 0003 Of48 431F OF'+D 4000 OF4F CO 87 2118 OF53 CO 87 2272 OF57 0064 OF59 CO 87 lDBB OFSD 04 Of5E 4040
OF60 CO 87 0216
OEFA OEFB OEFD
OF02 OF03 0F05
OFlF OF21 OF23
OFZD OF2F OF31
OF3E OF40
OF4A OF4C OF4E
OF58 OF5D OFSF
543
MVC EXPBUF+331241wR5EXP FILL IN EXP. MOD. DATA
544
MVC EXP8UF+l2l2),X4048 ADJtJST ADDRESS
545
HVI EXPBUF+34.3
FILL IN ETX
546
547
B
CHECKl
54B
8
GO ACK
GO CHECK EXPECTED RESULTS GO SEND ACK TO DROP DEVICE
549
1L
c
550
B
Ll'.il<
551 552
553 554.
*·**··········C·TT$UAH·RBI·S·S, ·O·R·AR·NO,·D·U·R·T·SEIN*EPEET*A*TCB*HU*ETFOC*FEK*RSA*D*TADH*DRE*DESR*SVE*wAS*RS*EI.OR*UA*SS*E *WU*RP*ITR*EO*TO*EPC*TT*IfO*ON*ST*O*S*UA*CDH*D*RAE*SS*S*I,N*SP*ERR·O·GT·R·A·M·**·*
555 ·
IT THEN TESTS THE ERASE ALL UNPROTECTED COMMAND TO THE DEVICE. *· r-
556 ·······································································.
557
558 RTN06 DC
559
DC
Xll 1 06 1
xu· oo·
START OF P~UTINE 06
560
DC AL2CRTN07)
561
,....
562
B
PRINT
563
DC
Xll· 01 1
GO PRINT HEADING
'
564
DC Ill '37'
565
DC Al2 CHEAD6)
'(
566
8
SETUP
GO DO INITIAL HOUSEKEEPING
567
B
SELECT
GO SELECT THE DEVICE
568
MVC RT6DVC2 J ,DEVICE
PUT DEVICE IN PATTERN
569
MVC R6EOVC 2) 1DEVICE
PUT DEVICE IN EXPECTED RESULTS
570
571
B
DOSIO
GO WRITE PA nERN
IC
572
DC AL21 RT6PE-RT6PJ
573
DC AL21 XMITE)
I
!
574
DC
AL2CRT6PE)
IC
575 576
577
578
B
TRESPl
8
DOSIO
oc
AL2 I RT6 TE-RT6 T )
GO TEST FOR COP.RECT RESPONSE GO TEST FUNCTIONS OF WRITE
I
IIr\..·.·
579
DC AL2f XMITE>
580
DC
AL2lRT6TU
581
MVI ACK,X 1 70 1
582
8
TRESPX
583
584
8
READBF
585
DC
Xll 1 10'
586
DC XL2 1 4001'
587
588
B SELECT
589
B
OOSIO
590
DC
AL 2 C EAUE-EAU l
591
DC AL2CXMITEJ
592
DC AL21EAUU
593
8
TRESPl
594
B
DELAY
595
DC 1L2· 100·
596
B
READBF
597
DC XL1'04'
598
DC
XL2 1 4040'
599
FORCE ACK 0 EXPECTED GO CHECK FOil ACK 0
GO READ BUFHR EXPECT PATT ERH 1 CURSOR ADDRESS
GO RESELECT THE DEVICE GO SEND AN EAU
TEST CORRECT RESPONSE Gl'!E IT A CHANCE TO FINISH WAIT 100 MS NOW GO READ BUFFER TO CHECK EXPECT PATTERN 2 CURSOR AT 0
II c····..~
lo
I
IC
I
!o
I
II c··.:
'(
:~~ ·······:·····~!:!······················································: ( _':
OF66 OFDO
OF68 CO 87 021A OF6C 01 OF60 20 OF6E 2786 OF70 CO 87 19F9 OF74 CO 87 1C9A OF78 OC 01 3C2A 3C2D OF 7E 38 80 2FFD OF82 F2 90 06 OF85 OC 01 3C2A 3CZF
OF8B CO 1:17 1AB4 OF8F 0007 OF91 431F OF93 3C2B
OF95 40 01 01 2637 OF9A F2 01 28
OF90 .:o 87 1C39
OFAl 38 10 2658 OFA5 CO 90 1008 OFA9 OD 01 2658 3C31 OFAF F2 01 08 OFB2 CO 87 1BC6
OFB6 CO 87 0216
OFBA ::X: 15 262A OFBE OC 01 2FF9 3C31 OFC.lt CO 87 22A7 OFC.8 3C 13 262A OFCC CO 87 22A7
OFDO 08 Of Dl 00 OFD2 lOAF
OFD4 CO 87 021A OFOB 01 OF09 lF OFDA 27A5 OFOC CO 87 l9F9 OFEO 3C Cl 3C62 OFE4 OC 05 OFFS 10A2 OFEA CO 87 lAltl
OFEE CO 87 1C9A
OFF2 CO 87 1A84 Off 6 000000000000
OF67 OF6C OF6C OF6i::
OF9Q OF92 OF94
OFOO OFDl OFD3 OFDB OFD9 OFDB
OFFB
611
DC AL2CRTN08)
612
613
e
PRINT
614
oc xu 101 1
GO PRINT HEADING
615
DC Ill' 32 1
616
DC Al21HEAD7J
617
8
SETUP
GO DO INITIAL SET UP
618
B
SELECT
GO SELECT THE DEVICE
619
MVC INVAOR CZ), INVMl
SET FOR INVALID MOD 1 ADDRESS
620
TBN RTNFLG,X 1 80 1
TEST FOR MODEL 2
621
JF R7Ml
JUMP If NOT
622
MVC INVAOR ( 2 J, INVM2
SET FOR INVALID MOD 2 ADDRESS
623
624 R7Ml B
625
DC
626
DC
627
DC
DOSIO Al 2 CRT7PE-RT7P)
AL2CXMITEJ Al2 IRTIPE)
GO TRY TO SF.ND INVALID ADDRESS
628
629
CLC 112.xR1 J ,EOT
EDT SHOULD HAVE Bt'ZN REC'D
630
JNE TOOK BA
631
B
OOPOL
632
TBN POL FL G, X1 l 0 '
633
BF
OHOH
634
CLC POLSTC2J .oc
635
JNE BADST
636
8
GOACK
631
JUMP IF NOT GO POLL TO GET STATUS TEST FOR STATUS REt·o
ERROR IF NOT
TEST STATUS · QC JUMP IF NOT
GO ACKNOWLEDGE
638
8
LINK
639
640 BAOST MVI
641
·Mvc
642
B
EKR,BDST WORk(2t,oc ERROR
SET HALT CODE PUT OP CHECK IN WORK
643 TOOKBA MVI ERR,ACCIN
t-44
B
ERROR
SET HALT CODE
645 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..
646 ·
(HIS ROUTINE TESTS THAT DATA CHECKS IN THE DEVICE CAN BE DE- ·
647
648 649
·**
TECTED. THE MICRO CODE IS CHANGED SO THAT BAD PARITY WILL BE ·
SENT TO lHE DEVICE. AFTER THIS IS DONE, A CHECK IS MADE TO ·
DETERMINE THAT THE BAD DATA IS DETECTED.
·
650 ·······································································
651
652 RTN08 DC
653
DC
654 ·
DC
655
656
B
657
DC
658
DC
659
DC
660
8
661
MVI
662
MVC
663 RBLOOP B
664 ·
665
B
Xll 108 1
XLl' oo·
AL21RTN09)
PRINT Xll'Ol' IL1'3l' ALZIHEAD8 I SETUP R8CHR,C 1 A1 RBPC61,R8Tl MOD ST
SELECT
START OF ROUTINE 08
GO PRINT HEADING
GO DO INITIAL SET UP
INITIALIZE CHARACTER TO 'A'
INITIALIZE WRITE PARAMTERS
GO MODIFY MICRO CODE TO CAUSE
TRANSMIT CHECKS
'
GO SELECT THE DEVICE
666
667
B
OOSIO
668 RSP DC XL6·0 1
GO WRITE ERROR PATTERN WRITE PARAMETERS GET FILLED IN
OF64 07 Of 65 00
OF64 OF65
602 603
604 605 606
* * * * *
THIS ROUTINE SENDS INVALID ADDRESSES IN THE WRITE DATA STREAM TO THE DEVICES. IT THEN CHECKS THAT THE INVALID ADDRESSES
HAVE BEEN DETECTED ANO RESULT IN OPERATION CHECK STATUS. THE INVALID ADDRESSES USED ARE 1 OVER THE MAXIMUM ADDRESS FOR THE DEVICE BEING TESTED.
~ ~
.; (.
·i
~
607 ······································································~ ~-
608
i
609 RTN07 DC
610
oc
XLl'07·
xu·oo·
START OF ~OUTINE Ol
I
.,1 C.
669
OFFC 40 01 01 2637
670
1001 f 2 01 73
671
1004 co 81 2272
672
lOOe 0019
l009 673
lOOA CO 87 1C39
674
lOOE 38 10 2659
675
1012 F2 90 6A
676
1015 OD 01 2658 2649
677
101B F2 81 OE
618
CLC lC z, Xi{lJ, EDT
JNE NOTE OT
8
DELAY
DC 1L2·25·
B
DO POL
TBN POLFLG,X'l0 1
JF OOPS5
CLC POLSTC 2 t. OCUS
JE RSFIX
EOT SHOULD HAVE BEEN RETURNED ERROR IF NOT
WAIT FOR 25 HS
GO GET THE STATUS CHECK FOR STATUS RETURNED JUMP IF NOT WAS STATUS DATA CHECK, UNIT SPE,IFY .JUMP IF SO
I
OAT E 26JUN75 EC NO. 825023
250CT75 825032
15JAN76 825034
14MAY76
82503~
PROG ID PA'iE
1
089#t-3 ( ' DATE
5
EC NO.
c,
26JUN75 825023
250CT75 825032
15JAN76 825034
14MAY76
825035
PROG ID PAGE
0894-J 5A
L
0
0
.0-.
-
l
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PART NO. PAGE
4234259
6,
r, IBH
MAINTENANCE
OIAGNOSTIC
PROGRAM
8943 DA FUNCTIONAL TESTS
~--.
8943
DA FUNCTIONAL TESTS
ERR LOC OBJECT CODE
101E OC 01 2FF9 2649 1024 3C. 15 262A 1028 CO 87 22A7
102(; co 87 1A52 1030 CO 87 1C9A 1034 CO 87 IA~ 1038 0008
103A 431F 103C 3C63
103E CO 87 2118 1042 CO 87 1AB4 1046 0000 1048 4201 J04A 2636
104C 30 Cl 3C62 1050 F2 01 OE 1053 3C CZ 3C62 10~7 OC 05 OFFB 10A8 lOSD CO 87 OFEA 1061 30 CZ 3C62
~ 065 co 01 0216
lU69 3C C3 3C62 1060 OC 05 OFFS lOAE 1073 CO 87 OFEA
1077 3C 14 262A 1078 CO 87 22A7 l 07F CO 87 1FD5
1083 oc 08 2D7B 4208 1089 OC 00 3C69 2605 lOSF OC 08 2084 3C6C 1095 3C 10 262A 1099 CO 87 22A7
1090 0009 109F 431F lOAl 3C44 l0A3 0008 l0A5 431F 10A7 3C50 · 10A9 0009
lOAB 431F lOAO 3C5A
lOAF 09
ADDR STMT SOURCE STATEMENT
( ... EPR. LOC OBJECT CODE
1039 1038 103D 1047 1049 1048
l09E
lOAO
10A2
10A4 10A6 lOAS
lOAA lOAC lOAE
lOAF
679
MVC WORK (2) ,OCUS
PUT EXPECTED STATUS IN WORK
680
MVI ERR.BOST
SET BAD SATUS INDICATION
('
681
B
ERROR
682
683 RBFIX B
684
B
685
B
686
oc
687
DC
FUST SELECT DOS IO AL2(R8P4E-RBP4J AL2UMITEJ
GO PESTORE MICRO CODE GO SHECT AGAIN GO ~RITE PATTERN OF ALL ·A,B OR C'
688
uC ALZCA8P4EJ
689
B
TRESPl
GO CHECK RESPONSE
(
690.
B
DO~IO
GO SEND EOT
691
DC
XL2 1 0 1
692
DC
AL2lXMITRC+l I
693
DC
AL2CEOT-ll
694
695
CLI
696
JNE
697
MVI RSCHR.C'B'
698
MVC tt8Pl6t,RST2
699
B
R8LOOP
100 TSTB Cll R8CHR1C'8 1
701
BNE LINK
702
MVI R8CHR,C1 C1
703
MVC R8P(6) ,R8T3
704
B
R8LOOP
705
DID W~ JUST WRITE 'A' IF NOT TEST FOR B SET FOR B NEXT PASS SET NEW PARAMETERS GO DO NEXT PATTERN WERE WE DOING 1 8 1 · GO TO NEXT ROUTINE IF NOT
SET FOR ec ·
SET NEW PARAMTERS
GO DO NEXT PATTERN
706 NOTEOT MVJ ERR,NOEOT
707
B
ERROR
SET ERROR
708 OOPS5 B
FILL FF
709
HVC EXPBUF+8(9),XMITRC+8
710
HVC RSEXPlClJ,CURDEV
711
MVC EXPBUF+l7(9),R8EXP2
712
MVI ERR, I NCOR
713
B
ERROR
714
714
715 * PARAMETER LIST FOR ROUTINE 8
716
DC AL2CR8PlE-R8Pl)
717
DC AL2(XMITE>
GO Flll EXP. BUFFER WITH FF MOVE IN POLL MESSAGE MOVE IN THE DEVICE
PUT IN EXPECTED RESPONSE SET ERROR
IC
i
10
I
718 R8Tl DC Al2CR8PlE)
719
DC AL2CR8PZE-R8P2)
720
DC AL2CXHITE)
721 RBTZ DC
AL2(R8P~EJ
722
DC Al 2( RSP3E-R8P 3)
772234 RBT3 DDCC
AALLZ2CCXRMBIPT3EE))
r: -.
1 _
125 726
********T**H*IS***R*O*U*T*IN*E***F*IR*S*T**T*E*S*T*S***TH*A*T***B*O*TH***U*P*PE*R***A*N*O**L*O*W*E*R**C*A*S*E**A*L*P*H*A***·!:
C'.·'.·
727 728 729 730 731 732 733 734
735 736 737
* * * * * * * * * * *
CHARACTERS ARE TRANSHITED AND RECEIVED OKAY.
~
IT THIS TESTS THE M!CRO POLL FEATURE AS FOLLOWS: FIRST. A MICRO POLL TO THE SELECTED DEVICE Is DONE WITH AN
**i: -
INIFINITE COUNT (FFJ. THERE SHOUUJ BE NO RESPONSE. A ZSEC· *i (:
TIMEOUT IS THEN SENT TO CAUSE AN EDT RESPONSE AND INTERRUPT TO ~
THE ORIGINAL MICRO POLL.
~ ~~
NEXT, THE fOUNT IS CHANGED TO 01 ANO THE MICRO POLL IS RE-
~ \~
*\ ISSUED. THIS TIME, TO EDT RESPONSE SHOULD C0fo'.E IN RIGHT AWAY. :c<1
NEXT, DEVICE ENO STATUS I 5 CAUSED BY RESETTING THE ATTACHMENT
(,~·~
AND RE-ENABLING IT. THE CURRENT DEVICE IS REPEATED 255 TIMES ~ _
IN THE ~ICRO POLL LIST. THE SAR IS SET TO CAUSE A DELIBERATE ~
738 *
739 ·
740 741 742
* * ·
OVER RUNe THE MICRO POLL IS THEN ISSUED ANO SHOULD GET AN IMMEDIATE DEVICE END STATUS MESSAGE. MOST OF THE MESSAGE IS LOST BECAUSE OF THE SAR SETTING.
***:l C
NOW, NAK IS ISSUED AND THE STATUS MESSAGE WILL BE RETRANSMITTED·!
SO THE ENTIRE MESSAGE IS RECEIVED.
~
743 *********************************************************************··:
744
745 RTN09 DC
Xll I 09 1
START OF ROUTINE 09
lOBO 00 1081 UFO
10B3 CO 81 021A
10B7 01 lOBB 36
1089 27DB lOBB CO 87 19F9 lOBF 3C 03 3EEE 10C3 CO 87 1C9A 10C7 CO 87 lAB4 lOCB 0052 lOCD 431F
lOCF 3EEE
lODl co 87 2118
1005 CO 87 lC9A 1009 3C FE 3EEE lOOD CO 87 lDBB lOEl 08
10E2 4040
10E4 3C FO 3FFB 10E8 OC Ol 4006 2605 lOEE 3': FF 4004
lOF2 CO 87 1AB4
10F6 0008
10F8 431F
lOfA 4007
lOFC 1100
c3Co
00 87
3FFB 2272
1104 03E8
1106 30 00 2610
llOA FZ 01 08
llCJ 3C 16 262A 1111 CO 87 2ZA7
1115 F3 88 06 1118 00 FF 4200 4200
lllE 30 00 2610 1122 F2 81 10
1125 CO 87 021A 1129 82 ll2A 33 1128 2AlB
ll2D 3C 01 262A 1131 CO 87 2ZA7
1135 OD 01 420D 2637 113B FZ 81 14 l 13E OC OB 2D 7E 4007
1144 OC Ol 2D80 2637 114A 3C 10 262A
ll4E CO 87 22A 7
1152 30 OF 3FFB
1156 F2 81 16 1159 3C OF 3FFB 1150 3C 01 4004
1161 CO 87 1AB4 1165 0008 1167 431F 1169 4001
1168 co 87 1135
ll6F F3 58 80
AODR STMT SOURCE STATEMENT
1080 1082 1087 1088 lOBA
lOCC lOCE 1000
lOEl lOE3
10F7 10F9 lOfB 1105
1129 112A ll2C
1166 1168 ll6A
746
DC
147
DC
748
749
B
750
DC
751
DC
752
DC
753
B
754
MVI
755
B
756
B
757
DC
753
DC
759
DC
760
B
761
B
762
HVI
763
B
764
DC
765
DC
766
767
MVI
768
HVC
769
MVI
770
771
B
772
DC
773
DC
774
DC
775
MVI
776
·B
777
DC
778
CLI
779
JNE
780
181
MVI
782
8
783
784 S2SEC s.. o
785
CLC
786
CLI
787
JE
788
789.
8
790
DC
791
DC
792
cc
793
MVI
794
B
795
796 NXTHPT CLC
797
JE
798
MVC
799
MVC
800
MVl
80)
B
802
803 THPCNT CLI
804
JE
805
MVI
806
HVI
807
B
808
DC
809
DC
810
DC
911
8
812
813 TMPDE SID
XL1 1 00 1 AL2CRTNOA)
PRINT Xll I 01' I L1·54° ALZlHEA09) SETUP
R09PE.~
SELECT DOSIO ALZ(R09PE-R09P) AL2t XHI TE) AL2 ( R09PE) TRESPl SELECT R09PEwX'FE' READ8F Xll 1 08 1 XL2 1 4040 1
HICPFL,i\ 1 FO· HICF'D(ZJ .cuRDEV MICPD-2,X 1 FF 1
OOSIO AL2lMICPlE-MICPl> AL2lXMITE1 AL2(MICP1E> MICPFL,O DELAY IL2'1000 1
INTFLG~O
S2SEC
ERR, MP INT ERROR
X 9 06 1 .C:NTRL XHITRCC256l,XMITRC INTFLG10 NXTMPT
PRINT XL1 1 8Z 1 IL1 1 51' AL2 (MPMG21 ERR,NOINT ERROR
XKITRC+l3( 2) tEOT THPCNT EXPSUF+ll(l2J,HICP1E EXPBUF+13(Zt tEOT ERR,INCOR ERROR
MI CPFL, X1 OF; TMPDE MI CPFL, X1 OF' HICPo-z,1 DOSIO AL2lMICPlE-MICPlJ AL2l XMITE) AL2CMICP1EI NXTMPT
o:.TE
26JUtH5
EC NO. e2~023
250CT75 825032
1SJAN76 825034
14HAY76 825035
PROG ID PAGE
0894-3; (: OAT E 6 i EC NO.
iO I
0
26JUN75 8250Z3
250CT75 825032
15JAN76 825034
14MAY76 825035
PART NO. 4234259
PAGE
6A
GO PRINT HEADING
GO DO HOUSEKEEPING INSERT ETX AFTER DATA GO SELECT
WRITE UPPER/LOWER CASE DATA
GO TEST RESPONSE RESELECT INSERT FE FOR DATA TERMINATOR GO READ BUFFER EXPECT UPPER/LOWER CASE PATTERN CURSOR AT 0000
SET MICRO POLL FLG. TO IND NO INT HOVE CURRENT DEVICE TO POLL LIST SET INFINl~E COUNT
GO DO MICRO POLL, EXP NO REPLAY
RESET THE MICRO POLL FLAG GO WAIT A SECOND
TEST FOR INTERRUPT OCCURRED OKAY IF NO INTERRUPT
SET ERROR CODE
ISSUE 2 SEC. T.O. TO ENO MICRO POLL DELAY TO LET IT HAPPEN TEST FOR INT OCCURRED IF SO CHECK EOT REC'D
GO PRINT MESSAGE
SET NO INT ERROR
TEST FOR EOT REC'D JUMP IF SO SET UP EXPECTED RE SUL TS
SET ERROR CODE
TEST FLAG GO TO DE TEST
IF
= OF
SET FLAG TO INDICATE INT EXP.
SET COUNT TO 1
GO REPEAT & EXPECT INTERRUPT
GO CHECK RESULTS DISABLE ATTACHMENT
PROG ID PAGE
0894-3 6A
J
0
· ··························
IBM HAINTE~ANCE DIAGNOSTIC PROGRAM 8943 CA FUNCTIONAL TESTS
PART NO..
PAGE
!
4234259:
IBM MAINTENANCE DIAGNOSTIC PROGRAM
1 1' (''·
'·
I 8943
DA FUNCTIONAL TESTS
ERR LOC OBJECT CODE
1172 F3 58 EO
1175 oc 07 4207 4003
1178 DC 00 4306 2605 1181 OC FD 4305 4306 1167 3C 2D 4307 1188 3C 01 4208
116F F3 88 CO 1192 3C OF 3FFB 1196 CO 87 1A84 119A 0107 ll9C 4309 119E 4307
llAO OD 01 2620 2624 11 A6 F2 81 08 l lA 9 3C l 7 2 62A llAO CO 87 22A7
1181 co 87 1AB4 1185 00~>1 1187 431F 1189 4009 1188 40 OZ 02 264' llCO F2 81 08 llC3 3C 18 262A llC7 CO 87 22A7
llCB lC 01 2658 07 llDO (I) 01 2658 2643
llD6 co 81 0216
llDA 0C 01 2FF9 2643 llEO CO 87 021A llE4 82 llE5 28 11E6 2A46
11 es 1c. is 262A
llEC CO 87 22A7
llF 0 OA
llF 1 80
llf2 1239
l lflt 38 BO 020C .11 F8 CO 10 0216 llFC CO 87 24EA ll'lO CO 87 021A 1204 01 1205 22 1206 27FO 1208 CO 87 l9F9 120C OC 03 3291 31AE 1212 38 40 ZFFO 1216 F2 10 OA 1219 OC 05 21CA 1232 121F CO 87 2180 1223 OC 05 21CA 1238 1229 co 87 2180
1220 OOBC 122F 431F
AOOR STMT SOURCE STATEMENT.
I ERR LOC OBJECT CODE
i 814
815 ·
I \. . 816
817
818
819
I 820
821 822
i 823 I 824
sro x·eo·,s101
RESTART MICRO CONTROLLER, DEVICE 1,,. END SHOULD BE PENDING NOW.
MVC XMITRC+7(8),MICP2
SET UP TR~NSMIT/RECEIVE FIELD
MVC X~ITRC+262l1J,CURDEV INSERT DEVICE HVC XMITRC+2611254J.XMITRC+262 INSERT DEVICE 255 TIMES
I
I I
MVI Xf-HTRC+263,X'20 1
INSERT ENQ AS LAST CHAR
H\ll XMITRC.+8,X'Ol'
SET COUNT TO l
i ('
SIO ENA3LE,CNTRL
KVI HICPFL,X'Of'
8
DOS IO
RE-ENA St E DA
SET UP FOR MICRO POLL EXPECTS INTR. GO DO MICRO POLL, EXPECT DE STATUS
<~,
1231 3182
1233 00E2 1235 431F 1237 3295
1239 OB 123A 80 1238 1283
1198 119:1
ll9F
1186
1188
llBA
825'
DC
826
DC
827
DC
828
829
CLC
830
JE
831
MVI
832
8
833
834 SNAK B
835
DC
836
DC
837
DC
838
CLC
839
JE
840
MVI
'341
8
842 843 STATRC MVC
844
CLC
845
BE
846
847
MVC
IL2'263' AL2( XMI T"C+2651 AL21XMITRC+263)
SCAR( 2) , SSAR SNAK ERR,MPCS ERROR
OOSIO AL21NAKE-NAKI Al21XHITEJ AL21NAKEI 2(3,XRl),STATR STATRC ERR,RNST ERROR
POLST,712,XRlJ POLST<21.DE LINK
WORKC2J.OE
STOP SHORT OF FULL MESSAGE
CAR SHOULD NOW BE EQUAL TO SAR GO SEND NAK IF SO SET ERROR COOE
GO SEND NAK FOR RETRANSMIT
BE SURE STATUS WAS RECEIVED JUHP IF SO SET ERROR CODE
FETCH THE POLL STATUS IT SHCULD BE DE FINISHED IF SO HOVE OE TO EXP. STATUS
I I
I '
I
I I
:
I r
III \c.,· (; c·
1
1230 38 40 2FFO
1241 co 10 0216
1245 38 80 020C
1249 co 90 24EA
1240 38 80 C20C
1251 39 40 020C
1255 co 10 0216
1259 3C C2 2803
125D 3C Fl 2814
1261 C" 87 021A
1265 01
1266 17
1267 1269
c2o81847
19F9
126D oc 03 3378 ?lAE
1273 1279
oc
co
05 87
21CA 21BD
1282
127D 00E5 127F 4.:HF 1281 3378
848 11E4 84 9 11E5 850 llE7 851
852
8
PRINT
DC
Xll ' 82'
DC
Ill'43'
DC ALZ (HPMG3)
HVI ERR ,BOST
GO PRINT MESSAGE SET ERROR CODE
I 1
I
1283 CIC
1281t 80
I
1285 1301
:~!
B
ERROR
I (· 1287 38 40 2FFO
llFO llFl 11F3
120.. 1205 1207
885565 ·· ·······R·O·U·T·I·N·E·S··O·A··T·H·R·U··O·F··A·R·E··U··SE·D···T·O··S·EN*D··T·E·S·T··P·A·T·T·~·R·N·S···TO···T·H·E······~: -
857 *
DEVICES. ONE COMMON SUBROUTINE IS USED TO SEND ALL PATTERNS. ·, {~!
885598
···································~··································~ I
(~
860 RTNOA DC XL1'0A 1
START OF ROUTINE OA
I .....-
861
DC
XL1 1 80'
862
DC AL2!RTN08)
863
864
TSN SBYTE4,SSW20
865
BT
LINK
866
B
CHMODX
867
B
PRINT
868
DC XLl'Ol·
IS SSW 20 ON? IF SO, SKIP INSTRUCTIONS GO ~EST FOR HODEL 4, SKIP [F SO GO PR INT HEADING
!(
869
DC IL1'34'
870
DC
AL2 lHEAOA)
871
B
SETUP
872
MVC A1Af4), Al
87 3
TBN RTNFLG,X 1 40 1
874
JT DEVP
GO DO INITIAL HOUSEKEEPING INITIALIZE DEVICE ADDRESS
TEST FOR DEVICE IS A PRINTER JUMP IF SO
875
MVC TPARHl6J,PORD1
876
B
S ENDTP
877 DEVP MVC. TPARHl6) tPORDlA
878
B
SENOTP
879
MOVE IN TEST PATTERN PARAMETERS
GO SEND IT
MOVE IN PRINTER PATTERN PARAMTERS GO SEND PATTERN
c
1288 co 10 0216
128F 3C C3 2803 1293 3C F2 2814
1297 co 87 l9F9
1298 oc 03 341A 31AE 12A 1 OC 03 34F2 31AE 12A7 38 80 2FFD 12AB FZ 10 10 12AE 38 80 020(
1282 co 90 24EA
1286 38 80 020C 12BA 39 20 020C
12BE CO 10 0216 12C2 OC 05 21CA l 2FA 12C 8 F2 87 lE l 2C8 OC 05 21CA 1300 1201 3C F3 2814 1205 38 80 020(
l2D9 co 90 24EA
l2DO 38 80 020C
12El 39 10 ozoc
l2E5 CO 10 0216 12E9 CO 87 021A 12ED 01
12EE 17
122E 860 1230 881
DC AL21EOR01-0R011 DC AL21XMITEJ
PARAMETERS TO SEi·D TEST PATTERN
I f.
'V
l 2EF 2814 12Fl co 87 2180
AOOR STMT SOURCE STATEMENT
1232 1234 1236 1238 1239 123A 123C
1265 1266 1268
121'.E 1280 1282 1283 1284 1286
12ED 12EE
12FO
882 PORDl DC
883
884
DC
885
DC
886 PORDlA DC
887
887
888 RTNOB DC
889
DC
89C
DC
891
892
T8N
893
Bl
894
TBN
895
BF
896
TBN
897
TBF
898
BT
899
MYI
900
MVI
901
8
902
DC
903
DC
904
DC
905
8
906
MVC
907
MVC
908
B
109
910
DC
911
·Dc
912 POR::>2 DC
913
913
913
914 RTNOC DC
915
DC
916
DC
917
918
TBN
919
BT
920
MYI
921
MVI
922
8
923
MVC
921t
MVC
925
TBN
926
JT
927
TBN
928
BF
929
T8N
930
TBF
931
BT
932
MVC
933
J
934 OM2 MVC
935
PIVI
936
TBN
937
BF
938
TBN
939
TCF
940
BT
941 PHO B
942
DC
943
DC
944
DC
91t5
8
946
ALZIEOROl)
Al2CEOR01A-uRDlA) AL2 IXMITEI AL21EOR01A)
XL1'08' XL1'80' Al2lRTNOC)
RTNFLG,X 1 40 1 LINK
SBYTE4~SSW20
CHMOOX S6YTE4,SSW20 SBYTE4,SSW21
LINK
HOTP!,C'8 1 HEAOP,C 1 11 PRINT XL 1 1 01' lll 1 23' AL2(HEADP> SETUP A214),Al TPARM(6) , POR02 SENDTP
ALZ l EOR02-0RD~ I AL2( XMITEJ Al2 ( EORD2 I
xu ·oc 1 xu·eo·
ALZ<RTNODI
RTNFLG,X 1 40 1 LINK HOTP1,c·c· HEADP,c·z· SETUP A3141,Al A414) ,Al RTNFLG,X 1 80 1
DM2
S BYTE4, SSW20 CHMODX SBYTE4,SSW20 SBYT E4, SSW22
LINK
TPARM ( 6) ,POR03 PHO TPARM ( 6), POR04 HEADP,C 1 3 1 SBYTE4,SSW20 C.HMOOX SBYTE4 .ssw20 sa YTE 4' SSW23 LINK PRINT XL l' 01' Ill'23 1 AL2 (HEADPt SENDTP
DATE 26JUN75 EC NO. 825023
250CT75 825032
15JAN76 825034
14MAY76
&2S035
PROG ID PAGE
0894-3 C DATE
26JUNl5
1
EC NO. 825023
250C. T75 825032
15JAN76 825034
H"AY76
825035
,
0
0
0
PART HO. 4234259
PAGE
7A
START OF ROUTINE 08
IS DEVICE A PRINTER? SKIP IF SO IS SSW 20 ON? GO TEST FOR HODEL 4, SKIP IF SO IS SSW 20 ON? IS SSW 21 OFF? SKIP IF SO SET UP HEADING
GO PRINT HEADING
GO DO HOUSEKEEPING SET UP DEVICE ID IN PATTERN MOVE IN PARAMTERS GO SEND IT
START OF ROUTINE OC
IS DEV ICE A PRINTER? SKIP IF SO SET UP HEADING
GO 00 HOUSEKEEPING SET UP DEVICE IO IN PATTERN SET UP DEVICE ID IN PATTERN TEST FOR DEVICE IS HODEL 2 JUHP IF SO IS SSW 20 ON? GO TEST FOR MODEL 4r SKIP IF SO IS SSW 20 ON? IS SSW 22 OFF? IF SO, SKIP THIS PATTERN MOVE 11.i MODEL 1 PARAHTEP.S GO PRINT HEADING MOVE IN MODEL 2 PARAHTERS SET FOR TEST PATTERN 3 TEST SSW 20 ON GO TEST FOR MODEL 4. SKIP IF SO IS SSW ZO ON? TEST SSW 23 OFF
GO PRINT HEADING
GO SEND PATTERN
PROG ID PAGE
089.\-3 7A
IBM MAINTEN~~CE DIAGNOSTIC PROGRAM
8943 DA FUNCTIONAL TESTS
ERR LOC OBJECT CODE
ADDR STMT SOURCE STATEMENT
PART NO. PAGE
i 1:-234259, IBM MAINTENANCE DIAGNOSTIC PRDGRAl4
s ! C<
: . 8943 DA FUNCTIONAL TESTS
I ~- ERR LDC OBJECT CODE
AODR STMT SOURCE STATEMENT
PART NC. 4UltZ59
PAGE
BA
l2F5 OOAl 12F7 431F 12F9 3410 12FB 0007 12FD 431F l2FF 34F5
12F6 947
DC
12F8 948
DC
12FA 949 PGRD3 DC
12FC 950
DC
12FE 951
DC
1300 952 POR04 DC
953
953
1301 00
1302 80 1303 1348
953
1301 954 RTNOO DC
1302 955
DC
1304 956'
DC
957
1305 38 40 2HO
958
TBN
1109 co 90 0216
959
BF
1300 38 80 020C
960
TBN
1311 CO 90 24EA
961
BF
1315 38 80 020C
962
TBN
1319 39 08 020C
1310 co 10 0216
963
TBF
964
BT
1321 3C C4 2803
965
MVI
1325 3C F4 2814
966
HVI
1329 CO 87 021A
967
B
1320 01
132D 968
DC
132E 17
l32E 969
DC
132F 2814
1331 co 87 19F9 1335 oc 03 35AF 31AE 1338 oc 05 21CA l34A
1330
970 971 972
973
DC 8 MVC HVC
1341 CD 87 2180
974
B
1345 OOBC
1347 431F
1349 3562
975
1346 976
DC
1348 977
DC
l34A 978 PORD5 DC
979
979
1346 OE l34C 80 1340 1390
979
1348 980 RT NOE DC
134C 981
DC
134E 982
DC
134F 38 80 ozoc
983
984
TBN
1353 co 90 24EA
985
BF
1357 38 80 020C
986
TBN
1358 39 Olt 020C
987
TBF
135F CO 10 0216
988
BT
1363 3C C5 2803
989
MVI
1367 3C F5 :?Slit
990
HVI
1368 co 87 021A
991
B
l36F 01
l36F 992
DC
1370 17
1370 993
DC
1371 2814
1372 994
DC
1373 CO 87 19F9
995
B
l::s77 CO 87 1C9A
996
B
1378 oc 03 36C:7 HAE
997
MVC
1381 OC 05 21CA 139C
1387 oc 71 4271 3624
998 999
M\'C MVC
1380 OC A9 4318 36CE
1000
HVC
1393 CO 87 21Cl
1001
B
1397 OllB 1399 431F 1398 36CE
1002
1398 1003
DC
l39A 1004
DC
139C 1005 PORD6 DC
1006
1006
1390 CF l39E 80
!.006
U9D 1007 RTNOF DC
139E 1008
DC
Al2{ EORD3-0RD3) AL21XMITE)
AL2 (EORD3)
AL21EORD4-0RD41 AL2UMITE > AL2CEORD41
! (;
I
;
' ,.
xu ·oo· XLl ·so·
Al2lRTNOEJ
START OF ROUTINE OD
RTNFl~,X 1 40 1
LlNJ<. S BYT E4, SSWZO C.HHOOX SBYTE4,SSW20 SBYTE4,SSW24 LINK HDTPl1C 1D1 HEADP,C 1 4 1 PRINT XL 1 1 01 1 IL1 1 23 1 AL2CHEADPI SETUP A5C4J 1Al TPARM(6J ,PORD5 SENOTP
AL2CEOR05-0RD5)
Al2lXMITEJ
AL21 EOR05)
IS DEVICE A PRINTER? SKIP IF NOT IS SSW 20 ON? GO TEST FOR HODEL 4 1 SKIP IF SO IS SSW 20 ON? IS SSW 24 OFF? IF SO, SKIP THIS PATTERN SET UP HEADING
GO PRINT HEADING
GO DO INITIAL HOUSEKEEPING SET UP ADDRESS IN PATTERN MOVE IN PARAMETERS GO SEND PATTERN
! (_·
0 0
io
Ii ,,_-_.
I
Xll 10E'
START OF ROUTINE OE
Xll 8 80'
ALZlRTNOFJ
SBYTE4,SSW20 CHHODX S6YT Elt, SSW20 SBYTE4,SSW25
IS SSW 20 ON? GO TEST FOR MODEL 4, SKIP IF SO
IS SSW 20 ON? lS SSW 25 OFF?
LINK
HOTPl,C'E'
IF SOt SKIP THIS PATTERN SET UP HEADING
c
HEADP.C'5'
PRINT
GO PRINT HEADING
Xll'Ol'
lll 1 23'
Al2(HEADPJ
SETUP SELECT
GO ~a INITIAL HOUSEKEEPING
C·
GO SELECT DEVICE
A6(4J,Al
SET ADDRESS IN PATTERN
TPARM(61,PORD6
MOVE IN PARAMETERS
XMITRC+Ll6-l(ll6),MIDOR6-i XMITRC+ETEXT6-llL26JwEOR06
SET UP XMIT/REC~ FIELD THE LENGTH IS OVER 256
SENTPB
GO SEND PATTERN
Al2 l EORD6-0RD6 I AL2( XMITEI
AL2l EORD6)
Xll ·Of'
START OF ROUTINE uf
xL1 1 eo 1
0
139F 13E7
l3Al 38 40 2FFD 13A5 CO 90 0216
13A9 38 80 OZOC
BAO CO 90 24EA
1381 38 80 02oc 1385 39 02 020C
1389 co 10 0216
1380 3C C6 2803
13C l 3C F6 2814
13C5 CO 87 021A l3C9 01
13CA 17 13CB 2814
l3CD CO 87 19F1 13Dl DC 03 37BC 31AE
1307 oc 05 21CA l3E6 1300 co 87 21BD
13E l OOF? l3E3 431F 13E5 378F
13E7 10 l3E'.:' 80 13E9 1629
13EB 38 40 2FFO
13EF CO 10 0216 13F3 38 08 020A 13F7 CO 10 0216 13FB CO 87 24EA
l3FF CO e-f l9F9
1403 co 87 021A
1407 01 1408 lF 1409 2833 1406 38 10 020A 140F F2 90 17 1412 CZ 02 3AAC 1416 34 02 3904 l41A OC 00 3AOE 2605 1420 2C 00 3AOF 00 1425 CO 87 15F9 1429 CO 87 1C9A 1420 CO 87 1AB4 1431 OOBB 1433 431F 1435 3902
1437 co 87 2118
1438 C2 02 39E6 143F 34 02 3904 1443 CO 87 1FD5 1447 OC 00 3AOE 2605 1440 2C 00 3AOF 00
1452 oc 11 208D 3AED
1458 3C 00 2FF8
l45C CO 87 lC39
13AO 1009
DC AL2(RTN10)
1010
1011
1012 1013
1014
1015
1016 1017 1018 1019
TBN RTNFLG,X·40'
BF
LINK
TBN S6VTE4, SSW20
BF CH HO OX
TBN SBVTE4,SSW20
T6F SBYTE4, SSW26
BT LINK
MVI HOTPl1C 1 F·
MVI HEADP.C 1 6·
IS DEVICE A PRINTER? SKIP IF NOT IS SSW 20 ON?
GO TEST FOR MODEL 41 SKIP IF SO IS SSW 20 ON? IS SSW 26 OFF? IF SO, SKIP THIS PATTERN SET UP HEADING
1020 13C9 1021 13CA 1022 13CC 1023
1024
1025
1026 1027
1028
B
PRINT
DC
XL 1 1 01'
DC
I Ll' 231
DC AL2CHEADPl
8
SETUP
MVC ATl4J,Al
MVC TPARM(6J,PORD7
B
SENOTP
GO PRINT HEADING
GO 00 INITIAL HOUSEKEEPING SET ADURESS IN PATTERN MOVE IN.PARAMETERS GO SEN THE PATTERN
l3E2 1029 l3E4 1030
DC ALZ CEOR07-0R07) DC AL2tXMITE)
13E6 1031 POR07 DC AL2l EORD71
1032
1032
1032
1033 .......................................................................
1034
i035
* *
THIS ROUT[ NE IS USED TO TEST ALL OF THE MANUAL ENTRY FUNCTIONS OF THE KEYBOARD.
* *
10367 ······················~················································
l3E7 1038 RTN iO OC
13E8 1039
DC
l3EA 1040
DC
XL 11 101
XL l' so·
AL2 CRTNll)
START OF RCJ.JTINE 10
1041
1042 1043
1044 1045
H'l.11 RTNFLG, X1 40 1 BT LINK TBN SBYTE2 1 SSW14 BT LINK
TEST FOR PRINTER SKIP THIS ROUTINE IF SO TEST FOR NO KEYBOARD
SKIP IF SO
1046
1047
1048 1407 1049
B
CHMODX
B
SETUP
B
PRINT
DC
XLl'Ol ·
GO TEST FOR MODEL 4, SKIP IF SO GO DO INITIAL ~USEKEEPING
GO PRINT RTN HEADING
1408 1050.
l40A 1051
DC. lll'3l' DC Al2lHEADlOI
1052
1053 1054 1055
TBN SBYTE21SSWl3
JF RlOST
l_A
St<. TO SP ,XR2
ST CURAID,XR2
TEST FOR SEL PEN BUT NO KEYBOARD
JUMP IF K EYBOARO INSTALLED POINT TO SEL PEN ROUTINE
1056 1057
MVC AIOEXl-l(lJ,CURDEV MVC AIOEXl,0(1,XRZ)
SET EXPECTED FIELD
1058
B
1059 RlOH B
1060
B
1432 1061
DC
1434 1062
DC
1436 1063
DC
SELPEN SELECT DOSIO AL2lAIDTlE-AIOTll
AL2 (XHJTE)
Al2lAIDT1El
GO DO SEL PEN ROUTINE ONLY GO SELECT THE DEVICE GO WRITE iNITlAL PATTERN
1064
1065 1066 1067
B
TR ES Pl
LA AIOTAB,XR2
ST CURAID,XR2
TEST FOR ACKl RETURNED FETCH ADORES~ CF AID TABLE
STORE IT
1068
1069
1070
B
FILLFF
HVC AIOEXl-ll l) ,CUROEV
MVC AIDEX1,0(l,XR2)
GO Fill EXP RESULTS BUFFER WITH FF SET UP OE VI CE IN EXP RES UL i . SET UP AID IN EXP RESULTS
1071 1072
MVC EXPBUF+26Cl8J,~IOEX2 SET UP EXP BUFFER FOR lST TEST
MVI WORK-1,0
CLEAR CANCEL FLAG
1073
1'>74 AIDPOL 8
DO POL
GO POLL THE DEVICE
DATE
26JUN75
EC NO. 825023
250CT75 825032
15JAN76 825034
l4MAY76 &25035
PROG ID PAGE
0894-3 (. DATE
8
EC NO.
0
26JUN75
81.5023
250CT75 825032
15JAN76 825034
14MAY76 825035
PROG ID PAGE
0894-3
8A l
L
i
IO
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
.
· ,
I
·
·
·
·
·
·
·
·
·
·
·
··
·
IBM MAINTENA~CE DIAGNOSTIC PROGRAM 8943 DA FUNCTIONAL TESTS
PART NO. PAGE
423425'?! IBM MAINTENANCE DIAGNOSTIC PROGRAM
9 I t" I ·.. 8943 DA FUNCTIONAL TESTS
PART NO. 4234259
PAGE
9A
ERR LOC OBJECT CODE
AODR STMT SOURCE STATEMENT
EKR LOC OBJECT CODE
AOOR STMT SOURCE STATEMENT
1460 OC 08 2078 25FB
1466 35 02 3904 l46A 38 10 2658 146E CO 10 1502 1472 38 20 2658 1476 CO 10 15EA 147A 38 40 2658 l47E CO 90 l45C
1482 60 00 03 00
co 1486
81 1520
l48A lC 00 2FF9 03 l48F C2 01 39E6
1493 10 00 2Ff 9 00
1498 f2 81 OA
1498 D2 01 OB
149E 70 40 00
14Al CO 01 1493 14A5 lC Q9 3944 OA 14AA CO 87 021E l4AE 01
l4AF 2FF9
1481 394C
1483 CO 87 1C9A 1487 30 6E 2FF~ 1488 F2 01 24 14BE 30 7E 3ADF 14C2 CO 81 1575 l4C6 38 FF 2FF8
HCA F2 90 15
14CD 30 F 1 3ADF 1401 F2 81 07 1404 30 F6 3AOF 1408 FZ 01 7F 1408 CZ 02 3A6A l4DF F2 87 78
l4E2 3A FF 2FF8
l4E6 CO 87 1A84
HEA 0057
14EC 4llF 14EE 3978 l4FO CO 87 2118
l4F4 CO 87 1AB4 14FB 0000 14FA 4201 l4FC 2636 14FE CO 87 145C
1502 BD 6D 00
1505 f2 01 10
1508 38 08 265A
150C CO 10 145C
1510 38 02 265A 1514 co 10 145(; 1518 3C 04 262A 151..C CO 87 22A7
1520 00 FF 2E72 42FF
1526 F2 81 31 1529 2C 09 3BOE OA 152E CO 87 021A
1532 82
1533 21 1534 3BOE
1536 CO 87 1FE9
1075
MVC
1076
L
1077
TBN
1078
BT
1079
TBN
1080
BT
1081
TBN
1082
BF
1083
1084
CLC
1085
BE
1086°
1087
MVC
1086 CHAIO LA
1089 THAIO CLC
1090
JE
1091
LA
1092
CLI
1093
BNE
1094 AIOFNO MVC
1095
8
14AE 1096
DC
1480 1097
DC
1482 1098
DC
1099
llOO
B
1101
CLI
1102
JNE
ll03
CLI
1104
BE
ll05
TBN
1106
JF
1107
CLI
1108
JE
1109
CLI
1110
JNE
1111 SKIPTR LA
lll2
J
1113 NOPAZ SBN
1114
8
14EB lll5
DC
14ED 1116
DC
l'tEF 1117
DC
1118
8
1119
1120 AIOLP 8
14f9 1121
DC
l4F8 1122
DC
lltfD 1123
DC
112't
8
1125
1126 OOPSZ cu
1127
JNE
1128
TBN
1129
BT
1130
TBN
1131
BT
1132 OOPSl MVI
1133
8
1134
11:~5 AIOOK CLC
1136
JE
1137
MVC
1138
B
1532 1139
DC
1533 1140
oc
1535 1141
DC
1142
B
EXPSUF+8(9)tENQ
CURAIO,XR2 POLFLG,X'l0' OOPS2
POLFLG ,x' 20'
TRR
POLFLGtX 9 40' AIDPOL
PUT POLL IN EXPECTED RESULTS POINT XR2 TO CURRENT AID TABLE TEST FOR STATUS RECEIVED ERRO.< IF SO TEST FOR T~ST REQ. REC'D
BRANCH IF SO
TEST FOR AID REC'D
MUST BE EOT, GO POLL AGAIN
3( 1· XRU ,O( tXR2 t
AIOOK
TEST FOR CORRECT AID REC'D BRANCH IF SO
WORK , 3 ( 1, XR l)
Al OT AB tXRl
WORK,0(1,XRlt
AIDFNO
111,XRlltXRl
0( rXRU ,c· '
TS TA ID AIDRC,10(10,XRll UNPACK XL l' 1 1 AL2(WORKt AL2(HEXAI0-31
FET'H THE REC'D AID POINT XRl TO TABLE TEST THE REC'D AID AGAINST TABLE JUMP WHEN !=OUNO
INCREMENT TO NEXT ENTRY TEST FOR LAST ENTRY BRANCH IF NOT MOVE THE AID TO THE MESSAGE UNPACK THE HEX VALUE
SELECT WORK,X 1 6E·
NOPA2
AIOEX1,X 1 7E' EOTOUT WORK-l,X 1 FF 1
NOPA2
AIDEXl,X'Fl'
SKJPTR
AIOEX1,X 1 F6 1 NXTKEY TRSKI P, XR2 NXTKEY WORK-l tX 1 FF' DOSIO AL2CAIDT3E-AIOT3J AL2 CXHITE t AL2tAID"'3E)
TRESPl
DOSIO
XL2'0'
AL2CXMITRC+lt AL21EOT-U AIDPOL
0( ,XR2) ,X'6D 1
OOPSl
POLST-1,x·oe· AIOPCic. POLST-l ,X 1 02' AIOPOL ERR,l'Nl< ERROR
RESELECT THE DEVICE WAS AID REC·D c PA-2tCNCL) JUMP IF NOT DOING SEL PEN TEST? EXIT IF SO WAS THIS SECOND PASS JUMP IF NOT WAS EXPECTED AID PF-1? IF SO SKID REST Of PF'S WAS EXPECTED AID PF-6? GO ON IF NOT SET XR2 TO SKIP REST Of PF 1 S GO ON RESUME WITH TEST REQ INDICATE lST PASS DONE GO WRITE ERROR MESSAGE
GO TEST CORRECT RESPONSE GO SEND EDT TO DEVICE
GO START POLLING AGAIN
WAS AID BEING DONE = CLEAR
ERROR IF NOT TEST FOR BUSY POLL AGAIN If SO TEST FOR DEVICE END POLL AGAIN IF SO SET UNEXPEtTED RESPONSE GO TO ERROR ROUTINE
EXPBUF+255(256J,XMITRC+255 TEST EXP AND ACTUAL RESULTS
NXTl<.EY
INCORPll0),101,XR2) FIX UP MESSAGE
PRINT
GO PRINT FAILING AID KEY
XL1'82 1
IL1'33·
Al2l INCORP J
PX REX A
GO PRINT EXP. G ACnAL RESUl. TS
I I -
I I I I
!
I I
II ,....~..,
I ,-
~· I ·.·
('"·:
"'·-
I
10
I
I
IC·
I
I
II r i.;,
I
iI r...-...:.
!o
I
153A CO 87 1C9A
153E CO 87 1A84 1542 0051 1544 43lf 1546 3906
1548 co 87 2118
l54C 35 02 3904 1550 30 7E 3AOF 1554 F2 81 C4
1557 F2 87 12
155A CO 87 1C9A
155E CO 87 lAB4 1562 0008
1564 431F
1566 3984
1568 co 87 2118
156C E2 02 08 156F BO E6 00 1572 F2 01 OE
1575 CO 87 1A84
1579 0000
1578 4201 1570 2636
157F CO 87 0216
1583 ZC 09 391F OA 1588 3C 00 2FF8
158C 34 02 3904
1590 er 87 1FD5
1594 ZC 00 3AOF 00 1599 BO 7E 00 l59t. F2 81 5A 159F BO FO 00 15A.2 F2 Bl 16 15A5 88 60 00 15A8 89 90 00 15AB F2 90 20 15AE OC 03 207F 3AOF
1584 3C r3 2oeo
1588 F2 87 19 1588 OC 02 207E 264F 15C l 3C 02 207F 15CS OC. 08 2088 3AED 15CB F2 87 06 15CE OC 11 2Dtt0 3AED
1504 15D8
co
co
87 87
1C9A
lAB4
150C 0018
150E 431F
15EO 3920
15E2 CO 87 2118
15E6 CO 87 l4F4
15fA BO FO 00
15ED CO 81 1520 15Fl 3C FO 2FF9 15F5 CO 87 148F
15F9 OC 08 2084 3AE4 15FF OC 09 2D88 3FFA
1605 CO 87 1C9A 1609 CO 87 1 AM 1600 0001
1143 WRTERM 8
1144
B
1543 1145
DC
1545 1146
DC
1547 1147
DC
1148
B
1149
L
1150
CLI
1151
JE
1152
J
1153
1154 NXTKEY 8
1155
B
1563 1156
DC
15~5 1157
DC
1567 1158
Ot
1159
8
1160
1161 NXTAID LA
1162
cu
1163
JNE
1164 EO"IOUT 8
157A 1165
DC
157C 1166
DC
157E 1167
DC
1168
B
1169
1170 NEWAID MVC
1171
MVJ
1172
ST
1173
1174
B
1175
MYC
1176
CLI
1177
JE
ll 7!t
CLI
1179
JE
1180
lBN
1181
T8F
1182
JF
1183
NYC
1184
MVI
1185
J
1186 SUTR MVC
1187
MYJ
1188
MVC
1189
J
1190 NORAIO MVC
1191
1192 WRTAJD d
1193
8
1500 ~194
DC
15DF 1195
DC
15El 1196
DC
1197
B
1198
8
1199 1200 TRR CLI
1201
BE
1202
MYl
1203
B
1204
1205 SELPEN MVC
1206
MVC
1207
1208
B
1209
8
160E 1210
DC
SELECT
DOSIO AL2tAIDT5E-AIDT5t AL2( XM ITE t AL2 I AI DT5 Et TRESPl CURAIO,XR2
AIDEXl .x·1e·
SPRTY
NXTAID
GO RESELECT DEVICE GO WRITE ERROR MESSAGE ON TUBE
GO TEST CORRECT RESPONSE RELOAD XR2 DOING SEL PEN TEST? JUMP IF SO GO TO NEXT AID TEST
SELECT
DOS IO
AL2 ( AIDT4E-AIDT4 J Al21 XMITEI Al21AIDT4E I TR ES Pl
GO RESELECT DEVICE ERASE PREVIOS MESSAGES
GO TEST .CORRECT RESPONSE
111, XR2l, XRZ Ol,XR2J1X 1 E6 1 NEWAID DOS JO
XL2 1 0 1 AL2 lXMITRC+lJ ALZCEOT-U
LINK
INCREMENT XR2 TO NEXT TABLE ENTRY TEST FOR READER TEST CENDJ JUMP IF NOT GO SEND EDT TO DEVICE
GO TO NEXT ROUTINE
AIOM,10110,XR2)
WORK-110
CURAID,XR2
MOVE NEW AID TO MESSAGE RESET PASS FLAG STORE NEW TABLE ENTRY
FIL.LFF
Al DEXl ,OU ,XR2 I"
0(,XR2t,X 1 7E 1
SELPEN
OC,XR2t.x·FO·
SUTR OC,XR2)1X 160 1
0 ( , XR2 ) 'X '90 ' NORAiD EXP8UF+l214J,AIDEX1 EXP8UF+13,x '031 WRTAID EXPBUF+llC3),TSTREQ EXP8Uf+l212 ExrauF+241121,AIDEX2 WRTAID
EXPBUF+26Cl81eAIDEX2
Fill EXP RESULTS SUFFER WITH FF SET UP NEW AID FOR EXP RES\l..TS DOING SEL PEN TEST? JUMP IF SO IS NEXT AID TEST REQ? JUMP IF SO TEST FOR SHORT READ
PA KEYS OR CLEAR NORMAL AID IF NOT SET UP EXP RESULTS FOR SHORT READ
GO WRITE PATTERN MOVE IN TST REQ HEADING INSERT STX
GO WRITE PATTERN MOVE IN NORMAL EXP. Results
~ELECT
DOS IO
Al.2lAIDT2E-AIOT2t Al2( XMITEJ
AL2CAIDT2EJ TRESPl AIDLP
OC,XR2t.X·F0 1 AIOOK WORK,X 1 f0 1 CHAID
GO RESELECT DEVICE GO WIRTE NEW AID TO TRY
·GO TEST FOR CORRECT RESPONSE GO LOOP
WAS TEST REQ. EXPECTED OK IF SO SET UP FOR TEST REQ. GO HANDLE EltROR IF NOT
EXPBUF+l719JrAIOEX2-9 SET UP EXPECTEf RESULTS EXP8UF+24Cl01,SELPEX
SELECT DOS IO AL2CAIDT6E-AIDT61
GO SELECT DEV ICE AGAIN PUT SEL PEN PATTERN ON
r.}ATE' 2Z.~JN75 ec NO'. 82soz3
250C.T75 825032
15JAN76 825034
14MAY76 825035
PROG ID PAGE
C 0894-3! OAT E
9 ! EC NO. IC
26JUNl5 825023
250CT75
825032
15JAN76 825034
l<\llAY76
825035
PROG ID PAGE
0894-3 9A
I
io
I
1I C
I
iO
'
., .
'.
-------------------------~-------------------~~
IBM MAINTENANCE DIAGNOSTIC PROGRAM
8943 DA FUNCTIONAL TESTS
ERR LOC OBJECT CODE
ADDR STMT SOURCE STATEMENT
PART NO. PAGE
\
I
'>-234259'. IBM MAINTENANCE DIAGNOSTIC PROGRAM
io II \[.".".
l } 8943 DA FUHCTIOHAL TESTS
ERR LOC OBJECT CODE
ADDR STMT SOURCE STATEMENT
PART Nn. "234259
PAGE
lOA
160F 431F 1611 3FCO 1613 co 87 2118 1617 co 87 14F4
1618 co 87 1AB4 161F 002F 1621 431F 1623 3FFO 1625 co 87 14F4
1629 11 162A 80 1628 17C4
1620 38 40 2FFO
1631 co 10 0216
1635 39 18 020A 1639 co 90 0216 1630 CO 87 24EA 1641 38 01 OAOC 1645 co 10 0216
1649 CO 87 l9F9
1640 co 87 021A 1651 01
1652 20 1653 2860 1655 CO 87 1C9A 1659 CO 87 1AB4 165 D 0006 165F 431F 1661 3047
1663 co 87 2118 1667 OC 00 3E95 Z605 1660 co 87 1735
1671 30 6E 2659
1675 co 81 1756 1679 CO 87 lfD5 1670 OC 00 3E96 2659 1683 OC 08 2078 25FB
1689 OC 08 2084 3E9B 16BF 38 20 26!'.';o
1693 F2 90 ID 1696 OC 02 207E 264F l69C 3C 02 207F
16AO OC 02 2082 3E98 l6A6 CC 19 209C 3080 l6AC 3t 03 2090 1680 F2 87 OA 1663 OC 19 209E 3CCF 1669 3C 03 209f
1680 oc 00 2661 2659
l6C3 OD FF 42FF ZE72
16C9 F2 81 18
16CC CO 87 1783 1600 3D 6E 2659 1604 F2 81 10 . 1607 38 20 2658 1608 CO 10 17AS l60F 30 70 2659 l6E3 CO 87 1~55 l6E7 38 20 2658 16EB CO 10 0216 l6EF CO 87 1C9A
1610 1211
DC AL2(XMITE,
1612 1212 1213
DC AlZ Ul DT6E J
8
TRESPl
GO CHECK RESPONSE
I
1214
B
1215
1216 SPRTY 8
1620 1217
DC
1622 1218
DC
AI OLP
DOSIO AL2(AIDT7E-AIDT7) Al2CXHITEJ
GO WAIT FOR RESPONSE WRITE RETRY ON TUBE
I I
l
i
I
1624 1219
DC AL,(AIDT7E)
I
1220
B
AIDLP
RETURN TO LOOP
I
1221. 1222 1223
**********BT*OH*TIH*S**RU*OP*PU"ET'R*IN*E*A*N*OC*H*ELO*CWK**SER**TH*CA*A*TS*E*TH*A"EL'*PH*KA*EY*BB*EOT*A*R*CD*H*A*CR*AA*NC*T*CE*OR*RS*R.*E*C*T*L*Y**E*N*T*E*R*********!i
',
1629
1224 1225 1226
R**T*tH**l ***D*C*****X**l*l '*l*l*' ****************S*T*A*R*T**O*F**R*O*U*T*IN**E**1*1*****************!II
l62A 1227 l62C lt28
DC Xll 1 80' DC AL2(RTN12)
I
1229
1230 1231
TBN RTNFLG,X'40 1 BT LIM<
SISKIPTHETHDISEVRICOEUTAINEPRIINFTEsRo
II ()
1232 1233 1234
TBF SBYTE2,SSW14+SSW13
BF LINK
B
CHMODX
TEST FOR NO KEYBOARD
SKIP IF so
GO TEST FOR MODEL 4, SK IP IF so
II ()
1235
TBN LINES,X 1 01'
TEST FOR KATATKANA INSTALLED
1 ("
1236 1237
BT LINK
8
SETUP
SKIP THIS ROUTINE IF SO GO DO HCUSEKEEPING
i I
1238
B
PRINT
GO PRINT RTN HEADING
.
1651 1239 1652 1240
DC
Xll 101'
DC
IL1 1 45t
iI (
1654 1241
DC
Al2(HEADll)
1242 RllRTl S
1243
8
165E 1244
DC
SELECT DOS IO
AL2lRllPlE-RllPl)
GO SELECT THE DEVICE GO WRITE PATTERN FOR KEYBOARC TST
1660 1245
DC AL2(XMITEJ
1662 1246
DC
AL2 ( Rll Pl E1
1247
8
1248
MVC
1249 RllPL B
1250
CLI
1251
BE
1252
8
1253
MVC
TRESPl RllEXl-1( lJ ,CURDEV RllPOL AIO,X'6E'
RllUNL FILLFF RllEXl(lJ,AJD
GO TEST CORRECT RESPONSE
PUT DEVICE IN EXP. RESULTS GO POLL DEVICE &·WAIT WAS THE RESPONSE CNCL? IF SO, GO UNLOCK & POLL MORE FILL EXP. BUFFER WITH FF FILL IN EXPECTED AID
1254 1255 1256
HVC EXPBUF+8(9J,ENQ
FILL IN POLL PORTION OF BUFFER
MVC EXPBUF+l7C91,RllEX2 FILL IN lST PART OF RESPONSE
TBN POLFLG1X 1 20 1
WAS TST REQ. REC'D
1257 1258 1259
JF RllTE
JUMP IF NOT
MVC EXPBUF+l1131,TSTREQ MOVE IN TST REQ. HEADING
MVI EXPBUF+l212
MOVE IN STX
1260
MVC EXPBUF+l5(3),RllEX2
1261 1262 1263
MVC EXPBUF+41(261,UCP
MVI EXPBUF+42,3
J
CONDF
UPPER CASE EXPECTED INSERT ETX
1264 RllTE MVC EXPBUf+~3C261vlCP
LOWER CASE WAS EXPECTED
1265
MVI EXP8UF+44,3
INSERT ETX IN EXP. RESULTS
126~ CONDE MVC SAVAIDClJ,AIO
SAVE THE AIO CHAR.
1267
CLC XHITRC+255(256l,EXPBUF+255 CHECK RESULTS CORRECT
1268
JE RllGOl
JUMP IF SO
1269
B
RllER
OOPS, ERROR GO HANDlE
12!0
CLI AIO,X 1 6E'
WAS THE AID - CANCEL?
1271
JE RllGOl
IF SO GO TO NEXT PART
1272
TBN POLFLG,X 1 20·
WAS TST REQ. REC'D
1273
BT RllPA
RETURN TO POLL IF SO
1274 1275
cu AI D.X'701
B
RllRTl
WAS AID CHAR ENTER GO RETRY IF SO
c
1276 RllG01 TBN POLFLG,X·20'
WAS TST REQ. REC 1 D
1277
BT
1278 Rl1kT2 8
LINK SELECT
DONE IF SO GO SELECT AGAIN
I (~·
l
16F3 CO 87 lA84 l6F7 0067 16F9 431F
16FB 3DAF
16FD CO 87 2118
1701 co 87 1735
1705 lO 70 2659
1709 co 01 1756
1700 OC 19 209E 3080
1713 00 FF 42FF 2E72
1719 co 81 0216
1710 co 87 1783 1721 30 70 2659
1725 co 81 l6EF
1729 3D 6E 2659
172D co 01 17A5 1731 co 137 0216
1735 34 08 1776 1739 CO 87 1C39 1730 38 10 2658 1741 fZ 10 33 1744 38 20 2658 1748 F2 10 28 174B 38 40 2658 174F F2 lO 12
17~2 co 67 1739
1756 CO 87 iAB4 175A 0004 l 75C 431F 175E 30F5
1760 co 87 1739
1764 30 70 2659 1768 F2 61 08 1768 30 6E 2659
l76F co 90 1756 1773 co 87 0000
1777 39 OA 265A
l 778 co 90 1739
177F CO 87 1518
1783 34 08 l7C3
1787 co 87 021A
178B 81 178C 21 178D 3E92
178F co 87 1FE9
1793 co 87 lC9A
1797 co 87 lAB4
1798 OOA3
1790 431F l 79F 3E53 17Al CO 87 2118 l7A5 CO 87 1735
1279 16F8 1280
e
COSIO
DC AL2(RllP2E-RllP2t
WRITE NEW PATTERN
l6FA 1281 l6FC 1282
DC Al2{ XH ITE J DC AL2(RllP2E)
1283
6
TRESPl
GO CHECK RESPONSE
1284 RllPB B
1285 RHB cu
RllPOL AI0,X'701
GO POLL t WAIT FOR RESPONSE WAS ENTER REC'D
1286
BNE RllUNL
IGNORE IF NOT
1287 1288
HVC EXP6UF+43126J,UCP
MOVE UPPER CASE TO EXP BUFFER
CLC XMITRC+255 (256), EXPBuF+255 CHECK FOR CORRECT RESULT
1289
BE LINK
DONE IF SO
1290
1291 1292 1293 1294
B
RllER
cu AIDtX 1 70'
BE RllRT2
CLI AID1X'6E'
GO TO ERROR ROUrlNE
WAS ENTER REC'D
IF SO GO RETRY WAS AID · CNCt.
1295 1296
1297
BNE RllPA
8
LINK
RETURN TO POLLING IF NOT DONE IF CNCL REC'D
1297
1297
1298 ·
1299 *
SUBROUTINE TO POLL FOR ROUTINE 11· - RETURNS WHEN TST REQ., CNCL OR ENTER ARE DETECTED. ANY STATUS CAUSES ERROR
1300
1301 RllPOL ST RUPOR+3,ARR
STORE RETURN ADDRESS
1302 RllP B
DO POL
1303
TBN POLFLG.x · 10 ·
GO POLL THE DEVICE ~AS STATUS REC'D
1304
1305
JT RllCB TSN POLFLG,X'20 1
GO CHECK FOR BUSY, ERROR IF NOT WAS TE~T REQ. REC'D
1306
1307
JT RllPOR .TBN POLFLG,X 9 40 1
IF SO, RETURN WAS AID REC'D
1308
JT RllAT
1309
B
1310 RllUNL s
RllP COSIO
GO POLL AGAIN GO UNLOCK KEYBOARD
1758 1311
DC AL2fUNLOCE-UNLOCK)
1750 1312 175F 1313
DC
AL2\XMITE)
DC AL2 <UNLOCEJ
1314
8
RllP
RETURN TO POLLING
1315 RllAT Cll AID,X'7D'
WAS ENTER REC'D
1316
JE
1317
cu
1318
BF
1319 RllPOR 8
1320.
RllPOR
·-·AID,X·6E 1
RllUNL
EXIT IF SO WAS CNCL REC'D
UNLOCK & RETURN TO POLL If NOT RTN TO USER IF TST REQeENTER, CNCL
1321 RllCB TBF POLST-l,X·OA 1
1322
BF RllP
TEST IF BOTH OB AND DE ARE OFF POLL AGAIN IF NOT
1323
B
OOPSl
ERROR IF BOTH CB AND OE ARE OFF
1324
1324
1324
* 1325 SUBROUTINE TO HANDLE ERROR FOR ROUTINE 11. CAUSES TRANSMIT/REC
1326 ·
1327 *
t EXPECTED RESULTS TO BE DUMPED ON PRINTER At.JD ALLOHS CE OPTION CANCEL OR RETRY.
1328
1329 RllER ST
R HERR+ 3, ARR
STORE RETURN ADDRESS
1330
1788 1331
l78C 1332
8
PRINT
oc XL1'8l'
oc IL1'33'
GO PRINT MESSAGE
178E 1333
DC Al2(RllHG)
1334
1335
B
PXREXA
GO PRINT ACT & EXP RESULTS
1336 RllRTN B
1337
B
SELECT OOSIO
GO SELECT AGA!N
GO WRITE ERROR PATTERN & INST~.
l79C 1338
DC Al2(RllP3E-RllP3J
l79E 1339
DC
AL2UMITE!
17AO 1340
DC AL2(RllP3EJ
1341
B
TRESPl
GO CHECK CORRECT RESPONSE
J 342 RllPA 8
RllPOL
GO POLL DEVICE TO GET RESPONSE
I
DATE
26JUN75
EC NO. 825023
250CT7S 825032
15JAN76 825034
l4MAY76 825035
PROG IO PAGE
C 0894-3j OAT E
26JIN75
10 I EC NO. 825023
250CT7S 825032
15JAN76 825034
14MAY76 825035
PROG ID PAGE
10
I
IO
I
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·'I o
Io
·
·
·
·
·
·
·
·
··
·
·
·
·
·
·
··
················ ················
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PART NO.. PAGE
!
l e 423425«Ji 11 .
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PAR I NO.
PAGE
4234259 llA
89.+3 DA FUNCTIONAL TESTS
i 8943 DA FUNCTIONAL TESTS
ERR LOC OBJECT CODE
l7A9 30 70 2659 l7AD F2 81 10 1780 30 6E 2659 1784 CO 01 l7A5 1788 30 00 2661
17BC cc 81 0216
l 7CO co 87 0000
17C4 12 l7C5 00 17C6 1806
l7C8 co 87 19F9 17CC co 87 021A
1700 06 l7Dl 24 17D2 2884
1704 oc 01 3E70 25CF l7DA co 87 1C9A 17DE co 87 1AB4
17E2 OOlD 17E4 431F l7E6 3E71
l 7E8 co 87 2118
l 7EC CO 87 1AB4 17FO 0000 17F2 4201 l 7F4 2636
17F6 co 87 17FA
ADDR STMT SOURCE STATEMENT
1343
Cll AID, X'70'
CHECK FOR ENTER
IiI ERR LOC OBJECT CODE (~
1344 1345
1346 1347 1348
JE RllERR CLI AID,X'6E 1
BNE RllPA
CLI SAVAID90 BE LINK
EXIT IF so
WAS AID CNCL
GO POLL AGAIN
WAS ORGINAL AID TEST REQ? NEXT ROUTINE If SO
I
1871 co 87 1C9A
i ?
I
1875 1879
co
oc
87 FF
18El 4320
412E
187F OC 20 4220 402E
1
1349 RllERR B
·-·
RETURN TO USER
I
*! 1350
1351
**********************~**********************************************··:
*
THIS ROUTINE PUTS OUT AN END OF TEST MESSAGE ON THE DEVICE
1352 **********************************************************************~
1353 17C4 1354· RTN12 DC
.XL1 1 12'
START OF ROUTINE 12
I I
l7C5 1355
DC Xll' oo·
,.
1885 co 87 1AB4
1889 0000 1888 49C4 1880 4980
lBBF CO 87 2118
17t.:7 1356 1357
1358 1359 1700 1360 1701 1361 1703 1362
1363 1364
DC AL2lRTN13J
B
SETUP
B
PRINT
DC XL 1'06.
DC
IL1 1 36'
DC Al21HEAD12J
MVC EJKGt2),0EVICE
8
SELECT
POINT TO EXCERCISER GO DO HOUSEKEEPING GO PRINT RTN HEADING
PUT DEVICE IN PATTERN
GO SELECT
j
1893 oc FF 412E 4320
l
I
I I
18~9 oc 20 402E 4220
l89F 3C FF 4310
18A3 CO 87 1C9A
I
j
18A7 CO 87 1088 lBAB 02 !SAC 0000
1365 17E3 1366 17E5 1367 l7E7 1368
1369
1370
17Fl 1371 17F3 1372 17F5 1373
1374 1375
B
DOSIO
DC
AL2(Rl2PE-R12P J
OC
AL21XMITEI
DC AL21Rl2PEJ
8
TRESPl
8
DOSIO
DC
XL2 1 00'
DC AL21XHITRC+lJ
DC
AL21EOT-ll
B
EN ORT
GO WRJTE PATTERN GO CHECK RESPONSE GO SEND EOT
! 1
I
: c
I
,- I '.
I \.~,f
18AE OF 01 4134 2620
1864 00 01 4134 4136
18BA F2 01 06
1880 oc 01 4134 4138
18C3 OE 01 4130 2620
18C9 OD 01 417e 4130
18CF CO 01 1871
1803 1809
OF
co
01 87
4130 0212
4130
1800 co 87 1871
ADOR STMT SOURCE STATEMENT
1411
1412 LOOP13 B
1413
B
1414
MVC
1415
MVC:
1416
1417
B
188A 1418 PlENG DC
188C 1419
oc
l88E 1420
DC
1421
1422
8
1423
1424 SAVEX MVC
1425
HVC
1426
MVI
1427
1428
8
1429
8
18AB 1430
DC
18AO 1431 CONADR DC
!432
1433
SLC
1434
CLC
1435
JNE
1436
MVC
1437 UPHEX ALC
1438
CLC
1439
BNE
1440
SLC
141tl
·a
1442
8
SELECT
GO SELECT THE DEVICE
CONVER
GO CONVERT ADDRESS
FILLC256J,EX8UFE
RESTORE XMIT/REC FIELD FOR WRITE
XHITRC+32133),EX8UF+26
DOS IO
Xl2'0000' Al2( XM ITRC+1988 I AL2(XHITRC+l920t
GO WRITE ENTIRE BUFFER PATTERN LENGTH
TRESPl
GO TEST CORRECT RESPONSE
EXBUFEf256J,Flll
SAVE XMIT/REC FIELD
EXBUF+26C33),X~ITRC+32
Flll1X'FF 1
RESTORE F!ll CHAR
SELECT READBF Xll 1 02 1 Xl2 1 00 1
CURR I Pl 2 J ,ONE CURRIPC2J,RIPENO UPHEX CURRIPC2J,RIPRST HEXADRC2 J ,ONE EADRl2J,HEXAOR LOOP13 HEXAORC2J,HEXAOR TEST LOOP13
GO RESELECT GO READ BUFFER
EXPECTED CURSOR AD~RESS
UPDATE RIPPLE START ADDRESS AT ENO YET?
REINITIALIZE RIPPLE ADDRESS INCREMENT HEX ADDRESS ARE WE DONE? LOO!> tF NOT RESET HEX ADDRESS GO CHECK CONSOLE SWITCHES RESTART
17FA 3C 00 OA03 17FE 3C FF 260E
1802 co 87 0000
1806 13 1807 00 1808 FFFF
180A co 87 19F9 180 E oc 07 4207 4015
1814 OF 01 4130 4130
181A oc 01 4134 4132
1820 C2 01 4243 1824 3C OF 2FF9 1828 4C 36 00 ltl76 1820 02 01 3C 1830 OE 00 2FF9 2620
1836 co 20 1828
183A OC 01 4178 ltl79
1840 oc 01 l88A 417F
1846 38 80 ~FFD l84A F2 10 10 1840 3C 03 43E8
1851 oc 01 4178 413A 1857 oc 01 188A 4170
165D 3C 03 4988 1861 oc FF "12E 4320 1867 oc 20 402E 4220 1860 3C FF 4320
1376 ENDRT HVI
1377
HVI
1378
a
PRTN,O
RESTFl ,x· FF· x· o·
RESET PRESENT R~UTINE NUMBER SET FLAG TO DENOTE PGH l.OOP
RESTART AT ADOR o
II 0
1379 1380 1381
1382
1383
******~*****RTTLH*EOHA*EOI*DSP*SD*ACR*RTOO*AINUP*TTP*AIILNN*REO*EE*U·SCDIL·SHAY·AT·ANA·GO·ENMT·DOCA·EN·EAU·ANIA·TCDL·HL·YFI·SRPO·ASf·oESEl·LSN·ETT·CHTE·TEHR·ERE·DDOD·UE.·EVG·XHI·C.C·EE·..·RT·CH·ITSI·HSE·E.·R·CO·UIU·TRT·SI·NOW·RE·R·IPWT·OE·ILS·SL·. A·NA·ON·D··1.*i~·:)·
(:: (
l38<t *********************···············~·································· 1385
1806 1386 RTN13 OC
1807 1387
DC
Xll'l3'
xu ·oo·
ROUTINE 13
(:
1809 1388 1389
DC XL2'FFFF 1
c,
1390
1391
B
SETUP
GO DO INITIAL HOUSEKEEP ING
MVC X~ITRC+7(8t,EXBUF+l INITIALIZE XMIT/REC FIELD
1392 1393 1394
1395
SLC HEXAORl21,HEXADR
RESET HEX ADDR TO BE USED
MVC CURRIP(2),RIPST
POINT TO START OF RIPPLE DATA
LA
XMITRC+67,XR1
POINT XRl TO 1ST DATA POSITION
(.··.·,
MVI wORK,X'OF'
SE~ UP COUNTER
_
1396 FILAGN MVC
1397
LA
1398
ALC
1399
BNOL
1400
HVC
0(60,XRU,EXRIPE
60( ,XRl J ,XRl WORK<ll,ONE FILAGN EAORt 2 J ,EM002
FILL XMIT/REC FIELD WITH RIPPLE DATA!
INCREMENT TO NEXT 60
I
INCREMENT COUNTER
LOOP TILL FIELD IS FULL
SET UP FOR MOO 2
1401 1402 1403
1404
MVC PLENGCZJ,MOD2L TBN RTNFLGtX 1 80· JT SM2 MVI XHITRC+488,3
INSERT MODEL 2 LENGTH TEST FOR MODEL 2
JUMP IF SO SET MODEL 1 ETX
1405
MVC EAORl2),EMO!Jl
SET MODEL 1 END AOOR.
1406
MVC PLENGC2J,MOD1L
INSERT MODEL 1 LENGTH
1407 SHZ
fooiV I XM1TRC+l928,3
SET MODEL 2 ETX
i (
1408
MVC EXBUFEl256J,FILL
Sf.VE THE WRITE BUFFER
1409
MVC EXBUF+26C33J,XMITRC+32
1410
MVJ FILL,X 1 FF 1
RESTORE F:LL CHARACTER
I l .'
i
18El 34 08 1958 18E5 OC 00 18AO 4130 lBEB 38 80 18AO lBEF 34 tO 18AO
18F3 OC 01 2FF9 4130 18F9 OE 01 2FF9 2FF9
l8FF OE 01 2FF9 2FF9 1905 38 EO 2FF8 1909 3A 40 ZFFa 1900 OC 00 18AC 2FF8 l.913 3C 00 2FF9
l 917 C2 0 1 l BAC
BIB 79 OF 00 191E F2 10 18 1921 78 08 00 1924 F2 90 06 1927 79 06 00 192A FZ 90 13 1920 70 61 00 1930 F2 81 00 1933 7A 80 00 1936 F2 37 07 1939 78 70 00
J. 93C CO 10 l. 933 1940 02 01 01 1943 30 00 2FF9 1947 3C FF 2FF9 1948 co 81 1918 194F OC 01 4014 18AO l 955 co 87 0000
1443
1443
1443
1444 ... 1445
~'JBROUTINE TO CONVERT HEX ADOR TO GRAPHIC AOOR
1446 CONVER ST
1447
MVC
1448
SBF
1449
saN
1450
CONVR+3 eARR CONADRCll,HEXADR CONADR,x·ao·
C0NADR,X 1 40·
STORE RETURN ADDRESS MOYE LOW BYTE FORcE HI SJT OFF FORCE BIT 1 ON
1451
1452 1453
MVC WORKl2 t 1HEXADR ALC WORKC2J ,WORK ALC WORK ( 2 I , WORK
MOVE HEX ADOR TO WORK SPACE SHIFT LEFT 2 BITS
1454
SBF
1455
SBN
1456
HVC
1457
MVI
1458
LA
1459 XLAT:: TBF
1460
JT
1461
TBN
1462
JF
l"t63
TBF
1464
JF
1465 Dl T09 cu
1466
Jf.
1467 SETHIN SBN
1468
J
1469 LOZER TBN
147(1
BT
1471 TLON LA
1472
CLI
1473
MVI
llt74
BE
1475
MVC
1476 CONYR B
WORK-l1X'EO· WORK-l,X 1 40 1 CONADR-1 C1 J , WORK-1 WORK10
CONAOR-11XRl
oc ,xRu .x·oF 1
LOZER
oc ,xR1 J ,x·oa·
01T09 0(,XR1),X·06 1
TLDN
0( eXRU eX 1 61' TLDN
01,xR1J,x 1 so·
TLON
0 ( , XR 1 J , X '70 1
SETH IN 1C ,XRU ,XRl WORK,O
WORK,X' FF 1
·-·XLATE
EXBUFl21tCONADR
RESET HI 3 BITS FORCE BIT 1 ON MOVE HI BYTE OF ADORES USE WORK AS INDICATOR POINT XRl TO HI BYTE ARE All LO BITS OFF JUMP IF SO
BIT 4 ON?
LO BITS = 1 TO 7 IF NOT
BIT 213 OFF?
TRANSLATE DONE 1F NOT TEST FOR 61 DONE IF SO
FORCE HI BIT ON
DONE
TEST BITS 1,2,3 ON IF SO, SET HI BIT ON POINT XRl TO NEXT BYTE IS THIS FIRST PASS THRU INDICATE SECOND PASS REPEAT IF lST PASS PUT CONVERTED ADDRESS IN WRITE CMO RETURN TO USER
DATE 26JUN75 EC HO. 825023
250CT75 825032
15JAN76 825034
l4MAY76 825035
PROG ro
PAGE
I
C 0894-3'. DATE
11
EC NO.
c
26JUN75 825023
250CT75
825032
15JAN76
825034
HMAY76 825035
PROG ID PAGE
0894-3 lU
L
0
0
0--
IBM MAINTENANCE DIAGNOSTIC PROGRAM 8943 DA FUNCTIONAL TESTS
PART NO., PAGE
i 4234259
12 i ,.-
\.
IBM MAINTENANCE DIAGNOSTIC PROGRAM 8943 DA FUNCTIONAL TESTS
PART f'O.
PAGE
4234259 12A
ERR LOC OBJECT CODE
AODR STMT SOURCE STATEMENT
{ ERR lOC OBJECT CODE
ADOR STMT SOURCE STATEMENT
1959 34 08 19FS l95D C2 02 0000 1961 3C 00 2660 1965 OE 01 2605 2633
1968 38 eo 2607
196F F2 90 08 1972 3A 80 2605 1976 3A 80 2604 l97A 38 OA 2605 l97E 39 05 2605 1982 F2 90 08 1985 38 80 2605 1989 38 80 2604 1980 38 01 2607 1991 F2 90 OE 1994 E2 02 01 1997 34 02 1960 1998 3C 80 2607
l 99F F2 87 22
l9A2 30 SE 2605 19A6 F2 01 07 19A9 3C FF 260F l9AD F2 87 45 1980 3C 02 2606 1984 OE 01 2607 2607 19BA CO 20 1964 19BE OC 00 2607 2606 l9C4 C2 01 2607 l9C8 lC 00 OC97 00 19CD lC 00 l9EC 00
1902 CO 87 021E
1906 01 l9D7 2605 1909 25CF 19DB OC 01 256A 25CF l9El OC 01 31AE 25CF 19E7 34 02 1960
19ES 88 00 00 19EE F2 10 04
l.9Fl co 87 1965
l 9F5 CO 87 0000
19F9 34 08 lA40 l 9FD 3C 00 3Ff8 lAOl 3C FF 4320 1A05 30 00 3C3A 1A09 CO Ol lA5Z l AOD 30 02 OA03 lAll FZ 04 15 lA 14 30 00 2660 lAlB F2 Cl OE
IA l e C0 8 7 02 l A
lAlF 86 1A20 28
1478 1479
****S*U*B*R*O**U*T*IN*E**T*O***IN*C*R*E*M*E*N*T**D*E*V*I*C*E*S**··***********************************
.
1
-
·
1480 *************************************
I
1481
1482 UPDATE ST 1483 RINXR2 LA
UPOR+3,.ARR
*-* ,XR2
STORE RETURN ADDRESS REINIT IAUZE XR2
1484
HVI tONHG,O
RESET THE CONFIGe FLAG
1485 GOUP ALC CUR DEV! 21 ~DEV INC
UPDATE CURRENT DEVICE A)ORESS
1486 1487
TBN LI :>1<: , X1 8 0 ' JF T2
TEST FOR lSl l INE SELECT
1488
SBN CURDEv.x·eo·
CHANGE Hl BITS TO C OR D
l48<i 1490 T2 1491
SBN C.UROEV-1,x·ao· TBN CUROEV,X'OA' TBF CUROEV, X '05 1
ARE LO BITS OF ADOR = A
1492 1493
1494
JF T3 SBF CUROEV,X 1 80'
SBF CURDEV-1,X ·so.
JUMP IF NOT CHANGE HI BITS TO 4 OR 5
1495 T3 l496 1497
1498 1499
TBN LINE.x·oie
JF
T4
LA
1(, XR2), XR2
ST RI NXR2+3,. X1"2
MVI LI NE ,x· so·
ARE WE AT THE LAST LINE BIT
INCREMENT XR2 TO NEXT FLAG BYTE
i , __
SAVE THE ADDRESS
START AT SIT 0 AGAIN
1500
J
AD DOK
1501 T4
Cll
1502
JNE
1503
M\11
1504
J
1505 DEVOK MVI
1506 SHIFTR ALC
CUROEV,X 1 5E'
DEVOi<
OONE,X 1 FF 1 UPDR LI NE-1.x·o2'
LI NE I 21 , LI NE
DID WE JUST DO LAST DEVICE JUMP IF NOT SET THE DONE FLAG
EXIT
LOAD THE SHIFT STOPPER St-'.lFT LINE LEFT
1507
BNOL SHIFTR
1508
MVC LI NE 11 J , LI NE-l
1509 AODOK LA
LINE ,XRl
BRANCH TIL OFLO OCCURS
l INE IS NOW SH I FTED P. I GK':" ONE BIT POINT XRl TC LINE POINTER
1510 1511
M\IC SFl+l.Oll.XRll
MVC ro01+1,on.xR11
SET IMMELIATE INSTRUCTION:>
1512
1512
1513 1906 1514
B
UNPACK
DC
Ill'!'
UNPACK THE DEVICE CODE
1908 1515 19DA 1516
DC
AL21 CURDEV)
DC AL2 (DEV IC.El
I
1517 1518 1519
1520
MVC LOGOEV(2J,DE\IICE
MVC AU 2) ,DEVICE
ST
RINXRZ+3,XRZ
MOVE DEVICE TO LOG OUT FIELD
i(
INITIALIZE DEVICE IN TEST PATTERNS
STORE XR2 VALUE
1521 TDOl TBN 01 , XR2) ,·-~
1522
JT UPOR
1523
8
GOUP
1524
1525 UPOR B
1526
1526
1526
TEST DOING THIS DEVICE OKAY IF SO SET UP FOR NEXT
RETURN TO USER
i
jc
I
1527 1528
****S*U*B*R*O**U*T*IN*E**T*O***DU***IN**IT*I*A*L***H*O*U*S*E·K·E·E·P~IN·G···IN···EA·C·H···R·O*U**T*I*N*E***************
1529 ************************************************·*********
1530
1531 SETUP ST SETUPR+3, ARR
1532
M\II HICPfl,O
STORE RETURN
RESET MICRO POLL FLAG IF LEFT ON
!533
1531t
MVI FILL,X'FF'
cu STflG,G
REINITIALIZE FILL CHAR FOR XMIT/REC WAS STG MODIFIED?
1535 1536 1537 1538
1539
1540 iAlF 1541 lA20 1542
BNE FIXST
cu PRTN,2
JNH TROY
CLI CONFLG,O
JNE TROY
B
PRINT
DC.
Xll 1 86 1
DC
ll1'431
GO FIX IT If SO TEST AT RIN 02 JUMP IF RTN 01 OR 02 WAS DEVICE CONFIG FLAG SET JUMP !F SO
PRINT WARNING MESSAGE
I (j
I (~,
·I
I
1A21 268E
1A23 co 87 nz2
1A27 89FE
lA29 C1 58 1A30 1A2D F2 87 06 1A30 F3 58 80 lA33 F3 58 EO lA36 F3 88 CO 1A39 35 AO 2616 1A3D CO 87 0000
lA41 34 08 1AA8 1A45 OC 01 1A87 3CbE lA48 3C FE 3C3A lA4F F2 87 OE
1A52 34 :>8 lAAB
1A56 OC. 01 1A67 3C70 1A5C 3C 01 3C3A
lA60 F3 58 80 lA63 Fl 58 CO
1A66 OF 01 2FF9 2FF9 lA6C 30 58 3C33 lA70 OE 01 2Ff9 2620 1H6 Cl 50 lAAC 1A7A OD 01 2FF9 3C35
1A80 t.O 01 lA6C
lA84 31 58 0000 lA"8 30 58 3C39 1A8C Cl 50 lAAC lA90 38 01 3C3A 1A94 3C FF 3C3A
lA98 F2 90 04 1A9B 3C 00 3C3A 1A9F F3 58 8U lAAZ F3 58 EO
lAA5 F3 88 CO lAA8 co 87 0000
lAAC 3C 05 262A . lABO CO 87 22A7
lAB4 34 08 lB84 1AB8 34 02 l 860 lABC 35 01 lB 84
lACO OC 25 2590 2591 lAC6 OC 01 256A 25CF lACC 0C 07 2590 2806 1AD2 OC. 03 259E 2657 1AD8 OC 03 25A8 2657 lAOE OC 03 2582 2657 1AE4 OC. 03 25BC 2657 lAEA OC 01 26lC 261A lAFO lE 01 261C 01 lAFS OE 01 261C 2620 1Af8 lC. O! 261E 03 1800 C2 02 4200
lBO't 70 00 00 1807 F2 01 20 !BOA lC. 01 1829 05
lA22 1543
DC Al2(WARN,
1544 lA28 1545
8
HALT
DC XL2' 89FE'
GO HALT HALT FE
1546
1547 TROY TIO
1548
J
1549 NOROY SIO
NORDY,NOTRDY MICRON
x·so 1 ,SIOI
TEST MICRO CONTROLLER RUNNING JUMP IF RUNNING DISABLE ATTACHMENT
1550
SIO X'EO',SIOI
1551 MICRON SID ENABLE,CNTRL
ENABLE, START MICRO ENABLE DA
1552
l
1553 SETUPR B
AINT2,IARL
*-*
LOAD INTERRUPT ADDRESS REG RETURN TO USER
1554 1555
1556
·**·*·*·S*U·*·B·R*·O*·U*·T*·IN··E·····T··O···*·M*·O*·D·*IF·*Y·*·O*·R·*·*R·*E·*S·T·*O·*R·*E·*·W·*·O*·R*D·*·*·O·*lF·*E·*·*O·F······M···I·C··R···O······C···O··D···E·····*·**********
1557
1558 MODST ST HODSTR+3,ARR
STORE RETURN FOR MODIFYING MICRO
1559 1560
MVC MODIFY+3(2,,ASSN6 HVI STFLG,X· FE'
GET ADDRESS OF SSN6 WORD SET FLAG TO INDICATE MODIFIED
1561
J
DISABl
1562
1563 FIXST ST MODS1R+3 ,ARR
STORE RETURN FOR RtSTORlNG MICRO
1564
MVC HODIFY+?lZ,,ABDGRT
SET ADDRESS OF RESTORE WORD
1565
MY I STFLG, X 1 01 1
1566 DISABL SIO x·so·,s101
1567
SID x·co·,s101
SET TO INDICATE BEING RESTORED
DISABLE
ENABLE ATTACHMENT
1568
SLC WORK I 2, ,WORK
SET WORK SPACE TO ZERO
1569 SNSLP SNS SNSAREtCTRSTG
1570
ALC WORK! 2) ,ONE
SENSE TO INCREMENT ADDRESS INCREMENT COUNTER
1571
TIO OOPS4,ATTCHK
TEST ~OR ATTACHMENT CHECK
1572 1573
CLC WC1RK!2i ,XClFE -BNE SNS LP
DID we GET TO THE ADOR YET? LOOP TIL WE 00
1574 MODIFY LIO
1575
SNS
1576
no
*-*~CTRSTG
BOGRTNrCTRSTG OOP 54 .A TTCHK
DATA AT OlFE GETS CHANGED GET CONTE~TS OF WORD AT OiFF
TEST FOR ATT ACHHENT CHECK
1517
1578
TBN STFLG,X'Ol' g·11 STFLG,X 1 FF 1
CHECK FOR RESTORE
1579
JF ENABL
JUMP IF MODIFYING ST~.
1580
MVI STFLG,O
1581 ENABL SIO x·so·,s101
INDICATE STG OKAY AGAIN DISABLE AG4IN
1582
S!O
1583
SIO
1584 HODSTR B
1585
·-·X1 EO' , SIOI
ENASLEtCNTRl
START MICROCONTROLLER AGAIN
GO ENABLE BSCA RETURN TO USER
1586 OOPS4 MVl ERRwATTCH
1587
B
ERROR
SET ATTACHMENT CHECK
1588 1589
*****DO***S*IO***S*U*B*R*O*U*T*IN*E*****************************************************
1590 ***********************
159:!.
1592 OOSIO ST 00SIOR+3,ARR
STORE RETURN ADDRESS
1593 1594
ST
REST2+3,XR2
l
OOS IOR+3 · XRl
STORE XRZ
POINT XRl Al PARAMETERS
1595
MVC lOGMSG(38),MSG8lK
BLANK OUT THE MESSAGE FIELD
1596 1597
MVC LOGDEV(2t,OEVICE MVC LOGHSGlS J ,NOERR
INSERT THE DEVICE IN MESSAGE MOVE IN NO ERROR MESSAGE
1598
MVC LOGSTl4) ,XXXX
c X' OUT DATA
1599
MVC LOGCAR(4),XXXX
16-00
MVC LOGT AR (4) 1XXXX
1601
MVC LOGSAR(4J,XXAX
1602
MVC l TAR [ ?> , LC AR
PUT INITIAL CftR INTO TAR LOAD AREA
1603
AlC LTAR,U2,XRU
ADO IN THE DISPLACEMENT
1604
ALC LTAR(2) ,ONE
ADD l NORE
1605
HVC LSAR.3' £,XRU
MOVE IN THE SAR ADDRESS
1606
LA XMITRCtXR2
PUT AoDR OF TRANSMIT/RECtIVE FIELD
1607 · 1608
cu 0(,XRU,O
INTO XR2 TEST FOR XMITRC All SETlLENGTH IS
1609
JNE DATIN
GREATER THAN 256)
1610
MVC MVDATA+4,5(2,XR11
MOVE IN OAT A ADDRESS
DATE 26JUN75 EC. NO. 825023
.?.50C.T75 825032
15JAN76 825034
l4MAY76 825035
PROG lO PAGE
0894-3:I(_' DATE
12 ; EC NO.
I
iC
26JUN75 825023
250CT75 825032
l5JAN76 825034
14MAY76 825035
PROG ID PAGE
0894-3 l2A,
,_
I
10
I
10
I 10
·i ·
·', · · · · · · · · · · · ·· · · · · · · · · · · · · · · · · · · ·
IBM MAINTENANCE DIAGNOSTIC PROGRAM 8943 DA FUNCTIONAL TESTS
PART NO.
PAGE
42342591
IBM MAINTENA~CE DIAGNOSTIC PROGRAM
13 I c
89~3 · DA FUNCTIONAL TESTS
PART NO. 4234259
PAGE
UA
ERR LOC OBJECT CODE
ADOR STMT SOURCE STATEMENT
ERR LDC OBJECT CODE
ADDR STMT SOURCE STATEMENT
lBOF lC 00 1826 01 1814 lC 00 1B27 01 1819 OC Ff 431F 4320 . 181F OC lF 4220 4221 1825 8C 00 00 0000 182A 3C CO 2611 1B2E 3C FF 2610 1832 3C 00 262A 1836 F3 88 02
1839 31 SC 261A l B3 D 31 SA Zl.lC 1841 31 89 261E 1B45 C1 58 lBAA
1849 F3 SA 02
184C C1 SA 1885 1B50 30 SC 2620 1854 30 BA 2622 16 58 30 89 2624 lBSC 30 88 2626 1860 35 01 261C 1864 30 00 2610 l 868 F2 81 Olt 1868 3C 07 262A 18 6F 30 00 262A l 873 CO 01 22A7 1877 OE 01 1884 2631 18 70 C2 02 0000
1881 co 87 0000
1B85 30 FO 3FFB
1689 co 81 186F
1680 OE 01 2612 2620 1693 CO AO lBA2 1B97 30 00 2610 1898 F2 81 lC 1B9E CO 87 184C
1BA2 3C 02 262A 16A6 CO 87 22A7
18AA 30 00 262A 18AE CO 01 22A7 1BB2 3C OA 262A 1.886 CO 87 22A7
lBBA 3D 00 262A lBBE CO 81 l~t 1BC2 CO 87 22A7
1BC6 34 08 1Br7
lBCA co 87 iAB4
lBCE 0001 1800 lt31F 1802 263f
1804 40 01 01 2637 11309 F2 81 18 lBOC 3C 10 21>2A
lBEO co 87 lfDS 1BE4 oc 01 2074 263F
18EA (£ 01 21>76 2637
1611 1612
HVC HVDATA+l,1(1,XRlJ MVC MVDATA+2 ,1 (l ,XRl)
MOV~ IN THE LENGTH MOVE IN H!E DISPLACEMENT
r'
~...... ,.
1613
MVC FILL-11256),FILL
FILL WHOLE XMJT/REC FIELD WITH 'ff'
1614
MVC XMITRC+32l32),XMITRC+33
1615 MVDATA HVC *=-·t·-·,XR2 I,*-*
MOVE XMIT DATA TO XMIT/REC. FIELD
r' .
1616 DAT IN HVI BCNT-1,x·co·
RESET THE BUSY COUNTER
1617
MVI INTFLG,X 1 FF 1
SET INT FLG TO 'NO INTERRUPT'
1618
H\iI ERR, 0
SET ERROR fl AG TO ZERO
1619
1620 *
SIO ENINTR,CNTRL
SIO TO ENABLE INTERRUPTS TO CATCH tNY ATTACHMENT CHECKS
1621.
LIO LCAR.CAR
LOAD THE CAR
1622
LIO LTAR,TA~
LOAD THE TAR
1623
LIO
1624 TS TROY TIO
1625
LSAR, SAR OROPED. NOT ROY
LOAD THE SAR
..
CHECK MICROCONTROLLER STILL RUNNING ''
1626
SIO ENJNTR, XMI TR
SID TO TRANSMIT/REC., ENABLE INTR.
1627
1628 BUSYB TIO EXIT ,BUSY
TEST BUSY
1629
SNS SCAR ,CAR
SENSE THE CAR
1630
SNS ST AR.TAR
SENSE THE TAR
1631 1632
SNS SSAR,SAR SNS SSTAT,STATUS
SENSE THE SAR SENSE THE STATUS
1633
L
LTAR,XRl
POINT XRl TO RECEIVE FIELD
1634
CLI INTFLG,O
DID THE INTERRUPT OCCUR YET?
1635
JE TS TERR
1636 SI ON IN MVI ER.R,NOINT
JUMP IF SO SET NO INTERRUPT ERROR
0
1637 TS TERR CLI ERR,O
TEST FOR NO ERROR
1638
BNE
1639
ALC
1640 RESTZ LA
l61tl DOSI OR 8
1642
ERROR
·-·OOSIOR+3(2),SIX
·-·,XR2
BRANCH IF ERROR OCCURRED UPDATE RETURN ADDRESS RESTORE XR2 RETURN TC1 USER
0
0
1642
1643 EXIT CLI MICPFL,X 1 FO·
1644
BE TS TERR
1645
ALC BCNT f 2 J ,ONE
1646
BOL BSYERR
1647
CLJ INTFLG, 0
1648
JE GOTIT
l6"t9
B
BUS YB
DOING MICRO POLL? EXIT IF SO ADD TO BUSY CDUNTER ERROR AFTER ABOUT 1 SEC.
DID AN INTERRUPT OCCUR YET? JUMP IF SO GO CHECK BUSY AGAIN
'oI . ;)
1650
1651 8SYERR MVJ ERR,SUSE
1652
B
ERROR
SET BUSY TOO LONG INDICATION GO TO ERROR ROUTINE
1653
1654 DROP ED Cll
1655
BNE
1656
MVI
1657
B
ERR,O ERROR
ERR,ATNR ERROR
DID AN ERROR OCCUR
IF SO, GD TU ERROR ROUT. SET ATTACH. NOT READY ERRO~
c
1658
1659 GOTIT CLI ERR,O
1660
BE 8USYB
DID AN ERROR OCWR YET?
(
IF NOT, GO ON
1661
B
ERR(IR
GC:. TO ERROR
1662 1663 1664
1665
·*···S·E·N·D··A·C·K···1··S·U·B·R·O·U·T·I·N·E4·*********************************************!
·················*·········
I(
1666 GO ACK ST GOACKR+ 3, ARR
STORE RETURN ADDRESS
1667
8
DOSIO
SEND ACK 1 TO DEVICE
lBCF 1668
DC AL21ACK1-ACK1+1J
(
1801 1669
DC AL2l XHJ TE)
1803 1670
1671 167' 1673 1674 1675 1676 1677
DC l!ol21 ACKl I
CLC 112,XRlJ,EOT
JE GOACKR
HVI ERR, INCOR
B
FILLFF
HVC EXPBUF+lC2J,ACKl
MVC EXPBUF+312 I, EOT
TEST RESPONSE · EDT EXIT IF SO, ALL OKAY
SET JNCORRcCT RESPONSE GD SET EXP RESULTS TO FF SET EXP RESULTS
I .
"--
10
I
I
JC
I
lBFO CO 87 22A7
1BF4 CO 87 0000
lBFB 34 08 1C38 lSFC 34 01 1C30 lCOO 34 02 1C34 1C04 C2 02 2073 1C08 C2 01 4200 lCOC CO e7 lf05
lClO 9C 00 00 00 lt14 02 01 01 1Cl7 E2 02 01 lClA 34 01 2FF9 lClE OD 01 2Ff9 1C30 1C24 CO 01 lClO 1C28 BC 01 01 2FFB 1C2D C2 01 0000 1C31 C2 02 0000 1C35 CO 87 0000
1C39 34 08 1C99 1C3D OC 01 2lf8 2651 1C43 OC 01 25FA 2605 1C49 OF 03 265B 265B 1C4F CO 87 0212
1CS3 CO 87 lAB4 1C57 0008 1C59 431F lCSB 25FB
1C5D 70 37 00 IC60 F2 01 07 1C63 3A 80 2658 1C67 f2 87 2C 1C6A 40 02 02 264C 1C6F F2 01 OC IC72 lC 01 2658 07 1C77 3A 10 2658 1C78 F2 87 18 1C7E 40 02 02 264 F 1CB3 F2 01 07 1CB6 3A 20 2658 1C8A F2 87 09 1C80 lC 00 2659 03 1C92 3A 40 2658 1C96 CO 87 0000
1C9A 34 O~ 1013
1678
B
ERROR
1679
1680 1681
1682
1683
G*··O··A··C··SKU··R··B··R8··O··U··T··IN··E······TO······F··i··l··l····E··X··P··. ····R··E··SU····L·T·S······RB··EU··TFU··F··RE·NR·····T*O**U**SE*R**********************
1684
1685 SETEXP ST
1686
ST
1687
ST
1688
LA
1689
LA
1690
B
1691
SETEXR+3,ARR MVXR1+3,XRl MVXR2+3,XR2
EXPBUF,XR2 XMITRC,XRl FILLFF
STORE RETURN ADDRESS SAVE XRl SAVE XR2
POINT XR2 TO EXP BUFF POINT XRl TO XMIT/REC. FIELD Fill EXP. RESULTS BUFFER WITH FF
1092 MVCHR MVC OU ,XR2 J ,O l 1XRl)
MOVE XMIT/REC FIELD TO EXP RESULTS
1693
LA 1( , XRlJ tXRl
INCREHENT POINTERS
1694
LA
11, XR2 I 1 XR2
l695
ST WORK,XRl
SAVE XRl
1696
CLC WORK(2),MVXR1+3
TEST FOR ENO OF M~VE
1697
BNE MVCHR
IF NOT, HOVE ANOTHER
1698
MVC 1C21XR211ACK
MOVE IN CORRECT ACK
···············-··········· 1699 HVXRl LA
1700 MVXR2 LA
·*--··.,XXRR2l
1701 SETEXR B
1702 1703
*
DO POLL sueqouTIN(
RESTORE XRl RESTORE XR2 RETURN TO USER
················································
1704 ························
1705
* 1706 * 1707
SETS UP THE FOLLOWING 4 BYTES AS FOLLOWS: BYT~ l POLFLG BIT 0 m 1 · EDT WAS RECEIVED
1708 ·
BIT 1 · 1 ~ AID KEY WAS DEPRESSED
1709 ·
BIT 2 s 1 e TEST REQ. WAS DEPRESSED
1710 ·
BIT 3 · f · STATUS WAS RECEIVED
* 1111 BYTE 2 AID - CONTAINS THE AID CHAR IF BIT l OF BYTE 1 IS ON
* 1712 BYTES 3 & It POLST CONTAIN STATUS IF BIT 3 OF BYTE 1 WAS ON
1713
1714 DOPOL ST
1715
MVC
1716
MYC
1717
SLC
1718
8
1719
1720
e
lC 58 1721
DC
lCSA 1722
DC
1C5C 1723
DC
1724
DOPOLR+3,ARR SPFLD( 2 t ,POLL PSOEV(2 t ,cuRDEY PDLSTl4 t ,POLS.,. TEST
DOSIO AL2 CENQ-SE LPOU AL21 XMITE) AL2 CENQJ
STORE THE RETURN ADDRESS SET UP POLL SET UP DEVICE CLEAR POLL STATUS, AIDe l FLAGS GO CHECK CONSOLE SWITCHES
GO DO THE POLL
172~
CLI Ol,XRl)rX·37'
1726
JNE TSTAT
1727
SBN POLFLG,X 1 80'
1728
J
OOPOLR
1729 TSiAT CLC 2l3,XRlt,STATR
1730
JNE TTP
1731
MVC POlST,7(2,XRll
1732
SBN POLFLG,X 1 10'
1733
J
DOPOLR
1734 TTR CLC 2(3,XRlJ,TSTREQ
1735
JNE STAID
1736
SBN POLFLG.x·zo·
1737
J
DOPOLR
1738 STAID HVC AI0,3(1,XRl)
1739
SBN POLFLG,A 1 40·
1740 OOPOLR 8
._.
1741 ························
WAS RESPONSE EOT? JUMP IF NOT SET THE EDT BIT ON RETURN
TEST FOR STATUS RECEIVED IF NOT GO CHECK TST REQ FETCH THE POLL STATUS SET THE STATUS BIT EXIT
CHECK FOR TEST REQUEST IF NOT. GO STORE AID SET TST REQ FtAG ON EXIT
FETCH THE AID CHARACTER SET THE AID BlT ON RETURN TO USER
11774423 ·~ ···SE·L·E·C·T···SU··B·R·O·U·T·IN·E····················································
1744
17'45 SELECT ST SELECR+3,ARR
STORE RETURN ADDRESS
DATE 26JUN75 EC NO. 825023
Z50CT75 825032
15JAN76 825034
14f4AV7'825035
PRDG ID P&GE
c· OS94-3:I ·~: DATE
13 I EC NO.
jo
26JUN75 825023
2SOCT75
825032
15JAN76 82,034
lltMAY76 825035
PROG ID PAGE
l
!o
I
,I o
I
I (0\
·
·
·
IBM MAINTENANCE DIAGNOSTIC PROGRAM 8943 DA FUNCTIONAL TESTS
PART NO. PAGE
4234259 14
IBM MAINTENANCE DIAGNOSTIC PROGRAM 8943 DA FUNCTIONAL TESTS
PART 110. it234259
PAGE
14A
ERR LOC OBJECT CODE
AOOR STMT SOURCE STATEMENT
ERR LOC OBJECT CODE
ADOR STMT SOURCE STATEMENT
lC9E OC 01 25F8 2653 1CA4 0C 01 25FA 2605 l f.AA CO 87 lA84 lCAE 0008 lCBC 431F 1C82 Z5FB 1CB4 4D 01 01 263D 1CB9 F2 81 54 ICBC 40 01 01 2638 lCCl F2 81 OF lCC 4 40 01 01 2639 1CC9 f2 81 31
lCCC 34 08 1013 lCDO F2 87 04 1CD3 3C 20 262A 1CD7 CO 87 22A7 lCDB CO 87 1C39 l CDF 38 10 2658 1CE3 F2 90 22
1CE6 CO 87 1027 lCEA CO 87 1BC6 lCEE CO 87 021A 1CF2 96 1CF3 CO 87 0222 lCF 7 891F 1CF9 CO 87 0216
lCFD 3C CB 26:!A !.001 CO 87 22A7 1005 F~ 87 08 1008 3C OC 262A lDOC CO 87 22A7
1010 co 87 0000
1014 34 08 lOAlt 1018 OC 01 2BE5 2SCF lOlE OC 10 2C03 2BE5 1024 F2 87 lb 1027 34 08 10A4
1020 oc 01 2ec1 2scF
1031 OC 10 2C01 2BC7 1037 OC 01 2FF9 2658 1030 34 01 1D9C 1041 34 02 lDAO
lD45 CO 87 lOA5
1049 3C 01 105A 1040 3C 01 1058
1051 r.z 01 2Ff8
1055 CZ 02 281A
1059 78 00 00 1D5C FZ 90 09 lDSF 2C OF 2C03 OF l 064 CO 87 10A5
1068 OE 00 1D5A l05A 106E E2 02 10 1071 30 Ol 1058 1075 F2 01 14 1078 30 40 105A
1746 1747 1748
lCAF 1749
MVC SPFL02J,SEl
MVC PSDEV(2) ~CURDEV
B
DOSIO
DC AL2 ! ENQ-SELPDU
SH UP TO SELECT SET TO SELECT CURRENT DEVICE GO SELECT DEVICE
1C81 1750
DC AL2 (XMITEI
1C83 1751 1752 1753 1754 1755 1756 1757
DC Al2fENQJ
CLC 1(2,XRll,ACKO
z, JE
SElECR
CLC ll XRl) tRVI
JE GET ST
CLC 1 (2,XRl hWACK
JE PWACK
TEST RESPONSE = ACKO
= OKAY IF SO
TEST RESPO~SE RVI
IF SO, GO GET TEST RESPONSE
=STAWTAUCKS
1758
1759 GETPS ST
SELECR+3,ARR
STORE RETURN ADDRESS
1760
J
GOERR
1761 GFTST MVI
1762 GOERR S
1763 FETCHS B
1764
TBN
1765
JF
1766
ERR,RVIS ERROR DOPOL POLFLGtX 1 10'
OHOH
SET UNEXPECTED STATUS GO PRINT RVI OR EOT
GO GET STATUS WAS STATUS RECEIVED BAD IF NOT
1767 PSTAT B
1768
B
l 769 SP6Hl T B
1CF2 1770
DC
1771
B
1CF8 1772
DC
1773
B
1774
1775 Plo!ACK MVI
1776
B
FORMAT
GO ACK
PRINT
XLl'96' HALT . XL2 1 891F 1 LINK
ERR,WACKE ERROR
GO PRINT STATUS BITS REC'D
GO SEND ACKl
(.,
GO SPACE 6
GO HALT
0
HALT ****lF·H··
GO TO NEXT ROUTINE
0
SET WACK MESSAGE
1777
J
SELECR
1778 OHOH MVI ERR,UNK
SET UNK~OWN RESPONSE
0
1779
8
ERROR
1780
1781 SELECR B
*-*
RETURN TO USER
0
1782 ********************************~********
I
1783 * SUBROUTINE TO PRINT POLL STATUS BITS **********************"'********: ()
1784 *****************************************
I
1785
1786 PEXPST ST
1787
MVC
1788
MVC
FORM RT+ 3 · ARR STATME (2 I ,DEVICE
STATFL(30),STATME
STORE RETURN ADDRESS
SET UP MESSAGE TO PRINT EXPECTED MOVE TO MESSAGE
1789
J
1790 FORMAT ST
1791
MVC
1792
MVC
1793
MVC
1794 FfNEXP ST
1795
ST
1796
FINEXP
FORMRT+3,ARR
STATMS( 2; ,DEVICE STATfl(30J,STATMS WORK(2),POLST
FXR1+3,XR1 FXR2+3,XR2
JUMP TO FlNISH STORE RETURN ADDRESS PUT DEVICE IN HEADING PUT HEADING IN PRINT FIELD MOVE POLL STATUS TO WORK srACE
SAVE XRl
SAVE XRZ
1797 1798
B
PSROUT
GO PRINT IT
1799 1800 1801
1802
1803
MVI
T:HT+l~l
MVI TB!T+2,l
LA
WORK-1 t XR l
LA STTA8,XR2
SET BIT MASK TO START AT BIT 7
SET DISPLACEMENT TO l POINT XRl TO POLL STATUS HI BYTE POINT XR2 TO BIT NAME TABLE
1804 TBlT TBN *-*( ,XRU ,*-*
1605
JF
NEXTS
1806
MVC STATFL,15116,XR2)
1807
B
PSROUT
TEST STATUS BIT ON IF NOTs UPDAlE TO NEXT MOVE IN BIT NAME TO MESSAGE
GO PRINT IT
l808
1809 NEXTB ALC
1810
LA
1811
CLI
1812
JNE
1813
CLI
TBiT+l (1), TSIT+l 16( ,XR2) ,XR2 TBIT+2, 1
HI TBIT+l,X 1 40'
SHIFT MASK BIT LEFT ONE
UPDATE XR2 TO POINT TO NEXT ENTRY
ARE WE DOING HI BYTE YET?
JUMP IF NOT DID WE JUST 00 LAST BIT OF LO BYTE
c
107C CO Ol 1059
1080 3C 00 1058 1084 3C 02 1D5A
1088 co 87 1059
108C 30 10 lDSA
1090 co 01 1059
1094 co 87 021A
1098 91 1099 CZ 01 0000 109D CZ 02 0000 lOAl CO 87 0000
1DA5 34 OB lDBA 1DA9 CO 87 021A lOAD 81 lDAE lE lOAF 2C03 1061 OC 10 2C03 2C04
1067 co 87 0000
l 088 34 08 1F5C lDBF CO 87 1F05 1DC3 OC 03 2D76 2603 1DC9 34 01 1F4E lOCD 34 ()2 lF 52 1001 35 01 lF SC 1005 lC 00 2E94 00 lDOA lC 01 2D7C 02 lOOF OC 03 2D7A 2f9tl 1DE5 OC 00 207A 3098 lDEB OC 00 2079 2605 lDFl 3C 26 2E73 lOF5 3C 01 2FFC LOF9 38 80 2E94 lOFD F2 10 7E l EOO 38 40 2E94 lE04 F2 10 6C lE07 38 20 2E94 l EOS F2 10 SA l EOE 38 lD 2E94 1El2 F2 10 44 l E15 38 08 2E94 lEl9 F2 10 2E lElC 38 04 2E94 lE20 f 2 10 18 l E23 38 CZ 2E94 1E27 F2 10 00
lEZA C2 02 2D7D l E2E OC 0 1 2E F l 413 2 l E34 35 01 4134
1814
BNE TBIT
IF NOT, GO 00 THIS BIT
1815
1816
MVI T61T+2,0
SET DISPLAC~MENT FOR HI BYTE·
18!7
MVI TBIT+l,2
SET MASK FOR lST BIT OF HI BYTE
1818
B
TBIT
GO TEST NEXT BIT
1819 1820 HI
cu TBIT+1,x·10 1
AT END YET?
1821
BNE TBIT
IF NOT, TEST NEXT BIT
1822
1823
B
PRINT
SPACE l LINE
1098 1824
DC
XL1 1 9l'
1825 FXRl LA 1626 FXR2 LA 1B27 FORMRT ij 1828
·-·*-*,XRl
*-*· XR2
RESTORE XRl RESTORE,XR2
RETURN TO USER
1829 PSROUT ST PSROUR+3,ARR
STORE RETURN ADDRESS
1830
B
PRINT
PRINT LINE
lOAD 1831
DC
Xll 1 8l 1
lDAE 1832
DC IL1'30'
lDBO 1833
DC AL2(STATFLJ
1834
MVC STATFL(3QJ,STATBL
CLEAR PRI~T FIELD FOR NEXT ENTRY
1835 PSROUR B
*-*
RETURN
1836 *************~*****************
1837 * SUBROUTINE TO READ BUFFER ******************~*******************···
1838 *******************************
* 1839
1840
*
S
REAOBF
DC
XL1 1 XX 1
* 1841
DC
XL2 1 AAAA 1
BRA~CH TO SUBROUTINE
XX = AAAA
F=LACGUSRSOR
ADDRESS
* 1842 ·
* 1843
1844
FLAGS BIT 0 l PATTERN IS NULLS BIT l 1 : PATTERN IS RIPPLE DATA
1845 ·
1846 *
1847 ·
BIT Z l BIT 3 .. 1
= BIT 4 1
PATTERN IS A SINGLE CHAR. REPEATED US ING PATTERN l
USING UPPER/LOWER CASE PATTERN
1848 ~
* 1849 *
1850
1851 REAOBF ST
= BlT 5 l
BIT 6 l
US I NG PATTERN 2
= DOING RTN 13 EXCERCISE
READBR+3,ARR
STORE RETURN ADDRESS
1852
B
FILLFF
FILL EXPECTED SUFFER WITH FF
1853
HVC EXPBUF+3(4J,RDBE
PUT IN EXPECTED RESULTS
1854
ST
RDBXRl+3,XRl
STORE XRl
1855
ST ROBXR2+3.XRZ
STORE XR2
1856
l
READBR+3 tXRl
GET PARAMETERS ADOR
1857
!o4VC RBFLG,O( 1, XRU
FETCH FLAGS
1858
MVC EXPBUF+9,2C2.XRlJ
FETCH CURSOR ADDRESS
1859
MVC EXPBUF+7(4)wRBEXl
FILL IN READ HEADING
1860
HVC EXPBUF+711J.NOAID
FORCE NO AID CnAR
186)
MVC EXPBUF+6(l)eCUROEV INSERI DEVICE IN EXP. RESULT
1862
MVI EXPBUF+25b,X·26·
INSERT ETB
1863
HVI TCOUNT, 1
SET COUNTER TO l
1864
TBN RBFLG,x·ao·
TEST FOR DATA a NULLS
1865
JT NULLS
1866
TBN RBFLG,X'40 1
TEST FOR RIPPLE DATA
1867
JT R lPPLE
1868
TBN RBFLG,X 1 20'
.TEST FOR SINGLE CHAR WR Il TEN
1869
JT
RAP
1870
TBN R8FLG,X 1 10'
TEST FOR PATTERN 1
1871
JT PATl
1872
TB!'!
RBFLG,x~os·
IS THlS UPPER/LO~ER CASE PATTERN?
1873
JT UPLWR
1874
TBN RBFLG,X 1 04 1 ·
TEST FOR PATTERN 2
1875
JT
PATZ
JUMP IF SO
1876
TBN
RBFLG,~'02 1
TEST FOR RTN 13 EXERCl$E
* 1877
1878
JT Rl3EX TEMP - - TO BE FI LLEO f .. FOR OTHERS
1879 Hl3 EX LA EXPBUF+lO.XR2
POINT XR2 TO lST ADD~ TO BE FILLED
1880
MVC STOA H2 t .RI.PST
SET UP DATA START ADDRESS
1881
L
CURRIP,XRl
POINT XRl TO DATA
DATE 26JUN75 EC: NO. 825023
250CT75
825032
15JAN76 825034
14MAY76
825035
PROG ID PAGE
c:I
0894-3\
DA TE
14 I EC NO.
1I 0
26JUN75 825023
250CT75
825032
15JAN76 825034
l4MAY76
825035
PROG ID PAGE
0894-3 14A
lo
·
·
·
·
·
·
·
·
·
·
·
·
·
·
.
lo
:~
·
·
·
·
·
·
···
·
·
·
·
·
·
·
················ ················
IBM "AINTENANCE DIAGNOSTIC PROGRAM
8943 DA FUNCTIONAL TESTS
ERR LOC OBJECT CODE
ADDR STMT SOURCE STATEMENT
1E38 F2 87 55 1E38 C2 02 2070 lE3f C2 01 3808 lE43 3C 00 3818 1E47 FZ 87 42 lE4A C2 02 2070 1E4E t2 01 3EAO 1E52 3C 00 ~818 1E56 F2 87 33 1E59 C2 02 2070 1E50 C2 01 3888 lE61 3C 60 3818 1E65 F2 87 24 lE68 C2 02 2070 1E6C C2 01 3818
ino n 87 u
1E73 C2 01 2E99 1 E77 C2 Ol 2070 1E7B F2 87 OE 1E7E C2 01 2EEC 1E82 OC 08 2085 206E 1E88 C2 02 2086 lE8C 34 01 2EF l lE90 34 01 2EEF 1E94 CO 87 1F5D
1 E98 CO 87 lAB4 1E9C 0003 1E9E 431F lEAO 2603
1EA2 CO 87 lF90 1EA6 0C 01 2FFB 263F l EAC CO 87 1FD5 lEBO OE 00 2FFC 2620 1EB6 OC 01 2074 2FFB lEBC 3C 26 2E71 lEC.O C2 02 2076 lEClt 3C 02 2075 lECB CO 87 lFSO
lECC CO 87 1Ab4 lEDO 0001 1E02 431F lEOlt ZFFB
1ED6 CO 87 1FB9 lEOA 30 70 2FFB lEDE 3C 70 2FF8 1EE2 CO 81 1EA6 1EE6 CO 87 lEAC
lEEA C2 01 4200 1 EEE C:? 02 2D73 1EF2 70 03 00 1EF5 F2 81 ll 1EF8 70 FF 00 lEFB CO 81 lfr:O lEFF 02 01 01 1 F02 E2 02 01 lFOS CO 87 1EF2
1F09 BC 03 00 lFOC E2 02 01
lFOF BO FF 00
lf 12 F2 81 07 1Fl5 BC FF 00 1Fl8 CO 87 lFOC
1882
J
1883 PAT2 LA
1884
LA
1885
MVI
1886
J
1867 UPLWR LA
1888
LA
1889
ft.VI
1890
J
1891 PATl LA
1892
!..A
1893.
MVI
1894
J
1895 RAP LA
1896
LA
1897
J
1898 RIPPLE LA
1899
LA
1900
J
1901 NULLS LA
1902
HVC
1903
LA
1904 STFXRl ST
1905 EXSTR ST
1906
B
1907
1908
B
1E9D 1909
DC
1E9F 1910
DC
lEAl 1~11
DC
1912
1913
B
1914 OOACKl HVC
1915 OOACK B
1916
ALC
1917
HVC
1918
MVI
1919
LA
1920
HVI
1921
B
1922
1923
B
lEOl 1924
DC
1ED3 1925
DC
1ED5 1926
DC
1927
1928
B
1929
CLI
1930
HVI
1931
BE
1932
B
1933
1934 CHECK LA
1935
LA
1936 TETX CLI
1937
JE
1938
CLI
1939
BE
1940
u.
1941
LA
1942
B
1943
1944 FIX MVI
1945 LOOP LA
l 91t6
CLI
1947
JE
1948
HVI
1949
8
EXSTR EXPBUF+10,XR2 R6EXP2, XRl SINCHR-1.x·oo·
STFXRl
EXPBUF+lOt XR2 R09PS,XR1 SI NC:iR-1 9 0 STFXRl EXPBUF+l0,XR2 R6EXP,XR1 SINCHR-1,C '-' STFXRl EXPBUF+lO ,XR2 SI NCHR-1, XRl STFXRl RI PDAT ,XRl EXP8UF+10,XR2 STFXRl NULL,XRl EXPBUF+18(9t,OEVRT2
EXP8UF+l9,XR2
STDAT,XRl CURDAT tXRl FIL TAB
DOS IO Al2(R08E-R08) AL2(XMITU
AL2(RD8E)
CHECKl ACK(2J ,ACt<l FILLFF TCWNT C11 ,ONE EXPBUF+l (2 J, ACK EXPBUF+25.lt,X '26' EXPBUF+3,XR2 EXPBUF+2,2 FIL TAB
DOSIO
AL2CACK-ACK+l)
AL2( XMI TE) AL2CACK)
CHECK2 ACK,X'70'
ACK,X'70'
DOACKl DO ACK
XMITRC.,XRl EXPBUF,XR2 0(,XRlJ,3 FIX 0(,XRlJ,X'FF' ROl;RR 1( ,XRlJ 1XRl H, XR21, XR2 TETX
Ot,XR2),3 1',XR2),XR2 0( tXR21 ,x·FF· TE STAG Ol,XR21,X 1 FF 1 LOOP
DATE 26JUN75 EC NO. 825023
250CT75
825032
15JAN76 825034
1'.llAY76 825035
PART NO. PAGE
i
423425~
15 I
,,,..".
IBM
MAINTENANCE
DIAGNOSTIC
PROGRAM
I ~---· 8943 DA FUNCTIONAL TESTS
PART NO. ..2Jlt259
PAGE
15A
III ;''
POINT XR2 TO FIRST CHAR TO BE FILLEDI POINT XRl TO EXPECTED DATA
ERR LDC OBJECT CODE
lFlC co 87 lF90 lf20 co 87 1FD5
1F24 30 70 2FFB
ADDR STMT SOURCE STATEMENT
1950 TESTAG 8
1951
8
i952
Cll
CHECKl FILLFF
ACK ,x '70 1
GO CHECK RESULTS AGAIN
GO FILL EXP BUFF WITH 'FF· TEST FOR ACK 0
EXPECT Fill TO BE A NULL
,1 (
1F28 3C 70 2FF8
1953
MVI ACK,X 1 70 1
FORCE ACK 0
POINT XRZ TO FIRST DATA TO BE FILL 1
LA ADDRESS OF EXPECTED DATA SET FILL CHAR TO NULL
I 1 1
I POINT XR2 TO lST CHAR TO BE FILLED
1F2C f 2 01 04 1F2F 3C 61 2FF6 1F33 OC 01 2074 2FFB 1F39 3C 37 2075
lf30 co 87 1A84
1?54
JNE
1955
MVI
1956 OOACKX MVC
1957
MVI
1958
1959
B
DOACKX
ACK,X·61'
EXPBUF+l ( 2 J, ACK EXPBUF+2,X'37 1
DOS IO
JUMP IF ACK 1 OOPS, FORCE ACK 1 SET UP ACK SET TO EXPECT EOT RETURNED
GO SEND LAST ACK
POINT XRl TO PATTERN
1F41 0001
1F42 1960
DC AL2 ( ACK-ACK+l I
SET SINGLE CHAR TO A ·-·
I
POINT XR2 TO lST CHAR TO BE FILLED POINT XRl TO SINGLE CHAR USED
II ',
1F43 431F
lf45 2FFB 1F47 CO 87 1F90
1F44 1961 1F46 1962
1963 1964
DC AL2(XMITEI
DC AL2(ACK)
8
CHECKl
GO CHECK FOR CORRECT RESPONSE
FETCH ACOR OF RIPPLE TABLE
Ir
POINT XRZ TO lST CHAR TO BE FILLED GO STORE IT
l
FETCH ADDR OF NULLS
FILL IN lST 9 CHAR
I
1F4B CZ 01 0000 1F4F C2 02 0000 1F53 OE 01 lf5C 262F 1 F59 CO 87 0000
1965 RDBXRl LA
1966 RDBXR2 LA
1967
ALC
1968 READBR B
1969
1969
*-*1XRl
·-··-·,XR2
READBR+3(2J,THREE
RESTORE XRl RESTORE XR2
UPDATE RETURN ADDRESS RETURN TO USER
POINT XR2 TO lST DATA BYTE STORE IT INITIALIZE CURRENT DATA ADOR GO FILL EXPECTED RESULTS
GO READ BUFFER
I
!C
I
I
II C~.,··
1F50 34 08 lF9C
1F61 35 01 2EEF lf65 BO FF 00
1F68 F2 01 2A lf68 70 FF 00 lf6E F2 81 lC
1970 FIL TAB ST
1971
L
1972 AGAIN CLI
1973
JNE
1974
CLI
1975
JE
FILTR+3 ,ARR
CURDAT ,XRl
0( t XR2J tX 'Ff' BLKDN 0( .,XRl I 1X 1 FF·
TD ONE
STORE RETURN
POINT XRl TO CURRENT DATA ADDR TEST FOR END OF PATTERN DONE IF NOT TEST END OF DATA TABLE
GO CHECK R~SULTS OF READ SET TO 00 ACK 1
c
1F71 70 FE 00 1F74 F2 01 08
lf77 C2 01 3818
lf7B 34 01 2Efl
1F7F 9C 00 00 00
I
H83 02 01 01
1976
CLI Ol,XR1J,X 1 FE'
1977
JNE MOVE
1978
LA SI NCHR-1 , XfU
1979
·sT
STDAT,XRl
1980 MOVE MVC 0(1,XR2J,OC,XR1 t
1981
LA 1( tXRll ,XRl
TEST FOR SWITCH TO SINGLE CHAR JU~P IF NOT
POINT XRl TO SINGLE CHAR FOR REST CHANGE POINTER MOVE DATA FROM TABLE TO EXP BUFF UPDATE POINTERS
ADD TO TRANSMISSION COUNTER SET UP lST 2 CHAR ~ ACK 1 OR 0 INSERT ETB POINT XR2 TO START Of DATA INSER STX GO SET UP EXPECTED RESULTS
GO SEND ACK 1 OR 0
GO CHECK RESULTS AGAIN TEST FOR ACK 0 SET ACK 0 DO ACK 1 IF LAST WAS ACK 0 GO DO ACK 0
SET TO SCAN rOR ETX
LOOK FOR ETX GO FIX RESULTS IF SO IS CHAR FF ERROR IF SO INCREMENT POINTER
IC·
I
I()
lI e
!I (.\,
1I 0
Jc
! (~'
I -··
i r·-. I I ,.
l \,_'
lf86 E2 02 01 1F89 CO 87 1F65 1F80 35 01 2EF1 1F91 CO 87 1F7F 1F95 34 01 2EEF 1F99 CO 87 0000
lF90 34 08 1FB8 lFAl OD FF 2E72 42FF 1FA7 co 01 lFFO lFAB OD lF 2E92 431F
lFBl co 01 lFFO 1FB5 co 87 0000
lFBg 34 08 1FD4 lFBD OD FF 2E72 1t2FF 1FC3 CO 01 lEEA 1FC7 OD lF 2E92 431F lFCO CO 01 lEEA lFOl CO 87 0000
1F05 34 08 1FE8 1F09 0C FF 2E92 2E93 lF&F DC IF 2093 2094
1981
LA
1983
B
1984 TOONE l
1985
8
1986 BLKON ST
1987 FIL TR B
1988
1988
1989 CHECKl ST
1990
CLC
1991
BNE
1992
CLC
1993
BNE
1994 CHlRT B
1995
1996 CHECK2 ST
1997
CLC
1998
BNE
1999
CLC
2000
BNE
2001 CH2RT B
2002
2002
2003 FILLFF ST
2004
MVC
2005
MVC
ll ,XRZl,XR2 AGAIN
STDAT,XRl
·-·MOVE
CURDAT 1XRl
LOOP POINT XRl TO START OF DATA AGAIN
UPDATE CURRENT OATA AODR RETURN
CH!RT+3,ARR
STORE RETURN ADDR
EXPBUF+2S5l25611XMITRC+255 TEST EXP. c ACT-
RDERR
ERROR IF NOT
.....EXPBUF+287(32)eXMITRC+287
ROE RR RETURN TO USER
tH2RT+3,ARR
STORE RETURN ADDRESS
EXPBUF+255(256)1XMITRC+Z55 TEST EXP. ·ACT.
CHECK
MAYBE TifE END
....EXPBUF+28T(32J,XMJTRC+287
CHECK RETURN TO USER
FILFFR+3,ARR
STORE RETURN
EXflL-11256J,fJFIL FILL EXPECTED RFSULT BUFFER
EXPBUF+32C32J,EXPBUF+33
WITH 'FF'
LOOP TILL FF OR 03 FOUNO
INSERT ETX IN EXPECTED RESULTS FILL REST WITH FF TEST FOR FF AGAIN FINISHED IF SO FILL EXP B~rF WITH FF
I 10
:! o
I
:I c
I
1FE5 CO 87 0000
1 FE9 34 08 2083 lFEO F2 87 08 lfFO 3C 08 262A
2006 FI LFFR B
*-*
RE TURN TO USER
22000078 *~···SU··B·R·O·U·T·IN·E···TO···PR··IN·T···C·O·N·T·EN··TS···O·F··T·R·A·N·S·M··IT·/R··E·C·E·IV·E···******************
2009 · Fl El.D AND EXP EC TEO RE SUL TS BUFFER
·
2010 ·····················································
2011
2012 PXREXA ST
2013
J
2Cl4 ROEkR MVI
PXRR T+ 3 ,ARR PX REX
ERR,OATER
STORE RETURN ADDRESS PRINT EXPECTED & RECEIVED FIELDS SET DATA MISCOMPARE ERROR
PROG 10 PAGE
e I
0894-3i
DATE
15 i EC NO.
1I 0
26JUN75 825023
250CT75 825032
15JAN76 825034
14"AY'16
825035
PROG 10 . PAGE
0894-3
15A
J
l
I()
1I 0
lo
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PART NO ..
PAGE
4234259 16
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PAR 1 NO..
PAGE
4234259 16A
DA FUNCTIONAL TESTS
&943 OA FUNCTIONAL TESTS
ERR LOC OBJECT CODE
ADDR STMT SOURLE STATEMENT
ERR lOC OBJECT CUDE
AODR STMT SOURCE STATEMENT
lFF4 CO 87 22.A.7
2015 MISCOM B
lFFS OC 49 2F 39 2F3A
2016 PXREX MVC
lFFE OC 49 2FSi,; 2F85
2004 oc 07 2F78 3000
2017 2018
~vc
MVC
200A OC J7 2F53 3005
2019
MVC
2010 0(. OC 2F47 39E5
2020
MVC
2016 co 87 02U
2021
B
201A 81
201A 2022
oc
2018 4A
2018 2023
oc
20lC 2F84
2010 2024
DC
201E OC 49 2F84 2FCF
2025
MVC
2024 co 87 021A
202(
B
2028 82 2029 4A
2028 2027
DC
2029 2028
oc
202A 2F84
2028 2029
DC
202C OC 01 2FOl 26lA
2030
MVC
2032 C2 01 2082
2031
LA
2036 C2 02 420F
2032
LA
203A lC Of 2F84 00
2033 2034 GOAGN MVC
203F 2C OF 2F70 00
2035
MVC
2044 CO 87 021E
2036
B
2048 10
2048 2037
DC
2049 2F84
204A 2038
DC
2048 2Fl5
204C 2039
DC
2040 CO 87 021E
2040
B
2051 10
2051 2041
DC
2052 2F70
2053 2042
DC
2054 2F39
2055 2043
DC
2056 co 87 021E
2044
B
205A 02
205A 2045
DC
2056 2f0l
205C 2046
I)(
2050 2EF3
205E 2047
DC
2048
205F OD lF 2F39 ZF15
2049
CLC
2065 F2 01 OC
2050
JNE
2068 OD lF 2F39 2fFl
2051
CLC
206E F2 Bl lD
2052
JE
2071 F2 87 OC
2074 co 87 2058
2053
J
2054 GOSETP 8
2078 CO 87 021A
2055
6
207(. 81
207C 2050
DC
2070 4A
2070 2057
DC
207E 2F84
207F 2058
DC
2080 OC 49 2F94 2f39
2059 PRINLN MVC
2086 CO 87 02U
2060
8
208A 81
208A 2061
DC
2088 4A
208B 2062
DC
208C ZF84
2080 2063
DC
208E OE Ol 2FOl 2Ff-3
2064 NOPRTN ALC
2094 OD 01 2FOi 2FF5
2065
ClC
209A F2 81 OA
20&6
JE
2090 02 01 10
2061
LA
20AO E2 02 10
2068
LA
20A3 CO 87 203A
2069
6
20A7 co 87 (12lA
20A7 2070 POUT EQU
2071
s
20AB 96 20AC 30 00 262A
2050 c.o 8l 0000
20AB 2072
DC
2073
cu
2074 PXRRT SE
2084 CO 87 24C8
2075
8
2076
2076
2088 3"t 08 2'.U.O
2077 PP
ST
208C 34 01 2106
2078
ST
20CO 34 02 ZlOC
2079
ST
20C4 OC 49 2FS4 2f85
2080
MVC
20CA DC 43 2f84 2f39
2081
MVC
ERR.OR
RECFl~74ltPBUFBl
PU NEC 74) f PU NBL PL XNE-121 e) ~RECD PLINE-49 8) ·EXP PLINE-61(13),XMRCMG PRINT Xll'8l' Ill'74' AL2(PUNEl PL INE(7td wPKEAD PRINT XL l '82' ll 1'141 Al2lPUNEl HEAOAOfZl9lCAR EXPBUF+l5tXRJ. XHITRC+l 5tXR2
PLINE{l6},0l1XRll PLINE-20(16ltOleXR2) UNPACK
Ill' l6C Al2tPUNE)
AL2tEXPFU
UNPACK
Ill"l6 1 Al2 (Pl INE-20? Al2RECFU
UNPACK
!ll'2~
Al2iHEADADP All t Ll NADR 1
RECFU 32> · EXPH
GOSETP
RECFL ( 32 l, FFFF
NOPRTN PRI NLN pp
PRINT Xll 1 8l·
fll'74' AL2(PUNEJ ?LI NE 174) ,REC FL
PRINT
XLPSP Ill'74' ALZ(Pl!NEI HEADALH2l ,SIXT EN
HEADAOill ,ENDP POUT
16 { ,XRl hXRl 16( ,.<R2) ,XR2
GOAGN
*
PRINT
Xll."96" ERRoO
*-*
HUE RR
PPR+3 1 ARR PPXR1+3,XIU PPXR2+3,XR2 PUNE(74) ,PLINBL
PlINE(68JvRECFl
GO TO ERROR ROUTINE
BLANK OUT BUFFER
BL~NK OUT PRINT LINE SET UP MHDING MOVE IN HEADING INFO
GO PRINT HEADING
MOVE IN HEADER PRINT IT
SPACE l
INITIALllE ADDRESS
POINT TO DATA
MOVE IN EXP OATA MOVE IN REC .. DATA
IS THIS LINE SAME IN BOTH FIELDS
JUMP U' NOT
IS THIS LINE ALL FF 1 S IF $0, OON 1 T PRINT GO PRINT U NE
GO FRINT t.· OVER OIFFEP.NECfS
MOVE LINE TO PRINT
ADD SIXTEEN TO ADDRESS CHECK FOR END
OUT If SO UP:"ATE POINTERS
LOOP GO SPACE 6 AND HALT WAS ERROR CODE SET UP? RETURN TO USER IF NO ERROR CODE GO HALT
STORE RETURN
SLINK OUT PRINT LI~E
PUT IN OA"IA
2000 C2 01 2F6S 2004 C2 02: 2!=4!. 2008 60 00 00 00 20DC f2 01 09 ZODF 7C 40 00
20E2 SC 40 00 20E5 F2 87 06
20EB 7C 46 00 20EB SC 48 00
20EE 34 01 2FF9 20FZ OD 01 2ff9 2FF7 2 OF 8 F 2 ! f f OA
20F6 02 Ol Ol
20FE E2 02 01 ZICH CO 87 2008 2105 CZ 01 0000
2109 C2 02 0000
2100 co 87 0000
2111 3C 7v 2FF8 2115 FZ 87 04
2118 3C 61 2FFB
211C 34 OB 2l5D 2120 38 40 2 Fr=D 2124 F2 90 16 2127 38 08 4203 2128 F2 90 OF 212E ·i-0 01 Ol 2639 2133 F2 Ol Of 21 ~b CO 8 7 2l 5 E 213A F2 87 lD 2130 40 01 01 2FFS 2142 F2 81 15
2145 le{) 01 01 2637 2l4A CO 01 1!)08 214E 3C 40 262A 2152 CO 67 22A7 2156 CO 87 lCDB
215A CO 87 0000
'C
... ---
~~-.
2l.5E 34 08 2184 2162 OC 01 25FA 2605
2168 oc 01 25f8 2651
216E OF 01 2614 2614
2174 OE 01 2614 2620 2 17 A 38 60 2 613 217E F2 10 34 2 18 l C0 B7 lC 3 9 2185 38 10 2658 2189 f2 90 lD 2l8C 78 08 06 218F CO 10 2174 2193 40 01 07 2643 2198 F2 81 16 2 l9B 3C. 15 262A 219F OC 01 2FF9 2643 21A5 CO 87 22A7 21A9 3C OC 262A 2lAD CO 87 22A7
2082
lA
PUNE-31,XRl
POINT TO DATA
2083
u.
PUNE-67.XR2
2084 CHK!T CLC on,XRlJ,O(tXR21
CHECK OAT A EQUAL
20~5
JNE PUTP
IF NOT INSERT ·
2086
MVI 0 (, XRl h C 0 '
INSERT BLANK
2087
HVI Ot.XR2l 9 C1 '
INSERT BLANK
2088
J
UPIT
2089 PUTP MVi 0(,XRlltC;.;
INSERT PERIOD
2090
MVI 0( 9 XR2) 9 Cr.i
INSERT PER iOO
2091 UPIT ST WORK,XRl
2092
ClC
WORK(2l~ELIN
TE5T FOR END OF LINE
2093
JE PPXRl
EXIT IF SO
2094
LA
1(, XRU ,XRl
UPDATE POINTERS
2095
LA 1C,XR2J,XRZ
2096
6
C~KIT
LOOP
2097 PPXRl LA ·-·,XRl
RESTORE XRl
2098 PPXR2 LA 2099 PPR 6
*-*
*-*
1
XR2
RESTORE XR2 RETURN
* 2100 *****$***********************~**********************
2101
SUBROUTINE TO TEST ACK IN RESPONSE TO WRITE CMD *~~**************··
2102 *******************************************$**~*··$*
2103 2104 TRESPO WJI
ACK,X 2 70'
SET FOR ACK 0
21.05
J
2106 TRESPl MVI
2107 TRESPX ST
2108
TBN
2109
JF
2110
TBN
2111
JF
2112
CLC
2113
JNE
2U4
B
2H5
J
2116 OISP ClC
2111
TRESPX
ACKtX 1 61'
TRESPR+3,ARR RTNFLG,X 1 40 1 DISP
XMITRC+3~x·oaa
OISP
l (2,XRU ~11u.cK
TS TE OT
WAITPB
TR ES PR
ll2 ,XRU ,ACK
TRESPR
INITIALIZE TO ACK 1
STORE TEST
RETURN DEVICE
=APDRDIRNETSESR
JUMP IF NOT
WAS START PRINT ON IN wee BYTE?
IF NOT, IT LOOKS LIKE A DISPLAY
DEVICE WAS PRINTERe TEST WACK
IF NOT· TEST FOR EOT WAIT FOR PRINTER BUSY 10 FALL
RETURN
TES l FOR CORRECT ACK
EXIT IF CORRECT
2118
2119 rsnor c1..c
2120
SNE
2121
~VI
2122
B
2123
B
l {2 ,XRl l 1EOT
OHOH ERR,EOTC ERROR FETCHS
WAS REPLY AN EOH
BRANCH IF NOT
SET ERROR
GO FETCH STATUS
2124 2125 TRESPR A
*-*
RETURN TO USER
* 2126 ***·*********~**********·~·········*****·***·**
2127
SUBROUTINE TO WAIT FOR PRHHER BUSY TO DROP******'****************$$*
2128 ***************************~***************·***
2129
21.30 WAITPB ST
2131
MVC
2132
M\/C
2133
SLC
WAI TPR+ 3 tARR
PSDEVC 2) vCURDE:V SPFL02 i, POLL OV8CNH2 J .m,·BCNT
STORE RETURN ADDR GET CURREHT DEVICE
SET UP TO POLL SET BUSY COUNT TO ZERO
2134
2135 POL PR
2136
2137 2138 2139
2140 2141 2142 2143 21 11"4 2145 2146
AlC TBN JT
B
TBN
~·F
TBN
BT
CLC
JE
H\11
MVC
DVBCNT t2) f ONE
DVBCNT-J,X"60' OVHB OOPOl POlFlG,X·lO' WHAT
6( ,XRl t ,xroa·
POlPR 7( 2, XRU ,OE
WAH PR ERR ,BOST WORK(2)i.0E
ADD TO BUSY COUNTER ***~**ADJUST THIS VALUE JUMP IF HUNG SUSY
GO POLL
WAS THE RESPONSE STATUS JUMP IF NOT TEST FOR BUSY ON IF SO GO POLL AGAIN NOT BUSY TEST FOR DEVICE ENO
DONE IF SO
SET BAO STATUS IND.
MOVE DEVICE END STATUS iG WORK
2147
ERROR
2148 WHAT MVI ERRtUNK
SET UNKNOWN KESPONSE
2149
B
ERROR
DATE
26JUN75
EC NO. 625023
250CT75 825032
l5JAN76 825034
l4MAY76 825035
PROG IO PAGE
0894-3'. 16
DATE
26JUN75
EC NO. 825023
250CT7S 825032
15JAN76 825034
l4MAY76 825035
PROG IO PAGE
0894-3 l6A
I
IC
I
I
· · ·
·
·
· ·
·
·
·
·
·
· ·
·
·
·
·
I
I!C_ _
·
·
·
· ·
·
·
· ·
·
·
·
·
·
·
················· ············· ·
IBM MAINTENANCE DIAGNOSTIC. PROGRAM 8943 DA FUNCTIONAL TESTS
PART NO. PAGE
4234259
11 !I (
IBM MAINTENANCE DIAGNOSTIC PROGRAM 8943 OA FUNCTIONAL TESTS
PART 1'40. 4234259
PAGE
llA
ERR LOC. OBJECT CODE
21Bl CO 87 0000 2185 3C 09 262A 2189 CO 67 22A7
2180 CO 87 1C9A 21C 1 CO 87 1AB4 21C5 000000000000 21CB CO 87 2118
21CF OF 01 2614 2614 2105 OE 01 2614 2620 2108 38 20 020A 21DF F2 10 08 21E2 30 7F 2613 21E6 CO 81 0216 21EA CO 87 lC.39 21EE 38 20 2658 21F2 FZ 10 07 21F5 38 40 2658 21F9 F2 90 ZC 21FC CO 87 1AB4 2200 0004 2202 lt31F 2204 30F5 2206 co 87 2118 220A CO 87 1A84 220E 0000 2210 4201 2212 2636 2214 38 20 2658 2?18 co 10 0216
221C 30 6E 2659 2220 CO 81 OC81t
2224 co 87 2105
2228 38 10 2658 222C CO 90 2105 2230 38 ltO 2FFD 2234 F2 10 08 2237 3C 04 262A 2238 CO 87 22A7
223F OF 01 2614 2614 2245 OD 01 2656 2635 2248 F2 81 Olt 224E CO 87 2237
2252 CO 87 1C39
2256 oo ~l 2658 2643
225(. co 81 0216 2£60 OE 01 2614 2620 2266 38 08 2613 226A CO 90 2252 226E CO 87 0C84
2272 34 08 22A6 2276 34 01 22A2. 227A 35 01 22A6 227E lC 01 3AD9 01
AODR STMT SOlJRCE STATEMENT
·-· 2150 WAITPR 8
2151 OVHB MVJ ERR,DEVHB
SET DEVIrE HUNG BUSY
ERR LOC OBJECT CODE
2283 OE 01 22A6 3ADB 2289 OD FF 4200 4200
2152 2153
2154
·*···SU··B·R·OB·U·T·IN·E··E·RTO·RO·R·SE·N·D···T·E·ST···PA··T·TE·R·N··S···******************·**************
228F OD 30 4200 4200 2295 OF 01 3AD9 262C
229B co 01 2289
2155 **···········~························
229F C2 01 0000
2156 2157 SErmT? B
SELECT
GO SELECT ThE OEVlCE
22A3 CO 81 0000
2158 SENTPB B
COSIO
GO WRITE THE TEST PATTERN
21CA 2159 TPARH OC XL6 1 0 1
PARAMETERS GET FILLED JN
2160
B
TRESPl
GO TEST FOR CORRECT RESPONSE
2161'
2162
SLC
2163 WRTOK ALC
2164
TBN
2165
JT
2166
CLJ
2167
BE
2168 CONPOL B
2169
TBH
2170
JT
2171 TAIO TBN
DVBCNT(2,,0VBCNT DVBC NTC 2) , ONE
SBYTE2,SSW12 CONPOL DVBCNT-1 rX 1 7F'
LINK
DO POL POLFLG,X 1 2C 1 GOUNLK POLFLG.X I 40.
RESH COUNTER ADD ONE TO COUNTER
IS SSW 12 ON? NO TIME OUT IF SO ADJUST FOR 90 SEC. GO TO NEXT ROUTINE IF 90 SEC. GO POLL THE DEVICE
WAS THE RESPONSE TEST REQ.
IF SO GO UNLOCK THE KEYBD WAS AN AID KEY DEPRESSED
22A7 34 08 24E9 22AB OC: 00 24CD 262A
2231 30 01 262A 2285 F2 01 06 2288 OC 11 2590 28A7 22BE 30 02 262A 22C2 F2 01 06
22C5 OC 10 2590 2903 22CB 30 03 262A 22CF F2 01 06 2202 oc co 2590 28F2
2172
JF TS
IF NOT GO CHECK FOR STATUS
2208 30 04 262A
2173 GOUNLK 8
2201 2174
DC
2203 2175
DC
2205 2176
DC
2177
8
2178
B
2201- 2179
DC
2211 2180
DC
2213 2181
DC
2182
TBN
2183
BT
2184
2185
CLI
2166
BE
2187
B
2188
2189 TS
TBN
2190
BF
2191
TBN
2192
JT
2193 OOPS3 MVI
2194
8
2195
2196 Cf-MPS SLC
2197
CLC
2198
JE
2199
8
2200
2201 WAITDE 8
2202
CLC
2203
BE
2204
ALC
2205
TBN
2206
BF
2207
8
OOSIO
Al21UNLOCE-UNLOCKJ Al2C XMITE> AL21UNLOCEt TRESPl COSIO XL2'0' AL2CXH!TRC+l J AL2C EOT-1' POLFLG,X'20'
LINK
AIO,X 1 6E' TERM WRTOlt
POLFLG,X 1 10' WR TOK RTNFLG,X1 40' CHKPS ERR,UNX ERROR
OVBCNT C2 h DV8CNT POLSH2), IR WAI TOE OOPS3
DO POL POLSTc2·.DE LINK DVBCNTI 2> ,ONE DVBCNT-1,x·oa· WAITDE TERM
GO UNLOCK THE KEYBOARD
GO CHECK CORRECT RESPONSE GO SEND EOT TO DROP DEVICE
WAS IT A TEST RcQ. GO TO NEXT ROUTINE IF SO
WAS AID A PA-2 CCNCLt IF SO. TERMINATE PGM. IF NOT, GO POLL SOME HORE
WAS THE RESPONSE STATUS? IF NOT POLL AGAIN IS THE DEVICE A PRINTER IF SO, GO CHECK STATUS SET UNEXPECTED RESPONSE GO TO ERROR
RESET COUNTER WAS STATUS JR? IF SO GO WAIT FOR DEVICE END
G~~ POLL AGAIN CHECK FOR DEVICE END IF SO, GO TO NEXT ROUTINE ADO 1 TO COUNT WAITS FOR ABOUT 6 SEC GO POLL AGAIN GO TERM PGM.
22DC F2 01 06
22DF oc 12 2590 2925
22E5 30 05 262A
22E9 F2 01 06
22EC OC OF 2590 28E4
22F 2 30 06 262A
22F6 F2 01 06
22F9 OC OC 2590 28~
2'1FF 30 07 26ZA
2303 F2 01 06
2306 OC OB 2590 28C7
230C 30 08 262A
2310 F2 01 06
2313 OC OE 2590 2912
2319 30 09 262A
2310 F2 01 06
2320 OC uO 2590 294A
2326 30 OA 262A
232A F2 01 06
(
2320 oc 10 2590 2895
2333 30 OF 262A
2337 F2 01 06
(,,_
233A OC 14 2590 29C4 2340 30 10 262A
2344 F2 01 06
2347 oc 11 2590 2978
2340 30 20 262A
2351 F 2 01 06
2354 oc oc 2590 2932
i \
Z35A 30 13 262A
235E F2 01 06
2361 OC 12 2590 29BE
2367 30 14 262A
2368 F2 01 06
236E OC OF 2590 299£
2Z08 22220190
*········D··EL··A··Y······S··U··B··R··O··U··T··IN··E·········································****************
i
2211 *
B
DELAY
2212 · 2213
DC IL2·xx·
XX ~ NUMBER OF MILLISECONDS TO DELAY
2214 DELAY ST
2215
ST
2216
L
2217
MVC
DELA YR+ 3 ,ARR RXR1+3,XRI DELAYR+3,XR1
COUNT, 1C21XRU
STORE RETURN AODACSS STORE XRl
GET AOORcS OF DELAY ARAMETER FETCH COUNT
·.,__
2374 30 15 262A 2378 F2 01 06
2378 OC 10 2590 29AF 2381 30 16 262A 2385 F2 01 06
7388 Ot 23 2590 29EB
238E 30 17 262~ 2392 F2 01 06 2395 OC 13 2590 2A5A
2390 30 18 262A
ADDR STMT SOURCE STATEMENT
2218
Alt DELAYR+3 (2, ,Two
UPDATE THE RETURN ADDRESS
2219 CNTLP CLC XMITRCC256J,XMITRC
2220
CLC XMITRCC62JrXMITRC
2221
SLC COUNT<2 t ,ONE
DECREMENT COUNT
·-· 2222
2223 RXRl
BNZ LA
C*N-·T,LPXRl
LOOP Tl L CClJNT "' 0 RESTORE XRl
2224 2225 2226 2227
·D*···EL··A·E·VR··RR··O··R8····F··O··R··M····A··T··T··IN··G······&··P··R··I··N··T··O··U··T····R··O····U··T··IN··E······································
2228
2229 ERROR ST ERRORR+3,ARR
STORE RETURN
2230
MVC ERRHLTClJ,ERR
FILL IN HALT CODE
2231
CLI ERR,UNITCH
TEST FOR UNIT CHECK
2232
JNE TERR2
2233
MVC LOGHSGClBJ,UNITNR
[NSERT UNIT CHECK MESSAGE
2234 TERR2 CLI ERR,BUSE
TEST FOR ttJNG BUSY
2235
JNE TERR3
2236
MVC LOGMSGI 17 J rHBUSY
INSERT HUNG SUSY .-tcSSAGE
2237 TERR3 CLI ERR,INPN
TEST FOR INT PN D ERROR
2238
JNE TERR4
2239
MVC lOGHSGC14J,JNTPNO
INSERT INT PND ERROR MSG
2241) TERR4 Cll ERR,UNX
TEST FOR UNEXPECTED STATUS
2241
JNE TERRS
JUMP IF NOT
2242
MVC lOGMSGC 19 J ,UNEXP
HOVE IN MESSAGE
2243 TERR5 CLI ERR,ATTCH
TEST FOR ATTACHMENT CHECK
2244
JNE TERR6
2245
MVC LOGMSGC161,ATTftSG
INSERT ATT CHECK MESSAGE
2246 TERR6 CLI ERR, ITBE
TEST FOR ITB ERROR
2247
JNE TERR7
2248
·MVC LOGHSGtl31,JTBMSG
2249 TERR7 cu ERR, NO INT
INSERT ITB ERROR MESSAGE TEST FOR NO INTERRUPT
2250
JNE TERRS
2251
MVC LOGMSGC12JeHOINTR
INSERT NO INTERRUPT MESSAGE
2252 TERRS t:LI ERR, DATER
TEST FOR DATA MISCOMPARE
2253
JNE TERR9
2254
MVC LOGMSGC151wMISOAT
INSERT MISCOMPARE MESSAGE
2255 TERR9 CLI
2256
JNE
2257
MVC
ERR,OEVHB TERROA
LOGHSGl14J,OY8"SG
TEST FOR DEVICE HUNG BUSY JUMP IF NOT HOVE IN DEVICE BUSY MESSAGE
2258 TERROA CLI ERR,ATNR
2259
JNE TERROF
TEST FOR ATTACH. NOT READY JUMP IF NOT
2260
MVC LOGMSGC17),ATTNOR
MOVE IN MESSAGE
2261 TERROF CLI ERR,MNL
TEST MICRO CODE NOT LOADED
2262
JNE TERRlO
2263
MVC LOGMSGC21JeMICNLM
MOVE JN MESSAGE
2264 TERRIO CLI ERR,INCOR
ijAS IT INCORRECT RESPONSE
2265
JNE TERR20
2266
MVC LOGMSG<l8),INCORM
MOVE IN MESSAGE
2267 TERR20 CLI
2268
JNE
2269
MVC
2270 TERR13 CLJ
2271
JNE
ERR,RY IS TERR13 LOGMSGC131wRVlllSG ERR,ACCIN
TERRl"'t
TEST FOR RVI TO SELECT JUMP IF NOT MOVE IN MESSAGE WAS INVALID ADDRESS AC~EPTEO
2272
f4VC l0GHSGl191,ACCINM
2273 TERR14 CLI ERR,NOEOT
2274
JNE TERR15
CHECK FO~ ERROR NO EOT
2275
MVC
LOGMSGC16),RS~EOT
MOVE IN MESS AGE
2276 TERR15 Cll ERR,BOST
2277
JNE TERRl6
TEST FOR WRONG STATUS
2278
MVC
2279 TERR16 CLI
2280
JNE
LOGHSG(lll,-WRSTNG ERR, MP INT TERR17
MOVE IN "ESSAGE CHECK MICRO POLL INT ERR
2281
MVC LOGMSGC36) eRPR&l
2282 TERR17 CLI ERR,MPCS
2283
JNE TERR18
TEST CAR NOT EQUAL TO SAR
2284
MVC LOGMSGt20lellPllG4
2285 TERR18 Cll ERR,RNST
MOVE IN LOG MESSAGE TEST STATUS NOT REt·O
I
DATE 26JUN75 EC NO. 82502;,
250CT75 825032
15JAN76 825034
l4MAY7,. 825035
PROG ID Pl.GE
I I.
! 0894-3' ; DATE
17
EC NO.
I
Z6JUN75
825023
250CT75 825032
l5JAN76 825034
14MAY76 825035
PROG 10 PAGE
0894-J
17A
I()
l
,_
i
I ()
I 10
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PART NO..
PAGE
4234£59 18
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PART NO..
PAGE
4231t259
l8A
8943 DA FUNCTIONAL TESTS
DA FUNCTIONAL TESTS
ERR LOC OBJECT CODE
AODR STHT SOURCE ST·ATEMENT
ERR lOC OBJECT CODE
AOOR ST~T SOURCE STATE~ENT
239F F2 01 06 23A2 OC 16 2590 2A7l
23A8 30 40 262.A
2286
JNE
2287
MYC
cu 2288 TERR40
TERl\40
LOGMSGl23l,MPl'IGS ERR,EOTC
MOVE IN LOG ~ESSAGE TEST FOR EOT TO CMO
245C OC O! 247i 37C3 2462 CO 81 02!.E
2354
MVC
2355 PXRNL a
2466 02
2466 2356
DC
UNPKA( 2), STXRP UNPACK >tU. 1 02e
INITIALIZE UNPACK ADDRESS
UNPACK AODREs.S
23AC F2 01 06
2289
JNE Tm ROB
JUMP !F NUT
2%7 2FDl
24t:8 2357
DC
AL 2{ HEAOAO)
23AF OC C9 2590 293C 23B5 3u OB 262A
2290
MVC
2291 HR.ROS cu
LOGMSG { 10) t EOmsG EP.R,WACl<E
MOVE IN MESSAGE
TEST UNEXPECTED WACK
2469 2F3E 246S CO 87 021E
2.46A 2358 2359
DC
AU! Pl INE-70)
s
UNPACK
UNPACK DATA
2389 F2 01 06 23BC OC OE z~c;" 2959
2292 2293
JNE TERROC MVC LOGMSGtl5),UNWACK
MOVE IN MESSAGE
246F 20 2470 0000
246F 2360
DC
2471 2:361. UNPKA DC
IL1'3Z" AL2( *--'iltt
SOURCE ADDR GETS FILLED IN
23C2 30 OC 262A 23Cb f2 01 06 Z3C9 OC OF 2590 2969
229't TERROC CU
2295
JNE
2296
MVC
ERR,UNK GET SET
LOGMSGI lfii !UNl<.OW
TEST FOR UNKNOW~ RESPONSE MOVE IN MESSAGE
2"72 2F80
2473 2362
2474 OD lF 2F80 2FF1
2363
247A F2 01 09
2364
DC CLC
JNE
Al2 i PU NE-4;
PllNE-4l32~rFfFF
PXRC
TEST liNE All F'S PRINT IF NOT
2291
2470 OD lF 2F 60 2Ff l
2365
CLC PlINE-36(32l,FFFf
23CF CO 87 02 lE 2303 02 2304 2620
2306 25A8
2298 GET SET B
2303 2299
DC
2305 2300
DC
2307 2301
DC
UNPACK
.Il 1 '2'
AL2(SCARt
AL2(LOGCAR)
GO UNPACK CAR
2483 f2 81 08
2486 co 87 021A
24f\A 81
2488 46
2366
JE
2367 PXRC B
248A 2368
DC
2488 2369
oc
NOP
PRINT Xll 1 Bl'
IL l ' 70 1
NO PRINT IF ALL f'S PRINT LINE OF DATA
2308 CO 87 OZlE 23DC 02
2300 2622 230F 2562
2302 2303 BOC 2304 230E 2305
23EO 2306
El
UNPACK
oc oc
IL1'2' AL2( STAR)
Dt
AL2 ( LOGT AR)
248C 2F80 24BE OE 01 2471 37Cl
2494 OE 01 2FDl 37C l 249A OD Ol 2471 37C5 24AO CO 04 2462
2480 2370 2371 NOP 2312 2373 2374
DC
Al2(PL INE-4)
ALC UNPKAi 2 l, THREE2
ALC HEADADl2J9THREE2
CLC UNPKA(2),SPXRP
BNH PXRNL
ADD 32 TO ADDRESS
ADD 32 TO ADDRESS CHECK FOR END GO 00 NEXT LINE lF NOT END
230"/
2375
23El CO 87 021E
2308
B
UNPACK
GO UNPACK SAR
24A4 CO 87 021.A
2376
B
PRINT
GO SPACE 6
23E 5 02
23E5 2309
DC
Ill~ 2'
24A8 96
24AS 2377
DC
Xll '96'
23E6 2624 23E8 25BC
23E7 2310 23E9 2311
DC Al2(SSARl
DC
Al2.C LOGSAfU
24A9 40 02 02 264C
2378 2379
ClC 2( 3,XRU tSTATR
WAS RESULT STATUS?
23EA CO 87 02 lE 23EE 02
2312 2313 23EE 2314
B
UNPACK
DC
l l l ~.2'
GO t.!NPAOt STATUS
24AE F2 01. 09
2451 co 87 1027 2485 co 87 021A
2380 2381 238.2
JNE TSTHLT
a
FORMAT
8
PRINT
JUMP IF NOT GO PRINT STATUS DECODE
GO SPACE 6
23EF 2626
23FO 2315
DC
AL2<SSUT ~
2489 96
2459 2383
DC
Xl l 196 I
2 3F l 259E
23F3 OC 00 2402 262A
23F 9 CO 87 021A
23FD C2
23F2 2316 2317
2:ns
2319
23FD 2320
DC
Al2( lOGSY ~
MVC HEAO(ll,ERR
B
PRINT
DC
Xll'C2~
MOVE ERRnR TD HEADER GO PRINT lST ME~SAGE
24BA 30 20 262A 24SE F2 81 11 l'<-~ 1 30 40 262A
24C5 f2 81 OA
2384
2385 TSTHL T CU
2386
JE
2387
cu
2368
JE
ERR,R\IIS PHMSG ERR~ EOTC
PH MSG
WAS rT RV! TO SELECT GO PR!NT MESSAGE lf SO
iiAS H EOT TO COMIO.l'cfQ
GO PRINT MESSAGE IF SC
23FE 30 23FF 2591 2401 8900
2403 co 81 02lA
Z3FE 2321
DC
2400 2322
DC
2402 2323 HEAD DC
2324
B
Ill '46'
AL2i~SGBLK)
XL2' 6900'
PRINT
GD PRINT CAR, TAR, SAR & STATUS
24C a co e7 0222
24CC 8900 24CE CO 87 0216
2389
2390 HL TERR u
24CD 2391 ERRHL .i DC
2392
e
HALT
XL2'5900' l I NK
GO Hb.L'i
*****H~lT CODE GETS FILLED IN*****· GO TO NEXT ROUTINE
2407 82
2408 2B 2409 25BC
2407 2325 2408 2326 240A 2327
DC
Xll 5 62·
DC
IL1'43'
DC
AL2(l0~SAR>
2402 co 37 021.A
2406 86
2393
2394 PHMSG B
2406 2~95
oc
PRINT
XL1°B6'
PRINT MESSAGE TO RESET HALT
240B 30 08 262A
2328
CU ERR, DAT El\
TEST FOR DATA ERROR
2407 21
2407 2396
DC
IL1a33·
240F CO 01 2427 2413 38 04 2E94
2329 2330
BNE TEI NC TBN RBFlG.xto4 1
BRANCH IF NOT
TEST DOING ERASE ALL UNPROT.
2408 2061
2409 2397.
24DA OC 00 24E5 24CD
2398
DC
AL2 !RS THMG J
1WC STHL T< l ! ,ERRHlT
MOVE IN HALT CODE
241 7 CO 90 lFFB 241B CO 87 021A
2331 2332
BF PX REX
B
PRINT
GO PRINT MESSAGE
24EO CO 87 0222 24E4 8900
2399
B
24E5i 2400 STHL T DC
HALT
Xl2 1 8900;
HALT CODE GETS FILLED IN
241F 02 2420 18
241.F 2333 2420 2334
DC
Xll'02'
DC
IL 1' 27 ~
24E6 CO 87 0000
2401 2402 ERROR R B
RE TURN TO USER
2421 ZASC
2422 2335
DC
All I EAUHG j
2403.
2423 CO 87 lffB 2427 30 10 2621\
2428 CO Si 1Ff8 242f 30 15 262A
2336
B
2337 TEINC Cll
2338
BE
2339
CU
PXREX ERR,INCOR
PXf\EX
ERR o 3DST
TEST FOR INCORRECT RESPONSE
IF SO., GO PRINT
WA~ ERROR - WRONG STATUS
2403
2404 2405
·*······*·S·U·B·R*O··U·T·I·N·E··T*O··C··H·E·C*K**F*OR**M*O*D*E*L*4**A*N·D**D*E*V*IC*E**4*0**· *******·*********
240'> **********$********************~~~********************
2433 F2 Ol 04
2436 co 87 1014
243A CO 87 OZU
2340
JNE PXRM
JUMP IF NOT
2341
B
PEXPST
GO PR INT EXPECTED STATUS
2342 $ PRINT CONTENTS OF TRANSMITIRECEKVE FIELD
2343 PXRM 8
PRINT
PRINT XMIT/REC HEADING
2407
2408 *
* 2409 "'
2410
THIS ROUTINE CHECKS FOR rHE CONSOLE DEVICE {40} ON A MODEL 4 !F SQ, TEST PATTERNS AND KEYBOARD ROUTINES ARE SKIPPED.
HOWEVER, IF SSW 28 IS TU<tNEO ON, THIS "TEST IS IGNORED ..
243E 81
243f 00
2440 39E5
2442 OC lF 2F80 :ZFCf
oc 2448
25 2F60 .2FAIB
243E 2344 243F 2345 2441 2.346
231t7 2348
DC
XU· 81'
DC
il.1"13 1
DC
Al 2 ( XMRCMG)
MVC PL!NE-4(32ltPHEAD
SET UP HEADING
MVC.
PLINE-36(38~~PHEAOA
24Eh 34 06 2507
24EE 38 BO 0200
2'~F2 F2 10 OF
!
I
24F 5 30 '·0 2605
2411
2412 CHMOOX ST
2413
TBN
2414
JT
2415
cu
MODXR+J~ARR SBYTE~~sswza
MOOXR
x CURDE\I' t ·40 G
STORE RETURN ADDRESS
TEST SSW ZS Oh SKIP THIS TEST IF SO CHECK FDR DEVICE 40
244E co 87 OllA
2452 82 2453 46
2454 2F80
2456 oc 01 2FOl 261.A
2349 2452 2350 2453 2351 2455 2352
2353
B
PRINT
DC Xll'82'
DC
!ll'70i
DC
Al2C PU ~E-41
MVC HEAOAO( 2 It LCAR
GO PRINT HEADING INITiALIZF HEADING AOOR
I
!
lI (,·.'
2"·f9 F2 OJ. 08
24FC 30 C2 0200
2500 CO Bl 02i6
2504 co 87 0000
2416
JNE
2417
ttI
2418
BE
2419 MOOXR B
2420
MODXR
x·2001 ,c·e·
LINK
*-*
OUT If NOT
TEST FOR HODEL 4 SKIP ROUTINE IF SO
RETURN
DATE
26JUN75
EC. NO.. 825023
250tT75 825032
15JAN76 825034
l4MAV76 825035
PROG to
PAGE
0894-~ 18 !
DATE 26JUN75
EC NO.. 825023
250CT75 825032
15JAN76 825034
HMAY76 825035
PROG ID PAGE
0894-3 18A
c
.,
·
·
··
·
·
·
·
·
·
·
·
·
·
·
·
·
.v.I r."· I,.;;· ! -·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
· · · -· · · · · · · · · · · · ··
· ·· ···
·~ ·
· · · · · · · .·::_e~~,"4·
I
"'·' i..·..
I
IBM MAINTENANCE DIAGNOSTIC PROGRAM 8943 DA FUNCTIONAL TESTS
PART NO. 4234259
PAGE
19
IBM MAINTENANCE DIAGNOSTIC PROGRAM 8943 DA FUNCTIONAL TESTS
PART Ne..;. 4234259
PAGE
19A
ERR LDC OBJECT CODE
AODR STMT SOURCE STATEMENT
ERR LOC OBJECT CODE
ADDR STMT SOURCE STATEMENT
2508 34 01 253A 250C 34 02 253E 2510 34 04 261<: 2514 35 04 262C 2518 Cl 50 255A 251C Cl 89 2520
2520 Cl 8~ 254A 2524 Cl 8C 2"'2F 2528 3C 03 262A 252C F2 87 04 252F Cl 88 2552
2533 3C 00 2610 253 7 CZ 01 0000 2538 C2 02 0000 253F 35 04 2618
2543 F3 88 01 2546 co 87 2508
254A 3C 01 262A 254E CO 87 2533 2552 3C 06 262A 2556 co 87 2533 255 A 3C 05 262A 255E CO 87 2533
DATE 26JUN75 EC NO. 825023
2SCICT75 825032
2421 ························
r·
························ 2422 * INTERRRUPT ROUTINE ***************·*******************************~ .
2423
2424
2425 INT2 ST
2426
ST
2427
ST
2428
l
2429 TSTATT TIO
2430
TIO
2431
Xl+3,XR1 XZ+3,XR2 PSRW,PSR ZERO,PSR
ERRATC,ATTCHK GOON,X' 89 1
SAVE XRl SAVE XR2 SAVE PSR.
INITIALIZE PSR TO ZERO
TEST FOR ATTACHMENT CHECK TEST FOR DA OP END INTERRUPT
2432. GOON TIO UNITC ,NORD UC
2433
TIO I01,X'8C·
2434
MVI ERR,INPN
2435
J
I EXIT
2436 IOl TIO JTBER,x·ea·
2437
TEST FOR UNIT CHECK TEST FOR INTERRUPT PENDING ERROR, J NT ER RU PT SHOULD BE PND.
EXIT
TEST FOR ITB INTERRUPT
2438 IEXIT MVI
2439 Xl
LA
2440 X2
LA
.£2.,4,,..,4.,,.1..,.
L
INTFLGtO
it:-·,XIU
·-·,XR2 PSRW,PSR
SET INTERRUPT OCCURRED INDICATION RESTORE XRl
RESTORE XR2
RESTORE !'.'S~
2443 2444
2445
SIO x·o1·,cNTRL
B
JNT2
RESET THE INTERRUPT TAKE NEXT I NT ERRU PT
2446 ·
ERRORS
2447 UNI TC MVI
2448
8
2449 ITBER MVI
2450
B
ERR,UNITCH IEXIT ERR,ITBE
IEXIT
SET UNIT CHECK
EXIT
SET ITB ERROR
2451 ERRATC MVI ERR1ATTCH
2452
B
IEXIT
SET ATTACHMENT CHECK
2454 ····················
22445556 ·*···E·R·RO·R···LO·G·O·U·T······**********************************************..****
2562 2457 LOG EQU 2562 C4C5E5C9C3C540E7 256A 2458 LOGDEV DC
* CL9 1 DEVICE xx·
256A E7
2458
2568 4040404040404040 2590 2459 LOGMSG DC 38CL1' 1
2573 4040404040404040 257B 4040404040404040
2459 2459
2583 4040404040404040
2459
2588 404040404040
2459
2591 40
2591 2460 MSGBLK DC
2592 4040E2E3ClE3E4E2 259E 2461 LOGST DC
259ft. 7EE7C7E7E7
2461
CLl' 1 Cll3 1 STATUS·XXXX'
259F 4040C3Cl097EE7E7 25A8 2462 LOGCAR DC
25A7 E7E7
2462
CL10° CAR=XXXX'
25A9 4040E3Cl097EE7E7 2582 2463 LOGTAR DC
2581 E7E7
2463
CL10 1 TAR=XXXX'
2583 4040E2ClD97EE7E7 258C 2464 LOGSAR DC
25BB E7E7
246it
CLlO· SARcXXXX 1
2465
2466 ·······························
22446678 ·*··D·A·T·A··F·I·E·L·D·S··A·N·D··C·O·N··ST·A·N·T·S···*·****************************************
2469
2580 2470 WRT EQU
2580 0227F5 25CO SF
25BF 25CO
2471 2472
WRTFLO
wee
DC DC
25Cl 110000
25C3 2473 WRTADR DC
Z5C4 10E913
25C6 2474
DC
25C7 C4C5E5C9C3C540E7 25CF 2475 DEVICE DC
25CF E7
2475
·
Xl3'0227F5 1 XL1'5F' XL3 1 110000·
XL3'1DE913' CL 9 'DEV ICE XX'
STX,ESC,ER/WR <GETS CHANGED TO WR)
wee - DO EVERYTHING 40 CHAR PRINT SBA, ACOR GETS FILLED IN
SF, PRQT, HI INT., Moo ·· IC
DEVICE GETS FILLED IN
25D\. lDCl
2501 2476
2502 005C005COO~C005C 25E9 2477
DC XL2' 1DC 1 1 DC 6XL4'005C005C 1
SF, UNPROT., MOO.
25CiA OCl5COOSC005C005C
2477
25E2 005C005C005C005C
2477
25EA 09E305FOF2 25EF ll't040 2SF2 03
25EE 2478
DC
25Fl 2479
DC
25F2 2480 EWRT DC
CL5'RTN02 1 XL3 1 114040· Xll 1 031
SBA TO RESET BUFFER AODR TO ZERO ETX
25F3 37FF32320000
I
25F9 0000
I i,._ 25Fe ZD
! (
25FC 0227F603
2481
25F3 2482 SELPOL EQU
25F 8 2483 SPFLO DC
25FA 2484 PSOEV DC
25FB ~485 ENQ
DC
2486
25FC 2487 RD:400 EQU
25FF 2488 ROMODE DC
·
Xl6'37fF32320000 1 XL2 1 0000' XL1 1 2D'
·
XL4 I 0227F603.
SELECT/POLL MESSAGE POLL OR SLECT GETS FILLED IN DEVICE GETS FILLED IN ENQ - ENDS POLL OR SELECT
READ MODIFIED COMMAND STX,ESC,RO MOD,ETX
2600 0227F203
2604 0000 2606 0000 2608 2609
2489 2600 2490 ROB EQU 2603 ~491 ROBE DC
2492 2605 2493 CURDEV DC 2607 2494 LINE DC 2609 2495 I NXR2 DC
2496
·
Xllt 1 0227FZ03 1
XL2'0' XL2 1 0 1 AL210NFLG-4J
READ BUFFER COMMAND
CURRENT DEV ICE CURRENT LINE POINTER fLOW BYTEI START OF 1 0N 1 FLAGS
2497 · 2498 .,.
2499 *
KEEP THE FOLLOWING 2 BYTE FLAG BYTES TOGETHER ANO IN ORDER BITS 2-7 OF HI BYTE USED FOR DEVICES C2-C7 BITS 2-7 OF LO BYTE CSED FOR DEVICES 02-07
2500
260A 00000000
2600 2501 ONFLG DC 2502
Xl4'0'
DEVICE AVAILABLE FLAGS ~~~~~1
260E 00
260F 00
2610 00
2611 0000
2613 0000
,. 2615 2506
\.~ !
2617 0000
260E 2503 RESTFL DC 260F 2504 DONE DC 2610 2505 lNTFLG DC 2612 2"506 BCNT DC 2614 2507 DVBCNT DC
2616 2508 AINT2 DC 2618 2509 PSRW DC
XL1'0' XL 1 'O·
XL1 1 0' Xl2'0' XLZ'O' Al21 INT2) XL2'0'
R=ESFTFARWTHENFLAAGl l =DFEFVICIFES PGAMRE I SDOLNOE OPING
INTERRUPT FLAG BUSY COUNT ER DEVICE BUSY rouNTER
ADDRESS OF INTERRUPT ROUTINE PSR STORAGE AREA
15JAN76 825031t
14MAY76 825035
PROG ID PAGS:
I
c I
089+-3~
DATE
19 ;
EC NO.
IC
Z6.IUN75 825023
250CT15 825032
15JAN76 825034
lltftAY76 825035
PROG ID PAGE
0894-J 19A t
I
l
iI c..;..
I'o
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PART NO.
PAGE
4234259 20
ISM MAINTENANCE DIAGNOSTIC PROGRAM
PART NJ.. 4234259
8943 DA FUNCTIONAL TESTS
PAGE
ZOA
8943 DA FUNCTIONAL TESTS
l - ERR LDC OBJECT CODE
AODR STMT SOURCE STATEMENT
I 2619 4200
2616 0000 2610 0000 261F 0000
2621 0000 2623 0000 2625 0000
2627 00 2628 00
2629 00
= 262A 00
2blA 2510 LCAR DC 261C 2511 LTAR DC
261E 2512 LSAR DC 2620 2513 SCAR DC
2622 2514 STAR DC 2624 2515 SSAR DC 2626 2516 SSTAT DC
2627 2517 PFLG OC 2628 2518 WRTCHD DC 2629 2519 PASSI DC 262A 2520 ERR DC
2628 000001
2620 2521" ONE DC
262E 0003
262C 2522 ZERO EQU 262F 2523 THREE DC
2630 0006
2632 0101 2634 4050 2636 37FF
2631 2524 SIX DC
2633 2525 OEVINC DC
2635 2526 IR
DC
2637 2527 EQT DC
2638 1068
263A l07C 263C 1070
2639 2528 WACK DC
2638 2529 RVI
DC
2630 2530 ACKO DC
263E 1061
263f 2531 ACKl DC
2640 C250 2642 C240 2644 40C2
2641 2532 IROE DC
2643 2533 OE
DC
2645 2534 CC
DC
2646 C640
2648 C4C4
264A Oi6CD9
2647 2535 OB
DC
2649 2536 OCUS DC
264C 2537 STATR DC
2640 Ol6C6l
264F 2538 TSTREQ DC
2650 4040
2651 2539 POLL DC
2652 6060
2653 2540 SEL DC
2654 E7E 7E 7E1 2658 00
2657 2541 XXXX DC 2658 2542 POLFLG DC
2659 00
2659 2~43 AID
DC
265A 0000
2658 2544 POLST DC
265C OOC'O
265D 2545 CURACK DC
265E 3F3F
265F 2546 STDEV DC
2660 00 2661 00
2660 2547 CONFLG DC 2661 2548 SAVAID DC
2662 7200
2663 2549 X7200 DC
2664 E6Cl0905C905C740 268E 2550 WARN DC
266C 604009E30540FOF1
2550
2674 60FOF240D506E340
2550
2l7C 09E40540C6060940
2550
2684 E3CSC9E240C4C5E5 268C C9C3C5
2550 2550
2551
268F 09E30540FOFl4060 2680 2552 HEALJlA DC
2697 40C 3C8C5C3D240C4
2552
2b9F C5E5C9C3C540ClE5 26A7 ClC903ClC2C9D3C9 26AF E3E8
2552 2552 2552
26B l D9E 30540FOF 14060 26C6 2553 HEAOlB DC
2669 40C4C5E5C9C3C540
2553
. AL2(XMITRC i
TRANSMIT/RECEIVE FIELD ADDRESS
XL2 1 0 5
LIO TAR FI EtD
Xl2'0'
LIO SAR FtEtD
XL2 1 0· ·
SNS CAR FIELD
Xl2'0'
SNS TAR FIELD
Xl2 1 0 1
SNS SAR FI ELD
XL2'0'
SNS STATUS FIELD
Xll I 0'
= PRINT FLAG FF IF PRINTING
Xll 1 01
CURRENT WRITE OR ERASE/WRITE CMO.
Xll'O'
FF IF NOT FIRST PASS
Xll 1 01
INTERIM ERROR HALT BYTE
XL3' 000001 c
HEX 1 AND ZERO
ONE-1
ZERO FIELD 2 BYTE LONG
XL2 1 0003·
CONST ANT THREE
XL2 1 0006'
HEX 6
Xl2 1 0101'
CONSTANT TO INCREMENT DEVICES
XL2 1 4050 1
I NT.. REQ. STATUS
XL2 1 37ffC
EDT RESPONSE
XL2'106B'
WACK RESPONSE
Xl2 1 107C1
RVI RESPONSE
Xl2 1 10701
ACK 0 RESPONSE
Xl2' 1061'
ACK l RESPONSE
XL2 1 C250 1
INT. RQ., DEVICE ENO STATUS
XL2 1 C240°
DEVICE ENO STATUS
XL2'40C2'
CONTROL CHECK STATUS
Xl2'C840 9
DEVICE BUSY STATUS
Xl2CC4C4t
DATA CHECK~ UNIT SPECIFY STATUS
Xl3'016C09'
START OF STATUS MESSAGE
XL3 1 0l6C61'
START OF TEST REQ MESSAGE
Xl2 1 40409
POLL CONSTAll.'T, DEVICE 40
Xl2'b060'
CL4 I xx xx.
SELECT CONSTANT
ERROR BLA~K!NG CONSTANT
Xll"O'
POL l FLAGS --------- - ------·------1
XL 1'0'
AID CHARACTER --------------------2
XL2 1 0'
POLL STATUS ----------------------3
xL2 ·co·
CURRENT ACK BEING SENT
XL2' 3F 3F ·
CONSTANT FOR START DEVICE
XL1'0'
FLAG TO DETERMINE RTN 02 RUN
Xll 1 0 1
AID GETS SAVED HERE SOMETIMES
Xl2'7200·
CONTENTS OF lST WORD IN MICRO CODE
- Cl43~WA~NING RTN 01-02 NOT RUN FOR THIS UEVICE'
CL34·RTN 01 - CHECK DEVICE AVAILABILITY' CL22' RTN 01 - DEV I CE UPOM E9
ERR LDC OBJECT CODE
ADOR STMT SOURCE STATEMENT
2721 0940E3C5E2E3
2556
2727 09E30540FOF54060 2741 2557 HEADS DC
Z7 2F 400 9C 5C lC 440D406
2557
CL27°RTN 05 - kEAD MODIFIED TEsre
2737 C4C9C6C9C5C440E3
2557
213F C5E2E3
2557
2742 09E30540FOF64060 2766 2558 HEA06 DC
274A 40E609C9E3C540C6
2558
CL37 1 RTN 06 - WRITE FUNCTION TcSTS AND EAU'
2752 E405C3E3C906D540
2556
275A E3C5E2E3E240Cl05
2558
2762 C440C5ClE4
2558
2767 09E30540FOF74060 2786 2559 HEAD7 DC
Z76F 40C9D5E5Cl03C9C4
2559
CL32tRTN 07 - INVALID AOOk. DETECTION'
2777 40ClC4C4094840C4
2559
277~ C5E3C5C3E3C90605
2559
2787 09E3D540FOF8406C 27A5 2560 HEADS DC
278F 40C905E5Cl03C9C4
2560
CL31 1 RTN 08 - INVALID DATA DETECTION'
2797 40C4ClE3Cl40C4C5
2560
279F E3C5C3E3C90605
2560
27A6 09E30540FOF94060 2706 2561
27AE 40E40707C5096103
256l
DC
Cl49 1 RTN 09 - UPPER/LOWER CASE ALPHA TES; & CONTINUOUS'
2786 D6E6C50940C3ClE2
2561
278 E C540Cl0 .30 7C BC 140
2561
27C6 E3C5E2E3405040t3
2561
27CE 0605E3C905E406E4
2561
2106 E2
2561
2707 40D7D603C3
2708 2562 HEA09 DC
Cl5' POLL'
27DC D9E30540FOC14060 27FD 2563 HEAOA DC CL34 1 RTN OA - TEST PATTERN INSTRUCTIONS'
27E4 40E 3C 5E 2E34007C l
2563
27EC E3E3C5090540C9D5
2563
27F4 E2E3D9E4C3E3C906
2563
27FC D5E2
2563
27FE D9E3D540FOE7
2803 2564 HDTPl DC CL6'RTN ox·
28L~ 406040E3C5E2E340 2814 2565 HEAOP OC
Cll7' - TEST PATTERN X1
280C D7ClE3~3C5090540
25~5
2814 E7
2565
2815 D9E30540FlF04060 2833 2566 HEAD!O OC
CL31 1 RTN 10 - KEYBOARD FUNCTION TEST'
2810 40D2C5E8C2DbClD9
2566
2825 C440C6E405C3i3C9
2566
2820 060540E3C5E2E3
2566
2834 D9E305~0Flfl4060 2860 2567 HEADll DC
283C 40E40707C5D96103
2567
CL45'RTN 11 - UPPER/LOWER CASE ALPHA KEYBOARD TEST'
2844 06E6C50940C3ClE2
2567
284C C540Cl0307C8Cl40
2567
2854 D2C5EBC206Cl09C4
2567
285C 40E3CSE2E3
2567
2861 D9E30540FlF24060 2884 2568 HEA012 OC Cl36'RTN 12 - DISPLAY ENO OF TEST MESSAGE'
2869 40C4C9EZ0703ClE8
2568
2811 40C505C440D6C640
2568
(,
2879 E3C5E2E34004C5E2 2881 E2ClC7C5
2566 2568
2885 ClE3E3ClC3C84840 2895 2569 ATTNOR DC
Cll7 1 ATTACH. NOT REAOY 9
2880 D50oE34009C5ClC4
2569
2895 ES
2569
26C l E407C4ClE3C5
2553
26C7 D~E30540FOF24060 26EF 2554 HEAD2 DC
26CF 400406C4C5036840
2554
2607 C4C 5E 5C9C3C540E3
2554
2l.DF E SD 7C 540C 4c. 5E 3C 5
2554
26E7 D9D4C9D5ClE3C906
2554
26Ef 05
2554
26F 0 09E30540FOF34060 2708 2555 HEAD3 DC
26F8 40D9C9D7D7D3C540
2555
2700 C4Cl E3Cl40E3 C5 EZ
2555
2708 E3
2555
2709 09E 30 540f Of 44060 2726 2556 HEAD4 DC
271 l 40E2C905C703C540
2556
2719 C3CSnD9ClC3E3C5
2556
Cl41'Rl'N 02 - MOOElt DEVICE TYPE DETERMINATION~ CL25·RTN 03 - RIPPLE DATA TESTc CL30 1 RTN 04 - SINGLE CHARACTER TEST'
2570
2896 05D6E34009C4E861 28A7 2571 UNITNR DC
Cl18·NOT ROY/UNIT CHECK'
289E E4D5C9E340C3C8C5
2571
28A6 C3D2
2511
28A8 C905E34B4009C5D8 2SBB 2572 NOTAVl DC CL20'INT.. REQ.,!NOT AVAIL .. ·
28BO 4B610506E340ClE5
2512
2888 ClC9D34S
2572
28BC 05D640C9D5E3C5D9 28C7 2573 NOINTR DC
CL12'N0 INT£RRUPT'
28C4 09E407E3
2573
2BCS C9E3C240C905E340 2804 2574 lTBMSG DC Cll3'iTB INT ERROR$
2800 C509D90609
2574
2805 ClE3E3ClC3C804C5 28E4 2575 ATTMSG DC
2800 D5E340C3C8C5C302
2575
Cll6' AHA.CHMPIT CHECK~
28E5 C9D5E34007D5C440 28F2 2576 INTPNO DC CLl4'INT PND NOT ON·
'\.._
28EO 0506E34006D5
~576
1
I
DATE 26JUN75 EC NO. 825023
2SOCT75 825032
15JAN76 825034
14HAY76 825035
PROG 10
PAGE
I
0894-3 \.._ DATE 26JUN75 20 ; EC NO. 825023
250CT75 825032
15JAN76
825034'
14MAY76 825035
PROG IO
PAGE
0894-3 20A
c
I
I I C.r'-
i
e
e
I r· -,
ec.! '-~ I
········ ·························
IBM MAINTENA~CE DIAGNOSTIC PROGRAM
8943 DA FUNCTIONAL TESTS
ERR LOC OBJECT CODE
ADDR STMT SOURCE STATEMENT
PART NO. 4234259
PAGE
21
i .-
2SF3 ClE3E3ClC3C&rt840 2903 2577 HBUSY DC
28FB C8E405C740C2E4E2
2577
2903 E8
2577
2904 C4,1E3Cl4004C9E2 2912 2578 MISOAT DC
290C C30 60407C1D9C5
2578
2913 E405C5E70)C5C3E3 2925 2579 UNEXP DC
2916 C5C44009C5E2D706
2579
2923 05E2C5
2579
2926 D9E5C940E30640E2 2932 2580 RVIMSG DC
292E C503C5C3E3
2580
2933 C506E340E30640C3 293C 2581 EOTMSG DC
2938 D4C4
2581"
2930 C4C5E54840C8E405 294A 2582 DVB"SG DC
2945 C740C2E4E2E8
2582
2946 E405C5E707C5C3E3 2959 2583 UNWACK DC
2953 C5C440E6ClC302
2583
295A E4r5D20506E60540 2969 2584 UNKOW OC
2962 09C 5E2070605E2C5
2584
296A C9D5C306D909C5C3 2~7B 2585 INCORM DC
2972 E34009C5E207D605
2585
297A E2C5
2585
297C ClC3C3C5D7E3C5C4 298E 2586 ACCINM DC
2984 40C9D5E54840ClC4
2586
298C C40940
2586
298F 09C5E2D7D605E2C5 299E 2587 RSBEOT DC
2997 40E261C240C506E3
2587
299F E6D90605C740E2E3 29Af 2588 WRSTMG DC
29A7 ClE3E4E24009C5C3
2588
29AF 46
2588
29BO D4C9C3090640C306 29C4 2589 MICNLM DC
29B 8 C4C 5400 506E 3400 3
2589
29CO 06ClC4C5C4
2589
29C5 E405C5E7074B40C9 29E8 2590 HPHGl DC
29CD D5E3D94B'tOClC6E3
2590
2905 C5t940C30605E34B
2590
2900 4007060303't0C9E2
2590
29E5 E2E4CSC4
2590
29E9 050640C905E30948 ZAlB 2591 MPHGZ CC
29Fl 40ClC6E3C50940F2
2591
29F9 40E2C5C34840E34B
2591
2A01 064B40C9E2E2E4C5
2591
2A09 C440C4E409C905C7
2591
2All 40C30605E34840D7
2591
2Al9 D603D3
2591
2AlC C905C3D60909C5C3 2A46 2592 MPMG3 DC
2A24 E340E2E3ClE3E4E2
2592
2A2C 400 9C 5C 3C 5C 9E 5C 5
2592
2A34 C440C4E409C905C7
2592
2A3C 40C30605E34840D7
2592
2A44 060303
2592
2A47 C3Cl09400506E340 2A5A 2593 MPMG4 DC
2A4f C508E4ClD340E306
2593
2A57 40E2Cl09
2593
2A!'i8 09C 5E20706D5E2C5 2A71 2594 MPHG5 DC
2A63 40E6ClE2400506E3
2594
2A68 40E2E3ClE3E4E2
2594
2A7 2 C5D9C lE 2C 540C 103 2A8C 2595 EAUMG DC
2A7A 0340E4D5070906E3
2595
2A82 C5C3E3C5C440CSD9
2!J95
2A8A 090609
2595
2A80 C4C9Cl034oC5C2C3 2A86 2596
DC
2A95 C4C9C340C3C8ClD9 2A90 4840E30640C2C540
2596 2596
ZAA 5 09C 50 7C 5C 1E 3C 5C 4
2596
2AAD 40C905E3D640C4Cl
2596
2AB5 E3Cl
2596
2AB7 40E2E640F3o8F448 2ACE 2597 R04MG DC
2ABF ~04009C5E2C5EJ40
2597
CL17'ATTACH. HUNG BUSY' Cll5'DATA HISCOMPARE' CL19 1 UNEXPECTEO ~ESPONSE· CL13'RVI TO SELECT· CL10'E0T TO CMD'
CL14'0EV. HUNG BUSY'
Cll5 1 UNEXPECTED WACK' CL16'UNKNOWN RESPONSE' Cll8'lNCORRECT RESPONSE·
CL19·ACCEPTED INV. AOOR.·
CL16'RESPONSE S/B EOT· Cl.17·WRONG STATUS REC.· CL2l'MICRO CODE NOT LOADED' CL36 1 UNEXP. INTR. AFTER CONJ. POLL ISSUED'
CL51 1 NO INTR. AFTER 2 SEC. T.O. ISSUED DURING CONT. POLL'
Cl43'1NCORRECT STATUS RECEIVED DURING CONT. POLL'
CL201 CAR NOT EQUAL TO SAit'
(
Cl23·R.ESPONSE WAS NOT STATUS' CL27 1 ERASE All UNPROTECTED ERROR'
CL42'DIAL EbCOJC CHAR. TO BE REPEATED INTO DATA'
CL24' SW 3.4. RESET HALT Fl. 1
IBM MAINTENANCE DIAGNOSTIC PROGRAM 8943 DA FUNCTIO~AL TESTS
PART NO. "234259
PAGE
ZlA
ERR LOC OBJECT CODE
AOOR STMT SOURCE STATEMENT
2AC7 C8Cl03E340C6F34B
2597
2ACF C3ClE4E3C9060540 2AFE 2598 R04MG2 DC ·
2A07 6040C50909D609E2
2598
2AOF 4004ClE84006C3C3
2598
2AE7 E40940C9C640C3C8
2598
2AEF Cl094840C9E24005
2598
2AF7 06E340E5ClD3C9C4
2598
2AFF D50640CSD9090609 2806 2599 NOERR DC
2807 C4C5E5t9C3C540E7 2BOF 2600 OEVMG DC
2BOF E7
2600
2810 40ClE5ClC9D3ClC2 2819 2601 AVAL~G DC
2618 D3C5
2601
2SlA 2602 STTAB EQU
281A 0607C509ClE3C9D6 2829 2603
DC
2622 0540C3C8C5C3D240
2603
2BZA C30605E30906D340 2839 2604
DC
2832 C3C8C5C302404040
2604
283A C4ClE3Cl40C3C8C5 2849 ~605
DC
2842 C3D2404040404040
2605
284A C5D8E4C90704C505 26 59 2606
DC
2852 E340C3CBC5C3D240
2606
2B5A C905E3CS09E5C505 2869 2607
DC
2862 E3C906054009C508
2607
286A C30604C4Cl05C440 2879 2608
DC
2872 09C501C5C3EJ4040
2608
2B7A C4C SE 5C9C3C 540C 5 2889 2609
DC
2882 D5C4404040404040
2609
2B8A E4D5C9E340E2D7C5 2899 2610
DC
2892 C3C9C6E840404040
2610
289A C~C5E5C9C3C540C2 2BA9 2611
DC
2BA2 E4E2E84040404040
2611
2612 2BAA E2E3ClE3E4E24009 2BC7 2613 STATMS DC
2882 C5C3C5C9ESC5C440
2613
2BBA C609060440C4C5ES
2613
2BC2 C9C3C540E7E7
2613
2BC8 E2E3ClE3E4E240CS 2BE 5 2614 STATHE DC
2800 E707C5CJE3C5C440
2614
2608 C609Dt0440C4C5E5
261't
2BEO C9C3C540E7E7
2614
2BE6 2C04 40
2C03 2615 STATFL OS 2C04 2616 STATBL DC
2617
2C05 C9C640C4CSESC9C3 2C34 2618 .
DC
2COO C540E2CBD6E403C4
2618
2C 15 40C 2C 540C lE 5C 1C9
2618
2Cl0 03ClC203C540ClDS
2618
2C25 C4itOC9E24005D6E3
2618
2C20 681tOC3C8CSC3021t0
2618
2C35 C306ClE740C3ClC2 2C5A 2619 RTlMGl DC
2C3D 03C5E240ClD5C461
2619
2C45 D6094009C5CbC5D9
2619
2C40 40E3D640E3C8C540
2619
2C55 C4C5ESC9C3C5
2619
2C58 E309D6E4C2D3C5E2 2C8C 2620
DC
2C63 C80606E3C905C740 2C68 C7E4C9C4C54B4040
2620 2620
2C73 E2E2E640FOFlltOD4
2620
2C7B ClE840C2C5itOE2C5
2620
2C83 E340E3D640030606
2620
2C88 0740
2620
2C80 09E30540FOF140C6 2CAA 2621 RT1MG2 DC
2C95 06D940C3D605E3C9 2C90 05E406E4E240D7D6
2621
2621
2CA5 0303C905C748
2621
2CAB C9C640C4C5E5C9C3 2COB 2622
DC
2C83 C540C9E240Cl4007
2622
ZCBB 09C905E3C5096840
2622
CL48'CAUTJON - ERRORS MAY OCCUR IF CHAR. JS NOT VALID'
CL B·NO ERROR 1 CL9 1 0EVICE xx·
CL10' AVAILABLE·
*
STATUS BIT NAMES - KEEP !N ORDER
CL16·0PERATJON CHECK '
CL16'CONTRQL CHECK
Cll 6 ·OAT A CHECK
Cll6'EQUIPHENT CHECK 1
CL16·INTERVENTJON REQ 1
CL16'COMMAHD REJECT
CL16·DEVICE END
CL16'UNIT SPECIFY
CL16'DEVICE BUSY
CL30 1 STATUS RECEIVED FROM DEVICE xx·
CL30·STATUS EXPECTED FROM DEVICE xx·
30CL1 CLl' '
PRINT FJELD BLANK FOR PRINT FJELD
Cl48'1F DEVICE SHOULD BE AVAILABLE AND IS NOT, CHECK 1
CL38·COAX CABLES AND/OR REFER TO THE DEVICE· CLSO·TROUetESHOOTING GUIDE. SSW 01 MAY BE SET TO LOOP 1
CL30 1 RTN 01 Fla CONTINUOUS POLLING.· Cl49·If DEVICE IS A PRINTER, CHECK FOR FORMS PROPERLY ·
DATE
26JUN75
EC NO. 825023
25DCT75 825032
15JAN76 825034
14MAY7#. 825035
PROG lO
PAGE
0894-3: ( DATE
i1 I
EC NO.
10
lo
I
10
I
I r,,
26JUN75 825023
250CT75 825032
15JAN76 825034
14MAY76 825035
PROG ID PAGE
zu 089..... 3
IBM MAINTENANCE DIAGNOSTIC PROGRAM 8943 DA FUNCTIONAL TESTS
PART NO.,
PAGE
(
i .·' 42342591 22
ISM MAINTENANCE OIASNOSTIC PROGRAM
8943 DA FUNCHO~AL TESTS
PART NO. 4234259
PAGE
22A
ERR LDC OBJECT CODE
ADOR STMT SOURCE STATEMENT
ERR LOC OBJECT CODE
ADDR STMT SOURCE STATEMENT
2CC3 C3C8C5C3DZ40C6D6
2622
2CCB 0940C60609D4E240
2622
2CD3 07D90607C50903£8
2622
2COB 40
2622
ZCDC C905E2C509E3C5C4 ZCFl 2623 RT1HG3 DC
2CE4 6B40D6054o.J3C9DS
2623
2CEC C540C5E3C34B
2623
2CF2 060503E840ClE5Cl 2022 2624
DC
2CFA C903ClC203C540C4
2624
2002 C5E5C9C3CSE240E6
2624
2DOA C9030340C2C540E4 2012 E2C5C44CC90540C6
262'· 2624.
201A 060303D6E6C9D5C7
2624
2022 40
2624
2023 0906E4E3C905C5E2 2040 2625 RTlMG DC
2028 4B4009C5E2C5E340
2625
2033 CSC\03E340E30640
2625
2038 C7064006D548
2625
204 l 09C 5E ZC 5E340C8C l 2061 2626 RSTHMG DC
2049 03E340E3D640C6C5
2626
2051 E3C3C840C4C5E5C9
2626
2059 C3C540E2E3ClE3E4
2626
2061 E2
2626
2062 2627 WRTRT2 EQU
2062 0227F55A
2065 2628
DC
2066 C4CSE5C9C3C540E7 2D6E 2629 DEVRT2 DC
2D6E E7
2629
2D6F 11404003
2072 2630 EWRT2 DC
2073 2631 EXPSUF EQU
2073
2E92 2632
OS
2E93 FF
2E93 2633 EXFIL DC
2E94 00
2E94 2634 RBFLG DC
2E95 0240Ff60
2E98 Z635 RBEXl DC
2E99 2636 RIPOAT EQU
2E99
ZEAA 2637 RI PHO D S
ZEAB ClC2C3C4C5C6C7C8 2ECE 263 8
DC
2EB3 C9DlD2D304050607
2638
2EB8 D809E ZE 3E4E5E6E7
2638
2EC3 E8E9FOFlf2F3F4F5
2638
ZECB F6f 7F8F9
2638
2ECF 405060614A5A7A4B 2EEA 2639 RJPDT DC
2ED7 5B6B7B4C5C6t7C4D 2EDF 5060704E5E6E7E4f
2639 2639
2EE7 5F6F 7F6A ZEEB FF
2639
ZEEB 2640
DC
2EEC 2641 NULL EQU
2EEC OOFF
2EED 2642
DC
2EEE 0000
2EEF 2643 CUROAT DC
2EFO 0000
2EF1 2644 STOAT DC
2EFZ 2645 PBUF EQU
2EF2 0000
2EF3 2646 LINADR DC
2Ef4
2EF5 2647
OS
2tf6
2Fl5 2648 EXPFL OS
2fl6
2F 19 2649
OS
ZFlA
2F39 2650 RECFL OS
2F3A 40
2F3A 2651 PBUFBL DC
2f3B
2F84 2652 PLINE OS
2F65 40
2F85 2653 PLINBL DC
2F86 Cl C4C409404040FO 2FAB 2654 PHEADA CC
2f 8E 40Fl40f240F340F4
2654
2f96 40f540F640F740F8
2654
2F9E 40F940Cl40C240C3
2654
2FA6 40C 440C 540C6
2654
2FAC 4040404040F040F 1 ZFCF 2655 PHEAD DC
2FB4 40f240f340F44C)ftj
2655
2FBC 40F640F740F840F9 2FC4 40C l40C240C340t4
2655 2655
2fCC -.oc540C6
2655
CL22'INSERTEO, ON LINE ETc.w CL49'0NLY AVAILABLE DEVICES WILL BE USED IN FOLLOWING 1
Cl30 1 ROUTINES. RESET HALT TO GO ONe· CL33 1 RESET HALT TO FETCH OEVICE STATUS·
·
XL4' 0227f55A1 Cl9 1 DEVICE XX 1
STX.ESC,ER/WRITE,WCC=START PRINT
Xl4' ll404003'
SBA, ADDR O, ETX
*288Cll
EXPECTED DATA SUFFER
Xll' FF·
FILL CHAR FOR EXPe DATA SUFFER
Xll'O'
READ BUFFER FLAGS
·XL4'0240FF60'
READ BUFFER HEADING
lSCLl
RIPPLE OAT A HEADER
Cl36 1 ABCDEFGHIJKLMNOPQRSTUVWXVZ01234567891
·xu·FF'
Xl2 '00FF I Xl2'0 8 XL2°0°
*Xl2 1 0 1
CL2 32CL1
CL4 32CL1
CLl' ' 74CL1 CLl' · CL38 1 ADDR
RIPPLE DATA TERMINATOR
NULL DATA CURRENT DAT A ADDRESS START uATA ADDRESS PRINT BUFFER KEEP FIELDS IN ORDER
l 2 3 4 5 6
PRINT LINE BUFFER BLANK FOR PRINT LINE O l 2 3 4 5 6 7 8 9 A B C D E F'
CL36'
0 l 2 3 4 5 6 7 8 9 A 8 C D E F1
I (
\ .. :
r........· 0
,.-
l ·---
\ (..·
I
l
2FOO 0000
2FD1 2656 HEADAD DC
2FD2 C6C6C6C6C6C6C6C6 2FF1 2657 FFFF DC
2FOA C6C6C6C6C6C6C6C6
2657
2FE2 C6C6C6C6C6C6C6C6
2657
2FEA C6C6C6C6C6C6C6C6
2657
2FF2 0010
2FF3 2658 SIXTEN OC
2fF4 4320
2Ff5 2659 ENOP DC
2FF6 ZF84
2FF7 2660 ELIN DC
2FF8 0000
2FF9 2661 WORK DC
ZFFA 1070
2FFB 2662 ACK
DC
2FFC 00
2FFC 2663 TCOUNT DC
ZFFO 00
2FFO 2664 RTNFLG DC
2FFE C5E707C5C3E3C5C4 3005 2665 EXP DC
3006 D9C5C3C5C9E5C5C4 3000 2666 ~ECO DC
300E C4C9C10340ClC4C4 3030 2667
DC
3016 094006C640C4C5E5
2667
301E C9C3C561E240E8D6
2667
3026 E440E6C9E2C840E3
2.667
302E 0640E3C5E2E340C9
2667
3036 05E3D640C4ClE3Cl
2667
303E 40E2Ec40F36BF44B 3058 26c8 SETKGl DC
3046 4040C4C9ClD340C6
2668
304E C640E30640C5D5C4
26.68
3056 4003C9E2E346
2668
305C 09C5E2C5E34f'C8Cl 3070 2669 SETMG2 DC
3064 03E340C6f06lC6fl
2669
306C 40C lC 6E 3C 5l> 940C 5
2669
3074 ClC3C840C505E309
2669
307C E848
2669
307E f.~D5E5Cl03C9C440 3097 2670 INVMG DC
3086 C4C5E5C9C3C54060
2670
30t>~ 40E3D9ES40ClC7Cl
2670
3096 C905
2670
3098 00
3098 2671 NnAID DC
3099 \JO
3099 2672 SSWFL Dr.
309A OZ27F540
309A 2673 WRTR3 EQU 3090 2674 RT3CW DC
309E 10E8
309F 2675
DC
30AO 5C5C5CC4C5E5C9C3 30AD 2676 OEVRT3 DC
30AB C540E7E75C5C
2676
30AE 1040
30AF 2677 RT3HO DC
3080
30EF 2678 WRTR3R OS
30FO 03
30FO 2679 EWRT3 PC
30fl 2680 UNLOCK EQ.U
30Fl 0227FlC203
30F5 2681 UNLOCE DC
30F6 2682 ORDl EQU
30F6 0227
30F7 2683
DC
30FS F5
30F8 2684
OC
30F9 5F
30F9 2685
DC
2686 *
30FA ll
30FA 2687
DC
30FB 40C6
30FC 2688
DC
30FO E3C5E2E34007C lE3 3113 2689
DC
3105 E3C5D90540E2C508
2689
3100 E4C505C:3C9D5C7
* 2689
2690
3114 11
3114 2691
DC
3115 Cl50
3116 2692
DC
3111 Fl48400709C5E2E2 3138 2693
DC
3llf 40E3C5E2E34009C5
2693
3127 D8E4C5E2E340E306
Z693
3l2F 40C3C 103034005C5
2693
3137 E7E3
2693
2694 ·
3139 11
3139 2695
oc
313A C2E2
3138 2696
DC
313C E2C508E4C505E3C9 314E 2697
DC
3144 C103 1~00 lC lE 3E3C 5
2697
XLZ 1 0 1 32CLl 1 F1
I L2 1 161
AL2 ( XH I TRC+288)
AL2CPLINEI
XL2' 0 1
XL2'1070 1
ACK 0 OR l
Xll'O'
Xll 1 0 1 CL8'EXPECTE0 1
MODEL 2 ANO PRINTER FLAGS
Cl8' RECEIVED'
Cl48'01AL AODR Of DEVICE/S YOJ WISH TO TEST INTO DATA'
CL30' SW 3,4. DIAL Ff TO ENO LIST.· CL34'RESET HALT fO/Fl AFTER EACH ENTRY.·
Cl26 1 INVALID DEVICE - TRY AGAIN'
Xll '0'
·XL1 1 0·
Xl4·0227FS40~
xx··· XL2'10E8 1
CL14'***0EVICE
NO AIO CHAR 60 FOR DISP. EB FOR PR. SSW 11 FLAG
STX,fSCt CMD, wee
SF, HI XNT~· PROTECTED
XL2· l040 1
Sf, NORM INT, UNPROTECT
O'tCLl
RIPPLE DATA GOtS HERE
XL1'03 1
ETX
*XL5'0227FlC203'
CMD SEQUENCE TO UNLOCK DEVICE STXvESC,WRITE9UNLOCKtETX
*XL2· 0227·
BEGIN ORDERS FOR TEST l STX-ESC
XLl'f5' XLl 1 5F 1
CMD-ERASE ·WRITE
wee SOUND ALARM/RESTORE KEYBOARD/
ST ART PRINT-40 CHAR LINE
XLl'll'
SBA
XL2 1 40C6'
ADORESS--6
CL23'lEST PATTERN SEQUENCING· BEGIN MESSAGE
Xll'll'
SBA
XL2·C1501
AOORESS-80
Cl34'1. PRESS TEST REQUEST TO CALL NEXT'
Xll'll'
SBA
XL2 1 CZE2 1
AOORESS~l62
CL19'SEQUENTIAL PATTERN.·
DATE 26JUN75 EC NO. 825023
250CT75 825032
15JAN76 825034
14MAY7l 825035
l
PROG ID
?AGE
c 0894-3
DATE
22
EC NO.
0
i I
. .10 0 1,~
26JUNT5 825023
250CT75 825032
15JAN76 825034
14MAY76 825035
PROG ID
PAGE
0894-3 22A
4234259 23
IBM MAINTENANCE DIAGNOSTIC PROG;i;F;~.~,-~ _ ~
8943 DA FUNCTIONAL TESTS
ERR LOC OBJECT CODE
AOOR S-
INT ON
3295 03
3296 0227 3298 F5 3299 5F
(
329A 11
3298 Cl50
3290 1060
3295 ~ -
~~
3296 2:: : 32.97 ~~ 3298 ~.'.'.! 3299 ~ .::'.
~.'.'.!:: ~ -
329A ~ · 329C ~ ~ 329E ;:-:::.-.::.
~V""' - .:::::3118
t llS
_,"@ -- _, .. - rn. -.c.-
~
OQ
.....,, 7y- ............. _ < rl
liJI- ·~ - .;..;;;z
-..-.,.,-..-...,.,.¥. ""- - -~ ::3.
-;--.;::-nr- ·~~--A~
l'il"' -~- -~ !5 ---,l'V""""' ..... - '· _...... · 411)
1u· -_..,_ -- -r
319f ClC7-C3C4C5C6C7C8 3zsq ~=:: . --7fii7.. --~-.. - . 18
32A7 C901020304D5D607 32AF 08D9E2E3E4E5E6E7
---.N-· -_.,....._ -::. ~.:!
~".'.:':'"".
, ... "" - -..tmiiir - - · al 88
3287
328A 32BC
E8E940
106C 05060540C4C9E207
~~~ ~:-
32Bll ~~ 32C6 ~ ~ ·
Iii/if-~--····
----..IV--. --...... - -· 9j ---,IV_..,,..·., -~SiS · «I
---IW"""'"'wr. -~.: 55 .e
~l
32C4 03ClE8
c
32C7 ll
~::: ·
~:"'.!'
32C7 ~ ~'
Iii · - !::_: 5E5 -
::i
---1·11V""""'"0"' -~
; ;;z.
IV· -!". 5E5 "' :::3
32CB C260
32CCj) ~· .. . - - A7'9"-' ~·-""4
32CA 1040
32Cli ~~ ~· ·
--7'1ii7"1!1' - : 55 - .. !5
(
32CC 13
32CC E".:"."' - '.".
- - 7'i.il'"'W" - ~"' : S5 · . .. ,96
32CD C30607E840ClC206 32E7 ~-·· :---"Al"V ~· ~- "' r
3205 E5CS40C90540E3C8
~."..~
--·~ - .,,, "'!E:S· .,.;;, - --,
3200 C9E24003C905C540 32E5 404040
- ~:'.'.'
~~~
---,,.,,..,r,..w...'...T. -~" ·-~ ss- - ....-. 1--,
32E 8 1040
~~~
32 E"~ 2".!' ~
" - N - -~ ~- .· ;.a,
---Nil__....._.. -~:55
~
32EA C905E2C509E340C 3 32F 2 E"'.!:? ·:-: - · --llCl'''t' "' *""'"" ~ ...
110 ,
32F2 02 32F 3 0000
~·~· ~~·
32F'4 ~~
··--····-7"'iiT""' - ....," ~·- .. .,, GI) --,..,,,,,.. ·~ ..... b:::> - ~ :J.
~~·~
l'ili "'' - ...,~f::3.-
=2
32f5 1060 32F7 ll
32F 6 =='5?. :'.'.'!' ~ :--"'ll(7'T... , ~- . 3
32F·1 ~~· ~ : --flli1.,,. - ··· E:!i-····-···""4
32FB C3FO 32FA lOU1 32FC t+f1CIB!:i86C
32F'9 E::~:-'.~"" 32FB ~~~ 3 3 0 0 c:~?'S:: -
"il-:7¥-.. -.-:l'T··11in-;rv··-,,
~·-· .,.,
t~·.~111·1~
~llJllllll~1--
5,
Tl1 111~'6·
... ·-·1
3301 4A
3301 C::::.:i."::·~.':.·
~ 1iiM~·.,;;r"li~"'"'"'1ill ,·~·' 11 t . ...:::,. -·· . . ·D.,M
3302 505C40506D~F
'...
3 308 511.
3309 7/lr
3301 ;e;::s"":':''~' 33013 E~'" 3309
··;1i'i;""d~v· ....,,.... &7W''· ·117.., ......
9 f~~,·1a1::1:'i .iu~:1~ ,,. ·:;;;;:;r·-··-·" -·llD -Jllli7 ..,,,. - :1
HOA 7F
330'1
~""""
:1·30B 4l6f6F60 7l5>1"~'~1D .:!H 3 e1".5~ !' '"" ~: ---··- '1iij;jj"'"'i"
-il!;J'"'"""'
_.),
.:13 13 6 l
~"~ .. ·
... ""ll:1""fr''""'
.. T1"'r""'
"-5."1."."","-" ·- .3.,..,
:n 11· lOHJ
3 3 1 5 ;;;::s;:· '.'."' ··~
33lt. FOf lf.?FJfl1f'.1f6f- l ~· .~ ;:··: 3 £'~152~ ·~ :'!
331£ Fel'')l;E,,<+86,0C. l
~'""''"
· ....,~.......... "' ~'i·
332s 13;n 33 33 l 333")
33''1
c51,c
H~ta
C3U607l84UCIC206
f.SC5«0C9D~... ouc.a
(.9[ l'i()[)j( '''lr'(.~,t,(J
l
33;,,:·1,
33.:. H
3~~0
::. ,,;, -~ l l,
3
('.>f p
f"" ,;'
:J 3.,, 11 n~,o
"'""
::i~.e 11
33~9 C6~·0
33·1!:· lU~ l11
:> 3 oi:,, B ~=~~:;;,:'~·~:,::·:1'~.~ .1 4· A ~;;:~;::.s:~':,j; ~'.1:11 ·"~~~
j 3;:, (
3] 4 0
f t,. 2 (. 5 D _j 4 GU J' C5 US 3 -·~ ~J ~;;,;?;,;.::,1·'.~~::11'':~~,
3355 40!:. 3C51.2Lt
;E:~."S::'~'''.'."'
C 0894-3'
OAH:
23
EC NO.
!o
··I
I
lo
I
26JU"475 825023
250CTH 825032
'Jl!:!!,l:l e=.:.::'ll'l!::'J.!:::1.Zll.a
"~~;r''iiT'""'n:w
·-~Jl~r,~1'-"'l!!WI'
· -w~·- i?,1i'ij;7'"'"r~~
"jii:"~ll'-111
:;··:11:\W'""ll\I''
~·-il'i;;;J'I~ 111~~.'17'~~
'1Ji'"7u-~··~1·1'
.:-,l"ii:7"1!' i;-" ;11~~11!'11;',',~,t'
,·~· l~llli.l''IWir~I'
1:-1'1!;.il'"''Y .. ·""iiiltl'"'""·I~'
l1\11:;:1r·""~
·!3!:~~·111!!~ .,, E'M:E!lil"Ji ill !.1 8:.'.lE!l!!ll!!il :~ 9
E D!!!R::. D
,,....
...
PART NO.
PAGE
4234259 23A
ECl:H.11 Bl·C>C -c:>C
C)Q::;
f'IQC:
occ
DC: · t::>C:
-,;c Li_~;.::::=:::==::;
~ . . . . -~ 27 I
:'l(J;.. L_..._ ~ ---1;.s== : 5 '
- L..;__ ~ ~·-- .!58 F=·
BE::~
S"TW>-<-
C~c::::>ct
WC:C:-
::x L _ i:::::JiiiililE
llK L__:.. :==-=? : - -
L ... G
...-::= aR 50 '
SE3 ,!!Ill.a Ac::>~ -
::X LI.__~ -
l CJ60 1
P~c:::a
C: LL_ ~ :~
J!!!!!.BCDEFGHI JKLMNOPQRS~
D ~ ~:R:::.DERS FOR TEST 2 --E::::S C:::: -----ER:lt.J!!!!!.SE,"RITE
s.;;..;.OL..Jlf--'D ALARM/RESTORE KEYBOARD/
S T .-_.F&tT PR INT/ 40 CHAR l INE .
- - - - · 8Cl:Jll -r:-E::::::CY- E::O,NO.?.NAL INTENSITY
LJV-\oll)Cllt..;'ftll"Z 1 BEGIN HESS AGE
DC:X: DC:::
oa:
CJa:. DOC oa:.
t:JCC:
L CJ6C' ,._,.ON DISPLAY'
P~Cl· TllE:::-:: CTT"E:: 0, NON DISPLAY FCJL-9 :......_.~ DI ,_,. NON-DISPLAY AREA
::x
_}._ .la I
SE3,..._
::x
-..::.:= ~60'
Ac::::J~ ----16.:i:.. ,C':::)
;:x
····- LCJ40'
ui-.iF=>- IR!!ILC:-.TE C: TEO,NORHAL INTENSITY
;:x
-
L- 3!,!S·
I"-1!3 -- 'e==R.__T
C::URSOR
c;
_--...al
C::O?Y ABOVE IN Hil S L.::..._ I:! ,,_E
oa:
DC:
DC: DO:.
oa: we:
o~:~.:·.
DQC
CJC::.. CJGIC
r:icc
C.)OC DC:.:
C:HJC CJmtr(.
.r:::.)C'~ 1 :. 11.~~l(,
CJCL
c .1r.,,:
r::JCL 1-··1111f
t :11~·.
L ..:c:i:..
-
l___. ~
c:: L.l.._ -
-> · - -
L_ c:::i40 · I ""-ISERT CK'
111._,,_
Li l-1 _ 1...::.. -
lL_J.._ ...l.J...__ ;;x ~l!C t-.--
~
-·- ---,
-
l 1:::::>60· 1- ·.· · ·1 C:: ~F0 1
, , _·.~.--..:;;;2
l c::::lf:S·
.--·----~3
~
·..,.,-.....,...._
l <iiiiilUt'
~~,I!
:;::~
.,£..., _ , , __ ...
-5iiii ~.
-r- r::::··'
=~·-4 e
<=: :':::>f' -a::-,;t W/11
NT/UNPROTECTED
l
c=HARACTERS
P~c:::::J9 -....- E Cl E:CO,NORMAL INTENSITY
SE!3-.-
ACJ~ ------2'--CID
P~c::l· - r - F=:::=cr···- l::=:O,HIGH INTENSITY
SF:>E:: '"ec:= I AL...
Ct--= t:::e..._.R._A,C..:... r--·ERS tCENT SIGN)
._.
E:=__S T
~=
(EXCLAMATION)
$ = ,,
I QUOTE>
Ll
L .. c:.:::ira·
P~Clw· --r- E CT ~::;:::::: O,HI GH INTENS In'
;,~.
c:::::JJ 23 11':16 !89., .--A' NLJ~'""""I ii IE:: R (C.·._
FIELD
:::x i :11
l.,.,_ . - ·
L.._. ·:::::=:, '· C '
t · .. cs·
1.....-. JJPY ABOVf
SE!!!'.!5-.. .·.
ut< ,c..::.:.>...FF'5.<.,.
IN 1 HI
l_
H·~ 0 II.!
3l'.. (lll,11111
li
.TEO,HIGH INTENSITY
f
INSTRUCllUNS TO CONSOLE
<111.1
! F'
:.. 0 11
l ...
"~"(
l
··'
~:··::"'>'i·O'
f -~ '
;,:. CS . l'1~.:i1r~
c=J ,1~1,
F1°\;::.~,
::~::":.:~ c..:..1
··C R-·-·-11 .....
UNPROTflTFO. Hl;H INJENSITY
--r ·-·
~·i.r
01·11~:,1
(I
D,IWRMt..l l1'11TENSi TV
,'''·'leC!:!:!-5.:>"P'-5"l --·-·--··l'Fit:'ltc::Jl --1- E
'·01111111 r::1a1 C1 E. O,NORMAL llHENSllY,SELECTOR
:,ril!E
S.f.
PEN AREA
l;::_ illM . M "'"'""Im' 7"""11' ", «::"-
~:.::::: ~~ C.J 3 ~iiQ,
PROG ID PAGE
0894-3 23A
·
CROSS-REFERENCE
PART NO ·- - - PAGE
1950 1963 0928 0937 0961 0985 1014 1046 1Z34
1551 1583 1619 2443 ' 1449· 1456* 1458 1475
; 1538
·* 1575
* 1076 1149 1172* * 1986.:P
0541 0710 0766 0817 1493* 1494* 1501 1515
* 1434 1436* 1881
2328
1056 1716
1069 1747
1248 1861
1485* 1488* 2131 2415
2143' 2146 0776 2218'1
2202
0253* 0353 0416 0525 0566 0569 1363 1516 1517 1518
l::1......... . ~S-~"-'
2 1
9 ·2 0279· 0310 .5 0274 0321
il 067't 1074 '8 1733 1737 ~4 0498 0526 r1 0807 0824 l6 1243 1279 ~3 1959 2158 14 1639·
~3* 2135· 2136
!I
14MAY76
825035
1503*
1302 1163
0532 0834 1310
2173
0571 1060 1337
2176
2138
0577 1114 1365
2168
0589 1120 1370
2162 2162· 2163* 2166
2201
0624 1144 1417
2196
0667 0685 1155 U64 - ... 1667 J.7204.
2196* 2204--e - -=
... PRO
--
PAG~==: =
eec:r:Jeii-.~.:D
r·~-=39
=-.-....-...~-a
:: :z_ ~"QI) 5
m
m~
-<>; E!!E3-9!!!9
~--31
= 3:~·
PART NU .. PAGE
4234259 Z6A
6869' 516777S?c;:::;J-
SB~ 11~ SF-~---.-R
C:7C8C.9 1
D7D809'
EB E9'
>F6f7F8F~,..-
SB-A 15-9 S F - ~-W7"""i'TR
EOEl·
SB A 19~- .q SF- -~ -r----rR
PROTECTED/NORMAL INTENSETY
UNPROTECTED/NORMAL INTEN· PROTECTED/NORMAL IKfENSITY
SEla:m.A.rli.
Z!--·9'9 SF-"- .-..Atl.. T
Ht-·
----
UNPROTECTED/NORMAL INT ENS ITV
SBal'Jl!'!l2,....<;;;;J · SF=-- -lilll!Lf
TR;:;:a
PROT ECTfD/NORMAL INTEN_SlTY
SE3/!!!!!A!lfll.
3~~
Er-I~· c=::!:= !=='I ES SAGE tAL T .. CODES I
SE!!S........,_
3c;::::;i~· sim::~~~~111111CT~
UNPROiECTED/NORMAL INTENSITY
!Im\! ~EiiE::~T
E!!!CURSOR
s5 ~
4 7 cc::::=>
s F - - ... 111A ---:-IT~ HIGH INT/ PROTECTED
-= s E -...._rlE~T :I ON ADDR TO FOLLOW
s Y--=:J l!R-....AG
AREA FOR SELECTION ADDR
PROG ID PAGE
0894-3 Z6A
·
· · · · · · · · · ·· · · · · · · · · · · · · · · · · · ·· · · · ·· · ·
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PART NO. PAGE
4234259 23 i
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PART NO. PAGE
4234259
23A
I (
8943 DA FUNCTIONAL TESTS
ERR LDC OBJECT CODE
ADDR STMT SOURCE STATEMENT
3l'i-C 09054B
2697 2698 ·
314F 11
314F 269~
3150 C540
3151 2700
3152 FZ4S40D7U9C5E2E2 3179 2701
315A 40C 3C lD 5C 3CSD340
2701
3162 06094007ClF25DE3
2701
31.6A 0640C4C9E2C30605
2701
3172 D5C5C3E340C307E4
2701
2702 ·
3HA 11
3l7A 2703.
3178 C602
317C 2704
3170 ClD5C44003C5ClE5 31Al 2705
3185 C54007ClE3E3C5D9
2705
3180 D540C606094006C6
2705
3195 C66003C905C540E4
2705
3190 E2ClC7C548
2705
2706 ·
3lA2 11 31A3 C706
31A2 2707
31A4 2708 2709 ·
31A5 lDEB 31A7 C1C409b0 31AB F6FOF4FO
31AF 1040
31A6 2710 31AA 2711
* 31AE 2712 Al 2713 3180 2714
2715 ·
3181 19 3182 03
3181 2716 3182 2717 EORDl 3183 2718 ORDlA
3183 G227F55F
3186 2719
31B7 1140C6
3189 2720
31BA E3C5E2E34007ClE3 3100 2721
31C2 E3C5090540E2C508 31CA E4C5D5C3C905C7
2721 2721
3101 11Cl50
31D3 2722
3104 Fl4B40E30640C3Cl 31FS 2723
31DC D3D34005C5E7E340
2723
31E4 D7ClE3~3C5090540
2723
31EC 6040ClC6E3C50940 31F4 D709C905E3C905C7
2723
2723
31FC llC2E2
31FE 2724
31FF E2E 30607E2684006 321E 2725
3207 07C50540C306E5C5
2725
320F 096840E3C8C50540
3217 C3D3D6E2C540C9E3
2725 2725
321F 11C3F2
3221 2726
3222 E6C9E3C8C90540F5 3232 2727
322A 40E2C5C306D5C4E2
2727
3232 4B
2727
3233 llC540
3235 2728
3236 F24840C9C640C3D6 325C 2729
323E E5C50940C9E24003 3246 C5C6E340E4D74004 3Z4E D609C540E3C8Cl05
2729 2729 2729
3256 40F540E2C5C348
2129
325D llC602
325F 2730
3260 07C70440E6C90303 3284 2731
3268 40E3C509D4C905Cl
3270 E3-C 540C 105C44003 3278 C5ClE5C54007ClE3
2731
2731 2731
3280 E3C509D548
2731
3285 llC 706 3288 lOEB 328A ClC40960 328E F6F04040 3292 1040
3294 19
3287 2732 3289 2733
328D 2734 3291 2735 AlA 3293 2736
3294 2737
DC DC DC
cc
DC DC
DC DC DC DC
oc
DC DC DC EQU DC DC DC
DC
oc
DC DC
DC DC
DC DC
DC DC
DC DC DC DC DC DC
Xll 1 111
SBA
XL2·C540 9
ADDRESS~320
CL40 1 2. PRESS CANCEL<OR PA2lTO DISCONNECT CPU'
Xll'll 1
SBA
XL2 1 C602'
ADDRESS~402
CL37'AND LEAVE PATTERN FOR OFF-LINE USAGE.·
Xll' 119 XL2 1 C706 1
XL2'10E8' CL4 1 ADR-· CL41 60401
XL2 1 1040'
SBA ADDRESS--'t70
SF-HIGH INTENSITY/PROTECTED ADDRESS OF DVC WILL FOLLOW DEVICE ADDR GETS FILLED IN
SF-NORMAL INT/UNPROTECTED
XL 1 1 191
·XL1'03'
XL4 1 0227F55F.
ETX
STX .esc. ER/ WR .wee
XL3'1140C6 1
SBA AOR 6
CL23 1 TEST PATTERN SEQUENClNG'
ST ART PRINT ON
XL3' llC150 1
S!'I~ AO~ ~O
CL401 1. TO CALL NEXT PATTERN - AFTER PRINTING'
XL3 1 11C2E2'
SAB ADR 162
CL32'STOPS, OPEN COVER, THEN CLOSE IT'
XL3'11C3f2'
SBA ADR 242
CL17'WITHIN 5 SECONDS.·
XL 31 11C540'
SBA ADR 320
CL39'2. IF COVER IS LEFT UP ~ORE THAN 5 sec .. ·
XL3 1 llC.602 1 CL37 1 PGM WILL TERMINATE AND LEAVE PATTERN.'
XL3 1 11C706'
Xl2' 1DE8 ~ CL4'AOR-· CL4'60 XL2 1 10401
XL1'19 1
SBA ADDR - - 470 SF HI INT/PROT
DEVICE ADDRESS GETS FILLED IN SF - NORM I NT ./UNPROT.
8943 DA FUNCTIONAL TESTS
ERR LOC OBJECT CODE
AODR STMT SOURCE STATEMENT
(
If"·
I ---
1
i c
I
c
.(
I \...
c
! C.
io
!
c
·I c
3295 03
3296 0227 3298 F5 3299 5F
3295 2738 EORDlA DC
2739
3296 2740 0002 EQU
3297 2741
DC
3298 2742
DC
3299 2743
DC
27~4 ·
11
329A 2745
DC
C150
329C 2746
DC
1060
329E 2747
DC
329f ClC~C3C4C5C6C7C8 3289 2748
DC
32A7 C901020304050607
2748
32AF 0809E2E3E4E5E6E7
2748
3287 E8E940
2748
2749 $
328A l06C
3288 2750
32BC 05060540C4C9E207 32C6 2751
DC
oc
32C4 03ClES
2751
2752 ·
32C7 11 32C8 CZ60
32C7 2753
DC
32C9 2754
oc
32CA 1040
32CB 2755
DC
32Ct 13
32CC 2756
DC
32CD C30607E840C1C206 32E7 2757
DC
3205 E5C540C90540E3C8
2757
3200 C9E240D3C905C540
2757
32E5 404040
2757 2758 ·
32E8 1040
32E9 2759
DC
32EA C9D5E2C509E340C3 32F2 2760
DC
32F2 02 32F3 0000
2760
32F4 2761
DC
2762 ·
32F5 1060
32F6 2763
DC
32f7 11
32F7 2764
DC
32FB C3FO 32FA 10E8
32F9 2765
DC
32FB 2766
oc
32FC 4F7C7B5B6C
3300 2767
DC
3301 4A
330 l 2768
DC
3302 505C405060~E
3307 2769
DC
3308 5A 3309 7A
3308 2770
DC
3309 2771
oc
330A 7F
330A 2772
DC
3308 4C6E6F607E5F5E70 3313 2773 .
DC
3313 61
2773 2774
*
3314 lDFS
3315 2775
DC
3316 FOF1F2F3F4FSF6F7 3323 2776
DC
331E F8F96B4860Cl
* 2776
2777
3324 11
3324 271'8
DC
3325 C540
3326 2779
DC
3321 lOC8
3328 2700
DC
3329 C30607E840ClC206 3340 2781
DC
3331 E5C540C90540E3C8
H8J.
3339 C9E240D3C905C540
2781
334 l lODf:,
3:H2 2782
DC
3:H3 U 3344 C5E8
3346 HJC.0
2783 $
3343 2784
oc
~345 2763
DC
3347 2786
DC
2787 "'
3348 ll
3348 2788
DC
3349 C650
334A 2789
DC
334B 1DE4
* 334C 2790 279!
DC
3340 6fE2CSD34007C505 3359 2792
DC
3355 40E 3C5f2E3
2792
Xll 1 03 1
ETX
·
XL2'0227 1
Xl l 'f 5" XL1 1 5F'
BEGIN ORDERS FOR TEST 2
STX-ESC CMD--ERASE,WRITE
wee SOUND ALARM/RESTORE KEYBOARD/
ST ART PR INT/ 40 CHAR LINE .
XLl'll' XL2'Cl50 1 XL2 1 1060 1
SBA AOR--80 PROTECTEO,MOAMAL INTENSITY
CL27'ABCDEFGHIJKLMNOPQRSTUVWXYZ ' BEGIN MESSAGE
XL2'1D6C· CLll'NON DISPLAY'
PROTECTEO,NON DISPLAY FOUND IN NON-DISPLAY AREA
XL1 1 l l '
SBA
XL2·C260 1
AOR~l60
XL2 1 1040'
UNPROTECTEO,NORMAL INTENSITY
Xll 113 1
INSERT CURSOR .
CL27 1 COPY ASOVE IN T~IS LINE
Xl2'1D40'
CL9' INSERT CK'
XL2'0000 1
XL2' 1060' Xi.. l '11 1 XL2'C3F0 1 Xl2 1 1DE8' CL5·f;U1: 1
Xll 1 4A 1 Cl6' £.·( l_+·
XL l' 5A 1 CL1 1 : 1 XL l '7F 1 CL9'<>?-:-.;t '/'
NORMAL INT/UNPROTECTED
2 NULL CHARACTERS
PROTEClED,NORMAL INTENSITY
SBA
ADR-240
PROTECTED,HIGH INTENSITY
SPECIAL
CHARACTERS (CENT SIGN>
T*EST
· · ·
(EXCLAMATION)
(QUOTEJ
XL2 1 10F8 1
PROTECTED,HIGH INTENSITY
CL14 1 0123456789,.~A' NUMERIC FIELD
XLl'll'
SBA
XL2'C540'
AOR--320
XL.2·1DC8'
UNPROTECTEO,HIGH INTENSITY
CLZ4'COPY ABOVE IN THIS LINE ' INSTRUCTIONS TO CONSOLE
Xl..2 1 1008 1
NUMERIC,UNPROTECTED. HIGH INTENSITY
Xll'!l'
Xl2'C5E8 1
.)(L2' 1060'
SSi\.
ADR-360 0 ROTECTED.NORMAL INTENSITY
XLi·ll' XL2'C650'
XL2'10E4 1
SSk ADR.-400
PROTECTED,NORMAL INTENSlTY,SELECTOR
Cli3 1 ?SEL PEN TEST· DEFINE SEL PEN AREA
DATE 26JUN75 EC NO. 825023
250CT75 825032
15JAN76 825034
l4MAY76 825035
PROG IO PAGE
i C 0894-3: DATE
i23
EC NO.
0
26JUN75 825023
.250CT75 825032
15JAN76 825034
l4MAY76
825035
PROG IO PAGE
0894-3 23A
I'I ··
I.......
·
·
IBM MAINTENANCE DIAGNOSTIC PROGRAM
8943 DA FUNCTIONAL TESTS
ERR LOC OBJECT CODE
ADDR STMT SOURCE STATEMENT
335A 000000
335C 2793
DC
3350 1DE8
335E 2794
DC
335F 6EE2C5034007C505 3368 2795
DC
3367 40E3C5E2E3
2795
2796 ·
336C 11
336C 2797
DC
3360 C7D6
336E 2798
DC
2799 ·
336f lDES
3370 2800
DC
3371 ClC4D960
3374 2801
DC
3375 00000000
3378 2802 AZ
DC
3379 10E8
337A 2803.
DC
3378 03
3378 2804 EORDZ DC
337C 2805 ORD3 EQU
337C 0227
3370 2806
DC
337E F5
337E 2807
DC
337F 5F
337F 2808
DC
2809 ·
3380 11
3380 2810
DC
3381 4040
3382 2811
DC
3383 3C
3383 2812
DC
3384 40E8
3385 2813
DC
3386 CS
3387 ca
3386 2814
DC
3387 2815
cc
2816 ·
3388 11
3388 2817
DC
3389 Cl4F
338A 2818
DC
3388 C8C8 3380 11
338C 2819
DC
2820 *
3380 2821
DC
338E ClF7
338F 2822
DC
3390 C8C8
3391 2823
DC
2824 ·
3392 11
3392 2825
DC
3393 C25F
3394 2826
DC
3395 C8C8
3396 2827
DC
2828 ·
3397 11
3397 2829
DC
3398 '3C7
3399 2830
DC
339A C8C8
3398 2831
DC
2832 ·
339C 11
339C 2833
DC
3390 C36F
339E 2834
DC
339f CSC 8 33Al 11
33AO 2835
OC
2836 *
33Al 2837
DC
33A2 C407
33A.:3 2838
DC
33A4 C8C8 33A6 11
33A5
2839 2840
*
DC
33A6 2841
DC
33A7 C47F
33A8 2842
DC
33A9 C8C8
33AA 2843
DC
2844 ..
33AB 11
33AS 2845
OC
33AC C5f7
33AD 2846
DC
33AE C8C8 3360 11
33AF
2847 2848
*
3380 2849
DC
oc
3381 L64F
33B3 caca
3382 2850
DC
3364 2851
oc
3385 11
2852 ·
3385 2853
oc
3356 C6f7
33B8 ca
3387 285St
OC
3388 2855
DC
2856 ·
3389 11
3389 2857
DC
33BA C358
3388 2858
OC
33BC fOFO
3380 2859
DC
XL3'000000 1 Xl2'10E8' CL13'>SEL PEN TEST'
XL1 1 11 1
Xl2 1 C706'
Xl2 1 1DE8 1 CL4 1 AOR-· XL4 1 00000000' XL2'1DE8'
·XL 1 1 03'
XL2'0227 1 XLl'F5 1 XL1 1 5F 1
xu· 11·
XL2·4040 1 Xll'3C 1 XL2'40E8 1 Cll'E' Cll 1 H'
XLl" 11' XL2'Cl4f0 Cl2' HW
XL l ' 11 & XL2 ·Cl F1f Cl2°HH'
XLl'll' Xl.2 1 C25F 9 tl2 9 HH'
Xl1 1 1P
Xl2'CJC7 1 CL2 9 HH'
Xll9 l! 8 XL2'C36F 5 CL2 1 HH!
Xll 1 U@ XL2'C407 6
tt2 1 HH~
XLl' 11' XL2· C47F' Cl2'HH;
XU' 11 1 Xl2 11 C5E7' Cl2'HH 1
XL 11 lJ.9 Xl2'C64F' CL2 1 HH1
Xll'lP XL2 1 C6F7 1 CL1 1 H1
Xll 1 11· Xl2 1 C358' Cl2 1 001
DATE 26JUN75 EC NO. 825023
250CT75 825032
15JAN76
825034
14MAY76 825035
.·~:; · · · · ·· · ·
PART NO. PAGE
4234259
24 i (
IBM MAINTENANCE DIAGNOSTIC PROGRAM 8943 DA FUNCTIONAL TESTS
PART NO. 4234259
PAGE
24A
ERR LOC OBJECT CODE
ACOR STHT SOURCE STATEMENT
3 NULL CHARACTERS PROTECTED.HI INTEN,SELECTOR PEN DEFINE SEL PEN FIELD
SBA AOR--470 SF-ATTR HIGH INT/ PROTECTED NULL~ FOR SEL ACOR Sf-ATTR HIGH INT/PROTECTED
ETX STX-ESC CHD-ERASE,WRITE
HALT
SBA ADR-0 RA - REPEAT TO ADDR ADDR CHAR TO BE REPEATED
SBA ADR-79
SBA ADR--119
SBA ADR-159
SBA AOR-199
SBA
ADR-239
SBA ADR--279
SSA AOR--319
SBA AOR-359
SBA AOR-399
SBA AOR--439
SBA ADR-219
I
1C :C
* * r.
t
\..
!i (·-·-
(.' (
Q
0
2860 ·
338E 11
33BE 2861
33BF C4C3
33CO 2862
33Cl FOFO
33C2 2863
2864 ·
33C 3 11
33C3 2865
33C4 C460
33C5 2866
33C6 E3C5E2E340D7ClE3 330C 2867
33CE E3C5090540C60609
2867
3306 40F3F2F7F760F l
2867
2868 ·
3~00 11
3300 2869
33DE C54F
330F 2870
33EO Cl03C9C70504C505 33E8 2871
33EB E3
2871
2872 ·
33E9 11
33E9 2873
33EA C5FO
33EB 2874
33EC 5C
33 EC 2875
2876 ·
33ED 11>40
33EE 2877
33EF 13
33EF 2878
33FO E405070q06E3C5C3 33FF 2879
33f8 E3C5C440C4ClE3Cl
2879 2880 ·
3400 11
3400 2881
3401 C6C6
3402 2882
3403 1060
3404 2883
3405 5C 3406 U
* 3405 2884 2885 3406 2886
3407 C6FB
3408 2887
3409 3C
3409 2888
340A C75F
3408 2889
340C C5
340C 2890
3400 C5
340D 2891
2892 ·
340E 11
340E 2893
340F C660
3410 2894
3411 10E8
3412 2895
3413 C1C4D960 3417 00000000
3416 2896 341A 2897 A3
3418 1060
341C 2896
3410 03
3410 2899 EOR03 341E 2900 OR04
341E 0227
341F 2901
3420 F5
3420 2902
3421 7F
3421 2903
2904 ~
3422 3CC150
3424 2905
3425 C5
3425 2906
3426 CS 3427 11
3426 2901
2908 *
3427 2909
3428 C25F
3429 2910
342A C6C8
3428 2911 2912 ·
342C 11
342C 2913
3420 C36f
342E 2914
342F C8C8
3430 2915 2916 ·
3431 11
3431 2917
3432 C47F 3~34 C8C8
3433 2918 3435 2919
2920 ·
3436 11
3436 2921
3437 C64F
3438 2922
3439 CBC8
343A 2923
DC DC DC
DC OC DC
DC DC DC
DC DC DC
DC DC DC
DC DC DC
DC
DC DC DC DC DC DC
DC
DC
DC DC DC DC DC· EQU DC
DC uC
DC
DC DC
DC DC DC
DC DC DC
DC DC DC
DC DC DC
XL l' 11' XL2 1 C4C3'
CL2' oo·
SBA AOR-259
XLl'll'
SBA
XL2 1 C460 1
AOR~288
CL23'TEST PATTERN FOR 3277-1 1
Xl l 11 l '
. Xl2' C54f8 CL9 1 ALIGNMENT"
SBA ADR--335
Xll' 11' XL2'C5FO'
tll'·'
SBA ADR-36S
Xl2'1040'
SF-ATTR UPRrNitNSPr369
XL1·13'
INSERT CURSOR
CL16 1 UNPROTECTEO DATA'
XL 1 1 ll1 XL2 1 C6C6' XL2' 1060'
Cll '*'
Xll' ll' XL2'C6F8' Xll 1 3C 1 XL2'C75f' Cll'E' Cll 1 E'
XL 1 1 11'
XL2'C660' Xl2'l0E8' CL4 1 AOR- 1 Xl4·00000000 1 XL2' 10608
·XL l '03'
XL2'0227 1 XL l 1F5 1 Xll '7F'
XL3' 3CC 150' CLl'E' Cll 'H'
Xll 1 U' Xl2 1 C25f' CL2eHH'
Xll'll' XL2°C36fU Cl2"HH'
Xll' 11 1 XL2'C47F' Cl2 e HH 1
XL P 11 1 XL2 ·C64f9
Cl2 1 HH'
SBA AOR-390 SF-ATTR PRO,NI.NSP
SBA
ADR-440 REPEAT
ADR-.. 79 CHAR TO BE REPEATED E FOR LAST 9LACE IN BUFFER
SBA AOR-429 SF-ATTR HIGH INT/PROTECTED ADDRESS TO FOLLOW STORAGE AREA FOR SELECTION ADOR SF-ATTR NORMAL INT/PROTECTED
ETX
ORDERS FOR TEST 4 BEGIN HERE STX-ESC CHO-ERASE,WRITE WCC-SOUND ALARM/RESTORE KEYBOARD?
START PRINT/BO CHARS PER LINE REPEAT TO AOR 80 E CHARACTERS CHAR Sl=H
SBA ·AOR-159
SBA ADR-239
SBA ADR-319
SBA ADR--399
PROG ID PAtiE
I
0 I
0894-3:
DATE
24 i EC NO.
I
10
26JUN75
825023
250CT75 825032
15JAN76 825034
14MAY76 825035
PROG ID PAGE
0894-3 24A I
1 If)
·
·
·
·
lo
I
el·
··
·
·
·
·
·
·
·
·
·
·
··
· ·
·- .·· · · · · · · · · · · · · · · ~ · I
· · · · · · · · · · · · ·
l
IBM MAINTENANCE DIAGNOSTIC PROGRAN 8943 DA FUNCTIONAL TESTS
PART NO. PAGE
4234259
25:: (
ISM MAINTENANCE DIAGNOSTIC PROGRAM 8943 DA FUNCTIONAL TESTS
PART 110. 4234259
PAGE
25A
ERR LOC OBJECT CODE
AOOR STMT SOURCE STATEMENT
ERR Lot OBJECT CODE
ADOR STMT SOURCE STATEMENT
2924.
3438 11
3438 :?925
343C C75F
3430 2926
343E C8C8
343F 2927
2928.
3440 11
3"0 2929
3441 C7E8
3442 2930
3443 E3C5E2E34007CU3 3459 2931
3448 E3C5090540C60609
2931
3453 40F3F2f7F760F2
2931
345-A 11
2932 · 345A 293i
3458 C86F
3450 cace
345C 2934 345E 2935
2936 ·
345F 1.i
345F 2937
3460 .C87E
3461 2938
3462:' C103C9C 70504C505 346A 2939
346A El
2939
2940 ·
3468 11
3468 2941
346C t9lf
346D 2942
346E C8CB
31t6F 2943
29ltlt ·
3470 11
3470 2945
3471 lt84F
3473 ceca
3472 2946 3474 2947
2948.
3475 11
3475 2949
3476 4C5F
3't71 2950
3478 ceca
3479 2951
347A 11
2952 · 347A 2953
3478 leCE7
347C 295-<t
347D SC
3470 2955
347E lD"tO
2956 · 347F 2957
3480 13
3480 2958
3481 E4D5070906f3CSC3 3494 2959
3489 E3C 5C440Cl09C5Cl 3491 40"t040Lt0
2959 2959
3495 1060
3't96 2960
3497 5C
3497 Z96l
2962 ·
3498 11
3498 2963
3499 4D6F
349A 2964
3498 Cate
34« 2965
2966 ·
3490 11 31t9E 4E07
3490 2967
349F 2968
34AO FOFO
31tAl 2969
2970 ·
DC
Xll 1 11 1
DC XL2·C75f'
DC CL2'HH'
SBA AOR--'t79
DC Xll'll'
SBA
DC XL2'C7E8'
AOR-4S8
DC Cl23'TEST PATTERN FOR 327T-2t
DC Xll' 119
IX XL2'C86f· DC CL2'HH1
DoCc
Xll·U· XL2'C87E'
DC CL91 ALIGNMENT'
SBA
AOR-559
SBA
AOR-5l"t.
DC xu·u·
DC Xl2'C97F'
DC
CL2 1 HH'
SBA ADR--639
DC
Y.ll'll'
DC >tl2 1 484F'
DC
CL2 1 HH 1
SBA ADR-719
LC
Xll'll'
oc
Xl2 14C5F 1
lit
CL2 1 HH1
oc
XL1 1 11 1
DC
Xl2 14CE7'
Dt CLl'·'
SBA ADR-799
SBA .ADR--807
DC XL2 1 1040·
UNPROTECTED, NORMAL INTENSITY
DC
XlJ 1 13'
INSERT CURSOR
DC Ct 20 'UlfPaOTEtTEO AREA
DC
oc
XL2'1060' CLI ···
DC Xll'll' DC XL 2 I 40,;F' DC Cl2'HH1
DC
XL1 1 l l 1
DC
XL2'4EC7 1
DC CL2 100'
PROTECTED,NOR~AL INTENSITY
SBA
ADR-819
SBA
AOR--919
I
I(:
I
II c.·,
lI e.·
\
c
c
3486 11 3487 026F
31t89 ceca
3488 11 348C 037F 348E C8C8
34CO 11
34Cl D54F 34C3 C8C8
34C5 11 34C6 065F
34t8 ceca
34CA 11 34t8 076F
34CD ceca
34tF 11 3400 087F 3402 C8C8
34W>4 11 3405 5MF
3401 ceca
3409 11
34DA 5B5F
340t ceca
34DE 11 340F 5C6F 34El CS
34E 4! 3C 4040 34E5 CS
34E6 11
34E7 5CE5
31tE9 IDES 34EB C1Clt0960 34EF 00000000
34F3 1060
34F5 03
34F6 0227
34F8 f 5
31t86 2987
DC
3488 2988
DC
348A 2989
DC
2990 ·
348b 2991
oc
34BO 2992
DC
31t8F 2993
DC
2994 ·
.34CO 2995
DC
34C l 2996 EFOR3 EQU
34C2 2997
DC
34C4 2998
DC
2999 ·
Ytt5 3000
Dt
34C7 3001
DC
34C9 3002
DC
3003 ·
34CA 3004
DC
34CC 3005
DC
3'tCE 3006
DC
300"1 ·
34CF 3008
DC
3401 3009
DC
3403 3010
DC
3011 ·
3404 3012
DC
3406 3013
DC
34D8 3014
DC
3015 ·
3lt09 3016
Dt
3408 3017
. DC
3400 3018
DC
3019 ·
34DE 3'l20
DC
34EO 3021
oc
34El 3022
DC
3023 ·
34E4 3024
DC
341:5 3025
DC
3026 ·
34E6 3021
DC
341:8 3028
DC
34EA 3029
DC
34H 3030 ·
oc
31tf 2 3031 A4
oc
34f4 3032
DC
3033 ·
34F5 3034 EOR04 or.
31tF 6 3035 OROS EQU
34F"! 3036
Ot
34FB 3037
DC
Xll' 11 1 XL2'026F 1 CL2 1 HH'
Xll'll' XL2 1 037f' CL2 1HH1
·Xll 1 11 1
XL2'054f' CL2'HH 1
XLl' 11'
XL2'065F 1
Cl2'HH'
XLl'll' XL2'076f9 CL2 1 HH 1
XLl 111 1 XL2'D87Fi CL2'HH'
Xll'll' XL2'5A4F 1 CL2 1 HH 1
XL1 1 11 1 XL2'585F 1 CL2 1 HH1
XLl'll' Xl2 1 5C6F1 CL1 1H1
XL3'3Clt040' CLl' E·
XLl 111 1 XL2 1 5CE5 1 XL2 1 1DE8 1 CL4 1 ADR- 1 XL4'00000000·
XL2 1 106~
·XL1'03 1
XL2 1 0227 1 Xll 1 F5 1
SBA ADR-1199
SBA AOR-1279
SBA ADR-1359
SBA
AOR-1439
SBA ADR--1519
SBA
ADR-1599
SBA ADR-1679
SBA
ADR-1759
SBA
ADR-1839
LAST LINE · 80 CHARS OF E'S
SBA ADR-1829
Sf-ATTR HIGH INT/PROTECTED ADDR TO FOLLOW STORAGE AREA FOR SEL ADIJR SF-ATTR NORMAL INT/PROTECTED ETX STX-ESC CMD-ERASE,WRITE
34A2 11 34A3 4E7F
34A5 ca cs
34A7 11 34A8 1tFE7 31tAA FOFO
34AC 11 31tAO 504F
34AF C8C8
3481 11 3482 015F 3481t ceca
34A2 2971 34Alt 2972 34A6 2973
2974 "' 34A7 2975 34A9 2976 34AB 2977
2978. 34/&C 2979 31tAE 2980 3480 29Sl
2982 ·
3481 2983 3483 2984
3"85 2985
oc
Xll 111 1
DC
XL2 14E7F 1
DC
CL2 1 HH1
DC xu· 11 ·
DC XL2'4FE7 1
DC
Cl21 00 1
DC
XL1 1 11 1
DC
Xl2 1504F'
DC Cl2 1 HH'
DC Xll'll'
DC
Xl2 1 Dl5F1
DC CL21 HH'
SBA AOR-959
SBA AOR-999
SBA ADR-1039
SBA ADR-1119
\_ . .,"·
I
I
i I I I II ·~ t
31tf9 6F
34F9 3038
34FA 1060
3039 · 34F8 3040
34FC C606091tOC303E4E2 3510 3041
350.ft E3C509C5C41t00"7C9
3041
350C C905E3C5D9E21tOC4
3041
3514 ClE3Cl40E2C806E4
30'tl
35lt D3C4
3041
391E ltOE2E3Cl09E34005 353A 3042
3526 C5E7E34003C905c.5
3042
352E 40C8C509C5406060
3042
3536 606060606E
3042
3538 C3C8C5C302C905c;7 3560 3043
3543 40070906C709Cl04
3043
3548 40E3ClC261C509Cl
3043
DC
Xll 1 6F 1
WCC-ST ART PRINT /64 CHARS PER LINE/
DC XL2'1060 1
SOUND ALARM/RESTORE KEYBOARD SF/NORMAL INT/PROTECTED
DC
CL34 1 FOR CLUSTERED PRINTERS DATA SHOULD'
------>· OC CL29· START NEXT LINE HERE
DC CL38'CHECKING PROGRAM TAB/ERASE UNPROT. TO 1
DATE
2bJUN75
EC NO. 825023
250CT75 825032
2986 ·
l5.tAN76 l4MAY"'a 825034 . 82SOJ5
,
\
3553 E2C540EltD5070906
II c}i 3558 E34840E30640
3043 3043
PROG ID PAGE
I 089tt-3'
(""·
·.... .DATE
26JUN75
25
o\c NO. 625023
250CT75 82S032
15JAN76 82503't
14MAY76 825035
l Cj~f
PROG ID PAGE
0891t-3 25A
·-
:oa
·I
io
·
·
·
IBH MAINTENANCE DIAGNOSTIC PROGRA.~ 89-43 DA FUNCTIONAL TESTS
PARr t.10,. PAGE
. it234259 26:
l
IBM ~AlNTENANCE DIAGNOSTIC PROGRAM
8943 DA fUNCTIONAL rests
PART NU., PACE
42)4259 26A
ERR LOC OBJECT CODE
ADDR sn.:r SOURCE STATEMENT
ERR lOC OBJECT CODE
AODR STMT SOURCE STATEKENT
3561 ClC4C4096lC4f407 357A 3044
3569 61C6C9C503C44004 3571 Cl0902~0D609C4C5
3044 3044
DC CLZ6iADDR/DUP/FIELD MARK ORDERS 6
3579 09f.Z
3575 11C3FO 357E 13 357F 1Df8 3581 3CC5FOH
3044
* 3045
3570 3046 357E 3047 3580 3048 3584 3049
QJC
Ml3 1 HC::3f0.
DC
XL 1.813'
oc
Xl~ 1 lOF8 9
DC
XL4 '3CC5FOfl ·
SB!t, 240
INSERT CURSOR AUTO SKI PF PRO'TECTEO,HI GH ! NT ENS ITV
RA 320 ( l &$)
3585 lOC8 3587 3CC650 358A Cl
3588 1060 3580 3CC 75F 3590 C2
1050 $ 3586 3051 358~ 305i
* 358A 3053 3054
358C 3055 358F 3056 3590 3057
DC
Xl2 1 HlC8·
DC
Xl 3' 3CC650 ·
DC
CU a A'
DC
XL2'1060 1
oc
Xl:! 1 3CC75F'
oc Cll'S'
UNPROTECTEO,HIGH iNlENSIH RA 400 IA"SJ REPEATED CHARACTER
PROTECTEO~NORMAL. INTENSITY RA 479 ( B 1 S J REPEATED CHARACTER
3591 ll 3592 C4D7 3594 Fl 3595 05
3596 llC5E8 3599 12C650
3058 $ 3591 3059
3593 3060 3594 3061 3595 3062
3063 *
3598 3064
3596 3065
3066 ·
oc
Xll'll'
DC
XL2 1 C40'f'
oc Cl l' le
DC
Xlll05~
oc
Xl.3 1 llC5f8·
oc XL3 1 l2C650'
SSA (l IS TO PRECEDE PROGRAM TABt I
279
t '
PROGRAM U.S
SBA 360 EUA 400
359C 11 3590 C64A 359F 1ClE15l9
35A3 ll 35A4 C3E6 35A6 1DE8 35A8 ClC·r.0960 351.c 00000000
359C 3067 359E 3068 35A2 3069
* 3070
35A3 3071 35A5 3072 HA7 3073 35AB 3074 3l5AF 3075 A5
DC
XL l ' lP
oc
XL2°C64A 1
DC
XL4~ 1CH!519~
DC.
XL 1· 11 ·
DC
XL2 'C3E6°
DC
XL2' lOE8'
oc
Cl4'.t<DR-·
DC
;t; L4 s 00000000 ~
SBA 394 DUP/FlE!.D MARK/NEW LINE/EOM
SB~
230 SF-AHR HIGH rn1 .IPROHC"r ED SELECTION ADDRESS TD FOLLOW
STORAGE AREA FOR SELECTION ADOR
35BO lD60 3582 03
3076 "
3561 3071
DC
3582 3078 EOiW5 DC
Xl2;l060~
Xtl'03t
SF·-t!,nR NDRHAL INTIPROlECTE(~ f;TX
3583 3079 CR06 EQU ~
35B3 0227
3584 3080
oc.
XL2·02210
STX-ESC
3585 F5
* 3585 3081 3082
oc XU. 'F5'
CMD- ER ASE e WR I TE
lJNI VERSAI. 3270 TEST PATTERN (RFT MESSAGE>
3586 4F
3566 3083
* 3084
oc
wee SOUND ALARM/RESTORE KEYBOARD/ I
START PRINT/132 CHARS PER l[NE I
3587 8182838485668786 35C4 3085
35BF 898A8C80BE8F
3085
35C3 9091929394959697 3502 3086
35CD 98999A909E9f 3503 11
* 3086
3087 3503 3088
3504 40E7
3505 3089
3506 1060
3507 3090
* 3091
DC
XUA ~ 61828 384858687Bl:898ABC8DSEfJf'
CC
Xll4'909192939495969798999A909E9F'
Ii' cv
DC
Xl l & 11 e
DC
XL2 t40E7G
DC
l\L2'106QV
~8A
le
39
I
.urn ;c SF·
PROTECTED/NORMAL INTENSITY I
3508 A2A3A4A5A6A7A8A9 35E4 3092
35EO AUCADAEAF
3092
DC Xll3·AZA3A4A5A6A7A8A9AAACAOAEAF'
l
35E5 BABBBCBDBEBf808B 35Fl 3093
35EO 989CAOAlAS
3093
DC
XL.13 'BABBBCBOBE.BF 808B969CAOAlAB'
35F2 BOB lBZe 384758687 35FB 3094
35H SB79
3094
DC
Xl10' 601.H B283B't75 B667BSN ~
35FC H 35FO C 14F 35FF 1040
3095 · 35FC 3096 35FE 3097 360C 3098
3099 ·
oc
Xll'll&
DC
Xl2'Cl4F·
oc
XU! 1 l040G
SSA 19
c
SF-AHR UNPROTECTED/NORMAL INTEN.
3601 4142434445464748 3609 3100
3609 49
:noo
DC
XL9 1 4l4243444546474B49'
360A 5152535455565158 3612 3101
3612 ~9
3101
DC
Xl9'515253545556575859 1
I
Iv
I
3613 6263646566676869 361A 310l
DC
361B ·ron12n747S7677 3624 3103
DC
3623 7879
3103
* 3104
3625 3105 MIOOR6 EQU
3625 u.
3626 ClF7
0072 3106 ll6
EQU
3107 *
3625 3108
oc
3627 3109
DC
3628 1060
3629 3110
DC
3111 <IC
36ZA C1C2C3C4CSC6t7CS 3632 3112
DC
3632 C9
3112
3633 0102030405060708 3638 3113
oc
3638 09
3113
363C E2E3E4E5E6E7E8E9 3643 3114
DC
3644 FOF1F2F3f4F5F6F7 3640 3115
oc
364C F8F9
1115
3116 *
364E ll
364E 3117
Ot
364F C25F
3650 3118
DC
3651 1040
3o52 3119
* 3120
oc
3653 4050606lCOOOEOEl 365A 3121
* 3122
3658 11
3CSB 3123
oc oc
365C C3C7 365E lDbO
3650 3124
DC
365F 3125
oc
3126 $
3660 4il'+B4C4D4E4·F
3665 31.27
DC
3666 5A585C~DSE5F
3668 3128
DC
366C 6A6B6C606E6f
366C 3129 MOR6 3671 3130
EQIJ
DC
3672 7A787C707E7F
3677 3131
DC
36 78 11 3679 C36F
313Z ';
3676 3133
oc
367A 3134
DC
367B 1040
367C 3135
ot
3670 CAC6CCCOCECF
* 3136
3682 3137
DC
3683 DADBDCDDDEDf
3688 3138
oc
3689 EAEBECEDEEEF
368E 3139
DC
368F FAFBFCFOFE
3693 3140
DC
* 3141
3694 11
3694 3142
DC
3695 C407
3696 3111-3
DC
3697 1060
3698 3144
DC
369~ 056lD340C3t8C5C3 36Al 31'~5
oc.
36A l D2
3145
3t:>A2 l5B515B515
36A6 3146
DC
3147 :II<
36A7 11
36A7 3148
DC
36A3 C540
16A9 3149
DC
36AA C50604~0C3CSC5C3 3682 3150
oc
36B2 02
3150
36B3 B919
36&4 3151
3685 H
31S2 11<
36B5 3153
DC
3666 C64F 3688 1040
3b8A 13
3cSS l1
36Bt C106
3bBE lDE8 36CO ClC40960 360t 00000000
3687 3154
DC
36B9 :nss
DC
* 3156
.36Bt\. 3157
oc
3688 3158
DC
3680 3159
DC
36BF 3160
DC
3bC3 3161
DC
36C7 3162 A6
3163 *
DC
Xt8 1 6263646566676869~
XllO'T07i727374l5767T7879·
Xll'll'
xL2' c1n·
XLZ'l060·
SSA ll9
SF-ATTR PROTECTED/NORMAL INTENSITY
XL9°ClC2C3C4CSCbC7C8C9 1
Xl9·DlDZD304D506D70809'
XL 8 8 f2 E3 E4 E.5 E6 E7 EB E9 '
XL 10' FOF 1F2f3F4F5F6F7F8 F9'
XU 1 11'
XLZ 1 CZ5F'
XLZ' 1040 1
SBA 159
SF-ATTR UNPROTECTED/NORMAL INTEN.
XL8·40506061COOOEOE1·
Xll 9111
XLZ 1 C3C7· :it.i.z· 1060 1
SBA
199
SF-AHR PROTECTED/NORMAL IN"rENSITV
XL6 · 4A4 8-':rC.4~E4ft
Xl6 8 5A5S5C505c5f~
~
XL6 Q 6AbB6C606E6P
Xl6i 7A787C7iY'fE·rre
Xll 'll ·
Xl..2' C~F' XL2' 11)40°
XL6 1 CACBCCCDCEtF~ XL6·0AOBOCDOO~DFv
XL6·EAcBECEDEEEF'
XLS 1 FAFBFCFOFP
SSA 239 SF-A HR. UNPROTECTED/NORMAL INT ENS ITV
Xll'll' XL2 1 C407°
X!..2' 1060'
CL9'N/L CHECKe
SBA
279
SF-.~rrR PROTECTED/NOR.MAL INTIEN_SITY
XL 1° U.' Xl2 11 C540"
CL9'EDM CHECK·
Xl2 1 8919 5
Xll' U 1
XL2 1 C64F'
X!..2°1040"
Xll'l3 1 Xll'll' XLZ 1 C?.06 1
XL2' lDEB· Cl4'ADR-1
XL4-'00000000 11
SSA 320
END OF MESSAGE U\.LT .. CODES)
SBA 399
SF-ATTR UNPROIECJED/NORMAL INTENSlTY
INSERT CURSOR SBA 470 SF-ATTR HIGH INT/ PROTECTED
SELECTION AODR ro FOLLOW
STORAGE AREA FOR SELECTION ADDR
l
DATE
26JUN75
EC NO. 825023
250CT15
825032
15JAN76 825034
l~AY7f.
825035
PROG ID
PACE
c I
0894-3i
DATE
26 1 I
EC NO.
2bJUN75 825023
250CT75 825032
l5JAN76
825034.
l4MAV76 825035
PROG ID PAGE
0894-3 26A
!~
I
·
·
·
·
··
·
·
·
·
·
·
·
·
·
to
eiI oe
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
· · · · · ·· · · · · · · · · · T· · · · · ·· · · · · · ·· · · ·
IBM "AINTENANCE DIAGNOSTIC PROGRAM
PAR'i' NO. PAGE
I
4-23425~
27
leM MAINTENANCE DIAGNOSTIC PROGRAM
PART N~
PAGE
42M259
27A
8943 D~ FUNCTIONAL TESTS
8943 OA FUNCTIOHAL TESTS
ERR LOC OBJECT CODE
AOOft STMT SOURCE STATEMENT
ERR Lot OBJECT CODE
ADDA STMT SOURCE STATEMENT
36tB 1040
36C9 3164
DC XLZ-1040·
~F-ATTR NORMAL INT/UNPROTECTED
Ii ,.
3212.
3ttA 11
36CA 3165
DC
XL 1 1 11 1
SBA
37 85 Cl C40960
3788 3213
DC
Cl4 1 ADR- 1
STORAGE AREA FOR SELECTION AOOR
36CB C4C7 36CO FF
36CE 03
36C~ 3166
DC
36CO 3167
DC
36CE 3168 EOR06 DC
OllC 3169 ETEXT6 EOU
XL2'C4C7 1 XLl·FF' XL1 1 03 1
*-ORD6
263 INSERT PROBL.EH CHARACTER. ETX
l
I
3189 00000000
3780 1040 378F 03
37BC 3211t Al
DC
3215 ·
37BF. 3216
DC
37BF 3217 EOR07 DC
XL4 1 00000.:JOO'
XL2'10401 XL1'03'
STORAGE AREA FOR SELECTION AOOR
SF-ATTR NORMAL INT/UNPROTECTED ETX
36CF 0227
OOAA 3170 L26 36CF 3171 DR07
EQU
EOU
·*-MIDOR6
3600 3172
DC
Xl~'0227'
STX-ESC
I
I
37CO 0020
37C2 421F 37C4 431F
37Cl 3218 THREE2 DC
37C3 3219 STXRP OC 37C5 3220 SPXRP DC
IL21 32' AL2CXHITRC+3U
AL2 ( XM ITRC+Z811
3601 F5
3601 3173
3602 4F
3602 3174
3603 D5C5E64003C905C5 36E9 3175·
3608 40C6E405C3E3C906
3175
36E3 D540C3,8C5C302
3175
J176 ·
36EA 15
36EA 3177
36EB 05C5E64003C905C5 36FB 3178
36F3 40C6.E4D5C3E3C9D6
3178
DC
DC
DC
Xll'f5' XL1'4f'
I CMD,ERASE-W~ITE
WCC-RSTRE KYSRD/SND ALRM/STRT PRNT
Cl23'NEW LINE FUNCTION CHECK'
I
I
I
oc
Xll t 15·
NE" LINE
I
DC CL17'NEN LINE FUNCTION'
I
37C6 ClC3C3D609C4C905 37E7 3221 MODMGl DC
37CE C740E306400906E4
3221
3706 E3t9D5C540FOF268
3221
J?OE ltOCltC5E5C9C3C540
32·21
37E6 E7E7
3221
37E8 40C9E240Cl400't06 37F4 3222 MODMG2 DC
37FO C'tC50340E7
3222
37F5 4040404040404040 37FC 3223 MODMG3 DC
37FO D7D9C905E3C509 3803 3224 PRINTR DC
Cl34 1 ACCORDING TO ROUTINE 02, DEVICE xx·
CL13 1 IS A MODEL X' CL81 CL7·PRINTER 1
36FB 05
3178
3179 ·
36FC 15
36FC 3180
36FO 05C5E64003C905C5 3704 3181
3182 ·
3105 15
3705 3183
3706 DSC5E6
3708 3184
3185 ·
3709 15
3709 3186
370A OSC5E640D3C9DSC5 3711 3187
3188 ·
3712 15
3712 3189
3713 D5C5E640D3C9D5C5 3723 3190
3718 40C6E405C3E3C906
3190
DC XL1'15·
DC
CLB 1 NEW UNE·
NEW LINE
DC XL l' 15' DC CL3 1 NEW'
NEN LINE
DC Xll'l5' DC CL8' NEW LJNE'
NU UNIE
DC XL1'15'
NEN LINE
DC CLll ·NEW LINE FUNCTION'
I I
3804 C'tC9E2D703ClE8 3808 0227F14A3t4040
3aoA 3225 DISPLY DC
3806 3226 RltWRT 3811 3227
oEQc U
CL7'01SPLAY 1
·
XL7'0227F14A3C4040·
PATTERN FOR ROUTINE 4 STx,esc.~RITEtWCC,RA 0000
I
3812 5C 3813 UC75F1303
3812 3228 RPTCH DC 3817 3229 R4WRTE DC
CLl '*'
XL5' llt75FU03'
REPEAT CHARACTEa SBA, IC, ETX
II r~- .
3818 5CFF 381A 0227F5C2
3819 3230 SINCHR DC
381A 3231 R5WRT EQU
3810 3232
DC
·XL2'SCFF'
XL4 1 0227F5C2 1
SINGLE CHAR REPEATED, MAY BE Cf.INGEO PATTERN FOR ROUTINE 5 STX,ESC1ER/WR1WCC
I
I ,r· ·~ ""'
381E 1DE8
381F 3233
DC
3820 C4C5E5C9'3C540E7 3828 3234 DEVRT5 DC
3828 El
323't
XL2'10E8' CL9·DEVJtE U·
SF, HJ INT. PROT.
II (
3829 lDCl
J82A 3235
Dt
3828 uciso
3820 3236
·oc
382E E3t8C9E240C9E240 3842 3237 R5EXP DC
XL2'10Cl'
SF, NORM INT., UNPROT., HODIFIEO
XL3 1 llC150 1
SBA
CL2l'THIS IS MODIFIED DATA·
3723 05
3190
3191 ·
3724 15
3724 3192
3725 05C5E640D3C905C5 3738 3193
3720 4~C6E4D5C3E3C906
3193
3735 D540CJC8C5CJDZ
3193
319'1.
373C 15
373C 3195
3730 104C
373E Jl96
373F E3C8C9E240C4tlE3 3767 3197
3i41 Cl40n506E340ESC9
3197
374F E2C9C.203C56lt5D6
3197
3757 D440ClD5C4400561
3191
375F D340C9C7D5D6D9C5
3191
3767 C4
3197
3198.
3768 1519
3769 3199
316A 1040
3168 3200
3201 ·
376C C505C46006C66Cl>4 37BA 3202
3774 C5E2E2ClC7C560E3
3202
377C C5D904C905ClE3C5 3784 E240Dl09C9D5E3
3202 3202
3788 19
3786 3203
37BC 15
3204 · 378C 3205
37ec F205C440C5060440 37AE 3206
3795 03C905C5400506E3
3206
DC XL1'15'
NEW LINE
DC
CL2~'NEW LINE FUNCTION CHECK'
l(I
I
I
38~6 D406C4C9C6C9C5C4
3237
383E 40C:.V.1E3Cl
3231
3943 1140lt0
3845 3238
DC
3846 03
3846 3239 R5WRTE aX
3847 3240 AIOTl EQU
3847 0227F5C2
384A 3241
DC
XL3'U40.0'
·XL1 1 03'
XL4 1 0227F5C2·
ETX STX1ESC1ER/WR1VCC
DC XL1'15'
NEW LINE
I
DC XL2'1D4C'
HOM DISPLAV,NON PRINT,NON DETECTABLE! :·
DC CL41 1 THIS DATA NOT VISIBl.E/EOM ANO NIL IGNORED'
I
3848 1061
384C 3242
38"0 40C4C50709C5E2E2 3854 3243
3855 1060
3856 3244
3857 E3C8C540C905CltC9 3880 3245
DC Dt
cXLu2·1
1061' DEPRESS·
SF - PROT MODIFIED
ot
XL2 1 10601
SF - PROT
DC CL42·THE INDltATEO AID KEV - - - - IT SHOULD BE'
I r
385F C3ClE3C5C440ClC9 3867 C44002C5E8406040
I
386F 604060406040C9E3
3245
3245. 3245
3877 40E2C8D6E4D3C440
3245
387F C2C5
3245
DC XL2' 1519'
DC
Xl2' lD40'
NEW LINE EClt llGNOREDl SF/NORHAl INT/ UNPROTECTED
3881 40C4C5E3C5C3E3C5 38AE 3246
3889 C440C9D5E2E3Cl05
3246
3891 E3D3E8484040C9C6
3246
DC CL46' DETECTED INSTANTLY. IF KEYJS NOT INSTALLED, '
DC CL3l·ENO-OF-MESSAGE-TERMINATES PRINT'
3899 4002C5E8C91:24005 38Al 06E340C905E2E3Cl
3246 3246
38A9 0303CSC46840
3246
38AF C4C5D7D9C5E2E240 3809 3247
DC CL43'DEPRESS ANY OTHER AID KEV EXCEPT CLEAR AND 1
DC
XLP19'
ENO OF MESSAGE
3887 Cl05E84006E3C8C5 38BF D940ClC9C44002C5
3247 3247
DC XL l' 15'
NEW LINE
DC CL34·2NO EOH LINE NOT OH PRINTER OUTPUT·
38C7 E840C5E7C3C507E3 38CF ltOC303C5Cl09't0Cl
3807 05(440
3247 3247
324.7
3790 40060540D7D9C9D5
3206
380A C60603D306f640C5 38EA 32"t8
DC CLll'FOLLOll ERRDR NSG.·
31A5 E3CSD940D6E4E3D7
3206
38E2 D909060940DltE2t7
3248
37AO E4E 3 37AF 19
3780 11 3781 C706 3783 IDES
3206 37AF 3207
U08 · 3780 3209 3782 3210 3784 3211
DC
XL1 1 19'
DC xu· u ·
DC
XL2 1 C706·
DC XL2 1 10E8'
ENO OF flESSAGE
SBA ltTO
SF-ATTR HIGH INT/PROTECTED
(
lG·-·
38EA 48
3248
38EB llC25F
38£0 3249
DC
38EE 10E8
38EF 3250
Dt
38f0 11C6F8
38F2 3251
DC
38f3 C4C50709C5E2E240 3901 3252
DC
38F8 6040C5D5E3C509
3252
3902 03
3902 3253 AIOTlE OC
XL3·11C25F 1
SBA
XL2' 10E81
Sf - HI INT· PROT
XL3' llC6F8'
SBA
CL15·0EPAESS - ENTER'
XL 1 '03'
Ell
DATE
26J~l5
EC NO. 825023
250CT15 825032
15JAN76 825034
lltMAY76 825035
PROG ID
PAGE
l C OSM-31 21
DATE EC NO.
1c
26JUll75 825023
250CT75 825032
UJAI0'6 825034
14MAYl6 825035
PROG ID PAGE
0894-J 27A
'-
0
(;
IO
J
·
·
·
IBM MAINTENANCE DIAGNOSTIC PROGRAM 8943 DA FLJNCTIONAl TESTS
PART ~!O. PAGE
~2.34259
28 i
!BM MAINTENANCE DIAGNOSTIC PROGRAM
8943 ·DA FUNCTIONAL TE~TS
PART t\iO. 4234259
PAGE
2BA
ERR LOC OBJECT CODE
ADOR STHT SOURCE STATEMENT
ERR LOC OBJECT CODE
AODR STMT SOURCE STATEMENT
3903 0000
3904 3254 CURAID DC
3905 3255 AIOTZ EQU
3905 0227FlCZ 3909 llC6F8
3908 3256
DC
3908 3257
oc
390C C4Crn7D9C5E2E240 391F 3258 AtOM DC
3914 6040404040404040
3258
391C 40404040
3258
3920 03
3920 3259 AIOTZE OC
3921 3260 AIDT3 EQU
392 l 0227FlC 2
3924 3261
DC
3925 11C260
3921 3262
oc
3928 ClC9C44009C5C3C5 3944 3263" Al ORC DC
3930 C9E5C5C440E6ClE2
3263
3~38 4060404040404040
3263
394(\ 4040404040
JZ63
3945 40C8C5E7407DE7E7 394F 3264 HEXAIO r.c
3940 705040
3264
3950 E309E840ClC7ClC9 3917 3265
oc
3958 0540060940C4C5D7
3265
3960 D9C5E2E24007Cl60
3265
3968 FZ40C305C3035~
3265
3970 E30640C70640D605
3265
3978 03
3978 3266 AIDT3E DC
3979 3267 AIOT4 EQU
3979 OZ27F1CZ
397C 3268
DC
3970 l lC260
397F 3269
OC
3980 3CC6f740 3984 03
3983 3270
DC
3984 3271 AIOT4E DC
3985 0227FlC2
3985 3272 AIDT5 EQU
3988 3273
oc
3989 11C540
3985 3274
DC
398C C3060909CSC3E340 3983 3275
DC
3994 ClC9C440E6ClE240
3275
399C 09C5C~C5C9E5C5C4
3275
39A4 bB40C2E4E340D9C5
3275
39AC E20706D5E2C54040
3275
3984 E6Cl E240C9D5C306 3905 3276
DC.
39BC C90 9C SC 3E 368 40E2
3276
39C4 C5C5400709C905E3
3276
39CC C509400306C74006
3276
3904 E4E3
3276
3906 03
3906 3277 AIDT5E DC
3907 4048
3908 3278 X404B DC
3909 E704C9E 36109C5C3 39E5 3279 XMRCHG DC
39El 40C603C448
3279
39E6 3280 AIOTAB EQU
3~E6 7DC505E3C5094040 39FO 3281
DC
39EE 404040
3281
39Fl Fl07c:660Fl404040 39FB 3282
DC
39F9 404040
3282
39FC F207C660F2404040 3A06 3283
DC
3AOt. 404040
3283
3A07 F307C660F3404040 3AH 32f4
DC
3AOF 404040
3284
3A 12 F 40 7C 660F 4404040 3AlC 3285
DC
3ALA 404040
3285
3A10 F 50 7C 660F 54 04040 3A27 3286
oc
3A25 404040
3286
3A28 F607C.660F64C4040 3A32 3287
DC
3A30 404040
3227
3A33 F707C660F 7404040 3A30 3288
oc
3A3B 404040
3288
3A3E F807C660F8404040 3A4S 3289
oc
3A46 404040
3289
3A49 F907C660F9404040 3A53 3290
DC
3A51 404040
3290
3A54 7A07C660~1F04040 3A5E 3291
3A5C 404040
3291
·Xl2 1 0 1
Xl'·'0227HCZ · XL3' UC6F8' CLZO'DEPRESS -
WORK SPACE FOR CURRENT AID TABLE
srx. ESC, WR HE~ llNLOC K
SSA
·Xll'03i
ETX
Xl4'0227FlC2 1
STX,ESC,WRITE, UNLOCK
Xl3 1 11CZ60 1
CLZ9'AID RECEIVED WAS -
Clll'<HEX ··xx··) ·
CL~O'TRY AGAIN OR DEPRESS PA-ZCCNCLI TO GO ON·
Xll 1 03·
·
ETX
Xl4'0227F1C2 1
STX,ESC,WRITE1 UNLOCK
XL3 9 llC260 1
SBA
XL4 1 3CC6F 740 1
BLANK OUT PREY MESSAGES
·Xll'03'
ETX
Xl41 0227FlC2 1
STX1ESCfWRITE, UNLOCK
XL3'11C540 1
SBA
CL40i CORRECT AID WAS RECEIVEOv SUT RESPONSE
CL34·WAS INCORRECT. SEE PRINTER LOG our·
l(L1·03· XL2 1 4048'
CL13'XMIT/kEC FLO.·
·
CLU' "ENTER CLll· lPF-1 Clll' ZPF-2
C:l H' ::-pf-3 Clll '4 PF-4 Cl 11 1 5PF-5
CLU '6Pf-6 Clll '7PF-7
CL ll '8PF-8 Clll'9PF-9 Cl 11': PF-10
ETX
CONST ANT 4048
TABLE OF AIDS
I
II ,.
I .
r ·......
I '
l l~ I -~, I
I I I
,I c
jc
3A5F 7807C660FlFl4040 3A69 3292
DC
3A67 404040
3292
3A6A 3293 TRSKIP EQU
3A6A 7C07C660FlF24040 1A74 3294
DC
3A72 404040
3294
3A75 FOEJC5EZE34009C5 3ATF 3295
DC
3A7D 084040
3295
3A80 6CD7Cl60Fl404040 3A8A 3296
DC
3A88 404040
3296
3A8B 6E07Cl60F24DC3D5 3A95 3297
oc
3A93 C3035D
3297
3A96 680 7C l 60F 3404040 3AAO 3298
DC
3A9E 404040
3298
3AA1 6DC307'C5ClD94040 3AAB 3299
DC
3AA9 404040
3299
3AAC 3300 SKTOSP EQU
3AAC 7EE2CS034007C5D5 3AB6 3301
OC
3AB4 404040
3301
3AB7 E6C 3C l 09t440 09C4 3AC1 3302
DC
3ABF 094040
3302
3AC2 60050640ClC9C440 3ACC 3303
DC
3ACA 404040
3303
3ACO 40E405DZ0506E605 3AD7 3304
DC
3A05 4040it0 3AD8 0000
3304 ~AD9 3305 COUNT DC
3AOA 0002
3ADC 0240DDAA
3ADB 3306 TWO DC 3ADF 3307 A!OEXl OC
3AEO 4040ll40Cl
3AE4 3308
DC
3AE5 40C4C50709C5E2E2 3AEC 3309
DC
3AEO 03
5Ar0 3310 AIOEX2 DC
3AEE C9u5C3060909C5C3 3BOE 3311 INCORP DC
3AF6 E34009C5E2E4D3E3
3AFE" E240C6D9D6044040
3311 3311
3B06 4040404040404040
3311
3BOE 40
33ll
3BOF 0227F540
380F 3312 RT~? 3612 3313
EQ~
DC
3813 5C5C5C5CC4C5ESC9 36lf 3314 RT60V DC
3818 C3C540E7E7
3314
3B20 1060
3822 07Fl 3824 1040
3821 3315
DC
3823 3316 3825 3317
DoCc
3B26 E4Fl
3828 1060 3B2A D7F2 38'.:!C 1040
3B2E E4F2
3827 3318
DC
3829 3319 .
DC
3828 33.?0
DC
3a20 3321
DC
3B2F 3322
oc
3830 1060
3831 3323.
DC
3832 D7F3 3834 1040
3833 3324
DC
3835 3325
oc
3836 E4F3 3638 1060 3B3A 07F4
3B3C 1040
3837 3326
DC
3839 3327
DC
3838 3328
3830 3329
DC
oc
383E E4F4 3840 1060 3842 07F5
3844 1040
3BJF 3330
DC
3841 1331
DC
3843 3332
DC
3845 3333
DC
3846 E4F5
3848 1060
3847 3334
DC
3549 3335
DC
3B4A 07F6 384C 1040
3648 3336
DC
38't0 3337
oc
384E E4F6
384F 3338
DC
3850 1060
3851 3339
DC
3852 07F7
3853 3340
DC
3854 l()lc..O 3856 E4F7
3858 1060
3855 3341
DC
3857 3342
DC
3859 3343
oc
Clll'IPF-U
*Clll 'aPF-12
Clll·OTEST REQ ~
CLU·:&PA-l
Clll'>PA-2lCNCll 1
CLll' ,PA-3
CL 11 1 _CLE AR
·
CLll'=SEL PEN
tl.lPWCAP.O ROR
Clll'-NO AID
Cl.11 1 UNKNOWN
END OF TABLE ~ - - - -
Xl2 1 0 1
DELAY COUNT HOLDER
IL2'2'
CONSTANT TWO
XL4'0240DOAA 1
DEVICE (001 AND AID lAAI FILLED IN
XL 5 '40401140Cl'
CL8 1 DEPRESS·
XL1'03 1
ETX
CL33 1 1NCORRECT RESULTS FROM
*XL4' 0227F540 8
Cll3'**$*0EVICE XX'
XL2 1 l060' Cl2'Pl' XLZ 1 104G· CLZ 1 Ul' Xl2' 1060' :::L2'P2' Xl2 1 1M01 CLZ 1 U2' XL2 1 1060' CL2' P3· Xl.2' 1040' CL2'U3 1 Xl2 1 10601 CLZ 1 P4'
XL2'1040 1
Cl2'U4'
Xl2 1 1D60·
Cl2'P5' XL2 1 1040' CL2 1 U5 1
XL2 1 1060' CLZ' P6 1
XL2 1 1040 1 CL2'U6 1 XLZ' 1060'
Cl2 1 P7 1 XL2 1 1D40' tLZ 1 U7 1
XL2 1 1060 1
ROUTINE 6 WRITE PATTERN STX,ESCrER/WR,WCC
SF, PROT SF, UNPROT Sf, PROT SF, UNPROT SF, PROT SF, UNPROT
SF, PROT SF, UNPROT
SF, PROT SF, UNPROT SF, PROT SF, UNPROT SF1 PROT SF, UNPROT SF, PROT
DATE
26JUN75
EC NO.. 825023
250CT75 825032
l5JAN76 825034
14HAVT6 8.?5035
PROG ID
PAGE
Ir.
l 0894-31 "--· DATE
28
EC NO.
j ('",
I ·'
f
jo
26JUN75 825023
250CT75 825032
1SJAN76 825034
14"AY76 825035
PROG IO PAGE
0894-3
28A
t
·
·
·
·
·
·
·
·
·
·
·
·
·
·
.0.lI '"i'J'' f
·
·
·
·
··
·
·
·
·
·
·
·
·
·
·
··.:....· ·--- ·- · · · · · · · · · · · · · · · · ·
· · · ·-·
IBM MAINTENANCE DIAGNOSTIC PROGRAM
8943 DA FUNC TI ONAl TESTS
ERR LOC OBJECT CODE
ADDR STMT SOURCE STATEMENT
3B5A OTF8
3858 33'tlt
DC
365C 1040
385r.I 3345
DC
385E E4F8
385F 3346
DC
3860 0005
3861 3347
DC
3862 03
3862 3348 RT6PE DC
3349
3863 3350 RT6T EQU
3863 0227F140
3866 3351
DC
3867 05
3867 3352
DC
3868 1305
3869 3353
DC
3B6A 3C40D809 386E 05
3860 3354
DC
3Bt.E 335S
oc
386F 1140E3 3872 0505
3871 3356
DC
3873 3357
DC
3874 D4
3874 3358
DC
3B7S 05
3875 3359
DC
3876 l2407C
3879 cs
3878 3360
DC
3879 3361
DC
387 A 1240C3
387C 3362
DC
387D 114070
387F 3363
DC
3880 3C40C260
3883 3364
DC
3 884 114040
3886 3365
DC
3887 03
3887 3366 RT6TE DC
3367
3888 6060 3B8A 00
3888 3368 R6EXP EOU
3889 3369 388A 3370
oDcC
3888 5CC4C5E5C9C3C540 3894 3371 R6EDV DC
3893 E7E7
3371
3895 1D60 3897 D7Fl 3899 1040 3898 E4Fl 389D 1060 389f 07f2 3BA1 l040 38A3 09F2
38A5 1060 3BA 1 07F3
3BA9 1040
3896 3372
DC
3898 3373
DC
389A 3374
DC
3B9C 3375
DC
389E 3376
DC
3BAO 3377
DC
3BA2 3378
DC
38A4 3379
DC
3SA6 3380
DC
)8M! 338!
cc
3BAA 3382
oc
3 BAB E4F3
38AC 3383
DC
3BAO 1D60
313AE 3384
DC
3BAF D7F4
3860 3385
DC
3881 1040
3882 3386
DC
3BB3 E4F4
3884 3387
DC
3BB5 1060
3886 3388
DC
3887 D7F5
3888 3389
DC
3889 1040
3B8A 3390
DC
3888 E4f5
388C 3391
DC
3880 1060
386E 3392
DC
38BF 07F6
3BCO 3393
DC
38C l 1040
38C2 3394
DC
38C3 04
38C3 3395
DC
38(4 001060
38C6 3396
oc
38C7 D7F7
38C8 3397
DC
3BC9 1D4000001Du0
38CE 3398
DC
3BCF 07F8
3800 3399
DC
3801 104000
3803 3400
DC
38~ C56060
3806 ?401
DC
3807 FE
3807 3402
DC
3608 3403 R6EXP2 EQU
3808 0000000000000000 3BE4 3404
DC
38EO 0000000000
3404
3BES 1060
38E6 3405
DC
38E7 D7F 1
3BE8 3406
DC
3 BE9 10400000
38EC 3407
DC
3BED 1060
38EE 3408
DC
38EF 07F2
38FO 3409
DC
CL2 1 P8 1 .Xl2' 1D.r.01
tL2·us·
XL2 1 05' Xll'031
·
XL'9 1 0z'27Fl40' XL1'05 1 XL 2 1 1305 1 XL4 1 3C400809' Xll'05 1 Xl3' 1140E3 1 XL2'0505 1 CLl'M1 XL1'05' XL3'12407C· CLl' E' XL3 1 l240C31 XL3' 114070 1 XL4· 3C40C260' Xl3' 114040' XL1'03 1
·
Cl2'-' XLl·0°
CL lO'·DEVICE xx·
XL2'1D60 1 Cl21 Pl' Xl2'1D40' CL2'Ul' XL2' 10601 CL2 1P2 1 Xl2' 1040 1 CL21 R2· XL2'10601 Cl21!p3e
XL2 1 1~0 1
Cl2'U3' XL2 1 1060° CL2' Pit' XL2' 10401 CL2 1U4' Xl21 1D601 CL2' P5 1 XL2' 1040' Cl2 1 U5 1 XL2 1 1060· CL2 'P6' XL2 1 l040 1 Cl l 1M1 XL 3' 001060 1 CL2' P7 1 Xl6'1D40000010601 CL2 1 P8 1 XL3 1 1 D'tooo ·
CL31 E--'
·XL1 1 FE'
13XL1' oo·
XL2~t060·
CL2' Pl· XL4 1 lD400000· Xl2 1 ID60' CL2'P2 1
DATE 26JUN75 Et NO. 825023
Z50CT75 825032
15JAN76 825034
14"AYl""-
82503~
PART NO.
PAGE
i 4234259 29 I i i
IBM MAINTENANCE DIAGNOSTIC PROGRAM
8943 DA FUNcT!ONAL TESTS
ERR LOC OBJECT CODE
ADOR STMT SOURCE STATEMENT
PART NO. 42!4259
PAGE
29A
Sf, UNPRO'! PTt SHOULD GO Til AODR 0 ETX ROUTINE 6 TEST SEQUENCE
s1x. esc, WR nE,wcc
PT ( PROGRAM T AS>
INSERT CURSOR AND PT RA AND INSERT AN 1 R1
PT SBA
PT TWICE INSERT AN ·,;· PT ERASE UNPROT TO AOOR INSERT AN 'E' EUA TO AODR 4
SBA REPEAT A ·-· TO AOOR 3
RESET BUFFER ADDRESS
ETX
EXPECTED RESULT FOR RTN 6
SNITCH TO SINGLE CHARACTER ·-·
I I
l
I
I
!
'I c
i {c
~ \,
I (-··. I .
c1.
(
38Fl 10400000
38F4 lltlO
DC
3BF5 1060 38F7 07F3
38f6 31tll 38F 8 31tl 2
DC · DC
3BF9 10400000
38fC 3413
DC
38FD 1060
38FE 3414
DC
38FF 07F4
3COO 3415
DC .
3C01 10400000
3C04 3416
DC
3C05 1060
3C06 3417
DC
3C07 07F5 3C09 10400000
3C08 3418
DC
3COC 3419
DC
3COO 1D60
3COE 3420
DC
3COF D7F6
3Cl0 3421
DC
3Cll 1D400000
3Cl4 3422
DC
3Cl5 1D60 3Cl7 07F7
3Cl6 3423
DC
3Cl8 3424
DC
3C19 10400000
3ClC 3425
DC
3C1D 1D60
3ClE 3426
DC
3Clf D7F8
3C20 3427
DC
3C21 1040
3C22 3428
DC
3C23 FE
3C23 3429
DC
3C24 3430 RT7P EQU
3C24 0227F540
3C27 3431
DC
3C28 110000
3C2A 3432 INVAOR DC
3C28 03 3C2C C760 3C2E 5E40 .3C30 40Cl
3C2B 3433 RT7Pf DC
3C2D 3434 INVMl DC
3C2F 3435 INVM2 DC
3C 31 3436 OC
DC
3C32 0000
3C33 3437 SNSARE DC
3C31t OlFE 3C36 1604 3C38 0000
:c35 3438 XOlFE DC 3Cl7 3439 SSN6 DC
3C39 3440 BOGRTN'DC
3C'A 00
3C3A 3441 STFLG DC
3C38 3442 R8Pl EQU
3C38 0227f.St2 3C3F 003C4040Fl
3C3E 3413 3t43 3444
DnCc
3C44 03
3C44 3445 RBPlE DC
3C45 0227F5f.2 3C49 F3 3CltA lOFE
3C45 3446 R8P2 EQU
3C45 3447
DC
3C49 3448
oc
3C48 3449
DC
3C4C 3C4040F2 3C50 03
3C4f 3450
DC
3C50 3451 R8P2E DC
3C51 3452 R8P3 EQU
3C51 0227F5C2 3C55 Fl
3C54 3453 .
DC
3C55 3454
DC
3C56 3C4040F4 3C5A 03
3C59 3455
DC
3C5A 3456 R8P3E ot
3C58 0227F5C2 3C5F 3C404000
3C5S 3457 R8P4 EQU
3C5E 3458
DC
3C62 3459 R8CHR DC
3C63 03 3C64 OlbC09024000
3C63 3460 R8P4E DC 3C69 3461 R8EXP 1 OC
3C6A C4C403 3C60 3C37 3C6F 3C39
3C6C 3462 R8EX?2 DC 3C6E 3463 ASSN6 DC 3C70 3464 ABOGRT DC
3C71 0227F5C2 3C75 1060
3C71 3465 RllPl EQU
3C74 3.fs.66
DC
3C76 3467
DC
3C77 C90S40D306E6CS09 3C90 3468
DC
3C7f 40C3ClE2C5401tDCl
3468
3C87 D3D7C8Cl40C9C640
3468
3C8F C4CJE3Cl40C5D5E3
3468
3t97 09E84002C4C250
3468
3C9E 40C30607E840E3CB 3CBO 3469
DC
3CA6 C540C606D~D306E6
3469
3tAf C905C7
3469
3CB l llC 17ElOE8
3C85 3470
DC
3C86 98A68~99A3A8A489 3CC.F 3471 LCP
ot
XL4' 10400000 1
XL2' 10601 Cl21 P3' Xl4'10400000' XL2 1 l060 1 tl21 P4' Xl4'104000C0 1
XLZ' 1060 1 CL2' P5' Xlit 1 10400000 1
Xl2' 10601 Cl21 P6' XL4' 1D400000 1
Xl2'1060 1 CL2 1 P7 1 XL 4' 1D400000· Xl21 lD60 1 Cl2'P8' Xl2' 1040'
·Xll 1 FE'
Xl4 1 0227F540 1
XL3' 110000 · Xll' 03 1 Xl2 1C760'
Xl2 1 5E40· Xl21 40Cl 1
XL2'0'
XL2'01FE 1 Xl2' 16041 Xl2'0 1
·XL1'0'
XL4'0227FSC2 1 Xl5'003C4040Fl' XL1 1 03'
*XL4'0227F5C2'
CL1 1 3' XL2' l0¥E' XL4'3C4040F2' XL1'03'
*
XL4 1 0227FSC2' Cll' l' Xl4 1 3C4040f~'
·XL1'03'
Xllt' 0227F5C2· )CL4'3C404000 1 XLl 1 03' XL6 1 016CD9024000' Xl3 1C4C403' Al2CSSN6>
·Al2tBOGRTN)
XL4'0227F5C2' Xl2' 1D601
CL39'IN LOWER CASE
ENO OF PATTERN PATTERN TO TRY lNVALJD ADDRESS STX,ESC,ER/WRTtWCC INVALID SBA GETS FILLED IN ETX INVALID MODEL 1 ADDRESS INVALID MODEL 2 ADDRESS OPERATION CHECK STATUS SENSE AREA HEX OlFE MICRO WORD TO SET SSN61BLDCK PARITYJ MICRO WORD TO RETURN TO WRITE LOOP FLAG TO INDICATE MICRO CODE CHANGED ERASE WRITE TO CAUSE PARITY CHECK STX,ESC,ER/WR,UNLOCK RA 0000 CHAR 1 ETX ERASE WRITE TO CAUSE PARITY CHECK STX,ESC,ER/WR1UNLOCK CHARACTER 3 BAO PARITY ATTRIBUTE GETS PUT IN RA 0000 CHAtt 2 ETX ERASE WRITE TO CAUSE BAD PARITY STX1ESC,ER/WR,UNLOCK BAD PARITY GETS PUT IN RA 000 CHAR 4 ETX SENDS ALL ONE CHARACTER STX,fSC,ER/WRrUNlOCK RA, CHAR GETS FILLED IN ETX DEVICE GETS FILLED IN EXPECTED STATUS z DC US
STX,ESC,ER/WRtWCC - UNLOCK SF - PROT (ALPHA IF DATA ENTRY KOBl 1
CL19' COPY THE FOLLOWING'
Xl5 1 llC17ElDE81
SSA, SF HI INT, PROT
Xl26'98A68599A3A8A489969781A284868788919293A9A783A582959#t'
PROG ID PAGE
1I I'"'
0894-3 \_
DA TE
29 , EC NO.
0
26JUN75 825023
250CT75 825032
15JAN76 825034
14MAY76 825035
PROG ID PAGE
0894-3
29A
I
·-
0
----------1- .
--------~-~.---- =c.··--~·---- .. ·-·-·-- - · · - . - . - : : . = - - - -.. -- - - - - - - - - - - ·-·
·
'-
· ·
IBM MAINTENANCE DIAGNOSTIC PROGRAM 8943 ~~ FUNCTIONAL TESTS
PART NO. -.234259
PAGE
30
ISM MAINTEtJANCE DIAGNOSTIC PROGRM 8943 DA FUNCTIONAL TESTS
PART NO.
PAGE
4234259 30A
ERR lOC OBJECT CODE
AOOR STMT SOURCE STATEMENT
ERR LOC OBJECT CODE
AOOR STMT SOURCE STATEMENT
3CBE 969781A284868788
347l
3CC6 9l9293A9A783A582
3471
3CCE 9594
3471
3CDO llC34E104013
3C05 3472
DC
3CD6 llC3E91D60
3COA H73
DC
3CD6 llC5Cl
3CDD 3474
oc
3COE C9C640E8D6f440C8 3004 3475
DC
3CE6 ClE5C540Cl40C4Cl
3475
3CEE E3Cl40C5~5E309EB
3475
3CF6 4002C2C468404005
3475
3CFE E404C509C9C3E2
3475
3005 40Cl09C540E407D7 3D2C 3476
oc
3000 C50940C3ClE2C540
3476
3015 C10307CBC 15040C4
3476
3010 C50709C5E2E240El 3025 C5E2E34009C50848
3476 3476
3020 4006E3C8C509E6C9 3D46 3477
DC
3035 EZC~6840C4C50709
3477
3030 C5E2E240C505E3C5
3477
3045 0948 3047 03
3477
3047 3478 RllPlE oc
3048 3479 RllP2 EQU
3048 0227F5C2
3048 3480
DC
304C 1060
3040 3481
DC
304E C90540E40707C509 306E 3482
DC
3056 40C3C1E2C56840C3
3482
3D5E 0607E840E3CBC540
3482
3066 C6060303D6E6C905
3482
306E C7
3482
3D6F 11C17'.:1DE8
3073 3483
DC
3074 D8E6C5D9E3E8E4C9 3080 3484 UCP
DC
307 C D607Cl E2C4C6C7C8
3484
l084 Dl0203E9E7C3E5C2 3DSC 0504
3484 3484
308E llC34El04013
3D93 3485
DC
3094 llC3E91060
3098 3486
DC
3099 llC5C l
3098 3487
DC
3D9C E3C8C5056840C4C5 3DAE 3488
oc
30A4 0709C5E2E240C505
3488
3DAC E3C509
3488
3 OAF 03
3DAF 3489 RllP2E DC
3DBO 0227F5C2
3080 3490 RllP3 EQU
3D83 3491
DC
3084 1060
3085 3492
DC
3DB6 C5C909D609EZ40E6 3DE8 3493
DC
3DBE CS09C540C4t5E3C5
3493
3DC6 C3E3C5C440ClD~4
3493
30CE 400306C7C7C5C440
3493
3006 06E4E340060540E3
3493
3DOE CBC54007D9C905E3
3493
3DE6 CS0.148
3493
30£9 llC2601DEB
3DED 3494
DC
30EE C4C50709C5E2E240 3E03 3495
DC
3DF6 C5D5E3C50940E306
3495
30FE 4009C5E309E8
3495
3E04 llC3Fl
3E06 3496
DC
3E07 C4C50709C5E2E240 3E20 3497
DC
3EO F D7Cl60 F24DC3D5C3
3497
3El7 D35040E3D640C706
3497
3E lF 40060546404060C 3
3497
3E27 ClE4E3C9060560
3497
3E2E 4009C508E4C909C5 3E52 3498
DC
3E36 E240D306E6C50940
3498
3E~E E2C8C9C6E3400605
3498
3E46 40E20604C54002C5
3498
3E4E E8C2C4E248
3498
3E53 03
3E53 3499 R11P3E DC
3ES4 3500 RlZP EQU
XL6'11C34El04013'
SSA, SF UNPROT, INSER CURSOR
Xl5 1 11C3E910601
SBA, Sf PROf
XL 3. 11C SC l I
SBA
Cl39tfF YOU HAVE A DATA ENTRY·,KBD. <NUMERICS'
CL401 ARE UPPER CASE ALPHAJ DEPRESS TEST REQ.·
Cl26 1 OTHERWISEo DEPRESS ENTER.'
Xll'03'
X* l4 1022TF5C2'
Xl2 1 1D601 Cl33~IN UPPER CASE,
ETX
STX,ESC,ER/WR,WCC SF PROT COPY THE FOLLOWING'
UNLOCK KBO
XL5'11Cl7ElDE8 8
SBA, SF HI INT 9 PROT
CL26'QWERTYUIOPASDFGHJKLZXCVSNM 1
XL6'11C34El04013'
SBA, SF UNPORT, INSE~T CURSOR
XL5'11C3E91060 1
SBAo SF PROT
Xl3'11C5Cl'
SBA
CL19 1 THEN, DEPRESS ENTER'
Xll I 03 1
ETX
*XL4'0227FSC2 1
STX,ESCwER/WR, UNLOCK KBD
XL2'1060'
SF - PROT
i ,r
! i..__
CL51 1 ERRORS WERE DETECTED ANO LOGGED OUT ON THE PRINTER.'
i c,
XL5'11C26010E8 1
SBA SF PROT. HI INT
CL22'JEPRESS ENTER TO RETRY'
XL3 1 llC3Fl·
SBA
CL39'0EPRESS PA-ZlCNCLJ TO GO ON. -CAUTION-·
CL37· REQUIRES LOWER 5HIFT ON SOME KEY80S. 1
·xu ·03·
ETX
(
~..._.
(
'-·
l
I(...
1
3E54 0227F57F
3E57 3501
OC
3E58 C505C44006C640E3 3E 70 3502 EJMG OC
3E60 C5E2E340C6060940
3502
3E68 C4C5E5C9C3C540E7
3502
3E70 E7
3502
3E7l 03
3E7l 3503 Rl2PE DC
3E72 E6090605C740C4Cl 3E92 3504 RHHG DC
3E7A E3Cl40D9C5C3C5C9
3504
3E82 E5C5C440C6090604
3504
3E8A 4002C5E8C2D6Cl09
350't
3E92 C4
3504
3 E93 0240DDAA
3E96 3505 RllEXl DC
3E97 C36AllC34F
3E9B 3506 RllEX2 DC
3E9C 3507 R09P EQU
3 E9C 0227FS6A
3E9F 3508
DC
3EAO 3509 R09PS EQU
3EAO E40707C50940C3Cl 3EAA 3510
DC
3EAB EZC560
3510
3EAB ClCZC3C4CSC6C7C8 3EC4 3511
DC
3EB 3 C 90102030405060 7
3511
3EBB 0809E2E3E4E5E6E7
3511
3EC3 E8E9
3511
3EC5 404040400306E6C5 3E03 3512
DC
3ECD 0940C3~lE2C560
3512
3ED4 8182838485868788 3EEO 3513
DC
3EDC 8991929394
3513
3EE1 9596979899A2A3A4 3EED 3514 R09EXP DC
3EE9 A5A6A7 A8A9
3514
3EEE 00
oc 3EEE 3515 R09PE
3EEF 3516 AIOT6 EQU
3EEF 0227F5C2
3Ef2 3517
DC
3EF3 1060
3EF4 3>18
DC
3 EF.,. E4E 2C 90 SC 740E 3C 8 3FlB 3519
DC
3EFO C540E2~503C5C3E3
3519
3F05 D6D94007C5056B40
3519
3FOO E2C503C5C3E34060
3519
3F 15 40C603C440C 140
3519
3FlC 5040C603C440C34B 3F43 3520
DC
3F24 4040E3C8C50540E2
3520
3F2C C503C5C3E3407DC5
3520
3F34 D5C470484040C9E3
3520
3F3C 40EZC806E403C440
3520
3F44 C2C540C4C5E3C5C3 3F6B 3521
DC
3F4C E3CSC4484040C9C6
3521 .
3f54 40C6C5ClE3E409C5
3521
3F5C 40D506E340C905E2
3521
3F64 E3C 103D3C5C46B40
3521
3F6C C4C507D9C5E2E240 3F7E 3522
DC
3F74 D7Cl60F240C305C3
3522
3F7C 035046
:"522
3F7F 11C25F
.3f81 3523
oc
3F82 10E8
3FB3 3524
DC
3F84 llC3FO
3F86 3525
DC
3F87 10E8
3FB8 3526
DC
3F89 6FC603C440tl4040 3F91 3527
DC
3F91 40
3527
3F92 1DE8
3F93 3528
DC
3F94 6FC6D3C440C24040 3F9C 3529
oc
3F9C 40
3529
3F90 10£8
3f9E 3530
DC
3F9F 6FC603C440C34040 3FA7 3531
DC
3FA7 40
3531
3FA8 1DE8
3FA9 3532
3FAA 6FC603C440C44040 3f62 3533
DoCc
3FB2 40
3533
3FB3 IDES
3FB4 3534
DC
3FB5 40C505C440404040 3FBO 3535
DC
3F8D 40
3535
XL4'0227F57F·
STX.ESC,ER/WR,WCC - DO EVERYTHING
CL251 END OF TEST FOR DEVICE xx·
XL l 103 1
ETX
CL33'WRONG DATA RECEIVED FROM KEYBOARD'
XL4' 024000AA 1
XLS 'C36AllC3~F'
*XL4' 0227F56A·
·
Clll'UPPER CASE-·
OEVILE ANO AID GET FILLED IN KEEP WITH ABOVE DATA
STX ,esc, ER/WR.wee
CLZ6'ABCOEFGHIJKLHNOPQRSTUYWXYZ 1 UPPER f\SE PATTER."C
CL15'
LOWER CASE- 1
XL13 1 81828384858687888991929394' LOWER CASE PATTERN
XL13·9596979899A2A3A4A5A6A7A8A9'
XLl'O'
ETX OR HEX FE
*XL4'022TF5C2 1
STX,ESC,ER/WR,WCC
XL 2 'lObO I
SF - PROT
CL39'USING THE -SELECTOR PEN. SELECT - FLO A '
CL40'& FLO C. THEN SELECT ··eNo··. IT SHOULD ' CL40 1 BE DETECTED. IF FEATURE NOT INSTALLEDo 1
Cl19·0EPRESS PA-2(CNCLI.'
Xl3' 11C25F9 XL2 1 1DE8'
XL3 1 11C3FO·
XL2 1 1DE8' CL9 1 7FLD A
XLZ · 1oe9·
CL9'1fLD B
XL2 1 1DE8 1
CL9 1 7fLD t
XL2' 10E8' CL91 7fl0 D
XL2' 10E8' CL_9· END
SBA SF HI INT - PROT SBA SF, HI INT PROT, OET ACTABLE
SF, HI INT PROT, DETACTABLE
SF, HI INT PROT, DETECTABLE
SF, HI INT PROT, DETECTABLE
Sft Hi INT PROT, OETE~TABLE
DA TE Z6JUN75 EC NO. 825023
zsocns
825032
15JAN76
825034
l4MAYT6
825035
PROG ID
PAG~
I 0894-3! (\DATE
Z6JUN75
30
EC NO. 825023
250CT75 825032
15.JAN76
8250J4
14MAY76 8ZS035
PROG 10 PAGE
:I (~ ;
l
f
! 0
· · · · · ·- · · · · · · · ·- ·-0 · · · · · · · · · · · · · · ·
·
· __,_-~--.-llll·~·....-..·-· --~ .·. -··
I
IBM MAINTENANCE DIAGNOSTIC PROGRAM 8943 DA FUNCTIONAl TESTS
PART NO..
PAGE
ERR Ult 08.JECT COD.E
AOOR STflT SOURCE ST ATEMBIT
3f8£ 1DE8
3FBF 3536
DC
3FCO 03
3FCO 3537 AIOT6E DC
3FC1 0227FlC2
3FC1 3538 AIDT7 EQU
3FC4 35~9
DC
3FC5 11C6F8
3FC7 3540
DC
3FC8 E309E840ClC7ClC9 3FEF 3541
DC
3FDO 0540060940C4CSOl
3541
3FD8 09C5E2t:24007Cl60 3FEO F24DC305C3035040
3541 ~-i· 3541 -~
3FE8 E30640C7D640D605
3541
3FFO 03
3FFO 3542 AIOT7E 0C
3FF1 llC3FUlC4C511Clt 3FFA 3543· SELPEX OC
3FF9 0903
3543
3FFB 00
3FF8 3544 MICPFL DC
.
3FFC 3545 MICPl EQU
3FFC 37FF323240408FSF 4003 3546 MICP2 DC
4004 000000
4006 3547 MJC~O DC
4007 20
4007 3548 HICPlE DC
4008 3549 NAK EQU
4008 30FF
4009 3550 NAKE DC
3551
Xl.2' 1DE81
SF, Kl INT PROT, OETECTABLE
·Xll 1031
ETX
Xl41 0227FlC21
STX,ESC1WRITEt UNLOCK NCC
XL3' UC6F8 1
SBA
CL40 1 TRY AGAIN OR DEPRESS PA-2tCNCLI TO GO ON·
Xll 103 1
ETX
XL10 1 11C3FlllC4C511C40903· EXPECTED SEl PEN RTN.
·XLPO'
MICRO POL Fl.AG MICRO POLL CONTROl SEQUENCE
Xl8 1 J7FF323240408F8F 1
XL3 1 O·
COUNT & DEVICE GO HERE
XLl 1 20 1
·
ENQ
NAK RESPONSE
Xl2'30FF 1
4234259,
31 , ,,~-
IBM MAINTENANCE
DIAGNOSTIC PROGitAM
!
8943 DA FUNC TIONAl TESTS
ERR l.OC OBJECT CODE
AODR STMT SOURCE STATEMENT
,.,....,
I '- .i
! (""',
I ·-·
II c·~~-\
3593
3594 3595 3596 3597 3598 3599 3600
3601 3602
3603 3604
3605 3606 3607 36<'8 OAll 3609
TREP
TREP
TREP TREP
TREP
T~EP
TREP
TREP TREP TREP TREP
TREP
TREP
TREP
TREP TREP ENO
START
400A 3552 EAU EQU
400A 02276F03
4000 3553 EAUf DC
400E 022?Fl4C1lCCCO 4014 3554 EXBUF UC
4015 13
4015 3555
DC
4016
412E 3556 EXBUFE DS
4l2F 0000
4130 3557 HEXADR DC
4131 4138
4132 3558 RIPST DC
4133 0000
4134 3559 CURRIP DC
4135 413A 4137 4176
4136 3560 RIPEND DC 4138 3561 ~IPRST DC
4139 OlEO
413A 3562 EMOOl DC
4138 3563 EXRJP EQU
4138 ClC2C3C4C5C6C7C8 415E 3564
DC
4143 C901D20304D50607
3564
4148 0809E2E3E4E5E6E7
3564
· XL4 1 02276F03·
ERASE ALL UNPRDTED CMO SEO.
STx.~st.EAUrETX
Xl1·0227Fl40110000' STX,ESC,WRITE 1 NCC1SBA
XL1 1 13'
INSERT CURSOR
281CL1
SAVE WRITE BUFFER WORK SPACE
Xl2'00'
Al2CEXRIPJ
HEX ADDRESS FOR RTN 13 EXCERCISE
START OF RIPPLE DATA
XL2 1 00·
CURRENT RIPPLE DATA START
Al2CEXRIP-ll
ENO ADOR OF RIPPLE DATA
Al2CEXRIPEJ
ReSTART ADDR FOR Ex.
Xl2 1 01E0 1
ENO OF MOD 1 BUFFER
·
60 CHA~ RIPPLE DATA FOR RTN 13 EX.
Cl36 1 ABCDffGHIJKL~NOPQRSTUYWXYZ012~4S6789·
I ,..,,
I
I \/
I 10 I 10 I I 0-
0
4153 E8E9FOF1F2F3F4F5
3564
"158 F6F 1F8F9
3564
415F 5060617A48586878 4176 3565 EXRIPE DC
0
4167 4C6C7C405D4E5E6E 416F 7E4F5F6FlF5C7040
3565 3565
4177 FF
4177 3566
DC
4178 0780
4179 3567 EHOD2 DC
417A 0000
4178 3568 EAOR DC
417C OlEB
4170 3569 HOOlL DC
417E 0788
417F 3570 MOD2L DC
4180 EOAA
4181 3571 KATOl DC
4182 8A9A
4183 3572 K4TD2 DC
4200
3573
3574
ORG
4200 4320 Ff 4321
4200 3575 XMITRC EQU
431F 3576 XMITE OS
4320 3577 Fill DC
49FF 3578
OS
3579
TREP
3580
TREP
3581
TREP
3582
TREP
3583
TREP
3584
TREP
3585
TREP
3586
TREP
3581
TREP
Xll 1 rf 1 XL2'0780 1 Xl2 1 0 1 ll2 1 488 1
IL2 1 1928 1 Xl2 1 EOAA 1 XL2'8A9·A'
··t256,0
288CL1 Xll 1 FF 1 l HiiCLl
ENO OF EX. DATA
END OF noo 2 SUFFER
END AODR IN USE (MOO 1 OR 21 LENGTH OF MOO 1 WRITE PATTERN LENGTH OF M~D 2 WRITE PATTERN
REPLACEMENT KATAKANA CHAR.
ORG TO 256 BOUNDARY
TRANSMIT C RECEIVE FIELD
:CILL CHMACTER SPACE FGR RlN 13 EXCERCISE
10
io
I
lo
0
0
I
I
I
c-1
I .i-
,o!o
I
I
3588 3589 3590
TREP
TREP TREP
I
10
DATE 26.IUN'JS EC NO. 825023
Z50CT75
825032
3591 3592
TREP TREP
l~AYT6 825035
PROG ID PAGE
I
10
i
089~-3' C: DATE 31 j EC NO. I 10
26JUN75 825023
250CT7~
825032
15JAN76 825034
14MAY76 825035
J
L
I I I
c··;.;
I
I !O
!
PART NO.
PAGE
4234259 31A
PROG 10 PAGE
0894-3 31A
L
· ·
IBM MAINTENANCE DIAGNOSTIC PROGRAM 8943 DA FUNCTIONAL TESTS
CROSS-REFERENCE
PART NO. PAGE
4234259
IBM MAINTENANCE DIAGNOSTIC PROGRAM
32 ' ,..,.. l
8943
DA FUNCTIONAL TESTS
CROSS-REFERENCE
PART NO. PAGE
it234259 32A
SYMBOL T LEN VALUE DEFN
ABDGRT A 002
AC:ClN C 001
ACCINM A 019
ACK
A 002
3C 70 0013 298E
2FFB
3464 u069 2586 2662
ACKO ACKl ADOOI< AGAIN AID
A 002 A 002 A 004
A 003
A 001
2630 263F 19C4 1F65 2659
2530 2531 1509 1972 2543
AIDEXl A 004
AI OEX2 A 001
AIOFND A 005
AWLP A 004
AIDM A 020
AI DOK A 006
Al OPOL A 004
AIDRC A 029
AI OT AB A 001
AIDT l A 001
AI OTlE A 001
AIOT2 A 001
AI OT 2E A 001
AIDT3 A 001
AI DT3E A 001
AlDT4 A 001
AIDT4E A 001
AIDT5 A 001
AlOT5E A 001
AIOT6 A 001
AIDT6E A 001
AIDT7 A 001
AIDT7E A 001
AINT2 A 002
ARR
c 001
3ADF
3AED
l4A5 14F4 391F 1520 145C 3944 39E6 3847 3902
~905
3920 3921 3978 3979 3984
3985
3906 3EEF 3FCO 3FCl
3FFO 2616
coos
3307 3310
1094 1120 3258 1135 1074 3263 3?.80 3240 3253 3255 3259
3260 3266 3267
3271 3272
3277 3516 3537 3536 3542
2508
oo::?
ASSN6 A 002
ATNR c 001 ATTCH c 001 ATTCHK c 001
ATTHSG ATTN OR
A
A
016
on
AVAIL A 006
AVAL MG A 010
Al
A 004
AlA
A 004
A.2
A 004
A3
A 004
A4
A 004
AS
A 004
A6
A 004
A7
A 004
oAOST A 004
BCNT A 002
BDGRTN A 002
BOST c 001
BLKDN A 004
BSYERR A 004
BUSE c 001 BUSY c 001
BUSYB A 004
CAR c 001
cc
A 002
CHAIO A 004
3C6E OOOA 0005 0050
2BE4 2895
ococ
2619 31AE 3291 3378
341A
34F2 35AF ;>6C7
:nae
OFBA 2612 3C39 0015
1F95 1BA2 0002
OOSA
l84C
ooac
2645 148F
3463 0071 0077
0015 2575 2569 0266 2601 2712 2735 2802 2897 3031 3075 3162 3214 0640 2506 3440 0081 1986 1651 0070 0030 1628 0026 2534 1088
REFERENCES
1564
0643 2270
2272 0421* 0431 0432· 0434* 0581* 1698 1930· 1952 1953· 1955* 1956 1960
1752 0362 0374 1668 1668 1670 1676
1500
1 CJ83 1250 1253 1266 1270 1274 1285
1738* 2185 1056· 1057* 1069* 1070· 1103 1107
1071 1188 1190 1205
1090
1198 1214 1220
1170·
1085 1201
1082 li.24 1129 1131
1094·
1066 1088
1061
1061 1063
1194
1194 1196
1115
1115 1111
1156
1156 1158
1145
1145 1147
1210
1210 1212
1217
1217 1219
1552 1301 1759 2130
1329 1786 2214
1446 1790
2229
1482 1829 2412
1531 1851
1558 1970
1559
1656 2258
1586 2243 2451
0153 1571 1576 2429
2245
2260
0318
0272 0672 0906 0923 0924 0972 0997
0872·
0906·
0923·
0924·
0972*
0991·
1025·
0635 0150· 0151· 0154· 1616* 1645·
1575* 3464 0640 0680 0852 2145 2276 2339
1973
1646
1651 22~4
1628
1649 1660
1621· 1629
1914· 1917 1924 1924 1926 1960 1962 2104* 2106· 2116 1914 1292 1294 1315 1311 1343 1109 1150 1175* 1183
1563 1592 1666 1685 1714 1989 1996 2003 2012 2077
1025 1518*
1929 1345
1745 2107
1203
DATE
26JUN75
EC NO. 825023
250CT75 825032
15JAN76 825034
l4MAY76 825035
PROG ID PAGE
( SYMBOL T LEN VALUE
CHECK A. 004
CHECKl A 004
CHECK2 A 004 CHKIT A 004 CHKPS A 006 CHKST A 004 CHMOOX A 004 CHlRT A 004
\:H2RT A OC't
CL SET A 004 CNTLP A 006
CNTRL c 001
CONAOR A 002 CONDE A 006 CONFLG A 001 CONPOL A 004 CONS A 002 CONVER A 004 CONVR A 004 CORD A 003 COUNT A 002
CTRSTG c 001
CURAC.t<. A 002
CURA ID A 002 CUROAT A 002
( : CUR OE\/ A 002
lEEA
lF90 1F89
2008 223f
OC8E
24EA
lf85
lfDl OAC3 2289 0088
18AO 1680 2660
21EA 0820
lSEl 1955 0880
3A09 0058
2650 3904
2EEF 2605
CURR IP A 002
OATER c 001
DAT!N A 004
DB
A 002
OCUS A 002
( DE
A 002
DELA\' A 004
DELAYR A 004
DEVHB c 001
OEVHC A 002
, DEl/HLT A 004
'·.·. OEV[Cf A 009
4134
0008 l82A 2647 2649 2643
2272
Z2A3
0009
084C
0847 25CF
DEFN
1934 1989 1996 2084 2196 0317 2412 1994 2001 0169 2219 0034 1431 1266 2547 2168 0195 1446 1476 0230 3305 0036 2545 3254 2643 2493
3559
oon
1616
253~
2536 2533 2214 2224 0074 0212 0211 2475
(
ODEEVV~INGC
A 002 A 009
DE\IOK A 004
r· DEllP A 006
'-~ OEVRTZ A 009
DEVR T3 A 014
( DEVRTS A 009 - DISABL A 003
DISP A 005 ( DISPL Y A 007
'-· DH2
A 006
DOACK A 004
DOACKX A 006
( DOACKl A 006
DOK A 004
DONE A 001
, \. uoNXT A 004
DOPOl A 004
i r OOPOLR A 004
I \.., OOSIO A 004
!o
I DOSI OR A 004 I . OROPED A 004 j (_, 01/BCNT A 002
2633 2BOF 1980 12Z3 206E 30AD 3828 lA60 2130 380A 12CB lEAC 1F33 1EA6 0897 260F
OBF6 lC39 1C96
U.84
1881 lSAA
2614
2525 2600 1505
0877 2629
2676 3234 1566 2116 3225 0934
1915 1956
1914
0233 2504 0261 1714 1740 1592
1641 1654 2507
I
0894-~ C DATE
32 j EC NO.
26JUN75
~25023
250CT75 825032
1I 0
I I
lo
REFERENCES
1998 2000 0547 1913 1950 1963
1928 2096 2192 0267 0866 0895 0928 0937 0961
1989·
1996· 0167 0168 2222 0784 0822 1551 1583 1619 1447* 144B* 1449* 1456* 1458
1263 0390· 1484* 1538
2165 0173 1413
1446* 0227 2217* 2221* 1569 1574* 1575
0985
2443 1475
1014
1046
1055* 1067* 1076 1149 1112* 1905· 1971 1986· 0163$ 0276* 0541 0710 0768 0817 1490 1491 1493* 1494* 1501 1515 1393* 1433* 1434 1436* 1881
2014 2252 2328
1609
1056 1716
1069 1747
0677 0679
0844 0847 2143' 2146
0594 0672 0776
2214* 2216 2218~ 2151 2255 0210* 0251 0253·
0254 0259 0268 0351 0353 0416
1787 1791
1485
0268*
1502 0874
0351* 1902
0416*
0525*
1561
2109 21H
0355
0926
1932
1954
1931 0224 0229 0164* 0262 0198 0215
0265 0631 1114* 1728 0357 0424
0756 0771 1209 1216
1908 1923
0279* 0310 0274 0321 067't 1074 1733 1737 0498 0526 0807 0824 1243 1279
1959 2158
1592* 159't 1639· 1624
2133 2133· 2135· 2136
2202
oszs
1302 0532 0834 1310 2173 2162
0568 0569 1363
1763 2138 2168
0571 1060 1337
2176
0577 111'4 1365
0589 1120 1370
2162· 2163· 2166
15.JAN76
825034
l4MAY76 825035
1234
1248 1861
1516
2201 0624
1144 1417 2196
1485* 1488· 1489* 2131 2415
1517 1518 1596
0667 0685 0690 1155 1164 1193 1667 1720 1748
2196· 2204* 2205
PROG ID PAGE
0890:,-3 32A l
············ ··············
·
·
· · · · · · · · · · · · · · · · · l · · · · · · · · · · · · ·· · · · ·
.L .. ~-·
IBM MAINTENANCE OJAGHOSTIC PROGRAM 8943 DA FUNCTIONAL TfiSTS
CROSS-REFEltENtE
PART NO.
PAGE
I 4Z34259f 33
JBH MAINTENANCE DIAGNOSTIC PROGRAM
l 8943 l r·\
.I '·~}I
DA FUNCTIONAL TESTS
CROSS-REFERENCE
PART NO. PAGE
lt23lt259
HA
SYMBOL l LEN VALUE OCFN REFERENCES
I c I SYMBOL T lcN VALUE DEFN
REFERENCES
DVBMSG A 014 294A 2582 DVHB A 004 2185 2151 DlT09 A 00? 1920 1465
2257
2137 1462
Fill A 001 4320 3577
I - FILLFF A 004 1FD5 2003 I FILTA& A 004 lf5D 1970
1408 1410· 1414· 1424 1426· 1533· 1613 1613· 0372 0537 0708 1068 1114 1252 1675 1690 1852 1915 1951 190~ 1921
EADR
EAU
EAUE
A 002 4178 3568 A 001 400A 3552 A 004 4000 3553
1400· 1405· 1438 0590
0590 0592
I
I
FILTR A 004 1F99 1987 FINEXP A 004 1030 1794 FIX A 003 1F09 l~
1970· 1789
1937
EAUHG A 021 2A8C 2595 EFOR3 A 001 34'1 2996 EJMG A 025 3E70 3502 ELIN A 002 ZFF7 2660
2335
. 1363·
2092
I
I
FIXST A 004 1A52 1563 FNO A 004 0889 0242 FORMAT A 004 1027 1790 FORMRT A 004 lDAl 1827
068.3 1535 0238 0320 1167 2381 1786· 1190$
EMODl A 002
EMOD2 A 002 ENA8L A 003 ENABLE C 001
411~
4179 1A9f
ooco
3562 3567
1581 0033
1~05
1400 1579 0822
1551
1523
I
FXRl A 004 1099 1825 FXR2 A 004 1090 1826 GETOEV A 004 0829 0200
I GET PS A 004 lCCC 1759
1794· 1795·
ENDP A 002 2Ff5 2659 206S
f GETSET A 004 23CF 2298 2295
f:io!DRT A 004 17FA 1376 1375
I GETST A 004 lCDJ 1761 1755
ENINTR C 001 0002 0032 ENQ A 001 25FB 2485 EORDl A 001 3182 2717
1619 1626
1075 1254 1721 1723 1149 1151 0880 Os82
I I
GO ACK A 004 18C6 1666 GOACKR A 004 l8F4 1680 GOAGN A 005 203A 2034
054& 0636 1768 1666· 1613 2069
EOROlA A 001 3295 2738 EORD2 A 001 3378 2804
EORD3 A 001 31tlD 2899
0884 0886 0910 0912 0941 ~9
I
I
GO ERR A 004 1CD7 1762
GOON A 004 2520 2432 GOSETP A 004 2074 2054
1760
2430 2050
EOROlt EOR05 EDRD6 EOR07
EOT
A 001 A 001 A 001 A 001 A 002
34F5 3582 36CE
37BF
2637
3034 3078 3168
3217 2527
0950 0976 1000 1029
0366
0952 0978
100~
1031
0629
1005 0670
0693
0796
0799
1123
1167
1373
1612
1677 2119
I GOT IT A OOlt
I GOUNLK A 004
.
GOUP HALT
A 006
c 001
HBUSV A 017
lBBA
21FC 1965 0222
2903
1659
~173
1485 0022 2577
1648 2170 1523 0211 2236
0304
0487
1544
1771
2390
2199
..,,.,.
EOTC c 001 OMO 0066
EOTMSG A 010 293C 2581
2181 0368 2121 2288 2387
2290
HOTPl A 006 2803 2564
... HEAD ...~-~ A 002 2402 2321 Hf ADA A 034 27FD 2563
0899· 0920· 0965· 0989'* 1018· 2318· 0870
EOTOUT A 004 1575 1164 ERR A 001 262A 2520
1104
0328· 0368· 0375· 0640· 0643* 0680· 0106· 0712· 0781· 0793· 0800· 0831· 0840· 0852· 1132· 1586· 1618* 1636· 1637 1651· 1654 1656· 1659 1674· 1761· 1775· 1778· 2014· 2073 2121· 2145* 2148* 2151· 2193· 2230 2231 2234 2237 2240 2243 2246 2249 2252 2255 2258 2261 2264 2267
I I
I
,,-.
HEADAO HEADP
\ 002 A 017
\.. · HEADlA A 034
I HEA018 A 022
I .- HEAOlO A 031
ZFDl 2914 2680 26C6
2833
2656 2565
2552 2553 2566
2030· 2~6
0900· 0904 0161 0325 1051
2064· 2-065 2353· 2357 . 2372· 0921· 0935· 0944 0966· 0970 0990* 0994
1019· 1023
ERR ATC A 004 255A 2451 ERRHL T A 002 24CD 2J91 ERROR A OOlt 22A7 2229
2270 2273 2339 2385 2429 2230. 2398
0329 0369 0841 0853
2276 2387
0376 1133
2279 2282 2285 2288 2291 2434· 2447· 2449* 2451·
0642 ()644 0681 0707 0713 1587 1638 1652 1655 1657
2294
0782 1661
2318
0794
1678
2328
0801 1762
2337
0832 1776
.l (_. HEAD 11 A fl45 I HEAD12 A 036
HEAD2 A 041 I HEA03 A 025
I HEA04 A 030 (~ HEADS A 027
2860 28&4
2bEF
2708 2726 2741
2567 2568
2554
2555 2556 2557
1241 1362 0347
04U 0475 0522
ERRORR A 004
ETEXT6 c 001
24E6 OllC
2402 3169
EWRT A 001 25F2 2480
1779 2015 2122 2147 2149 2152 2194 2229· 1000·
I ,.,_ HEAD6
I I
(
,
HEAD7 HEADS HEA09
A 037 A 032 A 031
A 005
2766
2786 27A5 2708
2558 2559 2560 2562
0565
0616 0659 0752
EWRT?. A 004 EWRT3 A 001 EXBUF A 007
EX BU FE A 001 EXFIL A 001
EXIT A 004 EXP A 008 EXPBUF A 001
2072 30FO
4014
lt12E 2E93
1885 3005 2073
2630 2679 3554
3556 2633 1643 2665 2631
0358 0360 0373 04Z5 0427 1391 llt09· 1415 1425· 1475· 1408· 1414 1424* 2004 2~· 1628
2019 0373· 0374· 0538· 0539· 0540· 0541· 0542· 0543· 0544· 0545· 0709· 0711·
I HEXAOR A 002 (" HEXAID A 011
I .· HI
A 004
HL TERR A 004
II (
JAP.2 IEXIT
I
INCQR
c 001
A 004
c 001
INCORM A 018
4130 394F
lDSC 24C8 OOAO
2533 0010 2978
3557
3264
1820 2390 0021 2438 0068
2585
1392 1392· 1431'· 1438 1098
1812 2015 1552· 2435 2448 2450 2452 0375 0712 0800 1674 2266
1440 2264
14'\0· 14'\7 2337
1451
0798· 0799· 1071· 1075· 1135 1183· 1184· 1186· 1181· 1188* 1190* 120~·
i IHCORP A 033 3BOE 3311
1137· 1141
EXPFL A 001
EXRIP A 001 EXR lPE A 024
USTR A OOlt FETCHS A 004 Ff FF A 001 FILAGN A 005
FlLFFR A 004
2Fl5
itl38 ltl76 lE90 lCDB
2FF1 182".l lFES
2648 3563 3565 1905
1763
265'1
1396 2006
1206· 1254· 1255· 1258··1259· 1260· 1261· 1262'· 1264· 1265· 1267 1288 1676· 1677· 1688 1853* 1858· 1859· 1860* 1861· 1862· lfi79 1887 1891 1895 1899 1902· 1903 1917· 1918· 1919 1920* 1~35 1957· 1990 1992 1997 1999 2005 2005· 2031 2039 2049 3558 3560 014,.. 1396 3561 1882 0310 2123
2051 2J63 2365 1399
2003*
1287· 1883 1956·
INIT A 004
I
INPN c 001
i ' INTFLG A 001
INTPNO A 014
, INT2 A 004
·,. INV
A 00°"
INVAOR A 003
INVMG A 026
\ .. INVMl A 002
1NVl42 A 002
INXR2 A 002
I C 101 A 004
0A57 0003
2610 28F2 2508 08EA
3C2A
'3091
3C2D
3C2F 2609 252F
0140 0076
2505 2576 2425 0255 3432 2670
Yt34
3435 2-(>CJS
2416
0134 0138
2237 2434 0778 0786 1611· 1634 2239
2~ 2508 0218 0228 0230 0232 0619* 0622· 0258 0619 0622 0165 0278
24U
1647 0236
2438·
DATE
26JUN75
EC NO. 825023
250C T'l5 825032
15JAN76
825034
14MAY16 8'5035
-- -- -
~----- -
_...:.... -- -· --- -------- --- -- -- --·-·------------·- ---- - -- - -
PRoG 10
i c 0894-Jj · ., DATE
PAGE
33 I
EC NO.
I
10
I
IO
I
I
to
-----------------·--------to
\Ai ·~·
~ -~,·.:.t'!!'.~;.. '.· ~· .·
·-···1·~-·~·"·
- ·:..--··"::..J·-.·.,/.~'· ··""
26JUN75 825023
250CT75 8250J2
15JAN76 825034
14MAY76
825035
PROG JD
.PAGE
089/t-3 HA
I
_ ---· .. ----·----.-- :....
__ . . --..., ...,,, .-.:.-.-;.
...... .. ...... . .... -..':" · ................,,,,_,..""""'""' ~- -·..=..,·..__._L<_,.~--. · ~-~
-
.::.~ .:...·. - .. '4.''--·".··_,-,.::::_: .. _·~r-··...,.·~:--:::~·:-::;.~
"""'' ·-1:::".n.~:;t:..r"~~~"!"""· ......:.... . )j~[~~·
......... '"".:" :~-~...- .:...· - 'l. 1.........1~ ........~.~~i-,· .. ~··'' - .....'!"~
,-
·--~- --~.
--~O~ ~ -'"'O~-T- _........ ,,,_;i:-,.,. .. '"-·;;i.,.':oo-¥J'.,-.""":'" . .,..,..,,,,..,~...., .. -..:1.,v-
··-----· ______ ___ -- - - -··--
·--·-~-~------~~-~..._.....
,
····---~--.------------
-·----···--
I
IBM MAf.NTENANCE DIAGNOSTIC PROGRAM
PART Nil.
PAGE
I
1
I ',I 42342591 34
IBM MAINTENANCE DIAGNOSTIC PROGRAM
8943 DA FUNCTIONAL TESTS
CROSS-REFERENCE
8943
I c,-
DA FUNCTIONAL TESTS
CROSS-REFERENCE
SYMBOL T LEN VALUE OE Ft~
IR
A 002
IRDE A 002
ITBE c 001
I TBER A 004
ITBHSG A 013
KATDl A 00-2
KAT02 A ooz
LCAR A 002
LCP
A 026
Ll NADR A 002
LINE A 002
LINES A 003
LINK c 001
2635 2641 0006 255:' 2804 4181 4183 261A
3CCF 2EF3 2607 OAOC 0216
2526 2532 0078
2449 2574
3571 3572 2510 Y.71 2646 2494
0012 0045
LOAD c 001
LOG A 001 LOGCAR A 010 LOGOEV A 009
LOGMSG A 001
02ZA
2562 25A8 256A 2590
0046
2457 2462 2458 2459
LOGSAR A 010 258C 2464
LOG ST A 013 259E 2461
LOGTAR 4 010 2562 2463
LOOP A 003 lFOC 1945
LOOPRl A 004 OA26 0127
LOOP13 A 004 1871 1412
LOZER A 003 1939 1469
LSAR A 002 26lE 2512
LTAR ll6 L26
A 002 Z61C 2511
c 001 0072 3106 c 001 OOAA 3170
Ml CLP A 004 OA8D 0152
MICNL A 004 OCAD 0328
HICNUI A 021 Z9C4 2589
Ml CPD A 003 4006 3547
MI CPFL A 001 3FFS 3544
MICPl A 001 3FFC 3545
HICPlE A 001 4007 3548
HICP2 A 008 40~3 3546
11 I CRON A 003 1A36 1551
MIOOR6 A 001 3625 3105
MISCOfoi A 004 lFF4 2015
MISOAT A 015 2912 2578
HNL c 001 OOOF 0085
MODIFY A 004 1A84 1574
MODMGl A 034 37E7 3221
HODHGZ A 013 37f4 3222
HODHG3 A 008 37fC 3223
HO DST A 004 lAlel 1558
HODSTR A 004 lAAS 1584
MOOXR A 004 2504 2419
MODl A 004 0043 03S6
MOOlL A 002 4170 3569
M002L A 002 417f 3570
MOR6 A 001 366(. 3129
HOH A 004 lf7F 1980
MPCS c 001 0017 0083 MPlNT c 001 0016 0082
HPMGl A 036 29E8 2590
HPHGZ f. 051. 2AlB 2591
MPHG3 A 043 2A46 2592
HPMG4 A 020 2A5A 2593
~PHG5 A 023 2A7! 2594
HSGBLK A OJl 2591 2.ft.60
REFERENCES
2197
2246 2449 2436 2248
0142 0144 0143 1602 1621 2030
1264 2047 0162* 027h 1486 0140 0195 1235 0303 0311 0391 0898 0919 0931 1231 1233 1236 2418 03llt
2353
1495
0461
0~40
1277
1499* 1505· 1506
0510 0550 0600 0959 0964 0988 1289 1296 1348
1506· 1508
0638 0701 1012 1017 1773 2167
1508· 1509
0845 0865 1043 1045 2183 2203
0893 1168 2392
1599· Z30l 1517· 1596* 1595* 1597· 2233$ 2236* 2239* 2242· 2245· 2248· 2251* 2254· 2257· 2260* 2263* 2266* 2269· 2272* 2275· 2278· 2281· 2284* 2287· 2290· 2293· 2296* 1601* 2311 2327 1598· 2H6 1600· 2306 1949
0124 1:.39 1442 1460 1605$ 1623 1602· L603* lo04* 1622 1633 0999 0999· 1000 0155 0149 0153 2263 01b8· 0769· 080611< 0767· 0775· 0803 0805* 0823· 1532· 1643 0772 0808 0772 0774 0798 0808 0810 0816 1548 0999 3170
2254 0328 2261 1559* 1564* 0353· 0354· 0385· 0355· 0389 0393· 0663 1558· 1563* 2412· 2414 Z416 0383 1406 1401
1977 0831 0781
2281 0792 0851 2284 2287 1595
1985 2282 2279
2322
I SYMBOL T LEN VALUE DEFN
I I
MVCHR A 004 lClO 1692 MVDATA A 005 18.25 1615
I
MVXRl A 004 lCZO 1699 MVXR2 A 004 1C31 1700
NAK
A 001 4008 3549
NAKE A OOZ 4009 3550
NEWA ID A 005 1583 1170
NEXT A 004 OA08 0175
NEXTB A 006 1068 1809
NOAID A 001 3098 2671
NOEOT c 001 0014 0080
NOERR A 008 2606 2599
NOINT c 001 0007 0079
NOINTR A 012 28C7 2573
NOKAT A 003 0A71 0145
NOP
A 006 248E 2371
NOPA2 A 004 14E2 1113
NOPRTN A 006 208E 2064
NORA ID A C06 15CE 1190
NOROUC c 001 0088 0035
NORDY A 003 lA30 1549
NOTAVL A 020 28BB 2572
NOTOS A 004 08C7 0246
NOTEOT A 004 10"17 0706
NO TROY c 001 oose OOl't
NOT8F A 006 0801 0249
NULL A 001 ZEEC 2641
NULLS A 004 1E7E 1901
NXTAIO A 003 156C li6l
NXTKEY A 004 155A 1154
NXTMPT A 006 1135 0796
oc
A 002 3C31 343f.
OHOH A 004 1008 1778
DK
A 004 0A30 0133
ONE
A 003 2620 2521
ONFLG A 004
OOPSl A 004
\,. OOPS2 A 003
OOPS3 A 004
OOPS4 \'... OOPS5
OPT3
(
OPT4 OPTS
A 004 A 004
c 001 c 001 c 001
ORDl A 001
(
ORDlA OROZ
A 001 A. 001
ORD3 A 001
f CRD4
\ ORD5
A 001 A 001
ORD6 A 001
OR07 A 001
PASSl A 001
PATl A 004
PAT2 A 004
PBUF A 001
PBUFBL A 001
PEXPST A 004
PFLG A 001
PHO
A 004
PHEAO A 036
PHEJ\DA A 038
PHMSG A 004
i,_
PL ENG
PL INBL
A 002 A 001
2600 1518 1502 2237 lAAC 107F 0008 0010 0020 30F6 3163
3296 337C 341E 34F6 3583 36CF 2629 1E59 1E36 2EF2 2F3A
1014 26.?7 12E9 2FCF
ZFA& 2402 188A 2F85
2501 1132 1126 2193 1586 0706 0037 0038 0039 2682 2718 2740 2805 2900
3035 3079
3171 2519 1891 1883 2645 2651
1786 2517 0941 2655 2654 2394 1418 2653
REFERENCES
1691 1610* 1611* 1612* lu86· 1696 1687· 0835 0835 0837 1163 0190 1805 0352* 0394* 0540 1860 0706 2273
1597 0793 lE-36 2249 2251 0141
2366 1102 1106 2052 1182
2432 1547
0244 0671 1547 0247 1901 1865
1152 1110 0787 0634
0633 0130 0154
2163 0171 1127
1078 2199 1571 0616
1624
1112 0811 0641
1765
1136 2120
0191 0239 0449 1398
2204 Z2Zl 2522 0171* 0172* 0180* OZ09 1323
1576
0880 0384 0')10
0947 0950
0976 1003 3106 3169 1029 0128* OUl* 0133 1871 1875
0208* 0280
2016 2341
0933 2025 2347 2348
2386 2388 1401* 1406* 2017 2080
1433 1437 0209* 0242
0281*
CATE
26JUM75
EC NO. 825023
Z50CT75 825032
15JAN76 825034
l4MAY7b 825035
PROG ID
PA~E
I r-~
0894-3, ".., OATE
34:
EC NO.
c ~
26.JUN75 825023
250CT75 825032
15JAN76 825034
14MAY76 825035
1570 2495
1604
PART NO. PAGE
lt231t259 31tA
':J
1645 1916 2135
PROG 10
PAGE
0894-3 31tA1
I -
0
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
c . ! ·
·
·
·
·
·
·
·
·
·
·
·
··
·
·
·
· · · · ·· · · · · · · · · · · ·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
I BM MA lltl'ENANCE 01 AGNOSTl.C P&OGAAll
894·3 DA FUNCTIONAL. TESTS
SYMBOi. T LEN VALUE OEFN PUNE A 001 2F84 2652
POLFLG A 001 2658 Z542
POU POlLl POLPR
POL.ST
A 002 A 004 A 006
A 002
2651 OCOl 2174
2658
2539 0265 2135
2544
PORDl A 002
PORDlA A 002
PORD2 A OOZ
POR03 A OOJ
.PORO.. A 002
P.oR05 A DOZ
PORD4 A 002
PORD7 A 002
POUT A 001
PP
A 004
PPR
A 004
P.P llR 1 A 004 PPXR.2 A 004
PRINLN A 006
PRINT C 001
1232
1238 1282 UFA
uoo
U4A
UK l3E6
20A7
2088
ZlOO 2105 2109
2080 02lA
0882
0886 0912 OM-9
0952 0978
1005
lOJl 2070
2077
2099 2091 2098
2059 0023
PRINTR A 0D7 PRTN A DOl PRlMG A 004 PSOEY A 002 PSR C COi PSROUR A OOlt PSROUT A 004
PSRW A 002 PSTAT A 004
PUTP A 003 PWACK A OOlt PXRC A DOit PXREX A 006
PXREXA A 004 PXRM A 004
PXRNL A CiOlt PXRRT A DOit RAP A 004 RBEXI A OOlt RBFLG A DOI RDB A 001
ROBE A DOit RDBXAl A OOlt RD8XR2 A 004 ROERR A 004 RONDO A 001
RDMOOE A OOlt READBF A 004
R EADBR A DOit REA02 A 004
READ1 A 004
RECD A 008 RECFl A 001
RESTfl A 001
REST2 A 004
RINXRZ I. 004
RIPOAT A 001
3803
OA03
OCAl
2SFA
0004
1087 1DA5
2618 1CE6 20E8 ICFD 2486 1Ff8
IFE9 24JA 2·62 2080 1E68 ZE98 2E9" 2600
2603 1F4B lf4F lFFO 25FC 25FF
1088 1F59 0020
OEOA
3000
2F:J9
Z60E
1870 195'>
2E99
3224 0008
0322 Z48"t
0020 183' 1829 2509 1161 2089 1TI5 2167
2016 ZOU 2343
ZJ55 2014 1899 2635 2634
2490 2491 1965 1966 2014 2481 2488
1851 1968 0378 0'57
2666 2650
250J 1640 1483 Z6J6
CROSS-R.EFERENCE
REFERENCES
2017· 2018· 2019* 2020· 2024 2059· 2063 2080· 2081· 2082 2365 2370 2660 0266 0632 0675 1077 1079 1727· 1732· 1736* 1739* 1764 0542 1715 2132
2142 0317 0634 0671 0843· 0844 2197 ll02 081'5 0811 0907 0932 0914 0913 0998 1026 2066 2054 2071· 207e- Z09J
20~
2053 0158 0200 OlOtt 0255 0269 0386 0410 0472 0479 0483 0867 0901 0941 0967 0991 1169 18i3 1830 2021 2026 2349 2367 2376 2382 2391t 0393 1376· 15J6 0136 17164' 1747· ZIJI· 2427 2428· 2441· 1829* 1797 1807 2427· 2441
2085 UST 2364 201J 2331 2336 2338 1142 1335 2340 2374
ZOU·
1869 0539 18'9 1857· 186~ 1866 1868 1870 1909 1853 1909 1911 1854· 1855· 1939 1991 1993 0533 053J 0535 05J8 0378 0457 0506 0584 0596 1851· 1856 1967· OJ6J 0197 Ott53 Ott55 2018 201~ 20ttJ Z049 2051 2059 0121 011s osa.- 1117e 159J.· 0165" 02l&e 1498e 151~ 1898
PART NO.
PAGE
lt23't259' 18~ MAINTENANCE -DIAGNOSTIC PROGRAM
35 i
I 8943 DA FUNCTIONAL TEST$
i (J
CROSs-REFERENCE
2Q25* 2n29 ZO!~~ 2035· 2038 2042 2058 2083 2347· 2348· 2352 2358 2362 2363 1081 1256 1272 1276 1303 1305 1307 2139 2169 2171 2182 2189
1128 1130 . 1321 lTll 1717· 1731· 1793
0284 0519 1020
2055
0289 0562 1048
2060
OZ93 0613 1138
2011
0297 0656 1238
2319
0312
07~9
1330 2324
0322 0789 1359
ZJJZ
0344 0848
1540
~343
1812 1874 1816 2330
0763 1429 2081
I
I
SYMBOL T LEN VALUE OEFN RIPOT A 028 2EEA 2639 RIPENO A 002 4136 3560
RIPHD A 001 ZEAA 2637
RIPPLE A 004 1E73 1898
RIPRST A 002 4138 3561
RIPST A 002 4132 3558
RNST C 001 0018 0084
RPTCH A 001 3812 3228
RSBEOT A 016 299E 2587
RSTHMG A 033 2061 2626
RTNFLG A 001 2FFD 2664
I 1
RTNOA A 001 RTNOB A 001
I RTNOC A 001
' RTNOD A 001
ll'I
RTNOE
RTNOF R TNOl RTN02
A 001
A 001 A 001 A 001
I j
RTN03 A 001
RTN04 A 001
·.I
I I
-
RTN05 RTN06
R1N07 RTlt08
RTN09
A 001 A 001
A 001 A 001 A 001
RTllll 0 A IJOl
II ......r RTNll A 001 RTN12 A 001 RTNl3 A 001 ;-- RTIHl T A 004 '· RTlMG A 030
I RllMGl A 038
I RT1MG2 A 030
I
RT1MG3 A 022
RTJCW A OOlt
II RT3HD A 002 ( RT60V A 013
I RT6P A 001
I ( R T6PE A 001 I RT6T A 001
RT6TC A 001
. RT7P A 001 ( ,, RT7PE A 001
RVI
A 002
. RVIMSG A 013 ( , RVIS C 001
RXIU A 004
- R04MG A 024 ( R04MG2 A 048
R09UP A OU
R09P A 001
· R09PE A 001
R09PS A 001
RlOUT A 006
'- R IOST A 004
RllAT A 004
- RllB A 004
I.. . A.UCB A 004
R llER A 004
I
RUERR A 004 RllEXl A 004
'-· ! I Rl1EX2 A 005
.I, ::~:1 ~:
UFO 1239 1283 1301 13"8
1390 OAOD
OCB5 0060
OE15
0£86
OEFA OF64
OFOO
lOAF UE7 1629 17Cit 1806 OC6A 2040 2C5A
2CAA
7.CFl 3090 30Af 381F 3BOF
~862
3863 3887 3C24
3C28
2638 2932 0020
2Z9f 2ACE ZAFE
3EEO
3E9C
3EEE JEAO
OClE 1429 1164
1705
1777 1783
nco
JE9& JE98
16U JE9Z
0860 0888 0914 0954 0980
1007 0117 0340 0406 0468 0515
0558 0609 0652
0145 1038 1226 UM
1386 0304 2625 2619 2621 2623
2674
2677 3314
J31Z 3348 3350
3366
3430
31t33 2529 2580 0065 222J 2591 2598 J!514 3507 3515
3509
0276 1059 131,
1285
1321 1329
1349
3505 3506
1216
3504
REFERENCES
0142· 0143* 0417 1434 0420*
1867
lltJ6 1393 1880 0840 2285 0477· 0491· 0505 2275 2397
0349· 0384· 0392· 0438 1042 1230 1402 2108 0747 0862
o08ca9u0
0956
0982 0010
0119 0342 0408 0470
0517 0560 0611 0654 1009
1040 1228
1356 0302 0300 0287
0292 0296 0418· 0419· 0435· 0436 0420 056a.
0572 0572 0574 0578 0578 0580
0625
0625 0621 1754 2269
1161 2267 2385 2215· 0482 0486
0452 0620 08lJ 2191
044~ 044e-
0757 075'MI 0757
1888 0119 026J 1053 1508
0759
0762·
UOtt 1269 1291 IJZ9* 1344
1248· 1253· 1255 1260
1268 lJll
UJ~
~92
0918
0925
PART NO. 4234259
PAGE
JSA
0958 1011
DAlE
26JUN15
EC NO. 825021
Hot'f15
825032
UJAN76 8Z50J4
1411AY16 8250H
l
PROG ID
P~E
089-\-~ C DATE
35 I EC MD.
io
I
l,, o
I
:I o
26.IUN75 8.ZSOZJ
Z50CTIS 825032
l5.1Ml6 825014
lttllAY76 82503'
!{)
- ·. ~':."
JIROG ID
PAGE
. ,
L
-
·
IBM MAINTENANCE DIAGNOSTIC PROGRAM
8943 DA FUNCTIONAL TESTS
SYMBOL T LEN VALUE OEFN
RllP A 004
RllPA A 004
RllPB A 004
RllPL A 004
RllPOL A 004
RllPOR A 004
RllP l A 001
RllPl E A 001
RllP2 A 001
R llP 2E A 001
RllP3 A 001
RllP3E A 001
RllRTN A 004
R llRT l A OOlt
RllRT2 A 004
;{llTE A 006
RllUNl A 004
Rl2P A 001
Rl2PE A 001
Rl3EX A 004
R3M2 A 004
R3NXT A 004
R3PTR A 004
R3WPR A 004
R4WRT A 001
R4WR TE A 005
R4WRT l A 004
R5EXP A 021
R5WRT A 001
R 5WR TE A 001
R6EDV A 010
R6EXP A 001
R6EXP 2 A 001
R7Ml A ON
R8CHR A 004
R8EXP 1 A 006
RSEXP2 A 003
RBFlX A 004
RS LOOP A 004
R8P
A 006
RB Pl A 001
R8PlE A 001
R8P2 A 001
R8P2 E. A 001
R8P3 A 001
R8P3E A 001
R8P4 A 001
R6P4E A 001
R8Tl A 002
R8T2 A 002
R8T3 A 002
SAR
c 001
SAVAID A 001
SAVEX A 006
SBYTEO C 001
SSYTE2 C 001
S8YH3 C 001
SBVTE4 C 001
1739 l7AS 1701 1660 1735 1773 3C7l 3047 3048 30AF
3CBO 3E53 1793 1655 l6EF 1683 1756 3E54
3E7l 1E2A ODDC 0061
ODFC
OOE3 3808 3817 OE63 3642
381A 3846 3894 3888 3808
OF88 3C62
3C69 3C6C
lOZC OFEA
OFFS 1C3B 3t;44 3C45 3C50 3C51 3C5A
3C58 3C63 l0A2 lOAB
lOAE 0089 2661 1893
0208 020A 0206 020C
1302 1342 1284 1249 1301 1319 3465 3478 3479 3489
3490 3499 1336 121t2 1278 1264 1310 3500 3503 1879 0443 0431 0452 0445 3226 3229 0498 3237 3231 3239
3371 3368 3403 0624 3459
3461 3462 0683 0663
0668 1442 3445 3446 3451 3452 3456 3457 3460
one
0721
0724 0028 2s4a
1424 0040 0041 0042 0043
SBYT E5 c 001 SCAR A ooz
SEL
A 002
SELE CR A 004
SELECT A 004
0200 2620
2653 1010 lC9A
0044 2513 2540 1781 1745
CROSS-REFERENCE
REFERENCES
1309 UJ4 1322 1273 1295 1346
12lt9 1284 1301· 1306 1244 1244 12't6 1280
1280 '1282 1338 1338 1340
1342 1316
1275
1293 1257 1251 1366 1366 1877 0439
1286 U68
1318
0437
0441 0494· 0497· 0499 0499 0501 0496 0541
0527
0527 0529 0569· 1892 1884
0621 066lll< 0695 0697· 0700 0710· 0711 0678 0699 0704 0662* 069611< 0703* 0716 0716 0716 0119 0719 0721 0722 0722 0724 0686 0686 0686 0662 0696
0703 1623· 1631 1266* 1347
0102*
0123 0301 0125 0137 0197 0306* 0476
0446 0495 0864 0894 0960 0962 0963 0984 2413
0829 1629· 2300 1746
17458< 1753 1759* 1777 0350 0396 0415 0454 0684 0755 0761 0996
1336 1364 1412 1428
0896 0986
0493 1059 2157
1044 0897 0987
0504 HOO
1052 0927 1013
0524 1143
1232 0929 1015
0531 1154
2l6lt 0930 lOH·
0567 1192
0936
0588 1208
DATE
26JUN75
EC NO. 625023
250CT75 825032
l5JAN76 825034
14MAYT6 b25035
· · · · · · · · · · · ·
PART ND..
PAGE
4234259 IBM MAINTENANCE DIAGNOSTIC PROGRAM
36 I '
;. -·
I \
8943 DA FUNC Ti ONAL TE ST S
r-..:
"·
SYMBOL T lEN VALUE OEFN REFERENCES
CROSs-REFEREN&E
0938 0939
one 0665
1242 1278
SELPEN A 006
SELPEl< A 010
SHP~ A 001
SENOTP A 004
SENT PB A 004
SET
A 004
SETEXP A 004
SETEXR A 004
SETFL A 003
SETFO A 004
SETH IN A 003
SE TIN !>. 004
SETMGl A 030
SETMG2 A 034
SETT SN A 003
SETUP A 004
15F9 3FFA
25F3 2180 21Cl 081E 18F8 1C35 0807 0843 1933
0015 3058 3070 OADF
19F9
1205 3543 2482 2157 2158 0194
1685 1701 0250 0210 1467 0372 2668 2669 0176 1531
SETUPR A 004
SF 1
A 003
SHIFT A 004
SHIFTR A 006
SINCHR A 002
SIOI c 001
SIONIN A 004
SIX
A 002
SIXTEN A 002
·~ S«IPTR A 004 SKI Pl A 004
SKTOSP A 001
\" SM2
A 004
SNAK it 004
SNSARE A 002
' '.. SNS LP A 004
'
SPB
A 004
SPFLD A 006
SPRTY A 004
SPXRP A 002
SP6HLT A 004 J~ SSAR A 002
SSN6
~ SST AT
'-.._ SSWFL
...I SSWOl
Ii t
SSWlO
SSWll
SSW12
jC I - SSW13 SSWl'~
SSW15
! (,.
SSW2F SSW20
A 002 A 002 A 001
c 001 c 001 c 001 c 001 c 001 c 001 c 001 c 001 c 001
1A30 OC96 0803
1984 3819 0058 1868 2631 2FF3 1408 OC74 3AAC 1850 1181 3C33
1A6C
0053 25F8 1618 37C5
lCEE 2624
3C37 2626 3099 0040 0080 0040 0020 0010 0008 0004 0001 0080
1553 0319 0187
1506 3230 0016 1636 2524 2658 llll 0308 3300 1407 0834 3437 1569 0392 2483 1216 3220 1769 2515 3439 2516 2672 0047 0048 0049 0050 0051
0052 0053 0063
005'~
' ,,,.. SSW21 c 001
SSW22 c 00!. SSW23 c 001 SSW24 c 001
SSW25 c 001
SSW26 c 001
SSW27 c 001 SSW28 c 001
STAJO A 005
STAR A 002
..__.
"
START STAT SL
A 004 A 001
L STATFL A 001 STATHE A 030
0040
0020 0010 0008 0004
oooz
0001 0080 lCBD 2622 OAll
2C04 2C03 2BE5
0055 0056 0057 0058
0059 0060 0061 0062 1738 2514 0121 2616 2615 2614
1058 1206 1721 0976 1001 0169
U.77
1749 0878 0908 0945
0169· 0170· 0180
0974 0181
1027 0181· 0182
1685·
0249· 0252 1470
0367 0203 0207 0192 0157 0348 0414 0492 0523 0971 0995 1024 1047 1237 1531· 1510· 0188
1507 0505· 1885· 1889· 1893* 1896 0145 0146 0147 0152 0813
0~6
1358
1978 0814
0617 U90
1549
1639
~064
1108 0202 0:326 1054 1403
0830 1569· 1573 0365 1715· l 7'~b*' 2132· 1151
2373
0829 1631* 2:310 3463 1632· 2315
0127· 0129 0132·· 0123 0301 0137 0197 0306 0125 0306 2164 1052 1232
104"· 1232 0476
086'~ 0894 0896 0927 1015 0897
0930 0939 0963
0987 1016 0446 0495 2!'1113
1735 1630$ 2305 1609 1834 1788* 1792· 1806· 1833 1787· 1788
0929 0936 1830
0938
PROG JD
PAGE
0894-3i
3~ i
r
'-··
DATE
EC NO.
;o
26JUN75 825023
2SOCT75 825032
l5JAN76 825034
l
Q I
i
I
I
·
·
i 0
i
F
·
·
·
·
·
14MAY76 825035
·· ·
· ·
PART NO,.
PAGE
lt231t259 36A
~f·
0182· 0183 0183· 018lt
0660 075!1 0871 0905 0922 1550 1566 1567 1581 1582
0960 0962 0984 0986 1013
PROG 10
PAGE
0894-3 36A
· · · · · ·
. ,
·
·
·
·
-·.~ .,~ t,.
·
·
·
·
·
·
·
·
·
·
·
·
~
I
·
·
·
·
·
·
·
·
·
·
·
·
·
·
JBM MAINTENANCE OIAGNDSTIC NOGRAM
37: PART NO.
PAGE
4234259'
18" MAINTENANCE DIAGNOSTIC PROGRAM
PART NO. 4234259
8943 DA FUNCTIONAL TESTS
I
PAGE
37A
SYftBOl T LEN VALUE DEFN
CROSS-REFERENCE REFERENCES
I 8'illt3 (i
I
DA FUNCTIONAL TESTS
CROSS-REFERENCE
STATMS A 030 STATR A 003
STAT RC A 005
STATUS c 001
STOAT A 002 ST DEV A 002 STHG A 001 STFXRl A 004 STHLT A 002
28.C. 7 2MC llCB 0088 2EFl
265F 3C3A 1E8C 24E5
2613 2537 0843 0029 2644 2546 3441 1904 2400
1791· 1792 0838 1729 2379 0839
1632
1880· 1904· 1979· 1984 0163 0276 1534 1560· l!i65· 1577 1886 1890 189it 1897 2398·
1578· 1580· 1900
I
SYMBOL T LEN VALUE OEFN
I TSTAIO A 005 1493 1089
i I
TSTAT A 005 1C6A 1729 TSTA TT A 004 2518 2429 TSTS A 004 1061 0700
TSTEOT A 005 2145 2119
TS TERR A 004 l86F 1637
TSTHLT A 004 2"8A 2385
TS TROY A 004 1845 1624
REFERENCES
1093 1726
0696 2113 1635
2380
1644
....
STTAB A 001
STXRP A 002
SUTR A 006
S2SEC A 003
TAOC A 004
TAIO A 004
TAR
c 001
T8IT A 003
TCOUNT A 001
2BlA 37C3 1!;88 1115 0BA2 21F5 OOSA
1059 2FFC
2602
3219 1186 0784 0237 2171 0027
18~
2663
TOONE A 004
TDOl A 003
TEI NC A 004 TERM A 004
1 ERROA A 004 TERR OS A 004
TERRoC A 004 TERROF A 004
TERR 10 A 004 TERR 13 A 004
TERR14 A 004 TERR15 A 004 TERkl6 A 004 TERR17 A 004 TERR18 A 004 TERR2 A Ou4 TERR20 A 004 TERR3 A 004 TERR4 A 004
TERR40 A 004
TERRS A 004 TERR6 A 004
TERR 7 A 004 TERR8 A OOlt TERR9 A 004
TE ST c 001
TEST AG A 004 TETX A 003 THREE A 002 THREE2 A 002 TLDN A 003 TLIN A OOlt TM PC NT A 004 TMPOE A 003
TOOK BA A 004 TPARM A 006 TROY A 004 TRESPR A 004 TRESllX A 004 TR ES PO A 004 TR'CSPl A 004
lFBD 19EB 2427
OC84 2326 2365 23C2
2333 2340 23SA
2367 2374 2381 238E 2398 228E 2340 22CB 2208 23A8
22E5 22F2 22Ff
230C 2319 0212 lf lC 1Ef2 262F
37Cl 1940 OAE2 1152 ll6F OFC8 21CA lA29
215A 211C 2111
2118
1984 1521 2337 0312 2258 2291 2294
2261 2264 2270
2273 2276 2279 2282 2285 2234 2267 2237 2240 2288
2243 2246
2249
2252 2255 0025 1950 1936 2523 3218 1471 0178 0803 0813
0643 2159 1547 2125 2107
21~
2106
TRR
A 003
TRSKIP A 001
TS
A 004
TSSW A 004
TS SW FL A 004
15EA 3A6A 2228 0621 OA2E
1200 3293 2189 0197 0129
DATE
26JUN75
Et NO. 825023
2SOCT75 825032
1802
2354 1179 0779 0222· 0239* 0241
1622· 1630
1799* 1800· 1809 0213· 0214 0216 0422· 0440 0443 1975
1809· 1811 1813 0217 0219 0223
0449· 0490* 0491
1814 1816· 1817· 1818 0225 0231 0235 0243 1863· 1916·
1511·
2329
2186 2207
2256
2289
2292
2259
2262
2268
2271
2274
2277
2280
2283
2232
2265
22l5
2238
2286
2241
2244
2247
2250
2253
1441 1718
1947
1942
1967
2371 2372
1464 1466 1468
0173· 0174· 0175 0797
0175· 0176· 0186· 0187
018~· 0189
0191*
0804
0630
0875· 1537
0877· 1539
0907·
0932*
0934·
0973·
0998·
1026·
2107· 2115 2117 0429 0582 2105
1820 0246
1821 0382
0503 12"7 1080
1111 2172 0185 0122
0530 1283
0126
0575 1341
0593 1369
0689 1422
0760 2160
1065 2177
1118
1148
1159
1197
1213
TSTREQ A 003 264F 2538
TTR
A 005 1C7E 1734
TWO A 002 3AOB 3306
T2
A 004 197A 1490
T3
A 004 1980 1495
T4
A 004 l9A2 1501
UCP
A 026 3080 3484
UNEXP A 019 2925 2579
UN ITC A 004
UNITCH c 001
UNITNR A 018
UNK c 001
UNKOW A 016
254A 0001
o28oAoc7
2969
2447 0075 2571 0067
2584
UNLOCE A 005 30F5 2681
UNLOCK A 001 30Fl 2680
UNPACK c 001 021E 0024
UNPKA A 002 2471 2361
UNWACK A 015 2959 2583
·, UNX
c 001 0004 0064
UPDATE A 004
UPDR
..... UPHEX
A 004 A 006
UPIT A 004
UPL
A 004
UPLWR A 004
UPTCNT A 006
USE AST A 004
1959
19F5 l8C3 20EE OAEE 1E4A ODF2 OE'tC
1482
1525 1437 2091
0181
1887 04t49 0492
"· WACK A <'02
WACKE c 001
~-- WAIT OE A 004 \_., WAITPB A 004
I WAITPR A 004
I WARN A 043 (_ WA SAO A 004
I
"'CC
A 001
C I
I
'-HAT WORK
A 004 A 002
2639
0008 .:?252 215E 2181
268E
ooco
25CO 2lA9 2FF9
2528
0072 2201 2130 2150
2550 0435 2472 2148 2661
·I! C.4 WRSTJ4G A 017
cII
WRT
A 001
WRTAOR A 003
I
WRTAID A 004
I I (
WRTCMO A 001 WRTERM A 004
I WRTFLO A 003
I WR TOK A 006
I' '
i
WRTRT2 A 001 WRTR3 A 001
WRTR3A A 004
I WRTR3R A 001 WXYX A 001
I XL ATE A 003 \..... XMI TE A 001
Z9AF 2'500
25C3 1504 2628 l53A 25BF
2105 2062 309A
ODA3 30EF OAOO
1918 431F
2588 2470
2473 1192 2518 1143 2471
2163 2627
2673 0424 2678 0004 1459 3576
I' o..
15.IAN76 825034
14MAY76 1125035
PROG ID PAGE
n, C 089-\-31
DATE
EC NO.
Iv
26JUN75 825023
250CT75 825032
1186 1258 1734 1730
2218
1487
1492 1496
1261 1287 2242 2432
2231 2447 2233 1778 2148 2294 2296 1311 1313 2174 1311 2174 1095 1513 2036 2354· 2371* 2373 2293 lH:> 2193 2240 0261 0308
1482· 1504 15'22 1435 2088
0179
1873 0442 04it4 044/ 0478
036.ft 1756 2112 1775 2291 2198 2206 0395 2114 2130· 214-'t 1543
~33
2176 2040
2044
2298
2303
2308
2313
2355
2359
2140
0147·
0641* 1395· 1473· 22;9
01't8
0679* 1398· 1568
0152· 0847· 1451· 1568·
0219·
1072* 1452 1!70·
0220·
1087· 1452· 1572
0221· 1089 1453
1695·
0226
1097 1453· 1696
0233· 1101 1454· 1793·
0237 1105 1455· 1801
0240
1113· 1456 2091·
0240·
1171· 1457· 2092
0249
1202· 1472 2H6·
1185 1189
2187 2190 0358
0425 0450
OU7·
1474 0359 0723 1030 1367
0426 C758 1062 1669
0500 0773 1116 1722
0528 0809
1146 1750
0534 0836 1157 1910
0573 0881 1195 1925
0579 0885 1211 1961
0591 0911 1218 2175
0626
0948 1245
0687 0951 1281
0711 0971 U12
0720 1004 1319
15.IAN76 825034
l4NAY76 825035
PROG 10
PAGE
089+-3 JlAJ
,_
I
'cI l
I
' 0t
I
- ---··---
--- - _. - ·--
--.~- ...
... -·-.--~--·
- _. -- iIO ...... -·····- __,,_ ....-........._................
·----·· ............ ~
~-·-
_..
- -- -- -
+ -·- ----... ~
·
·
P.~R; 11:(1.,. PAGE
i;23(;259 38
PART N'.J,. PAGE
8943 DA fUNCYIONAL TESTS
CROSS-REHRENCE
OBJECT CARO LISTING
SYMBOL 7 tEN VALUE OEFN
XMJTR C 001 OOSA 0031 XMITRC A 001 '·200 3575
XMRCMG A 013 39f5 3279
XRl
C 001 0001 0017
XR2
c 001 0002 0016
xx xx
XOlFE Xl X2 X404B
X7200
ZERO
A 004
A 002 A 004
A 004
A 002 A 002
A 003
2657 3C35 2537
253B
3908 2663
2o2C
2541 3438 2439 2440 3278 2549 2522
REFERENCFS
1626
0692 0709 0785 0785 0796 0816~' OEll'f"" 0818 0818* 0619* 0820* Q826
0827 0999· 1000$ 1122 1135 1166 l26? 1288 1372 l3Vl· 1394 1404· 1407· 1'+09 1415* 1419 1420 1425 1606 1614 1614· i~ag 1934· 1990
1992 1997 1999 zon 211.o 2U'.l0 22!9 2219 2220 2220 2510 2659
3219 3220
2020 0167
2346 0168· 0169
0169
0170
0173
0173
0114
en 1s
0175
0176
0180
0181 0181 0182 0Hl2 0183 0183 OHl4 Olb6 0187 0187 0109 0191 0242· '0245 0245· 0248 0248* 0250 0362 0364 0366 0629 0670 0838
0843 1084 1087 1088* 108 J 1091 1.091* 1092 1094 1394* 1396 1397
1397· 1458* 1459 1461 1463 1465 l4b7 1469 1471 1471* 1509'1< 1510 1511 1594· 1603 1605 1608 1610 1 ~ll 1612 1633* 16"12 1686 1689"° 1692 1693 &.693· 1695 1699* 1725 1729 1731 l 734 1738 1752 1754
1756 1794 1801* 1804 182511< 1854 1856* 1857 1858 1881* 1684* 1888*
1892· 1896· 1898· 1901* 1904 1905 1934* 1936 1938 19'1-0 1940· 1965·
1971· 1974 1976 1978* 1979 1980 1981 1981* 1984~.< 1986 2031· 2034
2067 2067· 2078 2082* 2094 2086 2089 2091 2094 2094* 2097"1: 2112
2116 2119 2141 2143 0319 1054* 1055 1057
H49· 1161 1161* 1162 1483* \497 149700: 1498
2215 2216* 2211 1066* 1067 1070
:u 70 1172 1175
1519 1521 1593
2223* 2379 1076* 1084 1176 1178 1606* 1615
2425 2439* Ull* 1126 1137 1180 1161 1200
1640* 1687 1668*
1092 1694 1694~ 1698 1700* 1795 1802* 1806 1810 1810* 182!>* 1855
1879· 1883* 1887· 1891* 1895$ L899* 1903* l ;19'" 1935* 1941 1941* !.944 1945 1945* 1946 1948 1966* 1972 1980 1982 19820: 2032* 2035 2068
2068"' 2079 2083* 2084 2087 2090 2095 2095* 2098* 2426 2440*
1598 1599 1600 1601
1'572
2425*
2426*
0544
0148
2428
0 E H THE CH/..RAC 'fER IND!CATES fl. BLANK COLUm~ AMO THE CHARACTERS
INDICATE NUMERIC SHIFT ..
CL l THROUGH 16 Ct l 1 THROUGH 32
Cl 65 THROUGH BO CL Bl THROUGH 96
. T+-V:SM<
B-7
H-Z5<JU! BYZ@YO
34258 EC 025035
$
0
-
·
li f. ~ICi ACHOS- i1
.
9IWI &2_! HWOT3
894 DA FUNCi!ONA
..
+m-00+0 CBf H&A3/
-.
H@/ DCH~<GT-AB-3
l TESTS
·
0
U ZJ.C O>:UfAC 0
. ..
Al/HW·* -BY7 /lX
W~L4 <IX2-&-@ BQ
..
>50FCC AA*4FA35S
90H*SF-OSI. i KQ
8~430000
ZI "K&8943000l
..
as- ;RYG943000:!
T+- · , I -MWP30 l -a
6 &_<OA
< JV-1-XB &DCPO!
$058C05_88ET2DSE
..
Oua>BG /YFHTA 1 l
. "
OeQU@ K"81 ·D13W
e I'; K -OB · TS
wH&acI-4WCLSOB43
..
.F.331343 !O_G0H¢
-G708G3- C2U M
ca_a
..
s-:a~ H HOI 4C-89430005
/OHSS1 0 8" a+ I lil
. ..
ROL4 1-mz J7 /10
aaz $-489430006
., 9·ES LLY8943000l
..
?=GY >0&89430008
TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY =
0
,,,..,.,
·-·
\,...-' T+-l i/OHE I<, F*B
(' T+-2HOU~G· /YAJ23
0 T+-3COH· BH-. 90SR
C; T+-3==l0· · 111 1" / lZ
C: T+-49-NI {.&OW( "H
GBl!l!Q<: KQE!Viil KQ
. .
lOH*SF-RIQM 8& H
a
Ge DRQBQI I Wt34
. .-
HiZ OQH$BcSBG SW
.
$0A <t.i <SGGK~. /O?bOH>llBF-OOIZS
EC. 0
0_$SPt IF. ow 0
ACCl · 1 s ·· /2HXOH*
.
1·3? -, /1YRl
· /0141 · awH:BGHO*
. ..
WCT4 1-n -&HOOH*
8
..
2L&DAIT"2-LJt &D
..
SliiBGGS> &O 1 S11
.
BF/Q O#U894300ll /1U.JHB89430012
. .
w+...H JK 891Q30013
.
iliYD 2CU9430014
DATE
26JUN75
EC NO. 825023
Z50CT75 825032
15JAN76
825034
14MAY76 82503::
PROG 10 PAGE
C T+-67.. JUXB<BGF-.X
i
-- T+-8V4l/ DI GYOX&8
.
l@YDDIG 7=33l<IO
.
.,CB>a-ol+H ?·,H
.
'~l GOH'~*W?HG <8
.
GGS_ &DC /CHOA
. .
/20 JG 89430016
. .
A -O cl489~30017
L T+-9-PC-Kill -OH* BF-ESHU /OHEAT
·
·
-
.,
Iii)
.·o < C-K.a~ /1X90H* ·WTlH+ BB &H<az
O&D ~JD894l0019
EC. V,- T+-:$+ .. t · /10- 4 ... 1
CG3-POH*IF<eGGIY
< C-Q+A.. · /l6tH<t
...oH·BE-..-.~· .r...?~v -,OH
-e
·
J
·'! ...
.., ....
.
.".''-.>. F...
x
/12
0. R .is9430020
r 0894-3 t__ DATE
38
EC NO.
0
26JUN75
825023
250CT15 825032
l5JAN76
825034
14HAY76 825035
PROG ID
PAGE
0894-3 38A
c
· · · · · · · · · · · · · · · · · · ·0 · · · · ·· · · · · · · · · · ·
. -. ·
l
·
·
·
·
·
·
'
·
· ·.
. ~ ·-· . . ..
·
· · · · · · ·
IBM MAINTENANCE DIAGNOSTIC PRO&RM
8943 OA FUNCTIONAL TESTS
CL 1 THROUGH 16 CL 17 THROUGH 32
T+-t0+8-V3d8GF, C
.
.o<...+OS /20QCJH$
T+-aJAEOA.POWMU> P.RC8C-OA.Pa96CO
.
T+--Gg 7 /2DQOH* S*-AUOH·J>OJ l<B
0
- · - · T+-·eiito7Gt·E_·· G£laa"4... 1<0la-D
T+-··<·BGHD*i02Q oo~szo- DH· /OH
T., · K07a-E30Ho s ....RGt·--u VT
t+IA38D<-I FI. 120 · - . _····-owl n
T+, ACW~l8 8>1D.iiI
GHii-."11·Nt - - ....
08.IECT CMO LISTltl&
Cl 33 THROUGH 48
...
._SBGF,& 4<.,.J.,.·
.
C.RP /l·IO~SlSB
CL 49 THROUGH 64
. .
/l·HC <_JSP"C <
.
G /QF 'UOH*BF-0
.
.
G /QG ·C<»t·BF-o -1es /lX~·w-o
0
.0tt. .+L-<IVT UA4
-·e JiXZ*BGF...uaou
HCCDllll30la-DllOH·
2UF Yt..... uu-&8 <...........o....
AI F.2. uaonsc"" I ·l8YOtlOI :nat F.
--'".·,.. Ht··:"°":'~
wHsBGHU·. BM<
PART NO. PAGE
IBM *AltrTENAttCf DIAGNOSTIC PROGRAM
8943 OA FUNC Tl DllAl TESTS
Cl 65 THROUGH 80 CL 81 THROUGH 96
.. ..
_;s:QC _;TBQC
.
Vl6S /1X90H·...-o
Cl 1 THROUGH 16
·
i
_;KQ
M08894J00211
r-.. \
-· 'T+/IYUBLC+H
eccu
·
I
A+la SZ.. 8943002~ ~~- T+/ &TESUB&B··OA
l
cua ·as· s9410023i
CL 11 THROUGH 32
·
·
. 8 -J D HOf ~Y 33
BET-H -, 0 HOOH·
·
·
Aiava.LS .WlZU Q
......·,~aiic·o
I
· ·
i
< LO R/..8M30024;
I
00
..L· · ·8943002i (
T+/KR+&OH.PiV·3M 8+&,808RQOA N TT·ILM8__HA875 < Afl<"8LVD818G 0 18
szaBGFV:112io... · · CHOI <<»-OK..
I
:i·8943002~ c UD.
T+/Mt· T.-.a--E-0-H
c i..··· 9'88943002~l T+,..H+.HllDl ····
c l
· ····CJ489430021
T+IOEFCflB+t& ·-·.
:E?HG;c.·.·y ·110
ilJIBQOOH·SZD7". XI ....YGDaYo·-· NZB
,.~. ~~ c ·ID&.__
BM< _ , ·fHB9· 30021
,p t+ GOY· B····H 9A<llGG· NZ. t ·-. ··
OBJECT CARO LISTING
Cl 33 THROUGH 48 Cl 49 THROUGH 64
- . -·
6HAL /OHE J·YE<B
. -·
U:IBGF-.X /OHE Ja
. -.
-IVT DAPD+O WO<B
. -
Gf-.U< 3;i<E8<AKG
. .-
Y<J-C -.2UA-.B TD
. .
GG·M< c,; I-MS C,
&EEl_ < OHONHAO
A."U9L<BGGIY'SS· ·a-DUIP8:7a8AEPM
·z- 4 UCG3V80H*JF<B GF.' DHAITS. /lJ
a··iiA<KOl+OoiiGt· BFYHl+OO. 11
GF ...84<.+0L 12 D " " -·· Q .....,...
I;;~,:·~ · ·
I;;.,,, - ··w.. I;;.... oc: ·:.
PART Nil. .PACE
42J4ZS9
HA
Cl 65 THROUGH 80 CL 81 THROUGH 96
.Ho..S.!ZF'.IACGJ: .. . SI H9A 0 +_BWAKO
.. OJ.Q4:1l.O ··T
.
· ·uco-099/4 · ·u
·OH 7Y089410043
. .+_aiioa94~044 li.O 5··89430045 . - avo OHOSM30046
a·.-eaz0 Nl·D·7·H ···, ; , ,····J0047
....·101:a-o&+·-was &EEO. 9C089430048
120 8GF. '.- - · . .
IJC89430M9
i....····-1111 uG /Q
'730C:. · : 211u< SS
l8LU "8H89. .0D50
~ ·I .. ·ii"M8943D051 ··
T+/CZB& Ja<BG /Y T+/OUt QWAL3·& L
,.,· ...,........;;,. h/FEA<BGF, ,·84<
,. IGNA·<I <D+ I ··
r+IHtOHO&E-<>a.·u
· ·
··,..,., .·120 y ·· ,;;.,.. -···H
Ats~sOH~=LOCI>·
· /l~ ··_CG4 ·GI
. ,A2CiioH·SZ04A&-<>
~ -. /10525S 95T
-I Sl2-<-af2 ODOH+
·ta8G 1iieiizzF1 AM
· ·
<Al<GiiDT. /2f't ..
0
<oA BET3aii <aa·-
/12EOH·E_ AKgla
··88GHXHC:C4 l/C
·<.·-HA·.E··.··· AOO
-C 18A4 CC ACASQ
. ,····· ' M<·· v wiiu·tal·ii-·H9+H 121H80tt·ntsaua MDH+BF-DPiiAl.. Ill
_.l8GHJT./12Ell8
·
-
11
2 t-aESQDOH·Sl +
·
·
··· Nl3..IS. , ...
E'f5CAM<FIB5CA30
·
I -HYL IiiAstoo1s.
st< · 1$12Lii·
11-CSUa>·c> DY<
.c <3;tF>c"·121H
·#IBGGISIKO aac· tC D 9A-894300J, C-Ji+/Ptl·H_-.00 ··QS
··
I r.
·
HA-'79&-AB t4 l/t 2-J 6RS8943003ll \..) T+/Q6/C.ut u_s3·
Xt<a.....;;..,.,,...,
9
At-Y3S<.at3 tOH·
c:.··,., -. · ··
I
a. ·Z£89·30D32,
· · 0 U HODH·
I
I
E_·o··E489"3003~ (: T+/ESSSRROHOPNge
·- ·
·
·
I
0 , . , . ; 12HXG OUOOOI KR . $1 U< 6-9894300341
261 ·Y>iitAu
RT&8943003~ ··-os1·711 X9t · < 2 uLD
C T+1·SHBllooA ····
·
. . . . . . . l!ETS -3
Bllt·l?ttV&la3;D2
c · · ·
I
UBt ·· 8943003-I
T·ll llvx°-JS7ID8
c I
· DOD.··08943003..i
r+1:0<1P ll··IP·
:·..:tiGA-OJ.Q4~1·8 GGJ, /104 A_CG3U
:OH··WZ8GF.t 4M< ~1ac · /2'lQOH*M'<B
u:t-AB-3 0 HIJOHO ···8G IYA.K/-OH·
GG'M< c:o1vu<sas 11~s<BB6DIZl8H&R
_xn II ·<_xoO I WO . N0<7·t7a>·?HAFa8
GGI;110.· FltG·· 70H+IF <BGE3'"""'"
WO; ···· /Ot"OI - PllBGGtUBOBRQa/ wo-.iiAstS>IVl'UAI OOH* ··tuHu:u··
-OH·/F<BGEIK·a C
·
·
GF.& .4<.. 1·c /ll
·
......, ·· SU<-1··
QiZ·,,·H_,SRll·H ···<· SSRRiiYD···
.ODPtt-DR .R8· ru
....WDIHCiicl ·,YT
-J~-11 ?c·BGEffi>
ltOQ PlC/ · .·7 0 H
12DQt ·VKQEDH·
_,ooe.Qff=kOOR.Ro MO< ... M'..CRRGt·
·ua>assA1$,"
2DA. /1"9DH·i..··
<BB4 5&<89430052
· O+J- flQ89430053
·
PIL4 Dt88. .3D054
'TLO 4Q889430055
·
- - aa8. .3DD56
ti P4 · 98089430051
· ·
oua ·s 89·30058
. T+/.A+D·,·· 'IQ
T+/ · .C. M/2/.:aY·
. T·l<YUa··.. ...
T+/ f2,3F>C M/2/(
DATE
26JUN75
EC ND. 825023
. . ·02-CllHYE<BGF...U
;C M/2/( ll<YECS
<·'~2·E<i8<· .3l.2<Ee
0
-3°UB..-D+H 8ttU
. . ..··· Dl. ens -· UBLii+H 8ttuH.-·
HDH·1ueauass-: 0948- H<OI U: TS
< 31G<E8<AtCGH090 <·ttll CSl<DfKI IH
250CT"15 825032
15JAN76 825034
1~AY76
825035
e-e··a1·J4H.BC<8
··-3 0 HOOH·BF-0 0 HDI . . . . . . .;;... -09A H<OA BET3
.
'2 GA J_CGJ l+al
&l·Y8-.tK·K.8C<
0
0
PffAL 12F· HEtG3&
, .....J·Yf<BGF-U
.
L9JI .·7 U HD+H
I
,.,Q.90389430038'.·
("-, ·
T+/~LF,, · Y·<,IYI
l
,·,.·,ou···3D··i (. t+1-+c" ..........
<..............~ '-< T+UIA-CAJl I.ICO
-·
I
PHAl l lQ8943004ll (. T+/SDi/ · g I· IC: ..O
I BC<··RJU8943004~I () T+/S·OH·'E_··-~·J
PROG ID
PAGE
C 0894-3',
DATE
39
EC NO.
I'o
10
I
I
JO
1
26JUN75
825023
. .
/2DQOH*P lL5' IYX 2-J 'SSilRO DPZL4
0
·WllBGF,C GM<·IXG 12D<1DH*E_····-o
Ila·-·. DCL < -CL..."' t
0£64-0
A&P_A+-OAFHZA-.t.O CKQ-<"40>&2·<HO
l-<BGHJ-<·41>>g2 <HD >&s a·1t<-OH·
250CT75
82$032
l5JAN76
825034
14MAY76
825035
.
IWG -lHO~ AH
..........a Yttta
at-. 7·Kll_D8.oii"D
.
>&S 4P~{-~8
I MD
-.
F $ /lX9ott·BF-Q UHH& J-089410060 .,.... L l""DH· ······D···3D061
....-· l&OAFHlh3S ···· : ID89·30062
GF+0<"4<-&KB<HOH
.
41S4C M0tt(Ll2 lO
.
. . -C88 4AU89430063
< "D 31t<89430064 .
PtlOG IO PAGE
0894-3
HA
l
________ _________ - --· --- -- --~··
...............~-------·~- ~··
._.,__
.__________ ------- ·------·-----·---------
IBM MAINTENANCE DIAGNOSTIC PROGRAM
c PART f40. 4234259
PAGE
40:
IBM HAINfENANtE DIAGNOSTIC PROGltAM
f>AltT NO. PAGE
4234259 40A
8943 DA FUNCTIONAL_TESTS
OBJECT CARO LISTING
1
6943
I
1I e\,-.-·
DA FUNCT10t4Al TESTS
OBJECT CARD LISTING
CL l THROUGH 16
T+/T:IDOBC-EA<BQ
T+/US.·U?=&SA."U T+/VOaY*G;G OA
Cl i ·1 THROUGH 32 _C&EA;4DOO OQ*&i
.
R<'HA L4 ·"Ui"2~
CL 33 THROUGH 48
A&LAA<<BG /. Ill ?=*HAFHi
90HDRFOOA&A&Q,·8
CL 49 THROUGH 64 Cl 65 THROUGH BC
. ..-
1 ( -RO 0 FH5A<C>
. .
9COC20A/8B C2U R
.. -
FH4:&AS_C O?=MO 9A-C2UA('QtC2-&5
G 4BAX80-H CO IW + KQEIT<8-8Q
c CL Bl THROUGH 96: Cl 1 THROUGH 16
r- i
·
I
OC-0 O-MB9430065!
T+/8< Jo *G >V
i r"
l- NS 89430066; T+/9GOT-t.ZL200&
,. . E ..~-..
Gil.. :089430067; T+/:B/4.B ss·o-o
1
Cl 17 THROUGH 32
.. .
* K5a -oc.PY>W 0
.
8BB:Mi/ >+ &>~IH
. .
::VCO +AT2/3IB S5
CL 33 THROUGH 48
. .
ePVOW 0 .PUNALO
. .
&Ft-&.ZL20 ca SS
· O-D#SCl-+flT2/2L
- .. .
CL 49 THROUGH 64
. .
M.X<a K·a+H >YIH
. .
Cl 65 THROUGH 80
.
&-.T/ .ZLZ!>FOSH!U
.
A.ZXB ss·ev·+o-D
. .
CL Bl THROUGH 96
..
..., 73-89430087
>I 0 0 a89430089
.
e
T+/YI( HRQ.- IH
-. .
T+/DP LO:ass i5T
.
. T+/,KiZ 01 a+?I
T+/ll 20;IV*< 20
.
T+/_HAJO F2QAG
. .
+ KQGI-... HAW4C &A<BGFOP /0 I QFTCZ/OS30HC30+C
COO?=K"9<E-i<08
0-1 (08 l +H0<8G YIV*< 2021V·< 20
.
1100<·4<~&2 <GltH
.
WA2QFO-OWA10 CI*
-.
E&CO t·Za"4<-1&
.
G R#i C /OH; KQ a+I AFVH· -vca-&
. .
aAKQOOH·SZ3&HF8&- 4 I> (&OS/ OVIR
. ..
@IV*< KQ·l/Y; KQ · &3AI/OW.JOAll8 -&SF<
WA"HGHT!HI-P2· &*
VUS.OAIOYV300GIR
.
C0-18 G4 !HAHAO
<i/Y lSSQ*<QUWGiE
SZ08AF8&W<*H8 t
. >I·a JZt89430069i (
T+/:'886£.0#8 S6
. .
T+ltB.XGB S56I H
.
FH2Q · L 2.. 89430070 r T+/a3"0C -J"04-0
. a·co ·-ECMB943007l\I \.r- T+/ 1 > K54. "~Ul?5
f( O>dll&A .. )R /1 1
- ..
. _l*BGG57 /104 E
A8-HAOH·;a,oc +H
SOH*E_ A&l~?=aB
I
n t CY· 2LH894300Tt ("
l
c ,A-0. eJ889430073! T+/"Ui 4-..ZICGa I AfZU· -./U8943007~ (~ T+S · ~OL'... C&HH. I
I
·
B L-Q( D>iRO C
.
AG 8 C /0 ( -~5 7 2/0--iBBQDOH*SZOl
QF:Y · R3-39430075lI :..~_ T+SAE.8&?3iBG /0 - BKS=OC 0?4KQEO-D
:
10
I r·
MOQ89430076
1
\..,
r+sBN. ·o>a04-..3l'
?E~AC 4.... 3u1a-.tt
JOH·E_ C&laW aB
CG2"#0H*~>LSO.·i
GG978 L 0-H 8
e
·
·
K &GS -G /l·V(&D
.
·.XIB8 a AG>YCG2:
_-t:HB&-?*C2=0 SO
·
AG-.HGC<BGH. T /OH
GG94< K8 1IT" 11· .2*!3" IOHO; Z~BGGD3
.
GG03 /l=tOH*~~L5
. . -- NC- ?·Bo_c 0_1e·
8 MH 0-H_·74C I H
AG50W.a&G 4BA=
.
>l*BGG7a4 K#?OH*
HG=-<·Z:K.Z<<:a26
I· 7 OH*BG/· ?/Bi ·
i-MY?/ 11 ..a&?+·B
.
NOH*BG/ ?·B390H*
. -
G IDAKS=D£-O?'ftK·
tlBO 810894l0090
.
ADP4 S9U8943009l
.
?=00 T&H8943009Z
.
Ja ;T<89430091t
.
L.R& 8t089430095
.
BG-H 1R~943009Y
.
3C&D J,<894J0098
. .
-·
T+/):: C70f ·? -J_ ?C-DWDS(LOH SYT4
T+/?9-J_<OH·SZ3& HF·...· 11'54· · ECG2Q
. .
T+/04GC-4 JOO( H ·t<HB.PIB MH OH*
"LGDAI T-.2-J·-aDBQ
-SRO CK &GS -O
OOH*~s&oA.P&wtoo
4 K·9C&O?:JOOO D
sno'H1s. ·/2HX I &
A.PQW(Cil8GH0...· 10 *OHOA K" #0-0 <H
I
C w"H:·· 1L·a943001i,
r+sc&. ·.01·-.HAB_H
!
· · ·
I r-
·
( - 09889430078! C' T+SO. K'VO·-H?&.04
i "' · ···
8
9LY89430079i (~· T+SEF <BG a·B"
c, WLIH.53i89430080; T+SFA.KQ70.DlBCl
AD+ttBD<BGHc, JOH EVT4 ·is.·-& OH· u2c&HHJ 1t KDHr · H
. ..
c2 &vat sat c . 210RaKO&aKO 4 K8
#G>Y*DIF0?=3&.HHN4 IS, /2HXOH*~6@8
· · ·-
. 8&smaz O+ /8 "H
G 4SSF4C DV=SQ
·
tC44A KQ9it-DIOH*
.
EC DV=BRJCOOWEBQ
..
/P?HGGM4A K··avo ffC-OWESQ_+F WO-"H
.
NL&O 6SY89430101
& l< ·OK894J0102
- - ·
·
0
·
·
·
T+/ZD &O· KR$A3Y &IVTZ/l/( -HWL"H AA3Y-IVT2/0U* SR R 3l IVT /0 (
c )8·89430081; T+SFi/109+A· WOIH &GP-HAi &HPJ( &·
-.
GHO-o /0
T+/4-0H*J IaBGFCU
/2HXOHU+L-&·IVT 2UBH. KHM89430082
T+SG70H··wisGF.t T+SH20lH&.<8GF,&
······· 0
c /ZOOCOD
AD<~<IP /20QOH*
WEBQMC-OWEBQ_+S
E_···&-DW(T--IVT
-
BB?H&SC5·111 -&H
. . 0 HOI08WO·BACHL
. . OOH··+t.~IVT20· · /2GN+A WO<B&HJM
. ·
8&BQ
01~89430104
S&Bi J IU89430105
T+/5$ Z?ViY*OC -
T+/7JFZGE ~ 0-K DA TE 26JUN75 EC NO. 825023
1z.0Aiia·V300). <
-
/l6VC- J0/5E8-H
<BG 48A6:0H*
.100A."UW03&AGRO
.
&l&DIO"HAEC5 GN·
.
BFYO;. <<GKOC. l
2SOCT75 825032
15JAN76 825034
14MAY76 825035
4./6-0H*IZLOAGNY
J5RI 10308GN, JO ( --.P<BGG'M
. . ~ JSSO-D?=<HBHll H5R IJ lOt AGNX . . < 2561-<4 J'+( H
8
#Li89430084 ~~-· T+SI_11 ...tt&BC0DI S,
i
/OH I TU89430085.
- T+SHYOH*</C&HHO-Q
.
.,HTM 3#8894300861 ~...,, T+S .. TI+U< BlflSY
PROG ID
i
I _,.· 0894-3 \.. .. DATE
26JUN75
PAGi:
'40 I
EC NO. 825023
c .
~ KHSl&DSZ/OA+_U
· KQoa-oFcADvuas xl&HwH?HAA-O&IR
ZSOCT75
825032
15JAN76 825034
14MAY76 825035
.. .
CLSB Ol! COO: 6KQ _O OSS*H~ C 10
( - 3 81)430107
.
VUBU 7fQ89430108
PR.OG ID
PAGE
0894-3
ltOA
l
·
·
·
·
·-··
·
·
·
·
·
·
··
·
·
·
·
· ·g-.,. ~
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
· · · · · · · · · · · · · · ·i· · · · · I
· · · ····· ·
18" MAINTENANCE DIAGNOSTIC PROGRAtt 8943 DA FUNCTIONAL TESTS c.&. 1 THROUGH 16 Cl 17 THROUGH 32 r+s<;IL·E1s,2 <O <t20£H+<'ASGDa-o
OBJECT CARD LISTING Cl 33 THROUGH 48 CL 49 THRWGH 64
0
Ft ovuer·1··""·· AA-<1.1· YlJ4MIS,
PART NO. 4234259
IBM MAINT.EllANCE OlAGti10STlt P&OGRM
PAGE
41 I; ,.,..,.
\
I
I 894J DA FUNCTIONAL TESTS
1· 0
i Cl "5 THROUGH 80 CL a 1 THROUGH 9~ r· Cl. 1 THROUGH 16 CL 17 THROUGH J2
Da-0°·,ae94301~ 2°1.Q<cso.;;..a·BKo
"'-·' r T·S-061Lt811XD51. ae··0 a+1°oot·>··
OBJECT CARO l ISTING Cl 33 THROUGH 48 CL 49 THRWGH 64
r··..,.··IE6IN°9·· T511tlilOA-&1.E1<.
PART NO. 4U4259
PAGE
4U
CL 65 THROUGH 80 Cl. 81 THR.DUGH 96 001x0&<IU5·lr21· Nl+C0 2CYB9430&5l
0
T+SlAA-OllR Z·T· H1s,2 t0<oao.H1. 't20iia-Ol'CA<VUBX DIJ wii1HAA-OJIR
0
Zl34-IS:Z lQ<t80
·~:·2089430111 r T·s1.11.r·1IN<IG
l&FA09l..PllV~4·s
VltY0 00GSllltA4'~
HOMtkl;TBSSGRlDt
·······IN&IG2lf&
0 l<U~·-~94JD13l!
T+S+MIJ<W~?HAA-0
T+SllCA<VU8ZEIJ-
.
T+SK .aa<1K·-.:1
T+Sl61S,2-JD·&BQ
. T+SM11-P2.t-·o-H
T+SNtMTO I/CB t
. .
T+SOXt.OA C.OA C.DA
.
T+SQIP A· EO PlX
T+SRQ ···········
T+SEl ······· "10 T+Ss+iMA-t<I Hl·I
. .
T+ S) DB· N il I J QOC
.
T+SJ"£IC6C.FA 9_X T+S;:8aPC8ilX05JX
DATE
26JUN75
EC NO. 825023
KIR.7TT4141St2·&Q. <czog°HRe 0 eKOOa-o
·o. wti?HAA-001 R L5
. .
/OH; SQSI$. /OH
.
8AB:MOI -=<BG /Y
-.
/OiE-UQ?- OA. 1 D
i s,2 · UKBKQgHLO
; · scu1s3· ,oH;·so
. 8FzD<OH$-C4&1 S,
WF-OAiGD70aSG /8
fl. ·o70'4AIG071·
OaYOHOH·BHYU.C»t· 8ES8G· /DFHKSIC
. OH08El8G 4 KM
0-H CMDJ/T3S G
. . .
lOA &DA tOA &DA
:t.HVITlOl/-5ASQ tOA.&OA.&DA.,DA
J5..,.C2DMA i-o"<TH
··········'.c..Q
·-CWOJXN2JPGtFA 6;INlStlQIC2~tP
K&<LE9·XC1MCA9CG
.
Dl;PJOaN 8·TP1MC
.
. S2tPG4eN 02TA6*G
18att l>LNO·l15_N T5MCOcOA-&<XN9*G
.
HOMCTl;.n.u o·s
14eG82JII8·Ta8·N Dl;IE61ll5·GT2JI csaPR&+IE8>IR8'N
.
8ePS8·1 O)PDg<p
.
L2·J l<GTOMC:Dl;I
te8IXN9&SU8UCP5_1
Z50CTT5
825032
15.IAN76 825034
14RAY'16 825015
FtA.VUBW?IJQWH?H · a20Da-DFc· evusv
wiRe<· a1a1s. ·/OH
. -JatS1JMWH7HAA<B
B.·O?ISSG /8-
.
U9KL(OH$BHYU OH·
ION4VO!FIIKCASB~
·,oA.c.DA.8>IA8cL E9~~tlMCX9!7i £0
.81>1 ..
gg.16.0UA O:C/ l<t
.
084CR9(N l_SRl+I
. . ilE QDCD1;~10aN . N6;fNC.ICl&FA 6~X
.
a1N QOCRl*GOllL A91XTSMC.0·4A-&<X
.
. EO·ll5_PR8·N alv
l61IN&ICAUA e;p
AA~OTIR Z:C4PIS,
RI &OWH'IHAA-Ol IR·
E.ot ·vuau· Otl*BFVH
GGJl · /OHi-"99t0
.
CCHl&·B- Hla/ HOQOV.30CIS,2/0L
2 '0 #Q,89430lllj
ze··· i K :MB9430112i I
T+sswe_~O;/ lJP
.
T+ST/lt&l.N84_ 6*P
t 110· LOM891t3011,: (
I
I
,.,
... 9 JY<894SOU4j ·,_ .· T+SVPtlXE8_-.05;.
i
-..6 ~SOB943011~
...
I
OIK S-089430116j
I
llM·· 9.Y89430111
. I
AS2M.·:Q8~?011~ ()T+SZC1C':09CXJ5·J
I
s....>...X9-) &<IA6Pt
.VB &-
AACUA5FE tFA~g....,.
.
H2;J l<PV2$l£61I
X9=·.E0~894301Zq () T+S096JITl$ffleJ
i
C ·P· · · & : U891t30.12 li T+S, 4t I 4, 'D_·ct X
I
c I .... NA-89430U.Zi C:; T+SU&lP08~VOJ I
X90··=A·t9430121 c:~T4S_0.~ct2<PC4UA
V N& I : fM89430l241 T+S>V5_LAO tPO&(X
.
P5'1EC<LAB2E SSP
Ol<XF2·POI.· u:s> J
UF 7:08943012~I (':; T+S?-&DA. &+.TO; I
c· . .· ·· · I se·u· KU8943012~ .... TAB?YOiHrf 9..
I
I
~8'M ·S-8943012~ ( T+SO-l<XF,<1.E9·X
!
l<K0 NYD894301Z~ (._: T+Sl98UCA5*J/5_V
OOCU5 · ..,.f60Cil 5>S E6M 81U89~3012~I (., T+S245<GYC<oE&+.
(~ I
S84CPO; ITUXN&<X
NSX.NJBB9430130!
r+sn2u·ORCPt··X
PRO& 10 PAGI:
1
C 0894-3
DATE
41
EC NO.
26JUN75 825023
0
0£(SF£+IE8>( 5<P
.
Qk6GN5> ( O;PA2) I
S8&GGlCJGT8itGC20_
.
.StR 2)PT1 tXR9C-.
E6;Pl&+IO&+.ELtaP tBaP084CT5utC5<L
R&<IOS;C.&C-.Ott·c
AB·l S&C XE04?Ml$ I
.
21.S9<P05 JR 2 IP
0 1 SN84_.5 1 $L4&X N0'SR6·PC84CS8aG
.ltXR5_XD2$SL'l<P
.
EUPTt<T.MilrC 1?(
BOaLI~CC2<6RK~C
.oaGU8iX05NA-&<~
I lCP0&<9R6URl<P. V2·1E£+.X&<GYO·.x
·,<LASae.OaTEO'I lOA l0CE6+Ll5'L
Elt·PC8~A· l<PYZ·I &~L E&<PNlDA· £0A·
U8UCRl·tE2;PElOC F61SM&<LE9·xcuic
. 0.............. 0. ·o ············
0
ClttCS2($U4iJ 0IN O;PA2JIAO_JE&<G
·60PFllV.88 R.BiT
E84CT5UCL.5_SPUX
El<LE9*XC11IR5>l
.
T5MCOaMCF5_V O'S
NUPRE4CC2<PC4UC Fs_v l_SR5+1.5·x
250CT75 825032
15JAN,. 825034
14"AY76 825035
5)ST&CXEQe\.Y5)S T21IB&<XNMCE6Ul
.
s:<LAaae Kxso·s
.
Ol;N.&<TUS·J 0)L
R5UCtS3LEgCP084C
. .
T6Ci\_ OOSTUV aut T9+1.60PCl·XVl·J
.
WO;J 5HTf,+.TO; I
T5UC81C.CRlt~Eo;e
.
Q6)aR8UC111Ca1 511
. LO·.LlJSPllXABax
E5;( oaTEO'I 2)P
.
Nl 11 8_-COiitXF: DA
·o·~············
Nl0Cl8utll5>fe&<I 84iPS21SO&aXN14C
NBaJIN9Cs;.,aucps_a 05aPM·/.21PSUJl
T&cxo:FGU5··T&<I Hl·< 3, 89430133 ·o6·GT8aGC2tlESH oa-.·iiea94301M
S:+LNl1...P1·ITl·~
2JPVK4CAl<LRK1 X
. l51GOl~U5·PXS4_
s1·1.c+c.su_ 2;.
.
9~ :.H894~01J6
. . . El_· M3 19430117
ZlM 4R889430138
.
S9<M ...-&94J0139
·l+LR2tPG&<IOS;C us:PRO;.e&<GL44C ElDCiS; IO&<LAHE
.lC·.&H889430140
.
U5>· 8:S8~3014l
. . 8>Q il2M894301~2
05~CCZ<PC"'-'CC5_P
TlJXVlJPT2JSN&IX
.
lDCOl;PIODN O>L
.
E6<< R.0&9430145 S:O IYH89430146
EO·IE10CF6JSM&<L
............... ..,
354894)0148
Hl·IK&<IOO;J.OIG B4aM.QOY89430149
G9<XD1M_.&+.S9UC OaM NQU89430150
Tl·J,USNlClls·
.
11< &t 89430152
PROG ID PAGE
0894-3
~1· l
____ ·--- . ··-·_-:..:::..:._::_
- ·-
- ·---~---
.
·o
·
-------- ------------------------------- - - - - - - -- -- -- ----- ~~~~
·
·
·
·
0943 DA FUNCTIONAL TESTS
l THflOUGH 16 Cl l1 THROUGH 32
T+Slt-004?05JIY&<u T+S5VK4CRl~.E8~C HOllT&+I0&<..,0&!$ TCB52l<PVZ*IEt+~ XDMA ··0 ·····eeoo
·············~··
hSIVO·.Cl<PFliT
.
TCK13L5' ? ...6,· Ii
14)ol5( P05 1 TR8>i
·· ··· · ·· ·o
T Beil: &
.
T+S="&<GDltV tot
.
T+S":tf I =KCA&<I
. .
OtlE aUC3&IJ ·MC
.
04CD&.<N l~ U$
T+T 5*
T+TAOS; IO&<LA0aE B>R G!6?4K4A l<X T+TB,6MCEO· I H&<P
OBJECT CARD usnm;, Cl 33 THROUGH 48 Cl 49 WRGUGH t,t~
.
I OC»P S&+SI 4 · ( oiN
··a······o·····ai.
9+ .. E rncx 5r.iCF5·.. 1
.
.,
IPR UPTO@/ l<P
··········G·eee& ················
eeec&CO·C..-IOll·Ol~C&·
~·o····eo·······
. .
6SIJ =DC9&<E OUC
··t:·<t·····~·····
. ..
C&<J lHCF&DA &DC
.
IO> f Oi:tLD6MCOWC Dl;PIOiN/8UCY5>J
A44CflUCTSUCE5*J
.
l<PVZ*IE&FA s·x
4iiilX S8%?R l ; ~ E84C
Y&<GGO*XN SI *'!II
Ct 65 THROUGH SO
L5)${5*} 6~ S.UBiilX
V2·IE&+.TO;lUS-H
C-&··0001186''36····· ""'··· ····· 041 · · · · ·
$E7_<PFlalLN5_-..M9
. . . . . . . . . 0 · · · · .., · · ................. 0
. .
O&I E 0UC3&! J 'l'tC
.
F l:UF J.gQ OD<-.. 8& 9iXS20CT5UCTl i.
Gi l*PE301; PIO@N
4234259
K~2 i
i
I I
Ct Sl THROUGH 96'i
i
·
I
Nl ·H 1 YU89430l531
I
X'NV.~IOS9430t5~
I
R :U89430155i
i
89-43 DA fUNCUOMAL TESTS Ct 1 THROUGH 16 Cl 17 THROUGH 32
.
T+T+3G;-c s~5PlE
)QAGFMA7U$=.,E44C
&Cl : <PHD·E 12<-
..,. ··· "e&s94301sb!
l
T+TI >2AGF 'Gl-J05?
I
·
I
;$XS 8/*8943015~
I
I
T+T&ZD=lN5 1 X08@P
···· e
I r-
51489430158;
T+TJU2<-J06"H?AG
0GAGDO"COO*J-8aP
C8~PD&<LA830Jl%Q D~@THD*Rl2<-Jl5 8
. . . . . !ll
t ,,,~~
HS8894301591
T+JK..l' PMl) PTO*V
· ·
I ,~
6&1* ~Q 89430160. '
I
I
A 2l<8943016ll
i
H<U ~ 60H89430161 (
T+ TMNP GITHDN l. ?ZC 1
T+TN&O~CS2CSU4@J
"Z<-JK4"HZAE<Pa!T
l9"CODNA! 2<-J4-N" &.<MJP+MJ :<G060
0
FS@!ll 42Y89430163:
I
I 9::c/ 6A£89430164f '
T+T0.6*GS1MCU5~~ R5>C.&+!Dt<G~llV
T+TPFQC3GP@HJ1 h lAJGE:A .. FMAGFKIO
OBJECT CARO l ISTZNG CL 33 THROUGH 48 Ct 49 THROUGH 64
l@?l4g~51=1V.K6C
..
Pl)N 8@PSBO A7
AO·N " G·Tcs_,V&<G
.
'U>.E44CP l tN 8~P
JO-....H2AG8PG1THO* I G2<-J06"H2AG05@T
S84CPO; I TUXN&<S D6MC3i?..7QI OJ lM"
JQEOJl?-il59 ElJG F$J7VO*LRQ
.
.
HlAGG:+(E8)( 5if TBaPR5MCF5_V a·.
HDM3XPA5 O=lN5 1 X 08iPC8GJPO&<GRl·E
GO C s-.5$15
.
LZJPE&<TE6itN QFA /l+LPQ*SilllO&ll
-l_SR&<iL9+.TllX -QFA-UtHJ.*IKZtP
.
A611 5.JtOl>XSD*I
;EJUJO=Q~:<G.060
GO C S~SLSF
T 38 ?PEO t t;
-· .
T+TOD OHXi~HC s,
T+TEV84CT5UCCO>I
.
T+TF-O~l)8'R l<X
T+TGSK1CG5/7VO·l
.
~
5Plf l>fE8>C 5sG
l&lPE9=<JO>.Sl)T
S0 1 $NS~PCB~C5=&
·
.a
ROl$Oq i !:AUC s...
TS@PR5MCSl)TUl>P
U1JPT2*Gl&~~-.a=i
.
Jl_.AS·J 4@PA9*N
~
·
5PlE l>t EB> ( 57G
ve0eeeoo®e·-. 6 oee
.
CZJPGD*E&O!H_ 5 6 X
. . E6tN.O*N au_ s·x
E8>I 8aPS84CRlH ES>l OiilGNOiilPLLU
5@GT5@PR5MCF5_V 5.UFQ( I IS*N 9+.
·
TSilPR5MCSl HUUP C2JPGO*H@H_ 8'R
I
#UB9430165i (_ T+TQAUZ+HVREPWIW
I
Ul ;H. 6'{~894301601 (- T+TOa&.u< DJHRGKOV I
"
I _,,..
Rt.(* ilZD89430167'. \~ T+TR 78=l V9>~Y:..C
!
I
·
I
AlaM 0$Q89430168:
-
-
T"·TE2D*l ?GMCH2Ql3
i
I
O:i!D .. 38089430169! (:' T+H_>JUJlUiilJ&.A<
EXR:-.DMCXGOBSY:K 'VZO;VOEOi,e :?>9>
JH\H MNNR.PQEVSQ6J - \llUO YfpAl*X(4 )PR
Jl'Qt :<GD60
m?S:-"'i>SxHB/0#8 7;GUJQ...,$) iJ<GBO@l
e
T+THQ4·( 5·PX84C
T+HJ0· 1oa:N Z;<
T+lH<8@TA51'11C5&+.,
.
T+T~GOISO&D l&AU
·
. PO;IHJXN&FA 0*$
JO·.wz;&H21N 'MC
.
E04%Jl_QP1'J 9iX
.
t S~5PlGAHA5-0*s
·
HIV 5'Xi5;II5*"" .Sl* I 05*LSK1GE& U
l44CTl)XH2JPAB@N
Cl<PF1~Tl4J.L5f P
JO>oS~P$P8rC s_..
O~PO&( I EO;PE&h 05 1 TRB>IU9;$X:+V
E5MCCS>PE60_ aar
S&{fEl>( .. 9() .. 5($
AS=l.=t.i>N.O*...OG;T
0
G03N5_N l<XS5 1 I
I
e <»
I
E514 :°H4S9430170i (_; l+T*Y&llIS*N.l>L
R!M... Q-<894331711 (
:
T+TH4GlXNlnCF9(P
.,
I
AUU OS&89't30172;
T+T; iS_XElAMRGHC
I
i
A:AD.. 61 80894301731 ( ·.- T+hR5MCP6*XNSaP
NO=IIS_MNS*PW&(f caaxnSMcc 2<PC4/M
I5·MN5·PWOPE9UC
.
ll+ IH2;I l<GTOMC
GlOCTl )XH.2 )PA8i?
lltPEEJPE9UCl21P NS>~ ~·xs2·.llOG
.
c BASG4<~0·1cs_x
T+T<B~W JtAIC5_~ Vt<GS5>PE.<XN&+I HZ; [ 4liJXNJ. MA &D
DATE Z6JUN7S Et NO. 82502)
250CT75
825032
15JAN76 625034
14MAY76 82501'5
I
iKV f'n89430l 74j
T+T-14.ICZEltCOl ;P
PRUG IO
PAGE
i
0894-~
r\ - - DATE
42 I
EC NO.
26JUN75
825023
10 I
IOi1N 9= J 2 ;I OMC
250CT75
825032
lSJAN76
825034
14f4AY76 825035
&OCP6·XN8GlPRl<X
lQ
I
I
· · · · · · · · · . . · · · · · · · · · · · · 1l
!"'"--,_ \...o.;
,,
J'\k T NO.
PAGE
4234259 42A
CL 65 THROUGH BO CL 81 THROUGH 96
B5>PE&<XN&+IH2il
S81GG5/7YO*LRQ
A42XG5 >LES ;<J hA
.
)Q <BI"N"l<E&l·-
.
4@U ·.¥89430175
..... -
.aE.r.89430176
Fli- a~894301 77
..
*GM QK0894J0178
.
JOYa 08Q89430179
7 1 6C2D*/ ?2<-J4~i
..
&DA GOA*OHS?2<-
?2<-J6G"H2AEELaT
ELDCP6*XN8iPRBUC
.
G&. ! ...R5lihR.0) J 8ilG
0
. A1tiiiU n:-69430180
Jl_· 3¥<89430181
.
HDNi KK~89430182
. ..
DO;< &.. 89430183
BQ·M =S<89430Ul4
001781<PO@J7Hl<R
S-8KE/Y;HSQO<TQ:
.
I UID SYD89430186
E1%~H2)GK4 9 lN5_,
lPv ·5Eo1_sw·:; n
.
N_JHJlHCES_J OiT
. - Q6;H KR 89430188 .
·-.xa 1~a94301a9
..
E0 1 H 28089430190
H<SU5*IY2UNE)P
.
E5_J OlPD&(N/44C
E9U $11"'89430192
.
11 'M ...2·89430193
.,
H ':} l.~89430194
D2JPG&+IO&(X09+1 ss·IA: HX@MYi&OA
.
*D** 2~89430196
PROG IO
PAGE
0894-3 4ZA
· · · · ·
·
·
·
·
·-
.·.· -
.
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
IBM MAINTENANCE DIAGNOSTIC PaoGAAtl
PART NO.
PAGE
I
4234259, 43
18" MAINTENANCE DIAGNOSTIC PROGRAM
PART fitD.
PAGE
8943 DA FUNCTIONAL TESTS
8943 DA FUNCTIONAL TESTS
08.IECT CARO LISTING
OBJECT CARD LISTING
CL 1 THROUGH 16
T+T/IPl<CPtaeJ·p T+TSH5'KE8>HIO+I
T+TTE2JPS8~N8·f
. .
T+TU J;/ l;~ClJ~ r+TUt6&< HXil·H T+TV6&DA &DA &DA T+TW15&<Bl"G80$J
CL 17 THROUGH 32
.
BG;TOl;PIOiN 9=·
. . HlMCl5*LIOaGTl·J
YK4A 2·R 4lPY2;~ T&<lll·GR&<GNIDt
Jl?TD1J~R1;.S&FA L·TE~A'9=J·Pnt
.
-l<S7£ <Bl·GBO*H
CL 33 THROU'iH 48
.
)0JGA.... IM2;1 2;1 O*XO&CoE:DA-tFA 5JS1&<XN8>IA4'1
.
. . F5_IL5>R l)XR5_V &DA &DA &DA g < . . T6;/ O·~A21N 5_V
o·~A6tl'PC84CA2·J
CL 49 THROUGH 64
.
5($02·$ll·J l<G
.
. QOA-&<XT&~.H5>L
.
E1F_ l<PP6·PSBUC 5+.GK1G8P17YD-S
Bl·G804'1-0·XO&(X l<PP6*PS8UCPOOC CJgGS&IXE03Pl9·P
Cl 65 THROUGH 80
TOJE '~Bl 8 PBGOE llDCBlMC.Ol;IEO=f
. .
AS;/ 5>IHUV O*X 81 <PP6· PSSUA-t<P eoaPl9·PO&·SA8UA
2l·INO·CIC+IO&<~
CL 81 THROUGH 96
.
l<M N2H8943019l
Cl l THROUGH 16
..
T+T5/84CR1J/.&IS
ElO ·J089430198;
I
DUH: ·: ......., ,
NSaM 2oa8943020~
. T+T1P2<....·to1 .. T+T8K81tCOSMCT2<N
-go-·ss·894302011 ,. T·T9{L·INO·CJ&·I
·L0894302~ DUO:
( T+THtH .oeu1c" S·
RH890020~ NB... L
(" T+ Ht 51>tkl ;TBSIG
Cl 17 THROUGH 32
.
T2<PR91XS10_ l<P
Rh.S«PNBaPR OH 5'Xl5;IE6M%JON
O&<...Q&CSNK4A O<I
5-.aPNlotO lutTl I.
RI 0 I ·ii.CE/GtU>t
CL 33 THROUGH 't8
P6·PSBUCE5JfE6MZ E6; IY9<X05ilGSl<S
x. ·HIQ<PR· I ~·uc
t:<LE5 1 XE8>1 lJP A9+115_N-&IXE6+L Tt<S0611CDU Pl OIN
X· 0 oU5' ·E611Cto;.
CL 49 THROUGH 64
. .
c S-.50/5-2JN 9(~ G2fGK4-UO=P851&
... X~l<~BaPC&aP
TlJV a·R 6·PT6;16.,,S&fl09'PR£+. · 9..t9_XO!l· I· "G ED<GBO...El IHt.Z IG
CL 65 THAOUGH 80
. .
PltV OiGSID_ o·s
J048JgA<JO-UlQAG
OC<GNl otLS...Gl ·J
JO·Go11~R1;.sg1~
H2·ST&CSNl.+.OS<N
TDMClllOl F2; PElOC
«· ·LN5_-.Q<o;· TO+P
CL 81 THRWGH 96
P:D N/&89430219
.
EOI< l-889430220
. .
5>& · 18900221
.
. . AQIH 9CQ89430222 4SM JU89430221 . W9-- 8/889430225
. . T+TYK&OA &IGPlWC
T+Tzs·_~FO!R &DA
-.
T·TC>a~e tn' tG3
.
T+T,Q&OA S·lll·G T+TiL 8 UCJDUA T+T_+PEl·l<PV2·t
l+T)X 1 /5~5··Jt·L
. .
T+T70 ElDl;PIOaN
. .
l&DA &OA ct...~FQll
.
&OC75aR-'4A &DA
. .
PlUClaUA tOA a·I
.
R&DA &DA·81PL&f,
OHCA&<LE5'Xf8~
. . E&+....XGOtP3J5 910
7GOC.PcA5 ~·- A&<
~JQC,!GMCUaJ5
~A &DC3SGR-fi4A
.
CITP1WC8CDA &DA
.
£8>1 6·PQtOA%5mE fSMA &+OCO)XO&IX C2lPC5_XRl·IT&lX
I Q ( ...2GMCU@/5-5·<
.
BJ·e AJ<EtDC06&M -s·HJ&IX2GOCPal5
.
. . &DA &ILP1WC4&0A
=·~FQIY &DA &OA
. .
-iMA tDA &FIPOOC
.
D6~A Qf PO&<GI10A
.
E8>LL8eJ l_X050A
.
l&+L3G0CP'A5 91&
.Jl+<EA>&EOUAalJI 9f<)Q(-.4GMCU'A5
. .
&DA · hFQ IN &DA
. .
:5alt-r.A &DA tG?
.
&DA 9{ PK5 UW5MA
. .
&DA g DA &DA 5...
OIE ..u ON JtO
·89'3024 ( E.....9Z
t+H·. "".<OCL>>· E6Mtto; .EQHFS-81< E/YIHSRFkU9KllVl.
c: · &D··IS·8943020~ T+Tii9UPll·I T5_V · 5aPNE«: Sl I I EO=·
2!VB943020~ Pllil
(', T·T·42·1·nT09tl O&<.E&<LE8aPC8aP
I ,-,
&D 09·894302011 t.. T+Ta700CZL·INO· C JK1GBP17YO*f OG;/
I
· ···
I
·89·3020~ & QH<8943020~
T+T"DtDA Gi/ lJP
5'£0 ° ·T
C Tiiu·NI' ..5_MCD· I
· ·
O&DA &O ): <Bl"G lll*LEO*LR 0 7°3H
QOCFltaJ· OftA&e<S OMA.2*R.UPA8=l
· ·
'11-IOC<f'. W I :F 11 BO·S88 1 XY&<GGO·X
2 &DBI TO 84 ··OH
·
I ,..
·· ··
,,., N1Y89430211 \.., T+UEZ AA+O &ll A)-G-0·.Cl<PFliT. 14J.L51POS·TRS>I
CQF ·· i2039430211j (~ TFMFCLN5+PW9=L5'
I
·5···41QB94J0211 (} T· O<-·O·········
?--.Sl·&laG-····;-
GS+80SZV ·····o··
QVEHTziiowu sz H
llOCCICltA · 8GITE5MC
RlMtN5>C.2JPS8a&
·
F4iJ OUA UlVSH
N&CSR&<LE5'XE8>1
0
XSO<B 1·f D& DO
U9;SX:+xoa...J· IP
·o······o~·~····
.....IQ+LS21 PCC· I
Sl I I EO·I · -.·PNlG5
L4aPDE~DlhRi;.
·
LlDCC&DA 6;/?l_I
52E-iU7csellPMt
0
0 0 0
0 0 00 00 0
·· ·
· ·
6 ..l9MFA!;u_aa_ ········oc······ ·········a··&···
HIM 41C089430226 .&D ·R<89430227
.
S&O a. 889430228
D&<& .-..&9430229
TSU QRy89430HO
lla&943023l
.
<SGO :J-89"30232
····· .3 M89430233
·Ci891t30234
. . T·TO:' A5
T+Tl5 s~so- a&OC
T+T200<XN&fl09SP
T·T1.o·e·G;SQZYO T+T4Ml<C»T09'tE5; I
JQl-SGM lOA-·-
.
1 mtx··.JG..satDC
.
R&<IABSN L*Gl5aT
RY~SUSREP-EHOIY;
R:OCKOSJ.,OTN91L
1oc~
.
2 OHJt··.llOA · <
.
A'<XFl<LABaE llP
HURHLOE;CZmtNVllG
.
Q·XC8UCM*N 9h
.
8GNC= ~CAO &l·PBIDA <ASCU
.
T6;/ ~IL&PftCC5_~
.
CL/5 DlGtrd5-P·P
.
PllV OKS1"CA4·~
tl GOCPiil5
.
. . . GQE9 C<D G=E-C
8' C&>l <a1 309 s..
yg+IH1MCF5_IL5>S
.
A2.QR I «SU&<TA9-n
.
ffClll5 l<PP6*PS8Ut
*· 8Ql -.T-894t30213! I c · I ·188943021,
.
seen ON &94 1
·
I
50/4 RCQ0943021~ \...... · 3271/84/86/88
I
15**· 048943021~ (_ · CAN BE USfD· T
I
·OM·· 3T<8943021~ (; .··SEtilOF.. 894.S
TUH · M894J021~I (; ·
SSWlO - S
. .
S DESIGNED TO BE
.
O!SPLAY STATION 0 DIAGNOSE·DElflC ENSE SWITCHES
. .
ELECT DEVICE/S F
.................
. .
. . USED TO DEVELOP
OR PRINTER TROU E · PfUJBLEMS.
.
ROM CONSOLE SMIT
$$·······....·.··· SYRPTO~ SO TffA . . BLE SffOOTIN& GUI
················
CHES
. . ......·..
T THE ·
OU ·
......··~·······
...... ·········
......·..·......
········ 89430235
89430236 ········ 89430231
········ 89430238
....... . 89~302!9
········ 89430240
DATE 26JUN75 EC NO. 825023
250CT15 8,25032
1SJAN76
82503~
14MAY76 825035
t
PROG ID
PAG&:
I 089+-~ ( ', DATE
lt3 · Et NO.
I
lO
I I
'O
26JUN75 825023
250CT75 825032
15JAlf16 825034
l4MAY76 825035
PROG ID
PAGE
Q
8943 DA ruNCTIONAl TESTS
(,_:2342$9 44
8943
08,JECT CARO lI STING
Cl l THROUGH 16 Cl 17 THROUGH 32 Cl 33 THROUGH 43
CL 65 1 HROUGH SO Cl Bl THROUGH 96:
C.l
I --~
l THROUGH 16
SSWH - R ESTART ROUTINE 1 COMPLETELY
~~~ec~=·
!
* 1
89430241/
02 FOR THE CU
·
SSW12 - D ISABlE 90 SEC. T IMEOUl ON TEST ~ ATTERN ADVANCE
I
·
... ..... SSW13 - D ISPlAV MAS SELEC TOR PEN BUT NO K EY80ARO .,
............ El943CZ4Z! ,-" ******'*******·**
'1l··G>·· ......... . ··oo·o·e
I
{
89430243:
·
SSW14 - 0 ISPLAY HAS liE!TH ER SELECTOR PEN OR KEVBOARD
.................
!
·
······· "89430244!
·
······ ········ SSW15 - E NTER CHAR. ftlOM
DATA SW. IN ROUT
··a······· INE 04
*·········
I
; 894302451
·
SSW20 - S KIP TEST PATTERN
...............
·
8 Y SSW 21 THRU 26
·
Ss.121 - D 0 TEST PATTERN 1
*
SSW22 - D 9 TEST PATTERN 2
*
SSW23 - D 0 TEST PATTERN 3
S OR DISPLAY ONl. AS FOlLOUS: IF SSW 20 IS ON IF SSW 20 IS ON
IF SSW 20 IS ON
V THOSE SELECTED
················ ················ ················ ················
· · · · · · · OO··eoeee
......··········
· ······ ·e·······
~····· ··········
······ ·······a·
········ 8943024~I
i
········ 891t3024,·..i ( ,>,.
I
G ··o&····RQ43024J I
········ 89430241
0 ········ 8943025~J
·
SSW24 - 0 0 TEST PATTERN 4
·
SSW25 - 0 0 TEST PATTERN 5
·
SSW26 - D D TcST PATTERN 6
·
SSW27 - S KIP FUll BUFFER
·
SSW28 - M UST BE TUq,NED ON
* ·
·
·
···
·
·
··
·
·
·· 0
THER THAN A KEYS
················ .................
NOTE SSW 10 AND 11 ARE AUTO
lF SSW 20 IS ON IF SSW ZO IS ON
IF SS~ 20 IS ON
PRINTOUT IN ROUT If CPU IS A MOO
OARDLESS 3277 MO ··············oa.
f1AT!CALLY RESET
·····oe··o······ · .,a·····.a.ee···ee ·······o··-c-··e·e
INES 03 AND 04
EL 4 ANO DEV ICE OEL l DISPLAY ..
········~"·····o
AFTER THEY ARE U
...... ."'.. ~....
G···ae ......... .
*
40 IS ·
........ OOe·ee···
. . . . . . . . . . . . Viii
SEO *
c o · · · · u e e
f
89430251;
C ............. 894302szl
!
C ···c····
I
894l0ZS3j
0 ···o····
J ~
894302541
0 ····e···
f
89430255!
I
C I
··<>u ...89430256!
0 · O&o· · · · 8943025-T;
I
C · · ·" · .... · a·94302 sJ.
* SSW 20-26 ARE
PROVIDED AS A C ONVENIENT WAY TO
* SKIP TEST PATTE
e·o ·········
RHS
··············· ················ ··············c· ·······<b····-···
Cl H THROUGH 32 RRENT DEVICE SEI
....... ******$;1;;:e;e11<0.u**
O.BJECT CARD USTING CL 33 !HROUGB 48 Cl 49 THR(!UGH 64
~G TESTED.
***·*II<********** ************····
ASC
aoe ··········
RA SO Q
PART NO ..
PAGE
CL 65 THROUGH 80 CL Sl THROUGH 96 ·*·····e G>Oe··o · · · · · · · · ·
89430263
················ ········8943026'1
08070608730 517764.089430265
· ROUTINE 13 IS
* SELECTING ANY
DATE 26JUN75
EC NO. 825023
A MNUAU. V Sf LE CTEO EXCERC!SER"
··· ~.. · .... °' ..... BEFORE MANUALLY
ROUTINEs YOU fllJ ST HAVE RUN AT l EAST ROUTINE 01
250CT75 82!;032
l5JAN76 825034
l4f'IAV71'> 825035
0 894302 621 0
...... .....
PROG ID
PAGf
I. --- -------------------~------------~~----------- LAS.T PAGE ---------------~-----------------..
·c 0894-3!
DATE
44 l
EC NO.
J V I r .
26JUN75 825023
'2socns
825032
15JAN76 825034
14MAY76
825035
PROG ID
PAGE
0894-3
44A
I
0
0
· · · · · · · · · · · · · · · · · ·0 · · · · · ··· · · · · · · · · ·
·. --·-·---··· · · · · · · · · · · · ·I · · · · · · · · ·· · ·- . · · · · I
IBM MAINTENANCE DIAGNOSTIC PROGRAa
89F1 OA SYSTEM TEST MODULE
ERR l..OC 09.JECT CODE
OAOO
CAOO 89f=l ~A02 00 CA03 00
~·o· ooco
OA06 OAlO OAOfS llEIB CAOA 89.00(; OAOD 901000
0A10 01 OAll GO 0Al2 FFflfO
CAI· F3 58 8D OA17 F3 58 CO
oa1· !O se 1!515
OAIE OD 01 1515 1-564 OA24 CO 01 OCE5 CA28 :SC 02 1517 0A2C 3C F9 1516
c.a30 :so se 1s15
0 AM Cl SD OCES OA38 0£ OJ 151? 15.16 OA.lE CO 20 OA30
OA·2 F'3 58 BO OA·S FS 58 EO
o··e 30 oo 102 OA4C FZ 01 M OA4F H 01 OAOC
OATE
26.IUllPS
~C NOe 825023
2
DECK I
~
SEQ 0
4 WXYX START X·OAOO·
5
TAEP
0401
6
0A02
7
DC
XL.2·8tF1 9
DC
XLl·O·
0.1\03
8
OA-05
9
DC
XLl·o·
oc
XL.2·0·
OA0'7 19
OC
M..2(RTN01)
OA09
OACC OAOF
II
OC
12 LINES DC
13 ESC&l cc
AU<LOGJ
xt..~·894000·
xu·so1000,·
0058 0050 0058
OOFD ODFF
1·
14 15 MJ't"ADY EQU
16 ATTCHK EQU
17 5101 EOU
18 ABSCAl EOU 19 A8SCA2 Euu
x·se· x·so·
x·ss· x·<:DFo·
x·OOFf·
0001 0002 0008
20 XRI
21 XR2
22 NHll
EQU 1 EQU 2 EOU 8
0004 O()AO
23 PSfi 24 IAJ:U?
EOU EQU
"x·Ao·
OZ22.
021A 021E
~ec
008A 0069 0088 008A OOSA 0002
ooco
0088
0088 0008 0010
0020 OAOO
25 f'IA.LT EOU
26 PAINT EOU
27 UNPACK EQU
28 CAR
EOU
29 TillO
EOU
30 SA.R
EQU
31 STATUS EQU
32 SUSY EQU
33 XNITR EQU
3· £NJNT~ ECW 35 ENABLE EQU
36 CN-rRL eou
37 NOIOOUC EQU
38 DP1'3 39 OPT4
EOU EOU
.0 OPTS EOU
·U PREF EOU
x·222·
x·21.t.·
x·21e· x·ec·
x·e1.· x·e9· x·ea· x·eA·
x·e.-·
x·o2· x·co·
X·98 9
x·ae··
x· oa· x· 10·
x·20·
X·AOO·
OAOA
42 SUPER EQU
x·AoA·
43
43
o.uo
43 44 ATNOl OC
Xi...1 ·0tw
OA11 41-5 0.\13 46
DC
:Q...l·OO"
DC
X.l..2. ,.,,,,,,.
47 48 STMT
49 50 tU
510 510 SNS CLC
x·eo,· .sICJ Jt·co· .s101
BCNT.SICll BCNT( .2). X7200
52
8N£ fllJCNL
53
MVI
0118CNT.x·o2·
54
·vr DV8CNT-J.X 0 f'9·
55 MICL.P SNS BCNT.SU:IJ
56
TIO flll CHL a A T'TC"K
57
ALC CVSCNT ( 2) · UNE
58
eNOL MJCLJlt
159 60 NOADY 61
510 SIO
x·eo·.s1a1
:x·eo· .s101
OM-8
62
63
USING MICAOtlt.XJil
6<l IQ CRON CLI PAss1 .x·oo·
65
- 66
.INE T8fll
ALONE
LJNes.x·o1·
I
.1
(_
! 8fr4 ·A!41tTEHAHC£ OIAGNOST IC PROGRAM
c
PAf;T NO. PAGE
4234261 lA
I
&·F1
OA sYSTEN TEST tcal>ULE
I eI
EU LOC CSJECT CODE
AUOR STMT SOURCE STATEMENT
s
p
£
R
c
E
T
F
l
A
0
c
H
£
escA-1 UDT JNFD
!o
I
1I 0 ! 10
I
18
CA53 F2 90 IC OA56 OC 00 l.01 J"6E.A OASC 0C 01 13EC 166C OA62 C2 OJ OA48 DA66 SF 03 7'9 ?9 OAU ?C JC
CA6D OF 03 OAT3 X EO eA77 SC 01 OA78 ?C 08
GATE $C 00 3E 3D 0482 7C 38 30
67
68
NVC
69
MVC
TO NC:»<AT LA
71
SLC
72
"YI
73
!il...C
74
MVJ
75
M~C
76
MVI
77
?B NEXT MYC
79 SETTBN MV!
NOKAT
JOMP IF NOT
DATA£( U.ttATDl
CHAHfiE INYALIC KATAKANA CMA5·
DATAE-21(21.KAT02
MJCRO~.x·1
LDAO XRl FDR lt¢EXIMG
SET(4.XR1 ).SET( ·Xllll) CLEM SET AAEA
SET(.~1t.x·1c·
SET UP IST 3 BITS ~Sf!O
Otff"t..Gl4) ..otltFc&..G
CLEAR TM: ON FL"GS
CN"F'L&-3.x·eo·
FORCE HI 3 BITS DH
TI..I~+3(2.XAl)·C0H!(·:XA1) INITIAL.ZE ADDA I~ TBN INSTR·
Tt..IM(.~1).x·os·
SET UP STAA'TIHG TEST BIT
TLIH+ t( l 11XR1J eTLUH.,Xf;l > fllf0V£ TEST eIT TC IMt.. BYTE
TLINC.,XR1)oX·3e·
SET TeN IF CODE
·OA8S H 00 .0000
80 Tl..Jill T8N ·-···--
TEST FOR LINES INSTALLEC
TIO t\IOT A£AOY T ICI ATTAC;H CHECK
SJC IM..mlATE AD~ OF SSCA-1 tN'TBmlJPl ROUTI~
ADOil OF CA INTUilltUPT GOUTIHE
OA89 F2 90 OS 0A8C lE 03 1SOA 0A91 9E 03 79 79 OA9S SE 03 79 79 OA~9 5E 03 ?9 79 OA90 V8 EG 76
81 82 83 uPL 84 85 66
.IF -ALC
ALC ALC AL.C TBN
Ul=L
CN-FL.G.S£T<··X~1J
SETl4sXR1).SETl.XR11 ~ETt41.XR1) .. SET(· kRl)
SfT(·.x~1>.sET1,x·1· SET-3(.XR1)11X·E~·
TEST NEXT IF NOT SET ON FLAGS IF INSTALLED SHIFT LINES LEFT 3 SJTS
ARE W£ OONE YET
OAAO F2 10 21 OAA3 7'C OJ? at>
OAA.6 SE 01 3E 3E
044A CO 2(; Wiao
S7
&8
S9 StilFT
;;;o
JT
~VI
ALC
TALONE
.JUMP
TLIN(eXRl)·X·o2·
PLUG
TLIH+l(2.xR1J.TLIN+l{ 9 ~l)
SHIFT
IF SCI IN THE
SHIFT
SHIFT RIGHT
STOPPER 1 BIT ROUTe
OAAE 78 81' 3E
91
TLIN+l(.xRl),x·ao·
DID WE JUST GO TO TKE NEXT SYTE
OABl CO 90 OA7E
g.2
NEXT
GD ON IF NOT
0AB5 4E 01 40 1536 OABA CO 87 OA82
93
TLIN·3(2·XRl).ONE
INCREMENT THE TEST ADDRESS
94
e
SETT1!3"N
vO SET THE T8N INSTR.
O.i.BE O.OOOOOCO
ft
OACl 96 SET
·cc
Xl..4 8 Cl.
CAC2 OAOS
()AC! 97 COl\:S DC
AJ...2 (L INES-1)
98
OAC4 3C 80 15~6
99 TA1.0NE MVZ LINE.x·eoe.
INITIALIZE TC lST BIT
OACe OC 01 1504 15fSC
lCO
MVC
CU~OEV (2 t ,PQ..L
INITIALIZE OEVICE TO 40
OACE C2 OZ 1507
l~ 1
1.A
ONFLG-.il.XR2
POINT X~2 TO FLAGS
0A02 34 02 1566
102
ST
SVK-R.2,.XR2
UPDATE JCR2 STORAGE SPACE
OAD6 3D f f OAOO
103
CLI PREFo.1(·89"
TEST FOR RUNNING Al.ONE
OAOA F2 81 06
104
.JE
ALONE
OA~D CC 01 ODFF 1519
105
MVC ABSCA.2 {2)· AINT2
TELL t!SCA-1 MY INT .. A~ESS
OA£3 FJ ee co
106 AL.ON SI 0
ENASl..EoCNTRL
EkABL.E DA
ADO.RESS OF SECTION PREFACE 40DR OF RETUltN TO SUPEAVl soe
0AE6 OC 01 1502 14FE
OAEC OC 01 152F !526
e
DAF2 35 ~0 1!519
0AF6 :JD 00 15~2
107 l() 8 109
110 111
M·VC MVC L
CLI
CURR fJ. (2) ·ACATA ATASPT (2) ··AT AS AJNTZelAl'l2
i:>ASSl .:>
JNITIA1.IZE RIPPLE DATA l'Ch1TER INITIALIZE At~ORESS TASLE POINTER
LOAD lNTEJil~UPT ADCRESS AK
TEST FCA Fass 1
0 AF A 3(; FF 1532
112
NVi
PA SS l o X·FF t
SET PASS 1 CONPLETEO ON
CAFE F2 81 e!5
11.3
JE
GO
GO START ..AIN PROGAAJ4 It" !ST PASS
LAST ROUTJ!IE
DJ SABLE ENABLE ATTACf1'111£"'7 SENSE 15T WORD CHECK FDR CORRECT OATA
0801 CE Ot 1504 153E
0807 35 02 1566
'eoe ae so us.16
oeoF Fa?. 90 oe 0812 .3A 80 1504 0810 llA 80 1503
114
115 116 117
11e
119
UPDATE
ALC
L TSN .l.F
seN
S8N
CuRCS:v(2) .t>f:VINC
SVX-RZelilA"f
LI NE. :x· so·
T2
CUROEv.x·.&0 11
CUROEV-l .x· eo··
UPDATE CU9.RENT DEVICE RESTORE XR2 T~ CURRENT VALUE
ARE we AT 1ST LINE SELSCT POStT10N
CHANGE ·H-1 SITS TO C OR !."
EA"O~ IF NOT SET UP COUNT
OelA :JS 'CA 1504 OB lE 39 C!S HS04
120 Tz 121
TBN TBF
CUROE 'It. K · OA;,
cuRcc:v.x·os·
ARE. LOW BI TS OF AClGP. "' A
SEtiiSE CONTROL STORE WORC
0822 F2 90 08
ao o·u~ 38
1504
EAROR IF ATTACH·EHT C:HECK
Cg29 3B 80 US03
It>ICR-EM!!NT COUNT
0820 38 01 1506
LOOP TILL ODHl!
0831 F2 90 OE
u 0834
02 01
DJStlBLE ATTACHMENT
0&37 34 02 1566
ENASLE MICRDCONTACIL.LER TEST FOA FIRST PAM
'j ·
083B 3C e.o 1506
OB3F fl'2 tlT Al
06&2 SO SE 1504 0846 f'2 01 26
.tUfltFI IF NOT IS te.ATAKA-NA FEATURE IHSTAU..EDT
l ·I
·DATE eew-11
,.i I
0~9 oc 01 1504 1&5C
OIM-F X 80 1906
£C NO·
250CT75
e,HQU
122 123 124 125 T3 126 127 12S 1.29 130 131 T4 132 l:s3
134
JF SBF SBF T&N
JF
LA
ST MVI
.I CLt .JNE fillVC
MV I
T3
c1.rRo-EVox~eo·
CUROE'lt-1,x·.ec>· LINeeX·o1·
T4 1( · KA2J 9 x.it2 SVXR2.X-Al!!
Lu..e. x·.ao·
AOOC«
CuROEv.x·e·
tlEYOK CUllOEW(2) ePCIU..
t..JNe.x··o·
ARE WE AT TH:E LAST LJffE 9JT
·.:J
INCR£~Wf XR2 'TO NEXT FLAG SYT& U$IOATE kR2 ST~AGE sPACE
STUT AT &IT URO AGAIN
"'""-
010 W£ JUST DC LAST DEVICE
REINITIALIZE 8ACK TO OEV 40
PfitOG ID
PAGE
OMF-1 IA
I
Ii·
ACOR snn SOI.ACE STA11!MEtn'
OBU C.2 02 150?
oes? 34 02 tfi.66
0858 3C Fl 1531 OSf!lF OD 03 15~ 15&A 0865 F2 Cl 1E 0868 3C FF 1530
oe6C f'2 el' n·
x ce~F f.l2 is»
OB?3 OE Cl 1$06 1506
oeN co 10 os?:.s
0870 UC OCl 1506 Hi05 0883 F2 87 50
oe&f> 35 01 1so2 oeeA SC IC 1437 00 DBBF lC !C 147~ 00 0894 OE 0 J. l 502 15.J\6 069A OD O! Uw2 Uii;.O CSAO F2 04 06 08A3 OC IH 1502 14~f'E 08A9 35 01 i52F O!!AO OD 01 15.?F 15.2£1 0663 F! !H 04 OBB6 3C ll'S !5!H OBBA IC DI 1·49 00 06!'!1< lC 01 #40!1 02 OBC4 IC 01 i&OE 01 08C9 lC DJ 141A 04 CBC£ OE 01 l5Zl" 15~8
oeo-. CD 01 152F 1520
OBOA P 2 Qfr. 06 OSDO OC 01 Uif' 15.aB OSE3 C.2 0 l 15.06
OBE7 1C OC OECF 00
CBEC ac OQ OEE6 00
08Fl lC 00 ~FQ3 OQ 081'-6 lC 00 OC 1 i 00
oeFe 1c: co oce7 oo
OCO-O IC 00 QF7E 00 OC05 lC DO OC3A CC OCOA 1C 00 OFSE 00 (ICM' 1C CC OF4E Of.I
135
LA
136
ST
J37
138
i39
140
141
142 1 fl.S OE!lt°" MV I
144 SH !F Tfi Al.C
14!5
S'HOL
!415·
MVC
14'1
.J
146
J49 $
150 1Sl GO
152
15.3
154 155
156
157 158 SE TH.OR L
li!:"·'il' 1 l'>.0 16N 162 NOTST l.6.3
CLC ..u-ie
~'~'I
lllVC.
i-.vc:
lt.4 166
~vc ~vc
H>6
Af..C
16T
CLC;
168
JIW!·~
16-9
NYC
1 '70 A.DOOtt; L.A
1?1
~vc
i72
MVC
173
·vc
174 1?5
ill!VC MllC
Ml.IC
jlJ!'lfC
"11VC
lllVC
OMFLG-3.,.aa SVXA2.XR2 WRTCMD,. X "'F 1 e
flRTFLGC4 ).,CNFl..G 00 f'IFf..G·llt"FF· GO
f..!W£..,.i<>X 8 0~· UNEOU~L1N£
SK!FTQ A.l!Nf:(1).-LINE-l\.
At>r;OK
CUl'liilA" XR S
EX~6,0(29~~Rt) ~IPDAT~02~.~R!I
c.u-ARA< 2 >.owe
CURRA (2) ~DATE A SiETAOR CVRRA(2) .. AOATA ATl>.S.PT .. XR1 ATA13PT( 2 ~ "AATAf?ltOTSi tl!RTC1140. JI: Ut"=5 ~ lllfHAOR,,~~2~XRl l El"1''2·2U:~XR:i.)
EXP3 .2< 2. xr~ u
EXP5.4Ci!~XR1)
ATABPH2) ·SIX ATASf:JT{ Z P,/cE!Aliil
M)l)Ot(
A'rASl'T(2) ··u1-r;11;.s
L.. ~~.XR~ ii«l~O·{!,.,:(R12· Sl"'l.+l ,lH 1. .x11u.. )
SPO·~ ll 1>011: 1 o l!(lll I» TP!+l .,Q( 1 ol(QJ ! SPHlt .. CH 1 oXRl\ I SN2+1.,<H leXAl i
nu.~1.ot a .· xR1 ~
sF2+:\ ,.0( 1.11R1 l
o( TN2.+1 .. 1 ol:fl;t)
0C!4
CClS
OCH~
OC18 OClD OC23 10C29
~O il"f
01 Ui04 1455 OC Q l CC Cl :I.
OC Cti
02H!
l4lil' 12'4C: UC: I!!
1.Jlil!S !'i·SS HH:4
()C2F OF Cl 1517 15';.7
oos ce e;r CE92
oc:,.. ee oo «>e
OC3C CO I 0 OOiH OC40 OC Oi 14FS 155£ OC:46 CC 87 0023 GC.:&A OOH OC4C l~ OC4£ 14F8
OCSO 4D Cl 01 1&46
OC55 F2 Bl 04
OClS OC1A OClC
1se
189 seTPOl.. SlLC
190
s
1·n
192 "UH
TBN
193
BT
194 SEUiCT ~vc
19$
s
19-6
oc
191'
IX
198
oc
a'e"o
CLC
2:01
.IE
UN;.Acoc U... ll ~ ! · AL.2.{ C t.l>'!C!\; \,!) ~.2( OE'lrl iCE)
exP:,( a~ ,,oevtcE
i..COGOE Vt 2) ·DEV I Cc. f::Xf'! 11 J" C.1,,;~CE\i'
CVSCN"i'( i } · C'··llH:'.:fH
DO>~OL
EH· ~m.2 l ·· mi:-ll!o UPOA1"e SPFt...OC?. ~ ~ SEL OOSlO ALZC EWO-SfL.POt.J A.UMXflllfEt
AL2LElllG t
1 (2 ·Xflil} ,,A.C:KO
t:RTPAll
I(.:
423426ll
!&fl! 141!.INTENAl'KE DlAGNGST IC ~OGRAM
21.
42M261 2A
POlWT KR2 BAC~ TO 1S7 F~AG BY'TE
UPDATE XR2 STORAGE SPACE F CACI?. WRI TC 01111.. V ~~i$ANC! TES'\' Fos:r 111..t. 0£VICIU .. PfHN1'£fiS 60 ON IF NOT FORCAE PRlffTEf<5 1'0 NlffT
t..O!llf.l THE S+'lt Fi !i'C»-~Fl
SHIFT t.lNE t.EFT
6-RANCM TU.. OFl..O CCC..llf«S LlNE Ui NOW SMlFTED RIGtfi Clllte fiJT
~UMP OD THIS DEVICE
GfT ~!PPL.£ DATA A~OR
SET UP EXP£CTEO CATA Sfi V~ ·~ANSM!T DATA
UPO Al E RI Pfil~ E AC£:1A
TEST F~ ENO CF DATA
.JU!iliP IF 11\!0T
lNilULXZE RJPPL.f fl:l),'tA PG!Mrf.;'R
ro PO!t!'>IT XR!
TASL.
TEST FCR START CP r·eLE
.JlH"il~· ! F NOT
&ET ·AITE CMD TC EAASE/MRITE
MDVE ADDR TD MAITE FIELD
ll-IOVl<;; l.COR TO EXP« CU;>(!>CIR F!EL!)
Mr.JI/£ t\tHllil!. ·n1 E1'l.Po l~T SG!li\
1'~0\o'E ADDF<: TO l::l(F"~ .i?NC S~M
1..IPOAHii i;·;u,aLE iP'OJ.Nif'il:<
TEST r.: QR EM)
JiJMI" Ir Hill"'
INITl·LIZE ADDA TAbLE POINTER
PO~ NT X!:il ·ro LINE POJWTER
SET l.11=' Xli4i>llEOI ATE Hlf'tR!.fC·rtOt\IS
\'ll"irl N!:li PO!W'l't:fl
.w·r.n· Ut11<1:>1;GK F.O OEV I CE IN Xl"'fCi !'.fl,
!MOVE. DEVICE TO LOG OUT ~UB.O
ro fii011/E Cl!RRE;..t\" OEVH:rt'
f:XP., Ft.o.r
:!i:.l".T t!i.vS'i!' COUN'f ll:' ;t~'f<H~ G(.l '1"0 POLL. S!Je~OU''i ;.l>IE
TEST il'IA*>\.., !NT .. CH 1Mll!i ~'11'10:. GO TO NEJ!;'f OE\l'tCE IF !'SC SET Vf:l 'tO SELJEC.T Tt,IE l')f::'.VICE GO SEL~.CT
89Fl
f)A SY$1f'E·lil TEST MOCULE
I I eERR LOC OSJECT CODE
l e-~ CC53 CO EJ'f 0£31
AOOR STMT S04.NCE STAT!Ult£HT 202
!*
c
1()
ocsc 06 Sf.I uaA 16E9 oce.2 ac oo 144'5 is.:n OC68 x 60 1409
O.C6C 39 ~II; 1~
OC?CI as oe 04
ocsc
203
21)4 WRTPRP !!OU
205 206
AZ .,,
<'.07
JC\({
208
SBF
209 "rF'l
TBN
·
Sl.PCt 6S .. DEC! U 1
~RTFLO(l)·~TC·O
EXP2-2..,X·6~·
.wee. x·oe~
4( .xR~I · ._.,
o~.73 f'2 90 u
CC?o 3C ES 1449
,?10 211
"" M.Vl
d?Tf'AT
EXP2-2.K ·ee·
OC7A :!II) 00 U53Cl
212
c.t.I PFl..flh<l
OC:l'E Fla 61 &8
OCSi :SA oe 144&
21.J 214
.JE SBN
w!'t1'PA'i' WCC.>Jll( 11 08"
ocas X FS 14-it!i
215
NVI
wRTFLD· X" Ffi 8
(lC&9 ce ST oczs
216 W~TPAT S
00510
oceo 003~
OC~F 1640
OC&E 211
OC90 ua
t)C
~Z { EttR1"-WRT J
nc:
AL!OC.M!TE)
OC91 147'8
'OC92 219
DC
AL2( EWRTJ
220
CC93 llJ&.O 01 01 15'1·A OC98 CO 61 OCAO OCK CO 61" OE31
2JH ?..22 U3
CLC:
H2 .. XRl J ;.AC.Kl
BE
READ
8
T"1VI
224
GO TEST FOR AVI
,t..00 1 TC SSLECT COU'NT NOV£ IN tllfi!ITE CR ERASEl'_,;iJTE
cw· SET OtSA..AV NO AJD
~SET TtE ST·BT PRINT lflil wee TEST FOR THIS D!VJCE A PRIN'TER
NfiHO If" NUT
SET P~INTER NO AID C~A~ACTER TEsT FOii NOT PRINTING ~'1 IF NOT PRfe.TING SET TH! START P~iNT 81T IN ~cc
f:URCE AN ERASe."wi;;ue: TO PA~i'iTER GO WAI TE TtE PA"r"::''.fRIO:
TEST FOA R!!SPOHSE ACK 1 GO ae;AO JF $CJ GO TEST l'IV J 9 ECT OR WACK. IF MOT
·o
oc~c
00\6 OCAJ11
OCAC
OCA1':
06 so
co $7
OtH'.l!'
16AD
14~C
i 1Fc
002:lll
>.~E9
t:H;AS
OCAD
C~CilliF
2?.5 2.26 227 &!2S. 2.29 230
RS~
II)
lf/RPC(6l.DEClCl,
005 U:l ;dllt..2 ( $il OMOCE-lilDMOO;
AL.2 ( Xfl.li Tfn
At..!H RO'MODE)
ADO 1 TO WRITE COUNT GO DO THE REAC 11:\COIFIIEO
ocev 70 ea c.s oce:::i FZ o 1 <l7 ocse 6A oo 011>
OC89 !C !Hi 1409
oceo oo ii.o 1640 t 4'li2
OCC3 F2 81 U OCC6 40 0 l 01 15~2
QC.Ce co al CESA.
QCCF 3C 0 S 1533
0£.03 cri a1 o;.e.<1>
l~.i
li!.32
C i. .
233
2.34 S.Pl
235
2:36 NO~ASl
237
2.58
239 240
241
a.~1;.2
::H ·· XfH ) 9 X 3 EB·
NOPA.S 1
4(elit.R2),~,,.$
ExP2-z.x·ea·
l0'11TE.(65 hEXP?
ACK&T
ll( 2.11~1 It .e:OT
iREOT El<Pl.8 ;l:Rlll!OJ:l:
DID we GU" Ill PfHHTEA ill! C1
.Jl/llllP IF NOT
SET PRINT!!~ FLAG FOR THIS Oi!VICE SET E;kPf:CTEO All) FCR PRJWTi!A
TEST CORIU:CT Ae sPOHsE JU~P IF Ctl'RRECT ~AS RESPONSE At. EICT?
E!RANCH OUT IF SO !i>E":" INC:OR~ECT OAiA COO£
--------~----
oc.011· 06 se u13, ioi:g
ocoo c.ci e 11 OF.1'1~
vCEl CO ~1 06(~
OC01'
243 ACKI'i 2:44 24S 24.f.
,~,
~ OPC ( 6 ) ·· l)(;C l .! ~ t
i'.iiOACK VPOATf
ADD t To READ cCVWT
$ENC ACK 1 10 oevtce
GO TO N~XT DEVICE
2.ri.1
{H:!~S ::!IC £H" l!"S!! <r::·'.::.E9 F3 ~:Jt1 '50 t:l>Cl:!:C CV III"'/' OF&~·
.2411'
.2.:1>8
;?49
6!150
25~ 2S2
O·il,.
ERIR. X·OF·
x·so·.:sioi
SIET Ef<ROR WOE RE i£1' 11,TTACKM'l\!N'f CM'f!Cf<
1e...iR01iil
"1'1l"11$$Q\'*""'***~'''*'***11:"'llll*~l1~:$lll<l!>·*"'n*<11'r1>11' a; MA!llUAi.. INTEH·lfEN"rH':'JW RO\rr lN::: $ ····111>111>·1*1ll>lllOIOJ.....,.UIO.,_#$.lll<lll<$~Jil$(«il'¢'ii$·~;);1f'Jt<l\ll"lt111l<
i.
OCF~O
(>.i:;, I"·!~ (H;; ~e. OCF!i
CO 87
oc ~'$!
7, 6 .t.O
t.t"r&~:l<:
OD?...3
a53 $1!);$$$,..l!<$ll'0$'°1$**1!>*At>**ll>$$·!11··~>1t"1<'11<<l·<ll\1!11$
.(::54 JlilAll>l!N ~ !JC
DC
r:os If§
/:11..2 ( M.ll.NPlE-lllANPl St Jl·L2( l(Mf'l'fH Al.2 ( M.AHP !El
CH.::fl·,1; 4.D 01 101 15411 OCFF C:O S ! OSO l ODO.::l Ct'l 6? CE-:.a.t
z. 1( XR1 l ~Al.:Kt
U?tlATE
T~\li
CHECK FOl'~
~ RE'HIR'M
BAY IF SOo t.. EAYE HIM TO PLAY
GO CMECK WHAT HAPPE·ED IP MOT
1'eST FOR A£SP-0NSE AC« 0 II" 50· 6G GE'r REAOY 1'0 WI TE PATT·
C:007 u: 13 J;4l)A U:
lHi·O'C CO 8? 0023 OtU.O 0031: 01'>12 1640
RECMS<i.28(~1.'.1.>IU!l i OOSIO Al..2 I( H AtfP.2:E-MaNPd I AL.20041TH
fitDV£. l 111! lilE.liS AGE GO AMJ TO SCREEf!I
MTE
G89F-1J .Oiltt
· · . . · · · · · · · '· · · · · ECNO. <Ji G ·~·
2 ) ec MO·
· · · · · 1··· · · · · · · · · · · ·
.--·. .--.,-. · · · · · · · · · · · · · · · · · · · · · · · .-
19~ N-AINTENAflfCE OIAGNC5TK flROCUl-.fll
·9Ft OA SY ST.eM TEST MG1'MJLE
EAR LOC 08.JECT CDOE
Al>OR STMT SOURC£ STATEMEN:r
0.DJ4 16-SF
0016 40 Cl 01 164-A
00!8 co 8l 0901 OOlF co 87 OE.lll
0015
268
269
270 271 272
DC
Q..C 6E
e
AL2UIAHPCEJ
U2 exAl) .AC«!
UPDATE TRYI
( (... ~:
......
0Al£ CC ND·
IC
42348611 . IBM fitAINTl!NANC.E OIAGNCS1'1C PROGRAM
JI I G
I
89A
0-A SYSTEM TEST .acJOU&..£
l e EM U>C OBJECT amE
ADOR S1'MT SOURCE ST ATENENT
PART NO· PAGE
42~261
3A
CHECK FoR ~ l R£TURfil OKAY lF Ul· U!AVE j!iJ'4 TlL PF3 M%T GO CHECK VMAT H-A~ti!HO 1¥ *«3'l
I· !e
ii c
0
ooas 34 oe OD£F
C'02T 34 02 OOE9 0029 35 0"1 ~
002F OC 13 12U 1263 OOH OC C 1 124C l4fS
0039 OC 01' 1262 1eSF OD41 OC 03 12'12 l SE.e
'0047 OC 03 J27C 15-&2
Ot>4D cc 03 12ea 1S·
0053 CC C3 1290 lSU 0059 OC CH UUF US 10 ODSF IE 01 161F OJ 0-064 OE 01 15JF 15.!6
006A IC Cl 1521 03
0061" C2 02 160.0
OC73 JC 01 ·ooec 0$
0
0078 1C 00 0089 01 OCTD 1C 00 O'DSA 01
oc '1082
40 16'40 J6L;;l
·o
Otl86 8C 00 OfJ 0000
OOSD 3C co 1$14
0091 3C FF 1513
G
0095 3C 00 1533 Ob99 F3 88 02
0
I
10
I
!O
i
!()
l
I' o
,.I
10 I 10 I
OD9C 31 ec JSl 0
00.t.O 31 SA UHF ODA· 31 8·9 1$:21 CD.AS CJ SS OE15
OOAC F3 8A 02
OOAF Cl 8A om:o Ol"93 :so ac 1sza
OOS7 30 BA 1525 oosa 30 e 9 1527
OCBfZ 30 88 1$29 OOC3 35 Ol US!F OPC7 31) 00 1513
ooce F2 e1 O·
ODCE 3C C7 1533 ODGZ 30 00 1933 OOD6 CO OI Of'84 OOOA 3D 89 OAOO OOOE CO Ol OAOA 00£2 0£ 01 ~ OHa CZ oa 0000 ODEC CO 87 OGOO
I
I
I· lo
ODFO OE 0 l UU5 1S.i6
C0"6 CO AO OEOD
QaFA 30 00 Ui13
OOFE F2 81 a.
0£01 3D 69 OAOG
01£06 c:o () l OMA
0£09 co 87 00.W-
lo
OEOl> 3C C 2 1533 OEll CO 87 Ol'M
I 10
CElS 30 0-0 U133 ()El'9 CO 01 OFM
.0:41'£ f
! eeiw-11
:s
26.NN7t5
ac fllO. 929023·
I·
le
274 . . . . . . . . . . . . . . . . . . . . . ..
275 * DO SIO SU&tCOVTINE *****-···--···--...*·***"'********·*******.._*._...
22'71'61 · · · · · · · - · · - · · · ·. . .···
2711 00510 ST
DOSIOA+3·AM
279 280 281 262 283 28· 285 266
287 288 289 290 291 292
.S.. T
NYC M'IC MVC fllVC M.,C MVC MVC MVC
~c
ALC MVC LA
AEST2+3e Q,2 OOSJ~3··1
L.OGN5Gl20)efifS~K
LOG0£V(,!J e0£VlC£ LOGMSG( Bt.HQI!. . LOGSTC4J .JtllXX LOGCARC 4) · XXXJC L06TARl4 >·JCXXJC LOGSAti(4 J · XXIOC L TAIU 2") aLCAA
LTAR 9 1(2 .x#U >
LTAR( 2J · QNE
LSAR · 3( 2 · XR 1 )
XfliITRC.~RJi!
293 ·
Z94
295 296
MVC MVC MVC
MVDATA+4e!(2·l(Al)
MVDAT·+l.111.XRlJ MVOATA+2·1fleXR1)
297
MVC
298 MVOATA MVC
299
MVl
300
IWI
301 302
'4VI SlO
FILL-1 (6$) .FILL
·-*C·-··XR2)·*-*
BCNT-1.x·co·
INTFL.G.X·FF· ERR.O
ENINTReCNT~
3C3 ·
304
I.IO
305
LIO
306
Lt Cl
307 TSTROY TIO
LCAA.CAR I..TAR.TAR LSAR.SAR
~OPEO,NOTAOY
308
309
SID
310
:s11 eusYs TIO
312
SNS.
313
SNS
314
SNS
311'5
SNS
316
L
:JlT
CL.I
:ns
JE
319
MVI
3ZJ TSTERR CL!
321
BNE
32.2
CLI
323
SNE
34?4
ALC
325 AEST2 LA
:!26 OOSIOR 8
.Ja7
3Z7
ENJNTReX+llTt\1
ex11,eusv
SCAR.CA;! ST.UC.JAR
SSARe SAR SSiAT.STATUS LTAReXAl INTFLG·\1
TSTERR
eRR.x·o?·
ERReO ERROR
PREF. x·sg·
SUPER 00SlOlt+3(2 )111,iHt
--··-·eXR;!
328 EXIT At..<.;
3.29
BOL
330
CLJ
331
.JE
332 GOSuPR CLJ
333
6HE
334
e
335
336 BSVERR MYI
537,
8
8CNT( 2) "ONE ESYERR
INTFLG·.O GOTIT PREF.x·&9·
SUPER
!USYS
338
339 0-ROPEO CL J
3'40
BNe!
ERRaC !RROR
noae fiETUAM ADtml!SS
STOQE: XA2
POINT Jltal AT PAl<Ml&ET£RS e&.A-lllK GU1' TM£ MESSAGE F lELO lflolSERT '?"HE l>EVICE IN 91£SSA8E
·x· Clvt: IH ND ERROR M£SSAGE OU'T DATA
PUT lNlTlM. CA~ IWTC TA~ LOAD ARE·
ADD Jfll THE DISPLACEMENT ADO 1 MORE MOYE IN TM! SAR AODAESS PUT AOOR OF TRAN$MIT/AECElyE FIELD
INTO XR2 MOVE IN DATA AOOREU MOVE IN TKE &.ENGTH MOVE lfll THE DISPLACEMENT ZERO THE WfiDLE )IM!T.l'RECEJVE FJELD MOVE XMIT OATA TO XMITl'REC. FIELD RESET THE SUSY COUNTER
SET INT FLG TO 'NO INTERiiluPT· SET ERRQA FLAG TO ZERO SIO TO EttAISl.E lNTERRuPTs TO CATCH
ANY ATTACMtlf!HT CtECKS LOAD THE CAA
LOAD THE TAR LOAD THE SAR CHECK ll!ICt<OCONTROLl..ER ST ILL flUHHING
SIC TO TRA~SMITl'RECeo ENABLE JNTRe
TEST BUSY· MAYSE GO TO SuPERVISOR
SENSE THE CAR SEMSE 1Ht? TAii
SENSE THE SAR S£N5E THE STATUS
POINT ~1 TO RECEIVE FIELC OJD THE INTeARUPT OCCUR YET? JUMP IF SD SET ND JNT9RuPT EMOR TEST FOR fllO £~ P4NCH IF ERRCR OCCURf;EO
TEST FOii: A\IHNIHG A4..0HE
Gb TD SUPElfV I SGA IF t.13T UPOAT£ RE!TUAN AOOReSS RESTOllE XAa RETURN TC USEA
ADO TO &uSY COUNT£R ERROR AFTEA A&O~T J ~. Dl.O AN IMTJ!RRU?T oc~ val'? .JWMP IF SO TEST FDR &9F . THE Ollill. Y ;iWDut,{!: RET~" TO SUP.PVISGR J'F H01' R£TURH YO 'JES1' STILL &us\'
SET SUSY Tm t.G..G ltllOJ"CATfl\lt~ GO TO EINIOR ·OUTI HE
DID AN ERROR OC~UR
JF SOe GO TO ERR~ AOU'fe
f
·
9W:l l'>A SYSTEM T£ST MOOULE
EAR L.OC 08..tECT COOE
AOOR STtn SOURCE STATEMENT
OEU> 3C 06 ts33
0£21 co 8? OF84
OE21 3D 00 1'533
CED co 81 &01 U20 co 8'1 OF64
341
fltVI
342
8
.44343 GO'UT Cl...1
34$
SE
346
B
aaR.K ..OA 9
ERROR
ER1'1.o
GOsuPR ataoR
___,·
~
:t~.l!Jfll'75
EC . . . UiCU
·~· · · · · · · ·
·
PART NOe PAGE
010 A*' £~ OCCUk ¥ET? IF NOT 11 GO Otll GCI TO!~
· · · ·
S1ilf"1 t>A SYSTP TEST illCIOV\.£
Ce· 1..oc oe,,ea c.ooe
ACOR ST·T soURCe STATEflll!NT
* 348 .................***$..............................
349
TEST RI/I· WACl( OR EOT REIPONSE SUISROUTlNI! . . ..,._..,.........._.. . . . . . . . .
35fl . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .. . . . .
0£31 34 O& 0!:74 "35 *&:> 01 01 J.5"
OEM CO 81 OBCI otUE 60 01 91 1546
0£43 F~ flt 18 0£46 40 01 01 1542
oc OEiW3 FR 81
H1 H2 TRVl 353 3$4
35$ 356 357
ue
ST
a..c e:e
Q..C
JC CLC .1£
1'RVl1't+3.ARR H2oXR1) .WACK UPOATE U 2eKRl »8 AVI MVI
1(2,XIU.) ,ECT
IOEOT
$1'caE R!l"URN ADOAESS
TEST FOR ·ACK REC·D
I~ so~ GO TO NEXT DEVICE
us AeSPOftR avn
AfflF If' IG
TEST FOR ear AEc·o
.luatP IF SO
0
oe·E 3C C4 SUS 0£52 co 87 OF$4
0£56 co el' 0801
359
360
MVI
361
e
362
e
Gfl TO NEXT 0£VJC2
0
OESA 3C 10 is:u
OE5£ f'2 87 04
c
8£61 3C 20 1533
oees co ST OF84
e
o-&6-9 co 87 0£9S
0£00 co 87 0901
36.l 364 RECT
365 366 367 RflVl 368 om:is1 369
370
MV! J
MV I
a
e
B
ERRoX 9 J.0 8 COP&l
eruoi. x · 20 ·
ERROR DOPOt.. \,?CATE
SET ERROR CODE GG TO EARCIR· POU.. & UPCATE
GO GET TK'E STATUS GO TO NEXT DEVICE
0
l
l·
;I e
I
1C
0!71 co 87 0000
OE?5 34 08 0£9A
OET9 co 67 0023
OEYD 0001 0£7F 16.C
oeea 1 S<llA.
OETE OESO 0£:82
371
:572 TRVfR B
373
l74 .375
*$ **·SE*N*D***A*CK*$*l ·~SU··B·R·O·U·T·IN··E···****$<$*·****$***********·****·********·*····~
376 377
·············*·~······*·$··
378 GO ACK ST
379
e
GOACKR+3tA~~
COS XO
360
oc
AL2(ACKJ.,.AC~1+1)
381
DC
AL2( XMITE~
382
DC
AJ..2(ACK!)
ST~ liET~N AOC-ReS$ SEND ACk 1 TO DEVICE
1l e
De:S3 40 01 01 1542
oua F2 81 oc
38.3
384
a..c u2.xf<1 >.eaT
365
.JE
GOACKR
!
IO
CE&e 3C 04 1533 -.e.eF co 87 OF&4
OE93 co $7 0801
386 387
3se
NVI e;RR,lt
B
eR.ftDR
e
UPOATE
· j
0E97 cc 81' 0000
·
··I
I
· l
I
!
I
· I
I
I
I I
· I
I ! I
· I
I I I
· I
3-e9
e 3·90 ~C~tCA
<*-·
,·.I
oaw-1!
.0-ATE
4l
f!C Ml·
I '
I
I
l
a6.Wff?S
u-.u
asccrrs
~
· I ! ·
· · · · · · · ·
TEST REsPONSE · cCT EXIT IF SO· Al.L OKAY SET UNEXPECTED R£SFCN$E
GO TC NEXT DEVICE
..,, .... MGG ID
089F-1
· · · · · ·
·
·
·
· · · · · · · · · · · · · · · · · · · ·· · · · · · · · · · · · · · ·
(
19111 MAINTENANCE DIAGNCSTIC PAOliAAM
89F1 DA SYSTEM TEST MODUL.E
89F1 &A SYSTP TEST tmDULE
EQ LOC: OB.IECT cooe
AOOA STMT SOURCE STATl!tft!I«
Oe· 1.oc o&JECT COO£
AOOR ST·T SOUIGE STATEMENT
CE98 34 08 OF67
OE9F oc 01 14F5 JS!C
OE.AS OC H 14F? 15~
OEAB OE 01 usu 15»
OE81 38 20 U516 CEtsS F2 10 80 01:98 06 70 1241 16£9
028£ CO 8T 0023 0EC2 0008 0£C· 1640 0£C6 1V8
0EC3 OEC6 OEC7
........................ c 392
393 · DO POLL SUMOUTJNE ····_.. . . . . .....,. . . .._._.. . . . . . . . . . . . . . . . . . . . . ...;
394 ...........................
395
396
~7
398
39-9 400 401 402
ST
fllVC
llWC
ALC TSH
.n
AZ
OOPGL ff3·MA $PF&J)(21.PQU.
PSCEVCZ>·C~·
CV8CNTU J ·ON&! DY8CNT-l·X·,0·
C¥8$Y PLPCU~> .OECJ (1 J
403
40·
405
B
msm
DC AL.2<EN0-9ELJIOL)
406
DC
AL2<X·UTEJ
407
DC
a&..2U!NQ)
STORE R£TUMt AOCRUS SET UP TO ~
SET uP TtoC£ Kvtce AOD TO CE'llCE 9V$Y COUN11!R
T£S1' APPROX ao sec 4aONI! BY
IF SO· f>f!YICt! tS WUNG BUSY AOC 1 TO PQl..L COUNT
GO 1'0 l n:J 5USRCIVTINE £ ~ENGTH t1F Mf!SSAff
STOP ADOR
MES'SAGE AODR
POL.L
!1 ····.
OFM 40 02 82 1958 O~ CO 01 OF23 OF'7D ... .. 08 OF80 CO 8T OCf'O
oece 7D 37 co
C!ECB f"2 81 ff OECE 40 02 02 U5S5 OEC3 FZ Cl 55 OED6 &O 01 01' 1540 OEtle F2 01 IC 0£0£ BB c;o 00 OEE1 CO 90 Gl!IOI
OEE5 96 00 00 CEE8 OC 00 1~3.S 15G4
0££2 CD 8 7 Ofl'84
OEF2 cc 87 OE7S OEF6 c.o 87 0801
_;
i.,,,.
OEFA 40 01 0'1 164£ OEf'F F2 01 06
408 409 410
·11 412 413 414 415 T1 416 41 '7 Sf"1 . 418
419 420 4.21 422 422 423 TSTDE 42·
CLJ JC CL.C .JHE CL.C JN£ Tl!IN SF S8F MVC 8 l!I
e
CL.C .INE
0( eXRU .x·.!7·
OOPOLlil 2(3eXRU 9 STA·
TAU> 7U?.XIU J. If! 'ISTDE
oc.xu> . . . .·
UPOATE C( .KR2t.-· t:RR(l J.CURCEV
ERROR GO ACK
UPDATE
7(2·XRJJ·0£ TSleY
T£ST FOR RESPONSE · EOT DEVICE OKAY IF SO· RETURN TO USER TEST FOR STATUS aeSPOMSE
GO TEST F~ AIO P: HOT TEST RESPONSE · JHT · A£G·
IF NOT GO 'rEST FOR DEYIC£ ENC TEST LINE FOa.EA&..Y AVAJLAk.£ IF MOT GO UPO'ATE TO NEX"T OEVICE a£SET THE ON eJT PUT OEY ICE IN l!iiROR COO.£
GO ACKNOWLEDGE STATUS GO TO NEXT DEVICE
TEST FOR OEyICE EHC STATUS IF WOT 60 TeST eusY
· · ·
,.le
l
l·
I
OF02 BA 00 00
Of'"OS F2 a? sa
OF08 40 01 07 1552
·o OfOD co 81 HAS
OFll
01 07 U55G
ot="16 co 81 OEES
OFIA 40 01 07 1M<
OFtF co 81 OEE5
OFU 3C 04 1533
OF27 co 87 OEEE
OF2B ·o 02 02 14·0&
0-F3G 1'2 01 41 OF33 TD 6C 03 OF'H ~2 01 M
425 SNJ
SeH
"' 4'.26
··27 TST8T a..c
428
BE
429
CLC
430
B£
431
Cl..C
43.2
8£
......433 WHAT lllVI B
435
436 TAJD a..c
437
Jf!CE
438
Cl.I
·39
.IME
0( ,JCR2)· ·-· SAC«
7( 2· XRt >..oe
RPTPOL
n2.XRJ J · .cc
SFl 7(2· XRl) ·HICE
~1
EAR··
DOf'S
2Ul·KR1 >.EXPJ
TTSTR .at.XRl)·ll·6C·
TPF2
5ET THE AVAJLASLE SIT O~
6D AC«NDWL.E,DGE ST ATVS t;. RET~
-.AS THE DEVICE BUSY? IF SOs GO Pot..t... AGAIN
TEST FOR CDNTAOL ewe°'
IF SO. GO SET LJ~E U"NAVAJLABLE TEST FOR J:R. O.E JF so · .:;o set LUCE t.MIAW'AU·.Aet...E S!!T uP UNExPECT·EO fi'tEsPO..SE GO TO ERROR RDUTIME
TEST FOR AID KEY OEPAESseD IF NOT· CtECt( Tt;ST REG. TEST FOR PA I KEY
JUMP IF MOT
I
19
I
io
,.:I ·
1.
j
Ofrff 3C FF 1530 Of'~D 70 6E 03
440
NVJ PFLGeX·FF·
441 Tf>F.2 CLJ 3t.a11.x·.e·
SET PRINf FLAG OH TEST FOR 'PA 2 «EY
I
01'40 F2 tl M
OFU 3C 00 U530
OF61' TD 70 ~3
OFU F2 01 OA
ot:·O !18 00 08
Of'50 CO 10 ODOT
OFM Fii. 8'7 DC
OFS7 70 6D 03
OFISA F2 Ol 03
OFSO H 00 0.8
co Of'60
87 O.E15
o.-.. co 8"'7 OOC>O
442
.JNE
44.S
MVJ
4··4!4i
CL.I .INE
..446 Tf!ll2
447
.4.4.8,
TSH
.B. T
CL.I
.JNE
·151
s&f"
45-.2
B
453
·54 oaw:aa.a e
TEWT
flf'LG.C
:!( .n1 t. JC·?O·
TGl."A
et .J11R2> .. .-·
MIVfltU
SAC« 3' .. l1A1t.x"60· SACK 8' eldlUU, ...·
....CIDAC«
.IUM'2 IF NOT RESET PRl NT f"LA(i Jf' SC lllAS ENTER ~y PU5"£0't JUMP IF NOT TEST MAH. INT · .CN THIS !:EV. GO TO MANUAL JHT. ROUT. IF SD If' HOT., SEND ACK TEST FOR Ca.Ed JI.MP IF NOT RESET MAHU.\L INT· BIT GD SEND AQt
i.!l e.
iie
I.I
le
I
OF-68 3C 0-9 115U OF6C CO B? OFa.
OF?O CO 8? 0801
us
456 ·5?
·M
~.9
ftT OEVJC:E ""'"6 8i1sY
ERROR
WO.ATE GO TO HEXT DEVICE
I
!
l·
I
.'
OATE
EC ND·
....../~''t.;
io.NN75 82$023
e
--
2$GCT'flj 82!032
PROG 10 PAGE
OefW"-11 .OAT£
'.··..51 &C ND·
459 TTSTa
460 461 SN2
~2
2(3.XRJ) .TSTtaEO
~T
8{eXRZh.-. ttAJllJN
PART.NO· 4234261
PAGE
SA
TEST FGR TEST RBWEST PU9HED
9AAHCH IF NOT 9ET tMNUAL INT· f'LAG CW THIS DEVICE SO TO ....,AL JNTSWENTlCIN AOUTJtlE
.·
(.
l ... MAINTENANCE DIAGNCSTIC PRGSAAll
42Jt426l
0 6j i
81JF1 DA SYSTl!tt TEST NODULE
I
IKIFt 1)A S'l'ST&a TEST mDUIJ!
EM LOC O&llKT COOE
............................................. ~
· e eaa L8C 09.IECT cooe
' o I 9'M C·O 87 021£
.-T·TE·"' ·DDR STIIT IOtAU
532 GEl'Sfl' e
UNPAOC
OPM M 08 1198 OF88 OC ~I J.lttA ISC:Z GF8E OC 00 IUT t6J3
OF94 30 0 l 1533
"'" OF··
o1'c2
01 11
ff 1ae2
1so1
OPAi F2 87 E0
Of:'A· JC 02 IU·
OFA8 F2 Cl 09
OFA8 OC 10 12·2 1610
OF8l F2 87 D"O
OFS4 31) 0 ! IC!
CFU F2 01 09
0F98 0C CD 1262 16SF
0 FCJ F2 87 CO
OFC.. 3D 04 1533
CFC8 F2 (jJ 09
OFCS CC 12 1262 16S2
OFD1 F2 8T BC
Of'04 3D cs 15.13
OF06 F2 01 09
OF08 OC CF UE2 16U
CPEl F2 87 60
OFE· 30 C6 US33
Of"£8 F.2 Cl 09
OFE8 O< (IC 1262 1SFE
OFFt F2 87 90
0Ffl4' 30 07 15.33
OFF8 F2 01 09
OFFe oc ~a 12£2 1SFI
· o .4.6.5.·...E.R.R.O.R..F.Q.R..ll.A.T.'f.l.M.G.'..P.A.IN..TG..U.T..fl!.O.U.'T.lt.rlE.................................._.......;i .·
~, 469
~
ST
ERROMI+····
STCHllE . ..,.,.
I
..
tWC EAA:L\'C2t .....
INI Tl.M..lU FOR ND £XP. flRfffTOllT
I
47C
tlWC l!R..._T(1 l.E1l'R
FU..L IN ""1.T CODE
1Jt. 1.'
4'1'1 4?2
CL. I .nlE
8"1 9 1 TERR2
HST FGR UMI T C"'8Ctt
~
!
473
1lfVC LOGMSGU et .VNITMA
IN$&111T UNtT CHl!Ol MESSAGE
I ·
4?4
J
GETRT
V ' l·.
475 T£11112
41'6 477 ~ 4T9 'IEMl!
480 481 ~ 683 'f£M·
4M
:::485
...
487 TEM5
Q..I EM.2
.INE TEARS
NYC
.,
~I
LOGMS6C l 7) ."8USY ~" ERA.3
.PIE TERR4
MVC LC16MSGU4). ltfTPtil.C
J
~~T
CLl EARw4
.INI! TERRS
=~::G<a>.nT·SG ·vc
.I CLI
U>Gllt5'.C 19) wUNEJCP
GeTSET ERR ..5
TES? FOR ..uNG "5Y INSERT ttl>NG ltUSY ME$$A~
TEST FOR ltifT ltW& eaR0R
INS~T lflCT PMD EtmOR MSG
TUT FOR UNEXPECTED 5TA'SVS .JUMP IF NOT l'DV!: lh lllESSAGE TEST F~ ATT ACMtlEHT Ctc£C«
l~T "TT CMEC« ·ESSA.GE
I A I v
I
1·,. ~ lliil'
I
l
I f
A
w
l ·
"'90
J
491 TEAl6 . a.1
GETSET EAA.6
TEST FOR ne EARtlA
1, at.
492 ··3
.IHE. Mvc
T'EAR7 LOGMSGC13J.1T&MSG
IN·sERt ne eaAC:s; ·ess·&e
W'
I
~ -..... .._,.._._... .~..'...I
JNE
eGEnT·SrET
TERRS
TE$T FCR NO IHTGM\IPT
1·
·
I
MVC LOGMSG(l,2) of!tQIHTA
INSERT ffl INTERRuPT M£HiMi£
j ·
10'8 02 1M9 11123
to· 12TC
ioeo co aT one:
1091 02 1092 1'.US lOM l~M
H 96 CO 87 UIE
109A 02 1098 IS2'1' IOQG 1..290
10tF CO ST DUE IOU 02 lOA4 1629
tOA~ urn
10Ae co 87
tOAC 1£ lC~AO 1610
lOAF aaoT
021e
1081 CO 8T 021E 1085 2.1 1096 16~ 1096 1328
108A CO 87 021E
aoee 1£
lOeF 141F
lOC1 IMF
1.o&e U3
.36 IO&A 534
108C Uti
U1'
us
539
~
941
........ I09A
109C 10111:
&42
543
565
547
lOA.3 548 lOAS 544 lOAT. 550
8&1 5$2 S53 IOAE 554 1080 5155 656 6!57 108$ 5N 1097 S99 1089 560 561 562
lo-8£ 963 lOCO 564 10c2 565
DC
ILl92·
DC
~SC.ult!
DC
.6UCt..CGCARI
8
UNPAQ(
oc a.1·2·
DC
AL2.CS'JMI
oc
AL.a< &..GGTMJ
·
UNPACtl
DC
1a..1 ·2·
DC
AL.2tS$11AJ
DC
AL2CLDGSMJ
· UNPACC
DC u.1·2·
DC
AL2CSS't'A'U
DC
autU.OG:STl
B
UNPAClt
oc IL.I ·so-e
oc
At..2C JC.Ml TE-3&)
DC At.2 ca..oa.xas 1
8
UNPACK
oc 11..s·n·
DC
AL.2(UtJTE)
DC
A4..2(L0GXA2t
s
UNPACK
oc lt..t·:so·
DC ALSCEXPT-as·
DC
Al..2Cl..OClEXU
1001 F2 87 80 IO~ 30 08 .tS.:U 1008 FZ 01 OF 1008 OC OE U!62 161F 1 OU 0C 01 132A 1 554
1017 F2 81' 6A
498
499 TEAIS
508 SU 502
503 · 504
J CLI .JtE MVC MVC
J
at·T
ERR.. TEAR9
LOGMSGI l u ··ISOAT
EARLYC.U eM804$
GET~T
TEST FOR OATA MJSCCM~ARf!
IHSERT MISCQjl!FA11£ fitESSAEE INSERT CQHSTAHT TI) CAUSE ExP OAT.A
TO Pt:llNT
.
I I j
e
·
i1 A W
10C3 CO BT C21E IOCT 23
1oce 1442
lOCA J;JQ)
1 OC.C 30 89 OA'°°
tOC7 lOC'il
10C8
666 .567
568 569 51'· 571 572
e
UNPACK
DC
ILi· 3&·
DC
M...HEXP7)
DC
AYCLCGEJC2J
101A 30 09 1533
101!: F2 DI 09
1021 OC OD 1262 1687
1027 F2 87 SA
102A 30 OA 1533
102E F2 01 09
1031 OC 10 1ZE2 15SF
1037 F2 8T 4A
l 03rA :SO OB 1533
103E F2 01 09
10·1 oc 13 t262 t6ta
1047 F2 87 3A
1G4A 3D OF 1533
l ()"2 F2 01 -09
1051 oc l· 1262 16Ee
1051' F2 87 2A
10'9A JO 20 lSU
lOR F.t 01 e9
lM1 oc ec t262 &6"il'
1067 F2 Bl' IA
10-6& so 10 1sn
10.a F2 01 09
oc 1071
0-9 12&2 16A9
1077 F2 87 h
lOTA - M 1131' 1071! OC l~ U!62 1$1!$
50& T£fill9 a.I
586
.INE
507
MvC
508
J
569 '1£·0A Cl.I
s10
.JfllE
Sll
ttvc
~
S13
n:.e·
J CLI
514
.1HE
515
MVC
516
.I
SIT TEaaP Cl.I
618
.INE
519
NYC
: !~
J
T£M20 ~
&23
ttVC
524 525
'l'E.a·o
.J CL!
Q6
...
521'
NVC
529
.J
SM -~ . s ·
530
MC
~
EARe9 1 £ AQOA LOGMSG( 14).DY&tlSG
GET SET
eu.x·o··
TERAoe LKM5GU 1').ATT"'10fl
~~T
eu.x·oe·
'TERROt=' LOGlllSGC 2:0J ,UNXIWT GETSET ER'ReX·OF·
TStR20 LDGMS6C2U.lllCNLIC
:« -..;~ :;20·
t..O~C 13J.R¥lll&SG
eGEaT.SxE·T 10·
CEV
LOGMSGUOt.Ea'l!GC GETSET
EARMLT .. x·ea.
.LOCiiMMC20)·tlDTAVL
TEST FOA DEVICE HUNG BUSY JUMP l F NOT MOW£ IN DEVICE BUSY MESSAGE
!' ·
1000 F2 01 5F
1003 OC 00 10E2 1 U3
I 1
1009 co 87 021·
61".J 5T6 575 576
·vc
B
l"f~~·U·~
MIN'lr
TEST FM A'tTACH. NOT R£AIW
1 ·
lCGO C2
1000 51'7
DC
XLt·<:B11
.1UJ&P IF NOT
,
tCOE 20
10~ 578
DC
tL.1 · Jl!!J
MOVE IH MESS.AGE
TEST FOR UNEXPECTED lHTEMU'l JUMP IF NOT Mt>VE IN .-MESS.AGE
TEST MJCAIJ CODE NOT LCIA·OEO
I
l,o !l ·
I
I
HOF 1263 1051 8800 UIE3 CO 87 Ga1A
uun aa
10£8 IS IOE9 UR lOES CO 8T 02U.
lOt!O 579
oc
10£2 AO t4EAD DC
...JOEY
lOES 10£A
Ml 582 58.S
e
DC
DC DC
sas
a
M.2(i1lSGal..K.J
MLz·noo·
PAl*T
a.1ea1· a.1e1u·
-..a r "rti~c >
Nl!M'f
I ·
10&1" 81
10EF 986
DC
ICf..1 11 81 1
MOVE IN M£5$A&
::; TO ~:-..:r~ SEUCT
l I l ·
MoVE IN ltESSAQE
!
TES'T FDR £0T T.G C.llD .1UfltP pr NOT llOVE IN MESSA&
' ·
O It
1
'° · CHAM4i£ .... COOE pROtl c CIR 0
1 GA ~
IHSPT lilOT AV·U..ASLE MESSAGE
j ·
I
IOPO 15 lOFI 1213
tOF3 co 87 0214
lOF'f 81
loPe 115 UW9 122A lOAI CO 8T 021A 10# 82
1100 15 1101 U41
l I 03 CO 87 OZl.A
un az
1108 ZS
1¥0
10F2
tOF7
,.. ..IOFA
&87
SH 589
590 591
·2
593
lOf'F
uoo
1142
110'1
uoe
-51ilS
996 9117
S99
DC
n..1·21·
DC
Al..21 RCIPC)
e
PRfNT
DC xa..i-e1·
oc
lt..1·21·
DC
fiL.ZtSLPCJ
e
PRINT
DC JL1·er
DC oc;
8 DC
.._,....11,.1·.z.i.·
A&..Z(N.aflle,. FAHtr
DC
ft..1·4P
_.TE
2o.Alfdfi
ec ·· azsou
e
···
Ji · OHF-
OA-:"8
t·6 l · EC NO·
· 1&i·
··
·
..
PM'T NOe ~A,G!:
GO UNPACK STATUS GO UNPAC« IST "~ XflllT,_C
GO UNPACK lST ..,ALF EXPe Fll!L.D
TEST RUNNING alTH $UP£-Avt&Oa .lt*P ~SS STAHC AL'*'! MOVE EAROR TO tfEAOER GO· JIRINT lST MESSAGE
· · · · · · · · · · · · · · · · ····· ··· · · · ·· · · · · ·· · ·
1109 U!90 U09 CO trr 021A
UOF 81 UIO .._
HU ID?
1113 co .., 021·
1111' 86
tu· tW
1119 IDO
1ue :llO ·F IMA
ti IF ,.2 8S 10
naz co.., Ul-A
U.16 81 1127 ··
IU!8 laeF ll2A CO 87 021A
.,, 112£ ..
II.IF
1130 13Ctt
1132 co a? 0222
U36 8900
Jl38 3D 89 OAOO
cc U3C
Ot OAOA
J14M) 3D OF 153.J
11" co ·· 11.58
1148 ~DH 15.33
u.c co 81 OAI· 1150 30 01 us.n
UM CO 81 OAI·
~
1158 CD .., 0000
r ·'~''7
,.... ~ .. -
·'"'.....
c
c '
c
c,,
asOA ..e
... llOf'
UlG
·uu
601 .02 .OS
...... DC
i&.aA.OGSMJ
,. 8
MINT
oc
ac
1LJ....
DC
M.&U.DliJClll I
eoe
1U7 6D6
1118 .07
lUA eoe
609
1126
.,.1127
...1l2C
112E
.,. nar
610 611 612 613
616 617
1131 619
e
MlM'
oc &J.·eee
.DC
oc
CL.I
u.1·79·
-.ZCL.09atl2)
EA-.Y·X·fllfl·
STOPIT
e
MINY
oc
JCL1····
DC
lt.1·69·
·oc
oc
AL,2C1.,0IM! at J PRINT
&1···
DC
a.1·?.9·
x
M.2C&..aJCZJ
,.......... 113T
624' 621 Sl'GPIT 8 622 EA,..._T OC
CLI
"'LT
-.z·eMO·
66223· - · 91£ SUPS
625
626 62?
6.18 N9 63e 631
--e&..I
R CL.I
CL.I
632 eaaoa· a
&UeXe.Of'· DROP EAReS STMT
en.1
STMT
--·
. ~..., "
-DATE EC MO.
4'234261· TA
8WI OA S1'$TPI '1£S'f CJOUl.;E
Ca.t LDC 08.IECT cmie
AOOR ST·T SOURCE STA11E1ilf!llT
·
TO flRltfYIM £-.cTt!O CAT-A
JVIMl lfl llllT
PlllNT Exflf!Cl'B CAT'6
e
·
0
I
I . . HALT I · ...........T COOE f;ETS FlLL&D It.......
TREUTTURFNO1i l 0$ TSAUft lJCEAA~LJOSNGEa
oPUA'l'lGN
tF NOT
TEST FaA ttlCAO c;;QDE NOT A.OAOCiJ
HANG IF so. TIL LOADED
I
j
e
I
TI!ST FOR ATTACMdflfT CH.EC«
AESTAAT JF so
TEST FCR HOT AEAOY.fUNJT CHECiK
I · I
AESTa.RT JF -SO
j ·
UK 36 Ol UM 1160 · 02 UM 1164 ~ G· S5l8 1168 D M 1'5ft
GA· uuanc Cc1l M- H uaCa·
11T· 38 20
1178 fl'2 10 O?
11n x o· aaa
uwr F2 e7 · uaa · o· 1s.ae u·asAG..a
11M Cl .. 11.,.
U91E Ct· at 1199
U92 3C Oll 1535
11· ·e · ., o. 1199 c1 ·nee
1190 llC OD 1513. UAI Q 01 0000 UM C2 02 0000 UA9 35 M 1St9
UAO n M 01
UBO CO 97 UK
AETuR.. TO USE·
I
llB· 3C 01 1533
10
un ce .., 1190 nae x o· usn
JtC'O ca a? uvo
e ue. 38 20 eue .11C8 F2 90 Ge
I ··········
nc· 3D Of> 1533
llC: CO 81 U82
JJ0.5 ~ 05 1533 II 07 CO 87 1190
I '
089F.-,.1'I
i i
· i
i
· j
· I
250CT75 82!032
........................ ·- 6:M
635
. . . . . . . . . . . . . . . .11 . . . . . .
· IN'l'SARRUPT ROUTft!llE. _ _. . . _. . . . . . . . . . . . . . . . . .._. . . . . . . . . . . . . . . . . ,,, . .
U-6
63"r
..-.-.u.., 638 ltf'f2 ST
Xt+3.M1
z 639
ST
U.3.-
... ..... .... 660
ST
PSll:9. . . .
I..
ERO. . . .
lttlTJALIU l»M 10 Z8llG
6<ll-2 TSTATT 1'JO EataATC.A'l"ICHIC
11!8T fSCJlll &fT AC...,_ CH!CIC
M.3
TIO CKJUH. . . . . .
UST l'GA DA OP EtllD lffl'l!filRUPT
644
TIJll escu-1···1&>·
TUT fal llecll-1 ~
... " 645
II
646
·VI
MT
BUICA L
669
L
BIKA
eaa.x·ee·
lblT
p ........
Ht&CAa.1Ma
.S1E4T1#U'N"Es.-oecTD rwre....wr
PIT JflflE_,ipT
MS 80
ToaE T. . TO 9SCA-l
N-rf.·_
e
:
650 661 662
,6.9.3.
655 JO!
TIO ~l'IC .-tClllDUC
.,,,TIO ut-t.x·ec· eRA.x·n·
" JEXl'T
TIG JTBl!ReX···
TEST ISQa VNI T CMEC«
TEST f'CIR JtllTEMd'T lt8NDl1ilfi
amoa. IWl'··uPT StmULO · .-.
EXIT 1'E8T Foa 1419 JN~
6S6 657 JEXIT 658 JU 659 A2
660
9'¥1 LA
L
P&Raf.e,...
SET JN19Ul...T occ.,_o lfd)IUITlON
!!-· RESTORE ·Rt
f!£STOfilE
MSTOllE Paa
661 66.2
663
llESE:T THE INTEll·UPT
TAKE NEXT INT£. .UPT
664
665 · 666 U-..ITC 667 668 ITBEA
ERRORS
""'' ERR.x·o1·
8
IEX!T
MVI ERR.x·oe·
SET .-1T CHECC
b1T $ET IT9
£,_,,.
669
8
670 eRA4TC T8M
671
.W
6T2
CLJ
61'3
K
674 ·
675 ETA1'C WVJ
JEXtT
SSCAt-1.a·ao·
$£TATC
ER·.x·ae·
31SCA
j!AR.x·~
IS SSC:A-1 INST~
IP NOT. GD SET an. c...
·AS ATT · Ct«· AUlaAOY SET't
n IP SOe 8SCAe-l MAY
~DING US
IN THE INTERRuPT a.GOP.
S£T ATTACt91ENT CttaOt
6?6
8
IEXIT
·
·
IBM MAIM'T£NANC£ OIAGN£STIC PRDGllAM
·a~1 1
·!
89F1 DA SYSTeM l'EST tcOOUI.£
I
i e 89"1 DA $YSTP 'tEST ~
I
EAA \..OC OIWECT C00£
AGOR STMT S0UAC£ STATPllWT
ADl>'i STMT SOURCE STATEMENT
i
1108
1108 1100
8009 C4Cl40D306C?De&4
1 IDC
ues
ue D
11e· eois
i1&T
11 E~ !eo41<9EXh0£.ID6 1lf'6
c 678
61'9
. ·
.
.
..... ERROR
. . . . . . .. LOG0'11'
.
.
.. ··
··
·
·
·
· .
. * .
. *
*
*
*
-
·
*
* .
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
. :
..o ....................
681 LOG
* EQU
I
I
C. .
Ma
DC
IU..Z·&009·
I
693
DC
CL9·1)A LOGOUT·
683 684
oc
a2·ao1s·
0
685 WATT OC Q.l&·WAJU TOTALS·
l 30C 4040404040.04040 13s· ·o·04040·0604v.O I~ 40_,A04040404Mi40 l 364- .040404040604~
136C 4M04040 1370 $04F 13T2 40.04060AM>404"40 137A · 04-0404040404~0 1382 ~40404040..-0 138A 40404 0..0·4404v40
?13
1"13
713
T13
?13
?14
oc
715 LOGEK2 DC
'115
?15
715
11FO ~C1D3e240404~
MS
11 F? F Of' OF OFOF 0F0
11 P: C 686 lllAt=C DC
UFO 8018
l ll'E 68T
DC
1 l Ft= D9CSC1C4400&>t:E3 1200 6ae RDTT OC
a..··o·
.XL2' Hl 9 ·
a..sseaEAO TCTM.S·
1392 4040404~·04040
1.39A 404040404~04.:>40
0
13A2 404040404-0.04.)40
13AA 40404040404046)40
?15 715 715
715
1207 C103E240·0604C
688
l 20E FOFOFOFOFOl'O
U!U 689 ROPC IX
1214 80U5
1215 690
DC
iaa· 1216 EZC~03C5C:3EMWE3
691 SELT DC
Oi.e·o·
n2·ao1&·
CL15·SELECT TOT.-_s·
121 E 06E3C103E24040
691
1225 FOFtFOFOFOFO
122A 692 SLFC DC
1221' 8015
122C 693
DC
1220 0706030!40EaD6£3 u n 694 POLT DC
a..e·o·
JCL.2 · 8 Olli·
Q..13·POLL TOTALS·
&Et..ECT PASS CCWT
1235 C103E24040 123A FOFCFOFOFOF&F~O
1242 8020 1244 C4c&.EISC9CX54QE7
1241 1263 124<:
694
695 PLPC DC
696
DC
697 LOGO£ \I DC
OL.e·o· 11a,.2·acao·
ct.9·oev1ce x11:·
124C ET
697
1240 40404 04040404040 1262 698 LOGl4$G oc
22a..1 · ·
1255 4040404040404040
698
1250 404040404040
1263 40
1263
1264 802S
1265
1266 6040E2£3ClE3E4£2 127'2
698
699 MSG8L.K DC
71)0
DC
701 t..OCiiS1' oc
0..1 · · XL2·&oae· Cl..13' STATUs=xxxx·
t:
126£ 7EE7E7E?E7 127:3 4040C3C: 1D9'1EE 7£? l27C
701
702 LOGCAR oc
CLIO· CAR~xxxx·
l.?78 E7£7
702
121'0 404eE3C1o·?ee7E'1 1296 '103 L06TAA OC
1285 ET£?
703
1287 404CE2ClC97EE7E7 1290 T04 LCIGSAA DC
l2V E?E'?
704
1291 8045
1292
1293 ET~C9E361 D9C !C3 1298
?OS 706
?O?
oc
L2·8045·
DC
~9· XMlTl'RECe·
1298 7E
?07
129<: 40404 04040-404"40 1207 708 LOGXRl DC
60CL1 · ·
· · · ·
1362 4040404040~0 13&A 404040404.040·~
13CS FFFf<
· ·
· ·
· ·
715
TU Tio FFFF OC
JL2·ff'Fft#'I·
l 2A4 4040404040404"4i0
12AC 4040404040404G40
1294 4040404040404'40
128( 4041.Q404040404C>40
12C4 40 40 4'04040404040
12CC 4040404040404ii40
ta>· 40404040
1208 804F
IZDA .040404D4"4.G404G
12E2 40404040·0....,..
12EA 4040404040"°4040
12F2 4040404040404040
12FA ·O<t04 04040·04'"40
1302 4040404040"8·040 130A 40404040404o0.-4~ l ! U 4040404040~ 131A .00~40404G4M040
1322 484': 404040.040
1329 eo-s
132A
1328 C5£7D7C5CU3CSC4 13.:53
13~3 60
1334 ·~0404~ 1361' 133C 4040404040~
1344 40&04CMtO·l'M04048
708
?08
708
708
l"O.S
70:8
1'0e
709
DC
·uo L.OGXR2 DC
TlD TlO
T'lO
710
710
TIO
?10
TU>
710
711 EAR..\' OC
l'U!
DC
712
1'13 LOGEJU DC
713
'113
JCL2· &04f'. '79CLI · '
a.2·604··
CL9·exPECTEO-· 60Q.1· ·
· · · · · · · ·
PRGG 10
089F-1 .DATE
26.1Uf{'1$
a&OCTT5
.OA TE
26JUfll75
· · · · · · · · · · · · · · ..··.. · · · · · · · ECNO· 8~50.23
PAGE
e
EC HO· 829C23
8l!5032
·
·
·
·
·
0891'-l 8A
· · ·
·
·
· · · · · · · · · · · · · · · · · · . -· · · · · · · · · · · · · · ·
' ~-.
18111 MAUIT£NANCE DIAGNOSTIC PROGRMI
c 42a42611. 91
I
89F1 1>A S't' STEtll TES1' llOCUi..E
E- LOC 08.IECT COOE
! c EM LOC OB..te<:T COOE
I 718 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
I
! 719 · ;>ATA Fli&..DS AND CON!'TANTS .....· · · · · · · · - · · · · · . . . ,. . . . . ..._. . ._... . .
· 720 ................................
!
1.WD 37f'F32320000
IX3 721 OATAST £OU
13C3 C1C2C~C4C5C6C7C8 13£6 722
DC
·
RIPPLE DATA TA8L.E
Q..36·A8COEFGHl,;JKL~CAST~X~Z0123'5678. .
1·F6 0000 14"8 20
1 KB C901DZ03D405D6D7 1303 0809£2"E3£·E5£6£7
72.2 722
e
1308 Eef!9F'OF1F2FaF4Ft5
722
13£3 FCW'7f"BF9
13£7 ·G!!C~l4A5ATA.S 1401
13EF t!e697~C5C6C7C.D
··"IF 13F7 50607C.ESE6E?14F
1~ 1402
1"-02 022TF603024"000 1408
1409 600000
1408
140C 110000
140E
l40F C4C5E5C9C3C54~E7 1417
722 723 OATAE DC 723 72.3 723 TN £J(f'DAT £OU 725 EXP! DC 726 EJCPZ DC 727 EXP.I DC 728 EJCP4 DC
ca..27· g.-,
·
JQ..7·0227F603024000· XL3 1 600000 · Xl.3 1 110000· Cl.91 DEVICE Jlll 1
EJCPECT&D READ OAT A DEVICE GETS F ILL£0 I· AID 9 ADOA GET FILLED ltt SSA 1 ACOR GETS f"JLLEC H·
DEvlCE ~s FILLED !~
l4f"O l~DF
14FF l.-01
1501 0000
e
1503 0000
1505 oooe
·
1417 E?
1418 110000
1·1A
1418
1437
1438 03
1438
1439 000000000000000~ 1442
1441 00.00
1443
1443 C227FS
1445
14~ ?F
1··6
1.-7 110000
1449
1444 10£913
J44C
J44D C4CSESC9C3Cs·o£7 1455
1455 E'?
1456 1DC1
1458 ·0·040·040404040
1·60 40404040404041140
1468 40.-04C4~4040·040
1470 404C404040
l 4 75 114040
1·78 03
1479 0227FK2
1470 tDE8
147F D2C5£840C9D5".1£4
1487 D740E3D640F2F .)40
l4&F C3C8C1D941161M~C4
1497 C507D9CSE2E24C?D
149F CSDSE3CS097()40 144'6 l1C150 14A9 10~13
1···
14A8
l·AC 3CC1ES40
14AF
1480 1060
1481
14B2 03
1·82
728
7.29 EXP5 DC
?30 Exil6 DS
731
DC
7:52 EXP7 DC
732
733
734 WAT
EQU
735 WflTFLD DC
7:t· wee oc
737 VRTAOR DC
738
DC
7.19 DEVICE OC
739
740
DC
741 RIPOAT OC
741
741
.,..74U
74.2
DC
7·3 e.m oc
745 f4-NPIS EOU
746
DC
747
DC
748
oc
748
748
748
748
7.-9
DC
760
DC
751
oc
.....1'52
DC
753 MANPl~ DC
·
xt..3·ii227F!5· XI.I· 7F· JIL.3·110000· JIL3·t0E9J31 Ct..9·DEVJCE KJl·
xa..2· 1oc1 · 29CL1 ··
55A. ACOR GETS FILLEO l· RIPPLE DATA GETS Fl&..LEO JN ETX FILI.EA
sTx.esc.ER~A (GETS CHANGED TO tfR) 111CC - DD EyERYTt-llNG SBA· ACOR GETS F ILLEO 1 .. sF· PROT· HI INT·· MOO·· IC DEVICE GETS FILLED IN
SF. UNPAOTee <MOC· RIPPLE DATA GETS FILLED IN
SBA TO R!SET tWf'f'Efil AOOR TD ZERO £TX
·
tffll TE tlAHUAL JNT · f'ATT~N
XL4·0227F9C.i·
STXeESC.ER.IWRITE.uHLOCK KEY80ARD
XL2 1 1DEe·
SF FROTECTEOe HI INTENSITY
cL39 1 1tE'Y IN ~ TO 20 c;HAA ·· DEPRESS · ·EtrTER·· ·
..._3·11c1so· Xl.3· 1.,..013· XL4 1 XC1E9.-0· IQ..2·1060 1 ICLl ·Q3·
SBA SF. UNPROTe SET CURSOR REPEAT TO 40Dfl 20 &L.AHKS &F PROTECT REST OF SCREEtll
ETX
0
1507 0000.0000
·
1508 00000000 1 SCF OOOCOOOG
1513 08
0
Uil4 0000 U516 0000
1s1e i use
c
151A 00.00
151C 1600
l51E 00~0
e 1520 0000 1s22 ooeo
1524 0000
e
1526 OOOCi 1528 0000
192& 1968
0
U52C t&AE 192£ 0000
1530 00
0
15.Jl 00 li!i.3.2 00
·
15313 OD 1534 000601
153? 0006
1$39 ca-:a
1538 02D2
U530 01DJ
t53F ...
1541 3?flF
1&.a so·
1Mt5 107C
l5'a1' 1070
JM9 1061
·"
1483 C22?f'1C2
1483 '1'55 ··NPas EQU
1486 1'56
DC
·
)t&.4 · 0227FJ C& ·
1487 11(261
14'89 7!57
DC
ICL.3·11cze1 ·
14BA E806E44002C5Eec5 l4C3 758
DC
CL10 4 YOU ttEYEo:·
CDPY DATA ~ SCREE...
STXeESc .. WRJTE.UNLOOC KEYBOARO
$8A TO WAI TE NEW OATA
MESSAGE.
14C2 C47A
1·c· 110J:1 t·C7 404o·o·o·o.o·~-o
758
75~
DC
760 AECMSG DC
Jd,.3·1ic·1· 20CLJ · ·
SBA RECEIEYEO DATA
l4CF 4040·~0·0....0
760
1407 404C4040
760
1-0B 11csc1
1400 761
14DE 0506E64007D9C6E2 14££ 762
oc
JCL3 4 UCSCl ·
SBA
DC
Q.J?·NOtl PRESS ··CLEAS···
14E6 £24':)70C3DK5Cl08
762
14EE 70 U·EF 03
702 76~ MaOPa.E DC
ETJt
JS.S C2'50
1$40 C240
· ·
154iF 40C2 l'!Hl Ca.cl 1553 016C09 1956 016C61 1959 80*5 1558 41MO
1550 6060
e
lSSF E7£7E?e7 1563 T200
·
1665 0000
ADDA STMT SOUilC~ STATE·EHT
14F9 l.\FC
JS.OA
150E 1512
U113 1515 1517 1519 1518 1510 UHF 1521 1523 1525 1527 1529 1529 1520 152" 1530 1531 1532 153-3 1536 1535 1538 1S3A 15X JSlJE
1s4o
1542 ls.4 1546 1548 154A l 5'lte 154£
15~0
1552 1555 1556 155A 155C 15SE 1562
1564 1566
764
765 SELPD&.. EQV
766 SPFi..D DC
767 PSDEV DC
768 ENC
CC
·
XL6·3'1FF32320COO· XL2 1 0t>OO· xc..1·20·
SELUT#OL.L tl£SSAG£ PClU. OR Si.KT GfTS FIL.LED IN DEVICE GETS FILLED ltll EHG - eteS POL.L CIA SELECT
769 "170 RDMOD EOU 771 R~DE DC
tlEAO .oottrl£D ~
sTx.esc.aD llOD.ETa
772 773 ADATA DC
774 OATEA DC 775 CURRA DC 776 CUAOEY 0C:
777 LJIE OC
'2( OATA$T+28J
M..2COATAU x&.2·0· XL.2·0·
XLR·o·
START CF aJ,_,.LE C·Ta ltE.ST.t.RT Al. .L.E DATA ADDR
c.-AENT RIPPLE on A ACOR CUtRENT DEVICE cuaREKT L INIE POINTER ILOtl l!TT'Et
778 779 · 780 · 781 ·
KEEP T~E FOt..LO.IHC: 2 BYTE FLAG ltYTU TO«TM&a AM> I~ GAOER SJ TS 2-7 OF HI BYTE USED FOli DEVI CH cz-c7
BITS 2-7 OF LG BY'IE USED FOii DEVICES Da-IJ?
782 783 ONFLG DC 784 PRTFLG DC 785 MAt.FLG DC
DEVICE -AILABLE f'LAGS - - 1
OEV .,. PRJ NTEA FLAGS
--2
·ANUAL l·TEAVENTIDN FLAGS----3
786
7 87 INTFI.. G DC
788 SCNT DC
789 DYBCNT DC
790 AINT2 OC
791 PSA· DC
792 LCAR oc
793 LTAR OC
1'94 LSAR 0C
79$ SCAR DC
7il6 ST~
OC
797 $SAA DC
798 SSTAT DC 799 AATAB DC
800 AETA8 DC
801 ATABPT DC
802 PFLG DC
803 WRTCNO 0C 804 PASSI OC
805 EAR
DC
806 ONE
OC
807 ZERO EQU
8.)S Si X
De
809 0EVC2 DC
810 DEVD2 OC
Bl 1 OEVlNC DC
812 IR
DC
813 £01
DC
XLl ·o 1
XL2'0 1
Jll..Z·o·
AL2C INT2 I
XL.2 1 0 1 M..2(XMITAC)
XL2 1 0·
XLZ·O· XL.2·0.
xu·o·
X1.2·o·
xa..z·o·
Al,.2(ATA8t
AL2(ETAS)
JtL.2 1 0·
XL.ii ·c · JCL.1 ·o· XLI ·o · lil.t·o·
XL3' 0000 Cl· CN£-I
M.2·vuv'5°
a2·c2c2· XL.2 1 0202·
XL.2 1 0191 e
a2·.o.oso 0
XL2 1 37'FIJl 0
IHTERR4,;PT l'LAG 8US.Y CoUNTER DEVICE BUST CCUtllTEA ADORESS OF lNTERRuPT AOUTJNE
PSR STORAGE AReA TAANSMIT/RECEIYE FJELD ~SS L!O TAR Fl&O LIO SAfi f'l&.O
SN$ CAfl FIELD ~ TAR f'l&.0 SNS SAA FIJ!L.D SNS STATUS l'JE&.0 START OF ADDA TA&E 1!N> OIF ADDRESS TABLE CUAlllENT &DOAESS TAeLE PCINTEA PRINT FLA~ · FF IF PJllNTl·G CURRENT WAITE CR·ERA5£,ltAITE CMD· · FF IF MOT FJAST PAS$
JHTERIM £AROQ H.ALT B'tTE HEX 1 MID ZE«O
zeao FJ!fl,.O 2 BYTE LOHG
MEX 6
0£v1CE C2 CONSTANT !lEVJCE 02 COMSTANT
COtilSTA._'T TO I NCaEa&irT DEV ICES.
JNT., REQ. STATU5 l!SOT RESPOtlSE
814 ·ACK OC
815 AVJ
0C
816 ACtcO OC
817 ACK1 OC
81'9 lRDE IX
XL.2 1 1068· JtL2glO?C·
llL.2 1 1070· xL2'"u>~a·
az· c.2so·
WACct RESPGHse
11¥1 RE9PONSE ACK 0 AESPONSE ACK 1 RESPONSE
ltrlT· RO·· DEVICE E~ &TAYUS
819 OE
OC
820 CC
DC
821 DB
OC
ez2 STATA DC
823 TSTREQ OC
824 H8045 DC
8.25 POU. oc
826 SEl.
DC
827 XXXX DC
828 X720>0 DC
829 SVJCR2 DC
Xl.2 1 C240 1
XL2 1 4.0C2· XL2·ca.o· XL3·016CD9·
Xl..3'C16C61·
az·ec·s·
Xl..2 1 4040· XL2·6060' Q..4·xxxx·
XL2"T200 1
XL2·0·
OEVJCE EMO STA'f"'5
CONTROL Cfo!ECK STATYS
DEV ICE BUSY 51'ATI.18 GTART OF $TATUS a£S51;..'\a START t'!I" TEST ll~ ~SSAGE
ERACJR LOG COtt&TMR" PQLL CO.STANT ~11.0 ~VI U 40
SELECT CONSTANT ERROR IJLANKIM:i ~1"-aY 1ST 9fORO DF COHTROL S'fGAE XA2 STORAeE SP~CE
830
e.31 ·
ADDRESS T A f:I "- E
DATE
2~N?S
ec MO. 829023
250CT7!. 8.25032
PAOG ID PAGE
089F-1 .DATE
-··~.
EC MO·
2SOCT1'B 829032
PAOG ID PAG£
·
IP MAINTENANCE DIAGNDST IC ~
8tlFI DA SYSTEM TEST MOOULE
EH LOC 08.IECT CODE
Aomi STMT ..-ce STATHl!NT
·oc· 156? ·040
1569 156S 40"9 IS6D 40E8
1sev··oe·
1571 40F3
151':1 CIC tSTS C1Dl
usn cusa
....1568
lfi6A 156C
832 e33 ATM
~
835 &36
. oc
DC DC DC
..., 157'0 Q?
ltiT2 838
1·5~'1·6 an
1578
oc
DC DC
DC
oc
1579 C1F8
IS'l'A 84-2
DC
1578 C1F9 U7C C2C3 IS'PF C260 1581 c2e1 1583 C268 1585 C3C8
.... .....1$7C ~
151'& 844
1580 . .s
, ., 1sa M6
1886
DC
DC
DC
DC DC DC
158? C3C9 1589 C3D3 lSe& CJF.l 1580 OFl ISF C3?8 1591 C408
1593 C409
1595 C4E3 l 59? t:540 1599 CSC1 1598 cs~
tffO csee
15. . 849
DC
.... IS8A 8$0
15..; as1 tsee:
oc
DC DC
1590
..... 1S92
199· 1596
.., 15"
159.A 159C
-·159£·
8S3
ess
8S6
8se
860
DC
oc
DC DC DC DC DC
DC
159F C5E9
15AO 861
DC
ISAJ C5F3
15"2 862
DC
l5A3 C650
lSM 863
DC
15AS C6D1
15116 864
DC
15A'I C658
15A8 865
DC
15A9 C6F8
15AA
15AH C6F9
IMC
ISAD CTC3
UiAE
ISAF C1E3E3CIC3C&4940 158F'
I 98? 0SD6E340D9C5C1Cil
ISf!F es
lSCO OSD6E34009C4E4i61 !SDI
uce e·CSC9EMGC3CfCS
1500 C302
866
DC
4*7
DC
868 ET· oc
&69 ATTNGR DC
...869
....,,...&TO UllIYNR DC
I 502 C9DSE3il84009CS>e JHS Ul llOTAVL. ac
15DA 4B61DSD6E34CM:lE5
Bl
15E2 C1C90348
8?1
1 see osoMOC9DSE3C609 lSFl 8?2 ·HNT& DC
15EE D9'E·D?E3
·?2
15F2 C9£3U40C905Ea&O UiFE 4?3 ttBllSS DC
JSFA CS~9D609
·03
P4
1600
875
ORG
1600 a76 XWITAC EGV
1600
1640 877 ·l'l'E DS
16·1 ff
1641 8?8 FIU- DC
...,. 164.2 C1DPCIC3C8-&C5 1651
..... t64A 05E:S·OC3C8CSC.11>.i!
. 165.2 C90SES4COTOflC 440 169F
165A OSD6ES40D605
.-....·........ 1660 ClEH~ClCXM.840 1'678
1669 C8E4D5C?40CH4&2
. 1618 £8
:.6?1 C4C1E!!Cl 401>4C92 J67F' 1679 C3til604CTCI09C5
... ..... 1680 E4.0SC9E?t>1'CSC.1E'.1 1692
MO ATDISG GC
tlflPm DC
DC 882
U3 mSD&T DC 883
DC
1608 CSC·4009CSE20186
1690 OS£..~
-.2··0-a·
-.2··oc1·
JCL2·40.B·
J1L2··oee· Jet..2··o&·
Jea.2·40F3· Jll.2·CUH>·
-.z·c101·
JQ..Z·Ct58·
a.2·c1tre·
JCL2·Clf"9·
Jea.28CK~·
-.2·Ca60·
xa.2·cn1· JCL2·c2ee·
XL2·c~·
X1..2·cx9· XL2·c303·
xu·C3flo·
Jr&.2·c·1·
xa..2·a79·
JrL2·C4D8· X&.Z-C409· JU.2·c·E3· Xl.2 ·c940 ·
XL2·cec 1· JCL2·cs.e·
J1L.2·ceee·
XL2 9 C15E9· XL2·CSF3· JIL29 C6SO· Xl,.2·C601 9 XL2·C6$8·
&2·c·e·
JCL2·C6"99
J1L2·c?c:s·
Q.J T 1 ATTACH· NOT READY·
CL12 1 ~ INTBUWPT·
GAG TO 256 SO\ltllOAAY TAANSWST $ Sl&CEIVE F}ELD
Fll.L CHAllACTEA
· · · · · · · · · · · ·
....... , . ao I
I 811Fl DA S\'S..... ftsT 90DUl.E
ti el?_ r ~
!iii e0- ....., ..........,.. i
UK 08.fECT CODE
A.DOR Sl'tlT SOUltCE STATE...,.
1693 D41EKMH.,._4'E2 t69F
I... CSDXKH3 t6AO CSD6~£3~ t6A9
IMe IMC· HJAA C4CSE94Moce£4D9 1687 1682 CT~ 1..-0.,..ocso~ teBF 16CO ~CSCUTOTCSC.3E3 a.603
eet5 AYltlS-G DC 885 886 Bntil$G OC 886
1>¥91~ DC 887
888 NOtYUt cc
UMJCUtT DC
a..1a·av1 1'(1 S&&J!CT·
ca..1o·Efn 'IC Ctlf)· a.i··oev. KQlilG BUSY"
Q.8,.ttC £ .......
a..ao-e UN1! JCPt!CTl!D
!
I
c
;.«:8 C5C440C9DH3C:ID9
8199
1688 09MD7E!
889
1._ f)4C9C389Dl!l·Dc..106 161:8 890 NIOL-M DC
Q.2l8MICRt:I CODE N01' LCAOEO-
l60C C.-C9400806£34403
890
0
!····.
16te4 D6Cl C4Cf>C4 16159 Fl l6EA EO 16E8 .....
162'9
16EA
16EC 6Al4
890 891 Dl5Q 892 KATO! 893 tcA1D2
894
oc cc
DC ENC
OL.t·t· &l·&o·
JL2·k9.f.·
STMT
DSCIMAL ONE Al!P&.ACEMEttT KATAKAHA Rl~E CHAR·
I
!e
I
i·
,.! ··
I
18
!
1·
'·I .
1lI ··
'II ··
·
.OAT£
a&OCT7S
PllOG 10
· · · · · · · · · · · · · · · ·trCte·
8211D32
·
.PAGE
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
,
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
I
l&M MAJNTENA'MC£ DIAGNQ;TIC flltOGMtl 8W1 OA SYSTl!ill TEST mDULI!
S'f'MBOL T LE~ VALUE DEl"N
AAT48 A 002 15.28
ASSC.A 1 C 001 ODFO
A&sC.'2 C 001 DCff'
ACKIT A OCl OCC'?
·~·· ACKC
ACKl
A 002 A 002 J.$4A
ADI.TA A OC2 l·f"E
At:>OOK It 004 09£3
At;"!At!l A 00~ 1$20
AINTZ A 002 · 1519
ALOfE It OC3 0-'.&3
ARR
C 001 ocoa
ATAS A 002 1568
ATASPT A 002 152F
ATTCHK C 001 0050
ATl'MSG A 016 Hl51
ATTNOR A 017 15tW
9CNT A OC2 1515
8SCA1 A 003 .)AOF
8SVEAR A 004 OEOO
BUSV C 001 GOSA
BUSYe A 004 OOA.F
elSCA A oo· 1182
C"R
C 001 ooac
CC
A 002 US50
c NTRL. c oe 1 Oo.&:8.
CONS A·OQ2 OAC3
CURo£V A OOZ 150·
0199
OG18 OQ9 0.243 Cet6 Ot!17
ons
0170
oeoe
0198
0106 Oo.12 Oe33
oecu
0016 0180 0&69
0788 Ow13
0.?36 ew32
0.111 0448
o.;2e
OE20
Ow36
OC:97 0776
CUSIRA A 0-02 H02
OATAE A 02"r 1401
OA,.AST A 001 13C3
DATEA A 002 1500
011
A OG2 15!2
DE
A DC2 l~i;
OECI A 001 16!:9
DEV
A oc· 107A
DEVC2 A 002 153A
DEVD2 A 002 153C
DEVICE A 009 1455
DEyJNC A 002 153£
OcYOK A 00.. 086F
DOPOl.. A oo· OEOB
DDPOLR A 004 OF64
DOSIO A 004 OD23
DOSIOtt A 004 01)£C
t>ROP A 004 113-8
OfilOPED A oo· OEl5
OV&CNT A 002 1517
UVllMSG A 014 1697
ovesv A oo· Of'6&
EA-RL'I A 002 132A
ENABLE C 001 ooco
ENINTR C 001 0002
ENO
A 001 14F8
EO't
A 002 1542
EOTMSG A 010 t·6A9
~RA
A 001 1$33
()175
072~
0121 077'4 Oe21 oa19 Ce91 0529
oen ouo
0739 Oell Ol·:S 0396
()454
0278 O.la6
Ot23
0339 OM9 OE87
0·56 0711 0.135 011M 0768 0813 0686 040ti
EflfllATC A 004 ERRHL T A 002 EARDft A 004 EUORR A 004 £TAii A 00..2
11c· 1137 GF8'4
1158 USAE
06YO
0622 046-8 0632.
088
0108 Olff 0169 0649 0109*
02.a?
oaoo
0221 0260 02T" 03eG 0360 0382 0 l:t1' OUS7 OllSO 0147 010
0~7
0105 Otff 006$ 010· 0278 0~$· 03'18 03i;6 o.68 0799
.....01o.e. 01se 01&9 01.._ 0167 0169'!
0056 0642
osu
0050- 00~1 00&~ 02"* 03Z8· ~ 0670 03.Z9 HU 0334 0...5 0673
03°"'9 0312 04.,ff 0106 0075 01.00· 011..- 011e· 011.., 0120 e121 0123· 01~ 0131 0398 0·1· 0107· 0151 0164· 0195 0157·
0068· ooe.. 077·
077.3
01!5$ 0·27 04'.23 0205 022t 0244 0402 05H
0184 01ee 0186 ozez 0114
01.a2 0199 0369
0396* 0410 0195 0216 0227 0Zf5 02e.5 037& 0404 027~ 02e.o 0324·
0626
0307
oosa· 0054* 0057* 0189 0189· 0399· 0400
0507
0401
o·69· O!i0.2* 0610
0106
0302 0309 0196 0198 04-0$ 040'1'
0238 035? 0384 0527
0240* 024e- o:ao·· o3t9* 03211 0336· 0339
038. . 041 e· o·3.J· o·s.a. 0·10 0·7l Q-475 0499 0505 0509 0$13 061'1 0521 0525 0658* Oili6· 0668* 06"12 067S. 0. . .2 0.704 05.2,. 02·1 025~ OUl 0.137 034-0 ~& O.'M6
0468·
oeoe
0341* 0344' 0479 0463 0975 0625
0.1 0366
&ATE
26.RINTS
EC NO. 825023
0133· 0183 0187
0
·
0 SffBOL T LEM 'IJALUE
EWT A 001
o~= :::! Jl"'t., EXIT A 0'06
"Iii..·. EJOllDAT A 001
£~1
· 007
~XP4
.EXPS C·exP6
A 04)9
" oas
A 001
£XP7 A 010
1 ~Ff'f"F
"-: F lU.
A 002 A 001
G£TSET A OCM
OGD · °'°" GDACtt A 004 IO·~ A 004
G«IN A 00.
GO$\IPQ A 00--
e;, GOTlT A 004
VttAL"I' C OCl
Ml!UJS\' A 017
WEAO A 002
eH6'M$ A 002
IAR2 C 001
A IEXlT A 004 ~ IN1FLG A 001
tN"'IPNO A OJ·
lfl"'· lffT2 A 004
"" 101 IR
A 00-A 002
I"':. IR1)£ A 002
VtTBER · oo·
ITBM5G A 013
,_..._ KATDl A 001
'iii.1KATD2 A 002
t,.CA~
A 002
OLLIIC A 002 INES A 00.3
t..OG
A 001
,_..LllGCAR A 010 ~LOGDEY A 009
1..0GEXl A 001 r.LOGE~2 A 001 'lali..o-4SG A OCll
a·T8 GOFO 1402 l-408
l~
140£ 1417 H1A 143'1 1442 l3C2 1641 1064
0986 Cl£715 ft!;7
118·· OEGl 0£28 0222 16?0 10t!2 IS!SA OOAO 1190 1513 J69F ll5C 1199 1540 l56C ll&C llF1£ t6EA l6EC UllO 1506 OAOC UCB 127C
uoc
136f' IKO 126.2
0743
oaae
0724 0725 0726 072Y 0728 0729 0730 0732 0716 0878 4)f:i32
euu
0~7'8
0.50 0661 O.J.32 0344 O.i125
e>eea
o~ao
0824 04.l24 0657 078.7 01!81 OU8
0~65
!'>a12
oe1e
OE68 011173 0892 0893 0792 07'17
0012 06111 01'02
Oe9T 0713 0715 0696
O .._OG$AA A 010 LOGST A 013
LOGTl-A A 010
~DGftl A 001
01..0G.XfU? A 001
LSA~
A 002
l\LTAR A 002
ViteJ MAMFLG A 0 0 4
MAN·IN A 00"1
A t.1ANIN1 A 00:!:5
V M.OIP1 E A 001
0360· 0364· 036?·
,.,.,....,1 s A. 001
0487 0491 0495 oe21 oeZ"S ()646'<
I"-:, NAllFl2.E A 001 ..... MANP2S A 001
""'let.P A OO·
C ll&l".:N.. A 004
i
MICtlll,,.M A OZl
I
... lcl'tJN A 004
II A Ml SCAT A O SS W MSGIJL.k A ~01
I
I
PROG 10
fJACE
oew-1! u ' ac
!·
l I
l·
I
1290 121'2
1:2~6
1207 1328 1521 UUF 1512
OCFO 0.007 l-'B2 14?(;
14Sf" 14S:t 0A30 OCE!S
i·ee
OA48 l67F 126.J
07'04 0701 0703 0108 0710 0794 0793 0785 0.2.55 0264 0753 0745 0763 0755 O-Q56 O.i4B 0890 DOM 0883 0699
0211' oau
0311
818?· 0436 0163* 0207· 0211· ~as.
0164*
01es.
016. .
...,.0152·
0236 01164 0569
0469 0297 0297*
04T8 0482 052· 0521 0113 0139 OJ41
0486
e>···
oeao
02·& 0420 0492 037. . 0389
0643
0345
0331
0621
MT?
0$75*
0502
0109'* 0649* 0~7 0654 0667
0300· 0311' 0330
.-e1
0663
0652
0-413
0·31
0655
0493
(1068
0069
0288 0304 0099* 0116 012s 0129* 0134· ct·~· o:a·· 01..-. 0146 01~ 0170
0066 0097
0011
0285· 053$
0186· 0282*
0565 06U
Ot570 061 '1 0.281* 0263'1' 0473~ Q477it: 0~1* D443~ .,4&9· 0493* 0497· 0501· 0507.e 051U:
0515· 0519· 0523· 052?· ~530$
0287· 054S 0600
_;,, ·
0284* 0550
~286· 0540
0555 0604
oS6o o·oe
0'-91 · 0306 0288· 028~· 029C* O~C5 0316
G462
0~47
02.56 0256 0266 0266 0058 0052 0$J9 0063 0501 0281
o.i::se C>26E
OOH 00'1t'I 05?9
o-e9F-l llA
··
89Fl DA SYSTE· TEST MODULE
CAOSs-aEFStENCE
S~ T LEM VALUE DEFN
MVOATA A 005
NEXT A 004
NOEAA · oc·
NOIN'f· A 0 12
NOKAT A 004
NOPASI A 006
Nl)RDUC C 001
NOADY A 003
NGTAVL A 020
NOTROY C 001
NOTST A 005
ONE
A 003
ONF\..G A 004
DOPS A 004
OOPS1 A 004
OPT3 C 001
OPT· 011'1'5
C 001
c 001
PASSI A 001
~LC:
A 001
PLPC A 008
POLL
A 002
POL.T A OU PREF C 001
PRINT C 001
PRTFLG A OC4
PSOEV A 002
PSR
C 001
PSAW A OC2
R~tUJO A 001
ROMOO£ A 004
ROK ROTT
A 006 A 015
R!AO A 001
liECM$G A 001
~EOT
A OC4
REST2 A 004
li!PDAT A 001
RPTPOL A 006
fH~VI
A 004
t:lTNQ1 A 001
RVJ
A 002
RVl·SG A 013
$ACK A 0Ci4
SAA
C 001
SCAR A 002
SEL
A 002
SELECT A 0~6
S£LPGL A 001
SE\. T A 01'5
SET
A 004
SETADR A 004
SETATC A 004
SEW>OL A 006
SETT8N A 003
SFl
A 003
SF2
A 003
S"I" a oM
S+fIf" Ta A CU
Sl(Jt C OOi
SIX A 002
SLtaC A Off
StU
A 003
S-1112
A 003
sPfllU) A 086
Sf"1
A 003
0088 0A7E
168F
15Fl
o·Ea oceo
ooes
0A42 151!5 0058 CSBA 1536 150A
OEEE
0!!165 0008 0010 0020 15.32 1530
1241 1S5C 12.39 DAOO QUA
lSOE
l .V-7 0004 151S
l4F9 14FC 1213 120D OCAO 140A
OE5A
ODES 14?4
OEAB
01:61 0A10 1546
l6W' OF60 0089 152JI 155£ OC40 14FO 1224 0AC1 OBA9
111>~
oca:
0A82 o~es OFSO
OA.. ClBU
c~
ts38
122A CIF02 0F7D 14Fs OC:96
0298 0078 0&88 0872 041:70 O.i36
Oti3? 0'60 OS71 01.llS Ol62 Oct06 0783 0419 0368 01)38 0039
ow.o
OE04 oeo2 0695 0825
0694 O.l41 0026
0784
0 767 0023 0791
0770 0771 0689 Oc88 0225 0760 0364 0.325 0?41
0399 O.J67
o.;u
0815 0885 0452
0.130 0795 0826
0194 0765 0691 0096 0158
0~75
01e· G.#79 0·17
0451
0"89 iU44
eou
oec>.e
0692 0425 046i 0166 0234
RtFEAENCES
on·· 029~ 0296·
0092 0283 0497
0061' 0233 0651
OS30 030?
0160 0057 0073 04M
0365
0093 0154 0290 0328 0073· 007·· ooe2· 0101
0399 0135
080?
o~
0064 0111 Ol4D* 0212 0402· 0596 0100 01~~
0112· 0440· 0443*
0397
0103 OS76
0138
03984< 0640 0640·
oue
0228 0244·
0322 0581
0641· 0648
0230 0588
0332 OS85
0646· 0660
05?2 0589
0660·
0623 0593
0597
0601
0605
0612
0222 0264* 0239 035! 0279· 0153*
0428 0356 0010 035!5 0523 Ci426 0442 0306· 0314 0312· 0!534. 0194
0450
0196 0405
0071 0156 0671
0071· 00?2· 0092
ooe3
ooe3· 0084
0084* 0085
OOBH 0086
0094 0172· 0430 0432 Ol78* 0090 0145 0048 0049 0050
0166 0324
020h 0'992 Otl'M 01760194· 039.,. Ol75*
005~
0060
0061
0249
DATE
26JUN?5
EC MO. 82~23
250CTH
e.2~·2
PAOG %'1> PAGE
·6t$ . · · · · · · · · ·· ··
'(
4236Hl,
G 12
·89F1
DA $YST81 TEST llOOUU!
G SYlllBOL T LEN VALUE l>EFN
REFERENCES
CfaCSS-REFEfl&tU
SSAR
F, SSTAT
"-...·STAR
A 002 A OC2 A 002
START A 003
{.'\ STATA A 003 ·STATUS C .001
STOPI T A. 004
C SUPER C OC1 'svDl2 A HZ
TAIO A 005
~TALONE AO~
V TAR
C 001
TCLR A 003
v£!<.TENT A 003
TERROA A oo·
TERR08 A 004
,TERROf' A 004 C·TE·2 A 004
TEM2'0 A 004
,....) TEAA3 A 004 "'..;TE~4 A 004
TERR4C A oo·
O TEIWS A 004 TERR& A 004
TERR7 A 004
~TERRI A 004 ~TERR9 A 004
TLIN A 004
I J!F» TM l VTN2 TPF2
A 003 A 003
A 003
I"'> TP 1
~TRVI
TRVIR
A OC3 A 004 A 004
#"'ti. TSTATT A 004 VTST&V A 005
TS"fl>E A 005
~ TSTE~I= A 004 ~ TSTt:lOY A 004
TSTREQ A 003
"""'TTSTR A 005
~Tl
A 003
T2
A 004
o~! : :::
UME.d' A 019 ,,.._ UNJTC A 004 ~ UNJTNR A 018
UNPACK C 001
,.,.. UNXINT A 020
VUPDAT£ A 006
UP\.
A 004
'1 WACK
Vwcc
A 002 A 001
WHAT A 0()4
-._WRPC W~T
A 006 A 001
WRTAOR A 003
l/!it...wRTCMD A 001 ~WRTFLO A 0031
WRTPAT " oc;·
· ~TPAP A 001
WRTT A 015
wxn A 001
..-.xMITE A OGl I WXMIT~ c 001
I
1527 1529 Ui25 0Al4
1~!!!!
0088 1132 OAOA 1566
OF29 OAC4
OO&A OF57 OF47' 102A 103A 104A 0FA4
lOSA OF84 0FC4 106A OFD4 OFE4 OFF4 1004 10U. OA85 OC39 OF49 OF30 OC70 OE31 0E71 116C OFOB OEFA
0002 00A8 1558 OF1'4
OEDf! OBlA 0820 0842 1692 1184 1501 021£ 1603 0801 OA91 1544 1446 OF23 UFC 144'3 144SJ 15.31 1445
OC89
OC5C l1F6. OA01)
l~O
008A
0797
0798 0796 0048 Oe.'!2
0".31 0621 Ov42 0829
0436 0099
CW29 0449
o..w
0509 0513
OH 7 0475
0521 0479
0483 0525 0487 04tll 04ff
0499 O='!Cl5
ooao
0.1~2
0446 0441 0209 0.552 0372
OE42 0427 0423
0.?20
0~7
OG23 0459
0415 0120 012S 0131
oe&4
0666 OE70
OQ27
0889 0114
OVQ OCl14 0736 0"33
0686 0734
073?
oeo3
073!5 0216 O.l04 OflaS Ov04 0877
Ow33
0&9t=-t! .DATE
12 I
EC NO.
le
26AIN79 825023
25CCTT5 825032
·1I·· · · ·
0314· 05.\4 0315· OS4i
o;n:H os3i
°"'ll 0628 0630 0894
0315 0573 0611 0323 0333 oe24 0102· 0115 0128· 013~
0412 0087
0305· 031.3 0445
0442 0506 0510 0514 0472
0518 047'6 0480 0522 0484 0488
0492
0496 0500
oo~s- 0076· oo7s 001e· 00?9· coes· oce9
0177· 0179* 0439 017. . 0202 0223 02U 0272 0352·
ocev- 0091
0424 0414 0318
0459 0437
0171· 0117 0122 0126 .,..85
0651 0473 0181 053.i 0537
0515
0193 024e 0261 0081
0353 0208* 0214· 0460 0226* 0584
0217 0162· 0137· 0161· 0206 0206· 0215* 0210 0213 0201
0542 OZ'tl
054? 0354
09$2 0362
OSS7 0.3?0
OS62 0308
0967 0416
0197 021e ozn 0236 0257 G.1!67 0381 0406 0554 0309
· · · · · · ·
PAM fllCe PAGE
0421
PROG ID PAGE
089F·l t.2A
· · · ·
·
·
·
· · · ·· · · · · · · · · · · · · · · · · · · · · · · · ~· · · · ·
.....PMT llDe
·ITRC A 001 1600 01!?6
... c 001 0001 oaao
oxx
....... XJ
. u
..·. X7200
ZEllO
c 001
" "
A 002 A M3
ucoz
1962 JIAI llAS 1966
sts·s
04127
oesa
061Ht
,,
oan
. . .3
0993
......,, 0792
007. . ON3
MTS 00. .
0072 OHS
OO'ftl Off9
0076 C0?8 .,,.. 0089
·17· OISI· 01·2 OUl3
017· 0175 0-278 0.288" 028
.... .... ..... ... 0409 0411 0413
oase- OH2
e177 OJ'le
0291 ....
04231 0;&27
0163 011'9
eae
MH
.... 0170-. H.21 02SZ 0.316* 0353
~
..., ..... ........ 0101· 0102 011.. 0127
. 0292· 0298 OU.- . ., .
OZM O.ZH 0286 0297
01~ oaa. 0192
~
.............·~
c
I - 11AlllT£WE DIMINCST IC . . . . ., .
·
DA SYSTSI TEST mDUI.£
9'-..... . I,,_... 16
1v'!!!>4·
~
· --··· · ftlll42
WT<e-Yts...e
8/
CL 17 1MROU8H .32
..... " & 0 -
·- tll!Ul·O· H<I CO-IC
3DtC3C< OG......-ccD
.................
ST
a······
. ....... CL es T....._. ..
.......
89W ,....... ...1....
···---·1ooea
... . . .
WTT< _9££<8 .MIFitZ
HZXS.19£8&9+.
-£.1Jt3S< < ~EEla
.....
..., ·eCl!l'll
9-tl
< .Hl'feKSftAlmf &
..
. -...c . . . 3.a
.....
·<Tr _..enc;1·
YKIO.Zl:te9F1aOM
oe~e·a. . . .
r·
\..
.k ..
··
~ .. .
~T.~'IY ..Ml AOAE S
6'!
· ·· ·
WTeOO oc_a <G +9· · .tC AO CSD G
0 T · · IEE&PINCO"Eo\$
<-0 ·
·· AG CC\'
.....
·
811U.,,eef'AC
··+. ··M...,.,. G 1-P-···· <2 c ,..··
SEOaai·Clt9F10011
. .
Nil&. 8Wtl.Jc9F.-
JAO<A:YaetF10012 +8~~.13-MIFlOOU
4'!!ll ·
·
··
WT< 3CH J'e4T < ~;-CO-DG>-
..
. -
CA:t JSE .a< 1 t2EOH < .1 la£(;M< J ~FE~
· S6<A.SO CGUAG
··~1uie
···tt OHf'-1' . u j ·c ·· ie i re I
I
... DA SYSTl!ll TEST IDIULE
CL I lMAOU&M 16
T<-71<tC-..AE.-
Q.. 17 T........ R
. .
· A._.YDOI ..a4
-.
N<-..GACO-ELI ,..
TCC..UE.IUDe F·AI M!>X 'MT -O~AL.
... ...... T<O·· 8-Dto· · KOA
, ~_
.. . ._ T·--· T'°soc
.
T.1AeELl2 GU<Oll
.. .....
LI C-OIGUM < AB·Y+ &.?19-1'9 -
cetl. .W&eG~c; A
..
c -·waa.cc< ...
.
~· ~ 2 NNC 6 ...... fttAG·-
. 2'8 ·AAM3--DlCNt .
.
219 ·AllQa-GlC S KCUFlaY; l"-fll<9fo!
. -
K911G '8TEU UKB
...
- .- ttELI ,0 >MSOSGrt
·
<MBDO<~MC
Zl.i REl
....
TEOH BBXI .la.E.f<
1 (.
·aMH
t · llAINTENANCE DIMiNCSTIC .........
14 ·
~··l
11. e,. 4 C&. 81 nffUJUlitft
I Ci; CL l 1tHlOUCiH 16
CL 17 ntRaU1iH U
I · tc80·C~l0021! ~~,..,...._,UDCTDI I
0 ·AD<A1'988W1·oul 'f·n.. fcoafcoets
I
C8'MAS¥Ye·104 GT+ni?oecHh>-X9·1
Mal
·~DA
·
·ICMIC
· &.+l A6P·. . . . .coc
SK·93 MiFlG02~ O.,+,.DM>A·COA·&DA
-
I A
· ·
ac--.c1EOM1"100251 VT+l'<vc.DA COt\ &.DA
I
+e-M-la&9Fl0026' ···l'C-f.DA·-oPee·..
I
·
I A
· ·
"C -A'All89Fl.002i W T+,+M.GA ~ f.OA
1eo..Mf..D8W'1002~ e.,.,,oa.·....~
to·latFA...o1.· c.OA
- ' o \oHJU!sEae4FlOC29i
T+.1£.49+PW. .TZ81CO
ICf.\Jen...ew10030~i ·'f8A&'U.ln...xog·
· I
.18-<A.t·D89Fl0031!
· ·········
T.+J'.12 0
I
I ~
·
·
·
.18·<11H8De·1oc3z VT+AC._f.D AD c ..
· · I
I
i
lA~9Y8WlOC33 I
·
T+.ILT9M )Q <81"G
I
I
.ae--·~T469f'l00~
·T~··········· .le--A$lNl89F1003S
,..,_,S.,._8atU&.QFE
................
S0,7Y4tlPYr.<·a+L
........
... .
oe.acT CMD LISTIN&
CL 3~ TMRDUG.. 48
.
0-APSU IU·c ···
Q.. 49 TMAGUGM 64
TO .. HDCO·I coate
· ·
SOA SoA &DA f..DA
t.CA COA.a.DA -e_
COA SOA COA ~
. .
&CA 8DA Mt.tfC.D.t
. ..
WA c.DA IDA $DA s.0A 6-J-O·eCt<F
. ................ ....·........··
P&+tatleO~IKDJV
...·······.. ..·.·...·.......
PART ND· PAGE
CL ee -...OUGH 80
.e,-.o.·c e·no·I .-..,o;tuealrlfv~
CL 81 'TMAOU5H 96
. .
..sg.o TR.a·100·3
xco ~so~
·
··-SD E8Y89Fl00·6
&D PQ08W'IOC·7
·
&D PAC:89FI00·8
FJ8T14leL5CP05·T RB>< QJQ89Fl0050
.·..............
.. -
&D 9EU89FlOOS3
.....
· e-
...
GM Ol , -..1ioaw1ooa?
CZ<I f.O· f cac11077
. -· .
.
...
TUE~ IGU tt < A&-Y·C&QOMD ....C4EELJ -&.YlflGO iKalUiUL '0 C C
JZ«EOE-4 Ct-1«0
oc-CA~l0,3~ ·T·n+64'..Tlt11CEO*N I i
· 1 : 1 1 E l. . .H V C F . . a
attTF·..CO;ITO·I ···?W.SUCl5;IE6tX
!·PO~(PO..c:Os.G
. .·....·..·. · t«·C..e>< _.,.Al+T ND( 6*.¥0;&.NUC
ua.11eet 2'tl!:T~CP ......
..... ~-CHIFl"-60
.
TC l'G-az fffi-teh<ai!
. .. ~·
...... ~ 0-M Cll ~ M:SO...,_O
SIE· C~AT..i:
. .a-QMSl)ffFU:JG4~
~I . . . . . .
IL.NI 11
i
1e-w-c...a·100·1· 9Tc.-.u..-oaata
tte-··8"891'10..-
£lV~-.OCWIPHS
· · e·a NRPft~
81'f'
··-· ... . ... .. . ·-- . 1e; tE6,xus-ttlfzttI
_..,1151'1 t C
FS AS< · A
Ll·f TllSTD+fS<j
................ -··· LSllGCULlettDE
IC 0
·····G8540eC8Y21
-···-...,l~ C231~ff<89F'l0060
I
____._......,_...__,___,______________ LA.T PM;C -------------------------------------·-------..----
14 l
· ·-@· · · · · · · · · · · · · · ·
·
·.
·
· · · · · · · · · · · · · · ... · · · · · · · · · · · · ·· ~ ··'·'=-"'-. . ;, ; :-~.i, . , ,~'zs,.;" "2:. .·' "·'"' ,,. ··...,,...-;c..·a··-d-,.-lffl, fl« ·~"'""'"'"'"'""'-'4""~'='·'...'-··- _, -- ...to ._~.,.~J"""-" -""'"'~..,__,,..,,,..._..,,·.~.,:,·Jot...,.,·~·-~~~"·"¥'" 1 -.;;~~...,,-~~.._-..._.,...,.~-·'""""";........._,,....,,~.~.,.·.,.,.,, .c,.f·..,..., -~.'""'' .·........-... ·. l·
ISM MAINTENANCE OIAGJIOSTtC PROGRAM FC80 MOVE FC7 MICRO-CODE FROM DIAG P-CK TO SVS PACK MOC US
PART NOe PAGE
42342651 C)tB· MAtNTENANCe DIAGNOSTIC tltltOGftAM
. ' ! em· MOYE FC? MICRO-CODE FROM plAG P·CK TO SYS PACK
PART NOe ·234169
PAGE
IA
ERR LDC OBJECT CODE
ADDA STMT SOURCE STATEMEfllT
I
ERR LOC 09.l~CT COOE
ADDR $TMT SCUAct! STATeM~HT
OAOO
A
~~;
OAOO FC80 0A02 00 OA0'3 00 OA04 0000 OA06 0A2') OA08 FFFF OliOA A00')00 OAOO CtOOOO OAIO 141000
OAOI OA02 OA03 OAOS OAOT
OA09 OAOC OAi:)F
OA12
OAt~ ·040404040404040 OAtC
O.. lB 4040
OAtO 40
OAtO
OOOA
OAlE OAIC
· 0A20 01
c
0A2t 00 0A22 .....F
OA20 OA21 OA23
OA24 30 oo tau
(, OA28 F2 01 IF
OA28 OC 12 16'5£ OA12
3A oe C2CC
OA:SS CO 87 022A
0439 oe
OA39
OA:SA 0893
OA38
c
OAX OC 12 0Al2 1615£ CA42 3C " lfMF
OA·6 H 08 0200
OA4A 3C 00 OA9$
(_
OA4E 38 2C OAC)B
OA92 F2 90 41
OAS!S 38 20 OA~
OAS9 CO 90 OBAS
OASO CO 87 021A
OA61 42
r
OA62 3E
OA83 OAF9
OA65 14FF
~-
0A67 CO 81' 021A
'....:;
OA88 02
ol.6C 33
OA80 082C
OA4F CO 8'P 021A
OA?3 O?
OA'P· Q
OA?S 0871
OATF CO 87 0222
OA?9 89FF
OA?D 38 02 020D
OMI P2 18 IE
OMI t'Ae2 OA64 OA66
OAe9 OAK OME
0A73 OA'P4 0A?6
OA'IC
2
SEQ' 0
I ·
3 SEX START x·aoo·
I
10 :
:: 4
6
l tt ; ······ SECTION PREFACE ·********* AOOR *****·****..****************..*
9
DC
10
oc
11
DC
AOO ID A02 FLAGS
A03 RTii IJ
I·
12
DC XL2·0·
13
DC AL2(RTN1J
14
DC
AO· fVA A06 RTN 1 AOS
1.
15 AO 16 Cit 17 ID14 18
DC
XL:S·AOOOOO·
DC XL3·csoooo·
DC
XL3 1 141COO·
*e: 5444 SPINOLE I CE MODULE 3340 DR IYE I CE MODULE "10 32XX
· ·GC·i
·GC·1
19 INPUT
19
Cl.OU>· ·
i i
0
20
21 LNG
22 END 23 F!TNI 24
24
DC EQU DC l!OU
CLl 0 · Oto
·AL2CtNPUTI
1··i
i i
25
26 27 28
.·1!.1.....R.O..U.T.IN.E...l .P.R.E.F.A.C.E.......*.....................................*.*.
I
19
I
28
29
DC ILt·t·
30
DC XL.I ·.os
31
DC
At,.2(·---1)
32
ATN · FLAGS
NEKT RTN
!I · I·
33
CLI LCADFLeO
34
JNE AGAIN
: e TEST FOR MICRO-CODE A~L~EADY LOACED I
SKIP LOADING IF SO
:SS 36 37
NYC 08UF+l9119)·1D14
56N sev1es.ssw2c
8
LOAD
SAYE THE SECTION PREFA::E ~ET SS· 2C ON GO LOAD AND AUN SECTION 893 TO
I
le
38
DC
XLl 1 08'
GET Ml CAO-CODE LOA.OED
39
DC
XL2 9 D89:S·
40 HNLDR ·vc
41
MYI
42
SBF
tDl4(19t10SUF+t9 LCADFL·JC·FF· SeYTE5aSSW2C
GO RESTORE TIE SECTION PREFACE SET MICRO-CGOE LOADED FLAG
RESET SSW 2C
I ·
43
44 ·········· PRINT OPTIONS SECTION
· · · · · · · · · · · · · · · · ·,., · · · · · · · .;,: I ·
4!i AGAIN
MVI OSKTYPeO
·GC·I
46 47
TBN AO-leJC·!O·
JI: INSI
CHK POR CE lllOGULE ON ~- DRIVE I
··GGCc··j' ·
48
TSN Ctt-t eJC·201
CHK FOR CE MDDUl.E ON 33·0 DRIVE 1
·GC·!
49
eo IHS
BF
INS6
e
PRINT
.IUMP AO ENTilV BUT NO Cl ENTPY UDT
PRINT THAT BOTH 5444 & 3340 ARE IN
·Gc·I
UDT*CC·i
·
51
OC
XL.I · 42 ·
FLAG BYTE
52
CC
AL1CINMSG.-INllSGS) LENCTH 0..- MESSAGE
53
DC
AL.2CINMSG)
SOURCe AODRl!SS
=tGC· 1 ·GC·, · *GC·I
54
DC
XL2' 14Fff·
MANUAL ENTER NEEDED
55
8
PRINT
PRINT lllORE COMMENTS
e ·GC·:
·Ge·!
56
DC
XLl ·02·.
FLAG BYTE
=tGC· I
97
sa
DC
ALtCINNSG1-INMS61 LENGTH OP MESSAGE
CC
AL2CINMSG11 eOUACE ADDRESS
59
8
PAINT
PAINT lllORE CIJllMENTS
60
OC
XL I ·OT·
FLAG l!l'YTE _
· ·GC·
61
DC
ALIC INMSG2-tNISGI I LEllGTtl OP ·ESSAGI!
62
DC
AL2CINMSG2J S~ AOOAESS
63
8
H'LT
64
OC
XL.2 '8~·
·ANUAL ENTat lll!l!DED
65
T8N SBYTESeSS"2E CHK SSW ZE ·QNO
H
.n INS4
"UMP IP Sh 21! IS Gt
,.*GC· ·
*GC· .
·GC·
··*GGGCCC···iIi · .
OA84 38 04 0200
67
OA88 co 10 OBAC
68
OASC oc 03 OB9C 08AO
69
OA92 F2 87 IS
TC
OA.95 00
OA95 71 OSICT'IP
OA96 38 20 OAOE
OA9A co 10 OBAC OA9E co 87 OBF9
'72 INSt 73 74
0AA2 38 04 0200
OAA6 co 90 OBAS OAAA oc 03 OB9C C8A4 OA80 co 87 021A
75 INS4 76 77 78 INS8
0A94 C2
OAB4 79
OAB!5 28
OABS - ISO
OA86 OB9C
OAS? Bl
OABS CO 87 OASO
82
OABB 83 INMSGS
OABC 40E2E8E2E3C!50440 OAEA 84
Oit.C4 C8CIE240C206E3C8
84
Olt.CC 40E3C8C540F5F4'=· 0A1)4 F440C 1D9C«OF3F3
t'ADC F4F040C4C9E2D240 CAE4 C4CSC6C9D!5CSC4 OAEB 40C90540E2D?E4E3 OAF9
84
8··4
94 85 IHMSG
OAF3 40E3C1C2D:SC54B
85
OAFA 40DT03CSC!E2C540
86
OB02 C9C4CS05E3C9C6e8
86
OBOA 40C9D50TE4E340C4 0812 CSE5C9C3C540C6D6
86 86.
OBU D940E2ESE2E3C!504
86
0822 40C4C9E2D240
86
0828 07CIC3024B
OB2C 87 INMSGI
0820 40E3E409DS40D6D5 0958 88
0835 40D605D3E840D6D!J
88
OB3D C540E2CSD5E2CS40
88
0845 E2E6C9E3C3C8405C
88
0840 5C40E2E2E64CF2C5
88
08!55 40C606D940FSF4
oesc F·F4405CSC40E2E2 0871 '
0864 e640F2C440C6D609
osec 40F3F3F4FO·S
88 89 1NMSG2 1!19 89
Cill72 40C606E405C44CE3 OB9C 90 INMSG3
OB7A C8CIE340E2E2E640
90
0882 F2c··oc1osc.-C£2
90
OB8A E2E640F2C540C109
90
0892 C!40C2D6E3C840D6
90
OMA C6C648
90
0890 D6C6C64B
91 OFF
OBAI 06054048
92 OP.
OBA5 3C 54 OA95 08A9 F2 87 4-0
93 !NSE 94
OBAC !C 33 OA95
95 UIS!!!
0880 CO 87 021 A 0964 07
96 0884 97
0985 38
0885 98
0886 OBF8 0998 co 87 0222
C88'7 99
too
088C 199FF
0880 101
oe8e F2 87 38
102
OSCO 103 DSKM32
OBCI 400TD3CIC3CS40E2 OBD3 104
OBC9 E8E2E3C5D·40DTCI
104
OBDI C3D240
10·
OBD4 D6D540C4D9C9E5C9 08F8 105 DSICM33
OBDC 40F248404004CID2 OBE4 C540D9CSClC4E848 OBEC 404009C5E2C5E340
109 105 105
OBF4 C8CID3E348
IDB
TBN senes. SSW2D CHK SSW 2D ·ON·
-SC·
BT
INS5
JUMP IF SSW 20 IS ON
·SC*
MVC INMSG3C·>.OFF PRINT THAT BOTH ss· ao g 2e ·-e OFF ~·
.J
INS8
oc XLt·oo·
PRINT FIELD FCR DISK TYPE Ot!PINITION·
·SC·
~·
TBN cu-i.x·20· UOT ENTRY FOR Cl.,.,
*Ge·
BT
INS!5
BRANCtl Cl ENTRY BUT NO AO ENTSCY IN UDT*GC·
·GC·, 8
OSIC11133+1
BRANCH ND DISK *VAILABLE IN UOT TAm..E ..ce ·
TBN SBYTE5eSSW2D CHK SSW 20 ·QN·
BF
tNS6
JUMP IF SSW 20 IS ON
-CC*
MW: INMSG3(6)e0N PRINT THAT BOTH SSW 20 s 2e ARtE ON
·GC·
a
PRINT
PRINT THAT BOTH SS· 20 g 2r ARE xxx ~c·
DC
JC\.1902 9
FLAG BYTE
-SC·.
DC
ALIC INMSG3-INMSG2t LENGTH OF MESSACt!
·GC·
DC
AL2( INMSG3 t SOURCE AOOAESS
8
INS
PRINT CONTROL STATEMENTS AGAJNe
·*G&Ce:·. ·
EQIJ ·-1 START ADDRESS OF PRINT COMMENT A-EA
*Ge*
oc
CL4? 1 SYSTEM HAS BOTH TtE' 5444 ANO 3340 OISIC C~JN£D·
DC CLtS· IN $PUT TA8l.Ee·
DC
CL46' PLEASE IDENTIFY lfl!PUT DEVICE FOR SYSTEM DISK o
oc
CLOS·PACKe·
DC
CL4? 1 TURN OM ONLY ONE SENSE SWITCH ·· SSW 21! FOR M·
DC
** Cl..22'·4
SSW 20 AJR 3340e·
oc
CL43· FQUND THAT SSW 20 ANO SSW 2£ A~ WOTtC GAE··
DC DC MVt
.J
MVI
B DC DC
DC
B
oc
.J
EGV DC
CL04·QFF.·
CL04·QN ·' DSKTYPeX·S4· DSKM33+1
OSKTYP.x·33e
SET FLAG FOR 544-· INPUT SOURCE JUMP TO COMMON ENTRY POINT SET FLAG FOR 3340 INPUT SOURCE
PRINT
XLl·O?·
PRINT MESSAGf!
ALICDSKM33-0SKM321
TO
AL2C OSKM331
LOAD
HALT
HM. T
DRIVE 2
'JCL2 9 89FF·
THEN RESTART
·-1 GDSKM:!J3+1
JUMP AROUND MESSACi£ DC
a.a o· "PL.AC£ SYSTEM PACK ·
DC
C~37·0N DRIVE 2o
RESFf M&.Te·
*SC· *GC··
..:·
*GPC*·
*GPC·· ..C· ....-C·· eGPC·-
~
*GPC·"
·~GP·O
· · ·
PROS 10 PAGE
.re.... PC8-0' I I
0A11!
:
26.JUN79 829023
1I e
I
·---··~"~--...'.~-~--_j_---~---- -· -·-··· ·-
PAOt; 10 PAGE
PCa-o· SA
. ...i
·
·
tBM MAINTENANCE OIAGNOSTIC DROG'tAM
FC80 MOVE FC7 MICRO-CODE FROM OIAG PACK TO SVS PACK MOO 19
ERR LOC OB~ECT CODE
AOOR STMT SOURCE STATEIENT
PART NOe PAGE
1I ·
I
4234265j ()18M MAINTENANCE DIAGNOSTIC PROCRAM
2_ I I .FC80 MOVE FC7 MICRO-CODE FROM OIAG PACK TO SYS PACIC
I ERR LOC OBJECT COOE
· AODR STMT SOURCE STATt!ffNT
106 ********·· PRINT OPTIONS SECTION
END
. . . . . . . . . . . . . . . . . . . . . . . . . . '1 . .
ocec 3C ae OCF·
I T4 SETRt MVI Sl!IX1X·ea·
OSF9 30 FO 2004 OBFD F2 81 OD OCOO 3C 11 OEDF OC04 OC 01 OEB2 1A4E OCOA F2 87 OA OCOD 3C 09 OEDF OCll OC 01 OEB2 184C 0Cl7 OC 00 OEE6 OEOF OClD 38 20 OA 11 OC2l F2 10 68
OC24 3C 09 IB6A OC28 '3C Fl 1888 OC2C CO 8? 021A OC:!O 01 OC31 3C OC32 1888 OC'!14 3C C6 186A OC38 3C FO 1888 OC3C CO 87 021A OC40 01
OC30 OC3l OC33
OC40
107
108
CLI
109
.IE
110 SET1TS MVI
111 112
..MVC
113 SET9S MYI
11·
NVC
115 T ..15 MVC
116
TBN
117
JT
118
119 ASKFA MVI
120
MYI
121
8
122
oc
123
DC
12·
oc
125
MYI
126
MVI
12'7
8
128
DC
>'IKFCJC.c·o· SET9S NUMSEC+1.xo11· NOSPNC211Sl7 TM15
NUMSEC~leJC·09'
NOSPN(21.S9 SCNTS+ICll.NUMSEC+l ID14-11X·20 1 CARDIN
Ol!8MG2-leC·R· MBMG31C·t· PRINT Xl.1 9 01 1 IL1 1 601 AL2CM8MG31 MBMG2-1.c·Fo MSMG:!l1ceoe PRINT XL1 1 01 1
TEST FOR DECK FCO t F SO· SET FOR 9 SECTORS SET FOR I? SECTORS SET " SECTORS t N MESSAGE SET FOR 9 SECTOM
SET NO. SECTm:tS IN CNT IS 32XX INSTM..LED .JUMP IF SO
SET MESSAGE FOR REMOVABLE
GQ ·PAINT MESSAGE
SET MESSAGE FOR FIXED
flfllNT AGAIN
l ·
I 0
le
I
io
,.! ··
1·
occo 30 33 OA9!5
OCC4 F2 81 17 OCC'? 3A 80 IOC:6 OCCB C2 01 1?£2 OCCF CO Bl' OFCB OC03 CO 8'? 1008 OCOT F2 8'7 04 OCOA 3C BA OCF4 OCOE C2 02 1828 OCE2 36 02 1172 OCE6 3· 02 OCFA OC:EA SS 02 00 OCED 3t; 02 ll '?O OCF1 F2 81 08 0Cfl'4 BB 08 00
OCF'? C2 02 0000
oa=e co BT OCE2
OCFF 38 20 OA11 Ot>03 F2 10 Al
OC:F4
OCFA OCFF
175
CLI
176
.IE
ITI'
SBN
ire
LA
1?9
8
180
B
un
.1
182 SETF1 MVI
183 SETFIL LA
164 SETAGN A
185
ST
186
I..
187
A
188
JZ
189
SBF
190 sex
EQU
191 192 OOPTR 193 194 SETON
LA
eau
e
£QU
195 196
TBN
JT
DSICT"fPeX·33· SETFIL ERASEeX·ao·
>UISG411XRI
PT54'PI INPUTA SETFIL sex.x·aA·
Q8T8L-hXR2
TWeXR2
ODPTR,XR2 OCeXA2)tJCRZ ONEeXR2 SETON
·-3oc. XA2t. x·oe·
·-·........2
SETAGN .
·
1Cl4-t.x·20· MIS
OC41 3C
OC41 129
DC
ILi 0 60·
0006 CO 87 02iA
197 ASK
8
PRINT
OC42 1888
OC4-4 CO 87 021A OC48 06 OC49 16 OC4A IBAt OC4C CO 87 0222 OC50 89FF
OC43 OC51
130
DC
131
132 M8£XIT 8
133
DC
134
DC
13'5
DC
136
8
I'!?
DC
na
AL2(M8.UI
PRINT XLI 1 06· ll.1 1 22· AL2018MG4-I HA\. T JCL2 1 89FF·
PRINT MESSAGE TO RESET HALT
HALT TO AL.LOW SWITCH SETTING HALT ******·FF········
1.
I
!e
1.
OOOA 01 0008 48
oooc l8E9
0001: CO 87 021A
0012 01 0013 10
0014 1906 0016 C(I 87 021A
OOIA o~
ODOA
ocoe
0000
0012 0013 OOHS
OOlA
198 199 200 201 202 203
204 205 206
DC:
XLl·Ct·
DC
ILi 0 ?21
DC
AL2CIUMGSt
·8
PRINT
DC
XLl 1 Dt·
DC
IL1·29·
oc AL2C M8fltGSIU
B
PRINT
DC
XLI 1 06·
OC52 30 00 II 29
139
OC56 39 FO 1129
140
OC5A 30 00 1129
14.1
OCSE F2 81 79
142
c
OC61 30 01 1129 OC6S CO 01 OCH OC69 OC 15 1825 18AI
1··4·3
145
c
OC6F CO 87 021A
OCT3 01
146 14?
OC?3 148
CC74 IT
f-
OC?S 11'F8
~,...,....
OC?T CO 87 021A
OCTB 06
OC'?4 OC?6
OCTB
149 150 U51 152
SNS WORKeJC·oo· SBF WORk.x·Fo· CLI WORK.O .IE SETFI Cl.I WORK el 8NE ASKFR MYC OVLMSG-2(22)eM8MG4
B
PRINT
DC XLI ·ot·
DC
11.1·231·
DC AL2UMSG4+221
B
PRINT
oc aa ·oe·
READ SWITCHES RESET HI 81TS OF LO CHAR WAS SWITCH SET TO ZERO? IF SOe SET Ft
WAS SWITCH SET TO I
IF NOTe REPEAT MESSAGE
FIX UP MESSAGE FOR MODEL 8,10
PRINT INSTRUCTIONS
I
1I'··.
· I
0018 us
OOIC tSAl
ODIE CO 87 0222 0022 89FF
002· 30 00 ll29 0028 38 t:O ll29 002C 30 01 1129 0030 F2 81 Al 0033 30 00 1129
003? co 01 0006
00319 CO 87 02tA
0018 ODID
Ot>23
207 208 209 210 211 212
213 214 215 216 21'? 218 219 220
DC
1Ll 1 221
DC
AUCM8MG41
e
K"LT
DC
A.2'89PF·
SNS wORK.x·oo·
SSF WOAKeX·FO·
CLI WORICel
~e
DEFLT
CLt WM.o
BNE ASK
e
PlltNT
OC?C 28
OC?D 182"!5
c
OC?F CO 8? 0222 OC83 89FO
ocas :!C 98 OCF· OC89 P2 8'7 52
ocac C2 01 t ?5A
OCM 3A 80 l OC6 OCM CO 8? ~CB OC98 CO 8? 1008 _C>C;9C CO 8T OF50 OCAO CO 04 OC&C
OCA6 35 01 OF"8 OCA8 ID 01 lTTS CH> OCAO ff2 81 OC OCBO l& 01 ITI'll 00 OCH ff 81 22 oclt8 co aT ocec
OCTC OC?E
OCM
153
DC
154-
oc
155
B
156
DC
15'7
158
MYI
159 160
"
161 CARDIN LA
162
SBN
163
a
'1"65
B B
166
8NP
l6T
L
168
CLC
169
.JE
l'PO
CLC
l?I
172
1?3 ·
·.1£
ILl·40· AL2CO,,._MSG-21 t4ALT XL2·89FO·
sex. x· e&· SETFIL
HALT TO ALLO· DIS CHANGE HALT *******FO·. . .···
SET TO SET BIT llFF GO SET UP T AILI!
JCMSGleXAI
EPASEeX·eo·
PT5471
RI
INPUT A
SCAN IN
CARDIN
SYMP11hJHU
RleOC eXRl)
SETRI
frleOCeXRl1
SETFI
CARDIN
DR Fl1
ERASE THE 32XX CRT
1:
l·
I·
1I e
I
I ·
Il ··
OD:!F 01
0040 43
0041 1949
004-3 co 87 021A
004? 01
0068 31
00·9 19A!S
co 0~8
87 021A
OD4F 06
ODSO 28
0051 19?4
0053 OC 05 l?S2 1'759 0059 3C Fl 0066 0050 C2 02 1?40
0061 co 87 0222
0065 89FI
0067 30 00 1129
0068 ec oo oo 1129
003F 0040 0042 004? 0048 004A
00~
0050 0052
0066
221 222 22"1 22· 229
226
227
228 229 230
231 232
233 234 235 236 23? .SwtfLT 238 EM4LT 239
260 241
ococ
DC B
oc
DC DC
B
oc
DC DC
MYC MVI L4
o" c
SNS
MYC
XLl·Ot· 1Ll1 6?1 AL2CMIMG61 PRINT Xl.1 1 01 1 ILl·69· AL.a C·a.S? Al PRINT
at·oa·
1Lt·43· M.2CM8"G?t
MLTAFC6hBLANK ENHLTeJC 1 Ft·
MLTAF-StXA2
HALT XL2·89flll 1
waaK.x·oo· oc1.n21.vDA«
DATE
· ·~.::...,.
,..,...~.
R-6.IUN?S
easoaa
PtlOG ID PAGE
I FCS-0
I eec 2
DATE
. . . . . . . .. , .
NO. 9290~~
· ·
·c ·
·
·
·
·
·
·
·
·
·
·
·
·
1I :
\.
·1.11
··
·
·
·
·
·
·
....... PART NO·
PA$E
··
SET BIT CPF 3340, IF SOe StCIP MESSAGE
EAASE THE 320 CRT SYSTetit PACK as Rt
SET an ON
eGC·:
SBN OR S8F
IS 3211CX INS'UU..EID't .1U11P IF SO
ASK AlllDUT FILE llAlllll!
PRINT llERT HILT
·AIT FUR SWITOtES TO BE SET HALT . . . .~. . . . .
READ OUT OA'TA S11iTOES RESET HI llSTS
TEST Lii SW · I .IUMP IF SO· TAU DEFAULT NAiii! TEST UI SW · 0 GO REPEAT GUESTUlllS GO PRlllT INSTAUCTIGNS
llLAIM GUT Fn.E MME INITIALIZE IULT "IO Fl CET HI ADOR OP At..E tMME tlM..T TD M..La. DATA l!tnRY MALTS . . . ._.l-1"611111 . .
lllRCM ID ttMIE
··
·
·
·
··
· r t·
··
·
·
·
· · · · · · · · · · ···~-~~~---~1-·t~~--.~~tt· ~--~~--~~~~~~.~~-·
IBM llAtN'TENANCE DIAGNOSTIC PROGRAM
FCBO MOVE FC7 MICRO-CODE FROM DIAG PACK TD SVS PACK
EMt l.OC 08.JECT CODE
ADOR STMT SOURCE STATEMENT
ICOD 11!5
ODTO 3D 60 1129 t'D74 F2 81 11
007"7 OE 00 0066 lll'O 0070 E2 02 01
0080 30 F7 0066
0084 co O! 0061
242 243 244 245 246 247
CLI .JE ALC LA
CL! BNE
WCR1e.xe400
NAME £NHLT( 1 t oDNE
1 C.XR2> wXR2
!:NHLT · x· F?·
S·Ooll.T
0088 OC 05 19C3 1?52 008E CO 87 021A
,."f' 249
249 NAME
MVC
MeMG8A(61 ·ML
250
8
PRINT
0092 01
0092 251
oc XLt ·op
0093 35
0094 190A
0096 co 87 021A
0093 252 0095 253
254
DC
tL1 1 t!S3·
DC
Al..2(N8MG81
9
PRINT
c
009A 06 0098 16
009C 18AI
OD9A 0098 0090
255 256 257
DC
XL1'06·
DC
IL1 1 22·
DC
At..2( N8MG4 t
PART NO· PAGE
I
42342651 CttBM MAINTENANCE DIAGNOSTIC PftOGRAM
3 I
lI .FC80 MOYE FCT Mle.Ac:J-CODE FROM OIAG PACK TO S'IS PACK
ERR l..OC OB.lt!CT CODE
ADDR STMT SOURCE S~ATEMENT
MOO 11
WAS C"~R A .fLANK DONE IF SO INCREMENT t1ALT INCREMENT TO NEXT CHAR fl.T ENO? IF NOT· GD HALT FOR NEXT CHAR
MOYE NAME TC MESSAGE
PRINT MESSAGE
I ·
I
I
·
1
'1 ·
I
I
9
'i
I ·
I
0
OES3 OEA2
OES4 310
DC
OESS 89P9
OES? co 8., 0222
OE!56 311 312
DC
a
OESS 89F9
OESO co 8? 0216
OE6l co 87 021A
OESC 313
DC
" 314
315 NOSP a
OEES C7
OE65 316
DC
OEe6 36 oHT CE08
OE66 3tT
DC
OE68 3ie
DC
OE69 89F7
OE6B CC 8T 0222
OE6A 319 32C
DC 8
OE6F 89FT
OE71 co 87 02!6
OETO 32! 322
DC
a
OE75 C30&E403C440DSC6 Ct:A2 OE7D E3.0C6C005C4~0D·
323 NCFIL 323
DC
AL21NOPIL)
Kl.2'89F9·
LIMC PRINT
XLt·C?· IL1'54·
Al.2CNOSPC)
ERROR * F9 . . . . . . . . . . . . . . . . . . . . . . . . .. .
JU.2·89F?·
ERROR · F7 *******········******···..o
L!NIC
CL46·COA,.D ~OT FIND MICRO-COO£ OBJECT FILE ON DISK·
c
0
c
(_'
OD9E CO eT 0222 OOA2 99FO ODA6 F2 87 62
ODA? C2 Ot l 77E
OOAB 3A eo 10C6
COAF 3A 80 !CCC
0093 co 87 OFCB
COB? C2 01 1"783 0088 CO 87 OFCB Of>BF 38 90 t CCC ODC3 OF 01 lCCE IOCE ODC9 CO 87 1008 0t>e1) CO 87 OF50 0001 F2 M OF 0-004 OC 05 1 '?52 ODE2 OCt>A F2 87 2C 00])0 5BSE~C309C9
00£3 3l) 0$ CIF49
OOE? co 84 OCff'
OD£e cc 05 17!52 Ot>f'l oc 00 OE07 OOF'? oc 00 oeoe
OOFO C2 02 1740 OEOt 35 01 OF48
OEOS 9C 03 oc 00
0£09 DC 01 11?5 174C OECF CO 87 l14E OE!3 IC Ol 117~ 26 0£18 CO 87 ll·E
ODA!
OOE2 OE06 OEO?
258
259
e
260
DC
26t
· 262
.s
HALT TO ALLOW CHECK OF tilANE
HAl.T ******FO·*-*..*
0
GO OPEN FILI! NOW
263 M15
LA
XNSG2,XR1
266 265 266
S8N ERASEeX"809
S6N SUFLG. x·eo·
e
PT547t
ERASE THE 32XX CRT SET BUFFER PL.AG
iI o
267
268
269 270 271 272 273 274 OEFLT 275
276 DFTN
* 277
278 NDOFT 279 280
281 282 283
L#
e
SeF
SLC
e e
.IP
.. vc
J
DC
CLI BH NVC llVC
MVC
LA
XNSG3.XRl PTS·?l
SUFLG.x·so·
SUFFIJ ( 2) ·BUFF 9
INPUT A SCAN I N Not>FT
MLTAFC6hDFTN OPEN CL6'·StSCRI"
LENCTHoS SETON Ml.TAF,.81.ANK MVCFC l) tLENGTH MVCLCI I.LENGTH MLTAF-SeXR2
RESET B~ER FLAG RESET BUFFER ADDRESS TO Z£RQ
I
I·
,'·.I·I·
I
I
I
le
I
I
284
L
SYNPTR·XRI
1. 2es
286 287
288 289
290
MVCL
.M.V.C.F .
.
.
MVC EQU
.EQ.U..
.
.·$·.--·.32·.t..X..R.2.1.1.0.(.e.X..R.t.)
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
*.*.......................O.P.E.N......F.IL..E...................................*.*.
I
I
ie
291 OPEN MVC OSKSECC2t.csoooe
!
292 293 ~ RDNXT
8
MVC 8
~EAD
DSKSECf2t.38CoXRJJ READ
READ CVL,S£C 0008 YO"- L"BEL !>6 CYLl'SEC XXYV YYOC INDEX
0£85 C9C3D9D660C306C4
oeeo CS40D6C201CSC3£3
OE9S 40C6C903CS40D6D5
OE90 40C4C9E2!>240
OEB2 OE:A3 E3C8C509C540Cl09 OED!\ OE.t.B C54005D6E340ETE7 OEB3 40E2C~3~30ED9E2 OEBB 40ClD3D3'06C3ClE3
OEC3 C5C440E3D64004C9 OECB C3090660C3DeC4C5 0£03 4040 .
OED5 C6C903CS
OE08
323
323 323 323 :S24 325 325 3215 325 325 325 325 326 NDS?C
EOU DC
oc
·+15 CLSO·THERE ARE NOT XX SECTORS ALLOCATED TO MtCRo-cooe ~
t'EIC 3C OC 1?53
295
MVI CNTol2
0E2f) 7D .. 00
0£23 F2 Bl 27 CE26 60 O~ Cl6 1'152 0£29 f"2 Bl All
296 OPENI
29?
298
299
CLI .IE
CLC .IE
OCoXRlt.x·'FF· NOTOPN 6(6eX·tleMLTAF F'ILFNO
CHECll FOR END OF DlRECTOflY FIND 32XX MICAO-CQDE FIL~
OE2E 02 Ol IS
0£31 OF 00 17S3 1170
C>E3? CO 01 OE20 Ge~ 0£ 01 ll '1'9 II 7'A OE41 38 60 ti 'PS
0£415 c~ ao 0£38 C£49 ce n OE1e
f>.£60 CC) 87 NIA
0£51 C'1'
oea 21!
01!91 0£'52
300
LA
301
SLC
302
BNZ
303 IU.C 304
Al.C
TBN
305
t!IT
306
8
30? NOTCPN 9
308
DC
309
OC
21CwXR11eXRl CNT·OHI! OP£N1 ROOFC+2C2Je0N£SEC ADDFC+2eK'60· XLC
RDNXT
PRINT
XLl·CT·
11.1 146·
·
I·
1.
"°G 10 PAGE
3 .EC Fce-oi DATE
j
ND.
I
PRO& 10
PAGE
PCe-o
3A
6
e
J·
.. · - !J·. -·---~· -··------~-41111---
· ·
IBM MAINTEN-NCE DIAGNOSTIC PROGRAM
J., -'""""""'-"'""°"-~·- .:. -;,;;ac):.,,..-.,....,;;,.,..,t....... .;.o. .,~-. :"' ' ··- ·~'.·...,;. ;.~.~.;,.,·.-C.~·~.:,o "'~~4.·o··'-···-"' "« .>.,,.,_··· <-~ · ·
iG
I
PART NOe PAG£
Fceo MOYE FC7 MICRC-COOE FROM Dl·G P-CK TO SVS PACK MOO IS
ERR LDC DB~ECT CODE
OE09 IC 01 1175 oe
OEOE 70 00 14 OEt:t CO S2 OE61
OEES 3C 00 1753 OEl!9 35 01 2001 OEEO 34 01 OEF6 OEF1 OC FF 174A 0000
OEF7 CO BT t12C OEFB OF Ol OEF6 1128 6F01 OF 00 1753 1170 OF07 CO 01 OEFt OFCB CO 87 021A OFOF 07 OF10 2A OFl 1 OF40 OF13 CO 87 021E OFl? D4C9C3D9t>660C3D6 CFlF C4C540C8CIE240C2 OF27 C5C5D540C30607C9 OF2F C5C440E3D640E2E8 CF37 E2E3C50440DTCtC3 OF3F 0240
c
c
PART NOe PAGE
MOVE FC7 MICRO-CODE FROM D1AG PACK TO SVS PACK
ADDA STMT SOURCE STATEMENT
OF54 '74 08 78 CFS? 75 02 04 OFSA ?C FF 07 OFSO 40 01 04 OA?F OF62 F2 84 60 OF6!5 8D 40 00 OF68 F2 01 07 OF68 SE 01 04 OD OF6F 00 87 15
OF72 40 01 ()4 OA1F OF?? F2 84 1C OF?A BL\ 40 00 OF7D F2 St 16 OFBO BO 68 00 OF83 F2 81 10 OF86 SE 00 07 OD OFSA 74 02 06 OF8D E2 02 01 OF90 '?4 C2 04 OF93 DO 87 30
OF96 75 02 04 OF99 40 01 04 OA1F OF9E F2 84 10 OFA1 BO 40 00 OFA4 F2 81 17
OF A7 60 68 00 OF··A. f"2 01 04
OFAO se 01 04 OD OFB1 ?D FF 07 OFS4 F2 81 03 OFB7 75 04 OS
OFBA CO 8? 0000
OFBE SE 01 04 OD OFC2 DO 8? 54
CFCS 75 04 09 OFC8 DO 87 78
OFC8 34 oe OF06
OFCF CO 87 OF07 OFD3 CO 87 0000
OF42
OF96 OFBO OFD6
388
USING INPUT8eXAI
389
ST
SCANEXl.JCRll·AAR
390 SCAl\11 L
NXTSTRl.XRll·XR2
391
MVI LENGTHc · .-1>.x·FF·
392
CLC
NXTST~C.XRl>·END(2)
393
.IH
EOI
394
CLI OCeXR2)eC· ·
395
JNE SCAN2
396 397
ALC NJfTSTRCeXRl)eXNEC.XRt1
e
SCANU eXRl,
398
..... 399 SCAN2 CLC
400
NXTSTRCoXRl)eEHD(2) SCAN!
401
CLI OC eXR21 eC· '
402
.IE
SCAN!
403
CLI oc.xR21.c·.·
404
.IE
SCAN3
405
ALC LENGTHCeXRl)eXNEt.XRl1
406
ST
SVMPTRCeXRl)eXR2
407
LA
IC.XR2leXR2
408
ST
NXTSTA(,X·t>1XR2
409
B
SCAN2C·XRll
· 410
411 SCAN3 EQU
412
413 SCAN4 L
NXTSTR(eXRl),XR2
414
CLC NXTSTRCeXRl)eENDC2t
415
.JH
SCANS!
416
a..t OleXR21 eC· '
417
.JE
SCAN6
416
CL.I 0 CoXR2)eC· 1 ·
419
.JNE SCAN51
420
ALC NXTSTR(eXR1JeXNECeXRll
421 !:CAN51 CL! LENGTH(eKRlleX·FF·
422
.,..
423
L
424 SCANS 9
425 SCANEX EQU
·-·SCANS
POS C· XCU I ePSR *-1
426
427 SCAN6 ALC
NXTSTRCeXRllo~NECeXlll)
428
8
SCAN4C eXRl J
429
430 EOl
L
NEGCwXRl)eftSR
431
B
SCAN5CeXRl1
432
432
432
433 PT547l ST
PTXlhARR
434
B
435 ?TEXT e
436 PTMI EQU
._. OISPLV
·-t
SKIP LEADING 8LANKCS1 FIND L·..,T CHAR OF SYMBOL TERMINATE ON BLANK OR o
SKIP TO NEXT CHAR AFTER o GR EOI ANO SET NXTSTR
Cf"4l 0Al3 OF4'J OAlC Cf'45 0Al3
OF4l' oooc
OF49 00
()f'4A ooc~
OF4C 0004 OF4£ 0001
-...
0F46 OF48 OF49 ()F4B
OF4D
OF4F 0004
tNPUTa.1nu
PROG ID PAGE
· FC8-0
· ·
· · ··"'· · · · · · · · · · · · · ·
26.IUN?S. 829023
PROG 10
PACiE
trca-o
4A
· · · · · · ·· · · · · · · ··
· · · · · · · · · · · · · · · ·
·
·
·
·
·
·-
.··----
.
-
·
·
·
·
·
·
18~ MAINTENANCE DIAGNOSTIC PROGRAN
Fceo
MOYE FC7 Ml~o-cooe FROM OIAG P·CK TO SYS PACK NOD 15
ERR LOC 08JECT CODE
PAi:tT NO. PAGE
4234265! c:~i@M ~AINTENANCF. DIAGNOSTIC PaOGRAM 5 I
i CFC80
MOVE FC7 Mt~O-COOE FROM DIAG PACK TO SVS PACK
MOD 115
ADOR STMT SCUACE STATEMENT
ERR LOC OBJECT CODE
AODR STMT SOURCE STATEMENT
438 439
***D*·I*SP*L*Y**********3*2X*X****D*IS*P*L*A*Y***R*O*U*T*IN*E**T*O**D**IS*P*L*A*Y***M*E*S*SA**G*E*S****************!i
t'!t
440 *********** * 441
ON THE 32XX CRT
·: ()
*
442 443
* ·
· ON EHTRANCE:lKPl PdINTS TD MESSAGE
**i' ()
* 444
445
*
ON EXIT:tXRl WIU. POINT TO A 0 OR 1 tN THE MESSAGE
·* ·
446 ·
· ·
1072 31 15 lODl 1076 35 CO JOOS
107A F3 JO 91
1070 CO 87 1092
1081 1085
~328
80 90
lOCC 06
1088 OE OJ 10CE iOC9 108E CO 87 OFD3
505
506 507 508 509 510 511 514!
LIO
L.
SIC
B TBN JF
ALC
B
POSCSRex·t~·
INTllelARi
x·91· .. x·10·
INTAKN
BUFLG.x·eo·
·+9
BUFFSl21.COUHT PTEXT
LOAD CURSOR POSITICIM P£GIST£R POINT TO JffTERRUPT ROUTINE WRITE TO THE 32XX CllT
LOOP UNTIL AN INTERltUPT TEST FOA INCREllENTllllG BUFFO AOOSI
.IU114P IF NO
POINT TO LINE 3 ON THI! 32D SCRE£N
OFD7 38 FF 0879
6Fc-e ~a 10 oe
OFOE CO 87 0222
OFE2 89E7 OFE4 '!IC FF 0879
OFES Ct lB OFEF ~FEC F2 87 OC
OFE3
444487 ································*********······················*·······
448
449 DISPLY TBN
450
JT
451
452
8
453
DC
454
NYI
4!55
456 457
T!O .J
HM..T
CRTFLG.x·FF·
TEST FOR MICROCODE LOADED
MICRO CODE NOT LOADED ERROR
HALT - E7 *****************·*****
HALT ONLY ONCE TEST FOR 32XX ATTACHMENT NOT READY
· · ·
1092 34 08 !OAC
OFEF F3 18 ao
O~F2 F3 te EO
OFFS 00 63 OFFS CFFS
458 459 460 461
MAKRDY
SIO SlO CLC
x·ec·.s101
>C"EO· sSIOI ·UOOJ..·
OtSABLE THE MICRO CONYROLLER
ENASLE
1096 38 80 1006
l 09A CO 90 1096
HI 9E 3B eo l 006 tOA2 39 oe 1007
CFFB 38 80 10C6 OFFF F2 90 42
(
1002 35 CO !ODA
1006 F!l I& Ol
1 C09 35 CO 100!5 1000 ~ 10 C! HHO CO 8? !092 1014 39 80 10C6
1 0 ! 8 F2 0'? 29 1018 !C 06 IOC7 10 IF 31 10 1 OCE 1023 31 IB 1003 1027 31 12 t OC9 1028 35 CD IOl>!S 10.2F F3 10 91
1032 co 87 J 092
1036 OF 00 lOC'P U'70 103C CO DI 1023
lo·o :sc aT 1019 r·
"-"
10·· x ·c 08FF
1048 OC f!2 OBFl! 08~
1 OolE C2 02 0880
1052 CJC -eo co oo
1056 D2 01 01
1os9 TO ea oc 105C F2 91 07 lOSF E2 02 01· 1062 co 87 1052
1066 311 18 1OD:S 106A 31 10 10C£ J06E 31 12 IOC9
C,·'
462
lt!A6 F2 i,;10 04
46:!i ·~4 465
466 467 468
flOY
TSN .JF
L SIC
t:RASE.x·so·
PT32JCX
RESETll.IA~l
x·oi· .. s101
TEST FOR ERASE FLAG DON·T ERASE THE 32XX CRT
RESET ANY PR10R PENO!N~ CONDITIONS cNABLE INTERRUPTS
· ·
10A'9 CO 87 0000
469
L
INT8.!AR1
470
StO x·c1·.x·1<>-
471
s
INTAtol
472
SBF Et;Ase.x·eoe
473
POtNl' TO THE tf'ITE~RUPT SUf!ROUTtNE
ERASE THE a2xx CRT LOOP UNTIL AN INTERRUPT RESET THE BilASE FLAG
474 ·
· 4?5 ·
476 .. 41'7 ·
·rwe FOLLOWING CODING
WILL WRITE 480 SLANKS
TO THE 32XX BUFF~R TO GET RID OF ANY
ATTRIBUTE CHARACATERS LEFT FRON OTHER PROGRAMS
· 478
479 PASOYR .JC
480
MVI
I ·· 481
LIO
482 NXTLNE LIO
483
LIO
I 484
L
485
SIO
I 486
e
48?
SLC
488
BfllZ
469
NVI
490
PT:S2xx.x·o?·
P."..KCNTeX· 06·
BuFFa.x·to· DATAa .. x·te· CCUNT.x·12· INT·olARI x·91·.x·10· IHTAKN
BUCCNTeONE
NXTLNE P"SOVR+1.x·a7·
BYPASS TME FCL.LCWING AFTER tST PASS
SET COUNTER TO 6
·
LOAD BUFFER AOOR£SS REGISTER
LOAD MAIN STORAGE DATA ADOR AEG!ST~l
LOAD COUNl' REGISTER
POJ ...7 TC INTE.RffUPT SUBROUTINE
·
W1'1I TE T'«J LINES OF BLANKS
LOOP IJNTlL AN INTERRUPT
SUBTRACT ONE FRON eLANK COUNTER
·
GO Wf<!'ITE TWO MORE LINES OF BLANKS
INDICATE lST PASS THROUGH
* 491
ENO OF tfRJTI! 480 BLANKS
·92
· 493 PT32XX MY!
49"
MVC
49!5
· 496 PT32
497
'-" MVC
LA
498
· ·99
500 501
Cl.I .tE LA B
x·oaF~·.c· ·
BLANK INPUT INF"ER
X1 08FE 1 ( 131 ,. x· 08FF· BLANK INPUT BUFFea
DCPBUFeXR2 OfeXR2)e0CeXAll
POINT TO tST POSITION OF DCP BUFFl!A tmVE CHARACTEtt TO BUFFER
l(.XRlteXAl
0(,.XRIJ.O 1..CADMS
POINT TO NEXT CHlaACTER
ENO OF MESSAGE Y .JUMP IF Y£5
lleXR2hXR2 PT32
POINT TO NEXT POS!T!trJ IN OCP 8U,.,.ER
· 502 LOAOfllS L 10
!Se3
LIO
904
Ll\l
DAT·ae.x·1a· 8UFFa,.x·10· CCUNTeX·t2·
LOAD MAIN STORAGE ADDA ~EGISTeR
LOAD MESSAGE ADOQ ·EGJSTI!!'A LOAO AEGIST£A
lOAD CO 87 0222
1081 89E8
1003 co e,, ocec
·· PROG 10
,lI ·. PAGE
Fca-o'
5 1 I
I
DATE .EC NOe
26.IUN'PS 82!!C23
513
513
513
551145 S i6
*** *******···T·T·AH·KI·SE·N·S·.U··B·R·O··IUT*TI·NC·EH·E·CC·HK·SE··C·KF·eS·.·-·F·OT·HR·E·A··N3·2·XI·NX.T.E·BR·ER.llU.ll.CP.T.
.
.
.
.
.
.
.
.
.
.
.
.
..o
IP
517 ·
NOT READY OR A 3~:ni: UNIT ERROR. ON EzaT.
·
518 52109
·$$$$C.@····! T··R·E·S·E·T*S ·T*HE···I·N·T·E··R·R··U·P·T···A·N··D··E··R·A··S·E··F-L·.·A-S-··.-............0
520
521 522 523
524
525
526 527 528
528
JNTAKN ST H~·n::t<tR TSN
BF SBF
TBF
.JF ENDllNT B
ENDINT+::JoAR~
INTFLG$x·eo·
INTE't:iR
INTFLG.x·eo· STATUs-1.x·os·
·-·ERROR
SAYE FIETURN INTERRUPT TAKEN 'I'
LOOP UNTIL AN IHT£111!1StUP'f RESET THE INTERRUPT FL.AG
ANY 32XX EPRCIR CR ICrf READY?
! OS2
528
........... ··'"'* 529
530
~~***·$···········32·X·X*··E~*R*O*~**·SU··B~R-O·U*T·IN·E·"···**·*···*-··.._.,.
~ #
531 **~*·~~***~***********············~--~&·*~*~·~$...................$*11<$$*
532 ERRCR El
HALT
ERROR HALT
533
cc
lCL2·S9E8·
HALT -ee-4'·····.....- .............. _ __
534
B
CARDIN
START OYER ACOAIN
PROS JD PA8£
FC&-0 SA
r
· -·
......
1811 MAINTENANCE DUlCNOSTIC PMIGRA·
I~
I
4234265! ();letll MAINTENANCE DIAGNOSTIC PltOGllAM
6 I
....... PART NOe
PASE
6A
~C8!) MOYE F'C7 ·tCRO-COOE FltOM DIA& PACK TC! SYS PACK llOD IS
I o~cao llOYE FCT aicqo-cooe na· DIAG PACIC TQ SYS PACK MOO US
I EAR LOC 09.IECT CODE
·· . 1087 3A 80 1006
· 1088 '30 16 1008
lOBF F3 18 03
....................................................................... 1OC2 CO 8"P 1OBF
ADDA STMT souac£ STATEIENT
ERA LOC OBJECT CODE
536 ........................................................................
* 5'37 ·
* 5'38 ·
32XX tHTBtRUPT SUBROUTINE USEO TO
SET THE INTERRUPT FLAG· SENSE TI4E
539 ·
INTEARuPT CONDITION REGISTER ANO
·
MC ·
RESET ANO DISABLE tN'Tt:RRUPTS
·
Ml ·····******************..*****************..····**...***..............
!542 PENDNG SBN INTFLG.JC·ao·
SET INTERRUPT FLAG
M3
SNS
M4 RESET SIO
STATUs.x·t6·
x·os· .s101
SENSE TH£ INTE~T CONOITION REG RESET AND ENABLE INTERR\JPTS
l ·
545
8
R£S£T
=~
LOOP UNTIL NO INTERRUPT PENDINGS
1
1 ..
1 uc 34 oe 1140
1130 C2 02 1159 1134 EO 87 3C
tt37 oe
1138 8C 00 ID
ll'!B EO 87 3C
AODR STMT 50\mCt! STA~EMl!NT
600 .....................................................................
601 602
.*.*.........D..IS.K..~..t.T.E..1..,0..S.E.T.-.U.P..S.E.C.T.I.O.N.............................·.·.
603
603
1159 604
USING B·SEl·XR2
605 WRITE ST WRTUeAMt
606
LA
8AS£1·XR2
60?
S
STATIO(.KR21
SEEK TO SECTOR
1137 608 Zl
OC
XLI·&·
609
NVI RDDFC+:sc.1m21.o
610
B
STRTIOCeXR21
IOC6 00 10C7 00 10C8 0050 lOCA 0009
IOCC 00 lOCD 0000
IOC6 IOC7 IOC9 10CB IOCC IOCE
! 548 *
32XJC EQUATES ANO CONSTANTS
·' W
5·9 .......................................................................
550 ERASE DC
XLPOO·
ERASE Ft..AG
! ·
551 eLKCNT oc 552 COUNT DC 553 CQUNT9 DC
XLt ·oo· 1u·eo·
tL2·09·
B\.ANK LINE COUNTEa
COUNT REGISTER L.EttGTH a 80 COUNT REGISTER U!ffGTH · 09
IIi ·
554 BUFLG DC sss BUFFI oc
JCLI ·oo·
1L2·00·
8UF~ FLAG
BUf"FER ADDRESS REGIST&a
I
113E OA S S'3F AE 01 IC 21
tt43 B8 60 IC
1146 CO tO l13F l l4A CO 87 0000
ll3E 1140
611 Z15 612 ALC 613 614 615 616 WRTQ
61?
61?
OC ALC
TBN BT
Es CU
XLt·A·
RD~C+2C2.KR2).0NESECC.XR2) RDDFC+2c.~21.K·60·
ALC
INCREMENT TO NEXT SECTOR
·· -- I·
lOCF C00190
1001 556 POSCS~ DC
tL3·400·
CURSOR POSITION REGISTER
·
61T
iOD2 0880 10D4 1087 1006 00
100? 0000
1003 1005 1006 1008
557 DATAa DC 558 INT8 DC 559 INTnG DC
560 STATUS DC
AL2(0CP8UF)
AU!(PENONGI
XLI ·oo.
XL28 00·
MAIN STORE.REGISTet
ADDRESS OF 32XX INTt!WRUPT ROUTINE
INTERRUPT FLAG
·
32XX INTERRUPT CONOITION REGISTER
,.
617
618 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..
619 620
.·.·.........D..IS.K..R.E.A.D...1..,0..S.E.T.-.U.P..S.E.C.T.I.O.N.............................*.*.
1009 lOBF
lODA 0880 0018 0879 0018
tODB
561 At::SET8 DC 562 OCPSUF EQU
AL.2CRESETI
x·oeao·
ADDRESS OF 32XX RESET ROUTINE
OCP BUFFER ADDRESS
1, ·
563 554
CSRI OTFI ~G
EQU EQU
565 NRDV eou
xx··1oaa7· ~· x·1e·
StO IMMEDIATE
3IN2DxxICA~TTETAMCHICMREONCTODNOETLO~AeDaoEDv
Ii ..
566
1
I 567 INPUTA EQU ·
***"'*****·············i!<>'l'*******' · 568 ...............................e:............
569 · IN13UT5·
SUBROUTINE TD INPUT FROM 32X)( INTO A -t.NG- BYTE ERJFFER
;; I
570 ********* EACH INPUT CHAR IS DISPLAYED ON THE 32XX CRT
*I
U4E C2 02 l16A 1152 C2 02 1159
114E
OOA2
OOAE 0040
621
62t
621
621
622 READ eou
623 BUSY EQU
624 CTLPEG EQU
625 NTRDY EQU
626
LA
627
LA
·
X·A2· JC·AE·
x·AO·
SXR2eXR2 SASE1 .xR2
1ooe ~ oe 1127
1 ODF SC 40 08Ff< 10£3 OC 82 08FE 08FF IOE9 31 12 lOCB lOED 31 18 OF42 lOFl :n 10 1001 tOFS 35 CO t 005 IOF9 F3 18 01 tOFC F3 10 00 IOFF CO 8? 1092
571 572
········································*······...·····**······*'~$······1I
f.t
572
573 INPUTS ST
s7·
MVI
ex·NO0S5F+F'·5.oc~~ ·
SAVE RETURN ADDRESS BLat« INPUT SUFFER
II · .
575 5?6
MVC x·OBFE·(t31l·X'08FF· BLANK INPUT ~
LIC COUNT90X· 12·
LOU> COUNT REGIST&R
I ·
5'1"7
LIO
576
LIO
579 T!lYAGN L
tNPUTa.x·1e· POSCSAox·10·
tNTe.tARI
\..OAO MAIN STORAGE REGISTER
I LOAD MESSAGE ~ea ADDRESS REGISTER
POINT TO THE INTERRUPT ROUTINE
I ·
580 58t
5e2
SIO
sto
e
x·o1·.s101 x·oo·.x·10·
tNTAICN
ENABl..E INTERRUPTS
UNLOCK Tl£ KEYBOARD
LOOP UNTa INTERRUPT
II e
use e· ca t5
1159 EO aT :sc
USC 08 1150 BC 60 ID
1160 eo a7 3c 1163 09 1164 es 01 20
116? C2 02 0000
1168 co 8? 0000
t159 1159 tt5C
1163
lt6A lteE
628
629 630 BASEt 631
632 Z2 633 634 E35 Z3 636 63T 638 SJCR2
639 640 tARA
USING BllSEl ·XR2
· ST SARRC.KRJ!l.ARR
EQU
e
STRTIO(·ICRU
DC XLt·e·
MVI
~DOFC+3C.XR21·0
B
STmIOC .XR2J
DC
XL1·9·
L
OFOR( · XR2) · XR t
........·-t LA
.....KA2
EQU
8
i!QU
READ CDMMl\NO
I t O:S :SS CO l ODS t l O? CO BT l 092
583
584
L
U1Te.1 ARI
8
tNTMN
POINT TO TIE lMTERtWPT ROUTUE LOOP UNTIL IN1'1!MWT
i
It09 :JD 30 I 008
!585
CLI STATUSeX·3t>·
l!tn'ER KEY 'I
1. ·
tlOF CO 01 IOFS
586
BtE TRYMiN
TR'f' AGAIN IF HOT ENTElt Ke't
J
1113 3S co 1005
11 l'r tr:S 10 51 It IA CO 87 1092 lilt! OC 01 OP46 C!F42
' ' " co ..., 000~
5~8s7a
L s10
tNTaotARl x·st·.x·10·
sev
a
tNT·N
: !590 E1'05
llVC 8
MXTS1'11C21·1..-u1'8 ._.
POINT TO READ THE
TME 32XX
IN~ TERRUPT
ROUTINt::
1..D11P ~IL ttnEARUPT
_,,..
.
I 1
I
41t
l ·
593 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .,
:S:M: .· .......C.O.N.S.T.A.ll.T........................................................·.!1 ·
112e eoeo
t12A FFOO
ll29 99? wacte oc
tl28 598 1152!!6 OC
JCLa·o·
l\.2·-2116·
PROG ID PAGE
· · · · · · · · · · · ·
· ·
I
··.cFCS-0, OATE
6 I
NO·
26.IUN79 925021
PROC ID PAGE
PCe-o·
6A·
····
·
·
·
·
·
·
·
·
·
·
·
·
·
f
·
·
·
·
·
·
· · · · · · · · · · ·· .I..-\'
·
· · · ·
· · · · · · · ·
IG
IBM MAINTENANCE DIAGNOSTIC SIROGtlA· FC80 MOVE FC7 MICRO-CODE FAOM DI ·G PAOt TO SYS PACIC MOD 15
PART NO. PAGE
·2342~5I ()IBM MAINTENANCE DIAGNOSTIC PftO&aAM
ltART NDe ltAGt!
ERR LOC OR.IECT COO£
t16F 0001 1171 00"2 1173 00 t t 74 Clo
117~ ce
1176 00
1177 ooco l t 79 0004 117e ooeo 1170 117F
t 1 7F OOOOOOFF 1183 1173 t 185 1648 1187 118'9
1189 co
118A 00 1188 00 118C 00 I 180 U8F ll8F 00 1190 00 ll91 00 1192 00 1193 lUS9
c
c.
DA'ft EC NOe
AODR STMT SOURCE STATEllENT 642 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..
,·~ LDC OBJECT CODE
643 ··
DDCF FIELD
··
l e 664454 *·*·*·*·····B·Y·T·E··1·····*·*·*·*····B·Y·T·E··2··*·*·*·*·*····B·Y..TE··3····~···········B·Y··TE···4····*·**·
664467 648
*·*··*·*··
····
·
·F·L·A·G·
BYTE
·
·
·
··
·
·*·*·**1
****
"C:V·L·t·NO·E·R·
BYTE
·
·
·
·*·*·*·*·
****
·
··T·R·A·C·K···'
SECTOR
*
*
·**·**·**·**·
·
·
·N·U·M··S·E·R··········
OF SECTORS ·
649
'· 665510
······*···············*$*$*$*111$~·········*·*·*·*·····N·U·M·B·E·R·····*·*·*·*····O·R··T·R·A·C·K··S·***·
I 10
1170 1172 1173 1174 117!5 1176 11 "1'8 117A
651
652 ONE
DC
653 TWO
DC
654 ROOFC oc:
655
oc
656
DC
657
DC
656 SENSE DC
659 o..-esec oc
XL2·t· IL2·2·
XL 19 ooc litLl ·oo·
XLt·os·
XLt·oo·
xt..2·0·
Xl.2 11 4 6
FLAG BYTE C:VL!'NDER eYTE TQAC~ & SECTOR NO. BYTE
Nl'.. Slffi OF SECTORS CR TRAOCS BYTE
I
I
l' o *'*
"'"'
BL
*******
oc ··
lo ** **
KE
1 . ** .......... 0
1195 85 02 28
1198 84 OB 9F 1198 85 01 9F l19E 98 03 91 00 11A2 CO 87 12BD
11A6 81 AE 11 11A9 E'1 AO E!S ttAC eo AE 05 llAF 79 OT 00 1182 BS 01 05
117C 117E 1182
1184 1186 1186 1188 11e9 1 t8t:. 1188
uec
ll8E 118F 1190 1191 H92 1194
ueo
1173 1174 1175 1176
660 EXlSAV DC
6U RECAB& DC
662
DC
663 ·
664 NRMC1"C DC
665 DFD~ DC
666 DBUF8 EOU
66? aLTCFC DC
668 ARDOFC DC
669
DC
670
DC
671
DC
6T2 LAST8 DC
673
DC
674 LASTAD DC
6T5
DC
6 76 DSICORV DC
677
DC
678 RECAAO EQU
679 DSKFLG EQU
680 D~ICCVL EOU
681 DSKSEC EQU
682 DSKNUM £QU
XL2·0·
AL2(·+2) ·····#*0********········$00$*
XL4 1 FF· · MUST SE TOGETHER
·
Al.2 CRDoFCl ·····$·····················*-
AL2(09UF)
... 1
ALZ(AROOFC1
XLt·o·
XLl·O·
XLt·o·
XLt·o·
AL2(·+2)
XL1'0'
XL t 1 0 ·
XL1 xt..1
8·o0··
FLAG 8YTE
** 8L *******
CVLINOER BYTE
·· OC **
TRACK & SECTOR NO.
··
KE ··
NUMBER QF SECTORS OR TRACKS ******** D ··
***************************·*
· MUST BE TOGETHER FLAG BYTE
o
CVL BYT£
·*BL ** 0 **
C*K*E**·******
*******·*********** SEC BYTE ******* 0 **
ALZCBASEIJ
·-1-7
RODFC
RCDFC+l
RDDFC·2
ff0DPC+3
· I
l1e0 '·
0
· · · · ·
118!!5 F2 90 48
1198 Bt AE 1£!
11813 F3 A.9 01 llBE El A2 48 11C1 89 03 !C llC4 F2 10 OC
11C'7 Bt AE oe
11CA F3 A8 00 llCD el A2 5A 1100 BC 00 10
1103 Bl AE 05 1106 TC 00 03 1109 60 00 01 lD 1100 F2 81 20 11ee F2 M oe 11E3 AC 00 87 10
11£7 9F 00 87 01 11EB F2 87 OB
11EE 7£ 01 02 llFl 9C 00 87 01 11F5 AF 00 87 10
11F9 TC 00 03
11FC 9C 00 10 01
120C> Bl AC 13
1203 F3 ~O 00
1206 El A2 93
· · ·
li e
l
1209 "l'B Ol 02 l20C El AO A7
120F C2 01 0000 1213 C2 02 1159
1217 00 87 01
PAOG ID
PAGE
l·
., ·I I ! I
. FC8-0I
26.JUN7!5 82902S
. · ·
,
.........,-,...,....,,.,,.,,.-.t-.'lll .....- ...~..,,,... _ _..........,,_..._~..-.itt ....._·_,"_~
· AODR STMT SOUWCI! STATl!MEWT
1195 1173 11A6
l 1D'.!'l
1tFA 1200 1212 1159
68· . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..
685 *
START llO SUBROUTINE
686 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..
68?
687 688 STRTtD EQU
*
689
L
NAMDFC(eXR2)eXR2
LOAD e-.se VALUE FDR START t n
690
USING RDOFCe2
691 STPARM ST
692 LDPARM L
693
NNN
694
B
SETXAtC.XR2teARR SETXR1(.XR2)eXR1 Slo+l(eXR2le0(eXRlt D!SK33
SAVE ~DDRESS RECALL REGISTl!R
LOAD XRl AS PARAMETER POINTER SET FUNCTION CODE IN SIC
e95 OtSK54 EOU
696 Z14
l. IO
697
TIO
698
SNS
699
TBF
700
L
701 ·
"1'02
.JF
Tt.13
*NRMDFC(.XR2JeCTLREG
NQTROYC.XR2).X 9 A0 1 SENSE(· XR2) eCTLREG
O( .. XRt).x·o"f·
SENSE( eXR2)eXR!
ADREXT
LOAD CONTROL REGo DISK R!::ADY?
SENSE THE CURRENT CTL· TEST FOR SEEK LOAO XR1 AS POINT~~ TO DISK CONTROL FIELD. NO. SKIP S~T ADDRESS~
Pt.Oo
ADOt:e
704 Z4
t..tC LAST&(·XR2JeCTLREG
705 ZS 706
SJO T!O
l ·lC·A9· ·CeXR2)eBUSV
READ ID
?07
708
T8F L.ISTAO-ICeXR2te3
.JT
DK
TEST FOR ALT. OR 0£FECT,. TAK
709 Z6 710 Z7 711 712 713 OK
714 Z8
t..IQ SIO TJD MVI EQU L.JC
RECABac.xR2t.CTLRES
o.x·Ae·
·CeXR2t.BUSY
L .ISTAD( .XR2 J eO
·
SENSEC.XR2)eCTLP.EG
R£CASRIATE RESTORE CTl.~G
715 1'16 Tt7 718 719 720 721 722
MVI CLC
.JH
NYC SLC .J
3(eXR1>.o
SET S££K · TO 0
1C.XRtleLASTAOl1eXR2) COMPARE NEW ADDRESS WITH Ol..D
ADREXT
EQUAL· SEEk NOT NECESSARY
FWOSEK
NEW ADORo HIGH£Re 00 POAWAWD Sf!n
SCRCHl1eXR2)·LASTAO(.XR2) PLACE LAST ADDRo IN WORltAReA
SCRCHCl.XA2)el(eXRl) SUBTRACT N£W ADDRo FROM ~AST
SETADB
PROCEED
723 724
725
726
FWOSEK
SBN MVC
SLC
2(,.XRtl.01
SET BIT CN FOR FORWARD SEEK
SCRCH(1eKa2J.t(oXR1) PLACE NE· ADDRESS IN WORK AR£A
SCRCH(teXR2)eLASTAO(eXR2i SUSTRACT LAST ·DDR. FROti NEU
727 SCRCH EQU
728 SETADB NVJ
729
MVC
730 ADREXT EOU
731
·+I
3feXftl)··-· LAST AOC l · XR2 t e U · XRl )
*
INSERT NO. QF TRACKS SAVE NEW ADORESS
TO CROSS
732 Z9 733 SJO 734 735
LICI 510 TIO
OFDRCeJCR2JeJC·ac·
o.x·ao·
$( ·XA2) e8USY
LOAD OATA REGISTER START t~O OPERATtON WAIT TIU. CONPa..ETE
l'!'l6
SSF 2c .xfu J .01
73?
TURN &:;Ff' FDR. I REVo BIT
7''.!le
TIC DSKERACeXR2J·k"IROY
·-·.x·u 739 SET>t1U EQU
740
LA
·+3
..741
742 743
,,744
L.A
BASEleXR2
USING BASEl12
B
UeXRl t
8R~CH IF ERROR
l.OAO XRt AS PAt:IAMETER POINTa LOAD X·2 AS BAS£
EXIT
745 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..
746 **
DI Stt ERROR SECTION
··
747 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..
748
748
PROG ID
PAGE
·
·-
·
. _
·
iG
l
IB· MINTEHANCE DIAGNOSTIC PROGRAM
I
PART NO. 42342651 A1·-·AINTENANCE DIA8NOSTIC PROGRAM
PAGE .
I II I '""
·OVE FC1' Ml CRO-CODE FRC!ll DI AG PACK TO SYS PACtc llDD IS
l EM LOC 08.IECT COOE
ADOR STNT SCJUACE STATEIENY
C)FC80 MOVE FC? MICRO-CODE "OM DIAG PACK TO STS PA.CIC mD IS
-, ERR LOC 08.IECT CODE
.ADDR ST·T SOUllCE STATEteNT
.,.. · · .............................................................. 12u Bl ae ts
............................*···········...................... 1210 F3 A9 Ot
1220 El A2 AD
· 1223 BO 02 16
1226 F2 81 16 1229 CO 8'7 021A
· 1220 C?
122£ 20 .
I 0 122F 12BC
1231 89FC
..........................!0 1233 c~ 8? 0222
1237 89FC 12'!9 81 AE 11 123C F2 87 03 123F BC 01 16
· 1242 AC 01 09 9F
1246 EO 87 25 1249 ~8
I· 124A BS 02 28 I· * * 1240 AC 01 9F 09
* 12!51 AC 02 19 03
· 1255 EO 8? 28
11?3
121 A
1220 l22E 1230 1232 1238
1249 1159 1173
USING ·OCPc.a
750 DSKERR EQU.
751 ZIO 752 Zit 753 754
LIO SIO
ALTDFCCeXR21eCTLREG
oa.x· A9·
LOAD CTLe RE&· TO POINT TO ALTeFU>e READ ID SIO
TIC ·I eXR21 .eusy
DELAY TILL FINISHED
CLI AROOFC( eXR21 e02
TEST FOR A DEFECTIVE 'l'llACK
755 756
.IE SETAL.T
8
NINT
.JUMP- IF IT IS·
?57
oc n1·cT·
758
DC
11.1 ·32·
759
DC
AL2CDSICERI
760
DC XL2·awc·
761
B
HALT
?62
DC Xl.2·89FC·
ERROR * FC
763 Z12 764
LIO .J
NAMCFCC.XR2teCTLREG SAVPRN
LOAD CONTACIL. RI!&.
765 SET ALT MYI
ARCCFC(eX·2)e0~
SET FLAG_ BIT TO ALTERNATE
?66 SAVP1HI NVC EXTSAYC2.XR2)eSETXRl{eXR2J
SAVE DLD PARAMETER PTRe
767
8
STPARMCeXRH
768 Z13 DC XLI ·oa·
TO t.IO SUSROUTtNE TIJ SeEK At.T· TK·
FUNCTION CODE
769
USING BASEle2
?TC
l..
NAfllCFCC.KR2)eJCR2
LOAD SASE VALUE FOR START I'°
771
USING RDDFCe2.
772
MYC SETJCRU2.JCR2) aEXTSAV( eXR21
RESTORE f>AREMET£R PTRe
?73
MYC AADDF'C+3C3eXA2).ROOFC+3(eXA21 TRANSFER SECTOR NOe
774. 775 776
a
LOPAAtll( eXR2l
CYLa NOe AND NOe OF 52CTORS TO RETRY ORIGINAL. OPERATION
...................................................................... · 7?6
777
* 778 **
PRINT NOT READY MESSAGE
··
...................................................................... 779
· 7U
780
· 1258 CC 87 021A
"PSI
a
·------- 125C C7
l2SC 782
DC
12S 32
12!50 783
DC
·· U~!SE 129C
129F 784
DC
· 1260 89FE
1262 co 8? 0222
1261 785 ?86
DC
e
1266 89FE
1261' 78?
DC
1268 EO 8'7 28
788
e
l e 1268 C4C9£20240D506E3 l29C 789 DSICND oc
1273 4009C5CIC4E86940
789
· 12?8 e4CtD2C54DCEFl40
789
.,.. I. 1283 6140D4JFl4009CSCI
PRUIT
XLl·C?C
ILt·tsO·
AL2tDSICllD1
XL2·89PE·
MALT
XLe·awe·
LOP-.+3CeXR2 I
-
· l'E · · · - - - - · - · ' ·
CL501 DISK NOT READYe MAKE Fl , RI READY AM> RESET HALT·
·- 1288 C4E840C1DSC44C09
799
.,.. 1293 CSE2CSE340C8CID3
1. 1298 E34G
T89
1280 30 33 OA9!5 12CI CO Ot ll'l6 12CS OC 09 15EO 1602 l 2CB 30 CD 1-008
l2CF Ct ca 1499
1203 3C 00 1507
1207 co 87 1332
1208 20 120C 04 l2DD 14 120E 17 l2DF COA9 12£1 COB3 12E3 C8A9 12E5 C883 l2E'P 00 12E8 00000000 t2EC 00
1208
12DC l20D 12DE 12DF 12EO t2E2 l2E4 12E6 12£7 12E8 12ES t2EC
792
793 ····· TITLE · DISK TYPE 3340 1,0 ROUTINE 794
. . . . . . . . . ..
?9t5
795
T95
795
?95
796 OISK33 CLI OStCTVPeX·33·
797
BNE DISIC!54
798
MVC OOCFE(IO)eDOCFB
'799
SNS STATUs.x·co·
800
TIO OKNR.x·ce·
801
·v1 DDCF.x·oo·
802
SOURCE A 3S.O
IF NOT BRANCH TO s.44 ROUTINES INITIAL DDCF FIELD RESET HISTORY UNIT C·..t:Clt BITS
NOT READY"JNIT CHECK ERROR TEST CLEAR FLAG BYTE
802
803 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .- . . . . . . . . . . . . . . . . . . . . . . . .
804 ········ SUB-ROUTINE TO CONVERT
····...-·-·········"-··
805 ........
5444 AOORESS INTO 334C ADDRESS
··········--·········
806 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..
807 ·
·
808 ·
INPUT: OSICDAV - > I oeG8
809
DStcCVL -> I OBC...,_2
· ·
810
OSKSEC -> 108C11M-I
·,
81.l.
812 · 813 ·
·.
OUTPUT: ODCF FIELD CYLINOElteHEAD·AECORO """'8EA FOR 3340 SYSTEM ·
·
814 · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·
815 · TI4E FOLLcnillNG AREA IS SET AStOE FDA "SE AS CONSTANTS IN THE fM64' ··
816
CONVERSION ROUTINE.
··
817 · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·
818
814il
8
820 MEJC2~ 0C
GPCS. JCLt·20·
41GC·'.'
821 FOUR DC
JCL1·0··
822 FotlTeff Di: 823 SVNTEN DC
XLl·t4· XLt·a·ye
824 TA81.ES EQU
825
DC
XL2·COA9·
TABLE ENTRY FOR A fl'I aEQUEST
826
DC
82'7
DC
828
DC
829 HEACWA DC
xt.2·COB3·
xu·caA9·
XL2·C883·
XLt·oo·
TABLE ENTRY FOR A RI R£QU£ST
TABLE ENTllY FOR A FZ REQUEST TABLE ENTRY FllR & R2 REGUl!ST
llORtC AREA
830 STARTN EDU
t
831 ICBCHN DC
BUFFER AREA FOR SUB AGIWltrlE
832 l-OBQ9 DC
BUFFER WORIC AREA
833
834 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..
1290 C4C9E2D240C~0909 128C ?90 OSKER DC
12A5 D6D96840D9C5E2C5
?90
12AO E340C8C1D~E340£3
790
1295 064009CSE3D9E840
T90
l.
1.
lo
l
I
!O
I 2EO CO 8? 02 IA
12F1 87
l2FI
12F2 33
12F2
12F3 1331
··s co 87 0222
12"4
12F9 89FA
12FA
12FB CO 8? 0216
12FF E4DSC1C203C540E3 1331
835
936 ERRMSG B
837
DC
838
DC
839
oc
MO
e
841
DC
842
B
843 ERRQL DC
PRINT XL1·87· IL.1·51·
ALH1!RRlllSLI
PRINT THAT ROUTINE UNABLE TO CONVERT THE 5444 ADDRESS INTO A 3340 ADDRESS LENGT~ Otr MESSAGE
.-·.G.acCce.·,:·GC·:
HALT
·«*
JCL2·89FA·
*SC·
LI*
·GC·:
CLSl·UNA8LE TO CONVERT M·4 ADDRESS INTO A 5340 ADOReSS··
,-
-...,_.
I
iI c~
1307 0640C3D605E9C5D9 130F E34~5F4F4F440CI 1317 C4C4D9C5E2E240C9 l31F DSE306~0Cl40F3F3
843
au
843
843
,.I·
Iie
i
1327 F-.:040CIC4C409CS 132F E2E248
..........843
843
844 844
DATE EC 'IOe
MOG 11>
PAGE
"1I·r·· ~ce-ol OATE
ff.NN?!S 829023.
.- -
PROG ID PASE
..Fcta-0.
· ··
· · · · · · · ·
l·
·· 1 et
· · · · · · · · ·
· · · ·- · ·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
· , .
·
·
·
· -.·.
~-
·
·
·
·
·
·
·
·
·
·
··
· _.,_ ···- · ''-·<-><"'~""····-·~·
C..,-.,_;, ,._ "Y. ·.-.n
<'·-··'·'··-"-""-·-''"'"'···-··--"·-.&···~·-· .,...,.... ,,.. ·O.. ,.-·~-,··--~0...,. -'-·-···-~
· . · .,, ''"'·-'··
·-' - ··
.. ·.. -···· . ·
18'1 ·AltllTENANCE DtAGNOSnc . . . . . . . FC80 91DVE l'C7 ·tato-COOE FROll DIAS Pa<IC TD SYS PACK IDD 19
42M2651 ()·· PAa'T·llCJe
··WlllEMllCE DIMWllSTIC . . _. .
PMiE
I· I
e..ceo
-.-0: 1111WE FCP ·ICllO-CGDE NOlll 01"41
TD SYS PACK -
19
-· ·····
EM LOC OIUECT CODE
1332 C2 01 12£8
1336 oc 01 12EA 11?9
133C t1C 00 O· 1204 1341 !IC 00 03 04
IMS CZ 02 120F 1349 78 10 03 134C F2 90 03
13&!F £2 02 04
1352 ?8 09 03 1355 F2 10 03 1398 E2 C2 O~
1332 12E8
tZDF
8415 PC£ EGU ·
M6
USINI STARTll·JCRl
M7
LA STMITlleXRI
...
M.C 10809l-1121eDSICSEC
··9
11VC 1oaaec1.xa11.s10.1
850
llYC' 10BCllllUeXRllelCIB09CeXRU
851
USlfll& TMLt!S·Jr.112
852
LA
853
T9N
854
JF
855
LA
866 CICFJJCD TllN
857
.n
858
LA
859
TA&.UeXA2
I matllll eXlll J · X· to·
CICFIXD 4C.Xlt2l·ICR2 IOBCHlffeXRJt.x·oe·
~
2CeJlll2JeXR2
tr· LOAD aec 2 Wlftl AllaleSS GF TABLE
O CCXII!
SPtNDLe 1'7
NtlP 1fl - · 2 .... 8'MP W FDINT TD sa:GND llALP 0 CODE PGR FIXED WllVE7 .IUlllll IF FDll Fl OR ff2
. . . IF Fall lll!llDYALE
859
E · LOC G&IECT CODE
I ·I
1308 ,. 00 02 12DC
n·· ce 01 13ce
J 3El 4C 00 02 12£7
t· 13:6 OC DO HIM- 128
!''IQ··.
13EC OC 00 1908 12£9 13F2 0C 00 150C 12£A
911
wnm 1.a.-111.a11.t'llUlt mc:.1E1n
~
912
.._.
Lac. 8ACIC IF _ , . ~
9US 91· EQ'T
·c
loecMl-ICl.·t tellEAOllA .... fEcmo ~ ft 1·
915
.C GDCf!:·2U J.itmCHl-3
t1DWE C ' K L I - -
916
1IVC DDCF+4tl l.Jmc:ttllt-Z
llGW - - - -
·
· · · · · · · · · · · · · · · · · · · · · · · · · 917
918
· · · · · · · · · 919 ·
·c DDCF+SCl I .1aec-...-1
lllNE lllECGRO -
·
SID OF ~ TD lD4e SllQLATim C.UERUm WI·
·
· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · 920
·f 859
j
860 · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·
~
::: ..··....·.········.·.······.····.·· ·I · 861 ·
REGISTER 2 fllDll MINl'S TO THE TAtll.£ ENTRY coalESPDlrlDlllG 1'G ntl!
··
862 ·
IEOUESTEO ~ ·IWe
·
1358 2C 00 1371 Ot
,r·
1360 ee oo .,. oo
13~ . . . . 00 1367 ?A 08 M 136A fl'2 10 03 IMD 78 Oii M 1370 'IC 00 00
1sn .,., o. 01
13Te 11'2 - 26 1379 1'0 CB DI
1371: co oz 12ED
1390 4F 00 01 120E
1385 n a 29
1·3-8·9 P.,2., ·81· 1018
138£ - co 00 1170
1393 4F 00 et UDO
1398 fl'Z 82 16
13· co .,. 13·
r-
139F · oe 01 t:saz ca 01 12ED
13&6 P2 8? OD
ISA9 4E tiO 00 1170
·-- 1Me n ... 05
·38t - 00 Ot 1200
1386 x 01 l2ET
139A TD 00 02 138D f'Z 81 21 IXO '79 80 02 13C3 P2 W OS IX6 4F 00 02 IZ·
13CB 2D lie 02
·~ co . . 1aeD
1302 CIE Oe In? l i f t
--·
-
1371
865 __..¥ WC
1966 · 867
·zz
868
...
869
s·
970
Ir
871
S8F
8T2 CYTCTM llVI 873 C\'S'IRT EOU
874
a.1
875
A
876
a.1
an
9NL
8"18
SLC
8"19 ·
880
.HI
881 ·
882 C·ZE· CL.I
983
JIE
8M ·
885
ALC
886
Sl..C
887 ·
...
...
889
·
890
891 CllC'ILO a..1
992
..
993
..
8M
....895 UIDCYl.ll ALC
"6
.I
897
898 At:DllAIC M.C
900
90 I CYTSTll ·t
902
a.1
903
.IE
904
T8ll
905
.JIF
906
ac
907
908-.. a.1
909
..
910
AC
C"WSTll1'CllelCeXll2,
SET llavE l·TIUCTIGN TG PICICUP STMT ,.-
CYl.llCEa OF SlllULA'IEO AllEA
·
108Q8CeDlt.oc.XRZt llD'I£ Ill THE ZDd! Of' m-ERATI· CDDt!
oc ··21.x·aa·
FOR 3340 .... \llllE 2 OR . ,
I
loeGllC ··11.x·oa·
ASSWE 3340 ··· a · ·
f ·
CVTCTll
GO STAllT Tiii! CIDllfll!'RSICIM
1oeoac··· ,......
CDMECT "BAD AS...-TI·
lcmcMl-3C.JlRI t.O
lllJVE t· SYM1' · Sl-.ATI· MH!A
._2
1oea.-2c.·1>.x·04· CHECK FOR ~cw.. 0.1.2. . . 3
·
UC'lll..O
IF t..m SO C11RX ._ <TL 0
1aac.....ac.·1·.x·ca· CHl!CK FDR cw..1mER am'
£-&
CYLHDER 203 GR 41REATt!ll IS ,...,......
JOBCMN-2Cl·MUeSVNTEll SUS1'1tACT IUl8ER fll# 4· TRaatS
.POSSllL£ ml FJ11ST 3349 Cl'LIMER
a\DDl!AIC
NIP Jtr 44 CYLlllDEll IS - FIRST
Sl.a.ATED 33U C'WL.lteea
IOll09f-2Cen11.x·oo· SEE IF C'lft..ltlDER 91!111' ZeRO
UPCW..·
It: ZEiia CllllWl!llSIGI OF Cft. IS
ALtlOST Dl»IE· toaa.-311.uu.ONE AOO ONE 1'ID 33'0 C'ft.J·teER
1aec.....21t.JCRll.FGATEN 5Ud'IRAC'I .._ER OP . . C\'l..llllDl!RS
POSSta.E ON tlEXT 33eO C\'l..lllDER
ADDllAIC
CXZl!llD
..,. . It' llESULT 1IEtlW ·sanWE
LGm' BACK .... aeca MAI·
1oeo.r-ac · ·1 ··x·oo· IS THE WST AIR C"ILlle&I ~
E--fi
IF 111111' F · Zl!llOe E -
CVTSTll
GO TO CGllSBI HCTalt TU "ECDllD
· n JOllCM-SCt.an.ONE WIDA'IE TO
3360 CW.lmEll
CYl'STR
GO CGNWl!ll'I' S1!C'l'Oll 'IO 1t1!1CDRD
1GBCllN-211eXWU~ .... BACK FGUn1!B1 . _ - - . T tiOl!S ......
t1EAD9a.x·o1·
IM1TIALIZE ...,._ ..ea WITM A I
1aaa.-11.·1 t.x·oo· Rl!GUl!ST POA ., . . . . SEC'IUll _ _,
EXIT
CalVERSIDI IS IXlll!
1GeCMl-ICeXRlleX·eo- TRM:ll 2 aF .,._ -..S~
W
..,., IF ftlACK I W ·tmeSleD
IOllCl9l-11leMl)ellEX20 11ME 1'IUCll 2 AMO I <r-11nc;-
1aea.-u.a11.a·Fc· 010 SacTGll ....... m ·1_..
E-19
EAllGll IF ~ IS . . . . .
MEAa.AUlelllllE
ADD 011E TD 111!1C0110 -
..
·'
;..;,.,,,.;,11t4. q""'·
· · ·
-~~l- -- -- ·-"'- ~- ..---·~~ ..,-----.-~-~~'--'·-..- · .,·~- .. -~-
~ LOC 08.JECT COOE
13F8 Ge 00 t5F8 1204 l:SFE 3B F8 15F8 14~2 oc 00 1458 1~8 1408 OE 00 1458 ISF7 140E Cl CA l40E 1412 31 CE lSCE
1416 31 c: 1500 14tA F3 ce co
l41D Cl C9 1410 1421 Cl CA 1421 1425 c1 ca 149E
1429 oc 09 15F4 15EO
142F OC 01 l5F3 15F6 1435 31 CE t5D2
1439 31 cc 1500
1430 F3 C9 01 144~ Cl CA 1440
1444 c1 ca t4BC
1448 38 02 15E1 l44C F2 10 17
14.ut 31 CE 15CE
1453 31 cc 1504
1457 F3 C9 00 l45A Cl CA l45A
145£ Cl ca 1495
1462 co · .., 120F
1466 3C 01 ISEI 1"6A 3C 01 1507 146£ Cl CA l46E 1472 31 CE 1500
14?6 F3 ca 00
14?9 Cl C9 14?9 l47D Cl CA 1471>
1481 Cl ce 149':
14'85 co 81' 1430
1489 F2 81' 21
1-ac oc n unc 1590
1492 F2 81' 18
t49S OC 13 lS'PC l5A4
( __. 1499 Fi! 8? OF
l 49E OC t 3 I 5'1'C USB8 14M P2 8? 06
l4A7 OC 13 ISTC l5CC ('
14AD CO f!F OHA 1481 C2 1482 SA 1483 IS'PC 148S 89P8 1487 3C 40 lSTC
1488 oc 12 lS?S lS?C 14Cl 30 co lODe
l4C5 CO 8? 021E l4C9 02 l·CA 1eoe 14CC 1525 14CE CO 8? 021A 1402 82
AODR STMT SOURCE STAttllll!NT
llDO ··
PAR'! NO. PAGE
. I"
4234269 (:_;tBM MAINTeNANCE DIAGNOSTIC PROGRAM
10
1
t ()FC80
NOve ftC? Ml..-0-COOE FROM OIAG PACK TO ns PAClt
I ~- LOC OB·ECT CODE
ADDA STtlT SOURCE STATt!~MT
llDO ··
..... PART NOe
PAGI!
lOA
1466
1. .1 1482 lo.M l .. 14C9 t'M:8
t·co
141>2
922
IWC DStCFCTlt t.SIO.l LOAD DISK FUNCT IREAO 01-WRITE 02-set!K 00,
923
S8F OSICFCTeX'F8'
STRIP DFF OP.DA·M BITS
I
924 925
*GC·1 MVC ROWRT+t Ct ,.OSKFCT MOVE DISlC FUMCTION REA!,,WRl'te INTO SIO*GC·I ()
ALC RDWn+I U hDRV32 INSERT ORl\fE NUll8ER INTO SID
926 927
TIO *·X'CA· LIO LOCF.x·ce·
ATTACHMENT BUSY (WAITI LOAD DOCR WITH ADDRESS IF DOCF
·Gc· 1
·GC*t
~
928
LIO LDDF.x·cc· LOAD ODOR WITH ADDRESS OF DDDF
·GC· \Wi
929
SID o.x·c13·
SEEK CO·MANO PRIMARY 'IRACIC
·GC·
930
TIO ··x·c9·
SEEIC BUSY (WAIT)
931
TIO ··x·cA·
ATTAOtMENT eusv fWAITI
··GGC«* A~.
932 933
. TIO O«ER9.x·ce· NOT READY , UNIT CHEC. AFTI:!R SEEK CMD NYC DOCZCIO>eDDCFE
C) ·GC·
*GC·
934 935
·vc oocz-1c2>.00ZL
L!O LDCx.x·ce· LOAD DOCR WITM ADDRESS OF DOCX (ODCFI
·*GGCC.,*.
936
LIO LO~.x~cc· LOAD ODOR WITH ADDRESS ~ DOOF
·Ge· 0
937 51033 SIO x·o1·.x·c9· RD HA & RO EVEN COMMANO
·GC*
938
TIO *·X·CA·
ATTACMtENT BUSY CWAITI
939
TIO OKER2.x·ca· NOT READY,UNIT CHECK 11'1
940
··GGCt;·· 0
941
TeN DDM.x·o2· CHECK FOR Def"ECTIVE t>RIMAAY TRAC(
942
JT PlllOEF
JUMP TO ALTERNATE TRACK
943
944 LI033
945
946 947 tilOWRT 948 949
eou · LIO LDCF.x·cE·
LIO LBU~.x·cc· SIO o.x·C9· TIO ··x·cA·
TIC OKER4.x·cs·
LOAD DDCR WITH ADOaESS fJF LOAD ODOR WITH ADDRESS OF
R1,,WAT KEY DATA ( C9,CA I
ATTACHMENT BUSY C·AITI
NOT AEADY,UNIT CHECK
· ·~G·C,·
*1ae·
·Gc·1 ·GC· *G.;:· 0
1403 IA 1404 IS2'5 1406 Cl CA HD6
14DA 31 CC 1906
t·oe n C9 o.,
l4El Cl CA 14El
14ES Cl ca l4A1'
14£9 CC 8? 021E 14£0 11!1 14EE l61A 14FO 164A 14F2 CO 87 021A l4F6 83
1·F7 ID 14F8 1542
l4FA co 87 021A
14FE 86 14FF '30
1500 164A
1502 co 8'? 0222
1506 89F8 1508 CO 8T 0216
1403 990 1405 991
992
993
994 995
996
99? 14EO 998
l4etr 999 14FI 1000
1001 1002 !003 1004 1005 14FE 1006 14FF lOOT 1501 1008 1009 1507 1010 1011 1012
DC AL.ICSTATOT-STATST>
· · DC AL.2CSTATGTI
llYTl!S 0.1
TIO ··X·CA·
ATTACHMENT 8USY CWAITI
LIO t.SNs.x·cc· LOAD ODOR WITH ADDRESS CF DSNS
..C·
··*GKfiCC···.
SIO '7eJC·C9'
RD OIAG 8V11!S
*IC·
TIO *·X'CA·
ATTACHMENT BUSY CWAtT·
·GC·
-.c· TIO D«ERAeX·Ce· NOT READ't ' UNIT CHECK AFTER READ DIAG CMO *fiC·
B UMIACK
· UNPACK
DC 1Ll 8 24' DC -.ZCDSNSEI
·.
·
Rt!AD DIAG BYTES
DC AL2CPSNSI
·
0-23
8 0C
DC DC
Pa!NT
XLl·&3· AL. I I RDOGE-M>DGS) AL20iOOGEI
· PAINT HEADING ~ READ DIAG
· BYTES ·· 0-23
. .c .
·--G..CcC.··
·*GCCC···
*Ge·:
B PRINT
· PRINT
·ac:-
DC XL1 8 868 DC 11.1·48' DC At.2CPSNSI
·
READ DIAG
·
BYTES
·
0-23
.··GG.cCC···
B HM.T
oc xa.a·ewa·
·~C·C··.
B I.INK
IMC·
lSOB IOU STATST ~QU*-l
tSOC 40E2E3CIE3E4E240 1525 1014 STATOT oc C\.26· STA'TVS BYTES 0.1 ARE xxxx·
1514 C2E8E3C5E240Foe8
1.014
ltGC·,
e&e·.·
ISlC F140CID9C540E7E7
1014
1524 E?F7
1014
950 951
B SETXRt-3
RETUftN TO CAU.ER
952 PAI DEF EQV ·
.953
·VI DOOF. x·o1 ·
954
·VI DDCF.x·o1·
955
TIO ··x·cA·
956
LIO LOOt=eX·CE·
957
s10 o.x·ce·
958
TIO ·· x·c9·
959
TIO ····ca·
960
TIO OKER9eJt·C8·
961
B SI033
962
SET-UP Fl.AG 8Y1'E FGl ALTERNATE SET-uP FLAG BYTE FOR ALTERNATE ATTACHMENT SUSY t·AtT, LOAD OOCR WITH AOORESS fJF DDDF SEEK COMMAND ON ALTERNATE SEEIC 8USY ?1'., (WAIT)
ATfACMMEMT BUSY CWA1Tt NOT READY , UNIT CHECK AFTBt SEEK CIU>
GO TO RD HA & RO ALTERNATE
963 DKWR 964
· PRINT NOT REM>\' , UNIT CHECK
MS Otet:R2 MVC P031(201ePD3S
966
J PRTNA
96?
· lllOVE AFTER READ HA & RO
· NOT READY , WllT CttECK
968 OICER4 ltVC P031(201.P043
969
J PttTNR
no
· MO\fE AFTER READ R°'tlRT C1U> · NOT R£ADY , UNIT CHECK
971 O«EA9 972
vn
· 111DVt: AFTER SEEK CDlfMAND e NOT READY , UNIT Ctti:CK
974 DKERA MYC P031C2GleP048
975
· MOVE AFTER REM> DIACi am
976 PRThA 9T? 978
979 980 981
B PlllNT
DC a1 ·c2·
DC M..l1P031-PD30t
DC AL2CP03l)
DC XL.2·89P8·
WI PD3t.x··o·
· PRINT THAT UNIT
· NOT READY , UNIT GIECK OCCUlaRED
·
OAIYE
·
IS
· PLACE · ·
982 983 984 985 986 98'1 988 989
NYC POSl-U l9t.P03l · BLANK P031 tlCJRIC At:fEA
SNS STATUs.x·co· SENSE STATUS BYTES 0.1
8 UMIACK
· cai.ACK
DC .._1·02·
·
STATUS
DC M..2CSTATUSI
e
BYTES
DC AL21STATOT)
·
0·1
8 PRINT
oc JlLl·a2·
· PRINT
·
STATUS
llROCi 10
PAG£
·G~·
1525 1015 tlOOGS £OU ._I
· ··GGCC·· 0
*GC· *Ge·
:::1·*GGCC4·'I 0
·*cGace··I
a
~
1526 40D9CSCIC440C4C9 1542 1016 RCOGE
152E ClC740E2E3ClE3E4
1016
1536 E240C2E8E3C5E240
1016
153t: ClD9CS4040
1016
1542 10!7 P030
!543 40C4C9E2D240C409 1550 1018
1548 C9E5CS4040F2
1018
1551 4CDSD6E34009CSCI 1568 1019
1559 C4E2406140E4D5C9
1019
1561 E340C3C8C5C!D240
1019
1569 404C40-040404040 ISYC 1020 PD31
DC CL29· REM> DIAG STATUS B'tTES "'1E ·
·· EQU *-l
er. CLl4· DISK DRIVE
·
;
..c·.·------------
·GC·i
-ciC·i
'·
*GC·I o
..c·1 ·«*1
0
1571 404'0404CM.r404C40
1020
15?9 60404040
1020
1570 40C1Ctll!:SCSD94C09 1590 1021
1585 CSCIC440C8Cl4050
1021
1580 40DW04B
l021
cuto· A"1'£9 tltEAO MA ~ ao. ·
·Gc·I ·sc·I
0
1591 40C1Ctll!3CS094CID9 15A6 1022
1599 C461E609E340C4CI
1022
lSAt 1!3Ct4048
1022
DC cuo· AFTER ""'"'" DATA ··
.-:··
·GC·I
·GC*l 0
ISAS 40CIC6E3CSD940E2 lSB8 102'3 PD46 DC
ISAD C5C5D24DC3D60404
I023
1585 CtD!!C..a
1023
1589 40C1C61!:3CSD94009 uscc 1024 P048 DC
~·I
ISCt C5CIC440C4C9ClC7
1024
..ac·l · 1SC9 40C3D4C4
1024 1029
·GC·1 *·GCCC·· ·
ISCO 1507 lSCF 15£1
IC25
ISCE 1026 LDCF DC 1500 I 027 LODF DC
"-2CDOCFI M.21 DOOFI
ADDRESS LEFT-NOST IWTE OF DOCF AODRESS LEFT-MOST BYTt! OF ODOP'
*Ge·'
·GC· .
=1·.·...G.cce:···II' 0.
*·GGCe··f ·
1501 tSEe· 1503 1648
1505 1603
1907 00
·GC· *GC·1
l5D8 0000 ISOA 0000
· Fce-o I .. 10
OAT£
26.IUN'Pli
EC NO. 82'5023
15'>2 1028 LDCX DC
M..2COOCXt
ADDRESS LEFT-MOST BYTE OF DOCX COOCFI -SC·
1504 l 029 l.&ur DC 151)6 1030 LSNS DC
M.2( 09UFI 14..2ICSNSI
ADDRESS LEFT-NOST B't'T£ OF DBUF AOORESS LEFT-MOST IWTE OF OSNS
1"C·
~
1031 ·********. .···. .··*READ,WAITE KEY-OATA*********. .****·. . . . . . . . . . . . ._.C.
1032 · DOCF
· f" · CC · HM e a · KL · OL * N ·
OISK ORI¥£
103~ **********····. . . . . . . . .********. .**********....... CONTROL FIELD
150'7 10~ DDCF 1507 1035
1509 1036
EQU ·
DC XL.l·O·
DC
....2·00·
FLAG CYLINoett
· £
·..
lSDB 103T
DC
xa.2·00·
HEAD ADDRESS
I
*GC·
e&e·
PROG ID PAGE
. trce-o·
IOA
C: ·
·
·
·
·
·
·
·
·
·
·
·
·
·
····
·
·
·
·
·
·
·
·
·
·
·
·
·
·
.J
·
·
·
·-··
··
·
·
· .
·
·
.
·
·
··
·
·
·
·
·.· ··~·~ ·-
'.
·
··--·
·
·
·
··
,
.
!'<.;....,,..,. ·t·-·,.,·--.~---t~~-""r...r::r.-.-~.· """'-~~1t::fl;,._..;1.~_...~&.i;::... ·~~-·- ~~... ~~;~~~~.i'it.r:11111::..~
~ :...r;.t...,....
.....a.i--
..:i...:.~.
.--...,,~---............,.~-V~~~-~"".'(".-....:_......,..
--
.. · ''· -.... ·... ;:..·~: 's-.i:. ~ -~· ~:- --~-:..:-i..--.- _;..o.-:i1P::~.,......;:--"'~...i~-.::,~-~-.... ---.:.:-.~~,-~:.;~;,..;.,.. _,,__, ·~ ~· ~-.... ., __ .. _ ~ - ....... - ~ ...-.
· ·
· ·
-----·--·
Im M·INTENANCE DIAGNOSTIC PROCR,..
FC80
PART..,.. ~zee (.)··MAINTENANCE DIAalDSTIC ~
·AGE
11
............
En LOC OBJl!CT CODE
ADDA STMT SOURCE STATEftNT
15DC 00 ISOD 00 USDE 0000 IRO 00
15DC I038
DC >cLt·o·
Rl!CGtD
tSDD 1039
DC
JCL.1·0·
KEY LENGTH
ISOF 1040
DC
XL.2·00·
DATA Ll!NCTM
·Ge· 1!5EO 1041
DC
XLt·O·
COUNT
·-· ..............................-·G.cC.· 15EO
1042
1043
.C.D.C.F.E...EO.U..............
READ~
g
RO
0
T
E
CGHTROL
FIELO
41GC· 41GC·
4'GC·
ISEI 1044 OODF
lSEI 0000000000000000 15EA IO.t5
15£9 0000
tO·s
* EQU
DC xL1c·o·
* OtSIC OR1VE DATii FIELD FOR 1'EAO KA & RO
*GC· *GC·
·EM t.OC 09.ll!CT CODE IM8
... ... ,.,1648 1068 D8UI'
1069
OS
0
1'748 0008 1T4D 4040404~4'040
1?4'(: 1070 csoooe DC 1752 1071 lllLTAP DC
I 1'53 00
17!53 1072 CNT
DC
G ITS· ·040404'040·0
1759 I on l!LANIC DC
175.A 1074 JCMSGI l!QU
175A E6C903D34CE2E8E2 1773 1075
DC
USES DO l~EC 0000
0 l!SEE DOOO
t!!FO 00 l5F1 00
*fiC*I 15F2 ooc,
· ISF· 00
1 0 15F5 0008
1SFT ca
t!SFS DI lSF9 OOOOOOOOOOOOOCOI
·&e· 1601 0000
ISEB
1046 1047
··················
DOCX EQU ·
· DISK o.ilVE
**. .*******************GC· ·GC·
15EB 1048
DC
XLl · 0 ·
¥LAG
C
*GC·
ISEO 1049
DC XL2·oo·
CYLINDER
0
*GC·
15EF 1050
DC
XL2 1 00·
HEAO ADDRESS
N
F
eGC·
!!SFG 1051
DC
XL1 1 0 1
RECORD
T
J
*GC·
15~1 1052
15F3 1053
OC
XLt·O·
DC
XL21 00 1
KEY LENGTH DATA LEN&TH
R
E
0
L
·GC·
1SF4 t5F4 lSF6
1SF7
10S4 1055 1056 1057
1058
oc
XL1·o·
C...JURT
L
0
·Ge·
DDCZ
DDZL
EQU
DC
*-1
XL21 000S·
· ··DATA
LENGT~··
FOR
READ
FOR READ
HA & RO
HA
&
~O
·GC· ·GC·
*D*RV*3*2***D·C***X*L·t···c·e············· ··D·*IS*K**~*I*Y*E**A*D*D*R*E*S*S*B**IT*S**D*R*IV*.E
. ******·****·GC*
2
·GC·
15F8 1059 D!:KFCT DC 1602 1060 DDCFS DC
XL1·01·
DISK FUNCTICN (READ 01 , WAITE 02, SEEK oot
XLJO·ooooooooooooooo10000· · INITIAL VALUE FOR DOCF
j
1060
1762 E3C5Do\4007CIC302
1075
176A 40C9E4D540C60906
1075
1772 0440
1075
1774 09Fl
tT75 1076 RI
1776 40060MO
1779 1077
I 1'7A C6FI
1778 1078 Fl
JTTC 6F
l??C 1079
ITTO 00
17'70 1080
177£ 1091 XJllSG2
177E C7C~E!SC540E3C8C5 1781 i082
1786 40C5C104C540D6C6
1082
178£ 40E806E40940F3F2
1082
1796 F7F74040D4C9C3C9
1082
179E D660C306C4CS4040
!082
t7A6 06C20!CEC3E3·CC6
1082
17AE C9D3CS40
1082
oc
DC
oc
DC
DC
£OU
DC
c
1603
r,..; 1619
·
e
1061 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .*GC.
1062
1603 1063 os~s 161A 1064 05"SE
EOU · OS XL.24
·o&tGeC·· 0
e 16U 1065 PS~S
DS XL·&
*GC·
1066 *****········· END OF DISK 1,0 FOR :S~C **..*******······****...****GC*
·
0
1782 00
1782 1083
1783 1084 JCMSG3
1783 C9E340E6C9030340 17EO 1085
17'8B C4C5C6C1E403E340
1085
17(:3 E3D6404~5B5B04C3
108!5
17CB D9C9·0C9C640DSD6
1085
1703 40C5C1D4C54CC9E2 l?C-B 40C1'C9E5C505
1085 10815
17El 00
171!1 1086
17E2 1087 X!'tSM
17E2 D7'D3CtC3CS40£2E8 1815 1098
17EA E2£3C904-400?C1C3
1088
17F2 D2400605·009Fl61
1088
DC EQU DC
DC
EQU
oc
0
c
17FA C4F26S.007DeE6C5 1802 D940E·D740C.-C:9f!2
toaa
1088
c
lBOA D240CID9C4400T09
1088
1812 Cl5E2'E240
l088
1816 CSD5l:3C50940D6DS 1827 108· OW.MSG DC
r....,.,,
0
0
c
r~, .;.,,.·
c
· ·
i· lo
lo
e
181E 40E3C8C540F3F2'7
1089
1826 F74B
1089
1828 00
1828 1090
1829 1136 1828 IU58 1820 1162 182F 1188 1831 1188
18H 1091 GaTl!L 182A 1092 182C 1093
l82E 1094
1830 1095 1832 1096
1833 tie? 1835 llCA 183'? 1103 1839 1200 1838 l21A 1830 1210 183F 1239 1841 t24e1843 ltA6
1834 1097
1836 1098 1838 1099 183.A 1100 183C 1101 183E 1102 1840 1103 1842 1104 184· 1105
DC
EOU
oc
DC
DC
DC
oc
DC DC
DC
DC
DC DC DC
DC
DC
{)-
c
.... r·-· OAW
- EC NDe
·,
,......,.
PllOCi 10 PASE
18415 1130
US47 1203 1849 FFFF
· !
I
· I
'·we ·. i FC8-0! 11
1848 FOF9 1849 FIF?
ta... 00
.
DUE
1846 1106
DC
1848 110?
DC
184A 1108
DC
2001 tl09 TABU! Eau
2004 1110 JQ(FCX EOU
US4C 1111 59
oc:
184£ 1112 517
DC
184F 1113 LOAIFL DC
~
1.
Q"!-
i
!e
I
0
I
!·
·
XUM
XLa·oooa·
Cl.6· ·
a1·0·
·CLe· ·
CL26· WILL SVST£11 PACK ..... FROM ·
CLll2·Rt·
Q.04· OR ·
~oa·wrt·
CLOl·7·
·XLl·O·
Cl.!!12· GIYE THE tllAME OF YCJUR 32??
·ICWO-CODE
09.JECT ~1\..1! · :
·XLl·O·
CL46· IT WILL DEFAULT TO ·tCRI IF NO IUlllE IS tilvt!IP
.,.
·XLt·o·
CL52·PL.AC£ SYSTEM PACK ON Rll02e POllEA _, OISIC AND PlleU ··
CLte·ana Gii TM! 92TTe·
·aa·o·
AL.21Zt-lt AL21D-U A&.21%3-1) AL2CZ4J M.ZCZSJ AL21Z61
AL2CZ7t
AL2CZ8t
AL2CZ91 N.ZCZtOl
AU!CZlU AL2CZ12) AL2CZ13-1 l-
AUCZ14J
M.2CZ1S-l l AL2CSl0) M.21......, ,
x·2001·
x·zoo.·
CL.2·09·
CL2·s7· J11Lt·ao·
LINK TO ..I CQO CGOE MP Ill 893 LINK TO tUCAO DECK 10 I· 893
............
·
·
181e MAtNTENAICCE OIAG111l1STIC PRG&RA·
PART NO. PAGE
4234265 (itBN MUNTI:NAlllCE 01 AGNOSTlt PROPA· 12
FC80
9IOVe FC? ·tCAO-CODE FROM OIAG PACK TO SYS PACK lllDO l&
ERR l.OC 08.IECT CODE
ADOR ~T SOURCE STAT£1EWT
1850 C9C640E2E8E2E3C5 1868 1114 llBMG2 DC
CL28· IF SYSTEM PACK WIU. BE ON Rt·
ERR LDC OBJECT CODE
!·
I
1858 D_.OD7CIC30240E6
1114
1860 C903~3&0C2C~006
1114
18E8 D54CD9Fl
ttt·
186C 6B40E2C5E34009C9 1888 1115 M8MG3 DC
1874 C?C8F.30406E~340
1115
CL32·· SET RIGHTlllOST DATA SWITCH TIJ t·
!e
I
1.
t8TC C4C1E3Ct40E2E6C9
1115
1884 £3C3C840E30640ffl
1115
188C C9C5E2CSE340C8C1 lBAl 1116
1894 D3E340E30640C306
1116
189C DSE3C905Eecs
1116
18A2 C9CMOE2E8E2E3C5 1805 lit?
18AA D440D?ClC3024004
Ill?
t8B2 C9C3D90660C306C4 18BA C54006C20lCEC3E3
Ill?
nn
18C2 40C6C903CS-ODSCI
1117
I
l eI
tFt=E
I
lFt=E OA3C
DC
...CRiel. CLS2·JF SYSTEM PACK MICRO-CODE 08.IECT FILE NAME IS
'·I
1
I
18CA 04CS40C9E2405858
lt1T
1802 C4C309C9
1117
1806 6B40E2CSE340C4CI 18E9 lt18 M8MG5 DC
CL20·· SET DATA SW 4 · ta·
1·
180E E3C140E2E640F440
1118
l8E6 ?e40Ft48
1118
l8EA 06E3C8C509E6C9E2 1906 1119 M8MG5B DC
18F2 C56B40E2C5E340C4
1119
18FA CtE3Cl40E2EE40ff4
1119
1902 407E40F048
1119
1qo7 C50~3C5D940C6C9 l93T 1120
DC
l90F D3CS40D5C104C540
lt20
191? Fl40C'!C8ClD94840
1120
191F CIE340Cl40E3C904
li20
1927 CS4CC90540CSC2C!
1120
o.· CL29·0TtERWISE. SET DATA SW 4 ·
CL49·ENTEA FILE NAME 1 CH~. AT A TIME IN EBCDIC CGD£ ·
1·
I·
-1
1·i·
!
192F C4C9C340C3De<;4C5
1937 40
--
_\938 EAE2C9DSC1'40C4Cl 1940 E3Ct\OE2E64CF368
U20 1120 tl2l MBMG6 DC 1121
I
1·
1948 F44B
1121
194A 09C5E2C!5E340C8Cl 1974 1122 M8MG? OC
l~2 D3E3E240C6F16CC6
1122
19SA F640C1E240C5C1C3
1122
1962 C840C3C8Ct094B40
ll22
l 96A C9£240CSD5E3CSD9
1122
1972 CSC448
1122
1975 04C1£7484005C1D4 19A5 I 123 ·aMG?A DC
1970 C540C9E240F640C3
1123
1985 C8CID9494040C203
1123
1980 CI05D240E6C9D3D3
1123
1995 40E3C509D4C90!5Ct
1123
1990 E3Ct540CSD5E309E8
ll23
le
I
,.11··
\e
I
l9A5 49
ll23
19A~ C6C903C540C5Cl04 l9C3 1124 M8MG8A DC
l9AE C540E30640C2C~
n2·
19136 e·e2csc··oc~2·0
1124
196E E'PE7E7E?E7£'7
1124
19C4 484040D9CSE2£3Cl 19DA 1125 M8MG8 DC
l9CC D9£340C9C640C9DS
1125
CL30·FIU! NAME TD BE USEO IS xxxxxx· CL23'· RESTART IF INCOMECT·
11..
ADDR STMT SOURCE STATEeNT
0216 1139 LINK
EQU K·ate·
021A tt40 ~INT
l!QU x·11a·
021E 1141 UNPACK EQU ··21e·
0222 ll 4'2 HALT
l!QU x·2a2·
022A 1143 LO.. O 0232 1144 UDT
EQU 1t·22a· EQU x·232·
2020 tl45 DUMP
0200 1146 SMOD
oocs 11·? e
t148
EQU x·2020·
EQU x·zoo·
EQU ··cs·
ORG x·tFFE·
IFFF 1149
DC
AL2CRTNLO·U
1150
TREP
1151
TREP
1152
TREP
11!53
TREP
llS4
TREP
U55
TREP
1156
'TftEP
1151'
TREP
1158
TRt!P
FFFF 1159
ENO
1904 C30«>909C5C3E3
1125
0001 1126 JCRI
eou I
0002 1127 lCR2 0008 1128 Mm
ooco 1129 IARl
· EOU 2
£OU
EOU x·coa
0080 1130 SSt1120
EOU ··eo·
0010 1131 SS·23 t!QU x·to·
0008 1132 SS·2·
EQU x·oa·
....... 0002 11:'3 SSW2E
0008 1134 SSW2C 0004 1135 ss·ao 0200 1136 MQOEL
EOU x·oa· EQU x·oa·
EQU
EOU x·ao·
··200· 020C U 37 .SftTE4 EQU x·aoc·
0200 1138 SBY'n!S ~
OAT!! 26.Ntn& EC NO. 829023
flfiOG 19 PAG£
1.
l
1e
I
le
I
·· Fce-c OA11! 12 .t!C NO·
26.JUN79
828023
·
,-.,..
·
·
·
·
·
·
·
·
·
·
·
·
-·
·
.a' ···
·
·
·
·
·
·
·
·
PART NO. PAGE
DO NOT MOVE TMIS AOORESS AOOR FOR 89~ TO RETUtilN TO FC9
. ,
·
·
·
·
···
·
· · · · · · · · · ·
Ulfll MAINTENANCE DIAGNOSTIC PllOSAAN PC80 MOVE FC? MICRO-COO£ f"RO· DIA& PACK TO SYS PACK. llOD US
5.,MIOL T LEN VALUE DEPN
AOCSAC A oes 1381 084}8
AOAEXT It OCI 1200 0730
o"'·" AGAIN A 004
00·!5
a~c
a co· ltP 0612
ALTDFC A 002 1188 066?
As;IODFC A 001 1189 0668
ARA
C OCI 0008 ll28
ASK
A 004 0006 0197
ASICFA A 004 CC24 0119
AO
A 003 OAOC 0015
BASEi A 001 1159 0630
BLANIC A 006 1759 1073
8LKCNT " OCI 10C7 0!551 BUFF8 A 002 IOCE 0555
8UF\.G " 001 IOCC 0554 BUMP A 003 13CB 0908
BUSY C 001 OOA2 0623
CARDIN A 004 ocac 0161
CKCYLO A C03 t3· 0891
CICPIXD " 003
CICZEAO " OC3
CNT
A 001
1352. 1388 1753
08!56 0882 10?2
COUNT A OD2 IOC9 0552
COUNT9 a 002 IOCB 0953
CR'Tf"LG.C 001 ~879 01564
CSOOC'8 A 002 174C teTO
c a · · c 001 OOAE 0624
CVTCTH A 003 1370 08T2
CVTS'TR ,. oo· 1386 0901
CYSTRT A 001 1371 0873
~II
A 003 OAOF' 0016
_,.DATU A 002 1003 0557
D8UF · 001 IMS 1068
OllUIF· DCP8UF
c "
001 001
1186 0880
06e6 0562
DOCF A 001 150? ao34
D!XFB A 010 16~2 lf'60
DOCF£ A 001 l5EO 1042
DOCX DDCZ
A 001 151!8 104T
A 001 1!5F4 toes
DDOF A 001 15El 104'·
OOZI.. A 002 19F6 10!56
DEFLT " 006
Df"DR · coa
DP'TN .. 006
01SK33 A OO-
DISK54 A 001
DISPLY a 00-
DtCfRA A 006
O«Ea2 ,. ~ l*EIM A 006
OIMM 1186 00£2 1280
...,UA6
OF1.".,
t4ec 1·9!5
0274'
--0665
021'6
0..?.9..6.
09'1· 0969
0968
OttEA9 DttNR DAV32 OSICC"ft..
A 006 II 003 A 001 A 001
l&W
.....14··
USF?
0971 0963 1098 0680
OSICCAV A C!01 I I · H'M
OSKt!R A OU 1nc 0790
DSkfAR " 001 121A O'"l'!SO
DSICf"CT A 001 15F8 10!59
DSIFLG A COi
059(·32 " 001 OSICM33 A 037
DSKttO a 0$0
OSICNUlt A 001
DS«SEC a 001
1173
oeco
08F8
129C ll'N
1l'"l'9
0679 0103
OIOS
0789
oeu
0681
OSICTYP A oe1 OA99 oe71
0880 oeee
0702 OYl'7
OOM 0614 07$1 0667 07~ 0?65· 07'73· 0389 0433 0521 0573 0609 0629 0691
0218 01.. 0046
0604 oece oe2T 0628 06TI' 0741 07·2 0?69
0233 0280 0480· 0487· 0270 027C· 0481 0503 HU· 026!5· 0269· 0!509
0905 0912 07Cl6 0711 0734 0"93 0117 0166 0172 0934
08'75
OM54
0889 0295· 03Ct· 033e. O~~ 0483 0904 Hll 0576
OU9 CM··
0291
0696· OeM 07... OTO.. OTI· OYSI· OM3*
0870
0893 OM6
0869e 0048 001'2
0482 oeoa
oo3s· 0040 ems,. eMtS aea9
0495 0997
0801· 0915· 0916* 091~ . . . . . 1026
OT98
0798e 0933
1028
0933e 09M*
OMI 093i' 0216
....06.3.,6.
093· 10-7 0732
...079?
.. ~
0996
0939
0949
0932 OMO
oeco
0925
0799 0738 0922· 092~ 0924
0098
OOT· oe... 0098 OC99 0102
0784
0291· 0293· 0332· ....
oa.s· ooae 00959 01.,11 ..,..
0
c
· ·· · · · · · · · · · · · · ·
PART NOe PAGE
cull' UM26!5
·AtllTEMNCE OIMillGSTIC 1lllOCRAll
13
I CFC8G llO¥E FC7 ·tCRo-cOOE FROM DUG P.at 1'0 SYS PACK _ . 19
'I ·- S"'l'leOL T t.EN VALUE
OEFN
1 <:)DSNS A 001 1603
1 DSNSE A C!M 16lA
I C~~::!= EfllD A 002
I EfllDt..T A 004 CEND!S A 004
I ENR..T · 002
OAIF 1 OA9 1124 0066
1063
n·· 1064'
114? 0022 052?
-~I
0238
: t!Ot
A 003 OFC5 0430
!I C·.ERASE " 001 10C6 OSSO ERRWSG A OO<l 12EO 0836
ERRlllSL A 051 1331 01143
eetaAOR A 004 IOAD 0$32
EJCIT A 005 13E1 091·
EXTSAV A 002 ll?C 0660
I OFILFNO A 001
FORTEN A 001
I FOUR A 001 I ~FtlOSEIC A 003
I ~Fl
A 002
ir~ · 001 c 001
0£09
1200
120C 11££ 17?8
1332 0222
0331 0822 0821 .0723 1078
01145 1142
i
HEAIHfA " 001
I C)MEIC20 A 001
IMI c 001
l 1014 " 003
i c11NSG t.-SSS
A 015
.:\ ocn
I IMISGI " 005
c·NMSG2 1
A 022
12£7 1208
ooco
OA12 OAF9
OABB OB2C OBTI
0829 0820 1129 0011'
ooas
DD83 0087 0089
t1Ms&3 A M3
IM'UT a 010
I A 002
C!IPUTa I
lllPUTA " 001
I 1t1PVTI1 A 002
I el1FUT5 INS
A "
000044
e··s- I INSI " 004
I
" 004
INSS " 004
e·MS8 1 INS& " 006 A OC4
IN'Tlt A 002
CB«
....OAIC
OF42 IOGe
1008 OA9D OA96 0AA2
ouc
09A5 OA80 IOOS
0090 0019 03?7 0567
0378
osn
ooso
OO"P2 OO'T5 0099 0093 0078 0558
INTMN "004 1092 0521
OtMTl!RA A 004 1096 OS22
INTFLG A 001 1006 05$9
IOBCHN A 0CM- 12E8 0831
.IOBQ& · ODI LAST8 · 002
C.-ASTA1' A OCI LBLF A 002
LDCF
I ~ocx LOOF
" 002 A 002
A 002
A 003-
A 001
c 001
A OCI
c 001 c 001
A 001
A 004
A 002 a Ot?:S
12EC 118£ U90
1SD4 ISCE Ui02 1500 1198 OF49 0216 144-F
OGOA
022A IB4F 1066 Ust>6 OFl:F
0832 0672 06Y4 1029 1026 1028
1~2T
0692 0381
1139 09"4 0021 llt\3
111~
0!502 1030 0459
1030 0999
0392 C:Sff M14 OS21·
0973$
0234· 02.... 0246 0393 0162·
087T
0839
0526
0903
0766* on2
0299 0886 0898 0911 O?t· 0170 0819 C063 0100 0136 0155 0210 0237 0299 0312
0786 084C 1009 0901· 0910· 0914
0906 M66· 0469* 048·· OISH· 05~ 058~ OSe?e 0035 0040· 0116 0199 0052 000 0097
0052
0051' ooise 0061
0061 0062 0080
nT· 0069· oow-. 0080
oe22 03'7?
" " 0387 0388
DIM 01.80 02?1
0320
0082
0047
0De6
0068 0073
0049 OO'N
DOTO
0469 0484
0587
0671 0486
0589
0523
0522 Of!24· 0942* OMe- OSSO· 0853 0856 08~ OST· 0876 087.. 0882
0895* 0898· 0902 0904 091Ni* 0908 0911· 0914* 0915
OM9* 08!50 086~ OBH· oen·
0704 0?07 0712* 0?16 0719 01'215 072. .
OM6
0927
093!5
0928 0936 0956
OTl!ii 0?88
0278 0281 0282 G391· O·OtSe 0421
0314 0322 0349 OM2 l DU
03TT 0037 0033
0499
M·0993
0379 0041·
.p....... ,......·....
MSZ 092 Oftl
PROG ID
PASE
PllOS 10 PAQ!
.J
· ·
U!ll MAIN1'ENA..c£ DI AQIQSTIC PllOCi&A·
SWIBOL T LEN VALUE Df!FN
-.T..F ADK
9'0DEl. C OH
·vcc A OC?6
tlVCF A OCl
WYCF8 ··oc1
llVQ..
·ts
A 001 A 00-
ll8EJCIT A CM
·8'162 A 028
·&MG3 A 032
M8Jl!G4 A 022
·8MGS A 020
tlt8MGS8 A 029
·81166 A 018
·l!IMGT A 043
·8MG'7A A 049
1119tlG8 A 023
·811168A A 030
N ....£ A OC6
"°"5G A 042
MEG
A 002
NE11UR¥ A 005
MG256 A 002
NDDFT A 00&
NOFtL A 046
HOSP A 004
NQsPC ,. 00&
MOSPtl II ~01
NOTOPN A DC&
NOTROv A 004
NADY C OCl ._~c A 002
NTRGY c 001
NUllS£C A tte3
- flfxtl.Me A 004
NXTSTit A 002
. OA="
A 004
OK
A 001
ON
A 0.,_.
OtE'
A 002
DtESEC A 0(12
oPEtit A OC6
·OPENI A 003
O'WL.·SG A 018
PASOVll A 003
P030 A 001
"PO~'!·IS
A 020 A G20
~3
...,.6
A 020 A 020
P.,_8 A 020
PENDNG A 004
POS
A 002
JIOSCSR A OC3
PfflDEF A 001
PRINT c 001
. ...,.,.. A 004
PSNS
P$R
A "8
c 001
, PTEXT A 086
ttTR A ttl
~2 ·AO~
PT32XX A 004
P~?t A 00&
1752 0200
0£Fl 0£07
0£F6 0£06
COAT
oc-.
1868 1888 l8AI 18£9 1906 1949 1974 l9AS 19DA 19C3 0088 OF40 OFq
usu
1128
00£3 OE·2 OE61 OE08 OEB2
OE&D 1258
0019 lll!M
OOAO 0£0E 1023
OF46 08AO ll03 08M ll?O llTA OE09 0£20 UJ27 1018 1542 IS?C 1590
·.ISM
l!ii88 ISCC IOT
{)
1001 1466 021A
l4A1) 164A
0004
OF'OS GFD6 1052
O·F~C8
101'1 lt36 0339 0287 0340 0286 0263 0132 lit& ll15 tl16 ltl8 1119 ll21 1122 1123 112!5 1124 0249 0350 03e2 0865
0998
02T9 0323 0315 0326 0324 0301' 0781
0965 0664 0625 0333
04U 0379 M9l 0'1'13 0092 0652 0659 0291 0296 1089 0479 1017 1020 1021 1022
teas
1024
·~u
0383 09S6 0952 114'0
C9T6 1065 03815 MSS 0636 0496 0493 C·33
taEFl!AENCES
0344 0281· 0338* 034-h 02-. 0196
0119· Ot2S· 0120· 0124 0126· 0130 0135 Dl·S 0208 0257 0200
0204
OQ3
0231 022? 0253
...,0249*
02·3
0348 0430
03Q
02T3 0310 03M 0!118
Olli· 0114· 029? 869T
0456
0689 Ge96 0?63 OTYC
one
0110* 0113· 0119
o·aa 0390 ona o~ 0399
OG69 OTOe
oon
018? 0244 0301 0343 0303 0612
....0261 02'1'5
0302 Dt·M OUM
040. . 0413 ~8T 098S
09?8
0965· Ct.- 0971· 09?· 0978 09?9
...0965
a.a
09Tl 09T·
0423 0905 ..,.
OM2
00!50 0095 OC!i9 0205 0220 02M 09T6 0988 1001 0963 o~ 0969 1000 1008 042:M M3oOSl2 ousei
ftOl
04'64 04"19 0163 01"19
007e 0228 1005 09T2
0Ml6 0290
0121 0254
PART ND. PA&£
I
f G
I
42.M26SI ( ) t a MAINTEMANCI!! DIAGNOSTIC "°8Mlt
"' I1OFC80
llOV£ PC? ·t~O-CQDE ftROM DIAG PACK TO S.,S PACK
I
f ·sv"80t. T Lete VALUE DEFN
llOO l9
0-1· o&Roe: 0427* 0990*
0899 0910
0981· 0982 09ea4'
012? 0132 0147 OtSl 019? 0201 030? 0315 0345 0?56 0?81 0836
PaOS ID PAGE
I AQ8P'Tf:t A 001 OCFA '1.i08Tl!ll. A 001 1829
RDOFC
.ttDOGF
A CO I
A 029
a 001 A 00-
A 003
A 004
11 ?3
,IM2
asas 0£18 145? OFFB
" 001 114£
A 002 lt'lt!
RECARO A 001 1180
ORESET A 003 """ RESET9 A 002 I ODA RTNLOR A 006 OA3C
ORTNt
RI
A 001 OA20
A 002 17?9
" SARR A OCI I l6E
cs·~ 004 1242.
SP
A 001 ocs:4
SBYTE· C 00 I 020C ~BYTES C 001 ·0200
SC#IEJC A 001 OFBO
SCANIM A 004 OFSO
()SCAN I A 003 OFS?
SCNt2 A OCS OF?I
SCAN:S A 001 OF96
.tlll.SCAIM A 003 DF96
'-'scaNS ,. 004 .we·
SCaNSI A OO:S OFBI
.-.sc~ A 004 OFBE
VsCNTs · 004 OEES
SCRCH A 001 ltFA
ASENSI! A 002 11 ?8
"sn&oe a 003 t lFt
SETAGM A 004
SETAL.T .A 003
I OSETON A 001
I Sl!Tfl'tL A 004 I ~e-nrt a 004
~sETit1 A 004
I ~I A 001 I .esnt7S a 004
I
SE1'9S Sf!X
A 004 A 001
I ASIO VSIOI
A 003
c 001
j St033 A 003
OCE2 t 231' OCFF
ocoe
OCOA ocec
1212
ocoo
OCOD
OAOO
l2Cl3 0018
1439
ASMOO '-"ss"2c
I sswao
i esswze
C 001
c 001 c 001 c 001
0200
oooa ooo·
~002
I
SS"20 c 001 . 0080
! SS"23 C 001 0010
j ess"24 C OCI 0008
I 'STARTN · 001 121£8
, STATO'T A 026 · 1525
lI "STATST A 001 1508
"°"''STATUS A 002 1 ooe
l STPAAM A 003 1198
' csTllTIO A 001 1195
. SVNTEN A OCI lZOE
StfM.T A 004 0061
(JSXR2 A 001 ll@A
· $YlllPT't A 002
· "°· SIT
I
A:B-Oi OATE
H . ·K
A 002
OF48 184£
0192 l 091 0654
6016 1015 0294
094? 0463
0622 0661
06'P8
0544 0561 0040
0~2S
lOT6 0640 0?66 0190 1131' ll38 0425
038? 0390 0399 0-ll 0413
«M-24 0421
042?
0336 072?
0658
0'7'28 0184 0?65 019·
0183· 0182 0174 0739 OltO
0113
ooo:s
0?33
0563 093? 1146 lt34
1135 1133 tl30 llSl
u:n
0830 101· 1013 0560 0691 0688 0823
oe·023?
0380 1112
0189* 0183 0303*
0?49
1003 IOO:S O:SD6
0924· MST 0292 0294 OT09
06C9· 061~ 0613 0??3
OMS 0561
0466 1149.
0013
DIA 0629· 0?64 0158* 01?·· 0182*
0036· 0042· 0065 006? OO?S 03. . . 0165 02?2 0397
0395 0409
04'00 0402
0428
0422 o·:st
0415 0419 0411'
0115*
0?19· 0?204' 072"* 0'1'2M 0698· OTOD 0714 0721
0193 079$ 01ee 02?9 0Ul9 0176 0181 0142 OtTt 0169 0691· 0692 ·0?66 O?~ "90
Ol09
Oe93· OM· 0922 1107
0·59 0460 046? OM4 ·eo
0961
0036 0"2
006? 0079 0069
0846 098? 0990 0525 076?
060T 08?8 024'?
0626 016? Oltl
oe·T 0990 0991 0543* 0585 0610 0631
0284
0?99* 098a. 09·
· · · · ····
!
i .·.
i
· ··
US.69
l4'A
06?9 ~· 0681 0682 0690
PROG 10 f»AGE
·
-·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
I B.. MA I NTEHANCE DI AGNl!STI~ ...GaAN FCl!l' tlOVE FC? MICRO-CODE FROM OJAG PACK 1'U SYS PACK llDD 15
Qtet1 41234269
111AIJITEMNC£ 01ACiiNDSTIC PllDCRM
15
....,..
SY"80L T LEN VALUE OEPN
59
A 002
TABLE c 001
TABLES A eot
TM15 A OC6
TRYAGtt " 004
TW
A OC2
UOT
C OCll
UNPACK c: 001
UPCYLH A 005
WORK A 002
WRITE " 004 WRTU ,. 001
XKFCX c 001
XLC
,. 0Ct6
XMSGl A 001
XMSG2 " 001 XMSG3 A OCH
XMSG4 .. 001
XNE
A 002
xs;1
c 001
18.-C 2001 120F
OCt? IOF5
1172 0232 021£ 13A9 1129
112C 11ot0 2004
OE38 1754 177£ 1783
17E2 OF&F 0001
1111 1109 0824 0115 0579 0653 1144
1141 0895 0597 0605 0616 1110 0303 1074 1081 1084 1087 0384 1126
c
,. Xli2
c 0(11 0002 1127
Z!
210
Zll
Zl2
ZUI
Zt· ZI& Z2 Z3 Z4
Z9
ze
Z7
ze
Z9
a c-01 A 003
· 003
A 003 A CCII
A 003 A 001
A 001
· 001 A 003 ,. 003
A 003 A 003
·on
A 003
1131' 121A 1210 1239 1249
llA6 llK llSC 1163 1188 1198 llC? llCA 1103 1200
0608
O'TSl
O'PU
01'63
OTM 0696 0611 0632 ff39 0'704
0709
070· 0'710
on·
0'732
c
0114 033?
0851 0112
0986
OUM
0852
099'
0883
013. .
0341
0609*
0108
0305
0161
0263
0267
0160 0178
0396 040!5 0420 0427
0161· 0167· 0168 Ot7C
0300 0300· 0332 0333
0396 03f;6 039? 039~
0420 0421 0423 042'?
063~ 0692· 0693 0699 G?36 0740· 0'143 0846
0871 0872 0874 0876
0904 090e 09oe 0911
0183* 0184· 018!5 0186
0283· 0289 0390· 0394
04!8 0495· C496 0500 0613 062E· 0627· 06Zt!
0691 0?12 0738 0772
08615
0692 0693
... OTU 0'716
01'41· 0751 0772 0773 0867
069E
0"11~
0753 0'173
1092
1101
1102
ll03
UM
1109
1106
1093
IOM
IOW
1096
I Cl9I'
1098
1099
UDO
0213* 021.. 0215 0217 0240· 0241
01789 026~ 026?· 0284· 028$
0337· 0338 0387* 0388 0389 0405 0405 0406 0408 0409
0·27 0428 0430 0431 0496 0700· 0715 07US 0720 0'?23 0847· 0849 0850 CB50 0853 0878 C882 0885 0886 0891 H11a
0293 OHO 0413 0497 072·
oase
0895
.,...,. 0296
0391 0414
0298
0392
0420
MM
0729 0729
0867 0869
0898 0902
0186* 0187· 0189 0191· 023541 0241 0245 0245·
0401 0403 0406 0407 0407* 0408 0413* 04U6
050. . 0604 060~ 0607 0609 0610 0612 0612
0629 0631 0633 0634 0636 063..,. 0689 0689*
069'1 0698 0700 "704 0706 Ol'Ol' 0709 OTtl
0719 0720 0724 0725 0?25 0729 0732 0'734
075·
ems
0763 0788
0765 0851
0766 07'66 0852* 0855
0767 O??O
085!Mr oese
0'?70*
oess-
0
PAOii ID PAR
·
·.n!C'f CARD LISTIM
tWD1CA11!5 A BLANK CGLU· ANO THE CllMACTERS D E M INDICATE ..,,..IC SlllP'I'·
1 TIMOUGH 16
.-.···
G8k Ci80 PN 42
· BSC ·T+-Z5UOOK8"1DP!'3 ·T+-OO·*BG SHl-3· -· T+-..l'OHE ss.x<e
,·.T+-SW2>N a_..ua.c
·T+-_,gc.,,AO·Jec+I
CL 1? THACIUCiff 32 3&264 EC 625023 ··:
·Fna#e ... ,··--
B -72DA88.A HIOA GBV!S 8>TS88PM£<T
061eC38-t..0·~5>l.
CL 33 T....,.. 48 FC7 MICllO UPDATE
£04' goa &DA IVO
·
-S-72UD08H Y+OI ·· CCHOeYtHGFO A8UCBS>IMc+1HlllC
NICCT2CGTc+eS9UC
a.. 49 TMIDUlitt M A 1··1s. .......AGOO
8H 't+OA ··<eGB-U S· lt.~GN1DC38.....
· 210CAS·~ 8>··£1·
CL 6S '1MlllUllH 80
··-··········· · ·
'°" ICEYaMOTWlt _.,
. ~·
'OHE TCe e<B& n
eA MICI ··0C890 OS<L1e_1 l<llF2lP
21t1CPs_v ·..._··DA
CL 81.,...... ·N
....... .
,
·
-·- lltFC800H1
. ....
SAS llE8PC800002
..·2< 1-.c:aoooo3·
EtD &CYPC8000M
...
·PD oa·ceooooe-
T+-'fPSSSAt·SNCOS
·T+-Ott6·XYtMC2"4A
·T+-ICCeMa. 0 C>O
·T+-2M SHl·3 DICU
I-·T4-3CltYIKO-OPOTD
0
1··.T+-....._ <.1Dt
·- j'
T+-49+8 ...,..tCV.B
,.l
T+-154AS9G· ,,,A&1V
il .I
··
T+-6'1-...,. ISllDPC
I.I
j
T+-70-AC<OM*f28H
,I.·1 T+-8VC ~·C
,ie.l
T+-9-L&lil'e5e2-l!'f
I t T+-:sOM-.~_s
,.FCS-Gj DATI! ! · IS I A;EC ..,. !
......,..,.
829023
- ..
IDtM:BF-Dlf'EP l'OM
. -
I ·1tBS SHl·HG I'S
£CXEHPU<TA48C
EASWJ OEl!SttPCL3
. ...
C5>LLIDC'45>1 ISX
. -
·I""' -afMACLO.JC_a
· t<CHET30FM'f ,Ott
y e>I ESDCPO* IKS.(. -.u·o.·caooooe,
..C D eeaPC800D09
-·
·
l
·cfg ··~eooou :
.. - . .
t< .IHGO ADZI· ~ ·1SPCeooe1e
· SO!STMO· xttul Pe oc1a ...-raooo1Y
WOM*.ILTO<ESC·-oc
. -
>CDMJ..aG SHl-*tl
E~CS949'PCMCF2JI
.a-a··...WGD0018 . . · , ....a..ceooo1·
egco 3 IPC80002G;
flee-o, l9A;
. ~
·
-··-- ___ ____.
.
.;.,_
..
I Blf ·AINftN&NCE DI A9IC!ST tC llRGGllAll
,. QUiii UM26St
·Al~NCE DIA-TIC llRGCllA·
... ...... ,.PART lllOo
,
FC9C
..WE FCT ·ICRa-cooE AIClll DIAG PACK TU S"IS PACK 11C8 IS
ae.-a CAM LISTI·
CL I TttrmUGM 16 CL I? THAIJU&tt 32 CL 33 Tl4ROUGlt 48 CL 49 TttAOU&H M CL 65 ~ 80 CL 81 ,.....,.... 96 .CL I TMRDUGH 16
CL 69 TMROU8H BO CL 91 n . W M
. . I · . T+-«J5fllCD2 I a U.+f
·
· ·
A4'f009GTl·.I 8·R
. -·· e .. -· .. . . . . T+-a.M!lll· "£58G4 £<89CWOe Ah.(CD - LCAC'IOC-llM C llDSCoo+·'°.CO
f 1-SU MfJFC800021
·
I
Gtt-e LL<FC8000221
· · ·· ·· ·
T+,ITaY-a.- AD_· 8 .leX~ &a'IOl'IM
nz·a.o ·eo_·· ·
· · · · ,,.._C· ftlEOl.O 90_3 .1 I ·L 90>· < M P..CMOO·I
D+._... T+nT6.le'l'C N6lo ZC N?AoC~ ,._A"
o EE-Ma a
~
e--M·aGHE en,..
·
+OOMf IH GHAT
·
ARA n·C900046
· TSUCSl+aTl).I Se&
- ··: oMFC800023
'T+l'.n ..~18<8.IP
.. ··
T......lt. ao-otc.x.s M;?llBAGPMUA y. ......-~ 8-0GP-C
··
I
..... aYDO'RJll .,.., SP- OSOFC800024j
·
·
T+""'2AICNCM~C30 AE108 .IPPO-Y...TG 4'E tC32 ca2.1aa-v .......-1 · "c·..,.
. .. '° ,'·. - T+-·BAOM -SS -e
... e .- 'T+-·· ,5.ISA xc.n-
e . T+, 81TMCCTP D(e
r···.. ~
... . .. . ,· ~+,A311EOC DCM3t
()
· . T·'8>0(0!0AC11a1e
r...:.....,.
. - ... ...... .. . · . ............. ................ ·.......·... ..... T+~Z SMI:<8CCMO
.. ..·....... ....·........... .........·...... ................ ................ ..... 0
· T+,OUl,,Ce< .IS IS.TO .... . ·- . . .. . . . I· .. . {;;
4 -u,,3.s -.n "
48 ·ao"·f91tBG ~ CSOAatetCA.,.._
· ·
.letf*&UTS 0<32U Q
:-aeo<aoa.6l<o ae
·
CDCDSOACNal-M1
MCtl1'8 '81....a.o
~
ttG·t'00.5 I l'IAl!ft
PD'98, FGM.atf'l'JI
·
MIT> D<S2A2UaA~
'IO-MK-10 · ..C+C<X '°WL( -
sc.a AS U
Ot"·AJ'Tlll C(P /le
cnaG,I D> .1a.n~
· a~s -c; ' ' "
SeCS DCS UA&c+e
R M-AeT o.a
·ea. .tlas ca 1£
··
~cu T
P-O
· ·
49ACllf0 tr'0289l8 . . .l~C40
Do-tUOSCMEsnt s
oct ·· os·caooozs 1
·· ·
I
8-A ?8 FC8000261
· ··
I
I a :z<Fcaooo2T1
·
t<.1· 3-0FC800028
OH· :-*FC80002~
ff·30 SSMFC800030
f Cll «AFCSC0031 · .., 1· .-rcaooo3a
.. . ..... .. . . ...... ... .... ..... · T+~a".....Aeetl 8 C '9
D
D
fe...IAoDal
· .... a:Of'ceo0033
T+A·Z I MiCOOLePO
T+,·fl·GHECQISAP T+,..Me-Lse<.v...T+l'Ol!21Pl!COC2SCP T+.IP O·J 2<1E MOC
G·,.e+,Nas-...ca~ a<AMll;tNa<<·ce<e
·
·
~Ot«IFAQEEUo l'OH E-14N&S8G IDF<Mt
·
·
· ·
X9·CAl*GCC<LIO·) 8>IA..._SC<oY88P S5GIRUIA &<LH_t UV Qlt8PC. . . . .
· · · fll2 u caTEe· 1 &OA
· · ·
CDA SCA CO· &OA
·&DA·&0· ~11v
. . , .· - . . - c e e o o e o :
. OSCLAS-.leC<GF8eP R&CU ··ceeeoet,
T+.IP·l1"i~<LIO·) O·LDEt·tit&IPeEUS 0 0
Ma o
s..wc:eooou i
TAl'QB
D
·
T+l;E
·
T+,... C.(PAS<N S ·
· ·
SD:A &DA ftXl..44C
s:+oTll.t UK.UC ·HfttStlCCBLl!CDC
· oo_...., ·......·
aeaa=eoa· 1exv1ac · ·
211 --...01..
it4111CeeOOSI-
!
\
T2<·.EC8PCHllM:
t.
~
!
A9t< ·IM'Ceel. . . i
c -· -. · .- · · T+'9N_CF~ +.I <B
lo-M R81FC800034
T+,..,.84CTSVA OS't
·
AS01 211 1exv1··
·e· I ao··e>T989P
.,,," 9IMl'C90GOfl6 ;
c - . ."* .... .. -- - ···
- . - ,I·. ·· . r:-:.T+;ote- es& ..._.. MttMDe:o l'te..
aaft.1-oex Bti ea
1'151t +· A4AS£0 L·:
8EM..1008eE9
xo-o. . ._ . < 8 0 0 0 3 9
T·.f-6E4CPS>·E6C
H_&H.·JllFC800036l f/IT+l',101<.JC AHIE0,4
·
·
I
.
U94CD21oK&CGNIDC
P6·PS8UCE9lfE611C
·
·
C!SMCT2<11 . . .?·4S
· ...· e_..· e-.l!o&+.
·
SO-T ~:
;
··~~·r
. '
l·MSG SHI ">&GHCL
6...o 194FC800037: T4·'5S6·XG2+l llS>o
N+toctan.eMC HOt ITc+las<IOS1 I 191LE2*A 8>Tseatl' e&C· Sl*"CllOOOS9;
·
·-
....... <e
. -
G ,OC<l<lO....HYX
·
·
t · HY· 09DFCBOOO~el
.. '1·. . : att··.IH4FC800034
T+l'TX1t·IKS(~lo·x T+NS·7088TE61S
18SNec+·E84CDOCf
E84CDOllA&···&I"
· ·
·t·Ct&CfMGIVo~CG TCCO 30 PC800061.
· ·
VC 0 -....c~
T+l'Vl g+ f!S<N 2lN l·eCl<XC&CfOl<N
2<GL&al l'IE-ITR 0'" :s.GFC800l'U
·
T+,UC>"f.JtleO ··
··
.,..
cac:M&c_·80·I
au Is·-.tea· tac I
·
S -HS AU 0- A 8
I
·
.... ee Ate L2t) '" J
· G
.... I ·
e
DP
·· ~4'FC8000411 T+~<PAO&' 09T
kS_.C800042i T+l'XL9<XttOlfES<S-
A6·- 211 l)PTtlX
EICTllO;l.SCPAS<N
2
·
;1
·ucca<aAIC.a
·
·
0_1ae11 911-....c TltU G81FC800063
· ··
C.CX£8>fA6U 8R UM ·.l&PC80Clt64.
DATE
........
ECMCH U90a3 ·;._.
NOS ID PAGE
i · PC&-0 I DAT£
i 16 . K m.
26.IUll"IS U!SOH
..ce-o< HA
1.
I
·
l·
l·
..J.
·
···· ····· ······················
1~M MAINTEN~NCE DIAGNOSTIC PROGRAM
FCSO MOYE FC7 MICRO-CODE FROM DIAG P~CK TO SYS PACK MOO 15
OBJECT CARO LISTING
CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH "8 CL 49 THROUGfol 64 CL 65 THROUGH 80 CL 81 THROUGH 96
T Al'XEO · SR6*PC80 T .1"'"'8TO
·.......·...·.·.
···········o···· ··············o·
·····oeeeQa····o
················
o·······soeeo9ee
~·~····~·····o·o
··a·eE2HFCt.'100065
................ ·········*······ ................ ··········****** ··$············· ..... FC800061'
· THIS l='ROGRAM COPIES THE FC7 M ICROCOOE TO A ~y STI:M PACko IF T HE SYSTEM PACK
s
FC:800068
* ON A 3340. IT ·UST BE ON 02 A ND ~l AND Fl WIL L REFER TO THE ! 340 SIMULATl:D AR EASe* FC800069
~ THE PROGRAM W ILL FIRST CALL I N 893 ·NC CAUSE THE FC7 MICRO CO DE TO BE LCADEDo
JS !NSTALLEC .. KE Y IN THE Rt:QLIEST ED INFORMATION A NO · FC800071
~ INPUT lT av D EPRESS1NG Et-!TERo
OTHERWtSEe FOL LO~ PRINTER tNST RUCTION~ ·NO SUP Pt..Y ·
i> DATA THROUGH T~E CONSOLE SWtT CHESs
~ CAUTION
UD T MUST BE CORREC T BEFORE RUNNING
c
llSC R A SC
'
c
DAT£
26.IUN'Pe
EC HO. 829023
c
£"'"'-
~
,,.·.,
LAST PAGE
.., __...~........._i
PROG 10
PAGE
FC&-0 t' 1
I
_L._
_,I · - - - - - ~-·-·-------- - ·~---·--------·----
.,································· ,
Acrobat 11.0.23 Paper Capture Plug-in