8_2821_MDP 8 2821 MDP
8_2821_MDP 8_2821_MDP
8_2821_MDP 8_2821_MDP
User Manual: 8_2821_MDP
Open the PDF directly: View PDF 
.
Page Count: 131
| Download | |
| Open PDF In Browser | View PDF |
---It
----
•
lAbLt Lf
CLNT~Nl~
PAut NU.
VUL~UUd fU~
ld211 001
PAKI NO. [C NO.
HILt
SH
Co0012.1S-
fS04* 2d2i-2540
282J.-2540
F8U4
F80S 2d2J.-2.540
fdOo 202J.-2540
faoe* 2021-1403
fdOC 2d21-1403
C8001:>.J.5-
fBOD
080005.1j-
(80000.1;'C80012.1:::>*
FA~TDRY
MLC
on
DATE 150£T68
fEATURE B/M OR SIMS
7
DIAGNDST1' MANUAL
(80004.1:>*
(d0004.15-
-14416 MUDE M3 KQST BY
SI..AN PRU\;" DESt.
.• w.
.w.
.w.
.w.
.w.
.w.
.w.
OB402.57 125643
CIRL 08402.58 i25643
L.i"i,'4L REb
BUfftR ADDRESS
perl XLATOK uV'-Y : :>
oC~ 5t.AN uESt.
ucs SCAN RTN 1-2
s('AN RTN 1-2
U(,S
Ld21-14J3
AND
0840260
0840474
0840222
0840223
0840225
125643
125643
i.25655
125055
i25b55
0840128
0840128
0840128
0840128
084012.4
0840124
0840124
-e
---
It
e
e
---e
It
--e
e
,
-I
-i
I
t
Ie
i
i
I
"J
i~
~=,
e
e
--
I~
j
1
•J
I1
tit
--
JUTAL PA(ES THIS VOLUME
-
--
--.~-----.~
.. --
~.---
--------.-----
TUTAL PAGES THIS MACHINE
7
--~. ----....--~--
--'""-~---.-
.-.-----.......
----~
62
.1
,
-~1
/
IBM MAINTENANCE DIAGNOSTIC PROGRAM
I
PIN 84U257
PAGE
1
2821 - 2540 READER PUNCH SC,AN
i
I
PAG'E
FB05
. . ..
i
'1
2.
i
3.
PURPOSE • • • • • • • •
1.1 INTENT.
1.2 MODIFICATIONS
• • eo • •
PREREQUISITES ••
2.1 P,ROGRAM • • •
2.2 EHu.IPMENT • • • • • • • • •
USE P~UCEDURE • • •
3.1 ~DING • • •
3.2 q)iERATlNG
3.3 4AOGRAM HALTS
3.4 RROGRAM TERMINATION..
• ••••
PRINtOUTS • • • • • • • • • • • • •
• ••••
4.1 .TITLE PRINTOUTS
• •
• ••••
4.2 INSTRUCTIONS TO OPERATOR
4.3 ERROR MESSAGES • • • •
,I
ri
I"
I
5.
COMMENTS, • • • • • • • •
I
6.
5.1 ROUTINE OESCR IPT IONS.
APPENDIX • • • • • • • • ".
!
1.
I
**NOTE**
3.
'j
LOADING
ST~NDARD
3.2
INTENT
OPERATING
3.2.1
GENERAL OPERATING
THE READER AND 'PUNCH MUST BE MADE READY BEFORE RUNNING
THIS PROGRAM. THE PUNCH MUST BE LOAOED WITH AT LEAST
20 BLANK CARDS PER PROGRAM PASS.
PREREQUISITES
2.1
2.2
3.2.2
PROGRAM REQUIREMENTS
THE
THE
THE
THE
PROGRAM
PROGRAM
PROGRAM
PROGRAM
SENSE SWITCH USAGE --COMMON TO ALL ROUTINES-THE'SENSE SW ITCHES SHOWN BELOW ARE IN THE SENSE SWITCH BYTE
OF THEIR RESPECTIVE SECTION PREFACE. THE CHARACTER X REPRESENTS
THE RELOCATION FACTOR CONTAINED IN REGISTER 15 DURING RUN
TIME. THE SWITCH BITS ARE ZERO WHEN OFF, AND ONE WHEN ON.
IS RUN WITH A DIAGNOSTIC MONITOR.
ASSUMES THAT THE CPU & CHANNEL ARE OPERABLE.
ASSUMES THAT I/O COMMANDS ARE OPERABLE.
IS RELOCATABLE.
----------------------------------------------------------------I SENSE I
I SECTION I BYTE
EQUIPMENT REQUIREMENTS
I
PROGRAM LOADING DEVICE
HARD COpy OUTPUT DEVICE
CPU - OPERABLE
CHANNEL - OPERABLE
8K MINIMUM STORAGE
2540 READER/PUNCH
2821 CONTROL UNIT WITH FOLLOWING REQUIREMENTSCONTROL CIRCUITS FUNCTION PROPERLY.
ERROR CHECKING CIRCUITS FUNCTION PROPERLY.
READER & PUNCH CAN BE MADE READY
2.3
I
.I
'I--~--
DAlE
EC
I
3.2.3
I
I
2
UTILITY ROUTINE SET,UP PROCEDURES
WHEN THIS ROUTINE IS ENTERED, AN OUTPUT !'lESSAGE WilL
INFORM THE C.E. TO PRESS CONSOLE STOP. THEN ENTER THE
~COPING DATA.
THIS DATA IS TO BE ENTERED, IN HEX, VIA
THE CONSOLE SWITCHES AS INOljd\TED BELOW •
1
I
I .
t-------------------..----...-_-.,.---...;J
J\.YTE
Hl
PAGE
DATE
EC
FB04-*
1
"
j"
"
THIS IS A RESIDENT ROUTINE. IT CAN ONLY BE ENTERED AT
THE BEGINNING OF EACH ROUTINE OR AFTER THE ANALYSIS
RESULTS AND lOG OUT PRINTOUT OF EACH ROUTINE. THIS
ROUTINE Will BE ENTERED AT THESE TIMES IF SECTION SENSE
SWITCH 1 IS SET TO 1.
•
.
ASSIGNMENT
OBJECT DECKS ANO ASSEMBLER PROGRAM
1 'LISTINGS FOR ROUTINE OVERLAYS
1 01 AND 02.
I
·1----1---------------------------'-------1--------1----[
6
I OFF--PROCEED NORMALLY
I
I X004
I
I ON--PRINT SECTION TITLE
I
..
I
6
-----------------------------------------r--------------------
I
I WHICH INCLUDES ALL ROUTINE OVERLAYS. I
I ----~ ....-I----.. -----------------------------.-- I·
F8D4
I
OR
I AND
I ROUTINE I BIT
I ON--LOG OUT DATA ACCUMULATION TABLE
. 1
1-----1---------·
-----------------------1I
I
F804*
1 DESCRIPTION OF COMPLETE PROGRAM
1
FUNCTION
I
I ON--ENTER UTIl ITY SCOPE ROUTINE
I..
I 1
I --!----I---------------------------I-------- 1----I
2
I OFF--PROCEED NORMAllY
I
I XOD4
------------------------------------------I'
I
I
I
I
1------1----------------------------------------1---------1---I
0
I OFF--PROCEED NORMAllY
I ENTIRE I X004
I
I ON--SHORT lOOP ON START [/0 - TEST [/0 I SECTION I 0
1-------1-------------------..,.------_-------1
______ 1I ___
_
I
1
I OFF--PROCEED NORMALLY
I
XOD4
TO MINIMIZE MAINTENANCE COSTS FOR FUTURE PROGRAM REVISIONS
DUE TO ENGINEERING CHANGE ACTIVITY, THE FOLLOWING 10 NUMBERS
HAVE BEEN ASSIGNED TO VARIOUS PORTIONS OF THIS PROGRAM PACKAGE.
I
SW.
I
PROGRAM IDENTIFICATION NUMBERS
I ID NUMBER I
VIA OM AS DESCRIBEO IN THE USERS GUIDE.
SINCE THIS PROGRAM PACKAGE UTILIZES THE PROGRAM OVERLAY
CONCEPT, All ROUTINES MUST BE LOADED AND RUN IN 10 NUMBER
SEQUENCE.
TO ISOLATE A SOLID DATA PATH FAILURE WITHIN THE 2B21 -- 2540
ATTACHMENT.
2.
THE SEARCH NUMBER FOR THIS PROGRAM IS BOlo-80S AND B06 CAN NOT BE USED.
USE PROCEDURE
3.1
PURPOSE
1.,1
I
I LISTING FOR ROUTINE OVERLAY 05.
I
--------------------------------
..
I"
I
OBJECT DECKS AND ASSEMBLER PROGRAM
LISTINGS FOR ROUTINE OVERLAYS 03
ANO 04.
1---'
---1---------------------.
---II ." .
I
FB06
I OBJECT DECK AND ASSEMBLER PROGRAM
~
I
J
PIN 840251
PAGE
1A
2821 - 2540 READER PUNCH SCAN
TABLE OF CONTENTS
t
IBM MAINTENANCE DIAGNOSTIC PROGRAM
15JUL65
124265
0
17MAR(;6
125643
1
2
3
ID
FB04.,.PAGE
1A
J
r-----j
I"
_ _ _ _ _ _--'_ _ _ _ _" _ _ _ _ _ '_ ____1
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PIN
PAGE
840257
2
2B21 -2540 READER PUNCH SCAN
BIT
GRB
01~34567
01234567 01234567 01234567
I
I-OP COOEI
I )--SLI flAG, BIT 2
I
SEE I
•
I .--SKIP FLAG, BIT 3
I
I
6.1 I
,I
1------------1-----1--------1
I
I
I
I
IF THE OPERATOR REQUESTS TO USE THE BUILT-IN UTILITY
THE PROGRAM WIll lOOP TO WAlT FOR THE t.E .. TO
PRESS CONSOLE STOP --REFER TO SECTION 3.2.3 FOR DETAILS
CONCERNING THE BUILT-IN UTILITY ROUTINE.
ROUTINE~'
I
I
I
t--CCWCOUNT--I
1110 ADDRESS-I
I
I
I
3.4
I
4.
PRINTOUTS
4.1
-2~21
2.
SET SECTION SENSE SWITCH 0 TO 0 TO PERFORM THE
SELECTED OP ONCE. IN THIS CASE THE UTILITY ROUTINE
WILL PERFORM THE SELECTEO OP ONCE, THEN REQUEST NEW
SCOPING OATA.
3.
•
-PUNCH XLATE FLTA80VE PRINTOUT IS T,HE TITlE PR.INTOUT FOR ROUTINE OVERLAY 05.
4.2
INSTRUCTIONS TO THE OPERATOR --COMMON TO ALL ROUTINES--1/0 ADDR X'XX CAW YYYYYYYY GOT CCICSW STATUS 0200 SNS 40-MAKE THIS UNIT ROY WITH 8LANK CARDS-
NORMAL HALTS
ABOVE MESSAGE WILL 8E PRINTED IF INTERVENTION REQUIRED IS
ENCOUNTERED WHEN TRYING TO EXECUTE AN 1/0 OPERATION.
XXX DEFINES THE UNIT ADDRESS ANO Y--Y DEFINES THE CHANNEL
ADDRESS WORD DATA. THE PROGRAM WILL LOOP FOR 20 SECONDS TO
ALL,OW THE UNIT TO BE MADE READY. THE MESSAGE WIll BE REPEATED
EVERY 20 SECONDS IF THE CONDITION IS NOT RECTIFIED.
ERROR HALTS --COMMON TO ALL ROUTINES--
4.3
SPECIAL HALTS --COMMON TO ALL ROUTINES
ERROR MESSAtES
4.3.1
THE PROGRAM WILL ONLY HALT ON THE SPECIAL HALTS
IF THE CORRESPONDING SENSE SWITCHES ARE SET.
ERROR MESSAGES COMMON TO
'-1/0
HALT AFTER LOG OUT OF ACCUMULATED DATA
15JUL6S
17MAR66
124265'
l'l5643
() 0' 0
O·
0
1\,
"_
v"
o
10
F804-.
PAGE
2
000000
A~L
ROUTINES
ADDR XXX CAW YYYYYYYY GOT CC 0 BUT NO lNTERRUPT-
ABOVE MESSAGE WILL SEPRINTED IF NO 110 INTERRUPT OCCURS
WITHI~ 10 SECONDS OF RECEIVING CONDITION CODE 0 TO AN
1/0 OPERATION. XXX DEFINES THE UNIT ADDRE~S AND y--y
IF THE OPERATOR 'REQUESTS THE LOG OUT OF THE ACCUMULATED
DATE
EC
~3.
ABOVE PRINTOUT IS THE TITLE FOR ROUTINE OVERLAY 04.
SET SECllON SENSE SWITCHES 0 AND 1 TO ZERO. IN
THIS CASE, THE SELECTEO OP WILL NOT 8E PERFORMEO,
AND A BRANCH BACK TO THE MAIN PROGRAM WILL OCCUR.
THE PROGRAM WILL NOT STOP ON ANY ERROR HALTS UNLESS THE
HALT ON ERROR SENSE SWITCH IS ON IN THE DIAGNOSTIC MONITOR.
3.3.3
'j
-READ XLATE FLT-
NONE
3.3.2
,.
ABOVE PRINTOUT. IS THE TITLE FOR ROUTlNE OVERLAY 02.
ABOVE PRINTOUT IS THE TITLE FOR ROUTINE OVERLAY
HALTS
3.3.1
-2821 SCAN/254,0 ATTACHMENT, CONTROL PROGRAM
-2821 SCAN/2540 ATTACHMENT, BUFFER ADDRESSING FLT
THE C.E. CAN EXIT FROM THE UTILITY ROUTINE BY PRESSING
CONSOLE STOP AT ANY TIME, SET SECTION SENSE SWITCHES 0
AND 1 TO ZERO, THEN PRESS CONSQLE START.
3.3
SCAN/2540 ATTAtHMENT, CHANNEL REGISTER FLT
ABOVE PRINTOUT IS THE TITLE FOR ROUTINE OVERLAY 01
AFTER THE ABOVE DATA HAS BEEN ENTERED, THE C.E. COULD
SET UP ONE OF THE FOLLOWING OPTIONS BEFORE PRESSING
CONSOLE START.
'
SET SECTION SENSE SWITCH 0 TO 1 TO PUT THE SELECTEO
OP IN A TIGHT START 1/0 - TEST 1/0 LOOP.
TITLE PRiNTOUTS
THE FOLLOWING TITLE PRINTOUTS WILL OCCUR ONLY IF SECTION SENSE
SWITCH 06 IS SET TO 1.
SIO INSTRUCTION -- X6C6 THRU X6C9
CAW -- X048 THRU X04B
CCW - XOE8 THRU XOEF
DATA FIELD -- X234 THRU X2E7
1.
TERMINATION
THE PROGRAM RETURNS CONTROL OF THE SYSTEM TO MONITOR VIA
MONITOR CALL SVC 06.
NOTES--THE FOUR BYTES OF DATA ENTERED IN GRB WILL
BE RIPPLED THROUGHOUT THE CCW DATA FIELD.
~IF THE CCW COUNT EXCEEOS 180 BYTES, THE ROUTINE
WILL FORCE IT TO 180.
--THE MAIN STORAGE LOCATIONS OF PERTINENT FIELDS
USED BY THIS ROUTINE ARE LISTED BELOW. X DENOTES
THE CONTENTS OF GENERAL REGISTER 15.
J
840257,'
' 2A
HALT TO SET UP INFORMATION FOR UTILITY ROUTINE.
t-----CONTENTS OF OAT A FIELO-----I
I
PAGE
DATA, THE PROGRAM WILL HALT AFTER THE LOG OUT. IN
ORDER TO CONTINUE, THE CONSOLE INTERRUPT KEY MUST BE
DEPRESSED.
I
I-----~-------I----I------------I
GRC
PIN
2821 '- 2540 READER PUNCH SCAN
I
GRA
IBM MAINTENANCE DIAGNOSTlCPROGRAM
o
DATE
EC
0000
15JUL65,
124265
o
17MAR66
125643
0 0 0', 0 0
10
PAGE
0·· 0"
O',~:',
'0"
0 0
:\",:,"
F804-*
,2A
")
C,
,r.)".
r
__ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 8 0 0 0 0 0 _ 0 8 _ 0
IBM MAINTENANCE D,I.IIGNDSTlC PROGRAM
PIN 840257
PAGE
.3
2821 - 2540 READER PUNCH SCAN
,~~DR
THE ,PROGRAM
ABOVE MESSAGE DEFINES FALSE PARITY CHECKS.
-ERR 015AlBOVEMESSAGE DEF INES FALSE PUNCH TRANSLATE CHECKS.
XXX CAW YYYYYYYY GOT CC U CSW STATUS VVVV SNS ZZ-
WILL BE PRINTED WHEN UNEXPECTED UNIT DR
STATUS IS RECEIVED IN RESPONSE TO AN I/O OPERATION.
XXXQEFINES THE UNIT AODRESS1 Y--Y DEFINES THE CHANNEL
ADDRESS WORD DATA, U DEFINES THE CONDITION CODE --0 OR 1--,
VVVV DEFINES THE UNIT AND CHANNEL STATUS, AND ZZ DEFINES
THE SENSE DATA. THE PROGRAM WIlL RETRY THE I/O DPERATI ON.
-ERR 016ABOVE,MESSAGE DEFINES MULTIPLE ERRORS -COULD BE FALSE
TRANSLATE ANDIOR FALSE PARITY ERRORS.
-I/O ADDR XXX CAW YYYYYYYY GOT CC U-
-ERR 018ABOVE MESSAGE DEFINES READ BUFFER OR DIAGNOSTIC WRITE
PROBLEM.
ABOVE~ESSAGE
CHA~L
-ERR 017-'
ABOVE MESSAGE DEFINES FALSE PARITY CHECKS.
ABOVE MESSAGE WILL BE PRINTED WHEN CONDITION CODE 2 OR 3
IS RECEIVED IN RESPONSE TO A START 110. XXX DEFINES THE
UNIT ADDRESS, Y--Y DEFINES THE CHANNEL ADDRESS WORD DATA,
AND U DEAINES THE CONDITION CODE. THE PROGRAM WILL RETRY
THE 110 OPERATION.
-ERR 019ABOVE MESSAGE DEFINES INTERMITTENT FALSE READ TRANSLATE
CHECKS.
.
-DIAG CK RD UNIT XXX NOT OK, WILL TRY AGAIN-
-ERR 020ABOVE MESSAGE DEFINES INTERMITTENT PARITY CIRCUIT PROBLEM.
ABOVE MESSAGE WILL BE PRINTED IF THE DIAGNOSTIC CHECK READ
COMMAND DOES NOT TRANSFER DATA TD THE CPU. XXX DEFINES
THE UNIT ADDRESS. THE PROGRAM WILL 'RETRY THE OPERATION.
~.3.2
-ERR 021ABOVE MESSAGE DEFINES MULTIPLE ERRORS.
ERROR MESSAGES COMMON ONLY TO ROUTINE 02 --CONTROL PROGRAM--ERR 001ABOVE ,MESSAGE DEFINES AN ADDRESS REGISTER PROBLEM.
-ERR 022ABOVE MESSAGE DEFINES DATA REGISTER OR READ TRANSLATE
PROBLEM.
-ERR 002 THRU 004••RESERVED ••
-ERR 023ABOVE MESSAGE DEFINES MULTIPLE ERRORS •
-ERR 005ABOVE MESSAGE DEFINES A CHANNEL REGISTER PROBLEM.
-ERR'024ABOVE MESSAGE OEFINES A PUNCH TRANSLATE PROBLEM.
-ERR 025ABOVE MESSAGE DEFINES A'PIINCH TRANSLATE PROBLEM.
-ERR 006ABOVE MESSAGE DEFINES PROBLEM WITH BUFFER INHIBIT LINES
ANDIOR CONTROLS OR SENSE AMPS WITH DATA CHECK.
;-ERR026ABOVE MESSAGE DEFINES A FALSE PARITY CHECK PROBLEM.
-ERR 007ABOVE MESSAGE DEFINES A CHANNEL REGISTER PROBLEM.
-ERR 021 THRU 029"RESERVED."
-ERR 008ABOVE MESSAGE DEFINES A PROBLEM WITH BUFFER INHIBIT LINES
ANDIOR CONTROLS OR SENSE AMPS WITH NO DATA CHECK.
4.3.3
-ERR 010ABOVE MESSAGE DEFINES A FALSE READ TRANSLATE PR08LEM IN
READ TRANSLATE CHECK CIRCUJTS.
FALSE PUNCH TRANSLAl'E CHECK.
-.ERR 032CHANNEL REG -0- BIT DOES NOT TURN ON
LOGIC PAGE 32.11.12.1
CIRCUITS -81009, BID11t 81Al1
LOGIC PAGE'32.11.21.1
CIRCUITS - BIH02
-ERR 0;13. ~,oli£ MESSAGE .DEF lNES -MW- TI PLE ERRORS -COULD BE FALSE
~H ANDIOR fA-LSE tlEAD~TRANSLATECHECKS.
.
-ERR 014DATE
et
UJUL65
t24265
17MAR66
125643
REGISTER BITS WILL TURN ON
32.11.12.1
BI010. BIE09, BIA12
32.11.13.1
81E12, BlEIl, 81002
32.11.16.1
81C04, 81E18
-ERR 031.,
NO RESET TO CHANNEL REGISTER
LOGIC PAGE 32.11.13.1 '
CIRCUITS -B1ElZ,HIE11, 81D02
-ERR 011:- '
ABOVE MESSAGE DEFINES A DATA REGISTER PROBLEM.
A
ERROR MESSAGES COMMON ONLY TO ROUTINE 01 --CHANNEL REG FLT--ERR 030NO CHANNEL
LOGIC PAGE
CIRCUITS LOGIC PAGE
CIRCUITS LOGIC PAGE
CIRCUITS -
-ERR 009ABOVE MESSAGE DEFINES A PROBLEM WITH PARITY BIT INHIBIT
LINES OR CONTROLS OR PARHYSENSE AMP. COULD ALSO BE
INTERMITTENT PARITY PR08LEM.
-ERR 012'A,BO.v.E {\\;ES~A,,~.e DEFINES
PIN 840257
PAGE
3A
2821 - 2540 .READER PUNCH SCAN
DEFINES THE CHANNEL ADDRESS WORD DATA.
WILL 1t6T,RY THE 110 OPERAT;IO~.
-110
IBM MAINTE.NANCE DIAGNOSTIC PROGRAM
10
F804-*
PAGE
3
DATE
EC
1!>JUL65
124265
17MAR66
125643
10
PAte
F80~-"
3A
-----'-----------------------------...:...-----------------------------".,
_, _ _ _ _ _ ~. _ _ _ _ _ _ r____ _ _ _
,
,
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PiN 840257
PAGE
4
2821 - 2540 READER PUNCH SCAN
I
IBM MAINTENANCE DIAGNOSTIC PROGRAM
2821 - 2540 READER PUNCH SCAN
-ERR 033CHANNEL REG -0- BIT DOES NOT TURN OFF
LOGIC PAGE 32.11.12.1,
CIRCUITS - 81009. BI011, 81A11, BIB07, 81010
LOGIC PAGE 32.11.21.1
CIRCUITS - BlH02
I
I
-ERR 042CHANNEL'REG -5- BIT DOES NOT TURN ON
LOGIC PAGE' 32.11.1'4.1
CI~CUITS - 81HI0, BIF11. BIFID. 81GIO. 81F09. 81CD7
LOGIC PAGE 32.11.23.1
CIRCUITS - BIH02
-ERR 034CHANNEL REG -1- 81T DOES NOT TURN ON
LOGIC PAGE 32.11.12.1
CIRCUITS - 81009. 81011, 81Al1
LOGIC PAGE 32.11.21.1
CIRCUITS - 81H02
-ERR 043CHANNEL REG -5- 81T DOES NOT TURN OFF
LOGIC PAGE 32.11.14.1
CIRCUITS - 81HlO. 81F11~ BlFI0, 81C07. B1G10. BIF09
LOGIC PAGE 32.11.23.1
CIRCUITS - 81H02
LOGIC PAGE 42.32.01.1
CIRCUITS - 84E16. B4G19
-ERR 035CHANNEL REG -1- 8IT DOES NOT TURN OFF
LOGIC PAGE 32.11.12.1
CIRCUITS -,81009, 81011, 81All. BIB07. B1010
LOGIC PAGE 32.11.21.1
CIRCUITS - 81H02
-ERR 045CHANNEL REG -6- BIT OOES NOT TURN OFF
LOGIC'PAGE 32.11.15.1
CIRCUITS - SlE08. 81HlO. 81Gll. 81Fll.' 8IGID. 81C07
LOGIC PAGE 32.11.26.1
CIRCUITS - 81G08
LOGIC PAGE 42.32.02.1
CIRCUITS - B4F16. 84008
-ERR 037CHANNEL REG -2- BIT DOES NOT TURN OFF
LOGIC PAGE 32.11.13.1
CIRCUITS - BIHI0. BIElO, BI012, BIEI2. 81B07. BIF09
LOGIC PAGE 32.11.23.1
CIRCUITS - BlH02
LOGIC PAGE 42.32.01.1
CIRCUITS ~ B4016
"'ERR 046CHANNEL REG -7- BIT OOES NOT TURN ON
LOGIC PAGE 32.11.15.1
CIRCUITS - 81GIO, 81HI0. 8lGll. 81Fl1
LOGIC PAGE 32.11.27.1
CIRCUITS - 81G09
-ERR 038CHANNEL REG -3- BIT DOES NOT TURN ON
LOGIC PAGE 32.11.13.1
CIRCUITS - BlHIO, BIEI0, 81012, BIF09
LOGIC PAGE 32.11.24.1
CIRCUITS - B1G07
-ERR 047CHANNEL RE'G -7- BIT DilES NOT TURN OFF
LOGIC PAGE 32.11.15.1
CIRCUITS ~ 8lGIO, 8IHIO. 81Gl1. 81Fl1, 81C07
lO'GIC PAGE 32.11.27.1
CIRCUITS - BIG09
LOGIC PAGE 42.32.02.1
CIRCUITS - 84F16, B4G23
-ERR 039CHANNEL REG -3- 8IT DOES NOT TURN OFF
LOGIC PAGE 32.11.13.1
CIRCUITS - 81HIO, BIEIO. BI012. B1E12, BIB07. B1F09, BIE12
LOGIC PAGE 32.11.24.1
CIRCUITS - BIG07
LOGIC PAGE 42.32.01.1
CIRCUITS - B4G23, 84016
4.3.4
-ERR 041CHANNEL REG -4-, BnooES NOT TURN OFF
LOGIC PAGE 32.11.14.1
CIRCUITS - 81HI0, 81FI0. 81012, 81C07, BIE12. 81F09
LOGIC PAGE 32.11.25.1
CIRCUITS - 81GOa
LOGIC PAGE 42.32.01.1
CIRCUITS - B4E16, B4G23
1"
\,
, it")' , 0-' 0"
'\.
,_ 1;}
I
17MAR66
125643
,"
0""
;,
0'
•
-ERR 052.,RAR UNITS A INPUT TO SAR ALWAYS ACTIVE
10
v
00000
PR08LEM MAY
-ERR 0518AR UNITS A OUTPUT ALWAYS ACTIVE
LOGlC PAGE 32."20.15.1
CIRCUITS - B3G06, 83F06, 83EOS
PAGE
'0'"
ERROR MESSAGES COMMON ONLY TO ROUTINE 03 --8UFFERADDRFLT--ERR 050BAR PR08LEM - ERROR PATTERN IS ERRATIC.
8E INTERM ITTENT.
'
LO"GIC PAGE 32.20.15.1
CIRCUITS - 83G06. 83GOl
LOGI~ PAGE 32.20.16~1
CIRCUITS - 83H05. 83H06
LOGIC PAGE 32.20.17.1
CIRCUITS ~'83H07
-ERR 040CHANNEL REG -4- 8IT DOES NOT TURN ON
LOGIC PAGE 32.11.14.1
CIRCUITS - BIF09, BIHI0~ 81F10, B1012, 81C07. 81E12
LOGIC PAGE 32.11.25.1
CIRCUITS - 81G08
154OL65
124265
"
-ERR 044CHANNEL REG'-6- 81T DOES NOT TURN ON
LOGIC PAGE 32.11.15.1
CIRCUITS - 81E08, BIH1D. 81Gll, 81F11. 8lGI0
~OGIC PAGE 32.11.26.1
"tIRcuns - 81GOS
-ERR 036CHANNEL REG -2- BIT DOES NOT TURN ON
LOGIC PAGE 32.11.13.1
CIRCUITS - BIHIO, BlE10. BI012, BIE12, BIF09
LOGIC PAGE 32.11.23.1
ClRcuns - BIH02
DATE
EC
PIN 840257
PAGE
4A
F804-*
4
DATE
EC
o o o o o
1.5JUL65
124265
17MAR66
125643
0 0 0 0 0 O· 0 0 0 0 0 0 0 0 ()
e .e e It e e _I» _e e
'0 0
e '. _ • e • oe • • • fee e _ • • • • •
'0
i
iif;I.i4 ...
"il '".
L~_'"_<_~_"_~_h~_~~"~".o~~.,,,,'~"~"~~~~~~~~~
.........-.--.._~ _ _
PIN. 840257
.' ..PAGE
5
IBM MAINTENANCE DIAGNOSTIC PROGRAM'
"'ERR 053PAR UNITS A INPUT TO BAR ALWAY·S ACTIVE
LOGIC 'PAGE 32.20.15.1
CIRCUITS - B3G06
i
1l
,
"'"-IIl'o1IIoIi;;,,i,w·.··
"9 " _ - _...~'+_
PIN 840257
PAGE
5A
-ERR 068PAR UNITS C INPUT TO BAR NEVER ACTIVE
LOGIC PAGE 32.20.15.1
CIRCUITS'- 83G07
I
)
I
-ERR 055RAR UNITS A INPUT TO 8AR NEVER ACl'IVE
LOGIC PAGE 32.20.15.1
CIRCUITS - B3G06
';
-ERR 056PAR UNITS A INPUT TO BAR NEVER ACTIVE
LOGIC PAGE 32.20.15.1
CIRCUITS - B3G06
I
-ERR 069. 8AR UNITS D OUTPUT ALWAYS ACTIVE
LOGIC PAGE 32.20.15.1
CIRCUITS - B3~07, B3F06, B3E05
,
(.
I
!
-ERR 070RAil. UNITS. D INPUT TO BAR ALWAYS. ACTI VE
LOGIC PAGE 32.20.15.1
CIRCUITS - B3G07
,I
\
("
r,
-ERR 071PAR UNITS D INPUT TO BAR ALWAYS ACTIVE
. LOGIC PAGE 32.20.15.1
CIRCUITS - 83G07
j
I
I
!
-ERR 058RAR UNITS B INPUT TO BAR ALWAYS ACTIVE
LOGIC PAGE 32.20.15.1
CIRCUITS - 83G06
I,
-ERR 072-.
BAR UNITS D OUTPUT NEVER ACTIVE
LOGIC PAGE 32.20.15.1
CIRCUITS - B3G07, B3F06, B3E05
t
i
-ERR 059PAR UNITS 8 INPUT TO BAR ALWAYS ACTIVE .'
LOGIC PAGE 32.20.15.1
CIRCUITS - 83G06
I
!
,,
-ERR 073RAR UNITS D INPUT TO BAR NEVER ACTIVE
LOGIC PAGE 32.20.15.1
CiRCUITS - 83G07
!
-ERR 014PAR UNITS D INPUT TO BAR NEVER ACTIVE
LOGIC PAGE 32.20.15.1
.
CIRCUITS - B3GOl
i
-ERR 060BAR UNITS B OUTPUT NEVER ACTIVE
LOGIC PAGE 32.20.15.1
CIRCUITS - B3G06, 83F06, B3EOS
I
-ERR 061RAil. UNITS 8 INPUT TO BAR NEVER ACTIVE
LOGIC PAGE 32.20.15.1
CIRCUITS ~ 83G06
I
i
-ERR 015BAR UNITS E OUTPUT ALWAYS ACtIVE
LOGIC PAGE 32.20.16.1
CIRCUITS - B3H05, 831=06; 'B31=05
~
I
I
I
-ERR 062PAR UNITS B INPUT TO 84R NEVER ACTIVE
LOGIC PAGE 32.20.15.1
CIRCUITS - B3G06
I,
-ERR 016RAR UNITS E INPUT TO 8AR ALWAYS ACTIVE
LOGIC PAGE 32.20.16.1
CIRCUITS. - 83H05
I
i
i
-ERR 063. 8AR UNITSC OUTPUT ALWAYS ACTIVE
LOGlC PAG.E 32.20.15.1
CIRCUITS - B3G07, B3F06' B3E05
I
I
-ERR 017PAR UNiTS E INPUT TO BAR ALWAYS ACTIVE
LOGIC PAGE 32.20.16.1
CIRcuns - B3H05
-ERR 064RAR UNITS C INPUT TO lIAR ALWAYS ACTIVE
lOGIC PAGE ~2.20.15.1
CIRCUITS - 83G07
-ERR 078BAR UNITS E OUTPUT NEVER ACTIVE
LOGIC PAGE 32.20.16.1
.
CIRCUITS • 83H05, B3F06, 83F05
-ERR 065PAR UNITS C INPUT TO 8AR ALWAYS ACTIVE
LOGIC PAGE 32.20.15.1
CIRCUITS - 83G07
.
-ERR 079RAR UNITS E INPUT TO 8AR NEVER ACTIVE
LOGIC PAGE 32.20.16.1
i'
I,
17140\1t6.6
125643
...
-ERR 067RAR UNITS C INpUT TO BAR NEVER ACTIVE
LOGIC PAGE 32.20.15.1
CIRCUITS - B3G07
i·
-ERR 054BAR UNITS A OUTPUT N.EVER ACTIVE
LOGIC PAGE 32.20.15.1'
CIRCUITS - B3G06, 83F06, 83E05
U;lUL65i
12U6" :
_
-ERR 066BAR UNITS C OUTPUT NEVER ACTIVE
LOGIC pAGE 32.20.15.1
CIRCUITS -·83G07, 83F06, 83E05
LOGIC PAGE 32.20.15.1.
CIRCUITS - B3G06
DATE
EC
u_~
2821 - 2540' RE.ADER PUNCH SCAN
2821 ... :2540 READER' PUNCH SCAN
-ERR .057BAR UNITS B OUTPUT ALWAYS ACTIVE
LOGIC PAGE 32.20.15.1
CIRCUITS - B3G06, 83F06, B3E05
....
F804-.
PAGE
5
1.0
DATE
EC
15JUL65
J:2~265
.
11MAR66'
125643
ID
PAGE
F804-5A
_ •• , ......................... , _ .... - - . . . _
.
, " ••
------
----_._---------.
- - - - . _ - - - - -------------------_.------_.---
-_.
---------------------------~---------
-----------
, ..".."":"--".: ... .,,..
j,
PIN' 840(!51
iBM MAINTENANCE DIAGNOSTiC PROGRAM
PME
.
:1
6
IBM MAINTENANCE DIAGNOSTIC
:P~OGRAM
.
PIN 840251
pAGE
6A
j
i
2821 -.. 25,40 READER PUNCH. SCAN.
I
2621 - 2540 READER PUNCH- SCAN
I
I
CIRCUITS - B3H05
BAR TENS. C 'OUTPUT ALWAYS ACTIVE
LOGIC PAGE 32.20.16.1
CIRCUlTS - 83H06, 83F01, 831"05
1
-ERR 080PAR UNITS E I~PUT TO BAR NEVER ACTIVE
LOGIC PAGE 32.20.16.1,
CIRCUITS - B3H05
.
j
-ERR 094.,.
.RAR TENS C. INPUT TO BAR ALWAYS ACnVE
lOGIC PAGE 32.20.16~1
CIRCUITS:- 83HO,6
I
-ERR 081BAR TENS A OU.TPUTAlWAYS ACTIVE
LOGIC pA.GE 32.20.16.1
.'
CJRCUnS~ 83H05, 83F06tB3F05
-ERR 095PAR TENS C INPUT TO 8AR AlWAY5ACTlVI!
LOGIC PAGE 32 •.20.16.1
CIRCUITS - UH06
--ERR 082RAR TENS A INPUT TO BAR ALWAYS ACTIVE'
LOGIC PAGE 32.l0.16.1
CIRCUITS - 83H05
'-ERR 096-:
BAR TENS C OUTPUT .NEVER ACTIV~
LOGIC PAGE 32.20.16.1
CIRCUITS- B3H06. 83F01, B3F05
-ERR 083PAR TENS A INPUT TO BAR'ALWAYS ACnVE
LOGIC PAGE 32.20.16.1
CIRCUITS - 83H05
-ERR 091RARTENS C INPUT TO 8AR NEVER ACtiVE
LOGIC PAGE 32.20.16.1
'
CIRCUITS -83H06.
-ERR 084-BAR TENS A OUTpUT NEVER ACTIVE
LOGIC PA6E32.20.16.1
.
CIRCUlTS - 83H05.UF06.83F05
!
.
J..
t
- -ERR 0998AR TENS 0 OUTPUT A.LWAYS ACTIVE
LOGIC PAGE 32.20.11.1
~IRCUITS - 83H07. 83F07, 83G05
;.
-ERR OB1BAR., TENS 8 OUTPUT ALWAYS ACTtVE
lOGIC PAGE 32·.20.16.1
CIRCUlTS - 83H06, 83f01, 83F05
..
,]
",
--ERR 069PAR TENS 8 INPUT TO BAR ALWAYS
lOGIC PAGE 32.20.16.1
CIRCUITS - B3H06
",
-ERR 100-:
RAR TENS 0 INPUT TO BAR ALWAYS ACTIVE·
LOGIC PAGE 32.20.17.1
CIRCUITS - 83H07
!
-.ERR 101.,.
" PAR TENS 0 INPUT TO BAR ALWAYS ACTIVE
LOGIC PAGE 32.20.11.1
: CIRCUITS - 83H01
I·
. -ERR OSi8RAR TENS 8 INPUT TO 8AR ALWAYS ACTIVE
lOGIC .PAGE 32.20.16.1
CIRCUITS - 83H06
.....
.-ERR 098PAR TENS t INPUT TO BAR NEVER ACTIVE
lOGIC PAGE 32 •. 20.16.1
CIRCUITS - 83H06 .
I
·······'·1
'- "~...
...\
! '.
-ERR 066PAR TENS A INPUT TO 8AR NEVER ACTIVE
LOGIC PAGE 32~20.16.1
CIRCUlTS - 83H05
~
'
"
-ERR 085"RAR TENS A INPUT TOBAR NEVER ACTIVE
LOGIC. PAGE 32.20.16.1
CIRCUITS - 83H05 'f;'
i
I' .
!
-ERR 102BAR TENS ·0 OUTPUT NEVER ACTIVE
LOGIC PAGE 32.20.11.1
CIRCUITS - B3H07. 83F07. 83G05
A~nVE
-ERR 103RAR TENS 0 INPUT TO 8AR NEV.ER ACTIVE
LOGIC PAGE 32.20.11.1
CIRCUITS - B3H01
-ERR 090BAR Tf!NS B OUTPUT NEVER ACTIVE
LOGIC PAGE 32.2~.lb.l
CIRCl,IlTS - 83»06, B3f01. 83f05
".J
-ERR 092PAR TENS 8 INPUT TO 8AR
LOGIC. PAGE l .... 20.16.1
CIRCUITS ~ 83n06
t
J"'l
1
_-ERR 104-' ,
PAR TENS D INPUT TO BAR NEVER ACTIVE
lOGIC PAGE 32.20.11.1
CIRCUITS • B3H01
-ERR 091RAR TENS e INPUT TO 8AR NEVER ACTIVE
LOGIC PAGE l2.20.16.1
CIRCUITS - 83H06
.. l
N~VER
1:
-ERR 1056AR TENS E OI,lTPUT ALWAYS ACTIVE.
lOGIC PAGE 32.20.17.1
'
CIRCUITS ~ B3H01, 83F01, 83G05
ACTIVE
-ERR 106RAR TENSE INPVTTO Il.AR ALWAYS 4-CTI VE
lOGIC PAGE 32.20.11 .. 1
.. '
.
CIRCUITS .,. e3lio7 . .
-
-ERR 093. OATE
EC
11NAR66
125643-
15JUL65,
124:l65
11MAR66 .
125643
\
"1
"
,1
'I
()
010 0 0 0 0 0 0 0>00000
-------------_
•..
_-
"-J"
~
.. , ..... _.""_..,... _.----- - -.--.-~----------------
'
"
'
'UdME
eeeeeeeeeeeeeee
"
""""',"' __ ~M"'~_'~' ___ """" .... ~~.:.:;.
PIN 840257
PAGE
7
IBM MAINTENANce DIAGNOSTIC PROGRAM
2S21 - 25'40 READER PUNCH SCAN
I
I
I BMMAI NTENANCE DutmosT'1 C PROGRAM
2S21 - 2540 READER PUNCH 'SCAN
-I;RR 107. ;;~hR TENS,E INPUT TO .•.~.R ~LWAYSAC;TIV.E
"I.!l1GICPM;E 32.20.17:;"1
(~t:IRCUITS
83H07
-I:RR 117RAR UNITS 0 TRIGGER NEVER ACTIVE
LOGIC PAGE 32.20.11.1
CIRCUITS - B3Eli
'!:g",R 10S. ~'8AR TENS E OUTPUT NEVER ACTIVE
'(LOGIC PAGE 32.20.17.1
CIRCUITS - 83H07. 83F07. 83G05
-ERR 11BPAR UNITS 0 TRIGGER NEVER ACTIVE
LOGIC PAGE 32.20.13.1
CIRCUITS - 83Gll
-ERR 109RAR TENS E INPUT TO SAR NEVER ACTivE
LOGIC PAGE 32.20.17.1
CIRCUITS - 83H07.
-ERR 119RAR TENS B TRIGGER NEVER ACTIVE
LOGIC PAGE 32.20.12.1
CIRCUITS - B3F09
-ERR 110_. PAR TENS E INPUT TO BAR NEVER ACTIVE
LOGIC PAGE 32.20.17.1
CIRCUITS - B3H07
-ERR 120PAR TENS B TRIGGER NEVER ACTIVE
LOG,IC PAGE 32.20.14.1
CIRCUITS - B3H09
-ERR 111RAR PROBLEM THAT COULD 8E CAUSED 8Y ONE OF THE FOLLOWING
1. ' UNITS OR TENS TRIGGERS A OR 8 ALWAYS ACTIVE
LOGIC PAGE 32.20.11.1
CIRCUItS - B3EOS, 83E09
LOGIC PAGE 32.20.12.1
CIRCUITS - B3FOS, 83F09, 83B09
~.
UNITS TRIGGER A NEYER ACTIVE
LOGIC PAGE 32.20.11.1
CIRCUITS ~ B3EOS
3. TENS TRIGGERS .,0 OR E NEVER ACTIVE
LOGIC PAGE 32.20.12.1
CIRCUITS - .S3Fl1, 83F12. B3CI2
-ERR 121RAR TENS C TRIGGER NEVER ACTIVE
LOGIC PAGE 32.20.12.1
CIRCUITS
B3FIO
i
t
-ERR 123RAR PROBLEM tHAT COULD BE CAUSED BY ONE OF THE FOLLOwING
1•. UNITS OR TENS TRIGGERS 0 OR E ALWAYS ACTIVE
LOGIC PAGE 32.20.11.1
•
CIRCUITS - B3El1, B3E12
LOGIC P.AGE 32.20.12.1
CIRCUITS" B3Fll, B3F12, B3B09, B3BI0
2. UNITS ADVANC.E NEVER AcnVE
LOGIC PAGE 32.20.11.1
CIRCUITS - B3F13
3. TENS ADVANCE NEVER ACTIVE
LOGIC PAGE32.20~12.1
CIRCUITS - B.3F14, B3C18, B3Fl5
-ERR 124- .
PAR PROBLEM THAT COULD BE CAUSED BY ONE OF THE FOLLOWING
1. UNITS OR TENS TRIGGERS 0 OR E ALWAYS ACTIVE
LOGIC PAGE 32.20.13.1
CIRCUITS - B3Gll, B3G12
LOGIC .AGE 32.20.14.1
CIRCUITS - B3Hl1, B3H12. B3811
2. UNITS ADVANCE NEVER ACTIVE
LOGIC PAGE 32.20.13.1
CIRCUITS - 83GI3
3. TENS ADVANCE NEVER ACTIVE
LOGIC PAGE 32.20.14.1
CIRCtHTS - 83G14, >.&.aH5, B3C18
-ERR 113RAR UNITS TRIGGER B NEVER ACTIVE
LOGIC PAGE 32.20.11.1
CIRCUITS - B3E09
j
f
-ERR 114PAR UNITS TR.IGGER 8 NEVER ACTIVE
LOGIC PAGE 32.20.13.1
CIRCUITS - 83G09
-ERR 1 1 5 - .
RAR UNITS C TRIGGEi(NEVI:R. ACTIVE
LOGIC.PA,GE 32.20.U.l
'
.,
ciRGU.JToS -UElO
-EAR 125-
~ERR
-ERR 126PAR UNITS C TRIGGER ALWAYS ACTIVE
LOGIC PAGE 32.20.13.1
,CIRCUITS - 83G10
.vl'ins CTIU~G$hAIzWAYS"ACTIVe'
LO!>~t .gAGE,3.~.....20,~U.l
'RoAR
ctRcuns -lhf:10
116-
.',.;. ~.'
... R ~VSC. :,T. ~I~.,:. ~_::_NEVER ,ACT1VE
.' . GICPA~E:.;~~o\ati"~3.1
'.JRcuns -'63'10 .....
DATE
EC
15JUL65
1:24265
17HAR66
125643
:>i
-ERR 122PAR,TENS C TRIGGER NEVER ACTIVE
LOGIC PAGE 32.20.14. i
CIRCUITS - 83HI0
-ERR 112PAR PROBLEM' THAT COULD BE CAUSED BY ONE OF THE FOLLOWING
1. UNITS OR TENS TRIGGERS, A OR B ALWAYS ACTIVE
LOGIC PAGE 32.20.13.1
CIRCUITS - 83GOS. B3G09
LOGIC PAGE 32.20.14.1
CIRCUITS -' B3H08, B3H09, B3BI0
2. UNITS.TRIGGER A NEVER ACTIVE
LOGIC PAGE 32.20.13.1
CIRCUITS - B3GOa
3. TENS TR IGGERS 0 OR E NEVER ACTI VE
LOGIC PAGE 32.20.14.1
CIRCUITS - B3Hl1, 83H12, 83C12
I
PIN 840251
PAGE
1A
.
10
PAGE.
F804-*,
7
. DATE
EC
15JUL65
124265
'
17MAR66
125643
y i....
--
IBM
PIN 840257
PAGE
8
DIAGNOSTIC PROGRAM
~AINTENANCE
---~-----
---
------ -
-~
--
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PIN 840257
PAGE
8A
2821 - 2540 READER PUNCH SCAN
2821 - 2540 READER PUNCH SCAN
I 143 I DATA REG 12 TR ON SOLID
I 32.20.31.1 J 83F22,83E22.83E18.1
I
J
1-----1-----------------------------1------------1-------------------1
I 144 I CAN NOT SET DATA REG 11 T~
I 32.20.jl.l I 83G22.83E22
I
I
. I WITH DIAGNOSTIC WRITE
1 42.23.03.1 I B4D12
t
I
I
-ERR 127RAil. PROBLEM -- ERROR PATTERN CANNOT BE IDENTIFIED.
PROBLEM MAY BE INTERMITTENT~
lOGIC PAGES 32.20.11.1 AND 32.20.12.1
CIRCUITS - All INDICATED IN ABOVE LOGIC PAGES
1----1---·---------------------J ---------- I------------------- I
I 145 I DATA REG 11 TR·ON SOLID
I 32.20.31.1 I 83G22.B3E22.83EI8,t
-ERR 128PAR PROBLEM
ERROR PATTERN CANNOT BE IDENTIFIED.
PROBLEM MAY BE INTERMITTENT.
LOGIC PAGES 32.20.13.1 AND 32.20.14.1
CIRCUITS - ALL lNDICATED IN ABOVE LOGIC PAGES
I
I
I
I
j
I
1
t
I 32.20.32.1 I 83F24,83E24,B3EI9,1
I 83H24·
1
I
I
I
I
1 42.23.03.1 I 84El2
I
I WITH DIAGNOSTIC WRITE
I 42.23.03.1 I B4El2
1
I 153 I D.AlA REG 3 TR ON SOlID
I
1
I
I 42.23.03.1 J 84H2
I
I '32.20.32.1 I B3G24,B3E24,83El9.1
I B3H24
,
[
I
1-----1------..
------------------1-----------1------------------1
1 155 1 DATA REG 4 Til. ON SOLID
I 32.20.33.1 I 83F25,B3E25,83E19,I
I
I
I
I B3H25
I
I
I
1 42.23.04.1 1,84El2
.
1
I-----I------------~-----------------I------------I-------------------1
I 156 I CAN NOT SET DATA REG 5 TR
I 32.20.33.1 J B3G25.B3E25
I
I
. I WITH DIAGNOStIC WR ITE
I 42.23.04.1 r 84El2
I
1----1_-----------------------------1------------1-------------------1
1 157 I DATA REG 5 Til. ON SOLID
I 32.20.33.1 I 83G25.83E25,83EI9,1
I
I
I
.
I 83H25'
1
I
I
_,
I 42.23.04.1 I B4El2
I
I
I 32.20.31.1 1 B3F22.83E22
I 42.23.03.1 1 84012
..
---------------------1----------1-------------------I
I---~-I-------- --~~----------------I------------I-------------------1
1 158 1 CAN NOT SET DATA REG 6 TR
I 32.20.33.1 I 83F26,B3E26
I
I
1 WITH 01 AGNOSTIC WR ITE
I 42.23.04.1 I 84F12
I
1 - - - 1 - - -..
I 159 I DATA REG 6.TR ON SOLID
132.20.33.1 1 B3F26.83E26,83E20,1
I
I
l ' 83H26
I
I
I
1 42.23.04.1 I 84F12
I
1-----1-------------------------------1------------1-------------------1
1 160 1 CAN NOT SET DATA REG 7 Til.
I 32.20.34.1 1 83G26,B3E26
I
I
I WITH DIAGNOSTIC WRITE
1 42.23.04.1 I 84Fl2
I
1-----1---------..
------------------- 1--------·
-1------------------- J
I 161 I DATA REG 7 TR ON SOLID
1 32.20.34.1 1 83G26,83E26.83E20,1
1
t 83Hl6
I 42.23.04.1 I 84Fl2
I
I
1
-----1--.---------..,....---------------1-----------1---------------1
1 32.20.34.1 I B3F27,B3E27
I
10
PAGE
125M3
1
I
I
t
I 162 I. C.AN NOT SET DATA REG 8 TR
I
I
17MAR66
15JUL65
121+265
1
t-----l-----~-------------------------I------------I-------------------1
I 154 I CAN NOT SET DATA REG '* Til.
1 32.20.33.1 I 83F25.B3E25
.
1
I
I WITH DIAGNOSTIC WRITE
1 42.23.04.1 I 84El2
I
1---1---------------------1-----------1-------------------I
DATE
Et
I
I
ERROR MESSAGES COMMON ONLY TO ROUTINE 04 --READER
TRANSLATOR FlT--
1 142 I CAN NOT SET DATA REG 12 TR
I
I WITH DIAGNOSTIC WRITE
I
I-----I-------------------------------t--------~---I-------------------1
tERRORI
DESCRIPTION
AlD PAGE
CIRCUITS
I NO. I
1
I
I
I-----I~-----------------------------I------------I-------------------1
! 140 I OAT A RECORDS ARE MISS ING OR'
I
I
I
i
I ARE OUT OF SEQUENCE. THERE
I
i
I
I
I IS A TOTAL OF 129 DATA RECOROSI
I
I
I
I SEQUENCE NUMBERED 084 THRU
I
I
I
I
I 212.
I
I
I
1 ------------ 1 ---------~---------I
1----.--1-------------.----------------I HI I CAN NOT ISOLATE READER
I
I
I
I
I TRANSLATOR FAILURE. SET
I
I
i
1
I SECTlON SENSE SWITCH 2.. TO 1
I
I
I
1
___
1
___________________
1
___________
1
_________________
--I
1
J TO OeTA I N PROGRAM LOG our.
I
I
I
!
I 32.20.32.1 I B3G23,83E23,83EI8,1
[ [ 83H23
I
I 42.23.03.1 I 84012
t
1-----1-------------------------------1------------1-------------------1
I 152 I CAN NOT SET DATA REG 3 TR
1 32.20.32.1 I 83G24.83E24
t
-~--~----------------------------------------------------------------
I
1
I
I
t 151 I DATA REG 2 TR ON SOLID
t
I
.
-ERR 135 THRU 139.... RESERVEO".
1
.
I-----I---------.----------~----------I------------I-------------------I
-ERR 134FALSE BAR ADDRESS CHECKS
LOGIC PAGES 32.20.18.1, 32.20.19.1
CIRCUITS - ALL INDICATED IN A80VE LOGIC PAGES
J
149 I DATA REG 1 Til. ON SOLID
1-----1-------------------------------1------------1-------------------1
I 150 r CAN NOT SET DAT4 REG 2 TR
I 32.20.32.1 I 83F24.83E24
1
WITH DIAGNOST IC WR ITE
42.23.03.1 1 84E12
-ERR 133PAR TENS A TRIGGER NEVER ACTIVE
LOGIC PAGE 32.20.14.1
CiRCUITS - B3H08, 83829
I
I
I
I-~--I----------------------------I------------I-------------------1
I
I
I
-ERR 132RAil. TENS A TRIGGER NEVER ACTIVE
LOGIC PAGE 32.20.12.1
CIRCUITS - 83F08, B3829
4.3.5
t 83H22
I 42.23.03.1 I 84012
I
.
146 I CAN NOT SET DATA R~G 0 Til.I 32.20.31.1 r 83F23.83E23
I
I WITH DIAGNOSTIC WRITE
I 42.23.03.1 I 84012
I
1-----1-------------------------------1------------1-------------------1
I 147 1 DATA REG 0 TR ON SOLID
I 32.20.31.1 I. 83F23.83E23,83El8,1
I
I
I
I 83H23
1
I
I
I 42.23.03.1 I 84012
I
1----1------------------------------1------------1-------------------1
I 148 I CAN NOT SET DATA REG 1 Til.
I 32.20.32.1 r 83G23,83E23
I
I
I WITH DIAGNOSTIC WRITE
I 42.23.0301 r 84012
I
·-ERR 131PAR UNITS E TRIGGER NEVER ACTIVE
LOGIC PAGE 32.20.13.1
CIRCUITS - B3D12, 83E14. B3F15
1
.
I
I
-ERR 130RAR UNiTS E TRIGGER NEVER ACTIVE
LOGIC PAGE 32.20.11.1
CIRCUITS - B3D12, B3E13, B3F15
I
I
I.
1-----I------------4--~-----------I-----------I------------------I
-ERR 129PROBLEM IN CIRCUITS USED TO DETECT COLUMN 80
LOGIC PAGE 32.31.05.1 .
CIRCUITS - B3A27. B3B05, 83B04
I
I
I B3H22
I 42.23.03.1 J 84012
I
I.
F804-*
8
DATE
EC
15JUL65
124265
17MAR66
125643
10
F80.-*
PAGE
SA
I
-\
J
l')
...
~
I
).I
•....
.<
"'-
I
.
,0·'
10,.'
'"
,C).
"
()
o
0·- ,.0·'
I,.
o
0 0 0 0'0 0 0
o
0000
{").
\
eeeee
IBM 'MAINTENANCE DIAGNOSTIC PROGRAM
PIN B40257
PAGE
9 '
2B21 - 2540 READER PUNCH SCAN
I
2821 - 2540 READER
I WITH DIAGNOSTIC WRITE
I 42.23.04.1 I 84Fl2
I
1I DATA
REG B TR ON SOLID
B1F30L STUCK AT PLUS Y
32.31.10.1
BIF30
DR.
I
CAN NOT GET INVALID CARD
32.31.10.1
81G30
I
CODE V A 4 NT 561
I
t
1-----1----------------------------1----------1------------------1
I 191 1 B3E25A STUCK AT MINUS Y
I 32.20.33.1 I 83E25
I
DR
I
I B3E25A TO 81G30F
I 32.31.10.1 t' BIG30
I
J
I 192 I B3F25E TO 83E250
I 32.20.33.1 I B3E25,83F25
I
1
1
I
------------~--I
~
[ 194 I 83G25C TO B3E25H
I
1 OR
I B1F29C STUCK AT PLUS
I
I OR
I
I CAN NOT GET INVALID CARD
1
1 CODE VlA 5 NT 67
I
--------- 1I ----------1------------------i .
32.20.31.1 1 83E22,83F22
I
83F22E TO B3E22D
Y
I
I
1 32.31.10.1
1
[ 81F29
I
I 32.31.10.1 1 BIG30
I
1
I
I
1
1
1-'
-1-----:.--------------1-----------1
------------------I
I 195 I B3E25L STUCK AT MINUS Y
I 32.20.33.1 I B3E25
.
I
1--1--------------------------1------------1-------------------I
I 171 I B3E22L STUCK AT MINUS Y
I 32.20.31.1 I B3E22
1
[
I 83E25L TO 81G308
1-----1--
I 175 I 83E23A STUCK AT MINUS Y
I 32.20.31.1 I B3E23'
1
1---..,--------
1-----------I ------------------ I
I 32.20.32.1 I B3E23
I
-1-----------I
--------------I
I 32.20.32.1 I B3E23,B3G23
I
I
I
1
I OR
I CAN NOT GET INVALID CARD
I CODE VIA 3 NT 4567
I
I
I 32.31.10.1 I 81G29
I
I
I
I
I
I 32.20.32.1 I B3E24
I
I
. I 32.31.10.1 I B1G29
I
10,
lSJUL6S
12~265
11MAR66
125643
I
1
I
I
I 32.31.10.1 I 81G30
I
.
1
I
'I
I B3E26L TO BIG30L
I 32.31.10.1 1 BIG30
I
I 32.20.34.1 I B3E26.83G26
I
I-----I--------~---------~------------I------------l-------------------t
I 207 Io 83E27A STUCK ~T MINUS Y
I 32.20.34.1 I B3E21
' I
I-----I------~-----~-----------~---I------------I-------------------1
I '208 I B3F27E TO B3E210
I 32.20.34".1 I B3E27.8'3F27
I
I
II-----I-------------~-----------------I------------l~------------------1
209 I 83E27E STUCK AT PLUS Y
I 32.20.34.1 I 83E27
I
I
II -----I
------------------------1---'-------I
----,..------------1
210
B3G27C TO 83E27H
,
32.20.34.1
83E21.83G21
1
I
I
I
1-----1-..,------------""-:----------1------------1---------~---1 211 I 83E27L STUCK AT MINUS Y
I 32.20.34.1 1 83E21
------
1
I
I
1-----1-------------------------------1------------1-------------------1
I 32.20.34.1 I 83E27,B3F27
I
1--------I --------------'---- I
I 189 I 83E24Q STU~!( AT PLUS Y
1 32~ 20. 32.1 I B3E24 '
I
.-.....,-1---------:;
.....---------,..--1---------1-------------------1
I 190 I 8~f25C TO B3E25C
1 32.20.33.1 1 83E25,B3F25
"
I
.
I 32.31.10.1 1 BIG30
I
I
l I t
1 206 I B3F27C TO B3E27C
1--1-------------------,;..---1------------1---------------':"---1
I 188 I 83G24E TO 83E24P
I 32.20.32.1 I B3E24,83G24,
I
1---1-,
I OR
I 83E26A TO 81G30G
1
1
I----I-------------~-----------------I------------I-------------------1
I 205 1 B3E26Q STUCK AT 'PLUS Y
I 32.20.34.1 I B3E26
I
I----[------------------------------I-----------I----~--------------1
1 181 1 83E24L STUCK AT MINUS Y
I OR
I
I B3E24L TO BIG29G
I
I
1
I
I 32.20.33.1 I 83G26
I-----I-------------------------------I----,..--~----I-------------------1
1---1-----..
-----------1-----------1-------------------I
I 186 I 83G24C TO 83E24H
I 32.20.32.1 1 B3E24,83G24
I
1
I CAN NOT GET INVALID CARD
1 CODE VIII 6 NT 7
1 2q4 1 B3G26E TO 83E26P
J-----I--------------------------I------------I--~----------~----I
32.20.32.1 I B3E24
I
I
I
-----------1-----------1-------------------1
I 32.20.32.1 I 83E24,B3F24
I
1
--1
I 184 I 83F24E TO 83E240
1
I
1-----1--------------------------1--:--------1-------------------1
1 203 I B3E26L STUCK AT MINUS Y
I 32.20.34.1 I 83E26
I
I
1 OR
I
1
I
1-----1-----------------------------1------------1-------------------I
1 183 I B3E24A STUCK AT MINUS Y
I 32.20.32.1 I 83E24
I
,
I DR
I 83G26C TO B3E26H
I OR
1 202 I **RESERVED**
1---------
Y
1
II-----t--------~----------------------I------------I-------------------1
201 I B3EZ6E STUCK AT PLUS Y
I 32.20.33.1 I 83E26
I
I-~---I-------------~----------------I------------I-------------------1
- - - - - - - - - - - - - - - - 1------------1 - - - - - - - - - - - - - - - 1
t. 181 I 83E23Q STUCK AT PLUS Y
I 32.20.32.1 I B3E23
I
I--I
---------I ------------------- 1
I 182 I B3F24C TO 83E24C
I 32.20.32.1 t B3E24,83F24'
1
185 I 83E24E STUCK AT PLUS
I
1-----1-------------------------------1------------1-------------------1
I 200 I B3F26E TO B3E26D
I 32.20.33.1 I 83E26
I
1--1
1
1
1
I
I.
---------------~
TO B3E23P
- - - - - 1--------1---------------1
32.20.33.1
B3E25.83G25
1-----1-------------------------------1------------1-------------------1
I 199 I B3E26A STUCK AT MINUS Y
I 32.20.33.1 I B3E26
1
1 - - 1 - - - - - - -...- - - - - - - - - - 1--...,---------1-------------------1
1 118 1 83G23C TO B3E23H .
I 32.20.32.1 I B3E23,B3G23
I
1--1--I 180 I 83G23E
I
t
1-----1---------------1---------1----------------1
I 198 I 83F26C TO B3E26C
I 32.20.33.1 I 83E26.83F26
1
I 176 I B3F23E TO 83E230,
'I 32.20.31.1 I 83E23,83F23
I
1 - - -I - - - - - - - - - - - - - - - - - - - - - - - I ------------------- I
t, 177 I 83E23E STUCK AT PLUS Y
I 32.20.31.1 I 83E23
I
1 119 I B3E23L STUCK AT MINUS Y
TO 83E25P
I
I 32.31.10.1 [ 81G'30
1---'1----------------1----------1--------------1
1 191 1 83E25Q STUCK AT PLUS Y
I 32.20.33.1 I B3E25
I
1--1-----------------1-------1----------------1
I --I
I
1 196 1 B3G25E
0
- - - - - - - - - - - - - - - 1------------1------------------- I
1 - -I
I OR
1
-------------1------------1------------------I
1 32.20.. 31.1 1 B3E22,B3G22
I
1--1----------,
----~-------I------------I-------------------I
1 173 1 B3E22Q STUCK AT PLUS Y
I 32.20.31.1 I 83E22
1
1--1-----------------1---------1-------------------1
1 174 t B3F23C TO B3E23C
I 32.20.31.1 I 83E23,83F23
I
J
I 32.20.33.1 I B3E25,B3G25
I
I
1--1----- - - - - - - - - - - 1------------1------------------ I
I 32.20.31.1'1 B3E22
I
I 169 1 83E22E STUCK AT PLUS Y
I-I
- - - - - - 1--------1-------------------1
I 170 I 83G22C TO 83E22H
I 32.20.31.1 I B3E22,B3G22
I
1 172 1 B3G22E TO 83E22P
I
I
I
[
t-----I-------------..
---~-------------I----------I-------------------1
193 1
B3E25E STUCK AT PLUS Y________ I------------I------------------1
I 32.20.33.1 I B3E25
I
II ___
I_____________________
1--1
I
1
I
I
I
1- - I----------,--------------- 1----------- -------------------1
B3G27,83E27,83E20,1
I
I
I
I 83H27
I
1
1
'
I 42.23.04.1 1 84Fl2
1
1---1-----------------1-----------1-------------------1
J 166 J 83F22C TO B3E22C
I 32.20.31.1 I 83E22,B3F22
I
1 - - 1------------------1------------1-------------------1
1 167 I B3E22A STUCK AT MINUS Y
I 32.20.31.1 I 83E22
I
1---1
I 168 1
SCAN
I
I 32.20.34.1 I B3F27,B3E27,83E20,I
1
I
I B3H27 '
1
I
I 42.23.04.1 1 B4Fl2
1
1----1---------------------------1------------1-------------------1
I 164 I CAN NOT SET DATA REG 9 TR
I 32.20.34.1 I B3G27,B3E27
I
I
I WITH DIAGNOSTIC WRITE
I 42.23.04.1 I B4Fl2 ,
1'
1---1-----------------1-----------1
I 165 I DATA REG 9 TR ON SOLID
I 32.20.34.1 I
P~NCH
I
I-----I~------------------------------I------------I------------------1
1 1.63
PIN 840251
PAGE
9A
IBM MAINTENANCE DIAGNOSTIC PROGRAM
I
I
..--I1
----1--------------------..,1-----------1
--------------1I
I 32.20.34.1 I 83E21,83G21
I 212 1 B3G27E TO B3E27P
I-----t-------------~~--~~---------l------------I-------------------1
I 213 1 B3E27Q STUCK AT PLUS Y'
I 32.20.34.1 1 83Ei7
1
I
10
F804-*
PAGE
.9
DATE
EC
15JUl65
124265:
17MAR66
125643
IDF804-*
PAGE
fA
-------~
...
--
-----
PIN 840257
PAGE
10
·181'1 MAINTENANCE DIAGNOSTIC PROGRAM
2821 -
-~~--
.. - - - - - - .. --------------------------------~-----------
IBM MAINTENANCE DIAGNOSTIC PROGRAM
2540 READER PUNCH SCAN
2821 -' 2540 READER PUNCH SCAN
1---1---------------------1------------1-------------------1
I 84A07
1I 214 I[ 83E22A TO 84A07A
1I 32.20.61.1
32.20.31.1 1 83E22
II
II 215 1I 83E22L TO 84A078
1 32.20.61.1 I MA07
32.20.31.1
83E22
II
1----1----------,----------1----------1-----------------1
1 240 1 83E22E TO MAl08
I 32.20.62.1 I 84AIO
I
I
I 32.20.31.1
83E22
1 - - - 1 - - - - - - - - - - - - - -...----1-----------1-------------------1
241
83E22Q TO 84A lOA
I 32.20.62.1 1 MAIO
I
I
l'
I 32.20.31.1 1 83E22
I
-----1----------1------------1
1 242 1 83E27A TO 84AIOE
I 32.20.62.1 I 84AI0
1
I 32.20.34.1
83E27
I
I 218 I 83E22A TO 84A07D
1
I
1----1---------*---------------------1------------1----------~--------l
I
I
I
1 32.20.61.1 I 84A07
I 32.20.31.1 I 83E22
1
I
1
I
I 32.20.31.1 I 83E23
1
1
I 32.20.61.1 I 84A07
1 32.20.31.1 1 83E23
1
I
132.20.61.1 1 84A07
1
I 245 I 83E25E TO 84AI0H
I
I
..
1 83E24E TO
I 246
I
I
247
- - - -1------------1-------------------1
1
I
I
, I
238 183E27Q TO 64AIOD
I
1
1_____ 1
1 239 I 83E23A TO 84AIOC
I
I
15JUL65
124265
-I 32.20.31.1 I B3E23
1
. 17MAR66
125643
o obo 0 0 0 0 0 0 0 0 0 0
-----_._._._--
I
1
1
I
I
1 32.20.66.1 I 84814,84813
I
I
1
I
[
1
I
[
I
.1 32.20.66.1 1 84C08
I
I
1 32.11.15.1 1 UGH
I
I
1
1 252 I B3E27L TO 84A 12A
OR
I
r
1 B4A07R TO MAl2L
I
1 OR
I
I 83E24E TO 84A12H
1
1
I
I
I
32.20.65.1 I 84A12
32.20.34.1 I 83E27
32.20.61.1 [ 84A07
I
32.20.32.1 I 83E24
I
·1
1
I 253 I 83E24A TO 84A12R
I
1 32.20.32.1 1 83E24
I
I 254 1 83E27A TO 84Al28
I
1
.
I 32.20.65.1 I 84Al2
I 32.20._34.1 I 83E27
I
I
1
[
1
I 84C16,84613
1
[
I VIA MINuS Y DATA REG 9.2.8
I
1
1
I
I
I
Il---I-------.;..--~------I---------I-----------l
256 [ .CAN NOT GET READ XLATE 4
1 32.20.65.1 I 84Al2
I
I-----I----------------------------~I-----------I------~~--------J
I 257 1 UE27E TO 84A14A -t 32.20.66.1 I 84A14
1
1
I OR
I 32.20.3,4.1 I 83E27
I
1 B4808C .0 MAl4E
1 32.20.61.1 184808
I - - - - I -----------~----.-..----- t---~----I----I 258 I- 83E23L .. TO 84A148
I 32.20 ...6.1 I 84A14
------[----------1------------------1
I 32.20.62.1 I B4AI0
I
,'".
STUCK AT PLUS Y
OR _ .
'.. ,
84814C OR 84813D STUCK
AT MINUS Y
OR
1 B4814C TO 84C08G
•
1 OR
1 848130 TO 81GllF
I----_I-.
. .-----------·---------~----I------------I-------------------1
I 255 I ALWAYS GET READ XLATE 4
1 32.20.6!1o.1 1 84A12.84A13,84819,J
1-----------.,.------1
B4A09
I
[
MALO
83E26
1-----1-----------------.. . . 1------------1-------------------1
I
32.20.62.1
B4AIO
I 32.20.34.1 1 B3E27
I 32.20.66.1
I 32.20.33.1
I-----l---~--------. .---------------I-----------I-·-----------------1
I 32.20.65.1 I 84A12
t
11__ 1_I
. ------.----1--------.,.--Y
I
1
I
1--1---'
---1-----------1-------------------1
I
I
I
1
32.20.62.1
.
"*
1-----1-------------·-------------1------------1-------------------1
1 236 1 84A09P STUCK AT MINUS Y
I 32.20.62.1 I B4A09
I
MA09P STUCK AT PLUS
1
I
I-----I---------~--~--------------I-----------I-------------------I
I-----J---------.---------------------I------------I-------------------1
1 235 I 83E26E TO 84A09Q
1 32.20.62.1 1 B4A09
.
I
237
1 32.20.66.1 I 84AI0
I 32.20.32.1 I 83E24
I-----I---~---------------I------------l------------.....--tI
84AI0P,84A14G,OR 64A14C
1 32.20.66.1 I 84AIO,84A14
J
I
1 32.20.33.1 1 83E25
I
1---1- - - - - - . - - - - - - - 1 - - - - - - - - - 1------------------- I
I 233 1 83E240 TO 84A09F.
I 32.20.62.1 1 B4A09
1
1
t
I 32.20.32.1 1 83E24
I
1 - - - 1 - - - - - - - - - - - - - - - - - 1 - - - - - - - - - - - 1 ------------------- I
I 234 I 83E24E TO 84A09E
1 32.20.62.1 I 84A09
1
l I t 32.20.32.1 1 B3E24
I
1 32.20.33.1 I B3E26
83E26E TO 84AIOL
[ 251 1
. I
I
1
1
1
1
I
1
1---1...,-----..,---.,.------------1----------1-----------------1
I 231 1 83E250 TO 84A09L
I 32.20.62.1 1 B4A09
I
I
1
I 32.20.33.1 I 83E25
.
I
1 - - -I - - - - - - - - - - - - - - - - - - - 1---------- 1-------------------1
I 232 I B3E25E TO 84A09H
1 32.20.62.1 1 84A09
I
-
I
1-----1------..;..-...
--------------------1------------1-----------------1
I 250 1 B4AI0P STUCK AT MINUS Y
r 32.20.66-.1 1 MAIO
1
1--------------------1------------1-------------------1
1__ 1
---------1--------
1
I 32.20.33.1 I 83E25
..
84AI0F
1 248 1 83E27E· T.O MAI0R.
I 32.20.66.1 I 84A1:0
I
I
I
1 32.20.34.1 1 83E27
1
1---1---..;..----------------1---------_1-------------.....,..,..-1
1 249 I 83E21L TO 84AI00
I 32.20.66.1 I a4AI0
I,
I
I
.
I 32.20.34.1 1.83E27
t
1-------------------1
1
I
1
1--1-----------------1----------1----------------1
1
I
1
11-----1-----,.----.
1
_
1
I
. ----...----..----1----------1--------..;..------1
---------1------------[-------------------1
DATE
EC·
I
_
I
I 32.20.66.1 I 84A14
I-----I------~ ~----~- ----------l-----------[------------------I
1___ [ _ _
•
J 226 I 83E22E TO 84A07P
1 32.20.61.1 [ 84A01
I
1
I
I 32.20.31.1 I 83E22
[
1___
. 1
- - - - - - 1-----------I 227 I 83E220 TO MA070
1 32.20.61.1 1 84A07
I
r
I
1 32.20.31.1 I 83E22
I
t-I 228 [ 84A01R STUCK AT MINUS Y
I 32.20.61.1 1 84A07
I
1-------------------1
1 229 I 84A07R STUCK AT PLUS Y
I 32.20.61.1 1 B4A07
I
[ - -I"
. - - - -..~------- 1----------- I ------------------- I
I 230 1 83E260 TO 84A09R
1 32.20.62.1 I 84A09
1
1
I .
I 32.20.34.1 1 83E26
_
I
I
lOR
I 84A14F STUCK AT MINUS Y
I----I-----------~-----~----------I------------I------------------~I
I 32.20.66.1 I 8 4 A I 0 1
-------1----------1-------------------1
---1---------,----------1------------1-------------------1
I 225 1 84A07F STUCK AT PLUS Y
I 32.20.61.1 [ 84A07
[
\
I
1
1
I
___---------------1------------1-------------------1
STUCK AT MINUS Y
1 32.20.61.1 I 84A07
1
I
I
I
1-----1
1 220 J
1---1
r
-
I 32.20.66.1 1 84A14
II --I
----------------------....,-..,---1------------1
-------------- 1t
244 1 84AI0G STUCK AT PLUS Y
I 32.20.62.1 I MAIO
1 224 1 84A07F STUCK AT MINUS Y
1
I
I 84AI0G TO 84A14L
1---1-----------------1--------1
J 219 I 83E23A TO 84A07E
1 32.20.61.1 1----------------1
84A07
1
1 223 I 83E23A TO MA07H
I
I
!
I OR
I
I----I-------~------------------I-----------I------------------I
i
1
1----1-------------.
1 1
1
1-----1-------------------------------1------------1----------------.
. --11
1 243 1 B4AI0G STUCK AT MINUS Y
1 32.20.62.1 1 84AI0
84A07C
1---1-I 221 1 8U07C STUCK AT PLUS Y
1 32.20.61.1 1 84A07 .
I
1--1----:...------------1------------1-------------------1
1 222 I 83E2-2L TO 84A07l
I 32.20.61.1 I MA07
I
I
1
[ 32.20.31.1 I 83E22
I
I
1
.
1 1
1-----1
,. ----------------1------------1-------------------1
I 216 J 84A07G STUCK AT MINUS Y
t 32.20.61.1 1 MA07
1
I_
-_
- -1_________________
I - - -..---~-------------I------------I-------------------1
1
1
__________
1
___________________
1I
1 217 I 84A07G STUCK AT PLUS Y
I 32.20.61.1 1 84AOl
I
PIN 840257
PAGE
lOA
. . . --·-·
F004-*
10
PAGE
10
,
DATE
EC
;
1-5JUL65
124265
17MAR66
125643
1
I
------.:.1
10
PAGE
-----------_.
eeeee __ eoooooo o
••• 0 ••••••• ••••••••
PIN 840257
PAGE
11'
IBM MAINTENANCE DIAGNOSTIC PROGRAM
I
-_.
2B21 - 2540 READER PUNCH SCAN
I
2B21 .. 2540 READER PUNCH SCAN
I
I
1---1--------------------I 32.20.32.1 I B3E23
----1------------1----------------1
1
I 259 I B4A14G STUCK AT MINUS Y
I 32.20.66.1 r 84A14
- 1-----1----------------------I
I 260 luRES ERV ED**
- - - - - 1-----------i------------------- 11
I-----I----~-------~-----------------I-----------I-----------------~ 261 i 83E24Q TO 84A22Q
I 32.20.66.1 I 8 /,A22
-I~
1--1
I 32.20.32.1 I B3E24
I
• --------------1----------·· I ------------------ 1
~ 262 .~ 83E26Q TO 84A22R
I 32.20.66.1 I 84A22
- I
1----1---. _ ----------1------------1-------------------1
I 32.20.34.1 r 83E26
I
I
I
I
1
~263 ~ B3E26E TO B4A22H
1--1-----~
264 : ALWAYS GET
I
:
I
I
265
I 32.20.66.1 I
I 32.20.33.1 I
I
i ~~A22P
I
.
84A22
83E26
,
I--:--,-I------------------------------1------------1------------·-------1
1 32.20.62.1 I B4B09
1
~ 281 ~ B3E25E TO B4B09E
(----1----
~
STUCK
I B4C 13
I
I 32.11.14.1 I
! 32.20.66.1 I
BIFIO
B4813
I
I
I
TO 84C10Q
B4B07F TO B4B23P
I
I 32.20.66.1 ! B'.814
I 32.20.33.1 I B3E25
I
r 32.20.66.1 I B4814
I 32.20 .. 34.1 1 B3E26 -
I
!
j
297 : ""RESERVEDi".--:-····-.:----i-·--------:----~------------------i
32.20.66.1 I B4814
I '
32.20.66.1 I 84C08
32.20.62.1
32.20.32.1
32.20.62.1
32.20.62.1
i_:::
------------------1-----------1-------------------1
I 32.20.62.1 I B4809
I
17MAR66
125643
c·
1
--------- I -----.---,----------- r
I
I
I
r -.!,'----------------- I
I 34C08
!
t B3E23
I
r BI,C14.B4A09
I
I
I
I 84C23
I
I 300 I B4C08A STUCK AT MINUS Y
1 32.20.62.1 ! B4C08
I
~
:
•
I
I B4C 1'>
t
I ____ 1_____...:_______________________
::.::~.::_ _~: DO~ _____________
: 301 :.83E22A TO B4C120
I
279 : 83E27E TO B4B09A
15JUL65
124265
r
!-----l-----------------------~-------I------------I-------------------1
:
[ 32.20.64.1 I 84&12
! 32.20.31.1 r 83E22
i
!
I
-----1--------------------------- 1-------:..---- rI
1---1-----------------------1--------1------------------I
I
1--1---------------------------1------------1------------:..------1
: 280 ~ 83E24Q TOB4809D
I 32.20.62.t I B4B09
I
DATE
EC
B31:25Q TO B48143
4
B4B23
B3E24
I·
1------------
-I
r
i
r
r 29B I 84B14C STUCK AT PLUS Y
I
I
I OR
I
I
I B4C08F STUCK AT MINUS Y
I
, I - - - 1 - - - - - -...-------------------I 299 I 83E23l TO B4COSR
1
~
I OR
I
~
g4A09P TO B4C14P
I
•
R
I
1
I B4C23L STUCK AT PLUS Y
I
:I----I--------------~-----,..------I------------I-----278 : 83E24E TO B4B09C
I 32.20.62.1 I B4809 -- ----------1
1--1
I 32.20.32.1 1 B3E24
r
I 32.20.32.1
I
I MINUS .y DATA REG 0.2.N9
I-----I---:------------------------ 1------------i ·--~----------------l
I
32.20.34.1 I B3E27
I
----1-------------------------------1------------1-----------------I
293 I CAN' NOT GET READ KLArE 0 VIA 1 32.20.63.1 I B4610
-}
296 I B3E26Q TO
iI _____
l _________________
I---I-------------~-----------l------------I-------------------~
Y
I 32.20.61.1 I 84807
I
I
I
I
I ( B4B23C STUCK AT MINUS Y
I 32.20.61.1 I 84B23
I
I
I 32.20.63.1 I 84810.B4CI0,B4C11 I
i
: 277 : ~:B01F STUCK AT PLUS
~
..
295
1___
1-----1------------------------------1----------,--1-------------------1
: 276 : g:B07F ~TUCK AT MINUS Y
I 32.20.61.1 I B4B07
.
I
I
r
I _____ I ________________ ~ ______________ !_::.20.32.1 I B3E24
-1
i
I
I 32.20.62.1 I 114809
1-----!-------...:------,,;'..------------I-----------I------------------1
i 294 ~ B3E24Q TO 648140
I 32.20.66.1 t B4814
I
r
I
I
I 32.20.61.1 I
84B09P STUCK AT PLUS Y
1_292 I ALWAYS GET READ XLA1E 0
rI
I
32.20.34.1 I 83E21
!
32.20.63.1 I B4(;10
t
! 32.;10.61.1 I B4AOB
I
I
I 84C23l TO B1CI08
I 32.20.62.1 I B4C23
i - - - 1 - - - - - -...- - - - - · - - - - - - - - - I ----------- I - - - - - - - - - - - - - - - - I!
275 ~ B3E21Q TO B4B01l
I 32.20.61.1 I B4B07
-I
I 32.20.34.1 I 83E27
I
g~A08A
1
1-----1-----------------------I1-:2.20.31.1
! B3E23
!
-------t-----------------l
I
~
84B09
I-----I-------~-----------------------t------------I--·-- --------,---------1
291 : B3E23A TO 84BIOE
r 32.20.63.1 1 B4810
-------------------!
I---I--------~-------l------I
: 274 ~ ~~E27E TO B4B07H
I 32.20.~~:~-i-;~;~;-------------i
t
I 32.20.62.1 I
~
I---I---------------------------- 1
r -32.20.31.1
r B31:23
I
- - - - - - - -I ------------------. I
211 ~ 33E22Q TO 84B07E
I 32.20.61.1 I B4307
-I
1--1--------------- - - - - 1-----------I
r 32.20.31.1 I --------,---------B3E22
II
I
I
I
1------------
I
i
I 272 I B4B01C STUCK AT MINUS Y
I 32.20.61.1 I 841307
I ---l------~------------ 1----------I
I 213 I 84B07C STUCK AT PLUS Y
I 32.20.61.1 I 84B01
1 32.20.62.1 I B4809
I 32.20.34.1 I B3E27
I
I
I 32~20. 34.1 I B3E21
I
1 - - -I - - - - - - - - - - - - - - - - - - - - - - - I --.---------------- I
I 290 I 83E24A TO B4BI0l
r 32.20.63.1 t B4610
I
I
I
.
I 32.20.32.1 1 83E24
1--1-----------------1-----------I-------------------1
32.20.61.1 I B4801
287 1 84B09P STUCK AT MINUS Y
I 28B t
------------------ 1------------1------------------I
I
I
I-----I------_--_---~----_-----------I--_---------I-------------------1
1 289 I B3E27Q TO 84610F
I 32.20.63.1 I B4810
I
I 268 I B4B01G'STUCK AT MINUS Y
I 32.20.61.1 I B4B01
1---1--.
I
I 269 I B4801G s~;-'-;;:-;ZUS-;-----i-;;:;~:~~:~-~-;~~~;-------------i
: 270 ~ 33E23E TO B4B070
B3E26
I-----I-------------~----..,--~---------I------------I--~----------------1
I---I--------~..,----I 32.20.31.1 I B3E22
I
~ 26-7 ~ B3E23E TO B4B01A--------------~-;;:;~:~~:~-~-~~~;;-------------i
83E23
I 32.20.34.1 I
1-----I----------------------------- I------------l----------~-----·---l
i--I----------------------I------------1-----------------I
266 ~ B3EZ2E TO B4801B
I 32.20.61.1 I B4601
-I
I 32.20.31.1 I
r
----- -------------------------- 1------------- 1-------------------1
I
~
1----1---
32.20.32.1 I B3E23
--------- 11------------I
--------.----------- IJ
I 286 I B3E27Q TO B4B09Q
I
.
I
-------------1-----------1-----------------I
AT PLUS Y
I 32.20.66.1 r B4A22
-I
84B13C STUCK AT MINUS Y
t
1-----1-------------------------------1------------1--------------··----1
i 285 ~ .B3E26Q TO B4B.09H
1 32.20.62.1 1 84B09
I
I
BIGH
I 32.20.33.1 I 63E25
-------------------------1------------1-------------------I
B3E23Q TO B4B09B
.
I 32.20.62.1 I 84B09
I
: 283 ~ B3E25Q TO B4609F
1 32.20.62.1 r B4809
I
1
I
.
r 32.20.33.1 J B3E25
I
----- - - - - - - - - - - - - - - - - - - - - - - . , . 1------------I -------------------- I
I 284 1 B3E26E TO B4809G
I 32.20.62.1 I 64B09
Z
I
1
'
1 32.20.33.1 I 83E26
I
I
I
I 32.11.15.1 I
2B2 ~
~
'1-----1----------------------
----------------1------------1-------------------1
READ XLATE 6
I 32.20.66.1 I B4A22,84AI4,84813,1
1---1
PIN 840257
PAGE
11A
IBM MAINTENANCE DIAGNOSTIC PROGRAM
I 3021 83E22Q TO B4C12Q
I
r
10
FB04-*
PAGE
11
DATE
EC
I
15JUL65
124265
17MAR66
125643
-------------.~----!
1 32.20.64.1
B4C12
I 32.:W.31.1 I B3E22
I
I
10
1'804-"
PAGE
UA
--------------------------------------_
. .,"'
PIN
18/i1 MAINTENANCE DIAGNOSTIC PROGRAM
PAGE
840251
12
2821- 2540 READER PUNCH StAN
2821 - 2540 READER' PUNCH SCAN
I 303 I NEVER GET READ XLATE 2
I
I
1--1
I 304 I
----------1-----------1------------------1,
I 32.20.64.1 I B4t12
1
I
I
I
1
1-----1--------------.----1------------I
-------------------I
1 1
1
I
I
305 1 83E260 TO 84t13D
I 32.20.66.1 I 84C13
32.20.34.1
B3E26
J
Ij
I
I-----I-------------~-----------------[-----------I-----------------1
I 32.31.10.1 [ 81H30
I
II
I
1
I
1--1---------1
I
I
[
1 32.20.33.1 I 83E25
I
VIA 2 NT 34561
I
II-I
312 I
I
I
J
32.20.33.1 I 83E26
I
IJ 32.20.34.1
32.31.10.1 I 8lF29
83E26
I
1
1
1
I
I
83E260 TO 81F29E
1
I
."
I
I 32.20.61.1 I 84A08 t 8~A01
1 331 1 84A01G TO 84A08R
1
1---'-1-------------------1---------1---...,-.:.--------1
I 332 I B4AOSA STUCK AT MINUS Y
1 32.20.61.1 1 84A08
1
1---1-----------1--------1----------------1
I 333 1
TO 84A08P
1 32.20.61.1 r 84A08.84A07
I
1 - - - 1 - - - ·- - - - - - - - - - - - .
1-----------1-:..------------1
I 334 1 84AOBC STUCK:AT MINUS Y
1 32.20.61.1 1
1
4
84~01C
1-.0.-1 - ,- - - - - - ,- - - -...- - - -...-.., 1-----------1
-------------------1[
1 310 1 84C13G STUCK AT PLUS Y
I 32.20.66.1 I 84C13
1----1----. ---------- 1----------1
----------------1I
I 311 I ·83E26E TO 81F290
I 32.31.10.1 I 81F29
I
1
32.31.10.1 I 81G29
11-----1----------------1-----------1
1
1
-------------1r
1----------1----------------1
1 32.20.66.1 I 84t13
I
84C13G STUCK AT MINUS Y
11
TO 81G298
I-----l-------------~-----------------I------------I------------------11
I 330 I CAN NOT GET INVALID CARD CODE I 32.31.10.1 1 81H30.81G29
----------1----------1----------------1
I 32.20.66.1 I 84t13
I
1
309
I 32.20.33.1 I 83E25
1I OR
BIH30G
1 32Q 1 61H30G STUCK AT MINUS Y
1 - - - -..-----------1------------1------------------1
I 306 J 83E26E TO 84C13C
I 32.20.66.1 I 84C13
I
1
1
I 32.20.33.1 I B3E26
I
1---1------...------,
,--..--.. -- 1------------1------------------11
I 301 I 83E250 TO MC13B
1 32.20.66.1 1 84C13
.
1---
1
I
I---J
308
83E25E TO 84C13A
1
1
.
.
1---1-----·
----------------1-.
. ---------I1----------------.,.--1
[ 321 1 83E25E TO 81H308
1132.31.10.1
B1H30
. 1
I
I
32.20.33.1 I 83E25
r
1-----1----------------------1--------1----------------1
I 328 1·· 83E250 TO BIH30C
11 32.31.10.1
181H30
1
I
1
.
32.20.33.1 1 83E25
I
I 32.20.64.1 I B4C12
1 32.11.13.1 I BIEIO
CAN NOT 8LOCK REAO XLATE 2
I VIA· MINUS Y DATA REG 12.Nll
, f
pIN 840257,:
PAGE ' 12A,'
IBM MAINTENANCE DIAGNOSTIC PROGRAM
8~A08
1---1--------------------1-----------1-------------------I
I 3'35 I 84A01F TO 84AOSG
I 32.20.61.1 I BltA08.84A07
1
l--I------------~--
1 339 I 84801C TO 84A08E
1-------....:.1------------------1
I 32.20.61.1 I
1
1 340 1 84AOllO .STUCK AT· MINUS Y
1 32.20.61.1 1 MA08
1
I 32.20.32.1
132.20.61.1
1·
1 32.20.65.1
1
1
J
1---1-.:....-------------1---'-------1-----------1
1 336 I 84AOSF STUCK AT· MINUS Y
I 32.20.61.1 1 84AOS
.I
1--1--------1--------1-------------.----1
I 337 I 84801G TO 64A080
I 32.20.61.1 I 84A08.84807
1
1--1-----.
.
---------1------1------.
---I
I 33S I 84A088 STUCK AT MINUS Y
J 32.20.61.1 I 84A08
1
-----1----------- I-------"----------- I
I
II
1-----1------------·-----------------1------------1------------------1
I 313 I 81F29C STUCK AT MINUS Y
I 32.31.10.1 1 81F29
I.
!
I---I-..........
-~--~--------------I------------I-------------------I
I 314 I **RES·ERVED**
I
1
1
1----1----------------1-----------1-------..----1
I-----I-------------~----"
I-----I------------------~ ~
I
I
OR
I 81F29C TO 81G30A
I
1 315 I 83E250 TO 81F30G
I
I
!
I 32.31.10.1 I 81GlO
------------1------------1-------------------1
I 32.31.10.1 1 BIF30
I
I 32.20.33.1 I 83E25
341
I
1--.:.-----1-.:.---------------'-I
I 32.31.10.1 I 81F30
"I-
1 -I
I 316 I 83E26E TO 81F~OE
I
I
I!
I
I 32.20.33.1 1 83E26
I
I
1----1------------·---------------1------------1-------------------1
I 317 1 83E260 TO 81F30F·
I 32.31.10.1 I 8lF30
I
I
1
I 32.20.34.1 1 83E26
1
1---1
'---- 1----------I
---------.---------- I
I 318 I 81F30l STUCK AT MINUS Y
1 32.31.10.1 1 81F30
I
!
!
I
I OR
I 8U30L TO 81G300
I
I
I
I
I
1 32.31.10.1 1 8lG30
1--1-----..
----I 319 1 •• RESERVED..
f
I
!:
,I
1
J
I
J
"
I
I
I
I
I
I
1 32.20.34.1 I 83E21
I 344 1 **RESERVED**
I
&
1
I
I
&
!,
----""!"'----~--
1
1 32.20.32.1 1 83E24
1
I
I----~I----------------~----------I------------l~-----------------l
1 341
-.RESERVEO..
1
I
1
1
1---1------------------.;...,1-------1------------1·
1
32.12.34.1
81C27,81C23.81H17,1
I
1 BlA19
1
1 32.11.25.1 1 81GOS
1
1 348 1 .-RESERVEO"
I
I
I
-------..:..-I----------1----------------1
1 349 I "RESERVED"
1
1
1
1
----1-----------.....:.-_--.,.-.
.
---1---------1---------1
. t 350 1 84A01R TO 84B08A
I 32.20.61.1 1 8480S.84A07
I
I~----I--------..- - - - -...
1..;...,---1-----------------------------1-----------1-------------------I
J 351 1 84801G TO 848088
t 32.20.(,1.1 I 84808,8~807
J
I 32.31.10.1 I 81H30
I
1 32.20.34.1 I 83E26
I
-~--~--------------l------------I------------~------I
I 326 1 83E26ETO 81H30D
1 32.31.10.1 1 81H30
1
I
I
.
[ 32.20.33.1 [ 83E26
[
l---I--------~-- --~·-~--'""!'~--~--~-l
y"
t
~--..----- (-....-~----I-...;.---""'---~-~...r.:l·
I 32.20.32.1 I 83E24
. --------'--1------------1----------------1
1-----1----.
. ..:..----.. ----------1--------1-------------.
. --I1
I 352 1 84801(; TO 848080
1 32.20.61.1 I 84808,84807
.
.
.
I-.
.
""!".....---,---I-----.
.
.
I 353 I B4B08C STUCK AT MINUS
I 32.20.61.1 1 8 4 8 0 8 ·
I
I 325 t 83E260 TO 81H30E
1
1
1-----1
1!IJUL65
124265
17MAR66
1256.. 3
'~
I
f
000
-----l---....------.. . .,.-. .
1 354 I 84808C STUCK AT PLUS Y
10
FS04-*
PAGE
,12
,!
o o b
I
1
1
1--1'
DATE
EC
1
..----1I
[----:-1---------------------------1----------1-----------------I
1 345 I CAN NOT GET READ XLATE 4 VIA I 32.20.65.1 1 84A12
I
I
1 DATA REG S NT 1
NT T
NT E l l
I
--l--------------I--------J-..
..--II
11-'
346 183E24A TO B4A14H
[ 32.20.66.1 I 84A14
32~
!
I
I
1.84A12 .
1-----I--------_-_--~----------------I------------I------------------1
1------1··~-------------I------------I-------. .----------II
t
1 83E240 TO 81H30A
1 32.31.10.1 I 81H30
I
TO 84A12G
I 83E23
1 84813
1:"'--1---..-------1--------1-------------------1
I 343 I 83E27A TO 84A12E
1 32.20.65.1 I 84A12
I----I--------------~------I-----------l-------------------I
1
I
I
,
STUCK AT MINUS Y
1-----l.:....------------------I---------I~---------1
1
I 323 I **RESERVED"
II
TO 84A12F
.
----1---.---------1-------------------1
I 32.20.65.1 1 84Al2
1
I 342 1 **RES ERV EO..
-1----------1------------------1
1
I
I
1---1---------------'- 1----------1 ------------------1
I 320 I "RESERVED."
1
I
I
1-.--1
..---------1----------1-------------------I
1 321 I "RESERVED..
I
1
.
I
1--1
------------1-----------1------------------1
1 322 1 ALWAYS GET INVALID CARD CODE I 32.:H.IO.l 1 81G30,81G2Q,B1H31 1
;
83E230
OR
84813L
OR
I 84813L
84A08.8~807
o
... ,._--,---", -_...
--'''----
---
DATE
EC
15JUL65
12~265
l1MAR66
125643
I 32.20.61.1 I 84808
I
e. e e e e e. e e e e e e e e e eeeee eeeee e e e e e e e
_··0
,
t.
_;:li-l_ _ _~_ _ _ _- . . . l_ __
!,
.----,.--.-..;.--~~
:j
PIN 8lt0257
PAGE . 13
IBM MAINTENANCE DIAGNOSTIC PROGRAM
IBM MAINTENANCE DIAGNOSTIC PROGRAM
2821 '-25ltO REAOER PUNCH SCAN
1--1
1 355 I
2821 ... 25.ltO READER PUNCH SCAN
------
8ltA07F TO 84808Q
1-------1---------------1I
1 32.20.66.1 I B 4 C 1 3 1
l-----I-----__ ------~ __
~-I
384
**RES ERV ED**
.
-----------~----~~---.---l-------~-- -~--------1 365 I *.RESERVED**
I
I
I
'1 32.20.61.1 I 8ltB08,BltA07
I
1I-----l----------------------~-~--I------------I------------------I
356 I B4A07C TO B4B08R
'.'
I 32.20.61.1 1 SltB08,BltA07
I
1
t 32.20.61.1 1 84B08,B4A07
B4A07G TO BItBOBH
1
."RESERVED••
I 386 I
--------------1-----------1-.. . . .-------------1
1 3B8 1 •• RESERVED".
t ----- I -~------...--......-
1--1
. ---l-----[---~--"""--4I!i . .----l
I 361 I •• RESERVED..
I
I
1----1---------------------------1-----------1------------------1
I
1 8ltA07R TO BltB13H
I 32.20.61.1 I Blt813,84A07
I
1--1------------------1----------1----------.,----1
1 366 1 .*RESERVED."
I
1
1
1--1---------------1----__
---1----------...-----.-1
,I 367 I .... RESERVED..
I
1
1
I--l---------.
. ------------I----------l------------~---1
STUCK AT MINUS V
I 32.20.62.1 I BitCH
t
II1 369 11I ORB4C14A
I
I
'
1
BltC14/\ TO B4822C
1 32.20.62.11 B4822.84C14
I
I
------------1------------1---------..
1 - - 1 - - - - - -..
-----1
I 370 I "RESERVED"
I
I
1
1--1
· ..--------I"-~·----I---------------I
I 371 I B4C14C STUCK AT MINUS Y
I 32.20.62.1 I S4Cl4
1
I-II.
..
1
--------------1----------1---------·
------11
1 - - - 1 - .---...-....- ...- - - - - - - ,~-!'- I---------~-I----~--- -----I
1372
32.20.62.1 1 84C23.84A09
I 373 1 B4C23E STUCK AT PLUS Y
I 32.20.62.1 I'B4C23
1----·-I------~_~--------....,---_-I---------..
1374 1 B4B09P TO 84C23P .
1 32.20.62.1 I B4C23,B4B09
.
1
1---1
--~t 375
8ltC23Q STUCK AT PLUS Y
32.20.62.1 1 84C23
1
I---I----4------..I!'----------I-------~----1------ ------~----1
1376 1 B4CHG TO B1FlOF
1 32.11.14.1 1 BIFI0
I
I
1
.
1 32.20.66.1 I BItCH
1
I
--l------------------l
11-----------1------------------1
I
.
, 'I
'
B4A09P TO B4C23D
..
If--'""!'----- 1I-------I-----~---:.-----t
32.11.14.'l I BlFlO
1
1---:,,~I-""!---"'" 1 • .
1 377 I ALWAYS GET READ XLATE 5
1--1
I 378 1 B3E24A TO 81G29A
1
J
1---1------..
--1------:....
I
. . . . . --1--·
1
1
1 379 1 "'RESERVED'"
1-1
__ ~_"'01001
1 380 1 -.RESERVED".
DATE
ec.
15JUl65
1242651
17MAR66
125643
If
.
I
I
I
l---I--------....,------------l------------I--------...--~---l
f
l
-I
I
I
......;..-I
1-----I-----------------~--~--.;...,.-----I----;..----._--I---------------I
I
I 396 1 ALWAYS GET READ XLATE 1
I
i
I
1
.
l'
I
I
1
1
1
I MINUS V DATA REG NOT i ZONES
I AND MINUS Y DATA REG NOT 9
1 32.20.64.1 I
.I
I
I 32.20.62.1 I
I 32.11.12.1 1
B4A11,B4B11.84C08,1
Blte14'
I
B4822
1
B1D09
I'.
1--1-----------'.
-.<..- - - - .----1 .....------1---I 3971 NEVER GET READ XLATE 1 VIA 1 32.20.64.1 IB4All-
i
I
I
I
-., -1'
1
I
1
I
.I
1--1----------------1----------1-------,.--·
-"--1I
1 398 1 **RESERVED..
1
.,!
'~I
!
1--1-------------1---------1-----------1
I 399 1 **RESERVED**
I .
I
I '
.,1!
I--I-~....--....---~---I--------I---:-.---------I
I 400 1 B3E27A TO B4A128
1 1 32.20.65.1 1 B4A12
. I
I' 32.20.34.1 I 83E27 ,
r
I
II ----1--------.
.....------------ I
1------:-..,---II ----------~----I1
401 1 .... RESERVED*.
'
o'
1-----1----
j
--~·~~-~----I--------~--I-----·--~-~~------l
1 402 1 **RESERVED••
I----I~~-----~----~~~--~-~~-~--I--------~---I------~
1t03 1 B4AOBB TO 84A13A
I 32.20.65.1 I B4A13
I OR
1 32.20.61.1 I B4A08
1 B4AOBD TO B4B19Q
I 32.20.65.1 I 84819
I
I 32.20.61.1 I B4A08
1 - - 1 - - - - . - - . . -...-.- - - - - - . 1 - - - - - ·
1 404 1 B3E27A TO 84A13B
1 32.20.65.1 1 B4A13'
1
1
'I 32.20.34.1 I B3E27
i
r
__
:{
~-w----I
I
-1----------:-.. .
I
1
1
-1.
1
I
1 405 IBltA13G STUCK AT MINUS Y
1 32.20.65.1 I 84A13
1 - - 1 .....
.:.--!'~-+-~~~ I-~-~-~~~--I~""'!'-----~-'""!'--...;:.;..~-l
1 1t06 I.**RESERVED**
-~~~--------I
1
1--~-I----~---.--~--~-~-------~~-~I------------l-------------------I
,;,,·fJ--'!'--~-'"'!~--I--~~~~~----1
I 407' 1 B3E23L TO 84A14D
1 32.20.66.1 I B4A14'
1
1
1 32.20.32.1 I B3E23
I~---I----------...---..;..-----l--------I------~
I 408 1 "'RESERVED..
I
I
"
. .-----II
l----I--~-~~--------~-I---------I----------~
...
. . . . . . . .-I
-1-----...--·. .---·. . .-----1---·--------1---------,.,----1
1 409 1 B4A14C STUCK .AT MINUS Y
1-,-.
I 410 1 "RESERVED"
'10
F804--:1
PAGE
U
DATE
EC
!
i,
I,
.......- - - -..---.... I------------·I - '----~-------- I .
I 393 I ".RES ERV ED".
I
1
1
I-~I-----~--"""---~~~~-~-~-~J-------~-~~l----~-~~~~~~-~-I
1 .3941 B4BOBC TO 84AllA
I 32.20.64.1 1 B4All
1
. I
1 32.20.61.1 I B4808
t-·-'
-------I----------l------~I 3.95 I B3E27Q TO BltA11D
1 32.20.64.1 I MAll
1
t I l 32.20.34.1 1 83E27
1
..
....
I~I----...-~·~~..--~---~--. . I---------I------.. . --~--l
1 ,383 1 84C13G TO BIG29L
I 32. H.I0.1 I BIG29
J
b .....
I
l----I---------------------._--~-_I---------_--I-------------------I
I~---I-~---~---~-----------~-----I------------I-------~----------I
I 3Bl 1 "'RESERVED..
I
I
I
t-I..
--........--~--~ I------~ ---I----~-""'!'~---~-I
I 382 1 "-RESERVED""
1
,
II'd
I
1 392 I ""RES ERVEO**
1--'---;.;-----1
I 32.31.10.1 1 81GI9
1
32.20.32.1 IB3E21t'
I
~~~~~~--1-----
I
-----l
I - - - -I ----..:..--.. ------....-:----~---- I-------~---:--l----.........- - - - - -I
1 391 1 •• RESERVED*"
1
I
1--------..
1
I
I
l--I----.
. ------~~----~~~I--------~'""!'. . -I------..------~--I
1 390 1 ".RESERVED""
!
1 - -1
--------------..,1-----------·---1
I 36B 1 84B09P TO MC14R
I 32.20.62.1 1 8ltC14.BltB09'
I
1
1 DR
I
I
I
1
1 BltB22A STUCK AT PLUS Y
I 32.20.62.1 I B4B22
I
!
I
..
1
I
1
----1----·
1--.;...,.------1----.. .....;--·
.
1 3B9 I ""RESERVED*"
\
~62
I DR
1
1
I
I CAN NOT GET READ XLATE It VIA I 32.20.65.1 I 84A12'
1
I
1 DATA REG 8 & NT 2 & NT T &
I
1
1
I
INTE.l
1
I
1--1
----1-------"---1
I 363 I •• RESERVED..
1
1.
1
1 - - - 1 - - - .- - - - . . . - - - - - - - - -------1
1 361t 1 "RESERVED..
1
I
,
,1
1-1----- •
-1--------1------------1
1365 1 •• RESERVED..
1
1 .
1
"RESERVED**
1 3B7 I *"RESERVED**
1
I 32.20.61.1 I Blt808.BltC09
. . ---_:__-I
l-....,--I-~--------~- ----------I---------_I-__ - - -___
-1----...;.-I------~--1
M800P STUCK AT PLUS Y
I
I-----I----·--------~~--------------_I------------I--_----------------1
------·-..:--------1-------..
--1----------.. .------1I
I 32.20.61.1 I Blt808,BltC09
BltB08P STUCK AT'MINUS Y
---------------I------------I----------------..
I
1
I
I
I----I
1---1---------.,.--~--1---------1---------------1
1 357
1---1
I 3:58 I
1--1
I 3.59 1
1--1
I 360 1
J
PIN 8lt0257
PAGE
13111
7
[-//
/'
15JUL65
124265
17MAR66
125643
10
F804-PAGE
13"
IBM MAINTENANCE DIAGNOSTIC PROGRAM
·P/N
pAGE
2621- 2540 READER PUNCH SCAN
2821 -
I-----I----~---~-~~---~------------!---------~-~I-------~~------I
I 411 I B3E23E TO B4810A
I
I OR
I
I 53E23Q TO 1l4Clll
I
I
I
I
I
I
32.20.63.1
32.20.31.1
32.20.63.1
32.20.32.1
I B4610
I B3E23
IB4Cll
I B3E23
1 412 I B3E23E TO 84BlOA
I
!
I 32.20.63.1 I B4B10
I 32.20.31.1 1 83E23
I
I
----·1---------1I ---------------.. --{I
[32.20.63.1
I'
I
I
r 32.20.63.1 I B41no
I 32.:W.61.1 I 64823
1
I
CAN NOT GET READ
I 'lINUS Y DATil REG 2&3&4&5&6&7
I liND NOT !i Nor '}
I
I
1
I
I
I
I
1
84(;231: TO Bft811f
I
I
I
1
DATE
EC
.~)
(~)
I MB.oat TO 841.Ul
1
I
• 32.20.61.1 I 64808
15JUL65
124265
..---.. --.,.----.. --'--I~------. .--I-----------~------II
I 32.20.65.1 I B4B12
B3E23A TO B4B12R
32.20.31.1 I B3E23
1
32.20.65.1 I B4607
' I
32.20.62.1 I B4822
,
I
-----_-~----t
32.20.65.1 1 B41H2.
I
32.20.62.1 I B4C23
t
..---...,-----------I------------i----------------1
1
I OR
I
I
IB3E22l TO S4S 121'
I
t
I 32.20.62.1 I 84C23
I 32.20.65.1 I 84812
I 32.20.31.1 I 83E22
r-----l------------------------~-----l------~~---I------~
451 I CAN NOT. BLOCK READXLATE 3
132.20.65.11 84812
!
..
to
17MAII66
125643
PAGE
0 0 () () 0 0 ;0 () 0 10 fO 0 0 0 10
.>
443 I
I
I
..----------1
.
I
1
LVIA MINUS Y DATA REG H:2&3&
I
I
I
I
I 4&5&6&7&6&9 AND T AND NOT E
I
I
I
I ---~- 1.--,'"":_...._-.-" ~:-~~~ .....~":"'.-68 I NEI/ERGer MINUS v BUFFER ENTRY I 32.20.80.1 I B4B2jl,B4A21,B4022 I
I--~--l---------~---~--- -----------~-l------- ---l--_----------~-I·
I 669 I ""RESERVED"'"
I .I
. 1
1---- t - _ ._. ------"-------....:..-'------ 1-----------I -,.;---~--_..._----..~-l
I 610 I NEVER GET PLUS YCHAN REG 0 . 132.11.12.1 I Bl010,81009
1
I
I AT PUNCH TRANSLATOR CIRCUITS I . t
I
AlO PAGE
1
I ARE OUT Of SEQUENCE., THERE
I
I l l S A TOTAL OF 135 DATA RECOROSI
1
1 SEQUENCE NUMBERED 031 THRU
I
I
I 165.
.
I
I - - 1 -------~---. -----~-"'----I 651 I CAN NOT ISOLATE PUNCH
I
I
I TRANSLATOR FAILURE. S E T · l
I
1 SECTION SENSE SW ITCH 2 TO 1
I
1
I TO OBT AI N PROGRAM LOG OUT.
I
ITRANSLATORCH~CUITS.
1-·--1----·------~--------
------_._-----..,,,-----.
I
..
i
I
ERROR .MESSAGES COMMOIII ONLY TO ROUTINE 05 --PUNCH
TRANSLATOR FLT..._
....
......
.....-~-----1.....----'--~~'--~-I
. .....
------------------ -.
. I
1666 I NEV.ER GET CHAN REG 1 AT PUNCH 132.1.1015.11 BIGH.B1GIO.61HIO.I
I
I TRANSLATOR CIRCUITS
. 1 . . I BinI
.. .
I
4.3.6
.,.."
. IBIHIO,B1012
I -----1--.,-----,.----..------------,----I ----.,.------I --..,-.--,..---------1
...--.---,-'-.-.,..---.- I$---,..------:.-1--------.,.--.-------1
I
I
I
..
--~-l-----------
-.--...,...-~--
1
I
1----1-·---------_:_-.,.--------...........
-- 1----..----- I---------_:_--------1
[ 6/13 I ALWAYS GET CHAN REG 5 AT PUNCHI 32.• 11.14.1 I BIFlO.BiGIO,BIF09,1
t
! TRANSLATOR CIRCUITS
I
I IHH10.131Fll
I
1,..----I - - ' - ..---.. ~----..;---.:..--.,------ i-----..---.. .-- I ---------..---,..----- I
I 664 I NEVER GET CHAN RES 6 AT PUNCH I 32.11.15.1 I BIGll.IHGlO,BlE08,I·
1
1 TRANSLATOR CIRCUITS
.
·1
1 !HHIO.B1Fll
. I
1---1 - - · - .- - - - - , . - - ...-----.,.-.
1-------------·---..
-1
1665 I ALWAYS GET CHAN RES 6 AT PUNCHI32.U.15.1 .1 81Glh131G10.81E08,1
1------------
64'11
I TRANSlATORC.IRCUITS
I 662 I NEVER GH CHAN REG '5 AT PUNCHl 32.11.14.1 I B1F10,IHG10,BIF09.X
I
I TRANSLATOR CIRCUITS
I
I B1H10,IHFll
I
1
I B',e 11
I
---..._l----------c--.---o.--,--1--""--------1-----'--------i
I ""'RESERVED....
.
1---.,-1-...--...--..-------,..--·------.,.---- I ----------~ l-----'---,.-'------~ ..l
i 625 I ""RES ERV Ep....
J
I
!
I ---I--_._'-'--,..-.. - -..------I ------~,,..-- .....--___ ~
! 626 I ALWAYS GET REAO XLATE 1
I 32.11.12.1 I B 11109
1
1
1
I 32.20.64.11 84C14.S4COlhB4AU.I
I
I
J 84e11
r
THRUI
__________..-,.-·I-·------I--,.----c---:..-----I
I 661 I.AlWAYS GET CHAN REG. 4 AT P(!NCH! 32.11.14.1 I B1FlO,BIEl2.BIF09,I
132.11.12.1
131009
:I 32.20.63.1 I 84C1'''84810,B4C1I)'1
(I
--------------_:_----.1
I 660 I NEVER GET CHAN ii· ...
' . :
IBM MAINTENANCE DIAGNOSTIC PROGR.AM
2B21 - 2540 READER PUNCH SCAN
~
..
...
10
PAGE
f804-"
19
DATE
EC
. 15JUL65
124265
17MAR66
125643
10
PAGE
F804-.
19A
"
ISM MAINTENANCE DIAGNOSTIC PROGRAM
PIN
PAGE
2821 - 2540·READER PUNCH SCAN
----------.-.01'!'.....:----~
1730 I 8lDllATO 84AUQ
I 32.20.10.1 I 84Al3
I '
I 32.11~12.1 181011
I
1.. -.-', I ___ -~:...:.....-:----~-.,; I"""--""''''''~--'!'----J-----1731 1 B4Al3R STUCK AT MINUS V..
I 32.20.10.1 I B4A13
.
I
I
.
.
.........--.....~--~-·I
.
I
I~""!'..-I--~~-~~......~~..-.:..~---l~·--~~~---I·-"":"----~~--I
J 732 IB4A13R STUCK AT.PLU$ V I 32.20.70.1 I 84A13
t~-I---...-~--:-~~~-""!"-I-~~-""!'--~~--I~--·-------------
I
. . .-I
84C08,84A13,84B15 I
81El2E TO 84C08Q
OR
B4A13R TO 841H5.R
.
I 32.20.70.1 t
J 32.11.13.1 J B1Ell
.
I
I ·
I·
I
1 32.20.70.1 I B4C08
1
~-~"'---+~-~-I~-----~""'!',,:,,-I-----~--""'~-""""""'---I
B4COn STUCKAT.MINUS Y
I---I-----:'-.,.-+:------""'!"------.----I-;...---~""'!''''!'--l---~...:-----I
J 32.2.0. 71~ I 1 84816
I
J 735 I 81GIOL TO B4B16L
I
I
1"-"-1--
I 32.11.15.1 1 8lGIO
1
•• 1------1---I
I 736 I BIG10A TO B4816H
./ 132.20.71.1 I B4816
I
I
. .
t 32.11.14.1 i 8lG10
I
I .
I-I
.~
--~--~-I----~--""!'---I-------~---· ~1
1·737 I B4816F STUCK AT MINUSV<'"
132.20.71.11 84816.
..
I
I
-"'-"'. .-.-.- - - - - - 1-:-------:-1---.-.-~:.-----l
I 738 I 84.816FSTIJCK .AT PLUS V
.
.
I 3.2.20.71.1 .1 84B16
I
[~I~~~-~-~~~--~~.:.-I---.;,;,.----:----.;..I----------~--""!'--1
I 739. I 81GIOA TO 84816P
I ·32.20.71.1 I B4816
I
I
J
I 32.ll.14.1 I 81GIO
1
1--1-..
--1-------.:.-1---.....:.1
1740 I 81GIOE TO B4816Q
I 32.20.71.1 I 84816
1
J
I,
.
.
I 32.11.15.1 1 8 l G l 0 r
I----I---~~-~,..~----------I-I 7411 84816R STUCK AT MINUS Y .
1 32.20 • .11.1 I 84B16
r
1-·-.-1
•
---"------------1------:...----1-----------..,-..--..,-1
• 742 1 84Bl6R STUCK AT PLUS V
I .32.20.71.1 I 84B16
I
. .--_:----I--------------I
I~~-l~-~-..;..~--:-"":'-.-.-----~--- I~----.--~-l----~~-~~-I
I 32.20.73.1 I A4All
I
I .32.11.13.1 1 81El2
I
I----I-~
.
.
.
--.,.-,...-1--·---'-.--1----.....
• -I
1744 1 BlE12ET() 84A11H
.
I 32~20. 73.1 1 B4All
i
l'
I ' .
I 32.11.13.1 I 8lEl2
1
·1--1 .
.....
". --~---~~-~- I--""!'--~-';-~--- I ------~~-~~--...-I
I 7451 NEVER GET PUNCH TRANSLATE 11 I 32.20.31.1 I 83E18
I
I 32.20.73.1 I 84A18,B4CI7,84B17.1
1
I
I .
J .
I
I 84AH
.
1
1743 1 81El2A TO 84AllG
I· . I
1--,.
1--,.·---,..---------- 1-:.....,-------- I-_:---;.,-----..,.------1I
1 71t61 CAN NOT Sl.OCK PUNCH TRANSLATE I 32.20'.73.l I 84All
I
111 VIA PLUS V CHAIt.REG 2 AND 31
I
•
I
1-'-I·-~..........~~~~~........--·J----:..-"':'"--:l.:.-...:---·-"';"'~---------I
I 747 i 81010A TO 84C220
I 32.20.77.11 84C22'
I·
J
.'..
I 32·.U.12.1 I 81DI0
1
1---I--~--...--..----..._--------1-:-"':---------1-------------·---I
I 748 tBlolOE TO 84C22P
I
77.1 I B4C22
1
32~20.
1
t
.
I 32.11~12.11 BI010
I
1 -.....
- - - I...
~,..-----'---~---1
I 749 I ALWAYS GET PUNCH TRANSLATE 9 I .32. iO.34.1 I B3E20
I
I
1
I 32.20;'71.1. [ 84C22,84C21.B4A21 I
1-
- - - -...--.-.
.;------I ......
t - I... --'- - - - -....---"""'--... I---------~-- I - - - - - - - - - - - - - - -.... I
I 750 t CAN NOT GET PUNCH TRANSI;ATE 9 I 32.2Q. 77.1 I B4C22
[
1
I VIA MINUS V NOT CHAN REG.O.I
I
t
1..
1 AND 1
. .,
1 .
1
t
I ~1.
.___-_--:-______ ~_....~..i.- I....:..-:---~~~ ...-I ;..;~---~~~-...--------- I
17511 B4Al1'P TO 84C15R .. "
.. ' ....
I3Z.20.70.1IB4C15t8'tA17·
I
I --~.I. -~-.-----~~--.... -..,.:~-~~--l--.-;.--~OIOoo>~~I---~--'""!'--~oiiOt~
I
1 752 I 84C15A 51Ue,: ".T MINUS V
I 32.20.70.11B4C15·
'I
I~I".I0~·.:.
.;-"
.. ~~l~~.~~-~i~~~~-.~.~~~"~.... f
J 153 I BU14I;TO. 8i/tCI5P'
132.20 • ..,0.11BItC1S'84B14.
. . -..--
'DAte;
.lit
.
t
o · OO
15.1UI;65
124265·"
j7~R66
12564)
8402~11'
'.
2V.,' .
18M.,MAINTENANCEDIAGNOSTIC PROGRAM'
PIN B40;;!57
..PAGE
. 20A
2821 - 2540 READER PUNCH .SCAIt
'I
I
I
I
I----.I~~~~--.----I---...:---I-~-----..;.------I
1--1
....
,
I -.-~~ I ---~~~-...---:-~--~~~--- I-~-------- J
I .729 I 81DUP TO 84A13P
.
I 32.20.70.1 I 84A13
I
I
.
" I 32.U.l;;!.l I 81011
I 733 I
J
J
I
I
1--1
I 734 I
:-f· ·~.·~...·''''
I
I--I-~
,4
I-~---"'~I-'-·,-.-';'---"~-~I
- -
I 32.20.70 • .1 I 84C!!>
."
I
I-~~I-~---f~~-----------~i~---~~-I--';"-'-,'~~~';'I
. I 754 1 84C15C STUCK AT MINUS Y
" I 7551 8IG10A 'TO 84B14H
l·32~20. 70.1 I. 84811t
. I
.;1 .
I
....
'. I32~.1l.14.1. 1 8lGlO
.I:
. I.--.~ ~-~-~~~~-.-~""-----~----':"--~~ l--:~---~---- I --:-~+--·~~~~I
I 756 1 81EOBQ TO B4B14Q .
I 3~.20. 70.1 184814 '.
I
I'
. .
" . 132.1hI5.1 r BlE08 '. '.
.1
.
.i.
1 - .'-~.I-~-:.-'
'
-~~--l.~:-....----t~~~~~~~-"'-I·'·
r 32.20.70.1 I 84B14 ' . I
I
. I
.
'.'
I 32.11.15.1 I B.lGIO
.
.
I
I ~I.--f"-.----;"'II'-'!'~- :..-.*'!"~-'~'-~~""'!>--~ I'""!I-~-:-~~---~-I-""~---~~""":~";'--'I
1 758 I.81t81~P STUCK AT "INUS Y
'. I 32.20.70a I B4811t
I'
1 757 I 81GlOl. TO 84814R
..
·t.-~~-I~~--~--:--~-..--~·I~ ..- - -.. -I--~--,.I> ..........~......---"""--l
..
1 759 1 B41l14P. STUCK AJPLUS V
.
I l2.20.70·.1 1 BItSIIt
1
I -~~-l---~~--...--~-~-~""!"-...;~~---- I--~---I -.:....-~;...""'!'~~-~"""~~'""I
1 7601 81F09A TO B4AUD
I 32.20.70.1 I 84A13
I
I '
I 32.11.U.l I 81F09
I
1--'""'1
..;.......- ...~--~.....-: .. ,'.
,·I-----··---I~-~-...--.......:~............. -I
1761. 1 81El2E TO. B 4 A 1 3 E i 32.20.70.1 I 84A13
I
J '" J .
.
. } 32.11013.1 I BIEl2
.
I ..
. . ---
I--~l~~--~".;.-~~.----_oooi-~""'!'-·I~~-~-.~ .....'-.I--~~~~~I·
I 762 1
84A13C STUCK AT MINUS Y . "
I 32.20.70.1. 184M3
".
"
I
1-'---I~-~-"-"'~-- ...~~--:---~:-~t~--~~~-~....--..;..~I---~~'":'"~~-....;-~-~1
I .. 763 I 84A13C STUCKAT·Pl.US Y .. (.
.132.20.tO.1I84A13
I
1-.,..---1
--,,-,..---.
"•. : ,,·~I-:"'.--------l";':'';------';--''''''-I
I .764 I B4AUF TO 81tA23Q·.,
. I 32.20.70~.1 I B40\.23,84A13
.i
I-+I--:--~-';"''''''''-'!'~-'''''''!''''-'"'':-----~~~ I~---~-'""!'--:l-'I~-~~-~---~-~~I
I32~?0. 70~11 84A;;!3
.. v.
"':"'. -I--.i..-_
. . . . .'1 32.20.70.1 1 84,\23.8ItA13
J 765 I B4A23P STUCK AT. MINUS
I~~l-·--~-----~--.-- ~-~...t-t--.....;-......
't'
'I\'
t
1766 J 84A13R TO 84A23R.. '
. I
I~-:--I~--.:-:~-.-. . - ...... --.--~'~-l:o-"!'.~-"'!"':""":""!'..r.~~~I-...,:.,-~'"'!'~~~~-I
I 1.67 I 84A.;;!3o STUCK AT. MINUS V.
132.20.7.0.1 I 84A23
I'
1...--:1--... -.-~~--+--~'-'-'--~~.~·I';""';"-_~":_~_I_~~ri".-:-·
1~~I
'1.76.8 .i · · . ; , * R E S E R V E D . . . . I
J
.'.
.
.1_
I-.-~I~~.,I......~~~--""!'-~~~~.l~--~------ i--~~-~~ -I ~
L 7691 84815A STUCK.AT "lHUS V
.
132~20. 70.1, I B4Q15
J
1-''-.-.'-I-~;;..~..;.;.--·--:--"'"'...;..
. f .'. f.~~I-""!"-:-'7'"..-7:...-:--I~~~--.....~'""l
11'70 I 81F.o9A .TO· 84B16A
. 132.• 20~ 71.1 1'84B16;
".
.1
J . .' r .
..'.
.' I3:;;!~.U.U.1I:81j;09..
J
..
.I ........-I-,....--------....~-~- r--"'--~-..---I ,...,.;;..;.,----·-,....-..---1 .
1771 I 81D10A 10848168"
.
I· . '
.
....
,I 32.20.71.~t 84816"
',I
32.1l.12~1:1 81010
.
. . I
I ~--,~~ ...~~~.--.. -~~~-~~--"!-~~""'!'~·I·~... ""!'~--!'~~""!'---,I -~:"-.:..-~-~*!-....~-I
J
I
I 772 I 84816G· STUCK M· MINUS V .
I 32.20.71.1 I 84B16.84B15
I
1 OR
.
I
J .
. ..
1.
1 84B16G TO B481.5P
.
I
. I
.
.1
1~--,t ---:----.....---.....---~-----...---- I...;.'"!'---"'"!"....- .........~ I-------~~~-:_"""~---I
1773 1 84Sl6G STUCK AT PLUS V I 32.20.71.11 B4B16;84015' 1·
1
I OR .
. .
J
I
I
1
I 84B15C STlj~K AT M.1NUS Y
I
I .
I
I ----I-,;",~-~-~--.;.-....-~~---~-~- I----~--·l-~-..;.....~--.......~----~.... J '
t 771t. 1 81010A TO 84816.0
,I 32.2.0.71.11 84B.16
I.
I
. l'
......
I 32 .. 11.12.11Blo1.0··
."
1
I-~~l~--~~--.·-~-I~""';--"'''''-l~--~'''''~~''I
I ;775 1 81.F09L TO 84B16E
I·
1
.'.
t. ,32.20.11.i I 84816
.
1 32.ilo14.1 I
inF.o9
.
I
I......-.-~-i--~-~---:....--~..;..-.... .;,i..-"':"--~"':"~ ...·-...-I~.....~~~-.;.--I~-.--~'..~.... 1
1 776 I 84816C STUCK AT MINUS Y .
1.
J OR
.
.
I
1 84B16C lOS48;;!3R . . . '
I 32.2i:!.1hlI 84816,84823
1.
I
1.
.1~·'..·
.
I
I---:--I--~~~-~~~~-""~-!'~--~-~-- I~""~--~~I.~:-:~:"'~."'!"'-:"*"t., ..... "~'~ .• '.:<,11
. I 778 I 84816RTO B4C08t!
13240'. '1l.1.184812.04C08t84S16d
I
lOR
I : · ~'.i/.<;·
····)··1
15JUL6$"
l21t2.65
tm
eeeooeeoeeooooCt
IBM MAINTENANCE DIAGNOSTIC PROGRAM
2821 -
-0000
PIN
PAGE
J B4B220 STUCK AT PLUS Y
I
I
12
I
I
I 779 I
B4C08D STUCK AT MINUS Y
32.20.71.1
84COO.B4B22
OR
J
I B4COOOTO B4B22P
I
I
I
1--1
- - - - - - - - - - - - I -----------I------------~---..:.- I
I 700 1 B4B16R TO B4C23C
1 32.20.71.1 I 84C23,84B16
I
I 32.20.71.1 I B4C23
IHF09E TO B4A170
32.20.72.1
-1--------------------,,-------
I
I
B4A17
1
I
BIGIOA TO B4B20A
OR
I BIGIOE TO B4B20R
I OR
I BIGI0L TO B4C20D
l------------l-,-----·------------~ I
I 32.20.7b.l I 64B20.B4C20
I 32.11.14.1 I BIG1D
I 32.11.15.1 1
I
I
I
I
I
I
1
I
I
1---1----'------.-----------1-----------I'-------------,--..,---I
I
I
I 3l.11.12.1 I BI010
I
[---1- - - - - - - - - - - - - - . - - - I - - - - - - - - - ' - - - .- - I
t 784 1 B1D1011 TO B4Al7A
1 32.20.72.1 I B4A17
I
I
I
, I 32.11.12.1 I BIolO
1
I ---I----·----------------I-----------l---------,---....---I
I 32.20.72.1 1 B4A17
I
1 B04 I 81E08Q TO 64B20D
1
1
1----------
I---------I----~----~---I
1---1
•
----,,-""~
I 187 I NEVER GET PUNCH TRANSLATE 12
I .
~
I
I
.
~ ..... -~ .<. ~"--~"--, >~~-
1788 I
I
I
1
132.20.'/6.1 I B4AlO.SiI B20
I
I
1 - - -I - - - - - - - - - - .- - - - - - - - - - - I -----"------1------,---~---..,--·--1
, BOil I 81F09Q TO 64820E
I 32.20. 7b.1 I B41>20
,
!
,i
1 32.11.14.1 1 611'09
1
I.
1
. . ----.. .-,---------- I ------~..--l----------~---. . ,-l
BIF09E TO B4!HOG
I 32.20.74.1 I
I 32.11.13.1 I
B4B18
BlF09
I - -I ----.--~--'------..:--.-·--1----------1------.,~------- I
I
1-----1------------------------------1------------1-------------~-----[
I 789 I BIEl2A TO B4B18B
i
l
I 32.20.14.1 I B4B18
l 32.11.13.1 I BIEl2
I 32.20.74.1 I B4B1B
I 32.20.70.1 I B4413
132.20.11.1 I B4C23
!
I
X
t
I
I 32.20.31.1 I 83El8
l
I
I 0 V IA MINUS Y CHAN REG 3 AND
I NOT 2 AND NOT 0.1
I
-I
I 793 I
BIF09L TO
!
all.
I
I
B4A13R TO 64C19H
I
794
I
81GIOE TO B4C19F
1
1
798 I
.... RESERVED**
17MAR66
125643
I
I
I 812 i ALWAYS GET PUNCH TRANSLATE 4
1
I
I 32.20.33.1 I B3E19
I 32.Z0.U,.1 I B4A20,6'o1l20
I
I
1
I
1 32.11.14.1 I B1F09
I
1
I
I 32.11.15.1 I BlG10
I
I
I
I
1
I
1----1------..
-----------------1------·----1-,,-----------------1
I 813 I ."RESERVED""
1
1
!
I-----I---~-- ..------------------I-----------l--------..,,;.--------1
I 814 I BIF09Q TOB4620H
I .32.20.76.1 I B4B20
I
I
1---1---·--------------,---1-----------I
-------------1I
I 815 I B1GlOQ TO B4B20Q
I 32.20.76.1 I .B4B20
I 32.11.14.1 I B1F09
I 32.20.10.1 I B4A13,B4B22
1---------,,-I
I
I
I
I
I
I --------------.,.---- I
32.20.75.1 1 84C19
I 32.11.15.1 I BlGIO
1
I
I
I
1
I
1
I-~--I----~-------------------------I---------"7--1--------------~';'--I
I Bl6 I NEVER GET PUNCH TRANSLATE 5
I
1
I 32.20.33.1 I B3El9
I
I 32.20.76.1 1 B4A20,B4B20
I
I-----I~----------------------...,.;.-----l------------l-----------------..,.-1
1.817 I ALWAYS GET PUNCH TRANSLATE 5
I 32.20.33.1 1 B3E19
I
I
I
1 32.20.76.1 I B4A20,B4B20
I
1 - - -I --__.---------------...- - - 1 - - , - - - - - - - I - - - - - - - - - - - - . , - -I
I 818 I ''''RES ERV ED""
I
I
I
I
1-...,---1-:..--------------------1---------I-'------_-.------I
I
I
1819 I BIE080 TO 84C20B
I
I .
I 32.20.76.1 I B4C20
I 32.11.15.1 I 8lEoe
I
I
132.11.l4.1 I
I
I
I
.
I
I
1--1------'--------------1----------,,--1------------------1
I 820 I BIF09Q TO B4C20A
1 32.20.76.1 I B4C20
I
1---------1-------..,-------1
I 32.20.75.1 1 B4C19
I
1 32.11.15.1 I BIG10
I
BIF09
I
1--1------.-----------------------1------------1-----------------1
I 821 I NEVER GET PUNCM TRANSLATE 6
I 32.20.33.1 I B3E20
I
1
t
1 32.20.76.1 I B4A21.84C20
I
1 - '--1-------,---------1---'
------1
-------------1
I 822 1 ALWAYS GET PUNCH TRANSLATE 6
I 32.20.33.1 i 83E20
I
I
1----1------------------------------1----__
-----1------------------1
l' 7'99 1 .. "RESERVED....
I
I
I
1---1-----------..,-------------1---------1-----------------I
I 000 1 CAN NOT BLOCK PUNCH TRANSLATE I 32.20.'15.1 1 B4C19
1
15JUL65
124265
I 32.20.33.1 I B3E19
' 1 32.20.76.1 1 B4A20,B4B20
I
-1----·-------·----1---1-----------------------------1-------1-------------I
1--·
I 797 I BIG10E TO B4C19G
1
I
I
84B18.B4CIB,64A19 !
32.20.74.1
---------------1------------1-------------------1
1 795 1 NEVER GET PUNCH TRANSLATE 2
1 32.20.32.1 I B3E19
1
1
I
1 32.20.75.1 I B4C19,B4A20
I
I1 ---l------~----------l----------1---------------1I
796 I CAN NOT BLOCK PUNCH TRANSLATE I 32.20.75.1 1 B4C19
12VIAMINUSYCHANREG4ANO
1 NOT 6
1
I ---- I -------------~----------- 1------------I ----------·---------1
I
1---1-------..-..,..
I
I 32.11.15.1 I 81(;10
I
I
1
I OR
I
1
I B4B22L TO B4C 19A
I
I - - -1 - - - ·- -..- - - - - - - - - - - - - - - -
1
1
I
--------·-1-------1-----------------1
64C19E
I 32.20.75.1 I 6409
I
1
1
1
I 811 I NEVER GET PUNCH TRANSLATE 4
1--1---------------'
----1----------1 -------·---------1I
I 792 I CAN NOT BLOCK PUNCH TRANSLATE I 32.20.74.1 I B4610
I .
1 32. ;10.76.1 I 84820
1 32.H.15.1 I BlGIO
l-----I---------·---------------------I------------I-------~-------~---I
I-----I--~----------~-----------------l------------I-------------------1
I 191 I NEVER GET PUNCH TRANSLATE 0
I 809 I BIGlOl TO 64620(;
1
I
1---1-------------------------'---"'1------------1-------------------1
1 810 I 81GIOE TO 64B20F
I 32.20.76.1 I B4B20
I
I
I
I ---I --------------------,----.,,---- I---"---------I-------------~-----1
I 790 I B4A13R TO B41HSH
I
I OR
I
I 64C23A TO B4B10R
I
I
1----1-----------..
------------1----------1---------"7"7---"7--11
I 807 I ALWAYS GET PUNCH TRANSLATE 3 I 32.20.32.1 I B3E19
1--------I ------------------1
I 32.20.31.1 I B3E18
I 32.20.72.1 I B4A16.84Ci6
I 32.20.16.1 I B4620
I 32.11.15.1 I B1EDa
I 805 I B1GIOQ TO 84820B
I 32.20.76.1 I 64620
I
I
I
I 32.11.15.1 I InGIO
r
I - - I ------.,.-------"-------------- 1-------------I .,-----------------.,. I
I S06 J NEVER GET PUNCH TRANSLATE 3
I 32.20.32.1 I 63E19
I
I
I
I 32.20.76.1 I B4A20.B4B20
t
1-----1----------.
------.--- I 32.20.12.1 1 B41117
I 785 I B4A17P TO B4A17C
I
1
I
•
I 32.20.10.1 I
I
1 - -I - - - - - " ' " ' - - - - - ' - - - - , . - - - - 1----------- I -'---------..-..,.-- I
I 186 1 B4A17G STUCK AT MINUS Y ,
I 32.20.72.1 I !l4A17
I
DATE
EC
.. 1-----------1------------------I
I 32.20.75.1 I B4A20
1
I-----I--...,...,----~----------------~-I-----------I------------------1
1 703 1 BIOlOE TO B4A17B
I
t
I
1------------ II ----'-----...----..,.---- 1I
1-'
I 803 i
I
I
I
I 32.11.13.1 I BIF09
1
I -~- I - - - - - - : . . - - - - - - - - I 802 I B4A20C STUCK AT MINUS Y
1--1--------------.
-- 1--------...,--1------------------1
I
I
I
I
I
I
I
VIA MINUSY CHAN REG NOT 6
I AND NOT O. 1
1 - - -I - - - - - - - - - - - - - - - - - - - - - 1 001 1 **RESERVEO**
1
t---I------------------ 1--------.;.-1 -----------·----1
1 701 I B4C23A STUCK AT PLUS Y
782
PIN 840257
PAGE
21A
2821 .. 2540 READER PUNCH SCAN
1--1--------·-----------------1------------1------------------J
1I
I
I
J
I
I
I
1
000000_00
HIM MAINTENANCE DIAGNOSTIC PROGRAM
2540 READER PUNCH SCAN
I
__ eeo
32.20.76.1 I 84A21,84CZO
I
I----I---..,---------------------I----..~----I---------------1
10
PAGE
F804-*
21
DATE
EC
15JUL65
124265
17MAR66
125043
10
PAGE
fB04-*
21"
PIN 840257
PAGE
22.
16M MAINTENANCE DIAGNOSTIC PROGRAM
2821
~
2540 READER PUNCH SCAN
I 5Z3 I
I
IBM MAINTENANCE DIAGNOSTIC PROGRAM
I jZ.ZO.16.1 I B4C20
I 32.11.14.1 1 BIF09
81F09Q TO B4C20G
824 I B1G100 TO B4C20F
. I 3Z.20.16.1 I
I
I
1 32.11.15.1.1
I - - - I - - - - - - - - - - - -.....-------- 1------·----I 825 I BlE08Q TO 84C20E
I 32.20.16.1 I
1
I
I 32.11.15.1 I
I
B4C20
BIGI0
I
B4C20
BIE08
I
1------------------
t ---- I --..,..,---~------
--------------'-----1
r--- I
1------------1-----------------I
I 8521 ".RESERVED*"
I
r·
r
I--~-I------------.
.
---------------I------------I------------------1
I 853 I CAN NOT BLOCK PUNCH TRANSLATE I 32.20.13.1 I 84A18
I
I
I
----.-----~---..,---------
I
----1-----------1------------·----I
I 826 I NEVER GET PUNCH TRANSLATE 1
t 32.20.34.1 I 83E20
1
i
I
I 32.20.16.1 I 84A21,84C20
I
1-----I -------------------------,..--- 1------------I -------------------I
I 827 I ALWAYS GU PUNCH TRANSLATE 7 i 32.20.34.1 J B3E20
I
I
I
I 32.20.16.1 I B4A21.84C20
1
I OR
I B41123P TO MB2l1t
I 32.20.10.1 I 84814.B4A23
I
I
1--·----------
I
I
I
I
1 - - -I - - - - - - - - - - - - - - - - - - - 1 842 I ."RES ERV EO....
I
I
I
I 843 I ""RESERVED'"
I
1
I
I 32.11.14.1 I 61El2
I
I 32.20.73.1 I 84C11
I 32.11.13.1 l BIF09
I
I
I
I-----I-------------.. -------~-----I--------_---I-------~..---'-~I
I 864 I ."RESERVEO."
1.1
1
1--1--------------..,-..,.-----'-----.. .-1------------1--------"'---'--"'~--I
I 865 I **RESERVEO*.
I
I
1
I-----I---------~---------------------I------------I-------------------1
I 866 I BIE12A TO 84B18B
I
I
I
I 32.20.14.1 1 B4B18
I 32.11.13.1 I BIH2
I
1
I----I---------~-----..;------I----------I---------...;.--- ...
r
I 861 I 81F09E TO B4818A
I
32.20.14.1 I B4B18
I 32.11.13.1 I 81F09
I
----1
I
I
..-------1I
I-----I------'-------~--------------~--I------------I----.,-------.·-----1
I 1369 I CAN Nor BLOCK PUNCH TRANSLATE I 32.20.14.1 I 84818
I
I----I------------------------------I-~----------I--------...:868 I uRESERV ED*"
I
r
I
I
I
I 0 VIA MINUS Y CHAN REG 50R6
I AND NOT 2 AN D. 3
I-----1-----------.
.
I
1
I
I
I
I
1
--..
----,..~----------1---------..,.-1----.
I
-·---11
--~.
870
84A23P TO 84B18P
I 32.20.74.1 I 84B18
I
I
I 32.20.10.1 I.64A23
I
I ---I
•. ---..- - - - - - - - - - - 1---·-------1-----------:--------I
I 811 I 84C151 TO 84B18D
I 32.20.14.1 I B4818
1
I
I
1 32.20.10.1 I 84C.15
I
I, ----- I --...-.....-.------~----.:...~-,-....-~...
1.---"""-------- I -----;.;-,-~..""'!'-...-~I
I 812 1 81El2E TO B4B18Q .
.I 32.20.14.1 I B4BIB
I
I
I
I-----I--------~~~~--~----~-----I-------~----I-------~-~---------1
-""!"-
I 32.20.13.1 I B4A18
I 32.20.10.1 i B4A23
10
F804-PAGE
22
11MAR66
125643
DATE
EC
15JUt.65
1242651
I1MAR66
125643
10
FaOIt-PAGE
22A
1
I·,'
I
1
I 32.20.13 .• 1 1 B4C11
! 846 I BIEl2E TO 84A16L
I
I n .
0 0 0 0 0 0 0 0·'.· . 0 0 0
-1I
II ---1-----;.----...
-----,-.. ·--------"- II-..,-----.
. ---l_-~-...-----...---~---- II .
863. I B4CllG STUCK AT MINUS Y
32.20.13.1 I 84Cl1
I ----I --------------------- I------..c..----l---~;.-------------- I
:a o o 6
I
I
I 8611 81E12Q TO B4Cl1D
I
15J.UL65
1242651
I
I
I
I---I----------.. -----.. ---I---.. ------I---.. --------~--. .--l
l-----I-------------~----~---,..-------l------------l-------~----------I
1 841 I**RESERVEO**
r
I
I
DATE
EC
I
I32.20.10.1 I
I
I 862 r 81F09A TO B4Cl1C
1
I
------------------1-----..,-..,..,.---1--------------..,----I
84A23P TO B.AI8Q
I
I
I ---.-- I --~--~------------.
I ------------------ I
I 32.20.12.1 I 134A16
I
I 844 I Il4C15A TO 84A16E
I
I
I 32.20.10.1 I 134C15
I
1 - - 1 - - - -..
I 645 I 84A23P TO 84A16F
I 32.20.12.1 I 84A16
I
1I - - II - _ - -__________________ 1I ____________
32.20.• 10.1 1·
I 84A23
_________________ - II
I B48 I CAN NOT GET PUNCH TRANSLATE IZI 32.20.72.1 I 84A16
1
I VIA MINUSY CHAN REG 1 NOT 0 I
I
I
I
I AND NOT 40R50R60R7 AND NOT 3 I
I
I-----I-------------~-----------------I-----~---_--I---------~--------I
1 - - -i -------------------.-~- I - - - - - - - - - I --------"------_.----- I
I 32.20.72.1 I B4Al6
I 32.11.13.1 I 81El2
1----------,..-
I
1 32.20.73.1 I MCn
84123
[-----1-------------------------------1------------1--------~I 860 1 84C23A TO B4Cl18
I 32.20.73.1 I 84C11
I·
I OR
I 32.20.71.1 I 84C23
I
I B1F09L TO B4Cl1R
I 32.11.14.1 I BHa9
1--'-·--------I -----''------..,..------I
-.--j------------
1
84A16,B4All
I 859 I B4A23D TO B4Cl1A
1-------'-1 -----------'-----I
I
I
I
----·---1-----------· _----.-:.---------I
I
I 81F09A TO 84AllF
32.20.13.1
1---1-----------------. 1-----------1 -------------.....;.-1
I
I
I
I
I
I 858 I CAN NOT BLOCK PUNCH TRANSLATE I 32.20.13.[ I 84AIB
I
I 11 VIA MINUS Y CHAN REG NOT 5 I
I
I
I OR6 OR7 AND NOT 3 AND 0.1
I
I
1----1-----'------------.---1---·_.--"---I-'-·----·---------1
I
I 32.11.13.1 I BIE12.81F09
I 851 I ""RESERVED*"
----------1----------"-------------------------1
I--I-------..,-----~------
I OR
I 32.20.10.1 I B4C15
1-.....,..-1-"----,....---------·-------1------------I---------..·-----"---1
I 834 I MAne TO B4822H
I 32.20.10.1 I 84822.B4A13
I
1 - - 1- - - - - - - - - -..- - - - - - - - - - - - - I
I
I B35 I B4822L STUCK AT PLUS Y
1 32.20.10.1 I 64622
I
i -----1------------------·-----~·--1--------~·-!
I 836 J B4A13C TO 841238
I 32.20.70.1 I B4AZ!,B4AI3
I
I - I -_.- - _ .-·-------------·'·~--I--------- I ------.------------I
1 831 ! 841123A STUCK AT. MINUS Y
I 32.20.10.1 I 84A23
I
I 841 I **RES ERV ED....
I
I
I
I----1-----------·----------------1----------I-------------....--1
I---l---··---------------~--l-------·--! ---------------"---1
I 833 I B4C15F STUCK AT MINUS Y
I 32.20.70.1 I B4CI5
I
1-----1-------.-----..-------- 1-----------1--·--------·----···----I
I
I
I
I
I
1 - -I - - - - - - - - - - - - - - -.. -------I --------...---------- I
I 856 I 841230 TO 84A18L
I 32.20.13.1 I B4A18.B4811
I
I
I OR
I 32.20.10.1 I 84A23
I
I
I 131G100 TO B4B17H
I 32.11.15.l 1 BIGIO
i
I-----I---------~---------------------I------------I-------------------1
. . -~-r-·'-·--·-----I
I
11 VIA MINUS Y CHAN REG 1 NOT I
I 0 AND NOT 4DR50R60R7 AND NOT 2 r
BIEl2E TO 84AIBF
K 831 I NEVER GET PUNCH TRANSLATE 8
I 32.20.34.1 1 83E20
I
I
I
1 32.20.16.1 I 84621,B4A19
I
[-----! - - - - - - . , - - - - - - - - - - - - - I--------..,-! --------------.--!
I 832 I B4814P TO B4C15G
I 32.20.10.1 I 84C15,04B14
I
I
r
1----1-----------------------1------·----II ---------------1I
I 855 I
I
i - - l- - - - - - - - - - - - - - - - " ' - . - I -----------~-------I
I 830 I B4A19P STUCK AT MiNUS Y
1 32.20.76.1 I 84A19
I
t 838 I .... RESERVEO....
1-:-~,-~I 1139 I ... RES ERV EO*"
I--~-I---. - - - - - -...
! 840 I .... RESERVED""
I
I
1-----1--------,..------.....
.,..----------1-------,-----1----------------1
I 854 I B4C15C TO 84A1IIE
I 32.20.13.1 I B4Al8
I
..-..---~------·-- 1----------I
-------------------1I
1 82B 1 BIE120 TO B4A19R
1 32.20.76.1 I 84A19
I 32.11.14.1 I 81EiZ
I
I
I
1--1-------------·-----1-------·-----I
------------..,------1
I 1129 ! 84B14L TO B4A19H
X 32.20.76.1 I 114A19,B4821
I
I----l--------~-
849
22A
1----1------------------------------1-'-----------1---------_----_---1
1850 I 84C15A TO B4A18P
132.20.73.1·1841118
1
I
I
r 32.20.10.1 I B4C15
I
I ----- I -.-----------------,..----- 1----------I
t 851 I BIE12A TO B4A18D
I 32.20.13.1 r B4A18·
I
I
I
I 32.11.13.1 I 81El2
I
I---I-,,--~-~---"------------I-----------I-----------------1
--t---·
840251
2821-.2540 REAOER PUNCH SCAN
I
I
I
PIN
PAGE
o
,
'
.
..
.
00000000000000
___ oe ____ eGo_e_eee o
___
eooooo
o
eeeee
PIN
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PAGE
2821 -
840251
23
2540 READER PUNCH SCAN
2821 -
1I---I-----,..-----------------i-~:.:~~~~.:~~-~~~~:----1
1
1 873 1 **RESERVED"
I
I
1---1----------------------------1------------1-------____
1 874 I CAN NOT BLOCK PUNCH TRANSLATE I 32.20.74. i l 84818
.-I
I 0 VIA MINUS Y CHAN REG 1 NOT
I
I
1
I 0 AND NOT 40R50R60R7 AND NOT 31
I
.
875 I
•• RESERVED..
~
~___
I 876 I ..RESERVED.... .
I
I
I
I
I
I
B4A23
I
32.20.77.1
I
I
84C22
I
~
I
I
~-_~_-__- - ' - - - - - - - - - - - - - 1_=2.20.
70.1 I 84814.
I ---------1----------...
--------[I
I
I 904 I B4B23A TO, B4A16P
I
I
I 32.20.12.1 I 84AJ.6
I 32.20.71.1 I 114823
I
I
I 878 1 ..RESERVED*l-----------~-------------------I
I-----I---------------~-------------I---------I
1
I
r 879 I ""RESERVED'"
r ..
. --1--------------
1----}---------------------1------------1-------------·
-'--II
905 I 61F09E TO 84A16D
I 32.20.72.1 I 84116
I
I---l------------------------~I------------I---------------
880
I ...
'.
I
.
~
I
I
-----------I---------~--------------I
RESERVED....
I-----I------~------~----------------I------------I-----.... RESERVED...
I
I
- -- - - - - - - - ~
I 906
1 - - .I 901
I
I
I
.
I1--1----------------.
I ....
-----I-----------~------------I
883
I
RESERVED...
.
.
I
t ----
1----1-----.
. --------------------1-.
.
I
I 884 I * .. RESERVED
.... "
I ____ --~----------.------I
[---_-I-------------~-----------------I------------I------------------~
1 885 t ."RESERVEO**
I
I
~-;;~-~-::~~~;;~~::------------------~---------~--:---------~--------~
, --I----------------
I 891 I *.RESERVEO**
32.20.76.1
r
84821
-
---I
I
32.11.14.1
I
81El2
.
I
1---1
~
I
893
~
I
---___________ I
I
I
.
I 32.11.14.1 I BIE12
I
I
I
132.20.71.1 { B4C22
1---1------
I 32.11.12.1 1 BlOl0
I
I
~
I 32.20.71.1 I 84C22
- 1
895
~
I----~I-------------.
I 32.20.71.1 I 84C23
.
I
B96
."RESERVED'''' ~-------------~--------.,.---~-.,.------...,------I
I
I
I ____ I __________ ..
.
.
I
~
.
~
84C23A TO
I1MAR66
125643
I
CAN NOT ~LOCK PUNCH TRANSLATE
I
I 12 VIA MINUS Y CHAN REG NOT 4 I
I AND 2 NOT .3
.
I
I
I OR
I B4B22Q TO 84C16L
32.20.72.1
I
r"
1
B4A16
I
.
I
I
I 32.11.14.1 I BIEl2
I 32.20.71.1 I 84822
I-----~---·
!
I·
-----I
I
1---1
--__---.-.------------ I----------l
--------.:...,----_1I
1 919 I **RESERVEO**.
I
1
l----_r-------------~-----------------I-----------~I-------------_-----I
I 920 I B4A23A TO 84C16D
132.20.72.1 r 84C16
1
I
I
I
32.20.70.1 I
B4A23
I
1---1---------..
-------------1--------1--------..;---..,-..,.---.;''-1'
I 921 1 --RESERVEO*"
1
r
."
I
I 32.11.14.1 I BIF09
1
"-..----------- 1-----------r- - '
.
I
84C228
t 32.20.71.1 I B~~~;-------------I
1---1----------------------1----,--------I---'-'----...,--------..,..,1
I 922 1 B4C16C STUCK AT MINUS Y
I 32.20. 7.2~·I I 84C16
.. I'
I---.,.-l--------~-.~---------------~-=:=:~:!~=:-~~~~::------~------i
15JUL65
124265
915
1----:-1------------..,-..,--.,,----------1-----------1-----------':"-:"'..,..---1
I 918 1 B4C16G STUCK AT MINUS Y
1 32.20.72 .. 1 I B4C16
.
I
----1---------------. I 32.20.77.1 1 84C22
II
----1---,--------1-------------1
898 : 81F09L TO B4C22G.
899
64815A AND B4C086 TO B4C16B
1-----1---------------------1--------1'917 I ,,*RESERVED"
.
.
I I '
1---1----------"".
~
I
132.20.72.1 I B4A16.B4C16
I
I 32.20.70.1 I B4A23.B4B15,B4COB I
I
I
I
B4A23A TO B4A166
I OR
I
I
I
1 891 1 CAN NOT GET P~~~-TR~~~~;---~-;;:;~:;;:~-~_;~~~;-------~-----l
I
I 9 VIA MINUS Y CHAN REG NOT 4
I
I
I
I
1 AND NOT 0 AND 5 OR 6
I
I
I
t
I
I
. X
1-------1----------·---1
1
1
1-----1-------------------------------1------------1-------------------I
I 916 I BIE12Q TO B4C16A
I 32.20.72.1 I 84C16
.I
- - - - - .------- 1---------.,.--I -_---------------- I
B4C23A TO B4C228
3
I
I
I - - - I -----------...-------..,-----..,-- 1----------I -----------. ------ r
I 914 I .... RES ERV ED*"
I
I
I
I ----- I -----------------------.---- I -----------1--------------·- - I
' I
~ 894 ~ BIDIOA TO 84C22A
2
B4A16
I
I---~-I------------~---~------------I~-----------I-------------------I
1913 I
--- ---------!>--......--.---------- 1--------1 ----------:-----1
I
1
i
-I-;2.;~.7;:~I-;~~22~----------~
BIE12Q TO 84C22R
CAN Nor BLOCK PUNCH TRANSLATE I 32.20.72.1 I
I 12 VIA MINUS Y CHAN REG NOT 1 I
AND 0 AND
NOT
I - - 1 ------.---------~------I 912 I .... RESERVED....
I
----------1--I.
..
I
32.2~:-;;'-~-I -;~;-;---------·-i
I
I
~
I-----I--------.----------~-------------l------------I-------------------1
------------~------------i------------------l
1 - - 1 - - - - - -...
I 892 1 CAN NOT 8LOCK PUNCH TRANSLATE I
I
I B VIA MINUS Y CHAN REG NOT 4
I
I
I AND 1 NOT 0
r
I
I
1-----------------------1----------..
r -----·--------------1
B4A13F TO B4A16R
I 32.20.72.1 I B4A16,B4C16
I
1911 I
I-----I--------------~.
------. I----------1------ -- . I
r
I
1---1------------..
----------.. ----1-----------1---------~_-----r
I 910 I *.RESERVEO** .
I
I
!
1----7I------------------------~-----I----~-------I------____._.______-1I
1889 I .... RESERVED*"
I
I
BIE12Q TO B48218
I
1----------1----------'--------I
.
I
I -------------------~
I CAN NOT 8LOCK PUNCH TRANSLATE I 32.20.72.1 I B4A16
I 12 II I A MI NUS Y CHAN REG 50R6
I
I
I OR7 AND 4NOTO AND :3
I
I
I---I
1
890 :
1 .... RESERVED...
I
.....-1I
OR
I 32.20.70.1 I B4A13.B4B14
I
BIE12Q TO B4A16K
I 32.11.14.1 I BIEl2
I
OR
I
I
B4814P TO B4C16E
I
I · .
------------·-------~-------l------------l------------------l
I 909 I 64A23A TO 64A16B
r 32.20.72.1 t 6 /,A16
I
I
I
.
I 32.20.70.1 I 6/tA23
I
1---1-------------.
I
I
1 88B I ""RESERVED*,,'
- - - - - - - I----------~---------------r
i
I 3,2.11.13.1 I lllF09
I 908 I
:
I
I
I
I
I
I
I ____ I ______ ------______
I
_
.
I
886
""RESERVED*"
- - - - I---------~--------------I
I
23A
1
1
I
1----I -----------------'-----... ---- 1----------I -----------~--- I
I 903 I B4B14L TO B4A16Q
! 32.20.72.1 r B4A16
I
I 881 I
--
32.20.70.1 I
**RESERVED--
1
! 902
CAN NOT GET PUNCH TRANSLATE
I
I 9 VIA MINUS Y CHAN REG .4 AND
I
I 50R6 AND 0.1
1_____ I _____ ------________..,.
I
I
i 882
''''RESERVED''''
-I----------~-----------------I
,--
I
I ----- I ----------------------...,--.--- 1-----------I -----------------
I
1----1---------------------------1--------I
I
32.20.15.~-I-;ili;------------·I
DATE
EC
I 32.20.77.1 I 64C22
B4A2~D TO B4C22H
I
1901
-I
. - - - - - - - - - I------~--------------I
I - - - -1 - - - - - - - - - - - - -
840251
l----1------------------------I------------l---------------1
I
I
I
.
--I
I 817 1 _____________________
84C19(.) STUCK AT MINUS Y
I
1----1
1
PAGE
2540 READER PUNCH SCAN
1 900 1
--I
_
I
1---1-----------------------------1--------[----------_
II
[ ____ 1 _______ .. __
.
I'
I
PIN
IBM MAINTENANCE DIAGNOSTIC PROGRAM
I---I--~------------------l ,..,...;....:-'---...,...--l--.------...;;;..;. . -",.'"',,,,,,,....-...T
10
PAGE
F804-"
23'
DATE
EC
15JUL65
124265
17MAR66
125643
ID
FS04-"
PAGE
Z3A
-----------------------------~----------------------------------------
ISM MAINTENANCE DIAGNOSTIC PROGRAM
PIN
PAGE
IBM
~AINTENANCE
DIAGNOSTIC
PROGRAM
PIN
PAGE
2821 .- 2540 READER PUNCH SCAN
840257
24A
2821 - 2540 READER PUNCH SCAN
I 948 I B41l11P STUCK AT MINUS Y
I 923 I uRESERVEO*"
I
I
I
I -_._- I --------~--------------- 1-----------I -------------'----- I
Z 924 ! 84S15A AND 84(088 TO 64C16H
1 32.20.12.1 I 84C16
I
I
I
I 32.20.10.1 I B4B15.!l4C08
1
84Cl6
r
I 950 I
1-----1--_---------.
. --------------'---1------'------1--------:..---------1
I 951 I 8lDllP TO 84C11F
I 32.20.13.11 1l4Cl1
I
I
I
! 32.1 h 12.1 I 81011
I
1 - - - i--------._._-_.,
1---------I -------.;.----.---l
I 952 1 B1GlOQ TO 84CHH
1 32.20.13.1 I 84C17
I
I -----1----·--------..,----------·------ I~.---------- r-------------- I
I 32.20.72.1
I
!-----l-----------------------------~I,_----------I----------------'---1
.~RESERVED.*
I
I
1----I
-----·----------------1------------I
-------------------II
I 925 I ""'RESERVEO.... .
!
I
i 926 I B4C16F STUCK AT MUlliS V
' 11' 32.20.73.1 I B41!11
I-'----l---------------·------·~------ 1-----------I
----'-----------}I
x'
I
1949 I .... RESERVED**
I
-----.~--
I 921 luRES ERVED""
!
I
1
1----·1--,------...---·-"'------··---·--..-- 1----..-------I ----.. --~----------- I
1 928 I 1l41HbF TO MIHlll<
i 32.20.13.1 I 8411111
I
I
I
1 32.20.11.1 I B4Blb
I
! _._-- I~------·----..,--~-~·-----i
I 929 I BIF09L TD a•• 18R
I 32.20.13.1 I 84118,B4817
I
I
! OR
I 32.11.14.1 r IllFO,}
I
1
I B4!l2.2Q Hl B4ilUR
I 32.20.71.1 I 841122
I
1 - - -X--~,- - -..-~--.---.-.------.----- I ---------~-, -.---------------.. - I
i 930 I 84315(; TO 64A18i1
I 32.20.13.1 I 841\111
I
I
I 32.20.11.1 I B',1I15
1
-·-------~---1---···----.,--1------------·_·---.,--1
I 931 I nRESEIWED""
I
i
I
1-----·1-------------~----
! 953 I 1l4B22Q TO 114C11Q
I
1---·----,----1-----·-------------
I
I
I
! 931' I 8413151: TO B41\H1B
r
1
I 32.20.13.1 i S4MB
I 32.20. n·, 1 I 84615
I
1
I
I 934 1 lHOlOE TO B411111H
I
1
I 955 I 84C17P STUCK IT MINUS Y
I 32.20.73.1 ! IHlllS
132.11.12.1 I 81010
1
I 32.20.13.1 I S/.AUI
I
70.1 ! IHA17
TO 641118&
I
I 956 I ""RESERIIEO....
--
---I---~---·----·-·
r
I
I 32.20.73.1 I B4B17
I
I
I
r
"
"
'O;!:
.·
,
·0,··..
·0··.
I
:0:<.' 0·.···.'. 0·"'·
I
I
I 32.20.74.1 I MC 18
I
I
I
I
1
I
I
1
I
I
I-----l---------~---~---------~------~I------------I----~--------~-----I
<
I 32.20.74.1 I 84C18
{32.20.10.1 I 84814
I 32.11.14.1 181F09
I
1-·---1-~-~~------------_-------~--I--~--~---~-I------------.-:"---'. -1
I 971 I B4A230 TO
I
I
,.10' F804-"
PAGE
24
". :Of".·
() ·0
BLOCK PUNCH TRANSLATE
I 0 lilA MINUS Y CHAN REG NOT 1
rAND NOT-..,mOT3-- AND 40R50R6
I OR1 AND NOT 0
I 910 I. B4B14L' TO B4CIBC
I
I OR
I
I BiF09L TO 84C18Q
OATB
EC
B4C18A
I 3.2.2{).14.1 I B4C18
.132.20.70.1 I B4A23
15JUL65
0'0000
I
[
10
F804-"
PAGE
24A
1242651
~
()
I
I
I OR
I 32011.14.1 { B1Ei2
I
I
I MB2l0 TO B4C18l
I 32.20.11.1 I 1l4B22
I
1-----1-'"-----..--------------,..-----1------------1----------'--------1
I 969 I B4B22L TO B4CIBE
I 32.20.74.1 I B4C18
1
I
t
I 32.20.10~1 I B4822
I
Ii\
o
1
I-.
.~--!----~--~---------------'----~·l------------I-------~-'---------I
.
I 968 I BlEIlQ TO 64C186
I 32.20.74.1 I B4C18
I
I
I
l1MAR66
125643
ES Ell. EO*"
I 961 I CIN NOT
---......-~l~-~- ....-l----....--... --~---~I
15JUL65
124265
I
I 966 I
II --l---------~__,--. .--'--l---,.------I---------------l
941 I ....R.ESERVEDH
I
I
I
DATE
I
1--1----------..--------------1-.,.----.
. . .----1-'"------------I
HR
II
I-----I-~---~-~---~---~-------------I---------~--I-------------------1
E(;
I 95B 1 **RESERVEO*"
I-----! -..,-------------------'--------'-1----------1-----------·--I
I-----I---------~---------------------l-------~----l-------------------1
I
r
I 32.20.13~1 I B4817
I 32.11.13.1 1 B1Ei2
I
I
--I ---'------'----__,------1------..,----- ------------------1
1 945 I ".RESERVED*",
I 946 1 BIEl2E TO B4S17L
I
I
I 32.20.73.1 I B41<11
I 32.20.11.1 I 84822
I
I
I 32.20.10.1 I S4622
i
I _ ... -'- I :..------------..--..,.------------ I ----~------- I .-------------------I
I 964 1 1l4A17P TO B4tlSf
I 32.20.74.1 I 84Cl11
I
I
I
I 32.20.10 •. 1 I 1l4A17
I
1-'
I
I 965 I BI0101 TO 84C18H
I 32.20.74.1 I B4C18
I
I
r
I 32.11.12.1 I 81010
I
I ---I-------.-----------~---~ 1------------I-------------·-----1
1 32.11.12.1 I BI010
I 957 I 114B22Q TO 84AllE I
1
!---CI--------...
---------'__---'--..,----!----------..:--I----------------1
I 963 I 84822L TO 84C18E
I 32.20.74.1 ! 84(;18
I
II ---I
~---~------------------l----~---- r ------------------1
943 I .... RESERVEO**
X
I
1
I
I
1
I---__
I
II
I -----I----------~.------'---------- 1---·--------1-------------------I
I 944 I BIDIOA TO B41l17F
I
I 32.20.70.1 I B4815,84C08
I
I-----l---------~--------------------I--_-_-------I-------------~---~-l
! 960 I ""RESERVEO*"
I
I
!
I-------------------------------I~-----------l----------------~--I
I 961 I CAN NOT BLOCK PUNCH TRANSLATE I 32.20.13.1 I 84A11
I
I
I 11 lilA MINUS Y CHAN REG NOT
I
I
I
I
I 50Rb AND 2 AND 0.1.3
I
I
I
I - - - - I - - · - - - - - - - - - - - - - - - - - - - -...-1----------- I - - - - - - - - - - - - - - - - I
I 962 1 BlOWE TO 84C18D
I 32.20.14.1 I 1l4ClB
I
I
I
I 32.11.12.1 I BI010
I
I
I
I
I
I---1----...,-------------------·--1------------I
---------,-'-------II
I 32.20.73.1 I B4All
I-·--·~------l--·---------------I
I 32.20.13.1 I 84817
I 32.11.13.1 I IHEl2
I 32.20.13.1 I B4Cl1
1------------I ----------'------I
I 959 I B4815A AND 84C088 TO 04A11P
I
I
---.,------------!-.. . -----.-..._-,--------'---.--------
I 942 I 84817G STUCK AT MINUS Y
I
. I,..-';'-! ----------------------1-----·------I ---'-----,.---------I
1.938 I !l4B15C TO Mln1!J
1 32.20,,13.1 1 !J4B17
I
t I l 32.;w.n.l I 1l'.i:l15
I
1·-,--I - - - -..-.-.,..
I
t 939 I B1F09l TO 84B1711
t 32.:W. "13.1 1 84817
I
!
I
In.U.14.l I 1311'09
I
t
J-._.----------------1 940 1 811'091: TO Milne
I 32.20.73.1 1 B41l11
I
I
1
1 32.11.13.1 I 1311'09
!
I --.---I -----... ------.-.........-...--------...--- 1------------ J -----------.-----••.-- I
I 941 I 1l1EOSC TO B41l110
I 32.20.73.1 I B41l17
r
I
I
1 32.11.15.1 I B1E08
I
--1-----·-------'---,------_· 1-----------
I 32.20.71.1 I B4B22
I-----I-------------~----------~------I------------I--------:..--~~----!
I 936 I "*RESERVED....
I
I
i - - - I ------.._----...--'-"---.---------- 1------·------l--.;..------··-------l
~ 937 , CAN NOT BLOCK PUNCH TRANSLATE I 32 •.20.13.1 ! B4A18
1
!
I 11 VIII MINUS YCHAN REG 2NDT r
I
I
I 0 ANI) Nor 1 AND 40R50R60R7
1
I
l.
I
1----{---------.. ---""'-----------1------------1-----------------1
I -----I ------------------------". I-----------I---------·------..---- I
----·---~-------.,-------l------------l-----··----~--------
I
l...,..---l-~---------~-----------..,.--·.,-
1-----I...... -----•.-......----------.----.:..--- I------------1----·---····-····------I
I-"--I----.
1 935 A 84AHP
I 32.11.15.1 I B1GiD
..--1-------.
.-----I---------~-------- i
I 32.20.73.1 I 84C17
I-----I-------------~-----~----------I------------I-~----------~------I
1 954 1 IHEl2E TO B'IC17L
I 32.20.13.1 t 84C17
I
1---'"! --··----·-·-.......
1----1---------------..-------------··-I ---------.---I -----.-...--~-------!
I 932 I CAN NOT BLOCK PUNCH TRANSLITE I 32.20.73.1 I 84A1B
1
I U VIiI MINUS Y CHAIII R!:G 5011.7 I
I
t
, AND 'I AND :2 NOT 0
I
I
I
o
00
o o
0 0·000 0 00
e- e e e e eeeeeo __ e _ _ eo __ eeeeeoooeeeeeo
~;'::
i ,:~,:
........
·1
. !,
PIN 840251
PAGE
25i
IBM MAINTENANCE DIAGNOSTIC PROGRAM
!
282l.- .2540 READER PUNCH SCAN
I
1 - - - 1 - - - '. - - -1--.-----1-----------1
I 97'2 I ••RES ERVED-.
I
I
I
1---1-------------------1-------1-------------1
1 973 I CAN NOT BLOCK PUNCH TRANSLATE I 32.20.74.1 I 841:18
I
1
I 0 VIA MINUS Y CHAN REG NOT 4 I
I
I
l l A N O NOT-2NOT3-- AND 50R60R7 I
I
I
I
I AND 0..1
I
I
J
I---I---~--- ----~"-'!'
1 974 I B4A230 TO B4ClBG
I 32.20.14.1 J B4C18
I
I
I
I
I 32.20.70.1 I 84A23
1
l---I----------~------I--·- - - 1 - - - - - - - - - - 1
i 915 I "'RESERVED'"
I
I
!
1--1
-----1---------1--------1
1 976 I ... RESERVED....
. I
1
1
J ..- - - - - - - - - - - - 1 - - - - - - - - 1 - - - 1 971 I B4B22L TO B4CIBR
J 32.20.74.1 I B4C18
T T l 32.20.70.1 I 84822
1
..
978
I
I
I
I
1
".
J ,
I 32.20.71.1 I 84823
I
1
I
I 32.11.12.1
r 81011
I
I 9B7 I 84C15F TO B4A19B
1
1
1--11
1
I
DATE
EC
15JUL65
17MAR66
124265125643
~)"
I 32.20.75.1 I 84C19
I
1
I 32.20.70.1 I 84A23
1
I 32.20.7·5.1 1 84C19
I 32.11.14.1 I BIF09
1
I
I
I
I
. I
I
I
I
I-----I-----------------~-----------I---------~-I--------,..-,..--~II
11009 I CAN NOT BLOCK PUNCH TRANSLATE I 32.20.75.1 I 84C19
I
I 2 VIA MINUS Y CHAN REG INOTO
l l A N O 2N0T3 AND 4
nOLO I •• RESERVED".
I
I
. I
1-.;...1------..--........- - - - . , . -.....--- 1-------.,....---1---·----""------..,...,.-1
110ll I 81GIOE TO 84C19D
I 32.20.75.1 I B41:19
1
I
I
I 32.11.15.1 I BIGI0
.I
I-""-I---,....-------·--~--I-----..,.-I""----~-----1
II
11012 1 "RESERVED**
I
I .
. I
~-- ----------I--------I--~---~.;..-:_---I
I--I-----.. . .
11013 I CAN NOT BLOCK PUNCH TRANSLATE I 32.20.75.1 I 84C19
I
I 2 VIA MINUS Y CHAN REG
I
.
1
.
·1
1 NOT--2N0T3-- AND NOT 6
1
1
I
I
r
1--1
1---1----------....
------1------1---:----1
1
I
1
1--1-------------1-.---,-""--1-.-'
-·------.-1
1----1--------........----1----1-------I
--------'"'-'-1---·----1--.------------1
11015
i
,"f
**RESERVED*"
11016 I **RESERVED*"
'rl
I
1
I'
I
IlOl7 I . * R E S E R V E D * * 1
'I
I
. 1 - - 1 - - - - - - -4 - - .
1101B I ';'*RESERVED*":
I
1 .
.:
I ..
1---1--.-----..,
---I
. -1---------1
11019 I **RESERVED."
1
1
I
I--I------,---~-----.
11020 1 .-RESERVED.*
.
I '
I
' I
4
. . . - " " - - - - 1------:""--1------·
•
11021 I "*RESERVED"~
1-.--1.·~~..... ~~~I----~--I---~--.---~--l
1-----1------
f"
~.
10'
FB04-·
25
.PAGE
•.- ...:------------:- 1---.....-----1---..:.------1
11014 I .*RESERVED**
Icid~
2B21 - 2540 READER PUNCH SCAN
..------I-------l--------------.. . -I
*"RESERVED-.
979 I
1
1
1.
I
I
I
PAGE
I
----I
'---1------1----1--------------1I
1
I
1--1
---------------1---------1
----------11
1
I
1
J
PIN
IBM MAINTENANCE DIAGNOSTIC PROGRAM
i
1----1---------
I
I
""I
,i
I.,
I
"j,'
DAte
EC
-,..,..,1----.------1--------------1
--_---1
10
FB04-"
PAGE
25A
15JUL6517MAR66
12426~
125643
,-I"
-,
.:•. I"' ...... ..---'--..-:-..... ,.~"""-- .. -. .....
I
PIN
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PAGE
8402!)7
at.
2B21 - 2540 READER PUNCH SCAN
I-----l----------~
1 "'RESERVEO"
., I
...
· ,----'
I
I
n026 1 .... RESERVEO....
1----1 - - - - -....- ..
n027 t . . RESERVEO....
I
I
-1
£--
U028 I ""RESERVEO"
I ,
I
J
'1-----1----------------1
I
1
I
11029
."RESERVEO....
1-----I---~--------4~~~--_-----t--------~-J------------M~----1
1 .
n030 J ,""RESERVEO."
I
I
I
!
1-·---1--------..,-----:--,---------1--------1 - - - . - - -...
11060 I CAN NOT GET PUNCH TRANSLATE 9 1 32.20.77.1 I 84C21
I
I VIA MINUS Y CHAN REG NOT 50R6 I
1
I
IANDO.IAN02NOT3AND7
I
.. 1
i
I
I
I
I
I
I
1 32.11.12.1 I Bl011
t 32.20.71.1 I 84822
1
I-----I-------------~-----~----------I------------I-------------------1
11042 I **RESERVEO'"
1
1
I
32.20.76.1
84821
I 32.20.70.1 I 84A23
I
I .
I
I
!
----1·
1
I
I
I
--I
1
I
I
I
I
I VIA MINUS V CHAN REG 7 AND
I
I
I
I NOT--2NOT3-.... AND N'OT 0 AND
I NOT 4
I
I
I·
1
I
I
t
t
11067 I B4B23A TO 84C22E
I
I
1 32.20.71.1 I B4823
I
1----1-------------.1---------1---------------1
11068 I B4C15C TO B4C22F
. .------------II
. .---.. ------1I
84821
132.20.77.1 I 84C22'
I
I
I 32.20.70.1 1 84C15
l-~--- I·-~----.:..-- ....----------------~--- 1---.---...oIjo-:--I .
11069 1 "-RESERVED*,
I
I
1
I
-------..0.-1
"
·1
I-----I~-------~---~----------------I----~~~--l~~---~~--~-~~~-I·
CAN NOT G!'T PUNCH TRANSLATE ·9
32.20.11'-1 1 84'22
I
1
VIA MINUS Y .CHAN REG 4NOTO.
t
t
11070
I
1
..
I
j
AND
NOT--50R60R7~
1
1
I.
r·
10 . 1'804-. I .
PAGE
26
DATE
EC
1.5JUL65
1242651
,~
1: 0 0 0 010 0 0
I
. .-II -------""'!'------II
I-----I------------.. ---~------. .~-~-l---------~
. . I----.. ."'"-~~":---""'---~I
1 32.20.77.1 I B4C22
.
I 32.20.70.1 I 84C15
15JUL6517MAR66'
121t26S
125643
~-~--
.
---I-~-------------------
I---]-----~-...------:------ I-----~I-11041 1 ."RESERVED-..
1 - - - 1 - - - ._• - - - - - - - 1--------:..-I-----~
11048 1 CAN NOT I'LOCK PUNCH TRANSLATE I 32.20.76.1 I
I
I 8 VIA MINUS Y CHAN REG INOTO 1
I
t
1 AND 2NOU ANO NOT-... 50R70R NOT 1·
1
I' . .-..
I-.
I
I
11064 I .... RESERVED .. *
I-----i------~~------~~----~~-·--I------------l-~-----------------1
n046 I 84C15F TO 64821L
I 32.20.76.1 I 84821'
I
1
1
110b5 I
1-1--------·--.
. .--------1-----------1-----------------1
1
I
I
I
84A23A TO 84821E
1 32.20.77.1 I 84C21
32.11.15.1'1 8lGIO
I
1----------1 ------...-----:""'----1
* .. RES ERV ED*I
I
I
1----1----:------------·
-----1-----------1---·-.------1
11066 I CAN NOT GET PUNCH TRANSLATE 9 I 32.20.77.1 I 84C21
1
1
1
I
I---I--~------------""'-I--,------l-----~---'""'----__:I
11045
1105B I 81G10Q TO B4C21E
1-----1------------------1-----------1-----------1
1-----I--------------------1-----------I-----------------I
I 32.20.76.1 I 84021
132.20.70.1 I 84A23
I
I
1
I-----I--~------------------------l------------I-------------------1
1 32.20.76.1 I 84821
I
11044 t B4A23P TO 84821F
I·
I
I 32.20.77.1 1 84C21
I 32.20.70.1 1 84A23
1
Il061
81GI0Q TO 84C21R
32.20.77.1
84C21
1
1
I 32.11.15.1 1 81GIO
I
1---1-·---------------1---------.---1-----------1
11062 I B4622L TO 84C21L
I 32.20.17.1 I 84C21 '.
I
I
I
1 32.20.70.1 I B4822 '
1
1---.---I----~---~--~---~------~--~-I------------l-------------------1
11063 I 81DIOA TO 84C21Q
I 32.20.77.1 I 84C21
I
I
1 32.11.12.1 I 81010
11041 I B48220 TO 84821P
I
I
11043 I CAN NOT 8LOCK PUNCH TRANSLATE I 32.20.76.1 I 84821
I
I 8 VIA MINUS Y CHAN REG 1 ANO I
I
1
I 0 ANO NOT-50Rb-I
I
11057 I 84A23A TO B4C218
I
I
1----1-.-.;.---------------.;...---1------.:..--1--
!.
I
-1
I·
132.20.77.1 I 84C21
I 32.20.10.1 I B4A23
----I-------~-----'------~""'--
II·
!
--~----I---------I------
11056 I 84A23D TO B4C21A
1
I
1-.;..;.-I------------------I--,..-------.,-I---~---------1
!
l
!
1
---1-------1-----·
------·----1I
I 32.20.76.1 I 84821'
32.11.15.1
BIGlO
1----1-----------------1----------1
---------------1
11040 I BlD11A TO 848210
I 32.20.76.1
B4B21
1
I
1--1
I
I
n039 1 BIGIOQ TO 84821Q
·'1
. -------.. .--I-------I--~--------l
1----------
I
I
I
1---1-
DATE'
32.11.12.1 I B1Dll
I
I 32.11.14.1 1 8 1 E l 2 ' 1
I I
I11059 1' •• RESERVED**
1 .32.20.76.1 I 64B21
1 32.20.70.1 I 84B22
I---I-----------------I--------I------~-----I
Et
I
I 81El2Q TO 84C21G
I
------1---------,--1------------1
11038 t CAN NOT BLOCK PUNCH TRANSLATE 1 32.20.16.1 1 84821
I
I 8 V IA MINUS Y CHAN REG NOT 4 1
I
I
I AND 1 AND N.OT-2NOT3-I
1
!
1
I OR'
I
I
II
I 32.20.16.1 I B4B21
I
J 32.11.12.1 1 6 1 0 1 1 1
I
1
1
I
I
I---1---------------'-.. ---.,.-------1--------.,.--1------.. ..,.....----.
I
1---1-----------'----1----------1
----------------1I
11037 1 "'RESERVED".
I
1
I
I
1----I. . .-~----------'------I-----------I---~----. .------I
11036 I B4B22L TO 84821H
1
I
·t
I
1--1--------------1-----------1--------------1
1---1------·-
l
I
1----1--
I
I
I '
I
I
2611
I
j,.
n035 I 810111' TO M821G
I
I
!
f
I b--
1---1----_____-----'---1-.--------1--·----------1
l-----------..
1---------..-1------
[l033 I "'RESERVED*'"
I
I
l - -...
~-----------"--11034 I BIE12Q TO 84B218
I 32.20.76.1 I 84B21
I
I
132.11.14.1 I BIE12
840257
11052 1 84B22Q TO B4C21D
I 32.20.77.1 I 84C21
I
I
I
I 32.20.71.1 1 B4B22
I
1----1------------------.,.----1------------1-----------------I
11053 I "'RESERVED".
'.1
I
..
I
--I
n054 I CAN NOT GET PUNCH TRANSLATE 9 1 32.20.77.1 I 84C21
1
I
1 VIA MINUS Y CHAN REG ~ AND 1 1
1
1
I
I
I
I
I AND 0 ANO NOT 50R6
1 - - - 1 - - - - - - -...---..-------:....----I - - - - - - - - - - - .- - I
11055 I B4B22Q TO B4C21C
1 32.20.77.1 I 84C21
I
1
1
I 32.20.71.1 1 84822
I
I
I
t---I-------------·
--1-----..;,..-1---"'--------1
J 1031 1 uRESEIWEO*"
I
I
I
I---I------------...
-----~- ..-l-.,.---------t------------I
n032 I --RES ERV EO""
I
I
I
PIN
1;
!I
I
l-----t---------~--------·-----~-I------------!------------------I
1----1--------I
I
I
-I
1
-
1---1
__-----------------1------------1------------__
---..,.--1I
11049 I 81F09L TO 84C21F
I '32.20.77.1 I MC21
I
I
32.11.14.1 I 81F09
1
1---1----------..,.------------x'---..,---.;,-.,-I
---.
.
:-.
.
--.---------I
110501 81GIOO TO 84C21E
132.20.77.1
84C21
32 •. H.15.l
8lG10
1
1---1----...;.--------1----------1--------··
--1 .
n051 I BI011A TO 84C21H
1 32.20.77.1 I 84C21
1
1
t
1
I
-1-..----....~-I--~
1
I
-----..11
,',
f
2821 - 2540 READER PUNCH SCAN
!
-l------------I---~-~-~-----l
1---1------------------1--------11025
I
,
PAGE
I
'1
I---I-~----;.",.-...-----~-""!"--·------I-- ---~-l----------I
11024 I "RESERVED"
1."
.......,,:."'.
" .... --.---~<
IBM MAINTENANCE DIAGNOSTIC PROGRAM "
J
11022 I *"RESERVED*l----l----,.----~------I---------I--------~-I
11023 I *"RESERVED".
.
I
[
[
.
~.".:. .,,,.'~"-
'0.0 0 0 0 0 ··O·. ·O,()OO! 0 0
17MAR66
125643.
10
PAGE
F801t-* .
26A
e- e e e __ oe ____
0080
eooee eeeeeooeeeeeeo
f
. ~".'. J... _ _ _ _ ••• _
.,I
........0.......,:.-_ _ _" _ _
... ____
....._ ......_
..
w
...
....•..
·~_
...•..·'i't't
.....
·,...
, ..
· ...."'
....""'. ~~
_ _, ...._ _
....,..;.'....._.~...
:,;,:_ _~!.~
·s
J
I
1
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PIN 8402!i7
PAGE
27
2821- 2540 READER PUNCH SCAN
IBM MAINTENANCE DIAGNOSTl.C PROGRAM
,
PIN 840257·
PAGE
27A
2821-2540 READER PUNCH SCAN
··t·
!
I
-------------------1--------------------.
11011 I **RESERVED..
I
I
I
1 - - 1 - - - - - - - - - - - - - - - - - - - - - -1-----------1------------.--I
11072 I ""RESERVED".
I
I
I
1---1-----------1-----I-----,..--~-----1
11073 1 •• RESERVED..
I
I
1
1 - - - 1 - - - - -..- - - - - - - - - - - - - - - 11074 1 •• RESERVED".
I
I
I
1--1
•
- 1----.:..-1-------..,-------1
11075 1 84A16C STUCK AT MINUS V
I 32.20.72.1 I 8ltA16
I
I---I----~---.... - ....
---_!_~-~I-----.---~-I
11076 I •• RESERVED..
I
I
I
1--1------1------1----..,-------1
11077 I •• RESERVED"
I
1
1---1
--"'---------1--------1--------1
11078 1 "RESERVED".
1
I
I
1--1----- - - - I-----I------~---I
11079 1 •• RESERVED..
1
1
I
1---1--------------------1------------1--------------1
11080 I •• RESERVED".
1
I
. 1
1---1--------------11081 1 84A18C STUCK AT MINUS Y
132.20.73.1'1 84Al8
I
1 - - - 1 - - - - - - - , . . -...-...-----------1---;.-..- - - 1 - - - - - - ·
11082 I **RESERVED"
I
I
I
1 - - 1 - - - - - - - - - - - - - - I-~----I----..,.--"'--------1
11083 I •• RESERVED..
I
I
I
i
1
i
!
11108 1 •• RESERVED"
,
j
I----I-------------..-----.----1-----------I------.---------I
lli12 I •• RESERVED".
1--1---------..
.."..--------.-1-------.. ----1-------..---..,----..-1
llU5 I "RESERVED""
I
.
1
1
11091
"RESERVED..
I
I - - -I .
------.---------------- 1-----....,-----I - - - - - - - - - - - - - - 1
11092 I •• RESERVEO'"
1
I
1
1-'
-- I
1--
11093 1 •• RESERVEO"
1--1
11094 1
I
1
1--------·- .......---1
I'
II
1--1--,----------------11095 1"RESERVED"
I
1 - - - 1 - - - - - - - - - - - - - - - - - - - - - 1 - - - - - - - - - 1 - - - - - - -....- - - 1
11096
B4818C STUCK AT MINUS Y
32.20.74.1·1 84818
I
1----1---------.
1-..,.,..-;.-1------------".
.
---1
11097 I "RESERVED",
.J
I--1-11099 1 "RESERVED..
:1
1---1--------11101 I NEVER GET PUNCH TRANSLATE
1
~-------
1-I
1---------.......------1I
i
I
1
I
1
-1--------[--------.---.,.--[
132.20.32.1 I 83El8
I 32.20.75.1 1 84A20
1
l---I~----.:....----..,--------..;..·I---------I
U130 I .... RESERVED .. *
DATE
EC
15JUL65
124265
17MAR66
1256103
.,
~""""-----I---~----l
1
--.. . -------------11
1"
I---I----------..---~------ 1---------1----.-.--.:.---------1I"
.
I
.
I
....' .
.
1----------1-----..:.-.--..:.--1
1 - - - 1 - - - " : " " " " ' - - ' - '- - - - - 11134 1 ALWAYS GET PUNCH TRANSLATE 2 1 32.20.32.1 I 83El9
1,
I
I
I 32.20.i5.1 184C19,84A20
I
1"-",:",--- I - - - - - - - - - - -...
1---,--------I ________ ~--__..o!- I
11135 I **RESE.RVED..
.
I
1
I.
I - - - -I
~"":"--.,---"':"-~~-~--- I-----~.....,.-- I ------~~.;..----~ ... t
11136 I •• R E S E R V E D . * I ' I
.
1
1---1 ------~.;..-~-~~--~--'1- I--------~-I-- ---~~-.---- I
i
---!'--------:-.-
f
..
. --:"'--1
10
F804-·
.PAGE
27
----1
I
I..;,..---1---------_.:-----------1------.,.--1---..;;..----------1·
.
I
i l l ) ) 1 **RESERVED*...
1-----1-------------~-------------1------~---1..;.--~----------1
I
1
I
I~J
.
11131 I •• RESERVED".
I
I
1-";"'1
-----.------1----1-11132 I •• RES ERV EO**
l '
I'
11102 1 ".RES ERV ED..
11103 1 •• RESERVED"
I
I
-1------....,1----'---'-'.----~-1
I
I
I.
11129 1· **RESERVED"
l
1-----1-------------------------------1------------1--·-----------------1
I
I
I
I ••
1 - '- 1 - - - - ·- - - ' - - - " : - -
1
I
I
I
I
1
I----I.."..-------~---------------..,.,..--I------------I---
i
·1I
I
1----1-----------------------------1-----------[-------------------1
I
I
I
11100 I "RESERVED"
I
1--1
-----------.. ;.,..--,..----..,--1-------.
. . ---1I --'-'----_-.--....-1I
11125 I "RESERVED..'
1
--------1
11126
."RESERVED""
1-I
.:...--------..---·.---1-----------1--------.....:-_-------II
11127 I ALWAYS GET PUNCH TRANSLATE 0 I 32.20.31.1 1 83E18 .
I
I
1 32.20.74.1 I 84C18.84818,B4A19 1.
1--1-----;.,..--------..,----1---------1--·
--------1
11128
RESERVED**
'1' I
.. ..
Ij
1
I
1- - - J - - - - -........ -------------.----- I-~-------~-- I -----------------I .
1109B I •• RESERVED".
.
I
1
1
l----I-------------~--------------I------------I------------------~I
11124 I •• RESERVED**
I
1
---------·---1
1----I-------------~-~7"'----------I---------.---I-----..."..------------I
11123 1 ".RES ERVED**
I
1
I
1---1--------..;.------.. ---
i
!
--"-..--1
I
-.------1
. I
1------...:--""'--1---....
11121 1 **RES ERV ED..
.
I
I
I
. I ----- I ---------------------------- [----------- I -----.-'""---------1
11122 1 B4C22C STUCK AT MINUS Y
1 32.20.77.1 I' 84C22
I
·f
I
-------.-.---------1-----·
----1-----------1
".RESERVED..
1
1
1
1---..;.-----1----- ".
1.1
11119 I "RESERVED"
I
I
1----r - ... -~-------------,..-------- 1.,.-----.---.......- I ----..----.
11120 I .• *RES ERV ED..
I
I
II
I---I------~--.:..---I----I-----..------.:.--I
1
I----I----------'---------..,-1---..,------1----,---...----------1 "
1
1--....,-..:.-----1---.. ---------1
I
I---1...;,..---------..
..,--.----------1-----------I
--------------1I
1 "*RESERVEDu
. 1
I
111117
-----1--------------.
.
---1------,-.--..:1
---.
. ----·........--1.1
1111B I •• RESERVED..
I
I
,
I
I
1---1--------.
. --------,..-----[-------.....
--1-----------.. 1I
11116 I 84C21P STUCK AT MINUS Y .
I 32.20.77.1 I 8.4C21
I,I
-1
1 - - - [ - - - - - - - - -...- .- - . - - - - - - - I~---.---I------_---,.;--I
11089 1 ."RESERVED**
I
1 - - 1 - - - - - - -..- - - - ·- - - - - 11090 I B4C18P STUCK AT MINUS Y
1 32.20.74.1 I B4C18'
I
1
I
I
I11114
----II -------------.:-.;--------1----------J - - - - .------1
•• RESERVED..
I
I
1
1--1------I1
1--------..."..----·-I
11087 I ."RESERVED"
1---1-----..;.--------------1----.------[-------[I
11088 1 •• RESERVED..
1."[
I
I
i--I----------.. ------'"!"~--. . . II------"'!--I---·~--------~--I
11113 I "RESERVED"
I
I
j
11085 I 84Al1Q STUCK AT MINUS Y
1 32.20.73.1 I 84All
I
1--1------""------------------1-----------1--------------1
11086 I •• RESERVED".
1
I
. 1
I
I
I
I
I
. . . --------._:"''. 1--,------....
--I --.;..---~--------I
I
1
1
1---1------..
----------------1-------.
.
--1------------..,.----1
Jl111 I 84821C STUCK AT MINUS V
1 32.20.76.1 I Q4B21 .
1
I
1--1---------------_-----1--------1---------------1
11084 I •• RES ERVED..
1
I
1
l--I---------------I-------I------~------.·
I
11109 I "RESERVED~.
1----I --~------~"'!':'
llllO I "RESERVED..
.
1-..----1-----------..----1
-------1
I
I
, I
I-----I--------------~--_---------I---------..,-I---------------.."..;'-1
j
I
1
i
I----I -----.:.------------------ 1---------1-------------·-I.
j
-----------I-..
'j
1
I11106
----II -----~-----.----------_----I---------I------.. -.-.----I1
".RESERV E D " .
I
1
1---1--------..
-----.,,:..--..'-..----1--------..:.
. .-1-----------,..------I
11107 I **RESERVED"
. 1
1
.J
i
1----------1 -------------1
I
I
I
1
11104 1 •• RESERVED".
I
I
1 - - - 1 - - - - - - - - -..- - - - - - . - -.. - 1---------1--------'-------1
11105 I 84C19R STUCK AT MINUS Y .
32.20.75.1 I 84C19.
[
DATE
EC
15JUL65
124265
17MAR66
125643 .
..
10
PAGE
FBO.,..27A
I
1
I
iI
.[
~~~~~~~--~---..:.-----------------.;-----.;--
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ·H
--~~----
PIN
PAGe
IBM MAINTENANCE DIAGNOSTIC PROGRAM
I
r
I
11138 I ALWAYS GET PUNCH TRANSLATE 8
I 32.20.34.1 I B3E20
r 32.20.76.1 I 64119,B4621
I
I
I _._- I - - - - - - - - - - - - - - - - - - - - - - - - 1----------I
I
!
I
I
I
I
I-----I---------~--~---------------~-I-------"'""'"---I-------~-----------1
H141 I 'H.RESERVED""
1
I
1
COL
r ----l---------~~------..------'_:----- 1------------1-------------------1
H142 I NEVER GET PUNCH TRANSl/ITE 9
I :£I2.20.')'!-.1 I 63E20
r
I
!
1-----I ----'.'-,- - - - - - - - - - - - . - . - - -
1-----------1----------------i
!
I
I
1----1--------·..--,-------...;--I ------------------1
Ill44 I .... RESERlfHH'"
I
1
I
I---~---
I----·-! -----...--.-.----------~---- 1--------·--i -------·---------1
11145 I ALWAYS GEl PUNtH TRANSLATE 12 I 32.20.31.1 I B3EIB
I
I
I
.
1 32.:20.12.1 I B4A16.1l4A17.S4C16 I
---~-----~----I-----------~--"-I
U146 1 ''''RESERVED''''
I
I '
I
,---.,.-I-..
..------------l------..
1 - ·-- I ---..-----.. ---....,..~..,.....,----------- I --~-------l-----.,.---I U41 1 ""RESERVED""
1
1
..-I--..---·..
I-~
----~---~-----r-------I--------I l l •• I •• RESERVED..
I
I
..------- II
..-----..---I
I
1---.. 1------·-....-------------,-,.-- 1------..,-----I -----~--------"'"--- I
1114. I ALWA'S GET PUNtH TRANSLATE
1
I
--------. .,,-.;..,,-------""'.,....-------_...._-""""_....-
I
I
I MCn
COLUMN 1 ,.
COLUMN 2
COLUMN 3 COLUMN ...
COLUMN 5 'COl.UMN 6 ,.
COLUMN· 7 COLUMN 8 COLUMN 9 ,.
COLUMN 10 COLUMN 11 COLUMN 12 COLUMN 13COLUMN 14 ,.
COLUMN 15 COLUMN 16 COLUMN 17COLUMN 18 -
I
-...,.---~~----- ....
-
LOG OUT OF ACCUMULATED DATA BY ROUTINE
ROUTINE 01 --CHANNEL REG FlTLISTED BELOW 15 A SAMPLE OF THE lOG OUT INFORMAT!ON. TME
DATA IS PRESENTED IN HEX FORM. " BITS PER CHARACTER. nus
SIMPLE REPRESENTS THE DATA ACCUMUUiTED IiI n; NO ERRORS.
2
;;
.,
9
10
130 DC 00 00
40 OC 00 00
20 DC 00 00
10 OC 00 00
08 OC 00 00
04 DC 00 00
02 OC 00 00
00 01 OC DO 00
00 00 or: 00 00
00 00 oe 00 00
00
00
4-
5
SO 08 14 00
40 08 14 00
20 08 14 00
10 06 14 00
08 08 14 00
(lit 08 14 00
02 08 14 00
01 OS 14 00
00 OS 14 00
00 08 1't 00
00
00
00
00
00
00
00
1
6
B
00
00
00
00
4.4.3
00
00
DATe
EC
15JUL65
124265
- - - -----
---~-
-'--
-------
:3
4
5
6
1
8
9
1011 12 13 14 15 16 17 18
00 31 OC 00 00 0401 OC 00 00 31 DC 00 00
00 50 DC 00 00 2000 OC 00 00 50 DC 00 00
00 60 DC 00 00 1000 DC 00 00 60 OC 00 00
00
00
00
00
00
00
00
00
00
00
00
1"0
OC 00 00 0800 OC 00 00 1'0 OC
OC
OC 00 00 0200 OC 00 00 F2 OC
DC 00 00 0100 OC DO 00 1"3 OC
DC 00 00 0020 OC 00 DO F4 DC
DC 00 00 0010 OC 00 00 1'5 DC
DC 00 00 0008 OC 00 00 1'6 OC
DC 00 00 0004 DC 00 00 F1 ac
DC DO 00 0002 OC 00 00 FB OC
ac 00 00 0001 DC 00 00 F9 DC
DC 00 DO 0000 OC 00 00 40. oc
OC 00 00 0401 OC 00 00 31 OC
1'1 DC DO 00 0400 DC 00 00 H
1'2
1'3
F4
F5
1'6
F1
Fa
F9
40
00 31
00 00
00 00
00 00
00 00
00 00
00 00
00 00
00 00
00 00
00 00
00 00
0000
DATA WR ITTEN rei PUNCH BUFFER
PUNCH WRITE CHANNEL END ~TATUS
PUNCH WRITE DEVICE END STATUS
PUNCH WRITE SENSE DATA
PUNCH WRITE CHECK READ DATA
PUNCH READ DATA
PUNCH READ STATUS
PUNCH READ SENSE DATA
PUNCH READ CHECK READ DATA
READER WRITE DATA -1ST BYTE OF COL BINARY
READER WR IrE DATA -2ND BYTE OF COL BINARY
READER WRITE STATUS
READER WRITE SENSE DATA
READER WRITE CHECK READ DATA
READER READ DATA
READER REID STATUS
READER READ SENSE DATA
READER READ CHECK REAO DATA
ROUTINE 03 --BUFFER ADDR FLT-THE
THIS
DEVICE XXX OIAG CK RD DATA - RESIDUAL COUNT IS 0020 SHLD. BE 0020
0000010000010101010100000100000101010101000001000001010101
0000010000010101010100000100000101010101000001000001010101
1 - DATA WRITTEN TO PUNCH BUFFER
2 - PUNCH WRITE CHANNEL END STATUS
3 • PUNCH WRITE DEVICE END STATUS
4 M PUNCH WRITE SENSE DATA
5. - PUNCH WI< ITE CHECK READ DATA
6 - PUNCH READ DATA
7 - PUNCH READ STATUS
8 -PUNCH READ SENSEDATA
9 • PUNCH READ CHECK READ DATA
10 - DATA GROUP ERROR SWITCHES
BIT 6 -ON- MEANS BIT DOES NOT TURN ON
SIT 1~ON- MEANS SIT DOES NOT TURN OFF
1711AR66
125643
-
PIN 840257
PAGE
2811
LISTED BELOW IS A SAMPlE OF THE LOG OUT INFORMATION.
DATA IS PRESENTED IN HEX FORM, ~ aiTS PER CHARACTER.
SAMPLE REPRESENTS 1 SOLID FAILURE FOR 8UFFER AOORESS
REGISTER UNITS -1-.
00
00
EACH COLUMN IN THE ABOVE TABLE IS DEFINED BELOW.
COLUMN
COLUMN
COLUMN
COLUMN
COLUMN
COLUMN
COLUMN
COLUMN
COLUMN
COLUMN
-~-~-----
EACH COLUMN IN THE ASOVE TASlE I S OfF INEO 8EUIW.
I 32.20.31.1 I B3EI.
I
I 32.20.73.1 I 84111.84118,B4817.1
~1
2
31 DB 14 00
50. as 14 00
60 08 14 00
1'0 08 14 00
Fl 08 14 00
1'2 08 14 00
1'3 08 14 00
fl. 08 14 00
1'5 08 14 00
1'6 08 11. 00
1'7 08 14 00
F8 08 14 00
F9 08 14 00
40 Oil 14 00
31 011 14 00
I
32.20.11.1 I 64A21.B4C21,B4C22 I
! l 143 I u!<.ESERVEOu
COL
,-
LISTED BelOW IS A SAMPLE OF THE LOG OUT INFORMATION. THE
DATA 15 PRESENTED IN HEX FORM, 4 BITS PER CHARACTER. THIS
SAMPl.E REPRESENTS THE DATA ACCUMULATED WITH NO ERRORS. IF
AN ERROR IS DETECTED, THE FIRST LINE IN THE TABLE BELOW
WILL CONTAIN THE ERROR DATA.
1
-----------------1I·
11139 I '''RESERVED''''
. r
I
I--·-1-------------""'---------------I
------..---..-I-------------------1
1140
""RES ER'IEO....
4.4.1
---
4,,4"2 . ROUTINE 02--·CDNTROL PR'OGRAM--
1 - - - 1 - ·-"'"-_.-.-------·-----~---I------------I.;.---------------- I
4.4
--
2821 - 2540 READER PUNCH SCAN
11137 I ''''RESERVED""
i
---
HIMIIAINTENANCE OIAGNOSTIC 'PROGRAM
2821 - 2540 READER PUNCH SCAN
--------------"'...
-----
00000100~0010101010100DOOIOOOOOIOIOIOIOIOOOOOOOOOOOOOO0000
DEVICE yyy OIAG CK RD OATA- RESIDUAL COUNT IS 0020 SHLD BE 0020
0000010000010101010100000100000101010101000001000001010101
0000010000010101010100000100000101010101000001000001010101
0000010000010101010100000100000101010101000000000000000000
IN THE ABOVE PRINTOUTS. OF DIAGNOSTIC CHECK DATA,XXX
REPRESENTS THE READER ADDRESS ANO YYY REPRESENTS THE
PUNCH ADDRESS.
'
10
PAGE
Fa04,.".!
28 i
DATE
EC
15JUL65
1242651
1.,MAR66
125643
10
PAGE
1"804-.
28A
.~
")
......
,.
.\
.
o
0 0 0 0 0 0 0 0 0 0 '00'000 0'0 0 0 0 0 00 0 0 0 0 0 0
'PiiI""ff"'bWf'"'II'iP
t
0"'=
t
txt $t
wt' 'tift
e-e e e
*
It -
____ 88000 00008 ooee8000000000
PIN 640257
PAGE
29
IBM MAINTENANCE DIAGNOSTIC PROGRAM
0720
0330
0138
EACH DIAGNOSTIC CHECK READ IS PERFORMED WITH A CCW COUNT
OF 100 -DECIMAL. IF THE READER/PUNCH CIRCUITs ARE
FUNCTIONING PROPERLY, THE RESIDUAL COUNT SHOULD 6E 020 ONLY 80 COLUMNS SHOULD BE READ. IN THE ABOVE PRINTOUT, 90
BYTES OF DIAGNOSTIC CHECK READ DATA ARE DISPLAYED FOR
EACH DEVICE. IT IS TO BE NOTED THAT ONLY ADDRESS CHECKS
WILL BE INDICATED - ALL OTHER DIAGNOSTIC CHECK READ BITS
ARE ELIMINATED BY THE PROGRAM.
3800
0038
2C03
2401
2201
2101
1. DIAG WRITE DATA
2021
2011
HEX - SINCE A DIAGNOSTIC WRITE TO THE READER BUFFER
IS A COLUMN BINARY WRITE, TWO BYTES. AS INDICATED, ARE
REQUIRED TO LOAD ONE READER BUFFER POSITION. THESE
TWO 6YTES ARE REPEATED THROUGHOUT A 160 BYTE WRITE
FIELD IN AN ATTEMPT TO WRITE ALL 60 READER BUFFER
POSITIONS WITH IDENTICAL DATA. A TOTAL OF 81 SEPARATE
WRITES ARE PERFORMED WITH EACH WRITE USING DIFFERENT
DATA AS INDICATED IN EACH ROW.
2009
2005
2003
2403
3403
1401
HOLLERITH - THIS INDICATES THE READER BUFFER DATA
REGISTER LATCHES WHICH WOULD BE SET BY TWO HEX BYTES
INDICATED IN THE SAME ROW.
T 01
1
T
T
2
4
ACT - THIS IS THE READER SENSE BYTE OBTAINED AFTER
THE CORRESPONDING READ. REFER TO THE APPENDIX FOR
SENSE BYTE INFORMATION.
TE 1
10
11
11
o
2
9
2
TEOl
89
89
89
01
01
o
T
T 0 2
T 0
T 1
T
2
2000
T
3401
3003
TE 1
TE
E
TE
3COl
TEal
T 0
2804
2802
T 0
0123
17MAR66
125&43
DB
E3
06
08
08
00
00
T 0
1402
00
00
ID
PAGE
F804-"
29
2800
T
2001'
T
15JUl65
124265
9
69
8
42
48
42
4B
CO
49
49
6
4A
50
4A
'}
89
51
51
62
00
6A
6A
71
71
00
00
8
7A
1A
00
8
80
80
82
83
00
00
00
00
00
00
00
82
83
84
9
86
B7
67
88
89
88
69
8
EO 2
8
9
EO
2
17MAR66
12564.3
8
9
00
08
00
00
08
08
08
00
00
00
00
00
00
00
00
00
00
00
00
00
00
·00
00
00
00
00
00
00
00
08
08
00
00
08
08
08
08
00
00
00
00
00
00
00
00
00
00
00
00
00
.00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
95
91
94
95
00
00
00
00
00
00
00
AD
AD·
00
00
00
00
AA
AA
00
00
CO
C9
CO
C9
00
00
00
00
00
00
00
00
00
00
00
00
9.4
5
84
B5
91
4
58
60
86
68
90
8
50
85
8A
8
8
EOl
o
CO
bl
8
EOl
2A
58
60
61
62
7
a
29
00
00
00
00
00
00
00
6
TE 1
TE 1
TE
TE
00
00
00
00
00
00
4
T a
T 0 2
T 0
3
00
00
00
00
41
TO' 5
T 0
OD
41
9
2
21
22
08
08
00
00
00
00
00
00
00
00
00
00
9
'}
01
19
20
08
30
40
EO 2
3000
19
20
21
22
08
08
00
00
06
29
2A
30
40
01
2808
A3
05
09
10
EXPD - THIS IS THE EXPECTED READER DIAGNOSTIC CHECK
READ DATA.
A3
E3
02
03
04
08
T 0 2
T 0 3
E012
00
01
08
09
T 1
'}
1800
OA02
lCOl
Fl
F7
F7
06
2AOO
2900
2820
2810
I
DIAG WRITE DATA
I
READ DATA
1 SENSE DATA
I CHECK. READ DATA I
I ___ -----_-------~-.I---------------I---------------I----------~------I
I
I
I ACT 1 EXPD I ACT 1 EXPD I ACT I EXPD
1
1 -HEX- 1 -HOLLERITH- I -HEX-. 1 -HEX- 1 -.HEX- 1 "-HEX- I -HEX- I -HEXI
70
07
ACT - THIS IS THE READER DIAGNOSTIC CHECK READ DATA
OBTAINED AFTER THE CORRESPONDING READ. REFER TO THE
APPENDIX FOR DIAGNOSTIC CHECK READ INFORMATION.
-",-~--~-------~--",-----, ---------------~---~------------
'}
01
3400
3020
3010
le02
E3
03
04
D5
OCOl
OAOl
2902
E3
F7
F7
F7
02
89
89
3402
Al
A1
9
EOl
2A02
7F
3F
'}
9
E 1
2801
7F
3F
70
D7
T
AN ASTERISK WILL PRECEDE EACH ROW WHERE AN
ERROR IS DETECTED. AN ERROR IS DETECTED
WHEN THE ACTUAL AND EXPECTED RESULTS ARE
NOT EQUAL.
f7
06
2CD2
._.NOTE*..
F7
08
08
00
5
6
0202
4. CHECK READ DATA
F7
9
1 9
89
89
89
lAOl
EXPD - THIS IS THE EXPECTED READER SENSE BYTE.
08
06
01
E 1
1000
OCOO
F7
F7
'}
3
T
T
T
T
T
T
F7
F7
F7
89
lC03
2202
3. SENSE DATA
15JUL65
124265
012
234
345
456
1403
2402
EXPO - THIS IS THE EXPECTED READER READ DATA
DATE
EC
EOl
9
OA03
3C03
0000
2COl
2A01
2803
ACT - THIS IS THE ACTUAL DATA READ fROM THE READER
BUFFER AFTER THE CORRESPONDING WRITE.
lEOO
OFOO
TEO
oe03
2. READ DATA
I!
6789
ICOO
OEOO
LISTED 6ELOW IS A SAMPLE OF THE LOG OUT INFORMATION. THIS
SAMPLE REPRESENTS THE DATA ACCUMULATED WITH NO ERRORS~ A
BRIEF DESCRIPTION OF EACH COLUMN IS INDICATED BELOW.
1
2345
3456
.4567
5678
DOlE
OOOF
0:320
0130
1
1234
003C
ROUTINE 04 --READER TRAN.SLATOR FlT--
1
PIN 840251
PAGE
29A
2821 - 2540 READER PUNCH SCAN
2821 - 2540 READER PUNCH SCAN
1t.4 .. 4
IBM MAINTENANCE DIAGNOSTIC PROGRAM
·8A
8B
90
00
DO
EO
EO
E1
E1
00
00
00
00
00
00
00
00
00
00
10
PAGE
F804-"
29/\
MO_
X. .1.44
E
gat
PIN 840257
PAGE
30
IBM MAINTENANCE DIAGNOSTIC PROGRAM
IBM MAINTENANCE DIAGNOSTIC PROGRAM
2821 - 2540 READER PUNCH SCAN
0014
0018
0024
0030
0028
0204
0208
0210
0220
0300
0108
.. 4.5
1'7
1'1
7
1'1
1'5
45
4 6
2
2
6
5
2 ...
23
.3
08
08
1'5
1'6
1'7
08
08
06
08
08
08
011
1'6
1'1
1'6
1'3
F1
6
08
08
1'7
1'7
1'7
1'6
1'7
1'6
F7
1'6
1'3
7
2
2821 - 2540 READER PUNCH SCAN
5 7
56
4
1'7
08
08
08
08
' 08
08
08
08
08
08
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00,
00
00
08
00
00
91
A1
A9
CO
C1
C2
CB
CA
DO
02
08
OA
EO
LISTED BELOW IS A SAMPLE OF THE lOG OUT INFORMATIO~. THE
DATA IS PRESENTED IN HEX FORM. 4 OITS PER CHARACTER. THIS
SAMPlE REPRESENTS THE DATA ACCUMULATED WITH NO ERRORS.
1
:2
.3
4
5
6
00
00
00
00
00
01
02
00
01
00
00
00
00
0,2
00
00
00
00
00
00
00
00
00
03
00
00
04
05
06
07
08
09
OA
10
00
00
00
00
03
04
05
00
00
00
00
00
06
00
CO
07
08
11
00
00
00
00
00
00
00
00
00
19
00
00
20
00
21
00
00
00
00\"
29
2A
50
51
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
58
00
59
CO
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
19
lA
20
21
22
29
2A
30
40
41
42
48
49
4A
50
51
58
59
60
61
62
63
68
6A
68
6E
70
72
78
7A
80
81
82
88
89
DATI"
EC
15JUl65
1:24265'
00
00
00
00
00
00,
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
01
00
-00
09
OA
HI
11
lA
OO~
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
22
30
40
41
',2
48
49
4A
60
61
62
63
68
6A
66
bE
70
72
78
7A
80
81
82
88
89
El
1"2
E3
E8
E9
EA
EB
1'0
FA
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
,00
00
00
00
00
8B
00
91
00
A1
A9
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
' co
Cl
C2
C8
CA
' DO
02
08
OA
EO
E1
1"2
E3
1"8
1"9
EA
EB
1'0
FA
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
EACH COLUMN IN THE ABOVE TABLE IS DEFINED BELOW.
COLUMN
COLUMN
COLUMN
COLUMN
COLUMN
COLUMN
00
00
00
00
00
00
00
00
00
00
1 -
2
~
3 •
4 5 -
6 -
.... NOTE....
CO
OC
00
00
00
00
00
00
00
00
00
00
00
DATA WRITTEN TO PUNCH BUFfER
PUNCH WRITE SENSE DATA
PUNCH WRITE CHECK READ DATA
PUNCH READ DATA
PUNCH READ SENSE ,DATA
PUNCH READ CHECK READ DATA
EACH ROW IN THE ABOVE TABLE THA TIS I N ERROR
WIll BE PRECEEDED BY AN ASTERISK. AN ERROR
IS DETECTED WHEN THE PUNCH WRITE AND READ DATA
ARE NOT EQUAL AND lOR WHEN THE SENSE OR .CHECK
REAO DATA. IS NOT ZERO.
COMMENTS
5.
5.1
PROGRAM PHILOSOPHY 'AND ASSOC tAT ED COMMENTS
THE BASIC PHILOSOPHY EMPLOYED BY THIS PROGRAM IS TO --FIRSTAREA ISOLATE A SOLID DATA PATH FAILURE WITHIN THE 2821/2540
ATTACHMENT, AND --SECOND-- FURTHER ISOLATE THE FAILURE TO
PARTICULAR CIRCUIT-S-. IN ORDER TO UTILIZE THIS PHILOSOPHY
wnH lHE EXISTING MAIN STORAGE SIZE LIMITATIONS, IT WAS
NECESSARY TO EMPLOY THE PROGRAM OVERLAY CONCEPT. EACH OVERLAY
--ROUTINE-- 1$ DESCRIBED IN OETAIl 8ECOW.
00
5.2
00
00
DEseRI'PT ION --ROUTINE 01, CHANNEL REG Fl T-THE PRIMARY OBJECTIVE OF THIS ROUTINE IS TO CIRCUIT ISOLATE A
SOLID FAILURE IN THE CHANNEL REGISTER CIRCUITS WITHIN THE READERI
PUNCH ATTACHMENT OF THE 2821.
00
00
00
00
00
00
00
00
00
00
00
00
00
THIS ROUTINE ACCOMPLISHES ITS 08JECTIVE BY INVESTIGATING THE
EIGHT CHANNEL REGISTER BITS - O. 1, 2, 3, 4, 5, 6, 7. WITH EACH
OF THESE LINES MADE ACTIVE, ONE AT A TIME, THE FOLLOWING SEQUENCE
OF OPERATIONS ARE PERFORMED-
00
to '
17MAR66
125643
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
8B
ROUTINE 05 ,--PUNCH TRANSLATOR I'll--
COL
PIN 840257
PAGE
30A
PAGE
1'804-"
,i
!,
30
DATE
EC
1.
WRITE PUNCH BUFFER
A. SENSE 110 ~~IF UNIT CHECK STATU$-'"
6. DIAGNOSTIC CHECK READ
2~
READ PUNCH BUFFER
A. SENSE 1/0 --IF UNIT CHECK STATUS-- '
15JUL65
124265i
17MAR66
'125643
10
PAGE
1'804-lOA
I
Y
!
,"")
'-
o o
()
a
o o
0 00 00 0 00 0 0 0·' 00
·- e e e e eeeeeeeeee eeeeee eeee eoooeeeee
"ii'I
ISM .foIUNTENANCE DIAGNOSTIC PROGRAM
PIN 840251'
PAGE
31
'jl
IBM MAINTENANce DIAGNOSTIC PROGRAM
!
2821 - 2540 READER PUNCH SCAN
4jI~~"_""_"'''''''''
.;.
__
'''''''''''''w",",':.....tw'':>''': ..~~~·~·.;~·¥
PIN 840257
PAGE
3lA
2821 - 2540 READER PUNCH SCAN
"
"
I:
ERRORS ARE DETECTED, ROUTINE 03 WILL BE BYPASSED.
B.
\l
I.
\
"
DIAGNOSTIC CHECK READ
THE INFORMATION 08TAINED 8Y EACH OF THE A80VE OPERATIONS IS
SAVED IN MAIN STORAGE, AND IS SHOWN IN DETAIL IN THE SECTION
ON PRINTOUTS.
AFTER ALL DATA HAS BEEN ACCUMULATED, IT IS INTERROGATED BY AN
ANALYSIS ROUTINE. AN OUTPUT MESSAGE WILL INDICATE THE RESULTS
OF THIS ANALYSIS AS AN ERROR NUMBER OR --CHANNEL REG OK--. IF
AN ERROR NUMBER IS INDICATED, THE OPERATOR MUST REFER TO SECTION
4 3 2 OF THIS DESCRIPTION FOR DETAILED INFORMATION CONCERNING
THE' ERROR. IF A CHANNEL REGISTER ERROR IS DETECTED, ALL REMAINING
ROUTINES WILL BE BYPASSED. IF NO ERRORS ARE DETECTEO, ROUTINE
02 WILL BE RUN.
THE LOG OUT OF DATA ACCUMULATED BY THIS ROUTINE IS DESCRIBED IN
SECTION 4.4.1 OF THIS DESCRIPTION. SECTION SENSE SWITCH 2 MUST
BE SET TO 1 TO OBTAIN THIS LOG OUT.
I
\
'\ ,
j
5.3
I
1.
'j
2.
3.
4.
5.
!
\
THE LOG OUT OF DATA ACCUMULATED BY THIS ROUTINE [S DESCRIBED IN
SECTION 4~4.2 OF THIS DESCRIPTION. SECTION· SENSE SWITCH 2'MUST
BE SET TO 1 TO OBTAIN THIS LOG OUT.
5.4
6.
1.
READ/PUNCH BUFFER DATA REGISTER
BUFFER ADDRESS REGISTER
REAOIPUNCH BUFFER, INHIBIT LINE, AND SENSE AMPS
READ TRANSLATOR
READ TRANSLATE CHECK CIRCUITRY
PUNCH TRANSLATOR
PUNCH TRANSLATE CHECK CIRCUITRY
1
I}
1.
I
2.
1{
3.
4.
I
i
5.
II
6.
THE LOG OUT OF DATA ACCUMULATEO BY THIS ROUTINE IS DESCRIBED IN
SECTION 4.4.3 OF THIS DESCRIPTION. SECTION SENSE swn.CH 2 MUST
BE. SET TO 1 TO OBTAIN THIS LOG OUT.
S.5
\
\
1
1.
2.
\
I
4.
1
I
I
1,
'\
I
DATE
Ee
1. BUFFER OAT A REGISTER
,
2. INVALID CARD CODE CHECKING CIRCUITS
3. READER TRANSLATOR
WRITE PUNCH BUFFER
A. SENSE I/O --IF UNIT CHECK STATUS-B. DIAGNOSTIC CHECK READ
READ PUNCH BUFFER
A. SENSE 1/0 -IF UNIT CHECK STATUS-B. DIAGNOSTIC CHECK READ
WRITE, READER BUFFER
A. SENSE 110 -IF UNIT CHECK STATUS-B. DIAGNOSTIC CHECK REAO
READ READER BUFFER
A. SENSE I/O
"
B•. OIAGNOST IC CH~CK READ
15JUL65
124265
17MAR66
THIS ROUTINE WILL BE RUN ONLY WHEN ROUTINE 02
INDICATES ERROR 005, 001, 011, 018. 022, OR
NO ERROR INDICATION.
THE OBJECTIVE OF THIS ROUTINE IS TO CIRCUIT ISOLATE A SOLID FAILURE
WITHIN THE FOLLOWING AREAS--
THIS OBJECTIVE IS ACCOMPLISHED BY PROVIDING TO THE ABOVE AREAS
THE REQUIRED INPUTS TO EXERCISE ALL CIRCUITS. THE OUTPUTS ARE
THEN INTERROGAT,ED FOR A UNIQUE PATTERN WHICH DESCRIBES A
PARTICULAR CIRCUIT FAILURE. TO PROVIDE THE INPUTS AND OBTAIN THE
OUTPUTS, THE FOLLOWING SEQUENCE OF OPERATIONS ARE PERFORMED-1. OIAGNOSTIC WRITE TO READ BUFFER
I
I\
THE INFORMATION OBTAINED BY EACH OF THE ABOVE. OPERATIONS IS
SAVED IN MAIN STORAGE, AND IS SHOWN IN DETAIL IN SECTION 4.4.2 .
OF THIS DESCRIPT JON.
AFTER ALL DATA HAS BEEN ACCUMULATED, IT IS INTERROGATED BY.AN
ANALYSIS ROUTlNE. THE RESULTS OF THIS ANALYSIS WILL BE INDICATED
AS AN ERROR NUMBER OR No-ERRORS-DETECTED. IF AN ERROR NUMBER IS
INDICATED, THE C.·E. MUST REFER TO SECTION 4.3.2 FOR DETAILED
INFORMATION.
IF AN ERROR IS DETECTED BY THIS ROUTINE, AN AUTOMATlCSEARCH
FOR A ROUTINE TO CIRCUIT ISOLATE THE FAULT WILL OCCUR. IF NO
i
DESCRIPTION --ROUTINE 04, READER TRANSLATOR FLT-•••.NOTE .... •
THIS ROUTINE ACCOMPLISHES ITS OBJECTIVE BY INVESTIGATING THE
THIRTEEN COMMON DATA LINES --P, 12, 11, 0, 1, AND 2 THRU 9WITHIN THE 2540 ATTACHMENT. WITH EACH OF THESE DATA LINES MADE
ACTIVE, ONE AT A TIME, THE FOllOWING SEQUENCE OF, OPERATIONS ARE
PERFORMED WITH A CCW COUNT EQUAL TO ONE.
I
PERFORM TWO DIAGNOSTIC CHECK READS TO THE READER, AND
SAVE THE CCW COUNT AND DATA OF THE SECOND READ.
PERFORM TWO DIAGNOSTIC CHECK READS TO THE PUNCH. AND
SAVE THE CCW COUNT AND OATA OF THE SECOND READ.
FILTER OUT ALL BUT ADDRESS CHECKS FROM THE READ DATA.
,
DETERMINE IF READ, PUNCH, OR BUFFER, ADDRESS REGISTER PROBLEM
BY ANALYZING THE SAVED DATA.
CIRCUIT ISOLATE PROBLEM IN FAULTY ADDRESS REGISTER BY
COMPARING DIAGNOSTIC CHECK READ DATA TO PRE-DETERMINED
ERROR PATTERNS.
PRINT APPROPRIATE ERROR NUMBER,
THE t.E. CAN THEN REFER TO SECTION 4.3.3 OF THiS DESCRIPTION
FOR DETAILED INFORMATION OF THE PROGRAM ANALYSIS.
NOTE -- THE READ AND PUNCH TRANSLATORS ARE NOT COMPLETELY FROM
TESTED BY THIS ROUTINE -~ ONLY COMMON LINES TO AND
EACH TRANSLATOR ARE INVESTIGATED.
1
DESCRIPTION --ROUTINE 03, BUFFER ADDR FLT-THE PRIMARY OBJECTIVE OF THIS ROUTINE IS TO CIRCUIT ISOLATE A
SOLID FAILURE WITHIN THE 2821 READ, PUNCH, AND 8UFFER ADDRESS
REGISTERS. THIS OBJECTIVE IS ACCOMPLISHED IN THE FOLLOWING
MANNER.'
i
DESCRIPTION --ROUTINE 02. CONTROL PROGRAM-THE PRIMARY OBJECTIVE OF THIS ROUTINE IS TO AREA ISOLATE A SOLID
~AILURE WITHIN THE 2540 ATTACHMENT OF THE 2821. THESE AREAS ARE
DEFINED BELOW--
THIS WRITE USES A CCW, COUNT OF 160. DECIMAL, WHERE EIGHTY
IDENTICAL COLUMN BINARY CHARACTERS WILL BE WRITTEN.
2. READ READER BUFFER
3. SENSE 110
4. DIAGNOSTIC CHECK'READ
,
I
THE ABOVE SEQUENCE OF OPERATIONS IS REPEATED EIGHTY-ONE TIMES.
FOR EACH REPEAT, THE DIAGNOSTIC WRITE USES DIFFERENT DATA. THIS
DATA IS INDICATED I.N SECTION 4.4.4 OF THIS DESCRIPTION.
'\
I
\
I'
THIS ROUTINE PROVIDES OUTPUT MESSAGES IN THE FORM OF AN ERROR
NUMBER. THE C.E'> IS REQUIRED TO REFERENCE THIS ERROR NUMBER TO
SECTION 4.3.5 OF THIS D~SCRIPTION FOR'DETAILS CONCERNING THE
FAILURE. ADDITIONAL OUTPUT IS PROVIDED IN THE FORM OF A'LOG OUT
-SEE 'SECTION 4..4.4--. THIS LOG OUT IS PROVIDED ONLY IF SECTION
SENSE SWITCH 02 IS SET TO 1 PRIOR TO RUNNING THE ROUTINE.
I
I
i
iD
FB04-"
PAGE
31
DATE
EC
15JUL65
1242651
17MAR66
125643:
10
PAGE
F804-·
3lA
125643
\
"
.,\
1
..
i_.d:~"·
.'
16M MAINTENANCE
2821- 2540 READER. PUNCH SCAN
2821 - 2540 READER PUNCH SCAN
DESCRIPTION --ROUTINE 05, PUNCH TRANSLATOR FLT--
5.6
.*./IIOTE**.
..*
THIS ROUTINE WilL BE RUN ONLY WHEN ROUTINE 02
..".
.
INDICATES ERR 019, ERR 024, ERR 025, OR NO
ERROR INDICATION.
THE OBJECTIVE OF THIS ROUTINE IS TO CIRCUIT ISOLATE A SOLID
FAILURE WITH.lN THE PUNCH TRANSLATOR.
THIS ISIICCOMPLISHED BY
PROVIDING TO THE PUNCH TRANSLATOR THE REQUIRED INPUTS TO
EXERCISE ALL CIRCUHS. .HE OUTPUTS ARE THEN HlTERROGATEO FOR
A UNIQUE PATTERN WHICH DESCRIBES A PAR1ICUlAR CIRCUIT FUlUlU;.
TO PROVHlE THE INPUTS ANOmnAiN THE OUTPUTS, THE
OF OPERAr IONS. ARE i'ERFORME!)--'
SEQUENCE
.."
fOLLOWING
6.3
5.
HHS WRITE USES A CC~i COUIIIT OF 80, DECH'!Ill. WHERE EIGHTY
YDENHCAI. CHARACTERS WIll BE WRHTEN.
SENSE 110 TO PUNCH
DIAGNOSTIC CHECK READ TO PUNCH
READ PUNCH BUFFER
SENSE 110 TO PUNCH
6. OHIGNOST!C C~!ECK REAl:! TO PUNCH
THE ABOVE SEQUENCE OF OPERIHHlNS IS i
..
5
(,
1
NOT USED
XU CHECK PLANE
Xl CHECK PLANE
BUFFER PARITY CHECK
PuNCH TRANSLATE CHECK
PUNCH BUFFER ADDRESS
CHECK
XL CHECK PLANE
BUFFER PARITY CHECK
READ TRANSLATE CHECK
READER BUfFER ADDRESS
CHECK
..
AND 2 SHOULD ALWAYS BE ZERO.
BITS 3,4, AND 5 CAN APPEAR
IN ANY BYTE TO INDiCATE THE POSITION IN ERROR.
BIT 6 WILL APPEAR
ONLY IN THE FIRST BYTE OF THE CHECK READ TRANSFER AND INDICATE A
TRANSLAiE CHECK IN. THE PREVIOUS DATA TRANSFER. BIT 7 WILL APPEAR
IN THE FIRST BYTE OF THE TRANSFER IF THE ERR.OR OCCURRED Dill A
PREVIOUS CYCLE OR IF THE ERROR OCCURRED. ON nlE FiRST 6YTE OF
TRANSFER.
IT WILL APPEAR INSUCCEEIHN£ BYTES I f ERRORS !I.E-OCCUR
..
DURiNG THE TRANSFERS.
..
BITS 0,1.
,*",~'•• ***1Jt.* .. *.,.*** • .g..*,** •• **1t",**"'.*-***4****".*** ...
...
.,."
REJECT
INTERV.ENTlON REQUIRED
BUS OUT CHECK
EQUIPMENT CHECK
OAT A CHECK
NOT USED
UNUSUAL COMMAND SEQUENCE
:NDT USED
READER
..
..
..
..
...
,.
**J!"*********'Jj'-********fHHt********ft'***'**'****i}**..!f-*!le1:li_*.*1Hll,'H.~.fi**.*!f**** 567
fUNCTION
TEST 1/0
HEX CODE
o 0 o 0 00.
x x x x o 1 00. •
o0 1 1 •
x X 10.
1
- -o X1 o01..
..
(I 1 01. •
o 1 10 • •
..' • 0 0
SENSE
NO OP
• • [) 0 o 0
READ • •
o x
WRIT • • •
[)
1 [)
01 AGNOSTIC WR1TE •
DIAGNOSTIC READ
1 1 o 0
DIAGNOSTIC CHECK RC 1 1 o 0
• •
•
...
•
• • • 00 WHERE ALL
• 04 X CHARS.
03 ARE IN THE
02 ZERO STATE
01
25-
ID
'II
..
• C5
• C6
WHERE X fORMS VARlATHlNS ON OPTIONS AND - REPRESENTS
MODIFIERS WHICH MAY BE COMBINED.
SENSE BYTE INFORMAi'lON
**' •• * •• ****.***.**.*.* •• *4.**.&*~****.*.*~~.*** ••*********.**** •• * •••
.
..
ONE SENSE BYTE
... BIT
DATE
. EC
o
o
MEANING
15JUL65i
17MAR66
124265'
125643
0000
Fa04-..
15JUL65
124265
00
o ',
.....).'
.~.)
~')
'"
32A
'0 0 0 0 (0 ,0 0 ,-r) ()
C:
/')
'(
0 0 0 0 0 0 '0 ()
;
WHet
Me
------_.._ - - - - - - - - _ .
«,'j
__ 0 0 0 0 0 0 0 0 0 0 0 0
o o o
000 0000000 000 0000
.
I
IBK MAINTENANCE
DIAG~OSTIC
PROGRAM
PIN
ISM MAINTENANCE DIAGNQSTIC PROGRAM
840258
PAGE
.. 1'8041· 28Z1 SCAN/2540 READERIPUNCH
F8041
CHANNEL REG FLT-ROUTINE OVERLAY 01-
.. F8041
2B21 SCAN/2540 READERIPUNCH
F8041
CHANNEL REG FLT-ROUTINE OVERLAY 01-..
00107D
....
.. _... _••••.......•. _... __ ... _.. __ .. _....•..•...•.•.....•••..........
8041
...
....
*
....
*
...
.
....*
TITLE F8041
MOOIFICATIONS
1. CHANNEL REG FLT -ROUTINE OVERLAY 01MOOIFIEO THE SUB-ROUTINE WHICH OETECTS THAT A CHANNEL
REGISTER LATCH IS ALWAYS IN THE -ON- STATE •
2. CONTROL PROGRAM -ROUTINE OVERLAY 02MODIFIEO TO SELECT ROUTINE OVERLAY 04 -READER
TRANSLATOR FLT- AND ROUTINE OVERLAY 05 ·-PUNCH
TRANSLATOR FLT. THESE TWO ROUTINES ARE NEW ADDITIONS
TO THIS PROGRAM PACKAGE •
ENGINEERING CHANGE PREREQUISITES
1. HARDWARE
2821 CONTROL UNIT WITH 2540 -ATTACHMENT AT MINIMUM
E.C. LEVEL 124265
2. PROGRAM
NONE
....
."
"
"
"
"
".
..
..
RESIDENT ROUTINES
"
"_•• _•••• _-.-_ •• _._ •• _••••• _-•• -_ •• _.* ••••••••••• - ••••• _••• __ •• *_._*._*-..
..
..
SECTION SENSE SWITCH USAGE
..
..
SSW
SSW
SSW
SSW
LOC
LOC
LOC
LOC
X004,
X004,
X004,
X004.
..
SECTION PREFACE
BIT
SIT
SIT
SIT
"
*
0 - LOOP ON START 1/0
1 - USE UTILITY SCOPE ROUTINE
2
LOG OUT OATA TABLE
6
PRINT TITLE
*
"
*
_._ ••••••• *.--_ •• __ .-**-_.* •• **** •••• - •••••• ** •• **--*.****-******** •• _*\
001000
001003
001004
001008
00100A
OOlOOC
001000
00100E'
OOlOOF
001010
001015
F80410
00
00000000
0000
0000
00
02
80
00
010400000F
00186C
001018
001020
001028
001030
00103S
001040
001048
00104C
001055
001058
001060
001065
001068
001070
001078
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
00000000
000000000000000000
000000
0000000000000000
010400000F
00171,C
0000000000000000
0000000000000000
010400000F
DATE
EC
'"'\I
15JUL65
124265
17MAR66
125643
_•••• _--**.-.- ••• **.- ••••••
_-* .. -_.*.*
.•• *** •••••••• _.***-_._*--*----_...
PROGRAM & SECTION NUMSER
DC.
DC
SNSW
DC
DC
ICM
DC
DC
NIOU
DC
FLAGS1 DC
FLAGS2 OC
INPSW OC
DC
XL3'F80410'
XLI'O'
XL4'O'
XL2' 0'
XL2'O'
XLl'O'
XLl'OZ'
XL1'80'
XLl'O'
X'010400000F'
AL3!RTNOll
"
DC
5XLB'O'
INITIAL PSW STARTING ADDRESS FOR
ROUTINE 01 - THIS ADDRESS. IS
CHANGED FOR EACH OVERLAY
OLD PROGRAM STATUS WORDS
DC
DC
DC
XL8'O'
XL4'O'
XLl2'O'
CHANNEL STATUS WORD
COMMAND ADDRESS WORD
RESERVEO
XL8'O'
X'010400000F'
AL3(EXIT21
XLS'O'
XL8'O'
X'010400000F'
EXTERNAL RETURN PSW
SECST
.
CSW
CAW
EXTR
DC
SVRPSW DC
DC
PIRPSW DC
MCRPSW DC
lORPSW DC
THIS FIELO MUST CONTAIN ZEROS
SENSE SWITCHES
RESERVED
INTERRUPTION CONDITION MASK
RESERVED
NUM8ER OF 110 UNITS THAT CAN BE TEST
SECTION FLAGS. EXCLU. CPU
INTERRUPT HANDLING FLAG.
10
I
.. _.............. _... _... _......... _-_ ..... _.. _-_.*._ ... __ ._-_._ .. _--..
....
0010EO
0010El
0010E2
81
00
BOOO
0010E4
0010E5
0010E6
82
00
8<000
UN ITl OC
DC
UNIADR OC
XL1'81'
XL1'OO'
XL2'BOOO'
UNIT TYPE - UNIT 1 -READER
1/0 OPTIONS
FLAGS AND ACTUAL UNIT ADDRESS
UN IlZ
XLl'S2'
XLl'OO'
XL2'8000'
UNIT TYPE - UNIT
-PUNCH
1/0 OPTIONS
FLAGS AND ACTUAL UNIT ADORESS
.
.... _•..•...... _._ .._-_ .. _.......__.__._-.... _. __ ...•..•..•.-.-...----_..
DC
DC
UN2ADR DC
0010E8
OD 001234 0000 0000
OOlOFO
0010F4
0010F8
OOlOFC
001100
00000000
00000000
00000000
00000000
00000000
VARIABLE FIELDS
_.... _. __ ._._._._
..... _.. _._--_._--* .... _*._ ..... _..--_ ...__.........-.•
VARIABLES FOR SCOPING ROUTINE - DOUBLE WORD BOUNDARY
. __ ... _-_ ....... __ ... -_.**._ ... _.. _... *--_._._--_ .. _...................•
SCPCCW CCW
X'OO',SCPDAT,X'OO'.OO SCOPE ROUTINE CCW
**---_
.. __ ._._-..
_.... __ ._ ... _.. _... *._._-.-_. __ ._ .. _-._ .. _....... _.. _.-... _...VARIABLES
FOR SCOPING ROUTINE - WORD BOUNDARY
_... _.--.-_ .................... _...... _.. _** .. _... _.. __ ....... .SCPRKl DC
4F'OO'
I
I
I
-I
I
GR9 THRU GR12 SAVED HERE
SCPRK4 DC
WORK AREA
F'DO'
.._-_
.. _._--*--_._------_._
.. _----_ ....
_.. __ .......... _.. _-_ .. __ ._.... .
-.*..-.-.*.....•..*••••••--••
.
VARIABLES FOR SIO ROUTINE - WORO BOUNDARY
"
.-*-***-•••
SIOVRl DC
001104
001108
00110C
001110
001114
OOlllS
001llC
001120
001124
001128
001l2C
001130
001134
00113B
001l3C
001140
001144
001148
00000000
0"0000000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
00114C
001140
00114E
001157
001l5E
001167
00116E
001177
001l7E
001180
001183
001184
001180
001194
001190
00
00
C9610640CIC4C4D94D
E7E7E740C3CIE6
40E7E7E7E7E7E7E7E7
40C7D6E340C3C3
F040C2E4E340D5D640
C9D5E3C509D9E4
D7E3
000000
00
C961D640CIC4C40940
E7E7E740C3CIE6
40E7E7E7E7E7E7E7E7
40C7D6E340C3C3
**-•• ~-***.-* • •• _* •• _ ••••••••••
9F'00'
GRI THRU GR9 SAVED HERE BY SIO
SIOVR2 DC
SIOVR3 OC
F'OO'
2F'OO'
SEC PREF CAW SAVED HERE BY SIO
CSW SAVE AREA FOR ORIG SID
SIOVR4 DC
SIOVR7 OC
SIOVR8 DC
F'OO'
F'OO'
2F'OO'
CC SAVEO HERE FOR ORIG SIO
CC SAVED HERE FOR SENSE 1/0
CSW SAVE AREA FOR SENSE I/O
SIOVR9 OC
2F'00'
•• ****** •••• *.**.***._-*--*._*_ •••• __ ._._*-*-*.--.. _**--* ... -... _-... _.
..*-*****.-••
.
VARIABLES FOR SIO ROUTINE - NO BOUNOARY
-*.**** •••• * ••
•• **-**.* ••• *** • • _•••••••••••• _••
*-.-.***.*.~*
RETURN ADORESS
PROGRAM INTERRUPT RETURN PSW
MACHINE CHECK RETURN PSW
PAGE
I
I/O RETURN PSW INSTRUCTION ADDRESS
OS
96C
SUPERVISOR REGISTER DUMP AREA
••••••••• _._ •••• --_ •• --_._--_ ••• _._ ••••••• _._ •••••••••• * •• _._-_ •• _•• *_ •
SECTION PREFACE UNIT TABLE
..
...
..
AL3! SIOINT)
•• _----_. __ ._*-**. __ .-••••••••••••• _-_ •• __ •••• _•• _*_ .... _..... _... __ ...
*
XF8041 START 4096
0,
1,
2,
6,
IORADR OC
I
•f
....... __ REGISTER
OUMP AREA
.............
_..... _-.... _-**---._._*.-.... *_ .. ----_._.*._ ..... .*
001080
"
USING *,15
........................
_..•. _._. __ ... _.- .... _.._.. -..--..... _-_._.... -
...
001570
CHANNEL REG FLT -ROUTINE OVERLAY 01-
..
..
.
...........
_._ ........................ _.....................-...-.......
001000
PIN S40258
PAGE
14
1
F804-1
1
DATE
EC
15JUL65
124265
17MAR66
125643
CAWKEY DC
SIOSWS DC
SIOMSI DC
X'OO'
X'OO'
C'IIO ADDR XXX CAW'
DC
C' XXXXXXXX GOT CC'
OC
C'O BUT NO INTERRU'
DC
SIOVR5 DC
SIOVR6 DC
SIOMS2 DC
C'PT'
XL3'OO'
X'OO'
C'IIO ADDR XXX CAW'
DC
C' XXXXXXXX Got CC'
CAW KEY STOREO HERE
SIO SWITCHES
CCO BUT NO INTERRUPT
BCD ADDR OF UNIT ADDRESSED BY SIO
cel
MESSAGE
F804-1
10
PAGE
lA
iii
------------------------------------------____________-----____-..-1'·
.:"
,.,_. _. "M"- __
~._¥
•. _____ .. __ .____ . _
.
-
~~
...... "',_".. _ _
~.
___
,~
.
__ ..... , ... ". ,
.
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PIN 840258
PAGE
2
* F8041
2821 SCAN/2540 READER/PUNCH
F8041
CHANNEL REG FLT -ROUTINE OVERLAY 0100llA4
OOllAD
0011 B4
OOllBD
OOllCl
OOllCA
OOllOl .
OOllDA
OOllEl
OOllEA
OOllFl
001lF7
001lF8
OOllFA
001202
001208
001212
001218
001210
001226 .
F140C3E2E640E2E3Cl
E3E4E240E7E7E7
E740E205E240E7E740
40404040
C9610640CIC4C4D940
E7E7 E740C3CIE6
40E7E7E7E7E7E7E7E7
40C706E340C3C3
F140C3E2E640E7E7E7
E7E7E7E7E7E7E7
E7E7E1E1E7E1
00
0000
0000000000000000
C4C9CIC740C3D24009
C440E4D5C9E340
FOFOF04005D6E34006
0268
40E6C9D3D340E3D9E8
40CIC7CIC9D5
00122C
001220
001230
001231
00
000000
00
000000
001234
001230
001246
00124F
001258
001261
00126A
001273
00127C
001285
00128E
001297
0012AO
0012A9
0012B2
0012BB
0012C4
0012CD
001206
0012DF
DC
C'l CSW STATUS XXX'
DC
C'X SNS XX
C'I/D ADOR XXX CAW'
DC
C' XXXXXXXX GOT,CC'
DC
C'l CSW XXXXXXXXXX'
DC
DC
DC
DC
DC
C'XXXXXX'
X'OO'
XL2'OO'
XL8'00'
C'DIAG CK RO UNIT'
DC
C'OOO NOT OK,'
DC
C' WILL TRY AGAIN'
UAPU
DC
DC,
DC'
DC
X'OO'
XL3'O'
X'OO'
XL3'O'
.'
VARIABLES FOR SCOPING'ROUTINE - NO BOUNDARY
•
UARO
SENSE ERROR MESSAGE
2ND STATUS SAVED HERE
AGGREGATE CSW SAVEO HERE
AREA TO SAVE PRINTABLE READER AODR
" TO SAVE PRINTABLE PUNCH AODR
AREA
't
SCPOAT DC
XL180','O'
SCOPE ROUTINE DATA FIELD
j
I
START 1/0 ROUTINE
*._**--*_ .... -*---**._ .... _-*--*
•••••• *****.************** ••••• **.** •••• ***.******** •••
DATE
EC
02
02
10
02
02
19
03
07
00
CO
00
03
00
10
10
80
15JUL65
124265
j
F
F
F
F
F
F
F
F
F
F
F
0
C
F
180
140
2FC
180
070
104
128
12C
IF7
780
048.
048
000
330
F 134
F 140
F 220
F 231
F 738
F 048
F 12C
F IF7
F 14C
F 048
17MAR66
125643
001363
001364 '
001366
D0136A
00136E
001372
001376
00137A
00137C·
00137E
001380 '
0013B2
001388
00138C
00ll8E
47 10
91 30
47 50
OA 08
91 80
47 10
OA DO
0004
0048
015F
02 02
92 FO
OA DO
40
32
F14E
47 FO
91 30
47 40
91 80
47 10
OA' DO
0004
0048
OlSF
0202
92 F3
OA 00
40
F 5DE
F 134
F 36A
BC
TM
8C
, SVC
TM
BC
SVC
DC
DC
DC
MVC
MVI
SVC
DC
ALLON,SIOI04
SIOVR4,X'30'
ANYON,SIOBOO
X'D8'
SNSW,X'80'
ALLON,SIOCOA
X'DD'
AL2141
AL21 CAW-SECSTI
AL2ISIOMS1&17-SECSTI
SIOMS1&9131,SIOVR5
SIOMS1&32.X'FO'
X'DO'
X'40'
DC
DC
BC
SI0800 TM
BC
TM
BC
SVC
DC
DC
DC
MVC
MVI
SVC
DC
X'32'
AL2ISIOMS1-BASE®I
ALWAYS,SIOCOA
SIOVR4.X'30·
MIXED,SIOCOO
SNSW,X'80'
ALLDN,SIOAOO
X'DD'
AL2(4)
AL2ICAW-SECSTI
AL2ISIOMS1&11-SECSTI
SIOMS1&9131.SIOVR5
SIOMS1&32,X'F3'
X'DO'
X'40'
F 004
F 3BE
F 157 F 180
F 16E
.'•
*
*
F 3BE
134
F 396
F 004
F 30C
F
F 151F 180
F 16E
•
*
*
-_ •••• _ •••• _.**.**.*.*.*** ••••••••••••••
02
91
41
02
02
90
02
07
07
54
02
02
9C
45
50
91
.•
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
*
00l2E8
0012E8
0012EE
0012F2
0012F6
0012FC
001302
001306
00130C
001312
001318
00131C
001322
001328
00132C
001330
001334
0013.38
00133C
001340
001344
001346
00134A
00134E
001350
001352
001354
001356
00135C
001360
001362 .
* ••• *•• * ••••••••••••••• * •••• *.** ••• *.*.~ ••• * ••• * ••• * •••••••••••••••••••
000000000000000000
000000000000000000
000000000000000000
000000000000000000
000000000000000000
000000000000000000
OOOOOOOooooooaoooo
000000000000000000
000000000000000000
000000000000000000
000000000000000000
000000000000000000
000000000000000000
000000000000000000
000000000000000000
000000000000000000
000000000000000000
000000000000000000
000000000000000000
000000000000000000
PIN 840258
PAGE
2A
• F8041
2821 SCAN/2540 READER/pUNCH
F8041
CHANNEL REG FLT-ROUTINE OVERLAY 01-
SIDMS3 DC
SENSE
STATSV
CSWAG
MESS1
IBM MAINTENANCE DIAGNOSTIC PROGRAM
CNOP 0,4
MVC
SIOVR513l,UARO
TM
.SIOSWS,X'OZ'
BC
AllON,.&lO
MVC
SIOVR513l,UAPU
MVC
IORPSW&5(3),SIOCNl
STM
GR1,GR9,SIOVRl
MVC
SIOVR2(4),CAW
SIOAOO XC
SIOVR3(8l,SIOVR3
XC
SENSElll.SENSE
N
GRC,CLRC
MVC
CAW(ll,CAWKEY
MVC
HCAWI4,GRO) ,CAW
SID
OIGRC)
BAL
GR1,-&4
ST
GR1,SIOVR4
TM' SIOSWS,X'80'
SID
*._._.a", ..• __ ....
SET UP CONSTANT FOR READER
SEE IF READER WILL BE ADDRESSED
BR IF YES
SET UP CONSTANT FOR PUNCH
lOAD RETURN ADDR IN IORPSW
SAVE GRl THRU GR9
SAVE CAW
CLEAR CSW SAVE AREA
CLEAR SENSE BYTE
AND OUT BITS 0 THRU 20 IFGR 12
LOAD STORAGE KEY IN SEC PREF CAW
LOAD C,AII
START 110
SAVE CONDITION CODE
"
SEE IF RET TO PROG SWl ,ON
ID
F804-1
PAGE
2
00138F
001390
001392
001396
00139A
00139E
0013A2
0013A6
0013A8
0013AA
0013AC
0013AE
0013B4
001388
0013BA
21
F14E
47 FO
91 10
47 10
91 8.0
47 10
OA DO
0004
0048
015F
02 02
92 F2
OA DO
40
-.
F 30C
F 134
F 3EE
F 004
F·3SE
F 157 F 180
F 16E
DC
DC
BC
SIOCOO TM
BC
TM
BC
SVC
DC
DC
DC
MVC
MVI
SVC
DC
X'21'
AL2ISIOMSI-BASE®)
ALWAYS, SIOAOO
SIOVR4,X'10'
ALLON,SIODOO
SNSW,X'80'
ALLON,SIOCOA
X'DD'
AL2(4)
AL2ICAW-SECSTI
AL2ISIOMS1&17-SECST)
SIOMS1&9131,SIOVR5
SIOMS1&32,X'F2'
X'DO'
X'40'
*
*
0013BB
0013BC
0013BE
0013C2
0013C6
0013CA
0013CC
001300
001304
001308
0013DC
0013EO
DATE
EC
21
F14E
90 00
47 80
47 50
18 2C
91 02
47 10
48 CO
47 FO
48 CO
90 00
15JUL65
124265
•*
C 000
F 30C
F 3BE
F 140
F 3DC
F OE2
F 3EO
F OE6
C 000
17MAR66
125643
DC
DC
SIDCOA TID
BC'
BC
LR
TM
BC
LH
BC
SIOC01 LH
TID
X'21'
AL2ISIOMS1-BASE®J
OIGRC)
ZERO,SIOAOO
ANYON,*-8
GR2,GRC
SIOSWS,X'02'
ALLON,SIOC01
GRC,UN1ADR
ALWAYS,*&8
GRC,UN2ADR
O(GRCI
BR IF YES
SEE IF SID CC WAS ZERO
BR IF NO
WAIT FOR 110 INTERRUPT
BR IF SEC SS 00 IS 1 - LOOP SID
"
CONVERT
CAW TO EBCDIC
NO. OF HEX BYTES IN CAW
HEX DATA AOOR
EBCDIC DATA ADDR IN OUTPUT MESSAGE
SET 110 AODR IN OUTPUT MESSAGE
SET CCO IN OUTPUT MESSAGE
PRINT GOT CCO BUT NO INTERRUPT
PRINT PROG NO. PRIOR TO MSG
TREAT AS ERROR
00 NOT CHAIN
00 NOT RESTORE
PRINT ON NORMAL OUTPUT DEVICE
NO. OF CHAR IN MSG 1501
MESSAGE ADDRESS
GO TRY SIO AGAIN
SEE IF SIO CC WAS 3
BR IF NO
BR IF SEC SS 00 IS 1 - LOOP SID
"
CONVERT
CAW TO EBCDIC
NO. OF HEX BYTES IN CAW
HEX DATA ADDR
EBCDIC DATA ADDR IN OUTPUT MESSAGE
SET 110 ADDR IN OUTPUT MESSAGE
SET CC 3 IN OUTPUT MESSAGE
GOT CC3 ON SID
PRINT PROG NO. PRIOR TO MSG
TREAT AS ERROR
DO NOT CHAIN
DO NOT RESTORE
PRINT ON NORMAL OUTPUT DEVICE
NO OF CHAR IN MSG 1331
MESSAGE AODRESS
GO TRY SIO AGAIN
SEE IF SIO CC WAS 2
BR IF NO
BR IF SEC SS 00 IS 1 - LOOP SID
fj'
!!
t
I·
i
i
I
I
f
r
I
r
I'
i,
I
I
"
CONVERT
CAW TO EBCDIC
NO. OF HEX BYTES IN CAW
HEX DATA ADDR
E8COIC DATA ADDR iN OUTPUT MESSAGE
SET 110 ADDR IN OUTPUT MESSAGE
SET CC 2 IN OUTPUT MESSAGE
GOT CC2 ON SIO
PRINT PROG NO. PRIOR TO MSG
TREAT AS ERROR
DO NOT CHAIN
DO NOT RESTORE
PRINT ON NORMAL OUTPUT DevICE
NO OF CHAR IN MSG (33)
MESSAGE ADDRESS
TEST 110 THIS DEVICE
REPEAT SID IF CCO
LOOP PREY TIO UNTIL GET CCO
SAVE 1/0 AOOR STORED IN GR12
SEE IF GR12 CONTAINS ROR AOOR
BR IF YES
SET READER ADOR IN GR 12
BR AROUND NEXT OP
SET PUNCH AODR IN GR 12
TEST 110
10
F804-1
PAGE
2A
l
,
J
o
0·00 0 0 0 0 0 0 0 0 0 0 0 0 0 0 00 0 0··00 0 0·0 O· 0 0 0 0 0 .011
e-
It 0 0 0- 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
r
L-___------.----.--.----PIN 840258
PAGE
3
IBM MAINTENANCE DIAGNOSTIC PROGRAM
.. F8041
2821 SCAN/2S40 READER/PUNCH
F8041
CHANNEL REG FLT-ROUTINE OVERLAY 01-
.. F8041
2821 SCAN/2540 READER/PUNCH
F804.1
CHANNEL REG FL.T-ROUTINE OVERLAY 010013E4
0013E8
0013EA
0013EE
0013F2
0013F6
0013FA
0013FE
001402
001406
00140A
00140E
001412
001416
00141A
001420
001422
001424
001426
001428
00142E
001430
001412
001434
001436
00143A
00143E
001442
001444
47
18
47
91
47
91
47
001445
001446
001448
00144C
001450
001454
001458
00145A
00145C
00145E
001460
001464
001468
00146A
31
00146B
00146C
00146E
001472
001476
001478
70
C2
FO
80
10
80
80
92 00
91 FF
47 50
91 EB
47 50
91 14
47 10
02 02
OA DO
0004
0048
0195
02 07
OA DO
0002
0130
01Bl
92 Fl
91 02
47 10
OA DO
40
F 3EO
F
F
F
F
F
F
D
F
0
F
0
F
F
30C
004
3BE
183
41A
183
045
4lA
044
4lA
044
30C
180 F 180
F 12C 0 040
F lA4
F 130
F 454
....
.
Fl84
91 FF
47 50
47 FO
45 30
OA DO
0001
01F7
OlBA
91 40
47 10
OA DO
40
BC
LR
BC
SIODOO TM
BC
TM
BC
MVI
TM
BC
TM
BC
TM
BC
SIODOI MVC
SVC
DC
DC
DC
MVC
SVC
DC
DC
DC
MVI
TM
BC,
SVC
DC
F
F
F
F
131
3BE
30C
494
F IF7
F 472
DC
DC
SIOD02 TM
BC
BC
SIOEOO BAL
SVC
DC
DC
DC
TM
BC
SVC
DC
..
38
F184
47 FO F 448
92 80 F 183
OA DO
60
...
DC
DC
BC
SIOE01 MVI
SVC
DC
....
NZERO,*-4
GRC,GR2
ALWAYS,SIOAOO
SNSW,X'80'
ALLON, SIOCOA
SIOVR6,X'80'
ALLOFF,SIOOOI
SIOVR6,X'OO'
HCSW&5(GRO),X'FF'
ANYON,SIOOOI
HCSW&4(GRO),X'EB'
ANYON,SIOOOI
HCSW&4(GRO),X'14'
ALLON,SlOAOO
SIOMS2&9(3),SIOVR5
X'OO'
AL2(4)
AL2 (CAW-SECSTl
AL21SIOMS2&17-SECST)
SIOVR31B),HCSWIGRO)
X'DD'
AL2(2)
AL21SIOVR3&4-SECST)
AL2ISIOMS2&45-SECST)
SIOMS2&32,X'F1'
SIOVR3&4,X'02'
ALLON,SIOEOO
X'DO'
X'40'
X'31'
AL2(SIOMS2-BASE®)
SIOVR3&5,X'FF'
ANYON, SIOCOA
ALWAYS,SIOAOO
GR3,SIOFOO
X'OO'
AL2 (l)
AL2(SENSE-SECST)
AL2ISIOMS2&54-SECST)
SENSE,X'40'
ALLON,SIOE01
X'DO'
X'40'
X'38'
AL2ISIOMS2-BASE®)
AUIAYS,SI0002
SIOVR6,X'80'
X'OO'
X'60'
*
*
'i; :
001479
00147A
00147C
38
F184
OA DO
00147E
80
DATE
EC
15JUL65
124265
.
...
17MAR66
125643
PIN 840258
PAGE
3A
IBM MAINTENANCE DIAGNOSTIC PROGRAM
DC
DC
SVC
X'38'
AL2ISIOMS2-BASE®)
X'DO'
DC
X'80'
lOOP TIO UNTIL GET CCO
RESTORE ORIGINAL SIO AODR
GO TRY SID AGAIN
BR IF SEC SS 00 IS 1 - lOOP SIO
BR" IF INTERV REQ SW OFF
TURN" OFF INTERV REQ SW
BR IF ANY CHAN STATUS
,,
.
00147F
001480
001482
001486
001488
00148C
001490
*
23
FHB
58
IE
46
96
47
50
55
50
01
FO
E 198
F 488
F 140
F 30C
"
SET "I/O
ADDR IN OUTPUT MESSAGE
CONVERT CAW TO EBCDIC
NO. OF HEX BYTES IN CAW
HEX DATA ADDR
EBCDIC ADDR IN OUTPUT MESSAGE
SAVE CSW
CONVERT,CSW STATUS TO EBCDIC
NO. OF STATUS BYTES
CSW STATUS ADDR
EBCDIC ADDR IN OUTPUT MESSAGE
SET CCI IN OUTPUT MESSAGE
BR IF GOT UNIT CHECK
$$
GOT CCl ON SID - NO UC
PRINT PROG NO. PRIOR TO MESSAGE
TREAT AS ERROR
DO NOT CHAIN
DO NOT RESTORE
PRINT ON NORMAL OUTPUT OEVICE
NO. OF CHAR IN MSG 1491
MESSAGE ADDRESS
BR TO TIO IF GOT ANY CHAN STATUS
GO" TRY SID AGAIN
GO DO SENSE OP
CONVERT SENSE DATA TO EBCDIC
NO. OF SENSE BYTES
SENSE DATA ADDRESS
EBCDIC ADDR IN OUTPUT MESSAGE
BR IF GOT INTERV REQ
GOT "eCl ON SID - WITH UC & NO INV RQ
PRINT PROG. NO PRIOR TO MESSAGE
TREAT AS ERROR
DO NOT CHAIN
DO NOT RESTORE
PRINT ON NORMAL OUTPUT DEVICE
56 CHARACTERS
MESSAGE ADDRESS
GO TRU SID AGAIN
TURN ON INTERV REQ SW
GOT CCI ON SIO - UC & INTERV REQ
PRINT PROG NO PRIOR TO MSG
TREAT AS ERROR
CHAIN
DO NOT RESTORE
PRINT ON NORMAL OUTPUT OEVICE'
NO. OF CHAR IN MSG (S6)
MESSAGE ADDRESS
MAKE THIS UNIT ROY WITH BLANK CARDS
I/O ADDR IN GR 12
PRINT MESSAGE ONLY
DO NOT TREAT AS ERROR
DO NOT CHAIN
10
F804-1
PAGE
3
X'23'
AL21SIOMS4-BASE®I
GRS,408IGRO,GRE)
GRS,GR5
GR5,"
SIOSWS,X'Ol'
ALWAYS,SIOAOO
* ••••• ****************.***.**._.*.**********.********* •••••••••••••••••
•
BR TO SID ROUTINE IF BSY & DE ONLY
"
DC
DC
SIOE02 L
ALR
BCT
01
BC
DO NOT RESTORE
PRINT ON NORMAL OUTPUT DEVICE
NO. OF CHAR IN MSG (35)
MESSAGE ADDRESS
GET OM 10 SEC CONSTANT
SET UP 20 SEC CONSTANT
20 SEC DELAY
TURN ON RESTART SECTION SW
GO TRY-SIO AGAIN
START 1/0 ROUTINE PERFORMS SENSE 110 HERE
*
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
001494
00149A
00149E
0014A2
0014A8
0014AA
0014AC
0014AE
0014BO
0014B6
0014BA
0014BE
0014C2
0014C6
0014CA
0014CE
001402
001406
00140A
00140E
0014E2
0014E6
0014EA
0014EE
0014F4
0014FA
0014FC
0014FE
001S00
001S02
001S04
02 02
41 40
50 40
02 00
OA 00
0004
0048
0102
02 03
9C 00
45 40
91 80
47 10
50 40
92 FO
91 30
47 80
92 F3
47 10
92 F2
91 20
47' 10
92 Fl
02 06
02 07
OA DO
0002
0140
01EE
OA DO
40
001505
001506
001508
00150C
00150E
31
FICA F 180
F 728
F 048
F 048 F 14C
0
C
F
F
F
F
048 F 04B
000
4BE
004
564
13B
BAL
TM
BC
ST
MVI
'TM
BC
MVI
BC
MVI
TM
BC
MVI
MVC
MVC
SVC
DC
DC
DC
SVC
DC
SIOMS3&9(3),SIOVR5
GR4, SNSCCW
GR4,CAW
CAW(1) .CAWKEY
X'OD'
AL2(41
ALZ (CAW-SECSTl
ALZISIOMS3&17-SECSTI
HCAWI4,GRD) ,CAW
OIGRCI
GR4,-&4
SNSW,X i 80'
ALLON,SIOF08
GR4,SlOVR7
SIOMS3&32.X'FO'
SIOVR7,X'30'
ALLOFF.SIOF03
SIOMS3&32,X'F3'
ALLON,SIOFOZ
SIOMS3&32,X'F2'
SIOVR7,X'20'
ALLON,SIOF02
S IOMS3&3Z, X' F 1 '
SIOMS3&38171,SIOCN2
SIOVR8(B),HCSWIGRDI
X'OD'
AL2121
ALZISIOVR8&4-SECSTI
ALZ(SIOMS3&45-SECSTI
X'DO'
X'40'
DC
DC
BC.
SIOF02 SVC
DC
X'31'
AL2ISIDMS3-BASE®)
ALWAYS,SIOFOB
X'DO'
X'40'
SIOFOO MVC
LA
ST
MVC
SVC
DC
DC
DC
SIOF01 MVC
sio
F lEl
F 138
F 516
F lEI
F 50C
F lEI
F 138
F 50C
F lEI
F lE7 F 75E
F 13C 0 040
...
..
FlCl
47 FO F 564
OA 00
40
..
..
00150F
001510
001S12
001516
0015lC
001S20
001524
001528
00l52C
001532
001536
00153A
DATE
EC
21
F1Cl
47 FO
07 07
90 00
47 40
*
*
F
F
C
F
47 70 F
FO F
47
06
91
47
91
07
FF
50
OC
15JUL65
124265
F
F
F
F
564
13C F 13C
000
S2C
SIC
532
13C 0 040
141
54A
140
17MAR66
125643
DC
DC
BC
SIOF03 XC
TID
BC
BC
BC
SIOF04 DC
SIOF05 TM
BC
TM
X'21'
AL2(SIOMS3-BASE®)
ALWAYS,SIOF08
SIOVRS(8),SIOVRS
OIGRCI
CSW$T,SIOF04
NZERO,SIOF03&6
ALWAYS,SIOFOS
. SIOVR8(8),HCSWIGRD)
SIOVR8&5,X'FF'
ANYON,SIOF06
SIOVR8&4,X'OC'
SET 1/0 ADDR IN OUTPUT MESSAGE
SET UP SENSE CAW
"
" CAW TO EBCDIC
CONVERT
NO. OF HEX BYTES IN CAW
HEX DATA ADDR
E8CDIC DATA ADDR IN OUTPUT MESSAGE
LOAD SENSE CAW
SENSE 110
SAVE CC
BR IF SEC SS 00 IS 1 - LOOP SIO
" CC
SAVE
SET'CCO IN OUTPUT MESSAGE
BRIF GOT CCO
SET "CC3 IN OUTPUT MESSAGE
BR IF GOT CC3
SET CC2 .IN OUTPUT MESSAGE
BR IF GOT CC2
$$
SET CCI I N OUTPUT MESSAGE
SET UP OUTPUT MESSAGE
SAVE CSW
CONVERT CSW STATUS TO EBCDIC
NO. OF STATUS BYTES
CSW STATUS ADDRESS
EBCDIC ADDR IN OUTPUT MESSAGE
GOT CC1 FOR SENSE I/O
PRINT PROG NO. PRIOR TO MESSAGE
TREAT AS ERROR
DO NOT CHAIN
DO NOT RESTORE
PRINT ON NORMAL OUTPUT DEVICE
NO. OF BYTES IN OUTPUT MESSAGE (49)
MESSAGE ADDRESS
GO TRY SENSE I/O AGAIN
GOT CC2 OR CC3 ON SENSE I/O
PRINT PROG NO. PRIOR TO MESSAGE
TREAT AS ERROR
00 NOT CHAIN
DO NOT RESTORE
PRINT ON NORMAL OUTPUT DEVICE
NO. OF BYTES IN OUTPUT MESSAGE (33)
MESSAGE ADDRESS
GO TRY SENSE I/O AGAIN
CLEAR SENSE I/O CSW SAVE AREA
TEST 110
BR IF CSW STORED
REPEAT TIO IF NOT CCO
CONTINUE
SAVE CSW
BR IF ANY CHANNEL STATUS
$$
BR IF DID NOT GET CE & DE
10
PAGE
FB04-1
3A
. I
Ii
-'
IBM MAINTENANCE DIAGNOSTIC PROGRAM
•
F80~1
F80~1
00153E
001550
001552
00155~
40
001555
001556
001558
00155C
001562
001564
001568
00156C
36
FlCl
47 FO
02 03
07 F3
90 00
47 70
47 FO
0015~6
0015~A
0015~C
0015~E
* F8041
2821 SCAN/2540 READER/PUNCH
CHANNEL REG FLT -ROUTINE OVERLAY 0147 CO F 54A
91 F3 F 140
~7 80 F 55C
OA DO
0008
Ol3C
01E7
OA DO
0015~2
BC
TM
BC
SIOF06 SVC
DC
DC
DC
SVC
F 564
F 048 F 128
C 000
F 564
F loBO
F8041
MIXNON, SIOF06
SIOVR8&4,X'F3'
ALLOFF,SIOF07
X'DD'
AL2IB)
AL2ISIOVR8-SECSTI
Al2ISIOMS3&38-SECSTI
X'OO'
91
47
02
91
47
07
90
47
47
80
10
07
20
10
01
00
~O
70
FO
06 01
47 FO
02 07
06 01
91 02
47 BO
45 30
91 E5
47 50
91 FF
47 50
91 EO
47 50
91 DC
47 CO
98 19
07 FB
02 02
OA DO
0004
0048
0195
OA DO
0008
01FA
01AA
92 FO
91 02
47 10
OA DO
40
~7
F 004
F 3BE
F 12C
F 140
F 5DE
F IF8
C 000
F 59C
F 58C
F 5A6
F IF8
F 58C
F IFA
FIFE
FIFE
F 5C6
F 494
F IF7
F 5E4
F IFF
F 5E4
FIFE
F 5E4
FIFE
F 5E4
F 104
15JUL65
124265
.i
i
0 040
F IF8
0 044
F 12C
F IF8
F 180 F 180
F 1A4
FIFE
F 60C
•
001609
00160A
00l60C
001612
001614
001616
001618
00161A
00161E
001622
001624
36
F184
DZ 06 F 18A F 769
OA 00
0001
01F7
01BF
91 40 F 1F7
47 10 F 62C
OA 00
40
SNSW,X'80'
ALLON,SIOCOA
SIOVR3(8),HCSWIGRD)
SIOSWS,X'20'
ALLON,SIOI04
STATSV(2),STATSV
OIGRC)
'CSWST,SIOIOl
NZERO,SIOIOO
ALWAYS,SIOI02
STATSV(2),HCSW&4(GRD)
ALWAYS,SIOIOO
CSWAG(8),CSWSAV
CSWAG&4(2),STATSV
CSWAG&4,X'02'
AlLOFF,SIOI03
GR3,SIOFOO
SENSE,X'E5'
ANYON,SIOI05
CSWAG&5,X'FF'
ANYON,SIOI05
CSWAG&4,X'EO'
ANYON,SIOI05
CSWAG&4,X'OC'
MIXNON,SIOI05
GR1,GR9,SIOVRl
AlWAYS,GRB
SIOMS2&9(3),SIOVR5
X'DD'
Al2 (4)
Al2ICAW-SECSTl
AL2ISIOMS2&17-SECST)
X'DD'
AL2 I 8)
AL2ICSWAG-SECST)
AL2ISIOMS2&38-SECST)
'SIOMS2&32,X'FO'
CSWAG&4,X'OZ'
ALLON,SIOI06
X'DO'
X'40'
DC
DC
SIOI.06 MVC
. SVC
DC
DC
DC
TM
BC
SVC
DC
:10
•
•
3D
F184
47 FOF 30C
OA DO
60
001625
001626
001628
00162C
00162E
DC
DC
BC
SI0107 SVC
DC
Ii
:10
BR IF SS 00 IS 1 - LOOP SID
"
SAVE CSW
BR IF RET TO PROG SW3 ON
..
CLEAR 2ND STATUS SAVE AREA
TEST I/O
BR IF CCl
REPEAT TID IF NOT CCO
CONTINUE
SAVE 2ND STATUS
REPEAT TIO
SET UP AGGRAVATE CSW
"
BR IF DID NOT GET UC
"
GO PERFORM SENSE 1/0
BR IF GOT COM REJ, BO PAR, OR IN REQ
"
BR IF GOT ANY CHAN STATUS
"
BR IF GOT ATT, SM, OR CUE
"
BR IF DID NOT GET CE & DE
"
RESTORE GRl THRU GR9
RETURN TO PROG
SET UP OUTPUT MESSAGE
CONVERT CAW TO EBCDIC
NO OF HEX BYTES I N CAW
HEX DATA ADDR
EBCDIC ADDR IN OUTPUT MESSAGE
CONVERT AGGREGATE CSW TO EBCDIC
NO OF HEX BYTES IN CAW
HEX DATA ADOR
E8CDIC AOOR IN OUTPUT MESSAGE
SET CCO IN OUTPUT MESSAGE
BR IF GOT UNIT CHECK
"
ERROR W/O UC
PRINT PROG NO. PRIOR TO MESSAGE
TREAT AS ERROR
00 NOT CHAIN
17MAR66
125643
"
:10
:10
*
DATE
EC
•
-_ ..... __ .. _.*--**-*--*-_.--_ .. -.. -.-... -.. -.-*----._ .. _--_.**._._*.-..
START 1/0 INTERRUPT ROUTINE
.............. *--****--*--_ ........ __ ............. -_ ........ -..........
SIOINT TM
BC
MVC
TM
BC
XC
S10100 TID
BC
BC
BC
SIOIOl DC
BC
SIOI02 MVC
OC
TM
8C
BAL
TM
BC
SIOI03 TM
BC
TM
BC
TM
BC.
SIDI04 lM
BCR
SI0105 MVC
SVC
DC
DC
DC
SVC
DC
DC
DC
MVI
TM
BC
SVC
DC
PIN 840258
PAGE
loA
2B21 SCAN/25~0 READER/PUNCH
CHANN,EL REG Fl T -ROUTINE OVERLAY 01-
$$
RETURN IF DID NOT GET ANY OTHER
UNIT STATUS
CONVERT CSW TO EBCDIC
NO. OF CSW BYTES
SENSE CSW ADDRESS
E8CDIC ADDR IN OUTPUT MESSAGE
GOT CCO FOR SENSE I/O BUT GOT
UNEXPECTED STATUS
•
DC
X'40'
PRINT PRDG NO. PRIOR TO MESSAGE
TREAT AS ERROR
"
:10
00 NOT CHAIN
:10
'00 NOT RESTORE
:10
PRINT ON NORMAL OUTPUT DEVICE
DC
X'36'
NO. OF BYTES IN OUTPUT MESSAGE (54)
AL2ISIOMS3-BASE®) MESSAGE ADDRESS
DC
BC
,ALWAYS,SIOF08
GO TRY SENSE I/O AGAIN
CAW(4),SIOVR2
SIDF07 MVC
RESTORE ORIGINAL CAW
BCR
ALWAYS,GR3
RETURN
S10.F08 TIO
OIGRC)
TEST I/O
BC' . NZERO,SIOF08
REPEAT TIO IF NOT CC 0
BC
ALWAYS,SIOF01
REPEAT SENSE I/O
:10
001570
001514
001578
00157E
001582 .
001586
00158C
001590
001594
001598
00159C
0015A2
0015A6
0015AC
0015B2
0015B6
0015BA
0015BE
0015C2
0015C6
0015CA
0015CE
001502
001506
0015DA
0015DE
0015E2
0015E4
0015EA
0015EC
0015EE
0015FO
0015F2
0015F4
0015F6
0015F8
0015FA
0015FE
001602
001606
001608
IBM M'AIN:rENANCE DIAGNOSTIC PROGRAM
PIN 840258
PAGE
4
00162F
001630
001632
3D
Fl84
OA DO
001634
80
•
•
•
DC
DC
SVC
DC
:10
•
:10
:10
23'
F73B
47 FO F 482
001635
001636
001638
DC
DC
BC
90 9C F OFO
OA DO
00 NOT RESTORE
PRINT ON NORMAL OUTPUT DEVICE
X'36'
NO OF CHAR IN MSG (54)
AlZISIOMS2-BASE®) MESSAGE ADDRESS
SIOMS2&54171,SIOCN2&11 SET UP OUTPUT MESSAGE
X'DD'
CONVERT SENSE BYTE TO EBCDIC
AL2(1)
NO. OF SENSE BYTES
AL2ISENSE-SECSTI
SENSE DATA ADDR
ALZISIOMS2&59-SECST) EBCDIC ADDR IN OUTPUT MESSAGE
SENSE,X'40'
BR IF GOT INTERV REQ
ALLON,SIOI07
"
ERROR WITH UC & NO INTERV REQ
X'DO'
X'40'
PRINT PROG NO PRIOR TO MESSAGE
TREAT AS ERROR
00 NOT CHAIN
00 NOT RESTORE
PRINT ON NORMAL OUTPUT DEVICE
X'3D'
NO. OF CHAR IN MSG (61)
AL2(SIOMS2-BASE®J MESSAGE ADDRESS
ALWAYS,SIOAOO
GO TRY SID AGAIN
X'DO'
GOT CCO ON SIO - UC & INTERV REO
X'60'
PRINT PROG NO PRIOR TO MESSAGE
TREAT AS ERROR
CHAIN
00 NOT RESTORE
PRINT ON NORMAL OUTPUT DEVICE
X'3D'
NO. OF CHAR IN MSG (61)
AL2ISIOMS2-BASE®) MESSAGE ADDRESS
X'DO'
MAKE THIS UNIT ROY WITH BLANK CARDS
I/O ADDR IN GR 12
X'80'
PRINT MESSAGE ONLY
00 NOT TREAT AS ERROR
00 NOT CHAIN
00 NOT RESTORE
PRINT ON NORMAL OUTPUT DEVICE
NO. OF CHAR IN MSG (35)
X'23'
AL2ISIOMS4-BASE®) MESSAGE ADDRESS
ALWAYS,SIOE02
GO TIME OUT & TRY SID AGAIN
-
ORG
SCPROO STM
SCPRI0SVC
*&2
GR9,GRC,SCPRK1
X'OO'
•*
:10
:10
•
"
:10
:10
001645
001646
2A
F770
DATE
EC
ID
F804-1
PAGE
4
•
"
•"
80
15JUL65
1240265
..•
17MAR66
125643
-
•
UTILITY ROUTINE
............
_... _...-... ......................... ...................•
•"
"
"
*
•"
001644
I
_..........••*_._* .• _..•-_ ••••.••............... _................••....
D0163E
00163E
001642
I
DC
X'80'
DC
DC
X'2A'
AL2(SCPRK2-BASE®)
SAVE GR9 THRU GR12
PRESS CONSOLE STOP, ENTER SCOPE LOOP
1. ENTER OP IN GR 10 - BYTE 2
2. ENTER CCW FLAGS IN GR 10 BYTE 3BIT 0 - NOT USED
8IT 1 - NOT USED
BIT 2 - SIll
BIT 3 - SKIP
BIT 5 - NOT USEO
3. ENTER DATA FIELD CONTENTS IN
GR 11 - BYTES 0 THRU 3
4. ENTER CCW COUNT IN GR 12 BYTES 0 AND 1
5. ENTER UIO ADDR IN GR 12 BYTE 2, BITS 5-6-7, AND BYTE 3
6. SET SEC SS 00 TO 1 TO LOOP
OR SET TO ZERO FOR 1 PASS
7. PRESS CONSOLE START
8. TO EXIT THIS RTN PRESS CONSOLE
STOP,S SET SEC SS 00 & XX TO 0
00 NOT TREAT AS ERROR
00 NOT RESTORE
PRINT ON NORMAL OUTPUT DEVICE
NO. OF CHAR IN MSG (42)
MESSAGE ADDRESS
ID
F80lo-l
PAGE
itA
~I
(] 0 0 0 0_0_0 00
°
.
0 0 0 0 0 0 0 0
.
b
00 0 0 0 0 00 0 0 0 0 0 0 0
e- e e
0 0 0 0 0 0 0
e
0 0 0 0 0 0 0-' -0 0 0 0 0- 0- 0 0 -0 0 0 0 0 0 0 0
L.
;
j"
I
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PIN
PAGE
5
* Fe041
2821 SCAN/2540 READER/PUNCH
F8041
CHANNEL REG FLT -ROUTINE OVERLAY 01-
• F8041
2821 SCAN/2540 READER/PUNCH
F8041
CHANNEL REG FLT -ROUTINE OVERLAY 01001648
00164C
001650
001654
00165&
00165C
001660
001666
001668
00166C
001670
001674
001678
00167E
00168Z
001688
00168C
00169Z
001698
00169C
0016AZ
0016A6
0016AC
58
55
47
91
47
98
02
07
91
47
47
50
02
92
04
50
02
05
47
02
50
02
02
CO
CO
80
40
10
9C
03
FB
40
10
FO
AO
00
30
00
CO
01
01
DO
01
BO
03
AF
F
F
F
F
F
F
F
730
730
668
004
674
OFO
048 F 12B
F
F
F
F
F
F
F
F
F
F
F
F
F
F
F
004
64C
65C
100
OE8
OEC
OEC
100
OEE
100
6A2
OEE
100
Z34
238
F 102
F 103
F 100
F 79A
F 79A
F 100
F 234
L
SC.PR20 CL
BC
TM
BC
SCPR30 LM
MVC
BCR
SCPR40 TM
BC
BC
SCPR50 ST
MVC
MVI
NC
ST
MVC
CLC
BC
MVC
SCPR51 ST
MVC
MVC
GRC,SCPRK3
GRC,SCPRK3
EQUAL,SCPR40
SNSW,X'40'
ALLON, SCPR50
GR9,GRC,SCPRKl
CAW(4),SIDVR2
ALWAYS,GR8
SNSW,X'40'
ALLDN,SCPRZO
ALWAYS,SCPR30
GRA;SCPRK4
SCPCCWlll,SCPRK4S2
SCPCCWS4, X' 30'-'SCPCCW&4Cll,SCPRK4S3
GRC,SCPRK4
SCPCCW&6C2I,SCPRK4
SCPRK4CZl,SCPRKA
NHIGH,SCPR51
SCPCCW&6IZI,SCPRKA
GRB,SCPRK4
SCPDATC41,SCPRK4
SCPDAT&4(176),SCPDAT
SCPR70 LA
ST
GR9,Sepccw'
GR9.CAW
0016BA
0016CO
0016C6
0016CA
0016CE
0016DZ
001606
0016DA
0016DE
0016E2
02
02
9C
90
47
91
47
91
47
47
MVC
SCPR80 Mve
CAWCl),CAWKEY
HCAWI4,GROl,CAW
OIGRC)
OIGRC)
NZERD,SCPR90
SNSW,X'80'
ALLON,SCPR80
SNSW,X'40'
ALLON,SCPRI0
ALWAYS,SCPR30
048 F 14C
04B F 048
000
000
6CA
004
6CO
004
642
65C
FFFFFFFF
00000014
RESTORE GR9 THRU GRC
RESTORE ORIG CAW
RETURN TO PROGRAM
BR I~ SEC SS 01 IS 1 - USE SCOPE RTN
001738
00173B
001744
00174B
001754
00175B
00175E
001767
00176E
001570
D4CID2C540E3caC9E2
40E4D5C9E340D9
C4E840E6C9E3C840CZ
D3CID5D240C3Cl
D9C4EZ
E2E3CIE3E4E240E7E7
E7E740E2D5E240
E7E7
..
..
......
....
RETURN TO PROGRAM
SET UP CCN
*
SID
sePR90 TID
BC
TM
BC
TM
BC
Be
SCPRK3 DC
SCPRK5 DC
001770
001779
001780
001789
001790
001799
00179A
00179C
001790·
0017A6
CHECK IF cew COUNT OVER 180
BRANCH IF NOT
FORCE CCN COUNT TO 180
SET UP DATA FIELD
,,
tt
tt
.
D7D9C5EZE240C3D6D5
E2D6D3C540E2E3
D6D7404E40C5D5E3C5
D940E2C3D6D7C5
40D3D6D6D740C4C1E3
Cl
00B4
00
D9D6E4E3C9D5C540C2 .
E8D7C1E2E2C5C4
"
DO NOT CHAIN
0017AE
0017AE
0017BO
LOAD CAW
START I/O
TEST I/O
REPEAT TID IF NOT CCO
LOOP IF SEC SS 00 IS 1 - SID LOOP
07 '00
000007FF
KOGRAM
,PIN
'PAGE
84025i8
11
• F8041
2821 SCAN/2540 READER/PUNCH
F8041
CHANNEL REG FLT -ROUTINE OVERLAY 01-
,,.."~
-.~-,-."
i
~"
,I
'j;i','
,~~~'
~~~r.
,-;;'.
.:Jf:
-oF
v_~.,
-~,
1
F ALWAYS
4
4
4
2
4
4
4
Z
4
4
4
4
4
4
It
It
4
4
4
4
4
4
It
It
It
1
3
4
It
6
It
4
6
It
It
2
It
4
4
4
4
4
'4
4
4
4
4
4
6
8
4
,2,
4
6
6
4
6
1826 ALZOOO
),632 ALlO05
IB3E ALlOI0
IB50 ALZa15
185A ALZ0'20
165E ALZ021
IB74 ALZ025
1884 ALZOZ8
188E ALl030
,16AO ALl032
IBAE ALl034
18CO ALZ036
1BCE ALZ040
18EO ALZ042
lBEE ALZ041t
lCOO ALZ046
1COE All 048
1C20 ALl050
lC2E ALl052
lCItO ALl051t
1C4E ALl056
1C60 ALl058
lC6E ALl060
lC80 ALl062
1C8E ALl064
114C CAWKEY
1700 CKROAR
19EA CRCKOO
191;A CRCK05
lAOC CRCK10
LA16 CRCK11
lAlE CRCK20
lA26 CRCK30
lA3A CRCK35
lA52 CRCK38
1A76 CRCK39
lA88 CRCK40
lA9E CRCK41
lAA2 CRCK42
lAAA CRCK43
lAAE CRcK44
lA62 CRCK50
lABA CRCK51
lACE CRCK55
lAE6 CRCK60
lAEE CRCK80
lAFE CRCK81
lBOA CRCK86
1BOE CRCK90
1008 CROCCW
112C CSWSAV
18BA DATAOO
18CO OATA05
1808 OATA08
18FC OATAlO
1932 OATA20
1942 OATA30
1970 OATA40
15JUL65
lZ4265
17MAR66
125643
4
DATE
EC
IBC4,
lC32,
1366,
1508,
15A2,
1718,
LA84,
IB2E,
16FC,
lCF4
IB22
162A
164C
lACA
1642
166C
1B62
1B70
1678,
1892
169C,
186Z
16BC,
1602
IBOC,
16F2
1BFC,
1C12
lC1C,
lC32
1C3C,
lC52
lC5C,
lC72
1C7C,
131C,
193C,
198ft
lA04
1B1E
lA3E,
IBD2,
lC44,
1392,
1512,
15E2,
1984,
lA9A,
1856,
lClC,
16F2,
lC64,
13EA,
1558,
1638,
19E4,
LACA,
IBBA,
lC5C,
lC04,
lC72,
1450,
1562,
1666,
19E8,
1AEA,
189C,
1C7C,
lC12,
lC84,
146E,
156C,
1670,
lA12,
1606,
188C.
lC8E,
lC24
lCA4
1490
1598
16E2
lA36
1822
180C
lC9C
4
4
7
7
7
7,
'7
7
7
7
7
7
7
7
7
7
7
7
7
7
'It
Z
1
1
1
9
2
2
2
3
5
29
6
6
,8
1
1
1680
18C4
18E4
1C04
1C24
lC44
1C64
lC84
14A2,
196A,
16611,
19AO,
PIN 840258
PAGE
11A
.. F8041
2821 SCAN/2540 READER/PUNCH
F8041
CHANNEL REG FLT -ROUTINE OVERLAY 01-
IBA4
1896
1966,
19C2,
1,008
1
1
1
8
8
2
1
8
IBO
4
2
4
4
4
lA78
lA12
lA84, 1A9A
lA5E, lA66,
lA6E
lA5A
lA92
lA62
1A6A
lA32
1AC6
lABE
1AOA
lAlA, lA22
lAF2
lAEA, ' IB06
lA36, lA02,
1988
15A6, 1800,
18B2
1980,
16E4,
lC52,
1308,
1528,
1628,
196E,
lAA6,
1870,
lC3C,
HaM l'MAI Nn!NANCt.Dr~OSI'I C' PROGRAM
-.~-.--
1AA6
It
LAEZ,
lAFA,
1802
18EC,
1926,
195A
4
4
6
4
4
16
4
4
4
2
1
1
6
19E4
,.10
PAGE
F804-1
11
DATE
EC
t J/
~'
DGCKI0
196A
DGCKRD
1938, 1966
ERR030
IB54
ERR031
1688
ERR032
169A
ERR033
16AC
ERR034
166A
ERR035
IBCC
ERR036
180A
ERR037
16EC
ERR038
18FA
ERR039
lCOC
ERR040
lC1A
ERR041
lC2C
ERR042
lC3A
ERR043
1C4C
ERR044
lC5A
ioco ERR045 1C6C
10C7 ERR046
lC7A
iDeE ERR047
lC8C
lCAO EX IT01
182E, 1856,
16E'6 EXITBY
170E EXPECT
lA26, 1AZC
100E FLAGS 1
100F FLAGS2
1703 HOTBIT
1870 INITOO
1922, 1956,
188A INITIO
1880
189A INIT20
1890
1070 IORAOR
1078 IORPSW' , 12FC
184F LGAREA
1C8C, lCBE,
1CBO LGOUTl
1CEE
lCCA LGOUT2
lCOE
1070 MCRPSW
C MIXNON
153E, 150A,
6 NEQUAL
1804, 18FO,
186C, lCOE,
9 NMIXEO
0 NOTBSY
It NOTlRO
1068 PIRPSW
lCF8 PWRCCW
1902
19E8 RETNCR'
196E, 19C6
179C SCHNUM
18AA, 1636,
10E8 ScPCCW
1678, 167E,
1234 SCPDAT
10E8, 16A6,
163E SCPROO
16F4, 1886
1642 SCPRIO
16DE
164C SCPR20
166C
165C SCPR30
1670, 16E2
1668 SCPR40
1650
1674 SCPR50
1658
16A2 SCPR51
1698
l,6B2 SCPR70
16CO SCPR80
1606
16CA SCPR90
1I6CE
10FO SCPRKI
163E, 165C
1770 SCPRK2
1646
1730 SCPRK3
1648, 164C
,,1100 SCPRK4
1674, 1678,
16A6
1734 SCPRK5
179A SCPRKA
1692, 169C
1847 SENSEI
1932
184B SENSE2
1960
noc SlOAOO
1376, 139Z,
1628
15JUL65
124265
19C2
1988
1057
105E
1065
106C
1073
107A
1081
1088
108F
1096
1090
10A4
lOA8
10B2
1089
17MAR66
125643
188A,
lC8E
1982
lCC2,
1CC6,
lCE6
1B78
1980,
ICEE
LA04,
1A8E,
181E,
lC98
1682,
16AC,
168C,
16AC,
169C,
1716,
16B2
1720,
1010
1682,
1688,
168C,
1692,
16A2
13C2,
nEA,
1416,
1450,
1490
184C
10
PAGE
F804-1
11A
~
.,.~.---."
...
-,~",-"
...- ..
.
,.
"". -.~.
'
......
_.
"-""'.. ""'''
~~
L
...
-~
IBM MAINTENANCE DIAGNOSTIC PROGRAM
* F8041
F8041
PIN 840258
PAGE
12
2821 SCAN/2540 REAOER/PUNCH
CHANNEL REG FLT -ROUTINE OVERLAY 014
4
4
4
3
16
4
6
4
4
4
4
6
6
2
6
6
4
2
6,
4
4
6
6
4
4
6
6
2
4
16
136A
1396
13DC
138E
1738
175E
13EE
141A
1448
1454
1472
1482
1494
14BO
150C
1516
152C
1532
154A
155C
1564
158C
159C
15A6
15C6
15DE
15E4
160C
162C
1570
114E
S lOBOO
SIOCOO
SIOC01
SIOCOA
SIOCN1
SIOCN2
S 10000
S 10001
SIOO02
SIOEOO
SIOEOl
SIOE02
SIOFOO
SIOF01
SIOF02
SIOF03
SIOF04
SIOF05
S JOF06
SIOF07
SIOF08
SIOIOO
SIOI01
SIOI02
SIDI03
SIOI04
SIDI05
SIDI06
SIDI07
S JOINT
SIOMSl
16
11B4 SIOMS2
16
11Cl S IOMS3
16
1
173B SIOMS4
1140 SlOSWS
4
4
4
1104 SIOVRI
1128 S IOVR2
112C SIOVR3
4
3
1134 SIOVR4
1180 SIOVR5
1
4
4
1183 SIOVR6
1138 SIOVR7
113C S IOVR8
4
8
1
1
2
5
16
1
2
2
1
1144
1728
1845
1846
llF8
1060
IDIC
1700
lOE2
10E6
1000
SIDVR9
SNSCCW
STATlA
STATl8
STATSV
SVRPSW
T ITLEl
TSTCHR
UNIAOR
UN2AOR
XF8041
1340
136E
1300
134A,
12FC
14EE,
139A
BFA,
146E
143E
1464
1638
1454,
156C
HOA,
1402,
1520
1528
1536,
1546
14C2,
1594,
1590
1598
15B6
133B,
15C2,
1602
161E
1070,
1354,
1390,
14lA,
147A,
1618,
1494,
1500,
1480,
.12EE,
18E4,
19AE,
1302,
1306,
130C,
17B4
1330,
12E8,
15E4
13F6,
14C6,
14F4,
1542,
149A
1906,
192C
1586,
15JUL65
124265
17MAR66
125643
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PIN 840258
PAGE
12A
I
t
F
1366,
13A2,
13F2,
144C,
1574
001000
160C
1406,
8041
TITLE F8041
XF8041 START 4096
USING *,15
CONTROL PROGRAM -ROUTINE OVERLAY 02-
ee.e.e •••• e •••• _ •••••••• ___ ._ •• __ •• _ ••••••••• _ ••••••••••••••••• __ ••••••
•
FIRST OVERLAY - ROUTINE 02
*
•• _ ........... _*****.** •••••••••••••••••••• e_ •••••••••• • ~ •••• * •••• *•••• *
140E
*
•
RESIDENT LABELS ADDRESSED BY OVERLAYS
.* •• e •• _ ••••••• _* ••••••••••••••••••••••••••••••••••••••••••••••••••••••
001000
001004
001040
001048
0010EO
0010E2
0010E4
0010E6
00112C
001134
001140
0011F8
0011FA
001231
00112C
00114C
0011F7
001220
001234
00163E
0012E8
001202
000048
000040
0016EC
0016E6
00179C
15BA
14E6
1524
153E
1508,
15A2
1582
15CA,
1738
1356,
13AC,
1426,
15E4,
1626,
14AE,
1506,
1636
1334,
1916,
1900
15DE
155C,
130C,
1512.
1558,
1502,
15DA
135C,
13AE,
1434,
15FO,
1630
14CA,
1510,
1364,
13B4,
1436,
15F8,
13CC,
191E,
1568
1380,
13BC
1382,
13BB
144Er;~
15FA,
145E,
160A.
146C
160C
1406,
1550,
14DE,
1556
14EA,
14EE
148C,
194A,
157E,
1952,
170C,
1990,
IBC8
19A6
001015
001015
1660
1428,
1432,
133C,
12F6,
136A,
1356,
1396
1382,
13FE,
14CE,
14FE,
154E
1472
14E2
1516,
1906,
1926
1586,
159C,
1516,
15AC,
143A,
13AE,
152C,
1448,
141A,
1532,
1708,
18A6,
189E,
18BC,
18EO,
18F4,
SECST
SNSW
CSW
CAW
UNIT1
UNIAQR
",UNIT2
UN2ADR
SIDVR3
SIOVR4
srDSWS
STATSV
CSWAG
, UAPU
CSWSAV
CAWKEY
SENSE
U,ARD
SCPDAT
SCPROO
SID
MESS1
HCAW
HCSW
EXIT
EXITBY
SCHNUM
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU"
EQU
EQU
EQU
EQU
EQU
EQU
Ec.lU
EQU
EQU
*
SECST&4
SECST&64
SECST&72
SECST&224
SECST&226
SECST&228
SECST&230
SECST&300
SECST&308
SECST&333
SECST&504
SECST&506
SECST&561
SECST&300
,SECST&3!12
SECST&503
SECST&557
SECST&564
SEC'ST&1598
SECST&744
SECST&514
ORG
DC
ORG
SECST&21
AL31RTN021
SECST&2000
- - - ----
72
~'
it
64
SECST&1772
SECST&l766
SECST&l948
..............._...._.-...................................................
001934
001700
INITIAL PSW STARTING ADDR FOR RTN 02
*•• * •• * ••••• ***.*.*** ••••• *.* ••••••••••• * ••••• * ••••••••••••••••••••••••
FIELDS
*_ ••• e •••••••••VARIABLE
* ••••••••••••• e_ ••••••••••••••••••••••••••••••••••••••••••
VARIABLES
FOR
ANALYZE
ROUTINE - NO BOUNDARY
•
*
1578
1494
153A
192C
199C
1994
NO ERROR DETECTED IN ABOVE ASSEMBLY
DATE
EC
".
* F8041
2821 SCAN/2540 READER/PUNCH
F8041
CONTROL PROGRAM -ROUTINE OVERLAY 02-
1888
1304,
130C,
,
10
F804-1
PAGE
12
001700
001709
00l7E2
OOl7EB
0017F4
OO17FD
001804
000000000000000000
000000000000000000
crOOOOOOOOOOOOOOOOO
000000000000000000
000000000000000000
00000000000000
00
001805
00180E
001817
001819
001822
00182B
001820
001836
00183F
001841
00184A
001853
001B55
00185E
000000000000000000
000000000000000000
0000
500000000000000000
200000000000000000
0000
600000000000000000
100000000000000000
0000
FOOOOOOOOOOOOOOOOO
080000000000000000
0000
F10000000000000000
040000000000000000
DATE
EC
15JUL65
124265
17MAR66
125643
f
•..ALZVOI
*_•••••••••.
__ .*-_ •••••••••••••••.•••.•••••••••••••••••••••••••••••••
DC
XL52'00'
-"-
CKRDAR DC
XLl'O'
DATAWK DC
XL20'0'
DATA12 DC
DC
X'500000000000000000'
X'2000000000000000000000'
DATA REG 12 BIT DATA GROUP
DATA 11 DC
DC
X'600000000000000000'
X'1000000000000000000000'.
DATA REG 11 BIT DATA GROUP
DATAO
DC
DC
X'FOOOOOOOOOOOOOOOOO'
X'0800000000000000000000'
DATA REG 0 BIT DATA GROUP,
DATAL
DC
DC'
X'FIOOOOOOOOOOOOOOOO'
X'0400000000000000000000 ,
DATA REG 1 8IT DATA GROUP
•
--'~-"".
,---..-.
--
.-.,
CHECK READ DATA BYTE
..
..
'
"
"
F804-1
10
PAGE
12A
0000000000000000000000000000000000
-
0- 0 0 0 0 0 0
e
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0008
PIN 84025a
PAGE
13
*
* F8041
2821 SCAN/2540 READER/PUNCH
F8041
CONTROL PROGRAM -ROUTINE OVERLAY 02001861
001869
001812
001818
001810
001886
00188F
001891
00189A
0018A3
0018A5
0018AE
0018B1
001889
0018C2
0018C8
0018CO
001806
0018DF
D018El
0018EA
0018F3
0018F5
0018FE
001901
001909
001912
001918
001910
001926
00192F
001931
001932
001932
001934
001935
001936
0000
F20000000000000000
020000000000000000
0000
F30000000000000000
010000000000000000
0000
F40000000000000000
002000000000000000
0000
F50000000000000000
001000000000000000
0000
F60000000000000000
000800000000000000
0000
F70000000000000000
000400000000000000
0000
F80000000000000000
000200000000000000
0000
F90000000000000000
000100000000000000
0000
400000000000000000
000000000000000000
0000
310000000000000000
040100000000000000
0000
00
DATA2
F8041
2821 SCAN/2540 READER/PUNCH
F8041 . CONTROL PROGRAM -ROUTINE OVERLAY 02-
DC
DC
X'F20000000000000000'
X'0200000000000000000000'
OATA REG 2 8IT DATA GROUP
DATA3
DC
DC
X'F30000000000000000'
X'0100000000000000000000'
DATA REG 3 BIT DATA GROUP
DATA4
DC
DC
X'F4000000000COOOOOO'
X'0020000000000000000000'
DATA REG 4 BIT DATA GROUP
DATA5
,.
,.'
001938
00193C
001940
001942
001946
00194A
00194E
001952
001956
00195A
00195E
001962
001964
001965
001966
95 00
47 80
OA 06
91 40
47 80
92 00
95 00
47 60
96 40
91 02
47 80
OA DO
80
IF
FD84
001968
00196(:
001970
91 40 F 004
41 80 F·974
45 80 F 63E
F 19C
F 942
F 931
F 94E
F
F
F
F
F
F
19C
19C
6EC
931
004
968
X'F50000000000000000'
X '0010000000000000000000'
DATA REG 5 BIT DATA GROUP
DAU6
DC
DC
X'F60000000000000000'
X '0008000000000000000000'
DATA REG 6 BIT DATA GROUP
DATA7
DC
DC
X'F70000000000000000'
X'0004000000000000000000'
DATA REG 7 BIT DATA GROUP
"
"
"
DATA8
DC
DC
X'F80000000000000000'
X'0002000000000000000000'
DATA REG 8 BIT DATA GROUP
DATA9
DC
DC
X'F90000000000000000'
X'0001000000000000000000'
DATA REG 9 BIT DATA GROUP
DC
DC
X'400000000000000000'
X '0000000000000000000000'
DATA REG BLANK DATA GROUP
DATAEX DC
DC
X'310000000000000000'
X'0401000000000000000000'
DATA REG EXTRA GRP-9 & 1 BITS
PROGSW DC
X'OO'
"
"
..
,.
02 13 F 805 9 000
0019BO
001984
00198A
001990
001994
00199B
00199C
41
07
07
50
92
48
45
00
07
06
00
00
CO
BO
F 058
F 806 F 806
F 810 F BI0
F 048
F 140
F OE6
F 2EB
0019AO
0019A4
0019A8
0019AE
91
47'
02
02
01
10
00
00
F
F
F
F
0019B4
0019BA
0019BE
02 00 F 808 F IF7
45 AO F A6E
02 00 F 809 F 804
140
942
806 F 130
807 F IF8
****************.*.************* •• ************* •• ***** ••••••••••• _•••••
D6B
048
140
2E8
CNOP
8CR
RTN02 DC
DC
DC
001904
001908
0019DC
0019E2
0019E8
0019EC
91
41
02
02
45
02
01
10
00
00
AO
00
F
F
F
F
F
F
140
942
808 F 130
80C F IF7
A6E
800 F 804
ROUTI NE NUM8ER
FLAGS
ADDRESS OF NEXT ROUTINE
... __ .....................__ ....•.•.... *-_ ... _-_._ .• -_ .. __ ._ ..•. _••...•CLI
BC
SVC
INITOO TM
BC
MVI
INIT05 CLI
BC
01
TM
8C
SVC
DC
DC
D.C
.IN IT10
T,'1
BC
BAL
SCHNUM,X'OO'
EQUAL,INITOO
X'D6'
PROGSW,X'40'
ALLOFF,!NIT05
SCHNUM,X'OO'
SChNUM,X'OO'
NEQUAL,EXIT
PROGSW,X'40'
SNSW,X'02'
ALLOFF,INITlO
X'DO'
X'80'
X'1F'
AL2(TITLE1-BASE®I
SEE IF SHLD RUN CTL PGM
8RCH IF YES
ROUTI NE EXIT
IS RUN RTN SWITCH ON
BR IF NO
RESET SEARCH NO.
IS SEARCH NO. RESET
8YPASS ROUTINE
TURN ON RUN RTN SWITCH
IS TITLE PRINTOUT DESIRED
BRANCH TO SKIP TITLE PRINT
PRI NT TI TLE
NORMAL OUTPUT
" 31 CHARACTERS
" ADDRESS OF TITLE
SNSW,X'40'
ALlOFf,DATAOO
GRS, SCPROO
oR
*
"
*---------*--_.-
THIS ROUTINE ACCUMULATES ALL THE DATA NECESSARY FOR THE ANALYZE
ROUTINE.
-*--**** •••••
_*---*-_._._**----*---... _*----_._-****--.... ** •• _••• *._*.
17MAR66
125643
------------------ ....---.-----...
DATAtO MVC
DATAWK(20),0(GR91
SET A DATA GROUP IN WORK AREA
*
LA
XC
XC
ST
MVI
LH
BAL
GRO,PWRCCW
LOAD ADDR OF PUNCH WRITE CCW
DATAWK&118I,DATAWK&1
CLEAR WORK AREA EXCEPT WRITE DATA
DATAWK&11(7),DATAWK&11
"
GRO,CAW
STORE PUNCH CCW ADDR IN CAW
SIOSWS,X'OO'
RESET SIO SWITCHES -USE PUNCHGRC,UN2ADR
SET PUNCH 1/0 ADDR IN GR12
GRB,SIO
GO TO START I/O ROUTINE
TM
BC
MVC
MVC
ALLON,INITOO
PWSTA1(11,CSWSAV&4
PWSTA2111,STATSV
IS INTERVENTION REQ SWITCH SET
RESTART PROGRAM IF ON
SAVE CHAN-END STATUS FOR PUNCH WRITE
SAVE DEV-END STATUS FOR PUNCH WRITE
DATA20 MVC
8AL
MVC
PWSNSI 11, SENSE
GRA,DGCKRD
PWCKRDlll,CKRDAR
SAVE SENSE DATA FOR PUNCH WRITE
GO DO. DIAG CK READ TO PUNCH
SAVE CK RD DATA FROM PUNCH WRITE
..•
READ PUNCH DATA IS COLLECTED HERE
.
.
SIOS~S,X'Ol'
-_.............. -.... __ ................................................
..
.
TM
BC
MVC
MVC
BAL
MVC
GRO,PRDCCW
GRO,CAW
SIOSWS,X'OO'
GRB,SIO
LOAD ADDRESS OF PUNCH READ CCW
SET CCW ADDR IN CAW
RESET SIO SWS -USE PUNCHGO TO START 110 ROUTINE
SIOSWS,X'OI'
ALLON,INITOO
PRSTAI11,CSWSAV&4
PRSNSI ll, SENSE
GRA,DGCKRD
PRCKRO(ll,CKRDAR
IS INTERVENTION REQ SWITCH ON
RESTART PROGRAM IF ON
SAVE STATUS FROM PUNCH BUFFER READ
SAVE SENSE DATA AFTER PUNCH READ
GO DO DIAG CK RD TO PUNCH
SAVE CK RO DATA AFTER PUNCH-READ
** •••• *.** •••••••••••••••••
...
..... -_.-.-.-._._--*****-_._ .. __ ._*_ .... _... *........ * •••••••••••••••••
..
*****~*.****.***.**.***********.*******.** ••
GATHER READ BUFFER DATA
WRITE READER DATA IS COLLECTED HERE
SEE IF SEC SS 04 IS 1 - USE SCP RTN
IF NO
GO TO UTILITY ROUTINE
DATA ACCUMULATION ROUTINE
•
...
.--._._.-.... --_ .. _----_._._------_.-._--**----*_._ ...... _........ _._ ...
DATA30 LA
ST
MVI
BAL
F
F
F
F
FULL WORD ALIGNMENT
SET REG 9 TO TABLE START -INDEX REGRESET REG 12
WRITE PUNCH DATA IS COLLECTED HERE
00
00
00
BO
0,4
0,0
XLl'02'
XL1'O'
X'FFFE'
GR9,DATA12
GRC,GRC
GATHER PUNCH BUFFER DATA
41
50
92
45
****.*.****************************** •••• * ••• ****.*.* ••
15JUL65
124265
SR
0019C4
0019C8
0019CC
001900
it
DATE
EC
.DATAOO LA
41 90 F 819
18 CC
,.
..
ROUTINE 02 PREFIX
......
_......
_-_ .... _-------_. __ ..... _.. _....... __ .... ---*----.-.-.. _..*
01 00
02
00
FFFE
001974
001978
00197A
DC
DC
DAUB
PIN 840258
PAGE
13A
IBM MAINTENANCE DIAGNOSTIC PROGRAM
10
F804-1
PAGE
13
0019F2
0019F6
0019FA
0019FE
41
50
92
45
00
00
00
BO
001A02
001A06
001AOA
001AI0
001A16
001A1A
001AIE
91
47
02
02
96
45
02
01
10
00
00
02
AO
00
001A24
001A28
001A2C
001A30
00lA34
DATE
EC
41
50
92
48
45
00
00
02
CO
BO
15JUL65
124265
DATA40 LA
ST
MVI
8AL
F 060
F 048
F 140
F 2E8
F
F
F
F
F
F
F
140
942
810 F 130
811 F IF1
140
A6E
B12 F B04
F 070
F 048
F 140
F OE2
F 2E8
•
SIDSWS,X'Ol'
ALLON,INlTOO
RWSTA(11,CSWSAV&4
RWSNS(ll,SENSE
SIOSWS,X'02'
GRA,DGCKRD
RWCKRD(ll,CKRDAR
LOAD ADDR OF READ WRITE CCW
SET CCW ADDR IN CAW
RESET SID SWS -USE PUNCH ADDRESSGO TO START I/O ROUTINE
IS INTERVENTION REQ SWITCH ON
RESTART PROGRAM IF ON
SAVE STATUS FROM READ BUFFER WRITE
SAVE SENSE DATA AFTER RO BUFF WRITE
. SET SID SWITCH FOR READER
GO DO DIAG CK READ FOR RD 8UFF WRITE
SAVE CK RD DATA AFTER RD 8UFF WRITE
.••.•••..••.•.....•••••••-.*_ •.•.•........ _.*-.**_ .....................
*
READ READER DATA IS COLLECTED HERE
DATA50 LA
ST
MVI
LH
BAL
GRO,RRDCCW
GRO,CAW
SIOSWS,X'02'
GRC,UNIADR
GRB,SIO
..
11MAR66
125643
TM
BC
MVC
MVC
01
SAL
MVC
GRO,RWRCCW
GRO,CAW
SIOSWS,X'OO'
GR8,SIO
LOAD ADDR OF READ BUFF READ CCW
SET CCW ADDR IN CAW
RESET SID SWITCHES -USE READERLOAD READER ADDR IN REG 12
GO TO START I/O ROUTINE
10
F804-1
PAGE
13A
-~.---.-.--
-
-----------------------------------------------------------------------------------------------------------------
IBM
MAINIE~ANCE
* FS041
F8041
D!AGNOSTiC
PROGR~~
IBM MAINTENhNCE DIAGNOSTIC PROGRAM
?IN 640258
PAGE
14
• FB041
2821 SCAN/2540 READER/PUNCH
F8041
CONTROL PROGRAM -ROUTINE OVERLAY 02-
2821 SCAN/2540 READER/PUNCH
CONTROL PROGRAM -ROUTINE OVERLAY 02-
OOlA38
OOlA3C
OOlA40
OOlA46
OOlA4C
OOlA50
91 01 F 14D
TM
SrQS~'ls,X'Ol
47 10
02 00
02 00
45 AO
02 00
F 942
F S14 F 130
F S15 F IF7
F A6E
F S16 F S04
BC
ALI...C;~"I
001A56
OOlASC
001A60
001A64
001A66
001A6A
02
41
41
15
47
47
9 000 F 805
13
99
00
90
60
FO
"OATA60
0 014
F 931
F 97A
F ACA
...•
.
001A6E
OOlA7Z
001A16
001A7A
001A7E
001A82
OOlA86
OOlA8A
001A8E
41
50
48
91
47
48
92
94
45
00
00
CO
02
80
CO
CO
FO
BO
F
F
F
F
F
F
F
F
F
078
048
OE6
140
AB6
OE2
804
140
2ES
DOLAn
001A96
001A9A
001A9E
001AA2
001AA6
OOlAAA
001ABO
001AB4
001AB8
001ABE
001ACO
OOlACl
001AC2
001AC4
001AC8
91 01
47 10
91 CO
47 10
47 FO
47 SO
02 02
91 02
47 80
02 02
OA 00
40
2A
F202
47 FO
07 FA
F
F
F
F
F
F
F
F
F
F
140
942
S04
AAA
AC8
AC8
212 F 231
140
ABE
212 F 220
F 97A
RRC~RD(ll,CKRDAR
IS INTERVENTION REQ SWITCH ON
RESTART PROGRAM IF ON
SAVE STATUS FROM READ BUFFER READ
SAVE SENSE DATA AFTER READ BUFF READ
GO DO DIAG CK READ TO READER
SAVE CK RD DATA AFTER READ BUFF READ
0(20,GR9),DATAWK
GR9,20IGR9,Ol
GRO,DATAEX&20
GR9,GRO
NEQUAl,DATAIO
ALWAYS,ALlAOO
RESTORE DATA FROM WORK AREA TO GROUP
UPDATE REG 9 BY 20
SET GRO TO MAX COUNT
ALL OATA ACCUMULATED
GO GET NEXT DATA GROUP
GO TO CONTROL PROGRAM
'
INI TOO
NVC
R~STA{ll,CSWSAV&4
tWC
RRSNS(ll,SENSE
GRA,DGCKRD
BAL
Mve
MVC
LA
LA
ClR
Be
8C
OOlBOC
001BI0
DGCKRD lA
ST
lH
TM
BC
lH
MVI
NI
BAl
GRO,CRDCCW
GRO,CAW
GRC,UN2ADR
SIOSWS,X'02'
ALlOFF,*&8
GRC,UNIADR
CKRDAR,X'CO'
SIOSWS,X'FD'
GRB,SIO
LOAO ADDR OF DIAG CK RD cew
STORE ADDR OF CCW IN CAW
SET PUNCH I/O ADDR IN GR 12
IS READER CK RD WANTED
BRANCH IF NOT READER
SET UP ADDRESS OF READER
CLEAR DIAG CHECK READ AREA
RESET SIO SWITCHES EXCEPT READ-PUNCH
GO TO START I/O ROUTINE
TM
BC
TM
BC
BC
BC
DGCKIO Mve
TM
BC
MVC
SVC
DC
DC
DC
BC
RETNCR BCR
SIOSWS,X'Ol'
ALLON,INITOO
CKRDAR,X'CO'
ALlON,DGCKIO
ALWAYS,RETNCR
ALLOFF,RETNCR
MESSl&16131,UAPU
SIOSWS,X'02'
ALlDFF,*&lO
MESSl&16(3I,UARD
X'DO'
X'40'
X' 2A'
AL2IMESSI-BASE®l
ALWAYS,DATAI0
ALWAYS,GRA
IS INTERV REQ SW ON
RESTART PROG IF ON
WAS CHECK READ DATA TRANSFERRED
BR IF NOT OK
BR IF OK
BRANCH IF OK
SET PUNCH ADDRESS IN MESSAGE
IS READER BEING USED
BRANCH IF NOT READER
SET READER ADDRESS IN MESSAGE
PRINT DIAG CR RD MESSAGE
" ERROR MESSAGE
" 42 CHARACTERS
,. ADDRESS OF MESSAGE
GO RESTART DATA GROUP
RETURN TO OTHER ROUTINE
001B14
001818
OOlBIC
001B22
001B2b
DATE
EC
41 10 F 819
41 20 F 910
02 13 F 805 1 000
91 01 F B09
47 10 F B06
91 01 F 800
47 10 F B06
91 01 F 812
47 10 F B06
91 01 F 800
47 10 F B06
15 12
47 80 F B14
5E 10 F 080
47 FO F AD2
OA DO
44
07
FDA3
15JUl65
124265
----..-- _ __
..
.,r)
,
\ ....
0,
r,'
o
.... _--'-'--
001 B2A
001B30
001 B34
001B38
001B3C
001B40
001B44
001B48
001B4C
001B4E
001B4F
001B50
001852
001B56
001B58
001B59
001B5A
001B5C
001B60
001B64
001Bb8
001 B6A
001 BbB
00186C
00186E
001B72
001B74
001875
001Blb
00187B
001B7C
001B80
001B84
001B88
001B8C
001590
001B94
001896
001891
001B9B
001B9A
001B9E
OOlBAO
001BAl
001BA2
001BA4
001SA8
DOIBAC
001BBO
001BB2
001BB3
001BB4
001BB6
",
ALZBOO LA
LA
ALlBIO Mve
TM
BC
GRl,DATA12
GR2,DATAEX
DATAWK(20),0IGRl1
PWCKRD,X'02'
AlLON,ALZDOO
LOAD GR1 WITH ADDR OF TABLE START
LOAD GR2 WITH ADDR OF TABLE END
lOAD DATA IN WORK AREA
BR IF PUNCH XLATE ERROR
"
05 00
47 80
91 02
47 80
91 04
47 10
91 08
47 10
OA 00
44
01
FDBF
47 FO
OA DO
44
01
FDC6
41 FO
91 04
47 10
OA DO
44
01
FDCD
47 FO
DA DO
44
07
FDD4
47 FO
91 02
47 10
91 04
47 80
91 04
47 10
OA DO
44
07
FDDB
47 FO
OA DO
44
07
FDE2
47 FO
F
F
F
F
F
F
F
F
805 F 80A
B7e
800
BbO
BOO
B56
80C
B56
F eB6
F eDA
F 800
F B72
F CBb
F CDA
F 800
F 89E
F 800
F C06
F 809
F BBO
F eDA
F CDA,
92 85 F 79C
47 FO F CDE
OA DO
44
07
FE 52
41 FO F CDA
COME HERE IF GOT (NA. NX.1 - CHECK PRCKRD HERE
••• *********************** ••• **.*******.************* •• ******.* •••• ****
Alleoo elC
PCHWRlll,PCHRD
BR IF DATA READ FROM PCH BUF OK
BC
EQUAL,ALlC40
"
TM
PRCKRD,X'02'
BR IF DID NOT GET RD XLATE
Be
ALlOFF, ALlC20
"
TM
PRCKRD,X'04'
BR IF GOT PARITY
BC
AllON,AllCIO
"
TM
PRSNS,X'08'
BR IF GOT INVALID CARD CODE
BC
AlLON,ALlC10
"
SVC
X'DO'
ERR 005 - PROB AT CHAN REG DURING
DC
X'44'
RD XFER CYCLE - GOT INA.NX.NPI (D.NA.
DC
X'07'
Xl WITHOUT INVALID CARD CODE
DC
Al2IERR005-BASE®I
BC
ALWAYS,ALlHll
SELECT READ XLATE FLT
ALle10 SVC
X'DO'
ERR' OOb - PROB IN BUFF INHIBIT
DC
X '44'
lINES ANDIOR CTlS OR BUFFER
DC
X'07'
SENSE AMPS - GOT INA.NX.NP)(D.NA.X)
DC
Al2(ERROOb-BASE®)
BC
ALWAYS,lGOUTA
GO SEE IF WANT LOG OUT
ALlC20 TM
PRCKRD,X'04'
BR IF GOT PARITY
Be
ALLON,ALle30
sve
X'DO'
ERR 007 - CHAN REG PROB - GOT
DC
X'44'
(NA.NX.NPI(D.NA.NX.NP)
DC
X'07'
OC
Al2IERR007-BASE®I
BC
AlWAYS,ALlHll
SELECT READ XLATE FlT
AllC30 SVC
X'DO'
ERR ODS - PROB IN INHIBIT LINES AND/
DC
X'44'
OR CTlS OR SENSE AMPS - BOT (NA.NX.
NPI (D.NA.NX.PI
DC
X'07'
DC
AL2IERR008-BASE®)
BC
ALWAYS,LGOUTA
GO SEE IF WANT lOG OUT
AllC40 TM
PRCKRD,X'02'
BR I F GOT XLATE
BC
ALLON,ALlC50
" DID NOT GET PARITY
TM
PRCKRO,X'04'
BR IF
BC
ALLOFF,ALZEOO
TM
PWCKRD,X'04'
BR IF GOT PARITY ON PUNCH WRITE
BC
ALLON,AllC60
" 009 - PROB IN PARITY INHIBIT
SVC
X'DO'
ERR
LINE OR CTLS OR PARITY SENSE AMP OR
DC
X'44'
DC
X'07'
HAVE INTERMITTENT PARITY - GOT
DC
AL2IERR009-BASE®)
INA.NX.NPI (NO.NA.NX.Pl
BC
ALWAYS,LGOUTA
GO SEE IF WANT LOG OUT
ALlC50 SVC
X'OO'
ERR 010 - FALSE READ XlATE PROB IN
DC
X '44'
READ XLATE CHECK CKTS - GOT
INA.NX.NPI (ND.NA.XI
DC
X'07'
DC
AL2IERROI0-BASE®I
BC
ALWAYS,LGOUTA
GO SEE IF WANT lOG OUT
AllC51 MVI
SCHNUM,X'85'
SET UP TO SEARCH FOR PCH XlATE FlT
BC
ALWAYS,lGOUTO
GO SEE IF WANT lOG OUT
AlZC60 SVC
X'DO'
ERR 026 - FALSE PARITY CHECK - GOT
DC
X '44'
(NA.NX.PI (ND.NA.NX.PI
DC
X'07'
DC
Al2(ERR02b-BASE®I
BC
AlWAYS,LGDUTA
GO SEE IF WANT LOG OUT
"
"
***************************.**.*.*********************.**.** ••••••••• **
*
DATE
EC
10
F804-1
PAGE
14
15JUL65
124265
COME HERE IF GOT INA. X I - CHECK PRCKRD HERE
17MARb6
125643
10
F804-1
PAGE
14A
-------------------------------------------------------------------~j~------------------------------------------------------
'0,' '0 (0'' '.
:
41 10 F 819
41 20 F 910
02 13 F B05 1 000
91 02 F 809
41 10 F BBA
********************************************.**********.************ •••
ANALYZE FOR BAR, RAR, OR PAR ERRORS
·**************************************************R** *****************
ALlAOO LA
GRI,Df, fAl2
LOAD GR 1 \,ITH ADDR OF TABLE START
LA
GR2,DATAEX
LOAD GR 2 WITH ADDR OF TABLE END
ALZAI0 MVC
DATAWK(20),0IGRll
LOAD DATA IN WORK AREA
TM
PWCKRD,X'Ol'
BR IF GOT WR PCH BUF ADDR CK
Be
ALLON,ALZA20
"
TM
PRCKRD,X'Ol'
BR IF GOT RD PCH BUF ADDR CK
BC
ALLON,AlZA20
"
TM
RWCKRD,X'Ol'
BR IF GOT WR RDR BUF ADDR CK
8C
AlLON,ALZA20
TN
PRCKRD,X'Ol'
BR IF GOT RD RDR BUF ADDK CK
BC
ALLON,ALZA20
CLR
GRl,GR2
BR IF END OF TABLE
BC
EQUAl,AlZSOO
" 20 TO OR 1
AL
GRl,Alll(AI
ADD
BC
ALWAYS,ALZAIO
CONTINUE THIS RTN WITH NEXT DATA GRP
ALZA20 SVC
X'DO'
ERR 001 - BUFFER ADDRESSING PROB
DC
X'44'
PRINT PROG. NO PRIOR TO MSG
DC
X'07'
NO. OF CHAR IN OUTPUT MESSAGE
DC
Al2(ERROOI-BASEtREOI
MESSAGE ADDRESS
17MARb6
125b43
SET UP TO SEARCH FOR ROUTINE 03
GO SEE IF WANT LOG OUT
..
..
.
.
SCHNUM, X' 83'
ALWAYS,LGOUTO
COME HERE IF NO BUFFER ADDRESSING ERRORS EXIST - CK PWCKRD DATA*
***********************************************************************
OOlACA
OOlACE
001 AD2
001ADS
OOlAoe
OOlAEO
001AE4
001AE8
OOlAEC
001AFO
ODIAF4
ODIAFB
ODIAFA
OOlAFE
001B02
001806
OOlBOS
001809
001BOA
BC
***********************************************************************
"*******.****~************.***.************************ *****************
ANALYZE ROUTINE
MVI
92 83 F 79C
47 FO F CDE
***********************************************************************
ROUTINE TO DO DIAG CK READ
.
PIN 840258
PAGE
14A
\'
o
"
If.)
,0 0'.
\'
1'
," 0 "
0'.'
· 0
O O
'
I;
"
I'..
,~'i
,,(
o
,00000
o
0: .
J,
0- 0 0 0 0 -0 -0 -0 0 0 0 0 0- 0 0 0- 0- -0 -0 0 0 0 0 0 --0 0 0 0 0 0 0 0 0 0
, PI N
PAGE
.. FB041
2B21 SCAN/2540 READER/PUNCH
FB041
CONTROL PROGRAM ~ROUTINE OVERLAY 02-
.. F8041
2821 SCAN/2540 REAOER/PUNCH
F8041
CONTROL PROGRAM -ROUTINE OVERLAY 02-
805 F 80A
BEA
SOD
C2A
B05 F 813
BEO
*.**.***** ••• -~~~*.*********.*.** •• ***.***************************~****~
ALZOOO CLC
BC
PCH;,IA. Ill, PCHRO
BR IF DATA READ FROM PCH 8UF OK
OOlBBA
OOlBCO
001BC4
001BC8
OOlBCC
001B02
001B06
001B08
001B09
OOlBOA
OOlBOC
OOlBEO
00lBE2
00lBE3
001BE4
001BE6
OOlBEA
OOIBEE
001BF2
001BF4
001BF5
001BF6
001BF8
OOlBFC
OOlBFE
OOlBFF
OOlCOO
001C02
05 00
47 80
91 02
47 10
05 00
47 80
OA DO
44
07
FOE9
47 FO
OA 00
44
07
FE4B
47 FO
91 02
47 10
OA DO
44
07
FOFO
47 FO
OA DO
44
07
FOF7
47 FO
F
F
F
F
F
F
F COA
GO SEE IF WANT lOG OUT
._.. ••••• COME
**--_._HERE••• _.-••
_
••
__
.-._----_._
••• _-*--_._._.*--_._._--_._. __ ._...
IF GOT INA.NX.NPIINO.NA.NX.NPI - CH.ECK RWCKRO HERE
00lC06
OOlCOA
OOlCOE
00lC12
001C16
001C18
00IC19
OOlClA
OOICIC
00IC20
00lC22
001C23
001C24
001C26
91 02
47 10
91 04
47 80
OA DO
44
07
FOFE
47 FO
OA 00
44
07
FE05
47 FO
F
F
F
F
ALlEOO TM
BC
TM
BC
SVC
DC
DC
DC
BC
ALZEI0 SVC
DC
DC
DC
BC
F CB6
F BA8
F 800
F BFC
F COA
812
C20
812
C4E
F COA
F COA
-:-,"1
BC
CLC
BC
SVC
DC
DC
DC
BC
ALlOOl SVC
DC
DC
DC
BC
ALlOIO TM
BC
SVC
DC
DC
DC
BC
ALl020 SVC
DC
DC
DC
BC
EQUAL,ALlO~O
P;{CKRD,X'02'
ALLON,ALZFOO
PCHWRlll,RORO
EQU"L,ALlOOl
X'DO'
X'44'
X'07'
AL2IERROl1-BASE®I
ALWAYS,ALlHll
X'OO'
X'44'
X'07'
AL2IERR025-BASE®I
ALWAYS,ALlC5l
PRCKRO,X'02'
ALLON,ALl020
X'OO'
X'44'
X'07'
AL2IERR012-BASE®I
ALWAYS,LGOUTA
X'DO'
X'44'
X'07'
AL2IERR013-BASE®I
ALWAYS,LGOUTA
BR I"F GOT XLATE
SEE "IF DATA READ FROM ~EAO BUFF OK
BRANCH IF YES
ERR 011 - DATA REG PROB - GOT
INA.X.NPIIO.NA.NXI
SELECT READ XLATE FLT
ERR 025 - PUNCH XLATE PROB
"
"
SET" UP SEARCH NO. FOR PCH XLATE FLT
BR IF GOT XLATE
ERR "012 - GOT FALSE PCH XLATE - GOT
INA.X.NPIINO.NA.NXI
GO SEE IF WANT lOG OUT
ERR 013 - MULTIPLE ERRORS - APPEAR
TO HAVE FALSE PUNCH AND FALSE READ
XlATE - GOT INA.X.NPIIND.NA.XI
-
"
BR IF DID NOT GET PARITY
"
ERR 014 - FALSE PARITY SHLD NOT
CHECK PARITY DURING OIAG WRITE - GOT
INA.NX.NPI INO.NA.NX.NPI INA.NX.PI
GO SEE IF WANT LOG OUT
ERR 015 - FALSE PUNCH XLATE CHECKS SHLD NOT XLATE CHECK DURING COL BIN
WRITE - GOT INA.NX.NP)IND.NA.NX.NPI
INA.XI
GO SEe IF WANT LOG OUT
COME HERE IF GOT (NA.X.NPIIO.NA.X) - CHECK RWCKRD HERE
**************.*****~~*~.********.******************** *****************
91 02
41 80
OA 00
44
07
FEO_C
47 FO
91 04
47 80
OA 00
44
07
FEl3
47 FO
F 812
F C3C
F CDA
F 812
F C94
F COA
ALZFOO TM
BC
SVC
OC
DC
DC
BC
ALlFIO TM
BC
SVC
DC
DC
DC
8C
R~~~RD,X'02'
ALLOFF,ALZFIO
X'DO'
X'44'
X'07'
Al2IERR016-BASE®I
'lWAYS,LGOUTA
RWCKRD,X'04'
ALLOFF,ALlHOO
XiOO'
X'44'
X'07'
AL2IERR017-BASE®I
ALWAYS,LGOUTA
BR IF DID NOT GET XLATE
"
ERR 016 - FALSE XLATE - SHLO NOT GET
XLATE DURING DJAG ICDL BIN) WRITE GOT INA.X.NP)ID.NA.XIINA.XI - WE
HAVE MULTIPLE ERRORS
GO SEE IF WANT LOG OUT
BR IF DID NOT GET PARITY
"
ERR 017 - GOT FAlse PARITY - SHLO
NOT GET PARITY DURING BUFFER WRITE GOT INA.X.NPI !D.NA.X) INA.NX.PI
GO SEE IF WANT LOG OUT
*********************.***~*****************.********** *****************
*
001C4E
DATE
EC
05 00 F 805 F 813
15JUL65
124265
17MAR66
125643
COME HERE IF GOT (NA.NX.NPI IND.NA.NX.NP)INA.NX.NPI - CHECK
RRCKRO HERE
ALZGOO CLC
PCHWRIll,RDRO
47 80
OA DO
44
07
FElA
47 FO
91 02
47 80
OA DO
44
07
FE21
47 FO
91 04
47 10
15 12
47 80
5E 10
47 FO
OA DO
44
07
FE28
47 FO
F C62
F CB6
816
F C74
ALlGlO
F BA8
F 816
F C8A
ALlG20
F
F CDE
F 080
F BIC
F COA
ALlG30
*
BR IF DATA READ FROM READ BUfF OK
10
F804-1
PAGE
15
001C94
001C9A
001C9E
001CA2
001CA6
001CA8
001CA9
OOlCAA
OOlCAC
OOlCBO
00lCB2
001CB3
001CB4
00lCS6
OOICBA
OOlCBE
001CC2
001CC6
001Ct8
00lCC9
ODlCCA
OOlCCC
DOICDO
00iC02
001C03
001C04
001C06
05 00
47 80
91 02
47 10
OA DO
44
07
FE2F
47 FO
OA DO
44
07
FE36
92 84
47 FO
91 02
47 10
OA DO
44
07
FE30
47 FO
OA DO
44
07
FE44
47 FO
OOlCDA
OOlCOE
001CE2
00lCE6
OOICEA
OOlCEE
001CF4
001CF6
001CF8
92 FF
91 20
41 10
47 FO
41 10
02 13
OA DO
0012
0805
DATE
EC
15JUL65
124265
-------------
f 805 F 813
F CBE
F 816
F CBO
F CDA
F 79C
F CDE
F 816
F COO
F CDA
F BA8
F 79C
F 004
F CEA
F 040
F 805
F 805 1 000
17MAR66
125643
------------_.. _-----
BC
SVC
DC
DC
DC
BC
TM
BC
SVC
DC
DC
DC
BC
TM
BC
CLR
BC
AL
BC
SVC
DC
DC
DC
BC
EQUAl,AllGIO
X'DO'
X'44'
X'07'
AL2IERR018-BASE®I
ALWAYS,ALZHll
RRCKRO,X'02'
ALLOFF,ALlG20
X'OO'
X'44'
X'07'
AL21ERROI9-BASE®I
ALWAYS,ALZC51
RRCKRO,X'04'
ALLON, ALlG30
GRI,GR2
EQUAL,LGOUTO
GRl,ALZKAl
ALWAYS,ALlBIO
X'DO'
X'44'
X'01'
AL21ERR020-BASE®I
ALWAYS,LGOUTA
ERR "018 - READ BUFFER OR OIAG WRITE
RPOB - GOT INA.NX.NPIINO.NA.NX.NPI
INA.NX.NPIIO.NA)
SELECT READ XLATE FLT
BR I F DID NOT GET XLATE
ERR "019 - READ XLATE CHECK FALSE AND
INTERMITTENT - GOT INA.NX.NPIINO.NA.
NX.NPIINA.NX.NPIINO.NA.XI
SET UP SEARCH NO. FOR PCH XLATE FLT
BR IF GOT PARITY
" END
BR IF
" NEXT GROUP OF OATA
GET
ERR "020 - INTERMITTENT PARITY PROB
GOT INA.NX.NPIIND.NA.NX.NPIINA.NX.
NPIINO.NA.NX.PI
GO SEE IF WANT LOG OUT
......... _---------_ ..................
__ .....-_ ............•...........
ALlG40
COME HERE IF GOT INA.X.NPI(O.NA.XI(NA.NX.NPI - CHECK
RRCKRO HERE
•
•
......._--_...__ ..................-................... -................
..
------* ...-..RWCKRD,X'02'
_._---------•.•. -.----------*----------*-----_._._.
__ .....
BR IF GOT XLATE
ALLON,ALlEI0
RWCKRD,X'04'
ALLOFF,ALlGOO
X'DO'
X'44'
X'07'
AL2IERR014-BASE®I
ALWAYS,LGOUTA
X'OO'
X'44'
X'07'
AL2IERROI5-BASEtREGI
ALWAYS,lGOUTA
001C54
001C58
001C5A
00IC5B
00lC5C
001C5E
001C62
001C66
001C6A
001C6C
001C60
001C6E
001C70
001C74
001C78
001C7C
001C7E
001C82
001C86
001C8A
001C8C
001C8D
001C8E
001C90
*
*******.**~*******.******************~**********~***** **********-******
00'lC2A
001C2E
001C32
001C34
001C35
001C36
001C38
001C3C
001C40
001C44
001C46
001C47
00IC48
001C4A
PIN B.... ; "'8
PAGE
.. 5A
8402'58
15
BR IF DATA READ FROM READ BUFF OK
PCHWRIl)iRDRO
ALlHOO CLC
-EQUAL, ALZH20
BC
BR I"F GOT XLATE
TM
RRCKRO,X'02'
ALlON,ALZHIO
BC
ERR "021 - MULTIPLE ERRORS - GOT
SVC
X'DO'
INA.X.NPIID.NA.XIINA.NX.NPI(O.NA.NX
DC
X'44'
DC
X'07'
AL21ERR021-BASE®I
DC
GO SEE IF WANT LOG OUT
ALWAYS,LGOUTA
BC
ERR 022 - PROB IN DATA REG OR READ
ALlH10 SVC
X'OO'
XLATOR - GOT INA.X.NPIIO.NA.XI
DC
X'44'
INA.NX.NPIIO.NA.XI
DC
X'07'
AL2(ERR022-BASE®I
DC
SET UP TO SELECT READ XLATE FLT
SCHNUM,X'84'
ALlHll MVI
GO SEE IF WANT LOG OUT
ALWAYS,LGOUTO
BC
BR IF GOT XLATE
ALl H20 TM
RRCKRD, X' 02'
ALLON,ALZH30
BC
ERR "023
MULTIPLE ERRORS - GOT
SVC
X'DO'
ERR 023 - MULTIPLE ERRORS
GOT
DC
X'44'
NX)
DC
X'07'
AL21ERR023-BASE®I
DC
GO SEE IF WANT LOG OUT
ALWAYS,LGOUTA
BC
ERR 024 - PROBLEM IN PUNCH XLATOR
ALlH30 SVC
X'DO'
GOT INA.X.NPIIO.NA.XIINA.NX.NPI
DC
X'44'
IND. NA. Xl
DC
X'07'
AL2 I ERR024-BA SE ® I
DC
SET UP SEARCH NO. FOR PCH XLATE FLT
ALWAYS,AllC51
Be
_._ ••••• *_ •••••
** ••• __ ••••••••••••
DATA ACCUMULATION TABLE IS LOGGED OUT HERE
.
LGOUTA MVI
LGOUTO TM
BC
BC
LGDUT LA
lGOUTl MVC
SVC
DC
DC
_._**---_ ..... _.. _._ .... _._-----_ ....
SET UP TO BYPASS ALL REMAINING OVLYS
SCHNUM,X'FF'
SEE IF SEC SS 02 IS 1 - LOGOUT WANTED
SNSW,X'20'
BR -IF YES
ALLON, LGOUT
ALWAYS,lGOUTX
LOAD GR 1 WITH 4DOR OF LOG OUT
GRl,OATAWK
SET UP DATA FOR PRINTOUT
DATAWK(20),0IGRl1
CONVERT TO PRINT FORM
X'OD'
18 HEX BYTES
AL21l81
HEX DATA AO'DRESS
Al2IDATAWK-SECSTI
10
F804-1
PAGE
15A
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PIN B4025B
PAGE
16
• FB041
2B21 SCAN/2540 READER/PUNCH
F8041
CONTROL PROGRAM -ROUTINE OVERLAY 02OOlCFA
001CFC
001000
001004
00100S
OOlOOC
001012
001016
00101S
001DIC
0010Z0
001024
00102S
00102C
001D2E
001032
001034
001035
001036
001038
00103A
00103E
001oltO
001044
001olt8
001DltC
001050
001054
001058
001058
001060
001068
001070
001078
07EO
41 60
41 00
41 30
41 40
02 01
41 33
15 46
47 60
41 44
47 FO
92 40
41 44
1.5 30
47 60
OA 00
80
34
F7DO
15 12
1t7 60
OA DA
91 40
47 80
45 80
1t7 FO
5E 10
47 FO
F
F
F
F
4
0
7EB
S02
7EO
700
000 3 000
002
F
0
F
4
0
024
002
DOC
002
003
LGOUT2
LGOUT3
F DOC
F 050
F
F
F
F
F
F
004
O4C
63E
6EC
DBO
CEE
LGOUTX
LGOUTY
LGOUT4
*
*
*
*
*
*
01
2S
CZ
CZ
C6
001805
00180E
00180A
001B13
001804
ZOOO'
2000'
ZOOO
ZOOO
ZOOO'
0001
OOOZ
0001
0001
0001
PWRCCW
RWRCCW
PROCCW
RROCCW
CRDCCW
DC
LA
LA
LA
LA
MVC
LA
CLR
BC
LA
BC
MVI
LA
CLR
BC
SVC
DC
DC
DC
CLR
BC
SVC
TM
BC
BAL
BC
AL
BC
IBM MAINTENANCE DIAGNOSTIC PROGRAM
"F8041
2821 SCAN/2S40 READER/PUNCH
F8041
CONTROL PROGRAM -ROuTINE OVERLAY OZ-
AL2(ALZVOl&16-SECSTI PRINT ADDRESS
GR6,ALZVOl&27
SET CK AOOR FOR Ro/WR DATA
GRO,ALZVOl&50
SET UP MAX PACKED AooR
GR3,ALZVOl&l6
INIT INDEX 3 - USED TO AooR PACKED
GR4,ALZVOl
INIT INDEX 4 - USED TO AOoR UNPACK
0(2,GR41,0(GR31
MOVE CHARACTERS
GR3,2(GR3,01
UPDATE PACK INDEX BY 2
GR4,GR6
ARE WE AT 1ST Ro/WR CHAR
NEQUAL, LGOUT3
BRANCH IF NO
GR4, 2 (GR4, 0)
UPDATE UNPACK AoDR INDEX BY 2
ALWAYS,LGOUT2
GO MOVE NEXT CHAR
2{GR41,X'40'
MOVE BLANK
GR4,3(GR4,01
UPDATE UNPACK AoOR INDEX 8.Y 3
GR3,GRO
WERE ALL POSITIONS MOVED
NEQUA L, LGOUT2
GO MOVE NEXT CHAR IF NOT
X'OO'
lOG OUT TABLE
X'SO'
X'34'
AL2(ALZV01-BASE®I
GRl,GR2
BR IF NOT END
NEQUAL,LGOUT4
X'oA'
SET SENSE" SWS AS DES I RED, THEN· INTERRUPT
SNSW,X'40'
SEE IF SEC SS 01 IS 1 - USE SCOPE RTN
ALLOFF,LGOUTY
BR IF NO
GR8,SCPROO
BR TO'SCOPE ROUTINE
ALWAYS,EXIT
ROUTINE EXIT
GRl,ALZKAI
ADD 20 TO GRI
ALWAYS,LGOUTl
0010F7
CS090940FOF1F3
OOlOFE
001E05
001EOC
OOlE13
001ElA
001EZ1
001E28
001E2F
001E36
001E3D
001E44
001EttB
0OlES2
CS 09 0940 FO F1 F4
C5090940FOFlFS
CS090940FOF1F6
C5090940FOFIF7
CS090940FOF1F8
CS090940FOF1F9
CS090940FOF2FO
C50909ltOFOF2F1
CS090940FOFZF2
CSD909ltOFOFZF3
CSD90940FOFZF4
C509D9ltOFOFZF5
C5D9D9ltOFOF2F6
00180S
001806
001807
001808
001809
00180A
00180B
00180C
001800
00180E
001810
001811
00181Z
001813
001814
00181S
001816
CONSTANTS
CCW TABLE
CNOP
CCW
CCW
CCW
CCW
CCW
0,8
X'Ol',PCHWR,X'ZO',l
X'ZS',RoWR,X'ZO',2
X'CZ',PCHRo,X'ZO',l
X'C2',RORO,X'ZO',1
X'C6',CKROAR,X'ZO',1
DOUBLE WORD ALIGNMENT
oIAG WRITE TO PNCH BUFF, SLI ON
oIAG WRITE TO RO 8UFF -SLI ON
DATA READ FOR PUNCH BUFF, SLI ON
DATA READ FROM READ BUFF, SLI ON
OIAG CHECK READ CCW, SLI ON
CONSTANTS FOR ANALYZE ROUTINE - WORD BOUNDARY
*
*******************************************************************.***
001080
00000014
001084
0010S0
001094
001090
F2FBF2F140E2C3C105
61FZFSF4F06B40
C3D6D5E309D6D34007
0906C709C104
ALZKAl DC
XL4'14'
CONSTANT FOR RTN AOO
******************************* ••• *****************.************.***.**
TITLE1 DC
DC
C'28Z1 SCAN/2S40, ,
C'CONTROL PROGRAM'
*************************.*.**************************.*.**************
001DA3
0010AA
0010B1
0010B8
0010BF
0010C6
CS090940FOFOFl
CS0909ltOFOFOFZ
C5090940FOFOF3
CS090940FOFOF4
C5D90940FOFOFS
C5090940FOFOF6
0010CO
001004
C509D940FOFOF7
C5090940FOFOFS
OOlOOB
CS090940FOFOF9
DEFINITION OF ERROR MESSAGES
"**~*~***** ••• *****.******
•• ***** •• ****************** •• ****** ••• ~.**.**.
ERR001
ERR002
ERR003
ERR004
ERR005
ERR006
DC
DC
DC
DC
DC
DC
*ERR007 DC
OOlOEZ
CS090940FOF1FO
ERROOa DC
..ERR009
.ERROlO DCDC
001DE9
OOlDFO
C5090940FOF1Fl
CSD9D940FOF1F2
ERROll DC
ERR01Z DC
DATE
EC
lSJUL6S
1Z4265
17MAR66
1ZS643
•
C'ERR
C'ERR
C'ERR
C'ERR
C'ERR
C'ERR
001'
002'
003'
004'
OOS'
006'
C'ERR 007'
C'ERR OOS'
C'ERR 009'
C'ERR 010'
C'ERR Oil'
C'ERR 01Z'
BUFFER ADDRESSING PROSLEM
..... RESERVED ".*
*** RESERVED *.*
RESERVED *.READ XLATE TO CHAN REG PROBLRM
8UFFER INHIBIT LINES AND/OR CONTROLS
" OR SENSE AMPS
READ XLATE TO CHAN REG PROBLRM
BUFFER INHIBIT LINES AN~/OR CONTROLS
" OR SENSE AMP
PROB IN PARITY INHIBIT LINES OR
" HAVE I NTERMITTANT PAR lTY
FALSE READ XLATE PROS IN READ XLATE
" CHECK CIRCUITS
DATA REGISTER PROBLEM
FALSE PUNCH TRANSLATE CHECK
_.*
10
F804-1
PAGE
16
ERR013 DC
C'ERR 013'
MULTIPLE ERRORS ~APPEAR TO HAVE
FALSE PUNCH & READ TRANSLATE CK
" PARITY CHECK
ERR014 DC
C'ERR 014'
FALSE
ERR01S DC
C'ERR 01S'
FALSE PUNCH TRANSLATE CHECK
ERR016 DC
C'ERR 016'
MULTIPLE ERRORS - FALSE TRANSLATE CK
ERR017 DC
C'ERR 017'
FALSE PARITY CHECK
ERR018 DC
C'ERR 018'
READ BUFFER OR DIAG WRITE PROBLEM
ERR019 DC
C'ERR 019'
INTERMITTANT FALSE READ XLATE CHECK
ERR020 DC
C'ERR OZO'
INTERMITTANT PARITY CIRCUIT PROBLEM
ERR021 DC
C'ERR 021'
MUL TI PLE ERRORS
ERROZZ DC
C'ERR OZZ'
DATA REG OR READ XLATE PR08LEM
ERROZ3 DC
C'ERR 023'
MULTIPLE ERRORS
ERR024 DC
C'ERR 024'
PUNCH TRANSLATOR PROBLEM
ERROZS DC
C'ERR 02S'
PUNCH TRANSLATOR PROBLEM
ERROZ6 DC
C'ERR 026'
FALSE PARITY CHECK
•••••••••••• * •••• _••••••••• * •••••••••••••••••••••••••••••••••••••••••••
EQUATES
*
•••••••••••••••••••• * ••••••••••••••••••••••••••••••••••••••••••••••••••*
GENERAL EQUATES
*•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
*
PCHWR
PWSTA1
PWSTA2
PWSNS
PWCKRD
PCHRD
PRSTA
PRSNS
PRCKRD
ROWR
RWSTA
RWSNS
RWCKRO
RORD
RRSTA
RRSNS
RRCKRO
EQU
DATAWK
EQU
DATAWK&l
EQU
OATAWK&Z
EQU
DATAWK&3
EQU
DATAWK&4
DATAWK&S
EQU
EQU
OATAWK&6
EQU
OATAWK&7
DATAWK&8
EQU
eQU
OATAWK&9
EQU
DATAWK&ll
DATAWK&12
EQU
EQU
DATAWK&13
DATAWK&14
EQU
DATAWK&lS
EQU
EQU
OATAWK&16
EQU
DATAWK&17
.-*.* •• _** ••••••••••••••••• - •••••••••••••••••••••••••••••••••••••••••••
GENERAL REGISTER EQUATES
•
-
"\1
,:. .-. . . :.
_-"-.-----"'t"--~.~
*--._.*--* •••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
000000
000001
00"0002
000003
000004
OOOOOS
000006
000007
000008
000009
OOOOOA
OOOOOB
OOOOOC
000001)
OOOOOE
OO'OOOF
******************************************************.****************
*
PIN 8402S8
PAGE
16A
GRO
GRI
GR2
GR3
GR4
GR·5
GR6
GR7
GR8
GR9
GRA
GRB
GRC
GRO
GRE
GRF
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
0
1
2
3
4
S
6
7
8
9
10
DATE
EC
lSJUl6S
12426S
HION
ALLOFF
ANYON
ALLON
MIXED
NMIXED
EQUAL
NEQUAl
LOW
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQUEQU
-
...:; ...
..
... -~.~ .,.,....
-,...... .......--.,. "'
_.* ..•• ---•.••.• _•• **_ •• *- ••••• - ••• -._. __ ••••••• _ ••••
****-* •• _ ••• _ ••• - ••••••••••••••••••••••
000078
00'0008
000005
00'0001
000004
000009
000008
000006
000001t
~
11
lZ
13
14
IS
* ••••
CONDITION CODE EQUATES
.. **-_._....•
-
.....~.
120
8
S
1
4
9
8
6
4
-* ••••••••• _-•••••••••••••• _•••••
HARDWARE I/O NEW PSW
ALL OFF
0
ANY ON
1
ALL ON
MIXED
NOT MIXED
0
EQUAL
0
NOT EQUAL
1 Z
LOW
1
17MAR66
12S643
LOCATION
3
3
3
10
F804-1
PAGE
16A
...
o
000000000000000-000000000000000000
o·
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 O· 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
-
...
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PIN 840258
PAGE
18
IBM MAINTENANCE DIAGNOSTIC PROGRAM
1909
8
OATA8
EQUAL
1
4
1
1
1
20
20
20
20
20
20
20
1
20
20
1
2
leEA
1202
4
7
IBOA
1805
1BOC
IB08
1808
1815
1814
1934
1811
1810
1000
GZERO
LGOUT
MESSI
MIXED
NZERO
PCHRO
PCHWR
PRSNS
PRSTA
PWSNS
RRSNS
RRSTA
RTN02
RWSNS
RWSTA
SECST
1
1
1
1
llF7 SENSE
10EO UNITI
10E4 UNIT2
8 ALLoFF
1
F ALWAYS
4
6
2
4
6
6
2
4
2
4
2
4
2
6
2
4
2
4
2
4
4
6
4
4
2
4
6
2
4
4
2
4
52
1
1
1
DATE
EC
15JUL65
124265
lACA
lA02
1806
IB14
lBlC
IB2A
IB56
IB60
1872
1B7C
IB9E
IBA8
IBBO
IBBA
IBEO
IBEA
18FC
lC06
1C20
1C2A
lC3C
lC4E
lC62
lC74
lC8A
lC90
lC94
lCBO
lCB6
lCBE
1COO
1080
1700
114C
1804
ALZAOO
ALZAIO
ALZA20
ALl BOO
ALZBIO
ALl COO
ALlCIO
ALlC20
ALlC30
ALlC40
ALle50
ALZC51
ALZC60
ALZOOO
ALZ001
ALZ 010
ALlD20
ALlEOO
ALlE10
ALZFOO
ALZFIO
ALl GOO
ALlGIO
ALlG20
ALlG30
ALZG40
ALZHOO
ALZHIO
ALZHll
ALZH20
ALlH30
ALZKAI
ALZVOI
CAWKEY
CKROAR
193e,
le9A
lCE2
lAAA,
182A,
182A,
19E2,
190C
1984
lA46
lA40
1015
lAlO
lAOA
1000,
1000,
1000,
1000,
lE59
1984,
1946,
IBB8,
lA6A,
185e,
IBDe,
le4A,
lCCC,
lA6A
IB02
lAOC,
lAFA
1,CB6
1B40,
1838
IB64
1830
1880
IBE6,
1B90
IB26
1802
IBCO
IBEE
1B88
lCOA
IBC8
lC2E
1C12
lC54
lC66
lC78
lAFA,
1830,
lA8B,
lAC2
188A,
188A,
IB44
106:8
18CC,
...
PIN 840258
PAGE
18A
2821 SCAN/2540 READER/PUNCH
1'8041
F8041
CONTROL PROGRAM -ROUTINE OVERLAY 02-
18CO,
1C4E,
1000:'
1000,
1000,
1000,
1000,
1000,
1000,
1000,
1000,
1000,
1000,
1000,
19E2,
lA10,
1A46
195E,
lC12,
lAA2"
186E,
18E6,
le5E,
1C06,
196C,
1C2E,
lAe4,
IB7B,
IBF8,
lC70,
lCE6,
lA7E,
lC40,
lAC8,
IB9A,
1e02,
lC86,
1020,
lAE4,
1AEC.
lAF4
lC54,
1802,
lC94,
lC7E
1058
1000,
1000,
1000,
1018,
1000,
1000,
1000,
1CF8,
lAA6,
1C66,
1802,
18A4,
le1C,
lC90,
lO4C,
1AB4,
1044
1810,
IBAC,
le26,
ICAC,
1054
1000
1000
1000
1CFA
IB38
IB52
18B6
lC3B
lCBA
1&48
lC70,
,,----- ----,-
..
*
.. F8041
2821 SCAN/2540 READER/PUNCH
CONTROL PROGRAM -ROUTINE OVERLAY 02F804l
9
1
~.---
lC06
lC40
lCA2
1852,
lC9A
lCC2
1AFE,
1CFA,
IB6E,
160C,
lC82,
lCFC,
1050'
1000,
1004,
1008,
1036
198E,
19EC,
lAlE,
lA50,
U8b,
1A9A,
lC5E
1078
17MAR66
125643
I
10
F804-1
PAGE
18
i,
I
DATE
EC
8
1
4
6
9
9
6
4
4
4
6
9
20
107B
112e
1974
197A
lB20
1819
1984
19C4
19F2
lAZ4
lA56
1910
1805
CROCeW
CSWSAV
DATAOO
DATAI0
DATAll
DATA12
OATA20
OATA30
DATA40
OATA50
OATA60
OATAEX
OATAWK
6
4
7
7
7
7
7
7
7
'7
7
7
7
7
7
7
7
7
7
7
7
7
7
7
7
7
7
7
1
4
4
4
4
6
6
4
4
4
lAAA
lA6E
10A3
10M
lOBI
10B8
10BF
10C6
lOCO
1004
100B
10E2
10E9
10FO
10F7
10FE
lE05
lEOC
lE13
lElA
1E21
lE28
lE2F
lE3l>
1E30
lE44
lE48
lE52
16E6
1942
194E
1968
lCOE
1CEE
100C
1024
1050
lCOA
OGCKI0
OGCKRO
ERROOI
ERR002
ERR003
ERR004
ERR005
ERR006
ERR007
ERR008
ERR009
ERROIO
ERROll
ERR012
ERR013
ERROl4
ERR015
ERR016
ERR017
ERR018
ERR019
ERR020
ERR021
ERR022
ERR023
ERR024
ERR025
ERR026
EXITBY
INITOO
INIT05
INITIO
LGOUTO
LGOUTl
LGOUT2
LGOUn
LGOUT4
LGOUTA
4
4
1
1
1
1
1
20
1040
104C
C
6
9
0
4
1800
LGOUTX
LGOUTY
MIXNDN
NEQUAL
NMIXEo
NOTBSY
NOTZRO
PRCKRO
8
1
20
8
1068
1931
1809
1058
PROCCW
PROGSW
PWCKRO
PWRCCW
l5JUL65,
124265
17MAR66
125643
lA6E
19AB,
196C
lA66,
1AC4
1974,
lACA,
IB14
lA60,
197A,
181C,
lE59,
IE 59,
lA9E
19BA,
IBOA
lACE,
1984,
lCEA,
lE59,
lE59,
1B18
1984,
lCEE,
IE 59,
lE59,
198A,
lCF8,
lE59,
1E59,
19E8,
lAlA',
lA4C
190C,
lAOA,
lA40
198A,
lE59,
lE59,
lE59,
lA56,
lE59,
lE59,
1E59,
1A02
lE59
lE59
lE59
IB50
IB5A
1B6C
IB76
IB9B
IBII2
IBOA
IBF6
leoo
lClA
lC24
lC36
lC48
1C5C
1C6E
1C8E
lCAA
1CB4
1eCA
1C04
1BE4
IBB4
193C,
1946
195E
IBIO,
1054
1020,
1018
103A
IB5C,
1CIC,
lCE6
1044
;:
("
19A4,
1908,
lA06,
1BAC,
1C7E, ,ICBA
1A3C,
lA96
1BF8,
lCAC,
1C02
lCCC
1B60,
167C
~.:
.
102E
1878,
lC26,
IB9A,
lC38,
IBA4,
1C4A,
IBB6,
1C90,
1952,
lA66,
1018,
102E,
ID3A
19EC,
IB84,
19C4
1942,
196E,
1980
lAEO,
16C4,
lAFO,
16EA
1634,
183C,
1956
lA08,
1822,
l88C
F804-l
10
PAGE
18A
~'i
Y
a
.'
"
0 0 0 Q 0 '0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
__
~.----.~-
....
-
..
~-
_.
.-
......
_--
------.
. ..
-
---
------.~---
I
o
0 0 0 0 0 0 0 0 0 0 0- 0 0 0- 0 0 0--0 0 0 0 0 0 0
Q:
0 0 0 0 0 0 0
..
, -""
I;BM
84025B
19
.PAGE
PIN
IBH MAINTENANCE
-DIAGNOSTI.C
PROGRAi'\
.
....
...
.
...
\,
PWST Al
PWSTA2
RETNCR
RRCKRO
RROCCW
RWCKRD
RWRCCW
SCHNUM
SCPDAT
SCPROO
SIOSWS
1806
1807
lAC8
1816
1070
1812
1060
179C
1234
163E
1140
1
1
1
16
1
1
1
112C . S IOVR3
1134 SIOVR4
lIF8 STATSV
1084 TITLEl
10E2 UNIADR
10E6 UN2ADR
1000 XF80'41
19A8
19AE
lAA2,
lA50,
lA24
lAlE,
19F2
1938,
COlS.
lAA6
lC62,
lC74,
lC9E,
lCBE
lAE8,
lC06,
lCOE,
lC2A,
lC3C
194A,
194E,
IBOC,
IBA8,
lCB6,
lCDA
1970,
1994,
LA2C,
1048
19AO,
lA3B,
19CC,
lA7A,
1904,
lA8A,
19FA,
lA92,
lA02,
lABO
lA16
19AE
1966
lA30,
1998,
lA82
lA76
NO ERROR DETECTED IN ABOVE ASSEMBLY
.,.
"-.
,,~. ~
.
DATE
EC
15JUl65.
12426!i<
~-.
-.~
.. , . ~~-~.
PIN 840258
19A
PAGE
PROGRAM
.
PERIODS CORRESPOND TO BLANK COLUMNS.
.{
-:-?>- ;
..
FB04 . 2821 SCANl2540 READER/PUNCH
F804 CHANNEL REG FlT -ROUTINE OVERLAY 1-
2821 SCAN/2540 REAOER/PUNCH
• F8041
CONTROL PROGRAM -ROUTINE OVERLAY 02F8041
20
20
2
20
8
20
8
1
1
1
1
MAl·NTENAN.~£ ,:D:lA~NOSJ IC
"-~""'.-~
17MAR66
125643
.-"-~~~-"
COlS.
21 THROUGH 40
COlS.
41 THROUGH 60
COLS.
61 THROUGH 80
BESD •••••• AA •• AAXF80
YQ Y9
9
99 9
41 •• 0AAA.AEN ••••••••
YQY Y8
999 99
••••••••••••••••• 840
259.125643 •• 80410001
BTXT.AAA •• A8 •• AA8DAA
YQY Y9 Y9 9QY
9
99
9
999 9
AAAAAAAAABAAADAAGAQU
YYYYYYYYY9YY99YY8Y9B
999999999 9 9999
AAAAAAAAAAAAAAAAAAAA
YYYYYYYYYYYYYYYYYYYY
99999999999999999999
AAAAAAAAAAAAB0410002
YYYYYYYYYYYY
999999999999
BTXT.AA8 •• A8 •• AAAAAA
YQ9 Y9 Y9YYYY
9
9 9999
99
9
AAAAAAAAAAAAAAAAAAAA
YYYYYYYYYYYYYYYYVYYY
99999999999999999999
AAAAAAAAAAAAAAAAADAA
YYYYYYYYVYYYYYYY99YY
9999999999999999 99
GAPMAAAAAAAA80410003
8Y98YYVYYVYY
99 999999999
BTXT.AAO •• AA •• AAAAAA
YQ& YQ Y9YYYY
9
99- 99 9 9999
AAAAADAAGANO ••••••••
YYYY99YV8Y9&
9999 9999 -
.............•......
•••••••••••• 80410004
BTXT.AAS •• A8 •• AAAAAA
YQ8 Y9 Y90YYY
9
9 9 9
99
9
BAAAAAK4AAAAAAAAAAAA
OYYYYY99YVYYYYYYYYVY
9 999 999999999999
AAAAAAAAAAAAAAAAAAAA
YYVYYYYYYYYYYYYYYYYY
99999999999999999999
AAAAAAAAAAAA80410005
YYYYYVYYVYYY
999999999999
BTXT.AJQ•• A8 •• AAAAAA
Y99 Y9 Y9VYYY
9
9 9999
9
9
AAAAAAAAAAAAAAAAAAAA
YYYYYYYYYYYYYYYYYYYY
99999999999999999999
AAAAAAAAAAAAAAAAAAAA
YYYYYYYYYYYYYYYYYYYY
99999999999999999999
AAAAAAAAAAI/80410006
YVYYVYYYYY
9999999999
BTXT.AJ& •• A8 •• AAO.AD
Y9 Y9
Y9
9
9
9
9
DR.XXX.CAW.XXXXXXXX.
GOT.CCO.BUT.-NO.INTER
RUPTAAAAI/O.80410007
YYVY
9999
BTXT.AJH •• A8 •• AAADDR
Y90 Y9 Y9
9
9
'9
9
.XXX.CAW.XXXXXXXX.GO
T.CC1.CSW. STATUS. XXX
X.SNS·.XX •••• 80410008
BTXT.AJO •• A8 •• AA.I/O
Y9& Y9 Y9
9
9
9
9
.ADDR.XXX.CAW.XXXXXX
XX.GOT.CCl.CSW.XXXXX
XXXXXXXXXXXA80410009
Y
9
BTXT.AJ8 •• AB •• AAAAAA
Y9 Y9YYYY
Y9
9
9 9999
9
9
AAAAAADIAG.CK.RD.UNI
YYYYYY
999999
T.OOO.NOT.-OKT.WILL.T
8
RY.AGAINAAAA80410010
YYYY
9999
BTXT.AKA •• A8 •• AAAAAA
Y9Q Y9 Y9YYYY
9
9 9999
9 Z 9
AAAAAAAAAAAAAAAAAAAA
YYYYYYYYYYYYYYYYYYYY
99999999999999999999
AAAAAAAAAAAAAAAAAAAA
YYYYYYYYYYYYYYYYYYYY
99999999999999999999
AAAAAAAAAAAA80410011
YYYYYYYYYYYY
999999999999
BTXT.AKQ •• A8 •• AAAAAA
Y9Z Y9 Y9YYYY
9
9 9999
9
9
AAAAAAAAAAAAAAAAAAAA
YYYYYYYYYYYYYYYYYYYY
99999999999999999999
AAAAAAAAAAAAAAAAAAAA
YYYYYYYYYYYYYYYYYYYY
99999999999999999999
AAAAAAAAAAAA80410012
YYYYYYYYYYYY
999999999999
BTXT.AKJ •• A8 •• AAAAAA
Y9Y Y9 Y9YYYY
9
9 9999
9
9
AAAAAAAAAAAAAAAAAAAA
YYVYYYYYYYYYYYYYYYYY
99999999999999999999
AAAAAAAAAAAAAAAAAAAA
YYYYYYYYYYYYYYYYYYYV
99999999999999999999
AAAAAAAAAAAA80410013
YYYYYYYYYYYY
999999999999
BTXT.AKQ •• AB •• AAAAAA
Y9 Y9YYYY
Y9
9
9 9999
9
9
AAAAAAAAAAAAKBIA2VAB
YYYVYYYYYYYY 9 Y 8-9
9
999999999999
lEGA2DKBlA21K80578AJ
BZQ Q 9 Y 9 9 8 9Q8
9
9 Z
IDKCIYOHPGIU80410014
999Z98
9
BTXT.AlA •• AB •• AAIUPA
Y9Q Y9 Y9 8 Y
9
9 9 9
9 9 9
1717D07AKAOHIDKCOHOH
R& Q Y Z 8 9-Z Z
o9
OAOAEA3A&A14AAIEGA5F
QY&YZQ Q Q 9-Y 8ZQ Q
9 9
CJ 9 9 Z 9
AA14G&3&BQAA8041001S
..,Q 9Z -8 -Y
9
Z
BTXT.ALH •• A8 •• AAODGA
Y9Z Y9 Y9 9ZQ
9
.9
9
9
9
3FBEADAHAPKBIGIABOIW
Q8QY9YZ98 9 R Y- 8
0999 9
BO.21FG03FAA14G.3FAA
8- 9 8Z Q-Q 9Z -y
o Z
9
ODGA3DBEADAH80410016
9ZQ 88QY9VZ
9 9999 9 _
DATE
EC
F804-1
19
PAGE
10
1 THROUGH 20
----
'-
~
15JUl65
124265<
17MAR66
125643
10
PAGE
F804-1
19A
e
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PIN 840258
PAGE
20
APKBIGIAB21W80410017
98 9 R V- 8
BTXT.APO •• A8 •• AAAAFA
9
V98 V9 Y9YV Y
9 9 9
9 99 9
K4JAACOAJ7AAAAGGGGAA
99YYY99Y9 YYY9QQQQYY
999 9 999 ZZZZ99
AMANOMAKE.THIS.UNIT.
Y9Y9&
99-
ROY.WITH.BLA80410034
9 9
14GA30AAODGA3FBEAOAH
9ZQ V-V 9ZQ Q80Y9YZ
9 9
9 0999 9
1FEAOAGA3DG&3FQUABIE
8QY&VZY 81 Q98-9 S
GA3DHOOSG03SHOOWEAOA
ZO QI& Z 8Zt QYtV
G03SQBG03DAA80410018
Z& 89 Z 8-V
BTXT.APF •• A8 •• AANK.C
9
Y9R Y9 Y9
AROSSTATUS.XXXX.SNS.
XXPRESS.CONSOLE.STOP
.F.ENTER.SC080410035
BTXT.ALA •• AS •• AAAPKB
9
Y9Y Y9 Y99S 9
9
9
9
IGIAB31WBO./IFG03DAA
R Y- 88- 9 8Z S-Q
BTXT.ALH •• AS •• AABO./
9
V90 V9 Y9B- 9
9 - 9
9 9
BTXT.ALO •• AB •• AAOOGA
9
V9
Y9 V9 9ZQ
9
9
9
9
3FAAICGA4KBAICAGOEG&
Q-Y OIV 8-V O-Q~ll
BTXT.AMV •• AB •• AAKGIU
9
V99 V9 V9 9 S
O.BEABAAAABIIMABIAGA
- 8QY99Q90- 0-9 QIQ
9
9
9
9 9
9
o
9
0 9
Z -
9 9
4KALOOGt4KAMOOGA30KB
S-V-ZZ S-9-ZZQ S 9
9 9
I
9 9
9'19
9 9
9
9 9
40BO.110AG11G&3fG030
R8- 9 O-Q 9Z QZ 8
Z 9
9
Z
0
9
. YPASSEDAGAAAGG ••••••
Y9YYY9Q
9 999 Z
•••••••••••• 80410036
EA40BEAAA7AB80410020
ZQ -8QY99 9Q
I
999
0
BTXT.APO •• A8 •• AAAAAA
9
V9- Y9 Y9YYYY
9
9
9 9999
AAAAAAAAAAAAAAAAAAAA
VYYYYYYYYVYVYYYYVYVY
999999999999 9999999
AA.AAAAAAAAAJAAAAAAA
VV VYVVYYYYYVYYYYYYY
99 99999999999999999
AAAAAAAAAAAA80410037
VYQYVYVYYYVY
999999999999
BTXT.AQH •• A8 •• AAHAAA
9
Y99 Y9 Y99YYY
999
AAAAAADAAAAAAAAABAAA
YYYYYY9YYYYYYYVY9YYY
999999 999999999 999
AAAAAAAAAAAAAAAAAAAA
YYYYYY9YYYVVYYYYYYYY
999999 999'9999999999
AAAAAAAAAAAA80410038
YYVYYYVVYYYY
999999999999
BTXT. AQ •••. ".8 .. AAAAAA
9' V9
Y9 Y9YYYY
9
9
9 9999
AAAAAAAAAAAAAAAAAAAA
YVYYYYYYYYYYVYVYYYYV
99999999999999999999
AAAAAAAAAAAAAAAAAAAA
YYVYVYYYYVYYYYYYYYYY
99999999999999999999
AAGFLEA.JFGA80410039
9YQQ8Q- Z-ZY
9ZZ99
V99 9Y8- 9
999
BTXT.AQH •• A8 •• AA84QG
9
Y9R Y9 Y9 89Q
90 'I' 9
9
ABODGA8BBOAPEMLAAAJA
-9 9ZY YS-YBQ8BV-QZY .
9 ' 9Z999 9
GA8BAGBAIDBEABASBUBE
ZV Q88ZV 88QY9V 98SQ
99 9 999 9 999
ABAWBABA7DA.S0410040
V9Y 9Q-Y Q-
BTXT. AQA •• A·S •• AAOOGA
9
Y9Q Y9 Y9 9ZY
8BEA66LDHOOWAAEA&AOH
QZY 88YZ& ZYQQ Y Z
o 999
9Z9 9
BAIEEA2VEM13G-DBAAEA
-Y 8ZQ -9 9Z Q-ZVQQ
9
0
Z 9Z9
&AOHHOOSBBIE80410041
V ZZ& -9 S
EMI3G-OBHOOWAA7SKA8D
-9 9Z Q-Z& ZQ 8 8 Z
AAAA08PH8E8EKA8ESD&A
QYZYQ 9 Z Z Y Z Z Y
OHBAIEEA2YAA80410042
Z-V SZQ -9
FA1EG03DKBIBS0410021
-9 SZ S. 9 Y
BTXT.AMH •• AB •• AA1AA.
9
V9- V9 V9 VZ
9
9
9
7V&.OHKAOH1DBEADAHAK
9
Z Y Z B8QV9VZ9
9
999 9
KCOHOHDAOAE.4fAAOOGA
9-Z ZQV&YZ Q-V 9ZQ
5M&.lSBOIJAAS0410022
9- Z-Q
Z
BTXT.AMO •• AB •• AA1BGA
9
V9- V9 V9 9ZV
9
9
9
50B31JGA5DB21JAJ18GA
9- ZZQ S-. Z-V 9ZQ
9 9
9
9
50B11JKFIX70KG140.BE
S- Z 9
8 9 S- SQ
BTXT.ANH •• AB •• AAG05M
9
V99 V9 V9Z Z
SO./lAG05MPG1414EAOA
S- 9 Z Z 9 S 8QV&Y
G.5UG05MGOS20G140.AG
Z SZ& SZ 9 9 S- -Q
9 - 9
9
Z
lAG&5BADl.GOS0410024
ZZ S-8 Z&
I.GA5MBEAHA4AXBO.61A
ZY 8SQY9989 S- 9
999 9 9
G05MKCOHIVG3EAOAG05M
Z Z 9 Z 99 QV&VZ& 'z
G04AAAODGA3FB0410025
I
Q-Y 9ZQ Q
BTXT.ANH •• AS •• AAKG1U
9
V9R V9 V9 9 S
9 0 9
9
9
0.AJIEGA5FPAlS1SEAOA
- -Y SZQ Q 9
QV&Y
G.50G050G0500AlSOOGO
Z QZ& VZ 0 9 -ZZ
BTXT.ANA •• AB •• AAlSAB
9
V9Q V9 V9 -9
909
9
IfGA5fEA40AV17G&5UAG
QZY ZQ -I
-Q
Z
Z
Z
IGG&5UASIFG&5UADIFGO
QZ
-8 QZ
-8 QZ&
BTXT.ANY •• AS •• AA1ABE
9
V9
Y9 V9 Y8Q
9
9
9
99
AOAHAE8EAHABAKBOIMAB
V9VZ9-80V99Q9Y- 0-9
9 9
IFGA60BO.61DKFIB7/BE
QZQ 88- 9 0 9 Q 88Q
I 9 99
0 99
BTXT.AOJ •• AM •• AA6UBO
9
V9V VB Y9 8S9 9 99 9 99
.510G03DBO-510BOAT73
8 OZ 88- 8 08-V9 8
9
99 9 9
9
G04B ••••••••••••••••
Z 0
BTXT.A06 •• AS •• AAAOOO
9
V9S V9 V9QQ
BOAS70H07AE07AGA6QA.
8-V8 tR& QR& QIY Z-
ODGA60HOOOKCOHIYG8A.
9ZQ R-Q
9 Z 99 -
9
9
9
9
9 9
9
9
9
9
9 9 9 9
9
9
9 9
999
9 -
9
9
99
Z
ABA.AOBO~11AS0410023
9 0
9
o
9
Y 9 Q B 9 Q
Z 9
Z
5UHJIOGCKBIES0410027
-8 99Q 9 V
9
DATE
EC
15JUL65
124265
9
17MAR66
125643
--__ ________________________________________________________________
~
-
9
Z 9
9
9
9
0
1EEA2YAAIEGAB0410043
8ZQ -9 8ZQ
KAAA80AIABAA8DNAG-8D
8QV ZZ-Y8ZY Z9QZ Q
Z
G09KAAEH&AOHB0410044
Z YZYQ9 Y Z
9 9Z 9
9BG09YAG7JGA80410045
Z
-Q
ZQ
9 9
99 9
o
BTXT.AKA •• A8 •• AAABNA
9
Y8Y Y9 ,V9V89Q
999 9
9 99 9
G-9BBA8FKA80AAGOB2AB
Z Q-Y 8 8 ZQVZ QS-9
Z 9
9
9
Z9
BHGABOAB80GABOKA7F8D
ZZQQY-9 BZQQV Y Q Z
9Z9
9Z9 9 9
MA7F8AGABBG080410047
Y Q 8ZYQOZ
BTXT.AKB •• A8 •• AACFAG
9
V89 Y9 Y9QB-Q
99
9
9 19 Z
8FGABOBG8FAAAAAOAAAA
8IQQ9-Q 8IYY9Z&YVZQ
9Z Z
9 -9 9
8WAJ8WFAAAOABFGABBDA
9ZY 9-9Q8ZYQQZYQRZY
9
99 Z
ZO
BKGABBDABOGA80410048
QYZYQRIYQYZQ
Z
ZO Z 9
BTXT.AKO •• A8 •• AABHDF
9
Y8& Y9 Y9QO-Q
99- 9
9 Z Z
99
AANGGABOAHAALAEQGOBB
QS90ZYQ9Z0YY8QQ9Z QR
Z
.9 9Z
Z
A07SNBAOAAGABKLJEQGO
Z& 89RZ&YYZYQ08YQ9Z
o -9 Z 9Z
8FAAJEFA7GG080410049
QR-YV9-9 QZ
Z 99
9
JOAAJHAOAHAA7VEAAAGY9-YY9Z&Y9ZY -YYVZ
BFAHABFOBBGOC&A08HGA
QYZOYSZ&QQZ Q -9 ZZQ
Z9 99 -ZO Z
9
CFAD8PGABWAOB0410050
QB-9 9ZQQ -9
Z9
9Z
&AIAKC241AKP80410031
Q Y 9 9 Y V
o9
9
9
99
9
BTXT.AKQ •• A8 •• AABFAA
9
Y80 Y9 Y9QR-Y
99
9
9 ZO 9
DATE
EC
15JUL6S
124265:
9
99
-9
9 9
o
9 -
Z
9 9
l.~~',\:'.,.:::j,.'~: ,:"'"
9
Z-
.- --.----.
ID
fS04-1
·PAGE
20A
17MAR66
125643
_______________________________J ________________________________________________________________
Z
9
_
?.,-_.~~-.c.~--~-.~,
ODGA60G06M&JS0410030
9ZQ 8Z 8 Y
10
F804-1
PAGE
20
~~
9
Z 9
9
• ••••••••••• 80410029
2YBCB4G07MB080410033
8Q99Z 98
9 9
8BIAKA8C17EJ9HKABD70
8 Q Y 8
ZV 0 Y 8 -
9
9
9
81AA7ZBAAAAJ80410046
SZQ -YQYZ9
9 9
999
7MAA7J&AOHHOOSBBIEEA
8ZV V Y ZZ& -9 8lQ
9 9 9 9
0
7EA.ODGA68EA66AJJLGA
Q- 9ZY ZY 8-YZOZQ
BTXT.AJH •• A8~.AA80KA
9
Y8R Y9 Y9 & Y
-
9 91
EJ9HKA8H70AAEA&AOHBA
ZY 0 V Z -ZYQY Y Z-Y
9
9Z9 9
9
DT2BG08DGBAA7SBA7GAA
Z8 9Z Q9QZQ 8-Y QZY
9
ZZ
999
9
A.00GA6BG06M80410032
- 9ZQ ZZ 8
BTXT.AOW •• AS •• AABOAA
9
Y9
V9 Y98-YQ
9
999 9
9
I
0
2K21AB1EGA9FKB2K2VBO
9 9-9 8ZY Q 9 9 889
99
0
OAOAEAOAG06BAAOOGA60
QV&VQY&VZ& V-V 9ZQ &
9999- 9
9
9
9
9
BTXT.AJH •• AB •• AA9VKB
9
~8
Y9 V9
9
99
9
9
9
AAOYtAOHKAOHIDKCOHOH
ZQ
Q Z Y I S 'I-I Z
9
9
Z 9
lEEA2YAAIEGA80AG7KGA
8lQ -9 BZQ &-Q ZQ
BTXT.AOO •• AS •• AA2S24
9
V9Y V9 Y9 9 9
9
9
9 9
HOOWGA9JHOOSKB70EODE
Z& ZY YZ&
9 -QR-Q
Z Z
OOlANAIA7BG06KKA007B
V Y 9 Y QZ- 0 9 V Q
9
9
':
BTXT.AJA •• AB •• AAAB1E
9
YBQ Y9 V9-9 8
99
9
9
OYIBBAOMMAOMIC&OlAKA
9-Q V Y Y 9 & V 9
I 9 9 9
9
9
9
9-9
9
BOKA8EIAKABF18KA8G17
&V Z Q Y Z
Y I
Z
AAA7AGA.17GA80410028
Y99 9QIQ
9
9
9
OOP.DATAAOAROUTINE.B
YOY
BTXT.AJJ •• A8 •• AA1EGA
9
Y8Y Y9 Y9 8lQ
999 9
9
9
99
BTXT.AOF •• A8 •• AAIAKA
9
V9R V9 V9 V Y
909
999
9 9
9
BTXT.AQY •• A8 •• AAEA2Y
9
Y9
Y9 Y9ZQ
9 0
5DKGIBIUOAIFS0410026
9 Z
9 0
Z
9
Z
99-
Z
9
9
9
9 9
Z
Z
9
0
B
9
BTXT.APF •• AW •• AAPE.L
9
Y9Y V9 Y9
-810BOAT73H&JHOEf&4H
9 OB-V9 8R Z-SRZ 0
999
9 9
9
lElA8EADAHAE80410019
V Y8QY9VI9999 9
GA4BBO.B10G04HBAICBO
ZQ R8- 9 OZ Z-V OB9 09
9
BTXT. AN •••. AS •• AA5 BA3
9
V9
V9 V9 S-
a
9
9
BTXT.AM-•• AB •• AAA.17
9
V9
V9 V99
9
9
9
PIN 840258
PAGE
20A
F804
2821 SCAN/2540 READER/PUNCH
F804 CHANNEL REG FLT -ROUTINE OVERLAY 1-
FB04
2S21 SCAN/2540 REhDER/PUNCH
FS04 CHANNEL REG FLT -ROUTINE OVERLAY 1-
9
IBM MAINTENANCE DIAGNOSTIC PROGRAM
~----
__
--------~------------------~--~
0, 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 '0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
o o
c o
0", 0,', 0" 0"" 0" 0' 0" 0'
"
"
'
"','
.,;' 'i
!
l,.,
.J
'i
_''.;,,1
;.'.1 ,"
PIN 84025S
P'AGE
21
IBI-I MAINTENANCE DIAGNOSTlC PROGRAM
o o
FS04
2821 SCAN/2540 READER/PUNCH
FB04 CHANNEL REG FlT -ROUTINE OVERLAY 1-
BTXT.AKS •• AS •• AABDGA
9
YBa Y9 Y9 llY
99
9
9
CFFBBEGOCBAB8DGABFAB
QS-9 6Z Q8-9 lZQQQ-9
19
19
9Z1.
8AGACFAA8VGACFGOCBFA
6ZYQ8-9 9ZYQ8Z Q8-9
1.9
19
Z9
7GKAAA8EAIAB80410051
Q YQS 8l-Y8
9 9 9
99
BTXT.AlQ •• Aa •• AAAA8A
9
ya9 Y9 Y9lY Q
99
9
9 9 l
NAG-BOGOCWAA7GGAC2GO
9Ql Q8l Q9-9 OZOQ9Z
19 l
9 9Z
OJAA81BG7DAA7lABAAGA
QYZY 8-0 QZO -9QYlY
Z 9 9 Z
9
99
CKAJABNAG-C680410052
OSZ9Y89QZ QB
Z
99 9 19
BTXT.AL& •• Aa •• AABODG
9
ya
Y9 Y98-l9
99
9
9 9
EGGODJAA7lAAAAGACDAJ
QRl QYlQ -9QYZYQRZ9
Z
Z 9
99 ZO
ABNAG-COGOCDAG85GOCF
Y890Z Q8l QO-Q 9Z&QY
99 9 Z
Z Z
l
AAB5GACFBODG80410053
-0 8ZQQV8-l9
9 9 9Z 9
BTXT.AlH •• AB •• AAEOGO
9
YSO Y9 Y9QSl
99
9
9 l
DJAB7lGACJBODGENGOCO
QY-9 lYQY8-l9Qll QY
l
l 9
l
l
AA7lGACOBODGEUAB73GA
-9 ZYQYS-l9Q8-9 lY
C080DGECGOCFS0410054
Q&8-l9QRl QY
l 9
ZO 19
BTXT.ALO •• AS •• AAAA73
9
Y8t Y9 Y9-9
99
9
9
GACFBODGE2AB7EGACSBO
lYQY8-l9Q8-9 QZYQ8B199
Z
Z Z 9
DGEAGOCOAA7EGACOSODG
Z9QOZ QY-9 QZYQY8-l9
l
19
Z 199
EHABSGGADA8080410055
QO-9 9lYOY8Z
199
BTXT.ALS •• AS •• AADGEG
9
Y6
Y9 Y9l9QY
99
9
9
l
GODFAA8GGADFBODGEFAB
l OS-9 9ZYOBB-l9Q--9
8JGADJBODGEEGODWAABJ
9ZYQY8-l9QQZ Q8-9 9
Z99
l
Z9
GADWBODGEMABB0410056
ZYOBS-l900-9
Z99
Z
BTXT.AMA •• AB •• AABlGA
9 ' yaQ Y9 Y9 SLY
D.BODGElGODFAABlGADF
Q B-l9QYl OB-9 Slyoa
19
Z
l
9Z
BODGEBABSVGAD-BODGEI
8-Z9Q0-9 9ZYQ S-l9QD
GODWAA8VGADW80410057
Z Q8-9 9ZY08
BTXT.AMQ •• AB •• AABODG
9
YBl Y9 Y9B-l9
99
9
9 9
EOAB8XGADABODGEGGODF
Q&-9 8ZYQY8-Z9Q l QY
l
919
l
Z
AA8XGADFBODGEFGODJBO
-9 8ZYQY8-Z9QYZ QY89 l 9
Z9 l 9
DJE3BC7DG06M80410058
Z808-0 QZ Y
919
9
BTXT.AMJ •• AB •• AAAJOD
9
YBY Y9 Y9-Y 9
GA6MAA8DAA7SKA8DAABE
lY YZY ZZQ 8 a lQY8Q
9 9
9
9 9999
ABHDHHAJ8&AA8HA.8GKA
YB9Z9RZY -ZO RZ 8 9
99
9
l
.AAAB •• BAOAC80410D59
YQY- 9ZZY9
91.9
9
•• AAA3AB
Y9 Y9l9Y9
9
9
9
N2G-DBBOAN8GAJABNAG99l QY8-YB 8Z9Y89QZ
Z99 9
9? 9
DABBG06MAAQDJAABBAQA
QQSQZ Y9Y9ZYYY9 Y9B
ZD99
9 9 999 9
JAAAFAPOJAAC80410060
YYY9 Y9-YYY9
999 9 999
BTXT.ANA •• AB •• AAFAK4
9
YSO Y9 Y9 Y99
999 9
9 9
JAAMAAAB2821.SCAN/25
YYYZYYY8
999 9999
40T.CHANNEl.REG.FlTB
UFFER.ADDRES80410061
BTXT.ANH •• AS •• AASING
9
Y8l Y9 Y9
.PROBlEMAAGERR.030ER
YYQ
R.031ERR.032ERR.033E
RR.034ERR.03S0410062
R.039ERR.040ERR.041E
RR.042ERR.0480410063
99Z
99
9
9
9
9
9
9
BTXT.AMQ~.A8
9
YS
99
99
9
9
Z 99
l
l
l-
9
9
l
Z 9
l-
"
l
"
l
8
99Z
BTXT.ANA •• A8 •• AA5ERR
9
YBY Y9 Y9
99
9
9
.036ERR.037ERR.038ER
BTXT.ANH •• AN •• AA3ERR
9
YBO YB Y9
99- 99 9
.044ERR.045ERR.046ER
R.047 •••••••••••••••
• ••••••••••• 80410064
BRlD •••• ~.AA •••• AAAA
9
YO
Y9Y9
9l
9 9
AAANAAANAAA5AAAlAAPI
SY098YQZ8Y088YO 8Y99
999 999 999 999 99
AAP/AAP8AAM9AANAAANA
8Y988Y998Y8 8Y89BYB8
99 999 999 999 9999
HANJ •••••••• 80410065
9Y89
BEND ••••••••••••••••
99
•••••••••••• 80410066
9
BOAT ••••••••••••••••
•••••••••••• 80410067
9
••••••••• !•••••••••••
DATE
EC
15JUL65
124265
17MAR66
125643
PIN 840258
PAGE
21A
IBI-I MAliNTENANCIi: OJAGNOSTlC PROGRAM
F804
2821 SCAN/2540 READER/PUNCH
F604 CHANNEL REG FlT -ROUTINE OVERLAY 1-
19
o o o o
•••••••••••• 80410069
BDAT •••••• ~ •••••••••
9
BESD •••••• AA •• AAXF80
9
YO Y9
99 9
• ••••••••••• 80410070
41 •• 0AAA.AFJ ••••••••
YOY YBB
999 99
• ••••••••••• 80410071
BTXT.AAN •• AC •• AAAJ4.
9
YQ9 Y9 Y9Y89
99
9
9 99
BTXT.APO •• A8 •• AAAAAA
9
Y9- Y9 Y9YYYY
9
9
9 9999
AAAAAAAAAAAAAAAAAAAA
YYYYYYYYYYYYYYYYYYYY
99999999999999999999
AAAAAAAAAAAAAAAAAAAA
YYYYYYYYYYYYYYYYYYYY
99999999999999999999
AAAAAAAAAAAA80410072
YYYYYYYYYYYY
999999999999
BTXT.AQH •• AS •• AAAAAA
9
Y99 Y9 Y9YYYY
9
9
9 9999
AAAAAAAAAAAAA&AAAAAA
YYYYYYYYYYYYY YYYYYY
9999999999999 999999
AAJAAAAAAAAAA-AAAAAA
YYYYYYYYYYYYY YYYYYY
9999999999999 999999
AAAAAAAAAAAA8D410D73
YYQYYYYYYYYY
999999999999
BTXT.AQ ••• AS •• AAAOAA
9
Y9
Y9 Y9Y YY
9
9
9 9 99
AAAAAAHAAAAAAAAAAIAA
YYYYYY9YYYYYYYYYY YY
999999 9999999999 99
AAAAAADAAAAAAAAAA2AA
YYYYYY9YYYYYYYYYY YY
999999 9999999999 99
AAAAAABAAAAA80410D74
YYYYYY9YYYYY
999999 99999
BTXT.AQH •• A8 •• AAAAAA
9
Y9R Y9 Y9YYYY
9 0 9
9 9999
A3AAAAAAAAAAAAAAAAAA
Y YYYYYYYY9YYYYYYYYY
9 99999999 999999999
A4AAAAAAAAAJAAAAAAAA
Y YYYYYYYYYYYYYYYYYY
9 999999999999999999
A5AAAAAAAAAA80410075
Y YYYYYYYYYQ
9 9999999999
BTXT.AQA •• A8 •• AAAAAA
9
Y9Q Y9 Y9YYYY
9 D 9
9 9999
AAAAA6AAAAAAAAAHAAAA
YYYYY YYYYYYYYY9YYYY
99999 999999999 9999
AAAAA7AAAAAAAAADAAAA
YYYYY YYYYYYYYY9YYYY
99999 999999999 9999
AAAAASAAAAAA80410076
YYYYY YYYYYY
99999 999999
BTXT.AQY •• A8 •• AAAAAB
9
Y9
Y9 Y9YYY9
9
9
9 999
AAAAAAAAA9AAAAAAAAAA
YYYYYYYYY YYYYYYYYY9
999999999 999999999
AAAAAAAAA.AAAAAAAAAA
YYYYYYYYY YYYYYYYYYY
999999999 9999999999
AAAAAAAAAIAA80410077
YYYYYYYYY9YY
999999999 99
BTXT.AJJ •• AB •• AAAAAA
9
YBY Y9 Y9YYYY
999 9
9 9999
AADAAAAAAAAAAAGABAGF
YY99YYYYYYYYYY9Y9YQQ
99 9999999999 9 9ZZ
EA7DGA9BBOA.91GA9FBA
-Y QZY Z8 9ZY S-Y
7DEA70G-6MF.80410078
O-Y OZ Y9
9
BTXT.AJH •• A8 •• AA91AB
9
Y8R Y9 Y9 9-9
99
9
9
ODGA9QBOAPEDA.ODGA9D
9ZY l8-Y800- 9ZY R
EA66AA8JLDKl8EAAAAEH
ZY 8lQ BSY 9 9QYZYQR
9
999
9 9Z
PGBF8FPFSABASD410D79
9 9 9 9 Q 0
BWKA8ASDAAEQSD4100S0
Q8 Y S 9ZYQZ
Z 9 9
9Z
9
9Z
0
9
9
9
STXT.AJA •• A8 •• AA&AOH
9
YBO Y9 Y9 Y Z
99
9
9 9
BAIEHOOWEA2YAAIEGA9B
-Y 8Z& ZO -9 SlO l
909
KASF1AKA8G18KA8H17EJ
Y 9 Q Y 9
Y 9 lY
BTXT.AJH •• A8 •• AA&AOH
9
Y8
Y9 Y9 Y l
BAIEEA2YAAIEGA9BKA8C
-Y 8lQ -9 810 l Y 8
1AKA3D17EJBWKA8E8DAA
Q Y 8 ZYQ8 Y 8 9lY
99
9
9
9
9
0
9
9 9
BTXT.AKA •• A8 •• AA2YAA
9
Y3Y Y9 Y9 -9
999 9
9
lEGA9BKASA1AKASJ17FB
8lQ Z Y 0 Q Y 9 -9
BTXT.AKS •• AS •• AAAAIE
9
YB9 Y9 Y9-9 8
GA9BKA8MIAKA8N17EJBW
lQ l Y 9 0 Y 9 lYQS
99
9
9
9
9
9 9 Z 9
9
Z 9
Z
BTXT.AKO •• A8 •• AAEH&A
9
YB& Y9 Y90R Y
99- 9
9 ZO 9
OHHOOWAB1EGABFHOOSBO
lZ& -9 8lYQOZ& -&
BTXT.AKQ •• AS •• AABHKB
9
YBO Y9 Y9Q 9
99
9
9 Z
2K21ABIEGASFKB2K2VSO
9 9-9 SlYQQ 9 9 S899
9
9
199
199
9
E-&AOHBA1EEAS04100S1
Q Y l-Y 8lQ
l
9
9
0
lEEJBWKA8KSDAAEO&AOH
8lYQS Y 9 9ZYO& Y Z
Z 9
9Z- 9
BB1EHOOSEA2YS04100S2
-9 8lf. lQ
KAS08DKlAA8EAIAMAA91
Y 9 9 9QY 9l-Y9lY 9
NAG-92GOBBAABD41D083
9Ql 8 Z OYlY
Z9 9
9
9
9
9
8DDE1EEA2YAA1EGA9BAO
9-Q 8lQ -9 SZQ Z-£
l
Z
lO
l
9
9 9
0
9
.S2BGD92GBAABJAJ9NKl
8 9Z 89QZQ SLY 8 9
9
Z9999
o
SDGABKGOBHGAS0410084
9ZQOYl Q lY
9l
Z
8EAAAASAGACFS0410085
90Y-9 8lQQ9
99
9 9l
• ••••••••••• S0410068
ID
FB04-1
PAGE
21
DATE
EC
15JUL65
124265
11MAR66
125643
ID
F804-1
PAGE
21A
. . M£4DLt
M.
PIN 840258
PAGE,
22
ISM MAINTENANCE DIAGNOSTIC PROGRAM
IBM MAINTENANCE DIAGNOSTIC PROGRAM
F804
2B21 SCAN/2540 READER/PUNCH
F804 CHANNEL REG FLT'-ROUTINE OVERLAY 1-
F804
2821 SCAN/2540 READER/PUNCH
F804 CHANNEL REG FLT -ROUTINE OVERLAY 1NKGACMOAEAGOBKBODGEL
99lV09800VI Q 8-Z9QO
Z 9Z
Z9
Z
BC7DGODFAA8J80410086
-0 QZ QQZQ 8
Z9 9 9
Kl8EAAA88AGAC8NA8E88
9 90V-9 8Z0QO V 9 8
99
9 9Z0 9' 9
GAC4AB8EGAC-ADSEGACF
IYQ8-9 8lYQ -9 alQQR
Z
9 Z
9 9Z
AHBDGACFBODGB0410087
-9 BZQQRB-Z9
DF80DGEFGOD8ADBEGACB
008-190 Z QO-9 8Z00R
Z-9
Z
Z9
9 910
BOOGEEGOOFBODGEMGODB
8-190YZ QOB-Z90 Z 00
9
19 Z-9
Z
Z9
ABBEGACFADBE8041008B
-9 8Z000-9 8
9
9 9Z
BTXT.ALH •• AB •• AAGAOF
9
YBO Y9 Y9ZY09
99
9
9
Z
AD8AGACABODGECGODBBO
-9 8Z0008-1900Z 0089 9Z09
Z9 Z99
DGESGODBBE7DGODFBODG
Z90 Z 00-0 OZ 00S-Z9
Z9
Z99
Z
FBGODBNABEBBB04100B9
ORZ 00 V 9 B
Z
Z9 9
9
BTXT.ALO •• A8 •• AAGACK
9
YB& Y9 Y9ZYOY
99
9
9
Z9
AB8EGADSNABE8LGACSBO
-9 8Z008 V 9 9ZVOB89 9Z9 9
Z 9
DGEZGODFBDDGFCGOCOAB
Z90 Z 00S-Z908Z 00-9
1
Z-9
Z
Z
BEGACDBODGE080410090
8Z0008-Z90
BTXT.Al8 •• A8 •• AAGODB
9
Y8
Y9 Y9Z 00
99
9
9
Z9
80DGE7GODBABSKGADJAD
8-Z90 Z 00-9 9Z00Y-9
9
Z
Z9
9Z9
8KGADFBOOGEFGODBBOOG
9ZV088-Z900Z 008-Z9
FEGOOBAB8KGA80410091
09Z 00-9 9ZY
Z
Z9
BTXT.AMA •• AB •• AAD4BO
9
Y80 Y9 Y908S9 Z99
99Z 9
DGFOGODBAD8KGADDBODG
Z908Z 00-9 9ZYO-B-Z9
Z9 Z9
Z 9
FlGODBNA8E8LGAOKBODG
09Z ,00 V 9 9ZVOZS-Z9
Z
Z9 9
Z 9
FKGODFABBOGA80410092
08Z 00-9 9lY
Z9 Z-
8TXT.AMO •• A8 •• AADDBO
9
Y8Z Y9 Y90R899
9
9 Z09
DGF/GOCOAD80GADBNKGA
Z909Z 00-9 9Z00V99ZY
Z
Z
91
OFOAEAGOCMBOOGFYGODB
00800VZ 088-Z909Z 00
Z9 9Z
Z99
Z
Z9
NA8 E8lGADFAB80410093
Y 9 9ZYOO-9
9
ZO
BTXT.AMJ •• A8 •• AABOGA
9
YBY Y9 Y9 9Z0
99
9
9
9
DABOOGFXGOOBBOOGF6BO
008-Z908Z 008-Z909-0
Z09
Z9 Z99
Z
70GOOFAB80GADOBOOGF5
QZ ,QO-9 9Z00-S-Z9QS
Z9
9Z 9
Z9
GODBBODGFDG080410094
Z 008-Z90ZZ
Z99
Z
BTXT.AMO •• A8 •• AACOBG
9
Y8
Y9 Y900-0
70AJODGADKGOE.AA8EKL
Q-V 9Z00VZ 0 ZO 9 9
SEAA8EAKHEGSA-7lAA88
9QYSOY99998Z YZY 9
99999
9 9
AA7SA.70KA.AB0410095
ZO 81: - 9 Y
AOACNAG-EDBOA470NKGZlY990Z 088-Yo) -99Z
Z99'
E&B8A.OOGAED80410096
o 80- 9ZY08
Z 99
Z
G06MOAEAGOOOAAOEJAAA
Y800YZ OV9Y99VYY9
9 91
19 9 999
VAQFJAABBAOBJAAABAQL
9Y98VVY9 Y98VYY9 Y99
9 9999 9 9999 9
JAAAFAODJAAA80410097
YYY9 V99VYY9
999 9 999
BTXT.ANA •• A8 •• AAAAAM
9
Y8Y Y9 Y9YVV9
99
9
9 999
2S21.SCAN/2540T.CONT
ROL.PROGRAMERR.OOIER
R.002ERR.00380410098
BTXT.ANH •• A8 •• AAERR.
9
V80 Y9 Y9
004ERR.005ERR.006ERR
.007ERR.008ERR.009ER
R.OIOERR.Ol180410099
012ERR.013ERR.014ERR
.015ERR.016ERR.017ER
R.018ERR.019S0410100
BTXT.AOV •• A1 •• AAERR.
9
VB9 V9 Y9
99
9
9
020ERR.021ERR.022ERR
.023ERR.024ERR.025ER
R.026 ••••••• S0410101
8RLD •••••• AM •• ~.AAAA
9
YB
V9Y9
99
9 9
AAANAANJAAN/AAN/AANA
SY098V888Y8 8Y888V8R
999 999 999 999 9990
HANl ••••••••••••••••
9Y88
99
•••••••• ~ ••• 80410102
STXT.AKS •• A8 •• AAAABE
9
Y88 Y9 Y9-9 8
99
9
9
9
GACFAA8KGACFAABEGACF
BTXT.ALO •• A8 •• AAAJ9N
9
Y89 Y9 Y9ZY 8
99
9
9 9 9
BTXT.AL& •• A8 •• AAEGGO
9
YB
Y9 Y900Z
99
9
9 ZO
99
9
9 Z
IQ09-9 910Q9-9 810Q9
9Z
9
Z
BTXT.ANA •• A8 •• AAAAA3
9
Y80 Y9 Y90Yl9
999 9
0) Z9
BTXT.ANH •• A8 •• AAEA66
9
YBZ Y9 V91V- B
99
9
9
9
99-
9
9
9Z9
9 9Z
Z
9
ABNFG-EUAOABGOEDB •• B
V99ZZ 09ZlV9Z 08- 9
9
Z
0)
19
1
Z 9
9
Z
II
Z99
BEND ••••••••••• ·•••••
9
BOAT ••••••••••••••••
9
• ••••••••••• 80410103
... ..............•.
~
•••••••••••• 80410105
9 9Z 9
9 9119,
Z
BOAT •••••• ~ ••• ~ •••••
9
o
• ••••••••••• 80410106
Z
I
I
I
-------- -------r
!
9
S
9
-~--------,------'.., - - - - - - - - - - - - - - -
OATE
EC
•••••••••••• 80410104
9
BTXT.ANO •• A8 •• AAERR.
9
V8
Y9 Y9
99
9Z
PIN S40258
PAGE
22A
15JUl65
124265
17MAR66
125643
10
F804-1
PAGE
22
DATE
EC
15JUL65
124265
17MAR66
125643
LAST PAGE - - - - - - - - - - - - - - - 10
F804-1
PAGE
22A
{
0 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0' 0 0 0 0 0 0 0 0 0 0 0 0 0 0 '0 ()
0000'00000000 000000
0 0 0 .,
.
----------. ----..
I"....
-.---~-'-,"----
......- .
~
...
PIN 040260
PAGE
1
NT . . . . . . OUGNOSH< . . . . . . .
.. F8041
2821 SCAN/2540 READER/PUNCH
F805l
BUFFER ADDR FLT -ROUTINE OVERLAY 03-
! •
!.
PIN 840260
PAGE
1A
IBM MAINTENANCE DIAGNOSTIC PROGRAM
FOOItI
2021 SCAN/25ltO READER/PUNCH,
F0051
BUFFER AOOR FLT -ROUTINE OVERLAY 03-
1
Ii
,
.... ......................................................................
.....
.... MODIFICATIONS
1. BUFFER ADDR FLT -ROUTINE OVERLAY 03THIS ROUTINE WAS NOT MODIFIED.
..
2. READER TRANSLATOR FLT -ROUTINE OVERLAY 04•
THIS IS A NEW ADDITION TO THIS. PROGRAM P·ACKAGE.
•
•.
.
.ENGINEERING CHANGE PREREOUISITES
*
HARDWARE
*
...
ATTACHMENT
AT
MINIMUM
2821 CONTROL UNIT WITH 2540
"
E.C.
LEVEL
124265
•
•.
2. PROGRAM
•.
NONE
."
0051
TITLE F8051
RESCNT DC
XL4'00,'
WORK FIELD
.................................••...................
....•...•
BUFFER ADDR FLT -ROUTINE OVERLAY 037
'
1.
*
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
001000
XF,8051 START 4096
USING .,15
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
..
SECOND OVERLAY - ROUTINE 03
...........
-... _-* ....................................................
...
..
RESIDENT LABELS ADDRESSED BY OVERLAYS
SECST
SNSW
CSW
CAW
UNITI
UNIAOR
UNIT2
UN2ADR
SIOVR3
SIOVR4
SIOSWS
STATSV
CSWAG
UAPU
CSWSAV
CAWKEY
SENSE
UARD
I;X IT
EXITBY
SCHNUM
SCPOAT
SCPROO
SIO
HCAW
HCSW
MESS 1
EOU
EQU
EQU
EOU
EOU
EQU
EQU
EOU
EOU
EQU
EOU
EQU
EOU
EQU
EOU
EQU
EOU
EOU
EQU
eou
EOU
EQU
EQU
EOU
EQU
EQU
EQU
..
SECST&4
SECST&64
SECST&72
SECS'T&224
SECST&226
SECST&228
SECST&2jO
SECST&300
SECST&308
SECST&333
SECST&504
SECST&506
SECST&561
SECST&300
SeCST&332
SECST&503
SECST&557
SEC S'T& 1772
SECST&1766
SECST&1948
SECST&564
SECST&159B
SECST&744
72
64
SECST&514
ORG
DC
ORG
SEC ST&21
AL3IRTN03)
SECST&2000
.
**~** ••••••••••••• * •••• * ••••• *••••••••• * ••••••• * •• ~ •• *~.*
oeHOOO
001004
001040
001048
0010EO
0010E2
00'10E4
0010E6
00112C
001134
001140
001lF8
OOllFA
00'1231
00ll2C
001l4C
001lF7
001220
0016EC
0016E6
00179C
001234
00163E
0012E8
00'0040
00'001t0
001202
).
i
·1
001908
001700
INITIAL" PSW STARTING ADDR FOR RTN 03
.
*.* ••• * •• *.*.**.* •••••• * •••••• * •• ** •• * ••• ~.* ••••• ** ••• *~* •• ** ••• * •••• *.
VI\RIABLES FOR ROUTINE '03 - DOUBLE WORD BOUNDARY
it
...
••••••••••••••••••••••• _ •••••••••• _ •••••••••••••••• _* ••••••••••••••••••
001700
001702
001702
001701t
001706
001700
DATE
EC
00
07 00
07 00
07 00
00000000000000'00
15JUL65
lZ1t26§
17MAR66
125643
DC
X'OO'
CNDP 0, B
ALIGN ON DOUBLE WORO BOUNOARY
BCR
0,0
BCR
0,0
BCR
0,0
ERNUM DC
XLB'OD'
••••••••••••••••••••••••••••••••• _ •••••••••••• ___ ••• __ ••••••• w.w_ ••••• *
..
VARII\BLES"",,OR R'OUTINE 03 - WORD BOUNDARY
..
..\\
0000'000000(10QOOOOO
000000000000000000
000000000000000000
000000000000000000
000000000000000000
00000000000000'0000
000000000000000000
.000000000000000000
00000000000000'0000
000000000000000000
000000000000000000
00
0000000000000000
0'00000000000000000
000000000000000000
000000000000000000
000000000000000000
0'0000000000000'0000
00'0000000000000000
000000000000000000
000000000000000000
000000000000000000
OO'OOO'OOOOOOOOOOOQO
000000000000000000
00
'
0000000000000000
00
C5D9D940FOF5F140
C4C5E5C9C3C540FOFO
F04DC4C9CIC740
C3D240D9C440C4CIE3
Cl
40604009C5E2C9C4E4
CID340C3D6E4D5
E340C9E240FOFOFOFO
40E2C8D3C440C2
C540FOFOF2FO
~
..
VARIABLES FOR ROUTINE 03 - NO BOUNOARY
DRDR
OC
XLIOO'O'
READER DIAGNOSTIC CK READ DATA
RCSWAG DC
DRPU
DC
XLO'O'
XLlOO'O'
READER CSI/
PUNCH OIAGNOSTIC CK READ DATA
PCSWAG
SWITCH
ERRX
LGMSG
DC
DC
DC
OC
XL8'O'
X''OO'
C'ERR 051 '
C'DEVICE 000 DIAG '
PUNCH tsw
DC
C'CK RD DATA'
~
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
LGMSGl DC
C' - RESIDUAL CoUN'
DC
C'T IS 0000 SHLO 8'
DC
C'E 0020'
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
..
ROUTINE 03 PREFIX
..
••••• _•••• * ••••••••••••••••••••••••••••••••••••••••••••••• * •••• ••• * •••
~
001906
001906
001908·
001909
00190A
••••••••••••••••••••• * ••••••••••••••••••••••••••• * ••••• _•• * •••••• _•••• -
001015
001015
..
•••••• * •••••••
0017E4
0017ED
0017F6
0017FF
001800
001811
00181A
001623
OO182C
001835
00l83E
001847
001846
001850
001859
001862
00186B
001B74
001870
001B86
00188F
001898
0018A1
0018A4
0018B3
0018B4
0018BC
0018BD
0018C5
OD18CE
001805
00180E
00180F
0016E8
0016EF
001BF8
0018FF
.......
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
00000000
0017EO
10
F805-1
PAGE
1
l------------------.----------~-----------------------------r~.-~~------------------------~----~-. ~.~T{
lAt.J.... 1>.
01 00
03
00
FFFE
001922
001923
001924
001926 .
00192A
00192E
95 83
47 80
47 FO
91 02
47 80
OA DO
80
IF.
F DCA
91 40
47 80
45 80
001932
001938
02 01 F 234 F DE9
02 61 F 236 F 235
00190C
P01910
001914
001918
gg}!ig
OATE
EC
15JUL65
124265
~--,--,--
F 79C'
F 918
F 6EC
F 004
F 926
F 004
F 932
F 63E
l7MAR66
125643
CNOP
BCR
'RTN03 DC
DC
DC
0,4
0,0
XLl'03'
XLl'O'.i<
X'FFFE'
FULL WORD ALIGNMENT
INITOO CLI
Bt
BC
INnOl TM
BC
SVC
DC
DC
DC
INIT10 TM
BC
BAL
SCHNUM,X'83'
EOUAL,INITOI
ALWAYS,EXIT
SNSW,X'02'
ALlOFF.INITIO
X'DO'
X'80'
X'IF'
SITITLE)
SNSW,X'40'
ALLOFF ,ADCKOO
GR8,5CPROO
SEE IF SEARCHING FOR ROUTINE 03
BR IF YES
BYPASS THIS ROUTINE
,:
WANT TITLE PRINTOUT - SEC S5 06 ON
BR.IF NO
PRINT TITLE
,. N'ORMAL OUTPUT
., 31 CHARACTERS
" ADDRESS 'OF TITLE
WANT UTILITY R'OUTINE
SEC SS 01
BR I F ,NO
BR TO UTI LilY ROUTINE
ROUTINE NUMBER
FLAGS
ADDRESS OF NEXT ROUTINE
......_............ _..•.................................•.•......••••..
..
TWO DIAGN'OSTIC CHECK READS TO' READER
..*AOCKOO PERFORM
SCPDATI2),R03KOO
'CLEAR READ AREA
MVC
MVC
SCPDAT&2198l.SCPDAT&1
ft
10
FOD5-l
PAGE
1A
~~'.:"~>"'£?r!I'm'*'
1 :':,::N,.:::,s::::::I:,::~~:~,"
,
F8051
00193E
001942
001946
00194A
00194E
001952
001956
00195A
001960
001962
001963
001964
001966
00196A
001910
001916
00191A
00191E
001982
001988
00198E
001994
00199A
00199E
0019A2
0019A6
0019AA
0019AE
0019B4
001986
0019Bl
0019B8
0019BA
0019BE
0019C4
0019CA
0019CE
001902
001906
0019DC
41 10
50 10
48 CO
92 02
45 BO
91 CO
41 80
02 02
OA DO
44
2A
F 202
41 FO
02 01
02 61
45 BO
91 CO
It1 10
02 63
02 01
F
F
F
F
F
F
F
F
F
F
F
F
F
F
F
F
DBO
048
OE2
140
2E8
234
96A
212 F 220
932
234
236
2E8
234
95A
lE4
84B
F DE9
F 235
F 234
F IFA
02 01 F 234 F DE9
02 61 F 236 F 235
48 CO F OE6
92 00 F 140
45 BO F 2E8
91 CO F 234
41 BO F 9BE
02 02 F 212 F 231
OA DO
44
2A
F 202
41 FO
02 01
02 61
45 BO
91 CO
41 10
02 63
02 01
F
F
F
F
F
F
F
F
98E
234
236
2ES
234
9AE
850
8B4
F OE9
F 235
F 234
F 1FA
LA
ST
LH
MVI
BAL
TM
BC
ADCK01 MVC
SVC
DC
DC
DC
BC
ADCK10 MVC
MVC
BAL
TM
BC
MVC
MVC
••
MVC
LH
MVI
8AL
TM
BC
ADCK21 MVC
SVC
DC
DC
DC
BC
ADCK30 MVC
MVC
BAL
TM
BC
MVC
MVC
.
•
•j
DATE
EC
41
41
45
41
41
41
15
01
02
94
02
41
41
95
41
95
41
92
'02
05
41
05
10
20
30
10
20
30
12
83
00
01
00
10
FO
14
60
14
60
00
62
63
80
63
15JU1.65
124265
•
F lE4
F 9FA
F 850
LA
F 884
F A16
F 234
234
1 000
1 001
F 9FA
F 84F
F AEE
F SBB
F AFA
F 234
F 235
F lE4
F A4C
F S50
1 000
j:
F 234
F 234
F 234
F 234
LOAD CCW ADDRESS IN SEC PREF CAW
" READER ADDRESS IN GR lZ
SET
SET SIO PROGRAM SWITCHES
BR TO SID ROUTINE
WAS ANY DATA TRANSFERRED
BR IF YES
SET READER ADDRESS IN OUTPUT MESSAGE
ERROR - NO DATA WAS TRANSFERRED BY
"
DIAGNOSTIC CK RD TO READER
" 42 CHARACTERS
'f ADDRESS OF MESSAGE
GO TRY AGA IN
CLEAR READ AREA
BR" TO SIO ROUTINE
WAS ANY DATA TRANSFERRED
BR IF NO
SAVE READER DIAG CHECK READ DATA
SAVE READER CSW
SCPDATI21,R03KOO
SCPDAT&21981,SCPOAT&1
GRC,UNZAOR
SIOSWS,X'OO'
GRB,SIO
SCPDAT,X'CO'
ALLOFF,ADCK30'
MESS1&16(31,UAPU
'X'DO'
X'44'
X'ZA'
SIMESSll
ALWAYS,ADCKZD
SCPDATIZI,R03KOO
SCPOAT&2(9BI,SCPDAT&1
GRB,SIO
SCPDAT,X'CO'
ALLON,ADCK21
DRPUIIOOI,SCPDAT
PCSWAGISI,CSWAG
CLEAR READ AREA
" PUNCH ADDRES·S IN GR 12
SET
SET SIO PROGRAM SWITCHES
8R TO SIO ROUTINE
WAS ANY OATA TRANSFERRED
BR IF YES
SET PUNCH ADDRESS IN OUTPUT MESSAGE
ERROR - NO DATA WAS TRANSFERRED BY
"
DIAGNOSTIC CK RD TO PUNCH
,t 42 CHARACTERS
" ADDRESS OF MESSAGE
GO TRY AGAIN
CLEAR READ AREA
BR" TO SIO.ROUTINE
WAS ANY OAT A TRANSFERRED
8R IF NO
SAVE PUNCH OIAG CHECK READ DATA
SAVE PUNCH CSW
SEPARATE RAR, PAR. AND BAR FAILURES HERE
ADCK40 LA
LA
BAL
LA
F 84S
GR1,CRDCCW
GRI,CAW
GRC,UNIADR
SIOSWS,X'OZ'
GRB,SIO
SCPDAT,X'CO'
ALLOFF,ADCKI0
MESS1&16131,UARD
X'DO'
X'44'
X'2A'
SIMESSll
ALWAYS,ADCKOO
SCPDATI21,R03KOO
SCPDAT&ZI98J,SCPDAT&1
GRB,SIO
SCPDAT,X'CO'
ALLON,ADCK01
DRDRII001,SCPDAT
RCSWAGI81,CSWAG
PERFORM TWO DIAGNOSTIC CHECK READS TO PUNCH
•
ADCK20MVC
LA
AOCK41 CLR
BCR
MVC
NI
MVC
LA
8C
AOCK50 CLI
BC
CLI
BC
MVI
MVC
CLC
BC
CLC
IBM
MAINTEN~NCE
PIN BltDZ60
PAGE
2A
DIAGNOSTIC PROGRAM
• F8041
2~21 SCAN/Z540 READER/PUNCH
F8051
BUFFER AD OR FLT -ROUTINE OVERLAY 03-
.
BUFFER AODR FLT -ROUTINE OVERLAY 03-
i
0019E2
oo19E6
0019EA
0019EE
0019F2
0019F6
0019FA
0019FC
0019FE
00lA04
00lA08
j
OOlAOE
I
OOlA12
1 oolA16
,1' OOlAlA
'j OOlAIE
1
, oolA22
., 00lA26
~,l 00lA2A
00lA30
00lA36
001A3A
PIN 840Z60
PAGE
Z
GR1,DRDR
GR2,DRDR&lOO
GR3,ADCK41
GRI,ORPU
GRZ,ORPU&lOO
GR3,ADCK50
GRI,GR2
EQUAL,GR3
SCPDATIlI,0IGR11
SCPDAT,X'Ol'
01 l,GRll ,SCPDAT
GR1,lIGRO,GRU
ALWAYS,ADCK41
RCSWAG&7,X'14'
NEQUAL,ADCK60
PCSWAG&7,X'14'
NEQUAL,ADCK10
SCPDAT,X'OO'
SCPDAT&1(99),SCPDAT
DRDR(100),SCPDAT
EQUAL,ADCK51
DRPU(1001,SCPDAT
INITIALIZE FILTER RTN FOR READER
DR" TO FILTER ROUTINE
INITIALIZE FILTERRTN FOR PUNCH
..
BR" IF END OF FILTER
" UP OATA FOR FILTERING
SET
FILTER OUT ALL BUT ADDR ERRS
RETURN DATA
ADD I TO GR1
CONTINUE'
RESIDUAL CCW COUNT FOR RDR EQ ZO
BR IF NOT EQ
RESIDUAL COUNT FOR PUNCH EQ 20
DR IF NOT EQ - PAR PROBtEM
CLEAR COMPARE FIELD
00lA40
00lA44
00lA48
00lA4C
ODIA52
00lA5.6
001A58
001A59
001A5A
OOlASC
001A60
001A64
001A68
00lA6C
00lA70
OOIA12
001A74
00lA76
00lA7B
00lA7E
001A84.
00lA88
00lA8A
001A8C
00lA8E
001A90
00lA96
001A9C
001AAO
001AA2
00lAA6
OOlAAA
001AAE
00lAB2
00lAB6
OOlABA
OOlABE
00lAC2
00lAC6
OOlACS
OOlACA
OOlACC
OOlACE
OOlAD4
001AD6
001AD7
00lAD8
OOlADA
OOlADC
001ADD
OOlADE
0011.EO
001AE2
00lAE3
00lAE4
OOlAE6
001AEB
00lAE9
OOlAEA
OOlAEC
001AEE
00lAF2
00lAF6
47
92
47
05
47
OOlAFA
001AFE
92 40 F BBC
41 FO F CCA
O~
80
ZO
FO
63
60
00
84
10
F EB3
91 40
41 BO
45 80
91 ZO
47 80
OA 00
005A
F
F
F
F
F
B02
8BC
BOE
850 F 234
AFA
F 004
F A68
F 63E
F'004
F,AAE
07B
0234
DZ OZ
DZ 03
45 30
OA.DD
005A
0850
OZ34
02 02
02 03
45 30
OA DA
91 40
47 80
45 80
91 20
47 10
96 40
47 FO
58 00
4E 00
OA.OO
0003
0700
0101
02 03
OA DO
80
40
F 8C5
OA DO
80
3C
F 234
OA DO
80
3C
F 210
OA DO
80
3C
F 2AC
01 F3
95 14
41 60
41 FO
F 8CC F 220
F 7E2 F 84E
F ABE
F 8tC F231
F lEZ F 8BA
F ABE
F
F
F
E
F
004
AAE
63E
lA3
6EC
F 7,9C
F 6EC
F7EO
F lOS
F SF4
01
F 108
BC
AOCK53 L
CVO
SVC
DC
DC
'. DC
MVC
. SVC
DC
DC
DC
SVC
DC
DC
DC
SYC
DC
DC
DC
SVC
DC
DC
F 8BB
F BOA
F B02
DC
SCR'
ADCK60 CLI
BC
Be
EQUAL,ADCK80
SWITCH,X'ZO'
ALWAYS,ADCK90&4
DRPUI1001,SCPDAT
NEQUAL,ADCK70
X'DO'
X'84'
X'10'
SINOERRI
SNSW,X'ItO'
ALLOFF,*&B
GR6,SCPROO
SNSW,X'ZO'
ALLOFF,PERT
X'DD'
.Al2(90)
AL2IDRDR-SECSTl
ALZISCPDAT-SECST)
LGMSG&7t3I,UARD
RESCNT&2,RCSWAG&6
GR3,AOCK53
X'DD'
ALZ(90)
AL210RPU-SECSTl
AL2ISCPDAT-SECSTI
LGMSG&1 (31, UAPU
RESCNT&2,PCSWAG&6
GR3,ADCK53
X'DA'
SNSW,X'40'
ALLOFF,*&8
GR8,SCPROO
419IGREI.X'20·
ALLON,EXIT
SCHNUM,X'40'
ALWAYS,EXIT
GRO.RESCNT
GRO,ERNUM
X'OD'
AL213'
AL2(ERNUM&5-SECSTI
AL2IERNUM-I-SECSTJ
LGMSG1&21'4t.ERNUM
X'DO'
X'80'
X'40'
S(LGMSGI
X'DO'
X'60'
X'3C'
SI SCPDATI
X'OO'
X'80'
X'3C'
S(SCPDAT&601
X'DO'
X'80'
X'3C'
'SI SCPDAT&l20)
ALWAYS,GR3
PCSWAG&7,X'14'
NEQUAL.ADCK90
AlWAYS,ADCKS.O
BR IF NO - READER BAR PROBLEM
SET UP TO LOOK FOR FALSE ADDR CHECKS
BAR PROBLEM
SEE IF ANY ADDR ERRS FOR PUNCH
BR IF YES - PUNCH BAR PR08LEM
PRINT. NO ADDRESSING ERRORS DETECTED
"NORMAL OUTPUT
t' 16 CHARACTERS
" ADDRESS OF MESSAGE
SEE IF WANT UTILITY ROUTINE
BR IF NO
BR IF YES
SEE IF WANT LOG-OUT
8R IF NO
•
CONVERT READER CK RD DATA TO EBCDIC
NO OF DIAG CK READ 8YTES
DIAG READ DATA AODR
EBCDIC DATA ADDR IN OUTPUT MESSAGE
SET 'READER AODR IN OUTPUT MESSAGE
SAVE READER RESIOUAL COUNT
GO PRINT READER DUG CK READ DATA
CONVERT PUNCH CK RD DATA TO EBCDIC
NO OF DIAG CK READ BYTES
DUG READ DATA ADDR .
EBCDIC DATA ADDR IN OUTPUT MESSAGE
SET PUNCH ADDRESS IN OUTPUT MESSAGE
. SAVE PUNCH RESIDUAL COUNT
GO PRINT PUNCH DIAG CK READ DATA
HALT & WAIT FOR ACTION
SEE IF WANT UTILITY ROUTINE
BR IF NO
BR IF YES
IS LOOP ON SEC SS ON
BR IF YES
SET UP TO BYPASS ALL REMAINING OVLYS
ROUTINE EXIT
LOAD RESIDUAL COUNT IN GR 0
CONVERT RESIDUAL COUNT TO DECIMAL
CONVERT RESIDUAL COUNT TO PRINTASLE
., 3 HEX BYTES
' t HEX DATA ADDRESS
" PRINTABLE DATA ADDRESS
LOAD RESIDUAL COUNT IN MESSAGE
PRINT RDR/PCH DIAG CK RD DATA
t' NORMAL. OUTPUT
" 64 CHARACTERS
., AOORESS OF MESSAGE
.. FIRST 30 BYTES OF DUG Cit RD OAT
., NORMAL OUTPUT
" 60 CHARACTERS
" ADDRESS OF MESSAGE
" SECOND 30 BYTES
" NORMAL OUTPUT
'.' 60 CHARACTERS
" ADDRESS OF MESSAGE
" LAST 30 BYTES
" NORMAL OUTPUT
,. 60 CHARACTERS
., ADDRESS OF MESSAGE
RETURN
RESIDUAL CCW COUNT FOR PUNCH EQ 20
BR IF NO - 8AR PROBLEM
RAR PROBLEM
•••••••• ** ••• ** ••••••••••••••••••••••••••••••••••••••••••••••••••••••• ,
•
COME HERE IF PAR
••••••••••••••
*-••••••••••••••••••••••••••••••••••••••••••••••••••••••••
PRO~LEM·
II
SEE IF ANY ADDR ERRS FOR READER
BR IF NO
SEE IF ANY ADDR ERRS FOR ~UNCH
17MAR66
125643
BC
MVI'
.BC
ADCK51 CLC
BC
SVC
DC
DC
DC
ADCK52 TM
BC
BAL
TM
BC
SVC
DC
DC
DC
MVC
MVC
BAL
SVC
DC
DC
DC
MVC
MVC
BAL
SVC
TM
BC
BAL
PERT
TM
BC
10
F805-1
PAGE
Z
DATE
EC
15JUL65
124265
: ADCK10 MVI
BC
SWlTCH,X'ltO'
ALWAYS,ADCKBO
TURN ON PROGRAM PAR SWITCH
GO FIND PAR PROBLEM
11MAR66
125643
10
FSOS--l
PAGE
2.
;.1
~------~--~------------------------------------------~--------~(,lJ'}..,(),
0·0'0'0 0·0· 0 0'0 0 0 0 0 0 0 0 0 0
o
0 0
dono
0 0
do
ad o~a
0000000000_0000000000000000000000IBM MAINTENANCE DIAGNOSTIC PROGRAM
* •• ***.*.*~* •• *.**~** •• ** •• *.** •• ** •• ~§**** •••••• ***** ******.*.*_._****
*
COME HERE IF RAR PROBLEM
*
001BOA
OOIBOE
001B12
001B16
001BIC
001B20
001B26
001B2A
001B2E
001B32
001B36
001B3A
001B40
001844
00184A
001B4E
001B52
001B56
001B5A
00IB5E
001B62
001B66
001B6A
001B6E
001B72
001B76
001B7A
001B7E
001884
001B88
001B8C
001B90
001B94
001B98
00189C
001BA2
001BA6
001BAA
OOlBAE
001&B2
001BB6
001BBA
OOlBBE
001BC2
001BC6
001BCA
001BCE
001B02
001804
001B06
001BOA
OOlBEO
0/HBE2
001BE6
0018eA· .
OOlBEC
00lBFO·
92 BO F BBC
47 FO F CCA
92
45
92
02
92
05
47
41
45
47
41
05
47
05
47
45
47
91
47
41
50
48
92
45
91
47
92
02
41
50
92
45
91
47
05
47
41
45
47
41
45
47
00
BO
00
62
01
59
60
90
AO
FO
90
01
60
01
60
AO
F
F
F
F
F
0
F
F
0
F
F
F
F
F
FO F
F
20
80
10
10
CO
00
BO
01
10
00
4E
10
10
02
80
01
10
4F
60
90
AO
FO
90
AO
FO
F
F
F
F
F
F
F
F
F
F
F
F
F
F
F
F
F
F
0
F
F
0
F
F
234
235
2BO
234
B36
OBI
CBC
C9E
063
OC8
B56
OC8
B56
CBC
C9E
BBC
BB2
OB8
04B
OE6
140
2E8
140
90C
234
235
OCO
048
140
2E8
140
90C
234
BB2
086
CBC
C9E
032
CBC
C9E
******.************.******.*** •• **.~****** •• *** •• **.** *********.*** ••• **
AOCK80 MVI . SWlTCH,X'80'
TURN ON PROGRAM RAR SWITCH
.
BC
ALW,\YS,ADCK80
GO FIND RAR PROBLEM
••• *.**.******~****.*.****.******* •••• * •• **.** •• *****~*.*.****~**.* •• *~
I<
COME HERE IF BAR PROBLEM
..
.............. * *... * *-t:.• * .. *** ... *****.*.·ItO"3-*", *it_.***- .. ...... ............. -I; ............ * .. ........ ** ....... ~*
AOCK90 MVI
SWITCH, X' 00'
TURN ON PROGRAM BAR SW IT CH
GRB,ALOCOO
GO SEE IF CAN FINO BARPROBLEH
BAL
SCPDAT,X'OO'
SET COMPARE FIELD TO ZEROS
MVr
SCPOAT&1(99).~CPDA'
MVC
SCPOAT&89,X'OJ.'
SET UP FOR ERROR 129
MVI
SCPOA Tl90l,DRDR
SEE IF TliiS PATTE.RN COMPARES
CLC
NEQUAL ,ADCK91
BR IF NO
SET UP ERROR NUM8ER
GR9,129
LA
GRA,ALOC6D
GO SET UP PRINTOUT
BAL
AlWAYS,ADCKAO
GO
PRINT BAR PROS 129
BC
GR9,99
SET UP ERROR 099
ADCK9i LA
COM50(21,RCSWAGt6
SEE IF READER RESIDUAL COUNT IS 0050
CLC
NEQUAl,ADC,K92
BR IF NO
BC
COM50(21,PCSWAG&6
SEE IF PUNCH RESIDUAL COUNT IS 0050
CLC
NEQUAL,AOCK92
BR IF NO
BC
BAL
GRA,ALOC60
GO SET UP PRINTOUT
BCo
GO PRINT BAR PROBLE·M 009
ALWAYS,AOCKAO
SEE OF POSSIBLE FALSE ADDRESS CHECKS
ADCK92 TM
SWITCH,X'20'
ALLOFF,ADCK93
BR IF NO
BC
GRl,PUWCCW
LOAD CCW ADDRESS IN SEC PREF CAW
LA
GRl,CAW
ST
LOAD CCW ADDRESS IN SEC PREF CAW
GRC,UN2ADR
SET PUNCH ADDR IN GR 12
LH
seT SID PROG SWITCHES FOR PUNCH
MVI
SIOSWS,X'OO'
GRB,SIO
BAL
BR TO SIO ROUTINE
.TM
SEE IF GOT INTERV REQ
SIOSWS,X'Ol'
AllON,INnoo
RE~TART SECTION IF YES
BC
MVI
SCPOiH,X'OO'
CLEAR READ FIELD
SCPDAT&U79J .SCPDAT
CLEAR READ FIELO
MVC
GRI,PURCCW
LOAD CCW AOORESS IN SEC PREh CAW
LA
GRl,CAW
LOAD CCW ADDRESS IN SEC PREF CAW
ST
SIOSWS,X'02"
SET SID PROGRAM SWITCHeS
MVI
SR.·TO SIO ROUTINE
BAL. oGRB. SIO
SEE IF GOT INTERV REQ
TM
SIOSWS,X'Ol'
ALLON oINITOO
RESTART SECTION IF YES
BC
SCPOAT(80)'SIO
SEE IF DATA READ OK
CLC
NEQUAL.AOCK93
BR IF NO'
BC
GR9,134
SET UP ERROR NUMBER 131t
LA
GO SET UP PRINTOUT
BAL
GRA.ALOC60
ALWAYS,AOCKAO
GO PRINT aAR PROB 134
BC
AOCK93 LA
SET UP ERR 050
GR9.50
GO SET UP PRINTOUT
BAL . GRA,ALOC60
GO PRINT BAR PROB Q50
ALWAYS,AOCKAO
B.C
*.
F BBC
F BBE
f 234
F rE4
F B4E
F BBA
F 234
F 2E8
41 10 0 033
41 90 0 033
41 20 F E4F
Itl 30 F EB3
41 40 F DEB
15 43
07 8B
92 00 F 23.4
02 62 F 235 F 234
15.42.
4740 F C36
41 50 F E71
15 45
1t7 60 FBFB .
92 OlF 235
..
Be
••
•ALOCOO
PAGE
640260
3A
* FS041
2821 SCAN/2S4a READER/PUNCH
FaOS1
BUFFER AOOR FLT -ROUTINE OVERLAY 0)-
• FB041
28~1 SCAN/2540 READER/PUNCH
FeOSl
nUFFER AGDR FLT -ROUTINE OVERLAY 0)-
001B02
00Ul06
PIN
IBM MAINTENM'lCE DIAGNOSTIC PROGRAM
PIN 640260
PAGE·
.3
ROUTINE TO LOCALIZE BAR. PA.R, OR RAR PROBLEMS
LA
LA
LA
LA
LA
ALOCIO'CLR
. . .. BCR
·Mvi
liIvc
GRl.51
GR9,51
GR2,BTAON
GR3,·BTEOFF.UO·
GR4,BUAON .
GR4,GR3.
EQUAL;uR8
'....
SCPO'&' T.x"oil·· ,.. . ....
INITIALIZE ROUTINE
t, START WITH ERR 051
.. DEFINE START OF TENS BAR PATTERN
H
DEFlNE END OF.TENS·SARPATTERNS
. Of .aeFINE, STARTOFU·NI.TS,8AR PATTRN
SEE)F .END OF BAR PATTERNS
-sil fFYES .
..
S.J;TCOl!!I'ME HELO' TO· ZEROS·
.GR.4"GiI.;! ..
'.
low,A(OC40· ...
GR5iB'rCON.·
·.GRVt;·G~5 .
HEQUAL,ALOC20
s:e:E lFUNIlS BARPAT'rERN,S
8R IF YES
.. .
SEE IF TEN..,C.-ON)'AlTERN
SCPDH~U~'.it"~CPOATi
. CLR
Be .
LA
eLR
BC
MIH
-
,. ,:
~.
'.' Blr IF NO:.
...
.
..
SETUP COMPARE ·FtELOfORTENS~C.ON
·SCPOAT&1tX·Ol~
I
I
i:
001BF4
OOlBFS
OOlBFC
001COO
001C04
001C06
DOlCOA
OOlCOE'
OOlC12
001C16
OOlCIC
001C20
001C22
001C26
001C2A
00lC2E
001C32
001C36
OOlOC
001C42
001C46
001C4A
001C4E
001C52
OOlC56
001C54
OOlCljE
001C62
001C66
001C6A
001C6E
001C72
001C16
001C7A
001C7C
OOlCBO
001CB6
001CBA
001C90
OOlC92 .
001C96
001C9A
001C9E
001CAO
OOlCAl
001CA2
001CA4
001CA8
001CAA
OOlCAB
OOlCAC
001CAE
001CB2
001CB4
001CB5
'001CB6
001CB8
OOlCBC
··OOlCCO
001ce2 .
001CC4
001CC6
00lCC8
OOICCA
. 001CCE
001C02
001C06
001COA
47
41
41
41
FO
50
60
10
Be
F C42
4 OOA
... 000
F 234
15 56
41 80 F C42.
01 6 000
47 80 F C2A
92 01 7 000
D2 OB 7 001 7
41 00 F EBB
15 40
47 60 F C2A
.92 01 F 266
41 70 7 OOA
41 60 6 001
47 FO F C04
02 09 F 234 4
02 4F F 23E F
1t1 80 F C9E
41 90 1 000
91 CO F 8BC
47 80 F C72
91 BO F 8BC
47 10 F CM
41 80 8 014
41 90 9 002
41 10 F 850
47 FO F C76
41 80 8 OOA
41 90 9 001
41 70 F 1E4
45 AO F CBC
15 42
.47 40 F CBA
05 4F F 235 7
47 FO F C90
05 4F' F 234 7
07 88
41 10 1 003· .
41 40 4 OOA
47 FO F S02
OA DO
44
07
F 8BO
47 FO F ASC
OA DO
44
07
F 8BO
47 FO F A5C
OA 00
44
07
F BSO
47. FO F A5C
4E. 90 F70B
OA DO
0002
070E
·08Cl
07 FA·
4.5 BO F BBE
41 10 0 06F
41 90 o 06F
92.01 F··234
oZ 62 F 235 F
'H
000
000
234
000
000
GO CO~lPjlRE
ALWAYS,ALGC5C
INITIALIZE TENS LOAD COMPARE
GR5,lOIGRO,GR4)
GR6,O(GRO.GR41
.,
GR7, SCPDAT
GR.5,GR6
SEE IF END OF TENS LOAD
EQUAL,ALOC50
BR IF YES - GO COMPARE
SEE IF LOAD TEN ADOR ERRS IN CMP FLO
01GR61,X'01'
AlLOFF,ALOC30
aR IF NO
LOAD TEN AOOR ERRS
OIGR7l ,X'Ol'
1I9,GR7I ,01GR7l
" IF TENS 0 ON PATTERN
GRO,BTDON
SEE
. GR4,GRO
••
NEQUAL,ALOC30
f. SET UP FOR TENS 0 ON
SCPOA T&50,l(,Ol'
,. SET UP FOR TENS 0 ON
GR7,10(GRO,GR11
UPDATE ADDRESSES
GR6,1 IGRO,GR61
AL WAYS, ALOC2l
CONTINUE
LOAD UNITS PATTERN
SCPOATIIOI.0IGR41
SCPDAT&lOI80I,SCPOAT
Of
GRB,AOCKAO
INITIALIZE ERR BRCH AOOR
GR9,OlGRO,GRlI
INITIALIZE ERROR NUMBER
Sill TeH, x'CO'
SEE IF RAR OR PAR PRUBLEM
ALLOFF,ALOC52
SR IF NO. - GO COMPARE
SWITCH,X' 80'
SEE IF RAR PROBLEM
ALLON,ALOC51
BR IF YES
GR8,20lGRO,GR81
SET ERROR BRCH FOR PUNCH
GR9,2(GRO,GR91
SET ERROR NUMBER FOR PUNCH
GR7,DRPU
.
SET UP TO COMPARE TO PUNCH DATA
Go. COMPARE PUNCH DATA
ALWAYS,ALOC53
GRB,lO!GRO •. GR81
SET ERROR BRANCH FOR READER
GR9.lIGRO,GR9i
SET ERROR NUMBER FOR READER
GR7.0ROR
SET UP TO COMPARE TO READ DATA
SET UP ERROR NUMBER
GRA,ALOC60
seE IF UNITS BAR PATTERNS
GR4,GR2 .
LOW,ALOCS4
SR IF YES
COMPARE DATA -TENSSCPDAT&1IBOl,OIGR71
ALWAYS,ALOC.54&6
COMPARE DATA -UNITSSCPOATIBOI,OIGR1)
EQUAL,GRB
PRINT ERROR IF PATTERN EQUAL
UPDATE ERROR NUMBER
GRl,3IGRO,GRll
LA.
GR4,lOlGRO,GR41
UPDATE PATTERN ADDRESS
LA.
ALWAYS,ALOCIO
CONTINUE
BC.
PRINT - BAR PROBLEM - ERROR NUMBER
ADCKAO. SVC
X'OO'
DC
X'44'
" I N BYTE 3 OF GR 9
OC
·0' 7 CHARACTERS
X'07'
SIERRX)
DC
" MESSAGE ADDRESS
GO SEE .IF WANT UTILITY RTN OR LOGOUT
BC
ALWAYS.ADCl<52
. .
SVC· X'OO'
PRI NT - RAR PROB.LEM - ERROR NUMBER·
, ,IN BYTE 3 OFGR 9
IJC
X'44'
" .1 CHARACTERS .
DC
X'07'
to MESSAGE· ADDRESS
SIERRX)
DC
ALWAYS,AOCK52
GO SEE IF WANT UTIUTY RTN OR LOGOUT
BC
X'OO·'
PRINT.- PAR PROBLEM - ERROR NUMBER
SVC
DC
X'44'
" IN BYTE 3 OF GR 9
DC
)('07'
' f 7. CHARACTERS
S(ERRX)
~C.
' f MESSAGE ADDRESS
GO SEE IF WANT UTILITY RTN OR LOGOUT
.
ac
ALWAYS,AOCK52
GR9,ERNUH
CONV.ERT .ERRORNl!f.\aE.R TO DECIMAL
AlOC60
.
svc X'DO.'·
CONVERT .ERROR NUMBER. TO EBCDIC
..
,,2·i'lE:XBYTES
AL2:t-21·
OC
" t · i'tE)(OAT·A AOORESS
DC
AL2(E.RNUMt;6-SECST i
. A12·(ERRX:&4:"SEcsn·
tf.EBCDICOATA AtlORESS
oC
.
.
. RETVRN'TOPRO\>,RAM
..
.... ~CR "Al;wA,ys.,GRA
. AOCKBOBAL . :GRBoALo.CO(l
GO FINORAROR PAR PROBLEM
. LA
GRl.t111 ,.
.INITIALIZE ERR(iR I\IUM8~R
LA· . GRc},.ll1
SET UP COMPARE DATA .FOR ERR lUlU;!
MVI
SCPOATlX'Oli '
MVC . SCPOATU (99 h SCPPA!
tt
ALOC20 l.A
LA
LA
ALOC21 ClR
BC
TH
Be
MVI
MVC
LA
CLR
BC
MVI
ALOC30 LA
LA
BC
ALDCItO MVC
MVC
ALOCSO LA
LA
TM
BC
TM
BC
LA
LA
LA
BC
ALOCS1 LA
LA
ALOC52 LA
ALOC53 SAL
CLR
BC
eLC
BC
ALOC51t CLC
BCR
Q
..
.,
..
evo·
..
234
, ..
DATE
EO
15JUL65
121t265
17MAR66
125.643
10
..
PAGE
' ..1
4 ; .,
,;;S
y¢J&M$.
>.1
DATE
EC
15JUL65 .• i7MAR66
125643.
124265
10
PAGE
F80!i~1
:JA
, ..
,i'
;,
t··
~
t.:,.
:i"':'
"
,.,:
PIN 6402'60
PAGE
IBM MAINTENANCE DIAGNOSTIC PROGRAM
"
2821 SCAN/254D READER/PUNCH
" FaD41
BUFFER AOOR FLY -ROUTINE OVERLAY 03F8DSl
OOICEO
aOlCE4
001CE8
OOlCEC
OOlCFO
00lCF4
OOlCFB
OOlCH
001002
001006
OOIOOC
001010
001014
0010lA
OOIDIE
0010Z2
001028
00102C
001030
001036
00103A
00103E
001042
001048
00l04C
001050
001056
0010511.
00105E
001062
001068
00lD6C
00lD70
001014
001078
00107C
001080
001084
001088
00lD6e
001090
001094
001098
00109C
0010AO
001011.6
0010A8
0010AC
45 20 F
41 90 1
92 00 F
92 00 F
'.5 20 F
41 90 1
02 01 F
45 20 F
41 90 1
02 01 F
45 20 F
41 90 1
02 16 F
45 20 F
41 90 1
02 13 F
45 20 F
41 90 1
02 62 F
45 20 F
41 90 1
92 01 F
02 06 F
45 20 F
92 01 F
02 62 F
92 00 F
41 90 1
45 20 F
02 07 F
41 90 1
45 20
41 90 1
91 SO F
47 1'0 I'
41 90 9
47 1'0 F
41 70 F
41 60 F
91 80 F
47 10 F
41 70 7
41 60 F
41 90 9
05 63 F
07 62
45 AO F
07 F7
"
084
002
234
235
084
004
236
084
006
238
084
008
23A
084
OOA
251
084
OOC
235
084
OOE
234
235
084
234
235
234
013
084
235
015
084
010
SBC
DAB
001
DA8
CA8
7E4
BBC
DAO
OOA
850
001
234
BAL
lA
MVI
MVI
SAL
LA
MVC
BAl
lA
MVC
BAL
lA
MVC
8Al
lA
MVC
BAl
LA
/IIVC
BAl
F 234
F 234
F 234
F 234
,,'234
LA
MVI
MVC
I:IAL
MVI
Mve
MVI
lA
Il'AL
MVC
lA
BAl
lA
TM
BC
LA
BC
F 234
F 234
F 234
6 000
CSC
AOCKBl LA
LA
TM
BC
lA
LA
lA
AOCKB2 ClC
BCR
AOCKB3 BAL
BCR
GR2.AOCKBl
GR9,2 (GRO,GRlI
SCPDAT,X'OO'
SCPOAH;l,X'OO'
GR2,ADCKBl
GR9.4[GRO,GRlI
SCPDAT&2[2I,SCPOAT
GR2.ADCKB1
GR9,6 (GRO',GRII
SCPOAT&4(21~SCPDAT
GR2,II0CKBl
GR9,8(GRO,GRll
SCPOAT&6(Z3),SCPoAT
GRZ,ADCKBI
GR9, tOI GRO,GRlI
SCPDAT&29(20),SCPDAT
GR2,AOCKtH
GR9tl2(GRO,GRll
SC~DATGlI991,SCPoAT
GR2,AoCKBl
GR9,14IGRO,GRl)
SCPDAT,X'Ol'
SCPDATG1(7),$CPOAT
GR2,AOCKBl
SCPDAT"X'Ol'
SCPDAT&1199I,SCPDAT
SCPOAT,X'OO'
GR9,19IGRO,GRll
GR2,AOCKBl
SCPDAT&lIBI,SCPOAT
GR9, 211 GRO,GRlI
GR2,ADCKBl
GR9,16(GRO,GRll
SWlTCH,X'BO'
ALWAYS,ADCK£l3
GR9,lIGRO,GR91
ALWAYS,ADCKS3
GR7,AOCKAO&lO
GR6,ORDR
SWITCH,X'SO'
AllON,AOCKB2
GR1,10(GRO,GR1)
GR6,ORPU
GR9,1IGRO,GR9)
SCPOATIIOOI,OlGR61
NEQUAl,GR2
GRA;AlOC60
AUIAYS,GR7
.. FaD41
2821 SCAN/2540 READER/PUNCH
BUFFER AOOR FlT -ROUTINE OVERLAY 03F8051
OOlEOS
001E09
001 El2
OOlEl3
OOlEIC
OOlEIO
001E26
001E21"
001E30
001E31
001E3A
001E3B
00lE44
001E45
001E4E
001E4F
001E58
OOlE59
001E62
00lEb3
OOIEbC
001E6o
001E76
OOIE71
00lE80
00lE81
001E8A
00lE8B
001E94
001E95
001E9E
00lE9F
OOlEAB
001EA9
00lEB2
OOlEB3
OOlEBC
GO COMPARE
UPDATE ERROR NUMBER
SET UP COMPARE DATA FOR ERR 113/114
GO" COMPARE
UPOATE ERROR NUMBER
SET UP COMPARE OATA FOR ERR U5/116
GO COMPARE
UPDATE ERROR NUMBER
SET UP. COMPARE DATA FOR ERR 117/118
GO COMPARE
UPOATE ERROR NUMBER
SET UP COMPARE DATA FOR ERR 119/120
GO COMPARE
UPDATE ERROR NUMBER
SET UP COMPARE FOR ERR 121/122
GO COMPARE
UPDATE ERROR NUMBER
SET UP COMPARE DATA FOR ERR 1231124
GO COMPARE
UPDATE ERROR NUMBER
SET UP COMPARE DATA FOR ERR 125/1'26
.,
GO COMPARE
SET UP COMPARE DATA FOR ERR 1301131
..
"
SET UP ERROR NUMBER
GO COMPARE
SET UP COMPARE DATA FOR ERR 1321133
SET UP ERROR NUM8ER
GO COMPARE
UPDATE ERROR NUMBER.
SEE IF READER
BR IF YES
UPDATE ERROR NUMBER FOR PUNCH
GO PRINT PU~CH ERROR
INITIALIZE BRANCH
SE1 UP TO COMPARE TO READER DATA
SEE IF READER
BR IF YES
SET UP PUNCH BRANCH ADDRESS
SET UP TO COMPARE TO PUNCH DATA
UPDATE ERROR NUMBER fOR PUNCH
COMPARE OAT A
8R IF NOT EQUAL,
GO CONVERT ERROR NUMBER TO DECIMAL
GO PRINT ERROR NUMBER
01
000001010001010000
00
010101010000010000
01
000000000101000101
00
000101010101000001
00
0.10000000000010100
01
010000010101010100
00
OOOlOlOoobooo~OOOl
01
010000010000010101
00
000101000101000000
00
010101000001000001
00
000000010100010100
00
010000000000000000
00
000000000001010001
00
000001010100000000
00
010100000000000101
00
000100000101010101
00
OlOBOIOIOOOOOOOOOO
00
050640C5D909E240C4
C5E3C5C:3E3C5C4
000000
000001
00'0002
000003
000004
oaOO05
000006
00'0007
00000.8
000009
OO'OOOA
OOOOOB
OOOOOC
000000
OOOOOE
OOOOOF
** •• ********************.******.*.*************************.****.******
CCW.S USED BY ROUTINE 03
0010BO
001088
OOlOCO
C6 001234 2000 0064
01 OOl2E8 ZOOO 0050~
C2 001234 2000 0050
"*.****.**.*.*»******~.*********************.*******.** ******.*.*.******"
CROCCW CCW
PUWCCW CCW
PURCC\; CCW
X'C6',SCPOAT.X'ZO',lOO OIAG CK READ CCW - SILl ON
X'Ol',SIO,X'20',80
WRITE PUNCH BUFFER - SILl ON
X'CZ',SCPOAT,X'20',80 READ PUNCH BUFFER - SIll ON
.
****.****.**************.****** •• *.*********.********************** ••••
I
A
'J
1
I
.1j
JI
1
0010C8
OOIOCA
001003
00100A
OOlDE3
OOlOE9
OOlDEB
OOlDF4
0010F5
OOlOFE
OOlOFF·
DATE
EC
0032
F2F8F2F140E2C3CID5
61F2F5F4F06B40
C2E4C6C6C5D940CIC4
C40940C603E3
0000
000001000001010101
01
010100010100000000
00
010100000100000101
15JUl65
1:24265:
17MAR66
125643
CONST4NTS FOR ROUTINE 03 - NO BOUNDARY
"**.******.*.********»***********.*****.*
•• **** •• *.* ••• *****************
COM50 DC
X'003Z'
,
C'2821 SCAN/2540,
. TITLE DC
DC
X'OOOO'
X'OOOOOlOOOOOlOlOlOlOl'
BUAOFF DC
X'OlOlOO01010000000000'
BUBON
X'OlOlOOOOOlOOOOOlOl01'
DC
10
f805-1
PAGE
4
BUBOFF DC
X'OOOOOlOlOOOlOlOOOOOO'
BUCON
DC
X'OlOlOlOlOOOOOlOOOOOl'
SUCOFF DC
X'00000000010100010100'
BUOON
DC
X'OOOlOlOlOlOlOOOO0100'
BUDOH DC
X'01000000000001010Qoi'
BUEON
DC
X'01000001010101010000'
BUEOFF DC
X'OO010100000000000101'
BTAON
OC
X'OlOOOOOlOOOOOlOlOlOO'
BTAOFF DC
X'OOOlOlOOOlOlOOOOOOOO'
BTBON
DC
X'OlOlOlOOOOOlOOOOOlOO'
BTBOFF DC
X'00000001010001010000'
8TCON
DC
X'01000000000000000000'
BTCOFF DC
x'oooooooOOOOI'OlOOOlOO'
8TOON
DC
X'OOOOO101010000000000'
BTOOFF DC
X'OlOlOOOOOOOOOOOlOlOO'
BTEON
DC
X'OOO10000010101010100'
BTEOFF DC
·X'01000101000000000000·
NOERR
DC
C'NO ERRS DETECTED'
**************.**************** •••• *** •• ***** ••• *.**** ••••••••••• *** •••
.**** ••******************.**********.**
..
GENERAL REGISTER EQUATES
•••••••••••••••• ********.*.-***.*
GRO
GRI
GR2
GR3
GR4
GR5
GR6
GR1
GR8
GR9·
GRA
GRB
GRC
GRO
GRE
GRF
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
0
.
CONDITION CODE EQUATES
ALlOFF
ANYON
ALlON
MIXED
NMIXEo
EQUAL
NEQUAL
LOW
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
.
*******************************************.*******************.*******
000078
000008
000005
000001
000004
000009
000008
000006
000004
C'BUFFER AODR FlT'
R03KOO DC
BUAON DC
PIN 840260
PAGE
4A
16M MAINTENANCE OIAGNOSTIC PROGRAM
DATE
EC:
15JUl65
124265
11MAR66
125643
******************************* •••• *****************.* •• ****** •••• * •• **
EQU
HION
120
HAROWARE I/O NEW PSW LOCATION
8
5
1
4
9
8
6
4
ALL OFF
ANY ON
All ON
MIXED
NOT MIXED
EQUAL
NOT EQUAL
lOW
0
1
3
:3
1
0
0
:3
1 2
1
10
F805-1
PAGE
404
1
t
<
14·
() 0 0 0 0 0 0 0 0 0 0 0 0 0 0: 0 0 0 0 0 0 0 0 0 0 0·0 0 0 0 0 0 00
000
o
o
0000
000000000
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PIN
840260
PAGE
5
• F8041, 2821 SCAN/2540 READER/PUNCH
FBOS1
BUFFER ADDR FLT -ROUTINE OVERLAY 03000002
0(70008
000002
0(70008
0(70004
0(70002
OOOOOF
000000
000007
000004
OOOOOC
HIGH
ZERO
GZERO
AVAIL
CSWST
BUSY
ALWAYS
NOTBSY
NZERO
NOTZRO
MIXNON
Eeu
EeU
EeU
EeU
EeU
EQU
EQU
EQU
EQU
EeU
EeU
-IBM MAINTENANCE DIAGNOSTIC PROGRAM
• F8041
~8051
HIGH
ZERO
GREATER ZERO
AVAILABLE
CSW STORED
BUSY
UNCOND I TI ONL
NOT BUSY
NOT CC 0
NOT ZERO -ANDMIXED OR NONE
2
8
2
8
4
2
15
13
7
4
o oooooooooo_eoo_
2821, SCAN/2540 READER/PUNCH
8UFFER ADDR ri,L T -ROUT INE OVERLAY 03-
2
o
"
*
2
o
"
•
...
•"
..
•
•
,.
•
•
•
•
...
•
•
•
•
•
•
•
..
..
•
"
•
..
•
"
..
•
..
•
..
•
..
...
•
..
•
•
•
..
•
1
2
o 12;3
o
1
3
123
i
12
o 1
.....•................................................
_............... .
•
ERROR NUMBER LIST FOR ROUTINE 03
•
................................................. * •••••••••••••••••••••••
•
ERROR 050 - BAR PROBLEM. ERROR PATTERN C~NNOT 8E IDENTIFIED~
•
PROBLEM MAY BE INTERMITTENT.
•
ERROR 051 - BAR UNITS A OUTPUT ALWAYS ACTIVE.
"
ERROR 052 - RAR UNITS A iNPUT TO BAR ALWAYS ACTIVE.
•
ERROR 053 - PAR UNITS, A INPUT TO 8AR ALWAYS ACTIVE.
"
ERROR 054 - BAR 'UNITS, A OUTPUT NEVER ACTIVE.
"
ERROR 055 - RAR UNITS A INPUT TO BAR NEVER ACTIVE~
"
ERROR 056 - PAR UNITS A INPUT TO 8AR NEVER ACTIVE.
•
ERROR 057 - BAR UNITS B OUTPUT ALWAYS ACTIVE. '
•
ERROR 058 - RAR UNITS'B INPUT TO BAR ALWAYS ACTIVE~
•
ERROR 059 - PAR UNITS 8 INPUT TO BAR ALWAYS ACTIVE.
•
ERROR 060 - BAR UNITS B OUTPUT NEVER ACTIVE.
"
ERROR 061 - RAR UNITS B I NPUT TO BAR NEVER ACTIVE.
•
ERROR 062 - PAR UNITS B INPUT TO BAR NEVER ACTIVE.
"
ERROR 0l/3 - BAR UNITS C OUTPUT ALWAYS ACTIVE.
•
ERROR 064 - RAR UNITS C INPUT TO BAR ALWAYS ACTIVE.
"
ERROR '065 - PAR UNITS C INPUT TO BAR ALWAYS A'ClIVE.
"
E~ROR 066 - BAR UNITS C OUTPUT NEVER ACTIVE.
"
ERROR 067 - RAR UNITS C INPUT TO BAR NEVER ACT'IVE:.
"
ERROR 068 - PAR UNITS C I NPUT TO BAR NEVER A,(1 IVE.'
"
ERROR 069 - BAR 'UNITS 0 OUTPUT ALWA'(S AtTIVE.
"
ERROR 070 - RAR UNITS 0 INPUT TO BAR ALWAYS 'ACTIVE.
"
ERROR 071 - PAR UNITS 0 INPUT TO BAR ALWAYS ACTIVE.
"
ERROR 072 - BAR UNITS o OUTPUT NEVER ACTIVE.
"
ER'ROR 073- RAR UNITS D INPUT TO BAR NEVER. ACTIVE.
"
ERROR 074 - PAR UNITS D INPUT TO BAR NEVER' ACTIVE.
"
ERROR 075 - BAR UNITS E OUTPUT ALWAYS ACTIVE.
"
ERROR 076 - RAR UNITS E INPUT TO BAR ALWAYS ACTIVE.
"
ERROR 077 - PAR UNITS E INPUT ,TO BAR ALWAYS ACTIVE.
•
ERROR 078 - BA~ UNITS E OUTPUT NEVER ACTIVE~
"
ERROR 079 ,.. RAR UNITS E INPUT TO BAR NEVER ACTIVE.
•
ERROR 080 - PAR UNITS E INPUT TO BAR NEVER ,ACTIVE.
: . ~::g: g:~ : ~:: ,~~~~ : ~~~~¥T T~L~:~S A~~~~~e'i.Ct'!VE~
"
•
"
•
,•
...
•
•
•
...
•
•
•
•
•
•
•
..
•
•
,1
"
DATE
EC
15JUL65
124265
17MAR66
l25643
ERROR
ERROR
ERROR
ERROR
,ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
083
084
085
086
087
088
089
090
091
092
093
094
-
ERROR 095ERROR
ERROR
ERROR
ERROR
ERROR
096 ,097 098' 099 100 -
to
F805,;,i
5
101
102
103
104
105
106
107
108
109
110
-
III -
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
112
113
114
115
116
117
118
119
120
121
122
123
-
ERROR
ERROR
ERROR
ERROR
124
125
126
127
-
~
ERROR 128' ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
129130 131 132 133 134 -
PA'R TENS D INPUT TO BAR ALWAYS ACTIVE.
BAR TENS D OUTPUT NEVER ACTIVE.
RAR TENS 0 INPUT TO BAR NEVER ACTIVE.
PAR TENS D INPUT TO BAR NEVER ACTIVE.
BAR TENS E OUTPUT ALWAYS ACTIVE.
RAR TENS E INPUT TO BAR ALWAYS ACTIVE.
PAR TENS E INPUT TO BAR ALWAYS ACTIVE.
BAR TENS E OUTPUT NEVER ACTIVE.
RAR TENS E INPUT TO 8AR NEVER ACTIVE.
PAR TENS E INPUT TO BAR NEVER ACTIVE.
RAR PROBLEM PROBA8LY CAUSEO BY ONE O~ THE FOlLOWING1. UNITS AND/OR TENS TRIGGERS A AN~/OR B
ALWAYS ACTI VEe
2. UNITS TRIGGER A NEVER ACTIVE.
3. TENS TRIGGERS 0 AND/OR E NEVER ACTIVE.
4. FALSE ADDRESS CHECKS.
SAME AS ERROR 111 EXCEPT FOR PAR.
RAR UNITS TRIGGER B NEVER ACTIVE.
PAR UNITS TRIGGER 8 NEVER ACTIVE.
RAR UNITS C TRIGGER NEVER ACTIVE.
PAR UNITS C TRIG~ER NEVER ACTIVE.
RAR UNITS 0 TRIGGER NEVER ACTIVE.
PAR UNITS D TRIGGER NEVER ACTIVE.
RAR TENS B TRIGGER NEVER'ACTIVE.
PAR TENS B TRIGGER NEVER ACTIVE.
RAR TENS C TRIGGER NEVER ACTIVE.
PAR TENS C TRIGGER NEVER ACTIVE.
RAR PROBLEM PROBA~LY CAUSED 8Y ONE OF THE FOLlOWING1. UNITS AND lOR TENS TRIGGERS D AND/OR E
ALWAYS ACTIVE.
2. UNITS ADVANCE NEVER ACTIVE.
3. TENS ADVANCE NEVER ACTIVE.
SAME AS ERROR 123 EXCEPT FOR PAR.
RAR UNITS C TRIGGER ALWAYS ACTIVE.
PAR UNITS C TRfGGER ALWAYS ACTIVE.
RAR PROBLEM. ERROR PATTERN CANNOT 8E IDENTIFIED.
PROBLEM MAY BE INTERMITTENT
PAR PR08LEM. ERROR PATTERN CANNOT BE IDENTIFIED.
PROBLEM MAY BE INTERMITTENT.
PROBLEM IN CIRCUITS USEO TO DETECT COLUMN 80.
RAR UNITS E TRIGGER NEVER ACTIVE.
PAR UNITS E TRIGGER NEVER ACTIVE
RAR HNS A TRIGGER NEVER ACTIVE.
PAR TENS A TRIGGER NEVER ACTIVE
FALSE ADORESS CHECKS
.
END
PAR TENS A, INPUT TO 8AR ALWAYS AC."T'IVE.
BAR TENS A OUTPUT NEVER ACTIVE. ~" ,"
RAR TENS A INPUT TO 8AR NEVER A'~T:r:\(E' ..
PAR TENS A INPUT TO 8AR NEVER AtnVE.
BA,R TENS A B OUTPUT ALWAYS ACT IV'E'~.
RAR TENS 8 INPUT TO BAR ALWAYS A<;T;Iy'i:.'
PAR TENS B INPUT TO BAR ALWAYS ACn"V'E.
BAR TENS B OUTPUT NEVER ACTIVF~
RAR TENS 8 INPUT TO BAR NEVERA~ttV'E.
PAR TENS B INPUT TO BAR NEVER ACTIVE.
BAR TENS C OUTPUT ALWAYS ACTIVE. " "
RAR TENS C I NPUT TO BAR ALWAYS ACTIVit - OR, RAR
TENS C TRIGGER ALWAYS ACTlVE,_
PAR TENS C INPUT TO BAR ALWAYS ACTIVE: - OR, PAR'
TENS C TRIGGE:R ALWAYS ACTIVE.,
BAR TENS C OUTPUT NI:VER ACTIVE.
,
RIR TENS C INPUT TO BAR NEVER ACTIVE~
PAR TENS C INPUT TO BAR NEVER ACTIVE.
BAR TENS 0 OUTPUT ALWAYS ACTIVE. ,.'
RAR TENS D INPUT TO BAR ALWAYS ACTIVE'.
PAGE
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
.**.* •••••••• **.*** •••••••• ** •• **.'............. **.** •• * ••••••• **.~ ••••• *
•• ** ••••••••••• *** ••••••••••••••••••••••••••••••••••••• *•••••• * •••• ~ •••
DATE
EC
15JUL65
124265
17MAR66
125643
___________
tzI
PIN 840260
PAGE
SA
~
________
10
Fe05-1
PAGE
5A
~
____
~
________
~
__
~~
____
i
I,
--~J
,l,
,"
~
-
.....
-"----......---"','" , ..•
,
'--'''';''
IBM MAINTENANCE DIAGNOSTIC PROGRAM'
PIN 840260
PAGE
6
.
IBM MAINTENANCE DIAGNOSTIC PROGRAM
• F8041
2821 SCAN/2540 READER/PUNCH
F805l
8UFFER AD DR FLT -ROUTINE OVERLAY 03-
.
POST ASSEM8lY OATA.
10
10
10
10
REFERENCES TO OEFINEO SYMBOLS.
101t8
101t0
0
1
1
1
1
1
GRI
1
2
GR2
1
3
GR3
1
4
GRit
1
1
5
6
GR5
GR6
1
7
GR7
1
8
GR8
1
9
GR9
1
1
A
8
GRA
GR8
C'
,0
E
F
It
12E8
1
1
1
1
1
1
2
l7EIt
8USY
OROR
100
1850
ORPU
8
1
1880
16EC
ItB
40
2
78
lAAE
1001t
1231
1220
8
ERRX
EXIT
HeAW
HCSW
HIGH
HION
PERT
SNSW
UAPU
UARO
ZERO
ALLON
ANYON
AVAIL
8TAON
8T80N
BTCON
1
1
It
1
.j
1
1
1
1
1
1
10
10
10
..~
'1
1
',1
,;l
""")1
;i
GRC
GRO
GRE
GRF
LOW
SID
1
100
1
1
',1,
CAW
CSW
GRO
1
5
8
' lEItF
lE63
lE17
191t2,
1862,
1888
lADE,
lC2A,
1C92,
102C,
109C
193E,
lADE,
lClt6,
1010,
19E6,
lCFO,
105E,
19EA.
1802
18CE,
lC36,
18E6,
18FC,
10AO
1COO,
lC72,
192E,
lC6A,
182A,
1C5E,
1002,
1070,
182E,
19ltE,
180lt,
1946.
lA8E,
lC2E,
lC96,
103A,
lAC2,
1C46,
ICE It,
105A,
18F8,
lC5A,
lCF4,
1068,
18FC,
lC5E,
1002,
1070,
lClC,
lC6A,
1010,
107C,
lC20
1C6E
IDle
1094
191t2,
lADE,
lC92,
IDlE,
19F2,
lCFE,
106C,
19F6,
19E2,
185E,
lC92,
102C,
19FA,
IOOC,
10A6
19FC,
19EE,
1862,
lCCE,
103A,
18C6,
lOlA,
19FA,
1884,
leElt,
105A,
18EO,
1028,
19FE,
1888,
lCF4,
1068,
lC7A,
1036,
lA08
188E
1002
1070
ICED
1048
lA84,
lA9C,
tAEC,
18tA
1802,
lC7A,
18EA,
lCOlt,
18EO,
lC96,
18F8,
lCOA,
18EA,
lC96
le04
lC2E,
18F8,
18FC,
lC20
1e2E,
1088,
1098
1e12,
1C80,
lA61t,
1C90
1836,
1C6E,
1010,
107C,
18ltE,
1976,
ItCA
199A,
lC16,
1C8A,
lAAA,
1C16,
1081t,
1Clt2,
1C2A,
1091t,
lC5A.
1C2A,
1094,
lC5A,
lC62
10AC
lC6A
18A6,
lC6E,
IDlE,
107C.
18AA,
19A2,
1882,
1C8C.
102C,
109C,
1886,
19CA,
18C2.
IC02,
103A,
109C
lC76.
180E,
1Clt6,
1CE4,
105A,
1e5E
1eF4
1068
lCC8.
186E,
10A8
1890
10
10
10
2
1
1
1
8
1
16
1
1
16
1
1
1
1
16
1
1
6
6
6
6
6
6
4
2
It
6
4
It
4
.It
'It
It
It
It
4
2
1866
lAAE
18E2,
19ltE,
1088
1C7C
1976,
1982,
1088
1906,
109B
1CA2,
1911t,
19E2,
Ii
19A2,
19E6,
19CA.
lA30,
19EE,
19F2,
1A3A,
1CAC,
lA82,
1C86,
1A8A
lC&6
186E,
lA71t,
lAltC,
1890,
1820,
lABC,
189C
fl
H
i,1
1e72
i;
!
le62
Io
r-
4
I
6
4
1
I
4
2
4
I
.lA6e
1918,
19AE.
195A,
1926.
lA90
lA18
lA5C,
197ft
1902,
lA82,
,
~
2821 SCAN/2540 READER/PUNCH
*F804l
F8051
8UFFER AOOR FLT -ROUTINE OVERLAY 03-
lA68,
i
lAA2
2
I
4
6
~1
1876,
1898.
1C56,
;i
It,.
I;
4
4
4
6
4
:iii
1090
18C6
Iir.l
"
18E6
1
!";
,j
.~
1E88 BTOON
lE9F BTEON
lOEB BUAON
10FF 8UBON
lE13 BUCON
lE27 BUOON
lE3B 8UEON
10C8 COM50
llFA eS,WAG
4 CSWST
8 EQUAL
1708 ERNUM
2 GZERO
18C5 LGMSG
1202 MESS1
4 MIXED
lE83 NOERR
7 NZERO
1908 RTN03
1000 ,SECST
11F7
10CA
IDEO
10E4
1932
195A
196A
198E
19AE
198E
19E2
19FA
lA16
lAftC
lA5C
lA8E
lAEE
lAFA
1802
180A
1836
1856
1882
1C9E
tCCA
1084
SENSE
TITLE
UNITI
UNIT2
AOCKOO
AOCKOI
AOCKI0
AOCK20
AoeK21
AOCK30
AOCK40.
AOCKItI
AoeK50
AOCK51
AOCK52
AOCK53
AOCK60
AOCK70,
AOCK80
AOCK90
AOCK91
AOCK92
AOCK93
AOCKAO
AOCK80
AOCK81
lClC
IBCE
183A,
1988,
1BIt It
190C
1910,
lAC2,
19FC,
lACA,
lA36,
lACC,
lAItO,
lACE,
lA78,
195A,
lA90,
1964,
lA08
19AE,
1988
1000,
1000,
1000,
1000,
lA8E,
1000,
1000,
1000.
1000,
lACA.
1804,
lC8C,
lC06.
lCC4
lC90
1000.
1000,
1000.
1000,
lACC.
1,000.
1000.
1000.
1018.
lCCIt.
1000,
1000,
1000.
1A71t.
1CC6
1000
1000
1000
1A76
18AE.
18BA,
lCIt.2,
10BIt
lCFE,
106C
100C,
lOlA,
1028,
1036
1956,
leltE
19AA.
lA60.
1A6C,
iAA6
18U,
198A,
1886.
1A12.
lt76,
lAU.
10A8
lABA.
lAEt
lA5A
1015
1000,
1000,
1000,
1000,
lA8C,
1921t
1'92A,
197f
1956
198A
1902
19AA
1966
19EA, 1A12
19F6
lA36
lCA4, lCAE,
lA81t, 1A90
1A1A
' lA22, lA52
lA40, 'lAF6
lAlt8, lAF2
1826
181t0, 18ltA
185A, 18A2
IB32, IB52,
lAFE. 1806
.1CEO, . lCFO,
101t8, 105E,
,1090
10AO AOCK82
107B, 1080
10A8 AOCK83
191e, 192A,
8 ALLOFF
18$A, 1COE.
lBBE AI,.OeOO
IBOE, 1CCA
le9A
1802 ALOCI0
18F8 ALOC20- 18EC
lCOIt ALOC21
le32
1COE, le22
lC2A ALOC30
lC36 ALOC40
18E2
18FIt, 1e06
1CotI!! ALOC50
lC6A ALOC51
1.C56
ICItE
lC72 ALOC52
lC16 ALOC53
lC66
lC7C, lC86
lCBA AlOt:51t
lCBC ALOC60
182E, 18ItE,
F ALWAYS
1911t. 1966,
lC88
"
~
DATE
EC
1
15JUl65
121t26S
17MAR66
to
12561t3
PAGE
l/-' .1.. • D.
.-.------.--..
F805-1
6
I
DATE
EC
15JUL65,
121t265<
17MAR66
' 125M3
,1
-~-.
-, ,
1'00 0 0 0 0 0 0 O· 0 0 0 0 0 0 0 0 0
o o
0 0 0 0 O' 0 0' 0 0' 0 0 '0 0 "0
,-----------------
"._._----
•
000000000 00000 00000 00000 00000 0000_
..
J8M MAINTENANCE DIAGNOSTIC PROGRAM
PIN
840260
PAGE
* F8041
F8051
0017FF
001804
001800
001812
001818
001820
001829
00182E
001837
00183C
001845
00184A
001853
001858
001861
001866
00186F
001874
001870
001882
001888
001890
001899
00189E
0018A7
0018AC
001885
00188A
0018C3
0018C8
001801
001806
00180F
0018E4
0018EO
0018F4
0018FO
001904
001900
001914
001910
001924
001920
001934
001930
001944
001945
00194E
00194E
001950
001951
001952
001954
001958
00195C
001960
001964
00196A
oo196E
001912
001976
001918
001979
oo191A
DATE
fC.
01 00
04
00
FFFE
95
47
95
41
02
47
91
47
OA
84
80
00
80
02
FO
02
80
DO
F
F
F
F
F
F
F
F
19C
96E
19C
96E
065 F FED
114
004
91C
80
OE
F F58
15JUL65
124265
00191C
00198"0
001984
SENOAT DC'
CKRDAT DC
PIN
PAGE
• F8041
2821 SCAN/2540 READER/PUNCH
F8051 READER TRANSLATOR FLT -ROUTINE OVERLAY 04-
2821 SCAN/2540 REAOER/pUNCH
READER TRANSLATOR FLT -ROUTINE OVERLAY 040000000000
000000000000000000
0000000000
000000000000000000
0000000000
000000000000000000
0000000000
000000000000000000
0000000000
000000000000000000
0000000000
000000000000000000
0000000000
000000000000000000
0000000000
000000000000000000
0000000000
000000000000000000
0000000000
000000000000000000
0000000000
000000000000000000
0000000000
000000000000000000
0000000000
000000000000000000
0000000000
000000000000000000
0000000000
000000000000000000
0000000000
000000000000000000
0000000000
00'0000000000000000
00000000000000
000000000000000000
00000000000000
000000000000000000
00000000000000
000000000000000000
00000000000000
000000000000000000
00000000000000
000000000000000000
00000000000000
00
C5090940E7E7E7El
IBM MAINTENANCE DIAGNOSTIC PROGRAM
8
001988
00198C
001990
001994
001998
00199A
00199E
0019A4
0019A8
0019AC
001982
001988
00198C
0019CO
0019C4
0019C8
0019CA
0019CE
.001900
001904
001908
00190C
0019EO
0019E6
0019EA
00.19EE
0019FO
0019F4
0019F8"
0019FC
OOlAOO
001A04
001A08
OOlAOC
6XLl4'OO'
6XL14'OO'
COMOAT DC
91 40 F 004
41 BO F 98B
45 80 F 63E
41
41
41
41
18
92
02
45
45
01
02
91
41
92
58
18
5C
18
50
88
50
41
06
41
41
15
41
41
41
41
41
41
41
45
10
20
30
40
66
00
5E
AO
AO
03
00
08
80
80
80
96
80
88
80
80
80
99
Q3
60
BO
6B
80
10
20
F
F
F
F
F
F
F
F
F
F
3
F
F
F
..
E58
1E8
83C
890
8E4
8E5 F 8E4
BE6
CI0
lEO F 7EO
1EO 2 000
000
9C4
7El
1EO
RT02
•
*
*
RT03
RT04
RT05
F E48·
F
8
F
F
9
6
0
E4!:
OQO
1EO
8E4
000 F 1EO
001
(151
F A08
1 002
001
001
001
9A4
002
BE6
2.
30 3
40 4
FO F
10 I
AO F
RT06
•*
. ERSWI
ERRX
DC
DC
X'OO'
C'ERR XXXX'
•••••••• ** ••• ** •••• * ••• ** •••••••••• ****** •• ** ••••• *.***._.** ••• _ ••••
04 PREFIX
•* ••• * •••ROUTINE
•
* •••• **.*.** •• *.** •• *.* ••• ****** ••• *~ ••• *.* ••• •••••••••••• _••• CNOP 0,4
0,0
8CR
UN04 DC
XLl'04'
ROUTINE NUMBER
DC
XLl'OO'
flAGS
X'FFFEt
ADDRESS OF NEXT ROUTINE
DC
•
RTOO
RTOX
RTOI
CLI
8C.
eLI
8C
Mve
8C
TM
BC
SVC
DC
DC
DC
_-*
SeHNUM,X'84'
EQUAL,RTOI
SCHNUM.X'OO·
EQUAL,RTOI
SVRPSW&5(31.SCRAO
ALWAYS,EXI Tl
SNSW,X'02'
ALLOFF,RT02
X'DO'
X'80'
X'OE'
SITITLE)
....
..
SEE IF SHOULD RUN THIS ROUTINE
8RCH IF YES
SEE IF SHLD RUN THIS ROUTINE
BRCH IF YES
SET UP RETURN SVC PSW ADDR
BYPASS DATA CARDS & ROUT INE EX IT
SEE IF WANT TITLE PRINTOUT
.. BRCH IF NO
PRINT TITLE
NORMAL OUTPUT
14 CHARACTERS
"to AODRESS OF TITLE
17MAR66
1256...3
ID
F805-1
PAGE
8
00lAI0
001A16
001AIA
001AIE
OOlA22
001A26
001A26
001A2A
001A2E
001A32
001A36
001A38
001A3C
001A40
001A44
00lA48
00lA4C
001A50
001A54
OOlA56
00lA5A
001A5E
001A62
001A66
00lA6A
DATE'
EC
05 58
47 60
41 FO
41 1.0
92 64
OA DB
0234
45 80
41 90
<12 00
IB 22
43 20
41 90
43 30
89 30
41 90
41 40
41 50
IB 88
43 80
41 58
41 90
43 60
41 90
50 20
15JUL65
124265
F
F
F
0
F
8E4 F. EFC
AlE·
C6C
054
19C
•
RTlO
RT20
F B8E
F 234
F 944
PT051
PT06
PT061
9
9
9
0
9
0
PT062
F
000
001
000
018
001
004
8E4
9 000
5 000
9 001
9 000
9 001
F 100
1111AR66
125643
TM
BC
BAL
SNSW,X'40'
ALLOFF,RT03
GR8,SCPROO
seE IF WANT UTILITY ROUTINE
.. 8RCH IF NO
8RCH TO UTILITY RoutINE
DATA COllECTION ROUTINE
LA
LA
LA
LA
SR
MVI
MVC
BAL
8AL
XC
MVC
TM
8C
MVI
L
LR
M
SR
D
SRL
ST
LA
OC
LA
LA
CtR
'BC
LA
LA
LA
LA
8C
LA
'8AL
GR1,INDAT
GR2,DRDAT
GR3,SENDAT
GRIt,CKRDAT
GR6,GR6 .
·"tOMDAT,X·OO·
COMOAT&1195t,COMDAT
GRA,DWR
G!l.A,DRR
TSTOR 141, TSTOR
TSTOR III ,01GR21
OlGR31,X'08'
AllOFF ,RT05
TSTORU,X'80'
GR8,TSTOR
GR9,GR6
GR8,NINE
GR8,GR8
GR8,EIGHT
GR8,01GR81
GR8,TSTOR
GR9,COMDA TlGR91
014,GR9" TSTOR
GR6,lIGRO,GR6)
GR8,811GRO,GROI
GR6,GRB
EQUAL,RT06
GRl,2IGRO,GRU
GR2,lIGRO,GR2)
GR3,lIGRO,GR31
GRIt,lIGRO,GR4)
ALWAYS,RT04
GR I, 21 GRO,GRU
GRA,DWR
..
••
INITIALIZE
to
(
L
;
""
l
f> ./
GO" PERFORM DIAG WRITE TO REAOER
GO READ RO 8UFFER
COM81NE READ DATA & lNVAL CARD CODe
t~
..,...
......
(
to
"
"
"
"
"
SEE
.:
..
'
i
....
'':
It
.
IF END OF OATA COLLECTION
,
"
UPDAl'E
,',
AOORESSES FOR NEXT CHARACTER
"
GO" COLLECT DATA FOR NEXT CHARACTeR
CLEAR VAll DITY CHECK
ERROR DETECTION ROUTINE
CLC
BC
BC
LA
I1VI
SVC
DC
BAL
LA
MVI
SR
IC
LA
IC
SLL
LA
LA
PT063 . LA
SR
IC
LA
LA.
IC
LA
ST
COMDATI92l,OUTOAT
NEQUAL,RT20
ALWAYS,LGOUT
GR1,84IGRO,GRO)
SCHNUI1,X'84'
X'DB'
AL21SCPDAT-SECSTI
GRB,ROCRD
GR9,SCPDAT
ERSW1,X'OO'
GRZ,GR2
GRZ,0IGRO,GR91
GR9,l{GRO,GR9)
GR3,OlGRO,GR91
GR3,24
GR9,11GRO,GR9)
GR4,4IGRO,GRO)
GR5,COl10AT
GR8,GR8
GR8,OlGRO,GR91
GR5,0(GR6,GR~)
GR9,llGRO,GRCl)
GR6,0IGRO,GR91
GR9; 1 IGRO.GR·~)
GR2,WKAR3
SEe IF GOT ANY ERRORS
" BRCH IF YES
GO seE IF WANT LOG OUT
INITIALIZE DATA RECORD COUNT
SET UP TO BYPASS ALL REMAINING OVlYS
LOAD FIRST DATA CARD IN BUFFER
to
GO READ A DATA CARD
SET UP CURRENT DATA ADOR.ESS
RESET ERR SW 1
SET COUNT OF MASKsr .. GR 2
It
UPOATE CURRENT AOOR 8Y 1
SET CC IN GR 3
UPDATE CURRENT AODR 8Y 1
SEr 4 IN GR 4
SET TEST DATA AOOR
SET UP TEST ADDRESS
..
"
"
UPl)ATE
CURRENT AODR bY 1
SET UP MASK
UPDATE CURRENT A0011. bY 1
CONVERY CC
F805-1
8A
~;
W./..,tJ.
O' 0 0 0 0
.
0000 00000
oooeo
piN 840260
PAGE
9
IBM MAINTENANCE DIAGNOSTIC PROGRAM
DATE
EC
18
41
BO
88
49
47
41
58
44
44
92
46
46
IE
iE
41
41
15
47
91
47
02
45
41
41
22
70
20
70
70
60
70
20
60
70
FF
20
40
94
94
80
70
78
20
10
PO
03
BO
90
80
41 70
15 78
47 20
47 FO
45 BO
91 10
47 FO
02 03
45 BO
41 90
47 FO
46 40
41 BO
41 70
15 78
47 CO
45 BO
41 90
47 FO
46 20
4<6 40
IE 94
IE 94
91 FF
47 10
41 SO
41 70
15 78
47 20
02 02
07 07
02 02
F2 22
4F 80
41 SO
50 80
4E SO
OA DO
0002
0706
0949 '
OA 00
44
15JUL65
1:24265
0 OSO
0 002
2 000
F E52
F AB8
0 050
F ;100
F07E
F'B82
F 944
F AFB
F AAO
F 27A
9 003
F ADA
F 004
F AC4
F 949 9 000
F B86
9 004
F 27A
9 009
F A2A
F A32
F B8E
F 004
F AFO
F 949 F 234
F B86
F 23B
F A32
F A50
F 27A
9 OOS
F
F
F
F
F
F
A40
8BE
234
A40
AFS
BIE
F
F
F
9
944
AA4
27A
003
F
F
F
F
F
F
8
F
F
812
949
700
705
705
700
08C
7E4
700
9
F
9
F
001
700
001
705
17MAR66
125643
GR2,GR2
SR
GR7,12B
LA
SLDL GR2 t 2
GR7,0IGR2)
SRL
GR7,THRT2
CH
NEQUAL,PT0630
BC
GR7,80
LA
GR2,WKAR3
PT0630L
GR6,TMA
EX
GR7,BCON
EX
MVI
ERSWl,X'FF'
GR2,PT067
BCT
GR4,-&4
BCT
GR9,GR4
ALR
GR9,GR4
ALR
GR 8, SCPOA T& 70
PT0631 LA
GR7,3(GRO,GR9)
LA
GR7,GR8
CLR
HIGH,PT065
8C
TM
'SNSW,X'lO'
ALWAYS,PT064
BC
ERRX&4141,0IGR91
MVC
GRB,PRCRES
BAL
GR9,4(GRO,GR91
PT064 LA
GR8,SCPDAT&70
LA
LA
GR7,9IGRO,GR9'
GR7,GRB
CLR
HIGH,PT051
BC
AlWAYS,PT061
BC
GRB,RDCRO
PT065 BAL
SNSW,X'lO'
TM
AlWAYS,PT066
BC
ERRX&4141,SCPDAT
MVC
GRB,PRCRES
BAl
GR9,SCPDAT&4
PT06b LA
AlWAYS,PT061
BC
GR4,PT063
PT067 BCT
GR8,SCPDAT&70
LA
GR7,8IGRO,GR9)
LA
GR7,GRB
ClR
lOEQ,PT06'2
BC
GRfl,RDCRO
BAL
GR9,SCPOAT
LA
AlWAYS,PT062
BC
GR2.PT067
PTObS BCT
BCT
GR4,*&4
ALR
GR9,GR4
GR9,GR4
ALR
TM
ERSWl,X'FF'
ALLON,PT0631
BC
GR8,SCPOAT&70
LA
GR7,3IGRO,GR91
LA
GR7,GRB
CLR
HIGH,PT06A
BC
ERRX&4131,1IGR9)
PT069 MVC
WKAR3(8),WKAR3
XC
WKAR3&5(3),1IGR91
MVC
WKAR3&5131,WKAR3&5131
PACK
GR8,WKAR3
CVB
GRB,140IGRO,GRB)
LA
ST
GR8,ERNO
GR8,WKAR3
CVO
SVC
X'OO'
AL2121
OC
AL2IWKAR3&6-SECSTI
OC
AL2IERRX&4-SECSTI
DC
X'OO'
SVC
X'44'
OC
PIN
IBM 'MAINTENANCE DIAGNOSTIC P'ROGRAM
840260
PAGE
9A
• F8D41
2821 SCANI2540 REAOER/PUN~H
F8051 READER TRANSLATOR FLT -ROUTINE OVERLAY 04-
• F8~41
2821 SCAN/2540 READER/PUNCH
F8051 READER TRANSLATOR FLT -ROUTINE OVERLAY 0400lA6E
001A70
001A14
00lA78
OOlA7C
OOlA80
00lA84
00lA88
00lA8C
001A90
00U94
00lA98
00lA9C
OOlAAO
00UA2
00lAA4
001AA8
OOUAC
OOlAAE
00lA82
00lAB6
OOlABA
OOlACO
00lAC4
00lAC8
OOlACC
OOlADO
00lAD2
001AD6
OOlADA
OOlADE
001AE2
001AE6
OOlAEC
OOlAFO
001AP4
OOlAPB
001AFC
OOlBOO
001B04
001B06
OOlBOA
OOl80E
001B12
001B16
OOlBlA
00lB1E
001820
001B22
001B26
001B2A
00IB2E
001B32
001B34
001B3B
001B3E
001B44
001B4A
001850
001854
001858
, 00185C
001860
001862
001864
001866
001868
00186A
ooooe
000 00 00000 00000
,",
," ,
IS CC 2
" BRCH IF NO
SET CC FOR ANY OR ALL
RESTORE GR 2
TEST DATA
BRCH IF ERROR RESULT
TURN ON ERR SW 1
BRCH IF NOT END OF MASKS FOR THIS CC
UPDATE CURRENT ADDRESS
"
" THIS CARD CONTAIN NEXT DATA FLO
DOES
""
BRCH IF NO
PRINT CORRECT RESULTS
.. BRCH IF NO
SET FAULT NO IN MESSAGE
GO PRINT FAULT NO.
UPDATE CURRENT ADOR 8Y 4
DOES THIS CARD CONTAIN NEXT OATA FLO
"
""
BRCH IF NO
CONTINUE
READ A DATA CARD
PRINT CORRECT RESULTS
., BRCH IF NO
SET FAULT NO IN MESSAGE
GO PRJ NT FAULT NO.
SET CURRENT AOORESS
CONTINUE
BRCH IF DID NOT'USE 4MA!;KS
DOES THIS CARD CONTAIN NEXT DATA FLO
.
,
••
.,
BRCH IF YES
READ A OATA CARO
SET CURRENT ADDRESS
CONTINUE
BRCH IF NOT LAST MASK
UPDATE CURRENT ADDRESS
,,
SEE IF ERR SW 1 UN
., BRCH IF YES
OOES THIS CARD CONTAIN NEXT OATA FLO
,,
,,
" BRCH IF NO
MOVE ERROR NO. TO ERROR MESSAGE
CONVERT ERR NO. TO BINARY ,& SAVE
"
"
"
"
"
CONVERT
"
,",
,,
ERROR NO. TO PRINTABLE
ERR XXX - SEE ERNO & ERR OEFINSHUN
,. ERROR OUTPUT
10
F805-1
PAGE
9
001B66
001B6C
001B6E
001B72
001B76
001 B7 A
001B7E
001B82
001B86
001888
001B89
OOlBBA
001 BBC
01
F 945
47
45
41
47
91
41
FO
BO
90
FO
00
00
F C6C
F BBE
F 234
F B38 '
5 000
F B16
PT06A
TMA
BCON
...
*PRCRES
OA 00
80
08
F 945
07 FB
~
•*
001B8E
001B92
001B98
001B9A
001 B9C
0018110
ODIBA4
0016116
001 BA8
OOlBAA
00l8AC
001 B82
001B86
0018BB
OOlBBC
OOISBE
00IBC2
00lBC6
OOlBCA
OOl.BCC
OOIBCD
OOIBCE
001 BOO .
001B04
001808
OOIBDC
OOlBDE
001BDF
OOlBEO
001BE2
001BE6
OOlBEIl
001 BFO
OOlBF6
OOIBFA
OOlBFE
001CD2
00lC06
OOlCOA
ODICOE
OOlCIO
DDICI4
OOICIA
DATE
EC
92 00 F 234
02 4E F 235 F 234
OA 08
0234
41 10
4E 10
OA 00
0002
0706
0708
05 02
47 60
07 FB
58 20
15 21
47 80
41 30
50 30
DA 00
44
07
F FFO
ROCRO
1 001
F 700
F 708 F 281
F
BC2
F E5it
B04'
0 08C
F 7E4
f
ft7 1'0 F Cbe
41 30 0 080
50 30 F 7£4
OA 00
44
07
CO
01
90
00
00
00
BO
01
10
FA
F
F
F
F
F
F
F
F
F
OE6
234 1 000
236 F 234
E30
048
140
2E8
140
BE6
92 00 F 234
02 9E F 235 F 234
41 00 F E38
15JUl65
124265
17MAR66
125643
SVC
OC
DC
DC
BCR
MVI
MVC
SVC
DC
LA
CVD
SVC
DC
OC
DC
CLC
BC
BCR
OC
DC
BC
....DWR
....
•ORR
PRINT FAULT NO.
" NORMAL OUTPUT
" e CHARACTERS
" MESSAGE ADDRESS
RETURN TO MAIN PROGRAM
X'DO'
X'SO'
X'OB'
SIERRXI
ALWAYS,GRB
ROUTINE TO READ DATA CARDS
OS;
41 1'0 I' C6C
" 1 CHARACTERS
,. MESSAGE AODRESS
GO SEE IF WANT LOG OUT
READ A DATA CARD
SET CURRENT ADDRESS
CONTINUE
TEST DATA
X'07'
SIERRX)
ALWAYS,LGOUT,
GRB,ROCRD
GR9,SCPOAT
ALWAYS,PT069
0IGR51,X'00'
NA,PT068
ROUTINE TO PRINT FAULT NUMBERS
ROCROt l
CLR
BC
RDCROX LA
ST
SVC
D,C
OC
DC
BC
ROCR02 LA
ST
SVC
F H1
48
02
02
41
50
92
45
91
47
07
OC
DC
BC
BAL
LA
BC
TM
8C
SCPOAT,X'OO'
SCPDAT&1179I,SCPOAT
X'llB'
AL21 SCPDAT-SECSTI
GRl,lIGRO,GRlI
G!U,WKAR3
X'OO'
AU (2)
AL2IWKAR3&6-SECSTI
AL2IWKAR4-SECSTI
WK'/lR4131 • SCPDAr&77
NEQUAL,RDCROX
ALWAYS,GRB
GR2.CDOIT
GR2,GRl
EQUAl,ROCRD2
GR3,140(GRO.GROI
GR3,ERNO
X'OO'
X'44'
X'07'
SIERR1401
AlWAYS,lGOUT
GR3,141IGRO,GROI
GR3,ERNO
X'OO'
X'44'
X'07'
S I ERR 1411
ALWAYS,LGOUT
ROUTINE TO PERFORM
lH
MVC
MVC
LA
ST
MVI
BAL
TM
BC
BCR
CLEAR READ BUFFER
"
READ A DATA CARO
READ BUFfER ADDRESS
INCREASE CARD COUNT
CONVERT CARD NO. TO PRINTABLE
..
"••
S~E IF DATA CARD SEQUENCE OK
,. BRCH I F NO
RETURN TO MAIN PROGRAM
SEE IF CORR NO. DATA CARDS READ
..
..
., IlRCH lI' YES
SET UP ERROR NO.
ERROR 140 - MISSING 04.TA RECORDS OR
,•
OAT A RECORDS OUT OF SEQ
' f 7 CHARACTERS
' f M~55AGE AOORESS
GO 'SEE IF WANT LOG OUT
SET UP ERROR NUMBER
" 141 - CAN NOT ISOLATE FAILURE
ERROR
t. ERROR MESSAGE
" 7 CHARACTERS
,f'
MESSAGE ADORESS
GO SEE IF WANT lOG OUT
OIAG~OSTIC
GRC.UN2ADR
SCPOATl2).OIGRlI
SCPOAT&2Il58I,SCPOAT
GRO,RWRCCW
GRO,CAW
SIOSWS,X'OO'
GRB, SIO
SIOSWS,X'Ol'
ALLON,OWR
AU,AYS.GRA
WRITE TO READER
SET PUNCH I/O AOOR IN GR 12
LOAD WRITE DATA
..
LOAD AOOR OF REAOER WR IfE CCW
tf
RESET SIO SWS -USE PUNCH AOORESSBRCH TO SIO ROUTINE
SEE IF INTERVENTION REQ SWON
" REPEAT WRITE IF YES
RETURN TO MAIN PROGRAM
ROUTINE TO READ READER BUFFER
MVI
MVC
LA
SCPDAT,X'OO'
SCPOAT&l(159),SCPDAT
GRO,RROCCW
CLEAR REAO FIELD
'f
LOAD AOOR OF READER READ CCW
IO
FB05-1
PAGE
94
PIN 840260
PAGE
10
IBM MAINTENANCE DIAGNOSTIC PROGRAM
001C42
001C46
001C4A
001C4E
001C52
001C58
001C5C
001C60
001C64
001C6A
":
I
\
001C6C
001C70
001C74
001C78
001C7E
001C82
001C84
001C85
001C06
001C88
001C8C
00IC90
001C96
001C9C
001CAO
001CA6
001CAC
001C82
001CB6
001CBA
001C8E·
001CC4
001CC8
001CCC
001COO
001C04
001C08
OOlCoA
001C08
001 CDC
001CoE
001CEO
001CE4
001CE8
OOlCEC
001CFO
001CF4
001CFB
OOICFA
001CF8
OOICFC
001CFE
001002
001008
DATE
EC
50
92
48
45
91
47
02
02
41
50
92
92
02
45
91
47
02
07
00
02
CO
80
01
10
00
00
00
00
02
00
9E
80
01
10
00
FA
91 20
47 80
92 60
02 47
45 80
OA DO
80
49
F F66
45 80
92 40
02 47
02 OA
45 80
02 04
02 OA
02 OC
45 80
47 fO
92 C9
02 lC
92 C9
92 C9
92 C9
92 C9
92 C9
OA DO
80
49
F 234
07 F8
41 10
41 ZO
41 30
41 40
41 50
41 60
OA DO
F
F
F
F
F
F
2
3
F
F
F
F
F
f
F
F
4
048
140
OE2
2E8
140
9A4
000 F 234
000 F 1F7
E40
048
140
234
235F 234
2E8
140
9A4
000 F 234
F
F
F
F
F
004
ElC
234
235 F 234
C08
F
F
F
F
CC4
234
235
240
C8A
236
23E
24C
CBA
CEO
23C
25C
234
24A
25A
Z6A
27C
F
F
F
F
F
F
F
F
F
F
F
F
F
•
•oCRR
•
•
•
lGOUT
F 234
F FAF
F F8A
F FC7
F FBA
LGOUT7
F 24C
F E58
F
o
F
F
o
•
ST
MVI
LH
8AL
TM
8C
. MVC
MVC
LGOUT8
LGOUT9
LGoUTM
7E8
000
83C
890
051
&0
01
F F67
92 40 F 234
02 4E F 235 F '234
02 01 F 700 1 000
15JUl65
124265
lGOUTA
GRO,CAW
SlOSWS,X'02'
GRC.UNlAoR
GR8,SIO
SIDSWS,X'Ol'
AlLON,RT04
011,GR2),SCPoAT
011 ,GR3), SENSE
" SID SWITCHES -USE REAoERRESET
LOAD READER AOOR IN.GR 1Z
8RCH TO SID ROUTINE
SEE IF INTERVENTION REQ SW ON
" RETRY WRITE & READ IF YES
SAVE READ DATA
SAVE READ SENSE DATA
ROUTINE TO PERFORM READER DIAGNOSTIC CHECK READ
LA
ST
MVI
MVI
MVC
8At
TM
8C
MVC
BCR
GRO,CROCCW
GRO,CAW
SIOSWS,X'02'
SCPoAT,X'OO'
SCPoAT&11159I,SCPOAT
GR8,SIO
SIOSWS,X'Ol'
AllONiRT04
01 1,GR41, SCPOAT
ALWAYS,GRA
LOAD AooR OF oIAG CK RO CCW
to
..
RESET SID SWS -USE REAoERCLEAR READ FIELD
8RCH TO SID ROUTINE
SEE IF INTERVENTION REQ SW ON
f ' RETRY WRITE & READ IF YES
SAVE CHECK READ DATA
RETURN TO MAIN PROGRAM
LOG OUT ROUTINE
TM
8C
MVI
MVC
8Al
SVC
DC
DC
DC
8AL
MVI
MVC
MVC
8AL
MVC
MVC
MVC
8Al
8C
MVI
MVC
MVI
MVI
MVI
MVI
MVI
SVC
DC
DC
DC
8CR
LA
lA
lA
LA
LA
LA
SVC
DC
DC
DC
MVI
MVC
MVC
PIN 840260
PAGE
lOA
• F8041
2821 SCAN/254a READER/PUNCH
F8051 READER TRANSLATOR FLT -ROUTINE OVERLAY 04-
• f8041' 2821 SCAN/254a READER/PUNCH
f8051 READER TRANSLATOR fLT-ROUTINE OVERLAY 04001CIE
001C22
001C26
001C2A
001C2E
001C32
001C36
001C3C
I8M.MAINTE:NANCE DIAGNOSTIC' P.ROGRAM
SEE IF WANT LOG OUT
SNSW,X'20'
ALLOff,LGOUTX
I t 8RCH IF NO
SCPOAT,C ,-,
PRINT COlUMN HEADERS
SCPOAT&1(72),SCPoAT
It
GR8.LGOUT9
.f
X'oo'
"
X'80'
"I
X'49 '
I
SIMSGlI
It
GR8,LGOUT8
It
SCPoAT,X'40'
It
SCPOAT&11721,SCPoAT
"t
SCPOAT&25(11),MSG2
I
GRB,LGOUT7
SCPoAT&2151,MSG3
"
SCPOAT&10(11),MSG4
"
SCPoAT&i4(13),MSG3
It
GR8,lGOUT7
"
ALliAYS,LGOUTM
SCPoAT&O,C'I'
SCPoAT&401291,SCPoAT&24 " t '
SCPOAT,C'I'
"t
SCPOAT&22,C'I'
I
SCPOAT&30,C'I'
"t
SCPOA 1&54,C I I'
I
SCPoAT&72,C'I'
"
X'oO'
"
X'80'
"
X'49'
SI SCPoATI
"
ALWAYS,GRB
"
GR1,lNOAT
INITIALIZE
GR2,oRoAT
It
GR3,0IGRO,GRO)
"
GR4,SENOAT
"I t
GR5,CKROAT
GR6.811GRO,GROI
PRINT BLANK LINE
X'OO'
X'80'
"
X'Ol'
SIMSG61
" PRINT FIELD
SCPoAT t X'40'
CLEAR
SCPOAT&1(79),SCPOAT
"
WKAR31Zl,OtGRlI
CONVERT
WRITE DATA TO PRINTABLE
..
..
..
..
17MAR66
125643
F805-1
10
PAGE
10
-
001o0E
001010
001012
001014
001016
0010lC
ooiozo
001026
00102.C
001030
001034
001038
00103C
001040
001046
00104A
00104E
001050
001054
00105A
00105E
001060
001064
001068
00106C
001070
001074
00107A
00107C
00107E
001080
001082
001084
001086
00100A
00108E
001092
oo109B
00109C
Oil1oAO
0010A4
001oA8
0010AC
001oBO
001082
001084
0010B6
0010B8
0010BE
0010CO
001OC2
0010C4
0010C6
0010CC
OOlOCE
001000
001002
001004
00100A
00100E
0010E2
001OE6
0010EA
OO10EE
001oF4
001.0f8
OOIOFC
0010FE
DATE
EC
OA 00
OOOZ
0700
0237
02 00
41 70
02 01
02 11
41 80
41 90
43 80
44 80
47 80
02 -00
41 80
41 80
15 88
47 40
02 00
41 80
15 88
47 80
41 70
41 90
47 FO
91 00
02 00
OA 00
0001
0700
0240
18 88
18 93
5C 80
50 80
41 89
02 01
5B 70
09 70
50 70
91 00
47 80
92 FB
OA DO
0001
0700
0255
02 00
OA 00
0001
0700
0250
02 00
OA DO
0001
0700
0260
05 01
47 80
.92 5C
95 00
47 80
92 5C
05 01
47 80
92 5C
OA DO
80
15JUL65
124265
F 706 F
F 23E.
F 250 F
F 265 F
0 001
F F04
9 000
F 070
F 1:46
7 00 9
B 001
o 007
700
F02
250
000
F 064
F 706 F 701
0 000
F
7
9
F
F
F
F
F
F
F
F
8
F
F
F
F
074
001
001
034
706
700 2 000
E48
E~C .
EFC
702 8 000
700
010
700
701
080
Z66
F 700 4 000
F 700' 5 000
F
F
F
5
F
F
F
F
F
250 F 265
oE2
234
000
DEE
234
240 F 255
oFC
234
SVC
X'oO'
"
DC
AL2IZ)
DC . AlZIWKAR3-SECST)
"
,',
~C ..
Al2ISCPoAT&37SECST)
"
MVC
WKAR3&611I,WKAR3
CONVERT
WRITE DATA TO HOllARITH
GR7,SCPoAT&10
lA
"
MVC
SCPOAT&41IZl,MSG5
MVC
SCPOAT&49(18I,SCPOAT&41 ",.
GR8,lIGRO,GRO)
LA
""
LA
GR9,HCON
GR8,OIGRO,GR9)
LGOUT8 IC
"
EX
GR8,LGOUTE
"
8C
AllOFF, LGOUTC
MVC
011.GR7l,13IGR9)
"
GRB,lIGRO,GR81
LGOUTC LA
GR8,7IGRO,GROI
LA
CLR
GR8,GR8
8C
LOW,LGOUTO
MVC
WKAR3&611I,WKAR3&1
"
LA
GR8,13IGRO,GROI
GR8,GR8
CLR
"
EQUAL ,LGOUTF
BC
GR7,lIGRO,GR7)
LGOUTO LA
"
GR9,lIGRO,GR91
LA
8C
ALWAYS,LGOUT8
It
lGOUTE TM
WKAR3&6,X'OO'
lGOUTF MVC
WKAR3111,OlGR21
CONVERT READ DATA TO PRINT ABLE
SVC
X'OO'
AL2111
DC
It
Al2IWKAR3-SECSTI
DC
It
AL2ISCPoAT&25-SEtSTI
DC
II
GR8,GRO
SR
CONVERT EXPECTED READ & SENSE DATA
LR
GR9,GR3
M
GR8,NINE
II
0
GR8,EIGHT
It
LA
GR8,OUTDATIGR91
"
MVC
WKAR3&2(2),0IGR81
GR7,WKAR3
L
SLL
GR1,16IGROI
"t
GR7,WKAR3
.ST
I
TM
WKAR3&1,X'OO'
It
8C
AllOFf,*&8
!'
MVI
SCPoAT&50,X'F8'
SVC
X'oO'
II
DC
AL2111
"
DC
AL2IwKAR3-SECSTI
. DC
AL2ISCPOAT&33-SECSTI
It
MVC
WKAR3111,OlGR41
CONVERT READ SENSE DATA FOR PRINT
SVC
X'oo'
"f
DC
AL2 III
I
DC
AL2IWKAR3-SECSTI
DC
AL2ISCPoAT&41-S~CSTI
"
MVC
WKAR3111,01GR51
CONVERT
CHECK READ DATA FOR PRINT
SVC
X'oo'
DC
Al2111
"t f
AL2IWKAR3-SELSTI
DC
DC
AL2ISCPOAT&57-SECSTI
CLC
SCPoAT&41(2.,SCPOAT&49 SEE IF SENSE DATA OK
, 8RCH IF YES
8C
EQUAL,LGOUTG
MVI
SCPOAT,C'.'
SET ERROR FLAG
lGoUTG CLI
0IGR5I,X'OO'
SEE IF ANY CHECK READ DATA
8C
EQUAL,LGOUT'i
" 8RCH IF NO
MVI
SCPOAT,C'.'
SET ERROR FLAG
LGOUTH'CLC
SCPOAT&25(2I,SCPOAT&33 SEE If DATA READ OK
EQUAl.lGOUTK
BC
f ' 8RCH IF YES
MVI
SET ERROR FLAG
SCPOAT ,C '.'
lGOUTK SVC
X'oG'
PRINT lOG OUT DATA
DC
X'80'
....
...,
....
......
..
..
.."
..
..
,
.!.
;
,.
!'
..
..
..
,
"
17MAR66
125643
10
F8D5-1
PAGE
lOA
,--,.-.,,-"-.-~,
VV 'J......
o
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 00·00 0
-"-~-.
- - - - - - - ._-
-_..__._
..
----~.---
...- - - . - . " - - - - - - - - , -
",
' ""0''. '0'".
0·
.
'
'/::
····0·
.. ·········0·. ','
. .'
'O"';i::~{,O"":';;"0";
. .,.: .
" , ' . : .
.
"
"""
",'
.._',
'f
;e
.~"
t '·'tf¥tmWd
t10
o
PIN 840260
PAGE
11
IBM MAINTENANCE DIAGNOSTIC PROGRAM
OOlEU
001EIC
001E20
00lE24
001E28
00lE30
00lE38
00lE40
4a
F 234
41 10
41 20
41 30
41 40
41 50
46 60
OA OA
91 40
41 80
45 80
41 FO
1
2
3
4
5
F
002
001
001
001
001
CFE
F
F
F
F
004
E28
63E
964
25 001234 2000 OOAO
C2 001234 2000 0050
C6 001234 2000 0050
DC
DC
LA
LA
LA
LA
LA
BCT
SVC
LGDUTX TM
BC
BAL
LGDUTY BC
•
X'48'
S I SCPDA TI
GR 1,2 I GRO ,GRlI
GR2, l(GRO,GR2l
GR3,llGRO,GR3l
GR4,llGRO,GR4}
GR5,llGRO,GR51
GR6,LGDUTA
X'DA'
SNSW,X'40'
ALLOFF,LGOUTY
GR8.SCPROO
AlWAYS,RTOX
,,
001F76
OOlF7F
OOlFB6
OOlFBF
001F96
001F9F
OOlFA6
OOlFAF
OOlFBB
OOlFBA
00lFC3
DOIFC7
OOIFDO
001F02
"
UPDATE
ADDRESSES FOR NEXT LINE
,",
,,
"
BRCH
IF NOT END OF lOG OUT
WAIT FOR ACTION
SEE IF WANT UTILITY ROUTINE
" BRCH IF NO
BRCH TO UTILITY ROUTINE
ROUTINE EXIT
*
CCW,S USED BY READER XLATE.FLT
*RWRCCW CCN
DIAG WRITE TO RD BUFF -SLI ONX'25',SCPDAT,X'20',160
READ READER BUFFER -SLI ONDIAG CHECK READ CCW -SlI ON•••••••••••••••••••• *.* •• ** •••••••••• * •••• * •• * •• *** ••••• **** ••••• ******
CONSTANTS -WORD BOUNOARY-
RRDCCW CCW
CRDCCW CCW
.
X'C2',SCPDAT,X'20',80
X'C6',SCPDAT,X'20',80
.
00lF04
ODIFDD
OOlPEl
OOlHA
OOIFED
CIE3C1404040C94040
40D9C5CIC440C4
CIE3C1404040C94040
E2C5D5E2C540C4
CIE3Cl404040C940C3
CBC5C30240D9C5
CIC440C4CIE3C140C9
CIC3E34040C940C5E7
07C4
60Ca(5E16040C94060
C8C5E760
60C8D6D3D3CID9C9E3
(960
FOFO
001F61
201008040201201008
P40201FF
E3C5FOFIF2F3F4F5F6
F7F9F9
00l1le
.**** •••• ** ••• **** •• ****** •• * •• ***.** •••• ***.*****.************.*** ••••
00lE48
00lE48
OOIHC
00lE50
001E52
00lE54
00000009
00000008
0000
0020
00000004
NINE
EIGHT
THRT2
CDCNT
CNOP
DC
DC
DC
DC
DC
CONSTANTS -NO BOUNDARY-
•
* ***** ••••••••••• ********.* ••• *** ••••••• **** •• **.*****.******.********
••
DATE
EC
lEOOOF00072003300l
38003COOIEOOOF
38001COOOE00032001
3000382C032401
220121012021201120
09200520032403
3403140114031C030C
010AOI0C030A03
3C0300002C012A0128
03240222022000
3401300310000COOIA
0130003COI0202
2C022A002900282028
10280828042802
28012A022902340234
00302030101C02
lA022800200118000A
021COI00140019
002400300028020402
08021002200300'
010B2C03
A3FIFDFEFF7FBOFE7F
7050B8FEFF7FBC
0002020lBIOOA06038
20121008864402
1110A4543020104B44
824928A0512C18
OC262351C4F4804120
00885432101089
4522020914A25540AA
60325AOE070BDF
EFF7FAFOBEFF6FBFD8
E7F780
D9C5CIC440E1D3ClE3
C540C6D3E3
C9404040C4C9CIC740
E6D91:9E3C540C4
15JUl65
12<40265
17MAR66
125643
INDAT
DC
X'lEOOOF0007200330013B003COOIEOOOF'
DC
X'38001COOOE000320013000382C032401'
DC
X'Z2012101202120112009200520032403'
DC
X'3403140114031C030COI0AOIOC030A03'
DC
X'3C0300002C012AOIZB03240222022000'
DC
X'3401300310000COOIA0130003COI0202'
DC
'X'2C022A0029002B202910280828042802'
DC
X'Z8012A02290Z34023400302030101COZ'
AiJ
DC
X'lA022800200118000A021COI00140D18'
DC
X'00240030002802040208021002200300'
DC
OUTDAT DC
X'Ol082C03'
X'A3FIFDFEFF7FBDFE7F7050B8FEFF7FBC'
DC
X'000202010100A0603820121008864402'
DC
X'1110A4543020104844824928A0512CIB'
DC
X'OC262351C4F4804120D08854321DI089'
DC
X'4522D20914A2554DAA60325AOE010BDF'
DC
X'EFF1FAFDBEFF6FBFDBE7F780'
TITLE
DC
C'READ XLATE FLT'
"'SGI
DC
READ 0'
DC
C'ATA
DC
C'ATA
SENSE 0'
DC
C 'ATA
CHECK RE'
MSG2
DC
OC
C'AD DATA I'
C'ACT I EXPD'
MSG3
DC
C'-HEX- I -HEX-'
MSG4
DC
C'-HOllAR I TH-'
MSG5
MSG6
HCON
DC
EQU
DC
C'OO'
MSGl&l
X'20100B040201Z01008040201FF'
DC
C'TE0123456189'
Al31EXIT21
I'
S~RAD
DC
•
GENERAL REGISTER EQUATES
GRO
EQU
eQU
EQU'
EQU
EQU
EQU
EQU
EOU
EQU
EQU
EOU
EQU
eQU
EQU
eQU
EOU
•••••••••••• ** •••••••••••••••••••••••••• _ •••••••
_* ......... *** ••• ** •• **
•
.** •••• **.** •••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
0,4
XL4'09'
XL4'08'
XL2'OO'
XL2'20'
Xl4'D4'
**.***.**********.*************.*.*.************.* •• *********.*.**.-.**
001E58
00lE6l
00lE68
001E7l
001E78
00lE81
00lE88
OOlE9l
00lE98
OOlEAl
001EA8
OOIEBl
001 EB8
OOIECl
001Eca
OOIEOl
00H08
OOIEEI
001EE8
001 EFl
001EF8
OOIEFC
001F05
OOIFOC
001Fl5
OOlFIC
001F25
001F2C
001F35
001F3C
001F45
001F4C
001F55
001F58
001F61
001F66
001,f6F
PIN 840260
PAGE
HA
IBM MAINTENANCE DIAGNOSTIC PROGRAM
* FS041
2B21 SCAN/2540 READER/PUNCH
F8051 READER TRANSLATOR FlT -ROUTINE OVERLAY 04-
• FB041
2B21 SCAN/2540 REAOER/PUNCH
FB051 READER TRANSLATOR FLT -ROUTINE OVERLAY 04OOlDFF
001EOO
001E02
001E06
001EOA
O(HEOE
001 El 2
001E16
o 0000-
000 000000000
000000
000001
oa0002
00'0003
00'0004
D00005
'000006
000007
000008
D00009
OOOOOA
OOOOOB
OOOOOC
00'0000
OOOOOE
OOODOF
GRl
GRZ
GR3
GR4
GR5
GR6
GR7
GR8
GR9
GRA
GRB
GRC
GRD
GRE
GRF
a
1
2
:;
4
5
6
1
8
9
10
11
12
13
14
15
.
*.******** •• **.*** •• **~ ••• ** •• * •• **.****** •••• * •• * ••• * •••••••• *** ••••••
CONDITION CODE EQUATES
000078
000008
00'0005
000001
0000D4
000009
000008
000006
000004
000002
000008
000002
000008
, 000004 '
000002
OOOOOF
000000
000007
00'0004
DOOOOC
OOOOOC
000000
DIAG WRITE D'
OOlFFO
10
F805-1
PAGE
11
DATE
EC
C5D90940FlF4FO
15JUl65
124265
17MAR66
125643
3
1
3
o
1
3
o
1 2
1
o
o
2
2
2
2 3
3
2 3
**
*ERR140
ERROR DEFINITIONS
DC
C'ERR 140'
DATA RECORDS MISSING OR OUT OF SEQ
[0
FB05-1
PAGE
UA
.L i. Ai
.4.
,A4Jiii!¥.¥1?,
_MJMWl,mg;i£.tt;4imw
~-"."''''~'
.
., ",-"".~
...-.,.;...~.~.
"~_"~~V
"._~"",_
....... ___ ._............. _",
,~,_
,_,
~~ "'--"-~~"""""''''---''''''''''''''
,PIN 840260
PAGE
12
t8M MAl NTENANCE OIAGNOST IC PROGRAM
• 1'8041 . 2821 seAN/254U REAOER/PUNCH
1'8051 REAOER TRANSLATOR FLT -ROUTINE OVERLAY 0400lfF1
e509091t0F1f4Fl
ERR14l OC
ENO
IBM MAINTENANCE DIAGNOSTIC PROGRAM
• 1'8041
2821 seAN/2540 READER/PUNCH'
f8051 READER TRANSLATOR FLT'-ROUTINE OVERLAY 04-
CAN NOT ISOLATE FAILURE
C'ERR 141'
POST ASSEM8LY DATA.
REfERENCES TO DEFINED SYMBOLS.
1
1
1
4
4
1
,0,'
1048
1040
1ClO
l8E6
0
NA
CAW
CSW
ORR
OWR
GRO
1882
IBFA,
i9A8
19A4,
19E6,
1A08,
lA4C,
lAC4,
,18C2,
lC42,
102C,
106~,
1
2
GR2
1
3
GR3
1
4
GR4
5
GR5
1
6
GR6
1
7
GR1
8
GR8
. 1
9
GR9
I
A
B
GRA
GR8
C
D
E
GRC
GRD
GRE
GRf
LOW
SIO
,THA'
BCON
BUSY
OCRR
ERNO
ERRX
I
I
1·
1
I
1
4
4
I
4
4
8
"
';':1
'.'
':1
j,
)\.,
,
·1
'\
1
;1
.\
DATE
EC
15JUl65
'Ult265
to
F805-1
PAGE
12
17HAR66
125643
DATE
EC
GRI
1
1
.J
1
15JUL6~
124265
I'
4
I2E8
1B1E
1882
2
1C42
HE4
1945
1C1E,
lC46
lAOC', ,
19EA,
lAlE,
lA4e,
lAce,
1804,
lC46,
1034,
1068,
19F4,
18AO,
lCOA
:I.9EA,
lAIE,
lA56,
1800,
1804,
lCE8,
1046,
lE02,
191'4,
lBBC,
1988,
189C,
lE02
198C, ' 1982, 191'8.
lA6A. 1A6E, lA6E.
1B16, 18B8. lBBC,
lE06
1990, 19B8, 19ft,
18C6, 1804, . IB08,
lEOA
1994, lAOO, lAOO,
lAf8, ' IBIA, l81E,
1EOE, 'lEOE,
lA50, 1A5A, lA5A,
lEl2, lEl2
1998, 1998, 19C8,
lA8C, leF4, lEl6
lA70, lA78, lA7C,
lACC, lAOO, 1800,
. 1040, 1064, 1064,
1984, 19CA, 19CE,
lA54, lA56, lA5A,
1AFC, 1804, l82A,
lB58, 185C, 1034,
lOSE, 1082, 1082,
19C8, 190C, 190C,
1A3C, 1A40, lA48,
lA62, lA66, 1A66,
1Aelt, 1AC4, lAce,.
1B20, 182E, lIll8,
1040. 1068, 1068,
19A4, 19A8, lAOC,
19C4, 1904, 1908,
1AOA, 1AEC, IBOA,
1C2A, 1C58, le7E,
102C, 1046. 1046.
18E6, lC26
1050
le02.
lA8C
1A90
lC2A,
lC58
1B58,
UBA,
lBC6.
UE6,
IB08
1838.
17HAR66
125643
191'8,
lA3C,
lA62,
1854,
l8FA,
lCF4,
104A,
1EOA,
lA08,
lCEO.
19fC,
lA40, ,
lA66,
l8ge,
lClA,
l.CfIt.
105A,
lEOE,
lAIE.
1008,
lAOO
lA48
lAA8
18C2
lClE
102C
105A
1E12
189C
lE02
191'8,
lA14,
lC36.
lA36,
lA18,
lCE4,
lA36.
lA88.
1074,
lA38
lA98
lE06
19Ft,
lC3C,
lA40,
lCE8.
lA44.
1084.
lBt2
lEOA
lAite,
1820,
lA9C.
le64,
lAAO,
lCEe,
tAA2
10B8
IB7E,
lCFO,
10C6, '10E2
"
.;"
,
"i:;
.c.;:·(
d
19E6, , 19E6,
19EE.
1A62.
lA84,
1804,
1098i
19CE,
1AA4,
1832,
1038,
1086.
19EO,
lA48,
1AAO,
lAFO,
1844,
1084.
lCOE,
19EA.
1812,
lC88,
l04E,
lA90,
IB2e,
109C,
1900,
IAAC,
1B50,
104A,
108A,
1A2E.
U56,
1AA2,
IBOO,
1B76,
108E
1C6A
19EE,
188C.
lege.
105E,
tAA8,
1832,
lOAD
1904,
lAC8,
1854,
iuc
101C
lIl66.
186C,
iBBA
109C,
tA38,
lA5E,
lAA8,
180E,
1030,
lA54
1AOO
1854
105A
lE24
1A3C
lA.5E
lABA
181E
1034
lA2A,
1886,
lC82.
108E,
lACO
lC02
1COE
1092
10~E,
, ~'t
10
PAGE
1
!
191'4,
lA38,
lASE,
182E,
18F6,
lCE8,
104A,
lE06,
lA08,
IBEA,
".05-1···· "
12A
.----.-~"-~~---.
W,J,...Q.
/-~~r
o
00 0 0 O' 0 '0 0 0 0 0 0 0 0 0 0'0 0 0 0 O' 0 0"0 (J 0 00,<000'0 0
,_..
_.
----.-------~
---------
-~
-_.
$ t
t*','
*
mttrnm t1
h
0_000 00000000000000000000000000000
~
IBM MAINTENANCE DIAGNOSTIC PROGRAM
16EC
4a
1F04
40
2
1
78
1
C
16
IF66
11' lFAF
IFBA
13
11
IFC7
1F02
2
16
IF67
4
lE48
4' lA2E
1954
4
196E
4
4
197C
4 ,1988
19A4
4
4
19C4
4
1A08
6
1964
6
1AlO
4
lAIE
1004
1
1
1231
1
1220
8
1
1
1
1·
5
1
8
4
lE54
llFA
1
4
1
14
17E8
4
1E4C
1
8
EXIT
HCAW
HCON
HCSW
HIGH
HION
LOEQ
MSG1
MSG2
MSG3
MSG4
MSG5
MSG6
NINE
PT06
RTOO
RT01
RT02
RT03·
RT04
RT05
RT06
RTOX
RTlO
RT20
SNSW,
UAPU
UARO
ZERO
ALLON
ANYON
AVAIL
COCNT
CSWAG
CSWST
OROAT
EIGHT
EQUAL
j
I
j
I
1
i
;1
1
1
1
1
16
4
1
1
1
4·
4_
4
4
4
4
4
4
4
6
4
4
1
3
1
ERSWI
1A94, . 1822
EXIn
EXIT2
GZERO
INoAT
1988, ICED
lGOUT
1A1A, 186E, 1800,
MESSI
MIXED
NZERO
PT051
1A02
PTO.61
1A06, ·-lAF4
PT062
1B06, 1812
PTD63
1AF8
PTD64
1AB6
PT065
lAAE
PT066
1AE2
PT067 'lA98, 1816
1B82 '
PT068
PT069
1B1A'
PT06A
1B34
Ro.CRO
lA2A, 1AoA. 180A,
RTN04
1015
SCRAO' 1964.
100'0, 1000, 1000,
SEeST
1000, 1000, 1000,
1000, 1000, 1000,
1000, 1000, 1000,
1000, 1018, 1066,
18A8. 18AA, 1012,
j
1
1
-:,
II
]
1
·1
j
'I
I
.~
DATE
EC
15JUl65
124265
1944
1714
InC
2
1E58
1C6C
1202
4
7
1A2A
1A32
1A40
1A50
lAC4
1AoA
lAFO
lAF8
1816
1838
1872
1B8E
1950
IFEO
1000
8.
11F7·
lE52
IF58
l7EO'
IDEO
10E4
1700
8
1
1
1708 WKAR4
8 ALLOFF
F ALWAYS
2
14
4
1
1030
IB06
lC86,
lC96
lCAO,
1CA6
1020
lCFC
19CA,
lA02,
1834
1
IF04
SENSE
THRT2
TITLE
TSTOR
UNIT1
UNIT2
WKAR3
lCAC
1086
1958,
1972
1980
1A04,
198C
19FO
1E28
lC32.
1C60
lA16
196E,
197C,·
lA82,
lADE,
1826,
1COA,
1C32,
lC60
1CE4
108A
1960,
19FO, _188E,
1960
114C
1890
18E4
lE40
112C
IFFO
IFF7
16E6
1
4
1C8A
1CC4
4
1C08
2
4
1CFE
1034
4
4
1046
4 _ ' 1064
4
1070
1074
6
4
10E2
6
IDEE
10FC
2
4
ICED
1E1C
4
1E28
4
1,
C
6
1
9
1
o
1
4
1
16
lEFt
1886
2
4· 1A88
4
lAA4
4
18B8
4
.180.4
1BC2
4
8
1E38
8
1ElD
179C
1
1234
1
1
14
16
8
1
7
7
1C6C.
lE1C
1060.
10DA.
1888
198C,
1900,
1958,
10F4
lA32,
196A
IFEO
~_~_
.''''_~'
__
~
__ ' __ ''''''"'"'_'''''.M'''· ..... ___ ._...
_~
......... ____
~
..... _..
~
,--~
-
.... ,- .. ...
~
-,~-
PIN 840260
13A
PAGE
2821 SCAN/2540 READER/PUNCH
" Fa041
Fa051 READER TRANSLATOR FLT -ROUTINE OVERLAY 04-
1
lAAE,
"~
IBM MAINTENANCE. DIAGNOSTIC PROGRAM
PIN 840260
PAGE
13
2B21 SCAN/2540 READER/PUNCH
" FB041
Fa051 READER TRANSLATOR; FLT -ROUTINE OVERLAY 041
1
13
1
1
.. ". _. _... __ •.."_ _ ".. .. ____
10E6
18E2
1872·
LOOO,
1000,
1000,
1000.,
1A28,
i014,
17MAR66
125643
L
1000.
1000.
1000.,
1000,
1864,
lO7E,
1000.
1000.
1000,
1000..
1866.
1080.
I
I
100.0
1000
1000
100.0
189A
1084
,I
10
PAGE
F805~1
13
. DATE
EC
;
P
1
14
1.
1086,
lC3C
lA7C
197A
19AC,
10C2,
10C4,
1000,
1002
19AC,
1982,
19CO,
19C4,
1908,
19EO
lA6A.
IB50,
1016,
1092.
10C6,
18AA.
1972,
196A,
1812,
1COE,
lA88,
185C,
1016,
1098,
1000
IBAC
1980,
1A04,
186E,
1C6A,
IB3E.
IB64,
1054,
10AO,
IB3E,
IBAO,
1054,
10A4,
IB44.
lBA8,
1070,
1084.
IB4A.
1008,
1074,
1088.
IB4A
1012
107E
10C2
198C,
lAlA,
187A,
1C86,
lC70,
lA86,
188C,
1COE,
103C,
1A06,
1886,
106C,
10A8,
1AE2.
1800,
lE28
lE20
1AF4
18E2
1CFO
199E,
199E,
190C.
lAID,
lA50
CAWKEY
CKROAT " 1994,
COMOAT
199A,
CRoecw
1C42
CSWSAV
ERR140
18CE
ERR141
18EO
EXIT8Y
LGOUT7
1C9C.
LGOUT8
1C88
LGOUT9
1C7E
LGOUTA
1E16
LGOUT8
106C
103e
LGOUTC
LGOUTO
1050
LGOUTE
1038
lGOUTF
1060
LGOUTG
100A
lGOUTH
lOE6
LGOUTK
lOF4
lGOUTM
lC86
lGOUTX
1C70
lGOUTY
1E20
MIXNON
NEQUAL . lA16,
NMIXEO
NOT8SY
NOTZRO
lAID,
OUT OAT
PRCRES
1ACO,
PT0630
1A80
PT0631
IB26
1065
ROCRo.l
Ro.CR02
IBBE
1B82
Ro.CROX
1C1A.•
RROCCW
RWRCCW
18F6
SCHNUM
1954,
SCPOAT
lA28,
lBOE,
18AC,
1C36,
lC78,
lCAC,
lCo.O,
101C,
10C4,
IDEE,
SCPROD
'
1984,
163E
183C SENOAT
1990,
1140 SIOSW5
15JUl6S;
124265'
17MAR66
125643
1C82
lA80,
1882
108E
'lAEC
.0/
t\
.\
~4f
195C, .
lA2E,
IB2A,
l8EA,
lC4E,
lC8C,
lCBA,
1e04,
1020,
1002,
10FB,
lE24
1CEC
lA22
iAA4,
1876,
lBFO,
1C52"
1C90,
1C8E,
1coe,
10.26,
1004,
lEOO,
lAC8.
188E,
18FO,
lC52,
1C90,
lC8E,
lCFE,
1026,
1004,
IE 30,
lAE6, ,1AFO,
1892. 1892,
lC10. lC14~
lC64, lC74,
1C96, 1CAO.
1CC4, 1CC8,
10.02, '1002,
1080. 10AC,
lODE, iDEA,
lE38, lEttO
1AFC
189A
lC14
lC78
lCA6
lCCC
1014
1086
10EE
ID
PAGE
F805-1
13A
'."
PIN
IBM MAINTENANCE DIAGNOSTIC PROGRAM
P~GE
840260
14
IBM MAINTENANCE DIAGNOSTIC PROGRAM
*F8041
2821 SCAN/2540 READER/PUNCH
F8051 READER TRANSLATOR FLT -ROUTINE OVERLAY 041
1
1
1
1
l'
I
1
1140
112C
1134
llF8
1060
IOE2
IOE6
1000
S IOSWS
SIOVR3
SIOVR4
Sl'ATSV
SVRPSW
UNIAOR
UN2ADR
XF80'51
IBFE,
1C06.
lC22,
PIN 840260
PAGE
14A
F8D4
2821 SCAN/2540 READER/Pu'NCH
FSOS BUFFER ADDR FLT -ROUT.INE OVERLAY 31C2E,
lC4A,
lC5C
PERIODS' CORRESPOND TO BLANK COLUMNS.
COLS.
1964
lC26
IBE6
1 THROUGH 20
BESD •••••• AA •• AAXFSO
YQ Y9
99 9
9
COLS.
21 THROUGH 4'0
51 •• 0AAA.AFC ••••••••
YQY Y8
999 <)9
BTXT.AAN •• AC •• AAAJH~
9
YQ9 Y9 Y9Y89
99999.9
NO ERROR .DETECTED IN ABOVE ASSEMBLY
"
10'
o
00
17MAR66
125643
10
F805-1
PAGE
14
,0
o
f)
"
o
61 THROUGH 80
••••••••• ~ ••••••• 840
261.125643 •• 80510001
•••••••••••• _•••• w ••
•••••••••••• 805'10002
~
GAGAAAAAAAAAAAAAAAAA
9Y9YYYYYYYYYYYYYYYYY
9 99999999999999999
AAAAAAAAAAAAAAAAAAAA
YYYYYYYYYYYYV'fYYYYYY
99999999999999999999
AAAAAAAAAAAA80510003
YYYYYYYYYYYY
9999999.99999
BTXT.AQH •• AB.•• AAAAAA
9
Y99 Y9 Y9YYVY
9
9
9 9999
AAAAAAAAAAAAAAAAAAAA
YYYYYYYYYYYYYYYYYYYY
99999999999999999999
AAAAAAAAAAAAAAAAAAAA
YYYYYYYYYYVYYYYYYYYV
99999999999999999999
AAAAAAAAAAAA80510004
YYYYYYYYYY.YY
999999999999
BTXT .AQ ••• A8 ••. AAAAAA
9
Y9
Y9 Y9YYYY
9
9
9 9999
AAAAAAAAAAAAAAAAAAAA
YYYY¥YYYYY.YYYYYYYYYY
99999999999999999999
AAAAAAAAAAAAAAAAAAAA
YVYYYYYYYYYYyYYYYYYY
99999999999999999999
AAAAAAAAAAAAB0510005
YYYYYYYYYY.YY
999999999999
BTXT.AQH •• AB •• AAAAAA
9
Y9R Y9 Y9YYYY
9 0 9
9 9999
AAAAAAAAAAAAAAAAAAAA
YY.YVYYYYYYYYYYYYYYYY
99999999999999999999
AAAAAAAAAAAAAAAAAAAA
yyYYYY.YVVYYYYYYVYYYY
99999999999999999999
AAAAAAAAAAAAS0510006
YYYYYYYYYYYY
999999999999
BTXT. AQA ••. A8 •• AAAAAA
9
Y9Q Y9 Y9YYYY
9 0 9
9 9999
AAAAAAAAAERR.051.DEV
YYYYYYYYY
999999999
ICE.OOO.DIAG.CK.RO.D
ATA.-.RESlDU80510001
BTXT~AQY •• A8 ••
OUNT.IS.OOOO.SHlD.BE
.0020AGACAGFEC7DGA9Q
Y9Y9YQQ-.0 QZY 9
9 9 9ZZ
G06MABOOGA9WS0510008
Z Y-9 9ZY 9
9
BTXT.AJJ •• AB •• AABOAP
9.
Y8Y Y9 Y9B-YB
999 9
99 9
EBA.ODGA92EA66KA24EZ
QY- 9ZY 9ZY 6 9 9Q
Z9
9
Z
K/2625AAEA&AOHHOOSBB
9 9.ZQ·QQ Q ZZ& -9
910 9
1EEA2YA024GAB0510009
8ZQ -& 9ZY
BTXT.AJH •• A~ •• AA9&KB
9
Y8R Y9 Y9 - 9
99
9
9
2K2VBODS2BG092KA24EZ
9 88-Z6 9Z 9 9 9Q
99 9
Z
K/2625EA2YA024G49KKL
9 9ZQ -& 9ZQ 8 l
o
9
7U24KG8HIBKA80510010
9 9 Z Q 9
BTXT .AJA •• AB •• AA24EZ
9
YBQ Y9 Y9·9Q
99
9
9
Z
K12625HOOWBA1EEA2YAO
9 9Zf. -Y 8ZQ -f.
24GA9FKB2K21BODS2BGO
9ZY Q9 ~" 9B-ZS 9Z
9FKA24EZK/2680510011
Y 9 9Q
9
Z
BTXT. AJH •• A8 •• AA25 EA
9
Y8
Y9 Y9 9ZQ
99
9
9
0
2YA024GA90KLBf.24KG8D
-f. 9ZQY Z
9 9 0
BTXT.AKA •• A8 •• AA24AA
9
YSY Y9 Y9 9QY
999 9
9
99
Y9
Y9
AAAL.C
Y9
9
9
9
9
o
0
9
9
o
l
IBAA 7UAJ8HEA9BAA8&AJ
QZQ ZY ZZQ QZQ ZY
Z9
9
ZZ9
9
BDAABONKGCKA80510012
OZQQ99990 Y
- ZZ
9
DA24KAAA24AAAAG09BEM
-9 9 YQY 9ZQQ9Z Q-9
999
99
Z
"SGG-BOEMSCG-BBBA24KK
6Z QY-9 QZ QQ-Y 9 l
Z9
0 ZZ 9
2524NL7U24GAS0510013
9 9 Z
9ZY
BTXT.AK8 •• A8 •• AABDNL
9
YS9 Y9 Y9QS Z
99
9
9 Z
6f.24GACBBJ8DGOCFNL8&
9ZYQ9-Y QZ Q8 Z
Z 9 0 Z9
24G-BB800AFCA.OOGABQ
9Z QQS-OQQO- 9ZYQZ
ZZ9 9Z-.
Z
EA66AJOOGAB060510014
ZY a-y 9ZYQY
BTXT.AKO •• AS •• AABEAK
9
YS& Y9 Y98Qy8
99- 9
9 999
GUB4KBBD2VKC7SBFEABF
9 99 9 Y 8 9
8ZQQQ
9 9
ZZO
BEAKH&B4KB8D21KC75BB
8QY89 99. 9 Y 9 9
Q
999
9
0
EABFBBA.ODGA6051001S
ZQQQ8Q- 9ZY
ZZ099
BTXT.AKQ •• A8 •• AABOEA
9
Y80 Y9 Y9QYZY
66AJJLGA6MF.7DG06MHA
8-YZOlQ Y- QZ YRY
99
99
.99
7SFA7QBEACGEGPKC847Q
88Y 8QY99Q9 9
9 999 9
BOA.SEBOA424S0510016
8-Y
8-YS 9
9
9 9
99
15JUL65
124265
COLS.
BTXT. APO •• A6 •• AAAAGA
9
Y9- Y9 Y9YY9Y
9
9
9 999
9
DATE
EC
41 THROUGH 60
COLS~
9
9 Z
15JUL65
124265
9
9 9
17MAR66
125643
Z
ID
F805-1
PAGE
14A
o
o o
000000
0000 0000_0000000000-
ooooooooeoo
000
,
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PIN 840260
PAGE
15
IBM MAINTENANCE DIAGNOSTIC PROGRAM
F804
2821 SCAN/2540 READER/PUNCH
F805 BUFF,ER ADDR FLT -ROUT IN!: OVERLAY 3-
F804
2821 SCAN/2540 READER/PUNCH
FB05 BUFFER ADDRFLT -ROUTINE OVERLAY 38TXT.•,AKS.,.,A8.,o'AA80A4
9·YB8 'Y9 Y98-Y8
'99
9
9 9 9
.·20130A42MG3E'M8CG-·CBGO
&8-Y8Y9 -9, .QZ.Q8Z
-9 9'
0 Z9
'·:.ft·TXT. ALQ ••'A8,••'AA25·24
9
'YB9 Y9 "1'9 9"9
99
9
9
'·:BA2ENJ:24:7UG-C6AAAAEJ
-9 Y 8 9 Z09ZQYOLY
Z
PIN 840260
PAGE
15A
9
.
BTXT •. AOH •• AT.,.AAAAAA.
9
V8~V8
V9VVYV
99
99 9 9999
AAAAAAAAAAAAAAAAAAAA
99VV9VY99999Y9V99YYY
99 99
9 9 999
··l'tAflH8 BG~'FEJ80 510e IB
9Q ·QZ ..ORZV
BRLD •••••• AM •••• AAAA
9
V9
Y9V9
AAANAANAAANIHANA ••••
8y.o9BY808V809V8
999 999-999- 99
CBB.t8D·GOOB8118DGODBBA
. Q9- QZ QY-Y QZ QY-Y
Z
0 Z9
0 Z9 9
, '8UEACFBA24KK80510011
. QZJ;)QQ-V 9 1
F
8Z QR
Z
DDGOOF.'ttAALN'AEH8FG~C
QQZ QQZQYZ 9Q
ZO Z
9
Z
o
OlO 9
Z
0
9
Z
9 9
BEND •••••••••• ~, •••••
AAANO.ERRS.DETECTED •
VYV
999
•••••••••••• 80510034
•••••••••••• 80510035
•.•...•••..........•
Bl'XT. AL& •• AB ... AADOGO
9
YB
Y9 Y9QQZ
99
9
9 ZO
Df>A';I8DGACBAA EH&AOHHO
OQ-Y QZYQOZQQO Q ZZ&
Z 9 0 Z- 9Z- 9
OW8AIEEA2YAAIEGA9DBA
-Y 8ZQ -9 810 8-Y
9
0
9 9 9
24KF2524"A-AEOB0510019 .
9, 8·, 9 ,9Z0·0&
9Z
BTXT.AlH •• AB •• AA&AOH
9
Y80 Y9 Y9 Q Z
99
9
9 9
BQIEEA2YAAIEGA9DNG24
-9 8ZQ -9 BZO 8 8 9
2YG-CBAAAFEJDDGODFAA
Z QOZQYOZYQQZ QQZQ
Z- 9
ZO Z
A2EJDDGODFAA80510020
Y9ZVQQZ OQIO
9
ZO Z 9
BTXT.AlO •• A8 •• AAA3AA
9
V8& Y9 Y9Y9ZQ
A3AJFGAAFCA.ELNCGCBA
Y9ZYQ8ZQOOZ QY9Z9Y-Y
9 9Z ZZ- Z9
9
24KK2524NBG.D6A&FGNE
9 Z 9 99ZZ Q9Z QR9Z
Z
ZO
G-C88A25GODB80510021
Z 0 -9 9Z 'oz
A-.AA024NFGADBAA-AGA
Z YZ& 99RZYQZ-9 YZY
DSBAOAKHOAOAAAFCN.GQ8-9&Y9&9&YZYQY9 Z
Z9 -9 - -9 9Z
DS8A2DAOO 8A-80510022
Q8-9 z.l&&8Z
Z9
~-9
AAA08DGADBAA8DGAD&AA
QY-& QZYQR-YQZQQ-ZY
99
0 ZO
0 9Z
AMAAAB-AO:8·&.G08p510023
V9ZQQ9Z& Z
'8T XT • AAN •• AC •• AAAJ&.
9
VQ9 Y9 V9V8
99
9
9 99
,ACA •• BGOCKBOft0510024
09Z 8Z, Q 8-
BTXT.AA-•• AH •• AAAAAA
9
YO
Y9 Y99YYV
99
9
9 999
GAlH ••••••••••••••••
8Y80
999-
BTXT.APO •• A8 •• AAAAAA
9
V9- V9 Y9YVVV
9
9
9 9999
AAAAAAAAAAAAAAAAAAAA
YVVVVVVVVYVYYVVVVYVV
99999999999999999999
AAAAAAAAAAAAAAAAAAAA
YYYYVYVVYVVVVVYVYYYV
99999999999999999999
AAAAAAAAAAAA80510043
VYVVVYVVVVYV
999999999999
BTXT.AOK•• A8 •• AAAAAA
9
Y99 V9 Y9VVYY
9
9 9 9999
AAAAAAAAAAAAAAAAAAAA
YVYVYYYYYVVYYYYVYYYY
99999999999999999999
AAAAAAAAAAAAAAAAAAAA
VYVYYVYYVVVVYVYYVVVY
99999999999999999999
AAAAAAAAAAAA80510044
VVVYVYVVYVVV
999999999999
8TXT.AQ••• A8 •• AAAAAA
9'
V9
V9 V9YVVY
9
9
9 9999
AAAAAAAAAAAAAAAAAAAA
VYYYYVVYYYYYYVYYVYYV
99999999999999999999
AAAAAAAAAAAAAAAAAAAA
VVYVYYYVVVVVYVYYYYVV
99999999999999999999
AAAAAAAAAAAA80S10045
VVYVYVVVVVYY
999999999999
BTXT.. AQH.'. A8 •• MAAAA
9
V9R V9 V~VVYV
9 0 9
9 9999
AAAAA'AAAAAAAAAAAAAAA'
YYVVVYVVYVYYVVVVYVVV
99999999999999999999
AAAA~AAAAAAAAAAAAAAA
VYVVVVVYVYVVYVVYVYYV
99999999999999999999
AAAAAAAAAAAA8051D046
VYVYYVVYVVYY
999999999999
q
BTXT.AOA •• A8 •• AAAAAA
Y9Q V9 Y9VVYY
9 0 9
9 9999
AAAAAAAAAAAAAAAAAAAA
YVYVYVVYVYVYVVVYYYYV
99999999999999999999
AAAAAAAAAAAAAAAAAAAA
YYVVVVVYVYVVVVYVVYYY
99999999999999999999
AAAAAAAAAAAA80510047
YVYYYVVYYYVV
999999999999
BTXT .AOV •• A8 •.• AAAAAA
9
Y9
V9 Y9YYVV
9
9
9 9999
AAAAAAAAAAAAAAAAAAAA
YYVVYYYVVYYYYYYYVVYV
99999999'999999999999
AAAAAAAAAAAAAAAAAAAA
YVYYVYVVVVVVVyyyyy.yy
99999999999999999999
AAAAAAAAAAAA80510048
VVVVVVVYVVYY
999999999999
BTXT.AJJ •• A~ •• AAAAAA
9
Y8V Y9 V9VYVV
999 9
9 9999
AAAAAAAAAAAAAAAAAAAA
VVYVVVYYVYYVVVVYYVYV
99999999999999999999
AA~AAAAAAAAAAERR.XXX
XAGADAGFED1D80510049
V9V9YQQ-O.Q
9" 9 9ZZ
BTXT.AJH •• A8 •• ~AGA9W
9
Y8R V9 V9ZV B
99
9
?
EA1DGA9WKBONGNG01MAB
-V OZV !Iii ZOVZ 9-9
9
Z9
ODGA94BOAFGHA.ODGA9H
9ZV 88-V8QR- 9ZV 0
BTXT.,AJA •• A8.*.AAAA84
9'Y80 V9 V·9ZQ8
99
9
9 Z 9
A.• 8ALOBAeUKi:t8V8UEJtlW
EJDAPC7S7SKATSJAAHAA
ZVQO 9 8 8 V 8VV-9QY
19
9 99 Z9
99
9
o
9 9
•• A8 •• AAA&.B
Y8
Y9 Y9Z 8
BTXT.~LB
9
"'99
9
9
9.
9 -
•• A8 •• AA-AGO
Y9 Y9 9Z
99Z 9
9
BTXT~AMQ •• A8 ••
'
Z
9
DDKA24.AKG2624AADFAA
09 8 9 Y B B 9ZYOQZQ
BTXT.~MA
~BQ
9
9 9
Z
9
9
9
Z
Z'
ABAAAAA07UEJDDNBG.DB
YBZQQ9Z& ZYOQ9ZZ QY
9
ZO
Z
NG250AGOOANG240AGHAA
8 9&YZ QQ 8 9&Y90Z0
BTXT .·AMJ •• A8 •• AADG8E.
9
Y8Y Y9 Y9Z9 Q
99
9
9
0
GOBMBODG8EGOBMBODG8E
Z Q8B-Z9 QZ QBB-l9 Q
Z9
0 Z9
0
GOBMFA1QBEABGFHAG8EA
Z Q8808QV99Q9 9QZQ
Z
999 9
Z 0
CFAA·i\-XAAAX BA80510025
.QQZ.oV8ZQVB-9
BTXT.AMO'•• A8 •• AA24KK
9
Y8
Y9 Y9 9 Z
2524EJEDAAABBA24BA25
9 9ZVQOZQQ9-Y 9-Y 9
9Z
9
9'
9
EJEDAAA()j{A2624EJEDAA
ZVQOZQ09 9'9 9ZVOOZQ
• 9Z
9
9Z
A·FKA28.24EJED80510026
.09 999'Z,V.QO
BTXT.ANA •• A8 •• AAAAAH
9
Y8O' Y9 Y9ZO'Q9
999 9
9
9
K02224EJEDAAABKL2A24
9 B 9ZYQOZQQ8 9 R 9
9
9Z
99
EJEDAAADKK2524EJEDAA
ZYQOZQQ8 Z 9 9ZVOOZO
9Z
99
9Z
99
BTXT.ANH•• A8 •• AAEJED
9
Y8Z Y9 Y9ZYQO
99
9
9 9Z
8A24KK2524BA24AAALEJ
-9 9Z 9 9-Y 9ZQ09ZV
9
EDKG2524AAANEJEDAAAA
00 9 9 9ZQQ9ZVOOZOQQ
Z
9 9Z
99
AA8DGOEQAAAA80510D28
-Y OZ·, QOtQ09
o Z
BTXT.ANA •• A8 •• AAGOEQ
9
Y8Y Y9Y9Z QO
99
9
9
Z
AODQA-7UAABDGAEJA008
Z&OOZ
-Y QZQOYZ&&8
-Z
0 9Z --9
A-8&AAAANL24-AGKEJDD
Z ZOQ9 Z 9 V9ZZVOQ
9
ZO
G7 AAFA-K4JA'AM8051 0029
9 VV Y99YVYZ
99'9 999
BTXT.ANH •• A8 •• AAAAKY
9
Y80 V9 Y99V9
99- 9
9 9
JAll&BAK4JAA&A22821.S
YYV V99VVY V9
999 9 999 9
CAN/2540T.B~FFER.ADD
R. FLf AA-AAAAA80510030
VYYY9YV
'
.999999
BTXT.ANO •• AB •• AAAAAA
9
V8
V9 V9999'1
AAAAAAAAAAAAAAAAAAAA
999Y99VYYYY99VY9YY99
9 99999 99 99
AAAAAAAAAAAAAAAAAAAA
9YY99V99YYY9999YY9YY
99 9 999
99 99
AAAAA.A.AAAAAAftt>510031
9YYYV9'9V99VY
9999 ',9 . '99
AAAAAAAAAAAAAAAAAAAA
9YV9Y9YVYVY99V99YY99
99 9 99999 9 99
AAAAAAAAAAAAAAAAAAAA
999YYY99YVYYY999YY9Y
999 . 99999
99 9
AAAAAAAAAAAAB0510032
Y999VV99V'99V,
999 9 9
AAAAAAAAAAAAAAAAAAAA
99YY9VV9YYYY99Y99YY9
'~"9"49';'9999
9 99
AAAAAAAAAAAAAAAAAAAA
YYYYVYYYYYYVYY99Y9VY
99999999999999 999
AAAAAAAAAAAAcS0510033
V'W9¥YYVV99V
9 . 99999 9
9
YBZ
99
99
99
Y9
9
9
9
9
9
BTXT.AOV•• A8 •• AAAAAA
9
V89 Y9" V99999
99
9
9
9
.
8TXT.. A~•.•:A8 " • .:AAAAAA
9Y8
V'1 V9VYY9
'99·, 9 " 9:'''99
DATE
EC
15JUL65
124265
17MAR66
125643
9
-9
Z
-99
8
9
9
'IO '99
BOAT •••••••••••!. a" • • •
9
•••••1•••• !•••••••1 • • • •
Z 9
8ESO •••••• AA •• AAXFBO
yfi V9
99
.
9
99Z
AF8A24KF252480510021
9 9 9
08~99
10
PAGE
• ••••••••••• 80510031
.......•......•.•....
•••••••••••• 80510038
•••••••••••• 80510039
9
9
FB05-1
15
DATE
EC
9
15JUL65
1242651
11MAR66
125643
•••••••••••• 80510036
•.•........•...•..••
8DAT ••••• ~ ••••••••••
Z
AADFAA
Y9O'RZY
9 ZO
• •• J ••••••••••••••••
9
51 •• 0AAA.AGF •••••• ;.
YOY Y8O'
999 99Z
.... .•...••.... ,...
~
• ••••••••••• 80510040
• ••••••••••• 80510041
ZQ8Z-Y
9
9
,8
ZVQ
Z.
• ••••••••••• 80510042
VVYVYVVVVVYYV
9999999999999
9
9Z
I
EA66AAFHAJ7Y80510050
ZV 8ZQQRZV
9 9Z 9
GA9DBA7JHA7S80510051
ZV -V ZRQ 8
o
10
PAGE
F805-1
15A
,
IBM MAINTENANCE DIAGNOSTIC PROGRAH
PIN
PAGE
IBM MAINTENANCE DIAGNOSTIC PROGRAH
840260
PIN
PAGE
]'6
BTXT.AJH•• A8 •• AAQFHA
9
Y8
Y9 Y99-8Y
99
9
9
FHLHI'fAFDHAAA&A7SAI8U
QZ808YQ80QYY Q 8ZZ9
Z 090
DCAA7SA--AAAAANTGABH
90Y 8Z 9ZQYR98ZY09
9
09
Z
AAABAJJAAAAA80510052
ZQQ9ZYY9ZQ09
99 99 ZZ
BTXT.ANA."A8 •• AABElH
9
Y8Y Y9 Y998BO
99
9
9
9.
QCMAFHNAFDAIFDKA7KAA
9-8YQZ8YQ810QQ 9 QY
09
H070IOAAt070AA7JGAEA
R& -O&YQ t -~Y ZYQQ
- 9 ZO
BB20BEAAG08E80510069
18QY99-9R
-999
BTXT.AKA •• A8 •• AAA •• A
9
Y8Y Y9 Y9Z 9
9999
9
G09MAAABEJCWNL8UFDGZ OZOQ9ZYQ 8 QQZ
99
Z
ZZ
BOGOOUAAADBD7DBCB4EA
QBI Q8ZQYR-0 08Q99Z0
Z9 Z 99
99
0
CFAA24BA9DLSB0510053
OYIQ 9-Y Z69
9
BTXT.ANH •• AB •• AAKA10
Y80 Y9 V9 Y 99- 9
9 9
.A8EAAGOBNKA70tABEAA
Y8QY99-98 Y - Y8QY9
9999
9
9999
GOBVNA2N2NGAESBH24EA
9-98 9 8 ZIYQ -8 9-Y
1
9
&AGAEOBM24NA805100TO
YZYQY-8 9 9
9 Z9
BTXT.AKB •• A8 •• AACJAA
9
Y89 Y9 Y9ZYQY
99
9
9 9 9
AAAACAAAIAAQAAAAA.AD
ZQQ9ZQQYOQY9ZQQ9Z Y9
Z 9 Z9
9
A&8ULHCAAAAH&AAAAACZ
80ZYQYZR YZOQ9Z
AAAAAA&J70LSB0510054
QYZQQ9 Y -89
9
9 9
BTXT.ANO •• A8 •• AA2E2E
9
Y8
Y9 Y9 8 R
99
9
9
GAEDBM24BOAH24AAABAJ<
ZYQQ-8 98-YZ 9ZQQ9ZY
ZZ
9
99 9
JAAAAAA •• AA&tAF-DFBB
Y9ZQQ9Z 9Z 9Z QQ8Q
A.ODGAFYEA6680510071
- 9ZYQ9ZY 8
9
BTXT.AKO •• A8 •• AAAOAA
9
Y8t Y9 Y9ZtYY
99- 9
9 -9
EJABHOJAAOFBG-BHAOA&
YYY90&YY8&QRZ QOZ&Y
99 -99 -Z
Z-9
HJ70D-C6DOCBBG9DFJB8
RY -Z Q8Z&QO-Q ZZYO
9
Z -I Z
9Z
F.BJOOOOAA2280510055
Z QY8-6-ZY 6
BTXT.AOY •• AB •• AAG09M
9
V89 Y9 Y91 Z
99
9
9
AAAAVAK4JAAJBAK4JAA&
YYYY9Y99YYYY Y99YYY
9999 9 999 9 999
FAK4JAA&AAAAAAAHAAAJ
Y99YYY YYY8YYY9YYYY
9 999 9999999 9999
AAAMOAGAGJCA805100T2
YYY 8Y8Y9Y9Q
999 9999 9 Z
8TXT.AKQ•• A8 •• AAAOAC
9
Y80 Y9 Y9Z&Q9
99
9
9
NHGJBBAAODGOBDKC9AAA
9RZYQQ-Q 9Z Q 9 8QY
o 9Z9 9
Z
9
EACFAAADAA22AOAANHGJ
ZQQOIQQ9ZY 8Z&Q89RIY
OZ ,
- 9 0 9
BSGOB2EACFAAB0510056
Q8Z Q9ZQQY-Q
Z9 Z OZ 9
BTXT.AO-•• A8 •• AAA8A4
9
YB
Y9 Y999Y8
99
9
9
99
AOAG8AMAFACJAAA8UCUA
Y8Y89Y8Y8Y9Y9QY98999
9999 99999 9 Z9 9
SA/AJ/JJJAJEJCUC4CMA
9999Y9Y9Y8Y9Y9999999
9 9 999 9
HCMCDABADCBC80510073
9989B9898989
BTXT.AKS •• A8 •• AAODGO
9
Y88 Y9 Y9 9Z
99
9
9
BOKC9A24EACFAA28GOB2
Q 9 8 9ZQQOZQ 9Z Q9
Z
OZ
Z
F.B&AA22AOAHNHGOB.EA
Z Q ZY 81&Q99RI&Q ZQ
CFAA24GOB.FJ80510057
QYZQ 9Z Q IY
.BTXT.AOH •• AB •• AA4CAA
9
Y8- Y9 Y9B9YY
99
9
9 9 99
UASAYCUBSBJA'4AACAADA
8989999999YY99Q9QY8V
9 9
98 Z 9999
KAAA4ABBUBSA/AYJYAYH
89QY8999898Y8Y9Y9Q99
9 199
09 9999 9 9
999999898999
AAHBKBYAJAQABBMAAMAQ
QQB9899YY99Y8989Y9Y9
Z99 9 99 99 9 9 9
AUAAAY8DBHBA8JCAAHUC
Y9YQY999999Q9Y9Y9989
.
9 9.9 9
9 9Z9
. LlEFG7EF70&H80510075
o QQQ8QQ8t 0
III OZ - -
ABBAAAJ-BJKA~FDBJAMD
AJAHD8AYJAUQDWTAD4AA
QYQZZ089YR89899R YZ
Z99
9 9
JOHD2NAIESKA805100T6
Y-OR98QOI9 B
99
9
9
9
9
9
Z
0
Z
0
.
Z
9
9
Z 9 9
Z
Z
9
Z
Z
-Zl'
ll99
ZZ
I
9
9 9 9 9 9
YDYBYASB/B~B80510011t
9 9
BTXT.ALQ •• A8 •• AAB8F.
9
Y89 Y9 Y9Q Z
99
9
9 Z
COODODAG9DGABHAA22AO
Q88-8--Q ZZQQOZY ~zt
Z99 9 Z
9Z
ACNHGJCBKB9AAAPG7070
Q99RZYQR 9 8Q9 9 - o 9Z0
KB7NAA2S7N7N80510058
9
Q9 9
'
BTXT.AOO •• A8 •• AA4AAJ
9
Y8- Y9 Y99YQY
99
9
9 9Z9
BTXT.AL& •• A8 •• AAGA7D
9
Y8
Y9 Y98Y99
9
9
AAAD&A7UFA70BEABGOAA
ZYYV Y 8Y -8QY99 88
999
9
BODG9EGODUEACFAA24GO
8-Z9 ZZ Q8ZQQYZQ 9Z
9
Z OZ
C8AA&AGACOB080510059
Q9-Y YZYQ9BZ 9 9 9Z 9
·BTXT. APH •• AB •• AAFG7D
9
Y89 Y9 Y9QQ8Q
99
9
9 ZZ 0
Y9990YY 9Y9Q90Z99QOR
9
999
9
BTXT.ALH•• A8 •• AAAH9E
9
Y80 Y9 Y9Y9 Z
GCBA24KF2524BCB4AAAA
9Q-Y 9 8 9 98Q99ZQQ9
99
99
Z 9
FA70BEABGOGONB7Q2AG8Q -8QY99 9 9
OZ
9 999
CBGCHJFDN/GA80510060
Q 9QRYQR992!Y
Z Z 9Z
BTXT.AP •• ~A8.~AAMKE.
9
Y8
Y9 Y990R
99
9 '9
K-2KFGCGP7BEFGXGCX7A
Y 98898QY QQQQ8QQ Y
9 999 ZZOZ 09
READ.X·U TE.FL n
••• 01
AG.WRITE.OAT80510077
BTXT.ALO •• A8 •• AACMAA
9
Y8t Y9 Y9Q IQ
99
9 0 9 I Z
AOtA7UBODGGOGOOUAAAE
YY Q 8-Z9Q Z Q8ZQYY
9 Z 9
Z
Z Z9
&A7UBODGG7GODUHOOWKA
Q 8-Z9Q Z Q81&
9
24AAKE2624AA80510061
9QY Q 9 9ZY
99
9
BTXT.APH •• A8 •• AAA •••
9
YBR Y9 Y9
990 9
9
I •• .-REAO.OATA ••• I •• S
ENSE.DATA ••• I.CHECK.
REAO.DATA.IA80510018
BTXT.AL8 •• A8 •• AAFA&A
9
Y8
Y9 Y9QQ Y
BA24KF2524AAF8&AOHBB
-Y 9 Q 9 9ZYQ9 Y Z-9
9
9Z 9
lEHOOSEA2YAA80510062
8Z'& ZQ -9
BTXT.APA •• A8 •• AACT ••
9
Y8Q Y9 Y9
990 9
9
I. EXPD-HEX-. I.-HI?X--
9 II 9
OHBAIEEA2YAAIEGACWGB
Z-Y 810 -9 8ZQQ 9Q
9
0
91 Z
HOLlARITH-OOJAHDBAJA
YQ9999YQ
99
99
H06AGTEOI23480510079.
9999Q
1
8TXT.AMA •• A8 •• AA1EGA
9
Y8Q Y9 Y9 8lQ
99Z 9
9
9
9HKAJA24KAAAI7AAF.&A
o YYY 9 YQY ZYQ Y
999
9Z9
9Z 9
OH881E8A24KF2524EA2Y
Z-9 8-Y 9 Q 9 9ZQ
AAIEGA9HKA.A80510063
BTXT.APY •• AO •• AA5678
9
Y8
Y9 Y9
99
9
9
9APHERR.140ERR.141 ••
Y98
9 9
....••...........•..
•• '•••••• ........ 80510080
BT XT • AMQ ••. A8 •• AA24GB
9
Y8l Y9 Y9 99Q
AJODGAFHB-24KG2524EA
-Y 9ZYQ8- 9 Z 9 9ZQ
9
19
0
DQBOAAGDEADDB.24KG25
Q 8-Y8QZZQQ - 9 I 9
Z 9
Z OZ
24K82EG~EADBB0510064
BRlO •••••• AM •••• AAAA
9
Y8
Y9V9
99
9 9
AAANAAANAAOIAAOIAAOA
8VQ98YQZ8Y898Y888Y8Z
999 999 999 9999999
HAPN ................. .
•••••••••••• 80510081
8TXT .AMJ •• A8 •• A.AKD26
9
Y8Y Y9 Y9 9 9
99
9
9
GBKB26GGKD2DGBEADBGO
QQ 8 8Q 8 8QQZQQOZ
ZO 9 9Z 9 ZO OZO
DS8I24KH2M2DBI24BI2B
QB- 8 8 8 8- 9- 8
B12KB12&B12480510065
..•••..•......••
.•.•....••.••...•.•.
..•..•............•.
BTXT.AMQ•• A8 •• AABOAA
9
Y8
Y9 Y98~Y8
24GCAAFHAJ7YAAAAA.84
99QZQQRZY ZQYYZ 8
Z 9Z 9
Z99
9
At8'AA-AABOAAGPB.24KF
Z QI YR8-Y9QZ- 9 8
..... .....•........
............•.....•.
... .•.......•...•..
BTXT.ANA •• AB •• AAABGO
9
Y8Q Y9 Y9Y99999 9
9 9
B7KA7D70A026KA2NGKKJ
99 Y
-Z& 8 9 80 9
2N2NAAAAAAGMCAAADAEO
Z 8ZQY9ZQQ ZYQYZYO&
09
Z
9 Z-
GAEFKAOAAEAA80510067
ZYQI Y&VQ8ZQ
DOJ.U.A •• A0002C4AAAJ
. 9&9 8' Q 9
989QYY
9 9
9 999
AAAA0003EDlAKAMHUJAB
VOyy·
98808Y899YY8
9999
9999 9 999
• AAAAAA0004COU.A.J.A
• YYYYYY
9 8 Q 9 V
9999\"'9
9 9
9
8TXT.ANH•• A8 •• AAAAAA
9
Y8l Y9 Y9Q9ZY
99
9
9 0
GAEDAOOAAAAAGOE4AA70
ZYQRI&&9ZQQ9Z 09-Y
ZO -1 9
KA10JABEAAG080S10068
Y -YV8QY999 99999
CAHAAAAJ~AOOO6'045AJJ
Y990Z 01 Y
9-Z9
GJMH0007CAO.BABAAAOO
9Y89
. 9Q8 9Y8QYY
99.
Z9
9999
088A/MJJAAAA0009CAAB
9Q8 v 8YYYYY
9QY9
19 999999
Z9
99
99
99
9
9
9
9
9
9
I
9 9
9
-
9
16A
F804
2821 SCAN/25~0 REAOER/'PUNCH
F805 BUFfER AODR FLT -ROUTINE OVERl4Y 3-
F804
2821 SCAN/2540 READER/PUNCH
F805 BUFFER ADOR FLT -ROUTINE OVERLAY 3-
99
840260
Z
AGNHG.EMKA707JAAAEN~
ZYY890
99-
Z
9
Z
Z
'9
Z
0
o
-9 6ZQ 0 Y Y
9
9 9
9 6 6QYZQQQ
9 I OIO
8-
BEND ••••••••• •.• 'J ••••
9
8
9 9
9 9
8DA~ •••••• ~ •••••·••••
Z
9
2524KA10AABE80S10066
9 9 9 -QY6Q
,9999
Z
• • • '• • : • • • • • • . • • • e" • • "' • •
9-9 9 0 .
9QZYYYYYy.y
Z 9 9999
989Q8Y
9 999
...
~
~
9YBY
999
~
••••• ~ •••••• 80510082
• ••••••••••• 80510083
•••••••••••• 80510084
A0005 •••••• 180510085
Y
9
AACJAAO.OIO.180S10086
998YYY
9999
I
DATE
ec\
···'-l_ _
15JUL65
1:2426'
17MAR66
125643
-_-_'--,:.../~'--_ _ _ _ _ _ _ _ _ __
10
PAGE
F805-1
16
I
OATE
I EC
lSJUL65
124265
l1MAR66
10
PAGE
12S6~3
F80~1
16A
.~----.---j
';:;,:i', ~
;".>,,',
..
.
..
.
.'. .
. . . . . . ".
.
...
....
."
•.........
......
i..
I
I
0'0 O' 00 0 0 0 0 0 0 0 0 0 0 0 0 0 0' 0 00 0 0 O'OOO'O·O,O·O,·O\>~O
---~~---------.
o
00000000000000 000 o 00000000000000.'
,
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PIN 840260
PAGE
17
F804
ZaZl SCAN/2540 READER/PUNCH
F805 8UFFER ADOR FLT -ROUTINE OVERLAY 3-
F80~
2821 SCAN/2540 READER/PUNCH
FB05 BUFFER ADDR FLT -ROUTINE OVERLAY 3-
I
PIN 840260
i
PAGE
l7AI
IBM MAINTENANCE DIAGNOSTIC PROGRAM
G7 T AJJGJ A·8AQ86A3 AAAO
989Q8Y9YV9Q998Q99YY
9 999 99 Z 99 99
070GGAOAHX.7.DAA70AA
9Y89V99 9 8099989
9 9
9Z
9
AA0071EGOB/8GJKAOTAA
YY
9Y99999Y8V&9QY
99
9
99' 99
AAAAA0072 •• 180510104
YYYYY
99999
CA7.AAADAAa073CGXBAH
909 YY89YY
8YB9Y9
Z 9
99
999 9
X.7.0AAAA7DBBAADGAVD
9 9 &9QQ99999Y899999
9Z
9
AA0074DOUAAHX.U.07.A
YY
8Y8QY99 8 &9 Q
99
99999
9
Z
A7D88 •••••• 180510105
99999
AADBHGAVD0075B78AAAG
089999999
88ZQYY9
Z
99 99
J7.CA.J.LJLA05AV.AAA
Y9 90 9 8Y8Q&898 YYY
9
9
9999 9 9 999
A0076GCGA/8JA8DDHAPH
Y
9 99998999Y9Y89
9
9
9 9
VOAA0077 ••• 180510106
99YY
99
80SA/BJAU.DAAQB8HGAA
8&9999898 Y90999999Y
9
9999
9
PHJDAAAA0078D3QAGJU.
89Y9YYVY
8 999Y8
9 9 9999
9
99
5AGQBKAMHBHCGAHAUA/D
9Q8998Y89999999Y8Q89
99 9 9
.
999
0079 ••••••• 180510107
9Y8Y8 908Y
9999 99
A76AAA7.HAGA.J.5AAHA
889Y~Y9 ZY80 9 8989Y
99 9
. 99 . 9. 9
AJAAAAAA0080DOGA/8JA
lYYYYYYY
9&999989
9999999
9
800081AOPH/BD.U.AWBB
99
8Y89998 8 0999
999
9 9 Z
HGAWJ •••••• 180510108
9999Y
KAMHUJ08.AAAAAA0032C
8Y899Y&8 YYYYYY
9
9 9 9 9 999999
OU.A.J.AA •• 180510092
Q8 Q 9 YY
Z9 9
99
AM.AAAAAA0082DDM./8D
Y8 YYYYYY
8Y8 998
99 999999
999
9
.JAC5AQ8W8MHAGAWJVAP
89' 9Q999989Y999V8Y8
9' 9
9 9
99 9
H0083H48.AAHALJDLAAH
9
988 YYZY8YY8Q99
99 9
99999
8 89'
MH5AKALAA5DAAAAAA003
899Q8Y8QY99YVVYYY
9 99 999 999999
5F4AJHAAAKAAUJAAAAAA
98VYZY9Q8YY9Y8QYYYY
999
99 9 9999999
0036 ••••••• 180510093
FCGA/8JA8DOHAPHAAAAO
9 99998999 9~89YVYY
9
9 9999
085H7.0JJ/AGJ7J.6A.A
98 98Y8V9Y89 80 9
9 999 99 99
HH0086G7HHJJ/AGJDLA6
Z9
98Z98Y8Y9YQ8Q8
9 999 9Z999
o
D75AJJGJMH0037C40.BA
989Q8Y9"89' ; , 988 9Y
9 999 99
99
8AAA0038D3T8/A688AOO
8QYY
9 998Y899Y
9999
9 9
39G78AD.HAAA4KAAJDJA
988Q8 ZY9Q88YYYZYY
9999
999 99 99
A0040 •••••• 180510094
H4SJJJGJU.OAA6AAHSDO
989Y8Y9Y8 9Q8Q9999
999
9 999 99
088H7.DJJ/AGJ4J.6A.A
98 98Y8Y9Y89 8Q 9
9 999 99 99
HH0089BDQ.AHX.MD70B
Z9
8Y9 Y99 Q98999
99 9
Z 9
BH8W8 •••••• 180510111
99999
F76AJJ/AGJOTAA.AAAAO
988Q8Y8Y9Y&9Q8 YYYY
999999 9 9 9999
041D4A8AACJTA0042EC8
9 8
98Y9998Y9Q'
99
99 9
9
A68AD7AOPHAAAAAA0043
989Y989&99YYYYYY
9 9 9
999999
H7AAOAB.D •• 180510095
989V9Q9 8
OAA/.AAAA00908DFJAHX
&9Y9 YYY~
8YZYY99
. 9999
99 99
.AAA7DGHWBD.AOAA/.AAA
Q9Q998999lY&9Y9 YYY
Z Z 9
999
A009180E.AHX.AAA7DBA
8YZ Y99 Q909999
Y
9
99 9
ZZ
WBDA ••••••• 180510112
99ZY
GABCA/.YJ0044A4SJJJG
QY99Q9 9Y
889Y8Y9
Z9 9
9
99 999
JU.3AA6AAHSDA7AAAAAA,
Y8 9Q8Q9999Y89YYYYY
99
999
99 99999
A0045H7LADA8.DAGHAEJ
988Y909 9Y0998Y
Y
9
9
9
Z 99
GAP.0046 ••• 180510096
809
OAA/.AAAA00928DLDAHX
&9Y9 VYYY
8Y99Y99
9999
99 9
.AA07D8BEJW80AAI.AA·A
Q9899998Y99&9Y9 YYV
Z9
99
999
A0093H7AAOAB.D.DA8CA
Y
989Y9Q9 8 QY99Q
9
9
9 9 Z9 9
I.YJ0094 ••• 180510113
9 9Y
COPHBA/A6BAAD8ATBLAO
8Y998Y8Y89YY989999Y
99 9 9 9 99 9
QDNJM.AA0047E4EJ8ADJ
999Y9 YY
988Y9Y9Y
9 99
999
9
FJOlAAAAAAA0048D06BA
8Y&8YYYYYYY
9Y89Y
99
999999
99 9
08AP.H0049 •• 180510097
98999
COPAAHX.AAG7088HAGAA
8Y9VY990989999998QO
99 9
l 9
99Z
WBAA/.AA0095HOC.BA6B
9&8 8Y89
999Y9 YY
99
9 9 9
AD48ASJG87H0096G7AAO
Y98899V8989
989Y9
A8.D ••••••• 180510114
09 8
9 9
F7BADAFOBAOHBC.AAAAO
98RY9Q9999&99R YYYY
9
9
9999
050CDPH8A/A68AAD8AT8
8Y998Y8Y89YY98999
99 9 9 9 99 9
LAOOONJOAAA0051D4BAD
9YY999Y9QYY
9B999
9
9 999
9
A8AHB0052.>180~10098
YRYR9
DABCA/.AA0097D4TDAAA
YY99Q9 YY
989999Y
99 9 99
9
9
8080098E750AAAB5AOMH
989999Y99Q&.89
. 999
AAAAAA0099E4.AAAA8J.
YYYYYY
98 999Y99
999999
9
9
OUAAAAAAA •• 180510115
&90YVYYYY
9999999
EOA06BBA7AAPHAAAAAAO
9&Y9898989Y99YYYYYY
9 9 9 9 9 999999
053F7G8DAFDH80GH&AAA
98899Q9999&89 9YY
9
9
9
99
AA0054CDPHBA/A6BAADB
YY
BY998Y8Y89YY98
99
99 9 9 9 99 9
AT8LA,> ••••• 180510099
9999Y
.
0100D7HBAAA8LAOIOIE7
98Z999Y98Q
98
9
DAAAX.A8AAAAAAAAAOI0
8Y999 Y9YQ9YYYYVY
9
9 9Z 999999
283EJGJ.U.7.0HAAA68AH
8 8Y9Y8 9 ZY9Q8999
9 9 99
99
AA08AAAAA •• 180510116
YY989YYYY
99 9 9999
OQONJOAAA0055E4GH8AD
&999Y9QYY
98899Y9
9 999
99
JOAOG8AAAAAA0056D068
Y9Y&89YYYYYY
9 89
9
999999
9
ADBAPH0057E7HAOAFDH8
Y98999
9899909999
OGAAAA~AA •• 180510100
N./ABA68AT88AAAAAOIO
9 8Y9989Y999YYYYY
9
'9 9
9999
5GOYJ/AA8680AATB8AAA
9Q9Y8YY989&9Y999YYY
Z 99 9 9
99
0106 ••••••• 180510117
9 9
0103D7A8AACJTAOI04FD
90
98Y9998Y9Q
99
99 9
Z
D058ADQD8A/A68AADBAT
8Y998Y8Y89YY9899
99 9 9 9 99 9
BLAAPHAAAAAA0059E7GA
99YY99YYYYYY
988Q
9 999999
999
AAEJHAAP.AAAAAA0060D
999Y99Y9 YYYYYY
9
9 9 999999
OA06BBAOO •• 180510101
YY9898999
99 9 9
GGPA/AHAGAA68TB8AAAO
9Q908Y998QY89999YYY
9999
99
Z 99
10700/AGJ086BOI08GOA
9 809Y9989
908
99 9 9
Z9
A/A7.68AADTB8AAAOI09
98V9 89Y89999YYY
9
9 9
99
H47A8AX.Q8.180510118
98899Y9 99
99
D061ADPH8A/A6BAAD8AT
8Y998Y8Y89YY9899
99 9 9 9 99 9
BLAAQOAAAAAA0063E7H8
99YY99YYYYYY
9899
9 999999
9
8ADJHAAQJAAAAAA00640
9Y9Y99Y9YYYYYYY
9
9 9 9999999
D68AD8APH •• 180510102
089Y98999
Z9 9 9
CT AAD8A'SJOI10C068ADB
90Y9899Y9&.89Y98
9999
999
AAA0111JCEAAHU.7.GHA
9YY
9 8YY98 90ZY
99
99
Z
A8AAAJGAOAHAAAJOAASJ
·Y99QYY88999,9Y8Y 8Q9Y
9 9999
99 99 9
6.GA ••••••• 180510119
9 ZY
0065CAGJJJQ8AA0066OG
9Y
9Q9Y8Y99YY
Z~9 '"
9
AAAHX~7D0067EDQB/BGJ
Q9Y99 99
KAO/AAAAAAA0068CAX.B
8Y&8QYYYYYY
909 9
Z
9 99999991/
AAAAA0069 •• 180510103
YQ9YY
A6HAAAAAAOl128DUHAHD
Y99YYYYYY,
8Y99V98
9 999999
99 9 9
.HBDAJAABA8AO.06HAAA
9908Y808Q89& 999VYY
Z9999999
999
AOI13HG/.AHX.A8DAAW8
Y
9Y9 Y99 Y980999
9
9 9
9 9Z
AAE.0114 ••• 180510120
9VZ
AO,01,4 •••••• 180510087
DOBA6BAQ7 AOOllE4EJBt.
9&89,89"989
9B8Y9Y
9 9 9 9
999
DJFJALAAAAAAA0012DG6
9V8VY8VVVVVVV
9V8
9999 999999
99'
BAD8APHQ013CABAOA8AA
9V98999
9Q999VRYV
EOAD6BBA7AOPHAAAAAAO
9&Y9898989&99YYYYYY
9 9 9 9
999999
015E4GHBAOJOAAGBAAAA
98899Y9Y9YV89YYVV
99
9 9 9999
AA0016D3~8AOBAPH0017
AGAAAAAAA0018DGAD688
Y8QYYYYYY
9YY9898
999999999
99 99
AQD0019D4HBBADJHA002
999
98999Y9Y99
ODG6BA08APH0021C4GJJ
989Y8
9Q89Y98999
Z9 9 9
9 99
9
C4X.8AAAAA0023EGQB/B
989 9YQ9YY
9Y9999
9
Z 99
9
GJKAATAAAAAAA0024C47
9Y8YY9QYVYYYY
989
99 9 9999999
9
.AAAOAA0025CDA.U.J.A
YY89YY
9YQ 8 9 Y
9
99
99 9
9
9
DAAAAJAABD0027E4.AAA
9Q9QYYYQ99
98 999
Z 99999
9
ABJ.AUAAAAAAA0028FOA
Y99 Y9QYYYYYY
9 9
9' 9 9999999
HHAA.KAALJB.AAAA0029
9ZYQ 8YY8Y8 YYYY
9 9 9999 9999
AAHB.AAAA0030EDBHU.A
Y998 YYYY
98998 9
9 9 9999
9 9
AKAOPHAAAAAA0031EDLA
Q8Y&89YYYYYY
988Q
99 9 999999
999
0033C4HAAAAJAA0034E3
98ZYYYYYYY
99
9 99999
9
9
.
Z 9
9Y99999Y,
'9
9
9 9
YY
99
Z
9
9 89Y98999
9 9 9
9
9
Y
9
E7HADAFDH8.180510088
9899909999
9
9
JOBAA0022 •• 180510089
Y99YY
99
A0026 •••••• 180510090
Y
.
FOLJU~5AKA.180510091
Y
9
9
9
9
99
9
9
&8QYYYyYV
9999'999
Z
'
99
9 99
,.
9
9 9
9 99
99 9
9
9
A.E80084 ••• 180510109
A.OAA0087 •• 180510110
9VV
9
99
9
"j
j
DATE
:1 EC
:1
15JUL65
. 120\265
l7MARlI6
125643
10
F805-1
PAGE
17
.,.,...,.....,,-~~~---------:..---------'-.-----.'-------..,---
1.,.,
w./....().
DATE
EC
15JUL65
124265
17MARt>6
125643
10
F8Q'-1
PAGE
11A
.
PIN 840260
PAGE
18
IBM MAINTENANce DIAGNOSTIC PROGRAM
F804
2821 SCAN/2540 READER/PUNCH
F805 BUFFER AOOR FlT -ROUTINE 'OVERl,AV 3-
F804
2821 SCAN/2540READER/PUNCH
F805 8UFFER ADOR Fl T -ROUTINE OVERLAV 3AOAHAAAAAAOl15G7TAJJ
9&V9VVVVV.V
989Q8V
9 999999
9 999
GJA84QB6A3AAAOl16AOU
B9
9VY98998Q99YV
99 9 99 99
9
AGJQB6B3AJAA/A.DA6.A
99Y9989 BY8Q80 9Y9 Y
9 9 999999 9 9
AAAAA0117 •• 180510121
VVYYV
99999
BAAAAJAAAA01630CJ.U.
9V90YYYYYV
9 9 8
9
9 9999999
A•• AOI64C4QJDAHBAA01
Q 9
969V9Y99VV
9
9 9
99
65D7P.DAHAGAOI66C4DA
989 9Y998Q
989Y
DD8A/A6BT80118D7AABA
9 9V8Y8999
98V99Y
9 9
99
D.X.Ol19D7FJAAEJEJOl
8 9
988V999Y8Y
9
999
999
21070AAAEJHB0122E7GA
9880
9B90999Y99
9 9
9
999
AAEJHA ••••• IB0510122
999V99
"D1BADABAH80168ECA06B
9 V989
98999YRYR9
9
9 9
8A7AOM.AAAAAA0169BAD
8989&9 YYVYVY
9Y9
9 9
999999
9
AlAAAAAOI70G7&ADAFDH
Y8YVYVV
98 990999
9999
9
9
ADGAGHGBAA.180510139
9QBQ8989YV
Z999
99
OP.AAAAAAOI23FCBA6BA
&9 YVYVVY
9 8989V
999999
9 9 9
D7AAPHEJAAAAOl~4BAEJ
989Q998VYVYY
9 l
99999
AAAAAA0125BCBHJ.KAlA
99VVYY
8 Z99 BV80
9999
9
9 99
G.AAJAA.D •• 180~10123
o 98Y80 9
Z 9999
0171F7GBOAFDHBOGH&AA
9889909999 89 9V
AAA0172ADOABA/A6BAAD
VVV
8Y908Y8V89VY9
999
99 99 9 9 99
8AT8lAAPHAAAAAA0173F
B9999VV99YYVYVV
9
9
9 999999
7C.DAFD8A •• 180510140
8R 9Q9999
9
A6.2AAAAA0126B3GAHAK
Q9 99YVVV
8 ZVZY8
l
9999
9
9
AAJGlAAJAA.DOHH6.AAA
VVVQ8Q8Y8Q 9&Z99 YVV
99Z 999999
999 '
A0127G7NBJJGJAA05AAH
Y
98898Y9V90&9Q99
9
99 99 9 9 9
0.AA0128 ••• 180510124
8 VV
OGHBAAAAA0175G7DJOAF
69RYVVVV,
98RY909
9
9999
9 9 9
DBADHAGA8AAA0176F7BA
999099BORYYV
98RY
Z 99 99
9
DAFD8AOHBC.AAAA0177A
909999 99R VYVV
8
9
9999
9
DNJ8A/A6B •• 180510141
V9Y8Y8Y89
9 99 9 9
F7AAHAAJLAOUA6.AAAAO
9880ZVYY80 9Q9 VYVV
999 9999 9 9999
129B06.HAJ.KAGAJ.AAJ
8 9 ZV9 8VQYV 98Y
9
9 Z99 99
AAO.DBHAAAA0130BCBHJ
80& 9l9YYYY
B Z99
99
9999
9
.KALA •••••• IB0510125
8V80
AAOBATBlAAPHAAAAAAOl
YV989999YV99YVVVVY
99 9
9 999999
18AOBAAAAAAA0182F7JA
9&8YVYYYVY
9B89
9 999999
9
DAB.ABOEJEAAAAA0184F
909 Y9 8YROYYYV
9
9 9 99 99999
7EAOA8.AB •• 180510142
8RQ9Q9 V9
999 9
G.AAJAA.DAb.2AAAAAOl
98V8Q 9V9 99VYYY
Z 9999 9
9999
31F4KAJJGJU.05AKBAAA
988Q8Y9Y8 &9QB9YYY
99999 99
99 999
A0132G3AJAAJ.lADUJ.A
Y
998Y9Q9 8009V 9
99 9 99Z 9
9
6.AAOI33 ••• 180510126
9 VY
OHBFHAAAA0185G7FHDAB
: . 99R9YYVV
98R9909
'i
9999
9
9
.A8DHAGAEAAAOL86F7HB
V9Q9980ROYY
98R9
9
9 Z 99 999
DA8.A80BAEAAAAA0187F
909 Y9 99RQYYVY
9
9 9
99999
1GDDA8.A8 •• 180510143
8R9909 V9
999
DOFB/BGJJACOBWBGAAAC
8V99999V8999999999Y9
99
99
I.PHVD/D0134GOVA/8D.
9 899989
9Y8Y998
9
9
99 . 9
JAA08WBWJAA0135D78JA
89V99999YVV
989VV
9 9
999
9 99
AI;7.0136 •• 180510127
V9 9
OGHEAAAAA0188GDlABAI
B9ROYVVY
9V9Y8V8
9 99999
,9 9 9
A6BAADTBPHAA0189F7EA
Y89YV99999YV
98RO
9 99·
99
9 9
DAB.A80H8FHAAAAOI90C
909 V9&99R9YVVY" 8
9999
9
9 9
7BAAAGJ7 ••• 180510144
8ZQYV9Y9
9 99 9
CDJA/8GAAAOI37GG7J7.
9V899999VV
809V9
99
99
9Z 9
HAABGJ.KAAJ.A7ADAAAJ
ZYY989 8YYY 98899Y8Y
9 9 9 99 9
99
AAO.D6.A.AA0138GG6AG
8Q& 99 V YV
8Q8Y9
99
9 99
9Z9
J7.HA •••••• 180510128
Y9 IV
,CA.J.lJlA05AV.3AAAOI
90 9 8V80 898 90VV
9
9999 9 9 999
91AGVDAHX.1.AAA8BADG
BV99V999"Y0999899
99 9
9Z
AOVAAAAAAA0192A76AAA
9&99YVVYYY
889YYY
999999
99 9
7.HA ••••••• 180510145
9 ZY
CJ.QBKAAJG.AADAJAAO.
99 998YYYY 9898V80&
9 999
9999
D6 •• JAA0139FG8A7.HAE
99 YYY
BQ909 ZY8
999
9Z 9
9
JGJ.KAAJ.A7AOAJAA.DA
VB9 8YYV 98B9BVBQ 9V
99 9 99 9 9999 9
9 Y VVYV
GA.J.5AAHOAJAAAAAA01
80 9 8989&ZYVYVVVY
99
9
9999999
93H4BDAA5AKA3lAMHGAI
98999Q908Y 8089998
9
9 99 999
9
DOI94H48.AAHAlJGLAAH
988 YYlV8YV8Q99
9
99 9
99999
A.EBOI95 ••• 180510146
8 89
0140FGOAU.8A5AAKAlJA
9YZ98 9990VBVBYY
9 9
,999 999
AAA0141G7BAD.HAAAAKA
YYY
98808 ZY9QQ8Y
999
9999
9Z9
AJDJAA0142FGFAU.GH5A
VYZYYY
9VZY8 899Q
99 999
9 9 9 9
AKAlJAAAA •• 180510130
V8V8VYYVY
99 999999
8DPH/BD.U.AWBBHGAWJO
8V89998 8 09999999V
999
9 9 Z
9
M.F8AAAAOI96H7NBJJGJ
8 99VVYV,
98898V9V
9
9999
99 99 9
AAG5AAHO.VH0197G7AAH
90Y90998 99
988QZ
99 9 9
999
AAJLA •••••• 180510147
VVY8Q
9999
0143GG3B7.HAHACGAJ.K
80899 ZY99 809 8
AAJG.AAOAJAAO.06.A.A
YVyy 9898Y80& 99 V Y
999
9999
9 9
v
A0144FG4Al.HAHBGJ.KA
80699 lV99B9 BV
AJ.A ••••••• 180510131
VY 9
99'
DUA6.6HAAOI98G4KAJJG
Y909 99VV
9B808V9
9 9
99
99999
JU.D5AK8VAAAOI99H3AJ
YB 0908990YV
998Y
99 Z 99 999
99
AAJ.lA3UJ.A6.6H0200E
909 80 9Y 99 99
8
9
9 99· 9
G6HAHD.HA •• 180510l't8
Y99V98 lY
9
7J.AJ.AAJDAABA.06.AE
89 YV 98VQ8Q80 99 V8
9 99 99Z9999
9
AAAAAAA02D1D07DAHX.A
YVYVYVV
9Y99Y99 Q
999999
9 9
Z
A0203F76AJJ/AGJOTAA.
9
98BQ8Y8Y9Y 908
999999 9 9
AAAA0205 ••• 180510149
VVVV
9999
FCBA6BAD7AAPHEJAAAAO
9 8969V989V998VVVVY
9 9 9 9 9
99999
206A4SDBAO.U.3AAFAAH
88999Y8 8 908999
KBOSJAAAAAA0210~1D.B
888 9
999
AO.AA •••••• 180510150
V8 90
9 9
35AFAAHNBOKBAAAAAA02
90B99989&89VVYVVV
9
9 9 999999
IlH4KB8AO.U.G5AFAKAO
9BB99Y8 8 090898QB
99
9 9 Z 9 999
.0212C06.HAJ.KAGAJ.A
8 9 ZY9 8YOVV 9
AJAA ••••••• 180510151
8V8Q
9999
D.OBHUAAA0213D4FAVJ1
98899V9
.KB0214C7E8VJO.X.CHA
89
88899Y8 9 ZV
9
99
99
08LJLAD8.TA3AAAOZ15C
99BV8Q08" 9099YY
.8
9999Z9 9 99
9
7AJAAGJHA •• IB0510152
8ZYYY9VZY
9 99 9
JA8D ••••••• 180510153
8999
o
9Z9
99
0;;
,
i
9Z9
9
9
9
9 99
9 99
99
9
6.A.AAAA ••• 180510129
9 9999
9
9
99.
9
DAGHAA0167.180510138
9Y89YY
9 99
9
9
9 9
JOI46D1AJVJNAX.D7.bA
8BBY9YBY9 9 80
V
99 '9 99
99
68AO ••••••• 180510132
69V9
9 9
JlJ01480CJD/8JAABAQ8
Y8V
8 Y99989V9Y99
999
9 9
9 9 9
WBGAWJCAA/.VAIH0149l
9
99999Y 9Y9 8Y99
GAA/8/AI ••• 180510133
V8Y998Y9
C7.AAJ.lAA68.AAOGACA
9 099 80089 989999Y
Z
99Z9
9
D8ATBSJDC.20AAAA0150
9B9999V88 99QOYY
9
999
Z999
GD4A/SGJJAOA65AOBwao
8V99999VB9 V9909999V
99
99 9 9
9
MHGAAA/ •••• 180510134
89999V9
APHVDFBAA0151AO/BAAA
Y899999YY
9&99YVY
99
99
999
AAAOI52F70HAA7.HAOA8
YYV
9889VV9 ZV Y9
999
9 9
9
A.AAAA0153D7EJ8ADJFJ
9 VYYV
988Y9V9V8V
9999
999
999
0154 ••••••• 180510135
D7GH8ADJDA0155E7HBBA
98899V9Y9Y
98999V
DJHAOQJAAAAAA0156BAD
9Y99&9VVYVYYV
9Q9
9999999
Z
9
JBAAAAA0158F75AAAGJ7
V9VYVVV
9889VV9V9
9 9999
99 9 9
.06A7HAAAA.160510136
&9Y89VVVV
9, 9999
CA.A.J.AA03A6AWAAA02
9 0.9 9V 999V90VY
9
999
16D7V.VJO.X.AA.J.OBl
888 9Y8 9 YO 9 998
999 99
99
9
JGlATA3A8A0217GCGA/B
YQBO~099ZQ
9 9999
9Z99 9
9
9
AAA0160D3AAAJAABD016
YVY
999QVVYQ99
999
99999
1E7UJHAAAAJOlAAAAAAA
989VZY90VV&80YVYVVV
9·9
999 99999999
0162 ••••••• 180510137
OHA PHVOAA0218G73AV J 0
&9V8999YV
98999V8
9
99
9
99
.X.AQBTAAJAA0219A4SJ
9 Q999QZVYY
889Y
Z 9 999
99 9
J.JGJO. 3AA6AAHSD07 AAA
8V9Y8 9Q8Q9999&B9VV
99 9'9
999
9 99
AAAA0222 ••• 180510154
YVYY
9999
48ASJXD2A0147DCKAQSA
8899V8999
9 BY99V
99 99
9
9
9
9 9
9
DATE
15JUL6~
EC
12426;
y"
I,'
9
9 99
,
9
9
99
9
9
Q 9l999VV
Z
99
ID
F605-1
PAGE
IB
17MAR66
125643
O 0· 0" 0·.·.· 0·" 0'. 0;.
(
9
9
9
9
45HOBDU.A.J.AKBKAlJJ
9&898 Q 9 V998V8Y9
0159EGW8AHO.OAA/.AAA
9Y99V98 ZYY9 VYY
9 9 9
9 999
\,
9Q9V
l 9
7AOAJAA.DA6.A.AAAAOl
889BY80 9V9 V YVYV
9 9999 9 9 9999
99
10,·
PIN 840260
PAGE
18A
IBM MAINTENANCE DIAGNOSTIC PROGRAM
I:,;
o o
o o o
DATE
EC
:00
9
15JUl65
124265:
9
17MAR66
125643
99
9 9
9
89&9YYVYVVV
9999999
9
9
9 Z99
ro
PAGE
F805-1
teA
o
00000000000000000000-_0_800000000l:.:~."
PIN 640260
PAGE
19
IBM MAINTENANCE DIAGNOSTIC PROGRAM
__ .,.,,, ..•.
PIN 840260
PAGE
19A
IBM MAINTENANCE DIAGNOSTIC PROGRAM
FB04
2821 SCAN/2540 READER/PUNCH
F805 BUFFER AD DR FLT -ROUTINE 'OVERLAY 3-
F804
2821 SCAN/2540 READER/PUNCH
FB05 BUFFER ADDR FLT -ROUTINE OVERLAY 3-
D7AJVJ/AX.07.6A6BAD7
888Y9YBY9 9 8Q89Y98
999 9 9
99 9 99
BASJXD2A022BDOKAODAJ
899Y8999
9&8Y99YY
9 99
9
99
lJ0229HG/.AHX.ABGAAW
8Y
9Y9 Y99 Y98Q99
99
9 9
9 9Z
BAAE.0231 •• 1BD51DI55
99YZ
CKA6BADBAABASJC.7.02
98Y89Y98QQ899Y8 8
9 9 9 99Z9 99 9
93E7YDVJ/AGJOHAA.J.Q
S8999Y8Y9Y&ZYQ 9 9
99
99 9
9
BG6ATA3A6AOAJAAAAAAO
9Q8Q9Q999Y&ZYYYYYYY
Z99 9
9999999
295 •••••••• 180510172
HOC.BA6BAD78ASJGB7HO
9&8 8Y89Y98S99YB989
9 9 9 9 99 99 9
232G7AADAB.D.OABCA/.
,989Y9Q9 8 SY99Q9
AA0233A72A/AX.7.GAAL
YY
Q8998Y9 9 Q9QS
99
99 9
Z 99
AUJ6A.~.~~o18051C156
Q9V80
9 999
FOA.7.HAKA3AJLAAOAJD
8QY 9 ,Y8Y YYSQ893YQ
9Z9
9 9999 991
AA.DHH6.AGA.JAAAA029
SQ 9199 YZY YYYYY
6E3JAD.U.5ACQ8KAwaMH
8 9Y9 8 9Q9998Y9989
999 9
9
')
OBHGAUAQA •• 180510.7)
&99998099
99
D6BADAJBADSJBHAJCB02
34EDlJU.5AKAOAHAAAAA
9YBY8 9Q8Y&99YYYYY
9999 99
99999
ADZ35ECAD68BA7AAM.AA
Y
9 Y9896969Y9 YY
9
9 9 9 9 9 99
AAAA0236 ••• 180510157
YYYV
9999
IK. AAAAAA0298H13AVJD
Y9 YYYYYY
98999Y8
9 999999
9
99
.X.7QBTAAJYD0301EGUA
9890
9 8999QZY99
9 9
J.LA.AOAAAAAAAA0302E
9
9 80 9&8QYYYYYY
99
99999999
3MH5AKALA •• 180510174
9899Q8Y3Q
9 99 99
BADAlAAAAA0237CDPHBA
9Q9YBYYYYY
8Y998Y
9999
99 9
Z
IA6BAADBATBlADQDNJM.
8Y89YY989999YQ999Y9
9 9 99 9
Z
9
AA0238ADM.BA/A6BAAD8
YY
8Y9 8Y8Y89YY98
9~
99 9 9 9 99 9
ATBLA •••••• 1S0510158
9999Y
05DAAAAAA0303A7CB/AX
&99YYYYYY
Q8898Y9
999999
99 9
.7.GHAAJLA6AD6BADAAB
9 QZYYY8Q80889Y98QS
Z 99999999 9 999
AGSJGAAJ2A0304DALAKA
9Y9YZY8Y99
9Y803V
9 9
9
9999
MHUAD305 ••• 180510175
899(1
9 9
APHAAAAAA0243C06.HAJ
Y99YYYYY~
8 9 ZY9
9 999999
9
.KAGAJ.AAJAAO.DBHUAA
8YQYY 98Y8Q 9Z999Y
9 Z99 9999
9
A0254DDKAQBAJ6.02550
9
Y
9Y8Y99YY9
9
99
99
GKAQBAJ6 ••• 1S0510159
Y8Y99YY9
99
99
FOAHHAA.KAALJB.AAAAO
9 99ZYQ 8YQBY8 YYYY
9 9 Z999 9999
306P4UJ/AX.U.G7.J.5A
988Y8Y9 8 Y9 9 90
9999' 9 9
9
LA3MH6A68.ACBHGAADAA
8Q 898089 9 9999Y98Q
99 9 999
9 99
4BASJBDBH •• 180510176
8899Y99Z9
99 9
0256E7FAYJ7.KBOBAAAA
98899Y9 89&8QYYY
9
9 9
9999
AAA0257DDAAAHX.7D026
YYY
9YQ9Y99 99
999
9Z 9
OEG6HAHD.HA7J.AJ.AAJ
8Y99Y98 ZY89 YY 98Y ,
99 9 9
9 99 99
DAABA. 06 ••• 180510160
Q8QSQ 99
Z9999
4QAAJ2AAA0307A4BOAA5
8998Y99YY
86999Q9
9
9 99
99
9
AKAOLAMHGA/DOUJAAAAA
Q8Y BQ899989&8YYYYVY
99 999
9 9999999
A03D8DGLAKAMHUJ0309F
9
Y
988Q8Y899Y
9
9999 9 <:I
OJJU.A.J ••• 180510117
&9YB 0 9
99 9
OEAAAAAAA0263EDBBAHX
&8YYYYYYY
9Y99Y99
999999
9 9
.AAAJAAAAAAA0264H7NB
Q9V9QYYYYYY
9889
Z 9 9999999
99
JJGJAA05AAHO.VH02650
9
8Y9Y9QY9Q998 99
99 9 99 9 9
OTB/A6B81 •• 180510161
998Y899Y
9 9
AKALJAAAA0311EGUAJ.l
Y8YBYYVYY
989Q9 8
99 999999
9 9 9'
A.AAAAAAAAAA0312A4BD
Q 9Y80YYYYYY
8899'
9 999999999
99
AA5AKAOLAMHGA/DAUJAA
9Q9Q8Y 8Q8999B9Y8YYY
9 99 999
9 99999
AAAA0313 ••• 18051011B
YYYY
9999
0267H4KBBAD.U.D5AFAK'
98899YB 8 Q9Q898
99
9 9 Z 9 9
AO.026900AA/BD.U.OHA
Q8
9YQQ998 8 QZY
99
9Z9 9 9 Z
AAAJ68CBHGAAOBA4BASJ
9QYY89 9999Y98Q8899Y
9999
9 9999 9
BDPH ••••••• 180510162
9989
FDAHU.HAA.AJ.6AAAAAO
9Y898 lYQ Q9 9YYYYY
9 9
9 Z
9999
315EDB8AHX.AAOJAAAAA
9Y99Y99 Q9&9QYYYY,
9 9
Z
99999
AA0316G4KAJJGJU.05AK
YY
988Q8Y9Y8 908
99
99999 99
99
BVAAAij318 •• 180510179
99QYY
999
AC.FBSA/DA2DAAAAAA02
Y8 999989Y998YVYYY
99
9 9 9 9999
71COJA/BGAAA0272GG2D
9&899999YY
8Y99
9
99
99
IB/AX.07.AA68ADCADBA
998Y9 &9 Q989899Y989
9
Z 9
9 9
TBSJ ••••••• 180510163
999Y
FG20/B/AX.07.AA6BADC
8Y9999BY9 &9 0989899
99
9
Z 9
ADBATBSJAC.TAAAAA032
Y9B9999YY8 89YYYY
9 9
999 9 9999
2BOUA/BQ86BCWJADBASJ
8&9Y99998999YY9899Y
9
9
99 9 9
AC.GBAAAA •• 1S0510180
Y8 89YYYY
99 9 9999
AC.TAAAAA0273H7CHAAD
Q8 898YYY
98l9YY8
Z9 9 9 99
9 9 9
.X.G7.A.5A8J0275H7CH
9 Q9 9 9Q9Y
98Z9
AAD.X.G7.A.5A8J0275G
YY8 9 Q9 9 9Q9Y
9
Z
9 9
9 9
CGA/BJABD •• 1805101~4,
99998999
0323C7BAAAGJ7.CA.J.L
88ZQYY9Y9 9Q 9 8
99 99 9
9
9
JLAD5AV.3AAA0326lGAA
9Y8V
Y8QQ898 9QYY
999Z9 9 999
99
IB/AX.C7.AAJ.LAA6B.A
998Y9 9 099 8QQ89 9
Z
99Z9
9
ADGA ••••• ~.180510181
8999
DHAAAL.AA0276AG2D/BI
69YQ99 YY
QY99998
99
99
9
9 9
AX.07.AA6BADCADBATSS
Y9 &9 Q989899Y989999
Z 9
9 9
J7C.TAAAAA0277G7CAAA
ya8 698YQQ
989QYY
999 9 9 Z9
9 99
X.7 •••••••• 180510165
9 9
CADBATBSJAC.2DAAAA03
9Y989999YYS 99QQYY
9 9
999
Z999
27JG/D/BGJD.DJAU.5AQ
'9Y89999Y8 8898 9Q9
99
99 99 9 9
B4WBMHBHGAOBDVDUAFBA
9699899999&99998Q99Y
9 9
99 9
QAAAAAAA ••• 180510182
99YYYYVY
999999
DA.8JAAAA0279BOGB/8Q
Q9 9Y9YYV
8&89999
l
9 99
9 9
B6BAGAWJADBAOSJC.AAA
989Y999YY989&9Y8 YYY
9 9
99 9
99 999
A0260GCGA/BJA8DAHAAA
Y
9 99998999Y9YQ9
9
9
9 9
l.AA0281 ••• 180510166
9 YY
0328FDWJ/BD.QBAWBVAA
9Y9Y998 99Y998YY
999
999
AAA0329H76AAA7.HADA.
YYY
989YYY9 ZY8Q
999
9 9
99
J.5AAH033~KDIH/B/AJA
9 8989
9
OX.ABAAQB •• 180510183
9 Y9Q999
FCXA/BJAX.OABAAQBWBD
8 9Q99899 &Y9Q999998
999
9 l
9
GAWJAA/.AVAJDAAAA028
999Y9Y9 Y8YY9YYYY
9
99 9 9999
2C7AJAAGJHACA.A.J.AA
88lYYY9YZY 9 Q 9 9Y
99 99 9
9
D3A6AWAAA •• 180510167
Q999Y90YY
'999
Z
CWBGAWJAAATB/.VAJDAX
999999Y9YY999 8YY9Q9
9 9
9 9 l
AOAAAAA0332DDFB/8GJJ
Q80YYYY
8Y99999Y8
9999999
99
99
ACQBWBGAAAA/.PHVD/DO
999999999YY9 899989
9 9
9
334 •••••••• 180510184
0284EOHAQBKAGAAQAAAA
9&9Y998Y99Y99VYY
9
9 999
AAA0285DDGAGJD.QBCKA
YYY
8Q899Y8 999BY
999
9Z9 99
9
6BADBA3BASJC.7.0286F
89Y98Q9899Y8 6
8
9
9 9 99 9 99 9
DA.7.HAKA •• 180510168
QY 9 ZY8Y
Z9
9
H7CAAA7.HACAALJAHB.0
988QYY9 ZY 9Q8Y998
999 9
9 99
336KD1H/B/AJAOX.ABAA
9Y99998YB9 9 Y909
QBCWBGAWJAAATB/.VAJD
99999999Y9YY999 8YY9
AXAOAAAAA •• 180510185
Y9Q8QYYYY
.9 9999999
3AJLAADAJDAA.DHH6.AG
YY8Q898YQ8Q 9Z99 Ql
9999 99199
Z
A.JAAAA0287D7XHVJHAA
V YVYVY
88999YZYY
99999
99
9 9
BCA.J.OBTAGAA3A6AAJO
990 9 999QQ9Y999YZY
9
9Z
9
269 •••••••• 180510169
0337COOA/BGJOBC6BADB
8Y8Q999Y99989Y98
9999
9
9 9 9
ASJAC.GB1HAA0338BDPH
99YY8 8999YY
8Y89
999 9
99
999
IBD.U.AWBBHGAWJOM.FB
998 8 Q9999999Y&8 99
ED.J7.HAJ.4KAAJ.AADD
8Q V9 lY9 S8YYY 989Q
'9Z 9
99 99
Z
AJAA.D6.AA.AAAAAA029
8VBQ 99 YY YYYYYV
9999
99 999999
OOG7./AX.HAAAAJ.QBKA
9Q8 8Y9 ZYYQ99 998Y
Z9 9
9Z
9
DAJ6B.AAO •• 180510170
YYY89 9Y9
9999
9
"j
HD3B/BD.J.DQBWB.AWJO
9Y99998 9 89999 99Y
9
9
9
9
340A7EDAAX.HADAALJLA
8889YY9 ZYY9Q8Y8Q
99 9
9 99999
AHOa.AAAAAA0342DCJDI
99&8 YYYYYY
8 Y99
9 999999
9 9
BJAAB •••••• 180510187
989Y9
9 9
OAJAABATBUSJ.DBD6.AC
8Y8Q8999 9Y 9899 Y8
99999
9
99
.GAAAAA0291EOHAQBKAG
89YYYY
9&9V998V9
9 9999
9
AOQAAAAAAA0292DDGAGJ
9&99YYYYYY
8QS99Y
999999
9Z9 9,
0.OB ••••••• 180510171
8 99
!
AOBWBGAWJOAA/.VA1H03
Y9999999Y&9Y9 BY99 '
43AGTA/B/AX.G7.AA5AM
QY89998Y9 Y9 099Q8
999
9
9 Z 99
HA6BADADBAATBSJC.2DO
9Y8989Y989Q999Y8 99
99
9 9 Z
99
344 •••••••• 180510188
9
8B~Y98Y89Y9YZ98YB9
99 9 999 9 9
DATE
EC
9
15JUL6S
E24265
Z
17MAR66
125643
9
9
9 9
9
9
9
9
9
9
99
,I
I.
9
10
, PAGE
F805-1
19
9
DATE
EC
I
,99
15JUL65
124265
17MAR6'6
125643
99
9
9
99999
9 9
9
9 9
9Y99998Y89
'9
9 9
9
9 Z
9 9 Z
9
9 9
9 9
9 Z
AAAA0339 ••• 160510186
YYYY
9999
10
PAGE
F805-1
19A
PIN ·B40260
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PAGE
F804
2821 SCAN/254D READER/PUNCH
F8D5 BUFFER ADDR FLT -ROUTINE OVERLAY 3-
F804
2~21 SCAN/2540 READER/PUNCH
F805 BUFFER AODR FLT -ROUTINE OVERLAY 3A4A.AAX.U.G7.HASJ6AO
S8S YY9 8 Q9 ZY9YSQ&
99 . 9
9 Z
999
B.AAAAAA0348EDBHU.AA
8 YYYYYY
98998 9Q
9 999999
9 9 9
KAAPHAAAAAA0349A72AI
8YY89YYYYYY
Q8998
99 9
9 99 999999
AX.7 ••••••• 1B0510189
Y9 9
AC.AAAAAA0423DDA.U.J
Y8 yyyyyy,
9&Q 89
99 999999
9 9
.XD0428AAAAAAAAAA043
89
9Y99YYYVYY
9
9 999999
OAABAAAAAAA0432AG201
9Y9YYYYYY.Y
QY999
99
9 999999
B/AX ••••••• 180510206
98Y9
GAALAUJ6AD68ADAJBAGS
Q9Q8Q9Y8Q889Y98Y89Y9
Z 999 99999 9 999 9
JBHAJCB0350F4AJHAAAK
9BYYZY9Q8
YZ98Y89
9
9
999
99
AAUJAAAAAA0351FDLJU.
Y09Y8QYYYY
9YSY8
Z 9999999
9999
5AKA ••••••• IB0510190
9QBY
99
07.AA6BADCADBATBSJ4C
&9 Q989899Y989999Y88
Z 9
9 9
999
.TAAAAA0434EDQB/BGJK
898YQQ
9Y99999Y8
9 ·9 Z9
9
99
AA/AAAAAAA0435F75AAA
YYSQYYYYYY . 9889YY
999999999
99 9
GJ7 ••••• ~ •• 180510207
9Y9
AAHB.AAAA0353FOVA6BG
0998 YYYY
9&99B99
Z 9 9999
9
AADABAVDAAAA0354EOWA
9Y9Y8999YYYY
9&89
9 99
9999
9
JA6BADA8AAAAAAA0355E
8989Y9Y89YYYYYY
9
9 9 9 99 999999
OFHGH6BAD •• IB0510191
Z989B9Y9
999
06A7HAAAA0438FDWJ/BD
9Y89YYY~
9Y9Y998
9 9 9
9 9999
.OBAWBVAAAAA0439077A
99Q998YYYYY
8B8Y
Z 9 9999
999
AA/AX.05A6BTAAOOBATB
YY8Y9 Y89899QY988999
99 9 99 99
9 9
SJC.0443 ••• 180510208
9Y8
99
ABAAAAAAA0356EOEABA6
Y89YYYYYY
9 ZQ998
99 999999
9 9
BADABAAAAAAA0357FDA8
9Y9Y89YVYYYY
9089
9 99 999999
Z9
HAAJ6BAADBAAAAA0358F
ZYYY89YY989YYYY
9
999 99 9 9999
ODJD.6BAD •• 180510192
ZY8 89Y9
99 9 9
BOU.A.AAAA0448GGADAH
9&8 Q YYYY
9Y89Y9
9 9 9999
9 9
X.7~AAA7DAAAA0450DOW
9·9 YQ99989YY
9Z
999
9Y9
9
BAHD.DA0451D47HJJ/AQ
9Y98 ZY·
88898Y8Y9
999 999
9 9
BD5A6BTAAD.180510209
9Y89899QY9
99 9 99
OBABAAAAA0359G73AAA/
&8Q89YYYY<
889Q998
999 9999
99 9 9
AX.C7.A.J.5AG8JLJLA6
Y9 9 Q 9 9QY9Y8Y8Q8
9
99 999999
AD6BADBAAA0360GDLABA
QS89Y9ZQYY
9Y9YSY
999 9 999
9 9
IA6B ••••••• 180510193
BY89
9 9
DBATBSJC.0452E7FAVJ7
889999Y8
98899Y9
99
99
9
9
.KBABAAAAAAA0456E76A
89Y8QYYYYYY
9880
9 9 9999999
999
JJ/AGJATAAAAAAA0462E
8Y8Y9YY9QYYYYYY
9
999 99 9999999
75AAAGJ7 ••• 180510210
889YY9Y9
99 9 9
OADT8PHAA0362GOC.8A6
9&8 8Y8
8Y99999YY· .
99
99
9 9 9
BADABASJGBAA0363G7AA
9Y9Q899Y89YY
989Y
9 Z9 99 99
9
DAB.D.OABCA/.AA0365B
9Q9 8 Y99Q9 YY
9
9 9 9 9 99
AFDDAAAAA •• 180510194
Q999QYYYY
Z
99999
A6AAAAAAA0468AADAAAA
Y9YYYYYYY
9Y9QYYY
. 9 999999
9 9999
AAA0476DCA.U.J.XD048
YYY
9 Q 8 9 89
999
9 9
9
OAAJJAAAAAA0482A4AAA
9Y8YYYYYYY
9VYYY
999999999
99 9
AAAAA0484 •• 180510211
VYYYY
99999
0369H7AAHAAJlAOUA6.6·
988QZYY,Y8Q&9Q9 9
999 9999 9
HUJ0372GGVH/AX~7.GAA
A.5A6AA6BAHADBADNBSJ
Q 9QBQY8999Y989Q899Y
9 99999
9 9 Z9 9
AJAA0373 ••• 180510195
8'YYY
999
~.
.•.....•.....•......
• •••••••••• 180510212
98Y
99
~.
.....•....•..•.•....
• ••••••••••• 80510213
,
8Q998Y9 9 Y9Q
9Z 9
9 9
C4A.AA7.AA0379H73AVJ
989 YY9 YY
98999Y
9 9
99
9
9
8 9 8999QZY99
998
9
9
999
AKAMHUA0386H7AAHAAJL
Q8YB99Q
988QZYYY8
99 9 9
999 999
ACUA6.6HUJ.180510196
Q 9Q9 998Y
.9 9
99
0388FG3A/AX.7.3A.5AL
809Y8Y9 9 9Q 9Q8
9Z 9
9 99
JLA06A68ADBAOSJAJAAA
Y8Q&8Q89Y989 9Y8YYYY
999 999 9 9
9 9999
A0390C7AJVJ/AX.07.6A
Y
888Y9Y8Y9 9 80
9
99 9 99
99
6BAO ••••••• 180510197
89Y9
ABASJXDAA0392G4B.AAH
Q899Y89YY
988 YVZ
Z9 99 99
99 9
ALJOLAAHA.AA0396E4AJ
98YY
Y8Y&8Q998 YY
99 99
99
999
HAAAKAOUJAAAAAA0398A
ZY9Q8Y&9YYYYYYY
8
99
9999999
9
3AJAAJ.LA •• 180510198
98Y909 BQ
99 9 99
OUJ.A6.6H02AAAAAAA03
9Y 99 99&99YYYYYY
9
999999
99MpXH/AX.7.GAA5ALAM
98898Y9 9 Q9Q9Q8Q8
99 9
Z 9 9999
H06A6BGAADDAJBASJPHG
9&8Q8999Y9Y8Y899Y898
999
9 9999 99 9
8HM.AJ2A ••• 180510199
Z98 8Y99
0400JDCO/AX.U.D7.HAA
9Q898Y9 8 Q9 ZV9
ALJOLA6A6BAHCB.A08AS
Q8Y 8Q8Q8999 8 Y9S99
999 99999
9 9 9
JOAJAAAAAA0402A3AJAA
Y&8YYYYYYY
898Y9Q
9 99 9
9 9999999
OUJ.A6.6HA2AAAAAAA04
9Y 99 99Y99YYYYYY
9
9 999999
03EOVA/AX.U~D7.5A6A6
BGADBAKASJOAJAAAAAAO
98Y9898Q9Y&8YYYYYYY
99 9 99 9 9999999
406 •••••••• 180510201
8Q9Q8Y9 B Q9 9Q8Q8
9Z 99
9 Z
9999
EGWBAHD.DAO/.AAAAAAO
9V99Y98 LY&9 YVYYYY
9 9 9
999999
407BAB.DAAAAA0412D3Q
9Q9 9QYYYY
8 9
Z
99999
9
AGJU.5AGQ8KAMHBHAGAH
99Y8 9Q8998Y8999Y999
99 99 9 9
9
AUA/D0414 •• 180510202
Y8QS9
999
E3JAD.U.5ACQBKAWBMHO
8 9Y8 8 9Q9998Y9989&
999 9
9
9
BHGAUAQAOK.AAAAAA041
99998Q99&9 YYYYYY
99
999999
5A7BAVJ/AX.7U.5AFA5A
Q88Q9Y8Y9 8B 9Q89B9
99 9 99
99 9 9
C6BADBAKA •• lS0510203
9S9Y989SQ
4TBKBSJC.0418AGAHAHX
899899Y8
8Y89Y99
9 9 99
999 9
.7.CHAAA7DAJAADAAAAA
9 ZYQ999VYY89YYYYY
Z
999 99999
A0419AGVDAHX.7.AAABB
Y
8Y99Y99 9 YQ999
9
99 9
9Z
ADGA ••••••• 180510204
8999
AVAAAAAAA0420DOOAAHD
Y99YYYYVY
9YZVY98
9 999999
9· 9 9
.WB0421J43.JJ/AA.3J.
99
989 8Y8YO 99
9 999 9
~OBY8Q
5ALJLA05A6A6BADGBATB
89BQ89Y988999
99999 9 999 9 99 .
SJBA ••••••• 180510205
9YZQ
Z
"
PIN 840260
PAGE
20A
IBM MAINTENANCE DIAGNOSTIC PROGRAM
20
DATE
EC
9
9 Z
15JUl65
124265'
17MAR66
125643
D.X~4Q8TAAJY00384DCL
AAVJAAAAAA0486~.~ •••
9Y9YYYYYYY
9 9999999
BDAT •••• .-••:. ••..1: .. ;.~.
9
... ...
~
~~~
..... ..
~
...... .. .......
.-~
~
9
9
,
9 9
9
9
J.LA ••••••• IB0510200
9 80
99
9 9 9 99
9 9
10
PAGE·
F805-1
20
- - - - - - , - . - - - - , . . . ....- - - - - - - - - - - - .LAST PAGE -------~--.-~---~------------~---~--------.---DATE
17MAR6'6
t5JUL65.
10
F805-1
. EC
125643
12426"PAGE
20A
t
~aoooo
--~----------
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 00·0 00',01,
...•.... --,-.-----~-
o o
000
.. F8041
2821 SCAN/2540' REAOER/PUNCH
F806a
PUNCH TRANSLATDR FLT -ROUTINE OVERLAY 05-
* F8041
2821 SCAN/2540 REAOER/PUNCH
F8060
PUNCH TRANSLATOR FLT -ROUTINE OVERLAY 05-
PUNCH TRANSLATOR FLT -ROUTINE OVERLAY 05TITLE F8060
8060
-----.......
__
...
_-*----_
...... _-**-*--._ .... --*-*-**._._-------*.
...
MODIFICATIONS
*.
1. PUNCH TRANSLATOR FLT -ROUTINE OVERLAY 05_** •••
D017ED
00l7EO
.
..
THIS IS A NEW ADDITION TO THIS PROGRAM PACKAGE •
..
..
..
ENGINEERING CHANGE PREREQUISITES
1. HARDWARE
.
..
2821 CONTROL UNIT WITH 2540 ATTACHMENT AT MINIMUM
E.C. LEVEL 124265
..
...
2. PROGRAM
NONE
.•
.-----------*---*-_._.*----_._._*---_._._----._
.. _._---._._ .. _._.*._._.----_._.---------*--*------_
..-----------_._._--------.. _.. -...... _._..
FOURTH OVERLAY - ROUTINE 05
._._----_.... -*-------_._._-----*-*._ .... _.... _-_ .. _.-_._ ... _... _------.
.. RESIDENT LABELS ADDRESSED BY OVERLAYS
---------*----*--*---...
--------_ ..................... _........ -._._ .. .
SECST EQU
It
001000
001004
001040
001048
0010EO
0010E2
0010E4
0010E6
00112C
001134
001140
0011F8
OOllFA
001231
001l2C
001l4C
001lF7
001220
0016EC
001714
OOl71C
001060
0016E6
00179C
001234
00l63E
0012E8
00'0048
000040
001202
001140
; ....
0'010'15
001015
SNSW
CSW
CAW
UNITl
UN1AOR
UNIT2
UN2AOR
SIOVR3
SIOVR4
SIOSW5
STATSV
CSWAG
UAPU
CSWSAV
CAWKEY
S'=NSE
UARO
EXIT
EXIn
EXIT2
SVRPSW
EXITBY
SCHNUM
SCPOAT
SCPROO
SIO
HCAW
HCSW
MESSl
SIOSWS
0019F4
DI0DOOOOOF
ODIOCA
001700'
SECST&4
SECST&64
SECST&12
SECST&224
SECST&226
SECST&228
SECST&230
SECST&300
SECST&308
SECST&333
SECST&504
SECST&506
SECST&561
SECST&300
SECST&332
SECST&503
SECST&557
SECST&1772
SECST&l8l2
SECST&1820
SECST&96
SECST&l766
SECST&1948
SECST&564
SECST&1598
SECST&744
ORG
DC
ORG
DC
DC
ORG
SECST&21
AL31RTN05l
SECST&96
X'OlOOOOODOF'
AL31ROCROll
SECST&20DD
.
DATE
EC
000'0000000000000'
17MAR66
125643
_ _;..-._____________
WKAR3
00
C5D90940E7E7E7E7E7
07 00
05
00
FFFF
0019FB
00,19FC
OOlAOD
ODIAD4
DDlA08
ODlADE
OOlAl2
OOlA16
OOlAIA
OOlAIC
OOlAlO
OOlAlE
OOlA20
00lA24
OOlA28
72
64
SECST&514
SECST&333
INITIAL PSW STARTING AOOR FOR RTN 05
SVC RETURN PSW
VARIABLES - 00U8LE WORD BOUNDARY
.
*************.*********.*******************.**********.****************
CNOP
DC
DC
XLS'OO'
ERND
CNOP
DC
..
VARIABLES - NO BOUNDARY
INOAT
DC
X'000102030405060708090AI011191A20'
DC
X'2122292A3040414248494A5051585960'
DC
X'616263686A6B6E70727B7A8081828889'
DC
X'8B91AIA9COC1C2C8CADOD2DBDAEOEIE2'
WRSNS
WRCKRO
ROAT
RDSNS
ROCKRO
COMDAT
ERSWl
ERRX
DC
OS
OS
OS
OS
OS
OS
DC
DC
X'E3E8E9EAEBFGFA'
CL 71
CL 71
CL71
CL71
CL 71
CL9G
X'OO'
C'ERR XXXXX'
•
ROUTINE 0'5 PREFiX
VAR lABLES
WORD BOUNDARY
0,4
XL4'OO'
****************************** •• ********.**********.** •• ** ••••••••••• **
0001020304050'60708
090AIOl1l91A20
2l22292A3040414248
494A5051585960'
616263686A686E7072
787A8081828889
8B91AIA9COCIC2C8CA
D00208DAEOEIE2
E3E8E9EAEBFOFA
0019F2
0019F2
0019F4
0019F5
0019F6
*********************************************.*************************
001700'
001700
WKAR4
..
*.*** •• *.**.** •• **** •• ***.* •••••••• ** ••• *.***.* ••••••••• * ••••••••••••••
•
.***** ••• ** •• ****.* ••••••••••••••••••• ** •••• ** •••••••••••••••••••••••••
*._-_._.--_._.*-----*--*---*--_._._---_ .. * •••• _-.--*_.*****************
001060
001060
001065
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
000000'0'0
OD17E4
00l7EO
0017F4
0017FO
00'1804
001800
00'1814
001810
001824
00182B
00'1872
OD18B9
001900
001947
OD198E
0019E8
D019E9
XF8060 START 4096
USING .. ,15
USING "&4096,10
..
..
0'00'000000'0000'000
001708
001000
002000
PIN 840474
PAGE
lA
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PIN 840474
PAGE
1
IBM MAINTENANCE DIAGNOSTIC PROGRAM
0000000000 000_
0',8
XL8'DO'
•
RTGO
RTOX
RTG1
F E73
41
41
41
IB
92
02
45
02
45
02
07
07
02
58
I
1A6
'OE"c9• ,E.
DArE"
85 F 79C
80 F Al2
00 F 79C
80 F A12
02 F 065 F E70
FO F 714
02 F 004
60 F A20
00
RT02
91 40 F 004
47 80 F A2C
45 80 F 63E
001A2C
00lA30
001A34
OOlA38
001A3A
001A3E
001A44
001A48
001A4E
001A52
001A58
001A5E
I OOtA64
: OOlAbA
"I'
F806-D
ID
PAGE
1
95
47
95
47
02
47
91
47
OA
80
OF
RTN05
10'
20
30'
66
00'
58
AO
'00
AO
00
07
07
DO
60
.,
98E
98F
018
08E
04A
08E
700
F 708
F 708
F 708
.L
SR
1B 00
17MAR66
-----------------------------------L-"~~5~4~ ._.~
.... __
;-
.
SEE IF SHOULD RUN THIS ROUTINE
" BRCH IF YES
SEE IF SHOULD RUN THIS ROUTINE
" BRCH IF YES
SET UP RETURN SVC PSW AODR
BYPASS DATA CARDS
ROUT INE EX IT
SEE IF WANT TITLE PRINTOUT
" BRCH IF NO
PRINT TITLE
" NORMAL OUTPUT
" 15 CHARACTERS
" ADDRESS OF TITLE
SEE IF WANT UTILITY ROUTINE
" BRCH IF NO
BRCH TO UTILITY .ROUTINE
LA
LA
LA
SR
MVI
MVC
BAL
MVC
BAL
MVC
XC
XC
MVC
RT04
F 234
F 700
F 708
2 000
SCHNUM,X'85'
EQUAL,RTGl
SCHNUM,X'GO'
EQUAL,RTOl
SVRPSW&513l,SCRAD
ALWAYS,EXITl
SNSW,X'02'
ALLOFF,RT02
X'OO'
X'80'
X'OF'
SITITLEl
SNSW,X'40'
ALLOFF,RT03
GR8,SCPRGO
RTG3
F 98E
F 234
ROUTI NE NUMBER
FLAGS
LAST ROUTINE
DATA COLLECTION ROUTINE
F
F
F
1
F
2
F
CLI
8C
CLI
BC
MVC
BC
TM
BC
SVC
DC
DC
DC
TM
BC
8AL
0',4
0',0'
XL1'05'
XL1'OG'
X'FFFF'
*
•
F 7E4
F 8B9
F 98E
CNOP
BCR
DC
DC
DC
__ , _ _ _ _ _
~
GR1,INOAT
GR2,ROAT
GR3,COMOAT
GR6,GR6
COMOAT,X'OO'
COMDAT&1(89t,COMOAT
GRA,OWR
14211,GR1),SCPOAT
GRA,PRO
14211,GR2),SCPOAT
WKAR3(8),WKAR3·
WKAR418l,WKAR4
WKAR4( 11 ,0IGR2)
GRB,WKAR4
GRO,GRG
INITIALIZE
"
"
"
"
GO"
WRITE PUNCH BUFFER
SAVE WRITE CHECK READ DATA
GO READ PUNCH BUFFER
SAVE READ CHECK READ DATA
COMBINE INV CD CODE
READ DATA
"
"
"
"
10
F806-0
_ _ _ _ _'___.:..__ _ _ _ _ _ _ _.:_._ _ _ _P_A_G_E_ _ _1_A_-.:
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PIN
PAGE
rBM MAINTENANCE DIAGNOSTIC PROGRAM
S40474
Z
OOlACO
00lAC6
OOlACA
OOlACC
OOlACD
OOlACE
OOlADO
00lAD4
001AD8
OOlADC
OOlAEO
00lAE4
001AE6
OOlAEA
OOlAEE
001AF2
001AF6
001AFA
OOlAFE
001802
001B04
001808
OOlBOC
001610
001B14
001B18
OOIBIC
OOlBIE
001B22
001B26
001B2A
001B2E
001B32
001B36
001B3A
001B3E
001B42
001B46
001B4A
•. 001B4E
001850
001B52
001856
00185A
DATE
EC
O
! i · .. ;
10".
,
:0
88
50
91
47
96
58
18
5C
18
50
88
50
41
06
41
41
15
47
41
41
47
80
BO
08
80
80
BO
96
80
88
SO
BO
BO
99
03
BO
10
IB
80
20
60
FO
05 4F
47 60
OA 00
80
10
F ES2
47 FO
41 10
45 80
41 90
92 00
18 22
43 20
41 90
43 30
89 30
41 90
41 40
41 50
1B S8
43 80
41 58
41 90
43 60
41 90
50 20
IB 22
41 70
60 20
6S 70
49 70
47 60
41 70
5S 20
44 60
44 70
92 FF
46 20
46 40
lE 94
IE 94
41 SO
41 70
15 78
0 001
F 700
2 047
F A84
F 700
F 700
SRL
ST
TM
BC
01
RT05
F ElO
o
F E14
8 000
F 700
F 98E
9 000 F 700
F 82B
1 001
F
2
6
F
ACO
001
001
A44
•
F 98E F E20
F A04
F C4E
0 DIE
F OAO
F 234
F 9E8
9
9
9
0
9
0
000
001
000
018
001
004
F 98E
9
5
9
9
9
F
000
000
001
000
001
700
0
0
2
F
080
002
000
EIE
B36
050
700
C3E
C42
9ES
BA6
B4E
F
0
F
F
F
F
F
F
F 27A
9 003
L·
LR
M
SR
*
*
RTlO
SRL
ST
LA
DC
LA
LA
CLR
BC
LA
LA
BC
FS041
2821 $CAN/254a READER/PUNCH
Fa060
PUNCH TRANSLATOR FLT -ROUTINE OVERLAY 05-
GRB,l(GROI
GRB,WKAR3
71(GR2I,X'OS'
ALLOFF,RT05
WKAR3,X'SO'
GRB, WKAR3
GR9,GR6
GRB,NINE
GRS,GRS
GRS,EIGHT
GRB,O(GRBI
GRB,WKAR3
GR9,COMDAT(GR91
0(4,GR91,WKAR3
GRB,WRSNS
GR1,1(GRO,GRl1
GRl,GRB
EQUAL,RTIO
GR2,1IGRO,GR21
GR6,1(GRO,GR61
ALWAYS,RT04
"
"
"
,.
"
"
"
"
"
"
"
"
"
"
SEE IF END OF DATA COLLECTION
"
""
BRCH IF YES
"
"
CONTINUE COLLECTING DATA
COMDAT(BOI,OUTDAT
NEQUAL,RT20
X'DO'
X'BO'
X'10'
S(NERDETl
ALWAYS,LGOUT
GRl,30(GRO,GROI
GRB,RDCRD
GR9,SCPDAT
ERSWl,X'OO'
GR2,GRZ
GR2,0IGRO,GR9)
GR9.1(GRO,GR9)
GR3,0(GRO,GR91
GR3,24
GR9,1(GRO,GR91
GR4,4(GRO,GRO)
GR5,COMDAT
GRS,GRS
GRS,O(GRO,GR91
GR5,O(GRS,GR5)
GR9,1(GRO,GR9)
GR6,0(GRO,GR9)
GR9,l(GRO,GR9)
GRZ,HKAR3
GRZ,GRZ
GR7,lZ8
GRZ,2
GR7,0(GR21
GR7,THRT2
NEQUAL,PT0630
GR7,80
GR2,WKAR3
GR6,TMA
GR7,BCON
ERSWl,X'FF'
GRZ,PT067
GR4,+E.4
GR9,GR4
GR9,GR4
GRS,SCPDATE.70
GR7,3(GRO,GR91
GR7,GRS
SEE IF GOT ANY ERRORS
., BRCH IF YES
PRINT NO ERRORS DETECTED
" NORMAL OUTPUT
,t 16 CHARACTERS
" ADDRESS OF MESSAGE
GO SEE IF WANT LOG OUT
INITIALIZE DATA RECORD COUNT
GO READ A DATA CARD
SET UP CURRENT DATA ADDRESS
RESET ERR SW 1
SET COUNT OF MASKS IN GR2
,,
UPDATE CURRENT AODR BY 1
SET CC IN GR 3
UPDATE CURRENT ADDR SY 1
SET 4 IN GR 4
SET TEST DATA AOOR
SET UP TEST ADDRESS
I
"
"
UPDATE
CURRENT ADDR BY
SET UP MASK
UPDATE CURRENT ADDR BY 1
CONVERT CC
", ,
"
IS" CC
2
" BRCH IF NO
SET CC FOR ANY OR ALL
RESTORE GR 2
TEST DATA
BRCH IF ERROR RESULT
TURN ON ERR SW 1
BRCH IF NOT END OF MASKi·FOR THIS CC
UPDATE CURRENT AODR
," ,
DOES
,,
"
JHIS CARD CONrAIN NEXT DATA FLO
17MAR66
10
1256~3
o
PAGE
()
o
2A
*
ERROR DEFINITION ROUTINE
CLC
BC
SVC
DC
DC
DC
BC
RT20
LA
PTOSl BAL
PT06
LA
PT061 MVI
SR
IC
LA
PT062 IC
SLL
LA,
LA
PT063 LA
SR
IC
LA
LA
IC
LA
ST
SR
LA
SLOL
SRL
CH.
BC
LA,
PT0630 L
EX
EX
MVI
BCT
BCT
ALR
ALR
PT0631 LA
LA
CLR
840474
PAGE
• FHD41
2821 SCAN/2540 READER/PUNCH
.~
F8D60
PUNCH TRANSLATOR FLT -ROUTINE OVERLAY 05001A70
001A74
001A78
001A7C
001A80
001AB4
001A88
ODlA8A
OOlASE
001A90
001A94
001A9S
00lAge
OOlAAO
001AA6
OOlAAA
OOlAAE
OOlABO
00lAB4
001A6S
001A6C
PIN
()
()
FS06-0
2
OOlB5C
001860
001864
001B68
00186E
001B72
001 B76
001B7 A
00187E
001BSO
001BS4
001BSS
001BSC
001890
001 B94
001B9A
00189E
001BA2
001BA6
001BAA
001BAE
001BB2
001B84
001BBS
001BBC
001BCO
001BC4
001BC8
OOlBCC
OOlBCE
001BDO
001 BD4
001BDS
OOlBDC
OOlBEO
001BE2
fOl BE6
001BEC
001 BF2
OOlBFS
001BFE
00lC02
001C06
OOlCOA
001COE
001CIO
001CIZ
001 C14
00lCl6
OOICIC
001C20
001C24
001C2S
001C2A
001C2B
001C2C
001C2E
001C32
001C36
001C3A
001C3E
001C42
001C46
001C48
001C49
DATE
EC
47
91
47
02
45
41
41
41
15
47
47
45
91
47
02
45
41
47
46
41
41
15
47
45
41
47
46
20
10
FO
03
BO
90
SO
70
7S
20
FO
BO
10
FO
03
BO
90
FO
40
SO
70
78
CO
BO
90
FO
20
Itt> 40
1'2 94
IE 94
91 FF
47 10
41 SO
41 70
15 7S
47 20
02 02
07 07
D2 02
F2 22
4F SO
41 SO
50 80
4E SO
OA DO
0003
0705
07DS
02 03
95 FO
47 60
92 40
OA DO
44
OS
F 9E9
47 FO
45 BO
41 90
47 FO
91 00
47 00
OA DO
80
08
F
F
F
F
F
9
B8S
004
B72
9EO 9 000
C46
004
F 27 A
9 009
FADS
F AEO
F DAO
F 004
F B9E
F 9EO F 234
F C46
F 23S
F AEO
F AFE
F 27A
9 008
F AEE
F OAO
F 234
F AEE
F BA6
F BCC
PT064
PT065
PT066
PT067
PT06S
F 9ES
F B52
F 27 A
9 003
F
F
F
F
F
F
S
F
F
C32
9ED
700
705
705
700
28A
7EO
700
9
F
9
F
001
700
001
705
PT069
F 9EO F <709
9ED
F C28
F 9ED
F
CLI
C4E
DAO
234
BE6
000
BC4
HIGH,PT065
SNSW,X'10'
ALWAYS,PT064
ERRXE.4(41,0[GR9)
GRB,PRCRES
GR9,4(GRO,GR91
GRS,SCPDAT&70
GR7,9(GRO,GR91
GR7,GRS
HIGH,PT051
ALWAYS,PT061
GRB,RDCRD
SNSW,X'10'
ALWAYS,PT066
ERRX&4(4),SCPDAT
GRB,PRCRES
GR9,SCPDAT&4
ALWAYS,PT061
GR4,PT063
GRS,SCPDAT&70
GR7,S(GRO,GR9)
GR7,GRB
LOEQ,PT062
GRB,RDCRD
GR9,SCPDAT
ALWAYS,PT062
GR2,PT067
GR4,*&4
GR9,GR4
GR9,GR4
ERSWl,X'FF'
ALLON,PT0631
GR8,SCPOAT&70
GR7,3(GRO,GR9)
GR7,GR8
HIGH,PT06A
ERRXE.4(31,1(GR91
WKAR3(8I,WKAR3
WKAR3&5(3l,l(GR91
WKAR3E.5(3),WKAR3E.5(31
GRS,WKAR3
GRS,650(GRO,GR8)
GR8,ERNO
GR8,WKAR3
X'OO'
ALZ(3)
AL2(WKAR3E.5-SECSTI
ALZ(WKAR4-SECST)
ERRX&4(4),WKAR4&1
ERRXE.4,X'FO'
NEQUAL,PT06X
ERRX&4,X'40'
X'OO'
X'44'
X'OS'
S(ERRX)
ALWAYS,LGOUT
GRB,RDCRD
GR9,SCPDAT
ALWAYS,PT069
0(GR5),X'OO'
NA,PT068
" BRCH I F NO
PRINT CORRECT RESULTS
" BRCH·I F NO
SET FAULT NO. IN MESSAGE
GO PRINT FAULT NO.
UPDATE CURRENT AODR BY 4·
DOES THIS CARD CONTAIN NEXT DATA FLO
"
"
,,' BRCH IF NO
CONTINUE
READ A DATA CARD
PRINT CORRECT RESULTS
" BRCH IF NO
SET FAULT NO. IN MESSAGE
GO PRINT FAULT NO.
SET CURRENT ADDRESS
CONTINUE
BRCH IF DID NOT USE 4 MASKS
DOES THIS CARD CONTAIN NEXT DATA FLO
"
""
BRCH IF' YES
READ A DATA CARD
SET CURRENT ADDRESS
CONTI NUE
BRCH IF NOT LAST MASK
UPDATE CURRENT ADDRESS
"
" IF ERR SW 1 ON
SEE
" BRCH IF YES
DOES THIS CARD CONTAIN NEXT DATA FLO
"
" BRCH IF NO
,.
MOVE ERROR NO. TO ERROR MESSAGE
CONVERT ERROR NO. TO BINARY
SAVE
"
"
,"
"
CONVERT
.
..
..
SET ERROR NO. IN ERROR MESSAGE
SEE IF FIRST CHAR IS 0
" BRCH I F NO
BLANK OUT 0
ERR XXX - SEE ERNO
PGM DESCRIPTION
" ERROR OUT PUT
,; 8 CHARACTERS
" MESSAGE ADDRESS
GO SEE IF WANT LOG OUT
READ A DATA CARD
SET CURRENT ADDRESS
CONTINUE
TEST DATA
TMA
BCON
**
ROUTINE TO PRINT FAULT NUMBERS
PT06A
*PRCRES
SVC
DCi.
DC
X'DO'
X'SO'
X'OS'
PRI NT FAULT NO.
" NORMAL OUTPUT
I I 8 CHARACTERS
17MAR66
125643
o o o
ERROR NO. TO PRINTABLE
"
BC
MV:I
SVC
DC
DC
DC
BC,
BAL
LA:
BC
TM
BC
PT06X
F
F
F
F
5
F
BC
TM
BC
MVC
BAL
LA
LA
LA
CLR
BC
BC
BAL
TM
BC
MVC
BAL
LA
BC
BCT
LA
LA
CLR
8C
BAL
LA
BC
BCT
BCT
ALR
ALR
TM
BC
LA
LA
CLR
BC
MVC
XC
MVC
PACK
CVB
LA
ST
CVD
SVC
DC
DC
DC
MVC
10
PAGE
o
()
F806-0
2A
o c
o o
():
o
0:
c o o o
o o o
00 000
o
o
00000
0· ·, 0· ·
, -,,'
'~,!
,.
oe
'-
PIN '840474
PAGE
3
IBM MAINTENANce DIAGNOST Ie PROGRAM
* F8041
F8060
001C4A
001C4C
DC
BCR
*
001C4E
001052
001056
00105A
00105E
001C62
001068
001C6E
001C70
001C72
001C74
001076
001C7C
001C7E
001C80
001C82
001C84
00108A
001C80
00108E
001C90
001C92
001C98
00109A
001C9C
00109E
OOlOAO
001CA6
001CA8
001CAA
0010AC
0010AE
001C84
001C86
001C88
0010BA
0010BC
0010CO
0010C6
00100A
001CCE
001002
001CD6
001CDA
OOlCDE
001CE2
001CE6
OOlCEA
OOlCEE
OOlCFO
OOlOFl
001CF2
001 CF4
001CFS
001CFC
001000
001002
001D06
001008
OOlDOC
OOlDIO
001014
*
F8041
2821 SCAN/2540 READER/PUNCH
F8060
PUNOH TRANSLATOR FLT -ROUTINE OVERLAY 05-
2821 SCAN/254~ READER/PUNCH
PUNCH TRANSLATOR FLT -ROUTINE OVERLAY 05F 9E9
07 FS
91
47
41
41
20
SO
10
20
92 40
02 7C
02 00
OA DO
0001
0700
0237
02 00
OA 00
0001
0700
023A
02 00
OA 00
0001
0700
0230
02 00
OA DO
0001
0700
0240
02 00
OA 00
0001
0700
0243
02 00
OA DO
0001
0700
0246
92 5C
05 01
47 60
95 00
47 60
95 00
47 60
95 00
47 60
95 00
47 60
92 40
OA 00
80
14
F 234
41 90
41 10
41 20
15 19
47 60
OA DA
91 40
47 SO
45 80
47 FO
F 004
F 008
F 7E4
F SB9
F 234
F 235 F 234
F 700 1 000
..LGDUT
MVC
SVC
011
DC
DC
MVC
SVC
DC
DC
DC
MVC
SVC
DC
DC
DC
MVC
SVC
DC
DC
DC
MVC
SVC
DC
DC
DC
MVI
CLC
BO
ClI
Be
CLI
Be
F 700 2 000
F 700 2 047
F 700 2 OSE
F 235
F 237 F 240
F CEE
1 047
,\
F OEE
lOBE
F ceE
2 047
F CEE'
2 08E
F ceE
F 235
CL~
Be
CLI
BOI:
MWI
LGOUTA SVC
DC
DC
00:
F 014
LA'
LA
LA
OLR
BO'
SVC
LGOUTX TM.'
BC
F 63E
F AOS
LGOUTY
F 82B
1 001
2 001
F C5E
F
004
bOlOl8
:O0101C
001022
D~
F 700 1 08E
" MESSAGE ADDRESS
RETURN TO MAIN PROGRAM
LOG OUT RDUTINE
TM
BO
LA
LA
LGOUTI MVI
MVC
MVC
SVC
DC
DC
F 700 1 047
S(ERRX)
ALWAYS,GRS
BA~
B~.
SNSW,X'20'
ALLOFF,LGDUTX
GRl,INDAT
GR2,ROAT
SOPDAT,X'40'
SCPDAT&I(125),SCPDAT
WKAR3(1I,O(GR11
X'DD'
AL2( 1)
AL2(WKAR3-SECST)
AL2(SCPOAT&3-SECSTI
WKAR3(1I,71(GR11
X'DD'
AL2(11
AL2(WKAR3-SECSTI
AL2(SOPOAT&6-SECSTI
WKAR3(11,142(GRl1
X'DD'
AL2(1)
AL2(WKAR3-SECSTI
AL2(SCPDATt9-SECSTI
WKAR3(1I,O(GRZI
X'DD'
ALZ (1)
AL2(WKAR3-SECSTI
AL2(SCPDATt12-SECSTI
WKAR3(11,71(GR21
X'DD',
AL2( 11
AL2(WKAR3-SECSTI
AL2(SCPDATt15-SECSTI
WKAR3(13,142(GR21
X'DD'
AL2( 11
AL2(WKAR3-SECSTI
AL2(SCPDAT&lS-SECSTI
SCPDAT&l,O'*'
SCPDAT&3(2),SCPOAT&12
NEQUAL,LGOUTA
71(GRll,X'00'
NEQUAL,LGOUTA
142(GRll,X'00'
NEQUAL,LGOUTA
71(GR21,X'OO'
NEQUAL,LGOUTA
142(GR21,X'00'
NEQUAL,LGOUTA
SCPDAT&1,X'40'
X'OO'
X'SO'
X'14'
S(SCPOATl
GR9,WRSNS
GRl,1(GRO,GR11
GR2,1(GRO,GR21
GRl,GR9
NEQUAL,LGOUT1
X'DA'
SNSW,X'40'
ALLOFF,LGOUTY
GR8,SCPROO
ALWAYS,RTOX
SEE IF WANT LOG OUT
" BRCH IF NO
INITIALIZE LOG OUT ROUTINE
"
CLEAR
001028
001D2C
001030
001034
001038
00103C
001040
001046
PRINT FIELD
Of
SET UP TO PRINT WRITE DATA
"
", ,
"
SET
,,
"
"
"
SET
UP TO PRINT WRITE SENSE DATA
UP TO PRINT WRITE CK READ DATA
"
"
"
"
SET
17MAR66
125643
48
02
D2
41
50
92
45
91
47
02'
47
CO
00
4E
00
00
00
BO
01
10
00
FO
F OE6
F 234 1 000
F 235 F 234
F OFS
F 048
F 140
F 2E8
F 140
F DIS
1 047 F 1F7
F 07C
UP TO PRINT READ DATA
001D4A
00104E
001052
001056
001D5A
001D60
001064
001068
00106C
001072
001078
92
41
50
92
02
45
91
47
02
02
47
00
00
00
00
4E
BO
01
10
00
00
FO
41
50
92
92
02
45
91
47
07
(
00
00
00
00
4E
BO
01
10
FA
F
F
F
F
F
F
F
F
2
2
F
140
EOO
04S
234
235 F 234
2ES
140
A44
000 F 234
047 F 1F7
07C
ROUTINE TO WRITE PUNCH BUFFER
OWR
LH
MVC
MVO
LA
ST
MVI
SAL
TM
BC
MVC
BC
*PRO
*
"
"
"
" UP TO PRINT READ SENSE DATA
SET
"
"
" UP TO PRINT READ CK RD DATA
SET
"
"
"
"
SET
00107C
001080
001064
00106S
0010SC
001092
001096
001D9A
0010910
*
F EOS
F 048
F 140
F 234
F 235 F 234
F 2ES
F 140
F A44
*OCK
*
ERROR FLAG
SEE IF READ DATA OK
" BRCH IF NO
SEE IF ANY WRITE SENSE DATA
" BRCH IF YES
SEE IF ANY WRITE CK READ DATA
" BRCH IF YES
SEE IF ANY READ SENSE OATA
BRCH IF YES
SEE IF ANY READ CK READ DATA
" BRCH. IF YES
REMOVE ERROR FLAG
PRINT LOG OUT DATA
"
"
"
SEE
""
""
*
*
*
IF END OF LOG OUT
,
BRCH I F NO
HALT - WAIT FOR ACTION
SEE IF WANT UTILITY ROUTINE
" BRCH IF NO
BRCH TO UTILITY ROUTINE
ROUT! NE EXIT
*
DATE
EC
PIN 840474
PAGE
3A
IB'M MAINT'ENANCE 01 AGNOSTIc PROGRAM
10
FS06-0
PAGE
3
*
OOlOAO
001DA4
001DAA
001DAC
0010AE
001OB2
001DB6
001DB6
001DBA
001DBC
001DBE
001DC4
001DCB
001DCA
001DCE
001000
001004
001008
001DOC
0010DE
00100F
001DEO
00lDE2
00lDE6
00lDEA
OOlOEE
DATE
EC
00
02 4E
OA DB
'0234
41 10
4E 10
OA 00
0002
0706
0708
05 02
41: 60
07': FB
58 20
1~ 21
47 80
41 30
50 30
Oil DO
92
234
F 235 F 234
F
1 001
F 700
F 708 F 281
F 004
F ElS
F DE6
0 28A
F 7EO
44;
07>
F 'E92
47> FO F C4E
41i 30 0 28B
50 30 F 7EO
04 00
l7MAR66
125643
*
RDCRD
GRC,UN2AOR
SCPOATllI ,0(GRll
SCPOAT&1(791,SCPDAT
GRO,PWRCCW
GRO,CAW
SIOSWS,X'OO'
GRB, S 10
SIOSWS,X'Ol'
ALLON,OWR
7l( 1,GRll ,SENSE
ALWAYS,OCK
'SET PUNCH I/O ADOR IN GR 12
LOAD WRITE DATA
,,
,,
LOAO ADDR OF PUNCH WRITE CCW
, RESET SIO SWITCHES -USE PUNCH ADORBRCH TO SID ROUTINE
SEE IF INTERVENTION REQ SW ON
" REPEAT WRITE IF YES
SAVE WRITE SENSE DATA
GO DO DIAGNOSTIC CHECK READ
ROUTINE TO PERFORM PUNCH OI'AGNOSTIC READ
MVl
LA
ST
MVI
MVC
BAL
TM
BC
MVC
MVC
BC
SIOSWS,X'OO'
GRO,PRDCCW
GRO,CAW
SCPDAT,X'OO'
SCPDATtl(791,SCPDAT
GRB,SIO
SIOSWS,X'Ol'
ALLON,RT04
0(1,GR2),SCPOAT
7l( 1,GR2I,SENSE
ALWAYS,OCK
RESET SIO SWITCHES -USE PUNCH ADDRLOAD ADDR OF PUNCH READ CCW
"
CLEAR
READ FIELD
" TO SID ROUTINE
BRCH
SEE IF INTERVENTION REQ SW ON
" RE-RUN WRITE
READ IF YES
SAVE READ DATA
SAVE READ SENSE DATA
GO DO DIAGNOSTIC CHECK READ
ROUTINE TO PERFORM OIAGNOSTIO CHECK READ
LA
ST
MVI
MVI
MVC
BAL
TM
BC'
BCR
GRO,CROCCW
GRO,CAW
SIOSWS,X'OO'
SCPOAT,X'OO'
SCPDAT&1(79l,SCPOAT
GRB,SIO
SIOSWS,X'01'
ALLON, RT04
ALWAYS,GRA
LOAO AOOR OF OIAG CK RD CCW
"
RESET
SID SWITCHES -USE PUNCH AOORCLEAR READ FIELD
" TO SID ROUTINE
BRCH
SEE IF INTERVENTION REQ SW ON
" RE-RUN WRITE
READ IF YES
RETURN TO MAIN PROGRAM
ROUTINE TO READ DATA CARDS
MVI
MVC
SVC;
DC
LA
CVD
SVC
DC
DC
DC
CLC
BC
BCR:
ROCRD1 L
CLR
BC
ROCROX LA 11
Sf
SVC
DC
DC
DC
BC
RDCRD2 LA
ST
SVC
SCPDAT,X'OO'
SOPDAT&1(79l,SCPDAT
X'DB'
AL2(SCPDAT-SECSTI
GRld (GRO,GRll
GR1,WKAR3
X'OD'
ALZ(21
ALZ(WKAR3&6-SECSTI
AL2(WKAR4-SECSTI
WKAR4(3),SCPDAT&77
NEQUAL,ROCROX
ALWAYS,GRB
GR2,COCNT
GR2,GR1
EQUAL,RDCR02
GR3,650(GRO,GROI
GR3,ERNO
X'OO'
X'44'
X'07'
SIERR6501
ALWAYS,LGOUT
GR3,651(GRO,GROI
GR3,ERNO
X'OO'
CLEAR READ FIELD
" A DATA CARD
\REAO
REAO DATA FIELD ,ADDRESS
INCREASE CARD COUNT
CONVERT CARD NO TO PRINTABLE
"
"
"
SEE IF DATA CARD SEQUENCE OK
" BRCH I F NO
RETURN TO MAIN PROGRAM
SEE IF CORRECT NO. DATA CARDS READ
,,
" BRCH IF YES
,SET UP ERROR NO.
"
ERROR
650 - MISSING DATA RECORDS OR
" DATA RECORDS OUT OF SEQUENCE
" 7 CHARACTERS
" MESSAGE ADDRESS
GO SEE IF WANT LOG OUT
SET UP ERROR NO.
"
ERROR
651 - CAN NOT ISOLATE FAILURE
10
FS06-0
PAGE
3A
_._----._---------------,-,----------------'-----------,------------------
I
PIN 840474
PAGE
4
IBM MAINTENANCE DIAGNOSTIC PROGRAM
* F8041'
F80bO
001DFO
OOlDFl
001DF2
001DF4
OC
DC
DC
BC
*•
001DF8
001EOO
001E08
OOIEIO
OOlE14
001E18
OOlEIC
OOlEIE
01 001234 2000 0050
C2 001234 2000 0050
Cb 001234 2000 0050
*PWRCCW CCW
PRDCCW CCW
CRDCCW CCW
**
*
NINE
00000009
00000008
000000A5
0000
0020
EIGHT
CDCNT
THRT2
*
•
001E20
001E29
001E30
001E39
001E40
001E49
001E50
001E59
001E60
001Eb9
001E70
OOlE73
001E7C
001E82 .
00lE88
;~' ,
;!"!.
000040403020140C07
04024141008864
342010888522A1810D
82422412494502
89bOB2603098&C6b83
51ACDC70391EOF
48040A09108945A454
2A9b030584C8b5
341A4086D3S1C2E271
BAID2EA75BCIF4
,OOI7lC
D7E4D5C3C840E7D3Cl
E3C540CbD3E3
D5D640C5D9D9E240C4
C5E3C5C3E3C5C4
'j,
000000
000001
000002 .
000003
000004
000005
OOOOOb
00'0'007
000008
000009
OOODOA
OO'OOOB
OOOOO'C
00'0000
OO'OOOE
OOOOOF
•CUT OAT
SCRAD
TITLE
DATE
EC
000008
000002
00'0008
000004
000002
OOOOOF
000000
000007
000004
OOOOOC
OOODOC
000000
" ERROR MESSAGE
., 7 CHARACTERS
" MESSAGE ADDRESS
GO SEE IF WANT LOG CUT
DOUBLE WCRD BOUNDARY
X'01',SCPDAT,X'20'.80
X'C2'.SCPDAT,X'20',80
·X'Cb'.SCPDAT,X'20',BO
WRITE PUNCH BUFFER -SLl CN'
READ PUNCH BUFFER -SLI CNDIAGNOSTIC CHECK READ'-SLI ON-
CCNSTANTS - WCRD BOUNDARY
DC
DC
DC
DC
DC
1
XL4'09'
XL4'08'
XL4'A5'
XL2'OO'
'XL2'20'
001E92
001E99
C5D9D940F6FSFO
CS09D940F6F5Fl
B
2
8
4
2
15
13
7
4
12
12
0
ZERO'
GZERO
AVAIL
CSWST
BUSY
ALWAYS
NCTBSY
NZERC
NCTZRC
MIXNCN
LOEQ
NA
EOU
EOU
EOU
EOU
EOIJ
EOU
eQU
EOU
EOU
EQU
EQU
eQU
•*
ERROR NUMBER DEFINITION
ZERO'
0
GREATER ZERO'
AVAILABLE
0
CSW STCRED
BUSY
UNCCND ITI CNAL 0
NOT BUSY
0
NOT CC 0
NCT ZERC'-ANDMIXED CR NCNE '0
LCW £. EQUAL
0
2
1
2
1 2 3
1
3
1 2 3
1
1
1
*.********.**** •• * ••• * •• * •• * ••••••• ** ••••••••••••••••••••••••••••••••••
*ERR650
DC
ERR651 DC
END
C'ERR 650'
C'ERR 651'
DATA RECORDS MISSING OR OUT OF SEQ
CAN NOT ISOLATE PCH XLATE FAILURE
CONSTANTS - NO' BOUNDARY
DC
X'000040403020140C07040241410088b4'
DC
X'34201088B522A18l00B2422412494502~
~¢
X'89bOB26030988C66835lACDC70391EOF'
DC
X'4B040A09108945A4542A96030584C865 ,
DC
X'341A4D86D381C2E271BAID2EA75BCIF4'
DC
AL3(EXIT21
C'PUNCH XLATE FLT'
DC
NERoET DC
C'.NO ERRS DETECTeD'
** ••••••••••• *.*****.*** •••• ** •••••••••••••••••••••••••••••••••••••••••
*
GENERAL REGISTER EQUATES
*
..••••..•..••..•... _- •.........•.. _...........•....... _................ .
GRO
GRl
GR2
GR3
GR4
GR5
GRb
GR7
GRB.
GR9
GRA
GRB
GRC
GRD
GRE
GRF
EQU
EQU
EQU
EOU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EOU
EOU
EQU
SQU
EQU
o
• r-.
1
2
3
4
'"
5
6
7
8
9
1\
10
11
12
13
14
15
I,
•....•.
.. * •• * ••• **.***••••••• •• *.***********•• **.* ••••••••••••••• _-*
•
CCNDITICN CODE EQUATES
~'*
000078
000008
000'005
000001
000004
000009
00'0008
OOOOOb
000004
00'0'002
X'44'
X'07'
StERRb511
ALWAYS,LGCUT
ctw's -
PIN 840474
PAGE
4A
• F8041
2B21 SCAN/2540' READER/PUNCH
F80bO
PUNCH TRANSLATCR FL T -RCUTINE CVERLAY 05-
2821 SCAN/2540 READER/PUNCH
PUNCH TRANSLATOR FLT-ROUTINE OVERLAY 0544
07
F E99
47 FO F C4E
IBM MAINTENANCE DIAGNOSTIC PROGRAM
~
_.*_ .... _*._ .....
••••• **~~*.*.** ••• * •••• * ••••••••• *.*****.***.*.*******
HICN
EQU
120
HARDWARE I/O NEW PSW LCCATICN
ALLOFF EiQU
8 1 ALL OFF
0
ANYON EOU
5
'ANY CN
1
ALLON I;:QU
1
ALLCN
3
MIXED EQU
4
MIXED
1
NM !XED eou
9
NOT MI XED
0
3
EQUAL EQU
8
EQUAL
0
NEQUAL EQU
b
NOT EQUAL
1 2
LOW
EOU
4
LOW
1
HIGH
.;~U
2
HIGH
2
17MARb6
125b43
10
1=806-0
PAGE
4
DATE
EC
17MAR66
125643
10
F806-0
PAGE
4A
I
'j
;,
A
v
o
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 O' 0 0 0 0 0 0 0.0 00 0 0 0 0 O!
0: 0 0 0 0 0 0 0 0 0 0 0) 0 0 0
c
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
.".. "._", _ _ ._.___ ,.,,_~-.i
-----.
..---.--. -~--------.--......-'-'
r
2821 SCAN/2540 READER/PUNCH
.. F80ltl
PUNCH TRANSLATOR FLT -ROUTINE OVERLAY 05F8060
'F801tl
'2821 SCAN/251t0 READER/PUNCH
PUNCH TRANSLATOR FLT -ROUTINE OVERLAY 05F8060
'it
4
4
4
4
4
4
6
6
4
1
1
1
1
1
1
1
4
1
'I
It
1
1
1
1
1
16
4
1
1
1
!t
4
4
4
4
4
It
4
4
6
4
2
4
POST ASSEM8LY DATA.
REFERENCES TO DEFINED SYM80LS.
1
1
1
It
4
1
0
1048
1040
lO1C
1018
D
1
1
GR1
1
2
GR2
1
1
3
it
GR3
GR4
5
6
1
1
1
7
GR5
GR6
GR7
1
8
GR8
1
9
GR9
1
1
A
8
GRA
GR8
1
1
1
1
1
It
1
4
4
1
4
9
C
0
E
F
4
104A
l2E8
lC3E
lC42
2
11ED
19E9
GRC
GRO
GRE
GRF
LOW
PRO
SIO
TMA
8CON
BUSY
ERNO
ERRX
1
1
1
.1
16EC
48
40
2
EXIT
HCAW'
HCSW
HIGH
HION
LOEQ'
NLNE
PT06
ROAT'
1
1
..
'4
11'
DATE
EC
NA
CAW
CSW
oCK
OWR
GRD
l1MAR66
12561t3
'78
C
1E10
lADC
1889
lC42
lO2C,
1046,
1444,
1A6E,
lA04,
1804,
18AE,
104E,
10E6.
. 1A2C,
lC68,
1000,
1A30.
1AE4,
1836,
1COA,
10CE
1A34,
1AFA,
18ce
lAFE,
1A38,
l81E,
lB7A,
lA28.
lB02,
lBAA,
1C06,
1A88,
lAEA,
1810,
1812,
18CE,
1A44,
1A6A,
lAAE,
1C4C,
1018
1052,
1080
1018
103C
1A6E,
1AE6,
180C,
1BOC,
1052,
10E6
lA48,
lC16,
101C.
LA52.
1AE6.
1846,
1CEZ.
lA70,
14EA,
1810,
1C02,
lO7C,
1AAA,
1AEE,
IB14,
lCF8,
1080.
1 A8-4 ..
lAF6,
1856.
lCFC,
10AE,
lAB8,
1AF.A,
1872,
1028,
1004,
lA04
lAFA
187A
lo2C
1004
lAAA,
lC84,
1040,
lA64.
1818,
18C4,
1CFC,
lAAA.
lCCA,
10AE,
1A78.
181C,
1C5A.
1CFC,
lAAE.
lC02.
10AE.
LA84.
181C,
lC92,
106C,
lA04.
1CF8.
lOB2.
lAB4,
1822.
lCAO,
1072,
1C56
lCF8
10CE
1AE4
1826
lCAE
loCA
1AEE.
l84A,
lAF2,
l84E,
1004,
1850.
1008,
18A6,
10E6.
18C8.
IDEA
18CC
1808,
1A38,
1826,
1B1E,
LA8A.
IB04,
1882,
lCOA,
lA9C,
lAEE,
1814,
1812,
180C,
1A4E,
lA10,
lA08.
1034,
1808,
lA88,
l82A,
lBAE,
LA8E,
IB08,
1808,
1010
LA9C,
lAF6,
1814,
181A,
18E6,
109E
lA74.
186E,
1060,
lC3E
LA88,
1832,
IBB2,
lA8E,
1852,
l8EO,
lA88,
183E,
IBOC,
lA90,
IB5A,
l8FE.
1810.
1856.
1BEO
lA94,
1876,
1C02,
183A
185A
lAAO;
LAF6,
184E,
189E.
l8F2,
lAOC,
1804,
1850,
18AE,
lC36,
LAE6,
180C.
1856,
188C.
lCF4,
lAEA
180C
1868
18CC
1000
lA84,
1888,
1092.
lA94,
189A.
10C8
lA98,
1888.
lAA6
lC32
1B02
181E
lC02
11
1
3
1
19F8
lA12
lA20
lA2C
lA44
lA84
lA08
lACO
1A04
1004
1.231
1220
8
1
5
8
lE18
llFA
4
lE14
8
19E8
1114
l11C
Z
l1.E4
1C4E
1202
4
7
1A08
1AEO
lAEE
lAFE
1812
1888
189E
18A6
18C4
18E6
lC32
1C28
UlAO
1900
19F4
lE10
1000
RTOO
RTOI
RT02
RT03
RT04
RT05
RTOX
RTlO
RT20
SNSW
UAPU
UARo
ZERO
ALLON
ANYON
AVAIL
COCNT
CSWAG
CSWST
EIGHT
EQUAL
ERSWI
EXITI
EXIT2
GZERo
INOAT
LGOUT
MESSl
MIXED
NZERO
PT051
PT06l
PT062
PT063
PTO'64
PTCT65
PT066
PT061
PT068
PT069
PT06A
PT06X
ROCRO
ROSNS
RTN05
SCRAO
SECST
I
1A4E
1034.
l83A
IB3E
lC06,
1868.
1C4A
1060,
1092
1008,
1894,
IDEA
18E6,
!
I
I!
11
2
1.5
~
lC16.
lC1C,
lC24.
'I
1
!
1C2C
~.
llF1
lElE
lE13
10EO
10E4
1100
SENSE
THiu2
TITLE
UNITl
UNIT2
WKAR3
170.8
W-KAR4
C
I:
i
185C,
IB80,
~I!
!:
IBE2
1B84
lA8A
lA30,
PIN 8401t74
PAGE
5A
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PIN 840474
PAGE
5
IBM MAINTENANCE DIAGNOSTIC PROGRAM
,8
,
111
,I
,1
1C5A
1828 WRSNS
8 ALL OFF
F ALWAYS
19FC,
lA16
lA24
lA8C,
lA1C
lO11t
1A80
14C6
1A12,
lAOIt
IB04,
1068;
lO9A
lA~O,
1860,
188C,
lO3C,
1068,
109A
lA04,
1842.
lA80.
1800
1000
lC56
1C2E.
10EZ,
10Ft
1888.
1BB8.
1C32
1000,
1000,
1000,
1000,
1018,
lC82,
lC88,
1012
1000,
1000,
1000,
1000,
1068,
lC8,E,
lC8A,
1A58,
1836,
lCOA,
lC8E,
1082,
1A5E,
lCF4
lA24,
LABC,
lC4E,
1008
1000,
1000,
1000,
1000,
lC12,
lC90,
lOAC,
1000,
1000,
1000,
1000.
1C14,
1C9C,
108A,
1000,
1000,
1000.
1000,
lC12,
lA14,
18EC,
lC12,
lC92.
10BA
lA64,
lA80,
18EC,
lC68,
lCge,
lA84,
18F2.
lC12,
1CAO,
1A98,
18F8,
lC16,
lCAA,
lAAO
18F8
lC80
lCAE
1A04,
1ClIt,
1C16,
10BC
lA7C,
1AOO,
lC52,
IB64,
100C
1884.
IB90,
18A2
loCA
1490
19FC,
lAEO,
lADE
1E70
lA2C,
lAOO.
1880
1884,
1BB4,
18A6
1864
185C
1890
1846,
lC42
lC3A
18E2
lC20
1A08,
1015
lA08
1000,
1000,
1000,
1000,
1000,
lC80,
lCAC,
1040,
182A
lAlE
lA58,
1818,
l8FE,
lC84,
lC88,
lA5E,
108E
lAA6,
lA16,
lADE,
1BAZ
1BCO
18C4
lC9E~
1000
1000
1000
1000
lC11t
lCAA
10BC
.
10
F806-0
PAGE
5
DATE
EC
InjAR66
12~643
F806-0
10
5A
PAGE
--
e
L
ISM MAINTENANCE DIAGNOSTIC PROGRAM
PIN 840474.
PAGE
6
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PAGE
1·
8
1
7
7
1
4
2
4
4
1
, 1
114C
198E
1EOB
112C
lE92
1E99
16E6
lC5E
1CEE
100B
1014
C
6
CAHKEY
COMOAT
CROCCH'
CSWSAV
ERR650
ERR651
EXlTBY
lGOUTl
LGOUTA
LGOUTX
LGOUTY
NIXNON
NEQUAL
1E82
9
o
4
lE20
lC46
lEOO
IB36
IB52
10FB
1947
10CA
10E6
1004
179C
1234
NEROET
NMIXEO
NOTBSY
NOTZRO
OUTOAT
PRCRES
PROCCW
PT0630
PT0631
PWRCCW
ROCKRO
ROCROI
ROCR02
ROCROX
SCHNUM
SCPOAT
16
1
1
1
16
2
8
4
4
8
71
4
4
4
1
1
1
1
1
1
1
1
1
I
1
71
1
163E
1140
1140
112C
1134
llFS
1060
10E2
10E6
1B72
1000
SCPROO
S IOSW5
SIOSWS
SIOVR3
S IOVR4
STATSV
SVRPSW
UN1AOR
UN2AOR
WRCKRO
XF8060
IBCO.
109E.
lC2E.
10C8.
1C3A.
10E2,
lC4C.
10F4
1014.
1046.
1078
lA34.
107C
lA3A.
lA3E,
lA3E.
lA9C,
lACO.
lAFE
lCCE.
lAC6,
lCE6,
lACE
IB2E.
1002,
lACO
IB6E,
104E
IB2E
IB04
1028
lC06,
lC20,
10C4
COLS.
1COE,
1CC6.
lAOO
lA52,
1BBC,
lC82,
lCCO.
105A.
10A4.
1030.
103S.
1 THROUGH 20
BESO ••••.•'. AA •• AAX FBO
9
YQ Y9
99 9
COLS.
21 THROUGH 40
60 ••:0AAA.AFJ ••••••••
COlS.
41 THROUGH 60
••••••••••••••••• 840·
YQY Y8Y
999 99
COlS.
61 THROUGH SO
475.125643 •• 80600001
lCE6
BTXT.AAN •• AC •• AAAJ4.
9
YQ9 ,Y9 Y9Y8
99
9
9 99
ICCE.
8TXT.AA-•• AH •• AAAAAA
9
YQ
Y9 Y99YYY
99
9
9 999
SY8Y
9999
BTXT.APO •• AB •• AAAAAA
9
Y9- Y9 Y9YYYY
9
,9
9 9999
AAAAAAAAAAAAAAAAAABC
YYYYYYYYYYYYYYYYY999
99999999999999999
OEFGHABAJJKJ/S/SA.AB
999998SQ9S8Y9988Q ZZ
999 999' 99Z
HAS&AHJ-IKLQ80600004
ZS8 RR8 ZZZ
BTXT.AQH •• AT •• AA&TWO
9
Y99 Y9 Y9-B8&
BH2AABHICAJROA8HBOKQ
RR8YOOOOY-00&
Y00
9
BSJSTYZKLOB •••••••••
Q8Z
YY Q
99 Z
9
• ••••••••••• 80600005
BTXT.AJY •• AB •• AAAERR
9
Y8
Y9 Y9Y
99
9
9 9
.XXXXXGAEAGGEE70GABK
9Y9YQQ-0 QZYQ9
9 '9ZZ
Z
EA70GABKKBONFOG07MAB
-Y QZYQ9 9 ZQ&Z 9-9
00GABJBOAGFCB0600006
9ZYQY8-Y8QR
Z99 9Z0
BTXT.AKJ •• A8 •• AAA.00
9
YSY Y9 Y9- 9
999 9
9
GABU EA'66AA 7UAJ S I AA 9F
ZYQSZY SZQ ZY OZQ Y
Z9
9 9
9 - Z
lOBA9FKH9G9FEJEQKAAF
8Z-Y Y R Y YZYQ9 YQY
9
BTXT.AKH •• AB •• AAPG70
9
YBR Y9 Y9 9 -
70PG7Q7QKA7QJAHA7QLA
- 9
Y YYRQ SY
9 99 0 99
HAAA&A 70AHJGG,ABOFA70
OQY9 Q --9YZZYQO-Y 09 0
9, Z
HA70QFMAFAlH80600008
RQ -9'-SYQQ80
o
Z99
BTXT.AKA •• AB •• AANAFM
9
YBQ Y9 Y98YQ9
99
9
9
Z
HAAA&A70AI9FOCAA70AA
OQYY Q -Z- Y 9QY-ZQ
090
9,0
STAAAANLGABOAJJAA--A
8ZQQ998ZYQ&ZYY9Z 9
9 99 9 Z 99
GOBONG9FFJG-80600009
Z QZ 8 YQYZ
Z
Z9
BTXT.AKH •• AS •• AABMBO
9
YB
Y9 Y9Q 899 .9
9 Z 9
AAFB'GOOFAAAOEAEJAA24
YQQOZ QSZQYSZQQYZQ 9
9Z
Z 999 OZ
BA9YLSCJAAAAAACAAAIA
-Y S9ZYQYZQQ9ZQQYOQ
9 999
Z9 Z
AQAAAAA.AOA&80600010
Y9ZQQ9Z Y9Z
9
BTXT.ALA •• AB •• AA9FLH
9
YSY Y9 Y9 YBO
999 ,9
9
9
CAAAAH&AAAAAC-AAAAAA
ZYQYZR YZQQ9Z QYZQQ9
9
9
9
&J70LSAOAAEJABHOJAAO
Y -S9Z&YYYYY90&YYS&
9 9 -9 99 -99-
FOG-C6AOA&HJB0600011
Q8Z Q9Z&Y RY
Z9 Z -9 9
~
BTXT.AlS •• AB •• AA70o9
VS9 Y9 Y9-Z
99
9
9
06000BBG9YFJCOF.CFOO
Q8Z&QZ-Q ZYQOZ QSSZ9 -Z Z
9Z
Z.9
00AA22AOACNHGJCHAAOO
S-ZY SZ&Q99RZYQO-Q 9
0.9Z 9
9
GOCBKC9NAAEAB0600012
Z QR 9 YQVZQ
ZO
9 9 0
i~
BTXT.AlO •• AB •• AAOFAA
9
YS& Y9 Y9QZZQ
AOAA22AOAANHGJ8QGOBS
Q9ZY SZ&QS9RZYQ Z QS
- 9 0 9Z ,\Z
EAEJAAOOGOCFKC9N24EA
ZQQY-Q 9Z QQ 9 Y 9ZQ
OZ 9
Z f'
9
0
OFAA28GOBSF.80600013
QZZQ 9Z Q8l
1e06,
ICOE'
IB9A
1065
1000
10C4
19F8,
lA4B.
IBAA,
lC74,
lCCO,
1056.
10AO,
lEOS
lA2S,
6A
PERIODS CORRESPOND TO BLANK COLUMNS.
IDEO
10F2
1002
lCC6,
lC52
100C
840474
FS04
2821 SCAN/2540 READER/PUNCH
F806 PUNCH TRANSLATOR FLT -ROUTINE OVERLAY 5-
* FB041
2B21 SCAN/2540 READER/PUNCH
FB060
PUNCH TRANSLATOR FLT -ROUTINE OVERLAY 05-
90
PIN
9
lAOC,
IBOS,
1C90,
1CEA,
105A,
10A4,
1B52,
lC36,
lC9E,
1CF2,
106C,
10AC.
1B76,
lC5E,
lCAC,
101C,
10S8.
lOBE,
IB94.
1C62.
lCBA.
1022.
10SC.
10F8.
104A,
1064,
10S4,
1096
1B9E
lC62
1CBC
1022
10SC
lEOO
99
uno
lAOS
I
lOIS
i
II
NO ERROR DETECTED IN ABOVE ASSEMBLY
,
II
!!
!
H
tl
1
:1
9
99- ,9
9
9
9 Z
•••••••••••• 80600002
GANB ••••••••••••••••
•••••••••••• 80600003
9
Z
Z-
9
Z
99
I,
f
24EJEBKAJF2480600007
9ZYQS YYY 9
Z 99
Z
9
Z
(\
BTXT.ALQ •• AB •• AABFAA
9
YSO Y9 Y9QQZY
22AOAHNHGOBOEAEJAA24
SZ&Q99RZ&QYZQQYZQ 9
o Z9 OZ
GOBOFJCOF.COQOOOAG9Y
Z QYZYQOZ QYB-8--Q
Z9 9Z
Z99 9 Z
GACBAA22AOAC8D600014
ZQQRZY 8Z&Q9
9Z
Bnn. ALS •• AB •• AANHGJ
02KB9NAAPG7070KB7~AA
9
Q9 9 YQ9 9 - - 9 Q9
Z9;
2S7N7NGA70AABB&A7SFA
9
8Y -ZYOY Y 88Y
708EACGNGQKC80600015
-BQY99 9 9
999
~
!
9
········e~··········
99
Y88
99
,9
Y9
,9
9 ZZ
Y99RZY
9
0 9
BTXT.AMQ •• AB •• AA9N7R
9
Y89 Y9 Y9 Y
99
,9
9
9
E09NG-OYB.9NBOOH9ZGO
YZ Q9- YS-Z9Z
9 Z
99
~
r'
OFEAEJAA24GOCWAA&AGA
QSZQQYZQ 9Z Q -Y 'YZY
Z OZ
Z 9 9 9
t.
COBOAH9ZGCAJB0600016
Q 8-Y9 9Q-Y
Z 9'
.Z 9
g
DATE
EC
17MARb6
125643
'\
10
FS06-0
PAGE
6
DATE
EC
17MAR66
125643
t'-"
,
10
F806-0
PAGE
6A
1(:
(;
<
,"
o
:\
;-
0 0 0 0 '0 0 0 0 0 0 0 0 0 0 0 0 0 0,: 0 O· 0 0 0 ·0 03,0 0 0 0 0 0 0 0
o o
0'·"
IBM
~\AINTENA;,CE
o o 0'"
000
.;,;
o
"
DIAGNOSTIC PROGRAM
PIN 840474
PAGE
7
F804
2821 SCAN12540 READER/PUNCH
F806 PUNCH TRANSLATOR FLT -ROUTINE OVERLAY 5BTXT.AM& •• AS •• AAODGA
9
YS
Y9 Y9 9ZY
99
9
9
Z
BTXT.AMH •• AS •• AAAFBE
9
YBO Y9 Y90YBO
99
9
9 9 99
EHAA7UAJBIB.24K42524
Q9ZQ Zya...- 9 8 9 9
o o
0
o o
000
0' 0 0 0
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PIN S40474
PAGE
7A
F804
2B21 SCAN/2540 READER/PUNCH
FS06 PUNCH TRANSLATOR FLT -ROUTINE OVERLAY 5KA70AABEAAGOB7KA70AG
Y -QY8QY99-99 Y -QZ
9 99999
9 9
BEAAGOB2KA7080,60D017
8QY99-9B Y 999
9 9
0013E7DJDAJBGHAGDAAA
9S9Y9Q8999Y99YYY
9 9 99
9 999
AAA0014DDYJ4BBAAB001
YYY
9Y9Y99SYY9
999
9 9
9
5BADAADAAAA0016004BL
9Q9Q89YYVV
9 99S
Z 99 9999
9
DYJAB0017 •• 180600034
99YV9
99
AAGOB5KA70JABEAAGOB.
Y99-98 Y -YY8QY99-9
9
9 9 99999
KA70JGBEAAGOBCKA70JF
Y -YZ8QY99-9Z Y -YY
9 9 999
9 9
BEAAGOBFBM25B0600018
8QY99-9Z-S 9
999
BA,DAADAAAAOO 18DA2BDA
9Y9Q89YYVY
9Q999Q
Z
9
9 99 9999
GACB002080BJT.AAAAOO
ZY89
9&8Y9 YYYY
99 9999
21GOAAYJBAFHA~A5.CJA
A0022 •••••• 180600035
BTXT.AMO •• A8 •• AANA27
9
Y8& Y9 Y9 9 9
99
9
9
2.G-DOEAAGG-DDEAAFGZ QY-YQZZ QY-YOYZ
Z9 99
Z9 99
DOEAJGG-DOEAJFG-DOB.
QY-YYZZ QY-YYYZ QYZ9 99
Z9 99
Z9
25BOAM24AA8TB0600019
98-V9 9ZQ S
H7GJDAADFA3A.CAGATBO
98BY9Q89SY98 S98999
999 99 9 9 9 9
023EGPAGHEALDOOJAAAA
9S99Z98989&9YYYYY
9
9
99999
AA0024E3BADAA.OAOP.A
YY
9 SQ9Q8 9Y&9 Y
99
99 99
9
AAAAA0025 •• 180600036
YYYYY
99999
BTXT.AMS •• AS •• AAAAAA
9
Y8
Y9 Y9ZQQ9
99
9
9 99
AJJANJG-DOBBA.ODGAEM
ZYY99BZ QS8Q- 9ZYQ9
99 9 Z 99
Z
EA66GOBHHOOWKA24AAKF
ZY SZ Q9Z&
V 9QY S
2524AAES&AOHS0600020
9 9ZYQ Y Z
9Z 9
BAEAFJAAAA0026F4JJDA
9QS98YYYYY
9B9V9Q
99999
9 9 9
Z
DAAAODBNDAAAA0027F70
89Q9 Z999YYVV
9B9
Z
9999
9
ADADADAOUASAAAAA0028
99Q89ZV&8Q9QYYVY
9
99 99999
C07HKH/AAA.180600037
9Y89999YYV
99
99
BTXT.ANA •• A8 •• AABA1E
9
Y8Q Y9 Y9-Y 8
99Z 9
9 9
EA2YAAIEGAEQKAAG17GO
ZQ -9 8ZQ09 YQZ Z
o
9Z 99
E4BAIEAAFA&AOHBA24KF
QS-V SZVQY'V Z-V 9 8
Z 9
9Z9 9
9
2524EA2VAA1ES0600021
9 9ZQ -9 S
0029COLDDAKHAA0030FC
9 99S999VY
9
. 99
5./ANDBDOCDEAAAAA003
S 9VS999 S9B9YVYY
9' 9
9 9 9999
1E70ADAFAOAAUAAAAAAA
9SZY9Q8Y99YSQVYYYYV
9
99
999999999
0032 ••••••• 180600038
BTXT.ANO •• AS •• AAGA8D
9
YSZ Y9 Y9ZQQZ
99
9
9 9Z
KAJAZ4KAJG17GOE4AAFH
YYY 9 YYZ Z Q8ZYQ9
999
99
Z 9Z
&AOHBAIEBA24KF2524EA
Y Z-Y 8-Y 9 8 9 9ZQ
9
9
9
0
2YAAIEGABDGBS0600022
-9 8ZQQZ9Q
9Z Z
D07HKH/AKA00330GGABJ
9&S9999Y9Q
9YS9SY
9
9
99 99
FA/A0034EDND/AWD5.0B
8Y9V
9YS99Y998 &9
9
99
9
DAAAAAA0035C4ADDAYAA
9YYYYYY
98S99Q9VY
999999
99 9 9
V
9
BTXT.ANJ •• A8 •• AABA24
9
YSY Y9 Y9-Y 9
99
9
9 9
KF2524BCB4AAAAFA70BE
8 9 98Q99ZQQ98Q -8Q
99
99 9 99
ABGOGQNB7Q2AG-EMGCHJ
Y99 9 9
OZ Q 9QRY
Z 9
FQN/GAEWAABS80600023
Q999ZYQ ZQ9Y
Z
Z Z
BOGH2.AAAA0037F41BDA
98B99Q
9&Z99 YVY,Y
9999
99 9
DAA.ABBABAAAA0038D7G
89S YB989YYYY
98Z
9 9
9999
9
ADA2BVB0039EOODBJA.B
Y9Q9999
9&998YS 8
999
9
AOEJAAAAAA.180600040
V&9YYYYYYY
9999999
BTXT.ANQ •• A8 •• AA&A7S
9
YS
Y9 Y9 Q 8
99
9
9 Z
BOOGFBGODFAABC&A7SBO
8-Z9Q-Z Q8Z09Y Q S89
DGFIGODFAAK4JAA&BAK4
Z9Q-Z Q89Y99VYY V99
Z
Z 9 999 9
JAA&FAK4JAA&80600024
YYY V99YYY
999 9 999
0040F7DJDAJBGHOGDPAA
989V9QS999&9999Y
9 9 99
9
AAA0041EAEJDABAFAAGO
VYY
9Q9Y9Q8Y9QY99
999
Z 9 9
99
AAAAAA0042FCABYJ4BAA
YYYYYY
9 Y99Y9999
999999
9 9
OAASBAAAA •• IB0600041
&YVS9YYYY
9 9 9999
BTXT.AOA •• AB •• AAAAAA
9
Y8Q Y9 Y9YYY8
999 9
9 9999
AAAHAAANAAAJAA •• AJMD
YYY9YYYOYYYYYY QY98
999 999 999999 Z9 9
GDBAAAHM4JAHESJAABBU
999ZZYOZ9YQ00900YOZ9
KAEBI-B-AHD080600025
98Z90 0 Q-YZ
0043F7MADADJEJA5DLJA
9B9V9Q9Y9YY899YY
9
9 9 999 99
AAA0044BOBAYJAAAA004
YYY
9&SV9YYYYV
999
99999
5D4DJDAJBGH0046CDBAY
989Y9QS999
9Y9Y9
9 9 99
9
JEAAA0047 •• 180600042
Y9QYY .
9 999
BTXT.AOH •• A8 •• AACAMO
9
Y8Z Y9 Y90RYQ
99
9
9
9
OlOGHDBAAIEMOSFCEOHN
&BB8Z988QOZORS-990 Z
:-999 999
9
4KEFLABSABNWPLA4APMP
9880 0 RQ8aOa Y9B
9
0099
9 9
UNCH.XLATE.F80600026
BAB.DAAAAA004SE3EJDA
9Q9 9QYYYY
999Y9Q
Z
99999
9 9
BAFAAGHAAAAAA00490AJ
SV9QY99YYYYYY
9Q8
99 999999
Z9
BDA4JGH0050D7(DDAADY
98899Q899
99Q8YZ9
999
99 99
Y
BTXT.AOA •• AJ •• AALTNO
9
Y8Y YY Y9
99
99 9
• ERRS.DETECTEOERR~65
OERR.651 ••••••••••••
•••••••••••• 80600027
EOLHADKH7HOWDAAAAAAO
9 S98999S9&99YYYYYY
9 9
9
999999
064EOJJB.KH7HOWDAA~A
AA0065DODBDAFAA.D7HB
YY
BQ999Q8Y8 8S98
99
9Z
99,9 99
AEJBA •••••• 180600044
Y9YSQ
999
BRLD •••••• AM •••• AAAA
9
Y8
Y9Y9
99
9 9
AAANAAANAAN9AAOAAAOA
8YQ98YQZBYB 8YB9SY88
999 999 999 999 9999
7WDDADAJJ •• 180600045
S999Q89SY
9
9 99
9
9-
Z
Z
Z
Z
9
9
Z
99
9
9
Z
9
99
9
o
9
HAOO ••••••••••••••••
9Y8&
99-
9
- Z
•••••••••••• 80600028
•••••••••••• 80600029
BEND •••••••••• ~ •••••
9
BOAT ••••••• ~ •• ~ •••••
9 SY9 99S9&99YYYY
99
9
9999
9&ZY9YSY89Y~QS BYY
9
AAP.AAAAAA.1S0600031
YY9 YYYYYY
,
9 999999
F32BDAGACBA3AFJAAAAO
999990Zya9Y998YYYYY
9
9
99999
00280BJT.AAAA0003BAE
9 BY9 YYYY
9Y8
99 9999
9
98YYYYY
99999
0005CADADAKHAADOD6FD
9Q899Q99YY
9Q
Z
9 99
Z
/AFASJGAA7HNOAAAAQOO
9Y8Y9Y8908989YYYY 1
9 99 Z9 9 9999
7CAFADAGAAA0008COKHD
9Q8Y9QB9YY
9Q99B
Z9 99 99
Z
A7HAA0009 •• 1S0600032
989YY
CAADDAYAAAODIOA02.AA
9QB99Q9YYY
9&9 YY
Z9. 9 99
99
AAAAOOIIEAEJDABAFAOG
YYYY
9Q9Y9Q8Y9Q&9
9999
Z 9 9
9,
OAAAAAA0012ECABYJ4BA
9YYYYVY
9,Y99Y999
999999
9 9
AAAAAAAAAA.1S0600033
9YYYYYYYYY
99 999999
AFJAAAA0004E~BADAA.O
9809Q8 9
99 99
9 99
99
OWDD03ACA0066DCKAKH7
&99998Q8Q
9 BQ998
9999
99 9
HWD0067COP.2.GHFAO~A
YJDJBADJADBOB~A0068E
999
9Y9Y8QB8Q8989YY
9 9999999 9 ',19
OCAAAAAAA0069E03J2.4
&BQYYYYYY
9&9Y9 S
99999999
9 9
JGHAHDAAAAAA0070GOE.
YZ9YZ9YYYYYY
9&9
9 9 999999
8&9 9 Z9ZQY9Y
9
99
AFAVAHDBAODJJAAAAAOO
QZQ9YZ98Y&9Y8QYYYY
Z 9
1~999999
AXOAAAAAA0074GODALDY
YS9YYYYYY
9 SQ899
99 999999
99
72D4FADADAGA3LDVA7HD
B88Y9QS9899999Y899
99
9 9
9';
1
J4S02B.AJJAA0075F4~J
Y99Y99 Y9YYY
9 9
999
9S9Y
9(;9
9
2.4JGHDHDBAEJ~A0071B
9 SYZ98Z9SY9YYY
99 9
9?9
•••••••••••• 80600030
9
9999
B
9
I
JOEJGA2DOA007~EOHD2.
Y 9YZY89Z9
9
9
9&Z99
9
Y
9
A0036 •••••• 180600039
A0051 •••••• 1S0600043
OAB2.4JGH •• IB0600046
&999 SYZ9
99
4JGH ••••••• 1B0600047
SYZ9
99
n
DADAAAODBNDAAAA0076G
9Q89Q9&Z999YYYY
9
99'11,9
9 Z
CT.BJGHEA •• IB0600048
99 SYZ989
99
q
DDJPAYBAA0077E7JJDAD
Q9Y9999YY
'9S9Y9QS
Z 9
99
9 9 9
AAAANBAAAAAA0078N3SH
9Q9Y99YYYVYY
9 99
Z 9 999999
0
DAuHDA3FAVABAOJOBAJA
9QZ9899ZQ9V8Y9YS8QSQ
9
9
..999999
2BDB ••••••• 180600049
99S9
GDAGAJJOA7EA8A7JVAOU
QZYZY9Y998899Q9YSQ&9
9 99~ 9 999
Z
JAAAAAA0079HOTBGAYJB
YYYYVYY
9&99S99YS
9999999
9 ~
rj
A3DBABJBGJ0080GOAAYJ
Y9S98999BY
9&ZV9Y
9
99
9
BAFH ••••••• 180600050
SV89
9
l
DATE
EC
17MAR66
125643
10 T FB06-0
PAGE
7
DATE
EC
10
F806-0
PAGE
1A
17MAR66
125643
I.
i
l.
!
II
I
"
1
IBM MAINTENANCE DIAGNOSlIC PROGRAM
I
i
F804
2821 SCAN/2540 READER/PUNCH
F806 PUNCH TRANSLATOR FLT -ROUTINE OVERLAY 5-
I
!
1
.~
1
IBM MAINTENANCE DIAGNOSTIC PROGRAM'
PIN
PAGE
F804
2821 SCAN/254D READER/PUNCH
"'
F806 PUNCH TRANSLATOR FLT -ROUTINE OVERLAY 5-
D3A5.CJAA008lFDDBfAS
88Q8 8YYY
9Q898Y9
9999 999
Z9 9
JGAA7H/AAAAA0082AGAH
Y89Y899YYYYY
88Z9
99 99
9999
99
GHEAFA4GA2BGAAAA.JAA
Z9898Y88999ZYZYY YYY
9 99
9 999
AAAA0083 ••• 180600051
YYYY
9999
G7DADAFAOADUAEA/.AAO
98ZY9Q8Y99QBQ899 YY
9
99
Z999
99
123F7CBDAOA2BA3AOBAA
98899Q8999Q99Z9YY
9
9
Z
99
AA0124G7VHOAOAWOOGAC
YY
9B999Q8999 ZY8
99
9
9
BKAAA0125 •• 18060006B
9BQYY
9999
D05./ANDBD0084EOFDB.
9&8 9Y8999
9 Z99
YJBAAFBAAAAAA0085DDF
9Y9YY99YYYYYYBQ9
9 9 999999.
9Z
8YALDYJC48A8T8MAAOOS
99Y899Y999Y9899YY998
9 9
9 9
9 9
B3DF00086 •• 180600052
999Z9
A4XDOADAGAALD7HHD3JD
QB899Q8989Y9989Z99YQ
999 9 9 9 9
9Z
DAGJMA5.0UJNOXBMB012
ZYZY9YB &8Y998989'
9 9 99 9 9
6F7CBOAOA2BA3AOBAAAA
98899Q8999Y99Z9YYYY
9999
9
9
9
0127 ••••••• 180600069
G7HAOAOJEJA5DLJWHAAO
989Y9Q9Y9YQB99Y89YY
9
9 9 9Z9 99 99
087FOFDB.YJBAOFBMBAA
9 Z99 9Y9Y&9989YY
9
9 99
AA0088BODHYALDYJA488
YY
8Q999Y899YY999
99
9Z
9 99
AEAOD •••••• 180600053
Y9Q99
D3VADAFAJ80128HD30YA
999Y9QZQ89
9Q999Y
9 99
Z
LDYJA4B.A6DH.0129E4.
8e
B99YY99 Y99Z
.9 99
99
JOAOAGA30JEJJA2BGGAA
Y9Q8989 9Y9Y8Q99YZYZ
9 9 9
9 999 9
AFAAH •••••• 180600070
Y8YZ9
A30EDAAAA0089A030YAL
Q9999YYYY
8Q999Y8
Z
9999
9Z
9
DYJC4B.A6DH.AGBAAAAA
99Y999 Y99Z Y99YYYYY
9
9 99999
A0090FCJA2.FAVAA8AOJ
Y
9 8Q9 ZQ9YQ8Y9Y
9
99·9 Z
9
AAAA0091 ••• 180600054
YYYY
9999
OQJAAAAAA0130GOCAFAS
&9YYYYYYY
9QZ98Y9
9999999
Z 9
JGAA7H/AGAAA013100BD
Y89Y899YBYYY
9&99
99 99
99
/AND5.0132B4VHDAFANO
9Y898
88899Q8Y89
9 9
999 99 9
CDA5.P.UJ •• 180600071
ZY8 9 8Y
9
99
A030YALDYJC48.A6DH.0
8Q999Y899Y999 Y99Z &
9Z
9 9
G8AAAAAA0092H78ADA28
99YYYYYY
989Q9Q99
999999
9 9 9
DAGOAEAG.JH0093G70AO
98ZY9
ZYY99898 99
AFAOA •••••• 180600055
Q8Y99
OVAGJAAAA0133P07AOAG
8Q8YYYYY
9 9Q9QZ
99 99999
9 9
HFADVABADJBAAJA2BDBN
9ZQY9Y8Y9Y8QQ8Q99898
99
999Z99 9 9
OGOAGACBJJA5.EA6JP.O
9QZYZY899YY8 898Y9
Z
9999 99
7JVH8HAA ••• 180600072
9Y8999YY
99
99
OUAEA/.AA009404DAOAF
8Q899 YY
98ZY9Q8
999
99
9
99
ADA0095FC7HKH/AKAAJJ
Y99·
989999Y9QQ8Y
9
9Z99
FAAAAA0096C42BOAGAAA
8YYYYY
989990ZYYY
9999
9
9 99
0097 ••••••• 180600056
0134C4PADAFAO,B4NDOAO
889Y9Q8Y89889ZY9
99
99 9 99
A5.06JP.UJAA0135EDEB
98 88Y9 8YYY
8QB9
9 999 9999
9Z9
OAFAFAOA.GAVABACOJBA
9Q8YZQ88 899Y8Y 9Y8Q
99 999 9
999
99
AOQJ2.4JGH3EAOJJA2BD
Q&9Y9 8YZ9 a99Y8Q99Q
9 9 99
99. Z
GAC83AFJDVH.JTASA009
ZYB999BYQ99 Y999Y
9Z
9
8F32BOAGACBA3AFJAAAA
99999QZY89Q998YYYYY
Z
99999
9
0099 ••••••• 180600057
AJJAAAAAA0136DGND/AW
Y8YYYYYYY
9Y899Y9
999999999
99
D5.0137BGAOOADAOJDBA
98
8QQ99Q899Y88Q
9
9ZZ 9
9~99
NOJJ5.A6J2AAAAA0138F
899Y8 Y8Y89YYYY
9
9 99 9999 9999
70ADADADA •• 180600074
8999Q89ZY
9
9
DOBADAA.DAOIOODCOBBJ
9 8Q9Q8 9Y
8 898Y
99 99
9 9 99
7HEJG/AOBT.GJGP.TBOA
899Y89Y899 8Y89 99Z9
9 99 9
999
PBOIOIE7WOOAOAJJACAA
99
989990898YY8QY
9
9 999999
AAAAA0102 •• 180600058
YYYYY
99999
AUAUBAAAA0139E4.JOAD
Q8Q89YYYY
88 Y9Q8
Z999 9999
99 9 9
AGA3DJEJJA28GGAAAFAA
989 9Y9Y8Q99YZYZY8YZ
9
9 999 9
HAQJAAAAAA0140C40AOA
9Y9YYYYYYY
98899Q
9 9999999
9
9
KHAA0141 ••• 180600075
99YY
G30AEAGALD77H2BHACB3
89Z989898988999ZQ89
9
9 9 99
9
3A08AAFA40B8AJ8AA010
99Z9ZY8Y889Z9Y9YY
99
9 99
3LGSABJEA8.0AOFASJGA
989Y8Y899 Q898Y9Y89
Z9 9 99
9 99
7HDPA2BIB •• 180600059
8Z9999989
FO/AFASJGAA7HNDAAAAO
9Q9Y8Y9Y89Y89B9YYYY
Z 9 99 99 9 9999
142KGEJ2.EAOAGGA7H2B
9YZY9 89898898999
9 9
99 9
HAGGACBJJMA03ADBAAOB
ZQQZY899Y9Y 99Z9ZY89
9Z
9
9
OBADAAAAA •• 1B0600076
Z9Z9YYYY
.
9999
OGJGJABQJOXDXHEAAA01
ZY8Y999Y&8989Z9YY
999
9 9 9
99
04A4T.OAOAGAOLD7HHAD
888 9Q898989989ZQ9
999 9 9 9 9 9
OOSAAAAAAAOI05A7XBDA
9&8YYYYYYY
88999Q
9 999999
99
9
ADOA ••••••• 180600060
8989
'
0143F77ADADJEJOMA5DA
98899Q9Y9Y 9Y89Y
99 9 9 9
9 9
AAA0144G7MAOAOJEJ450
YYY
989Y9Q9Y9Y889
999
9, 9 9 999
LJWHAA0145H4ABDAADA.
9Y89YY
98899Q898
99 99
9
99 9
4YJ6H1BJB •• 180600077
89Y898999
9 99 9
CWDBALHSAAS.AAAAAAOl
999Y898YY8 YYYYYY
9 9 99 999999
06A7SADA8.0ACGAL07HH
888Y9Q9 899899989Z
999 9
9
9
AOT.AAAAAA0107G7XAOA
Q&8 YYYYYY
88899Q
9 9 999999
999 9
EAAD ••••••• 180600061
8989
0146E7HADADJEJ05DAAA
989Y9Q9Y9Y&89YYY
9
9 9 9 9 999
AAA0147EOJBYJBADBOAB
YYY
9&999Y8Y89&89
999
9 9
AAAAAA0150FOFOB.YJBA
YYYYYY
9 Z99 9Y9Y
999999
9
OFBMBAAAA •• 18060007B
9989YYYY
9 9999
GFAA.CA6HCDAHA5.NAOU
Y8Y8 8989 ZY8Y8 89 8
99 9 9 9
9 9 9 9
J/./AA~0108B7SAOA8.0
Y8 8YYY
99 9 99
888Y9Q9 8
999 9
ACGAL07HHAAT.SJAAAAO
99899989ZQYS 8YYYYY
9
9 999 999999
109 •••••••• 180600062
0152DDGAB.YAYJD4BABH
8Q999 9Y9Y899Y99
9Z
99 9
AOOA3DFD/DED0153COBA
Y99Y99Z98999
9&9Y
YJEAAA015400.ALOYJ4B
9Y9QYY
9 Y899Y99
9 999
9 9
0155 ••••••• 180600079
11084UJOAOANDOOADAUA
888Y9Q8989QZY998Q
9999 9 9 Z ' i 99
5.A6JVHAAAA0111F4HAD
8 Y8Y89YYYY'
98ZQ9
9 9999 9999
9 9
AOAGA •••••• 180600063
Q8989
F7DJDAJBGHOGOPAAAAAO
989Y9Q8999 9999YYYY
9 9 99
9999
156COYJ4BABAA0157QOA
9 9Y99Y9YY
9&Y
9 9 99
i: 9
BYJ4BAA015800~OB.YAY
8Q999 9Y9
9Z,
JAABBAFHDD.1B0600080
YYY99Y9999
999
ALDF.AAAA0112HC5./AN
Y99Z YYYVi
9 8 9Y8
9999
9
9
9
OBOCCDEAADAA0113GCT.
999 898999ZY
999
BJGHEAOOJPA~8AA0114E
A3D/DOH~AOl59HOSBYAL
DYJC4BABTBMA0160E3EJ
99Y999Y9899Y
999Y
DABAFAOGHAAAAAA0161F
9Q8Y9Q&99YYYYYY
9
9
9
9999'9
CABYJ4BAA •• 180600081
Y99Y9999
ONBAAAAAA011507BAOAA
&99YYYYYY.
88Z99Q8
999999
99
99
DFA7A.6H18DAA3A5.CAG
98Y88 8989ZYY8Q8 8Q8
9 99 9 9
9999:99
A0116C7VADADAOAGCBOA
Y
88BQ9QS9ZYQ8999
9999 9,
Z
VHG •••••••• 180600065
998
OAASBAAAA0162DOAAYJ4
YY89YYYY
9&999Y9
9
9 9 9999 I
BAB0164BDDHYALDYJA4B
9Y9
8Q999Y899YY99
9Z
9 99'
9
AVHWHUJAA0117DOP.2.G
YB9899YYY,
8&9 9 Z
99 9 999
9
HFADVAYJDJ8AAJADBOBV
9ZQY9Y9Y9Y8QY 8Q898'98
99
9 9999999'9 9
H0119G3EAFAJADA45.A.
9
9 B98Y9YZY88 Q
9 9
99 9
8AAA0120 ••• 180600066
9QYY
999
1
OEJAAAAAA0166D34BLDY
&9YYY:YYYY
9 99899
9999999 r
9
JAB0167COEAYJBAAA016
YY9
9&9Q9Y9YYY
99
9 9 99,;
G78AOA28DAOOAEAG.AAO
989Q9Q99ZY&99898 YY
121FONDOAA.GACL07H8A
8 999Q8 89999898Q
9
999
999
WDGHAGJJJNBAOBXOAAAA
99QZQZY9Y99Y8989YYYY
Z 9 9 9 9' 9 9999
9
J
PIN 840474
PAGE
8
,j
9
9
9
9
9
99
9
9
9
9
• 9
9
'-:: ·l•
JAWD ........ 1B0600073
8Q99
99
I'
HC5./ANOBDOCDEAADAAO
9 8 9Y8999&898999ZY
9
9
9 9
9 9
I'
8YZ989 9Y9999YY
99
9
i; 99
9
9
9
7JJDADAAA •• 180600064
89Y9Q89Q9
9 9 9
Z
Y99899999
9 9
9Q899Y8
Z9
9
Ii
9
9 9
9
99
17HAR66
125643
0122 ••••••• 180600067
DGYJ4B8AABOi72DOD.YJ
9Y9Y998YY9
9&9 9Y
9 9
ID ,_ F806-0
PAGE
8
9
4FAOAJBBA •• 180600082
89Q9Q898Y
900CAYJ4BAB017007GHO
9&9Y9Y99Y9
- 98999
ADJEJ0171 •• 180600083
Q9Y9Y
999
9
C'
OATE
EC
9
9 ,9 99
9
4BAB0173EOTBYALOYJA4
99Y9
9Q899Y899YY9
9
Z9
9'~
9
9
'1
BAAAAAA0174COFHYJBAA
9YYYYYY
9&999Y9YY
999999
9 9
A0175 •••••.• 180600084
Y
9
II
I~
17!1AR66
125643
ID
F806-0
PAGE
SA
,
!';
Ii
I'.
~O
9
BAEAOOA3DEDAA4A0165E
9Y9Q99Y9999YYYY
9
9999
9 9
;;
00 0 0 0 0 0 0 0
,
.~
p
"
DATE
EC
9
I)
(j
9 9 9
,,9
n
f
99Y9999
0 0 -::0 0 0 0 0 0 0
~O
0 -0 0
~OO
I,
0 :0 0 0 0
o
00 0
i
1
()
0 C 0: 0 0 0: 0 0
c
0 0 0' 0) 0
o
PIN
PAGE
IBM MAINteNANCE DIAGNOSTIC PROGR.AM
0
84~74
9
I'B04
2821 SCAN/2540 READER/PUNCH
F80b PUNCH TRANSLATOR FlT -ROUTINE OVERLAY 5-
o o o o
o
0000
o o
ADAADA.0178COPHA.YJ4
99Q898
8&998 9Y9
99 9
9
9 9
B3DJEJDBJJ.180600085
9 9Y9Y899Y
9 99 9
0.JQJAAAA0242MGXHBJE
98896Y8
& Y9YYYYY
9 99999
99 99
AADGGAHOOJPAC2B3JDa1
989889Z99Y99 999Y898
9 99
9
99 9
BOMAGJTSQJDVAXDSAbJO
9 9Y8Y999YQ8Q899Y9Y
99
9Z999
9
243 •••••••• 180600102
4P.FAJAAA0179EOHD2.4
89 8Y9YYY
9&Z99 8
9
99
9
JGHOXDAAAAAA0180COA.
YZ9&89YYYYYY
9&8
9
9 999999
'9
BJCAAA0181G7XADAEAAD
8Y89YY
88899Q8989
999 99
999 9 9
GFAA.CAbH •• 18060008b
Y8Y8 8989
99 9 9 9
E32BOAGACB03AAAAAAAO
99999QZY89&99YYVYYY
9
999999
244AOQJ2.4JGH3EADJJA
Q&9Y9 8YZ9 899Y8Q
999
9 9 99
2BOGACB3AFJGVH.JTASA
99QZY89998YQ99 Y999Y
Z
9Z
9
0245 ••••••• 180600103
CDAMA5.NADUJ/./AAADI
ZY8Y8 89Q8Y8 8YYY
9 9 9 ·Z999 9 99
82HDS.B.DAKHDlDMBWDS
9Q8 9 899989999998
Z9
9
9
J0183D3KHDA7HAD0184D
Y
9 99898989
9
9
9
03AYJBAFH •• 180600087
&8Q9Y8Y89
99 9
COKABJ4JGH4A.OJEJCAO
8&8Y8Y8Y4988 9Y9YZ9
9 9 9999 99 9 9
MA5D3DAA0247D4GADA2B
9Y8999YY
98ZY9Q99
9
99
9
9
VB0248F76.EAFAVA77H2
99
888 898Y9Y8B99
999
9
99
BIBCB •••••• 180b00104
98989
0185F4HADADAGAAlDF.A
98ZQ9Q8989Q99Z Y
9999Z
9
AAA018bHC5./ANDBDGCD
YYY
9 8 9Y8999Y89
999
9
9
99
EAADMD0187FDND/AWD5.
899989
9Y899Y998
99
9
9
9
ABDCDAAAA •• 180600088
Y9989YYYY
9 9 9999
03A3AAACAOBA.JAAAA02
&998QZY8Q Z9 YYYYY
99 99
99999
49MGXHBJEAADGGAHDOJP
98898Y8989889Z99Y9
99 99 9 99
9
AC2B3JDBIBOMAGJTBQJG
9 999Y8989 9Y8Y999YQ
99 9
99
9Z
VAXDSA6J ••• 180600105
8Q899Y9Y
999
9
0194F02A7H/ANDA5.6JA
9&89899Y89Y8 8YY
9 9
9 99 999
AAA0195B4UJDADANDDDA
YYY
888Y9Q8989QZY
999
9999 9 9 Z
OAUA5.AbJVHAAAA0196Q
998Q8 Q8Y89YYYY
9
999 Z999 9999
DO.4JFAKH •• 180600089
Y9 8Y8Y99
9 999
0250C4GAEAADA.32BIBC
888Y898·98 9989Z
99
9 9
9
ACB03DAABAAA0252J4WD
969899ZYZ9YY
9889
9
99
99
DAFABAGBANDDAMAODA5.
9Q8Y8Y89Y89ZY9Y&998
99
9 9
9
6JP •••••••• 180bOOl06
8Y9
99
3SJYAGAlDOYJ48PAJAG2
9Y9Y898989Y99998QY9
999
9 9 9 9 9
8A8GAGJDCBED3AFJOVH.
9Y9ZYZYY89Z9998Y 99
9
99
9
JQJQA0198F4DADAFADBO
Y9Y9Y
98899Q8Y89
99 99 9
9 9
DAJJAAAA ••• 180b00090
ZY9YYYYY
99999
GFAUJVAVHOWHAAAAAA02
Q8Y8Y8Q89&89YYYYYY
Z 99999 9 999999
53B4VHOAFANOCOA5.P.U
88899Q8Y89 ZY8 98
999 99 9
9
9
JOVAGJAAAA0254FDND/A
Y&8Q8YYYYY
9Y899Y
99
9 99 99999
WD5 •••••••• 180600107
998
0199G7/.DAADFAOWDDAl
989 9Q898Y 99ZY8
9
99 9
9
HAA0200G7UADAFADAODA
9YY
988Q9Q8Y89 ZY
99
999 99
OAUBAA02010COBBJ7HEJ
9989YY
8 898Y899Y
9 9 999 9
9 99
G/ADBT.GJ •• 180600091
89Y899 I1Y
9 9
99
ABOCDAAAA0255A4XODAO
Q9989YYYY
Q889908
999 9
Z 9 9999
AGAAl07HH03JDOAGJMA5
989Y9989Z99YQZYZY9Y8
9 9 9
9Z
9.9
.CUJNDXBMB0257J7/.DA
8Y99B9B9
888 9Q
99 9 9
999 9
AOFA ••••••• 180600108
898Y
9 9
DP.TBDAPB0203l3EADA4
89 99Z999
99Z99Q8
9
99
JB.ODAKHGAHDG2BDAGAO
Y9 &899989Z9Q99ZYZY9
A35.F.AB8AO.JSACHAAO
998 Z 999Q Y9YB9YY
9
9 9
99
204 •••••••• 180600092
OYAlDYJ4BOWD.AABCA7N
9Y899Y99&99 YY99Y88
9 9
9
99
D1BOAMA7FHOA8AVAGXAX
989ZY9Y889999Q8QQ896
9
9
999Z9 9
DWHYBOYAAAAAAA0258HC
98999&99YYYYYY
9
999999.
9
5./ANOBO ••• 180600109
8 9Y8999
9
9
ED8BADFAA.GVA/A6HIBO
8QZ989BY8 Y9Y9Y8989&
9Z 9 9 9 9
9 9
DA3A5.CAOBAAAAAAA020
ZY8Q8 8Q&Z9YYYYYY
999 99
999999
5MCJH2.GHOA4FAlDVAYJ
9 999 Z9898ZQ899Y9Y
9 99
9
ODJBAJADB •• 180600093
&9Y8Q8Q89
999999
DCDEAAOM00259A4NBOAO
Y89899989
88999Q8
99 9
9
99
9
AGAGl07HHAGJOJJAAAAA
98989989ZQZY&9YYYYYY
9 9 9 9 9 999999
A0261EC5./ANDBOACDAA
Y
9 8 9Y8999Y89YY
9
9
9
99 99
AAAA0263 ••• 180600110
YYYY
9999
DDAJJABJB30ABAP.VA02
QZY9Y8999 999Q9 8Q
Z
9
9 99
ObG3DAEAGAlD77H2BHAC
89Z989898988999ZQ8
9
9 9 99
9
B33ADBAAFAAOB8AJBAAO
9 99Z9ZY8YQ89Z9Y9YY
Z9
9 99
208 •••••••• 180600094
FDVDGHDAKHCGAlD7HWDG
8Y99Z98999989998999Q
99
9
9
Z
HAGAGJCBAKAVHAAAA026
ZQZYZY89Q8099YYYY
9
9 Z99 9999;
5B4GJDAFANDGOA5.8AUJ
888Y9Q8Y89YZY8 908V
99 9 99 9 9 9 999
OG.VHAAAA •• 180600111
8 89YYYY
9 9999
C7VADADADAGCBOAVHG.A
88a09Q89ZY08999998 Q
9999 9
Z
Z
VHWHWHAA0209l3EADA4J
898999YV
99Z99Q8V
9 9
99
999
B.ODAKHGAHDG2BDAGAOA
9 &899989Z9Q99ZYZY99
35.F.AB8A •• 180b00095
98 Z 999Q
0266AGAHGHEAFA4GA2BG
88Z9Z9898Y88999Z
99
9 99
AAAO.JAAAAAA0268E06J
YZY& YYYYVVY
9&8Y
9999999
?9
7SADAB.OA •• 180b00112
88Y9Q9 89
99 9
D.JSACHAA0210B7G.DAD
o Y9Y89YY
888 90a
Z 9
99
99
9
ADAGCBOA8AVAAGJCHAAA
9ZVQ89999Q8QV8V89YYY
9999 9 999
Z
. A0211AGADFADJEJ7/ADA
8QZ98Y9Y9Y89YZY
Y
9
9Z 9 9 99
MA5D ••••••• 180b0009b
9Y89
CGAlD7HHAAT.SJAAAA02
9899989ZQQ8 8YYVVY
9
9 9Z9 c ,999999
72E06J/AND5.AC8AAAAA
9&8Y9Y898 Y99YYYYY
99 9 9 9 99999
/AND5.0CBAAAAAA0270B
8
9Y898 &99YYYYYY
9999?~
9
9 9
n
A0274J4BOEAFAGAGVA2B
Y
98Z9898Y89Q9Y99
9
9
9 9, Z
A5.AAAAAA0212FDHJGHE
Y8 YYYYYY
88ZYZ98
99 999999
99 9
AGAGLD7H2BHAACAGA3DA
9898998999ZQQZ9ZY99Z
9 9 9
9Z
AOH.BAAAAA0213H7G.OA
Y Z Z9VVYV
988 9Q
9999
9
9
DADA ••••••• 180600097
89ZY
03A3A5.AA7CAAHBA.J06
&998Q8 ZY88QZ9Z9 Y&8
999
99~
9 9
.AAAAAA0276E4WHDAO~B
88899Q899
999 9, '
AGOAMAOASA4S.X8VAWDA
YQZY9Y998Y88 998089Y
Z
9 99 ,1999 9
I.AAAAAA ••• 180600114
8 YYYYYY
9 999999
DCBOA8AVA0216D76.DAD
889 9Q8
Q8999908Q
Z
999
99
9
A2B4NDCBMA5.AbJ3DAD7
999889899Y8 V8V99Q98
99
9 999 ?-. 9
J0217GDCAFASJGAD7H/A
Y
9QZ98Y9Y898899Y
9
Z 9 99 99
GAAA0219 ••• 180b00098
8YVY
99
0278NCWHBJGHEAGOAA.J
99998YZ989Y898 8
99 c
9 9 9
BDJOPAWDOBCAGOAGAOAG
99Y 999989Z9QZYZY998
9
9
Z
\9
JA3D8AT8KAOVAAAAAAAO
YQ9990998Y&8QYYYYYY
9Z
9 9 999~9999
279 •••••••• 180600115
E4JJDAOAAAADBAAAAAAO
989Y9Q89Q9YZ9YYYYYY
9 9 9 Z 9 999999
ADAFADADDAOAVBAA0222
Q9Q8Y89QZY9989YY
Z
9: 99
9 99
OGQA4JFASJ.180b00099
9V9Y8V8Y9Y
9 999 9
F3GAFA/ADAA5.EAAAAAO
9 8Y8V9YZYY8 89VYYY
9 9
99 9 9999
280MD/BBJB.A.CCAGAlD
9Y898Y9 8 898999
99 99 9 9 9 ~
OYAlDYJ4BA7HPAJA/AG2
9Y899Y99Q89998Q9YY9
99 9
9 9 Z9
220D4WDDADAJJ0221G7U
988
98999Q898V
9
9 99
: 99
i
BABGACB3ED3AFJVHO.JQ
9V9ZY899Z9998Y99& Y9
9
9
i 9
YJ6HIBJB ••• 180600100
9Y898999
99 9
0282G3EAFA/ADAA5.A.8
9 898Y9YZYQ8 Q 9
Z9 9
9 9
AAA0283C7VADADAOAGCB
QYV
888Q9Q89ZYQ89
999
9999 9
Z&.
-0227FOMAADA.YJA4BbHA
9 8Y898 9YQ9989Y
9 9 9 9Z 9 9
AAA0240KOTH2.BJ4J3GH
YVV
9&999 8Y8Y9Z9
999
9999
EAGADJ7JA2BGACB3T.3A
89899Y88Q99ZY89 9 99
9 9999
FJVH ••••••• 180600101
8Y99
OUA8APAAA0285FONDDAA
8Q9Q9YYY
8 99908
99 9 99 r, 9
99
.GACl07HBAWOGHAGJJ9N
89999898Q99QZQZY9Y9
9
9 99 Z 9 9 ?
Z
'
F804
2821SCAN/2540 READER/PUNCH
F806 PUNCH TRANSLATOR Fl T -ROUT IN!: OVERLAY: 5-
176CDY J4BABAAOl77D.4C
9Q9Y99Y9YY
988
Z 9 9 99
99
9
.
PiN 840474
PAGE
9A
lSI'! MAINTENANCE DlAGNOST>IC PROGRAM
E7HDDAJBDJOEJAAAAAAO
98999Q899Y&9YYYYYYY
99 9 9999999
9
9
0·· · 0·· · ; 0·· · · ·
9
9
Z
9
{
9
n
YYVYYY
999999
1
(
(1
JAAAA0224H4A~DAADA.7
YYYYY
99999
98899Q898 8
9 . 99 9 9
?
y
II
9
J8GYJ7HOJHAOIBMASAS.
8989Y899YZQY898Y8Y8
9 9 99 9 999 1, 9 9
9
9
IBCB ••••••• 180600113
8989
9
AFOSJOBNO •• 180600116
OZ98Y8999
Z 999
(
OAVHG.OVHI,HUJ",A0284G
99998 889899YYY
9
99 9 9~~
70ADADAOA •• 180600117
8999Q89ZY
9
9
1<
SAOBXOAAAA0287F7DADA
9Q8989YYVY
98ZY~Q
Z9 9 9999
l! 9
9
FAOA ••••••• 180600118
8Y99
9
(!
Q
DATE
EC
17MAR66
125b43
10
F806-0
PAGE
9
DATE
EC
10
F806-0
PAGE
9A
17M4R6b
125643
~
I
i.
'
,
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PIN 840474
PAGE
10
IBM MAINTENANCE OIAGNOSTIC PROGRAM'
F804
2821 SCAN/2540 READER/PUNCH
F80b PUNCH TRANSLATOR FLT -ROUTINE OVERLAY 5-
PIN 840474
PAGE
lOA
F804
2821 SCAN/2540 READER/PUNCH
FB06 PUNCH TRANSLATOR FL T -ROUTINE OVERLAY 5-
DUAEAAAAA0288C7VADAO
&8Q89YYYY
888Q9Q8
999 9999
9999 9
AOAGCBOAVHG.4VHWHWHA
9ZYQ8999998 8898999Y
Z
99 9
9
A0269J7/.DAADFAOYALD
Y
888 9QU98Y 9Y69
9
999 99 9
9
YJ4B ••••••• 180600119
9Y99
OWD.AA8CA7NDIBDAMA7F
&99 YY99Y88989ZY9Y88
9
99 9
9
HOA8AVAGXAXOWHYBAYAA
9999Q8QQ89898999Y99Y
999Z9 9 9
9 9
AAAAA0290E4WHDADABAG
YYYYY
86899Q899YQ
99999
999 9
Z
4S.XBVAWOO/.AAAAAA02
88 99BQ89&8 YYYYYY
99
999 9 999999
91G4XODADAGAALD7HH03
88B99Q8969Y9969Z99
999 9 9 9 9
H78ADA2BOADDAEAG.JHO
989Q9Q99ZYY99898 99
9 9 9
9 9
A4AAAAAAA0332A7MBDA8
Y9YYYYYYY
Q8899Q9
999 9
9 999999
.A03FASJA.CA47H6H1BM
89 8Y9Y8 8988989898
9 9 99 9 99 9 9 9
A33AGJFDXD0334E7CBDA
98899Q
Y98Q8YZ989
9999 9
9
9
DA2B ••••••• 180b00136
8999
OAMADASA ••• 180600120
ZY9Y9·98Y
9
03AAAAAAA033500NADAK
&99YYYYYY
9 99899
999999
HLD0336HDS.B.DAKHGLD
999
9Q8 9 8999899
Z9
~
MBWDSJ0337F7XADAEAAD
99998Y
88899Q8989
99
999, 9 9
GFAA.CA6H •• 180600137
Y8Y8 8989
99 9 9 9
JODAGJMA5.0UJNDXBAAO
YQZYZY9Y6 Y8Y9969YY
9 9 999 9 99
9Z
292 •••••••• 180600121
CDAMA5.NAOUJ/.AAAA03
ZY8Y8 B9&8Y8 YYYY
9 9 9 999 9999
BCABAABA1B0340DOEDB.
99Y9999Y89
'8Q999
9
9
9Z
YAYJ ••••••• 180600136
9Y9Y
9
294F3EAFA/ADAA5.A.AA
9 696Y9YZYY8 Q YY
9 9
99 9 99
AA029bMDUJBJEAKHCGA7
YY
989Y8Y89999898
99
9 999
9 9
HBAOJ •••••• 180600122
98Y9Y
A0342DCFA2.GHVA0343D
9 ZQ9 Z99Y
9
Y
7YADAAD6A •• 180600139
89Y9Q8989
9
99 9
GPAJA2BHA30BGJTB.J3Q
Y998Q99ZQ9898Y99 Y99
9 99
9 9 99
9
JVA8HU.0298Q31DDA4JA
Y8Q999
9 899QayS
999
9 9999
DODAYAA.YJA4BBAABAA7
9 B99Y8 9YY998QY9998
9 99 999
9
BA4A1BOA ••• 180600123
9Y9QB9ZY
OJJOAFJEA7GA8AIHBA03
9Y996Y8986Y9Q8989
9
99 99 99
01JGXDBJEADAOYAA.LDB
Y8998Y8989Y9Y8 898
99 99
9 9 9
AOPAWDBADBD1BDAMAMA3
Y 99999Y89Q89ZY9Y8Y
9 Z9
9
3S.8ATBSJGXBFAVAOAOX
98 9Q998YQ998Y8QZ9 B
99
9
9 9 99Z
OWHJHJB0302M7DODAAOD
98999Y9
98899Q898
9
9
9
99
GBAG.SAEA0303BOS.FAS
Q9QB 9YZ9
6Q9 8Y9
9Z 9
Z 9
9
38D78AOAAOYACA.YJ~B2
88S99Q899Y98 9Y999
99
99
9 9
AABBAFHOOC30/0DHGA03
YY99Y9999999899999
99
9
41FOEDYALOYJA4BPA~A
0344D4YADAAD6A0345HO
9
989Y9Q8989
9
99 9
IOYAYJ4BOABD.MA3D934
899V9Y998Y99 9Y99
9
9 99
bC3GDOABJFAGFAGAJBVA
89B99Q6Y8Y6lQ89899Y
9 9 9999 9·99 9
ABADJJAAA •• 180600140
Q8Y9Y8QYY
Z
99999
OAGJLHSA ••• 180600124
998Y898Y
999 9
0348GD3DYALDYJD4B.A6
9Q999Y899Y899 Y9
Z
9 99
DAA0350F74ADAAOYAAA.
9YY
989Q9Q899YQ8
99
9 9 99
Z9
6HAAAA0351DOP.2.GHFA
89YYYY
8&9 9 Z9ZQ
9 9999
9
9
DVAYJOJBA •• 180600141
Y9Y9Y9Y8Q
9
9 999
A4A.CAJBHDGDJ2BOAMAC
988 8989Z9Q9Y99ZY9Y
99 9 9
Z 9
OAGA3060 ••• 180600125
998Y9999
CJAOBDBVH0353A7DJDAD
98Q898989
8B8Y9Q9
999 9 9
99 9 9
JEJG2BJJMA7AADAAAAAA
Y9YQ999Y9YB9Y8QVYYYY
9 9Z
9 9 9 999999
A0355H70.DAOJEJ3MA50
98B 9Q9Y9Y 9Y89
Y
9
99 9 9 9
9
5.7A0356 ••• 180600142
8 89
9 9
J/AOWDOA5.EAO/.GAAAA
Y9Y 99ZY8 89&9 8YYYY
9
9 9
9 999
A0304MGBH4JEAADGYAGA
Y
98898Y8989Y9Y89
9
9 99 9 9 9
JBVA ••••••• 1B0600126
899Y
GCV82.4JDJDEJGAMAAAO
9 999 8Y9YQ9YZY9YYY
99 9Z 9
99
357Q7/.DAAOFAOYALOYJ
988 9Q898Y 9Y899Y
99 99 9
9 9
4BOWD.AABCA7ND1BOAMA
99&99 YY99Y88989ZY9Y
9
99 9
7FHOA8AVA •• 180600143
889999Q8Q
9
999
CYJ4B7H280HAABAA8AGl
99Y998999&ZQY9999YY8
9 9
99
99
BFJ1HBA0305B7G.DADAD
98Y8989
BB8 9Q69Z
99
99
9
AGCBDA8AVAAGJCHAAAAO
YQ89999Q8QQ8Y89YYYY
Z
999Z 9 9999
307 •••••••• 180600127
DXAXDWHYB0359E75DDAO
Q89898999
98899Q9
Z9 9 9
99 9
JEJOMAAAAAAA0361DCFH
Y9Y&9YYYYYYY
9 89
9 9
999999
YJBA/.0363E46HDAAOA.
98899Q898
9Y8Y8
9 9
99 99 9
A70AAAAAA •• 180600144
Y89YYYYYY
99 999999
F70AOAOADAAUAU8AAAAO
98999Q89ZYY8Q89YYYY
9
9
9999 9999
309C4FADADAGA3LOVA7H
666Y9Q89899999Y69
99
9 9
9
DJDEJGA2DAA0311B7VAD
9YQ9YZY89YY
888Q9
9Z 9 9 99
9999
ADADA •••••• 180600128
Q89ZY
9
0384COPHA.YJ4B3DJEJD
8&998 9Y99 9Y9Y8
9
9 9
9 99
BJJAP.FAJAAA0385NPEH
99YQ9 SY9YYY
9 Z9
9Z
99
OAA.GAOLOYJ7\iBAG2B6H
898 89&899Y898YQ9989
9 9 9 99
Z 9
HACB ••••••• 180600145
ZQ89
GCBDAVHG.OVHWHAAAA03
Q8999996 &8989YYYY
Z
9 9 9999
1200KHDA7HA00313G70A
9 99696989
9899
9
9
OADADADUA8APAAA0314E
9Q89ZYQ8Q9Q9YYY
8
Z99 9 99
9
9
76.DADA2B •• 180600129
B9 9Q8999
9
9
DJJ3AD80AGFAOBBAOAAP
Q9Y99Z98QY8Y89Z9Z9Y9
HAAAAAA0386AOFJ2~4JG
HGEA2BCB3AAQJAAAAAAO
9QS9998999Y9VYYYYYY
Z
9 ~999999
388 •••••••• 180600146
8&8Y98YZ
9 9 :99
4NOCBMA5.C6J30AD7J04
8S9899Y8 98V99Q98Y&9
99
9 99 Z 99
AAAAAAA0315HOCABJFA7
YYYYYYY
9Y8QSY6Y6
999999
999999 9
H3BAW03ABA0317A7G.DA
996Q996QZ9
666 9Q
99 99
99
9
DADA ••••••• 180600130
89ZY
E4bHOAADA.070AAAAAAO
98899Q898 &89YYYYVY
99 99 9 9 999999
389H7GJDAADFAAA.C.AGA
988Y9Q898YQ8 g989
999 99 9 Z9 9 9
TB0390H76DOAADYA4A.C
99
98999Q899Y88 8
9
9"l
99 9
AMA300391 •• 180600147
99Y99
GCBOA8AVAOGJAAAAAA03
Q89999QBQ&6VYYYYYY
Z
999 9999999
16H4F.DADAKH7LDJBVAH
9BZ 9Q8999699899YZ
9
9
9 9
Q
9
A0319D4FADADAGA3LOVA
888Y9Q69699999Y
7HOJ ••••••• 180600131
899Y
9 9
BA1HOA4JYJA4B2BABAAA
8Q899Q8Y9YQ9999Y999Y
9
9
9Z9 999 9Z
BAFJAAAA0393E4DADAAD
9Y8YYYYY
988Y9Q89
99999
9
r,99
A.OCAAAAAAAOl94H4NAD
8 &89YYYYYY
98899
9 9 999999"
99
AADA ••••••• 180600148
Q898
99 9
3EJGA200A0320B7VADAO
9YZY89Z9
888Q9Q8
9999 9
9 9
ADAGCBDAVHG.OVHWHAAA
9ZYQ8999998 8989YYY
9 9,999
Z
A0321EG5AGHEAFA07HHO
Y
888YZ9898Y889Z9
9
999
[" 9 99
2B3J ••••••• 180bOOI32
999Y
OCA6HMA5.QP95B7SJOAB
89898Y8
888Y9Q9
9 .9 9 9 1
9999 9
.ADAA.CAYJMAOSAS.~AA
A0396JCYBSJ4JEADYALD
Y
Y9998Y8Y89Y9Y99
9
9
999R 9
OGA3AAACAOBAAAAAAA03
&ZY8QZY8Q&Z9YYYYYY
99 99
999999
23E4WHDADABAGDAM~OAS
86899Q899YQZY9Y996
999 9
Z
9
A7S.X6VAW004AAAAAAAO
Y8S 99SQ89&9YYYYYYY
99
999 f 999999
324 •••••••• 180600133
C4B7HHDDJC2B3J.AHACA
999S9Z99Y 999Y YZQ9Y
9
9
9
9 9
BCADB1BOMAT.FHFJQGJT
99Y8989 9Y9 898Y 8Y9
FOAODAKHA.A7H6HAAAAO
9 8989998 Q8989YYYY
9 Z9 9 9999
32707BADAADFA7A.bHIB
68Z99Q898Y88 ~989
99
99 9 99 9 9
DAC3A5.CAGA0329COMBO
ZY98Q8 8Q8Y
9 998
999 99 (;
AKHAA0330 •• 180600134
999YY
DVABADJJA~2BGA8HAA03
99E73AOA2BCBODBAAAAA
98999Q9989&Z9VYYYY
9
9
9~999
E4WHOADABAGOAMAOASA7
B8899QS99YQZY9Y998YS
999 9
Z
9 9
S.XBVAWDA4AAAAAAA033
8 998Q69Y9YYYYYYY
9
999 9 999999
lE76.0AOA2B4NDCBMA5.
889 9Q8999889899Y8
99
9
(99
9
99
~
9
99
9
9
9
i
9
Z 9
,
9
9
;\
"
9YYYYYY
999999
89Q8 899Y8Y&8Y8 YYY
9 Z9 9 99 9 9 ~999
9
9
1
y
Y9Y8~9Y8QQ99ZY99YY
99
"
99
9QZ99Y899YQ9999YYY
9 9Z
999
Z
9
C6J3DAD7J •• 180600135
98Y99Q98Y
99 Z 99
~
999Zi
99
7AOPA2B1BOGJGJABQJOX
SQ9999989 ZY8Y999V 8
9Z
9 i 999
9 9
9 9
9 1'99
('
9
LDYJ ••••••• 1S0600149
B99Y
9 9
BQJVAGXASAXH,f.0398CA
99Y8QQ899Y898
BO
999Z9
9 I;~
9Z
7JOAGHFA ••• 180600150
9Y9QZ9ZQ
A0400KGSABJ~B.OAOFA
SJGA ••••••• 180600151
9Y89
99
9 9
9
q
DXHAAAA0401KD6JDA.AB
989YYYY
9Q9Y9Q 98
9 9999
Z 9 ~ 9
Y
9
989Y8Y899 Q898Y
9 99"
Z9 9
f,
AC280BNDCBO~MA5.bJ3
Q 99898989 9Y9Y8 BY9
9
9 9
~
9 99
3DVAAOXH ••• 180600152
998QQ989
99Z 9
<)
DATE
EC
17MAR66
125643
10
FBOb-O
PAGE
10
DATE
EC
1~MARb6
4
125b43
10
F806-0
PAGE
lOA
J
"
0,
Lv .~. (J
3
J
~
!~.
\~_ .I
0.'
"
,:0,'
'
,0",
'" ,
0'"
"'
0
'~
o
:0
o
· , ,·
0
I"~
rO''''
,
()
o
~
'(
10".,
o
()
~i'O iO
"
o
\,-' 0 ;
,.
o
()
M*.*,t \It<< rt _
H
t
o
o
c o
IBi't MAINTENANCE DIAGNOSTIC
F8P4.
F-8.0&
o
o
PIN 8404N.
PAGE
11,
PR~GRAM
2821 SCAN/2540 RE.AD.ER/PUNCH
PUNCH TRANSLATOR; FL T· -ROUT INE OVERLAY
5~
06.8HAAAA0402F41BDAO
&9 99YYYY
98899Q8
9999
99 9
AA.ABBABAAAA0404GAH.
98 Q8989VVVV
9QZ
9 Z
9999
Z
DA4JHD02BGA3DAA040'~
9
DU J8·J*AKH •• 18:()-6Q(H 53
89Y8-Y8999
9 999
CGA7H8ADJGPAJA28HA3D
989898Y9YY998Q99ZQ98
9 9
99 99
9 9
BGJTB.J4QJVA8HAA0406
98Y99 Y89Y8Q99YY
99
99 999 99
EA3BDA4JFA3J8VABADJ4
8Q899Q8YZQ 899Y8Y9Y8
99
9Z9 999 9 9
JA2BGA5 •••• 180600~54
8Q99ZY8
99
9
07JAAAAAA0407H7DBDAD
&9YYYYYYY
98Z99Q8
9999999
9
9
ALOG2BCBJJ3A0408KCFA
989Q99899Y99
89ZY
4JGHEAOB.DAKHFACA.LD
8YZ989 9 8999ZQ98 99
9 9
99
HD2B ••••••• 180600155.
Z999
GHA1BDAGADOA5.F.ABG8
QZQ89ZYZYY998 Z 99Y9
9 9
9
Z 99
AAABA.JOSAEAAAAA0410
QZYZ9 Y 9YZ9YYYY
9
9
9999
GOQJ2.4JGH3EADJJA2BD
8&9Y9 8YZ9 899Y8Q99Q
9 9 99
999 Z
GACB3AFJ ••• 180600156
ZY89998Y
OVH.JTAAA0411MDUJ8JE
99 Y99YY
989Y8Y8
9 99
9 999
AKHCGA7HBADJGPAJA28H
999989898Y9YY998Q99Z
9 9
99 99
A3DBGJTB.JAQJVA8HU.0
Q9898Y99 YQ9Y8Q999
9 9 99
9Z 999
412 •••••••• 180600157
CA7JDAGHFADVA8ADJJAO
8Q9Y9QZ9ZQY9Y8Y9Y8Q
9Z 9 9
99
999
28GA8HAA041300QA8JGH
99ZY99YY
8&998YZ9
99
9
99
FA4A.JBVABADDJJAIB3A
ZQB8 B99YBYY9YSQS98Q
999 9
9 9999 99
0416 ••••••• 180600158
E13ADA2BCBAD8AAAAAAO
98999Q9989YZ9YYYYYY
9
9
9 999999
417LGSA8JEAB.OAOFASJ
989Y8Y899 Q898Y9Y
9 99
Z9 9 9
GA7HDPA2B1S0GJGJABQJ
898Z99999B9 ZYSY999Y
9 9
9
999
9
DXDXHEAAA •• 180600159
Y8989Z9YY
99 9
99
0418GDJ8BJADA.GYJ4BD
8YY98Y898 89Y999
999 999 9 9 9
JEJD6HAB1BMADFADAXOA
Y9YY89Y9898YQ8YZ989Y
9 999 9 9 9 Z
9 9
A0420F4GJDADAGAALDHA
Y
9SZY9Q8989Q99ZQ
9
9999Z
9
AAAA0425 ••• 180600160
YYYY
9999
CCOBBJ1HEJG/A08T.GJA
8 898Y899Y89Y899 8YY
9 9 999 99 9
999
P.TBDAAA0431FC7HKH/A
9 99Z9YY
9 89999Y
99
9
KAAJJFAAAAA0435HDCAB
9QYSY8YYYYY
9Y8Q8
9999 9999
9999
99 9
A8AW03ABA0440C4SJDAF
Q8Q998QZ9
989Y9Q8
9 9 99
Z99 99
AAA0446DOFA2.GHVA045
YYY
9&ZQ9 Z99Y
99
9
1DOFHYJBA/.0455AOFJ2
8&8Y9
9&899Y8Y8
.4JGH •••••• 180600162
8YZ9
GEA28CB3AOQJAAAAAA04
Q89998999&9YYYYYYY
Z
9999999
61E41BDAOAA.08BAAAAA
98899Q898 &89YYYYY
99 9 9
99999
A0466DDA.BJCACH0472C
~Y8 8Y8999
9
Y
99 999
9 .
4FADAGAAA •• 180600163
88Y9Q89YY
99 99 99
0411COYJ488AAA0484BO
9&9Y998YYY
9&
9
99
4J2.AAAA0488DGA.BJCA
9Y8 8Y89
8Y9 YYYY
99 9999
99 999
CH0492DDGABJFA/A0495
99
9Y898Y8Y9Y
99 999
EC7HKH/AKA.180600164
9 89999Y9Q
9 Z
9
9
OJJAAAAAA0499 •••••••
&8YYYYYYY
99999999
BLDT •••••••.••• ~ •••••
9
9Q8YZ9 99ZY99YY
999
99
9
9
9
9
9
JFA7H •••••• 180600161
Y8Y89
99
9
9
••••••••••• 180600165
... ......•...•.....
~
• ••••••••••• 80600166
- - - - - - - - - - - - - - - - - - - - - - - - - - LAST PAGE ------------------------------------------DATE
EC
17MAR66
125643
10· F806-0
PAGE
11
c
0 0 0 0 0 0 0·····-· 0·"
"
,,'
'.
o
00
o oe
I
I
o
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ():
ooooooooe
0000000000 00000
i
L,,_.... ___ ,_ ,_
PIN '8'40i2-2
IBM MAINTENANCE DlAGNOSTI·C PROGRAM
'PAGE
1
2.3
DESCRIPTION
4.
5.
6.
1.
1
1
1
1
PURPOSE....
• • • • • •
1.1 INTENT.
PREREQUISITES
•••••
2.1 PROGRAM
• • • • •
2.2 EQUIPMENT
USE PROCEDURE • •
3.1 LOAD ING
• • • • •
3.2 OPERATING
3.3 PROGRAM HALTS
3.4 PROGRAM TERMINATION • • • • • •
PRINTOUTS • • • • • • • • ·
4.1 TITLE PRINTOUTS
T •
4.2 INSTRUCTIONS TO OPERATOR ••
4.3 ERROR MESSAGES • • • • •
COMMENTS • • • • • • • • • •
5.1 ROUTINE DESCRIPTIONS "••
• : 1
1
• • • .' 1
2
2
·2
...
,~.
__
.u.
~~
..... ,_.~._"'"""-'. __ .... _u_".,_.,_."_.,._.w. _
piN 840222
PAGE
1A
I 10 NUMBER
2
2
• • • . • • • • ~ .'.
APPENDIX
~--------'----~------ASSIGNMENT
I
I
I
1---.- - - - :-
I----..,..,.~_-_-'---'-----'---..,..----_---I
3
7
I
7
I
I
I---·----·-'--I-----'--'-~-----------------------'------I
F80C*
I
I
8
F80C
I
I
I
I
I
1--'--'- . - I
F80D
I
I
I
I
DESCRIPTION OF COMPLETE PROGRAM
I
WHICH INCLUDES ALL ROUTINE OVERLAYS. I
OBJECT DECKS AND ASSEMBLER PROGRAM
LISTINGS FOR ROUTINE OVERLAYS
01 AND 02.
I
I
I
I
1---...,----.
-:.-"-'--'------'----'---'-:.
OBJECT DECKS AND ASSEMBLER PROGRAM I
I
-----_.-"
**NOTE**
PREREQUISITES
PROGRAM REQUIREMENTS
3.
THE PROGRAM IS RUN WITH A DIAGNOSTIC MONITOR.
THE PROGRAM ASSUMES THAT THE CPU & CHANNEL ARE OPERABLE.
THE PROGRAM IS RELOCATABLE.
3.1
*
*
*
OPTIONAL FEATURE DIGIT 1*
OPTIONAL FEATURE DIGIT 2
LISTINGS FOR ROUTINE OVERLAYS
03 AND 04.
I
I
'""!'-------....;.-----~-------------------
THE SEARCH NUMBER FOR THIS PROGRAM IS 80C800 CAN NOT BE USED.
LOADING
STANDARD VIA OM AS DESCRIBED IN THE USERS GUIDE.
SINCE THIS PROGRAM PACKAGE UTILIZES THE PROGRAM OVERLAY
CONCEPT, ALL ROUTINES MUST BE LOADED AND RUN IN 10 NUMBER
SEQUENCE.
--------------------------------------------":'""--------------* UNIT CODE
_______
I
USE PROCEOURE
THE UNIT DEFINITION TA3LE-UDT-ENTRY MUST SE PUNCHED AS FOLLOWS.
*
*
3.2
* *
*
*
---------------------_.
---------------------------------*
OPERATING
3.2.1
* UNIT
*ZZ*BIT 0* BIT 1* BIT Z* BIT 3* BIT 4* 8IT 5* BIT 6* BIT 1 *
*
* *HEX B- H~X 4* HEX 20 HEX 1* HEX 8* HEX 4* HEX 2* HEX 1 *
*----------*--*-----*------*----*-----*------*------*------* ------*
* 1403 PRINTER*33*ASCII~SEL
*
*UNIV. * HI- * 120 *
* 2821 *
'"
OR
_ *
*TAPE *
*CHAR. *SPEED *PRINT *
*2 CHNL *
* 1404 PRINTER* *
*LISTER*
.BUFF. *?TR. .POS..
.SWITCH *
*
*
*
'"
*
*
*
'"
* CONT I NUOUS * *
* FORMS
*.
*
.*
*
*
*
*
*
*
GENERAL OPERATING
THE PRINTER MUST BE MADE READY BEFORE RUNNING PROGRAM.
**IM?ORTANT**
-------------------------------------------------------2.2
,~
PRpGRAM IDENTIFICATION NUM8ERS
INTENT
2.1
...
TO MINIMIZE MAINTENANCE COSTS FOR FUTURE PROGRAM REVISIONS
DUE TO ENGINEERING CHANGE ACTIVITY, THE FOLLOWING 10 NUMBERS
HAVE BEEN ASSIGNED TO VARIOUS PORTIONS OF THIS PROGRAM PACKAGE •
• ' 1
TO ISOLATE A SOLID DATA PATH FAILURE WITHIN THE 2821/1403
UNIVERSAL CHARACTER SET ATTACHMENT.
2.
,
2821 REQUIREMENTS
PURPOSE
1.1
~_~._ • • _ _ _ " . ,
CONTROL CIRCUITS FUNCTION PROPERLY.
ERROR CHECKING CIRCUITS FUNCTION PROPERLY.
PRINTER CAN BE MADE READY.
DATA MODE SWITCH MUST BE SET TO 8YTE MODE.
PAGE
TA8LE OF CONTENTS
3.
••••••
:IBM MAINTENANCE DIAGNOSTIC PROGRAM
1403 UCS SCAN
2.
_
2821 - 1403 UCS SCAN
2821 - 1403 UCS SCAW
1.
'w •• _ _ _ _ ,.
THE ORIGINAL CONTENTS OF THE UCS BUFFER ARE
DESTROYED BY F80C AND F800. THESE PROGRAMS NO
LONGER PROVIDE THE FACILITY TO RESTORE THE UCS
.BUffER-THEREFORE, DO NOT ADD ANY CHAIN
CONFIGURATION DATA CARDS TO F80C OR
F800. USE PROGRAM F831 TO RESTORE
UCS BUFFERS.
EQUIPMENT REQUIREMENTS
PROGRAM LOADING OEVICE
.HARDCOPY OUTPUT DEVICE *
.cPU - IlU'EJl.ABLE
CHANNElL - OPERABLE
aK MINIMUM STORAGE
2821 INTEGRATED CONTROL UNIT
* THE OUTPUT DEV ICE CANNOT BE THE DEVI.CE UNDER TEST.
DATE
EC
16JUN65
124263
22JUN65
124249
15JUL65
124265
15DEC65
125601
15MAR66
125632
to
15NOV66
125655
PAGE
LIL
F8CC-*
1
DATE
EC
16JUN65
124263
22JUN65
124249
15JUL65
124265
15DEC65
125601
15MAR66
125632
15NOV66
125655
10
F80C-*
PAGE
lA
_., __ ,_~ ....... ""'__..._.....; ,<,..._•.:.:............;._.~,~.,
PIN
ISM MAINTENANCE DIAGNOSTIC PROGRAM
IBM MAINTENANCE DIAGNOSTIC PROGRAM
840222
PAGE
2821 - 1403 UCS SCAN
2821 - 1403 UCS SCAN
3.2.2
PIN 840222
PAGE
2A
2
CAW -- X048 THRU X04B
CCW -- X570 THRU X577
DATA FIELD -- X57C THRU X675
SENSE SWITCH USAGE --COMMON TO ALL ROUTINES-THE SENSE SWITCHES SHOWN BELOW ARE IN THE SENSE SWITCH BYTE
OF THEIR RESPECTIVE SECTION PREFACE. THE CHARACTER X REPRESENTS
THE RELOCATION FACTOR CONTAINED IN REGISTER 15 DURING RUN TIME.
THE SWITCH BITS ARE ZERO WHEN OFF, AND ONE WHEN ON.
I SENSE I
SW.
AFTER THE ABOVE DATA HAS BEEN ENTERED, THE C.E. COULD
SET UP ONE OF THE FOLLOWING OPTIONS BEFORE PRESSING CONSOLE
START.
I SECTION I BYTE
I
OR
AND
I ROUTINE I BIT
1.
SET SECTION SENSE SWITCH 0 TO 1 TO PUT THE SELECTED
OP IN A TIGHT START I/O - TEST 1/0 LOOP.
I-------I----------~--------------------~-------I---------I-----
2.
SET SECTION SENSE SWITCH 0 TO 0 TO PERFORM THE
SELECTED OP ONCE. IN THIS CASE THE UTILITY ROUTINE
WILL PERFORM THE SELECTED OP ONCE, THEN REQUEST NEW
SCOPING DATA.
3.
SET SECTION SENSE SWITCHES
AND 1 TO ZERO. IN
THIS CASE, THE SELECTED OP WILL NOT BE PERfORMED,
AND A BRANCH BACK TO THE MAIN PROGRAM WILL OCCUR.
I
I
I
I
I
I
FUNCTION
I
fI.
0
OFF--PROCEED NORMAllY
I ENTIRE
I X004
I ON--SHORT LOOP ON START 1/0 - TEST 1/0 1 SECTION I 0
I
-1------'-----------------------'-----I --------- I ----I DFF--PROCEED NORMALLY
I
I X004
1--'-,
I
1
1
I ON--ENTER UTILITY SCOPE ROUTINE
I
,.
I
1
I
I REFER TO SECTION 3.2.3 FOR DETAILS
I
I
1 - - - -1 - - - - '--------------------------------- I --------- I - - - I
2
I OFF--PROCEED NORMALLY
I
I X004
I
I ON--lOG OUT DATA ACCUMULATION TABLE
I
••
I 2
I
I REFER TO SECTION 4.4 FOR DETAILS
I
I
THE C.E. CAN EXIT FROM THE UTILITY ROUTINE BY PRESSING
CONSOLE STOP AT ANY TIME, SET SECTION SENSE SWITCHES 0
AND 1 TO ZERO, THEN PRESS CONSOLE START.
1----1---------------------------..,---------1---------1---'I
6
I OFf--PROCEED NORMALLY
I
I X004
I
I
ON--PRINT SECTION TITLE
I
••
I
°
6
3.3
HALTS
3.3.1
NORMAL HALTS
3.2.3 UTILITY ROUTINE SET-UP PROCEDURES
NONE
THIS IS A RESIDENT ROUTINE. IT CAN ONLY BE ENTERED AT
THE BEGINNING OF EACH ROUTINE OR AFTER THE ANALYSIS
RESULTS AND lOG OUT PRINTOUT OF EACH ROUTINE. THIS
ROUTINE WILL BE ENTERED AT THESE TIMES IF SECTION
SENSE SWITCH 01 IS SET TO 1.
3.3.2
0
1
2
GRA
I
6.1
I
1----'-------------1--------1--------1
I
I
HALT TO SET UP INFORMATION FOR UTILITY ROUTINE.
I-----CONTENTS OF DATA FIELD-----I
IF THE OPERATOR REQUESTS TO USE THE BUILT IN UTILITY
ROUTINE, THE PROGRAM WILL HALT TO ALLOW THE ENTERING
OF NECESSARY INfORMATION. AFTER THE INFORMATION IS
ENTERED, THE CONSOLE START KEY MUST BE DEPRESSED TO
CONTINUE.
I
!---~~--------_--I----I------------I
I
I~--CCW
COUNT----I
I
I
I
I
11/0 ADORESS-l
I
I
3.4
NOTES-- THE FOUR BYTES OF DATA ENTERED IN GRB WILL BE
RIPPLED THROUGHOUT THE CCW DATA FIELD.
IF THE CCW COUNT EXCEEDS 250 BYTES, THE ROUTINE
WILL FORCE IT TO 250.
4.
MAIN STORAGE LOCATIONS OF PERTINENT FIELDS
USEr, BY THIS ROUTINE ARE LISTED BELOW. X DENOTES
THE ~ElOCATION FACTOR CONTAINED IN
REGISTER 15 DURING RUN TIME.
PRINTOUTS
4.1
22JUN65
124249
15JUL65
124265
150EC65
125601
15MilR66
125632
-2821 SCAN/1403 UCS, CONTROL PROG15NOV66
125655
10
PAGE
F80C-*
.
()
:1 0 () ,0 ()
,'" (0 () iQ () () D :0 0 0 J {)
-~".'
TITLE PRINTOUTS
THE FOLLOWING TITLE PRINTOUTS WILL OCCUR ONLY IF SECTION SENSE
SWITCH 06 IS SET TO 1.
SIO INSTRUCTION -- X700 THRU X703
16JUN65
124263
TERMINATION
THE PROGRAM RETURNS CONTROL OF THE SYSTEM TO MONITOR VIA
MONITOR CALL SVC 06.
THE
DATE
EC
TS -COMMON TO ALL ROUTINES--
IF THE OPERATOR REQUESTS THE LOG OUT OF THE DATA
TABLE, THE PROGRAM WILL HALT AFTER THE LOG OUT.
IN ORDER TO CONTINUE, THE INTERRUPT KEY ON THE
CONSOLE MUST BE OEPRESSED.
<--51.! FLAG, BrT 2
*--SKIP FLAG, BIT 3
*
I
GRC
:~AL
HALT AFTER LOG OUT OF THE DATA ACCUMULATION TABLE.
I
<
SPECIAL
THE PROGRAM WILL ONLY HALT ON THE SPECIAL HALTS
IF THE CORRESPONDING SENSE SWITCHES ARE SET.
3
I-a? CODE!
SEE I
I
I
GRB
3.3.3
01234567 01234567 01234567 01234567
r
ROUTINES-~
THE PROGRAM WILL NOT STOP ON ANY ERROR HALTS UNLESS THE
HALT ON ERROR SENSE SWITCH IS ON IN THE DIAGNOSTIC MONITOR.
WHEN THIS ROUTINE IS ENTERED. AN OUTPUT MESSAGE WILL
INFORM THE C.E. TO PRESS CONSOLE STOP, THEN ENTER THE
SCOPING DATA. THIS DATA IS TO BE ENTERED, IN HEX, VIA
THE CONSOLE SWITCHES AS INDICATED BELOW.
"TE
BIT
ERROR HALTS --COMMON TO ALL
\:/:',
-~-
DATE
EC
2
~)
i,,..
16JUN65
-124263
22JUN65
124249
15JUL65
124265
15DEC65
125601
15MAR66 - 15NOV66
125632
125655
() :0 '0 0 '0
iO iO
\\! '
Hl
PAGE
IO'~
''t ,
o
F80C-*
2A
0000000000000000000000000000000000
I
~'
PIN 840222
PAGE
3
IBM MAINTENANCE DIAGNOSTIC PROGRAM
ABOVE PRINTOUT IS ROUTINE 03 TITLE.
-ERR 003••• RESERVED •••
-2B21 SCANll1003 UCS, UCB DATA REG FLT-
";'ERR 004PRINT BUFFER DATA REGISTER OR ASSOCIATED PARITY CIRCUITS PROBLEM
ABOVE PRINTOUT IS ROUTINE 0'0 TITLE.
-ERR 005FALSE UNIT CHECK - COULD BE HAMMER CHECK ON SOLID
INSTRUCTIONS TO THE OPERATOR --COMMON TO ALL ROUTINES--NOTE-DO NOT USE DEVICE UNDER TEST FOR DUTPUT-
-ERR 006PRINT BUFFER PROBLEM
ABOVE MESSAGE IS PRINTEO TO REMIND THE C.E. NOT TO USE THE
DEVICE UNDER TEST AS THE OUTPUT DEVICE. THIS IS NECESSARY
BECAUSE THE TEST PROGRAM DESTROYS THE ORIGINAL DATA IN THE
UCS BUFFER.
-ERR 007FALSE PRINT
COULD BE COMPARE CIRCUITS
-ERR 009••• RESERVED •••
ABOVE MESSAGE WILL BE PRINTED IF INTER.VENTlON REQUIRED IS
ENCOUNTERED WHEN TRYING TO EXECUTE AN I/O OPERATION.
XXX DEFINES THE UNIT ADDRESS AND Y--Y DEFINES THE CHANNEL
ADDRESS WORD DATA. THE PROGRAM WILL LOOP FOR 20 SECONDS TO
ALLOW THE UNIT TO BE MADE READY. THE. MESSAGE WILL BE REPEATED
EVERY 20 SECONDS IF THE CONDITION IS NOT RECTIFIED.
-ERR 010INTERMITTENT BUS-IN PROBLEM
-ERR 011BUS-IN --I--.BIT PROBLEM
-ORIGINAL CONTENTS OF UCS BUFFER FOR PRINTER-XXX DESTROYED, RESTORE WITH PROGRAM F837
-
-ERR 012BUS-IN CIRCUITS PROBLEM.- PICKED UP BITS
ABOVE MESSAGE IS INDICATED BY ROUTINE OVERLAY 04. XXX
INDICATES THE ADDRESS OF THE PRINTER WHICH REQUIRES ITS
UCS BUFFER TO BE RESTORED. THIS MESSAGE IS INDICATED FOR
EACH PRINTER TESTED BY F80C AND FaOD.
-ERR 013FALSE DATA CHECKS
-ERR 014PROBLEM SETTING PLC BITS FORf.tLANK CHARACTERS
ERROR MESSAGES
-ERR 015PRINT DATA REGISTER - LOST BITS
ERROR MESSAGES COMMON TO ALL ROUTINES.
-BYPASSED-UCS NOT DEFINED-
-ERR 016PRINT BUFFER - LOST BITS
ABOVE MESSAGE WILL BE PRINTED IF THE TESTS ARE NOT RUN. THIS
WILL OCCUR IF THE UDT ENTRY FOR THE PRINTER DOES NOT SPECIFY UCS.
-ERR 017BUS-IN CIRCUITS PROBLEM - LOST BITS
-1/0 ADDR XXX CAW YYYYYYYY GOT CC 0 BUI NO INTERRUPT-
-ERR 018INTERMITTANT HOT BITS OCCURRING
ABOVE MESSAGE WILL BE PRINTED IF NO INTERRUPT OCCURS WITHIN
10 SECONDS OF RECEIVING CONOITION CODE 0 TO AN 1/0 OPERATION.
XXX DEFINES THE UNIT ADDRESS AND Y--Y DEFINES THE CHANNEL
ADDRESS WORD DATA. THE PROGRAM WILL RETRY THE 1/0 OPERATION.
-ERR 019PRINT BUFFER PROBLEM ABOVE POSITION 1
-1/0 ADDR XXX CAW YYYYYYYY GOT CC U CSW STATUS VVVV SNS ZZ-
-ERR 020PRINT BUFFER INSERT BLANK PROBLEM
ABOVE MESSAGE WILL BE PRINTED WHEN CONDITION CODES 1, 2, OR 3
ARE RECEIVED IN RESPONSE TO AN I/O OPERATION. XXX DEFINES THE
UNIT ADDRESS, Y--Y DEFINES THE CHANNEL ADDRESS .WORD DATA,
U DEFINES THE CONDITION CODE --1, 2. OR 3--, VVVV DEFINES THE
DEVICE AND CHANNEL SIATUS. AND ZZ D;FIN2S THE SENSE DATA.
THE PROGRAM WILL R,,7il.V THE 1/0 OPERATION.
ERROR MESSAGES COMMON ONLY TO ROUTINE
CHECK'~
-ERR 008FALSE EQUIPMENT CHECK
-1/0 ADDR XXX CAW YYYYYYYY GOT CCI CSW STATUS 0200 SNS 40
MAKE PRINTER RDY-
4.3.2
3A
.,.ERR 002WRONG CSW RESIDUAL COUNT -PROBABLY A BAR ADVANCE BY 1 PROBLEM
-2821 SCANll1003 UCS, PRINT BUFFER DATA REG FLT-
4.3.1
840222
PAGE
SYNC CHECK PROBLEM.:- PROBABLY AN ADVANCE BY 2 PROBLEM OR A
BAR UNITS ENCODE ADVANCE BY 3 PROBLEM
ABOVE PRINTOUT IS THE TITLE FOR ROUTINES 01 AND 02.
4.3
PIN
IBM MAINTENANCE DIAGNOSTIC PROGRAM
2821 -.1403 UCS SCAN
2821 - 1'003 UCS SCAN'
4.2
..~ ".
4.3.3
ERROR MESSAGES COMMON 'ONLY TO ROUTINE 02 --CONTROL PROGRAM--
-ERR 021FALSE UNUSUAL COMMAND SEQUENCE
-ERR 022UCS DATA aEGISTER OR ASSOCIATED PARITY CIRCUITS PROBLEM
Dl~-CONTROL PROGRAM~-
-ERR 001DATE
EC
16JUN65
124263
22JUN65
12'0249
15JUL65
124265
15DI:C65
125eC1
15~lAR66
125632
15NOV66
125655
10
PAGE
F80C-*
3
DUE
EC
16JUN65
124263
22JUN65
124249
15JUL65
124265
150EC65
125601
15MAR66
125632
15NOV66 .
125655
10
PAGE
F80C-.
3A
PIN 840222
PAGE
4
IBM MAINTENANCE DIAGNOSTIC PROGRAM
2821 - 1403 UCS SCAN
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PAGE
-ERR 025COMPARE PROBLEMS AND ASSOCIATED SET PLC CIRCUITS
-ERR 052PRINT BUFFER DATA REG 0 TRIGGER NEVER ACTIVE
LOGIC PAGE 43.34.18.1
CIRCUITS - A4F02, A4G01p A4FOl
-ERR 026UNDEFINED INTERMITTANT ERROR -COULD BE FALSE UNIT CHECK
-ERR 028INTERMITTANT OR FALSE ERROR
OUT
O~~
-ERR 054PRINT BUFFER DATA REG 1 TRIGGER NEVER ACTIVE --BUS OUT
lOGIC PAGE 43.34.18.1
CIRCUITS - A4G02, A4G01, A4F01
-ERR 029INTERMITTANT OR FALSE PARITY CHECK
O~
l~
-ERR 055PRINT BUFFER DATA REG 1 TRIGGER ALWAYS ACTIVE --BUS OUT
LOGIC PAGE 43.34.18.1
CIRCUITS - A4G02, A4G01, A4F01, A4H02
-ERR 030HAMMER FIRE PROBLEM
-ERR 031-
BAD UCS BUFFER CORE ABOVE POSITION 21
-ERR 056PRINT BUFFER DAlA REG B TRIGGER NEVER ACTIVE --BUS OUT
LOGIC PAGE 33.23.06.1
CIRCUITS - A4E07, A4G06, A4F09, A4F11
lOGIC PAGE 31.11.37.1
CIRCUITS - AIF13, AIH12
-ERR 032FALSE DATA CHECK
-ERR 033FALSE UNIT CHECK
-ERR 035FALSE EQUIPMENT CHECK
-ERR 036WRONG CCW RESIDUAL COUNT - PROBABLE BAR ADVANCE PROBLEM - UCB
-ERR 058PRINT BUFFER DATA REG A TRIGGER NEVER ACTIVE --BUS OUT
LOGIC PAGE 33.23.06.1
CIRCUITS - A4EOS, A4FOb, A4F09, A4Fli
LOGIC PAGE 31.11.37.1
CIRCUITS - AIF14, AIHI5, AIH12
-ERR 037SYNC CHECK PROBLEM - PROBABLE ADVANCE BY 2 PROBLEM OR
BAR UNITS ENCODE ADVANCE BY 3 PROBLEM
-ERR 038PLC INHIBIT CIRCUITS PROBLEM
2~
-NO DATA TRANSFERRED BY DIAGNOSTIC CHECK READ FOR DEVICE XXX-
-ERR 050ALL PRINT BUFFER DATA REG TRIGGERS NEVER ACTIVE - PROBLEM MAY
BE IN FOLLOWING AREAS.
1. PRINT BUFFER OAYA REG RESET ALWAYS ACTIVE, CLOCK 0~2.
LOGIC PAGE 33.33.44.1
CIRCUITS - A4C09, A4CIl, A4C06, A4E19
2. BUFfER ENTRY ON LINE NEVER ACTIVE.
LOGIC PAGE 33.:3.44.1
CIRCUITS - A4CI0, A4C06
15MAR66
125632
15NOV66
125655
3~
-ERR 060PRINT BUFFER DATA REG 8 TRIGGER NEVER ACTIVE --BUS OUT 4,..LOGIC PAGE 33.23.06.1
CIRCUITS - A4E08, A4G07, A4FIO, A4Fll
THE ABOVE PRINTOUT !NDICATES A DIAGNOSTIC CHECK READ FAILURE.
XXX WILL INDICATE THE DEVICE 110 ADDRESS.
150EC65
125601
2~
-ERR 059PR!NT BUFFER DATA REG A TRIGGER ALWAYS ACTIVE --BUS OUT 3,..LOGIC PAGE 33.23.06.1
CIRCUITS - A4EOB, A4F06, A4F09, A4Fl1, A4H06
LOGIC PAGE 31.11.37.1
CIRCUITS - AIFl4, AIH15, A1H12
ERROR MESSAGES COMMON ONLY TO ROUTINE 03 -- PRINT BUFFER
DATA REG FlT--
15JUL65
124265
l~
-ERR 057PRINT BUFFER DATA REG B TRIGGER ALWAYS ACTIVE --8US OUT
LOGIC PAGE 33.23.06.1
CIRCUITS - A4E07, A4G06, A4F09, A4Fll. A4H06
LOGIC PAGE 31.11.37.1
CIRCUITS - AlF13, A1Hl2
-ERR 034FALSE PRINT CHECK
22JUN65
124249
~~BUS
-ERR 053PRINT BUFFER DATA REG 0 TRIGGER ALWAYS ACTIVE --BUS OUT
LOGIC PAGE 43.34.18.1
CIRCUITS - A4F02, A4GOl, A4FOl, A4H02
-ERR 027INTERMITTENT UCB DATA REGISTER PROBLEM" OR INTERMITTENT
UCB PARITY CHECK CIRCUITS PROBLEM
16JUN65
124263
loA
-ERR 051ALL PRINT BUFFER DATA REG TRIGGERS ALWAYS ACTIVE-- PRINT BUFFER
DATA REG RESET NEVER ACTIVE, CLOCK 0-2.
LOGIC PAGE 33.33.44.1
CIRCUITS - A4C09, A4Cl1, A4C06
-ERR 024INTERMITTANT PRINT BUFFER PARITY ERROR
DATE
EC
840222
2821 - 1403 UCS SCAN
-ERR 023UCS BUFFER PROBLEM
4.3.4
PIN
-ERR 061PRINT BUFFER DATA REG 8 TRIGGER ALWAYS ACTIVE --BUS OUT
LOGIC PAGE 33.23.06.1
CIRCUITS - A4EOS, A4G07, A4FIO, A4Fl1, A4H07
4~
-ERR 062PRINT BUFFER DATA REG 4 TRIGGER NEVER ACTIVE --BUS OUT 5-LOGIC PAGE 33.23.05.1
CIRCUITS - A4E09, A4F07, A4F10, A4Fl1
10
PAGE
FSOC-*
4
DATE
EC
16JUN65
124263
22JUN65
124249
15JUL65
124265
(0 ,0
() 0 0 0 :0 0 0 0 0 0 0 10 0 ()
'l.
0 0 10 0 ;''\0 0 0
'It..
I
I ' ~: :
..
15DEC65
125601
if)
.'\
15MAR66
125632
15NOV66
125655
0 0
ID
F80C-*
PAGE
loA
a
II'''"
10 0 0 0 0 0 0
0000000000000000000000000000000000
PIN S40222
PAGE
5
ISM MAINTENANCE DIAGNOSTiC PROGRAM
2821 - 1403 UCS SCAN
2821:- 1403 UCS SCAN
LOGIC PAGE 31.11.32.1
CIRCUITS - A1F14, A1F13
-ERR 063PRINT BUFFER DATA REG 4 TRIGGER ALWAYS ACTIVE --BUS OUT
LOGIC PAGE 33.23.05.1
CIRCUITS - A4E09, A4F07, A4FI0, A4F11, A4H07
LOGIC PAGE 31.11.32.1
CIRCUITS - AIF14, A1F13
-ERR 064PRINT BUFFER DATA REG 2 TRIGGER NEVER ACTIVE --BUS OUT
LOGIC PAGE 33.23.05.1
CIRCUITS - A4E09, A4G08, A4FI0, A4F12
-ERR 082UCB DATA REG PARITY .BIT NEVER ACTIVE
LOGIC PAGE 43.34.33.1
CIRCUITS - A2G05, A2E05
6~
-ERR 067PRINT BUFFER DATA REG 1 TRIGGER ALWAYS ACTIVE --BUS OUT
LOGIC PAGE 33.23.05.1
CIRCUITS - A4EIO. A4FOB, A4FIO, A4F12, A4H08
LOGIC PAGE 31.11.33.1
CIRCUITS - AIF13, AIHI4, AIH13
-ERR 083FALSE UCB PARITY ERROR WITH UCB DATA REG 0 BIT ACTIVE
LOGIC PAGE 43.34.36.1
CIRCUITS - A2D07, A2DOB, A2D06
LOGIC PAGE 43.34.37.1
CIRCUITS - A2D05, A2E22
6~
7~
-ERR 084
FALSE UCB PARITY ERROR WITH UCB DATA REG 2 BIT ACTIVE
LOGIC PAGE 43.34.36.1
CIRCUITS - A2D07, A2DOB, A2D06
LOGIC PAGE 43.34.37.1
CIRCUITS - A2DO~, A2E22
7~_
-ERR 085FALSE UCB PARITY ERROR WITH UCB DATA REG 3 BIT ACTIVE
LOGIC PAGE 43.34.36.1
CIRCUITS - A2D07, A2D08, A2D06
LOGIC PAGE 43.34.37.1
CIRCUITS - A2D05, A2E22
P~
-ERR 069PRINT SUFFER D~TA REG C TRIGGER ALWAYS ACTIVE -- BUS OUT
LOGIC PAGE 33.23.07.1
CIRCUITS - A4E07. A4F05, A4F09, A4F12, A4Cll, A4H05
LOGIC PAGE 33.33.44.1
CIRCUITS - A4C05, A4C08
LOGIC PAGE 31.11.33.1
CIRCUITS - AlSla, AIG14, AIH14
-ERR 086FALSE UCB PARITY ERROR WITH UCBDATA REG 4B1T ACTIVE
LOGIC PAGE 43.34.36.1
CIRCUITS - A2D07, A2DOB, A2D06
LOGIC PAGE 43.34.37.1
CIRCUITS - A2D05, A2E22
-ERR OB7FALSE UCB PARITY ERROR WITH UCB DATA REG 5 BIT ACTIVE
L~GIC PAGE 43.34.36.1
CIRCUITS - A2007, A200a, A2D06
LOGIC PAGE 43.34.37.1
CIRCUITS - A2005, A2E22
p~
-ERR 08BFALSE UCB PARITY ERROR WITH UCB DATA REG 6BIT ACTIVE
LOGIC PAGE 43.34.36.1
CIRCUITS - A2D07, A2D08, A2D06
LOGIC PAGE 43.34.37.1
CIRCUITS - A2D05, A2E22
-ERR 070FALSE PRINT BUFFER DATA REG PARITY ERRORS
LOGIC PAGE 33.23.10.1
CIRCUITS - ALL ON ABOVE LOGIC PAGE
LOGIC PAGE 43.34.18.1
CIRCUITS - A4B09, A4AIO, A4B08
ERROR MESSAGES COMMON ONLY TO ROUTINE 04 --UCB DATA REG
-ERR OB9FALSE UCB PARITY ERROR WITH UCB DATA REG 7 BIT ACTIVE
LOGIC PAGE 43.34.36.1
CIRCUITS - A2D07, A2DOS, A2D06
LOGIC PAGE 43.34.37.1
CIRCUITS -.A2D05, A2E22
FLT~
-NO DATA TRANSFERRED BY DIAGNOSTIC CHECK READ FOR DEVICE XXXTHE ABOVE PRINTOUT INDICATES A DIAGNOSTIC CHECK READ FAILURE.
XXX WILL INDICATE THE DEVICE 1/0 ADDRESS.
-ERR 090FALSE UCB PARITY ERROR WITH UCB DATA REG P BIT ACTIVE
LOGIC PAGE 43.34.37.1
CIRCUITS - A2D05, A2E22
-ERR OBOFALSE UCB DATA REG PARITY ERRORS
DATE
EC
16JUN65
124263
22JUN65
124249
15JUL65
124265
15DEC65
125601
151~AR66
125632
43.34.36.1
A2D06, A2D08, A2D07
43.34.37.1
A2D05, A2D16. A2H22, A2F24, A2DOa, A2E22
-ERR 081UCS DATA REG PARITY BIT ALWAYS ACTIVE
LOGIC PAGE 43.34.33.1
CIRCUITS - A2G05, A2E05, A2H05
-ERR 066PRINT BUFFER DATA REG 1 TRIGGER NEVER ACTIVE --BUS OUT
LOGIC PAGE 33.23.05.1
CIRCUITS - A4E10, A4FOB, A4FIO. A4F12
LOGIC PAGE 31.11.33.1
CIRCUITS - AIFI3, A1H14, AIH13
-ERR 06BPRINT BUFFER DATA REG C TRIGGER NEVER ACTIVE --BUS OUT
LOGIC PAGE 33.23.07.1
CIRCUITS - A4E07, A4F05, A4F09, A4F12, A4C11
LOGIC PAGE 33.33.44.1
CIRCUITS - A4C05, A4COB
LOGIC PAGE 31.11.33.1
. CIRCUITS - AlBlS, AlG14, AIH14
LOGIC PAGE
CIRCUITS LOGIC PAGE
CIRCUITS -
5~
-ERR 065PRINT BUFFER DATA REG 2 TRIGGER ALWAYS ACTIVE --BUS OUT
LOGIC PAGE 33.23.05.1
CIRCUITS - A4E09, A4G08, A4F10, A4F12, A4H08
4.3.5
PIN 840222
PAGE
SA
IBM MAINTENANCE DIAGNOSTIC PROGRAM
15NOV66
125655
10
PAGE
FBOC-*
5
DATE
EC
16JUN65
124263
22JUN65
124249
15JUL65
124265
15DEC65
125601
15MAR66
125632
ID
FSOC-*
PAGE
5A
15NOV66
125655
_
• .IJIII/II'
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PIN
PAGE
840222
6
2821 - 1403 UCS SCAN
IBM MAINTENANCE DIAGNOSTIC PROGRAM
-ERR 104-.
UCB DATA REG 3 BIT NEVER ACTIVE
LOGIC PAGE 43.34.34.1
CIRCUITS - A2F03, A2E07
-ERR 105UCB DATA REG 4 BIT NEVER ACTIVE
LOGIC PAGE 43.34.34.1
CIRCUITS -A2G02, A2E06
-ERR 093UCB DATA REG 0 BIT ALWAYS ACTIVE
LOGIC PAGE 43.34.35.1
CIRCUITS - A2G04, A2E08, A2H04
-ERR 106UCB DATA REG 5 BIT NEVER ACTIVE
LOGIC PAGE 43.34.34.1
CIRCUITS - ~2F02, A2E06
-ERR 094UC8 DATA REG 1 8IT ALWAYS ACTIVE!
LOGIC PAGE 43.34.35.1
CIRCUITS -A2F04. A2EOB, A2H04
-ERR 107UCB OATA REG 6 BIT NEVER ACTIVE
LOGIC PAGE 43.34.33.1
CIRCUITS - A2GOl,' A2E05
-ERR 095UCB DATA REG 2 BIT ALWAYS ACTIVE
LOGIC PAGE 43.34.35.1
CIRCUITS - A2G03, A2E07, A2H03
-ERR 108UCB DATA REG 7 BIT NEVER ACTIVE
LOGIC PAGE 43.34~33.1
CIRCUITS - A2FOli A2E05, A2E19
-ERR 096UCB DATA REG 3 BIT ALWAYS ACTIVE
LOGIC PAGE 43.34.34.1
CIRCUITS - A2F03, A2E07, A2H03
-ERR 109UCB DATA REG 1 BIT NEVER ACTIVE
LOGIC PAGE 43.34.35.1
CIRCUITS -A2F04, A2E08
-ERR 097UCB DATA REG 4 BIT ALWAYS ACTIVE
LOGIC PAGE 43.34.34.1
CIRCUITS - A2G02, A2E06, A2H02
-ERR 110PLC OR COMPARE PROBLEH.-;PRESS INTERRUPT TO SELECT REQUIRED FLT·
-ERR 111FALSE UCB PARITY ERROR WITH ALL UCB DATA REG BITS ACTIVE
LOGIC PAGE 43.34.36.1
CIRCUITS - A2D06, A2D08, A2D07
LOGIC PAGE 43.34.37.1
CIRCUITS - A2D05, A2D16, A2H22, A2F24, A2D08, A2E22
-ERR 098UCB DATA REG 5 BIT ALWAYS ACTIVE
LOGIC PAGE 43.34.34.1
CIRCUITS - A2F02, A2E06, A2H02
4.4
-ERR 099UCB DATA REG 6 BIT ALWAYS ACTIVE
LOGIC PAGE 43.34.33.1
CIRCUITS - A2G01, A2E05, A2HOI
LOG OUT OF ACCUMULATEO DATA BY ROUTINE
4.4.1
ROUTINES 01 AND 02--CONTROL PROGRAM-LISTED BELOW IS A SAMPLE OF THE LOG OUT INFORMATION. THE
DATA IS PRESENTED IN HEX FORM, 4 BITS PER CHARACTER. THIS
SAMPLE REPRESENTS THE DATA ACCUMULATED WITH A HOT DATA
REG 6 BIT.
-ERR 100ues DATA REG 7 BIT ALWAYS ACTIVE
LOGIC PAGE 43.34.33.1
CIRCUITS - A2FOl, A2E19, A2HOl
THE FIRST FOUR ROWS SHOW THE DATA IN THE WRITE AREA-ALL NULLS.
THE FIFTH ROW SHOWS THE CHANNEL END STATUS, DEVICE END
STATUS, COMBINATION OF CHANNEL END AND DEVICE END STATUS,
AND THE SENSE DATA. ROWS 6,7,8, & 9 SHOW THE CHECK READ DATA.
THE 7 BITS --01-- SHOW ALL PARITY ERRORS OCCURRED. THE LAST
FOUR LINES SHOW DATA READ BACK FROM BUFFER --ALL 6 BITS--.
-ERR 101NOT GETTING UCB DATA REG SET OR UCB DATA REG RESET ALWAYS ACTIVE
LOGIC PAGE 43.34.33.1
CIRCUITS - A2G21, A2F24, A2G24, A2E24
LOGIC PAGE 43.34.11.1
CIRCUITS - A2G21, A2E22, A2E23
000000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000000000
OA161EI0
010101010101010101010101010101010101010101010101010101010101010101
010101010101010101010101010101010101010101010101010101010101010101
010101010101010101010101010101010101010101010101010101010101010101
-ERR 102uca DATA REG 0 BIT NEVER ACTIVE
LOGIC PAGE 43.34.35.1
CIRCUITS - A2G04, A2E08
-ERR 10322JUN65
124249
6A
UCB OATA REG 2 aIT NEVER. ACTIVE
LOGlC PAGE 43.34.35.1
CIRCUITS - A2G03, A2E07
-ERR 092NEVER GETTING UCB DATA REG RESET
LOGIC PAGE 43.34.11.1
CIRCUITS - A2G21, A2E22, A2E23
LOGIC PAGE 43.34.12.1
CIRCU ITS - A2D21
16JUN65
124263
840222
2821 - .1403 UCS SCAN
-ERR 091FALSE UCB PARITY ERROR WITH UCB DATA.REG 1, BIT ACTIVE
LOGIC PAGE 43.34.36.1
CIRCUITS - A2007, A200B, A2D06
LOGIC PAGE 43.34.37.1
CIRCUITS - A2D05, A2E22
DATE
EC
PIN
'PAGE
15JUL65
124265
150EC65
125601
15MAR66
125632
15NOV66
125655
10
PAGE
F80C-*
6
DATE
EC
16JUN65
124263
22JUN65
124249
15JUL65
124265
15DEC65
125601
15HAR66
125632
15NOV66
125655
10
PAGE
F80C-*
6A
-f.f
000:0000000
o
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 01
0000000000000000000000000 00000 00_0
PIN Slt0222
PAGE
7
IBM MAINTENANCE DIAGNOSTIC PROGRAM
IBM MAINTENANCE DIAGNOSTIC PROGRAM
2821 .-1403 UCS SCAN
2821 ,- 1403 UCS SCAN
010101010101010101010101010101010101010101010101010101010101010101
020202020202020202020202020202020202020202020202020202020202020202
020202020202020202020202020202020202020202020202020202020202020202
020202020202020202020202020202020202020202020202020202020202020202
020202020202020202020202020202020202020202020202020202020202020202
•• NOTE..
4.4.2
AT TIMES LINES 6~HRU 13 OF THE ABOVE LOG OUT
WILL NOT BE PRINTED. THIS OCCURS BECAUSE
THIS DATA HAS NOT BEEN COLLECTED.
I
I
I
LISTED BELOW 'IS A SAMPLE OF TH~ LOG OUT INFORMATION FOR
ROUTINE 03. THE DATA IS PRESENTEO IN HEX FORM, 4 BITS
PER CHARACTER. THIS SAMPLE REPRESENTS THE DATA
ACCUMULATED FOR ERROR 062 -- PRINT BUFFER DATA REG TRIG
4, BUS OUT 5 BIT, NEVER ACTIVE --.
1
2
3
It
5
6
7
BO
ItO
20
10
08
04
02
01
00
FF
08
08
08
08
08
,OA
08
08
08
OA
14
14
14
14
14
16
00
00
00
00
00
10
00
00
00
10
00
04
00
00
00
05
00
00
04
01
80
40
20
10
08
00
02
01
00
FB
OC
OC
OC
OC
OC
OE
OC
OC
OC
OE
14
14
14
16
B 9
00
00
00
00
00
10
00
00
00
10
00
04
00
00
00
05
00
00
04
01
5. COMMENTS
5.1
5.2
ERROR DETECTED THIS ROW:'--
I
1.
2.
3.
4.
5.
6.
7.
8.
I
I
9.
t
,i
·1
!
2
80
20
10
08
IE
IE
IE
lC
IE
IE
IE
IE
lC
lC
04
02
01
00
48
FF
It
5
6
14 Olt
14 00
14 00
00 00
14 Olt
14 00
lit 00
14 .00
00 00
00 00
SO
20
10
08
Olt
02
01
08
48
FF
08
08
OS
08
08
08
08
08
08
08
3
7
S
1.
2.
3.
--.ERROR DETECTED THIS ROW.--
1
r
1
I
DATE
EC
16JUN65
124263 .
22JUN65
124249
15JUL65
124265
15DEC65
125601,
15MAR66 .
125632
15NOV66 .
125655
PRINT BUF,FER DATA REGISTER
PRINT BUFFER
PRINT BUFFER ADDRESS REGISTER
UCS BUFFER DATA REGISTER
UCS BUF,FER
UCS BUFFER ADDRESS REGISTER
COMPARE CIRCUITS
PLe CIRCUITS '
ERROR CHECKING CIRCUITS WHEN FALSE
WRITE PRINT BUFFER
A. SAVE STATUS
B. SAVE SENSE DATA
DIAGNOSTIC CHECK READ
READ PRINT BUFFER
ROUTINE 02 IS CONCERNED WITH AREA ISOLATING FAILURES ASSOCIATED
WITH THE UNIVERSAL CHARACTER BUFFER., THIS OBJECTIVE IS
ACCOMPLISHED BY INVESTIGATING THE 9 COMMON DATA LINES -- P, 0,
1,2,3,4,5,6,7-- IN THE UCS BUFFER, ASSUMING THE PRINT DATA
BUFFER CIRCUITS ARE OPERATIONAL. WITH EACH OF THESE LINES
MADE ACTIVE, THE FOLLOWING SEQUENCE OF OPERATIONS IS PERFORMEO_
THE ABOVE TABLE IS DEFINED BELOW.
COLUMN 1 -.DATA WRITTEN BY LOAD UCB COMMAND
COLUMN 2 -.LOAD UCB COMMAND DEVICE-END OEVICE STATUS
COLUMN 3 -:SENSE DATA AFTER LOAD UCB COMMAND
1
AND 02, CONTROL PROGRAM.--
THE DATA IS INTERROGATED ,AS Ace,UMULATED BY AN ANAL YSI S ROIJTINE.
AN OUTPUT MESSAGE WILL INDICATE THE RESULTS OF THIS ANALYSIS
AS AN ERROR NUMBER OR NO ERRORS FOUND. IF AN ERROR NUMBER IS
INDICATED, THE C.E. MUST REFER TO EITHER THE PROGRAM DESCRIPTION,
OR THE PROGRAM LISTING TO DETERMINE THE ANALYSIS RESULTS.
I F THE CORRESPONDING CARD ISOLA nON OVERLAY ,I S AVAILABLE, THE
PROGRAM WILL AUTOMATICALLY SEARCH FOR IT AND EXECUTe IT IN
ORDER TO OBTAIN FURTHER ISOLATION.
9
16 lit 00
16 14 00
16 lit 00
lit 00 Olt
16 14 00
16 lit 00
16 lit 00
16 14 Olt
14 00 04
14 00 04
~1
ROUTINE 01 IS CONCERNED WITH AREA ISOLATING FAILURES ASSOCIATED
WITH THE PRINT BUFFER. THIS OBJECTIVE IS ACCOMPLISHED
BY INVESTIGATING THE NINE COMMON DATA LINES --P, 0, 1, 2, 3, 4.
5, 6, 7-- IN THE 1403 UNIVERSAL CHARACTER SET DATA PATH, WITHOUT
ATTEMPTING TO USE THE UNIVERSAL CHARACTER BUFFER. WITH EACH OF
THESE LINES MADE ACTIVE, THE FOLLOWING SEQUENCE OF OPERATIONS
IS PERFORMED--
LISTED BELOW IS A SAMPLE OF THE LOG OUT INFORMATION FOR
ROUTINE 04. THE DATA IS PRESENTED IN HEX FORM, 4 BITS
PER CHARACTER. THIS DATA REPRESENTS THE DATA ACCUMULATED
TO DETECT ERROR 097 --UCB DATA REG 4 BIT ALWAYS ACTIVE--.
1
DESCRIPTION -- ROUTINES
THE PRIMARY OPJECTIVE OF THESE ROUTINES IS TO AREA ISOLATE A
SOLID FAILURE IN THE 1403 UNIVERSAL CHARACTER SET DATA,PATHS
WITHIN THE 2821. THESE AREAS ARE DEFINED BELOW--
ROUTINE Oit--UCB DATA REG FLT--
COL
PROGRAM PHILOSOPHY AND ASSOCIATED COMMENTS
THE BASIC PHILOSOPHY EMPLOYED BY, THIS PROGRAM IS TO ~FIRST-
AREA ISOLATE A SOLID DATA PATH FAILURE WITHIN THE 2B21/1403 UCS
ATTACHMENT, ANO --SECOND-- FURTHER ISOLATE THE FAILURE TO
PARTICULAR eIRCUIT-$-. IN ORDER TO UTILIZE THIS PHILOSOPHY WITH
THE EXISTING MAIN STORAGE SIZE LIMITATIONS, IT WAS NECESSARY TO
EMPLOY ,THE PROGRAM OVERLAY CONCEPT. EACH OVERLAY,-ROUTINE,...
IS DESCRIBED IN DETAIL BELOW .
I
THE ABOVE TABLE IS DEFINED BELOW.
COLUMN 1 - DATA WRITTEN BY DIAGNOSTIC WRITE
COLUMN 2 - DIAGNOSTIC WRITE CHANNEL-END DEVICE STATUS
COLUMN 3 - DIAGNOSTIC WRITE DEVICE-END DEVICE STATUS
COLUMN 4 - SENSE DATA AFTER DIAGNOSTIC WRITE
COLUMN 5 - FIRST BYTE OF SECOND DIAGNOSTIC CHECK READ
DATA - OBTAINED AFTER DIAGNOSTIC WRITE
COLUMN 6 - FIRST BYTE .OF DIAGNOSTIC READ DATA
COLUMN 7 - DIAGNOSTIC READ DEVICE-END DEVICE STATUS
COLUMN B - SENSE DATA AFTER DIAGNOSTIC READ
COLUMN 9 - FIRST BYTE OF SECOND DIAGNOSTIC CHECK READ
DATA - OBTAINED AFTER DIAGNOSTIC ,READ
4.4.3
COLUMN 4 - FIRST BYTE OF SECOND DIAGNOSTIC CHECK READ
DATA -OBTAINEOAFTER LOAD UCB COMMAND
COLUMN 5 - DATA WRITTEN BY DIAGNOSTIC WRITE
COLUMN 6 - DIAGNOSTIC WRITE CHANNEL-END DEVICE STATUS
COLUMN 7 - DIAGNOSTIC WRITE DEVICE-END DEVICE STATUS
COLUMN 8 - SENSE DATA AFTER DIAGNOSTIC WRITE
COLUMN 9 - FIRST BYTE OF SECOND DIAGNOSTIC CHECK READ
DATA - OBTAINED AFTER OIAGNOS'TIC WRITE
i
ROUTlN'E' 03-PRINTBUFFER DATA REG FLT--
COL
PIN 840222
PAGE
7A
1.
10
PAGE
FSOC-.
7
DArE
EC
LOAD UCS BUFFER
16JUN65
22JUN65
124263124249
15JUL65
124265
15DEC65'
125601
15MAR6,."
125632
15NOV66'
125655
10
PAGE
F80C-.
·7A
IBM MAINTENANCE OIAGNOSTIC PROGRAM
PIN
PAGE
840222
8
2821 - 1403 UCS SCAN
2.
3.
IBM MAINTENANCE DIAGNOSTIC PROGRAM
2821.- 1403 UCS SCAN
A. SAVE
B. SAVE
DIAGNOSTIC
A. SAVE
B. SAVE
DIAGNOSTIC
STATUS
SENSE DATA
WRITE
STATUS
SENSE DATA
CHECK READ
PRINTOUT OF THE ACCUMULATED DATA CAN BE MADE BY SETTING
SECTION SENSE SWITCH 02 TO 1 PRIOR TO RUNNING THE ROUTINE OR
AFTER THE ANALYSIS PRINTOUT.
5.4
IN ADDITION TO THE PRINTOUT OF THE .RESUlT5 OF THE
PRINTOUT OF THE ACCUMULATED DATA LAST USED CAN BE
SECTION SENSE SWITCH 02 TO 1 PRIOR TO RUNNING THE
AFTER THE ANALYSIS PRINTOUT. THIS OPTION IS ONLY
AN ERROR IS DETECTED BY THE ROUTINE.
ANALYSIS, A
MADE BY SETTING
ROUTINE DR
AVAILABLE WHEN
GATE UCS LOAD CCW COMMAND-CHAINED TO A LOAD UCB CCW
A. SENSE 110 IF GOT UNIT CHECK
2. TWO SUCCESSIVE DIAGNOSTIC CHECK READS - FIRST BYTE
OF SECOND READ ONLY IS SAVED
3. DIAGNOSTIC WRITE
A. SENSE 110 iF GOT UNIT CHECK
4. TWO SUCCESSIVE DIAGNOSTIC CHECK READS - FIRST BYTE OF
SECOND READ ONLY .IS SAVED
1.
THIS ROUTINE WILL BE RUN ONLY WHEN ROUTINE 01
DETECTS A FAILURE WITHIN THE PRINT BUFFER DATA
REGISTER AREA --OTHERWISE, IT WILL BE BYPASSED.
THE OBJECTIVE OF THIS ROUTINE IS TO CIRCUIT ISOLATE A SOLID
FAILURE WITHIN THE PRINT BUFFER DATA REGISTER CO~PLEX -- 2821
UCS ATTACHMENT
THIS OBJECTiVE IS ACCOMPLISHED BY ATTEMPTING
TO SEPARATELY ACTIVATE eACH OF THE DATA REGISTER TRIGGERS -- P,
0,1,2 THROUGH 9 --. THIS IS DONE BY USING THE APPROPRIATE
WRITE DATA --I.E, HEX WRITE DATA 00 IS USED TO ACTIVATE ONLY THE
P TRIGGER, HEX WRITE DATA 80 IS USED TO ACTIVATE ONLY THE 0
TRIGGER --ETC. FOR EACH PRINT BUFFER DATA REGISTER TRIGGER,
THE FOLLOWING SEQUENCE OF OPERATIONS IS PERFORMED. AND ALL
ASSOCIATED DATA IS SAVED IN MAIN STORAGE.
AFTER ALL DATA HAS BEEN ACCUMULATED, IT IS INTERROGATED BY AN
ANALYSIS ROUTINE •. THIS ROUTINE IDENTIFIES A FAILURE WITHIN THE
DATA REGISTER CIRCUITS WHEN THE FOLLOWING CONDITIONS EXIST.
--a
1.
2.
3.
4.
uce
1.
3.
2.
3.
AN OUTPUT ME~SAGE WILL INDICATE THE RESULTS OF THE ANALYSIS
ROUTINE AS AN ERROR NUMBER OR AS NO ERRORS DETECTED. IF AN
ERROR NUMBER IS INDICATED, THE C.E. MUST REFER TO THE PRINTOUT
SECTION OF THIS DESCRIPTION TO DETERMINE THE ANALYSIS RESULTS.
DIAGNOSTIC WRITE - CCW COUNT EQUAL TWO
A. SENSE 110 IF GOT UNIT CHECK
TWO SUCCESSIVE DIAGNOSTIC CHECK READS - FIRST BYTE
OF SECOND READ ONLY IS SAVED
DIAGNOSTIC READ OF ?RIN7 BU~FER - CCW COUNT EQUAL ONE
A. SENSE 110 IF GOT UNIT CH2CK
TWO SUCCESSIVE DIAGNOSTIC CHECK READS - FIRST BYTE
OF SECOND READ ONLY IS SAVED
IN ADDITION TO THE PRINTOUT OF THE RESULTS OF THE ANALYSIS, A
PRINTOUT OF THE ACCUMULATED DATA CAN BE MADE BY SETTING SECTION
SENSE SHITCH 02 TO 1 PRIOR TO RUNNING THE ROUTINE OR AFTER THE
ANALYSIS PRINTOUT.
6.
APPENDIX
6.1
************************************************************************
GOT UNIT CHECK WITH CHANNEL END FOR DIAGNOSTIC WRITE.
GOT PRINT BUfFER DATA REG PARITY FOR DIAGNOSTIC CHECK
READ AFTER DIAGNOSTIC WRITE.
GOT ADDI~IONAL BITS OR MISSING BITS WITH
DIAGNOSTIC READ.
*
**
**
*
*
*
*
*
*
*
IN ADDITION TO THE PRINTOUT OF THE RESULTS OF THE ANALYSIS, A
22JUN65
124249
15JUL65
124265
15DEC65
125601
15MAR66
125632
15NOV66
125655
()OOOO:ooo'ooooooo
UCS PRINTER COMHANO CODES
**
AN OUTPUT MESSAGE WILL INDICATE THE RESULTS OF THE ANALYSIS
ROUTINE AS AN ERROR NUMBER OR NO ERRORS DETECTED. IF AN ERROR
NUMBER IS INDICATED, THE C.E. MUST REFER TO THE PRINTOUT
seCTION OF THIS DESCRIPTION TO DETERMINE THE ANALYSIS RESULTS.
16JUN65
124263
GOT UNIT CHECK WITH CHANNEL END FOR LOAD UCB CCW
GOT UCB PARITY DURING LOAD uca COMMAND
DID NOT GET PLC DURING DIAGNOSTIC WRITE
1.
AFTER ALL DATA HAS BEEN ACCUMULATED, IT IS INTERROGATED BY AN
ANALYSIS ROUTINE. THIS ROUTINE IDENTIFIES A FAILURE WITHIN THE
PRINT BUFfER DAiA REGISTER CIRCUITS WHEN THE fOLLOWING CONDITIONS
EX 1ST.
2.
THIS ROUTINE WILL BE RUN ONLY WHEN ROUTINE 02
DETECTS A FAILURE WITHIN THE uca DATA REGISTER
AREA --OTHERWISE, IT WILL BE BYPASSED.
THE OBJECTIVE OF THIS ROUTINE IS TO CIRCUIT ISOLATE A SOLID
FAILURE WITHIN THE UCB DATA REGISTER AREA. THIS OBJECTIVE IS
ACCOMPLISHED BY ATTEMPTING TO SEPARATELY ACTIVATE EACH UCB DATA
REGISTER TRIGGER --THEN, PERFORM A DIAGNOSTIC WRITE TO DETERMINE
THE STATE --ON OR OFF-- OF THE TRIGGER. THE ATTEMPT TO
ACTIVATE EACH TRIGGER IS ACCOMPLISHED BY PERFORMING A LOAD uca
COMMAND WITH THE APPROPRIATE WRITE DATA --IE, HEX WRITE DATA 00
IS useD TO ACTIVATE ONLY THE P TRIGGER, HEX WRITE DATA 80 IS
USED TO ACTIVATE ONLY THE 0 TRIGGER --ETC. FOR EACH UCB DATA
REGISTER TRIGGER THE FOLLOWING SEQUENCE OF OPERATIONS IS
PERFORMED. AND ALL ASSOCIATED DATA IS SAVED IN MAIN STORAGE.
DESCRIPTION -- ROUTINE 03, PRINT BUFFER DATA REG FLT
*** NOTE ***
DATE
EC
DESCRIPTION -- ROUTINE 04, UCB DATA REG FLT -*** NOTE ***
THE DATA IS INTERROGATED AS ACCUMULATED BY AN ANALYSIS ROUTINE.
AN OUTPUT MESSAGE WILL INDICATE THE RESULTS OF THIS ANALYSIS
AS AN ERROR NUMBER OR NO ERRORS FOUND. IF AN ERROR NUMBER IS
INDICATED, THE C.E. MUST REFER TO EITHER THE PROGRAM DESCRIPTION,
OR THE PROGRAM LISTING TO DETERMINE THE ANALYSIS RESULTS.
IF THE CORRESPONDING CARD ISOLATION OVERLAY .IS AVAILABLE, THE
PROGRAM WILL AUTOMATICALLY SEARCH FOR IT AND EXECUTE IT IN
ORDER TO OBTAIN FURTHER ISOLATION. IT IS TO BE NOTED THAT IF
ROUTINE 01 DETECTS A SOLID FAILURE IN THE PRINT BUFFER AND
ASSOCIATED CIRCUiTS, ROUTINE 02 WILL BE BYPASSED -- ROUTINE 02
WILL BE RUN ONLY WHEN NO FAILURES ARE DETECTED BY ROUTINE 01.
5.3
PIN 840222
PAGE
iIA
10
PAGE
FaOC-*
a
o
DATE
EC
00
VALID COHMANDS TO THE UCS PRINTER. NOT SHOWING SPACE, SKIP,
OR OTHER VARIOUS OPTIONS, THAT ARE AVAILABLE.
FUNCTION
COMMAND CODe BITS
TEST 110
SENSE • • • ' • •
WRITE • • • • •
GATE UCS LOAD
•
LO~D UCS NO FOLDING
LOAD UCS WITH FOLDING
DIAGNOSTIC WRITE •
DIAGNOSTIC READ
16JUN65
124263
o
22JUN65
124249
o
o
1 2 3
0 0 0
• 000 0
D 0 0 0
• 1 1 1 0
1 1 1 1
• 1 1 1 1
• 0 0 0 0
15JUL65
124265
15DEC65
125601
HEX CODE
4 5 6 7
0 0 00. •
• • 00
0 1 00. • • • • • 04
0 0 0 1
.01
101 1
• • EB
101 1 • •
• • FB
• • • F3
001 1 •
- 1 0 1
• • 05
02
0 0 1 0 •
15MAR66
125632
00000
15NOV66 '
125655
"
10
PAGE
F8OC-*
8A
00
r)
'I',\..I
.,I
o 0000000000000000000
00000 0-0000 00
o
.
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PIN
PAGE
8lt0222
9
2B21- 1403 UCS SCAN
r
•
DIAGNOSTIC CHECK READ
• 0 0 0 0
0 1 1 0 • • • • • • 06 .
•• WHERE - FORMS VARIATIONS ON MODIFIERS WHICH MAY BE COMBINED.
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
6.2
.,i
i
SENSE BYTE INFORMATION
,.t
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•• ONE SENSE BYTE
•• BIT MEANING
•• 0 COMMAND REJECT
-I
INTERVENTION REQUIRED
I
• 21 BUSS
OUT CHECK
I
•• 3 EQUIPMENT
CHECK
I-..-UNIT CHECK I.N STATUS
DATA
CHECK'
I
•• 5 UCB PARITY CHECK
I
'COMMANO SEQUENCE
I
• 67 UNUSUAL
CHANNEL 9 HOLE SENSED
--.--1.
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
..
.~
I
It
6.3 .DIAGNOSTIC CHECK READ INFORMATION
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
THE DIAGNOSTIC CHECK READ COMMAND TRANSFERS CHECK INFORMATION
•
•
••
•
r
TO THE CPU. ONE BYTE OF DATA IS TRANSFERRED FOR EACH PRINT
BUFFER POSITION. THE SIGNALS RETURNED ARE AS 'FDLLOWS-BIT
•
0.:
•
•
•
•
•
•.
1
2
3
4
5
•
7
.--.
SIGNAL
I
0
NOT USED
NOT·USED
NOT USED
NOT USED
NOT USED
PRINT LINE COMPLETE
PRINT CHECK
PRINT BUFFER PARITY CHECK
0
·."'.............................•..................•....•...•.............
~.
I
0
0
.;."
0
0
0
0
0
r
I
f
\
I
I
,
0
0
. . ...-----'----'.,.., LAST PAGE
.......;.0.........;.;..;.
DATE
EC
16JUN65
124263
22JUN65
12421t9
. 15JUl65
124265
15DEC65
125601
. 15MAR66
125632
~~~..;--~----~--~--~------------.
15NOV66
125655
10
• PAGE
F80C-.
9
b
0
0
0
r-,
/\v
1- ()
C)
!
"
0000000000000000000000000000000000
-----~.
0 0 0: 0 0 0 0 0 0 0
c
--""'--------------
0 0 0 0 0 0 0 000 000 000000 00
"
.'
,,
i:
t,
PIN 840223
PAGE
1A
PIN 840223
PAGE
1
IBM MAINTENANCE DIAGNOSTIC PROGRAM
001000
OOlOOE
OOlOOF
001010
001015
001018
001020
001028
001030
001038
001040
001048
00104C
001055
001058
001050
001060
001068
001010
001018
001010
001080 '
01
90
00
010400000F
00lA60
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
00000000
000000000000000000
000000
010400000F
09115C
0000000000000000
0000000000000000 '
0000000000000000
010400000F
00138A
••
•••
OOIOEO
OOIOEl
0010E2
83
00
8000
.,
0010E4
OOlOE4 '
0010E8 .
OOlOEC
OOlOFO
001OF4
0010F8
OOlOFC
001100
001104
001108
00110e
001110
00000000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
8OC'
TITLE F80C5 RESIDENT AND CONTROL ROUTINE OVERLAY 1
.......................................................................
••
••
MODIFICATIONS
••
••
REVISION LEVEL 5. THIS REVISION DIFFERS FROM VERSION 4 AS
FOLLOIIS
•••
••
••
1.
CONTROL
PROGRAM.-ROUTINE
OVERLAY
01THIS ROUTINE liAS NOT MOOIFIEO.
••
•••
2. CONTROL PROGRAM.-ROUTINE OVERLAY 02•
DESCRIPTIONS OF ERROR NUMBERS 027 AND 038 WERE MODIFIED ••
•• ENGINEERING CHANGE PREREQUISITES
••
1. MACHINE
••
2821 CONTROL UNIT WITH 1403 UCS ATTACHMENT AT M.INIMUM
E.C. LEVEL 125655
••
••
2. PROGRAM
••
NONE
••
•
•
USE DESCRIPTION F80C. AT E.C. 125655, DATED ISNDV 66 OR LATER •
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
••
i\
!ti
1
oil.
I
.,.•
I
•••
1
••
•
••
I
I
••
••
•
J ..
r
l
THIS REVISION DIFFERS FROM VERSION 3 AS
1. CONTROL PROGRAM - ROUTINE OVERLAY 01
THIS ROUTINE WAS MODIFIED TO TURN OFF THE DATA CHECK
LATCH -ALLOW DATA CHECKS- DURlNG THE FIRST START 1/0
ISSUED 8Y THE ROUTINE. THIS LATCH REMAINS IN THE -OFFSTATE FOR ALL REMAINING ROUTINE OVERLAYS IN F80C AND
F80D.
2. CONTROL PROGRAM.-ROUTINE OVERLAY 02THIS ROUTINE liAS NOT MODIFIED
•
•
•
•
•
•
•••
••
••
•
LATER.
ENGINEERING CHANGE PREREQUISITES
1. MACHINE
2821 CONTROL UNIT IIITH 1403 UCS ATTACHMENT AT MINIMUM
E.C. LEVEL 125632
2. PROGRAM
NONE
USE DESCRIPTION F80C. AT E.C. 125632, DATED 15 MAR 66 OR
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
XF80C5 START 4096
r
I
I
REVISION LEVEL 4.
FOLLOWS •••
'
••
.
.
."
I
001000
001000
001003
001004 .
001008
OOlODA
00100t
DATE
EC
F80C50
00
00000000
0000
0000
00
16JUN65
.124263
USING .,15
••
SECTION SENSE SIiITCH USAGE
••
SSW 0, LOC X004, BIT 0 - LOOP ON START 1/0
SSW 1, LOC X004, BIT 1 - USE UTILITY SCOPE ROUTINE
••
SSW 2, LOC X004, BIT 2 - LOG OUT DATA TABLE
SSW 6, LOC X004, 81T 6 - PRINT TITLE
•
••
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
SEC TI ON PREFACE
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
SECNO DC
X'FSOC50' .
PROGRAM AND SECTION NUMBER
SNSII
ICM
22JUN65
124249
15JUL65
124265
DC
DC
DC
DC
DC
15DEC65
125601
!
F80C 2821 SCAN, 1403 UNIVERSAL CHARACTER SET
F80C5 RESIDENT AND CONTROL ROUTINE OVERLAY 1
F80C 2821 SCAN, 1403 UNIVERSAL CHARACTER SET
F8at5 RESIDENT AND tONTROL ROUTINE OVERLAY 1
X'OO'
XL4'OO'
XL2'00'
XL2'OO'
X'OO'
15MAR66'
125632
CURRENT ROUTINE NUMBER
SECTION SENSE 'SWITCHES
NOT USED
INTERRUPTION CONDITION MASK
SECTlDN OM. FLAGS
15NOV66
125655
10
PAGE
FBOC-5
1
I.
16JUN65
124263
r
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
XLl '90'
XLl'OO'
XL5'Ol0400000F'
AL3(RTNOll
XL8'OO'
XL8'OO'
XL8'OO'
Xl8'OO'
XL8'OO'
Xl8'00'
XL4'00'
XLl2'OO'
DC
DC
DC
DC
DC
DC
DC
OS
Xl5'010400000F'
AL31BREXI
XlS'OO'
XL8'OO'
Xl8'OO'
XLS'Ol0400000F'
AL3iSIOINTl
24Cl4
SUPERVISOR CAll NEW PSII
PROGRAM NEW PSW
MACHINE CHECK NEW PSW
1/0 NEW PSW
UIOP
DC
U1ADDR DC
X'OO'
X'SOOO'
OPTIONAL FEATURE BYTE
FLAGS AND CHANIUNIT ADDRESS
CNOP
SlOVRl DC
0,4
91:'00'
ALIGN ON WORD BOUNDARY
Rl THRU R9 SAVED HERE 8Y S10
SIOVR4 DC
SIOVR9 DC
SIOVR7 DC
F'OO'
F'OO'
F'OO'
ec SAVED HERE FOR ORIG SID
100 MILLI-SEC CONSTANT SAVED HERE
ce SAVED HERE FOR SENSE SIO
SIOVR2 DC
SIOVR3. DC
F'OO'
2F'00'
SEC PREF CAW SAVED HERE BY SID
esw SAVE AREA FOR ORIG SID
SENSE
CAWKEY
SIOSWS
SIOMSl
DC
DC
DC
DC
X'OO'
X'OO'
X'OO'
C'IIO ADDR XXX CAW'
SENSE DATA STORED HERE
CAW KEY STORED HERE
510 SWITCHES
CCO BUT NO INTERRUPT MESSAGE
DC
C' XXXXXXXX GOTCC'
DC
C'O BUT NO INTERRU'
DC
SIOVR6 DC
SIOMP DC
C'PT'
X'OO'
C'IIO ADDR XXX CAW'
DC
C' XXXXXXXX GOTCC'
DC
C'l CSW STATUS XXX'
DC
C'X SNS XX •
EXOPSW
SVOPSW
PGOPSII
MCOPSW
IOOPSII
CSW
CAli
EXNPSW
EXNADR
SVNPSW
PGNPSW
MCNPSW
IONPSW
IONADR
REGDMP
NUMBER OF UNIT TABLE ENTRYS
FLAG BITS SET BY SECTION FOR OM
INTERRUPT HANDLING FLAGS
INITIAL PSW
XU '01'
EXTERNAL OLD PSW
SUPERVISOR CALL OLD PSII
PROGRAM OLD PSW
MACHINE CHECK OLD PSII
110 OLD PSW
CHANNEL STATUS WORD
COMMAND ADDRESS WORD
RESERVED FOR OM USE
EXTERNAL NEW PSW
SECTION REGISTER SAVE AREA - OM USE
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
SECTION PREFACE UNIT TABLE
•
•UNITl
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
DC
XLl'S3'
UNIT TYPE - 1403 PRINTER
•••••••••••••••••••••••••••••••••••• ** ••*••• *••••••• *••••••••••••••••••
•
VARIABLES FOR START 110 ROUTINE - WORD BOUNDARY
•
•••• **••• ***.**••••••• *•• **.** ••• *•••••••••••••••••••••••••••••••••••••
••••••••••••••• *.* •••••••• *•••••••••••••••••••••••• *•••••••••••••••••••
•
' VAR tABLE S FOR S10 ROUTI NE - NO 80UNDARY
•
*•••••••••••••••••••••••••••• *•••••••••••••••••••••••••••••••••••••••••
00000000
001114
00000000
001118
00000000
OOllle
001120
00
001121
00
001122
00
001123 '
C9610640C1C4C4D940
E1E1E140C3CIE6
00112C
40E1E7E7E7E7E7E7E7
001133
40C7D6E340C3C3
00113C
F040C2E4E340050640
001143
C905E3C50909E4
00114C
07E3
001153
00 '
001155
001156
. C9610640C1C4C40940
E7E7E740C3CIE6
001l5F
001166 "
40E7E7E7E7E7E7E1E7
40C7D6E340C3C3
001l6F
001176'
F140C3E2E640E2E3Cl
E3E4E240E7E7E7
001l7F
E740E2D5E240E7E740
001186
DATE
EC
NUTE
fLAGl
FlAG2
INPSW
I
I
22JUN 6515JUL65
124249
124265
15DEC65
125601
I
15MAR66
125632
lSNOV66
125655
10
PAGE
f80C-5 I
1A \
tt-:
o
I·
f
~..
PIN 840223
PAGE
2
IBM MAINTENANCE DIAGNOSTIC PROGRAM
OOllA~ ,
001lA8 .
00 11 AC
0011B5
00l1BC
0011C5
OOllCC
001105
00 11 DC
00l1E5·
OOllEA
00l1F3·
OOllFA
001203
00120A
001213 '
0012U
001220
001228
001228
00122C
001232
001238 '
00123E
0012 ... 2
0012~8
0012~E
001252
001256 .
00125A
00125E
001262
001266 .
00126A
lic
D... CI02C5 ...0D709C905
E3C5D9 ... 0D9C ... ee
0000
00000000
00000000
C96106"'OCIC~C~0940
E7E7E7ItOC3CIE6 .
ItOE7E7E7E7E1E1E1E7
ItOC106E31t0C3C3
F040C3E2E640E1E1E7
E7E7E1E7E1E7E7
E7E7E7E7E7E740E205
E240E7E740
C9610640C1C4C40940'
E7e7E740C3CIE6
ItOE7E7E7E7E7E7E7El·
40C706E31t0C3C3
F040C3E2E640E7E7E1
E7E7E7E7E7E7E7
E7E7E7E7E7E7
0000000000000000
90 19 F
02 03 F
07 07 F
07 00 F
54 CO F
02 00 F
02030
9C DOC
45 10 F
'0 10 F
91 80 F
47 10 F
91 30 F
41 50F
OA 08
OE4
114F
118F
120 F
158'
048 F
048'F
000'
256
108'
122
438
108'
2A4
X'OOOO' .
2F'OO'
SIOKU DC
C'IIO AOOR XXX CAW'
001290
00129E
0012AO
oo12A4 '
DATE
EC
91 80 F
47 80 F
58 50 E
90 00 C
...7 80 F
46 50 F
47 FOF
02 02 F
OA DO
0004
0048
0134 .
92 FO F
OA DO
DC
C'XXXXXXXX GOT CC· .
DC
CoO CSW XXXXXXXXXX'
DC
C'XXXXXXSNS XX '
C'I/O ADOI' XXX CAlf' .
DC
C' XXXXXXXXGOTCC' .
DC
C'O CSW XXXXXXXXXX' .
C'XXXXXX'
XL8'00'
SENSE CSW SAVED HERE
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
1403 START 1/0 ROUTINE
•
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
CNOP 0,4
ALIGN ON WORD BOUNDARY
SID
048
118
120
121
048'
STM' Rl,R9,SIOVRI
MVC
SIOVR21~J.CAW
SIOAOO XC
SIDVR3(8),SIOVR3
XC
SENSE I U.SENSE·
N
. RI2,CLRC
MVC
CAWI1J,CAWKEY
MVC· HCAWI4,RUJ ,CAlf
stOOIR121
BAL
Rl,.+4
STRl,SIOVR~
•
004'
288
198
000'
232
278
232
12C F 753
143
•
TM
BC
TM
BC
SVC
TM
BC
510A01 L
no
BC
BCT
BC
5IOA02 MVC
SVC
DC
DC
DC
MVI
SVC
OC
32
F123
47 FO F 214
41 ,40 F 2CC '
22JUN65
124249
••
..
•
DC
DC
BC
SNSW,X'80'
NONE.SIOA02
R5,408IRO,R14)
OIR12)
CCO,SIOAOO
R5,SIOA01+4
UNe,SIOAOO
SIOMSl+9C3J,UAPRT
X'OD'
.
AL2141
AL2 (cAlf-SECNOI I'
AL2(SIOM51+17-5ECNOI
SIOMSl+32,X'FO'
X'DO'
X'40'
X'32'
AL21SIOMSI-8ASE+REGI
UNC,SIOAOI
BR IF SEC SS 00 IS ZERO - NO SIO lOP
••
GET OM 10 SEC CONSTANT·
TEST 110
.
REPEAT SID IF GOT CCO
DELAY
GO REPEAT SID
SET PRINTER ADDR IN OUTPUT MESSAGE
CONVERT CAW TO EBCDIC
NO Of: HEX BYTES IN CAW
HEX DATA AODR
E8COIe DATA ADDR IN OUTPUT MESSAGE
SET ceo IN OUTPUT MSG
PRINT GOT CCO BUT NO INTERRUPT
PRINT.PROG NO. PRIOR TO MESSAGE
TREAT AS ERROR
DO NOT CHAIN
DO NOT RESTORE
NO. OF CHAR IN MSG 1501
MESSAGE ADORESS
GO TRY AGAIN
HANDLE SIO ce3 HERE
•5IOBOO 8C
15JUL65
124265
SIOSWS,X'80'
AL.L,S.IOI06
stOVR4,X'30'
ANY,SIOBOO
X'08'
SAVE Rl THRU R9
SAVE CAW
CLEAR CSW SAVE AREA
CLEAR SENSE BYTE
AND OUT BITS 0 THRU 20 OF GEN REG 12
LOAD' STORAGE KEY: IN SEC PREFCAW
LOAD CAW
START 110
SAVE CONonION CODE
,,'.
.
SEE IF RET TO PROG SWI ON
BR IF YES
SEE IF SIO CC If AS, ZERO
8R IF NO
.
WAIT FORIIO INTERRUPT'
COME HERE IF DID NOT GET FI·RST INTERRUPT
..
...0
16JUN65
124263·
2ND STATUS SAVE AREA
AGGREGATE·CSW SAVED HERE
5101454 DC
•
00126e
001270
001274 '
001278
00127e
001280
001284 .
001288
00128E
001290
001292
001294 .
001296
00129A
0012ge
t'
C'MAKE PRINTER ROY'
STAlSV DC
CSWAG DC
DC
SIOVlt8 DC
15DEC65
12'601
:~~. ""l!
PROGRA~
."
F80C 2821 SCAN,' 1... 03 UNIVERSAL CHARACTER SET
F80C5 RESIDENT AND CONTROL: ROUTINE OVERLAY 1
F80C 2821 SCAN, 1~03 UNIVERSAL CHARACTER SET
F80C5 RESIDENT AND CONTROL ROUTINE OVERLAY 1 .
00118F
001198
001l9F
IBM MAINTENANCE DIAGNOSTIC
.
r
,
SOME.SIOCOO
15MAR66
125632
BR IF NOT CC3
l5NOV66'
12565'
10.
PAGE
F80C-5
2
0012A8
0012AC
001280
001282
0012B4
001286
0012B8
0012BE
0012C2
0012e4
91 80
47 10
OA 00
0001t
0048
0134 '
02 02
92 F3
OA DO
40
F 004
I' 232
0012C5
0012C6
0012C8 .
21
Fl23
41 FO F 232
F 12CF 15)
F 143,
••
0012ec
001200
001204
001208
00 12 De
0012DE
0012EO
0012E2
0012E4
0012EA
0012EE
0012FO
91 10 F
47 10 F
91 80 F
47 10 I'
OA DO
0004
001t8
OU4.
02 02 F
92 1'2 I'
OA DO'
40
0012Fl
0012F2
0012F4 .
21
1'123·
47 FO I' 274'
0012F8
0012Fe
001300
001304
001308
00130e
001312
001314
001316
001318
0013lA
001320
001322
001324
001326 .
001328
00132C
001330
001334
001336
91 80 F
47 80 .1'
91 FF 0
47 50'1'
47 FO F
02 02 ~
OA DO
0004
0048
0167·
02 07 I'
OA 00
0002
Olle
0183
92 Fl F
91 02 I'
47 10 F
OA DO
40
001337
001338
00133A
00133E
00131t2
OATE
EC
108
2F8
004
274'
..••
'••.
001t ...
346
045
274.
232
15F'F 753
••
DC
DC
BC
X'21'
AL2ISIOMSl-8ASE+REGJ
UNC,SIOAOO
,
DC
DC
Bt
sve
176
.....
DC
DC
DC
MVI
TM
BC
SVC
DC
•
DC
DC
510003 TM'
BC
Be
lSJUL6S
121t265
"
CONVERT
CAW TO, EBCDIC
NO. OF HEX BYTES IN CAW
HEX OAT A ADDR
EBCDIC DATA ADDR
SET PRINTER ADDR IN OUTPUT MSG
SET ce3 IN OUTPUT MSG
PRINT GOT·CC3 ON SIO
PRINT, PROG NO. PRIOR TO MSG
TREAT AS ERROR
DO NOT CHAIN
DO NOT RESTORE
NO. OF CHAR IN MSG U3J
MesSAGE ADDRESS
GO TRY 510 AGAIN
t
II
I
150EC65
125601 '
..
..
II,
BR IF DID NOT GET CC2
BR IF SEC SS 00 IS 1 - lOOP SID
CONVERT CAW TO E8CDIC
NO. OF HEX BYTES IN CAW
HEX DATA ADDR
EBCDIC DATA ADDR IN OUTPUT MSG
SET 1/0 ADOR IN OUTPUT MSG
SET CC2 IN OUTPUT MESSAGE
PRINT GOT CC2 ON SIO
PRINT·PROGNO~ 'RIOR TO MSG
TREAT .AS· ERROR
OON.OT CHAIN
DO NOT RESTORE
NO. OF .CHA1\ INMSGCU)
X'.21'
AL2'(sIOMSI-8ASE+REGJ' MESSAGE AIIDRESS
GO TRY AGAIN
UNt .• SJ.OA01
. HANDL£SIOcCCI HERE
8C
TM
BC
8C
SI0002 MVC
SVC
DC
DC
· DC
.MVI;
11e
362
i
BR IF SEC SS 00 IS 1 - lOOP SIO
HANDLE SIO CC2 HERE
•SIODOOTM
11B.D 0 ....0
22JUN65
124249
SNSW,X'80' .
ALL,SIOAOO
X'OO'
AL2141
AL2 (cAW-SECNO)
AL2(SIOMSl+17-SECNO)
SIOMSl+913I,UAPRT'
SI0MS1+32,X'F3'
X'OO'
X'40'
SIOCOO TM
SIOVR4,X'10'
ALL,SIODOO
BC
TM
SNSW,X'80' ,
ALL,SIOA01
Be
· SVC . X'OO'
AL2(4)
DC
AL2 (CAW.,.SECNOJ
DC
AL21SIOMS1+17-SECNOI
DC
MVC· SIOMS1+91)),UAPRT
MVI· SIOMS1+32tX'F2 t
X'OO'
SVC
DC
X'40'
12C F'7-53
143
31
F156
91 FF F 110
47 50 F 274'
47 FO I' 232
16JUN65
124263 .
•
· TM
BC'
SVC
DC
DC
DC
MVC,
MVI
SVC
DC
f
I
.
.BR IF SEC SS 00 IS 0 - NO lOOP SID
SNSW"X'80'
NONE,SI0004.
",
HCSW+51RI31,X'FF'
DO TIO IF GOT ANY CH STS FOR CLEAR
,,
ANy,SIOAOl.
. LOOP SlO ONLY
UNc;srOAOO
'SIOMS2+9131,UAPRT
SET PRINTER ADDR IN OUTPUT
CONVERT CAW TO EBCDIC
X'OO'
AL2141
NO. OF HEX 8YTES IN CAW·
HEX DATA ADDR
AL21CAW-SECNO)
AI.,2(SIOMS2+.l7-SECNOI EBCDIC AODR IN OUTPUT MESSAGE
SIOVR311iI,HCSWIRU.)
SAVE CSW
CONVERT CSW STATUS TO E8CDIC
X'OO'.
AL2(2)
NO. OF STATUS BYTES
CSW STATUS AOOR
AL21SIOVR3+4-SECNOI
EBCDIC AOOR IN OUTPUT MSG
AL21SIOMS2+45-SECNO)
SIOMS2+32,X'Fl'
SET CCI IN OUTPUT MSG
GO DO SENSE 1/0 If GOT UC
SIOVR3+4,X'02'
ALL.SIOEOO
to
PRINT GOT CC1 ON SIO.- NO UC
X'OO'
PRINT.PROG
NO. PRIOR TO MSG
X'ItO' .
TREAT AS ERROR
DO NOT CHAIN
00 NOT RESTORE
NO. OF ,CHAR IN MSG (49.
X'31'
AL21SIOMS2-BASE+REG) MESSAGE ADDRESS
SIOVR3+5,X'FF' ,
DO TID 8EfORESlOI If GOT ANY CH srs
ANY,SIOA01
REPEAT'SIO ONLY ..
UNC,SIOAOO
14"
"
!
..
15MAR66
125632
15NOV66'
125655
ID
F80C-5
PAGE
2.
~""-":'
!o 0 ' 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
000,000000:00000 00000000_000 000_
i
f',
'I
.1"
";-.
IBM'MAINTENANCE
DIAGNOSTI~
PIN 840223
PAGE
3
PROGRAM'
F80C 2821 SCAN, 1403 UNIVERSAL 'CHARACTER SET
F80C5 RESIDENT AND CONTROL ROUTINE OVERLAY 1
001346 .
'00134A
00134E
001352 .
001356
00135A
00135E
001362
001366
001368
0013U
OO136C
00136E
001372
001376 .
001378 .
91 FF o
47 50 F
95 DC o
47 60 F
91 ItO F
47 10 F
47 FO F
45 70 F
OA 00
0001 .
0120
018C
91 40 'F
41 10F
OA DO
40
045
30C
044
30C
122
438'
3C2
47E
..
120
380'
DC
DC
BC
SlOEOl SVC
ItO
001383
001384 '
OOUB6
49
Fl56
47 FO F 274:
••
•
"\
91 SO
1t7 10
02 07
91 20
47 10
07 01
58 ItO
1t6 40
1t7 FO
90 00
47 80
41 itO
1t7 FO
06 01
47 fO
91 04
41 80
58'40
90 00
1t7 BO
06 01
1t6 40
DZ 07
116 01
91 OC
Itl 10
45 30
OA DO
40
F DOlt .
F Z74
F llB '0
F 122
F 438 .
F 19F F
F 10C
F 3B2
F 3CC
C 000
F 3CC
F 3CZ
F 3AA
F 19F o
F3U
F lZ2
F 3EA
FlOC
C 000
F 3E6
F 19F D
F 308
F lA4:F
F 1A8F
F lA8
F 1t0C
F 1t5A
•
.,
••
DATE
19F
Oltlt
044
11S
19F
..•
......
Et
22JUN65
121t249
DC
DC
BC
15JUL6!S
124265
,..,..,.,.,...,.~r..,--....,...,....,..,-....,.,.--.....;..---
DC
OC
15DEC65
125601
PIN .40223
PAGE
3A
IBM MAINTENANCE DIAGNOSTIC PROGRAM
F80C 28Z1 SCAN, 1403 UNIVERSAL CHARACTER SET
F80C5 RESIDENT AND CONTROL ROUTINE OVERLAY 1
HCSW+51R13) ,x 'FF'
ANY,SI0002
HCSW+4IR131,X'OC'
UNEQ,SI0002
SIOSWS,X'40'
AlL,SIOI06
UNC,SIOI02
R7,SIOFOO
X'DD'
AL2UI .
AL21SENSE-SECNOI
AL2(SIOMS2+!SIt-SECNO)
SENSE ,x 'ItO'
ALL,SIOEOI
X'DO'
X'ItO'
..
BR IF GOT ANY CHAN STATUS
001408 .
00140C
001410
001414
001418
OOlitIC
SEE IF GOT CE + DE ONLY
BRANCH IF NO
SEE IF RETURN 10 PRDG ON IMMED OP
BRANCH IF YES'
GO INDICATE ERROR
GO DO SENSE 1/0
CONVERT SENSE DATA TO EBCDIC
NO. OF SENSE BYTES
SENSE DATA ADOR
EBCDIC DATA ADDR IN OUTPUT'MSG
BR IF GO INTERV REQ
.
..
GOT CC1 ON SIO WITH UC + NO INTV REQ
PRINT PROG NO. PRIOR TO MESSAGE
TREAT AS ERROR
DO NOT CHAIN
DO NOT RESTORE
NO. OF CHAR IN MSG (561
X'3S'
Al21 StOMS2-IASE+REGI . MESSAGE ADDRESS
REPEAT SIO
UNC,SIGD03
PRINT GOTCCI ON SIO - UC + INTV REQ
X'DO'
MAKE PRINTER READY.~I/O ADDR IN GR12
X'ItO'
PRINT;PRoG NO. PRIOR TO MS6
TREAT AS' ERROR
00 NOT CHAIN
DO NDT'RESTORE
X'49'
NO. OR CHAR IN MSG (73)
AL21S1 OMS2-BA5E+REGI .' MESSAGE ADDRESS
UNC ,SIOAOI
CONTINUE
SNSW,X'SO' .
ALL,SIOAOI
SIOVR3(8),HCSwCR13J
SIOSWS,X'20' .
ALL,SI0106
STATSVIZI,STATSV
R4,SIOVR9
M,SIOIOI
UNC,SIOI03
OIR12)
Z,S10103
CC1,SIDI02
UNC,SIOIOO
STATSVIZI,HCSW+4CR131
UNC.SIOIOO
SIOSWS,X'OIt'
NDNE,SIOI04
RIt,SIOYR9
OCR12)
CSWNST,.+10
STATSVI2I,HCSW+ItCR13)
R4,SIOI03+12
CSWAGI81,SIOVR3
CSWAG+4(2I,STATSV
CSWAG+4,X'OC' .
ALL,SIOIO!S
R3,SIOI09
X'DO' .
X'ItO' .
..
BR IF SEC SS 0015 I - lOOP SlO
"
CLEAR
ceo
15NOV66
125655
"
BR IF GOT, CE + DE
: 10
F80C-5
PAGE
3
___________.....- _ -___- - -________
001444 .
40 .
0010\45
00 141t6
001448
00144C
001450
001452
3F
FlAC
1t7 FO F 274:
1t5 30 F 45A
OA DO
40
00147E
001484 :
001488
00148C
001492
001494 .
001496
001498
00149A
0014AO
0014A4 .
. 0014A8
0014AC .
001480 :
001484 :
001488
0014BC
GO SET UP PRINTouT·
DID NOT GET CE ANDIOR DE
PRINT'PROG NO PRIOR TO MESSAGE
. TREAT AS ERROR
.
DO NOT CHAIN
DO NOT RESTORE
NO. OF CHAR IN MSG (54)
'X'36' .
AL2ISIDMS3-8ASE+REGI MESSAGE ADDRESS
15MAR66 .
125632
FO
FF
50
02
80
70
A2
50
01
40
10
01
19
FB
30
DO
F
F
F
F
F
F
F
F
F
F
F
F
F
274
lA9
44C
lA8
438
1t7E
120
43E
122
120 .
438
122
OEIt
F 45A
0011t53·
36
001454 . . FlAC
001456 . 47 FO F 214'
00145A
02 02 F IB5F 153
001460
OA DO
000 It
0011t62
001464 .
001t8
0010\66
01BD
OA DO
001468
0008
oo11t6A
OlA l ,
00146C
00146E
0102
001470
OA DO
001472
0001
001474 .
01Z0
01E7
001476
0011t78 .
92 FO F ICC
001HC
01 F3
SAVE CSW
BR IF RET TO PROG SW3 ON
ZND STATUS SAVE AREA
LOAD TIME CONSTATN IN GRit
REPEAT TIO IF GR It NOT ZERO
CONTINUE - WAITED TOO LONG FOR
TEST 110
BR IF GOT CCO
BR IF GOT CC1
REPEAT TID
SAVE 2ND STATUS
REPEAT TIO
SEE IF WANT DELAY
BR IF NO
SET UP FOR DELAY
TEST 110
BR ON ANY CC BUT 1
,.
SAVE CSW STATUS
BR IF NOT END OF DELAY·
DEVELOP AGGREGATE CSW
01424 .
001428
0014ZC
0010\30
001434 ,
001438
00143C
00143E
0010\42
47
91
47
91
47
45
91
47
96
91
1t7
97
98
07
45
OA
~Ollt20
HANDLE SID CCO HERE
•
36
FlAt
16JUN65
124263·
DC
510INTTM
BC
MVC
TM
8C
XC
L
SIOIOO BCT
BC
SIOIOI TIO
BC
BC
BC
SIOI02 OC
BC
510103 TM
BC
L
TID
BC
OC
BCT
SIOI04 MVC
OC
TM
BC
BAL
SVC
DC
01t0
.':
00 lItO 5
001406 .
SIODb4 TM
Be
CLI
8C
TM
BC
BC
SIOEOO BAL
SVC
DC
DC
DC
TM
BC
SVC
DC
..••
38 .
Fl56
47 FOF 33A
OA DO
001379
OOUlA
00137C
001380
001382
00138A
00138E
001392
001398
00U9C
00 13 AD
0013A6
0013U
OOUAE
0013B2
0013B6
0013BA
0013BE
o013C2
0013C8
0013CC
001300
001304
001308
0013DC
0013EO
0013E6
0013EA
0013fO
0013f6 .
0013FA
OOUFE
001402
0011t04
'
I
,:
DATE
EC
DZ 02 F 1F3 F 753
41 00 F 568'
50 00 f 048
02 00 f'048 F 121
OA DO
0004
004B
01f8
0203 0 048 F 048'
9C 00 C 000
45 00 F 4AB
91 BOF 004
41 10 F 552
50 00 F 110
92 FO F ZOA
91 30 F 110
4180f 500'
16JUN65
124263
.. -.--c-'......
.,......-~_,.....A......,.,...··,...,,.....,,,.,.--.-.-
. . ,/
.....
.I.Ai
r·
.·
22JUN65
124249
BC
UNC,SIOA01
GO TRY AGAIN
SIOI05TM
CSWAG+5,X'Ff'
BR IF GOT ANY CHAN STATUS
BC
ANY,SIOI08
TM
CSWAG+4.X'OZ'
BR IF OlD NOT GET UNIT CHECK
BC
NONE,SlOI06
"
BAL
R7,SIOFOO
GO DO SENSE OP
TM
SENSE,X'A2'
BR IF GOT COMM REJ, BUS OUT PARITY,
BC
ANV,SIOI07
OR INVALID SEQUENCE
01
SIOSWS,X'Ol'
TURN ON INTERV REO SW
TM
SENSE.X'40'
BR IF GOT INTERVREO
BC
ALL,S10106
"
XI
SIOSWS ,X '01'
TURN OfF INTERV REQ SW
S10106 LM
R1,R9,SIOVR1
RESTORE Rl THRU R9
BCR
UNC ,Rll
RETURN TO PROGRAM
SIOIOl BAL
U,SIOI09
GO SET UP PRINTOUT
SVC
X'DO'
GOT COMMAND REJ, BUS-ouT PAUTY,
ANDIOR INVALID SEQ WITH CCO
•
OC
X'40'
PRINT,PROG NO. PRIOR TO MESSAGE
•
TREAT AS ERROR
•
DO NOT CHAIN
•
DO NOT RESTORE
DC
X'3F'
NO. Of CHAR IN MSG (62)
DC
AL2ISIOMS3-BASE+REG) MESSAGE ADDRESS
BC
UNC, SIOAOI
GO TRY SID AGAIN
SIOI08 BAL
R3,SIOI09
GO SET UP PRINTOUT
SVC
X'DO'
GOT CHANNEL STATUS WITH CCO
DC
X'40'
. PRINT,PROG NO. PRIOR TO MESSAGE
•
TREAT AS ERROR
•
DO NOT CHAIN
•
DO NOT RESTORE
DC
X'36'
NO. Of CHAR IN MESSAGE (51t)
DC
ALZISI0MS3-BASE+REGI . MESSAGE ADDRESS
BC
ONC,SIOA01
GO TRY S10 AGAIN
SlOl09 MVC
SIOMS3+9(3),UAPRT
SET PRINTER ADDR IN OUTPUT MESSAGE
SVC
X'DO'
CONVERT CAW TO' EBCDIC
DC
ALZ(4)
·NO. OF HEX BYTES IN CAW
DC
AL2ICAW-SECNO)
HEX DATA ADDR
DC . ALZISIOMS3+11-SECNOI EBCDIC DATA ADDR IN OUTPUT MSG
SVC
X'DD'
CONVERT CSW TO EBCDIC
DC
ALZIS)
NO. OF HEX BYTES IN CAW
DC
AlZ(CSWAG-SECNOI
HEX DATA ADDR
DC
AL21 SIOMS3+38-SECNOI EBC OATA ADDR IN OUTPUT MSG
SVC
X'DD'
CONVERT SENSE DATA TO EBCDIC
DC
AL21l)
NO. OF SENSE BYTES
DC
AL2ISENSE-SECNOI
HEX DATA ADDR
DC
ALZ(SIOMS3+59-SECNOI EBCDIC DATA ADDR IN OUTPUT MSG
MVI
SIOMS3+32.X'FO·
SET CCO IN OUTPUT MESSAGE
BCR
UNC,R3
RETURN
)
I
I
~.
I
!
i
i.
I
i
. ,
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
SENSE 1/0 PERFORMED HERE
•
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
SIOFOO MVC
SIOMS4+9I 3) ,UAPRT
SET PRINTER ADDR IN OUTPUT MESSAGE
LA
ST
MVC
SVC
DC
DC
DC
SIOFOI MVC
SIO
BAL
TM
BC
ST·
MVI
TM
BC
15JUL65
150EC65
124265 , 125601.·
-.,-,----__. . . . . ,. . . ;".."". ...,. ._""..
RO,SNSCCW
RO,CAW
CAWIlI,CAWKEY
X'DD'
AL2(4) .
ALZICAW-SECNOI
ALZISIOMS4+11-SECNDI
HCAW(4,R131,CAW
O( RIZI
RO,.+4
SNSW.X'BO'
ALL,SIOF08
RO,SIOVR7·
SIOMS4+32,X'fO'
SIOVR7 ,X '30'
NDNE,SIOF03
15MAR66
125632
15NOV66
125655
SET UP SENSE CAW
..
..
CONVERT CAW TO PRINTABLE
NO Of HEX BYTES IN CAW
HEX DATA ADDRESS
PRINTABLE DATA ADDRESS
LOAD SENSE CAW
SENSE 110
SAVE CONDITION CODE
BR IF SEC SS 00 IS 1 - LOOP SID
..
MOVE CONDITION CODE
SET CCO IN OUTPUT MESSAGE
BR IF GOT CCO
,.;
It
..,. . ._. ,.,r---_.....____________
,.."".~.,."",,_
. j
'j
10
F8QC-5
PAGE
3A
~_....,.._-,
........
1I
~
,j
A
..... :!
.·1
'1,
)
.1
.
-'~'.I';"
IBM MAINTENANCE DIAGNOSTIC PROGRAM'
PROGRAM'
F80C 2821 SCAN, 1403 UNIVERSAL'CHARACTER SET
F80t5 RESIDENT AND CONTROL: ROUTINE ,'OVERLAY 1
0014CO
0014C4 .
0014C8
0014CC
001400
001404 '
001408 '
00140E
0014E4 '
0014E6 '
0011tE8
0014EA
001ltEC
00 lit EE
00 litE F
oo14FO
0014F2
001U6
0014F8
0014F9
0014FA
0014FC
001500
001506
00150A
00150E
001512
001516
0015lA
001520
001524 '
001528 '
00152C
001530
001534 '
001538
00153A
oo153t
00153E
001540
001542
001543
001544
001546
00154A
001550
001552
001556
00155A
00155E
001562
001568
,92 F3 F
47 10' F
92 FI"
91 2(1 F
47 10 F
92 Fl F
02 OA F
02 07 F
OA DO
0002 '
0224 '
0217
OA ~O,'
40 '
MVI,
8C
MVI'
TM
BC"
MVI
MVC
MVC
SVC
,DC
, DC
; DC
:' SVC
DC
DC
DC
8C
SIOFOI SVC
DC
DC
. , DC
BC
SIOFOl XC
L
$I0F04 TIO
BC
BCT
, BC
SIOF050C
TM
BC
TM
8C
TM
BC
SIOF06 SVC
DC
DC
DC
SVC
DC
DC
DC
BC
SIOF07 MVC
BCR
SIOFOD L
TID
BC
BCT
BC
20A
4F6
20A
110'
4F6'
20A
210 F ,11e
2200 040
31
FlEA
,
47 FO F 552
OA DO
40
21
flEA
47 FO F 552
07 07 F 220 F
58 40 E 198
90 OO'C 000
47 40 F 5tA
46 40 F 50A
47 FO F 520
06 07 F 220 0
91 FF F 225
47 50 F 538'
91 OC F 224'
47 CO F 538
91 F3 F 224'
47 80 F 54A
OA DO
0008
0220
0210
OA DO
40
36
FlEA
41 FO F 552
0203 F,048'F
07 F1
58 40 E 198
90 00 C 000
47 80F 49A
46 40 F 556
47 FO F 49A
120'
\
040
114
040011200000'0001
001510
00 00151C 0000 0000"
001578 '
00000000
00157C
001585
DATE
EC
000000000000000000
000000000000000000
16JUN65
124263
22JUN65
124249
F80C
150EC65
125601,
2821 SCAN, 1403 UNIVERSAL CHARACTER SET
AND CONTROL ROUTINE O'VERLA Y 1
F80C~RES IDENT
SIOMS4+32,X'F3'
SET CC3 IN OUTPUT MESSAGE
ALL,SIOF02
8R IF GOT CC3
SIOMS4+32 ,X 'F2' ,
SET CC2 IN OUTPUT MESSAGE,'
SJOVR1,X'20'
8R IF GOT CC2
ALL,SJOF02
"
SJOMS4+32,X'Fl'
SET CC1 IN OUTPUT MESSAGE
SIOMS4+38111I,SIOMS2+38 SET UP OUTPUT MESSAGE
SIOVRBI8I,HCSIIIR131
SAVE CSII
,
X'OO'
CONVERT CSII STATUS TO PRlNTA8LE
AL2 I 21
NO. OF STATUS 8YTES
AUI SI OVR8+4-SECNOJ
CSII STATUS ADORESS
AUI SIOMS4+45-SECNOI ' PRINTA8LE DATA ADDRESS
X'OO'
GOT CCI FOR SENSE
X'40'
I t ERR MESSAGE
X'31'
" 49 CHARACTERS
ALII SIOMS4-8ASE+REG):
I t ADD,RESS OF MESSAGE
UNC,SIOF08
GO TRY SIIiNSE AGAIN
X ' O O ' G O T CC2 OR CC3 FOR SENSE
X'40'
tt ERROR MESSAGE
X' 21' '
tt 33 CHARACTERS
AL2CSIOMS4-8ASE+REGI
I f ADDRESS OF MESSAGE
UNC ,SIOF08
GO TRY SENSE ,AGAIN
SIOVR818J,SIOVR8
CLEAR SENSE CSII SAVE AREA
R4,4081RO,R141
GET OM TEN SEC TIME CONSTANT
DIR121
TEST 110
CCl,SIOF05
8R IF CSII STORED
R4,SIOF04
lOOP TID FOR MAX OF TEN SEC
UNC,SIOF05+6
CONTINUE
SIOVR818I,HCSIIIRll)
SAVE CSII
SIOVR8+5,X'FFt
BR IF ANY CHANNEL STATUS
ANY,SIOF06
..
SIOVR8+4,X'OC'
8R IF DID NOT GET CE + DE
ZNEG, SIOF06
"
SIOVRB+4,X'F3'
BR IF NOT ANY OTHER UNIT STATUS
NONE,SIOF07
"
X'OD'
CONVERT CSII TO PRINTABLE
AL2(8)
It NO. OF CSII BYTES TO BE CONVERTED
AL2ISIOVR8-SECNOI
" SENSE CSII ADDRESS
AL2(SIOMS4+38-SECNO)
,. PRINTABLE DATA ADDRESS
X'00'
GOT CCO FOR SENSE, BUT WRONG STATUS
X'40'
., ERROR MESSAGE
X'36'
,. 54 CHARACTERS
Al2ISIOMS4-BASE+REGI
. f ADDRESS OF MESSAGE
UNC ,SIOF08
GO TRY SENSE AGAIN
CAII141,SIOVR2
RESTORE ORIGINAL CAli
UNC ,R1
RETURN
R4,40DIRO.R14)
GET OM TEN SEC TIME CONSTANT
01 RI21
TEST 110
CCO,SIOFOI
REPEAT SENSE IF GOT CC 0
R4,SIOF08+4
REPEAT TID FOR TEN SEC MAX
UNC ,SIOFOI
GO TRY SENSE AGAIN
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
CCW-S USED BY SIO ROUTI NE
' .
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
SNSCCW CCII
X'04',SENSE,X'OO',1
SENSE eCII
,
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
VARIABLES FOR UTILITY ROUTINE - DOUBLE WORD BOUNDARY
•
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
scpecw CCII
X'OO',SCPDAT,X'OO',OO UTILITY ROUTINE CCW
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
VARIABLES FOR UTILITY ROUTINE - IIORD BOUNDARY
•
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
SCPRK4 DC
F'OO'
WORK AREA
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
VARIA8LES FOR UTilITY ROUTINE - NO BOUNDARY
•
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
SCPDAT DC
Xl250 ' 0'
SCOPE, ROUTINE DATA FIELD
15JUL65
124265
; PIN 8"0223
, PAGE
loA
15MAR66"
125632,
l5NOV66,
125655
10
,PAGE
F80C-5,
4' ,
00158E
001597 '
0015AO
0015A9
0015B2
0015B8
0015C4 :
0015CO
001506
0015DF
0015E8
0015Fl
0015FA
001603
00160C
001615
00161E
001627
001630
001639
001642
001648
001654
001650
001666 '
00166F
000000000000000000
'000000000000000000
000000000000000000
000000000000000000
000000000000000000
000000000000000000
000000000000000000
000000000000000000,
000000000000000000
000000000000000000
ooorooooooOOOOOOOO
000000000000000000
000000000000000000
000000000000000000
000000000000000000
000000000000000000
000000000000000000
000000000000000000
000000000000000000
000000000000000000'
000000000000000000
000000000000000000
000000000000000000
000000000000000000
000000000000000000
00000000000000
........................................................................
UTILITY ROUTINE ,
'
•
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
CNOP 0,4
•
001676 '
001676
001678
00167C
01 00
90 :9C F OE4
OA 00
BCR
SCPROO STM'
SCPRI0 SVC
••
••
•••
•
0,0
R9,R12,SIOVRl
X'OO' ,
.'
.'••
00167E
00167F
001680
001682
001686
00168A
00168E
001692
.001696
00169A
0016AO
0016A2
0016A6
0016AA
0016AE
DATE
EC
80
27
F728
58 CO F
55 CO F
47 80 F
91 40 F
47 10 .F
98 9C F
02 03 F
01 F8
91 40 F
47 10 F
41 FOF
50 AO F
16JUN65
124263
•••
•••
••
120
720
6A2
004
6AE
OE4
048 F 114
004
686
696
578
22JUN65
124249
DC
DC
DC
L
SCPR~O CL
BC'
TM
BC
SCPR~O
LM
, MVC
BCR
5CPR40 TM
BC
8C
SCPR50 ST
15JUL65
124265
150EC65
125601
X'80'
X'27'
If
AL2(SePRK2-BASE~~EG)
R12,SCPRK3
R12,SCPRK3
EQ,SePR40
SNSW,X'40'
AlL,SCPR50
R9,R12,SIOVRl
CA1I(4) ,SIOVR2
UNC,RB
SNSW,X'40'
ALL,SCPR20
UNC,SCPR30
RI0,SCPRK4 '
15MAR66
'125632
SAVE R9 THRU GR12
PRESS CONSOLE STOP, ENTER CCII DATA
1. ENTER OP IN GR 10 - BYTE 2 2. ENTER CCII FLAGS: IN GRlO BYTE 3 BIT 0 - NOT USED
BIT 1 - NOT USED
BIT 2 - SLI
BIT 3 - SKIP
8IT 5 - NOT USED
3. ENTER DATA FIELD CONTENTS IN
GR 11 - BYTES 0 THRU l 4. ENTER CCII COUNT IN GR 12
-BYTES 0 AND 15. ENTER DEVIce ADDRESS IN GR 12
-BYTE 2, BITS 5-6-1, AND BYTE l
6. SET SEC SS 00 TO 1 TO LOOP, OR
SET TO ZERO FOR 1 PASS7. PRESS CONSOLE START
8. TO EXIT THIS RTN PRESS CONSOLE
STOP, SET SEC SS 00 AND 01 TO
ZERO, THEN PRESS CONSOLE START
15NOV66
125655
" 39 CHARACTERS
" ADDRESS OF MESSAGE
, SET, GR 12, TO ONES
SEE IF, GR 12 liAS ALTERED
BR IF NO
,
BR IF sec 5S 01 IS 1 -USE UTILITY
"
~ESTROE GR 9 THRU GR
REST~REORIGINAL CAW
12
RETURN TO PROGRAM
BR IF SEC SS 01 IS 1 - USE UTILITY
"
RETURN
TO PROGRAM
SET UP cew,
lD
F80C-5
PAGE
loA
",
000000000000000000 0000000000000000
000000000000000000 000000000000
oooe
'i
(~~~_.... ~_ ... _~ _ .•.
____. _
.....J
PIN
PAGE
IBM MAINTENANCE DIAGNOSTIC PROGRAM
5
,i
I
02 00 F
92 30 F
!)It 00 F
50 eo F
02 01 F
05 01 F
ItT 00 F
02 01 F
50 BO~ F
02 03·F
02 F5 F
570 F 57A
57"
57" F 57B
578'
576 'F, 578
5711 F 7"F'
60e
576 F 7"F
5711'
57C F 578'
580.F57e·
0016Ee
0016FO
0016F" '
0016FA
001700
00170" :
001708
00170e
001710 '
00171" ;
001718
00171C
90.F
50 90.F
02 00 F
02 03 0
9C 00 C
90 00 e
"7 70 F
91 80F
"7 10 F
91 "0 F
47 10 F
47'FO F
001720
001720
00172" .
FFFFFFFF
0000001"
001728
001731
001738
00IHl
0017"8
0017"F
U
570:
0"11'
0"11 F 121
OItaF 0"8,
000
000
70"
00"
6FA
00"
67C
696
OOllse
001160
••
D709C5E2E2"OC3D6D5
EZD6D3e5"OE2E3
D6D7"04EItOC5D5E3C5
D9100E''E3C9D3C9
E3E840e4elE3C1
00 FA
00
DO
000000
SCPCCWI1I,SCPRK"+2
SCPCC W+" ,x '30'
SCPCCW+"111,SCPRK"+3
R12,SCPRK"
SCPCCW+6(2),SCPRKit
SCPRK"(2),SCPRKA
NHIGH,SCPR51
SCPCCW+61Z) ,sel'ltu'
Rll ,SCPRKIt
SCPDATI,,),SCPRKit
SCPDAT+"'2"6),SCPDAT
•SCPR70 LA
ST
MYC:
SCPR80 MVC'
SID
SCPR90 TID
BC
TM
BC
TM
BC
BC
R9,SCPCCII
R9,CAW
CAWIl) ,CAWKEY
HCAWI",R13.,CAII
OIUZ)
OIR12.
NZ ,SCPR90
SNSW,X'80'
All , sePR80
SNSW,X'''O'
ALL,SCPRlO
UNC,SCPR30
..
1
I
!
IF CCW COUNT OVER 250
8R IF NOT
FORCE cell COUNT TO 250
SET UP DATA FIELD
!
It
SET UP CAW
"
"
LOAD CAW
START 110
TEST 110
REPEAT TID IF NOT ceo
BR IF SEe SS 00 IS 1 - LOOP SID
..
BR IF SEC SS 01 IS 1 - USE UTILITY
"
RETURN TO PROGRAM
00192A
00192E
001932
,001936 '
00193A
X'FFFFFFFF'
X'OOOOOOl'"
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
CONSTANTS FOR UTILITY ROUTJNE - NO BOUNDARY
•
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
SCPRK2 DC
C'PRESS CONSOLE ST' ,
DC
DC
SCPRKA DC
coOP + ENTER UTILI'
C'TY DATA'
X'OOFA'
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
VARIABLES USEO BY OVERLAYS - NO BOUNDARY
•
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
SCHNUM DC
,X'OO'
ROUTINE SEARCH NO. STORED HERE
AREA TO SAVE PRINTAIILE PRINTER ADDR
..
.
..........................................................................
•
•
001l6C
SVC
X'D6',
ROUTINE EXIT
OVERLAYS BEGIN HERE
•
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ORG
SECNO+1900
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
.......................................................................
•
•
ROUTINES, VARIABLES, + CO,NSTANTS USED BY BOTH CONTROL
'
OVERLAY ROUTINES 1 + 2
.......................................................................
•
••
,22JUN65
124249
I5JUL65
124265
00
00
00
00
00
00
00
•••
00U7C
OOU,,/,C
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• '
COME HERE IF OPERATOR ABORTS PROGRAM
r
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
BREX
MVI
SCHNUM,X'FF'
SET SEARCH NO. FOR BUFFER'RESTORE .
92 FF F· 751'
OA 06
00176C
001805
001806 '
001807
001B08 '
001809
COl88E
001927 '
001928
001929
t,
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
CONSTANTS FOR UTILITY ROUTINE - WORD BOUNDARY
•
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
CNOp 0,4
DC
X'OO'
UAPRT DC
'XL3'0'
CNOP 0,"
8CR
0,0
CLAC
DC
X' 000007FF'
07 00
000007FF
I
"
"
"
"
CHECK
VARIABLE PROGRAM, CONSTANTS
150EC65
125601
15MAR66'
125632
15NOV66
125655
10
F80C-5
PAGE
5
0019~E
0619 .."
0019"8
0019"E
. 001952
'001958
00195A
00195C
00195E
001960
001964 .
001968
00196A
001968
00196C
00196E
00197"
001978 '
00197E
001982
001988
00198C
001992
001996
001998
00199C
0019AO
0019A4 .
91 "0
4780
1t5 80
9120
"7 80
02 41
45 BO
OZ "1
"5 80
02 03
OA 00
0004
F 00"
F 936
F 678
F004'
F 9A4
F 57C F "/'60
F 9A6
F 57C F 7Af
F 9A6
f 57C f 805
onc
057C
91 20
,47 10
OA DO
AO
08
F57C
02 41
"5 BO
02 41
45 BO
OZ 41
45 BO
02 41
47 FO
OA DA
91 40
"7 80
45 80
OA 06
f 929
f 9CA
f
f
F
F
F
F
F
F
57C
9A6
57C
9A6
57C
9A6
57C
9BC
••
,...•
·UCSAR
CMpAR
EQU'
EQU
F 84C
F 88F
F 801
FOOl,
F9A4
F 678'
SCPDAT
SCPDAT
II
I
i
LOGOUT INFORMATION ROUTINE
'. EXIT
. TM
BC
BAL
. EIIITI TM
BC
MVC
BAL
MVC
8AL
MVC
SVC
DC
DC
DC
TM
BC
SVC
F 80A
WRITE AREA
CHAN END STATUS
DEV-ENO STATUS
COM8INED CHAN + DEV END STATUS
SENSE DATA
CHECK READ AREA
DATA READ AREA
TEMPORARY CK READ DATA STORAGE
AREA TO TeST FOR EXPECTED BIT
PROGRAM SWITCHES
" BIT 0 - 1ST PRINT. PASS
" BIT 1 - RUN ROUTINE
" BIT 2 - SKIP LOG OUT OF
o'
,.
CHECK + DATA READS
., BIT 7, -WRITE· C.E., PARITY
uca BUfFER LOAD AREA
COMPARE DATA AREA
I53C
X'OO'
X'OO'
X'OO'
X'OO'
133C
153C
X'OO'
X'OO'
, X'OO'
WRAREA OS
CESTAT DC
DESTAT OC
AGSTAT DC
SNSE
DC
CKRDAR OS
ROAR
OS
CKDAlA DC
EXPECT DC
eROGSW.DC
START 110 FOR UTILITY ROUTINE
SCPRK3 DC
SCPRK5 DC' _
.,
001751
001752
001753
001156 '
001756
001758 '
MVC
MVI
NC
ST
MVC
CLC
BC
MVC
SCPRSI ST
MVC
MVC
I
I
PIN 840223 ~
PAGE
5A
FBOC 2B21 SCAN, 1"03 UNIVERSAL CHARACTER SET
FBOC5 RESIDENT AND CONTROL ROUTINE OVERLAY 1
F80C Z821 SCAN, 11003 UNIVERSAL CHARACTER SET.
F80C5 RESIDENT AND CONTROL ROUTlNE'OVERLAY 1
00168Z
001688 .
0016BC
0016C2
0016e6 '
0016ec
001602
001606
00160C
0016EO
0016E6
'.
IBM MAINTENANCE DIAGNOSTIC PROGRAM
8100223
DC
DC
DC
MVC
BAL
MVC
BAL
MVC
BAL,
MVC
BC
EXITlA SVC
TM
. BC
BAL'
SVC
IS SCO'E ROUTINE DEstRED
SNSW,X'40'
BRANCH IF NO
NONE,EXITI
GO TO SCOPE ROUTINE
R8, SCPROO
'IS LOGOUT OF DATA DESIRED
SNSW,X'20' ,
8RANCH IF NO
NONE.EXITZ
OUTPUT(66),WRAREA+l
Rll ,GO
OUTPUTI66),WRAREA+6,,/,
Rll,GO
OUTPUTCO"I.CESTAT
X'OD'
Al21041
Al2(OUTPUT-SECNO)
AL210UTPUT-SECNO) .
SHOULD READ DATA BE SKtPPED
PROGSW.X'20'
8RANCH TO SKIP· READ DATA
ALl,G02
X'DO'
X'AO'
X'OS'
AL2(OUTPUT-BASE+REGI
OUTPUTI661.CKRDAR+l
Rll ,(;"0
OUTPUTl66) ,CKRDAR+67 '
Rll.GO
OUTPUTI661,RDAR+l
Rll.GO
OUTPUTl66I,RDAR+67 '
UNC,G01
X'DA'
IS SCOPE ROUTINE DESIRED
SNSW,X'40'
BRANCH IF NO
NONE,EXITZ
GO TO SCOPE ROUTlNE
RS.SCPROO
EXIT FROM ROUTINE
X'D6'
,
0019A6
0019A8
0019AA
0019AC
0019AE
0019BO
001981
0019BZ
0019B4
001986,
001987
00198S'
0019BA
0019BC
OATE
EC
·OA 00
0042
051C
057C
OA 00
AO
42
F57C.
OA DO
AD
. 4Z
F 5BE
07 FB
"5 BO F 9A6
16JUN65
124263
22JUN65
124249
SYC:"
X'OO'
;l
AL21661
. Ai.;2(OUTPUT-SECNOI
>,g~
Al.Z(OIJTPUT-SECNDI
'. SYC . X'OO' ,
DC
X'AO'
X'42'
DC
Al210UTPUT-BASE+REGI
DC
SVC
X'DO'
jDC
X'AO'
X'42'
DC
SIOUTPUT+661
DC
UNC,Rll
SCR
Rll,GO
BAL
nco
GOl
15JUL65
124265
15DEC65
125601 '
15MAR66
125632
1SNOV66
125655
i"
.10' FBOC-5
pAGE
5A
IBM MAINTENANCE DIAGNOSTIC PROGRAM'
PIN 81t0223
'PAGE
6
F80C '2821SC~N, 1403 UNIVERSA&;,'CHARACTER SET
F80C5 RESIDENT, :A~O CONTROL ROUTINE, OVERLAY 1
0019CO
0019C2
0019C3
0019C4
0019C6
0019CA
0019CC
0019CD
00I9CE
001900
001904 '
001908
0019DA
00190E,
0019E2
0019E6
0019EA
00l,9EE
0019FO
0019F4 '
0019F6.
0019FA
OOlAOO
00lA06
DOlAOC
OOlA12
II
I
I
l
I
'
.
00
00
00
00
FB
F
F
F
F
805
806,
801
808
F
F
F
F
G02
••
•IITCKO LR
18 25
43 02 F 809'
42 OO,F 921
"
10 'F 9F6
41 10 "F 9FO
4620 F 9DA
01 FB,
41 BB 0 :004 '
01 FB
91 00 F 921'
02
02
02
02
01
SVC
DC
DC
DC
8C
SVC
DC
DC
DC
NI
8C
:'."
IITCU'le
SfC
...
HC
19F
lA8
120
00lA14
OOlAlA
OOlAIE
OOlA22
00lA26
01
It1
,50
92
45
81t
00
00
00
BO
F
F
F
F
F
809 F 109
A58
01t8
122
228
00lA2A
OOlA30
OOlA31t ,
OOlA38
00lA3C
00lA40
01
41
50
92
45
01
98
00
00
00
80
FA
F
F
F
F
F
88E F I8E
A50"
Olte'
122
228
OOlAlt8
OOlA50
OOlA58
ti '
OA DO'
80
01
F 126
41 FO F 996'
OA DO
80
08
F51C,,:,
94 OF F 929,
41 FO F 996
1800188F 6000 0001
02 00188F 20000098
06 00 180A, 2000'0084
EX
8C
ICT
8CR
8ITCK2 LA
BCR:'
EXT.. ' ; TM
.'
•
•SAVSTA MVC
MVC
MVC
MVC
B,CR
••
•
READS,
XC
LA
ST
,MVI
BAl
•REAt)SZ' XC
00lA61t
00lA66
00lA6A
00lA6E
00lA12
OOlAllt '
OOlA15
OOlA16
•ADCCN
CCN
, PRRCCN CCII
~RQC;CII tCN
RTNOI
CNOP
DC
De
DC
•INIlOO SR
18 tc
48 CO F'OE2
91 10 F DEI
ItT 10 F AlA
OA DO
Itlt
18 '
FEll
LH
, TM
8C
SVC
DC
DC
DC
:~T_Ic-_-:~_62~_~_:_:_5 ~ _~_~. .,~_:_5 t.;. ~_It_~_~_:_5_ ~ ~_:~
__
__
!
X'OO'
, X'80'
X'Ol'
51510MS1+3)
UNC,EXIllA
, X'DO'
X'80'
X'08'
AL210UTPUT-8ASE+REGI
PROGSN,X'DF'
UNC,EXITU
i
,
t·
RESET SKIP READS LOG OUT SIIITCH
ROUTINE TO CHECK 'aLL 'OStTl'llNS FOR 81TS -CHECK RUD AREA"
SET l~DEx TO MAXIMUM, COUNT
GET A CHECK READ CHARACTER
R2,R5'
RO,CKROARU)
RO,CKOATil,
U,EXTM
ALL,8JTCK2
RZ.81TCKl
UNC.Rll
Rll.ItIRli.OI
UNC.Rll
CKOATA,X'OO'
,~
'.
CHECK' FOR REQUIRED 81T
RETURN TO ROUTINE IF 81T ON
IIERE ALL, POSlnONS CHECKeD
RETURN TO PROGRAM-NO IITS FOUND
ADD 4 TO RETURN ADOIUSS
RETURN TO PROGRAM-8nS FOUND
0' TO CHECK fOR BITS -ExECUTE
0'-
OPS TO SAVE STATUS ANt) SENSE INFORMATION
, CESTATI U ,CSIISAV+4 '
DESTATI11.STATSV
AGSTATI1I .CSIIAG+1t
SNSE III • SENSE
UNC"RU
SAVE CHANNEL END STATUS
SAVE DEVICE ENO STATUS
SAVE AGGREGATE STATUS
SAVE SENSE DATA
RETURN TO MAIN ROUHNe
CKRDAR( lUl,CKROAR
'RO ,CRDCCII
'
lui.CAII,. "
SIOSIIS,X'OO'
Rll.SIO'
.
'.
,.
CLEAR ckeCk READ AREA
LOAD Aooiu:ss OF CHECK RUD tCN
.t·t
.'
.
.
RESET SiD SNITCHES
GO TO STARTJlO ROUTINE
ROAR 1153 t ,ROAR
;: ,LA,
.n.PRRC~',,~"'" ,
ST
'RO.CAII,· ,,',
'MVI
$IOSNS,lC'OO'
,8AI., ' RIl.SI'O
ilCR
UNC',RIO
•
01
' 00
FFFE
I
!
ROUTtNES TO~~ CHECK READ AND DATA R,EAO
••
00lA60
00lA60
00lA61
OOlA62
IBM MAINTENANCE DIAGNOSTIC PROGRAM
.
RESET 'SID SNITCHES
GO TO, S"lART lID ROUTINE
RETt,lRrf TO MAIN ROUT INE
,
i1
if
CLEAR REGISTER 12
LOAD PRINTER ADDR IN REG 12
IS UtS PRINTER DEFINEO
CONTINUE WITH TEST If OEFINED
PRINT MESSAGE-TEST-BYPASSED
~
!I
It
It
••
___
~
001A8A
OOlA8E
00lA90
001A91
00lA92
91 02, f DOlt '
OA DO
80 '
20
FE08
00lA91t '
OOlA96
OOlA9l
00~A98
D,A 00
Olt
2C
FElt9
bOlA9A
00lA9C
OOlAAO
OOlAAIt
00lAA6
OOlAAA
OOlAAC
OOlAAE
OOlABO
1800'
91 10 E 180
Itl'80' F AlA
09 Of
it2 00 F 121
OA DO
0002
00E2
0152
50
Olt
80
50
sve
,INITOS SR
TM
Be
LR
Be
,.
'X'05'
R13,R13
1t06( 14) ,X'40','
NONE,*+6
R13,R1S
TM
sve
DC
DC
, DC
•
SNSN,X'02'
X'DO'
X'80' '
IS TITLE PRINTOUT DESIRED
PRINT TITLE
X'20~
' •• 32 CHARACTERS
________- ._ _
'
_~ _G_E_F_8_0_C-:-6
1~
DC,
" X,';ZL '
,_:
:' Al.21WA'RN,-8ASE+REGI
DC
0
F
F
0
OCHAC2
OOlAelt :
00lAe8
OOlACC
OOlACE
18- 00
58',10,E 198
It! 20',0 064
1D Oil
081t'
OEl
AC2
078
SR
TM,
LA
RS,13210,01
UNIT1+1,X'OIt'
NONE.h8
R't:120tO;.Ol
SET REG 5 FOR 132 POSITION PRINTER
IS 120 POSITION PRINTER useD
8RANCH IF NOT 120 POSITION
,SET GEN REG 5 ,FOR 120 POS PRINTER
SR:
RO"RO;
lSK
De,
'
LA
TM
8C
, ,iii
RO.R2',
'DR
OOlAEE
00lAF2
001AF6
OOIAFB
QOlo~F9
OOlAFA
OOlAFC
9511t, F iiF
1t7 ,,80 F800'
OA 00
1t4
07
FETe
1t7 FO F 92A
001BOO
001806
00180A
OOlBOE
001812
01 '98 F 76C F 16C
41
50
92
itS
001816
00 lOlA
1t5 BO F 9FA
91 01 F 122
.el),
':::' S't",:ax .,'5:l nva",
" ".,',
~'~.\. ',J.,'
,
'"
.. ,'
lif'
SKs)j,x:-ioo',
" l.$~:Sr;OP~ROUTtNE' DESIR,ED
8t' :,N(l,N:E.OOQAOO, ' 8 l \ A N C H IF NO '
8AL'A8:~SCPROD~O':l'O'SCOPE ROUTttiE
91 <40 F DD!t '
41,80 'F ADE
4~80 F ,618 '
F Alt8'
Fil't8'
F 122
F2Z$
,
,
,,
CLfAR REGIS.TER 0
,SEt' UP TIMEOUT CONSTANT fOR 100, MS.
, .; SET UP DIVISOR,
-~. DIVIDE TlMt~G CONSTANT IIY 100"
' . . Sl,ORE 100 ,MS CONSTANT, f'OR USE
',' '
LRl'40~I:ROrln4) ','
:,1:..;', R:l~;100H)
5-0 10'F 10C
1t1
50
92
45
" t.
CLEAR REGISTER 0
IS Sl'ORAGE PR'OTECT ON SYSTEM
8RANCH If NOT
PUT STORAGE KEY IN REG 0
SAVE STOR KEY FOR PR,OG'RAM USE
CONVERT PRINTER A,DDR TO PRINT CHAR
I t 2 BYTES
•• ADDRESS OF PRINTER ADDRESS
" ADDRESS OF PLACEMENT
STe
INIT20 SVC
, DC
DC
-
OOlAOE
00lAE2
001AE6
riOlAEA
ADDRESS OF ,T ITlE
RO,RO
381t111t1.X'lO,'
NONE,I,NIl20
RO.Al5
'
RO"CAIIKEY
X'DD' AU(2)
AL2IUlAODR-SECNO)
AL2-WAPRT-l';'SECNOJ
ec
:.:
It
'PRINT MESSAGE-WARNING NOT ,T-O USE
"
DEVICE UNDER TEst AS
_It
THE OUTPUT DEVICE
X'tJ4' '
DC
It1
91
Itl
1t1
.. . __ ~v;v.?·,:-;;t.~· ".~ . .':\'.:";" ," .:~'::;,~'f
.,,:~~ ~::
y; .
.,~-
'8,r;~~~it~~OIJT:",~"
":C8AOO'~~:,:~:;~~~C~'
,,;,81(t:;.~?1;':~I~;'>,:,
-CLI
,BC
:1 'sve
DC
DC
DC
BC
" .. :'
···.i.,·,"~~ .
~~~~!A~g: ~~D:L~~II C~:TA
' , ' ( " "-
M,VI.S.,OS:WS',X-·OQ'
,
•.
~",)(:<,·~r" ::'~::,y:: ~"
CK
RESET SIC: SWITCHES
GO,TO SID ROUTINE
','
":4¢:'SWS~,V+?~l\':14A' >:;;'Y:,?:,t4~SC'SII RESIDU:A:L, COUNT
,EQ-ftiC,8f«)~ ,,'
'
,X"D'O'"
' X'ltlt"
X'07'
AL2 (ERR002-8ASE+REG) ,
UNC,EXIT
'
OK
BRA'NCH I F OK '
_
ERltOR MESSAGE-C,SW 'RESIDUAL~COUNT ERR
~ ~'.
,t
t.
*
5 _ L !£_E__
r
.,
AUI TI TLEl-,BASE.REG) :
'INITI\) SVC " X 'IlO" ,
00lAB2
00lAB6'
OOlABA
OOlA8E
00
00
00
BO
BYP.ASS TESTS IF NOT,UCS PRiNTER
CLEAR REGISTER 13
LOAD REG 13 WITH THE CONTENTS
" OF REG 15 IF RUNNING
,. IN PR08LEM STATE
8RANCH TO SKIP TITLE PRINTOUT
~ONE,INITlO
.:.':
FULL WORD ALIGNMENT
ROUTINE NUMBER
FLAGS
ADDRESS OF NEXT ROUTINE
t.~._:_!_R3:_6_'_'_~_:_N5~-:~:-;_6_'
...
, ...:.. .....
t5
__
05
DO
'ItO E 196~'
80 F A86
OF
80 F A91t '
",>. :., .
Ii
UNITl+1.X'10'
ALL;INIT05
X'DO' ,
, X 'It It '
X'18'
AL2IBYPASS-BASE+REGI.!
OA
1&
91
itT
18
1t7
". . ,',"
ROOTIN':,PR£.~IX
·:g:~~~DDR
00lA78
OOlATA
OOlATC
OOlABO
OOlABIt '
00lA86
001'1\0'2
00lAD6 "
cOlADA
X'lB',ROAR+l.X'60'.1 ALLOW DATA CHECK CCW
,X,'02·.ROAR+,hX'20'·'f152
,DAtA, READ FROM BUFFER, SLlON
'X '06 i ,CKRDAR+:a,'X'20.,.U2D1AG CHECK Il,EAD CCllit' iSUON ••
ROUTINE 01'
0,4
XU'Ol'
XU'O' ,
X'FFFE'
F80e 2821 SCAN, H03 UNIYERSALCHARACTER SET
F80C5' RESIDENT AND CONTROL' ROUTINE OVERLAY l '
, ~. :."
cl:EARREAD AREA
-LOAU" ADOR'ESS 'OF PAINT AJAf);'C:CN
'0'
PIN
" PAGE
00
00
Olt
BO
~~:~~~~
F
F
F
F
DFO
048
122
228
22JUN65
'121t249
*UCBA05
XC
LA
ST
ueBA10 MVI
BAL
*
15JUL65
121t265 ,
, BAL'
TM'
WRAREAI1531,WRAREA
Ro,SHTcew
RO,CAW
SI05WS,X'Olt'
Rll.SIO
'
LOAD WRITE AREA WITH BLANKS
LOAD ADDR OF SHORT PRINTIIRITE CC~'
STORE PRINT CCW,ADDR. IN CAW
RESET SID SNITCHES- WAIT fOR SYNC Ck
GO TO START 1/0 ROUTINE
Rll,SAVSTA
SIOSWS,X'Ol'
GO SAVE STATUS + SENSE INFO
IS INTERVENTI0NREQ SNITCH SET'
15NOY66
125655
F80C-5
6A
i
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 00 0 0 ,,0000,0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 000,,8
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PIN 8lt0223
PAGE
1
F80C 2821 SCAN, 1~03 UNIVERSAL CHARACTER SET
F80C5 RESIDENT AND CONTROL ROUTINE OVERLAY 1
001BIE
001B22
~18D
,
00182~
01
FE15
41 FO F 92A
001B2C
001830
00 F DF8
50 00 F 0~8
92 00 F 122
45 BO F 228
OOlB3C
~1
OOlBU
80 F
4~
001B5~
~5
~5
00185C
001B60
001B64
001868
001B6C
001810
001814 '
91 04 F 808
n 10 F 8E8
91 02 F 805
~1 80 F 890
~1 10 0 001
45 80 F 908
~1 FO F 886
001818
00187A
001818
001B1C
00187E
001B82
OA DO
~4
001890
~
...
01
FE91
~1 FO F 92A
91 02 F
41 80 F
~1 10 0
~5 BO F
~1 FO F
00189~
001B98
001B9C
oolB4O
I
1
OOlBAE
oo18B2
0018B6
~1
~5
~1
I,!
0018BA
001B8C
001880
00188E
0018CO
OA DO
I
OO18C~
SVC
DC
DC
DC
BC
8C
LA
8AL
8C
•
OA DO
......
10 0 002
80 F 908
FO F BC~
•UC8D25
01
FE9F
41 FO F 92A
•UCB030
91 10 F 808
CSWSAV+7 ,X '1~'
EQ,UC8800
X'DO'
X'ltlt'
X'Ol'
Al2CERR002-8ASE+RE&)
UNC.EXIT
••
"
LOAD ADDRESS OF DIAG PRINT CCW
"
RESET
SID SWITCHES
GO TO START 110 ROUTINE
OR CHAN END STATUS WITH PREVIOUS
IS CSW RESIDUAL COUNT OK
8RANCH IF OK
ERROR MESSAGE-CSW RESIDUAL COUNT ERR
"
If
16JUf'f65
124263
22JUN65
15JUL65
l2lt2~9
12~265
. - - - - - - - -...--'-.-.----------..
~
001BD6 '.
OOlBOA
OOlBDE
0018EO
OOlBEl
001BE2
001BE4 .
91 08 F S08
47 10 F BE8
OA DO
44
01
fE91
47 FO f 92A
001BE8
001BEC
001BFO
001BF6
OOlBFA
91
47
05
47
47
Olt
10
83
SO
FO
F
F
f
F
F
S,,0223
7A
05 77 f 8Bf F 760
41 SO F C68
SNSE.X·O ... •
All,UC8EOO
CESTAT.X·02·
NONE,UCBDOO
Rl,1I0.0)
Rll.BITCKO
UNC.UCBC50
WAS UC8 PARITY ON WITH WRITE.
BRANCH IF ON
WAS UNlT-CK ON AT· CHANNEL-END
BRANCH IF OFF
SET MASK TO LOOK FOR PARITY CK
GO CHECK IF ANY 7 8ITS IN CK RD OATA
NO BITS FOUND - 8R NO PARITY· ERRS
001COS
001COE
001C11t·
001C18
001C1C
001C22
001C26
0200
02 82
91 04
47 10
05 83
~7 80
~7 FO
X'DO'
ERROR MESSAGE -DATA 'REGiSTER PROBLEM
to OR PARITY"CIRCUITS PROBLEM
X'~4'
X'Ol'
Al2CERROO~-8ASE+REG)
SCHNUM,X'U'
UNC,EXIT
X'DO'
X'It It ,
X'Ol'
If
SET•• UP
SEARCH FOR PRINT DAT REG FLT
ERROR MESSAGE - FALSE UNIT CK
"
"
.,
Al2CERR005~8ASE+REG)
UNC ,EXIT
DESTAT ,X'02'
NONE, UCBEOO
R1,1l0,OI
, Rll,BITCKO
UNC,UCB020
WAS UNIT-CK ON AT DEVICE-END
BRANCH IF OFF
SET MASK TO LOOK FOR PARITY CK
GO CHECK IF ANY 7 8ITS IN CK RD DATA
NO BITS FOUND - BR NO PARITY ERRORS
"
"
"
8AL
BC
Rl.2CO.01
Rll.8tTCKO
UNC,UCB030
SET MASK TO LOOK fOR PRINT CKS
GO CHECK IF ANY 6 8 ITS IN CK RD DATA
NO BITS fOUND - BR NO PRINT CKS
SVC
DC
DC
DC
BC
X'OO'
X·It ... •
X'07'
AL21ERR007-BASE+REG)
UNC ,EXIT
ERROR MESSAGE - FALSE PRINT CHECKS
"
,COULD BE COMPARE
"
CIRCUITS PROBLEM
X'DO'
ERROR MESSAGE- BUFFER PROBLEM
X'~It'
TM
to
WAS EQUIP CK ON AT DEVICE END
15MAR66
125632
15NOV66
10· fSOC-5!
_1_2~~~_~ _ _ _._ _ _ _ _ _ _ , ____PAGE ~ ___ ~.:.J
001C2A
001C30
. 001C34 .
001C36
001C37
001C38
001C3A
001C3E
001C... 2
001C46
F
F
F
f
F
05 77 f 570 f aaF
47 80 F C3A
OA DO
It~
001C4E
001C50
07
FEB4
41 05
41 10
91 ...0
47 SO
... 1 11
15 01
47 60
001C54
001C56
001C57
001C5S
001C5A
OA DO
Itlt
07
FE88
47 FO f 92A
001C~A
001C5E
001C60
001C61
.001C62
001C6 ...
F
F
1
f
0
8SF
BSf
000
C5E
001
f
C~2
OA DO
SNSE,X'OB'
ALL,UCBEOO
X'OO'
X'ltlt'
X'07'
AL2CERR005-8ASE+REGI
UNC.EXIT
WAS DATA CK PRESENT AT DEVICE END
BRANCH IF ON
ERROR MESSAGE -FALSE UNIT CHECK
BC'
CLC
BC
BC
UNI Tl+l,X 'Olt'
ALL,UCBElO
ROAR+lI132),WRAREA+l
EQ,UCBFOO
UNC,UCBE20
IS 120 POSITION PRINTER USED
BRANCH If 120 POSITION PRINTER
WAS DATA READ SACK OK-132 POSITIONS
BRANCH If OK
8C
RDAR+11120),WRAREA+l
EQ.UCBFOO
WAS OATA READ BACK OK-l20 POSITIONS
BRANCH IF OK
MVC
TM
BC
CLC
8C
BC
CMPAR+ICl),ROAR+l
CMPAR+2Cl31I,CMPAR+I
UNI Tl+l,X '04'
ALL,UCBE25
CMPAR+l(132),ROAR+l
EQ,UCBE50
UNC,UCBE30
CHECK IF ALL BITS READ THE SAME
CMPAR+ICI20I,RDAR+I
EQ,UCBE50
X'DO'
"
"
ERROR
•UCBEI0 CLC
•UCBE20 MVC
,..
UC8E25 CLC
BC
UCBElO SVC
DC
DC
DC
UCBE50 LA
LA
UCBE52 TM
BC
LA
CLR
BC
•
91 08 F SOS
47 80 f C7A
OA. DO.
001C7 A
001C7E
41 05 F 80A
41 10 F 80A
44
16JUN65
12 ... 263
22JUN65
124249
X'"''''
X'~4'
..
..
"
....
"
..
IS 120 POSITION PRINTER USED
.. BRANCH If 120 POSITION
.."
..
to
• I
X'07'
AL21ERROIO-8ASE+REG)
RO,ROAR+IIR5)
Rl,ROAR+l
O(Rll,X'~O'
NONE,UCBE60
Rl,lCRI,OI
RO,Rl
UNEQ,UCBE52
MESSAGE- INTERMITTANT BUSS IN
PROBL EM
tt
SET" UP MAXIMUM COUNT
SET UP 8EGINNING OF AREA
CHECK fOR A 1 BIT
BRANCH If NO 1 BIT
UPDATE INDEX 1 BY 1
WERE ALL POSITIONS CHECKED
GO CHECK NEXT POSITION
SVC
DC
DC
DC
BC
X'OO'
X·lt4·
X'07'
AL21ERROl1-BASE+REGI
UNC ,EXIT
ERROR MESSAGE - fOLDING PROBLEM
t.
OR 8USS IN 1 BIT
"
PR08LEM
SVC
DC
DC
DC
BC
X'OO'
X'44'
X'07 '
AL2IERR012-BASE+REGI
UNC ,EXIT
ERROR MESSAGE -BUSS IN PROBLEM
"
PICKED UP BITS.
TM
BC
UCBF05 SVC
OC
DC
DC
BC
,..
SNSE,X ' 08'
NONE, UCBF 10
X'OO'
X'44'
X'07'
AL2(ERROI3-BASE+REGI
UNC ,EXIT
WAS OATA-CK PRESENT
BRANCH IF NO
ERROR MESSAGE- FALSE DATA CHECK
UCBFIO LA
LA
RO,CKROAR+I1R5)
Rl,CKRDAR+l
SETUP FOR MAXIMUM COUNT
INITIALIZE INDEX 1
•UCBE60
07'
FEC2
47 fO F 92A
07
FEC9
It7 FO F 92A
DATE
EC
.UC8040 TM
BC
UC8050 SVC
DC
DC
DC
BC
4 ...
001C68
001C6C
, 001C70
001C72
OOlC73
001C7 ...
001C76
BRANCH IF OFf
ERROR MESSAGE - fALSE EQUIP CK
X'07'
AL21ERR008-8ASE+REG)
UNC.EXIT
•UCB.EOO .TM .
570 F SSF'
57E F 570
OEl
C2A
570 F 88f
f C3A
f C34
NONE , UCBOitO
X'OO'
BC
UC8D32 SVC
DC
DC
DC
BC
•
OEI
BFE
B8F F 760
C68
COB
OOlBFE
001COit .
X'Ol'
AL21ERR006-BASE+REG)
UNC,EXIT
150EC65
125601
....... , ..•
47 BO F BD6
OA DO
41t
07
FEA6
It7 FO F 92A
GO SAVE STATUS + SENSE INFO
GO DO CHECK READ + DATA READ
I
DATE
EC
001BCB
001BCC
001BCE
OOlBCF
001BOO
OC,lB02
Rll.SAVSTA
RI0.REAOS
SVC
DC
DC
DC
8C
•UC8D20 LA
It...
,
SVC
DC
DC
DC
MVI
BC
•UC8DOO TM
806
8E8
001
908
8AE
01
FE98
41 FO F 92A
'.I
•UC8C50
OA DO
00lBA4 '
0018A6
OOlBAl
0018A8
0018AA
j
•UC8C05
07
FEeA
92 83 F 151
~1 FO F 92A
001B86
001888
001889 .
001B8A
00lB8C
I
LA
8Al
8C
..
X'~""
CESTAT(1).CSWSAV+~
BC
TM
8C
8RANCH IF OFF
ERROR MESSAGE-SYNC CHECK
X'Ol'
AL21ERROOI-BASE+REG)
UNC ,EXIT
OC
•UC8800 8Al
BAl
•UC8COO TM
BO F 9FA
AO F A14
001858
NONE,UC8Al1
X'DO'
RO,DPRCCW
RO,CAW
SIOSWS,X'OO'
RU, SIO
CLI
PAGE
fBOC 2B21 SCAN, 1403 UNIVERSAL CHARACTER SET
F8DC5 RESIDENT ANO CONTROL ROUTINE OVERLAY 1
LA
ST
MVI
BAL
8C
UC8A20 SVC
·
DC
DC
DC
8C
n~
01
FE7C
~1 FO F 92A
001850
!
•
OA DO
0018~C
001B~D
OOlB~E
J
•UCBAn
06 00 F 80! F IIC
95 1~ F UF
0018~2
0018~6
!
BC
UCBA15 SVC
DC
DC
DC
BC
~1
00lB38
I
F82C
It~
001B25
001826
001828
00183~
i
OA DO
PIN
IBM MAINTENANCE DIAGf'fOSTIC PROGRAM
*UC8fOO
.15JUL65
124265
,150EC65
125601
15MAR66
125632
15NOV66
125&55
, t
"
"
"
"
"
10
FBOC-5
PAGE
7A
PIN
PAGE
IBM MAINTENANCE DIAGNOSTIC PROGRAM
FBOC 2B21SCAN, 1403 UNIVERSAL 'CHARACTER SET
F80C5 RESIDENT AND CONTROL' ROUTINE .OVERLAY 1
001CB2
001C86
001C8A
001C8E
001C90 .
001C94
91
47
41
15
47·
41
04
80
11
01
60
FO
1 000
F C98
001C98
001C9A
00lC9B
DOIC9C
DOlC9E
OA DO
44
01
FEOO
41 fO F tZA
F C82
F eA2
DOICA2 .
OGICA8
OOICAe
OGICB2
001eB6
OOICBA
DOlCBE.
01
41
02
41
50
92
45
001eC2
001eC6
45 BO F 9FA
45 AO F A14
OOlceA
001eoo
41 80 F 034'
OOICOit
001C08
OOleoe
OOICEO
UCBF15 TM
BC
LA
CLR
BC
Be
a 001
•UCBF20 sve
De
DC
DC
Be
•UCIGOO XC
98 F 16e F ?6C
90 F E28
00 F 160 .000
00 F EOO
00 F 048'
00 F 122
BO F 228
05 00 F 88FF '160
95 FF F 160
4180 F Celt
DOICE4 .
00 lC E8.
OOICEC
41.1,00001 ..
45.110 .. F.908.
ODleFO
OOle"It '
001CF8 .
OOLCFA
OOleFB
DOtCFC
OOlCFE
001002
·91·0Z F.805.
41tw'FD06'
OA. 00
. 44
"
CLC
BC.
RDAR+111"WRAREA+1
EQ,UCBKOO
WAS 1ST BYTE READ AS EXPECTED
BC
CLI
BC
...., ;':~~.
IIRAREA+l,X'FF'
· EQ,UCBG25
ROA.R+l.X '00'
UNEQ.UCBM,OO
.~r11~..q,1
silt
.x~QQ!·
ot
DC
Mn
X'07 i
De.' ·····X··"'4·
01
F1:07
92 83 F151
It7 FO F ·tZA
·UC.BG40 SVC
DC
DC
D.C
Be
44
.
07
FEOE
47 FOF 92A
,....
a~H
~
OJiJ .1'011 waIn
J.F 'ofiO • •.:r CK .,
. 1tA$ Ultn
c~_ ,
'''',,;
UROIl "USAGE-'PRIMT OAt...UG .0'1···h.t.OST..BllS ,
.
X
ERROR MESSAGE - PRINT ·BUFfER PRO~~
t.
LOST BITS
.
".4 ,
X'O'1'
AU.t$RI\~16.. tA:SE+R1:Gt;.
UNq:~EX-.n
' . '. ". .•. "
..
t .t.
;
001010
001012.
001013
OA 00
001016
07
FEE5
47 FO F 92A
OOlOlA
OOlDIE
91 80 F 160
41 80F 02A
001022
001026 .
95 CO F 88F
41 80 F 044
OA DO
I
00102A
00102C
001020
00102E
001030
j
DATE
001014
. 1
1
1.1
I,
L_.__ E~_
"UCBG50 SVC
DC
DC
DC
BC
44
•UCBHOO,TM
BC
•
CLl
BC
•UCBH30 SVC
DC
DC
DC
BC
44
01
FEEC
47'FO F 9ZA
16JUN65
124263
22JUN65
124249
15JUL65
12~265
¢
!*
15DEC65
125601
840223
· X(1)~!,.
x·~··
· X'07'
AL2IERR017-BASE+REGI
UNC,EXIT
ERROR 'MESSAGE - BI;IS.S IN PROBLEM
..
"
. ,. to'
WRAREA+l,X '80' .
NONE,UCBH30
IS 0 BIT BEING WRITTEN
BRANCH IF NOT 0 BIT
ROAR+l,X'CO'
EQ,UCBK10
WAS 0 + 1 BIT READ BACK
BRANCH IF 0 + 1 BIT, FOLDING EXISTS
X'OO'
ERROR
X'~4'
X'07'
ALZIERR018~BASE+REG.
UNC.EXlT
15MAR66
125632
15NOV66
125655
,.
"
LA
SAL
BC
BC
R1,1(0,01
Rll,BlTCKO
UNC ,UCBKIO
UNC.UCBC05
CHECK FOR PARITY· CHECKS-SET MASK
., GO CHECK FOR 1 BITS IN CK READ
•• NO BITS FOUND-BR NO, PARITY· ERR
" PARITY ERRORS FOUND
LA
LA
R9,lIR9.01
RO,OATA1+9
R9,RO
UNEQ,UCBG10
UPDATE INDEX 9
SET UP MAXIMUM COUNT
WERE ALL BITS CHECKED
GO GET NEXT BIT
41 10 0
~5 BO F
~7 FO F
~1 FOF
001044
001048
001D4C
00 1 DItE
41
41
15
47
001052
001056
00105C
001060
001064 .
001068
92 FF F 760
02 B2 F 16E F 760
.50 00 F 048
92 00 F 122
~5 BO F 228
ST
MVI
BAL
WRAREA+1.X'FF·
LOAD WRITE AREA
WRAREA+2U311 ,WRAREA+l "
RO;OPRCCW
LOAD ADDRESS OF
RO,CAII
STORE PRINT cell
S.10SIIS.'X'00·
RESET START 110
Rll,SIO
GO TO START 110
00106C'
001070
45 BOF 9FA
45 AD F A14
BAL
BAL
Rll ,SAVSTA
R1.0,REAOS
GO SAVE STATUS + SENSE DATA
GO DO CHECK READ + DATA READ
001014
001018
00107C
001082
001086
91
47
05
47
47.
TM
BC
CLC
BC,
BC
UNITl+l.X'04·
ALL.UCBL40
WRAR.EA+l 113Z) ,RDAR+l
UNEQ: •.UCBLSO
UNC,.UCBL60.
IS 120 POSITION PRINTER USED
BRANCH IF 120 POSITION PRINTER
WAS DATA READ OK -132 POSIT IONS
BRANCH IF NOT OK
001
908
044
B7B
•UCBK10
99 0 001
00 F E31
90
60 F CAC
CLR
BC
•UCBLOO. MVI
MVC
41 00 F DF8
LA
•
04 F OEl
10 F DBA
83 F 760 F 88F
60 F D9~
FOF. D9E
~CBL40
. Q5-,7 F 760 F .8F
47·BOF 09E
Ctc'
'8e
IIR~~A.+t't120:' ,ROAR-',l
EQ:,:UCBL60;'
wiTH ALL BITS
PRINT IIR ITI cell
ADDR IN CAli
SWITCHES
ROUTINE
WAS DATA. RUD OK -120 POSITIONS
BRAN.C.H IF OK
.001094. " OA ~O. "
Olll096
. 44.:
···.·f)O.lD~n.·
. (jO fD9&'
07.
:FEFa' . , ' . :,;
liiho9.•. ';47'FO:F 92A
o
··''';'.g!!~;"mc1t'''''·'''·'··'·''''''N''''''''''
. 001DB04!j'B\JF';t28 .
....
X"oo'
•UCBKOO
001034.
001038
00103C
001040
0010aA
001090
AUlERROl'-BASE+REC» ' \ " . '
.
'"
.
.' SCHNUR.,x.i a3 t .. :
..... SET. 'lUi' SEHal fiOli.· PIUNI.on.RE,Gl'U
8CUNc.t~n ."
.
..
OA DO
IS DATA FF BEING CHECKED
BRAN.CIi IF DATA FF
WERE NO Bns IN FIRST BYTE
BRA.t4CIi H'BBS. ~RES1!NT
~·:~~~,~
BC.';.: iJliieCf.l)eifI:;15·
UCBL72MVI "SCHNUM.'X·'a2 l .:
Be'
UNC,EXlT2
•UCBL15
OA 00
44
07
,FEFA
41 FO F 92A
._-_...._.- -_.. _---
000000000000000000
o
07 00.
05 00.1760 2000 0083
..
""
:'
.-~
::' ..
SVC
DC
DC
DC
BC
'. '·B.RA:NCH IF NOT O.K
SET SEARCH NUMBER FOR ROUTJNE 2
X'OO'
X'44'
X'07'
AL2IERR020-BASE+REGI
UNC ,EXIT
ERROR MESSAGE -INSERT BLANKS,PROBLEM
Of
"
"
*••••••• *•••••• *.......................................................
•
16JUN65'
124263
;-
':" '. '..
UC6i''10ClC:::tla:.A~~Cll'in~:~2, '.' .. ~,....:
"''''''1''':-''':-'-''-:c::':'''>"J'':"--;""
UAPRT
UCSAR
UNITl
AGSTAT:
BITCKO
BITeK1
BITCK2
BYPASS
CANKEV
CESTAT;
eKDATA
eKRDAR
3
250 '
1
1
2
4
4,
16
1
1
1
1
PGNPSW
PGOP5N
·PRceW2
PROGSN,
PRRCCN
READS2
REGOMP
SAVSTA
SCHNUH:'
SCPCCN
1568, ' 1AOC
1288, 1288,
lA6A.
lA06
1B70.
19EA
19E6
1Al6
12102.
1952.
19DE,
196E,
1C7E
lAlA
l3DC
19FA,
1AOO,
182C,
1826
1AFA,
187C
188A,
18A8
111BE
1BDO:
1e38
1e58
1C62
1C74
le9C
1CFC
IDOA
1014 '
1D2E
1D98
1DE8
1ge6,
12E4, ' 130C,
145A,
14lE,
IDBC
lA86.
18E8.
lC14,
ID74.
lBge.
18B2.
1CE8.
1038 '
148C,
19FA.
19F6
1971.
16F4,
1UC,
lAA6
1864,
lCFO
190A,
1Al4,
lAlit,
lAEE,
1890
1D'C
183e,
lASB.
250
4'
2
4
4
4'
4
4
4
6
4
16
4
4'
lA80
1C7A
4'
2
8"
6
4
18"2
18ltE
6
4
4
4
6"
4'
4
4'
2
6
62
6
4
6
2
6
44,'
4
6
4
6
.4
4
4
4
6
4'
16
1812
.{-
19D4·
1AbE
1A86 1UO
16 193E.
1978;
19CE
1948,
1982,
1e82.
1960.
lA30
1DA4 '
1900
1952.
198e.
19SC,
19AA.
195E.
19AC.
196C.
1982,
16
196E
19B8
16
1
1816. 18S4.
11se.-- 187E.
1682. 1688.
22JUN65 - 15JUL65
124249
124265
4
4
4
1CC2.
1CFE.
168e.
15DEe65
l25601
106C.
IDDe
16C6.
lSHAR66 '
125632
1D84
1606,
4
1
4
16EC
lSNOY66 125655
10
F80e-s
PAGE
11
1_
DATE
EC
1570, 16EO, 16E6, 16E6,
SCPDAT
1932, 19AO, lADA
SCPROO
1718,
SCPRI0
SCPR20
16A6
16AA. 171C
sePR30
168A
SCPR40
1692
sePR50
1602
SCPR51
SCPR70
sePR80
1710
1708
SCPR90
sePRK2 ' 1680
1682, ' 1686,
sePRK3
SCPRK4 :' 16AE;, 16112f, 168C. 16C2,
16E,0:; ~.'
1724SCPRK5 "
174F sePRkA' "l:~~·)~;~~D6"i
10FO smcew1232 SlDAOO-- i2le,; -,i2i14{:: :(zAC. :1'2(;8.
1280.- 12AO. '12D8~ 12F4,
1274SIOAOI
138E, 1408. 144B. 1456 1210
,1288 SIOA02
1266
,12A4SIOBOO
12A4 '
uee SIOeoo
1200
12F8 SIOOOO
134A. 1352
Boe SIOD02
137C
133A SIOD03
12FC
1346 SI0004
1330
1362 SIOEOO
1372
1380 SIOE01
1362, 14lC
147E SIOFOO
149A SIOFOl
155A. lS62
14e4.' 1400
14F6S IOF02
148e
1500 SIOF03
lS12
150A SIOF04
151A SlDF05
150E. 1516
1538 SIOF06
lS24. 152e
1534
154A SIOF07
14F2. 14Fe, 1546.
1552 S10F08
14Ae~
138E, 13C8
13AA SIOIOO
13AA
13B2 SIOI01
13SE, 138A
13e2 S10102
nee 510103
13AE. 1386, 13E6
1300
13EA 510104
BFA
140e 510105
12SE, 13SA, 139C, 1418,
1438 510106
1424
143E 5IOI07
1410
144e SIOI08
13FE, 143E, 144C
14SA 510109
138A SlOlNT
1070
1288, 1294, 1296, 129E,
1123 S10MSI
12e6, 12E2, 12E4, 12EA.
1156 -S10MS2- 130C. 1318, 1326, 1328.
1384, 1408
1406, 1446, 1454, 145A,
HAC SIOMS3
1478
147E. 1498. 1484, _14eo.
HEA SIOMS4
14EA, 14FO, 14FA, 153E,
125A, 1356, 1398, 13ee.
1122 S10SN5
1A38, lAE6. 180E, 18lA,
LOAC
1228, 1438, 1678, 1696
IOE4 5 IOVR 1
122e,
154A, . 169A
1114 SIOVR2
1232, 1232, 13lA, 1324,
1118 SIOVR3
13EA, IF01
12S6. 1262. 12CC
1108 S10VR4
USS SIOVR6
1480. ,1488, 14CC
1110 SIOYR7
16JUN65
124263
----,:---->~~-.---.
'~. :~
.. ~~:._L . ~ 'c
y
157C
1678
167C
1686
1696
16A2
16AE
160e
16EC
16FA
1704
1728
1720
1578
22JUN65
124249
.. '"--...--
~ -~---
15JUL65
124265
15DEe6S
125601
lSMAR66
125632
192A,
192A,
1FOl
16C6,
16ec,
16DC
1308,
1304.
1342
13U,
1386 '
I
;'"
1-
USE
1430
1286,
12F2,
1338,
1288,
1ge4
136C.
128E
1466,
146E,
1476·
14e8.
1544
1428.
1834,
1404.
1408
1434.
1e8A.
1A22
1064 '
132e.
133A,
1392
137 A
i~
'
15NOY66
125655 ,
.-,~.
-~,
kI
""""_.-
FBOC-5
ID
1lA
PAGE
.
- - - - -------------------_.
".'
IBM 'MAINTENANCE OIAGNOSTltPROGRAM
PIN 840223
'PAGE
12
F80C 2821 SCAN, 1403 UNIVERSAL . CHARACTER SET .
F80t5 RESIDENT AND CONTROL ROUTINE OVERLAY 1
I
':~\-1
8'
1220 SIOVR8
110t SIOVR9
1568 SNSCCW119F STATSV'
8
1060 SVNPSW
1020 'SVOPSW ,.
8
16, lE08 TITLEl :
2
10E2 UUOOR
It
lADE UCBAOO
6 " 1800 UCBA05
It
180E UC8AIO
1822 UC8A15
2
4: 182C Ut8Al1
2
184A Ut8A20
4' 1854 Ut8800
4' 185C UtstOO
IS18 UCSC05
2
2
1886 Ut8t50
4
1890 UtSOOO
18AE UC8020
4
lS8A UC8025
2
It
18C4 UC8030
2
18Ct UC8032
4'
1806 UC8040
2
180E UC8050
It
18E8 UC8EOO
6
18FE Ut8ElO
6 " It08 UC8E20
6
lC2A UC8E25
2
lC31t UC8E30
1t3A Ut8E50
It
4' 1C42 UC8E52
1C5E UC8E60
2
4' 1C68 UC8FOO
2
1Cl0 UC8F05
4. 1C1A UC8FlO
4: 1C82 UCBF15
2
1C98 UCBF20
6
lCA2 UCBGOO
6- 1CAC UCBGI0
4
1CE4 UC8G25
2
1006 UCBG40
2
1010 UCSG50
It. lOlA UCSHOO .
2
102A UC8H30
4
1034 UC8KOO
4
1044 UCSKI0
4
1052 UCBLOO
6
108A UCBL40
2
1094 ueBL50
6
109E UCBL60
6
1002 ueBll0
4
100C UCBL12
2
10E4UCSL15 .
116C WRAREA
1
4
8'
2
I!
,
I
I
1
1000 XF80C5
140E, . 14E8,
1530, 153C
13A6, 1301t,
14B4
13AO. '. 13AO,
lA92
lA66'
1A06
lAF2
IBM MAINTENANCE
DIAGNOSTIC:.P~~~RAi4;~
J.40~:~~'IV~~~A~·.·'c·~i~~~~~~~':s~t.:,~:",
...•.:,.'. ,
151A,
1520,
UFO,
lAOO
lACE
13EO,
••••••• *•••••••••••••• *••••••••••••••••••••••••••••••••••••••••• _••••••
1040
1814 '
186B
IBAO
lS86
1Bt8
180A
SEC NO EGU
SNSW
EGU
CSW
EQU
CAW
EGU
UNITI EQU
UIAODR EQU
SIOVR3EQU
SIOVR4 EGU
SIOVR9 EQU
SIOSWS EGU
STATSV EGU
CSWAG EGU
CAWKEY EQU
SENSE EQU
SIO
EGU
SCPOAT EGU
SCPROO EGU
SCHNUM EGU
UAPRT EGU
••••••••••••••••••••*.*•••••••••••••••*••••••••**••••••••••••••••••••••
WRAREA EQU
CESTAT EQU
DESTAT EGU
AGSTAT EQU
. SNSE
EQU,
CKRDAR eQU
ROAR
EQU
CKDATA eQU
EXPECT EQU
PROGSW,EQU'
•
•
•
UCSAR EQU
CMPAR EQU
EXIT
EGU
EXIT2 EQU
BITCKO EQU
SAVSTA' EQU
READS EQU
READS2 EQU
00176C
001805
001806
001801
001808
001809
00188E
001927
001928
.001929
00151C
00157C
00192A
0019A4
001908
0019FA
001A14
001A2A
1090
1BOO,
lCCA,
108A,
1EOO
1800,
lC04.
109E,
IBFO,
lOlA,
109E,
18FE,
1052,
10CIt,
lCA2
1056
1002
001015
001A8C
001A8C
00lA80
00lA8E
NO ERROR DETECTED IN ABOVE ASSEMBLY
16JUN65
124263·
2ZJUN65
124249
15JUl65
124265·
>
ROUTINE OVERLAY 1 LABELS ADDRESSED BY ROUTINE OVERLAY 2
001015.
00lA8C
001A8t
••
ORG
DC
ORC
.:•
150EC6515MAR66'
125601
i25632
15NOV66'
125655
: 10
F80C-5
PAGE
12
DATE
EC
.'
'•.
. 02
,00
FFFE
16JUN65
124263
RTN02
22JUN65
124249
15JUL65
124265
SECNO+1900
WRAREA+153
WRAREA+15It'
WRAREA+155
WRAREA+l56
WRAREA+157 '
WRAREA+290
WRAREA+443
WRAREA+lt44
WRAREA+445
WRITE AREA 153 POSITIONS
CHAN END STATUS - 1 POSITION
OEVICE END STATUS - 1 POSITION
COMBINED CHAN + DEV END STATUS-l POS
SENSE DATA - 1 POSITION
CHECK READ AREA - 133 POSITIONS
DATA READ AREA - 153 POSITIONS
TEMPORARY CK READ DATA STORAGE-1 POS
AREA TO TEST FOR EXPECTED BIT- 1 POS
PROGRAM SWITCHES
" BIT 0 - 1ST PRINT PASS
" BIT 1 - RUN ROUTINE SWITCH
" BIT.1 -PARITY AT WRlTE CHAN-END
UCS BUFFER LOAD AREA - 241 POSITIONS
COMPARE DATA AREA - 133 POSIT IONS
SCPOAT
SCPDAT
WRAREA+446'
EXIT+122
EXIT2+52
BITCKO+34
SAVSTA+26
READS+22
I
I
!
:I
t
SVC D6 EXIT FROM ROUTINE
CHECK BIT ROUTINE
SAVE STATUS + SENSE DATA
DO CHECK READ + DATA READ
DO DATA REAO
SECNO+21
Al31RTN02)
SECNO+2100
INITIALIZE OVERLAY
START OF CNTRlPROG, RTNE OVERLAY 2
ROUTINE ,PREFIX
•
OATE
Ee
•
SECNO+4 .
SECNO+64
SECNO+12
SECNO+224
SECNO+226
SECNO+280
SECNO+264
SECNO+268
SECNO+290
SECNO+415
SECNO+420
SECNO+289
SECNO+288
SECNO+552
SECNO+1404
SECNO+1656
SECNO+1813
SECNO+1815
•••••••••*••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
103C
1008
1948,
lCAC,
101C,
10F8,
,
•••••••• ** ••••••••••*•••••••*•••••••••••••••••••••••••••••••••••••••••
;..
, RESIOENT LA8ElS ADDRESSED BY OVERLAYS
.** ••*.***•••••• *.*.*.** ••••••••••••••••••••••••••••••••••••••••••••••
001000
001004
001040
001048
0010EO
0010E2
001118
001108 '
OOllOC
001122
001l9F
0011A4
001121
001120
001228
00151C
001678
001751
001153
1B46
1018
1082
1086,
lOCO
10CE
10CA,
193E,
1CA2.
1056,
10FO,
80C5
TITLE F80t5 CONTROL: ROUTINE OVERLAY .2
XF80C5 START 4 0 9 6 '
\
USiNG .,15
, \ '
001000
IBIE
1C6t
1C90
lC86
1C94
104E
1C08 .
ItFIt .
ICEC
ICED
101E
lCOO
1026,
I·
1528
lAAE
1860, 1894,
IBEt
18FA
It18 .
It26
1C22, lUO
1C50'
1C46 .
1BF6' le04 '
!
F80C 2821 SCAN,
FBOC5 CONTROL ROUTINE OVERLAY;. '2 - '. ,:'
1500,' 1500,
13C2.
PIN 840223
. PAGE
12A
_'..';' .
CNOP
DC
DC
DC
ROUTINE OVERLAY 2
0,4
XL1'02'
XLl'OO'
X,l2'FFFE' '
r
!
FULL WORO ALIGNMENT
ROUTINE NUMBER
FLAGS
'
LAST, ROUTINE
I,
f
IF HERE, PRINT 8UFFER + ASSOCIATED CIRCUITRV O.K.
15DEC65
125601
15MAR66
125632
15N OV66
125655
i'
. 10
F80C"'5
PAGE
12A
'~----..,..--- .. -;----,...",.-.~-,-~-~"' ..
[I
-..,.-.-,-'
1:
o
00000000000 000000000000000000000
_--_.
'----
.. ...
---~ ,
------.,-----------,--
o
000000000000000 00,00000000
PIN 840223
PAGE
13
IBM MAINTENANCE DIAGNOSTlC PROGRAM
F80C 2821 StAN. Ilt03 UNIVERSAL
FBOt5 tONTROL ROUTINE OYERLAY 2
00IA90
00lA94
OOlA98
00lA9C
COlAAO
COtAA4
001U8
OOlAAC.
COlABO
OOlAB4
00lAS8
COlABE
00lAt4
OOlACA
00 lACE
001AD2
COlAD6
OOlADA
OOlADE
OOllEl
OOlAE6
OOlAEA
OOllEC
OOllEO
OOiAEE
O(llAfO
G01Aflt
OOlAf8
OOlAft
OOlAfE
OOlAFF
001800
001802
91 40 F 929
47
92
95
47
96
41
91
1t7
Itl
01
D7
02
96
80
40
50
04
80
50
81 F 51t F57C
6E
83
20
Itl 00
50 00
92
1t5
1t5
A9C
751
151
9A4
F 929
0 OB4
F OEI
F AB8
0 078
f
82 F
82 f
60 F
04
60
80
F 5FE F 5FE
F 760 F 570
F 929
F ElO
F 048
F
F
F
122
228
9FA
95 lit F llF
47 80 F Af4
OA DO
OOU1Q6
00180A
91 02 F. 801
ooUOE
001812
OOU16
910" FBoe
Itl 80 F B24
OA DO
"It
01
00.1818
001819
00181A
~U,l!Jt
"po.).{WO
001824
001828
oo182t
.001830
.0011'34
001838
00183C
OOl83E
,Q0183F
. 001840
00 1 Bit2
001B46
DATE
Ee
47 80 F 846
••
•ENTRY
START CHECKOUT OF UCB CIRCUITRY OF PRINTER ICU
Tfi
8t.
MVI
ENTRVl CLI
BC
01
LA
TM
8e
LA
•
•UC8MOO
XC
XC
MIIC
01
LA
ST
••
MVI
.BAL
BAL
•
CLI
ac
SVC
DC
DC
DC
91 10
41 10
.91 08
·41 10
·91 ItQ
F 808
F Dca
F8Q8
f 8ft
F .s08
.ttl 80 F,l)U
QA
Itlt
Q1
DO
TM
BC
UC8Ml0 SVC
DC
DC
DC
BC
•UC8M20
•
41 90 F UO
22JUN6",
121t249
SJOSWS,X'OI'
NONE.UC8M20
X'OO'
X 'It It •
X'Ol'
ALZ(ERR031-BASE+REGJ
UNe,EXIT
IS INTERVENTI.ON ~EQ SWITC,", SET
BRANCH IF OFF
PRINT MESSAGE - SYNC CHECK
.,.
f.
,,
00lB11t
001818
91 01 F 122
41 10 F AFC
00187C
00lB80
001881t
001888
91 02 F
H 80 F
91 04 F
41 10 F
00188e
001890
001896
00189C
00 18 AD
ooiUIt
D01BAS
94 OF F 929
D2 00 F 160 9 000
D2 82 F 76E F 760
41 00 F f20
50 00 F OItB
92 00 F 122
ItS 80 F 228
0018Ae
001880
45 80 f 9FA
45 AO F Alit
.,OOlBJIt
91 .02 F ..801
1t180 f CIC
0018,88
f.
t'
,.
D018Be
0018to
09UCo\
DOIBC6
0018Cl
0018C8
OOIBCA
801
B8e
80S
816
91 04 F 808
47 IJO F8CE
OA 00
91 08 F 808
91 01 F 808
41 80 F CIC
41 10 0 002
SNSE "x I,U) ,
At,L 1 UCSR80.
SNSE,X'08'
ALL"UCBN35
SNSE.X'ItO'
WAS EQUIP OK ON
.GO PRINT -FAlSf EQUIP CK
WAS OAT A CK ON
GO'PRINT ~FALSE DATA CK
liAS UNUSUAl COI'\MANO SEQ ON
GO PRINT FAL:SE ut\lT CK
ERROR MESSAG.E.. HLSE UNUSUAl ~p"HAND
0018E6
0018EA
001BEE
0018F2
001BF4
,0018F5
00181"6
001BF8
0018Fe
OO18fE
0018FF
OOlCOO
001C02
TM
BC
Tfrol
8C
TM
8C
. UC&M52 SVC
. DC
8C
utBNOO LA
15DEC65
125601
NONE,~8Ml5
x·too'·· ..
Xt4" '
X'Ol'
.
AL2 tERR021-BASE~R.~G J
UNC,EX!T
.
SET UP SEARCH ,FOR
uce
DATA REG FL T
.. ,
II
001C06
00l.COA
00ICOE
"
UHT INDEX 9. TO START OF UCS
a'hOATAl
15MAR66
125632
"t ,
15NOV.66
125~55
I::;,~A
10
F80C-5
PAGE
13
DATE
EC
••
13..
•
•
SIOSWS,X'OI'
AlL,Ut8M10
ISINTERYENTION REQ SWITCH SET
GO TO SYNC CK PRINTOUT
TM
8C
TM
AGSTAT,X'02 I
NONE,UCBN20
SNse,X'O'"
A1.L.UC8M10
CHECK FOR UNIT CK
BRANCH IF NO UNIT CK
WAS VCS PARITY Bli ON
GO TO ERROR PRINT -uce DATA-REG PROB
PROGSW.X'DF'
RESET SKIP READS. DATA LOGOUT SW.
DATA IN PRINT AREA
Mve
MVC
LOADADOR OF PRINT WRITE CCW
STORE PRINT celi AOOR IN CAW
RES£T 510 SWITCHES
GOJ'O START l/OIlOUT tNE
8Al
SAL
Rll,SAVS1A
R10,REAOS
GO SAVE STATUS + SENSE DATA
GO DO CHECK READ + DATA READ
TM
AGSTAT,X'OZ'
NONE. uc.apoo
CHECK FOR UNIT-.CK ON DlAG WRllE
8RANCHI': NO UN"T-CK
SNse,X'OIt'
N.ONE • utBN)O
X'DO'
X'44'
X'07'
CHECK FOR uee PARITY CHECK
BRANCH IF NOT uce PARITY CK
ERROR MESSAGE- UCS BUFFER PROBLEM
Sf
MvI
8AL
at
TM
Be
UCBN25sve
•UC8N30
91 02 F 80B
10 F 83C
•
*
45 80 F ,.90B
41 FO F C06
A~2CERR023-8ASE+REG)
8e
UNC,EXIT
SNSE,x'oa',
ALl.utBH)5
SNSE.X·OZ'
ALl,UC8MS2
CHECK FOR
8RANCH IF
CHECK FOR
8RANep. IF
TM
8C
SNSE,X'Ol"
NONE,UC8POO
CHECK FOR EQUIPMENT CK
8UNCH IF OFF
LA
BAL
U,2(O,0)
Rll ,BITCKO
.CHECK FOR PRINT CHECICS--SEl MASK
,. GO CHECK FOR 6 eITS INCK READ
" HO BITS FOUND, 8ft NO PRINT CK
PRINT MESSAGE - fALSE PRINT CHECK
Be
!tit
DC
DC
DC
Be
92A
UCBN35 $VC
DC
OA.. OO
·~4
DC
01
DC
.'fE64
41 FO F 92A
41. 10 0 001
1t5BO F 908
Itl .FO f DC8
..", "/4
AGHAT,X'02'
NONE ,UC8NOO
DC
It 1 FQ.f ~2A
81t0223
PAGE
0018C£
001802
00IBD6
00160A
DC
F~.61
16·JUN65
12U63
ae
•UC8H05
f,~6E
92 84. F 151
!tl. FO"F 92A
PIN
.'
FEOO
91 01 F 122
41 80 F B06
OA DO
44
07
fE07
1t7 FOF 92A
IBM MAINTENANCE DIAGNOSTIC PROGRAM
F80C 2821 SCAN, 1403 UNIVERSAL CHARACTER SET
F80C5 CONTROL ROUTINE OVERLAY 2
C~ARACTE~ Sf!
It"
07
41 fO F 92A
ooeoooooo
,.
t.
.
CHECK FOR 'ARITY CKS-SET MASK
" GO CHECK fOR 1 BITS IN CK READ
., hO BITS FOUND, 8R NO PARITY C~
.' GO TO FA.LSE ECU IP ~K '" ESSAGE
15NOY66
11565.5
If)
F80C-5
PAGE
13A
PIN
un( MAINTENANCE I>IAGNOST It PROGRAM
not
feOeS
noc
flDC5
,.
OA 00
44
07
fElC
41 FO f 92A
OOleIC
OO1C20
oolt24
001(28
00lt2C
41 05 F 80A
41 10 F 80A
91 04 1 000
oolC30
OO1C32
00.IC36
15 01
41 60 f C24 .
47 FO f C44
ool(3A
00lt3t
001(;.30
oo1C3£
00lC40
OA DO
OCHC68
00IC6C
OO1C10
00 1 C14
00IC7B
00lClC
001(80
001(84
001&88
00lC8C
00IC8E
001C8f
001(90
00lC92
oo1C96
00IC98
00IC99
01 81 F 51C F 51C
01 6E F 5fE F 5FE
02 83 F 760 F 570
96 20 F 929
41 00 F E30
50 00 F 048
DC
BC
07
FE8A
41 fO f 92A
Sf
MVI
BAL
SAL
TM
8e.
TM
Be
sve
DC
DC
DC
47 fO f
00ICAO
OOIUIt
94 Of F 929
92 Ff F 160
0282 F 16E F 160·
41 00 F E20
50 00 ·f 048
9200 f 122
45 60 F 228
92A
45 60 F 9FA
45 AO f Al4
UCBQ20 SVC
DC
DC
De.
BC
•UC8ROO
22JUN65
124249
NI
MV!
MVC
L.A
St
MvI
•
BAL
eAL
BAt.
'"
. 91 02 F 801 .
47 80 f COB
124263
BC
,.
01. DO
001(;9C .
RO,R9
,.
44
1M
Be
15JUL65
124265
:t' 01 a
Al2(ERR025-BASE+REG)
UNC.EXH
LA
u
801
CAO
808
C96
l(lOO·
Xu ....\,
CLR
XC
,.
UNHhUC8P05
UNe..UUP50
R(l,DA TA2+1
R9.UR9,01
M'Ie
01
92 00 F 122
45 80 F 228
45 80 f 9FA
16JU/II65
!to.U
.UCBQOO BeXC
47 60 f B4A
001(;91\
OOICBA
ClIt
!1C5P50 LA
15 09.
UNe.un
LA
8C
,.
X'07'
AL2CERR024-BASE+REG)
Ro,eKROAR+l (RS)
I\I,CKROAR+1
O( RU ,X'04'
NONE,UCSP10
IU.I0U.O)
LA
BC
,.
fbi
44
01
FE91
00IC86
X9 "'4'
BC
fEe3
41 fO f 92"
91 02 F
47 80 F
91 04 f
41 10 F
OA DO
DC
DC
DC
6e
DC
41 99 0 001
OOlC5E
.001C61t
X·DO·
LA
UC8P05 TM
44
07
00IC48
001C4C
00le52
00IC58
SYe
UCBPIO SVC
DC
41 00 f
00IC4£ .
•UCSPOO
41 80 F C3A
41 11 0 001
00lC44
DOtCAE
001(B2
IBM MAINTENANCE DIAGNOSTIC PROGRAM
14
2821 SCAN, 1403 UNIVERSAL CHARACTER SET
CONTROL ROUTINE OVERLAY 2
oo1C12
OO1C14
OO1C15
OO1C16
001<:18
GOIU8
84C223
PAGE
150EC65
125601
RETURN HERE WITH PARITY ERRORS
" PIUNTMESSAGE-lNTERM nTANT PRINT
BUffER DR PARITY ERRORS
.t
.,
UCSARI1301,UCSAR
X'Ol'
AL2(ERR026-BASE+REG)
UNe.EXIT
X'44'
l(,07 I
AL2«ERR021-8ASE+REG)
UNC,Exn
OOltF6
OOlCFS
OOlCf9
OOlCFA
001CFC
••
••
15MAR66
125632
15NO\l66
125655
RO.CKROAR+l (RS)
It 1 ,CI(RO.lUI.+ 1
SET UP MAX COUNT
INtT INDEX TO START OF AREA
CHECK FOR Ple BIT
BRANCH If PlC PRESENT
UPDATE INDEX BY 1
WERE ALL POSITIONS CHECKED
GO CHECK NEXT posn ION
NO PLC BIIS fOUND
DC
DC
FE98
41 FO f
92A
'UC8R20
"
Itl 10 F 80A
91 04 1 000
41 10
f
UC8R25 1M
BC
LA
elR
eFE>
H H 0 001
15 01
47 60 F CEO
41 FO fOOD
'UCBR30
"
OA DO
&C
Be
Sve.
x·oo·
DC.
DC
FEDE
41 FO f 9,A
IU,UIU ,0)
RO,Rl
lJNEQ,UCBR25
UNC,UC8R40
DC
44
07
OlRU ,X'04'
ALt..,UCBR30
8.C
X·4<\·
X'Ol·
Al2(ERR038-!ASE+REG)
UNC,exlT
.t
t.
, t
PRINT MESSAGE-INSERT UCS 6lANKS OR
"
PlC INHIBIT PROBLEM
"
I. f
001014
41
41
41
1t2
41
95
001018
41 80 f DOC
00101e
8C
41 11 0 001
is 10
47 60 f DOC
CLR
IC
R1.RO
160 F 510
MVC
929
01
LA
WRAREA+1(132)IUCSAR+l
USED fOR lOG OUT DATA
PROGSW,X"20'
SET SW TO IGNORE LOGOUT OF READ OAlA
!to.LOutSl
LOAD AOOR OF uce PRELOAD CCW
RO,CAW
STORE CCW ADDRESS IN CAW
THIS IS A PRELOAD ues COI',MANO,
CHAINED TO A UCS LOAD CO~MANO
SIOSWS.X '00'
RESET SIO SWITCHES
Rl1,SJO
GO TO START 110 ROUTINE
001004
001008
00100C
001010
RESET UCS LOAD AREA TO 00
.,
001020
001022
001026
00102e
001030
001034
001038
WAS UNIT-CK ON fROM LOAOING ues
BRANCH If OFF
WAS UCB PARITY ON
BRANCH If ON
PRINT ~ESSAGE-UNDEFINED INTERMITIANT
ERROR
tt
. }
,,
I
!
1
001014
001078
92 00 F 122
45 1)0 f 228
,
oo107C.
001080
~5
I
.1
I
001084
001088
91 02 F aOl
41 80 F OFE
00108C
91 10 F 808
10
001D6C
001090
001094
f8CC-5
14
.
,
LA
,.,.
,.
ST
MVI
BAL
BAL
BAt..
BAt..
Rll,SAVSU
RIO ,READS
GO SAVE STATUS + SENSE DATA
GO DO CHECK READ + DATA READ
TM
AGSTAltX'OZ'
NONE fUCl! TOO
WAS UNIT-eKON FOR
8RANCH IF ·OfF
.
BC
tM
SNSE.it'lO'
NOHE.UCBSOO
wAS UlJIP-CK SET
BRANCH If NO
I.A
1t!.lto.O)
CHECK FOR· PARITY
BC
UCBR55 NI
XC
. Mve
01
UC.8R60 LA
ST
,.
DATE
EC
MVI
it5 80 F 9fA
AOF A14
41 80 F 002
. U
10 0 001
16JUN65
124263
22JUN65
124249
•
..
15JUL65
l21t265
UNEQ,UC8R50
SET UP MAXIMUM COUNT
SET t~AR REG TO 01
INITIALIZE INDEX REG l-LOAV AREA POS
SET CHARACTER IN BUfFER lOAD AREA
CHANGE CHARACTER
WAS A BLANK JUST lOA CEO
GO REPLAce SLANK
UPDATE POSITION INDEX BY 1
IS AREA fULL
GO SET NEXT CHAR
BAL
ac
•
•
RO.UCSAR+241
R2,l[O,0)
Rl.UCSAR+l
R2.0IRl)
R2,lCR2,OJ
O(RU ,X'40'
EQ.UCBR50
Itl.leU .O}
Rll,SAVSTA
GO SAVE STATUS + SENSE DATA
"AGSTAT,X'02'
WAS UNIT-CK PRESENT
NONE,UCSR55
BRANCH If NO UNIT e.K
SNSE,X'04'
CHECK FOR UC8 PARITY
ALL.UCBM30
BRANCH IF ue8 PARITY
UNC,UC8RIO
8RANCH FOR ERROR MESSAGE
PROG5W,X'OF"
RESET SKIP READS DATA LOGOUT SW.
WRAREA+IH32J ,WRAREA+l CLEAR WRITE AREA
WRAREA+l11201.UCSAR+l SET WRITE DATA IN WRITE AREA
PROGSW,X ' 80'
SET SW. FOR 1ST 120 CHARACTERS
RO,PRTUCS
LOAD ADOR OF PRINT CCW
RG.CAW
STORE CCW ADOR IN eAW
THIS IS A PRELOAD UCS COKMANO.
CHAINED to A PRINT COMMAND.
SIOSWS,x'OO'
RESET S10 SWITCHES
Rl1.S10
GO TO START 110 «OUTINE
TM
BC
1M
,.
I
i
WAS UNIT-CI( ON fROM aIAG. WRITE
BRANCH IF OfF
PAGE
001068
eLI
92 00 f 122
001070
001054
001058
00105C
001062
LA
ueBR50 STC
LA
E30
048
F 9FA
F 807
F 058
F 808
41 10 f 816
41 fO F ceE
94 Of 1'·929
01 83 F 160 F 160
02 11 F 760 F 510
96 80 f 929
41 00 F E40
50 00 F 048
001050·
LA
001
000
4S SO
91 02
41 80
91 04
tt
UCBR40 LA
000
0010itO
001044
001048
t.
02 83 F
96 20 F
41 00 f
50 00 F
660
001
510
4S 80 F 228
ool04C
,.
00 f
20 0
10 F
21 0
22 0
40 1
00103&
t.
GO SAVE STATUS + SENSE DATA
GOOD CHECK READ + DATA READ
A(;SIAT,)('02'
NONE,UC8R20
LA
LA
DC
:I<
001000
PROGSW,X'OF'
RESET SKIP READS DATA lOGOUT S"'.
WRAREA+ltX"ffl
SET PRINTER WRITE AREA TO All fF
WRAREA+2113U ,WRAREA+l
"
RO.DPRCCW
LOAD ADDR OF DIAG WR 11E CCW
RO.CAW
STORE CCW ADDR IN CAW
510SWS,X'00'
RESET SIO SWITCHES
.UllSID
RU,SAVSTA
RlO.READS
41 05 F eOA
PRINT MESSAGe-COMPARE + SET PlC
CIRCUITS PROBLEM
••
PRT MSG - uce PARITY CHECK PROB
)POO •
001(08
OOlCDC
PRINT MESSAGE -
IC
l'OO'
'(144·'
x·Ol'
AU I ERR028-BAS~+REG I
lINC.UIT
lICBRIO SVC
44
01
DOLCH
001Cf2
WRAREA+1(1321.UCSAR+l
USED fOR lOG. OUT OF DATA
PROGSW.X'20'
SET SW TO IGNORE LOGOUT Of READ DATA
RO.LOUCSl
LOAO AODR OF UCS lOAD CCW
RO.CAW
STORE cew ADOR IN CAW.
THIS IS A PRELOAD ues COMMAND,
CHAINEOTD A ues LOAOCO~MANO
SIOSWS,X'OO'
RESET SIO SWITCHES
Rll,SIO
GO TO START 1/0 ROUTINE
Rll,SAVSTA
GO SAVE STATUS AND SENSE DATA
)(000'
1(144 •
01 DO
'OOlCEO
00 lee ...
OOlCES
OOleEC
.UCSAR+130( 11l! .UCSA.R+130
AGSTAT.X·02'
NONe .UCBROO
5NSE.X·04'
AU,UC8Q20
OOltCE
oolCoo
001Col
001C02
00lC04
SET UP FOR MAXIMUM COUNT
INITIALIZE INDEX 1
CHECK fOR PtC BIT
BRANCH If NO PLC BIT
UPDATE INDEX
WERE ALL POSITIONS CHECKED
GO CHECK NEXT POSITION
SET UP MAX ACORESS
UPDATE INDEX 9 BYl
WERE ALL BITS CHECKED
GO GET NEXT BITS
UNH19UCBNIO
2321 SCAN, 14tH UNIVERSAL CHARACTER SET
CONTROL ROUTINE OVERLAY 2
8C
150EC65
125601
15MAR66
125632
15NOV66
125655
I.
0000000000000000000
o
~.
0 0 0 0 0 0 0 0 0 0 0 0 0 0 O. 0 0 0 0 0 0 0 0 0 0 O· 0 0 0
PIN
...:.:
IBM MAINTENANCE DIAGNOSTIC PROGRAM
45 80 F 908
41 FO F OU
OOlOAO
0010A2
00IDA3
001DA4
001DA6
OA DO
45
01
fE9F
47 FO F 92A
OOlDAl
00IDAE
00IDB2
101
001086
OOlOSA
91 Olt f 921
41 80 F C3A
OOlDSE
OOIDCO
0010Cl
0010C2
00lDCIo
OA 00
44
01
FEA6
41 FO F 92A
OOlDCB
OA 00
44
01
FEC9
Itl FO f 92,A
00 I OtA
OOloeB
OOloec
oonCE
001002
001006
00100A
oo100E
0010E2
0010E6
OOlOH
0010£C
OOlCED
OOIDH
0010fO
41
91
41
91
47
OA
•
,
OOlEn
00IEU
00IEI1
OA 00'
04
Of
OOU:}A
41FO F 92A
oolUO
X'ol'
AL2CERR029-BASE+REG)
UNC ,EXIT
WAS PLC PRESENT IN PRINT CK POSITION
GO TO COMPARE PROBLEM PRINTOUT
X'OO'
X',4,.,
X'07'
AL2(ERR030-8ASE+REG)
UNe ,EXIT
fUO
41 FO f 92A
80
80
11
l-f
FQ
•UCBTOEl
F 929
F fl4
F 160 F 5F5
F,929
F ,06C
•OK
••
I ,
SNSE ,x '0'"
ALL,UC8SI0
SNSE"X'OS'
All.UCBP10
SNSE,lP01'
AlL,UCBTOO
X'OO'
X'44'
X'Ol'
AL2[ERR033-BASE+REG)
UNe ,EXIT
WAS uca PARITY SET ON PRINT
BRANCH IF ON
WAS'OATA-CK SET ON PRINT
GO TO COMPARE' + PLC PROB PRINTOUT
WAS CHANNEL 9 DETECTEO
BRANCH If DETECTED
PRINT MESSAGE - FALSE UNIT CHECK
SVC
DC
DC'
DC
BC
X'OO'
PRINT 'MESSAGE- BAD CORE POSITION
TM
8C
MVC·
PROGSW,X.SO.
IS THiS THE 1ST 120 POSITION PRINT
NONE ,OK
BRANCH If 2ND PASS
WRAREA+l(120J.UtSAR+121 SET 2ND 120 CHAR, IN PRINT AREA
PROGSW,X'1F'
'RESET 1ST PRINT PASS SIOITCt! '
u.,.c,ucaR60
GO PRINT 2ND PASS
TM
N'8'1:"
sva
DC
Dt
BC
X''''''
X'Ol'
.,
t'
"
,9
"'f
"
AL2IERR01I-BASE+REG)
UNC .EXIT
..
.,
,
fB 001510 2000 0104
001E40
00lE4S
EB 00151C 6000 0001
09 001160 2000 0018
OOH50
001E5S
EB 00151C 6000 0001
FB 001510 2000 0001
001E60
COEOFOF8FCFEFF
001E61
OOlE6E
C5090940FOF2Fl
C509D940FOF2F2
001E15
OOlE1C
C5090940FOF2F3
C5090940FOf2F4
00 1 E83
C509D940FOF2F5
00 lEB A:
001E91
C509D940fOF2F6
C5090940FOF2F1
OOlE98
001£9F
001£,A6
OOHAe
OOlEB4
OOlE88
00IEC2
00IEC9
OOIEOO
C5D90940FOF2F8
C509D940fOF2F9
C5D9f)940FOF3FO
t509D940FOf3Fl
C5090940FOF3F2
C5090940FOF3F3
C509D9100F0f3F4
C5090940FOF3F5
C5090940FOF3F6
001EDl
C5090940FOF3F1
OOHOE
C509D940fOF3F8
OOlEE5
OOlEEE
050640C509090609E2
40C606E4D5C4
.
PRINT MESSAGE - NCURORS FOUNG
X'DO'
X'0 4 '
1,'oF'
AL2( OKME S s':'aA S£+RiGJJ,
UNC,fXlT
'.
,
.. ,
"
.,
0000,00
0006,01
000.002
000003
000004
000005
000006
000001
000008
000009
OOOOOA
!I
,e'w
tCl
OPRCCW CCW
PRCC.W2 CCW
lOUCH CCW
00lE3S
000040
000048
000018
001118
00151(;
CONSTANTS
TA8lE'
C.NOP
OT 00
05 0011602000 009.
0500116D 2000 POOl
EB 00 inc 6OO000()1
.,
"
PRINT MESSAGE - fALSE EQUIP CHECK
DC:
FE~5
PRINT MESSAGE -HAMMER FIRE PROBLEM
X'OO'
l('44 ,
X'Ol'
AL2(ERR035-BASE+REG)
UNC ,EXIT
UC8R80 SVC
'DC
DC
DC
Bt
•UCBSIO
t'
CKOUA,X'O,.,
NONE,UCBPI0
••
00 1 EZO
00IE28
PARITY BITS FOUNC
PRINT ~ESSAGE - INTERMITTANT OR
.f
FALSE PARIIY ERRORS
X'DO·
X'45'
TM
BC
1M
BC
TM
BC
UCBS05 SVC
DC
DC
DC
'ac
01
. fEB8
41 FO F 92A
NO PARITY FCUND RETURN
BC
!,C
410
oglfi.i,~
OOIElE
OOlele
"
CHECK FOl: PRINT CKS-SET MASK
9. GO CHECK FOR 6 BITS IN CK READ
•• NO PRINT C~S fOUND RETURN
I t GO CHECK FOR UCB PARITY CHECK
SVC
PC
DC
DC
Be
•UCBSOO
10 f 0f4
08 F 808
10 F C3A
01 f 808
10 F DFE
DO
QQ10H
oo,iOs
••
'0 GO CHECK FOR 1 BITS IN CK READ
IUl,8ITCKO
UNC,utBR70
Rl.2(0,0)
Rll ,BITCICO
UNC ,ut8R80
LA
BAL
91 04 F 808
91
41
02
94
1t1
OOIEO"
•UCBR10
SVC
DC
DC
DC
BC
i;
DOU8U W.ORD AU GN~Nl
0,.8
0,0
X' 05' .WRAREA+l,X '20' .152 DlAG ,WRITE TOPRltU' eUff, StICH
DUG WRITE to 'UNT Bun, "SUON
~'05~,WRAREA+ltX'20'~1
'.Rll,g,AO
.uca ,Stl oN.eO""ANDCtt:Acl"
4
X'ES .\.iCS~R.X ~oO,' ,1
"
DATE
.EC
16JUH65
124263
22JUN65
124249
15JUl65
12U65
15O£t65
125601
840223
PAGE
15
15A
."
:$
OOlDFio
0010f6
oolDFl
0010n
OOIDfA
OOlEO~
•
10 0 002
45 80 F 908
41 FO F DCB
OA 00
44
01
()OlE02
8Al
8e
0·_
FBCC 2821 SCAN. 1403 UNIVERSAL CHARACTER SET
FeOC5 CONTROL ROUTINE OVERLAY 2
F80C 2821 StAN, 1403 UNIVERSAL CHARACTER SEI
Feoe5 ' CONTROL ROUT INE OVERLAY 2
001098
OOl09C
PIN
IBM MAINTENANCE DIAGNOSTIC PROGRAM
840223
PAGE
o
15MAR66
125632
15NOV66125U5
10
'ACE
F8OC-5
15
DATe
EC
16JUN65
124263
22JUN65
12~249
•PRTUCS
•LOUCS2
••DATAl
••
••
LOAD UCB.NO FCLD,SLI ON.
CCW
CCW
X'ES',UCSAR,X'60',1
X'09',WRAREA+ltX'20',120
NOR~AL
CCW
tcw
X'EBt,UCSAR,X'60',1
XtFS',UCSAR+l,X'20',1
PRELOAD UC8.SLI ON.CCMMANO CHAIN
LOAD uca,NO FOLD,SLI ON
.,
DC
X'COEOFOF8FCFEFF'
•ERR023 DC
ERR024 DC
•ERR025 DC
.
C"ERR 021~
C'ERR 022"
C'ERR 023'
C'ERR 02'"
C 'ERR 025'
'
C,'ERR 026'
C'ERR 021'
DC
ERR029 DC
ERR030 DC
ERR031 DC
ERR032 DC
ERR033DC
ERR034 DC
ERR015 DC
ERR036 DC
C'ERR
C'ERR
C'ERR
C'ERR
t'ERR
C'ERR
C'ERR
C'ERR
CIERR
••ERR028
•ERRon
••
028'
029'
030'
031'
032'
033'
034'
035'
036'
DC
C'ERR 037'
ERR038DC
C'ERR 03S'
•
OKMESS DC
C'NO ERRORS FOUND'
EOU
eou
EOU
EQU .
EOU
64
12
120
SJOYR)
SCPOAf
eQU
R2
~QU
R3
fOU
,.
R9
uo
15JUL65
124265
OUTPUT AREA EQUALS SCOPE DATA AREA
o
1
'''',
HARDWARE CSW LOCATION'
HARDWARE CAW lOCAT ION
HARtiWARE 110 NE~ PSW LOCAJION_
Ge.eRAL REGISTER EQUATEs
EOU
R4
R5
R6
A1
FALSE UNUSUAL COMMAND SEQUENCE
UCS DATA REGISTER. PROBLEM
9. DR uca 'ARITY CIRCUITS PROBLEM
UCS BUFfER PROBLEM
(NTERMITTANl PRINT BUFfER OR PARITY
Of ERRORS
COMPAR~PROB + ASSOCIATED. SEl PLC
" CIRcuns
UNDEFINED INTERMITTANT ERROR
INTERMITTEtH UCS DATA REGISTER
.,PROSLEM OR INTERMITTENT UCB
t . PARITY CHECK CIRCUITS PROBLEM
INTERMITTANT OR' FALSE ERROR
INTERMITTANT OR FALSE PARITY CKS
HAMMER FIRE PROBLEM
BAD UCS BUFF toRE ABOVE POS &lOR 89
FALSE DATA CHECKS
FALSE UNIT CHECK
FALSE PRINT CHECK
FALSE EQUIPMENT CHECK
tSW WRONG COUNT-PRoeA8LE BAR ADVANCE
PROBLEM - UCB
SYNC CHECK- PR08ABlE ADV BY 2 PRoe.
OR BAR"'UN ITS ENCODEAOV
BY 3 PROBLEM
PLt INHIBIT PROBLEM
EQUAT.ES
HCSW
HCAW
HION
CswSAV
OUTPUT
Rl
WRITE UCS 8UFFER DATA
ERRDR CONDITIONS
ERROU DC
ERRon DC
•••
RO
PRELOAD UCB.SLI ON. COMMAND CHAIN
PRINT.SLI ON
It
ERROR MESSAG£S
ERR022 DC
••
••
.
X'FB',UCSAR+l,X'ZO',Z60
••
ERR021 DC
,
,
CCW
lQU,
eQu
eQU
eQU
EOU
tQU
lau
lSDEC65,'
125601
2
:3
.
5
6
1
'
9
10 '
15MAR6615NOV66
125632
USU5
10
f8OC-'
IAGE"
,15A
-_._--_._-
.,--,
.~---~-------~--'----.--,.-----~----
--
----
--
--
~-
---
--------
--------,--
-
... _ - - -
-----
----------,--
--
---------------
0.0 0 0 0 0 0 ·0 0 0 0 0···· 0 0 0 0 0 0 0 0 0 0·· O· ·0· 00 0 0 0 0 0 0 0 0
o
0
00000
..
__
....
-....--....... _... ..._.
"
,."-.-~.--~,,
.. ,
-~.-'--.
-.-.~'"~,
000000 0000000
.....
~
.....
'-'~.'
_
......... ........ .........
.. '._, ..
'
,,"
.,-,-- .--.. .....
-.~
-,.....
,
~.-,.~
....
~-
......
~.,-.--."
,,
,
I
F80e 2821 SCAN, 1403 UNIVERSAL CHARACTER SET
FaOC5 CONTROL ROUTINE OVERLAY 2
1
1
1
1
1
1
J
4.
1
1
1
1
1
~~.
T
1
1
1
T
T
1
1
T
T
I
I
8
8
1
I
15.
1
8
1
8
1
1
22JUN65
l21t21t9
lC84,
le32,
lC4E,
ID4e,
ID8C,
IDD2,
100A
1,
1
lCEE,
1
1022 .
1
1
1
1
6
4
2
1846.
1C44
1000,
lAAO
1000.
1015
1000.
1000,
1000,
lEF4
1880,
1CC2,
1080
1000,
1000,
1000,
1000,
1000,
1000,
1000,
1000,
1000,
1000;
1000.
1000,
1000,
1000,
1000,
1000
1000
1018
lA88,
1850.
1000,
lE40,
1AAC
1806.
1000,
lA88.
1856.
1008,
IE 50.
lA8E.
lC52,
1026.
lUI
lA8E.
lC52,
1062.
lAC4.
lC5Ii
lE06.
184A.
lC58.
lElO,
1850
lCSE
1138
187C,
IBEA,
l8B4,
lCOA.
lC7e,
1098,
lCC6,
IDAE
1044,-
1084 .
le20,
lCD8,
lCDC
15JUL65
121t265
4
2
4'
2
4
6
4:
2
4
2
4
4
4
2
4
6
2
4
2
tt'
4
2'
4
4'
4'
4
'4
2
4
2
2
4'
1
ICAE
1.
lB60.
lC68.
1030
lAA4'
ID58,
lAeA,
ID68,
185C,
IDFE,
188e.
lEoe
lC64_
leAD'
lADE,
IB70,
18AC,
lC78,
leBE.
1040
lSDEe65
125601
I
F80C 2821 SCAN, 1403 UNIVERSAL 'CHARACTER SET
F80C5 CONTROL ROUTINE OVERLAY 2
1
IDEO UNITI
1801 AGSTAT
19D8 BITCKO
1121 CAWKEY
1805 CESTAT
1927 CKDATA
1086
IB09 CKRDAR
1Cle.
B CSWNST
1118 CSWSAV
lAE2
1806 OESTAT
lE20 OPRCCW
189C.
lA9C 'ENTRYl
1A94
IE61 ERR021
1840
lE6E ERR022
18lA
lE75 ERR023
IBC8
lE7C ERR024
lC16
lE83 ERR025
le3E
lE8A ERR026
1C90
lE91 ERR021
lC9A
lE98 ERR028
lC02
10A4
1E9F ERR029
lEA6 ERR030
IDC2
lEAD ERR031
lOF8
IE84 ERR032
leoo
IE8B ERR033
IDEE
lEC2 ERR034
18F6
lEC9 ERR035
loec
lAEE
iEDO ERR036
IED7 ERR031
1800
lEDE ERR038
lCFA
1928 EXPECT
lE30 LDUCSI
lACE.
lE50 LDUCS2
9 NMIXEo
D NOT8SY ..
lEE5 OKMESS
IE18
157C OUTPUT
lE28 PRCCW2
1929 PRDGSW . 1A90,
lo2C,
1E40 PRTUCS . lO6C
1A2A READS2
19FA SAVSTA
1000,
lilTe
7
''''':~'''':''.,' ~
!AAO,
1
1
1
1
1.
1
1
1
1
1
8
4'
7
1
1
1
SENSE
UAPRT .,
UCSAR
18DE.
PIN 840223
PAGE
17A
IBM MAINTENANCE DIAGNOSTIC PROGRAM
1
1120
1153
157C
T
T
."
SNSW
SOME
UNEQ
ZNEG
CMPAR
CSWAG
DATA2
ENTRY
EXJT2
D NHIGH
lA14' READS
lA8C RTN02
1000 SEeNO·
1
1,
1
"
,- ""~".'
1004
4
6
e
157C
11A4
1E60.
lA90
19A4
18D6,
IDE2
t
r·
. i
PIN 840223
PAGE
17
IBM 'MAINTENANCE DIAGNOSTIC PROGRAM:
l5MAR66 .
125632
15NOV66
125655
,ID
PAGE
F80C-5
DATE
EC
17
jY
16JUN65
124263
1751
157C
1678
1122
SCHNUM
SCPOAT
sePROO
SIOSWS
1A98,
1000,
lAge,
1000,
ISle
1EF4
lA06,
1038,
.lEF4 .
lAF4,
ID14
IB68,
1B74,
22JUN65
124249
1e70,
lC86
.'
S IOVR3
SIOVR4
:.'
SJOVR9
. :."
.
STATSV
,,"<.
UIAOOR
....
UCBMOO '.'
UC8M05 )AE6 ..
ueBM10
1878'
UC8M20 ' lAF8
ue8M30
1888, 1050
UCBM50
1812
ueBM52
IBDA
ueBNOO
180A
UCBNIO
1C4E
1880 .
ueBN20
UCBN25
UCBN30
18eo
1830, 1BD2
UCBN35
ueBN40
18EE
IB88, 18E2
ue8POO
ue8P05
le32
1e28, lOBA, lODE
UCBPlO
ueBP50
lC36
UeBQOO
UCBQ20
le88
UCBROO
lC80
ue8RI0
1054
UCBR20
1ceA
ue8R25
1CEE
ue8R30
lCE4
UCBR40
lCF2
1018,
UC8R50
ID22
1048
ueBR5S
ue8R60
lElO
UC8R70
109C
1B28, lCOE, 1082
UCBR80
1090
UC8S00
UC8S05
1838
1006 .
ueBS10
1088, 10E6
UCBTOO
1000, 1000, 1000, 1000,
WRAREA
1000, iooo, 1000, ' 1AC4,
1B96, le5E, lCA4, lCA8,
lo5C, 1062, lE06, lE20,
1000XF80C5
NO ERROR DETECTED IN A80VE ASSEMBLY
1118
1108
110C
119F
10E2
1A88
LAF4
lAFC
1806
1816
1824
183C
1846
184A
188C
18C4
18CE
IBFC
1e06
lelC
le24
1e3A
1e44
1e52
1C96
leAD
lCCE
lC08
lCEO
ICF6
1000
100C
1058
106C
10AA
10C8
1002
IDEA
lDF4
lDFE
176C
18A4,
;"'~
,15JUL65
'124265
lSDEe65
125601
l5MAR66
125632
1000,
1856,
1eA8,
lE28,
1000,
1890,
U126,
lE48
15NOV66.
125655
1000
lB96
lO5C
i-
-.---- ..
ID
F8CC-S
17A
PAGE,.-."-~.,.....-
oot»
~.'
~
....
_,~
i. .
L. . . .~_"."""',,. . . . . . . . . . . .-"-~......._____
.... $. _ _ _ . . . .
J
IBM 'MAINTENANCE DIAGNOSTIC PROGRAM
F80C
2821 SCAN
1~0~
PIN 840223
PAGE
18'
M~INTENANCE
ISM
, PIN
DIAGNOSTIC PROGRAM'
PAGE
1
UCS OVERLAY 1 '+ 2
F80C
2821 SCAN
1~03
8~0223"
f
18A f
UCS OVERLAY 1 + 2
t
I
PERIOOS CORRESPOND TO BLANK COLUMNS.
1 THROUGH 20
COLS.
1
j
1
61 THROUGH 80
II
·9
9
o
9 9
9
9 0
01
9
AAAAAAAAAAAAAAAAAAAA
YVYYYYYYVYYVYVVVVVVV
99999999999999999999
AAAAAAAAADAAGAPMAAAA
YVYYVVVY99YV8Y98YYYY
99999999 9999 9999
AAAAAAAAAAAA80C50003
YYVVYYVVVVVV
999999999999
BTXT.AMY •• AB •• AAFA1S
9·
V99 Y9 V9-99
9
9
9
A.IJGA48GA1SHJOUGCEA
- YZQ 9-9 9-8 90Z0
BTXT.AAO •• AA •• AAAAAA
9
YO+ YQ Y9YYYY
99- 99 9 9999
AAAAADAAGALB ••••••••
VVVV99VY8Y9Y
9999 9999
.......•.•...•......
•••••••••••• 80C50004
BTXT. AM-•• A8 •• AASEAD·
9
Y9
Y9 Y980V9
AHAE8EAHAMAK8EAAAJA'X
YZ9080V9909 80Y99V9
9 0999
999 . 9
-
BTlT.AAS •• AB •• AACAAA
9
Y08 Y9 Y90YYY,
99
9
999
AAAAAAAAAAAAAAAAAAAA
VVYYYVVYYYYYVVVYYVYY
99999999999999999999
AAAAAAAAAAAAAAAAAAAA
YYYYYYVYYYYYYYYYYYYY
99999999999999999999
AAAAAAAAAAAAIOC50005
YYvvYVVVVVVY
999999999999
STXT.AMH •• A8 •• AAACKC
9
Y9- Y9 Y990 9
OHOHDAOAEA4QAAODGA5B
-1 ZQV+VZV o-Y 9Z0 R
+A1AB02BAA1AGA5A832B
V 0- B-Q OZY Y- 8
99
919
9
9
GA46B22BAJIAIOC50022
ZO - B-V 0
BTlT.AJO •• A8 •• AAAAAA
9
Y99 Y9 Y9YYYY
9
9
9 9999
AAAAAAAI/O.ADDR.XXX.
VYVVVYY
9999999
CAW.XXXXXXXX.GOT.CCO
.BUT.NO.INT£IOC50006
BTXT.AMo •• A8 •• AAGA46
9
'19- Y9 V9ZQ
BUBPBO.l1KG05BBO./lK
99998- 9 YZ R8- 9 Y ,
999
9
G05BPG2J2JH.80C5002~
BTXT.AJ+ •• A8 •• AARRUP
9
Y9
Y9 Y9
TAI/O.ADDR.XXX.CAW.X
XXXXXXX.GOT.CC1.CSW.
9
9
9
9
9
9
9 Z
9
9
9
9
9
9
9
9
XX.MAKE.PRINTER.RDYA
Y
9
AAAAAAAAAAAAI/O.ADDR
YVYVYYYYYVYY
999999999999
.XXX.CAW.XXXIOC50008
X.GOT.CCO.CSW.xxxxxx
XXXXXXXXXX.SNS.XX.II
XXXXXXX.GOT.CCO.CSW.
'XXXXXXXXXXXXXXXXAAAA
YYYY
9999
9
1010PAIJIJD07HKAOHli
9 9 Y Y YR+ R Y Z 9
9
AAODGA2HH+JHEAOAGA22
-Y 9ZY OR Z-OY+VZV 9
9 9
9
BTXT.AKO •• A8 •• AAGA2D
9
V9
V9 Y9IQ R
9 0
G.2DAAODGA228EADAHA~
Z Y-Y 910 980V9Y199
9
9 999 9
8EAOAHA~K81U7C821C80
80Y9Y1999 8 R999 9
9
Z8-'
9
9
9
9
89
15JUL65
124265
9Z0 9Z
9
150EC65
125601
9
9
9
9 9 9
1
9
8 8 0 8 9 '1- 80'19
9 9 9
9 999
OAG.5KF.,SG05JOG2JO.
+YZ 81 81 Y 9 Y-
9
9
9
9
9
9
1
~KSO.71HG020EA4KSO.6
88- 8 YZ
9
1 1
B12BKS2Al~KG2JO.BEAS
9
BTXT.ANH •• A8 •• AAJHEA
Y99 Y9 V91-0V .
9
9 9
o
9
RIQ 88- 9
9
0 1
Y9
9
RZV Z Y 1
9
9
9
9
IMG020KB1E7CIOC50020
YZ R 'lOR
o
9
BOIDG~KS1~7CAA50+AOH
I
KAOHI/BEADAH80C50021
Y 1 980V9Vl
9
999 9
9
9 9 9
Z R 9 V YR
9 9
AG2VG+58AD2UG058A32U
9-19Z+.9- 9
1
9
'GA5BBEAHSJBA80C50024
IV B80Y99V90
999 9 9
OAGA~BF.5FG04BAADAJJ
99 9 9
AAAAAAN4AAAA80C50025
VVY9VY98VYYV
99999 9999
-Q 91
AAAAAJOUKCIM80C50010
YVYV08
9 9
9999 9
STXT.ANA •• A8 •• AAAAAA
9
'190 Y9 Y9YYVV,
9 0 9
9 9999
AAAAAAAAAAAAAAAAAAAA '
YYVYVYYVVYYVYVVVVVVY
99999999999999999999
AAAAAAAAAAAAAAAAAAAA
YYVVVVVVVVVVYVVVVYVV
99999999999999999999
AAAAAAAAAAAABOC500Z7
YYVVYVYVYVVV
999999999999
KCOHOHDAOAEA2F+AIHAA
9-Z ZOY+YZO R 0 9-Y ,
999
9
lSGA48AAIHG+80C50011
910 9-0 9Z
9
1
BTXT.ANV •• A8 •• AAAAAA
9
Y9
Y9 Y9VVYV
9
9
9 9999
AAAAAAAAAAAAAAAAAAAA
YYVVYVYYYYYVYVYVVVVV
99999999999999999999
AAAAAAAAAAAAAAAAAAAA
VYVYYYYYYYYYYYYVYYYY
99999999999999999999
AAAAAAAAAAAA80C50028
YYVYYVYVYYYV
999999999999
F+2HG022KBIU7CBEADAH
Z RZ 9 9 8 R80Y9YZ
o
9 999 9
A~BOICBO.21T80C50012
99-
BTXT.AOJ •• AB •• AAAAAA
9
Y9Y Y9 Y9VYYY·
9 9 9
9 9999
AAAAAAAAAAAAAAAAAAAA
VYVYVVYVYYVVYVVVYVVV
99999999999999999999
AAAAAAAAAAAAAAAAAAAA
VYYYVVVYYVYVVVVVYYVY
99999999999999999999
AAAAAAAAAAAA80C50029
VVVVVVYVVVVY
999999999999
KBIU7CB31CBO./ITG022
9 8 R- Z8- 9 9Z 9
AA1HGA28AAOD80C50013
-0 9Z0 .-'1 9
8TXT.AOH •• A8 •• AAAAAA
9
V9R '19 V9YVYV
9
9
9 9999
AAAAAAAAAAAAAAAAAAAA
YYYYYVVYYVYVYVYYVVYY
99999999999999999999
AAAAAAGAAOOUBOAX7VHO
VYYVVY9VQQ 8-Y9 9R+
999999 9
9
7JE07JGA6KA.80C50030
YR+ YZY 0-
BTXT.AOA •• A8 •• AAOOGA
.9
V9Q Y9 '19 9Z0
60HDOUKCOHIMG8A.OOGA
Y-O
9 Z 99:- 910
6FG06F+J5HKA5052BA5D
OZ - V R V + 8-0 R
MA5053+05HKABOC50031
9
9
18- 9 9
9
9
9
./ITG020AAOOGA3FAGOE
9 9Z R-Y 9ZY Z-O-Z
o
Z
: G+20G022KBIP80C50014
1 RZ 9 9 8
o
9·
~ABO.81FG03280C50016
22JUN65
9
9 999
9 9 Z
AAAAAAAAAAAA80C50026
YYYYYYYVVYVV
999999999999
3BEO~6BEAAAJADA.IJGA
16JUN65
9
9
9
AAAAAAAAAAAAAAAAAAAA
YVVVVYYVYVYYYVYYYYYY
99999999999999999999
~DEDODG-~OA.ISGA~8GO
DATE
9
9
EO~6AKIJG+4680C50019
1+ 8-0 yz
9
AAAAAAAAAAAAAAAAAAAA
YVVYYVVYVVYVYVYVYVYY
99999999999999999999
BTXT.ALH •• A8 •• AAOEG+
9
Y9I Y9 Y9-Z1
EC
12~263
12~2~9
1~----~-------~--
9
G02DAGIRG+4DA810GA48
1 R-O 01 8-9 01'1 9
BTXT.ANH •• A8 •• AAAAAA
9
Y9R V9' V9YYVV
9 0 9
9 9999
ING+2DG022AG80C50015
81 'RZ 9-Q
8-8-ZZ
9 9
IGADIQGA4DEA4KSO.61M
Q-S 010 8Z0 88- 9 Y
9 9 9 0
O.AOOR.XXX.CIOC50009
811FABIMGA3KBO.IIFAG
- R-9 8ZQ Z8- 9 R-Q
o 999
'Z
9
9
9
lKG05BKCOHIMG7H.JHEA
yz R 9 Z 99 R Z-OV
ADAHAPKGIOO.BEABAMAC
Y9YZ91 9 9- 80Y99890
9 9
999 9
9
9
OOF.3QKGIMIQ80C50018
-ZZ
9 0 9
BTXT.AN ••• A8 •• AABO.6
9
V9
Y9· '198- 9
9
9
9 9
BTXT.ALA •• A8 •• AA7CBE
9
Y90 Y9 Y9 R80
999
9
99
9
9
BTXT.ALO •• A8 •• AAOA1Q
9
'19
V9 V9 9 0
/
9 9 9
0
I
,I
9 -
9
9
BTXT.AKO •• A8 •• AA2MBO
9
Y91 V9 V9 08
9
STATUS.XXXX.IOC50007
9
8TXT. AKA •• A8 •• AAOHPG
9
V9Q V9 V9 Z 9
I,
STXT.ALH •• A8 •• AA30G •
9
Y90: Y9 ''19 YZ
9
Y
9
BTlT.AJO •• A8 •• AAXXXX
9
Y9+ Y9 Y9
I,
9
9
BTXT.AJH•• A8 •• AASNS.
9
Y90', Y9 Y9
9
•• 80C50001
GA3KH.1DEAOAGA3WOAIG
IV YR 80V+YIQ
9 Q
YQY+YZV
999
BTXT.AAB •• A8 •• AAAAAA
9
Y09 Y9 Y9YYYY
99
9
9 9999
22~.125655
. 3BG03KOAIGODG03KAOIS
1 Y 9 Q-Zl Y-9 9
9
AAAAAAAAAAAA80C50002
VVYVVYVVVVVV
999999999999
9
I
COLS.
AAAAAAAAAAAAAAAAAAAA
YVVVYYVVVVYVVVVVVVYY
99999999999999999999
BTXT.AKJ •• A8 •• AAG02D
9'
Y9Y. Y9 Y91 R
Il
THROUGH 60
AAAAAAAAAAAAADAAGAK- '
YYYYYYVYY9QV99YV8V8
999999999 9 99999
1
I
~1
BTXT.AAA •• AB •• AABD+A
9
ygy Y9 V9 8 V
9999999
9
I
COLS.
~BG030EAOAGA80C50017
••••••••••••••••• 8~O
BTXT.AJ8 •• A8 •• AAAW.X
9,
V9
V9 Y9
I
THROUGH~O
AJ1SGA48PAIG1GH.1DF •.
-Y 9ZQ9 9 Q OR 8Z
C5 •• AAAA.AGA ••••••••
YYQY Y89
9999 99
I
'I
21
IFG020AAOOGA2DKGIQO.
RZ R-V 910·R 9 ~
BESD •••••• AA •• AAXF80
9
YQ Y9
99 9
9
1
COLS.
STXT .AlA •• A8 .. AASO.A
9
Y9V '19 Y98- 8
Z+ 88QY99Y9Y- 999 9
15MAR66
125632
15NOV66
125655
YZQ
9 9
9
0
Y8- 9 RZ
9
9
9
10
F80C-5
PAGE
18
9
9
9
0 0
BTXT.APA •• A8 •• AAOAOA
9
'19'1 Y9 Y9QY+V
999
999
DATE
EC
16JUN65
124263
9
22JUN65
124249
NA5H7GG06DKA5F7G+A5H
9 R 81- 0 9 R 8 0 R
o
9
0
o
15JUL65
150EC65
124265125601
OVV9V9Y
9 -
I 0
KC545HK55A54AA50+AOH
9 8 R
V 810 + .Q Z
o
0 0
EAOAG07DAAODGA6BA.00
OV+Yl+ 9-'1 9Z00- 9
99-.
'91
Rl
9
9
9
BTXT.AOH •• A8 •• AA5F5H
9 : '19
'19 Y9 R R
Z
8
9
9
+VZV OZ
15MAR66
125632
9
Y R 8 + R 9
0
9 0
KAOHI/KCOHOH80C50032
V Z 9 9-1 1
9
GA64G06FGGGGAAAMPRES
1082 '-QQOOYVY9
9
9
S.CONSDLE.ST80C50033
lllZ999
15NOV66
. 125655
F8OC-5
10
1IA
PAGe
I.""
000000000000 000000 000000000000000
o
0000000 0000000000000000000000
"
~"
......
-~
.. ... -...
-~
,
---.~~
!
1
F,BOC
2821 SCAN
i
•••...••••.....•..•.
.........•.•••......
Y
BTXT.AQE •• AD •• AAAAAA
9
Y99 Y9 Y9YYYY
9
9
9 9999
.00GA96EA6HAJODGA9MK
9ZY 9ZY R-Y 9ZY 0
o
, IGA9BBOJH54KA5488EA9
8ZQ Y8-Y9 8 Z 8 8Z0
9999
90
BTXT.AJG •• A8 •• AA8A.0
9
Y8- Y9 Y9Q99
9
9 9
OGA9MEA6H80BEABE4E48
9ZY OZY R8 8QYZ98988
09 999
9
BTXT.AJG •• A8 •• AA4DG9·
9
Y8Y Y9 Y98-Q
999 9
9
9
, IG09FQVCBBA8A9XDA96G
8Z -99Z9 8ZY 9ZQ Z
8TXT.AKG •• A8 •• AAA8Gl
9
Y89 Y9 Y9Y 9
QKA8H1JGCPD8A8AAABH+
o Y 9 Y9Q 0 8 8ZYQR
9
9 Z
9 9 9Z
9
9
9 9
A547VEA90KA547PEA90K
Z 8 8Z0 0 Z 8 YZO 0
o
9
BTXT.AJP •• A8 •• AA4AJ9
9
Y88 Y9 Y98-Y
99
9
9
9
99
I
9
BAAAAAGAAAGGBG7A80 ••
OYYYYY9YYY9Q-0 R8
199999 999 I I 9
.ENTER.UT IL ITY.DATAA
BTXT.AJX •• A8 •• AAAAAA
9
Y89 Y9 Y9YYY99
9 ., 999
I
F80C2821 SCAN
1403 UCS OVERLA.y'l +2
BTXT.AP8 •• AS •• AAOP.F,
9
Y99 Y8 Y9
8
9
99 9
9 9
9
0
OKA548DEA90KA548GEA9
Z 8 8Z0 0 Z 8 YZQ
o
o
0
OJ854BOJB5FGCEA9080A .
-YZ 88-YZ 090ZQ 08-Y
9
0 Z 0
•••••••••••• 80C50035
C548EBEADE4E80C50036
9 8 980Y9989
999
OKA548JG09D880C50031
Z 8 Z 08
09
o
I
A1WG09FBOAH580C50038
9Z -8-Y9
I
9
9
!
GFIG09SAE68AA8BADAAG
9Q Z 6Z9 8Z06-90YZ
Z
9
9 9 9 99
ADHAJAANAG-OBGODK60D
YO-Z9V999Z OOZ Q08-Z
Z 9
Z
Z9
GFOG09SPH7U780C50051
90-Z 8 - 8
8TXT.AMP •• A8 •• AAUAAF
9
Y80, Y9 Y9SZ00
99
9
,
Z
YKA7VAAAAFA+AOHBA1SE
9 Y 80YZVOY Y Z-V 9Z
9
9 9Z9 9
9
A2YEA9BEJBMNA8G7VGAE
Q 9Z0 OZY09 Y Y SZYQ
o OZ Z 9
Z
~EG7VGAOUEA880C50052
BTXT.AMG •• A8 •• AAGG-E
9
Y80 Y9 Y9YZ 0
999 9
9
I
KAAAAEA9QGOEAAB8EGAE
8ZQY9Z0 Z QO-9 9ZYQ
9 99 0
Z9
Z
FBODGFPBC7AG09SBOOGF
98-Z90 -0 RZ 88-Z90
FG09SBODGFVG'80C50053
OZ 88-290 Z
BTXT.ANP •• A8 •• AA09SA
9
Y89 Y9 Y9 899
9
9
9
A7VGAESE08GGAEDBODGF
Y BZYQ8-+ YZYQZ8-Z90
19
Z 9
I
MG09SAAAAEA90GOEDGOC
YI 8Z0Y9ZQ I OZZ 0
9
BTXT.ANG •• A8 •• AA-DMB
9
Y8B Y9 Y9 QY99
9
9 Z
G7VKB7W1VAAE8+AOHBAI
Q 8 0,8 8ZYQ Y Z-Y
I
9Z 9
9
SEA2YEA9BEJ8MADOJGAE
9Z0 9Z0 OZY09-9 ZZOO
o 0 Z Z
9Z
G7V8GGAEF80DGF3G09SP
R 8 YZYQ08-Z9Q Z 8
B1W7WAAFA+AOHBA1SEA2
o B 8ZYQY'Y I-Y 9Z0
9Z9 9
9
0
YEA9BEJBMAC080C50056
9Z0 QIY09-9
KN'B1W8AG-EUGOEDNF7W8
o 8 OZ Q I 00 R 8
AG-EUBB7AG09MBODGFBG
QI 0 -0 RI 08-Z900Z
09SGAEAPVJAA80CS0057
89Y9Y98Y'fY
9 9 9 999
A90FJ98GCACADGCAA9XK
o ZY 09QZQY990-Y .9
9
9 9 Z 09 Z 9
999
BTXT.ANG •• A8 •• AAOEFN
YBO. Y9 Y900
99
9
9 Z
AOHBA1SEA2YPH8F8FAA8
Y Z-Y 9Z0 9 - Y YZYO
9
9
0
9Z
++AOHBA1SEA280C50040
Y Z-Y 9Z0
990
BTXT.ANG •• A8 •• AAJGAE
9
Y80 Y9 Y9ZZ00
990 9
9
9Z
A8E1MKA8F1GK80C50039
Y 9 8 Y .9 Q
9
o
Z 9
I
Z
9
Z
9
9 99
I
0
Z
19 0
I
99
9
I
ZZ
Z
9-Q 8ZYO -Y
Z
9
Z
99
9
I
HArAAAAFINAG80C50054
RZ-Y9IYQ99QZ
o 9 9Z
BNC7V8GG-EDG80C50055
Y 0 8 VI O-Z
I
oZ Z
.PROGA8DHAJ.80C5005.
99990Y
8TXT.AK1 •• A8 •• AAYGBA
9'
Y88 Y9 Y999QY
999 9
9
.19
AAAAA3AQG-AAABAQGJAA
YYYYY8Y9Y YY99Y9YYYY
99999 9
99 9 999
HFAQBJAADAAGFLDHOOSA
-9Y98YYY09Y008YZ+
9 9999 9ZZ99
o
AOJGAB2BODOF80C50041
ZZ0088-990
9
9Z 9 ' Z
BTXT,.AN1 •• A8 •• AACEAP
9
Y8
Y9 Y909Y9
99
9
9
9
VJAAHEAPVJAAA2B21.SC
SYYY-9Y98.yyY9
999 9 999
BTXT.AKG •• AB •• AA1BNL
9
Y8R Y9 Y998 8
990' 9
9 9 9
EA.JFGABFQGGABDABODB
Q- Z-ZY0090ZYQ--9 98
KAGBAI/BEABA80C50042
Y88ZY 980Y9Y
99 9 999 9
BTxT.AOX •• A8 •• AAAGBY
9
Y88 Y9· Y9YO
PASSED-UCS.NOT.DEFIN
EDNOTE-DO.NDT.USE.DE·
VICE.UNDER.T80CSOO'9
9
OAJFHBODUFALAAAJAGAB
-YYQ98-98088Y-QZYZYQ
9Z 9 9Z 99 9
Z
BTXT.AKP •• A8 •• AASGBA
9
Y8Y Y9 Y9 9RZ
99
9
9
+ADADOJGABBA+AHLAHAJ
y0-9 IZYQ Z YR8YRQI
,9
Z
9099 9
HAJAMN8+Al0A.ODGABFE
-ZYYZ89 0 8-. 9ZYOQZ
99 9 9 9
Z9
A6HAABH+AOHB80C50043
Y RZYOZ Y Zo 9Z 9
FOR.OUTPUTERR.001ERR
.002ERR.003ERR.004ER
R.005ERR.00680C50060
9
BTXT.AKX •• A8 •• AAA1SE
9
Y8
Y9' Y9Y 9Z
99
9
9 9
A2YEM1PGACABOOGF4G09
o 9-9 8ZYQY8-Z9Q8Z
SPH7U7UAAEO+AOHBD1SE
8 - B 8ZYO Y Z-9 9Z
9
9Z 9
A2YEA9BAA1SG80C50044
o 9Z0 0-9 9Z
o OZ
BTXT.AOG •• A8 •• AAERR.
9
YSO Y9 Y9
007ERR.008ERR.OO'ERR
.010ERR.OIIERR.012ER
R.013ERR.01480CS0061
BTXT.ALP •• A8 •• AAACUB
9,
V88 Y9: Y9YQB8
999 9
9 Z99
ODGFEG09SAAE8+AOHBAI
-Z9QRZ 8IYQ Y I-Y
ZO
9 9Z 9
9
SEA2YOA8EIMEM1PGACDB
9Z0 9 Y 9 8-9 8ZYOR8
ODGF4G09SEA980C50045
. -Z908Z 8Z0
BTXT .AOP •• AS •• AAERR.•
9
' Y8
Y8 Y9
015ERR.016ERR.Ol1ERR
.018ERR.019ERR.020 ••
•••••••••••• 80C50062
BTXT.ALG •• A8 •• AABEJB
9
Y8R Y9 Y9QZYQ
99
99ZI
MAD8HGACYAB8EGACAAAA
. 9-9 9Z00 -9 9ZYOOZOY
9Z
Z 99
AEA9QGOCFBODGFBBC7AG
9Z0 Z 008-Z9QY-O RZ
AAANAAANAAA5AAN/AANA
8Y09SY088YQ88Y988Y9R
999 999 999 99 99 0
AAKAAAKAAAKJAANIAAN9
.8Y888Y8RBY888Y8 8Y8'
999 999 999 999 999
9Y89
it
o
8TXT.ALG •• A8 •• AASAB8
9
Y8Y Y9 Y98-9
99
9
9 9
9
9
%99
Z
Z
FGACYAAAAEA9QGOCOBOD
9ZYQ ZOY9Z0 Z OY8-Z
Z990
Z9
o
9
o
9
Z 9
9
Z
Z 9
Z
GFHG09SAAABEA9QGOCDB
90-Z 8ZQY9ZQ Z Q 8
Z
9 99 0
Z9
999
9
99
99
99
9 0
9
9
99
'9
!
I
9
9
• •••••••••• AA ••••
·BEND
9
Y9
.... .........• ...... .
~
.. OBOOGFOG09SAH8HGACYB '
8-Z900Z 8-9 91QO 8
9
Z
9
9Z 9
ODGFAG09SAOOJGACFNC8
-Z90-Z 8-9 ZZOOO 0
BTXT.ALG •• A8 •• AAG8G7
9
Y80 Y9 Y9R Y
99Z 9
9 O'
VGAOQKA558GKB5655AOO
8ZYQZ. Y ·8 Y 0 8 8-9
.
JGAD·SNC558GGAD2GOD4N
ZZ008 '08 YZY08Z 09
9i9
,Z9 . Z
, G558GGAD2BOD80C50049
R 8 YZY088-I
8TXT.AM1 •• A8 •• AAGFDA
9
. Y89' Y9 Y99QDZ
99
9
9 Z-
. E8GAA8GA.AAGAOOAJAAN
9 YZO Y- QYZY08Z9Y99
9
99 Z 9
AG-DBBODGFCG09SBODGF
91' OZ8-Z9QOZ 88-190
I 9 ,ZO
99
I
8G09SAH8HGAD80C50050
I 8-9 9ZYO
DATE
EC
16JUN65
124263
. :z
22JUN65
124249
9
15JUL65
124265
150EC65
125601,
Z
15MAR66
125632
9
15NOV66
125655
G7VGADOGODHN80C50048
Y 8ZYOZZ 09
.
Z
9ZZ
o
,!
.Z
Z99-
9
Z
!
f
~
~
1:
~...-~_.-:-~._~'
..................•.
..•..........•.•....
BOAT ............... ••• '
9
99
•••••••••••• 80C50064
BESD •••••• AA •• AAXF80
YO Y9
99 9
9
BTXT.AAN •• AC •• AAAKD.
9
Y09 'Y9 Y9YSY
99
9
999
C5 •• AAAA.AF4 ••••••••
YYOY Y8
9999. 99
..... ..•...•••. ....
~
~
•••••••••••• 80C50065
........•.••••....•.
•••••••••••• 80C50066
..... .•....••...•• ,
••••••••• ~ •• BOC50061
.
~
I,
F80C-5 i
. PAGE
19 ~
, • 10
~
HADA~ ••••••• 80C50063
9
~
BTXT .. ALG •• AB •• AAHGAC
9'
Y8
Y9 Y99ZYO
99
9
9
Z
99
9
BRLD ••• ~ •• AA •••• AAAA
9
YO'
Y9Y9
9Z
9 9
ODGFGG09SAA880C50041
-Z900Z 8-0
8
Z
BTXT.AOP •• AB •• AAEST.
Y8Z Y9 Y9
09SBODGFAG0980C50046
88"'Z90-Z
99
Z
Z
9
19A
9
AN/1403.UCST.CONTROL
9
8~0223
1403 UCS OVERLAY 1 + 2
BTXT.AMX •• A8 •• AA280D
9·
Y88 Y9 Y9S8-Z
99
9
9
9
. •• ~ ••••••••• 80C50034
9
PIN
PAGE
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PIN 840223
PAGE
19
IBM 'MAINTENANCE DIAGNOSTIC PROGRAM,
DATE
EC
16JUN65
124263
22JUN65
124249
15JUl65
124265
15DEC65
125601
15MAR66
125632
15NOV66
125655
FiloC-5
ID
19A
PAGE
t __ ,_ . ____ -----..--'---------~~-----.-------'-------:-. '-'-"--.--"-~-.....-..,-
"
. .-"" --'--r'-" .--.. ..
.:::, 840~;' I
~
IBM MAINTENANCE DIAGNOSTIC PROGRAM'
F80C
2821 'SCAN
[
}
t
IBM MAINTENANCE DIAGNOSTIC PROGRAM
1403 UCS OVERLAY 1 +2
F80C
PIN
PAGE
2821 SCAN
840223
.204.
!I
!
1403 UCS OVERLAY 1 + 2
f
BTXT.AKO •• A8 •• AABAGF
9
Y8Y Y9 Y99YOQ
99
9
9 9ZZ
A.9/GABDB87AE87AG-9M'
8ZYOQ-0 R-O RZ 0
9 Z
F. 91 A+ADADOJGABHA+AH .'
-' 8Z YO-9 ZZYOOZ' YR
9 9
Z- 90,
PA5454PW5F5F80C50068
o8 8 8 QQ
BTXT.AKO •• A8 •• AAKC7Y
9
Y8
V9 Y9 0 8
99
9
9
55FJ9/AAFA+AOHBD1SEA
8-Y 8ZYQQ Y Z-9 9ZQ
9 9 9ZZ 9
0
2YEA9BEM1PGA84BODGFO
9Z0 0-9 8ZYO 8-Z90OZ
9 Z9
Z
G09SAA1SGACF80C50069
Z 8-9 9ZV09 .
BTXT.AKD•• A8 •• AABODG
9
Y8Q Y9 Y98-Z9
99Z 9
9 9
o Z 8-9 9ZVQZ-9 9ZY
FPG09SAB8GGACFAD8HGA
CU80DGFWB07AG09SAA8H
098-Z908-0 RZ 8-0 9
Z
Z 9
GAEHAH8HGAC080CS0070
ZOO -9 9Z0QO
9Z
9ZZ
9
Z
GAEK800GFPG09SAAF-KA
ZYQY8-19OZZ 8Z00 Y
Z
9 9
9
Z
9 9
AAFA+AOH8D1SIOCSOOll
ZYQQ V Z-9 9
9ZZ 9
EA9BAA1SGA8DAB8GGACD
ZO Q-9 9Z00Q-9 9ZYQY
OZ
9ZZ
Z
AD8HGACODG9/KA7YAAKB
-9 9ZQQ9-Q 8 Y 8QY 0
9Z 9 9 9
9
7W7YAAFJ+AOH80t50072
88ZYOY V Z
9Z9 9
EA2YEA98EJ8MAB8GGADM
ZQ 9ZQ QZYQ9-9 9ZYQ8
o 0 Z Z
Z9
AD8HGACF80DGFEG09SAH
-9 9ZYQY8~Z90RZ 8-9
Z99
ZO
9
8HGACDAB8HGA80C50073
9Z00Q-9 9Z0
9ZZ
9
BTXT.ALD •• AI •• AAC4AA
9
V80 V9 V908-9
999 9
9 Z9
8HGADMAAA8EA9QGODF80
9ZYQ8ZQY9ZQ Z Q9819990
Z9
DGFBG09SBODGFDG09SAA
Z9Q Z 88-Z9QOZ 8Z0
BTXT.AMM •• A8 •• AADGF~ ,
9
'V89 Y9 V9Z908
99
9
9
Z
G09SAE8BAA88ADAAGAD2
Z 8Z9 8ZQ 8-9QYZYQ8
9
9 9 9 99 Z9
AJAANAG-DUGODDBODGFC
Z9Y999Z 09Z OZ8-Z900
BIXI.AMD •• AI •• AANAG9
Y88' V9 V998Z
C8PA5454PW5F5FKC7Y5S
Q8 0 8 8 8 Q Q 0 8 8
FJ9/AAFA+AOH8A1SEA2Y
-Y 8ZYQQ Y Z-Y 9Z0 9
9 9 9ZZ 9
9
0
BTXT.Al~ •• A8 •• AAA.8H
9
Y89
99
Y9
9
Y99
9
199
8TXT.ALU •• A8 •• AAEA2Y
Y88 Y9 Y9Z0 9
I)
99
I)
9
0
8TXT.ALM •• A8 •• AABA1S
9
Y80 Y9 V9-V 9
99
99
9
9
9
9
9
Z
Z
9
BIXT.AMD •• A8 •• AAAD8H
9
V80 :. V9 Y9-9 I)
99
9
9
9
Z
5SAAKOS6SSKC7Y55FJ91
8QY Y 8 8 0 8 8-Y 8
ZZ
9 9
9
Z Z
Z
9
99
Z
Z-
Z 9
9 9
Z
0
o
Z
8TXT.AM4 •• A8 •• AAEABO
9
V8
V9 Y90Va99
9
9 Z99
DGFFG09SAA6YAJAAAAS5
Z9QQZ 8lY 8ZYY9ZQ 8
Z9
9 9
99 9
8/AAASAAE.AAGAEDAJAA
Z9YYZ9Y9- QVZV08Z9Y9
99 9
99 Z9 9
NAG-EDKC7VS580C50079
90Z 08 0 I 8
9 Z9
BIXT.ANU •• A8 •• AAFJ91
9
V88' Y9 V9-V 8
9999999
AAFA+AOHBA1SEA2YEA98 .
ZYOO v Z-V 9ZQ 9Z0 0
9ZZ 9
9
0
0 Z
A88GGAEHAD8HGACOGODF
-9 9ZYOR-9 9Z009Z OY,
Z
9Z
Z9
DG9/PC7Y7YKG80C50080
-0 80 8 8 R
BIXT.ANM •• A8 •• AA7YS5
9
Y8Z Y9 V9 8 8
99
9
9
~V
FA9/AAF.+AOHBA1SEA2V
8IVO' V Z-V 9Z0 9
9 9Z 9
9
0
EA9BEJaHAB8GGAEFAA8M
ZO OZY09-9 9ZYOO-Q 9
OZ Z
ZZ9
. GAEKAAAAEA9080C50081
ZVO ZOY9Z0
Z .99 0
BOEGFGG09SAAABEA90GO
B-Z900Z 8ZQV9Z0 Z
9
Z
9 99 0
o -9
EHAD9XGAD2BODGFOG09S
9ZY088-Z900Z 8
Z
Z99
Z
9
BODGFIG09SAD80CS0082
8-Z90 Z 8-9
9
Z
9
9 9
9
Z
GOEUBOOGFYG09SGAEAPV
Z 088-98Q Z 89V9V98
Z 9 91
9 .9 9
JAAHEAPYJAAALAN4-AAA
VYV-9V98VVV9VV98 VV9
999 9 999 99
99
CAN5JAADLAN480C50084
QV98YV99VV98
Z9 99 99
15NOV66 '
125655
R.030ERR.0,3180CS0086
BTXT.AOO •• A8 •• AAERR.
9
V80 V9 V9
99-,9
9
032ERR.033ERR.034ERR
.035ERR.036ERR.037ER
R.038NO.ERR080CS0087
BTXT.AOM •• AH •• AARS.F
9
YIY Y9 V9
999 9
9
OUND •••••••'•••••••••
....•••.....•.•.••
• ••••••••••• 80tS0088
BRLD ••• ·•·•• AY •••• AAAA
9
Y9'
V9V9
AAANAAD/AAO/AA01AA01
, 8V091V891VI81Y898V81
999999 99999999999
AAOAAAOAAAOAHAOJ ••••
8V8Z8V888V8R9V88
999 999 999 99
•.••...•. •.....•...
~
.........•.....••...
• ••••• .-••••• 80t50090
........ ..•...•.. -..
........... ...........
..-•••••••••• 80tS0091
9
9 9
9
80At •• '•• ':.' • •••• ~ ••••
1••
.9
~
~.,
~.
t
!
..~ ••••••••• 80CS0089
..
9
.:::'
I)
BTXT.ADD •• A8 •• AAD791
9
Y88 V9 V9-8 8
999 9
9
9
15HAR66
150EC65
125601 " 125632
.027ERR.028ERR.029ER
0
9/GAFMKG7V5S80C50083
8ZV09 R 8
15JUL65
124265
024ERR.025ERR.026ERR
Z
DGFCG09SBODGFNG09SAA
Z900Z 88-Z9QYZ 8-Y
ZO
99
Z
9
22JUN6S
124249
BTXT.A04 •• A8 •• AAERR.
9
V88 V9 V9
99
9
9
t
!
FJ~AOHBA1SEA80C50077
. E4AH8HGAD2AA8HGAEF80
0-9 9Z008-9 9ZQ008-'
Z
9Z9
9ZZ9
16JUN65
124263
R.022ERR.02380C50085
QV;VI-Y 9Z0
Z9 9
9
0
BTXT.ANM •• A8 •• AA8HGA
9
V8
Y9 V9 9Z0
99
9
9
9
DATE
Et
JAAAOS08DFGERR.021ER
VVV9+8 000
999
ZIZ
Z
AJAANAG-DSG080CS0078
Z9Y999Z08Z
9
. AAPVJAAHLAN4-AAACAN5
8Y98YVVRVV98 YV90V98
99 999099
99 Z9.
BEND ••••• _••• ·.AA •• ·••
9
V9
EA9BABIGGADJ80CS0076
ZO.0-99ZVQV
G09SAE88AA8BADAAGAD6
Z 8Z9 SZO 8-9QYZgO
9 .9 9 9 99 9Z
99
I
::Z~~ZZ-~9
Z
9BEJ8HAB8GGADQBODGFH
QZYQ9-9 9ZYQ 8-Z9QZ .Z
Z9
Z
BTXT.AND •• A8 •• AAGOEK
9
Y80 V9 V9Z OV
!
BTXT.AOD •• A8 •• AA-AAA
9 .. Y8Z V9 Y9 VY9
99
9
9 99
'G09SAAFPAIAA80CS0075
8TXT.AMD •• A8 •• AA2VEA
9
yeO V9 Y9 9ZQ
990· 9
9
0
9
II
Z 9
G09SDG9/8G7YK87W7YAA
Z 8-08-Q 8 0 8 8ZY,
9 9 9 Z
I: .
AAEA90GOEHB080C50074
V9ZQ Z QI9
GADFBODGF8G09SBODGFA
ZQQ-8-Z9QYZ 88-Z9Q9Z 9
Z
99
Z
.
I
I
Z ,0
10
FIOC-5 i
PAGE
20 .1
,!
LAST PAGE
DATE
EC
16JUN65
124263
22JUN65
124249
15JUL65
124265
150Et65
125601
I5HAR66
125632
15.NDV66 .
125655 .
"f
o
'0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
o
(l
0; C 0 C C 0
:r· ,
v c c c
0
c
(j
c c c c c
PIN 040225
PAGE
1
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PRINT BUFFER DATA REGISTER ROUTINE OVERLAY 3
001048
0010EO
0010E2
001110
0G'1l00
001122
00119F
0011A4
001121
001120
00157C
001678
001220
001751
001753
.
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
MODIFICATIONS
•
••
••
REVISION LEVel 3. THIS REVISION DIFFERS FROM VERSION 2 AS
•
FOLLOWS •••
•
••
••
1. PRINT BUFFER DATA REG FLT -ROUTINE OVERLAY 03TH IS ROUTI NE WAS NOT MOD I F I ED.
•
••
2. UCS DATA REG FLT -ROUTINE OVERLAY 04••
A MESSAGE WAS ADDED TO INDICATE THAT THE CONTENTS OF
••
THE UCS BUFFER WAS DESTROY EO, AND COULD BE RESTORED
••
BY PROGRAM FB37.
••
3. UCS BUFFER RESTORE RTN -ROUTINE OVERLAY FF•
THIS ROUTINE WAS OELETED FROM THE PROGRAM PACKAGE.
•
•
THE
SCAN
PROGRAMS
NO
LONGER
RESTORE
THE
UCS
BUFFER-•
••
THEREFORE, OATA CARDS DEFINING THE UCS CHAIN
•
CONFIGURATION ARE NOT TO BE ADDED TO FOOC/FO/O.
•
•
PROGRAM F037 IS TO BE USED TO RESTORE THE UCS BUFFER.' •
•
••
•
ENGINEERING CHANGE PREREQUISITES
•
1.
MACHINE
••
••
2021 CONTROL UNIT WITH 1403 UCS ATTACHMENT AT M~NIMUM
E.C. LEVEL 125655
•
•
2. PROGRAM
••
NONE
•••
••
USE DESCRIPTION FOOC. AT E.C. 125655, DATED 1 NOV 66 OR LATER
•••••••••••••••••••••••** •••• *** ••• *•••• *.*•••*•••••••••••••••••••••••••••
~
.'
•
REVISION LEVEL 2. THIS REVISION OIFFERS FROM VERSION 1 AS
FOLLOWS •••
*•
1. PRINT BUFFER DATA REG FLT -ROUTINE OVERLAY 03-
THlS ROUTINE WAS NOT MODIFIE.O
2. UCS DATA REG FLT -ROUTINE OVERLAY 04THIS ROUTINE WAS NOT MODIFIED
3. UCS BUFFER RESTORE RTN -ROUTINE OVERLAY FFTHE OPTION TO RESTORE THE UCS BUFFER WITH THE OATA
CHECK LATCH -ON- OR -OFF- WAS INCLUOEO. IF SECTION
SENSE SwITCH 28 i: S SET TO 1, THE OAT A CHECK LATCH
WILL BE TURNED -ON-OTHERWISE, THIS LATCH WlLL REMAIN
IN THE -OFF- STATE.
*
*
*
*
*
**
*
•
*
ENGINEERING CHANGE PREREQUISITES
1. io+ACHINE
2821 CONTROL UNIT WITH UCS ATTACHMENT AT MINIMUM
E.C. LEVEL 125632
2. PROGRAM
NONE
*
*
••
001015
' ... "USING •• l!i
•
••
••
••
•
•
••
.
. , '.,
,
001030
0010~0
OATE
EC
16JUN65
12~263
15JUL65
124265'
15MAR66
125632
EQU.
EQU
SECNO+~
EQU
SECNO+6~
1!5NOV66
125655
'
0 0 0
-
00176C
00176C
00176E
001770
001774
001778
II
I
00177C
001785
001786
001787
001790
001791
00179A
00179B
0017A4
0011A5
OOl1AE
0017 AF
001788
0011.89
0017C2
0017C3
0017CC
0017CO
0017D6
001707
0017EO
0017El .
0017EA
0017F3 .
0017FA
001803
00180A
001813
OOlOlA
00tB23
001825
00182E
001B2E
001830
ID
FOOD-3
PAGE
1
EgU
EQU
EQU
EgU
EgU
EQU
EQU
EgU
EQU
EQU
EQU
EQU
EgU
EQU
EgU
SECNO+72
SECNO+224
SECNO+226
SECNO+280
.SECNO+264
SE-CNO+290
SECNO+415
SEC.NO+420'
SECNO+289
SECNO+288
SECND+1404
SECNO+1656
SECNO+552
SECNO+I073
SECNO+1815
.......................................................................
DC
ORG
•
AL31RTN031
SECNO+1900
INITIAL PSW STARTING ADDR FOR RTN 03
DATE
EC
VARIABLES FOR ROUTINE 03 - DOUBLE WORD BOUNDARY
•
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
CNOP 0,8
ALIGN ON DOUBLE WORD BOUNDARY
BCR
BCR
WKAR
DC
07 00
07 00
00000000
00000000
00000000
0,0
0,0
3F'OO'
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
VARIABLES FOR ROUTINE 03- NO 80UNOARY
•
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
DATWK DC
XLIO'OO'
000000000000000000
00
80
000000000000000000
40
000000000000000000
20
000000000000000000
10
000000000000000000
OS
000000000000000000
04
000000000000000000
02
000000000000000000
.01
000000000000000000
00
00000000000000.0000
DC
'DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
X'OO'
XL9'OO'
X'40' .
XL9'OO'
X'20'
XL9'OO'
X'lO'
XL9'O.Q'
X'OB'
XL9'OO'
X'04'
XL9'OO'
X'02'
XL9'OO'
X'Ol'
XL9'OO'
X'OO'
'XL9'OO'
X'FF'
XL9'OO'
C'ND DATA TRANSFER'
OAT80
DC
C'RED BYDIAGNOSTI'
C340C3C8C5C3D240D9
C5CIC440C6D6D9
DC
C'C CHECK READ FOR'
40C4C5E5C9C3C5~0E7
DC
e' DEVICE XXX'
OAT40
DAT20
DATlO
DATOS
DAT04
DAT02
DATOI
DATOO
DATFF
FF
000000000000000000
05D640C4CIE3C140E3'
09CID5E2C6C5D9
D9C5C440C2E840C4C9
MSGi.
CIC7D50bE2E3C~
E7E1
C5D9D940FOFOF040
~
SECNO
SNSW
CSW
"
'
• I
...• i
• I
•• .1!!
•
·································t·················.··
........"i
.......
•
.
ROUTINE OVERLAY 3
..
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
RESIDENT LABelS ADDRESSED BY OVERLAYS
' .
.......................
......................................•........
001000
001004
c
0 0 () 0
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ORG
SECNO+21
90176C·
•
••
•
USE DESCRIPTION F80C. AT E.C. 125632, OATEO 15 MAR 66 OR LATER.
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
XF80D3 START 4096
,001000
c c
,"
PIN 840225
PAGE
lA
CAW
UNITI
UIADDR
SIOVR3
SIOVR4
SIOSWS
STATSV
CSWAG
CAWKEY
SENSE
SCPDAT
SCPROO
SIO
SCHNUM
UAPRT
001015
1-
•
•
•
•
0 0 0
F80C 2821 SCAN, 1403 UNIVERSAL CHARACTER SET
F8003 PRINT BUFFER DATA REGISTER ROUTINE OVERLAY 3
TITLE F0003
**
c
IBM MAINTENANCE DIAGNOSTIC PROGRAM
FOOC 2021 SCAN, 1403 UNIVERSAL CHARACTER SET
FOOD3 PRINT BUFFER DAT~ REGISTER ROUTINE OVERLAY 3
0003
0
01 00
03
I6JUN65
124263
ERRXX "oe
UN03
15JUL65
124265
e'ERR 000 "
,
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
.
ROUTINE 03 PREFIX
.
•
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
eNOP 0,4
FULL WORD ALIGNMENT
15MAR66
125632
B.eR
DC
15NOV66
125655
0,0
XU'03'
ROUTINE NUMBER
10
. PAGE
F80D-3
lA
IBM MAINTENANCE DIAGNOSTIC PROGRAM'
PIN
PAG~
840225
2
, IBM 'MAINTENANCE DIAGNOSTIC PROGRAfI
FBOC 2821 SCAN, 1403 UNIVER"SAL CHARACTER SE"T
F80D3 PRINT BUFFER DATA REGISTER ROUTINE OVERLAY 3
001831
001832
00
FFFE
001834,
001838
00183C
00183E
001842
001846 '
001848
001849
00184A,
00184C
001850
001854 '
95 83
41 80
OA 06
91 02
47 80
OA DO
80
20
F808
91 40
41 80
45 80
001858
001B5C
001860
001866
00186C
, 00,1872
001876
00187A
00187E
001882
001886
0018BC
001892
001898
00189C
oc
DC
•PBOROO:CLI
F 151
F 83E
BC
SVC '.
PBDROl TM
BC
SVC
"
DC
,
,DC
DC
PBOR02 TM
BC
BAL
F 004
F 84C
F 004
F 858
F 678
••
F 186
·F 7EA
F 77C
F 57C
F57D
F 122
F AFO
F 048
F OE2
F 228
F 170
F 77E
F 77F
F 8E2
F 780
0018A2
0018A6
0018AA
0018AE
001882
001888
0018BE
0018C4
0018C8
41
50
92
45
02
02
02
45
02
00
00
00
80
00
00
00
80
00
F
F
F
F
F
F
F
F
F
0018CE
001804
001808
0018DA
00180E,
02
41
15
47
47
09
10
12
60
FO
1 000 F 77C
1 OOA
0018E2
0018E6 ,
0018EA
0018FO
0018F4 .
0018FA
001BFE
001904
001908
00190E
001912
001914
00191A
00191C
001910
41
50
02
45
05
47
02
45
05
47
07
0,2
OA
40
00
00
01
BO
01
BO
01
BO
01
80
F8
02
DO
DATE
EC"
31
16JUN65
124263
1 000
F 77C
F 51C
F llC
F 19F
F 120
F 57C
AF8
048
57C
228
781 F 57C
782 F lA8
783 F 120
8E2
784 F 57C
F 860
F 924
F
F
F
F
F
F
F
F
F
F
BOO
048
57C
228
57C
914
57C
228
57C
914
LA
P8DRll MVC
MVC
MVC
MVI·
LA
ST
LH
BAL
MVC
MVC
MVC
BAL
MVC
••
••
••
PBDR20
F B35
F B35
F B35
F B35
F 822 F 753
XLl'OO'
X'FFFE'
FLAGS
ADDRESS OF NEXT ROUTINE
SCHNUM,X'83'
EQ,PBOROl
X'06'
SNSW,X'OZ' ,
NONE,PBDROZ
X'DO'
X'BO'
X'ZO'
AL2ITITLE-8ASE+REGI
SNSW,X'40'
NONE,PBDRlO
R8,SCPROO
SEE IF SEARCHING FOR, ROUTINE 03
RUN RTN 03 IF VES
ROUTINE EXIT
8R IF SEC SS 06 IS 1 - PRINT TITLE
BR IF NO
PRINT TITLE
II NORMAL OUTPUT
" 45 CHARACTERS
•• ADDRESS OF MESSAGE
"
SEE IF SEC SS 01 15 1 -'WANl-UTIlITY
8R IF NO~'
' '"",
8R TO UTILITY ROUT.lN;;
R1,DAT80
R2,DATFF+I0
OATWKIU ,0IRl!
SCPDATlll,DAWR
SCPDAT+111I,SCPDAT
SIOSWS,X'OO'
RO,WRCCW
RO,CAW
R12,U1ADDR
Rll ,SIO
STAT1111,CSWSAV+4
STAT2(1) ,STATSV
WRSNSIlI,SENSE
R8,PBDR20
WCKRO 11) ,SCPDAT
00191E
001920
INITIALIZE
" DATA TO WORK AREA
MOVE
SET CHAR, TO BE WRITTEN IN WRITE AREA
t t
.
~.
.',
.
SET SID P~OGRAM SWITCHES
LOAD OIAG WR CCW ADDR IN CAW
,
LOAD PRINTER 110 AODR IN, GR 12
GO PERFORM OIAG WR
SAVE DIAG WR CH END STATUS
SAVE DIAG WR DEV END STATUS
SAVE 01AG WR SENSE DATA
GO DO DIAG 1:K., READ
SAVE DIAG CKREAD DATA
LA,
S7
MVI
BAL
MVC
MVC
MVC
BAL
MVC
RO,RDCCW
RO,CAII
SCPDAT,X'OO'
Rll ,SIO
DARDI1),SCPDAT
STATRO(1),CSWAG+4
ROSNS(1),SENSE
R8,PBDR20
RCKRD(1),SCPDAT
" READ AREA
CLEAR
GO PERFORM DIAG DATA READ
SAVE REAO DATA
SAV~ READ STATUS
SAVE READ SENSE DATA
GO 00 OIAG CK READ
SAVE DIAG CK READ DATA
MVC
LA
CLR
BC'
BC
OllO,Rl),DATWK
R1,10lRO,R1)
Rl,R2
UNEQ,PBDR11
UNC,P8DR30
SAVE COLLECTED DATA
ADD 10 TO GR 1
seE IF END OF DATA COLLECTION
BR IFNO
GO ANALYZE COLLECTED DATA
LA
RO,CKRCCW
ST
RO,CAW
MVC
SCPDATI21,PBDRKI
BAL
Rll,SIO
CLC '. SCPDATl21IPBD~K1
BC
EO, PBDR21
MVC
SCPDAT(2),PBDRKI
BAL
Rll ,SIO
CLC
SCPDAT(2),PBDRKI
BC'
EQ,PBDR21
BCR
UNC,RB
PBDR21 MVC
MSG1+56131,UAPRT
X'DO'
'
SVC
DC '
X'40'
,DC
X'31'
15JUL65 ,1,MAR66
12426,,, 125632
F80C 2821 SCAN, 1403 UNIVERSALtHAR~CTER SET
F80D3 PRINT BUFFER DATA REGISTER ROUTINE OVERLAY 3
DATA COLLECTION ROUTINE
'P8DRI0
"
LA
4110
41 20
02 00
02 00
02 00
92 00
41 00
50 00
48 CO
45 BO
02 00
02 00
02 00
45 80
02 00
15NDV66
125655
UN 84022$
PAGE
2A
LOAD DlAG DATA RO CCW ADOR ,IN CAW
LOAD OIAGCK RD CCW AOOR IN CAW
,,
SET OOFF IN DATA FIELD
GO DO OIAG CK READ
SEE IF ANY DATA WAS XFERREO
GO PRINT ERROR
SET OOFF IN DATA FIELD
GO DO SECOND DIAG CK READ
SEE IF ANY DATA WAS XFERRED
GO PRINT ERROR
RETURN
SET PRINTER AODR IN OUTPUT MSC
NO DATA TRANSFERRED BV' DIAG,CHECK
., PRINT ERR
" 49 CHARACTERS
10
POAGE
!
II
Ro'l
. f
Fe'";'
I
F7EA
47 FO F 8E2
001924
001928
00192C
001932
001936
00193A
0019lE
001942
001946
00194A
00194E
001952
001956
00195A
00195E
001962
001966
001968
00196C
001970
001974
41
41
02
43
92
44
47
92
92
91
47
.91
001in8
00197C
001982
001986
00198C
001992
001996
92
02
92
02
05
47
OA
001998
001999
00199A
00199C
44
07
FB49
47 FO F A70
0019AO
0019A4
0019A8
0019AC
91
41
47
OA
0019AE
0019AF
0019BO
001982
44
07
FB50
47 FO F A70
0019B6
0019BA
0019BE
0019C2 .
0019C8
0019CC
001900
001904
001908
00190C
0019EO
0019E4,
41
41
41
02
41
43
44
47
41
44
47
15
DATE
EC
~7
92
41
41
15
47
41
47
91
10 F 786
30 F 57C
09 F 77C 1 000
40 F 77C
00 3 000
40 F 974
80,F 946
FF 3 000
00 3 014
01 F 780
BO F95E
02 F 770
BO F 95E
FF 3 014
10 1 OOA
30 3 001
12
60 F 92C
20 F 7EO
FO F 978
00 F 781
00
08
FF
08
07
60
F
F
F
F
F
F
5AE
5AF F 5AE
5C2
5C3 F 5C2
57C F 5AE
9AO
00
FF F 7DB
10 F 9AC
FO F 9B6
DO
10
50
20
09
90
40
40
80
90
40
10
12
16JUN65
124263'
F
0
F
F
5
786
034
7CC
77C 1 000
000
P8DR30 LA
LA
PBOR31 MVC
IC
MVI
EX
8C
MVI
P8DR3Z MVI
TM
8C
TM
BC
MVI
P8DR33 LA
LA..
CLR'
BC
LA
BC
PBDR37 TM,
••
'BDR40 MVI
,
MV_C
MVI
MVC
CLC
BC
SVC
••
••
PBOR50
DC
DC
DC
BC
TM
8C
BC
PBOR51 SVC
•••
DC
DC
DC
BC
•*PBOR60 LA
LA
LA
PBOR61 MVC
LA
IC
EX
BC
LA
EX
BC
974
9FA
001
9F6
9FA
CLR
15JUL65
124265·
AL2 I MSG1":BASE+REGI
UNC,PBDR20
" ADDRESS OF MESSAGE
GO TRY OIAG CK READ AGAIN
Ri"OAT80 '
R3,SCPDAT
DATWKIlO) ,OCRU '
R4.0AWR
0IR3).X'OO'
M.P,BDRH
NONE.P80R32
OlR3I,x'FF'
20IR3),X'00'
WCKRD.X'Ol'
NONE,PBDR33
STAll,X'02' ,
NONE,PBDR33
20lR31.X'FF·
Ri,l0lRO.RU
R3.lfRO,R31
Rl,R2
UNEQ,PBDR31
R2.DATOO+I0
UNC,PBDR40
OARD.X'OO'
INITIALIZE ANALYSIS ROUTINE
..
MOVE DATA GROUP INTO WORK AREA
SET UP MASK
SEl SW SAYING'EXPECTED BIT OFF
SEE IF EXPECTED BIT ON
BR IF NO
SET UP TO SAV EXPECTED 81T ON
SET SWSAYING DID NOT GET,CH END, PAR
SEE IF GOT PARITY
8R IF NO
SEE IF GOTUC WITH CE
BR IF NO
SET SW SAVING GOT PARITY WITH CE
UPDATE ADDRESSES
"
SEE IF FINISHED
CONTINUE
SET UP GR 2
•••••••*••*•••••••• *••••••••••••••••••*••••••••••••••••••••••••••••••••
•
DATA ANALYSIS ROUTINE
••••
*.*...............................................................
.•
F 77C'
F
F
9
F
F
DC'
BC
,
15MAR66
125632
~5NOV66
125655
TEST IF 8IT READ OK - USED WITH EX
SCPOAT+50.X·00'
SETUP COMPARE FIELDS
SCPOAT+51(9),SCPDAT+50 ••
SCPOAT+70.X'FF'
I.
SCPDAT+71(9),SCPDAT+70 ,t
SCPDATI8I,SCPDAT+50 ·SEE IF UNA8LE TO TURN ON ANY OR BIT
UNEQ,PBDR50
BR IF NO
X'DO'
ERR 050 - NO PR BUF OAT REG81TS CAN
t, BE TURNED ON - PRINT 8UFFER DATA
" REG RESET MAY BE ON SOLID
X'44'
" ERROR OUTPUT
X'07'
" 7 CHARACTERS
AL21ERR050-BASE+REG)
" ADDRESS OF MESSAGE
UNC,LGOUT
GO SEE IF WANT LOG OUT
DATOO+5,X'FF'
ALL,P8DR51
UNC,PBDR60
X'DO'
X'44'
X'07'
AL2IERR051-8ASE+RE'1
UNC.LGOUT
R1,DAT80
R5,52
'iU,OATOl
DATWKllO) ,OI'Rl) ,
R9,OlRO,R51
R4"DAWR
R4,PBOR37
NONE,PBDR63
R9.1IRO,R9) ,
R4,PBDR62
ALL,P8DR63
Rl,R2
SEE IF ALL DATA REG 81TS ON SOLID
8R IF YES
CONTINUE ANALYSIS
ERR 051 - ALL PRINT BUFFER DATA REG
" BUTS ON SOLID - POSSIBLY NOT
" GETTING' PRINT 8UFFER DATA REG
•• RESET
•• ERROR OUTPUT
" 7 CHARACTERS
" ADDRESS OF MESSAGE
GO SEE IF WANT LOG OUT
INITIALIZE ROUTINE
"
" DATA TO WORK AREA
MOVE
SET UP ERROR NUMBER
SET UP MASK
SEE IF BIT READ
8R IF NO
SETUP ERROR NUMBER
I
I
SEE IF FINISHED HERE
10
PAGE'
F800-3
2A
.--~~------~~--~--------~----~----------___________~_ _ _ _ _ _ _ _ _ _L -_ ____
o
0 0 0 0 0 0 0 0 0 0 0,0 0 ', 0 0 0 0 00 0 0 0 0 0 0 00',0 0 0 0 0 0
000000 000 000 000000000000 0000000000
IBH HAINTENANCE DIAGNOSTIC PROGRAM
PIN 8"0225
PAGE
3
IBM MAINTENANCE DIAGNOSTIC PROGRAM
F80C 2821 SCAN, 1403 UNIVERSAL CHARACTER SET
F80D3 PRINT BUFFER DATA REGISTER ROUTINE OVERLAY 3
0019E6.
0019EA
0019EE
0019F2
OO19F6
0019FA
0019FE
OOlAOO
00lA02
001A04 _
00lA06
47 80
41 10
41 50
47 FO
91 00
4E 90
OA 00
0002
0776
0829
OA 00
00lA08 '
00lA09
OO·lAOA
OOlAOC
44
07
F825
"7 FO F A70
00lA10
00lA14 OOlAlS
91 fF F 598
47 10 F A48
05 07 F 590 F 5CZ'
F
1
5
F
'F
F
AIO
OOA
002
9C2
7DB
770 .
47 80 F A3E" ','
OOlAIE
ODlA22
05 07 F 590F 5A!=
47 60 F'A66
00tA28
00lA2C
91 FFF:599
00lA30
47 10 F A66
00lA34.
OA 00
00lA36 .., S4
00lA37
12.
00lA3S
FB37
,OOlA3A
47 FO F AlO
00lA3E
OA'OO
i
I
•
i
00lA40
00lA41
00lA4Z
00lA44
00lA4B
07
,FBC7
47 FO F A70
05 07 F 590 F 5CZ
001A4E
001A52
47 80 F A66 '
05 07 F 590 F 5AE
001A58
001A5C
47 60 F A66
OA 00
00lA5E
00lA5F
001A60
001A62
00lA66
44
07
FBCE
47 FO F A70
OA 00
00lA68
001A69
00lA6A
00lA6C
44
07
FBD5
47 FO F A70
44
BC
LA
LA
BC
P80R62 TM
. ,PBOR63 CVD
SVC
DC
DC
DC
SVC
.
.,
.
..
•
•P80RlO
•
BR IF YES
UPDATE ADDRESS
UPOATE ERROR NUMBER
CONTINUE
SEE IF 8IT IN OFF STATE- USED 8Y EX
CONVERT ERR NO. TO PRINTABLE
..
It
It
It
ERROR - DATA REG BIT HOT ~R CANNOT
" BE TURNED ON - ERR NO. IN GR 9
.. 8YTE 3
" PRINT ERR
" 7 CHARACTERS
" ADDRESS OF MESSAGE
GO SEE IF WANT LOG OUT
X'44'
X'07'
ALZ(ERRXX-BASE+REGI
UNC,LGOUT
TM
BC
CLC
SCPDAT+Z8,X'FF'
8R IF GOT PARITY WITH CE FOR OAT 00
All,P80R7Z
"
SCPDAT+ZO(81,SCPOAT+70 BR IF GOT PARITY WITH CE FOR ALL
" OTHER BIT SETS
EQ,PBDR71
"
SCPDAT+ZO(81,SCPOAT+50 SEE IF GOT PARITY WITH CE ANYWHERE
'UNEQ,PBDR73
GR IF YES
SCPDAT+Z9,X'FF'
8R IF GOT PARITY WITH CE FOR OAT fF
ALL,P8DR13
"
X'DO'
PRINT -NO ERRORS DETECTEDX'S'"
"
X'12'
" 18 CHARACTERS
Al2(NERDET-BASE+REGI
"ADDRESS OF MESSAGE
UNC,LGOUT
GO SEE IF WANT LOG OUT
X'DO' ERROR 068 - PRINT BUFFER DATA REG
" PARITY 8IT ALWAYS ACTIVE
X'44'
"
X'07' :
" 7 CHARACTERS
ALZ(ERR068-BASE+REGI '., ADDRESS OF MESSAGE
UNC ,LGOUT
GO SEE IF WANT lOG OUT
SCPOAT+20(81,SCPDAT+l0 BR IF GOT PARITY WITH CEI'OR ALL
" OTHER BIT SETS
EQ,PBDR73
"
SCPOAT+ZO(81,SCPOAT+50 BR IF GOT PARITY WITH CE FOR ANY
" OTHER BITS
UNEQ,P8DR73
It
.
X'DO'
ERROR 069 - PRINT BUFFER OATA REG
" PARITY BIT NEVER ACTIVE
X'44'
It
X'07'
" 7 CHARACTERS
ALZIERR069-BASE+REGI
" ADDRESS OF MESSAGE
UNC,LGDUT
.
GO SEE IF WANT LOGOUT
X'DO'
ERROR 070 - FALSE PRINT BUFFER DATA
" DATA REG PARITY ERRORS
X'44'
" .'
X'07'
" 7 CHARACTERS
AL21ERR070-BASE+REGI
"ADDRESS OF MESSAGE
UNC,LGOUT
GO SEE IF WANT LOG OUT
•
DC
DC
DC
BC
PBOR72 CLC
BC
CLC
8C
SVC
DC
DC
DC
8C
PBOR73 SVC
•
Faoc 2821 SCAN, 1403 UNIVERSAL CHARACTER SET
F80D3 ' PRINT BUFFER DATA REGISTER ROUTINE OVERLAY 3
DC
DC
DC
8C
BC
CLC
8C
TM
BC
SVC
DC
DC
DC
BC
P80R71 SVC
•
•
•
EQ,PBDR70
Rl,10lRO,R1I'
RS,21RO,R51
UNC,P8DR61
OATOO+5,X'00'
R9,WKAR
X'OD'
AL2(21
AL21WKAR+6-SECNOI
AL2(ERRXX+4-SECNOI'
X'OO'
DC
DC
DC
BC
00lA70
91 20 F 004
..
i
O~lA74 .
,
I
OOlA78
OOlA7C
001A80'
00lA86
OOlA88 '
47 80
41 10
41 20
02 09
OA 00
0009
, 8C
LA
LA
LGOUTA MVC
SVC
DC
!
"
1
I
".t;"
j
I!
F
F
F
F
AD2
786
7EO
17C 1 000
001ASA
00lA8C
001A8E
OOlA92
00lA96
00lA9A
00lA9E
00lAA4
001AAA
001AAC
OOlABO
OOlAB4
OOlABB
OOlABC
OOlABE
00lA8F
OOlACO
OOlACZ
001AC4.
00lAC8
OOlACC
OOlADO
00lAD2
071C
057C
41 30
41 40
41 50
92 40
02 30
DZ 01
15 34
47 80
41 50
41 30
47 FO
OA 00
80
00lAD6 '
OOlADA
00 lADE
00iAE2
00lAE6
OOlAEA
47
45
91
47
96
OA
LGOUT
,.;
TM
SNSW,X'20'
NONE.LGOUTE
RI,DAT80
R2,DATFF
DATWKClOI,OlAl)
X'DD' '
AL2(9)
8R IF SEC SS 02 IS
' " LOG OUT
° - 00 NOT
WANT
It·
INITIALIZE
" DATA
MOVE
CONVERT ,DATA to PRINTABLE
t t CONVERT 9 8VTES
F
F
F
F
F
5
57C
590
5EO
SED
5El F SED
000 3 000
F
5
3
F
ABC
003
OOZ
AA4
DC
DC
LA
LA
LA
MVI
MVC
LGOUT8 MVC
CLR
BC
LA
LA
BC
LGOUTC SVC
DC
DC
DC
CLR
BC
1A
F5t:0
15 12
47 80
41 10
47 FO
OA DA
91 40
F ADO
1 OOA
F A80
LA
" '. BC
LGOUTD SVC
I.;GO~TE TM
..
F 004
SOF
80 F
20 E
10 F
40 F
D6
AOE
678
1A3
AEA
751
BC
8AL
LGOUTF TM
BC
01
LGOUTG SVC
. . ~: I
AL2iDATWK-SECNOI
" HEX DATA ADDRESS
ALZ(SCPOAT-SECNO)
" PRINTABLE DATA ADDRESS
R3,SCPOAT
INITIALIZE
R4,SCPOAT+ZO
"
R5,SCPDAT+IOO
"
SCPOAT+l(io,X'40'
SET UP PRINT FIELD
SCPDAT+101(49),SCPOAT+IOO If
0(Z,R51.0(R3) ,
t,
R3,R4
BR IF END
EQ,LGOUTC
ct,
R5,3(RO,R51
Ul>lIATE ADDRESSES
R3,Z(RO,R3)
"
UNC, LGOUT8
CONTI NUE
X'DD'
LOG OUT OF ACCUMULATED DATA
X'SO'
tt
X'lA'
., Z6 CHARACTERS
ALZ(PRTl~""REGJ
' t t ADDRESS OF MESSAGE
Rl,R2 ." "":', . - SEE IF -END OF LOG OUT
EQ,LGOUtO" BR IF YES
R1,10(RO,RlI :'
UPOATA ADDRESSES
UNC,LGOUTA CONTINUE
.x 'DA'
HALT + WAIT FOR ACTION
SNSW,X'40'
BR IF SEC SS 01 IS 0 - 00 NOT WANT
., UTILITY ROUTINE
NONE,LGOUTF'
"
«S,SCPROO
8R TO UTILITY ROUTINE
419(R141.X'20'
IS LOOP ON SEC SS ON
ALL.lGOUTG
BR IF YES
SCHNUM.X'40'
SET UP TO BYPASS ALL REMAINING OVLYS
X'06'
ROUTINE EXIT
.......................................................................
. CCw,S USED 8Y ROUTINE 03
•
.......................................................................
•
OOlAFO
00lAF8
001BOO
OOlBOS
001B11
001B18
001B21
001B2S
001B31
001B35
001B31
001840
001B47
05 00157C 2000 OOOZ
02 00157C 'ZOOO 0001
06 00157C 2000 0002 '
FZFSF2F140E2C3C1D5
61FIF4FOF340E4
C3E26B4007D9C9DSE3
, 40C2E4C6C6CSD9
40C4CIE3C140D9C5C7
40C6D3E3
OOFF
D5D640C5D90906D9E2
40C4CSE3CSC3E3
CSC4
WRCCW CCW
RDCCW CCW
CKRCCW CCW
X'05'.SCPDAT,X'ZO'.2
X'02',SCPDAT,X'ZO',1
X'06',SCPDAT,X'20',Z
DIAGNOSTIC WRITE - SIll ON OIAGNOSTIC DATA READ - SILl ON DIAGNOSTIC CHECK READ - SILl ON -
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
CONSTANTS FOR ROUTINE 03 - NO SOUNDARY
•
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
DC
C'Z8Z1 SCAN/1403 U'
T~TlE
DC
C'CS, PRINT BUFFER'
DC
C' DATA REG FLT'
PBDRKI DC
NERDET DC
DC
X'OOFF'
C'NO ERRORS DETECT'
C'ED'
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
EQUATES
........•.........................•.......
............................•
•• ,GENERAL 'REGISTER EQUATES
~
000000
000001
000002
-(l000,03
000004
000005
000006
000007
OOOOOS
000009
OOOOOA
OOOOOB
OOOOOC
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
LOG OUT ROUTINE
,.,....................................................................
.• I!
•
::-
PIN
PAGE
~
,f'
t
!',,
'
~
•RO
Rl
R2
R3
Rio
R5
R6
R7
R8
R9,
AlO
Rll
RU
EQU
0
EQU
1
2,
EQU
EQU ,3 .',.,
EQU, 4
EOU
5
EQU
6
7
EOU
EQU
8
EQU
9
.EOU' 10
EOU
11
EQU
12
,1
DATE
EC
16JUN65
1Z4263
15JUL65
124265
15MAR66
125632
. 15NOV66
1256S5
10
PAGE
F800-3
3
DATE
EC
16JUN65
124Z63
i5JUL65
124265
15MAR66
125632
15NOV66
125655
10
PAGE
fSOD-3
3A
!
~
La-._ _
· •_ _ _
" ......_ _ _ _ _ _ _ _ _--......_~ _ _ .
.
,,
PIN B40225
PAGE
4
IBM MAINTENANCE DIAGNOSTIC PROGRAM
,
\
I
F80C .2821 SCAN, 1403 UNIVERSAL CHARACTER SET
F8003 PRINT BUFFER ~ATA REGISTER ROUTINE OVERLAY 3
000000
OOOOOE
OOOOOF
!!
I
R15
000008
000005
000001
000004
000009
000008
000006'
000004
000002
000008
000002
000008
000004
000002
OOOOOF
000000
000001
000004
OOOOOC
000008
t
I
1
Ii
I
I
!
EQU
EQU
EQU
R13
R14
••
•NONE
•
'.
I
II
•HCSW,
••
001170
00177E
00177F
001180 :
001781
001182
001783
0011B4
001785
00177C
001SEO
I
I;
I
I
!
!.
•STAT1
ALL OFF
ANY ON
ALL ON
MIXED
NOT MIXED
EQUAL
NOT EQUAL
LOW
HIGH
ZERO
GREATER ZERO
AVAILABLE
CSW STORED
BUSY
UNCONDITIONAL
NOT BUSY
NOT CC 0
NOT ZER-O-ANDMIXED OR 'NONE
CSW NOT STORED
0
0
0
0
1
C5090940FOF5FO
001800
C5090940FOF5F9'·
001B8F
C509D940FOF~FO
001B96
C5D9D940FOF6F1
3
001890
C5D90940FOF6F2
3
001BAit :
C509D940FOF6F3
1
.0018B2
C5D9D940FOF6FS'
2
001BB9
'C509D940FOF6F6
D01BCO
C5090940FOF6Fl
D01BCl
CSD9D940FOF6F8
0018AB
1
2
0 1 2 3
0 1
3
1 2. 3
1
0 ~
0
2 3
o
64
72
120
SIOVR3
ERR058
•
ERROS9
•
ERR060
•
. ERR061
•
ERR062
•
ERR063
001BCE
C5D90940FOF6F9
001BD5
. C5D9D91t0FOF7FO
DC
C'ERR 050' .
DC
C'ERR 059' '
DC
C'ERR 060' .
DC
C'ERR 061' .
DC
C'ERR 062'
DC
C'ERR 063' .
DC
C'ERR 061t' .
DC
.C'ERR 065' ,
DC
C'ERR 066' .
DC
C'ERR 061' '
DC
C'ERR 868' .
DC
C'ERR'069'
ERR070 DC
C'ERR 070 '
•
C509D91t0FOF6F4
1 2
1
2
0
840225
,itA
F80C 2821 SCAN, 1403 UNIVERSAL. CHARACTER SET
F80D3 PRINT 8UFFER DATA REGISTER' ROUTINE' OVERLAY 3
001801' '
3
PIN
PAGE
ERR064
•
ERR065
• '
ERR066
•
ERR061
•
ERR06B
•
ERR069
•
HARDWARE CSW·LOCATION
HARDWARE CAW LOCATION
HARDWARE 110 NEW PSW LOCATION·
PRINT 8UFFER DATA REG OIT 3 NEVER
" ACTIVE
PRINT BUFFER .DATA REG BU 3 ALwAYS
" ACTIVE
PRINT BUFFER DATA REG BIT 4 NEVER
" ACTIVE
PRINT BUFFER DATA REG BIT 4 ALWAYS
" ACTIVE
PRINT 8UFFER DATA REG 811 5 NEVER
.. ACTIVE
PRINT BUFFER DATA REG BIT 5 ALWAYS
, t ACTIVE
PRINT BUFFER DATA REG BIT 6 NEVER
"ACTIVE .
PRINT BUFFER DATA REG BIT 6 ALWAYS
" ACTIVE
PRINT BUFFER DATA REG 8IT 1 NEVER
" ACTIVE
PRINT BUFFER DATA REGBlT 1 ALWAYS
" ACTIVE
PRINT BUFFER DATA REG PARITY BIT
.. ALWAYS ACTIVE
PRINT 8UFFER DATA REG PARiTY BIT
t t NEVER ACTIVE
FALSE PRINT BUFFER DATA REG PARITY
tt ERRORS
.......................................................................
•
001000
OOFOOO'
. GENERAL EQUATES
EQU
HCAW' EQU
HION
EQU
CSWSAV EQU ..
000040
000048
000078
001118
I
EQU' B
EQU
5
EQU
1
EQU
4'
EQU
9.
EQU
8
EQU
6
EQU;4
EQU
2
EQU
8
EQU
2
EQU
8
EQU
4
EQU
2
EQU'U
EQU
13
EQU
1
EQU
4
EQU
12
EQU
11
I
.1I
13
14.
15
CONDITION CODE EQUATES
ANY
ALL
SOME
NMIXED
EQ
UNEQ'
LO
HI
Z
POS
ceo
eCl
ce2
UNC
NOTBSY
NZ
NEG
ZNEG
CSWNST
IBM MAiNTENANCE O'IAGNOSTIC PROGRAM
'.. :::E
.~~~. :~~:gO"
f
i
t
I
I
I
I
I
END
I
,EQUA,TES FOR ROUTINE 03 EXCLUSIVELY
EQU
STAT2 EQU
WRSNS EQU
WCKRD EQU
OARO .EQU
STATRD EQU
RDSNS EQU
RCKRD EQU
STSW
EQU
DAWR
EQU
PRTLOG EQU
I
OATWK+1
DATWK+2
OATWK+3
DATWK+4
OATWK+5
OATWK+6
DATWK+7
DATWK+8
DATWK+9
OATWK
SCPOAT+100
I
r
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ERROR DEFINITION FOR ROUTINE 03
•
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ERR050 DC
C'ERR 050'
NO PRINT BUFFER DATA REG BITS CAN
•
I
!
00 1 B49
•
001850
001857
1
00185E
1
I
i
I
I
I
.j
001B65
C5090940FOFSF1 .
·C5090940FOF5F2
CS090940FDF5F3
CS090940FOFSF4.
00186C
C5090940FOFSF5
001B73,
C5090940FOF5F6
001B1A
DATE
EC
. CS090940FOF5F7
16JUN65
121t263
15JUL6S
121t26S
."
I
II
ERR051 DC
•
•
ERR052 DC
•
ERR053 DC
•
ERR054 DC
•
ERR055 DC
•
ERR056 DC
•
ERR057 DC
•
15MAR66
125632
BE TURNED ON,- PRINT BUFFER
DATA REG RESET MAY BE ON SOLID
ALL PRINT BUFFER DATA REG BITS ARE
" ON.SOLID.- NOT GETTING· PRINT
" BUFFER DATA REG RESET
PRINT BUFFER DATA REG BIT 0 NEVER
I I ACTIVE
PRINT BUFFER DATA REG Blr~ ALWAYS
I t ACTIVE
PRINT BUFFER DATA REG BIT 1 NEVER
t l ACTIVE
PRINT BUFFER DATA REG BIT 1 ALWAVS
t f ACTIVE
PRINT BUFFER DATA REG BIT 2 NEVER
If ACTIVE
PRINT BUFFER DATA REG BIT·2 ALWAYS
" ACTIVE
II
•
I
!
C5D9094DFOFSFO
15NOV66
125655
C'ERR 051'
C'ERR 052' .
C'ERR 053' ,
C'ERR 054' .
C 'ERR 055' '
C'ERR 056'
C'ERR 057' .
ID
F800-3
PAGE
4
r
I
I
I
I··
.' .
"
1
DATE
EC
16JUN65
lZ4263
15JUL'6S
12426S
1,5MAR66
125632
15NOV66
125655.
0·0 00 '0 0 O' 0 0 0 00 0 0 0 0 0 0 0 0 0 0 0 0
10
PAGE
o
F800-3
4A
0 0 0 0 0 00,0 0
0 0' 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
""~'--~"""""--~
"'''.
--- .
L
..• ., ........ _ . ,,_.. _ _ J
I
~
PIN 81tC225
5
PAGE
1'8M' ItAtMlilMNCc DIAGNOStiC PROGiI."""
i
F80C 2821 SCAN, '1403 UNIVERSAL CHARACTER SET
F8003' PRINT 8UFFER DATA REGISTER ROUTINE OVERLAY 3
POST:ASSEMBLY DATA.
REFERENCES TO DEFINED SYM80LS.
;
, •I
I
I,
.~
If
I
II
I
.\
I,
I
::....
.;.:~
l~:
~'
,g
fJ.
~.
~
FS'
-.
~
.iA
,
~!~.
:.:-~
·;··i
.....
1
1
2
4
7
0
HZ
1
1
Rl
1
2
R2
1
3
R3
1
1·
4
5
Rio
RS
1
1
1
1
1
1
1
1
1
1
1
6
7
S.
9
1
1
1
C
0
E
F
FOOD
R6
R1
RB
R9
ALL
ANY
CAW
ttO
eC1
ee2
esw
NEG
POS
RI0
Rll
R12
R'13
R14
U5
REG
1
1
1228
F
SID
UNC
1
1000
BASE
10
10
1
1
1
16
1
1781
177C
loB
40
DARO
DAWR
HCAW
HCSW
HION
MSGI
NONE
1
1
10
SNSW
1004
SOME
4
stsw
1785
UNEQ
6
WKAR
1770
C ZNEG
11A4 CSWAG
1
1
1
1
1
1
(
,
1
S
1048
8
4
2
1040.
1
!.
,
8
8
1
!
,
1
1
",
~
.,;
I
!
,
1
!
II
4.
1
1
I
l
.
J
DATe
EC
'2A"
B
78
17EA
B
16JUN65
124263
Z
EQ
190E,
19E6,
lA1E,
lAloE,
lAAC
1838',
lAC4
lBFA,
1876,
195E,
1AB4,
1858,
192t,
19EA,
185e.
1At2
192B,
lASE,
1932,
19BA,
lABO
187A,
1962,
lAC8
1860,
195E,
19EA,
1808,
18A2,
1ge8,
lBA6,
1908,
1804,
19EA,
18U,
19EE,
18E6
LABO
lBeE,
195E,
lA78,
1966,
1804,
1966,
1A80,
196t,
1804,
1986,
1At2,
198E,
1808,
1ge2,
LAts.
19E4,
1924 .
19E4
lAtS
LA7C
1936,
lAA4,
193A.
19C8,
1942,
lAAA,
1962
ncc,
195A,
LAB4 '
19DC,
lA96,
1962.
19EE,
1946,
lA84,
1900.
19EE,
LA92.
lAA4,
lAAA
LABO
1854,
19C8,
19A4,
189S,
19DB,
19EO,
18e4.
190B.
1A14,
1912,
19FA
1A30,
LAOA
. 187A,
lSA6,
18E6
"......
HI
LO
RO
15JUL65
124265
1. 1706
17CC
1
17C2
1
17B8
1
17AE
1
1, 17A4
179A
1
1, 1790
1 '1786
17EO
1
177C
10
OATOO
OATOl
OAT02
OAT04
OAT08
OAllO
OAT20
OAT40
OAT80
OATFF
DATWK
1825
1:A70
1784
lAFS
17S3
lS30
1GOO
ERRXX
LGOUT
ReKRO
Roeew
ROSNS
RTN03
SEeNO
8
4
10
8
10
1
1
1
10
10
16
1
1
10
B
10
1
8
1
....
lAE2 '
o
1882,
187E
18AE,
UFO,
199A,
1ACO
18FO.
1920,
1A3A,
1904
1980',
1AOA,
1904 .
1970. 19ge.
1A44" 1A62,
199A, . 19BO, . lAOA,
lAC 0
LA38,
LA42
19A8. 19B2
lA6C, . LAB8
!A38,
1
7
7
7
7
7
7
7
7
7
7
7
7
·7
7
7
7
7
7·
7
7
7
lADE
184A, '191E,
lA60. lA6A,
1882, 18AE,
180E. 1912,
19F2, lAOC,
1ACC
IB4A; 191E',
lA60, 1A6A.
1BB2, 1974
1B66, 1932,
LA42
19Ct'
6'
1914,
1842.
lA06
Ui3E,
180A,
19FA,
6
191E
1850.
1931:,
194E,
1altt,
tA70,
1A02
19681
1A02
i992, . lA2&,
1956,
1904;
LA74 '
2
15NOV66
125655
10
._--_.-
.1
2
4·
4
I
16,
1
1
4
2
I
LA58
18B8
15MAR66
125632
PIN 840225
5A
PAGE
1iSlt' MAINTENANCe. DlAGNOs.TIC PROGRAM
I
F80C 2821 SCAN, 1403 UNIVERSAL CHARACTER SET
F8003 PRINT 8UFFER. DATA REGISTER ROUTINE OVERLAY 3
Il
0 0 0 0 0 0 0 0 0
PA~E
w,)".!?
1=80D-3
5
·1
I
!
DATE
EC
1120 SENSE
1770 STATl
177E STAT.2
1808 TITLE
1753 UAPRT
10EO UNITl
1780 weKRO
lAFO WReew
177F WRSNS
1121 eAWKEY
1800 CKRecw
B eSWNST
1118 eSWSAV
IB49 ERR050
IB50 ERRon
1B57 ERR052
185E ERR053
IB65 ERR054
IB6C ERR055
IB'73 ERR056
IB7A ERR057.
1B81 ERR058
1688 ERR059
168F ERR060
1696 ERR061
1B90 ERR062
18A4 ERR063
18A8 ERR064
IBB2 ERR,065
'1BB9 ERR066
18CO ERR067
1BC7 ERR068
18CE ERR069
1805 ERR070
lA80 LGOUTA
1AA4 LGOUT8
lABC LGOUTe
lAOO LGOUTD
.' lAOz. ,LGOUT'E
lADe' LGOUTF
lAEA lGOUTG;
1837 NERDET
9 NMJXED
D HOTBSY
1834 PBOROO
16JUN65
124263
15JUL65
124265
196C,
19BE
19AO,
'.1858, 1924,
185C, lA7C
1860, 18eE,
1849', 1849,
IB49, 1B49
lA04, lAOA
199C, 1982,'
18t8
18A2
188E
1015'
1000, 1000,
1000, . 1000,
1000, 1000,
lABA, 1A8e,
1892, l8BE
lS86, 1952
IB8e
184A
1914
18ge,
1876
1892
19F6
1986,
lA18
192e,
1849,
19C2,
1849,
lA80,
1849,
1A8A,
1849,
1849
1849
lAoe,
1A3A,
lA44,
lA62,
lA6C
1000,
1000,
100O,
lBOt
1000,
1000,
1000,
1000,
1000,
1018.
1000, 1000
1000, 1000
.lA02, ,lAOIt '
I
II,
f
r
I
I,
194A
I
18E2
I
lSS6 '
199A
1980 '
[
I
i'
!
r
r
It
,I
..
I
f
lA42
lA60
lA6A'
lACC
1ABB
1AAC
lAC4 •
I
i
!I
r
,tA7~
i.I
1A06
14E2
lU8 .
15MAR66
125632
15NOV66
125655
'10
F80D-3
5A
PAGE
--
,~
'It ,
,
'"rt
Ii
.J
l
i
I,
IBM MAINTENANCE DIAGNOSTIC PROGRAM'
PIN S40225
PAGE
6
'I
\
J
,1
'18M MAINTENANCE DIAGNOSTIC PROGRAM
PIN
, PAGE
..om
6A
I
FSoC 2S21 SCAN, Ilt03 UNIVERSAL CHARACTER SET
FS003 UNIY. CHAR. BUFFER DATA,REGISTER ROUTINE OVERLAY 4'
FSOC 2S21 SCAN, 1403 UNIVERSAL 'CHARACTER SET
FSOD3 PRINT SUFFER DATA REGISTER ROUTINE OVERLAY 3
-!
i
4
I
4
4'
6
- ";
1
\
It
!I
It
6
6'
It
4
It
(
I
4
4
2
II
It
6,
It,
1
4
2
j
4
6
2
2
1
1
1
1,
1
1
1
10 '
1
1
1.
lS3E PBDROl
lS4C PBDR02
1858 PBORIO
lS60 PBDR11
1SE2 PBDR20
1914 PBDR21
1921t PBDR30'
192C PBDR31
19lt6 PBDR32
195E PBDR33
1971t PBDR37
1978 P6DRltO'
19AO PBDR50
19AC PBDR51
19B6 PBDR60
19C2PSDR61
19F6 PBDR62
19FA PBDR63
lA10 PBDR70
lA3E PBDR71
lA4S PBDR72
lA66 PBDR73
IB35 PBDRK1'
15EO PRTLOG
1751 SCHNUM'
157C SCPDAT
1618SCPROO
1122 SIOSWS
l11S SIOVR3
110S'SIOVR4
1782 STATRD
119F STATSV
10E2 UIADDR
1000 XF80D3
183S
1842
1850
18DA
1898,
18FA,
18DE
1968
193E
194E,
193A,
1970
1992
19AIt
19A8
19F2
19DC
1904,
'19E6
lA1E
lA11t
1A2S,
18EA,
lACD
lS31t,
1866,
lSEA,
197C,
lA1S,
lA52,
lA9E,
1854,
1872
1849
001000
18C4,:" 1920
190E'
*
*
1956
19DO
001000
001004
001040
00104S
0010EO
D010E2
OOlllS
00110S
OD1122
00119F
OOllAIt
001121
001120
00157C
00167S
00122S
001751
001753
19EO
lA30,
,lSF4,
tA4E.
l8FE,
lA5S
1905
lAE6
186C,
lSFIt,
19S2,
lA18,
lA52,
lA9E,
lADA
lS6C, .lSFE,
19S6,
lA22, ,
lASC,
189C,
1905,
19S6,
tAFO.
tA22,
lASE,
lAFI,
18AA,
1928,
198C,
lA2C,
lA92,
IBOO,
lSB2,
1978,
19SC,
lA48,
lA96,
18ft9
18CS'
197C
lAI0
lAltS
lA9A
186S
lSSC
187E
001015
001S98
00176C
00176C
00176E
001770
001771t
001778
07 00
07 00
00000000
00000000
00000000
001015
00176C
NO ERROR DETECTED' IN ABOVE ASSEMBLY
00177C
001785
00178C
001795
00179C
0017A5
oOl7AC
001785
0017B7,
0017CO
0011Cl
0017C2
0017CB
0017CC
001705
001706
00170F
0011EO
o017E9
0017EA
0011F3,
0011FIt '
j
,I'
I
!
i
f
I,
DATE
EC
16JUN65
124263
15JUL65
124265
8003
TITLE FS003 UNIV. CHAR. BUFFER DATA REGISTER ROUTINE OVERLAY 4
XFS003 START it096 '
USING *,15
************************************•••••* •••••**.* •••••• *•••••• **** •• *
15MAR66 ' , 15NOV66
125632
125655
, 10
FSOD-3
PAGE
6
DATE
EC
f~
050640C4CIE3C140E3
D9CID5E2C6C5D9
09C5C440C2E840C4C9
CIC7D5D6E2E3C9
C340C3C8C5C3D240D9
C5CIC440C60609
40C4C5E5C9C3C540E7
E7E7
000000000000000000
00
80
000000000000000000
20
000000000000000000
10
000000000000000000
08
000000000000000000
04
000000000000000000
02
000000000000000000
16JUN65
12lt263
15JUL65
124265
ROUTINE OVERLAY ,4
*
*
•.***************************.********************.***.* ••**••••*.*••••**
'.
RESIDENT LA8ELS ADDRESSED BY OVERLAYS'
•
* •• ***.*** ••••••••• **** ••••••••••••••••••••*•••••••••••••••••••*••* ••••
SECNO EQU
*
SNSW
EQU
SECNO+4
CSW
EQU
SECNO+64
CAW
EQU
SECNO+72
UNITl EQU
SECNO+224
U1ADOR EQU
SECNO+226
SIOVR3 EQU
SECNO+2S0
SIOVR4 EQU
SECNO+264
SIOSWS EQU
SECNO+290
STATSV EQU
SECNO+415
CSWAG EQU
SECNO+420
CAWKEY EQU
SECNO+2S9
SENSE EQU
SECNO+2SS
SCPDAT EQU
SECNO+1404
SCPROO EQU
SECNO+1656
SIO
EQU
SECNO+552
SCHNUM EQU
SECND+1S73
'UAPRT EQU
SECNO+1815
•• *********.**********.* •• *.*******.* •••••*.**••••• * •••••••••••••••••••
ORG
SECNO+21
DC
AL3IRTN04)
INITIAL PSW STARTING ADDR, FOR RTN 04
ORG
SECNO+1900
*** •••••••• *.****.****.******.*.********.***.****.******.*.*•••••••••••
•
VARIABLES FOR ROUTINE 04 - DOUBLE WORD BOUNDARY
•
.** ••• ***********.***.*••**.*••••**.* ••• *•••••• *••• **••••••••••••••••••
CNOP O,S
ALIGN ON DOUBLE WORD BOUNDARY
BCR
0,0
BCR
0,0
WKAR
DC
3F'00'
••••••••• ** ••*.**.** •• ****.*.*•••••••• ***.**••••*** •• *.** ••••••• *••••••
•
VARIABLES FOR ROUTINE 04 ~ NO BOUNDARY
•
•••••••**********.**************.**.*.**...............................
MSGl
DC'
C'NO DATA TRANSFER' ,
DC
C'RED 8Y DIAGNOSn' ,
DC
C'C CHECK READ FOR'
DC
C' DEVICE XXX' ,
DATWK
DC
DATSO
DC
DC
DC
DC
DC
DC
DC
OAT20
DAllO
DATOS
DC
DAT04' pe.
GC
DAT02 DC
DC
15MAR66
125632
XLlO'OO'
X'80'
XL9'OO'
X'20'
XL9'OD'
X'10'
XL9'OO'
X'OS' ,
'XL9'OO'
X'04'
XL9'OO'
, X '02'
, lCL9'OO'
15NOV66
125655.
.
.
.
,
.
. 10
F80D-3
. PAGE
6A
,
.
0·0 0 0 0 0 0 0 0·0 0 0 0 0 0 0 0 0 6 0 0 0 0 0 0 0 0 0 "0 0"00 . 00 ~
'
o
000 000
0 0 0 0 0 0 0 0 0 0 0 00000 00000
1
PIN 840225
PAGE
71.
IBM +lAlNTENAfH:,E .olAGNOSTI·C PROGRA>M
PIN ,840225
PAGE·
7
,I:BM,MAlNHNANCE DIAGNOSTIC PR{)GRAM
F80C 2821 SCAN, 1403 UNIVERSAL· CHARACTER SET
F8003 UNIV. CHAR. BUFFER DATA REGISTER ROUTINE OVERLAY 4
F80C 2821 SCAN, 1403 UNIVERSAL CHARACTER SET
F8003 UNIV. CHAR. BUFFER DATA REGISTER ROUTINE OVERLAY 4
,
i
fI
l
I
I
I
\
I
'{
1
!
I
II
I
OOl1FD
0017FE
001801 '
001808
001811
001812
00181B
00181C
001825
001826
00182F
001830
001839
00183A
001842
00184B
001852
00185B
001862
00186B
00186D
001876
00187D
001886
001880
001896
001896
001898
001899
00189A
00189C
0018AO
0018A4 .
0018A8
0018AC
001880
,OO18B2
001883
0018B4
0018B6
0018BA
0018BE
01
000000000000000000
00
000000000000000000
40
000000000000000000
FF
000000000000000000
00
000000000000000000
00
000000000000000000
00
C5D9D940FOFOFOFO
DbD9C9C7C9D5CID340
C3D6D5E3C5D5E3
E240D6C640E4C3E240
C2E4C6C6C5D940
C6D6D940D7D9C9D5E3
C5D9
40404040C4C5E2E3D9
D6E8C5C46B40D9
C5E2E3D6D9C540E6C9
E3C840D7D9D6C7
D9CID440C6F8F3F7
01 00
04
00
FFFF
95 84
41 80
41 FO
91 03
41 80
OA DO
BO
24
FCFO
91 40
47 80
45 80
DAT01
CDG
PLCB
DC
DC
DC
DC
DC
DC
DC
pC
DC
OC
X'Ol'
XL9'OO'
X'OO'
XL9'OO'
ll'40'
XL9'OO'
X'FF'
XL9'OO'
X'OO'
XLlO'OO'
UCBP
DC
XLlO'OO'
ERRX
RMSG
DC
DC
C'ERR 0000'
C'ORIGINAL CONTENT'
DC
e~s
DC
C'FOR PRINTER' ,
DC
C'
DC
e'ESTDRE WITH PROG' ,
DC
C'RAM F837'
OATOO
DAT40
DATFF
RMSGl
751
8A8
CBA
004
8B6
F 004
F 8C2
F 678
seR
DC
DC
DC
•UBDROO
CLI
BC
Be
UBDRO~ TM
Be
SVC
DC
DC
DC
UBDR02 TM
BC
BAL
•
•,UBDR10
•
0018C2
0018C6
0018CA
0018CE
001802
001808
0018DA
0018DE
0018E2
0018E6
0018EA
0018EE
0018F2
0018F4
0018F8
D018FC
001900
001906
00190A
DATE
EC
41 10 F 7Cl
41
41
41
D2
15
47
41
41
92
91
47
15
47
41
41
06
41
D6
90
20
50
09
12
60
30
40
40
04
10
34
80
30
FO
00
FO
00
16JUN65
124263
F 81B
F8ll
F 801
F 7B7 ,1 000
F
F
F
F
3
F
F
3
F
F
F
F
910
1C1
1FD
7B7
008
90A
900 '
OOA
8EA
7B7 F 80B
910
7B7 3 000
15JUL65
124265
DESTROYED, R'
ROUTINE 04 PREfIX
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
CNOP 0,4
FULL WORD ALIGNMENT
RTN04
F
F
F
F
F
OF UCS BUFFER, •
UBDRll
UBDU2
UBOR13
UBDR14
lSMAR66
125632
0,0
XLl'04'
XU'OO'
X'FFfF'
ROUTINE NUMBER
FLAGS
ADDRESS OF NEXT ROUTINE
SCHNUM,X 'S4'
SEE IF SEARCHING FOR ROUTINE 04
EQ,UBDR01
RUN ROUTINE 04 IF YES
UNe,LGOUTG
GO PRINT MESSAGE
ROUTINE EXIT
SNSW,X'03' ,
BR IF SEC SS 06 IS 1 - PRINT TITLE
NONE,UBDRD2
BR IF NO
PRINT TITLE
X'OO'
X'80'
" NORMAL OUTPUT
X'24'
" 36 CHARACTERS
AL21TITLE-BASE+REGI .
f' ADDRESS OF MESSAGE
SNSW,X'4D'
SEE IF SEC SS 01 IS 1
WANT UTILITY
NONE,UBOR10
BR IF NO
R8,SCPROO
BR TO UTILITY ROUTINE
001910
001916
00191A
00l91E
001922
001928
00192C
001930
001934
00193A
001940
OD1942
001946
00194A
D2
45
45
45
D2
41
45
45
02
02
15
1t7
41
41
00194E
001950
001954
001958
15
47
' 45
47
00195C
00195E
,001962
001966
00196A
00196E
001912
0'01976
D0197A
00191E
001982
D019B6
DO' 198A
1B
41
42
95
47
45
45
45
91
41
95
47
47
00198E
001994
00199A
00199E
0019A2
00' 19A6
0019AA
0019AE
0019B4
0019BA
D2
02
92
41
50
48
45
02
02
07
00
80
80
80
00
FO
80
80
00
09
19
80
10
FO
F 1BB
F'98E
F' 9FA
F 9FA
F 1BA
F 94E
F 9FA
F 9FA
F 7BF
1 000
UBDR15 MVC
BAL
BAL
BAL
MVC
BC
UBDR16 BAL
BAL
UBDR17 MVC
MVC
CLR
BC
LA
BC
F7B7
F 57C
F 57e
F 7B7
F A36
1 OOA
F 802
•UBDR18 CLR
15
80 F 95C
80 F 9BC
FO F 92C
66
60
60
40
80
80
80
80
04
10
FF
60
FO
00
EE
00
00
00
CO
BO
00
00
F8
•UBDR19
001
7BB
7BB
95E
9BC
9FA
9FA
57C
934'
7BB
l' 95E
F 93"
57e
510
122
COO
048
OE2
228
7B8
7B9
•• .
•UCSL
f 7B7
F 57e
F 1A8
F 120
••
DATA COLLECTION ROUTINE
LA
LA
LA
LA
MVC
eLR
8C
LA
LA
MVI
TM
Be
CLR
BC
LA
BC
OC
BC
at
15NOV66
125655
R1~DAT80
R9.0ATFF
R2,OAT40
R5,DATOO
OATWKIlOl,OIRlI
R1,R2
UNEQ, UBOR15
R3,DAT80
R4,OAT01
DATWK,X'40'
8CR3) ,X'04'
ALL,UBDR1"
R3,R4
EQ, UBOR13
R3,10IRO,(3)
UNe,UBDR12
DATWKIll,DATOO+4
UNC,UBDR15
DATWKC1I,OlR3)
0019BC
D019C2
0019CB
001gec
001902
001906
00190A .
00190E
0019E2·
0019E6 '
0019EC
0019F2
0019F8
INITIALIZE ROUTINE
It
It
If
MOVE DATA TO WORK AREA
SEE IF WANT ,TO WRITE BLANK
BR IF NO
DETERMINE CHAR TO USE INSTEAD Of 40
tt
:"
.
It
It
,
"
....
tt
tt
I
7'
i
tt
10
PAGE
0019FA
001AOO
0'01406
F80D-3~'
7
___
'
DATE
EC
02 00
02 DO
92 00
02 81
92 00
41 00
5000
48 CD
45BO
02 00
02 00
02 00
07F8
F
F
F
F
F
F
F
F
F
F
F
F
57C
510
51E
57F
122
CEO
048
OE2
228'
7Be
1BO
7BE
•UCSOW
F 7BB
F 57C
F 57E
.
,
F llC
F 19F
F 120
••
02 0'1 F 57C FOlio
D2 82 F510 F 57C
92 00 F 122
16JUN65
124263
SET UP DATA TO BE LOADED, IN UCB
GO LOAO UCS BUFFER
GO PERFORM 1ST DIAG CHECK READ
GO PERFORM 2ND DIAG CHECK READ
SAVE OIAG CHECK READ DATA
GO PERFORM DIAG WRITE
GO PERFORM 1ST DIAG CHECK READ
GO PERFORM 2ND DIAG CHECK READ
SAVE DIAG CHECK READ DATA
SAVE ALL COLLECTED DATA
SEE IF END OF COLLECTION
BR IF YES
UPDATE ADDRESSES
CONTINUE
Rl,R5
EO , UBDIl.19
R8,UCSDW
UNC,UBDR16
SEE IF WANT TO LADD uce WITH NULLS
8R IF YES
GO PERFORM OIAG WRITE
RETURN
R6,R6
SR
R6,icRO,R61
UBDR1A LA
,R6,PW
STC
CLI· PW,X'40"
BC
EO,UBDRlA
R8,ueSDW
BAL
R8,OCKRD
BAL
RB,OCKRO
SAL
sePDAT,X'04'
TM
ALL, UBDR1.7
Be
PW,X'fF'
CLl
UNEO,UBDR1A
BC
UNC,UBDR17
BC
6
F
F
F
F
F
F
F
F'
F
F
F
F
F
F
F
F
F
F
BC
BAL
BC
PWIll,UCBWR
R8,UCSL
R8,OCKRO
R8,DCKRD
UCBWCRl1l,SCPDAT
UNC,UBDR18
R8,DeKRD
R8,DeKRD
PWCRIlI,SCPDAT
OIlO,Rll,DATWK
Rl,R9
EQ,UBDR20
Rl,10IRO.RU
UNC.UBORll
15JUL65
•DtKRD
sePDATC 1) ,UCBWR
SCPDAT+11239I,SCPDAT
SIOSWS,X'OO'
RO,LUBcew
RO,CAW
R12,UlADDR
Rll,SIO
UCBST(1),eSWAG+4
UCB SNS 111 , SENSE
UNC,RS
I
Ii
..
SET UP CHAR TO BE WRITTEN
RESET SID PGM SWITCHES
LOAD CCW ADDR IN CAW
It
LOAD PRNT 110 ACOR IN GR 12
GO LOAD UCS BUFfER
SAVE WR UCB STATUS
SAVE WR UCB SENSE DATA
RETURN
ROUTINE TO PERFORM DIAGNOSTIC WRITE
MVC
MVC
MVI
MVC
MVI
LA '
ST
LH
BAL
MVe
MVC
MVC
BtR
SCPOA'rlll,PW
SET UP CHARACTER TO BE WRITTEN
sepOAT+lI1I,SCPDAT
"
SCPD'AT+2,X'OO'
SET NULLS IN REMAINING POSITIONS
SCPOAT+31130I,SCPDAT+2 t f
SIOSWS,X'DO'
RESET SIO PGM SWITCHES
RO,DWRcew
LOAD DUG WRcew ADDR IN CAW
RO,CAW
"
R12,U1ADDR
LOAD PRNT 1/0 ADOR IN GR 12
Rll,SIO
GO PERFORM OIAG WRITE
PW1 STIli ,CSWS~V+4
SAVE DUG WR ,CHAN ENC STATUS
PW2STI11,STATSV
SAVE CIAG WR DEV END STATUS
PWSNSlll,SENSE
SAVE CIAG WR SENSE DATA
UNC, R8
RETURN
ROUTINE TO PERfORM DIAGNOSTIC CHECK READ
Mve
MVC
MVI
SCPDATI21,PBDRKl
SCPDAT+11131I,SCPDAT
SIOSWS,X'OO'
':
-----o,........-----~--
..
INITIALIZE CHECK READ FIELD
RESET SIO PGM SWITCHES
15MAR66
125632
-.---.-.. -"__124265
,_______
..
r
-\
CLEAR GR 6
GENERATE NEW CODE
SAVE NEW CODE
SEE IF BLANK CODE
BR IF YES
GO PERFORM DIAG WRITE
GO PERFORM 1ST DIAG CHECK READ
GO PERFORM 2ND CIAG CHECK READ
SEE IF GOT PLC
GR IF YES
SEE IF USED ALL .CODES
BR IF NO
END OF GENERATING CODES
ROUTINE TO LOAD UCS8UFFER
MVC
MVC
MVI
LA
ST
LH
BAL
MVC
Mve
BCR
i
______
,10
F80D-3
PAGE'
7A
_'___---_----J'.""---""----'.'-'.~'.....:..-~
i
,1
iI
I
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PIN 840225
PAGE
8,
i
1
l,
II
j
!
1
t
~,
I
I
j
I
,\
,I
I
I
i
!
I,
I
I
,.
I,
.i
I
;
i
I
li
!
I
I
F80C 2821 SCAN, 1403 UNIVERSAL CHARACTER SET
F8003 UNIV. CHAR. 8UFFER DATA REGISTER ROUTINE OVERLAY 4 '
001AOA,
OOlAOE
001A12
001A16
OOlAlA
00lA20
00lA24
001AZ6
00lA2C
00lA2E
00lA2F
001A30
001432
00lA36
00lA3A
00lA3E
00lA42
00lA46
. 001A4C
00lA50
001454
00lA58
001A5C
00lA60'
00lA64 '
001468 '
00lA6e
00lA6E
OOlA72
00lA76
00lA7A
00lA7E
41 00
50 00
48 CO
45 80
D5 01
47 80
07 F8
D2 02
OA DO
44
31
F77e
41 FO
41
41
41
41
DZ
92
91
47
92
92
91
47
92
15
47
41
41
41
47
10
20
30
40
09
00
04
80
FF
00
04
80
FF
12
80
10
30
40
FO
F
F
F
F
F
F
CE8'
048
OE2
Z28
57C F D14
A26
F 784 F 753
F 9FA
7Cl
818
F 826
F
F
F 787 1 000
3 000
F
F
3
4
F
F
4
78F
A5C
000
000
789
A6e
000
F A82
1 OOA
OOlABO
00lA86
00lA8A
OOlACO
00lAC4
D5
47
D5
47
OA
00lAC6
001AC7,
00lAC8
DOlACA
44
07
FD49
47 FO F C40
DATE
Ee
D5
47
05
47
06
60
01
60
16JUN65
124263
•UBDR2D,
F 830 F 020
FACE
F 837 F 016
F AeE
'F
F
F
F
830 F D16
AEC
837 F D2D
AEe
15JUL65
124265
LA
LA
LA
LA
LA
LA
LA
Be
•
•UBDR30 CLC
••
U8DR31
8C
TM
Be
TM
8C
CLC
8C
SVC
De
De
DC
Be
eLC
BC
CLe
••
UBDR3Z
15MAR66
125632
LOAD DIAG,CK RD CCWADDR 'IN CAW
It
LOAD PRNT 1/0 ADDR IN GR 12
GO PERFORM DIAG, CHECK READ
SEE IF ANY DATA DATA WAS TRANSFERRED
BR IF NO
RETURN
SET PRINTER AD DR IN OUTPUT MSG
NO DATA TRANSFERRED BY: DIAG; CK READ
It
" 49 CHARACTERS
" ADDRESS OF MESSAGE
GO TRY DIAG, CK READ AGAIN
Rl , DAT80
R2,DATFF
R3,PLe8
R4,UC8P
DATWKUOI,OIRU .
OlR31,X ' 00'
PWCR,X'04 '
NONE,UBDR22
OlR3I,X'FF'
OlR4I,X'OO'
UC8SNS,X'04'
NONE,U8DR23
0IR4I,X'FF'
Rl,RZ
EQ,UBDR30
Rl,10'RO,RU '
R3 , 11RO,R31
R4,lIRO,R41
UNC , UBDR21
PBDRK3'7I,PLCB
UNEQ,U8DR40
DAT40+8,X'04'
NONE,U80R40
PLe8+7,X'FF'
ALL,U8DR80
UC8P'9I,P8DRK3
UNEQ,U8DR31
X'OO'
X'41'
X'07'
AL2IERR080-aASE+REGI
UNC,LGOUT
INITIALIZE
t'
I I
" DATA
MOVE
SET SW SAYING NO PLC
SEE IF GOT PLC
8R IF NO
SET SW SAYING GOT PLC
SET SW SAYING NO ueB PARITY
SEE IF GOT UC8 PARITY
BR IF NO
SET SW SAYING GOT UCB PARITY
SEE IF END
BR IF YES
UPDATE ADDRESSES
SEE IF GOT PLC FOR SEPARATE BITS
BR IF NO
",',
SEE IF GOT PLC FOR OAT 00
8R IF YES
SEE IF GOT UC8 PARITY FOR All BITS
BR IF NO
ERROR 080 - FALSE UC8 DATA REG PARTY
" PRINT ON ALTERNATE DEVICE
" 7 CHARACTERS
" ADDRESS OF MESSAGE
GO SEE IF WANT lOG OUT
X'44'
"t 7 CHARACTERS
X'07'
I
AL2' ERR081-8ASE+REGI .
" AODRESS OF MESSAGE
UNC,LGOUT
GO SEE IF WANT LOG OUT
CLe
8C
CLe
BC
15NOV66
125655
UC8P17I,P8DRK2
UNEQ,U8DR33
UC8P+7121,PBDRK3
UNEQ,UBDR33
SEE IF GOT'UCB PARITY FOR ALL BUT
t' 00 + 40 - BR IF NO
It
I t 8R IF NO
ERROR 081 - UC8 DATA REG PARITY
" LATCH ON SOLID
44
07
F050
47 FO F C40
OOlAEC
05 08 F 830 F ,D16
001AF2
001AF6 .
0014FA
OOlAFE
001800
001801
001802
001804 :
47 60
91 FF
47 10
OA DO
84
10
F02A
47 FO
001B08
001BOC
001810
001814 '
001818
00181C
00181E
001822
41 10 F 830
41 20 F 838
41 90 0 053
91 FF 1 000
47 10 F B32
15 12
47 80'F BZE
41 10 i 001
41 90
~
I
$.
':','
':1
"
i
I
..~:~
i
'·'A
I
r'
,
' 't
"rt
t
'
,s
i
!
I
.\
1
0 1
O. 2 3
.:;-
GENERAL EQUATES
EQU
EQU
64
72
HAROWARE CSW LOCATION
HARDWARE CAW LOCATION
15NOV66
125655
I
I
10
PAGE
FlIOD-3
10
DATE
EC
16JUN65
124263
15JUL65
124265
15MAR66,
125632
15NOV66
125655
10
PAGE
F80D-3
lOA
w. t."Q
00 v'O
0 0 0 0 0 O· 0 00 0 0 0 0 0 0 0 ·0 0 0.0 ,0 00 'iO 0 0 0 00"00
o
0 0 0 0 0 00 0 0 0 0 0 0 0 0 0 0 0 0 0 0 _
00 0 0 0
---:-- .........
-PIN
PAGE
F~~C
RlOD3
2821 SCAN, 1403 UNIVERSAL CHARACTER SET
UNIV. CHAR. BUFFER DATA REGISTER ROUTINE OVERLAY 4
840225
11
_-----_. _.......... -- .._._.__._--_.,---
l'I1M MAl'NJENANCE01A'GNtlSTIC PROGRAM
PIN 840225
PAGE
11A
FSOC 2821 SCAN, 1403 UNIVERSAL CHARACTER SET
F8003 UNIV. CHAR. 8UFFERDATA REGISTER ROUTINE OVERLAY
~
POST ASSEMBLY DATA.
8
1
1
1
REFERENCES TO DEFINED SYMBOLS.
16
1
1
!
i
I
I
1
Z
EQ
1
2
1
1
HI·
LO
7
10 .
1
r
4
1788
o
1
I
1
8
8
1
NZ
PW'
RO
Rl
,
.~
1
2
R2
1
5
.AS
1
4
Rit
1
5
R5
1
6
l'
1
7
8
R6
R7
R8
1
1
9
R9
II
1
1
ALL
1
1
IS
1048
1
1
8
4
ANY
CAW
CCO
CCl
CC2
COG
'.j
,
j
j
:""
Ij
.~~
i
1
1
'j
1
1
!
}
2
1825
1040
1
o
E
1
F
US
1
1
1
8
1
C
i
2
A
1
FOOO
REG
1
1
1228
SIO
uNe
. ;
........
F
f
j
I
1j
,
1
8
1000
183A
18F4,' 1942,
18F8, 1C7C,
1950,
lC94
196A,
1A20,
1910, 1962, 1966~ 1982, 198C
18F8, 1946, 195E, 199E, 19A2, 1906, 19DA
lAOA, lAOE, lA72, 1·A76 , lA7A, 1822, 1B26
IB80, 1896, 189A, 18FC, lCOO, 1C80, lC84
lC98
18C2, 1802, 1808, 193A, 1940, 1946, 19~6
194E, lAS6, lA46, lA6C, lA72, lA72, 1808
1814, 181C, 1822, 1822, 1874, 1880, U8C
1896, 1896, 18E2, 18EE. 18F6, 18FC, 18FC
lC48, lC50, lC92. 1C98, lC98
18CA. 1808, lA3A, 1A6e, 180C, 181C, 1878 .
188e, 18E6, 18F6, lC4e. lC92
180E • 18EA, 18F2, 18F8, 18F8, 190A, !A3E
1A4e, lA58, tA76, lA76, leSE, le74 , lC7A
1C84, lC84
18E2, 18F2, lA42, lASC, lA68, .lA7A, 147A
1C62, lCTA
18eE, , 194E, 1880, 1884, le66; 1C74, 1C80
le80
195e, 195C, 195E, 195E, 1962
188E,
196E,
18e6.
189A,
18EE,
1C82
1916, 19lA,
1972, 1976,
1940, . 1810,
1B9A, 18A6.
197E, lA98,
19A2,
19DA,
191E,
198A,
1826,
18EA,
lAFA,
192C,
19F8,
1826,
1(:00,
1818,
19l0,
lA24,
1Bl2i
1COO,
185E,
1954
1CAA
1B7C
lCOC
1888
lADE
10
10
16
·1
1
10
6
1
4
1
1
1
. 1
1
1
1
1
1
1
1
1
10
6
4
4
1.0
10
10
16
1
1
8ASE
ERRX
1
16
19AA,
19A6,
19E2,
19DE,
1
lA16
lA12
10
10
'I
;!
6
.1
1
1CAE
18B4,
184C,
1C3A,
19AA,
18A4,
19BA,
1AES,
'18 9 2,'
lCllii,
18B4,
IB4C,
lC3A,
IB3C,
1A30', lAAA, lAca,
186E, 1886, lS02,
lCC4, lCCA
19E2, lA16
18FC, 1906, 1928,
19F8, l4'24, lAl2 .•
1804, .182A.: 182E,
IIj9E~
1888, 1804,
lC32, 1e3e, 1C88,
lA30, 1AAA, lAC8,
IB6E, IBB6, 1802.
1CC4, lCCA
1842, 1880. 1886,
lAE6,
180C,
IB02,
lC:LC,
194A,
!A7E,
1B44,
1801:,
1C9C
lAE';
180C,
1958, ,198A
lAAC, lACA
1B4E, 1870
le04, 1e08
lqic,
1C16,
1C~~
IB42
lC30
,;
1802,
,i
DATE
EC
146E
csw
NEG
POS
R10
Rll
J!.12
In3
R14
4
18AO,
1BIE,
1842
1C30
1
1
6
8
8
7
7
7'
7
7
7
7
7
7
16JUN65
15JUL65
15MAR66' lSNOV66
12426)
10
F800-3
DATE
16JUN65
124265
125632
125655
~~~--~~__________________~________~__________________________~__________________~P~A2~~E~~1~1~.,~.____
EC__~__1_2~4_263
103A
48
40
78
177C
8
HB IT
HCAW
HCSW
HION
MSGl
NONE
1874,
lA.26,
18AC,
IBF2,
1826
PlCB . lA3E,
17BF
PWCR
1934,
1842
RHSG
1CC4
100~SNSW .
18A8,
4
SOME
1830
UCBP
1A42,
lAF6,
198E
UCSL . 1916
6
UNEQ
18DA,
lADE,
177.0
WKAR
1832,
C
ZNEG
llA4 CSWAG
19AE
18.07 OAT 00
l8CE,
17FD DATOl
18E2
17F3 DAT02
17E9 OAT04
'170F OAT08
1705 OATIO
17CB' DAT20
1811 . OAT4'Q . '18CA,
llci DATaO
18C2,
1818 OATFF
18C6,
1781 OATWK
1802,
1CSA,
1042.
19FA OCKR.O
191A,
1C40 LGOUT
lAAC,
18B8,
1B2E PGMER
181E
HBC PW1ST
19E6
17BD PW2ST
19EC
17BE PWSNS
19F2
1860' RMSG1
lCBA,
1898 RTN04
1015
1000 SECNO
1000,
1000,
1000,
lBAE,
1120 SENSE
19B4,
lCFO TITLE
18B4
1753 UAPRT
lA26,
17B8 UCBST
19AE
17B7 UCBWR
1910,
198C UCSOW
1954,"
10EO UNITl
1121 CAWKEY
B CSWNST
1118 CSWSAV
19E6
lA26 DCKRDl
lA20
lCE8 OCRCCW
lAOA
lCEO OWRCCW . 1906
1042 ERR08D
lAAA
1049 ERR081
lAC8 .
IAE6
.
1050 ERR082'
1057 ERR083
lOSE ERR084
1065 ERR085
1D6C ERR086
1073 ERR087 .
107A ERR088
15JUL65
124265
15MAR6.6
125632
t
IB78
1A30
18BA,
1C44,
lA82,
lA50
lCA6
lA94,
lA64,
lA90,
1856;
18CA
1BBC.
18E2,
1BE6,
lC22
laCE,
lAD8.
lAEC
lASlo,
1886,
1C40,
1CA2
1A9(,
1B08,
1ABO,
1BOC
lABA,
1986,
lAF2,
183A,
1A811,
1866,
18A6.
'lAA2.
188E,
18AE,
lA86;
18C2.
1COC,
lACO.
lC28
1900.
1852.
18SA.
1862;
18A2
19OA,
1042,
193A.
1042;
lA46,
1042,
lC50
ID42
1930,
1804,
lC1E,
1972,
1844,
lC32,
1976,
184E,
1C)e
1412
1870 .
1000,
1000,
1000,
1C16,·
1000,
1000,
1018.1C5A,
1000,
1000,
1BlA,
lese,
1000
1000
1BlC
1E22
14-8C. . lac6
180E, lAS6,
1ASA, 1C4e
18E6,' 1900,
1042, 1042,
1042, '1042
191E, 192C,
lACA, lAE8.
1804, 18DE,
II
I
I
I
1
1404 .
lCl~
lC48
lCCA
1000,
1000,
1000,
18BO,
19F2
1000,
1000,
1000,
1C14,
1C8A
198E
196E
~
.,
1!
h
11
15NOV66
125655
10
F800-3
PAGE
. 11A
;,
\,
1.1
IBM MAINTENANCE OIAGNOSTIC PROGRAM
PIN 840225
PAGE
12
PIN
IBM MAINTENANCE OIAGNOSTIC PROGRAM
FaOC 2821: .SCAN, 1403 UNIV·ERSALCI:IARACTER SET
.'
F80D3 l)/'jIV. CHAR. BUFFER DATA REGISTER ROUTINE OVERLAY 4
. PAGE
84022.5
12A
F80C 2821 SCAN, 1403 UNIV!=RSAL CHARACTER.SET
F80D3 UNIV. CHAR. 8UFFER DATA REGISTER. ROUTINE OVERLAY 4
f
loin ERR089
1088 ERR090
108F ERR091
·1096 ERR092
1090 ERR093
10A4 ERR094
lDAB ERR095
1082 ERR096
10B9 ERR091
lOCO ERR098
10C7 ERR099
IDCE ERRI00
1005 ERR101
loDe ERRI02
lOB ERR103
IDEA ERR104
7
10Fl ERRI05
.7
loFF ERRI07
'7
lE06 ERR.1.08
7 ' lEOo ERR 101)
7
10FO ERRI0L
lE14' ERR 110
7
7
lElB ERRl11
lC50 LGOUTA
6
6
lC74 LGOUTB
lC8C LGOUTC
2
2
lCAO LGOUTD
4
lCA2 LGOUTE
1CAE LGOUTF
6
lC8A LGOUTG
8
lCoO LU8CCW
lD2A NERoET
16
9 NMIXEo
1
1
o NOTBSY
2
1014 PBORKI
_,10
10.16" PBQRK2
10
1020 P80RK3
l' 1751' SCHNUM
1
157C SCPOAT
7.
7
7
7
7
7
7
7
7
7
7
7
7
··7
1
7
,/
,
..
7"
,-
,
"
1,
1
1
1
1
1
4
4
4
4
6
4
6
6
.6
4
6
2
2
4
4
6
4'
2
6
6
16i8 SCPROO
1122 SIOSWS
IllS SIOVR3
1108 SIOVR4
119F STATSV
10E2 UIAODR
189C U80ROO
18AS, UBOROI
'lS86 UBOR02
lSC2 UBORIO
1802 U80Rll
18EA U80R12
1900 U8DR13
190A U80R14
1910 UBORl5
192C UBOR16
1934 UBOR17
194E UB'DR16
195C U80R19
195E U80RIA
lA36 U80R20
lA46 UBOR21
lA5C UBOR22
lA6C UBDR23
lAB2 UBOR30
lABQ UBOR31
16JUN65
124263
15JUL65
124265
lACE,.UBOR32
6
lAB6. IACO
6
lAEC UBOR33
lA04. lADE
lAF2
4
1808 UBOR34
4. 1814 UBOR35
182A
IBU
4 _ ,1832 U80R36
1848 U8DR37
lAFA
2
lA88, ' lA90
4
1852 U80R40
IBbA UBOR41
185E
2
1874 U80R42.
1866
4
18BO UBOR43
4
189E.
4
18A2 U80R44
IB84
4
IB88
IBA6 U81;lR45
6
IBBC UBOR50
1656
IBCA
2
F80D-3
.12A
.,
,
~ i·
"
Lu,A.f;
',".J
':i'
()()() OrO 0, 0 0 ,0 iO '0 iO 0 (0 '0 0 0 0 0 0 10 10 ,0 (0 0 ;0 '0 0 0 ,0 '0 10' 0 (0
"
\
I
'~ ..
\,,1"" "
!,e'
o
0 0 0 0 0 0 0 0 0 0 0 0 0 OOOGO
00000
IBM MAINTENANCE OIAGNOSTIC PROGRAM
F800
2821 SCAN
PIN 840225
PAGE
13
/
18MHAINTENANCE DIAGNOSTIC PROGRAM
PIN
1~03 UCS OVERLAV 3 + ~
PAGE
F800
2821 SCAN
1~03
840225
13A
UCS OVERLAY 3 + 4
PERIODS CORRESPOND TO BLANK COLUMNS.
COLS.
1 THROUGH 20
COL S.
COlS.
~1
THROUGH 60
• •••••••••••••••• 840
COLS.
265.125655 •• 80030001
....................
8TXT.APU •• A8 •• AAGAGA
9
Y98 Y9 Y99Y9Y.
9
9
9 9 9
AAAAAAAAAAAAAAAAAAAA
YVVVVVVYVYVYYVYVYVVY
99999999999999999999
AAAAAAAAAAAA.AAAAAAA
YYYVYYYYVYYY VVYYYYY
99 999999999 9999999
AAJAAAAAAAAA80D30003
VVYYYYYVVVVV
999999999999
8TXT.APM •• A8 •• AAAAAA
9
V90'V9 Y9QVYY
9
9
9 9999
AAAAAAHAAAAAAAAADAAA
YVVVYV9VYVVVYYYY9VYY
. 999999 999999999 999
AAAAAA!AAAAAAAAAAAAA
YYYVYY9VYYYYYYYY9YYY
999999 999999999 999
YYYYYVVYYYVY
999999999999
8TXT.APO •• A8 •• AAAAAA
9
Y9'l Y9 Y9YVYY
9 9 9
9 9999
GAAAAAAAAANO.OATA.TR
QYYVYYVVVV'
1999999999
*,NSFERREO.8Y.OIAGNOS
8TXT.A'lM •• A8 •• AAAO.F
9
Y99 Y9 Y9
OR.OEVICE.XXXERR.OOO
.AGACAGFEC1AGA8680A8
Y9Y9YQO-0 RZY 88 -9
9 9 911
99
00GABOBOAVCH80D30006
91Y BB-V8Q9
9 9Z
AAKA5~7~KA555~BA1SAA
BO+AOHHOOSEABOD30007
'l Y ZZ+ ZQ
9
9
BTXT.AQO •• A8 •• AAA.00
9
V98 Y9 Y9- 9
9
9
GA8HEA6HAA7FAJ7KKA7~
IV RZY RZ'l OIY Y V 8
o
9
BTXT.AQO •• A8 •• AA2VKA
9'
Y90 Y9 Y9 9 Y ,
9
9
9
9
9 9
8TXT.A'lO •• A8 •• AAI'lKA
Y9'l Y9 Y9 0 Y
9 0 9
9
9
Y9
9
9
9,
7C1JEA8SKA7D5~KAAA7~
o
BTXT.AQ~ •• AB •• AANA5~
Y9
9
9 9 9
751MKA761GKA771JEA8S
8 8 V 8 Q Y 8 VIV'
~
9
9
VIV
9
Y 0 8 8QV 8
9
999
C5GA9MKA5~C5EA2VNA5~
Y9 9 8
9
Q9lV 9 9 8'l9lQ 9 9 8
I
I
0
.......•...........•
QY V 8 8 V 8 8-Y 9lV
99 9
9
9
9
KA7A54AAB8+AOHBA54EA
V Y BZYQ Y I-Y 8l'l
9
91 9
9
0
BTXT.AKO •• A8 •• AAGOBO
9
V88 V9 Y91 'l+
999 9
9
Z-
61 THROUGH 80
BTXT.AAN •• AC •• AAA'lA.
9
VQ9 Y9 Y9V9'l
99
9
9 9 I
9
I
~O
D3 •• AAAA.ACO •••••• ~
VV'lV Y8'l
9999 999
8ESO •••••'. AA •• AAXF8.0
9
Y'l V9
99 9
1
21 THROUGH
TIC.CHECK.RE80D30005
Z ,9
0
9
9
EAN4JAABBAN4JAAAFAN4
9Y98YVV99Y98YVY99V98
9 999 9 999 9
YYV9
JAAB2821.SCAN/1~03.U
CST.PRINT.8U80030019
8TXT.AlU •• A8 •• AAFFER
9
Y89 Y9 V9 '
99
9
9
,.OATA.REG.FLTAGNO.ER
YQ
91.
RORS.DETECTEOERR.050
ERR.051ERR.080030020
BTXT.AlM •• AB •• AA52ER
9
V88 Y9 Y9
99
9
9
R.053ERR.054ERR.055E
RR.056ERR.051ERR.058
ERR.059ERR.080030021
BTXT.AlO •• A8 •• AA60ER
9
Y8- Y9 Y9
99
9
9
R.061ERR.062ERR.063E
. RR.06ItERR.065ERR.066
ERR.061ERR.080030022
BTXT.AlD •• AA •• AA68ER
9
Y8Y . VQ Y9
999 99 9
R.069ERR.070 ••••••••
.......•............
•••••••••• ~.80030023
BRlO •••••• AH •••• AAAA
9
Y9
Y9V9
AAANAAKIAAK9HAlA ••••
8Y098Y8 8Y8 9V89
999 999 999 99
....................
••.•••••••••• 80030024
....•...........•...
.......••.•.•.....•.
•••••••••••• 80D30Q25
...•..••.••...••••.•
.•........••.....•..
•••••••••••• 80030026
D3 •• AAAA.AFS ••••••••
VY'lY Y89
9999 99
............•.......
•••• ~ ••••••• 80D3002t
:1
.......•...........
•••••••••••• 80D30028
TRANSFERREO.BY.OIAGN
OSTIC.CHECK.80D30029
9 9
BEND •••••••••• AA ••••
V9
9
G08SAA7FAA5480030010
Z
ZQ OIO 8
BESO •••••• AA •• AAXF80
9
Y'l Y9
BOAT ••••••••••••••••
99
Z
9
BTXT.AJU •• AB •• AAKA7~
9
Y88 Y9 V9 8 8
999 9
9 9
AAC.748AAAD.90GA9FBG
'lVI 8-VQVI RIV Z-'l
99
9Z9
0
I
AABAAMAA7AGA90AB75GA
QV-V'l9-9 VZV 8-9 8lY
Z9 91
90BGAMAAABAAS0030,0 11.
8-QQ9Z'l'l8Z0
ZI 999 I
BTXT.AAN •• AC •• AAA'lH.
9
V'l9 V9 Y9V999
9
9 9
BTXT.AJM •• AB •• AAAANK
9
Y81 Y9 V9Q999
99
9
9 I
G-9UAJ7SG09HAA7ABA50
Z 8lV 8Z R-V O-V V
9 9
0 9 i ,9
KH5P50BG5BKH5C5BNG54
9 V V-Q
9
9 8
50G-9JBOOGCA80030012
VZ V8-Z9'l8 '
BTXT.APU •• A8 •• AAGAGA
9
V98 Y9 V99Y9V"
BTXT.AJO •• A8 •• AAGOBO
9
YBQ Y9 V91 Q+
99
9
9
l-
AG7CGA9MG09FBOOGC+GO
-0 OIQ YZ 08-Z90 I
BOAA7FA+A4AJ70KA74AA
Q+I'l Ol Y9ZY V8 80V
Z- 9
9 ~ 9 9 99
8TXT.AJM •• A8 •• AAGA98
9
V8
V9 V9lY Q
I
99
9
9
AAAAO.96GA9BNKGA8AAA
IQ09Z
ZQ Q99ZVQOZ'l
9 Z
,Z9 9
BTXT.AKO •• A8 •• AAGOBO
Y81 ' Y9' Y91 Q+,
NG5A5BGABONG5A50,G-BO
9 0 ZV'lZ 9 Q VZ, OZ
9
99
9
l-
9
BfxT.AK~ •• A8 •• AAAJ7S
9·
Y88 Y9 Y9lY 8
99
9
9
-9,~
Z 9 9
'l
;: Z
KA7~AABEAAG~E~AAS4A.
9
8 80V80V89898ZQ 8Z
9 999999
Z,l
I;
I
i\
9
ABA++BG09BAA7CFA70BE
081 91
-Y 'l8Q +8Q
99
9 9
-99
BOOGCFGOBOBOOGCNGOBO
8-19'lYI 0+8-190 I 0+
9
19 1-9
I
Z5AA+5SB.5SKA5J5SKA+A
'll 8- 8 QZ 8 9 Y
Z:
9
9
I
AA+AC.740.9080030013
I'l YZ 81 R
9
8
999
9
C5GA9MGBKB8S7CBO.17K
'l9ZY 99 9 9 R8- 9 V
9
C7G080800GCG80D30017
'l91 'l+8-l9Q
Z
1-9
Z
BTXT.AKH •• A8 •• AAAAAA
9
Y8Y V9 V9VYVY
999.9
9 9999
9
9
5A50G-BOAG5IGABOBOOK
o VI Ql-'l -IQ'lZ8-09
I I
9l 9
JLGA8KF.1A8D80030018
101'lQV- R8
919
9
OHKA54C5EA2Y80030009
Z 9 BQ9lQ 9
Z 0
9
19
GOBABBA.00GABFEA6HAJ
I 'lV8Q- 9lYQOIY R-Y
Z 99
19
09
AAABNKG-8-G09UAACA+A
I'l'l8991
Z 9lYOV Y
919 9
999
I
91
GOBMBOAK5SNKGABOAAAB
Z 'lOB-V8 8991 V'l-ZQ'l8 '
I 9 9
Z 999,
9
2YKA7A54KA7BB0030008
9YOBV,0
I
8TXT.AKD •• A8 •• AAAAAB
,9
Y80 V9 V9lQQ9
99- 9
9 zz
•••••••••••• 80030002
AAAAAAAAAAAA8003000~
" AG5HGABHNG5A5BGAB6NG
-Q -I'lQI 9 0 IYQ8 9
9
9
....... ....•..•••.•
~
AAAAAAAAAAAANO.DATA.
VYVVYVYVYVYV
999999999999
9 9
I
·BTXT.APM •• A8 •• AAREAO
9'
Y90 Y9 Y9
9
0
9
~
i!
.FOR.DEVICE.XXXAAAAA
VVVYV
99999
AAAAAAAAAAAAAAAJAAAA
YYYVVYYVVVYVVYYVYYYY
99999 99999999999999
AAAAAAAAAAAA80D30030,
YVVYVQVYVVYY
999999999999
, AAAhAAAAAOAAAAAAAAAB
VVYVVVYYY9VYYVVVYYY9
. ,999999999 999999'999
AAAAAAAAAAAAAAAAAAAA
YYVVVYYYV9VYYYYYYYYY
999999999 9999999999
AAAAAAAAA.AA80030031
VYYYYVYYY VY
999999999 99
"
AAAGAAAAAAAAAAAAAAAA
YYYQYYYYYYVYVVYVVVVY
9
Y99R988-19 9
9 0 99
BTXT.APO •• ~8 •• AAAAAH,
9
V9'lY9 V9VVV9
9 9.9
9 999
AJOOGABKAA7F80030015
-Y 9lV'l I'l 0
BTXT.AQM.~A8 •• AAAAAA
9
V99 Y9 V9YYVV
"'9' '-,9", 9,;,-9999
AAAAAAAAAAAAAAERR.OO
YYYYVYYVVYYYYY
999:9999999;9999
000RIGINAL.C80D30032
,9991 9'9999999~1J'i199999
8TXT.AOO~.A8 •• AAONTE
"
NTS.DF.UCS.BUFFER.FO
R. PRINTER ...'~ DESTROY
EDT.RESTORE.80D30033
ABGFH/BOOG8V8003001~
<:}
I
9
AAN~GABOA++C80030016
QV99lY'l'lI
19
ZO
9
9
Y98
Y9
V9
9
9
9
8
i,
DATE
EC
16JUN65
12~263
15JUl65,
12~265
15MAR66
125632
15NOV66
125655
10
F800-3
PAGE
13
DATE
EC
16JUN65
124263 .
15JUl65
124265
15HAR66
125632
'15NOV66
125655
W.L. O.
II
"
#,
$
10
F80D-3
PAGE
13A
:,
IBM MAINTENANCE DIAGNOSTIC PROGRAM
F800
2821 SCAN
BTXT.AQO •• AB •• AAWITH
Y90 V9 Y9
9
9
9
8TXT.AJU~.A8
9
V80
999
V9
9
9
9
9
•• AAEA98
Y9ZY Q
i
9
9
9
9
9
BOAUDOA.ODGABOD30034
B-Y9Q - 9ZV
9
Z
7GAANKG-9AAA7AA.7EB.
OQY99Z QZQ Z Q-99
9 Z
Z
7GADAHGA9BN4BOD30035
0-9Q9ZQ 899
AAABG08KOA7G8CG09AOA
ZQQ81 Y Y 0 81 Q Y
ZZ9
9 9 - 9
9 9
7GAAKA7C7GEA9FEA9BEA
OQY Y Q OZY YZY QZY
-Z9 9 0 Z
9BKA7B54G09F80D30036
Q V Q 8Z B
EA9BKA7G54KAAA7GNJGA
ZV Q Y Q 8 8QY 098ZY
Z 9 0
999 - 9
B6AAABG08KNNGA9HEA9D
Q9ZQQ8Z
99ZY 8ZY Q
Z 999
0
Z
7CGA90EA9DEA9B~A9BAO
54GA94EG7CG-9DG094KA .
8ZQ 9-Q QZ 8Z 9 V
547GK05554BA80D30038
8 0 V 8 8-V
o
9
9 9
9
OlY 81Y QIY QZY 0-9
o
0
BTXT.AJD •• AB •• AA1SAA
9
Y80 Y9 Y9 91Y
99
6HAA7AAA8LAJ8JA+BGKA
RIQ ZQ 81Y 91 9 8
9
BTXT.AJM •• A8 •• AA7CE.
9
Y81 Y9 V9 Q99
ED7AGABQGODBACODGA8F
-.0 RZY OZ QQ-9 9ZYO
ZO
9 9 91Z
BTXT.AQ4 •• A8 •• AAGA9A
9
Y9
Y9 Y9ZY V .
9
F80D
.PROGRAM.F837AGADAGG
Y9Y9YQQ
9
BTXT.AQD •• A8 •• AA88EA
9
Y9Q Y9 Y9 IV
9 0
I
0
Z
9
OO+AOHHOOSEA2YKA1H1Q
Q- Y ZZ+ ZQ 9 V 0 0
Z
9
0
9-
Z 0
1
9 9
Z 9 0
G09ULOA--AB-80030037
88ZZ 92
99
9
-
9
9
KA7IIJG8KA547CKA5554
V 0 V9 V ~ Q V 8 8
9 - 9
9
0 9
BA56KA5756BA80D30039
-Y 8 0 8 8-V
9
9
KA7EIGKA7F1JGBKA54EH
V Q Q Y Q V9 9 8Q9
90
909
Z
KB5554BAlSAA80D30040
o 8 8-Y 9ZY
BTXT.AKD •• A8 •• AADY+A
9
Y88 V9 Y9Q V
999 9
9 I 9
OHHOOSEA2YNA54EMGABW
ZZ+ ZO 9 9 8Q9ZYQ9
GBKB7D7CBOD174G09BAA
9 9 0 RB-Z9 8Z QZQ
7AAJBLAA8WA.80D30041
ZY 8ZQ 91
BTXT.AKO •• A8 •• AA8AKA
9
V81 Y9 V9 Q 8
Z 9
7GAABAAAAD7GGABMBGAA
OQY-YQY-9 QIYQ8-QOY
-99 919
0 Z ZZ9
BTXT.AK4 •• A8 •• AA.AGO
9
V88 Y9 V9 91
Ql 90Y 9Z QR-981YQR
99
9
9
9
o
Z
9
Z9
9
I
9 9
Z
AG8VGAD6NHBAEJG-BABO
Z 9 9Z
BFNA87EOG-BFBODGEAGO
QY 9 9Q9Z QYB-Z9Q81
BTXT.AKM •• A8 •• AANHBA
9
Y8Y Y9 Y9 9 Q
Z
999 9
9
EOG-CHAG81GACHBODAES
Q9Z Q9-Q BIQQZB-OQQ8
Z
Z I 9 9Z, 9 9Z 9
8TXT.ALU •• AB •• AAAAAA
9
Y89 Y9 Y9Q9Z0
Z 9
-Q BZQQ9 9 QQYZ QQB-
Z
BTXT.AKD •• A8 •• AAEJG9
V80 V9 V9QYl
99- 9
9 Z9
Z 9
BA.AAD7IGABUBG.ANKGA
-V Y-9 OZYQ8-Q Y99ZY
BFNFEJ8WG-CBAD8JGACB
Z
9
1
9
ZZ9
Z09
9
9 9 I
AGEBGOD.NF8ABOD30043
Z9QZZ Q 9 Q
Z
I
AA8EAAGGE4AA54A.5AA+
QYBQY890981Q 8Z QZ
999999 Z
5SB.5SKA5J5S80030051
8- 8 Q Z 8
BTXT.AMD •• A8 •• AAKA+A
9
VBR Y9 Y9 9 Y
990 9
9
9
AAN4GADOA++CAAABGOOO
OY99ZYQYZ 9ZQQ9Z QR
Z9
Z
Zl
ZO
BOAK5SNKGAOJAAABGOO+
8-Y8 899ZYQYZQQ81 Q
9 9'
Z 999 Z
BBA.ODGADOEA80D30052
8Q- 9ZVQYIV
99
Z
BTXT.AMM •• A8 •• AA6HAJ
9
Y8Y Y9 Y9 R-Y ,
JLGADBF.7AKB8V7£BOAT
ZOlQQQ- R 9 8 R8-V8
8BBOAY8VBOAALAN4-AAA
18-V9 88 YYYV98 YV9
9
9 9999
99
CAN4JAAOEAN480030053
QY98YYY .9V98
19 999 9
03.UCST.UCB.OATA.REG
.• FLTAGAAAAAA00030054
YQYYYYYY
9Z999999
Z
BTXT.ANO •• A8 •• AA082E
9
Y8R Y9 Y9
RR.083ERR.084ERR.085
ERR.086ERR.087ERR.08
8ERR.089ERR.80D30056
BTXT.AND •• A8 •• AA090E
9
Y8V V9 Y9
99
9
9
RR.091ERR.092ERR.D93
ERR.094ERR.095ERR.09
6ERR.091ERR.80030057
8TXT.AND •• A8 •• AA098E
9
Y8
V9 Y9
RR.099ERR.100ERR.101
ERR.I02ERR.103ERR.l0
4ERR.105ERR.80030058
8TXT.AND •• AW •• AA106E
9
Y80 Y9 V9
99Z 9
9
RR.107ERR.I08ERR.109
ERR.110ERR.111 ••••••
•••••••••••• 80D30059
BRLO •••••• AQ •••• AAAA
9
Y9
Y9V9
AAANAAMJAAMRAAMJHAHZ
8V098Y8 8Y8 8V8Z9Y8
999 999 999 999 99
.....•...•.•....•..•
•••••••••••• 80D30060
•....•... ...•.....
•••••••••••• 80D30061
....•..•........•...
•• ~ ••••••••• 80030062
9
AAGOCMGOCWFA70BEABGF
09Z Q91 QBBQ +8QY99R
Z
Z9
-999 0
H6BODG82GOD.BODGFLGO
988-Z9 Bt QB-Z9QBZ
99
9, Z 9
Z9
D.ADBGGACOAG80D30046
Q -9 8ZYQQ-Q
9 9
C+AG8CG-CDBODGEFGOO.
O--Q 8Z QRS-19Q-l Q
Z 0 9 109
Z
1
AAE2AJEAAAANC+AAD+CK
ZQQSZYQZZQVSZ QYZ QO
9Z9 9Z
9
99 Z
GACONKG-CFG080D30047
ZQQ099Z Q-Z
9Z
Z
BTXT.ALD •• A8 •• AACBAA
9
Y8- V9 Y9Q-IO
99
9
9 I 9
AAAAAAGOCAAA8CFA70BE
Q9Z0091 QY-Y 88Q +80
9
Z 9 9
-99
ABGFH6BOOGB2GOO~NFEO
8WG-OSADBJGA80D3C048
9Z Q9-9 8ZY
BTXT.ALO •• A8 •• AACQBO
9
Y8Y Y9 Y9Q 8-
19QOZ 0 B-Z9Q~,~Q 10
99
9
9 9
BTXT.ALM •• A8 •• AA8CGA
9
YB8 Y9 Y9 8ZQ
99
999
9
9
9
9 Z 9
BTXT.AMD •• A8 •• AAGOCO
9
Y89 V9 V9Z OY
99
9
9
Z9
DGEMGOD.BOOGE~GOO.AA
1
Z 9
Zr
9
GODHFA708EABGFH6BOOG
Z Q98Q +8QY99R988-Z9
Z
-999 0 99
Y99R9S8-Z9 8Z Q 909
9
0 99 1'1
9
Z
Z
9
Z
Z
ZO Z
82GOD.NFEJ8WG-CSBODG
8Z Q 9QV 9Z Q 8-Z9
FEGOD.BDDGFM80D3C050
08Z Q 8-Z9Q9
Z9 Z 9
Z
I'
Z
iZ9
Z 9
999
OERR.081ERR.80030055
99
9
9
9 9
BEND •••••••••• AA ••••
V9
~~
9
BLOT ••••••••••••••••
.'
9
GADHAAAAAAAA80D3C049
ZYQ9ZQ09ZQ09
9
9
9
8
I
8WAJBUAAAOAGAAGAODNK
9ZY BZOYZ-QQYZVQ899
9 9 9, Z99 Z9
Z
9
9
. GAC2NKGACWAA80D30045
IQQ999ZYQaZQ
9Z
Z9 9
_
9
.TECTEOA.JAHOBAERR.08
V YQ9999
GOD.AA8AAJBBAAACAGAA
Z Q ZQ QZY 9ZQYR-QQY
Z 9 Z 9
9 Z99
I
9
GGGGGGGGGGNO.ERRS.OE
OQQQQQQQQQ
ZZlZZZZZZZ
9
199
910
0 9
BTXT.ANM •• A8 •• AAAAAA
9
Y88 V9 Y9VYYY
999 9
9 9999
BMBODGE+GOD.80D30044
QYB-Z9Q Z Q
. Z99
Z
Z
I
9
FAN4JAAD2821.SCAN/14
9Y98YYYO
D.NF8AEOG-BMNAB1EJGQ 9 QQ9Z QY 9 9QYZ
Z
ZZ
Z9
Z9
19
9
Z
BTXT .AHU •• A8 •• AAJAAD
9
Y8
Y9 Y9YYVO
99
9
9 999
99
BBAAABAAAAA.80D30042
QOZQQBIQQ9Z
Z 999 IZ
1403 UCS OVERLAY 3 + 4
AJODGADKAA7AAJ8LKA7G
-Y 9ZYOOZO ZY B 8 0
9
I
9
9 99-
99
DS+AOHHOOSEA2YKA7DIH
08 Y 11+ ZQ 9 Y Q 8
Z 9
0
909
2821 SCAN
PIN 840225
PAGE
l'tA
BTXT.AM4 •• A8 •• AAGOD.
9
Y88 Y9 Y9Z 0
999 9
9
Z
99
BTU .AJH •• A8~. AA1SAA
9
Y8
Y9 Y9 9ZV
99
9
9
9
99
IBM MAINTENANCE DIAGNOSTIC PROGRAM'
1403 UCS OVERLAY 3 + 4
9
9
PIN 840225
PAGE
14
99
I,
~
DATE
EC
16JUN65
124263
15JUL65
124265
15MAR66
125632
i
---!---";'-";'--'- - - .-'-,:--------:----~--r---~--~-
15NOV66
125655
,ID
F80D-3
PAGE
14,. "
1
DATE
EC
16JUN65
124263
15JULb5
124265
LAST PAGE - ....-------------.-.-.----------------;
15MAR66
125632
~5NOV66
125655;l
10
F80o-~
PAGE
14~
.. _.............- ...
·--·~············----------~-----_ _......._ _II
4;
o
00 000000
Source Exif Data:
File Type : PDF File Type Extension : pdf MIME Type : application/pdf PDF Version : 1.3 Linearized : No XMP Toolkit : Adobe XMP Core 4.2.1-c043 52.372728, 2009/01/18-15:56:37 Create Date : 2014:07:05 18:02:31-08:00 Modify Date : 2014:07:05 17:53:10-07:00 Metadata Date : 2014:07:05 17:53:10-07:00 Producer : Adobe Acrobat 9.55 Paper Capture Plug-in Format : application/pdf Document ID : uuid:aa49e418-bac7-9e4f-b0be-e60a7e393d3f Instance ID : uuid:e7a86789-bf84-be49-8305-2f710cccdb9a Page Layout : SinglePage Page Mode : UseNone Page Count : 131EXIF Metadata provided by EXIF.tools