7_2821_MDP 7 2821 MDP

7_2821_MDP 7_2821_MDP

7_2821_MDP 7_2821_MDP

User Manual: 7_2821_MDP

Open the PDF directly: View PDF PDF.
Page Count: 283

Download7_2821_MDP 7 2821 MDP
Open PDF In BrowserView PDF
TABLE [F

CONT~NTS

e
CIt

080100 .. 15*
080100.15080101.15080102.15080109.15*
080109.15080200.15*
080200.15080201.15080202.15080300.15*
080300.15080301.15080302.15080306.15*
080306.15080307.15*
080307.15~

080308.15*
080308.15-

-10991 MODE M3 ROST BY
PART NO. EC NO.

TITLE

PAGE NO.. SH
** LOGIC TYPE

VOL#001 FOR 28211 001

DIAGNOSTIC MANUAL
F810*
F810
F81l
FB12
F819*
F819
F820*
F820
F821
f822
F830*
F830
F831
f832
F836*
F836
F837*
F831
f838*
F83a

FACTORY MLC

00

DATE 29JUL70

FEATURE 81M OR SIMS

1

2540 REAOER FUNCTION OESC
2540 READER FUNCTION SEC.l
2540 REAOER FUNCTION SEC.2
2540 RDR FUNCT SECT.3
2540 ROR STACKER SEL
2540 ROR STACKER SEL
2540 PUNCH FUNCTION OESC
2540 PUNCH FUNCTION SEC.l
2540 PUNCH FUNCTION SEC.2
2540 PCH FUNCT SECT.3
[403 PRTR FUNCT DESC
1403 PRTR FUNCT SECT 1
1403 PRTR FUNCT SECT 2
1403 PRTR FUNCT SEC 3
RIPPLE PRINT TEST OESC
RIPPLE PRINT TEST LIST
BUfFER RESTORE OESC
BUFFER RESTORE
CARRIAGE FUNCT OESC
CARRIAGE fUNCT SECT 1

084018')
0840186
084H188
0840572
0840578
0840574
0840190
0840191
0840193
0840576
0840103
0840104
0840106
0840108
0840209
0840210
0840540
0840541
0840212
0840213

130498
130498
130498
130498
130498
130498
130498
130498
130498
130498
131812
131812
131812
13181.2
131812
131812
125655
125655
125655
125655

• w.
• w.
• w.
.w.
• W.
• W.

.. w.
• w.
• W.
• W.

.W.

• w.
.w.

.w.

.W.
• W.

.W.

.W.
.W.
.W.

0840128
0840128
0840128
0840128
0840128
0840128
0840128
0840128
0840128
0840128
0840120
0840120
0840120
0840124
0840120
0840120
0840124
0840124
0840120
0840120

e
e
o

----e
o
o
41»

e

---e
e

--e
e

e
e

TOTAL PAGES THIS VOLUME

20

.~

--

--

---~---

--.--"'-~

..

r

trs

•

ge fit

WSW

«

$

1

eeee80eeeeeeeeee_eeee ____ e __ - eeee
"

1811111'IHTlNAMtE ,DIAGNOSTIC 'PROGRAM!

PIN 840185
,PAGE
1

-TABLE OF-(CONT!HTS
PURPOSE • :. • • '. • • • • . • •

3 ..

USE PROCEDURE • .. • • • •
•
PRINTOUTS • • • '. • • • • • • •
COMMENTS ••
• ". • • • • •

2. PREREQUISITES ••
5.
-·1.

2.1; PROGlAM'REQUIREMENTS •

• · . '• • • • • • :.)1:

• .' • • • • • • • '• • • • '.

• , 11:
• • •
• • • • • 1 11
• • • • • • •
3 '
• • .• • • 5A

THE exCLUSive CPU 'FLAG IS ON' IN ALii ISECTIONS.
OM ,MUST ',HAVE A FOUR 8'ttIUOT ,ENTRY, ONLY THE :fIIlST .TWO ,8Y1:ISARESHOWN,
BElbw. THE NEXT!TWO 8YlES·.MUSTCONTAIN THE CHANNEL lAND UNIT·ADORESS.

PURPtJSE

~~-!.,..,~~-~~-~...,~-~-;-~~-~~-~+'-~~~..,-.,~~.;..;~.;.,

.; I i .

j ~

i : , i : : oj *.

:.;..;-,

I OPTIONAL;FEATURE,OIGIT'., I OPTIONAL 'fEATURE ,DIGIT '2 '
I
I
I
I'
I
I
~...~"';"';"';-.-·--..; .....,----I'-......,~.. I-~....;--I-............; 1---..-1---1--...- .. -1--.......-1 ~-I
1
UNIT
I ZZ 181T:O:IBIT,1IBIT 2 IBIT 3 181T4'IBIT,5 181T 6IBIT:1;t
I
1
IHEX B'IHEX 4 'tHEX 2 IHEX llHEX B 'IHEX '4IHEX2 IHEX 1,1
1-.......;...-'--'.,.,.,.,....,..;...-1-.,..., 1-..,...,..... 1-..;-.,..;... 1-..,....,...,1--.,--1---..,-1-............ 1---.,-1---..;-1
12540 READER
I 811
ICARD: I
151 COll1400 I
1
12 CHNll
1
I
I
IlMAGE I
IFEAT. IFEAT. I
I
ISIf ON I
I
1
I2B21 1
I
I
I
I
I
I
I
I

1.. 1, INTE:'T.

UNIT 'TYPE

-;~~-'''';''';'''''''''''....... I

F810

READER FUNCTION 1
TESTS ABILITY TO •••
1. ADDRESS THE DEVICE UNDER· TEST.
2. ISSUE SENSE START:I-o.
3. PROPERLY SET ALL CONDITION CODES.
4. CLEAR INTERRUPTS WITH TEST 1-0 AND 8Y ENA8hING'
THE SYSTEM MASl(.
.
5. PROPERLY STORE THE CSW (CHANNEL STATUS' WORD'.
6. PROPERLY SET AND SUPPRESS THE INCORRECt LENGTH;
INDICATOR.
1. BREAK'COMMANO CHAINING.WITH UNUSUAL COMMAHDSEQUEHCE.
8. REJECT ALL.INVAlID,COMMAHDSISSUEO:TO THE DEVIGE.
.
9. ISSUE THE:I-O INSTRUCTIONS sto, TID, AND HID
WHILE THE DEVICE AND CHANNEL ARE IN VARIOUS STATES 'OF'
PENDING DR STACKED STATUS.
., 10. ISSUE ,I-O"INSTllUCTlONS TO A HOT READY DEVICE. '
• , l I . ISSUE ,1-0 'INSTRUCTIONS TOAH OFF LIHE DEVICE •.
• ,12. TEST END ,OF FILE.

NOTE.

NOTE..'

o

,

THIS PROGRAM I ISSUES DIAGNOSTIC WRITE COMMANDS TO TEST THE READER
CIRCUITRY. THIS REQUIRES A ,2540 PUNCH (UNIT TVPI; 8214 J~Y.TE UOT
ENTRY TO ,PROVIDE ,THE PUNCH ADDRESS FOR THE DIAGNOSTIC WRITE
COMMAND.
.
WHEN MORE THAN lONE READER/PUNCH IS PRESENT, DM'UDTENTRlES FOR
THE ,COMBINATIONS .MUST:NOT BE MIXED. FOR EXAMPLE, ENTER
READER 1 I PUNCH 1. THEN READER 2 / PUNCH 2•

2.2', I;QUIPMENT' REQUIREMENTS.
INPUt' ,OEVICE FOR lOADING:PROGRlM'-TESTDEVICE CAN BE LOADER-•.
OUTPUT 'DEVICE •.
UOfl !STORAGE
CPU'
CHANNEL'

READER FUNCTION 2
TESTS'A8ILITY TO •••
i. ISSUEOIAGNOSTJC WRITE TO THE PUNCH ASSOCIATED WITH '
THE TEST:READER UNDER VARIOUS CONOITIONS.
2. DEVELOP DATA CHECK 'INTHE READER SENSE 8YTE 8Y
FILLING THE READ BUFFER WIT~ COLUMN 'BINARY DATA
WITH THE DIAGNOSTIC WRITE :COMMAND.
3. ISSUE VALID COMMANDS TO THE READER.
4. COMMAND CHAIN·AND DATA·CHAfNCOMMANDS.
5. BREAK COMMAND CHAINING AND DATA CHAINING,IfITH
WRONG lENGTH RECORD.
6. ISSUE 1400 COMPATIBILITY COMMANDS IfHICH ACTIVATE
THE PROVISIONAL FEED HARDWAREIN:THE'REAOER.

F812 - READER FUNCTION 3
,TESTS ABILITY TO •••
1. READ'ALl VALID EBCDIC CHARACTERS AND INDICATE
ANY ERRORS.
ALSO ALLOWS •••
2. PUNCHING THE DATA CARDS NEEDED.,IN ,THE READ ROU1'INE.
UNDER CONTROL OF SENSE SWITCH ••

..

...

--;--~-~--~~'"'!..,...-~*!'-~...,...,--..., ~-~--...,~~...,.-..,~~~--..,-------~--""!~~- -~---.-.~--~~

_. MANUAL; INTERVENTION ROUTINES,! UNDER CONTROL :OF ,SENSE
SWITCHES 5 AND 8.
F811,

PIN 840185
PAGE
lA

2.0' PREREQUISITES

i.

4"

DIAGNOSTIC PROGRAM!

18MJMAIN'IN~~tE

3.

USE PROCEDURE
3.1; PROG"AM ;LOADING~

!

STANDARD IASDESCRl8ED:iIN ,USERS GUIDE.
3.2- PROGllH:OPERA1E.
• ........,..................................... NOT& ................................... '
., IF 2 CHANNEL: SWITCH FEATURE IS INSTALLED, DISABI:E THE
• '
•. UNUSED INTI!RFACE TO ,PREVENT ,NOT READY TO READY ,STATUS
'• '
•
FROM ,BEING, PRESENTED iTO ,THE ,OTHER CHANNEL.
•

...........................................................................
THIS IS'

,

IF ,EQUIPMENT ,OR OATlCHECK TROUBLE IS EXPERIENCED WHILE ,RUNNING,F.810 ORFB1h If IS ,SUGGESTED THAT ,F812 81; RUN TOANALYlE,THE ,TROUBLE.
A PS"'RESTART EXECUTED ,WHILE THE PROGRAM-IS OPERATlNG,NORMAlIiYMAY
CAUSE A MISLEADING HANG UPMISSAGE. THE HANG UP ,MESSAGE, IS ONly'VAllO
WHEN ,A PSW RESTART:IS 'INITIATED DURING A SYSTEM 'HANG UP CONDITION..

j

"
DATE'
EC,

05MA165
,124.252

10AUG6!I
1,J,558,O ;

22FEB66 " . UJUH6T,
U56ZJ!:' , 130498'

.10'

PAGI;

F810-.
1

DATE.
Ee

05MA165.
124252

'IDAU665
125580'

22FE866, 15JUNU,
125621
130498

ID' FBlo-.
PAGE
lA

.... !"AcINTEN4,0

10'

1301098 '

PAGE

F810-.
2

DATE

EC

05MAr65
12<\252

10AUG65'
12:5580;

22FED66
125.21.

15JUN6T
130498'

IDi F8J.o-.
PAGE
2A

i

c
C

,.~.

.....

o o o o o

~"

..)

'0

o

C)

o

()

r't.

U

,.,.--"'\,

,..1

()

" 0

""..

~j

"

1")\

',\~)i

-----

tf

~,

,-y'

,¥.~

U

0

,/'~.

V

0

,'"':
t,:,

.

A'~-"

U
",

---

-

..... -

..:' -"

'-~)

c:

.... - - , . - - .... - - .. ~.:...---\ , -

'.

,c'

'-.-' 0
.--~~-

"'i.

<

'u

hd. . . _

18MIMAIHTEHA... CI 'DIAGNOSTIC IPRDGAAMI

PIN 84018'
PAGE
3

25100:READER fUNCTION,TISTl

rt

t

, db

tnt'

. PIN 8100185
PAGE
3A

18MiMAINTIN.... CE ;DIAGNOSTIC IPROGRAM!

'

........ 1

",

...

' /

F810 ;CCONflNUEDl

OPERATOR INSTAUC1T10NS'

- .REMOVE BLNK :COS FROM 'READER- :
DECKS INTO iRDR HPR ·AND MAilE RDR ·ROY,EDF·ON-;

- .pur .REMAINING 'TIST

AN:SDO'HEADE~"IS GIVEN;WI'" 'EVERY MESSAGE ·TD DEFINE ,THE, 1-0
DEI ICE ADDRESS.THAT' IS ASSOCIATED WITH THE ,MESSAGE.

. THE ABOVE MISSAGS,;IS ISSUED.AT 'THE END ,Ollll'HE . I NURveNT.I ON: ROUl'SNE
IF ,rHE LOADER 'WAS .THE DEVICE BUNG ·TESTID. THE BI:.ANK .CAROS IN
STACKER Rl ARE .FROM'T"E END.OF·FILE ,TEST 'AND ,SHOULD BE REMOVED,
TO ,PREVENT ,THEM:FROM!8E1NG'MIXED IN WIT" :T"E· TIST·DECKS.·

F810'

- .REMOVE CDS FROM.ISTACKER 'Of! ,LOADER DEVICE- .REMOVE THE .~EMAlNIHG TEST ;DECKS,!F ANY, FROM ITHE. LOADER HPR-.
- .00 :NOPRO AND .PIlACE CDS AUN OUT IN FRONT OF iREMAlNING TEST ·OECKS- .
- SAVE REMAINING ,TEST 'DECKS UNTIL A MSG REQUESTS THEM [TO BE ,PUT.,IN iHPR-;

- DO.NOPRO, PUfIA80UT.'30:BI:NK 'COS IN RDR,MAKE ROY.EOF.'ON.THIS MESSAGE WILl:. OCCUR IF !THE I NTIRVENTI ON ROUTJNE IS EXECUTED 'AND'
THE TEST DEVICE. IS NOT·THE LOADER.

THE ABOVE MESSAGI; IS ISSUED WHEN THE INTERVENTION ROUTINE IS ,TO BI,
EXECUTED ON THE LOADER DEVICE. IT ,PREVENTS THE.READING OF.TEST
OE:KS BY THE.ROUTINE.

- .RTN BYPASSEOTHE ABOVE MESSAGE WILLiOCCURWHEN A ROUTINE IS

BY~ASSED.

ROJTINE ,09 WILL 'BE BYPASSED IF·SSW 1,ISON. TESTS 0220 TO 0210
A~E THE TEST 'NUMBERS BYPASSED ,IN THIS TEST. THIS IS
DUE :TO .TIMING RESTRICTIONS. MISLEADING RESULTS WOULD:
OCCUR IF'TIME WAS TAKEN BETWEEN 'TESTS TOPRINT·THE
CORRECT:RESUtTS.

FBU:
- .READERR~ .
-:CAAD IN PRESTKR

-:MAXE 'DEVICE

THE ABOVE MESSAGES ARE ISSUED WHEN ,A 'READ'ERROR IS OETECTED'
IN:THE.RIPPLE READ ROUTINE INSECTION·F812. THESE MESSAGES
ARE ISSUED.FOLLOWING,THE MESSAGES LISTED IN THE
SAHPLE PRINTOUl IN 10.2.1 .OF:THI5 DESCRIPTION. THE READ ERRORS
ARE INDICATEO:FOR·EACHCOLUMN.FOLLOWING:THIS HEADING. AN
EXP.LANATIONOF :THEABBREVlATIONS IN THIS HEADING ,FOLLOWS THE
SAHPLE PRINTOUT'EXPLANATION'IN 4.2.3 OF·THIS DESCRIPTION.

RDY~.

THE ABOVE HESSAGE WILL OCCUR IF·.THEREADER OR PUNCH USED .IN THE TEST ,
IS NOT REAOY, OR IF UNIT EXCEPTION 'IS DETECTEO. PUT HORE CARDS IN
THE DEY ICE .AND. INTERRUPT TO CONTINUE.

-:2DIAG,CHK RDS ATlEMPTED.-BOTH

THE ABOVE HESSAGE.IS ISSUED ,UPON ENTRANCE TO THE NOl.READY
. TESTS IN THE INTERVENTION ROUTINE -RTN 12-. A HALT OCCURS TO
ENABLE THE OPERATOR TO.PERFORM;THE INSTRUCTION. THE OPERATOR
SHOULD INTERRUPT 'TO CONTINUE.

- .00

THE ABO~E HESSAGE. IS ISSUED WHEN SECTION SENSE SWITCHES 5 AND 8
ARE ON IN SECTION F810. THE OPERATOR CAN FOLLOW.THE INSTRUCTIONS
BY EITHER PUTTING THE READER OFFLINE WITH THEC. E. TEST BOX, OR
BVTURNING OFF ,THE 2821 HETER SWITCH. THE,MErER SWITCH SHOUlD
Nor;BE USED IF;THE OUTPUT DEVICE USEOiBY DM IS ALSO ATTACHED
TO THE 28211CU.THE WORD -OFF-.IS REPLACED WITH -DN.. AND THE
MESSAGE IS REPEATED AT THE END.OF 'THE TEST, TO ENAnE THE
OPERATOR TO RESTORE THE DEVICE TO READY.

THE ABOVE MESSAGE .. IS GIVEN AS AN AID .TO THE OPERATOR IF A SET OF'
DErAIL CARDS IS NOT 'AVAILABLE.
-.LOlPING LOADER-KEEP ONLY DETAIL.CDS IN RDRTHE ABOVE HESSAGE IS ISSUED WHEN THE LOOP ,ROUTINE SENSE SWITCH
-SECTION SENSE .swnCH It- IS ON, AND :THE LOADER IS THE TEST DEVICE •
THE OPERATOR SHOULD BE AWARE OF ,THE ,POSSIBILITY OF FEEDING THE
TEST.DECKSTHAT.ARE STILL:IN,THE. READER HOPPER.

BLNK :CDS IN RDR,MAKE RDV.EOF·ON.-

i ,22FE866:,

125621.

1!JJUNn I

130498'

NPRO.PLACE,DETAIL ,CDS IN RDR. HPR,MAKE RDY,EOF ON-

SEr SSW'90N, DO iPSW'RESTART ,IF ·SET·OF DETAIL.CDS DESIRED-

. THE ABOVE MESSAGE;}S ISSUED1AT'THE.STARTOF,THE END:OF FILE
TEST;TD ALLOW. THE OPERATOR TO ,PREPARE THE DEVICE.

'lD~G6S
.12~~80;

FAILE~

THE ABOVE HESSAGE, IS ISSUED WHEN EXECUTING THE iUPPLE READ TEST I
ON A 25100 READER THAT,IS NOT USED AS THE LOADER. THIS ALLOWS THE
OPERATOR TO :PLACE A 'SETIOF RIPPLE READ CARDS INTO THE TEST DEVICE~

-.Pur·READER OFF ,LINE.

5·

o

THIS MESSAGE. IS ISSUED BY .THE COMMON START 1-0 ROUTINE WHEN
A HAD ,ERROR IS DETECTED IN.THE RI PPLE READ ROUTINE OF SECTION
F812, AND THETWD DIAGNOSTIC CHECK READ .START 1-0 INSTRUCTIONS
ARE NOT ABLE TO BE ACCEPTED. THE CHECK READ DATA IS NOT·INDICATED
IF'THIS CONDITION OCCURS.

- MAKE READER NOT READY-

·-DO.NOPRO, PUT'

STA~

EXPECTID:SHD,
BUF-.COO;PUNCHES· RD'RDXU'XL,PARADRtRAN-

ROUTINE ,12 WILL BE BYPASSED IF SECTION ,SENSE SWITCH 5 IS OFF.
THE TEST NUMBERS ARE 0380 TO 0410. HOWEVER, THE
OFF LINE TESTS 04100 TO 0460 ARE NOT EXECUTED UNLESS
SENSE SWITCH 8'ISALSO ON. THESE TESTS ARE NORMALLY
BYPASSEO.BECAUSE MUCH INTERVENTION IS REQUIRED.

O!;~.~~5:·
~24252

*

2540 :READER FUNCUDN· TIIST I

4.. '. PIlINTOUTS
10.1;

¢d*

10

PAGE

FBlo-..
3

DATa
EO,

05MAY65,
l21tZ52

10AUG65 .
125580 .

UFE866·.
125621

15JUNU I
1301098 '

FBlo-.
PAGE3A

10:

'.'1$" !M~HniNANtEi ,I)JA~IIOSnC'PItQGUIli:

,PIN 8401:35
PAGE
It~

. PIN' MOle!'
PAGE
4'

25~O,iI,eAOI!Il FI.I~CT10IlliuT l
-t.iZ

06

STAruS Mf:SSA:GES

<': .. l . l ,SAMPLE ,CORRECT; PRINTOUT' "

·UNS'
01

Ql
03

. 04
05

~

06
'01 :
.08
09 :

10.
11
12

",,55"GI!

- :SOO' FetOR OIJ' 00U5!: 'ooe..
-' TS T ,,031/H
- .ADR0018A. 'LiNIt';' ,
- ,ADR 001182 510- .
. - CAW '001B88- ;
-COJ .02001631 Bo.000020';;.

TIUS UNE DlSPlAVS, THE FIRST ICCII., THE FIRST :8YTE CONTAIN.STHE CDHNANOtOD£:. THE NEXT:3 BYTES CONTAIN AN ADDRESS IN
STDRAGE. illite" lULL :SE USED ,If .IlATATRANSFI!R,IS PERFORMED.
THE filEXTBY1'I! CONTAINS FLAGS USED BY THE CHANtlEl. THE LAST;
3 BYTES ARE THE COUNT 'FIELO~ ; IF. ,CHAIIIIING IS INDICATED IN
BYTE 4, AOOHIOMAI.."CCWS WILl.. ·8E SI'IDWN SElOW THIS LilliE.

Oll

THIS 'UNE SHOWS:THE ,CONDITION :COllE EXPECTED. SY THE
PROGRAM': IN RESPDNSE TO ISSUING THE !-DCOMMAND.

08 '

THIS LINE SHDIISTHEACTtlAl:CONDITlONCODE :SET. IN RESPONSE
TO :THE 1-0 COMMAND.
.

'.

- CCII00001831 0000003CH;
- tc 0' EXI',
-CSW .0000181::11 '08(10000!EltP- ;
""" CSWOtl001BCB 08"000001 AC1":
'- .cS,W0000000004000000 'exp- ,
C5110'0000000 '04000000 'ACT"

-SNS OOEXP~ .
-,SNS GO ACT .. ,

'

15

-lOG OOOOOOOOOOOOOOOOOOO()-';

16

-,SETSS 0 ON 1'011. lOOP 10111 SIO,55

10,

.

11
• .12.2' ANUYSISDF SAMPLE PRINTOUT

LINE

I .

0

THIS UNE DISPLAYS THE ACTUAlCS'" RECEIVED BY,THE.PROGRAM.
MOTE. FOR EVERY I;XPECTED IEXP." csw pRl"!TEDOUT ,THERE SHOULD !aE '.,!CORRESPONDING
ACTUAL (ACT) CSW,PRINTED OUT ON THE NEXT LINE. THE ABSENCE :OF·A (ACnCSW IF
PRINTOUT INDICATES A MACHINE FAILURe. AHACHINE FAlt;UREIS, ALSO INDICATED
THERE ARE !ACT) CSW.PIUNTDUTS WHERE THERE ARE NONE EXPECTED •

"......,
~

O.

THIS LINE ,WIll APPEAR If THE PROGRAH 'EXPECTS MORE THAN ONE CSW ..
THIS UNE WILL A,PPUR:,IF ,THe PRDGRAM RECEIVED ,ASECONDCSW.

0

,hns UNE SHOWS THE SENSE SYTe 'EXP,ECTEl> .8Y,THEPROGRAH.
A eIT BY .SJTDESCRIPTION OF ,THE 2540 SENSE BYTE APPEARS
IN THE PRDGRAM :LISTING. AFTER THE TEST NUMBER DESCRIPTIONS.

0

,

EX PUNA TJON
, ~l'IIS lS"THE HEADf.fI~, l'nnl, PRUneD8Y,DI'lJli"'AN IASTI!,RUI(
RE~E!)ES ,THE -500- AN,: ERIUIRHAS tAUSED rTHE MESSAGE
'>RIN~OUT" ,~F NO ASTERiSI( IS PI!lNTeO.THE MESSAGE
A II. ESlJl. T OF etHIER ,I:lAIII NS THE CORREt T ; PIt! NTOUT
WIT;CH ON,OR 'AN;OPERAlORME~SAGI!;IS:ro fOLLOW. - ,
A~l ,LU'IES THAT FOU.:OW . TH!! -SDCH ARE I"ART 'OF 'THAT ,SAME
_ MESSAGE. THE START 0'1'. A NfWMESSAGE: IS HlDICATEO
'
,,8Y "ANOTHER .-:SOO., PIUNTDUT. ,. THE '-F810R-ISTHE SECTiON
10 NUMBER WHERE -R-.~EPRESENTS THE REVISION LEVEL OF
.
,TijE ~ROGRMI. THE -08- 1S THE PRDGRAM IRoun NE NUMBER
IIH!l_"T\iE -OOC- IS THEAD,DRESS OF THE DEI/ICE UNDER TEST ..

r'

i,

'

THIS LINE DISPLAYS THE fiRST ·CSW .EXPECTEDBY THE PROGRAM. '
A SIT8V 8IT DESCRIPTION OF :THEtlEVICE STATUS 8YTE ,PORTION,
OF THE CSW APPEARS 1M THE PROGRAM 'USTlNG' FOLLOWING
THE TEST NUM8ER DESCiUPtlONS.

~ ',Ct 0 ACT-

13 '.
14 '

o

THIS LINE SHOWS THE ACTUAL: SENSE 8YTE}\ECEIVED SY THE PRDGRAM';
THIS LINE OISI'LAYS THE CPU AND CHANNEL .LOGOUT AREA ON
MODEL 30:SYSTEHS. IT WIll NOT APPEAR ON ANY OTHER SYSTEM~

,~nus ISTHI': Tl!STNIJ!'IBEItASSOCIAlE!:I WlTH T
'
:",6EGINN1N,G, O,FTilE'PRClt;RAM- LISTING. THERE
NUMBERS. WITH TliE TEST NUMBER IS.II SHORT EXPLANATIDN Of
WHAT WAS BElNG OONE, AND WHAT SHOULD OCCUR.,,' '

THIS LINE SHOWS THE SECTION SENSE SWITCH LODP OPTIONS.
IF A1'1 ERROR HAD :OCCURREO" AND OM SENSE. SWITCH 25 WAS ON,
A H,Al T 'IIDULO NOW.O(!CUR,TD ALLOW SETTfNGDF THE .SECTION
SENSEswnCHES. TO :iNSURE . THAT LOOPI,..G OCCURS ON THE
. COHMANDTHAT 'FAILED. THE OPERATOR sHmfLO HAVE THE DM
SENSE SWITCH ONTHI\T ENABLES HALTlNGWHE.N AN ERROR
DCCURS. SElTHI: PROPER SECTION SEMSE SWITCH ON.
AND PRESS tAE eXTERNAL ,INTERRUPT KEY TO,EXECUTE.

J~E 4H~~~*~~f 'T:~TTHE ,

\

!

;WHICHTHEl~O JiANDlE~:

o
o

.THIS lINE S\iQIIS1H:E ADDRESS 1'11.011
SUB-RouTINE WAS .ENtEREO. ALL 1":0 ,COHMANOSARE ISSUED :'
FROI'ITlHS SU8-ROUTINE. SO IT IS {:IHEREOMANY nAES FROM
~ANY ~lAC;ES.
TO ,INSURE lHE SPECIFIC 1-0 oPERAHON YOU',
I/'~N.r .0 LOOK ,AT WIll., 8E THE HE'Xl ONE PERFORMED YOU SHD '
,RES1AIH THE' PROGRAM WITH A "SYSTEM RESET.,PSII RESTART A~~D
~ODRESS~' STOP AT .THE,
.
•
,
-. GIVEN ADDRESS~
.
~"

o

,,J,IUS~h~;

!.~}};U::.: _~>

-".':."',

<,.'.;

"-

.!':

.:'"',,

\

..

. ,-.-.,

".;;

..

~,

/'

•
\''-

"

}'

"

')

'" -'

t'

"

'."j

.

,(\

,,"\

,,-j

V

,(',\

l,y

/'"',

V

I'""
IJ

~

'v

r')..

I(J

"t'-""
}

'"

---"--.------

,€'-,
,}

/')
i'l,

()

f~

\ )1

IF)

'~'

() (0 () 10 0
'\

._-_ .. _-------

...
~,-)
"..

() () lr)
,\, .

()

~)

0

(~'
J

/

\i,-

)

)

'f
() U

I~

____ 00000000000000
t.

f'

W

It

(

.. g

h' $

•
i

11M 'MAINTENANCE DIAGNOSTIG:PROGllAM r

j

o

0) 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1

g

PIN 140186
PAGE
1

i
I

!f
if

2540 :READER FUNCTIONTISTS - .SECTION '1 " F810

"1a:

aM

t .

PIN 840116
. PAGE
1A

11M IMAINTENANI;E. D1AGNOSTlC'IPRO"'AM!
254DREADER FUNCTION '.uSTS:·- •SECT ION, 1 PIli'

..

• 0020 -.OPERATION ATTEMPTED
•
• .
•
• .
•.

'
1103 . TITLE '
.......................................................................
.......................................................................

•• MODIFICATIONS
•• REVISION LEVEL '3.

.,
". .
•
•
•
•
•
•
•
•
•
•

'1.
2.
3.

4.
5.
6.
7.

•• E.C.

·•

• .
• '

•

•
,THIS REVISION DIFFERS FROM VERSION 2 AS FOLLOWS •• •
THE PROGRAM HAS BEEN MODIFIED TO, INCLUDE TEST ,NUMBERS.
•
INCREASED, TESTING OF THE INTERFACE IS INCLUDED.
•
ALL ERROR-MESSAGES HAVE BEEN ORGANllEO INTO A COMMON FORMAT •
TO ENABLE A CLEAR DEFINITION OF· CONDITIONS AT, THE TIME:OF .•
ERROR DETECTION.
•
TESTING· THE HALT 1-0 INSTRUCTION HAS BEEN ADDED.
•
INVALID COMMAND TESTING HAS BEEN EXPANDED.
•
TESTING PREVIOUSLY REQUIRING MUCH OPERATOR INTERVENTION,
•
SUCH AS NOT READY,' ETC., WILL NOT BE EXECUTED UNLESS
•
SENSE SWITCH 5 IS ON.
•
OFF LINE:TESTING HAS BEEN ADDED AND IS EXECUTED ONLY, IF
•
SENSE SWITCHES 5 AND 8 ARE ON.
•

OR LATER.

.•

........................................................................
•
TEST NUMBER DESCRIPTION
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• TEST

..
..•..
..•
..•
••
...'..
..•
..

i
l

,
1
\

I

•

\

•

l'

.". I

I
!

I
... '

.t.'

L.

••••••••••••••
ROUTINE 01
. ..............

•
•
•• 0010:-0PERATION ATTEMPTED
•
A TEST ,1-0 IS ISSUED
••
EXPECTED RESPONSE

I

!,

DESCR·IPTION

Ol'fl
.,ut65
EC'
"1"252

IOAUG6S i

125510:

21'"'66"

.ll!16U

POSSIILE FAILURE CAUSES

..
..•
..•..
..
•
•
..••

,.

REFER· TO POSSIBLE FAILURE CAUSES GIVEN FOR TEST 0010.

••••••••••••••
ROUTINE 02
••••••••••••••

• 'OSO.-OPERATION ATTEMPTED

••
••

A SENSE START 1-0 IS ISSUED· TO READY DEVICE.
EXPECTED RESPONSE

•

I
I
I
"

' EXPECT COND. CODE 0 (COMMAND ACCEPTED)

• .

POSSIBLE FAILURE CAUSES

• .
•
•
•.
•

1. CONDITION CODE 2 COULD BE. DUE TO A PENDING; CHANNEL· END, OR
A BUSY CHANNEL.
2. IF CONDITION CODE 1 WAS SET, THE CSW MUST·BE. INSPECTED TO
DETERMINE. THE CAUSE. DEVICE! END WITH DEVICE BUSY INDICATES
A DEVICE· END WAS, PENDING 'IN THE DEVICE •

.0040 - OPERATION ATTEMPTED
•.
• ,

A TEST ,1-0· TO PENDING CHANNEL AND DEVICE· END FROM PREVIOUS
SENSE IS ISSUED •

• .

'EXPECTED RESPONSE

'

•
•.

TO AREADY.,TlST ,DEVICE. '

. EXPECT CONDo CODE lAND CHANNEL END DEVICE' END BOTH, IN TtlE CSW
FROM· THE ,PREVIOUS SENSE 1/0 COMMAND.

••.
•• .

..•

. POSSIILE,FAILURE CAUSES

,

1.· CONDITION COOE 2 INDICATES. THE CHANNEL ·APPEARS·TO,BE.BUSY.
2. CONDITION CODE 3 INDICATES, THERE IS NO DEVICE FOR THE
ADDRESS USED. THE OM UDT ENTRY COULD BE. IN ERROR,· THE
DEVICE MAY BE OFF LINE. OR. IF THE 2821 TWO CHANNEL SWUCH
FEATURE IS INSTALLED, THE ,PARTITIONING SWITCH FOR,THIS
. INTERFACE MAYBE.DISABLEb.
'
3.1 IF CONDITION CODE lIS SET., THE CSWMUST BE INSPECTED·TO
DETERMINE THE CAUSE. UNIT CHECK MIGHT BE DUE TO NOT READY
DEVICf::. CHANNE1.0RDEVICEENj). INDICAnS THAT AN INTERRUPT
WAS PENDING IN tHE CHANNEL •. DEVICE OR CONTROL UNIT BUSY
COULOINDICATE DEVICE OR CONTROL .UNIT IS RESERVED TO THE
OTHElt INTERFACE., IF·'HE2 CHAtfliIEL SWITCH FUTURE IS PRESENT

POSSIBLE FAILURE· CAUSES

• ,
• .

1. CONDITION CODE 2 INDICATES. THE CHANNEL;IS ,BUSY •
2. FAILURE TO RECEIVE CHANNEL :AND DEVICE, END, COULD, INDICATE
. THE DEVICE FAILED. TO PRESENT ENDING STATUS •

•

I

•
•.

OPERATION ATTEMPTED

!

••.

EXPECTED RESPONSE

.'••

f

I

10 F8it;.31
1
PAGE

·O'I~-

•• .

I

!
t~JoN61 .

EXPECT COND. CODE 0

•
•
•• .

. EXPECT·COND. CODE',O'

.. n0498

EXPECTED RESPONSE

•.

.:

XFI103 START 4096
USING .,15

..••

,,.

!

..•
.

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

'

i

•
•

\
• USE DESCRIPTION
F810. AT EC 130498, DATED 15 JUN 67

001000"

•• .
••
••

•

PREREQUISITES
MACHINE... NONE
PROGRAM... NONE

A· TEST '1-0 IS ISSUED·.TD· tHE PUNCH· THAT IS HOUSED IN
THE SAME ,PHYSICAL lOX AS THE TEST READER •
-THIS MUST IE DONE BECAUSE THE PUNCH IS USED TO ISSUE
DIAGNOSTIC WRITE COMMANDS DURING tHE TEST- DIAGNOSTIC
WRITE TO THE READER MUST IE ISSUED TO THE PUNCH.

. DATE

EC

'·O!UIAV,S.
124252

'IDAUG"
12"'0

ANOTHER, TID IS GIVEN.

• .

EXPECT COND. CODEO.
INTERRUPTS•

• .

POSSIBLE FAILURE CAUSES

•
• .

1. CONDITION COOE 1 WITH UNIT, CHECK IN THE· CSWCOULD INDICATI;
A NOT READY DEVICE. CHANNEL' OR DEVICE.' END' INDICATES. THE

22FEI66 " 'lIJUN67
'125621

110.9.

DEVICE SHOULD IECLUR OF PENDING

'10
F'IOU
:P-AG,E
lA

·",cm

qq

$

PIN 840186
,PAGE
2

. 18M'MAINTENANCE aIAGNOSTIC'PROGRAN

IBM MAINTENANCE. DIAGNOSTIC· PROGRAM'

. i

2540 READER FUNCTION ·TaSU·" :SECTION' 1

•

2540 READER 'FUNCTlON.TESTS·· 'SECTION 11'110

F81O.

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

..••
·
e
e
e

e
DEVICE lIAS SENT ALt"ITS DAlA,.'THE·CCIICOUNTiU Nor-EuustED.
e
THIS SHOULD.CAUSE.TltE. INCORRECT LENGTH· RECORD BIT TO tie SET ON
. I N THE CHANNEL STATUS BYTE OF·THE CSW STORED AT. CHANNEL AND
•
DEVICE,·END TIME, AND A 'RESIDUAL· COUNT OF ONE •

,PR.EVIOU.S TlOFAILED TD CLEAR· THEM.

.

.. ROUTtNE. 03

.

••••••••••••••

•e

• .·0860.-0PIRATIONA TTEMPTED
.
• .
A:SENSE START 1-0 IS ISSUED AttD. THE SYSTEM, ENABLED FOR' I~O
• .
INteRRUPTS •.

•e .
e.
•

.,

•• .
e.

..
..•....
•
...'•••.
..•
..•
·•

. EXPECTED

• 0110 - OPERATION ATTEMPTEO

•e .

e.
e
e .

.,

RESPONSE

e

.EXPECT ·CHANNEVEND DEVICE END. TOGlTltE•• :

e
e
e.

POSSIBLE .flAILURE CAUSES

·1.

•e

FAILURE TO RECEIVE CHANNEL .AND DIVICE'ENDI INDICATES THAT
I~O INTERRUPTS FAILED 'TO BRING, IN

ENABLING THE CHANNEL FOR
••
THE DEVICE STATUS.
• 0010- OPERATION ATTEMPtED
•• .
TEST 1-0 I S ISSUED.

•• .
•

e
e
e
e
e

. EXPECT COND. CODE

o.

..
.

DEVICE SHOULD BE CLEAR OF PENDING

tNTERRUPTS~

• .

e

••••••••••••••
. ROUTtNE 04
••••••••••••••

•

e .
e
e

e

A NOP SIO IS ISSUED TO READY DEVICE.

•e

EXPECTED RESPONSE

•

EXPECT COND. CODE 1 WITH CHANNEL'.END DEVICE: END STQRfD: IN
.THE CSW. NO. INTERRUPT SHOULD OCCUR.

e
•
•

••••••••••••••
ROUTINE 05

e .

•e .
• .
•e .

••••••••••••••

• ·0090 - OPERATION ATTEMPT.ED

CONDITION CODE 0 SHOULD BE SET .ON THE START I~. WHEN THE
CCWCDUNT IS EXAUSTED, THE DEVICESHClULD REQUEST ANDTHER BYTE.
THIS SHOULD CAUSE THE INCORRECT LENGTH. RECORD BIlTO IE SET
ON IN THE CHANNEL STATUS BYTECF THE CSW STORED AT CHANNEL
AND DEVJCE ENO TIME.
WHEN ISSUING A DIAGNOSTIC WRITE COMMAND TO A 2540 READER, THE
CCWMUST'BE ADDResSED TO THE ASSOCIATED 25"0 PUNCH.
'BECAUSE THE DIAGNOSTIC WRITE COMMAND UTILIZES . THE CARD' IMAGE
ICOLUMN 8INARYI CIRCUITRY,. 160 8YTES MUST BE TUNSFERRED TO
FILL· THE 80 POSITION READ 8UFFER. THE CARD IMAGE FEATURE
DOES NOT HAVE TO BE INSTALLED FOR DIAGNOSTIC WRITE TO WORK.

.

.

A DIAGNOSTIC WRITE IS ISSUED WITH COUNT OF 161 •
EXPECTED RESPONSE
CONDnION CODE 0 SHOULD 8E SET ON THE START I-tl. WHEN THE
DEVICE HAS RECIEVED ALL ITS DATA, THE CCW COUNT, IS. NOT
EXAUS'I'ED. THIS SHOULD CAUSE THE INCORRECT LENGTH REtORO BIT
TO BE SET ON. IN THE CHANNEl STATUS BYTE OF THE CSW STORED AT
CHANNEL AND DEVICE END TIME, AND A RESIDUAL tDUNT OF ONE.
WHEN ISSUING A DIAGNOSTIC WRITE COM~AND TO A 2540 READER. THE
CCW MUST 8E ADDRESSED TO THE ASSOCIATEO 2540 PUNCH.
BEtAUSE THE DIAGNOSTIC WRITE COMMAND UTILIZES THE tARO IMAGE
(COLUMN BINARY I CIRCUITRY, 160 BYTES MUST BE TRANSFERRED TO
FILL THE 80 POSITION READ BUFFER. THE CARD IMAGE FEATURE
DOES NOT HAVE TO BE INSTALLED FOR DIAGNOSTIC WRITE TO WORK •

• •••••••••••••
ROUTI NE 06

••••••••••••••

A DIAGNOSTIC.READ IS ISSUED' WITH COUNT OF 19.

• 0130.- OPERATION ATTEMPTED

•

EXPECTED RESPONSE

•
• .

A READ NO .FEED COMMAND IS COMMAND CHAINED TD TWO MORE READ NO
FEED COMMANDS. THE SYSTEM IS ENABLED. TO RECIEVE INTERRUPTS.

•

EXPECTED RESPONSE

• .
•.

..
•
..

!II .

• .

e

.,
e

CONDITION CODE 0 SHOULD BE SET ON THE START I~. WHEN. THE
CCW COUNT IS EXAUSTED, THE OEV1CE SHOULD TRY TO SEND .ANOTHER
BYTE. THIS SHOULD CAUSE THE' INCORRECT LENGTH· RECORD BIT TO BE
ON IN THE CHANNEL STATUS BYTE. OF THE CSV STORED AT CHANNEL
AND DEVICE· END TIME.

•
•e

•

e

e.

.0100:- OPERATION ATTEMPTED
• .

•• .
• ,

. iOAUG65'
.12'580:

EXPECTED RESPONSE

• ,

•••

05MAY6S.
124252

.

• .

• 0010 - OPERATION ATTEMPTED

OATI
EC·

A DIAGNOSTIC WRITE IS ISSUED WITH A CCW COUNT. LESS THAN THE
NORMAL DEVICE RECORD LENGTH.

•••
• 0120.- OPERATION ATTEMPTED

EXPECTED RESPONSE

•
•

•• .

. PIN 140186
PAGE
2A

A DIAGNOSTIC 'READ IS· ISSUED WITH· COUNT OF Bl.

•e 0140 -

OPERATION ATTEMPTED

EXPECTED RESPONSE

e.

A NO OPCOMMAND IS ISSUED.

•.

EXPECTED RESPONSE

. CONDITION COOE.O SHOULD BE SET ON THE START.I~.

22FEB66 . , UJUN61

125621

COND. COOE.O SHOULD 8E SET ,ON THE START I~O. UNUSUAL COMMAND
SEQUENCE SENSE 8IT SHOULO IE SET AT CHANNEL AND DEVICE'END
TIME OF ·THE SECOND CCW IN THE CHAIN. THIS SHOULD BRING UP
UNIT CHECK AND BREAK THE. CHAIN. ·THE·CSW SHOULD CONTAIN THE
ADDRESS OF"THE FIRST CCW +16.

130498

e.
e

WHEN THE

. 10
PAGE

F81(1o;-3 i
2

i

I

DATE
EC

, OSH.Y611<
124252

10AUB6!1 ' " i2FI166 .• I!1JUN61 .
12"80"
125621
lS0498

JD
F81(1o;-3
; PAGE
2A

I
I

F',
,t}

I

000 0000000000'0 0000000000000000

-------------------_.-------,---,--------

---_........_ - - - - - - - - - - - - - - - - - - - - - -

-_0000000000

o coo

000000000000000000

f~----~~~~l'~--~~--~------~Ft----~~~-------------------------,I
i

IBMMAINTINANCI DIAGNOSTlC'PROGRAM:
2540:RIADER FUNCTION

PIN 140116
PAGE
'3

TISTS~-:SICTION'l'

·.,•.,
•

,

·

Fll0

2540 READER FUNCTION TESTS: - :SECTION 1 Fll0

••
• OZOO •••
••

COND. CODE 1 SHOULD BE SET ON THE START I~. ·THE·CSW SHOULD
CONTAIN CHANNEL AND DEVICE END DNLV. UNUSUAL· COMMAND SEQUENCE
SENSE BIT SHOULD REMAIN SET, BUT NO UNIT, CHECK SHOULD RESULT.

•
•

•• .

•
• :

..

•
• .

....
..•••
.....
..
..
•

•

EXPECTED RESPONSE

CONDo CODE 0 SHOULD BE SET ON THE 510. NORMAl."CHANNELAND
DEVICE,END. INTERRUPT SHOULD OCCUR. THE UNUSUAL, COMMAND
SEQUENCE SENSE BI T SHOULD BE RESET.

•
•

EXPECT CONDITION CODE I, STATUS STORED WITH UNIT CHECK IN THE
DEVICE STATUS AND COMMAND REJECT IN THE SENSE BYTe FOR T~E
INVALID COMMAND CCW •

••

••
•

EXPECTED. RESPONSE

••
••

COND. CODE 0 SHOULD BE SET ON THE START I~O. COMMAND REJECT
SENSE BIT SHOULD BE SET ON INITIAL SELECTION OF. THE SECOND
FEED COMMAND. THIS SHOULD BRING UP UNIT CHECK AND BREAK THE
COMMAND CHAIN. THE ADDRESS OF THE FIRST CCW +16 SHOULD BE IN
THE CSW. DEVICE STATUS SHOULD CONTAIN UNIT CHECK ALONE,
BECAUSE CHANNEL .AND DEVICE END SHOULD HAVE ALREADY OCCURRED
AND BEEN SUPPRESSED ·BY CHAINING. A RESIDUAL COUNT OF 2 - THE
COUNT ,IN. THE REJECTED CCN SHOULD BE IN THE CSN

•
•

EXPECTED RESPONSE

•
• ,
•

COND. CODE 1 SHOULD BE SET ON THE START 1-0. THE CSN SHOULD
CONTAIN CHANNEL AND DEVICE END .ONLV. COMMAND REJECT SENSE BIT
SHOULD REMAIN SET, BUT NO UNIT CHECK SHOULD RESULT.

•• OlBO.- OPERATION

•• .
••
•
•

••
••

••

..
..
••
••
•
•

EC

05MAY6!110AUG65,
124252
125500'

22FEB66
125621

..

ATTEMPTED

•

*•

CONDo CODE 0 SHOULD BE' SET ON THE SIO. NORMAL, CHANNEL ,AND
DEVICE END INTERRUPT SHOULD OCCUR. THE COMMAND REJECT SENSE
BIT SHOULD BE RESET.

IS ISSUED AND· THE SVSTEM IS

COND. CODE 0 SHOULD BE SET ON THE START
TO CHANNEL END SHOULD OCCUR.

I~O.

INTERRUPT DUE

•.
•

A TEST· 1-0 15 ISSUED TO A DEVICE WITH CHANNEL,:END CLURED, BUT
DEVICE END HAS NOT OCCURRED YET. ,THE SYSTEM IS THEN ENABLED
TO CLEAR THE DEVICE END WHEN IT OCCURS •

•
•
•

CONDo CODE 1 SHOULD BE SET DN·THE·TEST:I-~. THE. DEVICE BUSY
BIT SHOULD BE ON IN, THE CSW. INTERRUPT DUE TO DEVICE END
SHOULD NOW OCCUR.

..
...,•
..

••

ROUTINE 07
...............
ATTEMPTED

A NOPIS COMMAND CHAINED· TO ANOTHER NOP NITH A· COUNT OF I.
EXPECTED RESPONSE

EXPECTED RESPONSE

• 0240:- OPERATION ATTEMPTED

EXPECT CHANNEL END DEVICE END AND RESIDUAL. COUItT OF 1 TOGETHER
EXPECT CONDo CODE 0 ON THE SID BECAUSE OF·.THE· CHAIN FLAG.
THE ADDRESS OF THE SECOND CCW PLUS I: IS IN THE"CSW.

•
•••

••••••••••••••
ROUTINE 08
UJUN61 '

ROUTINE 09 IS BVPASSED WHEN CORRECT PRINTOUTS ARE BEING OUTPUT
BECAUSE THE TEST IS DEPENDENT UPON DEVICE BUSY WITHOUT STACKED
INTERRUPTS.

• 02JO - OPERATION ATTEMPTED

••

••••••••••••••

·130~9'

EXPECT CONDITION CODE 0 FOR THE VALID DIAGNOSTIC CHECK READ
WHICH FOLLOWS EACH INVALID COMMAND START 1-0. AND A SENSE
BYTE WITH NO BITS ON.

•• 0220- OPERATION ATTEMPTED
A READ AND FEED COMMAND -02••
ENABLED FOR 1 INTERRUPT.
••
EXPECTED RESPONSE
•

EXPECTED RESPONSE

•

EXPECTED RESPONSE

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

A DIAGNOSTIC CHECK READ· COMMAND IS ISSUED. THE SVSTEM IS
ENABLED FOR INTERRUPTS.

•• 0190- OPERATION

. DATE

• .
•
•

A NO OP COMMAND IS ISSUED.

• .

ISSUE DIAGNOSTIC CHECK READ FOLLOWING AN INVALID COMMAND
START 1-0, TO RESET THE READER SENSE LATCHES.

••
••••••••••••••
ROUTINE 09
••
••••••••••••••
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

,

•

ISSUE INDIVIDUALLV ALLtOMMANDS·THAT ARE CONSIDERED INVALID
TO· THE READER. EACH INVALID COMMAND IS FOLLOWED BY THE
EXECUTION OF A DIAGNOSTIC CHECK READ, COMMAND TO RESET THE
SENSE LATCHES IN THE READER.

• 0210 - OPERATION ATTEMPTED

••

• ·0111 - OPERATION ATTEMPTED

•
• .

OPERATION ATTIMPTED

EXPECTED RESPONSE

A DIAGNOSTIC CHECK READ, COMMAND IS ISSUED. THE SVSTEM IS.
ENABLED FOR INTERRUPTS.

• ·0160 -.OPERATION ATTEMPTED
.,
A FEED AND STACKER SELECT POCKET 1 IS· COMMAND CHAINED TO TWO
• .
MORE FEED COMMANDS. THE SYSTEM IS ENABLED FOR INTERRUPTS.

••
••

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

..•

,. OUO. - OPERATION ATTEMPTED
'.

PIN 140186
PAGE
3A

. IBM MAINTENANCI DIAGNOSTIC PROGRAM'

: 10

,PAGE

FIlO+-J·
.3

DATE

EC

05MAV6S
124252'

10AUGU
125510:

A READ AND, FEED COMMAND. -02- 15 ISSUED AND THE SYSTEM. IS
ENABLED FOR 1 INTERRUPT.
EXPECTED RESPONSE
CONDo CODE.O SHOULD BE SET':ON" THE START 1-<0.

2ZFE866 , 15JUN61·
130~9B
'125621

INTERRUPT· DUE
: 10

. PAGE

F810+-3
JA'

f

f

t

f

r

'II

"Sf

rt

t"

I

i

I
!
f

I

PIN' 840186
• PACE
; .. '

• IBMMAINTIENANCI.DUGNOSTtGi'tlOGaAM f

, JBM 'MAINTENANCE DllGNOSTJC.PROCtlAM 1

J

2540 :READER FUNCTION TESTS .. SECTION 1 ; FllO '

2540 :READER FUNCT JON ;TESTS: ',- ;SECTION 1 fllO:

'l

.,
.,..

....•••
..•

• , : TO 'C14ANNEL;!END SHOULD OCCUR_

•

• 825.- OPERATION, ATTEMPTED
•
• .
•

I

·...'
•
•

f

A STARTI~O:'IS' ISSUED, TO A DEVICE .. ITH CHANNEVENO CLEARED.
BUT DEVICE, END HAS NOT: OCCURRED VET. THE SVSTEM 1$ THEN
; ENABUO:TO ClEAR: THEOIEVICE,; END .. HEN IT OCCURS.
' f . ::

.,..
.,.,•
•
..••
....•
.'....••
..

•• .

COND. COOE.O SHOULD BE SET ON THE START
DUE TO CHANNEL·ENO SHOULD OCCUR.

I~.

• ,OSLO - OPERATION ATTEMPTED

••.

; INTERRUPT

..'•

.

..
.,
..
...'
•
..•
•

••••••••••••••
ROUTINE 10
••••••••••••••

"I

DATE
EC f

'05MAV6S
124252

lOlUG6S
22FE866,
125580;· 125621

•

A TEST 1-0 IS ISSUED TO A PENDING CHANNEL·.ENO.
EXPECTED RESPONSE
. EXPECT COND. CODE lAND CHANNEL· END FROM PREVIOUS RUO FEED
,TO BE IN CS....

•

A HALT 1-0 IS ISSUED· TO A PENDING DEVICE'ENO.
EXPECTED RESPONSE

•

AN INVALID CDMMAND-OC- IS ISSUED. TO ADEVICE .. ITH A PENDING
DEVICE, END.

COND. CODE 1 SHOULD BE SET AND A CSW WITH NO BITS ON STORED.

•• ·0350, ••.
••

'EXPECTED RESPONSE
COND. CODE 1 SHOULD BE SET ON THE START I~. '; CS.. STORED
SHOULD CONTAIN DEVICE END AND DEVICE BUSV. NO SENSE BITS
SHOULD BE ON.

OPERATION ATTEMPTED
A READ AND FEED START 1-0 IS ISSUED· TO A PENOING DEVICE,END •
EXPECTED RESPONSE

•
.,

COND. CODE .1.

•

A HALT 1-0 IS ISSUED TO A·READY. DEVICE.

CSW SHOULO CONTAIN DEVICE BUSY .. ITH DEVICE' END.

••
• OS60.- OPERATION ATTEMPTED

..

POSSIBLE ERROR CAUSES
: IF DEVICE .END IS RETURNED ALONE" THE CIRCUITRV,THAT BLOCKS
BUSY FOR. TEST 1-0 SHOULD BE INVESTIGATED· TO SEE. IF, IT IS ALSO
BLOCKING BUSY FOR START 1-<0•.

•

: ID
PAGE

lSJUN61
150498

0

OPERATION ATTEMPTED

••

• ·029' -OPERATION ATTEMPTED

I

EXPECT COND. CODE

•.'SlO. -

.0340.- OPERATION ATTEMPTED

TO· CHANNEL' END SHOULO OCCUR.

•••

EXPECTED RESPONSE

• .

• .
• .

lINTERRU~T.

• ,
• .
•

A HALT 1-0 IS ISSUED TO A·'PENOING CHANNEL,ifND.

••

•• '

•
• 02110 -OPERATION ATTEMPTED
••
A READ AND FEED COMMAND -02-1$, ISSUED AND niE SVSTEM IS
• .
ENABLED ,FDR
•• .
EXPECTED RESPONSE
•• •
COND. CODE 0 SHOULD BE SET ON. THE START'I...o. INTERRUPT OUE

• .

EXPECT COND. CODE 2 IECAUSE CHANNEL END ,OF PREVIOUS READ FEED
WAS NOT CLEARED.

• 0320.- OPERATION ATTEMPTED

COND. CODE:l SHOULD liE SET ON' THE HALT: I~. A,CSW."ITH·NO
BITS ON SHOULD .BE STORED. INTERRUPT, DUE· TO DEVICE, END SHOULD
NOW OCCUR.

•.
• .

EXPECTED RESPONSE

•

EXPECTED RESPONSE

..•
....
..•..••

ANOTHER READ AND FEED IS. ISSUED TO. PENDING· CHANNEL ;END.

•• '
•• .

A HALT 1-0 IS ISSUED TO A DEVICE .. ITH CHANNEL·';ENO CLURED •. BUT
DEVICE, END HAS NOT OCCURRED VET. THE SVSTEM IS THEN ENABLEO
·TO CLEAR DEVICE END WHEN IT OCCURS.

•

CONO. CODE 0 SHOULD BE SET ON THE START 1-0. AND A·CARD SHOULD
FEED INTO STACKER 1.

••

• 0210 - OPERATION ATTEMPTED

••
•

EXPECTED RESPONSE

•

.,
•

EXPECTED RESPONSE

•

A'REAO ANOFEEO IS;I$SUEO.TO A READER; CONTAINING A BLANKCARO •
NO: INTERRUPTS ARE CLEARED.

• .

A READ ANO FEED COMMAND.-02- IS ISSUED AND THE SVSTEM IS
ENABLED FOR 1 INTERRUPT.

•

.•..•..........
.........•....
ROUTINE 11:

,

• ·.308,-0'ERATION ATTEMPTED

• 026.,-, OPERATION ATTEMPTED

•

:

••

EXPECTED RESPONSE
CDND. CODE.l 'SHOULD BE SET ON THE START I~O. THE DEVICE BUSV
B1T SHOULD BE ON IN; THE CSW. INTERRUPT DUE TO DEVICE· END
SHOULOr,NO .. OCCUR.

,

PIN B40186
PAGE
·4A

DATE
EC

05MAY6S
124252

10 AUG6S
~i~~A66'
125580:· li562i

lSJUN61
130498

, 10

. PAGE

FB1~3

·4A

I
!

I,
1

I

!

I

,,-~

'\., j

,j,

·'
0
"-

t,

"i

o

00

o
"

00

o

000

o

0 , O·
','

!

,

,

.,

~'"

'.

o

000

o

00000000,000

- - - ._--_.

__.._---_....._--,--_..._-

..,

-------~,

__ 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"

r
!

t

i

IBM MAINTENANCE DIAGNOSTIC'PROGRAM'

PIN

PAGE

840186

,

250\0 :READER FUNCTION TESTS '- :SECTION 1 FI10

• .

..

OPERATION ATTEMPTED

•

A· TEST 1-0 IS ISSUED.

•

"EXPECTED RESPONSE

•.

COND. CODEO.

..••
.••
..•
.
..••
..
.'.
..•
•
..••
..•
•

.

.

2140 READER FUNCTION TESTS - SECTION 1 FllO

EXPECTED RESPONSE

•
•• 0310 -

.,

•

••••••••••••••
ROUTINE 12
••••••••••••••

•.
•
•.
•

POSSIBLE ERROR CAUSES

•

1.

THERE MAY HAVE BEEN MDRE THAN , CARDS IN THE RElDER FOR
THE EOF TEST 00\30 •

2.

IF·· THERE WAS ND ERROR I NOICATION IN TEST .0430, UNIT
EXCEPTION MAY HAVE BEEN PRESENTED TO THE CHANNEL FROM THE
READER BUT READY ERRONEOUSLY. DID NOT. DROP •

• ,

COND. CODE 1 SHOULD.,

0

V

°°

°

°

0.0 0.0 0
0 0 0 0·00 0
0 0 O~~? 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 O---(}--o--o--c

~~--

\)

__

.G8~O~~~O~~~O,~~~O~~~~O~~~~~O

-()--D--.-O--~O---O_-··O----O···--O~~~O----

O--U· U"U-··O "U··-·:U·-·-U~_}----U·--=u---=u-O,~·~·-~~-~--·O V-~) ~ ~ ~.

,PIN

'IM MAINTENANCE DIAGNOSTIC PROGAAM'

• PACE

1"0116

2540 READER FUNCTION TESTS - .SECTION ' 1 . fllO .

2540'RElOER FUNCTION TESTS - SECTlDN 1

..

I
t·

I
I,
I

j
j

\.

.:

00141A
00l48E
001494
00149A
00149E
0014A2
0014A6 .
0014AC
001482 .
001486 .
00148A
00l<\8E.
0014C4 .
0014CA
0014CE
0014D4 .
0014D8 .
00 140C
00140E
0014EO
0014E2,
0014E4 :
0014£6 "
0014El ;
0014E8
0014EA
0014EC
0014EE
0014FO
0014F2
0014F4
0014F5
0014F6 .
0014F8 '
0014FC
001500
001506 .
001508 '
00150 A
00150C
00150E.
001514 :
00151A
001520
001526
.001528 .
001529
00152A
OOlS2C
001530 .
OOlS34 ~
001538 .
00153C
00153E
00153F
001540 .
001542
001544 '
·001545 '
001546
001548 .
'OO15ltC
.001550 ;
001554 ~.
001558 .
00155A
00155E
001562 ;
DATI!
Ie

41 10 'F
D2 02 F
D2 01 F
45 90 F
91 Olt 8
4180 F
D2 02 F
D2 01 F
45 90:F
91 20 F
41 80 F
D2 02 F
D2 01 F
45 90 F
D2 00 F
91 04.F
41 80F
OA DD
0001
0612
0612
OA 00
AO:
DB
F600
OA DD
0001
0610
0610
OA DO
AO
DB
"618 '

95 30 E
4160 F
D2 01 F
OA OD
OOOC
0590 :
0590 ,
D2 01 ~
D2 05 F
D2 05 F
D2 05 F
OA DO'
AD
1C
F623·
91 02 F
41 80 F
94 FD F
41 FO.F
OA DO
CO
36
F648
OA 00'
AO
·01
F5C8
50 AD 0
91COF
·41 ·50F
: 91 80'F
'01·15
.91 088
41 80:F
41 8B 0
15MAY6S
124252

49E
604 F
590F
426
000
486
604'F
590 F
426'
OE8
4CE
601t F
590 F
426
612 I
OE8
4F8

601
61E

60A
590

601·
686
005

181

52C
590.E 080

628 F 590
62B F 592
632 F·59A
639·F 5A2

OE8
53C
OE8
206

041
004
156',
OE8 '
000
566'
002
10AUG65
125510"

IC I
Mve:
MVC
IAL
. IMORST. TM '
BC'
MVC;
ICtftG2 MVC'
8AL;
.1010 ·TM
8C
MVC.
MVC
BAL:
IPAS
MVC
TM
8C
. SVC
DC
DC·
DC
SVC'
DC
DC
DC

BR. IF NO.eSII STORED
, NONE. I MORST '
, IBLAH+23(31'IACT
MOVE.-ACT- TO MESSAGE
'WDRKIII,ICSWI .
MOVE ACTUAl·CSII.TO WORK AREA
8R •. TO OUTPUT ACTUALCSW
· R9,ICOUT
·OIRlll.X'04'
BR. IF NOT EXPECTING 2·esws
· NONE.IOIO
, IBLAH+2313t,IEXP
MOVE.-EXP- TO MESSAGE
WORK(8J,WORK
MOVE EXPECTED CSW TO WORK AREA
R9,ICOUT
BR •. TO OUTPUT EXPECTED CSW 2
ISW,X'20'
NONE,IPlS
8R•. IF NO SECOND CSW STORED
IBlAH+23131,IACT
MOVE.-ACT- TO MESSAGE
WORKC8I,ICSW2
MOVE CSW TO WORK AREA
R9,ICOUT
MOVE EXP SENSE TO MESSAGE
IEXSNS+5111,5IR111
i ISW,X'04'
NDNE,IPASS
BR. IF NO SENSE DATA RECiEVED
CONVERT EXPECTED SENSE
· X'OO'
AL2Ut
Al2CIEXSNS+5-SECNO)
A12IIEXSNS+5-SECNOt .
PRINT EXPECTED·SENSE
· X'DO'
X'AO'
· X'OB'
Al2IiEXSNS-SECNO+REG)
sve X'OO' .
AUClt
De
DC
AL21IACSNS+5-SECNOt
AL21IACSNS+5-SECNOt
De:
PRINT ACTUAL SENSE. DATA
sve X'.OO' .
DC
'X'AO' .
, X'08'
DC
DC,
Al2ClACSNS-SECNO+REG) :
CHECK fOR MODEL 30:
.IPASS CLI · SYSHODIR141,X'30' .
UNEQ.ICUID
BR IF NOT.
BC
.,ORKI12) ,LOGOUTIRI4) . MOVE lOG OUT ,TD WORK AREA
ILOGEO MVC
·
X'OD'
.
CONVERT·
sve
Al2Cl2)
DC
AL2IWORK-SECNO)
DC
AUCWORK.,.SECNOt
DC
MOVE. lOGOUT:TO MESSAGE
Mve IOlOG+5I2) ,.,ORK
Mve
IOLOG+8161,"ORK+2
MVC, : IOLOG+1516),"ORK+10
MVC. 10LOG+2216t,"ORK+18
. PRI NT LOG OUT
SVC ; X'OO'
· X'AO'
DC
DC
X'lC'
AL2110LOG-SECNO+REGt
DC
SEE .IF UIO.
ISW,X'02' .
ICUIO TM
8R. IF NOT UIO
NONE,IOPOUT
BC
RESET·UIO
SWITCH
NI
· ISW,X'fD' .
BR. UNCONDITIONAL
UNC,IWAIT
8C
PRINT lOOP OPTIONS
10POUTSVC , X'OO'
; IFLAG2 DC
X'CO'
'X'36' .
DC
Al2CIOPTl-SECNO+REGI
DC
SPACE A LINE
SVC 'X'OO'
·
X'AO' .
DC
DC
X'Ol'
AL2'ILINK~SECNO+REGt
DC
STORE CAW
ST· 1n0,HCAWIRUI
CHECK SECTION SENSE SWITCH 0 AND 1
SNSW,X'CO' .
TM
ANY,ITRYl .
BR. IF. ANY. ON
BC I
. TM
ISW,X'80'
RETURN V!loREG 5: IF. HANG UP
ALL,R5
ICR
· OIRllt ,X'OIl' .
IIUAV!TM
BR.IF No·eSW·EXPECTED
NONE,IUP
IC'
UPDAtE LINK 'lDDRESS FOR,REtURN
LA
· Rll,21Rll1
22FEB66'
125621

15JUN.l:
130498'

. PIN 140116
PAGE
9A

IBM'MAINTENANCI DIAGNOSTIC PROGRAM'

9

001566'
00l56A
00156E

Itl:11 0 006
"·19·F 588
,01 FB

001570
001512
001574 ;
001576
001578 .
00157C
001STE
001'580
001582

OA DO
2410 :
FFEB
OA OA
9D 00 C 000
OA DO'
8001
FFE8
41 FO F 136

IUP

F.10·

LA

lH i
BCR

. Rll,61RllJ
.

R8,R9,lSAVE
UNC,Rll

RESTORE REGS 8 AND 9
RETURN· VIA REG 11

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
, INTERVENTION REQUIRED MESSAGE
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
RDYM
SVC . X'OO' .
PRINT -MAKE DEVICE RUOYDC
DC
SVC
TIO
SVC
DC
DC
BC

X' 2410'
AL2IMDR-SECNO+REGI
X'DA'
O(R12)
X'OO'
X'SOOl'
Al2IMOR-SECNO+REG)
lINC.IRETRY

. -HALT. TEST 1-0
PRI NT A BUNK.

·- ..:SR TO CONTINUE.
............. ,........................................................
.
• .

1-0 HANDLER

WORK AREA.

••••••••••• *~~~* ••••••••••••••••••••••••••••••• 3 • • • • • • • • • • • • • • • • • • • • • • •

II

I.·

I.
II
I

I
I
I
~.

i

I
I
I

001586
'001586
001588
001590
0015A8 .
001581
001582
00158B
0015BC
0015C5
0015CB
'0015CC
0015CB
0015DIt !
0015DI
,OO15DC
0015DB
0015E4 .
0015El
OOlSEA
0015ED
0015F6
.0015FO
001606 .
001607
00160A'
00160D
001616.
0016111'
001621 .
001623·
00162C
001633·
00163C
00163F
0

0016108

I
I

10
,1lC)!,S
, PAGI
.,

...~.

I
f-

..

t.
I

001651 ;
001658 '
001661 .
001668 '
001611.
001678 .
00161E
001686 .
001690
001698 .
00 16 AD
00l6Al
DATE
EC

01 00
0000000000000000
40C3C3404OE740C5El
D7
40C3C34040E740CIC3
E3
ItOC1C40940E7E1E7El
E1E740E7C9D6 .
00
.
0015CB
40CICltD940E7E1E7E7
E1E74003C90502
00
.
0015DI·
40C3CIE64OE1E1E7El.
E7E7It0:
. C3E2E6
C3C3E6
40C3E2E61t0E7E7E1El
E7E7E7ElItOElEl
ElE7E1ElE1E740C5El
07
CIC3E3
C5E7D7
ItOE2D5E240E7El"OC5
E707
40E2D5E240E1E740Cl
C3E3
40D306C740E7E140El
nEl ElEl El40El
E1E7E1E1E140ETE7E7
ElElEl
40E3E2E31t0E7E1E7E7
40E2C5E340E2E2100FO
40060540C60609
400306D6DlltOD6D540
ElC9D66BltOE2E2
40Fl100D6D540C606D9
40E3C90640E2C9
D64003060607
0000000000000000
0000000000000000
Olt 001610 0000 0001
0000000000000000
001 laC
FE
05HAV65
124252

10AUG65
125580

CNOP
8CR
ISAVE DC
WORK
os
IEXPCC DC

Xla'o'
24C
C' CC X EXP'

IAClCC DC

C' CC

lOAD DR DC

C' ADR·XXXXXX XIO'

0,6
0,0

X ACT'

ILINK

DC
CNOP
ORG
DC

ICAII

DC
CtIDP
ORG
DC

C 'CAW XXXXXX • :.

iCSII
ICCW
IBLAH

DC
DC
DC

C'CSW' .
C'CCW' .
C' CSW XXXXXXXX XX'

DC

X'OO' .

0,4

·-1

C· AOR'XXXXXX LINK"
X'OO' .

0.4

·-1

C' XXXXXX EXP' .

, IAC1
DC
,IEXP· DC
IEXSNS DC

. C'EXP' .
C' .SNS XX EXP'

IACSNS DC

C' SNS XX ACT'.

10LOG

DC

C' LOG·XX·XXXXXX X'

DC

C'XXXXX' XXXXXX' .

lTS1NO DC
10PTI DC

ICSII1
ICSW2
ISENSE
ISLAVE
10ADR
MSKI

22FE866
125621

C 'ACT' :

C' .TST· XXXX'
C' SET SS 0 ON FOR'

DC

C' .. LOOP. 'ON XIO. SS'·

DC

C' ION FDRTIO 51'

DC
DC
DC
CCW
DC
DC
DC

C'O LOOP' .
liLa' O' .
lIlO'O'
X'04',IACSNS+5,X'00',l ;
XlO'O' .
REGISTER SAVE AREA
AL31lSSUEI
X'FE'

15JUN67
130498

• 10

f'AGE

fUp.,. 3

9A

f

• 11M 'MAINTENANCE DUGNOSTIC ' 'PROGUM
25~0

!

PIN '8401. . 1
, flAG!
; 10 i

I

J

I

READER fUNCTION ,TlSTS - ,SECTION" 1 ; Fl10 "

0016A~ ,
0016A5
0016A6.
0016A7
0016BO
001687 I

00168C
0016BE
0016C2
0016C6
0016C8
0016CC
001600
001604,
001608 '
00160C
0016EO
0016E4
0016E6 '
0016EA
0016EE
00161'0
00161'4'
00161'8 '
0016FC
001700 '
'001704 :
001708 '
OOllOC
001712 c
001716,
0':'171 A
00171E
001720
001726
001728 '
001729 '
00172A'
00172C
001130 '
001134 :
001138
00173C
00173C
001740
0017EO
0017E9
00171'0
00171'9
0017 FA
0017FA

01,
00 .
00

MSK2
DC
RTSV, DC
SWCH ,DC
IUNEX DC:

40E~C9D640C609D6D4

40C4C5E5C9C3C5
40ElE7E7E7

18 DO
9140 E 196
47,80,F 6C8
18 OF
58 CO FOE4
54 CO FllC
50 CO FElC
58 CO F OED
54 CO F 73C
50 CO F E18
92 00 F E22
18 66'
43,6E 0 'lB9
4A 6E 0 :lBC;
lA 6E
4B 60 F 'E20
49 'C6 '.0 000
47,;60 :1' '700
96 80 F E22
91 80 F OE8 '
47 10:F 720 .
92 40 F ,740
02 9E F741,;"7.o'
,92 00 F 6A6'
92 03 FOlD;
U AD F 010'
07 F~'
02 DO F 003 ·F:I'.'
OA DO
,64
U
f7ED:
96 01 FOE8'
4550 'F2C2'
92 00. "·OE8
47 FO:F 700

00003FFF
40D7D9C5E5C906E~E2

, ,X'Ol'· .
'X'OO':
X'OO'
" C' 'UIO FROM Dnac.·

INn

SR
: TM
.' BC
lR
NITWIT l
N
ST,
L
N
ST
MVI
SR
. IC
AH
AR
SH
CH
BC
01
kODP ,TM
BC
MVI
MVC,:

RU,R13
406CR14"X'40' I
NONE ,NITWIT
R13.R15
R12,UNIT2
R12.M0050,
R12.PCH
R12.UNITl
R12,M0050
R12,RoR
loSW,X'OO'
R6,R6
R6,oMIOLI R141 :
R6,OMPTRCR14) :
R6,R14
R6,H2
R12,oCR6)
UNEQ,BloOP
lOSW,X'80'
ISW,X t 80' '
All,HANGUP
RDAR,C' .' ,
RoAR+1(59) ,ROAR
'WI
SWCH.X·OO· '
MVI ' ; CCW,X'03·
, LA
. RlO,CCW
BCR
UNC,R"
,HANGUP MVC' SECN0+31 U .RTIV
SVC . X·OO· ..
DC
·X'64'
DC
' X'lA' .
DC '
AL2(HUNG-SECNO+REGt
01
ISW, X ',01 ,
BAL ' U,IOOSN!
MVI
ISW,X'OO' ,
BC .
UNC ,BLOOP,
CNOP 0,4
M0050 DC
X'00003FFF'
ROAR
OS
l60C
HUNG
DC
C· PREVIOUS HANG'U'.

40C8Clo5C740E4
0740C4C5E3C5C3E3C5
C4

DC
CNOP
BCR

07 00

ZERO REG 13
CHECK FOR FORCED, PROBLEM STATE
BR. IF NOT
SET UP FOR PROBLEM STATE
,PUT PCH UNIT TABLE IN 12.
AND OUT All BUT ADDRESS.
SAVE
,PUT RDR UNIT:TABlE INTO 12.
AND OUT ,UNUSED BITS
SAVE U'.
ZERO, THE lOADER SW BYTE.
ZERO REG 6.
,PUT lENGTH OF oMIO TABLE INTO 6 •
AOO OFFSET ADDRESS TO LENGTH.
ADO BASE REG VALUE.
SUBTRACT 2 FROM, IT TO PoIM.T TO ADDR.
SEE IF READER: IS: lOADER.
. BR I F NOT.
,TURN ON lOADER SW.
,CHECK FOR HANG UP
BR. IF DETECTED
CLEAR WORK AREA.

n.

DATe
EC

Itf'

'\

0511AV6,.
1~4252

, 000
"~

IBM 'MAINTENANce DIAGNOSTIC'PROGRAM!
2540 READER fUNCTION TESTS. SECTION 1

D01818 '
D018ll

0020

00181C
OOlllE
00181E

DA 06'
0700

02
000850

00183~

0030
FOOD
45 BO F OFE
4AOO
0040
F100
FOOD·
45 BO F OFE
0200
0050
FOOO
OA D6

~

61lC
OFE

E1C
OFE

101UG65
125580

o

UfE.B66
12~621

15JUN67
130.~8

,t,IS'T
NUMI'ER
,EXP COND.·CODE, AND SENSE.
ROUTI NE EX IT .

az, ...

ISSUE IENSE COMMAND -04--'-, EXPECTCDND. CODE 0 ON, THE SID
ISSUE A TEST: 100<0. EXPECT CONO. CODE 1, 'ANO CHANNEL AND
DEVIClnEND!.IN: lHECSW. ISSUE, TEST, I....{)., EXPECT, CONDIT ION
CODE

a
........................................................................

001820,
001821
001824 '
001828 '
00182C
001830
001834
001836
00183A
00183C
00183E
00184Q
001842
001846
001848
0018U
00184C
00184E
00184E

. x'aozo' .
,

.........................................................................
• ROUTINE
•
• ,
•

"5

,~OF 61C ;
41 AO F 690:
45 BO ~F 112
~200

0700

RDUT02 DC
·X'02'
ROUTINE NUMBER
DC
AL3CROUT03-SECNO)
ADDRESS OF NEXT ROUTINE
BAL
R4,INIT
BR. to INITIALIZE
lA
RlO,lSENSE
lOAD SENSE CCW ADDRESS
BAL
Rll.1510
BR. TO ISSUE SENSE SID
DC
X'4200'
CTU SWITCHES
DC
X'0030'
·T' E S T
N U M B IE
DC
X'FOoO'
'EXP·CONO. CODE AND SENSE
BAL
R11.IT10
BR. TO ISSUE TEST 1-0
DC
X'4AOO'
,CTRl SWITCHES
DC
X'0040'
,T E S ,T
N U M B 'E
DC
X'F100' ,
EXP CONDo CODE, AND SENSE
DC
Al2CSNSCSW-SECNO+REG) EXPCSW ADDRESS
BAL
R11,ITI0
BR. TO ISSUE TEST 1-0
DC
X' 0200'
CTRl SWITCHES
DC
X'0050',
t EST
N U l l II .E
DC
X'FOOO'
EXP CONDo CODE AND SENSE
SVC 'X'D6'
ROUTINE EXIT
CNOP 0,4
IICR
0,0

R

R

R

.......................................................................
• ,ROUTINE 03- ISSUE SENSE COMMAND -04-. ENABLE FOR AN EXPECTED CHANNEL
• '
DEVICE, END INTERRUPT. ISSUE TlO. EXPECT CDNO., CODE O.

,RETURN VIA' REG .. '
RESTORE RT NO.
PRINT
-PREVIOUS HANGUP DETECTED-

001850
001851,
001854 :
001858 '
00185C
001860,
001862
001864
001866 .
001868
00186C
00186£
001870 :
001812
001874

,TURN ON ERROR SWITCH.
8R. TO OUTPUT ,AVAILUlIi.INfO
RESET HANGUP SWITCH

03
00087" •
454Q F 6BC'
4lAO F 690;
45 BD F 112'
2AOO
0060
FOOD:

, 10
; PAGE

fllO!-I !

10;

DC
Al3CROUT04-SECNO)
ADDRESS OF NEXT,ROUTINE
BAL
R4,INIT
BR. TO INITIALIZE
lA
RI0.ISENSE
SET UP FOR SENSECOIIMAND
BAL' Rll,1510
BR. TO ISSUE SENSE SlO
DC
'X'2AOO'
CTRl SWITCHES
DC
X' 0060' .
. T EST
N U M B 'E R
DC
'X'FOOO'.
EXP CoND.·COOE AND SENSE
DC
AL2ISNSCSW-SECNO+REGJ EXP·CSW ADDRESS
BAL, R11,llIO
BR., TO ISSUE TEST .. I-o
DC
,X'0200'.
,CTRl SWITCHES
DC
,X'OOlO·.
,T E S ,T
N U' II B)E 'R
DC
'X'FOOO'
EXP,COND. CODE AND SENSE
SVC 'X'D6'
ROUTINE EXIT
. CNOP' 0.4

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

'

• ROUTINE 04 - ISSUE NDP;,-03-. EXPECT CoNo., CODE ,ION THE SID. WITH
•.
CHANNEL iAND DEVICE) END STORED ,IN,THECSW. NO INTERRUPT
SHOULD OCCUR.
•

0,4
0,0

ROUTINE NUMBER
ADDRESS OF NEXT,' ROUTINE
BR. TO INITIALIZE
BR TO' ISsue TEST .1-0.
CTRl SWITCHES
T l! S T
N U M B 'E ,R
EX' CONDo CODE AND SENSE
' PUT PCH ADOR INTO REG 12.
BR TO ISSUE TEST 1-0
CTRl SWITCHES

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ROUT03 DC
X'03'
ROUTINE NUMBER

FOO~

45 BO F OF!
0200
0010
FOOO
OA 06

C'P DETECTED'

X'OI' ,
Al3IROUT02-SECNO)
RIt,INll
R 11,1 TID
X'0200' .
X'0010'
X'FOOO· '
R12,PCH
R ll.lllO
X'0200'

F811

DC

........................................................................
ROUTOI DC
DC
BAl
START BAl
DC
DC
DC
GTN
l
8Al
DC

PIN 840116
. PAGE
. IDA

DC
' X'Faoa'
, SVC
x'D6' ,
,CNOP,' 0,4'
IICR
'0.0

FOO~'

'ZERO INTERV SWITCH.
PUT A NODP INTO·CCW.

••••••• *•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
01,
000820
4540 F
45 BO 'F
0200,
0010
FOOD
58'CO F
45 BO F
0200,

t

DC
,C' 'XXXX' •
.......................................................................
•
.INITIAllze,RouTtNE
........................................................................

• ROUTINE 01 - ISSue A TESTI-D,TO AN AVAILABLE ,AND; IDLE· DEVitt.
•
EXPECT CONDITION CODE O.

0017FC
0011Fo,
001800
001804
001808
00180A
00180C
00180E
001812
001816 '

n'

001874 '
001875
001878
00187C
001880 :
001884 :
001886,
001888 '
OOl8DA
00188C
00188E
00188E

DUE
EC

04
000B90
45 40 F 68C
92 03 F 010·
45 BOF 112
0800
0080
F100
Fo08
OA 06
0700.

05MAU5
124252

..........................................................................
ROUTO~

DC
,X·04·.
ROUTINE· NUMBER
DC
Al3IROUT05-SECNOI '
ADDRESS OF NEn, ROUT INE
BAL
U.INIT'
BR. TO INITlAlUE
MVI· CCW,X'03',
SET ;UP FOR NOP
BAL . R11,ISIO
BR., TO ISSUE NOP SID
DC
X'0800'
CTRl SWITCHES
DC
'X'0080':
:T E SiT' N U M:B'E'R
DC
X'FlOO'.
'EXP,CONo.·CODEAND SENSE
DC
AL2CNOPCSW-SECND.REGI· EXP, C!W ADDRESS
SVC 'X'06'
'ROUTINE EXIT'
CNOP:' 0,,,
ICR
' 0,0
"

........................................................................
10AUG61zaflEII66, 15JUN67,
1251.0'
125621
130498

: ID
1'810-3
I'AGE
,lOA

00000000000000000000000000,0

I.

\
1

. PIN 140116
,PAGE
11

18MMAINTENANCE'DIlGNOSTIC:PROGRAMt

251t0 READER FUNCTION TESTS - SECTION

251t0 READER FUNCTION TESTS-SECTION 1 : 'IlO' ,
• ROUTINI!05.~
• .
•
•
• .
001890 :
001891
001891t :

i·

001898
00189C
00lSAO:
00leAZ
0018AIt ~
00lliA6 '
0018A8 '
0018AC
001880 '
0018B2
00lBBIt '
0018B6
0018B8 .
00188C
0018CO '
0018CIt '
0018C6 '
0018C8
0018CA
0018CC
001800
001801t '
001806
001808
00180A
00lBOC
001BDE
0018DE·

05
0008EO:
itS ItO F 68C;
Itl AO F 011'
loS BO F 112
2ADO:
0090 :
FOOO'
FOlD
Itl AOF 020'
loS BO F 112'
21.00
0100 :
FOOD
,FD71'
Itl AD F 028'
58 CO F ElC
loS BO FU2'
2AOO:
0110 :
FOOD
FDBO
101 1.0 , 030:
ItS BO , ·112 '
2ADO'
0120 :
FOOD;
FD88
OA 06
0100 .

ISSUE A.DIAGNOSTICCHECK READ -t6- WITH A SHORT CCW
COUNT. EXPECT INCORRECT LENGTH RECORD TO 8E INDICATED.
ISSUE SAME COMUND IIITH A LONG CCII COUNT. EXPECT SAME
INDICATION •. ISSUE DIAGNOSTIC IIRITE IIITH A S~ORT, THEN
A LONG CCII COUNT. EXPECT SAME INDICATIONS.

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ROUT05 OC
X'05'
ROUTINE NUMBER
, DC
BAl·
LA
BAL
DC
DC
DC
DC

lL3CROUT06-SECNOI
ADDRESS OF NEXT ROUTINE
RIt,INIT
BR. TO INITIALIZE
RlO.RDSH
LOAD ADDR OF SHORT READ·CCW.
Rl1,ISI0
. BR. TO ISSUE SID
X'2AOO' ,
CONTROL SWITCHES
X' 0090'
T EST
N U M I' E R
X'FOOO'
EXP CONDo CODE AND SENSE
AL2IRSCSW-SECND+REGI EXP SHRT READ CSW ADtRESS.
LA
Rl0,ROLG
LOAD AODR OF LONG READ cew.
BAL
Rll.ISIO
BR. TO ISSUE SIO
DC
X'2AOO' .
CONTROL SWITCHES
DC
·X'0100',
TEST
NUMBE..:R
DC
X'FOOO' '
EXP COND. CODE AND SENSE
DC
AL2IRLCSW-SECNO+REGI EXP LeNG READ CSV.
GOOS
LA
Rl0,VRSH
LOAD ADDRESS OF SHORT VRITE CCV.
L
R12,PCH
PUT ADOR OF PUNCH INTO 12.
BAl
R11,ISIO
eRe TO ISSUE SIO
DC
X' 2AOO'
CONTROL SWITCHES
, DC
X'0110'
T EST
N U M 8 E R
. DC
. X'FOOO'
EXP CONO. CODE AND SENSE
DC
AL2(WSCSW-SECNO+REGI EXP SHRT WRITE·CSV.
LA
Rl0,WRLG
LOAD AOOR OF LONG WRITE CCW.
BAL
R11, ISIO
BR. TO I SSUE LONG READ
DC
X'2AOO'
CONTROL SWITCHES
. DC .
X'0120' .
,T EST
N U M 8 .E R
X'FOOO'
EXP CONDo CODE AND SENSE
, DC
DC
AL2IVLCSW-SECNO+REGI EXP LONG WRITE CSW.
SVC
X'D6'
ROUTINE EXIT
CNDP 0,1t
8CR
0,0

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• ROUTINE 06 - A READ NO FEED COMMAND IS COMMAND CHAINED TO TWO MORE

I,'

I
I

•
•
•
• '
•
•
•

READ NO FEED COMMANDS. THE SYSTEM IS ENABLED TO RECEIVE
INTERRUPTS.COND, CODE 0 SHOULD BE SET CN THE SID.
UNUSUAL COMMAND SEQUENCE SENSE eIT SHOULD BE SET AT
CHANNEL AND DEVICE END TIME OF THE SECOND CCW IN THE
CHAIN. THIS SHOULD BRI PiG UP UNIT CHECK AND BREAK THE
CHAIN. THE CSW SHOULD CONTAIN THE ACDRESS OF THE FIRST'
CCII IN THE CHAIN + 16.

•
•
•
•
•
•
•
•
•
•
•
•
...
•
•
•
•

A NOPIS NOli ISSUED, FOLLOWED BY A SENSE. EXPECT/NO
UNIT CHECK, BUT SENSE eIT SHOULD STILL 8E SET. ISSUE
A DIAGNOSTIC CHECK READ FOLLOWED BY A SENSE. EXPECT
SENSE BIT TO BE RESET.
A FEED AND STACKER SELECT POCKET 1 IS· COMMAND CHAINED TO
TWO MORE FEED COMMANDS. . THE SYSTEM IS ENAI!LED FOR
INTERRUPTS. CONDo CODE
SHOULD BE SET ON THE SID.
COMMAND REJECT SHOULD BE SET ON INITIAL SELECTION OF THE
SECOND FEED COMMAND. THIS SHOULD 8RING UP UNIT CHECK
AND BREAK THE COMMAND CHAIN. THE AD tRESS OF THE FIRST
CCW IN THE CHAIN + 16 SHOULD BE IN THE CSII. DEVICE
STATUS SHOULD CONTAIN UNIT CHECK ALONE. A RESIDUAL
COUNT OF2 - THE COUNT IN THE REJECTED CCW. - SI'.DULD 8E
IN THE CSW.
A NOP IS NOW ISSUED, FOLLOWED 8V A SENSE. EXPECT NO
UNIT CHECK, BUT SENSE BIT SHOULO STILL 8E SET. ISSUE
A DIAGNOSTIC CHECK READ FCLLOWED IIY A SENSE. EXPECT
SENSE BIT TO 8E RESET.

••

j

...

.
'
.

°

.
'

.

• .
•

0018EO
0018 I! 1
0018E4 .
0018E8 .
0018EC
0018FO,
0018F2
0018F4 :
0018F6
0018F8
0018FC
001900
001902
001904
001906
001908 .
00190C
001910 :
001912 '
0019110 ,
001916
001918
00191C
001920
001922
001921t .
001926 .
001928 .
00192C
001930
001932

LA

8Al
, DC
DC
,DC
DC
LA
BAL
DC
OC
DC
DC
LA
BAL
DC
DC
DC
DC
LA
BAL
DC
DC
DC
DC
LA

BAl
DC
DC
DC
OC
LA
BAL
DC
DC
DC
DC.
SVC
CNOP
8CR

F180 :
FOOl'
101 .AO F 061'
itS BO F ·11Z:
0800 .
01BO
FooO;
FED8
OA 06

:
'
"
.

001910A
0019104

ROUT06 DC
DC
8Al

0110 .

001936 .
001938 .
00193C

0019100
00191,Z
00191010
0019106
0019108

•......................................................................

It,

0019310 :

0'MAV6S.
121t252

10AUG65
125580

0100.

X'06'
ROUTINE NUM8ER
AL3CROUT01-SECNO.
ADDRESS OF NEXT ROUTINE
RIt,INIT
BR. TO INITIALIZE
RI0,RNO'
LOAD CCW ADDRESS.
Rl1,ISI0
8R. TO ISSUE SID
X'ZIOO' .
CONTROL SWITCHES
X'0130'
T EST
N U M 8 f •
X'F002'
EXP CONDo CODE AND SENSE.
AL2ISEQCSW-SECNO+REGI EXP CSW ADDRESS.
R10,CHNNOP+I
LOAD NOP CCW ADDRESS
Rl1,ISI0
8R. TO ISSUE SID
X'0800'
CONTROL SWITCHES
X'Ol1,O' .
T EST
N U M 8 E •
X'Fl02' .
EXP. CONDo CODE AND SENSE
AL2INOPCSW-SECNO+REGJ EXP. CSW ADDRESS
RI0,DCRO
PICK UP ADDR OF DIAG CHK RD
Rl1,ISI0
8R. TO ISSUE SID
X'0800'
CTRL SWITCHES
X'0150'
T EST
N U M 8 E R
X'FOOO'
EXP. CONDo CODE AND SENSE
AL2IDCRCSW-SECNO+REGJ EXP. CSW ADDR
RIO,FNOR
LOAD CCII ADDRESS.
Rl1,ISI0
8R. TO ISSUE SID
X'2800'
CONTROL SWITCHES
X'0160'
T EST
N U " 8 ,I R
X'F080'
EXP CONDo CDOE AND SENSE.
ALZIREJCSW-SECNO+REGJ EXPCSII ADDRESS.
RIO,CHNNOP+8
PICK UP ADDRESS OF SINGLE, NOOP ..
Rl1,ISI0
BR TO ISSUE SID.
X'0800'
CTRL SWITCHES
X'0110' .
T EST
N U " 8 E R
X'Fl80'
EXP CONDo CODE AND SENSE.
AL2(NOPCSW-SECNO+REGJ EXP·CSW ADDRESS.
Rl0,DCRD
PICK UP ADOR OF OIAG, CHECK RO.
R11,IS10
8R TO ISSUE SIO.
X'0800' .
CTRL SWITCHES
X'0180'
·T EST
N U " B E R
X'FOOO·.
·EXP CONDo CODE AND SENSE.
AL2IDCRCSW-SECNO+REGJ, EXP·CSW ADDRESS.
X'D6'
ROUTINE EXIT
,. 0,4
0,0

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

• ROUTINE 01- COMMAND CHAIN A NOP -03-. TO ANOTHER NOP. EXPECT·tOND.
• '
CODE 0 ON THE SID. DUE TO CHAIN flAG. EXPECT CHANNEL
•
AND DEVICE.END INTERRUPT WITH ADDRESS OF THE SECOND
• .
CCW PLUS 8 STORED IN THE CSW.
0019ltC
001940
001950
001954 .
001958
00195C
00195E
001960
001962
001964
001968 .
001910
001918
00191C

01
000980 .
1t5 100 F 6Bt·
41 AD , '61'
45 BO F 112'
3800
0190,
FOOD
F918 .
OA 06
03 00111t0 1t000 0001
03 0011100 0000 0001
00001911
OCOOOOOI

DATE
EC

05MAV65
121t252

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ROUTOl DC
X' 01"
ROUn NE NUMBER
DC
BAL
LA
BAL
DC
DC
DC
DC
SVC
CHNNOP CCW
CCII
CHNST DC
DC

AL3(ROUT08-SECNOI
R4,INIT
RIO,CHNNOP
Rl1,ISI0
X1 3800'
X'0190'
X'FOOO'
AL2(CHNST-SECNO+REGt
X'D6'
X'03',RDAR,X"ItO",1
X'03',ROAR.X"OO·,1
AICHNSTI
X'OC000001'

ADDRESS OF NEXT ROUTINE
BR. TO INITIALIZE
SET UP TO CHAIN NOP
BR. TO ISSUE SIO
CTRL SWITCHES
T EST
N U M 8·1
EXP CCND. CODE AND SENSE
EXP CSW ADDRESS
ROUTINE EXIT

•

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

• ROUTINE 08 - ISSUE ALL COMMANDS THAT ARE INVALID TO THE READER. EACH
• .
INVALID COMMAND IS ISSUED IN A SINGLE cew. EXPECT·CONO.
•
CODE 1 IIITH UNIT CHECK IN THE DEVICE STATUS BVTE AND

A DIAGNOSTIC CHECK READ COMMAND IS ISSUED LAST IN THIS ROUTINE
TO RESET THE SENSE LATCHES eEFORE ENTERING THE NEXT ROUTINE.

22FE866
15JUN61 .
125621130498

a 'Ial

.

06
00094C
40 f68C .
41 :AO , '031 '
1t5BO , ,112:
2800 ;'
0130 '
F002
FDFO'
41 AO F 910'
ItS BO F 112
0800
011t0
FI02
FDD8 .
41 AO F 068'
loS BO F 112'
0800
0150
FOOO
FE08
101 AD F 050
45 eo F 112
2800
0160
F080
FDF8 .
101 AO F 910;
105 BO F 112
0800

.,
DATI!
Et

PIN 840186
PAGE
111

IBM 'MAINTENANCE DIAGNOSTIC PROGRAM'

10AUG65
125580

22FE866
125621

,15JUN61·
130498

ID
f810;-S
,PAGE
114

"

1

I
,

'~.

: "N' 840186

18M'MAINTENANCEDIAGNOSTIC PROGRAM
i'"

;

,I
~."~..-

.

!

f"
,..

,
I

I
it

I
t

,
I
I

I

!
I

!I
I

I
I.
i

0019S0.
001981 :
0019SIt '
001988
00198C
001990 :
001992
001996 .
00199A
00199E
0019A2
0019A6
0019AA
0019AE
001982
001986
00198A
0019CO
0019CIt '
0019C8 .
0019CC
001900
001904
001908
00190C
00190E
0019EO'
0019E2
0019EIt ~
0019E8 '
0019EC
0019EE
0019FO'
0019F2
0019F4 :
0019F8 '

0019FA
0019FE
00lA02
001A06
OOLAOA
OOLAOE
00 LA l2
OOLA16 .
00 LA LA
OOLA1E
00LA22
OOLA26 .
OOLA2A
OOLA2E
OOLA32
OOLA36
OOLA3A
OOLA3E
OOLAlt3 '
OOLAItC·
OOLA53
OOLA51 ,
OOLA5S
. DATE
EC

)

PAGE

.........

OS'
000A18 '
1t5 ItO F
1t1 30 0
1t2 30 F
18 66
92 00 F
1tl40 F
1t3 30 F
1t3 60 F
95 FF F
Itl 80 F
41 66 o
102 60 F
91 OF F
Itl 80 F
05 00 F
101 80 F
1t1 44 0
1t6 30 F
41 AO F
42 60 F
92 38 F
45 80 F
3880
0200
Fl80
FD88
It1 :AO F
45 80 F
2800 .
0210
FOOO
FE08 .
41 FO F
OA 06

6SC
019

A13
Alit
9FA
A13
Al4 '.
Alit
9F8
001
Alit
Alit
9A2
A14 ·It 000
996
001
98A'
EOO
EOO
9DC
112'

068 '
112

996

04142434
44546414
81t9ltA484
C4D4E4F4
02060AOE
1216IA1E
42461tA1tE
. 52565A5E
82868A8E
92969A9E
C2C6CACE
02D60AOE
2321282F
3331383F
6361686F
,1317181F
A3A1ABAF
B3B1B88F03
081828384858681118'
98A8B8C8D8E8F8
22262A2E
32363A3E
62666A6E
05HA165
124252

10AUG65
125580

2540 READER FUNCTION TESTS -

22FEB66
125621

,15JUN61
130498

SECTION 1

OOLA1B
OOlA19
OOlA1C
OOLA80'
OOlA8~ ~

i

I

I
i'

I

I

001A88 '
OOlA8C
OOLA90:
OOlA91o !
OOLA96 '
DOLA98
OOU9A'
DOLA9C
OOLAAO,:
00lAA2 .
OOlAAt,. :
OOLAA6 "
OOlAA8 '
OOlAAC'
OOlAAE
OOlA80.
00IA8200lA8t,. ,
OOUS8 .
OOlA8A
OOlABC
OOLABE
OOlACO
00LAC4~

OOLAC6
OOlAC8
00 lAC A
OOtACC
OOLADO
OOLA02
OOlAD.. ,
00lAD6
OOlAD8 '
OOlAOA
OOlAOA

Ilt0186
12A

FIlO

,X'12161A1E',
'X'A2A6AAAE'·
X'82B68A8E'
DC
. X'E2E6EAEE' .
DC
X'F2F6FAFE' ,
SAYCNT DC
'X'OO'.
CMOBYT DC
XIOO' .
CNOP,' 0,4
BCR
0.0

.......................................................................
• ROUTINE 09 •

ISSUE A READ AND FEED COMMAND -02-. ,CLEAR CHANNELENC.
ISSUE no 8EFORE DEVICE END OCCURS.
EXPECT CONC. CODE

• .
• .

1. wITH DEVICE BUSY ONLY IN THE CSW. REPEAT FOR HART
1-0. EXPECT SAHERESULTS. REPEAT FOil HALT 1-0. EXPECT
CONDo CODE 1 WITH A ZEROED CSW STORED. ,EACH DEVICE END

•
•
•
•
•

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
,
•.
,VALID COMMAND 8YTES
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
YAlCO" DC
X'041lt2434'
DC
' X'4451t61t71t' ,
DC
X '8491tA481t ,
DC
X'CltD4EltFIt'
DC
X'02060AOE'
DC
X'l2l61AlE'
DC
X'42464A4E'
DC
X'52565A5E'
· DC
X'82868A8E'
DC
X'92969A9E'
DC
X'C2C6CACE'
DC
X'D2060ADEO
DCX'2327282F'
DC
X'33373B3F'
DC
·X'63676B6F'
DC
X'1317787F'
DC
,X'A3A1A8AF'
DC
X'8381888F03' ;
DC
X'08l82838485S68188S' COMMANDS THAT·ANSwER
DC
X'98ASBSCeD8E8FS'
AS TIts.
COLlIN DC
X'22262A2E' ,
DC
,X'32363A3E'
DC
·X'62666A6E·'

,'AGE

DC
DC
DC

7Z16lA1E
OOLASF
A2A6AAAE
001463
82868A8E
001467
001468
E2E6EAEE
F2F6FAFE
OOlA6F
OOlA13
00
OOlA74
00
OOlA16
OOlA16 " '01 00

.•................•..........................................

ROUTOS DC
' X'OS'
ROUTINE NUM8ER
DC
AL3IROUT09-SECNO)
ADDRESS OF NEXT ROUTINE
BAL' R4.INJT
8R TO INITIALIZE.
LA
n,ll1
PUT THE NO. OF VALID CMOS IN REG 3.
enc STC R3,SAVCNT
SAVE NO. OF VALID COl',HANes.
SR
R6,R6
ZERO REG 6.
HVI· CMD8YT,X'OO'
PUT 'ZERO INTO CO"HAND BYTE.
SlY
LA
RIt,VALCOK
PUT ADDR. OF VALID C"DS, INTO REG· It.
IC
R3,SAVCNT
PUT eMD COUNT INTO REG 3.
IC
R6,CHDBYT
PICK UP THE CHD BYTE
ADDl
Cll . CH08YT,X'FF~
SEE IF LAST CMO.
8C
EQ,FINIS
BR IF YES.
LA
. R6,HR61 .
ADD 1 TO THE COMMAND BYTE.
STC'
R6,CHD8YT
SAVE IT.
TM
CM08YT,X'OF. .
SEE IF NO BITS ON IN BITS· 4 THRU I.
BC
NONE ,ADDl
BR I F NONE ON.
TOT·; CLC
CMD8YT(1),00\4)'
SEE IF CMD 8YTE, IS VALID.
BC
EQ,SIV
8R IF YES.
· LA
R... HRIt)
ADD 1. TO VALID CMOS .IOCR.
BCT
R3. TOT
8RANCH UNU L ALLVAU 0 CMOS CtlltED.
LA
RlO,tNVCC'"
PICK UP ADDR. OF ccw.
STC
R6,INVCCW
PUT tNV CMD BYTE INTO CCW.
MVI· CS,X'3S'
INITIALIZE CTRL SWITCHES.
BAL
Rl1o1SI0
BR TO ISSUE SIO.
CS
DC
'X'3880"
·CTRL SWITCHES
DC
X'02.00· .
,T E S, T
N U M B· E I'
DC
' X'Fl80' .
EXP CONO. CODe AND SENSE.
DC
AL21UC-SECNO+~EG!
ADDRess OF CSW.
LA
RIO,DCRO
PICK UP AODR OF DIAG; CHK READ CCW.
BAL: RU,ISI0
8R TO START 1-0.
DC
X'2eOO' ,
. CTRl SWITCHES
DC
' X'02l0' ;
,T E S T
N U M B, E ~
DC
X'FOOO' .
EXP CONDo CODE AND SENSE.
· DC,
ALZIDCRCSW-SECNO+REG)· EXPCSW ADDRESS.
8C
UNC.SIV
8R TO CHECK ALL INVALID CMOS.
FINIS SVC
X'D6' ,
ROUTINE EXIT

PIN

IBM MAINTENANCE DIAGNOSTIC PROGRAM

12

; COMMAND REJECT: IN· THE SENSE BYTE. EACH INVALID COMMAND
. ISSUED IS FOLLOWED BY A DIAGNOSTIC CHECK READ -C6- TO
,,'"
RESET ·THE COMMAND REJECT LATCH. OPTICNAL FEATURE
. " , COMMANDS WILL BE ISSUED AS INVALID COMMANDS, IF TtiE
l
FEATURE IS NOT DEFINED IN THE DEVICE UDT ENTRY IN tH.
~

1

I

2'"'0 :READER FUNCTION TESTS -SECTION l' FIlO •

• .

I

Ht

",

'. • .
•
• '
•

I

zrc

tM'tIH

09
OOOADC
45 40 F 68C
41 AD F OOS'
9101 F 004:
1t710 'F B9.\'
9202 F 010:
45 80 F 112'
2AOO,
0220
FOOD
. FOEO'
45 eo F OFE
3COO'
0230
FlOO
FOAO'
45 80 F 112
2AOO
0240
FOOO
FDEO
45 BO F 112
3COO:
0250
. FlOO
FOAO:
45 80 F 112'
2AOO
0260
FOOO
FDEO
45 BO FOEl
3COO
0210
FlOO
FOCO
OA 06
01 00'

FROM EACH READ AND FE.ED WI LL 8E CLEARED I!Y ENAeUNG THE
CHANNEL AFTER, THE 1-0 O1'lHIATION 8ETWEEN CHANNEL ANI)
DEVICE END TIME, IS PERFORMED. THIS ROUTINE WILL BE
BYPASSED IF SECTION SENSE SWITCH 7 IS ON.

•ROUT09
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
DC
X'09'
ROUTINE NUMBER
DC
BAL
LA
TM
BC
"VI
BAL
DC
DC
DC
DC
BAL
DC
DC
DC
DC
BAL
DC
DC
DC
DC
BAl
DC
DC
DC
DC
BAL
DC
DC
DC
DC
BAL
DC
. DC
DC
DC
SVC
cNOP,
IU

AL3!ROUTIO-SECNOI
R4,INIT
R10,ROFO
SNSW.X·Ol'
ALL.SOLONG
CCW,X'OZ'
Rll.1SIO
X ' 2AOO'
X'0220'
X'FOOO'

ADDRESS OF NEXT ROUTINE

SET UP FOR READ _NO FEED
CHECK SECTION SENSE SWITCH 7
8R. IF ON TO BYPASS ROUTINE
SET UP PRINT AND SKIP TO 1
8R. TO ISSUE SID
CTRL SWITCHES
TEST
NUMIER
EXP CONDo CODE AND SENSE
EXP CSW ADDRESS
AL21NOR~SECNO+REG)
BR. TO ISSUE TEST 1-0
RH,ITIO
CTRL SwITCHES
X'3COO'
·T E S T
N U M I 'E R
X'0230'
EXP CONO. CoOE AND SENSE
X'FlOO'
AL2IDBIZ-SECNo+REGI
EXP CSW ADDRESS
Rll,ISIO
BR. TO ISSUE SID
CTRL SWITCHES
X' 2AOO'
TEST
NUMBER
X'0240'
EXP CONDo CODE aND SENSE
X'FOOO'
AL2INOR~SECNO+REGI
EXP CSW ADDRESS
8R. TO ISSUE SID
R11.ISIO
CTRL SWITCHES
X'3COO' .
T EST
N U M I
E R
X'0250'
X'FlOO' .
EXP CONDo CODE AND SENSE
EXP CSW ADDRESS
AL2IDBIZ-SECNO+REGI
R11,ISIO
8R. TO ISSUE START 1-0
CTRL SWITCHES
X'2AOO'
,T E S T
N U l l I E 'R
X'0260'
X'FOOO'
EXP CoND CODE AND SENSE
AL2INORM-SECNO+REG! ' EXP CSW ADDRESS
R11,IHI0
8R. TO ISSUE HALT 1-0
X'3COO' .
CTRIL SWITCHES
X'0270'
.T E S T
N U l l 8 'E R
. X'FlOO' .
,EXP COND CODE AND SENSE
ALZICSWo-SECNO+REGt ' EXP CSW ADDRESS
,RDUTINE EXIT
X'D6'
0.4

0,0

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• ROUTINE 10 -ISSUE A READ AND FEED COMMAND -02-. CLEAR CHANNEL, END

!

•
•
• '

ONLY. ISSUE AN INVALID COMMAND TO THE DEVICE.
EXPECT
COND. CODE 1, WITH DEV1-tJ: END AND DEVICE BUSY ONLY IN
THE CSW. EXPECT NO SENSE 8ITS TO 8E SET.

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

OOUDC
DATE
EC

ROUnO DC

10
05MAUS
124252

10AUG65
125580

UFE866
125621

15JUN61 '
130498

X'lO'

ROUTINE NUMBER

;10"
PACE

F81o,.S·
12A

•• 00000000000000000000000000000000
.~"".'.I"-'--'''''''''''~''''''''''''"--------------,,------,,,,----------------------------------

f

__...

I ..
; . '. .~··.'__. . . .__. .__. . . .__~________________________________. . . .__. . . . . . . . . . . . . . . .________~____________________________ __

.1

IUMAlNTENANCI OIAGNOSnC',PIUIIRAM'

PIN 840186
PAGE
13

2540 READER FUNCTION ,TESTS ,-,SECTION 'I '. F810 '

OOlADD
OOlAEO
00lAE4 '
00lAE8
OOlAEC
OOlAEE
OOlAFO'
OOlAFl
00lAF2
00lAF4
00lAF8
OOlAFC
001800
001804
001 BOB
OOlBOC
001BOE
00lBI0
001Bll
001B12
001B14

000816
45 ,40 F 68e,
ItlAOF 'D08'
45 80 F 112
2400
0280
FO
00
FOEO
92 DC F 010'
58 4E 0 198.
8B 40 0 004:
4640 F 800
41 AO.F 010.
45 80 F liZ
3800 '
0290 ;
Fl '

00
FDBO
OA 06

DC

8AL!
LA
8AL'
DC
DC
DC
DC
DC
MVI,
,l
SRL!
BCT'

i8M'MAlNTENANCE DUGNOSTlC, PROGRAM '
2540RElDER FUNCTION TESTS- SECTION 1

lUIROUTU"SECND)
R4"INIT
' RlO,RDfO '
Rlt,1510
• XLZ'2l00'
' X'OZ80'
, X'FO' ,
X'OO'
Al2INORM~sECNO+REG'

CCW,X'OCI,
R4,WTIR14'
R4,4'
Rio •• ,
LA
RIO,CCW
8AL' R11,1510
DC
'Xl2'3800',
DC
'FX'0290',
DC
X'Fl'
DC
X'OO'
DC
Al2108ZY-SECNO+REG'
SVC
X'D6'

ADDRESS' OF NEXt'IlOUTINE.
GO: INITIALIZE
SETUP FOR READ ANO,FEED
GO· TO !-OHANDlER- DIAG WRITE
CONTROL SWITCHES
.T EST
N U M 8 -I R
,CONDITION,CODEEXPECTED
SENSE DATA EXPECTED
ADDRESS OF CSW
SETUP FOR INVALID COMMAND
lOAD WAIT FACTOR
ADJUST WAIT FACTOR
WAIT

001810
001874001816
001878 '
0018TA
001B7C
001880
001B82
001884
001B86
001B88

1t5 80 FOEA
4400 '
0360
FlOO·
FDCO
45 80 F OFE
4Z00 .
0310
FOOD'
OA 06

DATE
EC

000818 '
454OF681: ;
Itl AO F DOl'
45 ,BOF 112 '
4Z00
0300:
FOOD'
4580F 112
4200 :
0310 :
F200
58 '9E 0 198 ,
8890;0 004'
46'90:F83E
45 BOF OEA
4200
0320 '
FOOO
45 BO F OFE
4400
0330

GO TO 1-0 HANDLER. -" INVALID. CO"MANO
. EXPECTED A CSN
.T EST
N U M II 'f ,R
,EXPECTEDCONDITION,COOE
,EXPECTED SENSE
ADDRESS OF CSW
. ROUTINE EXIT

••

flO 0

FDEO,
45 BO:F OEl
4AOO:
0340 '
flO 0 ,

FDCO
45 80 F 112
0800 '
0350 ;
FlOO

FDBO'
05MAY6! 'lOAUG"
124252
125580

X'll'
Al3IROUTl2-SECNO.
RIt,INIT
LA
RI0,RDFO
BAl
R11,ISIO
DC
X'4200'
DC
X'D300'
DC
X'FOOO'
8AL ·Rll,ISIO
DC
X'1t200'
DC
' X'0310' ,
DC
X'F200'
L'
. R9,WTlR14. .
SRL' R9,It
BCT
R9,.
BAl
Rll,IHIO
DC
X'lt200' ,
DC
X'D320'
DC
X'FOOO',
BAl' ,Rll. ITIO
DC
X'ItAOO' ,
DC
X'0330' ,
DC
X'FIOO'
. DC
Al2CNORIHSECNO+REGt.,
BAL
Rll,IHIO'
DC
X'4AOO' :
DC
X'0340'
DC
X'F100'
DC
Al21CSwo-SECNO+REGJ
8AL' Rll,ISIO
DC
X'0800' .
DC
·X'03S0'.
DC
X'FIOO'
DC
AL2ID8ZY-SECNO+REG'

UFea66·· UJUNU;
125621
13049.

ROUT! NE NUMBER
ADDRESS OF NEXT ROUTINE
8R. TO INITIALIZE
SET UP FOR READ AND FEED
BR. TO ISSUE SID
CTRl SWITCHES
,T EST
N U M B. E R
EXP COND., CODE AND SENSE
BR. TO ISSUE SID
CTRL SWITCHES
T EST
N U'" 8', I 'R
EXPCOND.·CDOE AND SINSE
lOAD WAITFACTOIl
ADJUST
lOOP UNTIL, CDONT,DF' ZERO
BR •. TO ISSUE HAlt. 1'.0
CtRL SWITCH
.T EST'
N U ",8 "1 ,R
EXP COND., CODE AND SENSE
BR. TO ISSUE TEST;, H'O
CTRl SWITCHES
,T E S· T N U 'M '8· E' R
EXP COND.·CODEAND SENSI
EXP CSW ADDRESS'
8R. TO ISSUE HALT,I.O
. CTRl SWITCHES
T E SiT, N U M BE,R
,EXP,COND COSE AND SENSE
'EXP·CSW ADDRESS
BR. TO ISSUE SID
CtRl SWITCHES
.T E S, T N U'M 8,E·1l
EXP COND. CODE AND SENSE
EXP CSW ADDRESS
.10

'PAGE

NOT READY, TESTING.
A START 1-0 NDOP CMD IS ISSUED. EXPECTED STATUS IS
UNIT CHECK ALONE. CONDITION CODE 1 EXPECTED.
A SENSE START 1-0 ISSUED. EXPECT INTERVENTION REQUIRED.
IN THE SENSE BYTE. CONDITION CODE 0 FOR START 1-0 •
A TEST 1-0 IS ISSUED. EXPECTED STATUS IS UNIT CHECK
ALONE. EXPECTEO CONDITION CODE IS 1.
A SENSE START 1-0 !S ISSUED. EXPECT INTERVENTION
REQUIRED IN SENSE. EXPECT CONDITION CODE O,FDR SENSE
START 1...0.
A HALT 1-0 IS ISSUED. EXPECT ZERO STATUS RETURNED.
EXPEC T CONDUION CODE 1.
END OF FIlE,TESTlNG.
A TEST 1-0 IS ISSUED. EXPECT CONDITICiN CODE 1. EXPECT
DEVICE END ALONE IN STATUS DUE TO PENDING INTERRUPT
GENERATED 8Y NOT READY TO READY STATE CHANGE WHEN
OPERATOR MADE READER READY FOR EOF TEST.
A SENSE START 1-0 IS ISSUED IF UNIT CHECK. IS. IN STATUS.
5 READ, FEED. STACKER SELECT R1 COMMANDS' ARE ISSUED
IN PREPARATION TO RECEIVE UNIT EXCEPTION ON THE NEXT
READ. FEED, STACKER SELECT R1. CONDITION CODE a IS
EXPECTED FOR EACH COMMAND. EXPECTED STATUS FOR EAC~ IS
CHANNEL ,END AND DEVICE END SEPERATE.
ANOTHER READ" FEED, STACKER SELECT R1 IS. ISSUED.
EXPECT UNIT EXCEPTION ALONE IN STATUS. CONDITION CODE
1 EXPECTED.
OFF LINE TESTING -BYPASSED UNLESS SSWS SAND 8 ARE ON.
A START 1-0 -NDOP-, A TEST 1-0, AND A HALT 1-0 ARE
ISSUED IN SEPERATE TESTS. EXPECT CONDITION CODE 3.
NO STATUS EXPECTED BECAUSE wo DEVICE SHOULD 8E ABLE TO
ANSWER THE I SSUED I NSTRUCTI ONS.
EXIT FROM THIS ROUTINE.
A TEST 1-0 IS ISSUED AFTER OPERATOR PREPARE, EXIT fROM
THIS TEST BY EITHER PLACING 8uNK CARDS, IN THE. READER
OR THE NEXT TEST DECkS. CONDITION CODE 1 IS EXPECTED.
DEVICE END ALONE IS EXPECTED, IN STATUS DUE TO NDT,READY
TO READY INTERRUPT.

•
•
•
•
•
• '
•
•.
•
•
•
•
• '
•
•.
• .
•

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

ROUT II DC
DC
BAL

8AL
RU,IHIO
81l. TO' ISsue HALTil ..O
DC
'X'ItAOO',
,CTRl SWITCHES
DC
X'OJ60'
·TEsT
NUM8EIl
DC
X'FIOO·
EXP CONO·CODE AND SENSE
DC
AL2IeSWo-SECNO+REGJ . -EXP CSW ADDRESS
BAl
RU,ITlO
8R. TO ISSUE, TEST 1-0
DC
X'lt200'
CTRl SWITCHES
DC
x'ono' .
TEST
NU'MI
DC
X'FOOO'
-EXP COND CODE AND SENSE
sve
X'06'
ROUTINE EXIT
CNOP 0.1t

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

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

11

F.10'

• ROUTINE 12 - INTERVENTION ROUTINES
•
THESE ROUTINES ARE 8YPASSED UNLESS SECTION SENSE SWITCH
•
5 IS ON., THE FOllOWING ACTION OCCURS WHEN THIS PROGRAM
•
IS EXECUTED-

• ROUTINE 11 - A READ AND FEED -02- IS ISSUED. NO INTERRUPTS: ARE
• '
CLEARED. THE SA"E COMMAND IS ISSUED AGAIN. EXPECT
• .
CONDITION CODE 2 DUE TO PENDING CHANNEL END. ,ISSUE A
•
HAL T 1-0. EXPECT CONDITION CODE o. ,ISSUE A TEST. 1-0
• '
EXPECT COND. CODE ,I, WITH CHANNEL END IN THE CSW.
•.
ISSue A HALT 1-0. EXPECT COND. CODE 1 WITH A ZEROED
• ,
CSW STORED. I SSUE READ AND FEED START 1-0 AGAIN.
• '
EXPECT COND. CODE ,I WITH DEVICE, END AND DEVICE BUSY
• ,
STORED IN THE CSW. ISSUE HALT 1-0. EXPECT CONO. CODE 1
• '
WITH A 'ZEROED, CSW STORED. ISSUE TEST I-D. • EXPECT
.
COND. CODE o.
•

001816 .
001817
0018lA
00181E
001B22,
001826 "
001828
00182A
00182C
001830
001832
001834 :
001836
00183A
00183E
001B42
001841'>
001848
001B4A
001 BloC
001B50
001.852
001B54 '
001'B56 "
001,B58 '
00lB5C
001B5E
001860
001862
001B6It '
001868 '
00IB64
00lB6C
001B6E

PIN 840186
PAGE
13A

• ,

•
•
• '
•
•
•
• .
• ~
•
•
•
• .
•
•
.,
•
•.
• .
001888'

001889,
00188C'
001890 ;
001B94 ~
001B96
001B97'
001B98
D0189l
DOlB9C
00lBAO
0018A4 .
0018A8
F81~J

13

DATE
EC

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

,12:

OOffFF ,91 04 'F 004
47 '10 :F89C'
OA DO
04 .
00

FEU·
OA 06
4540 F
96 80 F
91 80 'F
·41 80F
05MAY6S
121t252

68C
60\6'

ROUTl2 DC
DC
; TM
Be
SOLONG'SVC
DC .
DC
DC
S~

GOOl

01

E22
808'

10AUG6!J
125510:

BAl
,TM
BC

dFt!866
125621

l!JJUN6l '
130498

X'12'
, X'OOFFFF'
SNSW,X'O,.'
ALL.GOOl
,X'DO'
,X'04'
'X'OD' '
Al2CBVPASS-SECNO+REGt
,X'D6'
.
R4,INIT
SWCH,X'80' .
,lDSW,X'IO'
NONE,NRM

ROUTINE NUMBER
LAST ROUTINE
CHECK SECTION SENSE SWITCH 5
BR- IF ON
PRINT -BYPASSED-

EXIT FROM ,ROUTINE
8R. TO INITIALIZE
TURN oN INTERVSWITCH.
SEE IF ON LOADER DEVICE
8R IF NOT.

1

10
F81lJ,!-3
PAGE
. 13A

,

1_________________---_____. . __-----.. .

,.....
--*.-........'...

. .·. .

IBM 'MAtNTINANCIDUGNOSTlCI'PitOGRAM'

,PIN 840186
PAGE
,14

2540;REAOEit FUNCTION TESTS- :SECTION 1·· FalO '

OOlBAC
OOlBAE
001B80
001B82
001B84.
001BB6
001888 .
00188A
OOlBBC
0018BE
OOlBCO
001BC2
001BC4 '.
001BC6
001BC8 '
001BCA
OOlBCE
001800
001B02
001B04
001808
001BOA
001808
OOlBOC.
001BOE .
OOlBEO
001BE2
0018E4

OA 00
8001
. FEAl
OA 00
2429
. FEAl
OA DO
A03C
FEDO:
OA 00
A040,
FFOC
OA DO
8045
FF4C'
Itl FO :FBOE,
OA DO'
2lt20
fE6A
Itl FO:F CIE
OA 00
Olt
16
FE30
OA DA
OA DO
8001
fEAl

P51

NRM

HLTl

001BE6
001BEA
OOlBEC
C018EE
OOlBFO
00Ulf2
0018F6
001BF8 '
OOlBFA
OOlBFC
0018FE
001 C02
001COit '
001C06
001C08

45 BO F112'
0800 :
0380 ;
FlItO'
F088 '
1t5 BO FOfE
4800 ;
0390 )
FlItO'
FD88 '
45 80 :f'OEA
0800,
0400 '
Fl40 :
FOCO'

001COA
001C10
001C14 '
001C18
OOlCIA
001ClC
OOlClE
001C20
001C22
001C24 '
001C26 .
001C2A
001C2C
001C2E
001C30
001C32
001C36
001C3A
001C3E

.r

'r)
:<-}

D2 07F 'E6F f' E9F,
91 80 FE22
47l0:f BCE
OA DO'
2437 •
fEbO;
OA DA
OA DO.
8001.
FEAl
45 BO F OFE
4AOO
DittO:
FlOO
FDE8 '
41 AD 'F Doe'
41, 600 005
45 80 F 112
3COO:
05MAY65
124252

10.
',- ..)0

In
~J

10AUG65
1255eo

SVC
DC
· DC
SVC
.DC
· DC
SVC
DC
DC
SVC
DC
DC
SVC
DC
DC
Be
SVC
DC
DC
BC·
SVC
DC
DC
DC
SVC
SVC
DC
DC

X'DO' ,

'PRINT A BLANK
.
AL2IRTD1-SECND+REG)
,X'DO'
,PRINT REMOVE· CDS: FROM
X'2429'.
STACKER OF LOADER DEVICE
A12IRTOI-SECNO+REGI
. X'DO'
,PRINT REMOVE REMAINING TEST DECKS
, X'A03C' ,
FROM THE LOADER HOPPER.
AL2IRTD2-SECNO+REGI •
"X'DO',
, PRI NT RUN, CDS ,OUT OF READER AND
. X'A040' ,
PUT THEM ON FRONT OF REMAINING
AL2IRTO~SECND+REGI
TEST DECKS.
'X'DO',
PRINT SAVE, REMAINING TEST DECKS
X'8045' ,
UNTIL A MSG REQUESTS THEM.
AL2(RT04-SECNO+REGI
UNC,HL Tl
BR TO HALT
X'DO'
PRINT -PUT 5 COS IN, RORX'2420' .
Al2(PCIR-SECNO+REG)
UNC,HL Tli
BRTO HALT.
'X'OO·
PRINT -MAKE READER NOT READY' X'04'
X'8001~

X'16·

AL2IMNR-SECNO+REG)
X'OA·
X'DO'
. X'8001' .
AL2IRTD1-SECNO+REG)

HALT TO; PERFORM INTERVENTION
PRINT A BLANK

NOT READY TESTS

-ROUTINE 12-

............................................................................
BAl
DC '
DC
DC
DC
BolL
DC
DC
DC
DC
BolL
DC
DC
DC
DC

RllolSIO
BR. TO ISSUE SID
X' 0800' ,
CONTROL SWITCHES
X'0380'.
,T E S·T
N U
X'F140' .
EXP CONDo CODE AND
Al2IUC-SEeNO+REG)
EXP CSW ADDRESS
RU,ITJO
BR. TO ISSUE TID
X'4800'
CTRL SWITCHES
X• 0390'
, T· E S· T
N U
X'F140'
EXP COND., CODE AND
AL2(UC-SECNO+REG)
EXP CSW ADDRESS
R11,IH10
BR. TO ISSUE HID
X'0800'
CONTROL SWITCHES
X' 0400' .
T EST
N U
X ' F 1 4 o ' E X P COND~ CODE AND
Al2ICSWo-SECNO+REGI

M B
SENSE

E

R

M B· E R
SENSE

M B •E R
SENSE

...........................................................................
• ,
END ,OF FILE TEST -ROUTINE 12•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
MVC
OVLYl81,P5
MOVE -5- TO MSG.
TH
BC
SVC
DC
DC
HUll SVC
SVC
DC
DC
8AL
· DC
DC
DC
DC
LA
LA
NSIO
8AL
DC

22FEB66
125621

(f'))

,tf"~~i

'(,)!

~.Jj

LDSW,X'80'
SEE IF ON LOADER DEVICE.
ALl,P5I'
8R If YES.
X'DO·
. PRINT DO NOPRO,PLACE 5 CDSi IN RDR.
X'2437'
HPR,HAKE ROY, EOF ON.
AL2(DONPRO-SECNO+REGI MSG ADDRESS.
X'DA'
-HALTX'DO'
PRINT A 8LANK
X'BOOl'
AL2IRTOI-SECND+REGI
R11, IlIO
BR TO ISSUE TEST 1-0
X'4AOO' .
CTRl SWITCHES
X'OltlO' .
T EST
N U M B JE R
X'FI00'
EXP CONO.CODE AND SENSE'
AL2IDONLY-SECNO+REGI EXP CSW ADDRESS.
R10,RDFO
PUT ADOR. OF RD FD CCW INTO REG 10.
R6,5
PUT 5 INTO REG 6.
Rll,ISIO
BR TO ISSUE START 1-0.
X'3COO' .
CTRl SWITCHES

15JUN67
130498

,.r't,
!~.J-

·"""'' ' ',...'' 'ti_ _ _ _ _ _...._ _ _ _ _ _ _ _ _ _ _ _ _....._'._'..'_...._ ......_ _ _...._ _ _ _--....,_ _ _~ _ _ "_~"'~'"'" __.'_

: s t r : 1.
m.
et:fl!:·

IdM MAtNTENANCI DIAGNOSTIC PROGRAM

PIN 8"0186
PAGE
l"A

2540'READER FUNCTION TESTS - SECTION 1

.......................................................................
•

DATE
EC

..·';..

------------------~I-~.·"'·
··i!1l.-;.,~"'~""'"·"".""-~ ,!I:i'IIt",...

ID
F81o,.:a
, PAGE
14

{}

,of"'
,Y"

A,

~,J-'

n

,n
V

001Clt0
00lC42
001C4,* :
001C46
001C4A
OOlCItE
001C50
001C52
00lC54 :
001C56 .
001C5A
001C5C
001C5E
001C60

DC
DC
DC
BCT
BAl
DC
DC
DC
DC
BAl
DC
DC
DC
DC

X'0420' ,
TE st· N U M B E R
' X'FOOO' ,
EXP·COND. CIlDE AND SENSE.
AU{NORM-tSECNO+REG) , EXP ISTCSW.ADDR.
R6,NSI0
BR BACK 5 TIMES.
R11,lSIO
8R TO ISSUE START 1-0.
X'2800'
CTRl SWITCHES
X'Olt30'
T EST N U M B E R
X'F140'
EXP CONDo CODE AND SENSE.
Al2tUNEX-SECNO+REGI
EXP CSW ADDRESS.
Rll,lTIO
8R TO ISSUE TEST 1-0.
X'4800'
CTRl SWITCHES.
X'0440' ,
TEST N U M B E R
X'F140'
EXP CONDo CODE AND SENSE.
Al2(UC-SECNO+REGI

............................................................................
OFF LINE TESTS -ROUTINE '12.........................................................................
•

001C62
001C66
OOlCbA
001C70
001C72
00lC73
001C14 .
001C76
00lC18
001C1A
001C1C
00lC7E
001C82
001C81t '
001C86 '
001C88
001C8C
001C8E
001C90
001C92.
001C96
001C98 .
001C9A
001C9C
001CA2
001CA4
001CA5
001CA6
001CA8 '
001CAC
001CBO
001C84
001CB8 .
001CBA
001C8C
001C8E
001CCO
001ce2
00lCC4
001eC8
OOlCCC
OOleDO
001CD4
001CDA
001COC
OOleDE
OOtCEO
001CE2
001CE4
001CE6

DATE
EC

91 80 F 005
41 80 F cce
D2 02 F E52 F E5A
OA DO
21t
lit
FElt6
OA DA
OA 00
8001
FEAl
45 BO F 112
0200
0450
F300
45 BO F .OF!
4200
0460
F300
45 80 F OEA
0200
0470
F300
D2 02 F E52F'E5D
OA DO
24
14
fE46 '
92 AD F CBA
92 AO'F CDC
91 80 F E22
1t7 80'F COlt '
OA DO
A01C
fFCF
OA DO
A03E
FF9l
47 fO F CEO
92 04 F CBA
92 04 F CDC
47 FO f C80
D2 01 F E6F F En
Dol DO
A020
FE6A
OA OA
Dol DO
8001
FEA7

05MAY65
124252

'0""" 'v··
(~,O".'.,··· '0:":'
,' I
I

0420 .
FOOD'
FDEO.
4660 F C3A
45 80 F 112
2800.
01t30
Fl40
FElO
45 BO F OFE
1t800 .
0440
Fl40
FDB8 '

F810

10AUG65
125580 .

TM
BC
MVC
SVC
DC
DC
DC
SVC
SVC
DC
DC
Boll
DC
DC
DC
BAl
DC
DC
DC
BAL
DC
DC
DC
MVC
SVC
DC
DC
DC
MVI
MVI
NMSG ,TM
BC
SVC
F1
DC
DC
SVC
DC
DC
BC
SUMF· MVI
MVI
BC
NOTO
MVC
SVC
F2
DC
DC
HLT2
SVC
SVC
DC
DC

.

SNSW+l,X'80'
NONE,SUMF
MUA+12(31,OFF
X'DO'
'X'24',
X'llt'
AL2IMUA-SECNo+REGI
X'OA'
X'OO'
X'800l'
Al2(RT01-SECNO+REGt
R11,ISIO
X'0200'
X'0450'
X'F300'
Rll,llIO
X'4200'
X'0460'
X'F300' .
Rll,IHIO
X'0200'
X' Oltl0' .
X'f300' .
MUA+12(31.0N
X'DO'
X'2'"
X'l'"
Al2IMUA-SECNO+REGI
fl,X'AO' ,
F2,X'AO'
lDSW,X'80'
NoNE,NOTD
'X'DO'
X'AOIC' .

TEST SSW 8.
BR IF OFF.
MOVE -OfF- TO MSG
PRINT -PUT READER OFf LINE-

HALT TO PERFIlRM INHRV ENTICN
PRINT A BLANK
BR. Til ISSUE 510
CTRL SWITCHES
T EST N U M B E R
EXP CONDo CODE AND SENSE
BR. Til ISSUE TIO
CTRL SWITCHES
T EST
N U M B E R
EXP. CoNO. CODE AND SENSE
BR. TO ISSUE HIO
CTRl SWITCHES
T EST
N U· M B .E R
EXP CONDo CODE AND SENSE
MoVE.-ON- TO MSG
PRINT -PUT READER ON LINEREADYSET UP MSG FLAGS.
SET UP MSG FLAGS •
SEE IF ON lOADER •
BR IF NO.
PRINT REMOVE THE 5 CDS; FROM STKR.

AL2IR5C~SECNO+REGt

'X'DO'
'X'A03E',
AL2IPTDB~SECNo+REG)

UNC,HL T2 .
Fl,X'04'
F2,X'01t'.
UNC,NMSG
OVLYI81,AB30
X'DO'
X'A02D'
Al2(PCIR-SECNO+REGI
X'DA'
X'DO'
X'8001'
Al2(RT01-SECNO+REGI

. PRINT
:
8R TO HALT.
SET UP M5G FLAGS.
SETUP MSG FLAGS.
BR TO MSG.
MOVE -ABOUT 30- TO "SG.
PRINT-DO NOPRO. PLACE,BLNK,CDSI IN
HPR. MAKE RDY,EOFON.
HALT TO; PERFORM INTERVENTION
PRINT A BLANK

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

22FEB66
125621

,',;
':':'."
0

15JUN67
130lt98

10.
(J

10

, PAGE

0·',

o

o

FU~I

14A

()

o

;·
0
",

.

•• 00000000000000000
.,

.M
.j

PIN

,PIN

140116

,PAGE

ISM MAINTENANCE DIAGNOSTIC PROGRAM!

. PAGE

laM ;MAlNTENANCE DIAGNOSTIC PROGRAM"

'''0116
15A

15

2540 READER FUNCTION ,TESTS .. SECTION' 1

FllO

2540 'READER FUNCTION TESTS ~ SECTION 1'. FII0
NOT READY TO READY"TEST " -ROUTINE 12•...........................................................................
00lCEI
001CEC
00lCEE
001CFO'
001CF2 .
001CFIt

8Al
Rllt 1110
8R. TO ISSUE TlO
DC
X'OAOO'
CTRl SWITCHES
O C X ' 0 4 8 0 " T EST
N U' M 8·E
DC
'X'FI00',
EXP CONO. CODE AND SENSE
DC
Al2IDONLY-SECND+REG) . EXP CSW ADDRESS
SVC
X'D6' ,
ROUTINE EXIT

10' SO F OFE

OAOO
0480 .
F100 .
FOE8 '
OA 06'

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

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

.•
001CF8 '
001000
001008
001010
001018
001020
001028 '
001030
001038
00101t0
00101t8
001050
001058
001060
001068 .

001070
001071t '
001078 '
00107C
001080 '.
001084
001088 .
00108C
001090.
001098 .
00109G
0010AO
0010AIt .
0010A8 '
0010A.C
0010BO
001084 .
0010S8
0010BC
0010CO
0010C8
0010CC
001000 .
001001t .
001008
00100C
0010EO
0010EIo :
0010E8
0010EC
0010FO
0010FIo '
0010F8 '
0010FC
001EOO
001E01
00 1 EOIo
001E08
001EOC

R

03001140 :1t000 :0001
08'001CF8'0000 0001
02 00171t0 0000'0050'
030017100.0000'0001
C6'0017100 0000 004"
C6001740 0000 0051 .
25001740 '0000 009F,
Z5 001740 0000 OOAI
CZ 001740 6000 '0001
CZ 001740 6000 0001
C20017400000 '0001
23,00171t0 6000 0001
23.001740 0000 0002
23 0017100 0000 0003
C6 0017100 0000 0050

00001020
OC400000
000010Z8
OC400001
00001030
OC400000
. 00001038'
OCltOOOOl
0000000000000000
00001090.
OCOOOOOO
00000000
10000000
00000000·
04000000 :
00000000 '
14000000 :
00000000 '
02000000 ~
0000000000000000 ;
00000000 ;
04000000 .
00001698 '
OCOOOOOO
00000000 .
OCOOOOOO;
00001010 :
08000000 :
00000000
04000000 :
00001048
OEOOOOOO
00001060 .
OZ000002
01
001740
00000050,
00001070 :
OCOOOOOO

'X'03',RDAR,X'40',l
'\ X'08',NOPTRN,X'OO',l
,X'OZ',RDARtX'OO'.80
READ AND. FEED·CCW.
. X'03',RDAR,X'OO',l
.X'C6',RDARtX'OO',79
SHORT COUNT READ CCW •
'X'C6',ROAR.X'00',81 ,LONG· COUNT READ,CCW.
WRITE CCW.
X'Z5',ROAR,X'OO',l'" SHORT COUNT WRITECCW.
X'25',ROAR,X'OO' ,161 ,lONG· COUNT
X'C2',ROAR,X'60',l
X'C2',ROAR,X'60',l
X'C2',ROAR,X'OO',l
,X'23'.ROAR.X'60',l
X'23 1 .ROAR,X'OO'.2
X'23'.ROAR,X'OO',3
X'C6',ROAR,X'00',80
DIAG.CHKRD·CCW.

...........................................................................
•..............................................................................
EXP,CSW AREA
RSCSW

DC,
DC
RlCSW DC
DC
WSCSW DC'

AIROSH+8)
X'OC400000'
AIROlG+8)
X'OC400001' ,
AIWRSH+S)
~C'
X'OC400000"
WlCSW DC.
AIWRlG+8)
DC
X'OCIo00001' ,
R12CSW DC
Xl8'O'
DC
AIR12CSW)
DC
X'OCOOOOOO' ,
D811
DC
Xl4'O' ,
DC
X'10000000'
DC
Xl4'O' '
DC
X'04000000' ,
D8lY
DC
Xllo'O'
DC
X'14000000'
DC
Xllo'O'
UC
DC
X'02000000' .
. CSWO
DC
. XlS'O' ,
DC
Xl4'O' .
DC
X'04000000' ,
SNSCSW DC
AllSENSE+8) :
DC
X'OCOOOOOO'
NOPCSW DC
XL4'O'
DC
,X'OCOOOOOO',
NORM
DC
AIROFO+8) .
DC
X'08000000'
OONLY DC
. Xl4'O'
OC
. X'04000000' .
SEQCSW DC
AIRNOH16)
DC
X'OEOOOOOO'
REJCSW DC .
AIFNOR+L6)
OC
. X'OZ000002'
INVCCW DC
X'Ol'
DC
Al3IROAR)
DC
'X'00000050'·
DCRCSW DC!
AIDCRD+S)
DC
X'OCOOOOO O'

INVALID 'CCW.

,10

DATE
EC

,';

.~'

05MAY65
12425Z

10AUG65
125510 '

22FE866
1215621

15JUN67 :
130498

, PAGE

IL4'00" ,

00000000
01000000

UNEX

OOlE18 '
001£1C
001E20
00lE22

00000000 .
00000000 '
0002
00

RDR
DC
F'O' ,
PCH
DC'
F'O'
H2
DC
. )('0002' ,
LOS"
DC
)('00' ,
SWITCHES.
..........................................................................

DC
1'01000000' ,
...........................................................................
•
CONSTANTS
.
.'
.............................................................................

• .

MESSAGES
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

. CCW AREA

NOPTRN CCW
. CCW'
.CCW
RDFO
CCW
CCW
ROSH . CCW
CCW'
RDlG
CCW
WRSH
CCW
WRlG
CCW
RNOF
CCW
CCW
FNOR
CCW
CCW
CCW
DCRD
CCW

DC

00lE10
OOlE14 '

'

00lE23 '
oolE2C
001E30
001E39
001E40
001E1t6 "
001E4F
001E56 '
001E5A .
001E5D
001E60
001E69
OOlE6A
001E6F'
001E78
001E7f'
001E88 .
001E8F
001E97
001E9F
001EA7·
001EBO
001E87
001ECO
001EC7
00lEOO:
001E09
001EEO
001EE9
001EFO
001EF9
00lFOO
0011:09
001FOC
001Fl5
001F1C
001F25
001FZC
001F35
001F3C
001F45,
001F4C
001F55
00lF5'
001F65·
001F6C
001F15
0011:1C
001F85
001F8C
001F91 '
001F9A
001FA1,
00lFAA
00lF81.
001F8A
DATE
EC

40D9E3D540C2EBD1Cl
EZE2C5CIt
ItODltClD2C540D9C5Cl .
CItC5D940D5D6E3
4009C5C1C4E8
4007 E4E31tOD9C5C lC4
C5091t006C6C640
03C905C5
D6C6C6
060540
ItOC4D61t005D6D1D9D6
68
4001E4E340
C1C2D6E4E31tOF3F040
C203050240C3C4
EZltOC90540D9C4D968
D4C1D2C51t0D9C4
E868C5D6C61t0D6D'
C1C206EltE31t0F3FO
40401t040F5404040
4009C5D4D6E5C540C3
CltE21t0C60906DIo
40E2E3C1C3DZC5D91tO
06C61t0D306C1C4 .
C5091t0C4C5E5C9C3C5
4009C504D6E5C540E3
C8C51t0D9C5D4C1
C905C905C71t0E3C5E2
E340C4C5C3DZE2
68C9C640C105E86840'
C6090601t1t0E3C8
C54003D6C1C4C5D940
C80109
100C4061t005D6D709D6
40C105C4400703
C1C3C540C3C4EZ40D9
E4051t006E4E31t0
C90540C609D6D5E34G'
D6C64009C504C1
C905C905C740E3C5EZ
E31t0C4C5C302EZ
40E2CIE5C540D9C5D4'
C1C905C905C740
E3C5E2E340C4C5C3DZ .
E240E405E3C9D3
100C14004EZC74009C5
08E4C5EZE3E240
E3C8C50440E30640C2
C54007E4E340C9
0540C80709
4007E4E34009C5DltCl .
C905C905C740E3
C5E2E340C4C5C3D2E2
40C905E30640D9
C40940C8D70940CID5
C44004C102C540
05MAY65
124252

10AUG65
125580

8YPASS DC

C' RTN 8YPASSED'

MNR

DC

C' ,MAKE READER NOT'

MUA

DC
DC

C'READY' ,
C. PUT READER OFF, •

DC
DC
OFF
DC
ON
DON PRO DC

C'LINE'
C'OFF'
C'ON '
C' DO NOPRD,'

PCIR
OVlY

DC
DC

C'PUT '
C. A80UT 30 8LNK CD ~ .

DC

C'S. IN RDR,MAKERD',

DC
DC
DC
DC

C'Y,EOF ON' ,
C'A80UT 30'

DC

C. STACKER OF lOAD'

DC
DC

C'ER DEVICE'
C' REMOVE THE'REMA',

DC;

,CUNING, TEST DECKS' '

DC

C',IFANV, FROM'-THO ,

ABIO
PIS

RTDl

RTD2

RTD3

C'

. CIE LOADER HPR" .

DC

, C' ,DO NOPRO AND PL' .

DC

C'ACE CDS RUN OUT ' '

. DC

·C'IN FRONT OF:REMA',
C'INING·TEST DECKS' \

DC

.Ct SAVE,REMAINING "

DC

·C~TEST

DC
DC.
PrDB

22FEB"
125621

'

DC

DC'
RTD" ,

5

C' ,REMOVE CDS; FROM' ,

DECKS UNTIL"

C. ·A MSG REQUESTS •
,C~THEM,TO

8E :PUT:I"

DC
,DC'

,C'N'HPR'
C'· PUT ·REMAINING.T' ,

, DC

CIEST ,DECKS INTO R' ,

DC

'. CtDRHPIl ANDMlKE •

,15JUN61,
150491 '

i 10
,ltAGE

'1l~1

"ISA

tt

Jm

em

,"" I

. IBM 'MAINTENANC& DIAGNOSTlC.;PRDGRAM:

ItiN
IPAGE

840ua
'16'

• IBMMAINTENANC& DIAGNOSTIC"PROGllAM

D9C4094009C4!16BC'·
06t6400605·
4009C50406E5t540C2
03050240e3e4E2
40C6090604400ge!lel:
elte5D9
4004el02e540e405&5
ege3e5400ge4E8 .

.50

. DC .

'C'RD'" RDY,EOP .'ON' .

' DC

,Cf'REMOVE"BLNKCOS'

,DC

; C' .fROM,.READER' ,

' DC

I
I
!

oooooe'

OOOOOA
000080.
000181
OOFOOO'
00005A
000000 .
000001
000002
000003
000004 :
000005·
000006
000001 ;
000008 '
000009·
OOOOOA
000008'

I
1

I

ii

oooooe

000000
OOOOOE
OOOOOF·
000198
00001t0
00001t8
OOOlAO'
000189
00018e!

REFERENCES TO DEfINED SYMBOLS.

i

' C'MAK& D&VICE; ROY' '

,· •
' EQUATES
.
NEVER 'EQU
0
Nceo; 'Eau' ,7
UNt
' Eau' : 15
NONE, Eau
8
SOME 'Eau' . It
ALL'
. Eau, 1
ANV, 'EQU' 5
· teo'
EQU
8'
eel
Eau' , 4,
· eC2
'EQU
2
ee3
EQU
1
· Ea
EQU
8
,lO
Eau' 4
HI'
'EQU
2
UNEa ' EQU ,6'
EQlO
EQU
11
' EaHI· ,Eau' 10
, lOGOUT Eau'
SVSMOO EQU' 'X'lll.'
REG
Eau 'X'POOO"
WHAT, ,EQU
90 :
RO
EQU '0
Rl
Eau ' 1
R2
EQU
2
R3
EQU' 3
Rit
EQU' ·4'
R5
EQU· 5
R6
'Eau
6
R7
EQU' 7
RI
EQU' 8
, R9
Eau: 9
,RIO
Eau
10
R11
EQU
11
R12
EQU
12
R13
Eau
13
R14'
Eau
14 '
R15
'EQU
15
WT'
EQU' 408
HCS.. , Eau
64'
HeA..
Eau' 72
OMSS.. , Eau' X'OlAO'.
OMIOL EQU' 'X'0IB9'.
OMPT" Eau', X'OlBe~ ;
END
ROUTOI '

2

4~

1

5
6'

R5,
116

1
" J,

7:
8'

1t7 '
R8 '

1

9·

R9

2:
2'
2
1,
1
3
8'
1.
1
1
1
I,

• ................................................
.
..,

~

1;

"

,X',,'.

4'
1
1

lDB8
198 '
1

1
4
1
1
1
1.
8'
8'
4:
2
4;
2

5
1048 '
8'
4'
2

1;

DATE

05MAY65
124252

10AUG6S,
125580 ' .

I2FEI6'"
125621

l!1JUN67 '
n0498 '

190e
'8 '
1CBA
lcoe
1E20
2
4:
lE50
1E9F
0
1
2
3

es
&Q
F1
F2
H2
HI .
lO
ON
P5
RO
Rl
R2
U
Rit '

1

'

4'
16
16
16
2
3,
2
4:

Et i

110: 'PUQ;o,
i

PAGE

16

fl10

, POST (ASSEMBLY ,.DATA•

I

,

000000 .
000007 ;
OOOOOf'
000008 '
000004 '
000001:
000005·
000008 •
000004 •
000002 .
000001
000008 '
000004' .
000002
000006:, .

'PIN '40116
PAGE
16A

2540 REAOER. FUNCTION TeSTS '- .SECTION 1

.........................................................................................
......................................
MDR

I

l

2540':READER fUNcnON :TESTS ;";SEc:TlON'(l:: 'UO' .

00lf(l.:
OOtFtA:
001ftf'
001F08 .
001FOF
001FE8
00lFE8·
001FF4 ~

t

DATE

EC;

05HAV6S
124252

1
1010 :
1040 ;
180E
100A
1186
10E8 '

1566 '
1FE8

IUD

lE46 '
1808 '
1E5A
18CE,
lE1C
A:

UC:
.. T
ALL

1904
1362,
1eA8,
leAe,
16FO

19A6. , ltCO

1e9C
leOA

1988,
171E,
1950,
LAEO,
1558,
l6E4,'
1990.
lC36,

198C, 199A, 19CI
1800, 1824,' 1154, 1811,
1984, . 1996, 19BA, 19C4,
LAF8, LAFe, . 1800, ' 18lA,
1130
16E4,' l6E6, 16EA, .. 16Ee,
1990, 19ge, ltAA, nlA,
le46 .

112e,
1358.
1478,
112e,
126e,
149A. '
19E2,
1186,.
114A,
12FA,
LA88,
1550

12eA,
1386,
156'\
1186.
12t2,
14B2,
lBFO,
1206,
11E6,
1376,
lB90,

ANY
CAW,
ceo
1192,
CC1
1184,
ee2
1188
CC3
1716,
etN'
eSN
GTN
leH
IHI ' : 116A,
ISM'
119A,
121E,
1292,
134e,
1534,
!UP ; 155E
HOR
1574.:
HNIt
IBoe
MUA' leu,
NRM
lBAS
OFF ' leu
PSI " ,lC14
peH ' . 1600,
RIO
1128,
' 1548,
l8ee,
1954,'
lC32

10AUG65
125580

1196,
1CCI
Ieee

22FE~66'
125621

1894,
1ge4,
lB9C

ilE4 •
Ule

16FO, . 1"4 :
1900 '

. 19Ae,

ueE,
138A,

1332, ,1336,
l46e, 1470.

1354,
1474.

118A,
12e6,
14tA,
18Fe.
12t2,
llFE,
138E, '
le14

1196.,
12E2"
U6A,
1C60
lAF8.
1236,
139E,

1206,
1412,
1836,

120A, 1216 .
1440, 1482
lB3A, . 183E

1836 '
128E,
1306.

12AE,
U58,

187e.

lAIC, ' lAf4,

1804 '

1354:
11.74

12EE
1704 '

1180
12DE,
l11A,

117A
119A, 11AO,
122E, 1232,
12A2, . 12B2,
1366, 1372,
1554, 1100,

1106, UF6. 1202,
1240, 1210, U7E,
12EA, ' 12f6,; , 110A,
1486, 14B6, 14D4;
172C, 1'134 ~

1I0E

128,\

13ZA
152e

1580
le74,

lege,

180E,
1136,

18BC·
UFO,

14OC,
1858,
1908.
19E4': , 1A80.

lllA, 1828,
18EB, " 18F8,
19ce,

leu

1416, 141e,
1898, . 18A8 i
1918, 1928,
1AE4_ 1804,

14lE
1888
1938'
181&

15JUN'7
130498

110
fUO;o.
,'PAGE
'16A

,.
~

",-_J!

Il-.

V

,"'-'.
,y

0000000000000000000000000000000

--000000000
-" t

,W$

C

I

o

0·'·· ; 0···'\
;"

.'

0 ·, 0'" 0'" 0" 0'" C" 0" 0
,,',

e:

,i

.

,:!

'. ' J , ; , ) ;

111

b

'-

.'

It·

:,J

",'

0000'

"b

o o

1
,

PIN

IBM MAINTENANCE DIlGNOSTIC;PROGRlM'

PlGe

140116

11

8

C'

1
1

0

I

E

1
16
4'
1,

,,~

6 "
1:

I'

4~

It,
8'
4'
4:
8
1
1,

I'
4:
It'
It:
1
1
2
2
16',
3,
6,
12,
3
1,
3,
It'
3·
4'
2

F
lFCF,
lEl8 '
FOOD ;'

1996 '
19BA
F,

lE97 ,
1942
198C
lOCO
lOAD
lOBO
1068
A
C,
1050
1888 '
18ge
U81!
48
40,
18DE
ICED
17EO
1607
1318
1508
15EA
1430
15E7 :
lit86 '
160A
10EA
168C

It:

DATE
IC:

05ttAY6S
124252

11F6

Rll :

1122, " llZI,' '1146,
12U, 130E.' 1311,

U8l, '
: 146C.
1566,
185e.
18Ee.
1908,
lACC,'
IB58,
lC26,
ICES
115E, .
R12
12DA,
16oe,
1136,
RU
168C,
Rl4: 1140,
168E,
R15
123A,
R5C
lC8C
ROR
16DC
REG
125A.
1452, '
1580.
18CA.
1946,
lABE,
186E.
18C8,
lC1C,
lC7C,
19CO,
SlY
; TOT i 19C8
10FA,
UNC
1222.
1422,
19F4,
1CD4 '
A830
ADDI
1986
8Y2C
lA06,
CSWO
OBll
lAl6.
DBZY, 1812,
DCAD
1908.
EOHl
fOLD
FNOR , 1918,
G005
G007 , 1890·
GREG
1196
HCAW', 1136,
HCSW, 113A,
HLTl
IBCA
HLT2 ; lCC4
HUNG
172A
IACT, 1266,
18SN
1246.
I tAW < UFO, '
ICCW' 1402
' ICNT \ 1262.
ICSW, ' 125C,
1010 ' lltA2
IfXP, 1"66,
lACC,
IHIO
IN IT i ' 1800,
' 1984,'
INOW " 114A.

lGlOG65
125580. :

22FE866
125621

138C,
149E.
156E,
186a,
18FC,
19E8,
lAea,
lB64,
le3A,

nCE.
14&E,
la04,
1180,
190e,
lA90,
lB08.
1810,
le4A,

116E. 111£.
1578, 16C8,
16F4, ' 180E,
113A, 113A,
168C, 16C6
1140, 1186.,
16E6, 16EA,
1248, 1278,

IBM MAINTENANCE DIAGNOSTlC'PROGRAM
2'40'RElDER FUNCTION TISTS'- SECTION 1

11FA, ' 12a2
13AZ
U&E, 1302, 1442, ' 145E
l"A •• 1562. 1562. 1566
1812, \ 1I2C, 1a36, 1a42
189&, 18AC, lICO, 1800
191e. 192C, 193&, 1958
lA9C, l.u8, UM, lAeo
1822. 182e, ' 1842, 1II4C
181C. 18E6. 18F2, 18FE
lC56, lC7E. 1C88. lC92
nDA_ 'UEl,

i

118E.
16CC,
188C
1100.

llAC.
1600,

1226,
1604,

1202
1608

12eE,

1302,

1548

1206,
16EE,
16C6 '

12C2, ' 14F8,
llF8. 11136

.U82
nee
14CE
129A
1112 '

6
4
4

127. ' : ISY2
12E2 , ITIC
10FE. ITIO

4'
6
6
1
1,
1,
1,
1
4
1

11C4 :
1248 '
119A
lE22
lU3
lU4 '
7
1000
le80;
8

ITWO
1U10
JOHN
LDSW HSKI:
HSK2
NCCO
NIOU
NHSG
NONE

4
6
4'
16
5
16
1

IDEO;
1CD4 '
lC3A
1E6F;
lEU'
lF91
17ltO

NORM
NOTO
NSIO
OVLY,
PCtlt
PT08 '
ROAR

8
8
8'
2
8
16
16
16,
16
1
1
4

1008
1020
1018 '
1570,
1038
lEA7
lEDO
lFOC
lF4C
16A5
100C,
1004 '

RDFO
RDLG
ROSH
RDYM
ANOF.
ATDI
RTOi
RTD3
RT04
RTSY
SOHF
SNSW,

t
6
3
4.
1

4
13A2
1050
lCC8 '
16A6
10£1 ;
10E5,
6
lElO
5A
1590 :

SDHE
SPRT,
SRET,
SUHF
SWCH
U10P
U20P
UNEQ
UNEX
WHAT
WORK

1500,

13CC,
14F6,
1840.
18F6,
19E2,
lAD6,
1898,
180C,
1C30.
lCBC,

13E6,. ' 1400, 143E, 144C
152A, 1!I40, 1546i 1574
1866. 181A, 18A6, 1886
1906,. 1916., 1926. 1936
19F2, U9A. ilA6i U82
tAF2. lB12i ' 1856i 1862
1880, lB86. 188C. 18C2
18E4. ' 18FO, lBFC. lC08
le44. lC54. ' 1C60, . le74
1CC2. lCOE, lCE6i lCF2

110E.
12lt4,
1440,
1BCA,

1162,
1214.
1531.
1BD4,'

1182.
1296,
156E,
ICC",

1862,
lABE,
186E
193a,

lInA,

lC08

19E4.

1E08

11CO.
12E6.
1582,
lCOO

12lA.

1241,

'
.
'
'
,

llC8, ' 11EE
12F2. 12FE
111E, 1738

1218,

1302

1

148E.
1286.

UFI,
1401.
lit 54 '
14A6 '
1842.
1824,'
tAlC,'
lleo,

INTJ '
lONE
IPAS
ISEN

1510,

'

10FI

l5ltl
1100,

4:
4
6
4
4

132Z, ' 1332, ' 1344,

1384,
14E8,
112A,
180A.
1962,
lACA,
187A,
1B02.
le24,
1CA6,
19F4

12CE.
113A.

I,
1
4'
1:
1

148£
128E. . 12ft
13FA. :1400 '
14'A

1858, ' 1870,
185", 1878,
llEO. 18lA,
llCI. ; 110E.

1!I.JUH61 "
130498

PIN
PlGE

2540 :RElOER FUNCTION ,TESTS,.. ;seeTlON,' 1 : FIlO;,

1,

"

IBfE, lC92
1894, ' 18E4,
l89C
llE6. llEE

"-

1950

110
,PAGE

f81~3

'11

DATI!
Ee

'8 '
8'
4'
4'
1
1
1

1030
WRLG
1028
WRSH
1700 IIlOOP,
1978 ' eHNST.
18" OHIOL
18C OHPTR
lAO; OMSSW

OSMAY6S
124252

,10lOG"
125580

8401. .
IlA

FIlO'

1244

1184
148A
liFE.
182e,
18EC.
1908,
1808,
1C7E
1236
1306
1804.
1B7C,
1188
122A
1152.
16EO,
1212
12lA
1172,

1222,
185&,
18FC,
19EI,
1822,

1216, 12 Ie
UIO, U9C,
190e, 191e,
lA90. ' IAlI,
1112e, 1864.

lIAC,
192e,
U1l4,
18E6,

lICO,
193C,
ueo,
lC3A,

1812,
18F2,

1136.
lC26.

1842,
lC!J6"

1868,
lC8I.

lA9C,
lCE8

1192
16FC.

l1lA4.

1C10.

lC80

1206,

1306

U5A,
1286,
141A.
155E.
lAB2,

116A.
128E,
1462,
16C2,
lACA.

1174,
1326,
148A,
1986,
IAF2.

1l0E,
132E,
14A2,
18A8,
1856.

Ie DO
1152,
12A6,
137E,
1530,
lA9A.
lC84
lC46
lCOA,
1802.
1CC2 '
1708,
1010.
1048.
lA80.
18A8,
1898.
1396.
18E8.
1880 •.
18BC
18C2
18C8
IUD,

1720

114E,
188e.

1156, ' 1166,
1e62

J

1800 '
1958
UEa
lC4A

184C

1286, ' 129E
1348, 1350
148A, 140a
lC66, lCB4 '
lC44 :

1C04
1CDE
noc. ' noe,
1018. 1020.
1050. ' 1058,
lAE4, ' 181E.
1078
1070
139E
lDFO
1886, l11E4,

1968,. , 1970.
1028. 1030,
1060, 1068.
le32. IDEO

lCF8.
1038.
lEOl

IDOl
10"0

lC2'"

le7e,

leE6

1176.

U7A.

154C.

U14'

14FC,

16FI

138E
lC66
138A,

1712. ' ll1AO

122A.
lC54

1314.

131E.

1340,

lIEe,

124&.
147C.
150C.
18CC.
1888,
16F8.
1962,
16E6
16EA

140C, ' 142A.
1494, 14AC.
150E, 1514.
1088
1080
lUI
1978

142C.
14Ae,
151A,

1421, 1434_ ' 147e
14&4, ' 1500. l50A
1520

22FE866
125621

1!IJUN67,
n04"

; 10' I'8I~J
,PAGE
17A

-,_.&#

M.

PO

~i

, Err

t

tt

it.i

"

It,

. *3 M'ms'-

rt

* ..

jUt' .

"

nil

iiti·

... ...,."'-."-"" ....

Ii'

-

..., . -........

~,.

,
!

I

II

IBM ,MAINTINMCI OUGNDSTlC,:PROGRAM

251t0, READER FUNCTION, ,TISTS, ... :SECTlQN 1 "

!
i

10Ea .<
19F8'
100E,
lOOP.
lClE ,.
15ED '.

4~

I

i

2

1
!

I,
2'
16 "

I:

!

8'
4,
4 ~
4'
16
4'

",

4~

4:
5
S'
6',
16 '
16 '
4'
8'
4,
4 '~
4,
16
4:
4
4,
1
It·
4'
It,

.

4'

I:

1
4!
4!
13·
8'
I,
It,
4~

10
5
8'
6 "
11
10,
6,

f.'

DATE
EC

,f-,
1,-))'

o

DONLY ,'J
FINIS' ,
FUG1
FLAG2
HLTU; ,
IBLAH ,

F~l,O

05MAY6S
124252

10AUG6S
125~80

IBM MAINTENANCE DIAGNOSTIC 'PROGRAM:

22FE866
125621

PIN 140116
,PAGE
III

251t0 REAOIR'FUNCTION nSTS.-SECTlON 1

lC50, , lCF2"
1916

1804'
USC. 1266,< UOh'l42&" 1434.
1466,' " 148E, '14", IIt8E'
1426 ICOUT I , 126&, ' 1411. ;; 1482"
1UA, \1482,
167E, leswl '1100, 11E2, lUA, 12AA,' 1331,
1494:
1278,. , 128A, ' USC, 13!5C, ' lltelt '
1686 " ICSW2
152C ICUIO ' 14FC
1486, 10101 ' 1462,
116E, IHANG , 1182
15e8, IUNK l 138C, 13e4~ , 13e6, UtC; 1!146
12DE,
1302 ' IL01(E
115E lLOOP, ,10F'':, 1102, ' 1116
1366 ' INDER
1206, ' 12EEt 12FA, 1311t, ' 131E,
1350
1010 : INPSW·
16AO' 10ADR ,13DE
1454, 10CSW, 1306 '
1623 ' 10LOG
150E, 1514, 1!I1A,
1520, 1!I2A
1648 ' 10P11
10EE, 1106, ' lilA, 151t0
14F8 ' IPASS
1408
112t, ' 156A
1588 ISAVE
llAC ISSUE
10EA, 10FE, ' 1112, 13EI, 1610
1156 ' ITRYl
1162, 1172, ' 1550
1166 ITRY2
115A
16A7 : IUNEX
1254,' 1251
1206 IWAIT ' 1296, 1538
llF2 IZERO
1180
16Ct, 1608
173C MOD50
0 NEVER
1078, RLCSW
1886
1070. RSCSW ' 18A6
1000' SECNO, 1130, 1252, 1251t, USA, 13AC,
13e4, 13C6, 13ee., 13DE, 13EO,
13FA, 1400, 142A, 142C, lIt3E,
14EO' 14E2, 14E8, 14EE, ' 14FO,
150C, 152A, 1540, l!546, 1571t,
' 172A, 17PO, ,1821. 1840, 1851,
188A, 1891, 18A6, 18B6, 18CA,
lSF..-, 1906, ' 1916, 1926, : 1936,
1962, 1981, ' 19E2, 19F2, lA79,
lA82, 1A8E, lACA, lA06, lAOO,
1817, 1856, 1862, 186E, 187A,
1886, 188e, ' 18C2, IBC8. 1802,
lBFO, 18Ft, ' 1eOl, lelC, 1C21t.
1e54, lC60. 1C74, lnc; lCA6,
lCDE .. leE6, lCF2
lS0lt' START;
IDEO' UNl'n ; ; 1604
10EIt' UNIT2, , 16C8
180A
1088' WlCSlI,
1080; WSCSW, 18CA
1898,'
1E238YPtASS
1965 'CHNNOP . 18F8, 192a, 1954
u n eN08YT' 1992, 199E, 19A2, 19AE, 1982,
U53 COlBlN
1 E08 OCRCSW', 1916, 1946, 19F2
1E60 DONPRO
lCle
1058 eXNPSW,
lOIS EXOPSW
1720 HANGUP
1704
161S IACSNS
llA4,' 130E, 1392. 14EE, 14FO,
1582 IACTce
llAS, UBC, nCIt, nce, llF2,
1442 ICCOUT, 13EC, ,141A

2
a'

~i.':

;P/N a40186
,PAU
. la

t

' 143E,

1451t

' 14CA
153A,

139A

6'
6'
6
6
6,
It:
It
10
11
6'
1:
1

,.:'

6 ';

' 132E,

4'
4'
4,
1
15,
4'
8
2
4'
4

1340

4

8'
8'
4'
9
1
8'
8
It'
It'
8'
8'
8
8
4
1
1
I,
I,
1
1
1
1
1

' 13AE, 1381t '
' 13£6, 13FI'
144C; 1452
14F6" 150A
1580, ' 1720
1866, 1875
180A, 18E1
1946, 1940
U9A, 1AA6 '
lAF2, 1812
1898, 1880
180C, 18E4 '
le30, lC44 '
1CBt. let2

I,

1
1
1
~

4'
2
B'
S
1
2

198A

2

4'
1.

lltF6,
1318,

1690
1452

15JUN67 .
130498 '

110

1

12AI,
12FE,
144C
11tE0,
110E
1382
13a6

1900
110A,

1110
1362
14£2, . 14EI

1UE,

13EO,

182a,

1asa ..

1000

13A2,
1140,

13AC.
1500

13AE,

1906,

1936

13E6

1252

lI81t!

1FF8

199A
1866

NO ERROR DETECTED: IN AIIOVE ASSEM8LY

l'AGa

0000.000 000

1331 ICCSWI
1336'
135C ,ICCS-W2 ' 13sa
11t7C 'leHNGl, 1470'
1ltAt ICHNG2
1478
140e leWOUT
Ilt22
12e2 100SNS
1291,
1361 lDUNCK
12F2,
15A8 IExpee
1442,
1600 IEXSNS
14eE,
1122 IEYEOH
10FA,
1382 IFLAGI ; 136A,
153E IFLAG2 ' 136E,
155A ILEAVE
137E
1500 ILOGEO
1274
149E IMORST, 148A
1326 .
12EA INOEXI
12F6 ,INOEX2
1348
lEaD INvecw,
19CC,
158C 10ADDR
10F2.
1078 10NPSW
1038 100PSW' 1226,
153C 10POUT
1530
138A lOUT IT ' 1376
1226 IRETRN
107C
1136 'IRETRY
1582
1690 ISENSE
12CA,
1698 ISLAVE
1128
12DA ITIOLP
12E2,
163F ITSTNO, 1122,
80 lOGOUT \ 1140,
1070 :MCNPSW '
1030 MCOPSW
16e8 NITWIT
16C2
1008 NOPCSW,
188A,
1eF8 NOPTRN
1000
1068 PGNPSW
1028 PGOPSW,
1090 R12tSW,
1098
10F8 REJCSW
1926
17FC ROUT01
IOU,
1820 ROUT02
17FO
1850 ROUT03
1821
1874 ROUTO",' 1851
1890 ROUT05
1875
18EO ROUT06
1891
194C ROUT 07 , 18U
1980 ROUT08
1940
lA78 ROUT09
1981
lADC ROUTlO
lAn
1816 ROUTll
lAOO
188S ROUTl2
1811
lAn SAVCNT
198C,
10FO SEQCSW' 18F6 '
1000 SNSCSW
1840, '
1894S0l0NG
lA88
1060,SVNPSW
1020SVOPSW'
181 SVSMOO
14F8 '
10E2 UlAOOR
10E6 U2AOOR
19FA VAL COM ' 1996 '
1000 XF8103

FalO

F81~3

18

DATE
EC

OSMAY6!S.
124252

10AUG65
125580 '

22FEB66
125621

UJUN61,
' 130498

liD
,PAGE

F81Q,-3
,lll

00000000000000000000

'.~
I'~

~

_000000000000000000000000000000000
II

.. "........ . ,_.,". '".............,. . . .........._,___....""...."......., . . . ._e""__...·_,_'idW'.•
~

~_._

~ ......,..-; ... _""""' ... ~i ........ ,. ,~: ....~""',_ .......... ~_1Wiw

I
J

'18M:MAINTENANCE DIAGNOSTIC PROGRAM

PIN 140116
PAGE
'191

FI10: 2540 'RO FUNCTION SEC 1

F810. 2540 RD FUNCTION SEC 1

I

PERIODS CORRESPOND TO 8LANk COLUMNS.
COLS.

1 THROUGH 20

41 THROUGH 60

B045kG5AJAEA4WAOJDGA
-9 I 9 QVVIQ.9-+Y9IY.
9
9

4BAkAHG04DBEII030019
UYY91 IIQ
9
999

AAAAAAAAADAAAAAAAAAA
VYVVVVYVV9VVVYYYYYVV .
999999999 9999999999

AAAAAAAAAAAAII030003
VVVYYVYVYVVV
999999999999

8TXT.AMY •• AI •• AAAHEA·
9'
V99' V9, V9V99Q

EAKG525AkG5C5HBOJK5N
9Q 9
Q 9 Q-8-VB V
I
999

G9KA5NADBOJ85QBOJB5B'
9 V VQ98-VI OI~VI O'
909 9 99-

k85D5X8k45AHI1030020
9 V -I 1-9'
999

...•.•.•...•..

• ............... 1030004 .

BTXT .. A~ •• AI •• AAAAGA
9
V9
Y9 V9QVZY.
9
9
9 09

4FK86D6BHCAF.A4AAHAH
09'9 B1VV9 V VIOV'

.A4AKG5A5AEA4WA.OYGA
V Q 9 Q QZQ 9IV

4FKB6D6GKG5AII030021 Q9999Q

4WADAAGA4FkB6D68KG5A
9-9QYZV .0-99 B 9 Q.
09
9

,5AEA4WAJOVGA4Fk86D6G,
QZQ·g-V ZV V9 9 9

KG5A6FEA4WKAII03D022
9 Q OZQ 9 V

ADOVGA48BEAAFkFK80JC
-9 lY _ BQV999998-V8
999
9 9

6E8EAAFNFNBOJC6QEAJA'
8IQY998981-V8'9-QIO'
9999 9 99 9
Z

G-5UKC5ASABEII030023
'Z 8 aQ8V8Q
9 9
99

8TXT.ANH •• A8 •• AAADEA'
9
Y99 Y9 V9YB9Q
9
9
9 99

, EAKA6Y5AkE6T5BkE6258
90 9 9 0·9 8 - 9 9 Q

KE615KBOJM6TA80VGA54'
9101-Y8'9-9 lY I'

DEOVGOZFB00681030024
. -Q 1 98-+9

BTXT.AN ••• AB •• AA6HBO
V9
V9 Y9 Z8~

JA5C+NAHAOODG+lFAAOV
V9 V VV1-+ 91 R-V

~

.....

BTXT.AAS •• AI •• AAAAAA
9
VQ8 - V9· V90VYV,
999999

BAAAAABFIMBH6/BH5HBF,
OVVVVY-,Q ,Y-Q .
9999

10G01S8EIM8E108T6/8T
8Z 9-Q.Y..,Q,8-

BTXT.AJQ •• AB •• AAI0BS
9'
V99 V9 V9 1-

6/IS5HkA6DABAl6HAI5H .
9 Z09QV. -QO O'

KA6NOC+NAHPGO.0.PCSA
V 0 9 VVI 9-- IIV

9

9

9

8TXT.AJO •• A8 •• AAG016
9
Y9+ . V9 V91
9

9

V9

Y9V9-

9

9

9

BTXT.AKA •• A8 •• AAOYA.
9·
V9Q V9 V9 9 Z

9

B25GGOI6BI5GkG660.F.
- OZ
- 0 9 8- -

OVAAAAGAI6AH68GAI6F. ,
-VQ9IV -90ZQ.,-

R 9 I

-

Z

0

OYGA3QAB6BGA2BAJOVGA
ZV 9-90Z0 .. -V, ZV
9

9

9

.BTXT. ALA .. AB •• AA6MAE
9
V9Q V9 V9.8Q9
9999.90:
BTXT.ALH •• AI •• AAGA26
9,
V9Z V9 V9ZY
9

OATE
EC

9

9

BTXT.AKQ •• A8 •• AA30EA
9'
V9
V9 V9 IQV,

9' 9

05MAY6!
124252

9

KG5AO.BEABA2FHBOMN6P ( .

BTXT. AKJ •• AI •• AA28A.
9
Y9V V9 V9 -

9

o

OYGA2HKG660.F.OYG02B

zo

9

9

9

9 9

. G.IDGJID835G81030008
Vzy

-

9

9 9

9

9

V9-. V9

V99Q9

9

9

9

0

9

O·

9'

9

9

8TXT .. ANH.-. AQ... AAEAOA
9
Y9R Y9 V9QV+V,
9·0 9
9 9 -9,

28A002G-2HD111030010.
08+ 8Z Z-I'

8TXT.ANQ•• AU•• AA.CC.
9
Y90~. V9
V9
9

·9

9

BTXT.ANC •• AJ •• AA.ADR
9
V9V V9 Y9

OVAAAAGA28AHOYGA21FH
-OQYIY 0-9 IQ.Q-9
909
9

OVG02FABAAGA81030012
Z 9-90VIV
09

9

3QAI68GA3QHFAHHAABAA
9-9 YZY 9R09-00Y9IY.

6A+EAHDAOAGOII030013
Q VVIgy..,VI+

8TXT.AOL •• A8 ... AAX.EX'
9
V99 Y9 Y9

:~:9::9~:-19 ~i

9

9

66666-30ADAA81030015
1'81 . Z-90Y
09

9

99

9

2KA.OYGA30HCAF.A36NG
YZVZIVV9 V 1'9
9
9
9

9

9

9

9

9

19

DATI
EC

9

9

9

9

9

9

GMAHAAGA50ACA8ACAFHI 99-9QVZV ,ZlQY91QY9-0
09
09 09

9

aOAAGLG016GAAAAAAAAA '
a-V9QVl 99YVYVVVVVV
9· 19
999999999

-

Z

9

5HGCBOUAGLBBal030025
09QI·9QQY8Q
19 91999

.......•..............

• .................81030026

..XXXXXX. XIOA ......... .

.................. 81030021

V
9

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

............. 81030028

XXXXXXX.XXXXXXXX.EXP

ACTEXP.SNS.X8l030029

. XXXXXX.XXXXXX.XXXXXX

.TST.XXXX.SE81030030

.O.ON.FOR.LOOP.ON.XI

OT.SS.l.ON.FOR.TIO.S

10.LODPAAAAAII030031
VYVVV
99999

AAAAAAAAADAONAAAAAAA
YYVVVVYVV9V9BVYV9YVV
999999999 9 9999 999

AAAAAAJMFAAA.UIO.FRO
YVVVVV9YQ9VY

.XXXXXX.LINKA •••••••
V
9

.XXXXXX.CSWCCW.C5W.X

~.~

~~

~

9

I

9

BTXT.AOC •• A8 •• AAXlEA
9,
Y9Q V9 Y9-1Q9,0, 9
9 99

Fll~3

9

9 0

9

8TXT.AOC •• AI •• AAAAAA
9·
V90;. Y9' V9VVVY
9
9
9 9999

OY&A38A4OOGA.l030016
. IQ .Y'" 9lY i
9

o

9

9

9

8TXT.AOC •• AB •• AAT.SS
9
V9B' Y9 V9

9

: 10
,PAlE

9

8TXT.ANC •• AB •• AA.CAW
Y9Q V9 V9

99-

G-30NA5GADG-30AHAAGA
I . I V 009Z Z-90Yl V
9 -0'
09

6FGA3+FAOY8M388056AA
OIY --,9 -Z 0-+ .8-9'

9 9

9

9

KB505X8K45K881030011
9 V -I 89
9
99

9 Q

9

9 .

AAG016805GD181030009
OVZ
- 0"'8
09

ODG02SFDOVNAII030014
.-U+ -9
V,

1!5JUN61
130498

9

8TXT.AMO.~A8 •• AA6KAE

9

IFDAOAGOIWHFII030001
OQV..,U 8RQ

·1

9

8TXT .. AMH.:. A8 •• AA66EA
9
V9- V9 V9 8ZQ

SAAAAAGA16A081030006 '.
8V-VQUQ ~-+
09 9

30G03+AJOYGA3DG03+ED
·11 --V IQ II .--8
9
9
9

22FEB66
125621

9

9

5HG01SIDIMBD8103000!l
I 9-Q.Y-Q

OAG.3BFA2BG03QA.OYGA
+VZ 9ZQ OZ 9ZQ
9
9
9

AJOVGA30AHAH.A3-NG6F
-V IV IIOY9 Y 9 0
9
9

9

9 9

- 9 9

OVAA6LFA20AA6MD10VGO;
VV 010 9YY 0-1 I

EA4WFBOVG05AkG6FO.FJ
ZQ 9-9 Z Y 9 0 -V

9

9

AAGA2BFAOVHFAHHAACFA
QVZQ .Q-Q RQ9-0QV~V
09 9
9
9

BTXT.AKQ•• A8 •• AA6D6G
Y9Z Y9 V9 9 9
9
9
9

9

ODGAIFEAOAGOIFA.ODGA
9ZV OQV+VI+ R-· 9ZV '
99FAOVBX6N8X5GDAOAGA12
-V - 1- OQY+VZV

9 0

9

9

ACEAOAGA18FAIFPAOVOV
Y9QV+VZV QZQ V 9
9 9 9

9

9

9

9

BTXT.AJI~.A8 •• AAOVA.

9

181.130491 •• 11030001

9

9

9 9 .

9

8EACEJES80JC5Ck8505k
IQV991911-VI Q 9. V Y
999
99999

AAAAADAAAAkW ••••••••
VVVV99VVVV99
9999 9999

9

9

BTXT.ALO •• A8 •• AA+J5S
9
V9
V9' V9 V I'

8TXT.AAO •• AA •• AAAAAA
9
YQ+ ,VO V9VVVV,
99-. 99 9 9999

9

9

9

AAAAAAAAAAAAII030002
YVYVVYVVVYVV
999999999999

. lAlAAAAAAAAAAAAAAAAA
.VVVYVVVVYVVVVVVVVVVY
99999999999999999999

IBAAODGAIODAOAGOIFA.
Q-V .9ZV ZQY+VZ R-

9

JG50EDIMG-4BU'ci3001.8
YI Q-Q vi 1

8TXT.AAI •• AB •• AAAAAA
9
VQ9 V9 V9VVVV.
99
9
9 9999

o

9

; FDFD80MA61AAI10300n
; 91911-Z1 8lY ,
999

ADAAAAGl,40BEAc;F.jEAIJ0
V9-VQVZQ R8QV99Y9 B9
09 9 999
9

AAAAAAAAAAAAAAAAAAAA
VVVYVYVVVVYVVVVVYVVV
99999999999999999999

9

61 THROUGH 10

50AA68GA50kA6bA8BEAB '+-9 OlQ + 9 IQ98QY9
9 0 999

388A56AA60GA3KE.6NGA
O-V B-Y OIQ 0- IIV
+A50BEACEJEOBOJA5CAC
Q -SQV99 9-8-VQ' YlQ
o 999
9 9 9 0

AAAAAAAAABOAADAAAAPD
VVVYVVVYV9+V99VVVV9Q
999999999 9 9999 Z

9

·COLS.

8TXT.ALA •• AI •• AA5k8U·
-9
V9V V9 V91-9
8TXT. ALH •• AI •• AAADLH.
9
V90 ;·.V9, V9Y980:
9- 9
999-

BTXT.AAA •• AB •• AAIAAA
9
VQV V9 V9 QQV,
999 9
9 919

BTXT.AJH •• A8 •• AAAHHA
9
Y90" V9 Y99-0Q

4

COLS.

•••••••••••••••••• 40:

9

• j

21 THROUGH 40

03 •• AAlA.AGC ••••••••
VVQV VIQ
9999 99Z

9

,

COLS.

BESDu .... AA •• AAXFll.
9
VQ V9
99' 9

8TXT.AJ+ •• A8 •• AAODGA
9
Y9
V9 Y9 91V.

,PIN 140186'
,PAGE
. 19A

'18M MAINTENANCE DIAGNOSTIC PROGRAM'

05MAY6!
124252

10 AU G6!I
125510

.JFGA6HQGHOOUD014+0F
- I-ZV 9QR+ R+ 8 +Q:
9

22FE866
125621

9

1

'15JUN61,
130498'

999999

M.DEYltE.XXXl1030032

I 99

MHOOS0014+0f,Q8AFSLOC
8R+ 'R+ ,8 '_+Q9..VQ9aU
9
'9 '1 • 91 9

WA18WAOKWC-F81030033
890aI9Q888Q
09

I

".

f 10
; PAGE

F81~3

19A

-

'18M'MAIMTENANCE DIAGNOSTIC PROGRAM

'PIN 840186
'PAGE
20

F810; 2540 RO FUNCTION SEC '1

8TXT.A03 •• A8~.AAJAFA,
9,
'1'9
'1'9, '1'9'1'8 'V ,
9,
9
999
8TXT.APT~.AN.. AASFAO

9

'1'98' '1'9

'1'98-9

9 9

9,

9

:

•• A8 ... AA.PRE '
'1'98' '1'9 '1'9
9
9,9

8TXT.AQQ•• A8 •• AAAJOA
9
'1'99 '1'9 '1'9'1''1' V
9
9
9999

.KP1Al.8A608CEAAJEAG'
Q 1 -VO-9QQIVQQ9'
9
19 ,19

" 4KAOC6N80MK181030OJ4 '
V ,908-18

BTXT .. Al V•• A8 •• AACAOA,'
9
'1'89, '1'9' '1'99'1' V ,
99
9
999

·EAlK8ACA2AHFAHHAAOFA'
IQ,9lY90 VRQ9-0QV9ZQ,
0, 99 9
9

C6EAOKBACJOAEAOflACA':
Q8ZQ VZV9VVZQ Q8Y9Q
Z9 0 9,9' 9' 9'0 'I 9,Z

I,

EAlkHAC+lAEAEAOKBAC- i
10 99'1'9 VQOIQ '1'8'1'9
o 9 910 0 9 9

lAEOEAOFIACOOA80KAGG'
VQ+ZO QIV9+ -V89VQQ
91 0 1 9 - 99 9Z1

, ADODGACDBODE81030052
;"9 9Z00Q8"98 '
9Z 9 9

VIOUS.HANG.UP.OETECT

EDGAAAHJE.6DEAOFBAAA
9V9V9VZ QIQ Q9VVQ
9 9 9
0 01 999

OAHOFMEAOFBAII030036
VR+QIZQ Q9V
9 19 0 Z 9

BTlT.AlH •• A8 •• AAFT8D
9
V8-' V9, V9Q98
99
9
919

E.6DFA60AAFSGACQ80AA
Z Q-V o-VQ9ZVQ 8-'1'9

FPBOU/FPlOJ4FOBOJ .. GO
Q08-98008M V8Q-8-V 08 '
1'9 91 9 9Z 9
19

BOAEGDGOCFB081030053
8-YlO8Z QQ89
I
199

BOGABAH+E.6DAJ 6AEA IK'
8 ''1'9'1'9 Z QIV QIQ 9

8AAAOAEAOF8AA.lAEOEA
IVVQ VIQ Q8VV VQ-IQ
99Z 9 0 Z 99 91 ,0

OFBAA+OABOGAIl030031
Q9VV VI 9'1' '
I 99 99 9

BTlT.AlO~.A8

9

9

9 9

0

0

'1'899

ICEAEAIKHAAA81030038
-9QQIQ 99VVV ,
19 0
99

8TXT. AMH.-. A8 •• AAEOKG
9
'1'89, '1'9 V9Q+ 9

8TXT.AQH•• A8 •• AAIAEQ;
9
'1'90, '1'9 '1'9 VQ
9
9
9 91

80GAEAHSE.6DAJEQEAIK
89'1'9'1'981 QZVQ91Q 9
, 9 9
010

SAAAOAEOAJEJEAIKSAAA
8VVQ VQ+ZVQVIQ 98V9V
999 91- Z9 0 99 9

OAEHAJEVHOFM81030039
VORIVQ9R+08 '
910 Z ,19

8TlT .. AM ••• A8 •• AADJOA 9,
'1'8' Y9 V99V V
99, 9
9 9 -9'

8TXT.AQO •• A8 ... AAEAIK
9
'1'9+ ,'1'9 V9ZQ 9 '

SAAAOAEAAJEAEAIKSAAJ
8V9Q VQVIVQQZQ 98'1'9'1'
99 9 9Z
Zl 0 99 9

OAEHBDGAFAAOE.60AJE8'
VQ08 9'1'9'1'881 QlVQ9
9Z 9 9 99
0 1

EAIKVAAA08E081030040
IQ 99V9Q 9Q
091 Z

BTXT.AMH •• A8 •• AA80AA
9,
V8R, '1'9 '1'98-'1'9
990 9
9 9

EAIKHAA.18EQAJEQEAIK
lQ 99'1'9 9Q ZVQZZQ 9

HAA+OAFHAJE+EAIKVAA9V9 VQ91VQ lQ 99V9
9
91
1 0
9

OAE8AJ90EAIK81030041 '
VQ ZV +ZQ 9

8TXT.AQ8 •• A8 •• AAAJ90;
9'
'1'9
'1'9, '1'91'1' ,+
9

9

o

9

9

Z

1

0

1

1

I 9

GODOBODOFABB80AAFPEA
1 QI8-99QQ8Q8-V9QOIQ
199

Zl999

I

0

lkHACA1.EHEAOFHACA1.
99V9V , QOIQ QZV9Q
9

Z- 0 Z 9

EHEAOKHADA1.81030054,
QOZQ V9V9V
1- 0 9 9 9

FXFGAAFSGACFBOU1F-88
QBQQ-VQ91QQV8-99Q 8Q'
Z Z ' I 9Z99
I 99

BOAAFPEAOFBADAIAEVAJ
8-V9001Q Q8V9Q VO IV
9
Z 0 Z 9 9 9Z

, ESF-02EAIKVADA1.FAEA'
Q81 Q8ZQ 99'1'90 'QQIO
I -Z90
9 Z 190

OFHAD.l.EHAAOEGADHKI,
QIV9
QO-V,9IVQ 9

FPEA1K8AD+3AEAOF8ADVIQ QIV9
0
9
901 9

3AEAOKBAD03AKBFBFNBO'
VIQ '1'9'1'9+ ,V 90RQ88-,
9099-,9 1 I 9

UMFFBJDBBJDD81030051
99QI-VOQ-VOQ
I
ZO 19

8TXT.AMA•• A8 •• AAAAFS
9
V8Q- '1'9 Y9-VQ9
990; 9
9
1

-GADM80JMGGBOJ6GAGODS
IVQ;B-V8QV8-V8Q-I Q8'
I 9 9Z99 9Z
Z

BDD81DDDGODAkGFXFG80
-90Q-900Z QQ 908Q-810 19 10 Z Z 9

JVF+88BOAAFP8103D058,
V8Q-8Q8-Y9QO
91 999
Z

99

- 0

o

•• AAUVF+ .
V9 V998Q9
9 91

EAOF8AAOOABODAHAE.6D
lQ Q9VV+ ,V8 9V9Ql Q
0199-99 9
0

0

lAESEAOK8AC.81030051
: VQ8ZQV8Y9
91 0,9,9

BTXT • Al-... A8 •• AAlAEO :
9,
V8
V9, V9 VQ+
99
9
9 9Z

99991

E.6DAJ6AEAIKSAA-OAEO
QIV QZQ 98'1''1' VQo
0 999 91

9

1"

- .............. 81D30031

~

9'

I

9

sec

........-.. ......... .-. .

VE+2BBAOVG01AAA1G •••
Z ,-V Z VVV8Q

9

8TXT.AQ+ •• A8 •• AACAHO
9
'1'9
'1'9 V99V9R
9
9
9 90,

9

9

9 1

QOIQ 99'1'9

1

Z 9

Z-

1

EHA-AEEAIK4A81030055
091 V9ZQ 98'1'
-Z

9

0

99

, F8FKBOUMFFBB81030056
QR088-99QZ80
ZI9
Z99

8TXT.AJA •• A8 •• AAHAAO
9
V8Q '1'9 '1'99'1'9+
99Z 9
9 9-

lAEQAJEQEAlKHAAAOAFH
VQ ZVQZZQ 99'1'9'1' VQ9
1
1 0
9
9Z

BOGAGAAAE.6DAJ9QEAIK
8 9V9V8Vl QIV llQ 9
9 9 99
0
0

8AAAOA9HBOAAII030042
9V9Q V R8 VV
9
9 09 99

BTXT.AMY •• A8 •• A4EAOF'
9'
V8- V9 V91Q Q
99
9
9 OZ

BADAIAEVBOAACAP •• AAA
8V9V VO 8 VV9V9 '1''1'9
99
9Z 9 99 9
99

,HAM8AAAABAP.AAA+CAP.
9V8 VYV99V9 VVV ,9V9
99 999 9 999 9

AAAAFAP.AAAG81030059
YVV9 V9 VYY8
: 999 9 999

BTXT .AJQ•• AB~ .AACA,P.
9
'1'81 '1'9, '1'99'1'9
99
9
9 9

.AAACAP.AAAAAAJHDAAA
VV99V9VVV9VV8R8VV9
99 9 999 9990999

HABHE.6DAAAIBABClOBA
9V8RZ QZQV8ZQQR81-V,
990
0 19 1109 9

BOA.98CA8CC-81030043
ORI OZOQRZ
10
I no

8TXT.ANJ •• AI •• AAFAP~
9,
'1'8'1', '1'9' V9V9
999999

AAAAVAP.AAAGVAP.AAAJI
Y'VVR9V9 '1''1''1'09'1'9 VVVO
,999 9 999 9 999

IAP.-AAA8AP.-AAABAP.
Y9 '1''1'9'1'9 VV9 '1'9
9
99 9
99 9

AAAATAP.-AAA81030060
YVV99V9 YV9
999 9
99

BTXT.AJJ •• AB •• AABDEG'
9
'1'8'1' ,'1'9 V9QR-Q
99
9
9 10 1

8DGA98AOAAB-BDAGBOGA'
QRZV 11'1'91 QR-8QRZV
10
9
10 910

9KNABD.AGA9FADAAFA9B
o VQR -'1'1'1' -11V91Q Q

AJFAB-FAB89081030044 _
IVQYl OV-9 Q
Z9 Z9
9

8TXT. ANH.:. A8 •• AATAP"
9
V8R '1'9 V99V9
99
9
9 9

AAABTAP.AAACFAP.AAA+ ,
VVY99V9 VVV9 V9 VVV
999 9 999 9 999

AANJD.AAAANVO.AAAANA,
'1''1'8'1'8 VVVV898V9VV8Q
9999999999999991

D.AAAAN8D.AA8103006l
8 VVVV898 ''1'9
9 99999 9 9

8TXT.AJQ•• A8 •• AAEAIK'
9
'1'8' '1'9 V91Q 9,
99
9
9 0

8A8AIAEHAJEQEAIKVA8A
9'1'9'1' VQOIVQZZQ 99V9Q

,9 9

OAFHG09FBODMU4DDMDDD
VQ91 -8 9999ZRIRO91
9
0

MOOMU4BFBFk08l030045
00
998899

BTXT.ANA •• A8 •• AAAAAA
9
V8Q '1'9, V9VVVV,
99
9
9 9999

AAAAAANADAAAAAAAAAAA
YVVVVV8Q8VVVVVVVQVVV "
9999999 999999999999

AAAADAAAAAAAMAAAAAAA
VVVV9VVYVVYV9VVVVVVV ,
,999999999999999999

BAAAAAAAAAAA81030061
9YVVYYYVYYVV
99999999999

BTlT.AKA •• A8 •• AAKOBF,
9,
V8Q, '1'9 '1'98811
999, 9
9 99

BF8FK08FBFBFBFBFBFKO
B8RR8800VV--QQ '1' 1'
99

8FTXTX3131lPTXCG31lP
QQ99889988Z188RR8800
99 99 99
00

, lPCGCGCHOV8H8l030046
'1''1'0000999991

BTXT.ANH ... A8 •• AAAAAA'
9,
'1'8 - '1'9' V9VVVV,
99
9
9 9999

DAAAAAOHDAAAAAAADAAA
9VVVVV9-8VVVVVVV8VYV,
,9999 999999999999

AANAHAAAAAAADAAAAANH
VV8Q9VVVVVVV9VVVVV81
9999 9999999 999999

FAAAAAN-BAAB81030063
8VYYVYI9VV9
,9999999 99

BTXT. AKH.'. AB •• AAHQHH
9'
'1'81 '1'9 V9RIRO
99' 9
9
0:

HQHHQV8SWSWZ6Z6KO+WB
-00
99889988ZZ-8R
99 99
0 '

F26KOKOBFBFSWK026BFA
R8800VVOOQQ '1' 1' QQV

AAGAAABDE.6D81030041
VV9V8V8Ql Q

BTlT.AOA •• A8 •• AAAAP.
9,
'1'8'1' '1'9' V99V9

AAA+AANODAAAAAAAAAAA
VVV VV8+8YVYVVVV9VVV
999'999-99999999 999

AAAAAAAAIBA.RTN.BVPA
YYYVYVVVY9V _
999999999 9

SSED.MAKI.RE81030064 '

BTXT .AKA •• A8 •• AAAJEH '
9
V8V V9, V9IV09,
9
9
1
99

AAODGACOB8EAEAlKSABJ '
-9 91Q~9QQIQ 98'1'9'1' ,
9Z
19 0 99 9

OAESEAOF4ABAIAEJEAlK
VQ81Q Q8V9Q VQVZQ 9
9Z 0 199 Z 91 0

SAB.OAESEA1K81030048,
8V9 VQ8IQ 9
99
91 0

ITXT.AOB •• A8 •• AAADER
9
'1'89 '1'9' '1'9

• NOTwREADV.PUT.READE'

k.OFF.LIMEOFFON •• DO •

NOPROT.PUT.A8l030065

BTlT. AKH.-. A8 •• AA4AB+
9
Y80: '1'9 '1'98'1'9
99-, 9
9 99

lAEJEAlKSA8~DAESEAOK

4AIOlAEOIOGAAACDE.6D
8V9+ ,VQ+8 9VQVB9Z Q
0
99 - 9Z 9 9999

AJEHEAIKSABA81030049
IV0910 98'1'9'1'

BTXT .. AOO •• A8 •• U8OUT,
9
'1'8+ '1'9 V9

8TXT.AKO •• A8 •• AAOAES
9'
'1'8 ' V9 V9 YQ8 '
99
9
9' 91

DATI

It

;

AG-1AFAFSAAOVGAlJ8.1'

yz V..,VQ9-V ZQ ,'1- ,
99199

,PIN UOU6
PAGE'
lOA

i

F810' 2540 RO FUNCTION

9

8TXT~APS

9

'18M!MAINTENANCE DIAGNOSTIC 'PROGRAM'

,

Z-

Z

VQVIQ 98'1'9
9Z 0 99

0

VQ81Q V
91 0 9

BDEAHFAHH.AOF.CAAJEA '
'V9Z QVZVQQ
9Z9
9
Z9 19

-8QQR8~0

0!JMAV6Sl0AUG6!1,
12425Z'
121'80:

22FE866
121621

15JUN61
130498

i

910 9

o

--00

9

99

1 0

119

-EAIKIAIAIAEABOJACHE.
IQ'99V9Q VQQI'9V801
o 9 '9109 '99

I

99

--00

99 99999

Z

0

0

999

Z

0

9

99-

60AJEHEAlk8A81030050
QZV09ZQ, 9lY

o

9

99

99

99

, 10

9

9

9

8

9

9

.30.8LNK.CDS.IN.RDRT
8

MAKE_RDYtIOF~ONAIOUT

•

, .30 ....... 5 ..... 81030066

BTXT .. AOQ •• A8 •• AAREMO
9"
vao ;, '1'9, V9,

9

,PAGI

:------.--.-~- ..

F81CJ+oJ

20-

DATI
EC

9

9

05HAV65.
124252

lUAUG61
12'580-

22FE866'
125621

15JUN61 ,
130498'

f ID
F81Q;.;3 '
,PAGI
lOA

,

000000000000000000000000000000

o

00

-.--"

800000000000000000000000 0000000000
r

f

t

t

\'

•

?

-"

r
,PIN 840186
PAGE
21

18N'MAINTENANCE DIAGNOSTIC ,PROGRAM!

F8l0: 2540:RD FUNCTION SEC 1

F810: 2540 RD,FUNCTIDNSEC 1

8TXT.AOS •• A8 •• AA1NIN
9
Y88' Y9 Y9
99
9
9

G.TEST.OECKSTIF.ANYT'

8TXT.APQ•• A8 •• AAD.PL
9
Y89 Y9, Y9
99
9
9

ACE.CDS.RUN.OUT.IN.F'

8TXT.AP+ •• A8 •• AAE.RE
9
Y8' Y9 Y9
99
9
9

MAINING.TIST.DECKS.U

BTXT .APH ... A8 •• AAUT.I
9
Y80, Y9 Y9
99
9
9

N.HPR.PUT.REMAINING.

8'

9 9

BRLO •••••• AJ •••• AAAA.
9
yy,
Y9Y9
99
9 9

BEND.APD•••••• AA ••••
9
Y9Q
~9
9 Z

9

BDAT ••••••••••••••••
9

.....•...•..•....•.••
..••......•.......••

..••..•....•..•.....
.•.•.........•...•••
•.••................
....................

~.

..•.••...........•..
..•••.......•.•.
....................
•.•....•.••..••••...
......•.••••....•.•.•
,

..

'

~~

,

...•.....•.....••.•.,

•.•••...•.......••.•

• ••••••••••• 81030073

AAANEAA4AAOAAAOJAAJI
8YQ98YQ88Y9-8Y9Y8Y88
999 999 99 99 999

AAJAEAJHAAM9AANAAANA
8Y8R8Y8R8Y8 8Y898Y88
99909990999 999 9999

AANJAANJHAN/81030014
8Y898Y889Y89
999 9999 99

AAN/AAN1AAN1AANAAANA
BY888Y898YB88Y8Z8Y88
9999999 9999999 999

AANAAANJAAN/AAN/EANO
8Y8R8Y8B8Y8 '8Y8B8Y8+ .
999 999 999 999 999-

EANHEANOEANSEANOEAN8
8Y8-8YB-8Y888Y8 BY8
999 999999 999,999

AAOADAOH.,............ .
8Y898Y89
999 999

DATE
EC

05 MAY 65124252

.........•••...••...

.... .••...•.•.....•.
.........•....•••...
......... ............
.....................
~

'

......................
..••............•...

••••••••••••• lD30092
•••• ~ ••••••• 810!0093
• ••••••••••• 81030094
•••••••••••• 81030095
• ••••••••••• 81030096
•••••••••••• 81030091
• ••••••••••• Bl030098
•••••••••••• 81030099

9

8

...•...•.•.......•..

...
.....................
........ ••.........
.•......•.......

~

'

~

..•..........••....•
.. ••.•....• .......
~

~

...•..•....•....•...
•.•....•.••.•.•..
..••....•..••.••...•
..•.....••......•••.•
.•••.•••...••.•....
.......•.........•..
............••.....
.•..••....•
~

...

.

.
.. ................... ........
'

HPR.AND.MAKE81030011

TEST.OECKS.INTO.RDR.

MAKE.DEYICE.81030012

BRLD•••••• A8 •••• AAAA
9
Y9
Y9Y9,

9

,THEM.TO.BE.PS1030010

LNK ..CO S. FROM. READER.

BTXT.APB •• AC•• AARDV,.
9
YB
Y9 Y9
99
9
9

BRLD •••••• AB •••• AAAA
9
Y9
Y9Y9

................•...
....................
•••.•....•..........
..••................
•...................
....................
BLDT ••••••••••••••••

.RDYTEOf.ON.REMOYE.B

9 9

~

ST4DECKS.SAV81030069

NTIL.A.MSG.REQUESTS.

•.....••...•...••...
..•.•....•....••••.•
•......•.•.••.••....
••...•.....•...••.•.
...•••....••...•••.•
.•.•...........•..••
..•......•.....•....
...••.•.....•....•.•

•.........• .......... .

.OO.NOPRO.AN81030068

8

BTXT .APO';.A8 •• AA.RDR
9
YB+ Y9 Y9
99
9
9

9

PIN 840186
2lA
PAGE

IBNMAINTENANCI DIAGNOSTIC PROGRAM

10AUG65
125580 ;

~

22FEB66
125621

........••.•..•...••

........•...........
....................
...•...•...•........
.•.........••........
•..•.....•..........
•.................•
.•......•. •...•.•..
....•....•..........
..•.......•........
".'
..........•.........

.

~

.

,

,EANHEANADANH81030015
8Y8R8Y8Y8Y80
9990999 999
•

••

~.'."

81030076

• • 0• • • • • •

........'••••• 81030011

•••••••••••• 81030078

•••••••••••• 81030019
• ............S1030080

• ............ 810300B2
• ............ 81030083
• ••••••••••• 81030084

• •••••.•••••• 81030085
• ••••••••••• ~1030086

• .................,81030081
• ............ 81030088

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

•••••••••••• 81030090

:

,

"

P'
!
i

• •••••••••••81030081

.......................
............................
'

t

.~ ••••••••••• 1030089

.. ............; •••S1030091
,

15JUN67 '
130498

,10
F81o;.3
PAGE
21

OATE
EC

0!'JMAY6S
124252

,

i. , ,

10AUG65
125580

.,..,

,.

,.j i

22FE866
125621

; ;';';';,;,; , ; ,

15JUN61 ;
130498 '

:LAST PAGI, ~.; , ; I.;

;

,,1.1.1

.l.i,i,i.i.: .... .,;_~ ..............~,........,.....

,10
'810;.3
,PAGE
21A

0000000000000000000000000000000000

_000000000000000000000000000000000
l~MMnUEftAlilCE DIAGNOSTIC PROGRAM

PIN 80\0188
PAGE
1

250\0 READER FUNCTION TESTS - .SECTION 2

PIN 80\0188
PAGE
lA

IBM MAINTENANCE DIAGNOSTIC PROGRAM

F811

250\0 READER FUNCTION TESTS -

SECTION 2

Fall

•

8112

•
-•

TITLE

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•• MODIFICATIONS
••
•
•• REVISION LEVEL 2. THIS REVISION DIFFERS FROM VERSION 1 AS FOLLOWS •••••

••

1.

THIS SECTION PREVIOUSLY CONTAINED THE RIPPLE READ AND THE
360 STACKER SELECT TESTS. THIS SECTION NOW EXECUTES A
CONTINUATION OF THE INTERFACE .TESTING.
DATA AND COMMAND CHAINING TESTS ARE ATTEMPTED.
10\00 COMPATIBILITY PROVISIONAL FEED TESTING HAS BEEN ADDED
TO THE PROGRAM.
THE PROGRAM HAS 8EEN MODIFIED TO INCLUDE TEST NUMBERS AND
COMMON MESSAGE FORMAT.

•• 2.
3.
••• 0\.
••• E.C. PREREQUISITES

••
•

•

•• 0030 ••

•
•
•
•
•
•
•
•

•

••

••
•

••
•
•
•• USE DESCRIPTION FII0. AT EC 1300\98. DATED 15 JUN 67 DR LATER.
••
••
.......................................................................•
•
•

001000

•
•
•
•

••

•• .

XF8112 START 0\096
USING •• 15

•
•

••

••
••

.......................................................................
•
TEST NUMBER DESCRIPTION
.......................................................................
.......................................................................
• TEST'

..
••

DESCRIPTION

••••••••••••••
ROUTINE 01
••••••••••••••

•

..

•

DATE
'OS'MAY'65.
£Cl"20\252

lO·At'iG65

lU!i80

15JUft61
130498

.

POSSIBLE FAILURE CAUSES

,

1. CONDITION CODE 2 INDICATES THE CHANNel APPEARS TO BE BUSY.
2. CONDITION CODE 3 INDICATES THERE IS NO DEVICE FOR THE
ADDRESS USED. THE OM UDT ENTRY COULD BE I~ ERROR, THE
DEVICE MAY BE OFF LINE. OR IF THE 2821 TWO CHA~NEL SWITCH
FEATURE IS INSTALLED, THE PARTITIONI-NG SWITCH FOR THIS
INTERFACE MAY BE DISABLED.
3. IF CONDITION CODE 1- IS SET. tHE CSW MUST BE INSPECT&D TO
DETERMINE THE CAUSE. UNIT ,CHECK MIGHT BE DUE TO NOT READY
DEVICE. CHANNEL OR DEVICE END INDICATES THAT AN INT·ERRUPT
WAS PENDING IN THE C'HAHNEL.

'I

i

OPERATlIlN 'ATTEMPTED

A TE ST 1""0 IS I S9fJEo TO Tl'fE· iJtlNtlt.

ust

EXPECTED RESPONSE
CONDo CODE 0 SHOULD BE SETON THE START I~.
TO CHANNEL END SHOULD OCCUR.

A DIAGNOSTIC WRITE IS ISSUED TO THE PUNCH WHILE THE READER IS
BUSY. A SENSE I S THEN PERFORMED.
EXPECTED RESPONSE
CONDo CODE 1 SHOULD tiE SET ON THE START 1-.(1. THE CSW STORED
SHOULD CON TA HI UNI T CHECK. THE SENSE BYTE SHOULD HAVE THE
COMMAND REJECT BIT 'ON •
POSSI8LE ERROR CAUSES

EXPECTED RESPONSE
CDND. CODE 1 SHOULD BE SET ON THE TEST 1-0.
SHOULD CONTAIN DEVICE END ONLY.

1'0'81'1-2
·""I'I.!h!'~Y<''''''1I~~'''''''''·' "".~_'-""'''.'''_.l''''_' . '.-..,.., ... "' ..•..

"I'¥ •

THE CSW STORED

OPERATION ATTEMPTED
A DIAGNOSTIC WRitE IS ISS~EOTO THE PUNCH AND THE SYSTEM IS

ENABLED FOR AN INTERRUPT.

A SENSE IS THEN PERFORMED.

EXPECTED RESPONSE
CONDo CODE 0 SHOULD BE SET ON THE START 1...0. It CHANNEL AND
DEVICE END INTERRUPT SHtlULD OCCUR. THE COMMAND REJECT SENSE
BIT SHOULD8E RESET.

••••••••••••••
-ROUTINE 03
••••••••••••••
OPERATION ATTEMPTED
A DIAGNOSTIC ,WRITE IS ISSUED TO THE PUlIICH. THEDATAW.. IC.. IS
LOADED I;1\ITO tHE AEAOER&tJf'f"ER lNDIt-ATES A 3 AND A 0\ fiDLE MAS
READ lNEVERY COLUMN. TftE SYSTEM 15 ENABLED FOR AN INnRtttJPf •

•..ilPec1f:D .'ltE-SPDNSE

t..!Q..

-iliACi!

INTERRUPT DUE

OPERATION ATTEMPTED
A feST 1-0 IS ISSUED TO A READER WITH A PEf'lDING DEVICE END.

• '
•
•

EXPECTEDRESi>'tIR5e
CONDo CODED . ~ '1EftT ON· THE

A READ AND FEED COMMAND -02- IS ISSUED AND THE SYSTEM IS
ENABLED FOR 1 INTERRUPT.

•

•
...
•
•• 0060 •
•"
••
••
•
••"
•
"•
• 001'0 -

CONDo CODE 0 SHOULD BE SET ON THE TEST 1-0.

••
••
•••
•••
•••
• 0020 ••
.~~
•
••

OPERATION ATTEMPTED

IF MORE THAN 1 250\0 EXI STS ON THE SYSTEM, THE PUNCHAGDRESS
BEJNG USED BY THE TEST MAY HOT 8E HOUSED IN THESA"E .PflYSICAL
BOX AS THE READERBElNG TESTI:D. THESE ADDRESSES MUST tiE
PUT IN THE OM UOT IN THE FOLLOWING MANNER- READER I. -PUNClI I.
READER 2. PUNCH 2. ETC.
IF THE ADDRESSE S ARE AllUGHT, AN EVALUATltlN OF THE eRROR
MESSAGE MUST BE MADE TO DETERMINE THE CAUSE OF THl! ,TROUBLE.

••

EXPECTED RESPONSE

•••

••••••••••••••
ROOn~ ~ .
••••••••••••••

•
•
•
•
•
•

•• 0050 -

• 0010- OPERATION ATTEMPTED
•
A TEST 1-0 IS ISSUED TO THE READER.
•

REFER TO POSSIBLE FAILURE CAUSES GIVEN FOR TEST 0010 •

• 000\0 - OPERATION ATTEMP~

MACHINE • • • NONE
PROGRAM • • • NONE

•••

POSSIBLE FAILURE CAUSES

IBM MAINTENANce DIAGNOSTIC PROGRAM
2540 READER FUNCTION TESTS -;S6CTION 2

PIN 8401118
PAGE
~
FBII

..•••

IBM MAINTENANCE DIAGNOSTIC PROGRAM
2540 READER FUNCTlONTlSTS'- SECTION 2

CONDo CODE 0 SHOU~D BE SET ON THE START 1-0.
DEVICE END INTERRUPT SHOU~D OCCUR ..

•"

A READ AND FEED COMMAND IS ISSUED TOA "EUER WHICH HAS
INVALID DATA IN ITS READ BUFFER. THE SYSTEM I.S ENABLED FOR
TWO INTERRUPTS.

•

EXPECTED RESPONSE

•

CONDITION COD'E 0 SET ON START 1-<0. EXPECTED STATUS IS UNn
CHECK AND CHANNE~ END IN THE 1ST CSW. DEVICE END RETURNING
AFTER COMP~ETION OF FEED CYC~E.
.
A SENSE IS PERFORMED AND DATA CHECK IS EXPECTED.

•
••
•
•••
•• 0090••
••
...
•

••

•...
•
• 0100 •
•

••
•

•••
•
• 0110 -

<\

*.,,'

,r"

',-'

,(~

"'~~

{)

05MAY65
124252

10AUG65
125580

0 :0

It)

130498

•
•

EXPECTED RESPONSE

••

CHANNE~

END SEPARATELY FROM DEVICE END. CONDITION CODE O.
PRIOR FEED IN TEST 0080 PUTS VALID BLANKS INTO READ BUFFER
AND SHOU~D ENABLE THIS COMMAND TO FUNCTION WITHOUT ERROR
STATUS.

*

••
•••
•
•••
•• 0150 ••

OPERATION ATTEMPTED
A READ NO FEED -C2- IS ISSUED.
EXPECTED RESPONSE
CHANNEL END AND DEVICE: END TOGETHER. 1 CSW EXPECTED.
CONDITION CODE O.

••
•

..

..•

CONDITION CODE 1 DUE TO THIS COMMAND BEING A COMMAND IMMEDIATE
ON THE 2540. CHANNEL END IS SEPARATE FROM DEVICE END DUE TO
FEED CYCLE.

••• 0120 ••
•

OPERATION ATTEMPTED

15JUN67

•
••
•
•

A FEED, STACKER SELECT Rl -23- IS ISSUED.

READER~

••••••••••••••
ROUTINE 06
••••••••••••••
DIAGNOSTIC WRITE TO THE PUNCH -25- FILLS READ BUFFER WITH
VALID DATA.
EXPECTED RESPONSE
CONDITION CODE O. CHANNEL AND DEVICE ENOS EXPECTED TOGETHER.
WHEN I SSUING A DIAGNOSTIC WRITE COMMAND TO A 2540 REAr;lER, THE
CCW MUST BE ADDRESSED TO THE ASSOCIATED 2540 PUNCH.
BECAUSE THE DIAGNOSTIC WRITE COMMAND UTILIZES THE CARD IMAGE
ICOLUMN BINARY) CIRCUITRY, 160 BYTES MUST BE TRANSFERRED TO
FILL THE 80 POSITION READ BUFFER. THE CARD IMAGE FEATURE
DOES NOT HAVE TO BE INSTALLED FOR DIAGNOSTIC WRITE TO WORK.
OPERATION ATTEMPTED
READ NO FEED -C2- TO READER.
EXPECTED RESPONSE
CONDITION CODE

o.

CHANNEL AND DEVICE· ENOS TOGETHER •

• 0160- OPERATION ATTEMPTED

•

••
••
••

••
•

EXPECTED RESPONSE

•

EXPECT CHANNEL AND DEVICE ENDS TOGETHER

EXPECTED RE SPONSE
CONDITION CODE o. CHANNEL AND DEVICE ENOS TOGETHER.
OPERATION ATTEMPTED

..•

EXPECTED RESPONSE

DIAGNOSTIC WRITE TO THE PUNCH -25-. PUTS INVALID DATA MODE 1
DATA INTO THE READ BUFFER.

••• 0170 ••

DIAGNOSTIC WRITE -25- IS ISSUED TO THE PUNCH TO WRITE VALID
DATA INTO THE READ BUFFER WITHOUT GOING THROUGH THE READ
TRANSLATE CIRCUITRY.

o.

FEED STACKER SELECT RI-23- ISSUED .TO

EXPECTED RESPONSE
CONDITION CODE 1. UNIT CHECK IN STATUS DUE TO 2 FEEDS IN A
ROW WITH NO INTERVENING READ. FIRST FEED ISSUE IN TEST 0110.
SENSE BYTE EXPECTED SHOULD HAVE COMMAND REJECT.

*•

••••••••••••••
ROUTINE 05
••••••••••••••

CONDITION COIlE
IN ONE CSW.

ATTEMPTED

• 0140 - OPERATION ATTEMPTED

EXPECTED RESPONSE

•
•••
••

....•
..•
....•

A READ, FEED, STACKER SElECT R1 -02- I.S ISSUED.

••

WHEN ISSUING A DIAGNOSTIC WRITE COMMAND TO A 2540 READER •. THE
CCWMUST BE ADDRESSED TO THE ASSOCIATED 2540 PUNCH.
BECAUSE THE DIAGNOSTIC WRITE COMMAND UTILIZES THE CARD IMAGE
ICOLUMN BINARY) CIRCUITRY, 160 BYTES MUST BE TRANSFERRED TO
FILL THE 80 POSITION READ BUFFER. THE CARD IMAGE FEATURE
DOES NOT HAVE TO BE INSTALLED FOR DIAGNOSTIC WRITE TO WORK.

•••
... 0130- OPERATION

OPERATION ATTEMPTED

OPERATION ATTEMPTED

II<

•

••••••••••••••
ROUTINE 04
••••••••••••••

••

•
••
•

DAre
EC

II<

••

..••
..

F8U

••

A CHANNE~;AND

• 0080 - OPERATION ATTEMPTED

•

PIN 840188
PAGE
2A

FEED STACKER SELECT Rl -23- SHOULD FORCE BLANK DATA INTO
THE READ BUFFER.

CONDITION CODE 1.-CHD IMMEDIATE-. SEPERATE CHANNEL AND DEVICE
ENDS.

•

FBll-2
PAGE
2
10

10 10
,,-,'" 0 0 0 0 (0 iO iO 0

DATE
EC

,()
I,,,
I

05MAY65
124252

10AUG65
125580

15JUN67
130498

10

PAGE

F81l-2

2A

,
"'l "
0
0 0 0 0 iO 0 0 0 0 10 () 10
0 :0 10
I'~

,"

,.'
!'.

'I:

0 C C
'.

,I

(J;

0, 0 () 0, CJ C 0 0 0' 0 C 0' 0 0 C 0 0 0' 0 0' 0 C

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840188
PAGE
3

25ltD READER FUNCTION TESTS - SECTION 2

Fall

••• 0180 -

••

•
•

•
•

••
•••

••

•
•••
•

•••
••
•

••

..

•••

••
•

o. CHANNEL AND DEVICE' END STATUS SEPARATELY.

•

••
••

••••••••••••••
ROUTINE 01
••••••••••••••

..
DATE
IC

0514AY6'5.
1210252

10AUG65
125580

15JUN61
130498

EXPECTED RESPONSE
CONDITION CODE O. CHANNEL END, WRONG LENGTH RECORD, AND A
RESIDUAL COUNT OF DECIMAL 20 IN, THEISTCSW.DEVICliI END ALONE
IN THE 2ND CSW.

••••••••••••••
ROUTINE 11
••••••••••••••

• 0230 - OPERATION ATTEMPTED

•
•
•

0190- OPERATION ATTEMPTED
READ 80 CHARACTERS, FEED, STACKER SELECT RI -02- COMMAND
CHAINED INTO ANOTHER READ BO CHARACTERS, FEED, STACKER SELECT
Rl. NO SUPPRESS LENGTH INDICATOR ON-SLI FLAG.

•

••
•
••

EXPECTED RESPONSE

...

CONDITION CODE O. CHANNEL ,AND DEVICE ENDS SEPARATELY.

•• 021t0 -

••••••••••••••
ROUTINE 08
••••••••••••••

•
•

••

OPERATION ATTEMPTED

••
••
•••

READ 19 CHARACTERS, FEED, STACKER SELECT RI -02- COMMAND
CHAINED INTO A READ 80 CHARACTERS. FEED, STACKER SELECT RI.
NO SLI FLAG ON IN COMMANDS •
EXPECTED RESPONSE

•"

CONDITION CODE o. CHANNEL END AND WRONG LENGTH RECORD IN 1ST
CSW. DEVICE END ALONE I N 2ND CSW.

••
••
••
•
••
•
,.,....

••••••••••••••
ROUTINE 09
••••••••••••••

..

READ, FEED, STACKER SELECT Rl.-02- DATA CHAINED INTO It
DIFFERENT PLACES. EACH COMMAND REQUESTING· 20 BYTES FOR TOTAL
OF 80 BYTES IN THE CHAIN.. NO SlI FLAG ON IN· COMMANDS.
EXPECTED, RESPONSE

,.

•••
,.
,.•
•
,.•
••

CONDITION CODE 0.. CHANNEL EttD IN 1ST CSII. DEVICE, END 1M 2ND
CSN.

...•••••••••••••••
...........
'

RWTINE' 10

• 0220 - OPERATION ATTEMPTED

•
•
•

F8ll

••

• 0210 - OPERATION ATTEMPTED

••

. PIN B40188
PAGE
3A

READER FUNCTION TESTS - SECTION 2

OPERATION ATTEMPTED

CONDITION CODE

•••
•
•
• 0200 •
•

....
•••

25.1t0

EXPECTED RESPONSE

••
•
••
••

•••
••
••

IBM MAINTENANCE DIAGNe5TIC PROGRAM

READ FEED STACKER SelECT U-02-

••

•
•

"',

READ, FEED, STAC·ItflR SELECT Rl -02- DATA CHAtNEO· INTO It
DIFFERENT PLAces. Nfl: SllFLAG ON. THE 1ST CeMMAND. REQUESTS
40 CHARACTERS, THE FOLlOWING 3 CCNS RIWEST20 EACH.

.10

PAGE

F811-2
3

•,.

•

READ, FEED, STACKER SelECT Rl -02- D~TA 'CHAINED INTO 4
DIFFERENT PLACES. SLI FLAG IS ON IN 3RD CCW OF CHAIN.
EXPECTED RESPONSE
CONDITION CODE O. CHANNEL END AND RESIDUAL COUNT IN 1ST CSW.
DEVICE END ALONE IN 2ND CSW.

••••••••••••••
ROUTINE 12
••••••••••••••
.it

OPERATION ATTEMPTED
A 1400 COMPATIBILITY READ NO FEED COMMAND CHAINED TO A 1400
COMPATIBILITY FEED STACKER SELECT Rl WAS ISSUED TO THE READER.
EXPECTED RESPONSE
CONDITION CODE O. CHANNEL END ALONE IN THE FIRST STATUS.
DEVICE END ALONE IN THE SECOND CSW RETURNED DUE TO A CARD
FEED CYCLE.
A RESIDUAL COUNT OF 1 SHOULD BE IN THE CSW BECAUSE THE
READER DOES NOT TRANSFER ANY DATA FOR THE STACKER COMMAND.
If THE PROGRAM HANGS IN A LOOP, A POSSIBLE CHANNEL ERROR
MAY HAVE OCCURRED. THE OPERATOR SHOULD 00 A PSW RESTART TO
HAVE THE LAST OPERATION OUTPUT ON THE OUTPUT DEVICE.
POSSIBLE ERROR CAUSES
THE OM UOT ENTRY FOR THE OPTION BYTE OF THE 2540 MAY HAVE
8EENERRONEOUSLY SETUP TO INDICATE THAT 1400 COMPATIBILITY
HARDWARE EXISTS IN THE 2540. THE 11000 COMPATIBILITY TESTS
WILL BE. ATTE.MPTEO AND WILL INDICATE ERRORS •
ALL. OTHER ERRORS WILL HAVE TO BE ANALYZED 8Y THE INDICATIONS
GIVEN IN THE ERROR MESSAGE.
HOO PRO.VISIONAL FEED OPERATION ANI) DEFINITION.

THE FOLLOWING IS AN EXPLANATION OF 1400 PROVISIONAL FEEO
OPERATION.
A 1400 READ NO FEED COMMAND IS ISSUED AND CHANNH AND DEVICE
ENDS RETURN IN THE SAME CSW BECAUSE NO FEED CYCLE IS TAKEN.
THE. PROGMMHAS TO ISSUE A FEED AND STACKER SELECT COMMANO
WITHIN 6 MILLISECOND.S. If IT DOES NOT, THE PROVISIONAL
FEED CIRCUHR·Y AUTOMATICALLY STACKER SELECTS THE CARD. IF
THE PROGRAM 1 SSUES A STACKER SELECT AFTER THE PROV IS IONAL
FEED HAS STARTED. THE DEVICE WUL ACT BUSY OR PRESENT BOTH
8USY AND DEVICE ENOS IN STATUS IF THE PROGRAM ACCEPTS Hi£
INTf:RRcUPT.
A, COMMAND REJECT COULD BE GENERATED ON THE DEVICE UNDER
THE. COND1TIO~ THA.T THE PROVISIONAL FEED WAS DONE ANO THE

05MA.,65

10.AUG65

15JUN67

10

124252.

125580

nO-It!}8

PAlOI!'

F811~2

3.A

1,_,

IBM MAINTENANCE DIAGNDSTIC PROGRAM
2540 READER FUNCTION

PIN 8lt0188
PAGE
,4'

~TESTS-:SECTlON:I

IBM MAINTENANCE DIAGNOSTIC PROGRAM

FIll

..,•••
....,•
..•
....
.
.,•

2540 :READER FUNCTloN.TlST5 ..-SECTlON 2

....
....•
.'

PROGRAM ATTEMPTS A FEED AND STACKER SELECT ALSO, DUE TO
2 FEEDS IN A ROW BEING ATTEMPTED •

,

,

••
••

••••••••••••••
ROUTINE 13
••••••••••••••

'•"

EXPECTED RESPONSE

..

••
•••
••
•
••
••• 0260••
•
•
••
••
••
•••
•
••

..
..

•• 0210 ••
•

•

••

..
•

.•
••

DATE
EC

f'"

,,\,))

, 05MAY65
124252

10AUG65
125580

,

$"""")

001000
001004 '
001008 '
00100A
00100C
001000
OOlOOE
OOlOOF
001010
001015
001018
001020
001028 '
001030
001038 '
001040
001048 .
00104C
001055
001058 '
001050
001060
001068
001070
001078
00107C
001080
OOIOEO
OOlOH
0010E2
0010E ... '
0010E5
0010E6

POSSIBLE ERROR CAUSES
SEE POSSIBLE ERROR CAUSES UNDER TEST NUMBER 0240.
OPERATION ATTEMPTED
ISSUE 1400 COMPATIBilITY FEED, STACKER SELECT R1 -33- AFTER
2.5 SECOND TIMEOUT OF READ.
EXPECTED RESPONSE
CONDITION CODE 1. UNIT CHECK IN STATUS. SENSE IS DONE AND
COMMAND REJECT IS EXPECTED DUE TO 1400 PROVISIONAL FEED
PRIOR TO THIS FEED.
POSSIBLE ERROR CAUSES
SEE POSSIBLE ERROR CAUSES UNDER TEST NUMBER 0240.

••••••••••••••
ROUTI NE lit
..............
OPERATION ATTEMPTED
IF 1400 COMPATIBILITY ON MACHINE, ISSUE 1400 COMPATIBILITY
READ NO FEED -D2- COMMAND CHAINEO TO A NO-OP -03- COMMAND
WHICH is COMMAND CHAINED TO A 1400 FEED STACKER SELECT Rl-33THIS IS TO TEST FOR ANY EXTRANEOUS STATUS THAT MAY !JE RETURNED
BETWEEN THE READ AND THE FEED COMMANDS I F THE PROV IS toNAL
FEED CIRCUITRY IS NOT FUNCTIONING PROPERLY.

OC

V

)

SEE .PoSSIBLE ERROR CAUSES UNDER TEST'NUMBER 0240 •

ISSUE SENSE

F8U2000
00000000
0000
0000
00
02
CO
00
0104000000
001708
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
00000000
000000000000000000
000000
0004000000
000000
0000000000000000
0000000000000000
0000000000000000
01040000
00001212
81
00
BODO'
82

00
8000

COMMAND~04~.

••

EXPEC TED RE,SPONSE

•

CONDI TlON CODE O. CHANNEL ,END AND DEVICE END TOGETHER IN
STATUS. NO SENSE BITS ON.

••
••••••••••••••••••••
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••
• SECTION PREFACE ••••••••••••••••••••••••••••••••••• SECTION PREFACE.
•••••••••••••••••••
•••••••••••••••••••
SECNO DC
XL4'FB112000· ,
PROGRAM,SECTION AND REVISION NOS • •
SNSW

ICM
SDMF
NIOU
FLAGI
FLAG2
INPSW
EXOPSW
SVOPSW
PGOPSW
MCOPSW
IOOPSW
CSW
CAW

DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC

EXNPSW
SRET
SVNPSW
PGNPSW
MCNPSW
10NPSW

DC
DC
DC
DC
DC
DC
DC
OS
UNITl DC
UIOP
DC
UlADDR DC
UNIT2 DC
U20P
DC
U2ADDR DC

XLIt'OO"
XL2'OO' .
XL2'00" .
XU" 00"
XU'02"
X'CO'
X'OO"
X'0104000000"
AL31ROUTOU
XLO'O'
XLO'OO'
XLO'OO'
XLO' 00' .
XL8'00'
XL8'OO'
XL4'OO' .
XLI2'OO'

SECTION SENSE SWITCHES

•
•
INTERRUPTION CONDITION MASK
•
SEC TI ON OM FLAGS
•
NUMBER OF UNIT TABLE ENTRYS
•
EXCLUSIVE CPU
•
110 INT ARE ERR, EXT INT TO PROG
•
DISABLED, SPVSR STATE, NO PGM MASK.
ADR OF 1ST ROUTINE PREFIX
•
SECTION OLD EXTERNAL PSW
•
CLEAR ALL OLD PSWS
•
PROGRAM OLD PSW
•
MACHI NE CHECK OLD PSW
•
110 OLD PSW
•
CHANNEL STATUS WORD
•
CAW
•
RESERVED FOR OM USE
•

X'0004000000' ,
XL3'O'
XL8'00'
XLB'OO'
XL8'00' .
XL4'01MDOOO'
ALit! IRETRNI
96C
X'81'
X'OO'
X' 8000'
X'82'
X'OO'
X' 8000'

EXTERNAL NEW PSW
AOR OF EXT INTRPT ROUTINE
SUPERVISOR NEW PSW
PROGRAM NEW PSW
MACHINE CHECK NEW PSW
1/0 NEW PSW
ADDRESS OF 1/0 INTRPT ROUTINE
96 BYTE REG DUMP AREA FOR OM USE
UNIT TYPE - 2540 READER
OPTIONAL FEATURES BYTE
FLAGS AND WAN/UNIT AODRESS
UNIT TYPE - 2540 PUNCH
OPTIONAL FEATURES BYTE
FLAGS AND CHANIUNIT ADDRESS

•
••
••
•
•
•

••

• •••• *•••••••••••••••••••••••••••••••• *••••••••••••••••••••••••••••••••

EXPECTED RESPONSE

•
OPTIONAL FEATURE BYTE DEFINITION
...........
"'.............._ ••••*.*•••• *.................................

CONDITION CODE o. CHANNEL END IN FIRST STATUS AND DEVICE
END AlONE IN THE SECOND CSW DUE TO TlfE FEED CYCLE.
A RESIDUAL, COUNT OF 1 SHOULD BE IN THE CSW BECAUSE

• • BIT 0 '"
'" .• HEX 8 •
ASCII.
••
•

*'•

DATE
EC

,,:f

BUSY OCCURS DUE TO PROVISIONAl FEED CYCLE OCCURRING BEFORE
THE EXPECTED". MILLISECOND TIME. OUT.
IF ,THE PROGRAM HANGS' IN A LOOP, A POSSIBLE CHANNEL, ERROR
',MAY HAVE OCCURRED. THE OPERATOR SHOULD DO A PSW RESTART TO
HAVE THE LAST OPERATION OUTPUT ON THE OUTPUT DEVICE •

•• .

CONDITION CODE o. CHANNEL END AND DEVICE END TOGETHER, IN
ONE CSW.
DEVICE END RETURNS AGAIN IN 2ND CSW AFTER". MS WAIT DUE TO
AUTOMATIC IltOO FEED CYCLE.
IF ,THE PROGRAM HANGS IN A LOOP, A POSSIBLE CHANNEL ERROR
MAY HAVE OCCURRED. THE OPERATOR SHOULD DO A PSW RESTART TO
HAVE THE LAST OPERATION OUTPUT ON THE OUTPUT DEVICE.

15JUN67
130'098

\"',;

POSSIBLE FAILURE CAUSES

•
•
'.

IF IltOO COMPATIBILITY ,IS ON MACHINE, ISSUE IltOO COMPATIBILITY
READ NO FEED -02- •

,

READER DOES NOT TRANSFER ANY DATA FOR THE NO-OP COMMAND.

• 0280 - OPERATION ATTEMPTED

• 0250.-0PERATION ATTEMPTED
•

FlU

•
•

IF THIS ERROR IS INDICATED, THE SINGLE SHOT THAT GOVERNS
THE". MILLISECOND DELAY FOR THE ,PROVISIONAL FEED SHOULD BE
SCOPED TO INSURE PROPER SETTING. IF 'THE SINGLE SHOT IS ALL
RIGHT, THE MONITOR BEING USED MUST BE TOO SLOW AND THE ERROR
IGNORED •

•

PIN 840188
PAGE
4A

,Et

\~.~

1'"'"
"

"

10 () ()
'",'
\~.'.

tf)

i,'

' '..

!','.

"

tf~

'~I

05MAY65
124252

10AUG65
125580

15JUN67
130498

BIT 1 • 8IT 2 • BIT 3 • ~IT 4 '. BIT'5 • BIT '6. BIT 1 .
HEX,. • HEX 2 • HEX 1 ,$ HEX 8 • HEX 4 '. HEX 2 • HEX 1 •
CARD.
• . 51, • 1'000. •
*
.2821 •.
IMAGE '"
• COL RD. COMP.
•
• 2 CHN •
,10

PAGE

F8ll-2
4A

D () """0 0 () 0 "'0 (0 :0 0 0 0\ ' !O t"0'. 0

,:,'":, , ";,,1

I,:

'

'I

C(.·),.·\
\(!

","
0'· 0'," 0'·
0"".." 0".,.) 0",,,,'

V';,'"
,;
f
t

'-It'
I't.

v;
1\.

0

.'~ 1

v
~.

"i
V

,,'/
I't

IBM MAINTENANCE DIAGNOSTIC, PROGRAM'
25/t0 READER FUNCTION ,TISTS -:SECTION 2

C·:.

I

'-I'
It.

0"",:
PIN 8/t0188
PAGE
5

c o c
IBM 'MAINTENANCE DIAGNOSTIC PROGRAM

F811
Z540READER FUNCTION TISTS - SECTION 2

......

•
•
•
•
•
•
• SW: •
................................................................
25/t0 READER SENSE BYTE
.......................................................................
••
•

•
• '
• .
•
•

• '
• .
• .
•

."

•
•
•
•
•
•

81T' MEANING
0
COMMAND REJECT
1
INTERVENTION REQUIRED
2
BUS OUT CHECK
3
EQUIPMENT CHECK
/t
DATA CHECK - VALIDITY CHECK - INVALID CARD CODE
5
OVERRUN -NOT USED
6
UNUSUAL COMMAND SEQUENCE-2 READS WITHOUT INTERVENING FEED
7
NOT USED

.......................................................................
.
25/t0 READER STATUS BYTE
.......................................................................

,

81T

• '

0

•
•
•
•

1
Z

•

•
•
•
•
•

3

/t
5
6
7

•
• .
•
•
• '
•

BAL'
DC
DC
DC
DC
DC

Rll,ISIO
XLZ'OOOO'
X'OOl/t'
X'FO'
X'OO'
ALZIADR-BASE+REGJ

LINK TO 1-0 HANDLER
CONTROL SWITCHES
TEST NO. IN DEC EXPRESSED. IN HEX
EXPECTED CONO. CODE
EXPECTED SENSE DATA
ADDR. OF EXPECTEDCSW IF NEEDED

.......................................................................
.......................................................................
•
1-0 HANDLER CONTROL SWITCHES
•
2 BYTE PARAMETER FOLLOWING BAL
.......................................................................

• SWITCH
•. 0 ---•
•
1
•
•
Z
•
., 3 ~
• .
•
/t ~~
• .
•
5 ~
• ,
•
6
• '

DESCRIPTION
OFF
ISSUE AN 1-0 COMMAND
ON
DO NOT ISSUE AN 1-0 COMMAND
OFF - ENABLE
ON - 00 NOT ENABLE
OFF - EXPECT NO INTERRUPT
ON
EXPECT AN INTERRUPT
OFF - DO NOT EXPECT 2 INTERRUPTS
ON - EXPECT Z INTERRUPTS
OFF
EXPECT NO CsWs
ON - EXPECT A CSW
OFF - DO NOT EXPECT Z CsWS
ON - EXPECT Z CSWS
OFF - ALWAYS TRY TO ISSUE SENSE
ON - SENSE ON UNIT CHECK ONLY

•.......................................................................
.......................................................................
•
SWITCHES USED BY 1-0 HANDLER
.......................................................................

• ,SWITCH
DESCRIPTION
•. 0 ~. OFF - NO HANGUP ON, INTERFACE
• ,
ON - HANGUP OCCURRED
DATE
EC

3

•

It

•
•
•
•
•
•
•

6 --'

5

7

1!IJUN61,
130498

REG
5

••
•

8

USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN.

9

USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN.

10

MUST CONTAIN CCW ADDRESS UPONRDUTINE ENTRY

••

11

MUST 8E USED AS LINK REG TO TH I S ROUTI NE

12

MUST CONTAIN DEVIce ADDRESS

.,
•.,
•
•

0010EB

0010EA
0010EE
0010F2
0010F6
OOlOFA
OOlOFE
001102
001106
00110A
00110E
001112
001116
00111A
00111E
001122
001128 .
00112C
001130
001136 ,
001l3A
001140
00111t6 .
0011U
OOllltE
001152

0000

92 9E F lAC
9Z CB F 61t9
92 C8 F 5BO'
92 9E F 15E
47 FO F 122
92 90 F lAC
92 90 F 15E
92 E3 F 649
92 E3 F 5BO
47 FO F 122
92 9C F lAC
92 9C F 15E
92 E2 F 649
92 E2 F 5BO
02 01 F 62C B OOZ
90AB F 680
90,89 F 570,
02 00 F 680 F 003
50 AD 0 048'
07 07 D 040 :D 0/t0:
07 OB E 080 E 080
91 80 BODO,
47.10:F lE2
91 CO F 004
47 80 F 19A

REGISTERS USED IN 1-0 HANDLER

•
•
•

COMMENTS
USED AS LINK TO ERROR OUTPUT FROM INITIALIZE ,ROUTINE IF
PREVIOUS HANGUP ON INTERFACE DETECTED.

••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ISW

DC

XLZ'O'

'"

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
• 1-0 HANDLER SUB-ROUTINE •
.......................................................................
IHIO

MVI
MVI
MVI·
MVI
BC.
, ITIO
MVI
MVI
MVI
MVI
BC
ISIO
MVI
MVI
MVI
MVI
IEYEOH MVC
sTM~

STM
MVC
IRETRY ST
XC
XC
TM
BC
TM'
8C

ISSUE,X'9E'
IOPTl+25,X'C8'
IOAODR+12,X'C8'
IlOOP.X'9E'
UNC,IEYEOH
ISSUE,X'90'
ILOOP.X'9D'
JOPTl+25.X'E3'
JOADDR+12,X'E3'
UNC,IEYEOH
ISSUE, X'9C'
ILOOP,X'9C'
IOPTl+25,X'E2' ,
10AOOR+IZ,X'EZ'

JTsTNO+~f2J.ZfRll)

SET UP FOR HALT 1-0
MOVE -H- TO OPTION MSG.
BR. UNCONDITIONAL
SET UP FOR TEST 1-0

MOVE -1- TO OPTION MSG.
BR. UNCONDITIONAL
SET UP FOR START 1-0
MOVE -S-TO OPTION MsG.
SAVE TEST NUMBER
SAVE REG 10 AND REG 11
SAVE REGS 8 AND 9
SAVE RT NO. FOR HANGUP.
STORE COMMAND ADDRESS.

RIO,R11,ISLAVE
R8,R9,lsAVE
RTSVIIJ,SECNO+3
R10,HCAWIR13J
HCSWI8,R13);HCsWIR13J
LOGOUTf12,Rl ••• LOGOUTIRl.)
0IRll)'X'80' '
CHECK CONTROL SWITCH FOR NO 1-0
ALL,; I NOW
BR. I F ON
sNSW,X'CO' ,
NONE, JOHN

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
SENSE SWITCH LOOPS
.......................................................................
ITRYl

ID~F811-2
PAGE
5

- NO CSWS STORED
- ONE CSW STORED
- SECOND CSW NOT RECEIVED
SECOND CSW RECEIVED
DID NOT ENABLE
- ENABLED ONCE
010 NOT ENABLE TWICE
- ENABLED TWICE
- NO SENSE DATA RECEIVED
- SENSE DATA RECEI VED
NO UNEXPECTED, INTERRUPT FROM UNKNOWN DEVICE
UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE
NO ERROR DETECTED
AN ERROR WAS DETECTED

•

TM
BC

JLOOP' SID'
10AUG65
125580 '

OFF
ON
OFF
ON
OFF
ON
OFF
ON
OFF
ON
OFF
ON
OFF
ON

,

MEANING
ATTENTION ~ 1/t00 COMPATIBILITY FEATURE ONLY - INDICATES
SENSE WAS ISSUED BEFORE 6 HS TIME OUT AFTER
A 1/t00 COMPATIBILITY READ.
STATUS MODIFIER,- 2 CHANNEL SWITCH FEATURE ONLY
CONTROL UNIT END - 2 CHANNEL SWITCH FEATURE ONLY
DEVICE BUSY
CHANNEL ,END
DEVICE END
UNIT CHECK
UNIT EXCEPTION - LAST CARD PREVIOUSLY READ, AND END OF
FILE WAS ON.

.......................................................................
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
PARAMETERS USED TO ENTER
•
THE 1-0 HANDLER ROUTINE
.......................................................................

1
Z ----

........................................................................
.•.•••...••.......••...•........•.......••............................

•

•

F811

15JUN67
130498

SNSW,X'80· ,
NONE,ITRY2
DeRU.

CHECK SECTION SENSE SWITCH 0
BR. IF OFF
'
SID, TID, DR HID
i

Ie
F811-2
PAGE
5A

IBM MAINTENANCE DIAGNOSTIC PROGRAM'
2540 READER fUNCTION
001162
001166 "
001l6A
001l6E
001172
001176,
001l7A
00117E
0011B2
0011B6
0011BA
00118E
001192
001196
001l9A,
0011AO
001lA4 '
0011A8
OOllAC
OOllBO
001184
001188
OOUBC
OOllCO
001lC4,
001lC8
OOllCC
001100
001106 '
00110A
OOUOE
0011E2
001lE6
OOUEA
OOllEE
0011F2
0011F6
OOllFA
0011 FE
001202
001206 ,
00120A
00120E

CO F 03A
60 f 234
7F F OE8'
40 F OE8'
107 10 f 2610,
02 07 f 666 ,f 040
96 40 F OE8
47 fO f 26E
02 07 F 578'f 040:
OA DO
0002
003A
069f
OA DO
64
15
F68E
D2 02 f5D6F5CF'
92 IA F 421
02 02f 5EC F '5EF •
45 90:F 40A
96 02 FOE8'

001258
oo125G

05MAY6S
124252

EC

;5' .. ....,
,

\

't..Y

o

IUIO

1040665' 15JUN67
125580
130498

3000

t
i

'

",

,','

,",

'1.-,.

,

IBM MAINTENANCE DIAGNOSTIC PROGRAM,

F811

','

,

BC
NI
TM
BC
MVC
01
BC
MVC
SVC
DC
DC '
DC
SVC
DC
DC
DC
MVC,
MVI
MVC:
BAl
01

i

UNC,ITRYl
SNSW.X'40' '
NONE,IHI
OIRl2)
NCCO, ITRn
SNSW, X'40'
NONE,IHI
OIR12)
UNC, I HANG
R9,WTIRI4)
R9,3
01R12)
CCO,JOHN
R9,GREG
ISW(2),ISW
ISW,X'80'
IACSNS+5,C'X',
IACTCC+5,C'X',
01R12)
CCO,IlERO
CC1,IONE
CC2, I TWO
JACTCC+5,X'f3' ,
UNC,INOW
IACTCC+5,X'F2'
UNC,INOW
IACTCC+5,X'Fl'
ICSIII(81 ,HCSWIRlS):
ISW,X'100'
UNC,INOW
IACTCC+5,X'FO'
ISW,X'7F'
0IRlll,X'40' ,
ALl,ISEN
ISII,X'lO'
R9,IITlRI4)
R9,3
ISII,X'80'
MSKI
R9,.
MSK2
lSW,X'7F'
UNC,ISEN

BR. UNCONDITIONAL
CHECK SECTION SENSE SWITCH 1
BR. If OfF
,TEST 1-0
BR. I f NOT CONDo CODE 0
CHECK SECTION SENSE SWITCH I,
BR. IF OFF
START 1-0
BR. UNCONDITIONAL
,PICK UP OM WAIT FACTOR.
CUT IT DOWN TO 1.25 SECS.
,TEST 1-0 TO DEVICE.
BR I F AVAILABLE.
,lOOP UNTIL TIME OUT.
ZERO THE 1-0 HANDLER SWITCHES.
TURN ON THE HANG SIIITCH.
MOVE AN X INTO ACTUAL SENSE 8YTE.
MOVE IN A -X1-0 COMMAND- SID, TID, OR HID
BR. IF CONDo CODE 0
IIR. IF CONO. CODe I
IIR. IF CONDo CODe 2
INDICATE CONO. CODE 3
BR. UNCONDITIONAL
INDICATE CONO. CODE 2
BR. UNCONDITIONAL
INDICATE CONDo CODE I
SAVE CSII
INDICATE 1 CSW
BR. UNCONDITIONAL
INDICATE CONO. CODe a
TURN OFF HANG UP SWITCH
CHECK CONTROL SWITCH FOR NO ENABLE
BR. IF ON
INDICATE ENABLED ONCE
LOAD OM WAIT FACTOR
ADJUST
TURN ON HANG UP SW
ENABLE
WAIT
DISABLE
TURN OFF HANG SW
BR. UNCONDITIONAL

I
I
I

I
I

UNEQ,IUIO
lSW,X'1F'
ISW,X'40'
ALL, I SV2
ICSII118),HCSIICRI51
ISW,X'40'
UNC,INT3
WORKI8t,HCSWIR15)
X'DO'
Al2Il)
Al2IIODPSw+2-SECNO)
AL211UNEX+17-SECNO)
X'OO'
X'64' ,
X'15' ,
Al21IUNEX-SECNO+REGJ
IBLAH+1I3ltICSW
ICNT,X'IA' .
18LAH+2313J .IACT
R9.ICOUT
Uw,X'OZ' ,

BR. I F UNEQUAL
RESET HANG UP SII

8R. IF 1 CSW ALREADY STORED
SAVE CSW I
INDICATE 1 CSW STORED
BR. UNCONDITIONAL
CONVERT ADDRESS
2 8YTES OF 1-0 OLD PSW.
FROM HERE.
TO HERE
PRI NT UNEXPECTED, INTERRUPT DEV ICE
ADDRESS
MOVE -CSW- TO MESSASE
ADJUST COUNT
MOVE -ACT- TO MESSAGE
8R. TD OUTPUT eSII
INDICATE UIO

001260'
001264 :
00126A
oo126E
001272
001276 '
00127A
00127!!
001282
001286 '
00128A
00128E
001292
001296 ,
00129A
00129E
oo12A2
0012A6
0012AA
0012AE
001282
001286
0012BA
0012BE
0012C2
0012C6,
0012CA
0012CE
001202
001206
00120A
00120E
0012E2
0012E6
0012EA
0012EE
0012F2
0012F6
0012FA
001300
001304
00130A
00130E
001312
001316
0013lA
00131E
001322
001326
00132C
001330
001334
001338
00133C
001340
001344
001348
00134E
001352
001356
00135A
00135E
001362
001366,
00136A
00136E
001312
001~76

ID
F811-2
PAGE
6

o

PIN 840188
,PAGE
6A

2540 READER fUNCTION TESTS- ;SIClION 2· F811 .

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
All 1-0 INTERRUPTS RETURN HERE
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
IRETRN CH
RI2,IOOPSW+2
COMPARE FOR CURRENT 1-0 ADDRESS

49
47
94
91

0012105

2

8C
ITRY2 ,TM
BC
IHANG ,TID
8C
TM
8C
SID
BC
IHI
l
SRl
GREG
TID
BC
BCT
JOHN
XC
01
MVI,
MVI,
ISSUE SID
BC
BC
8C
MVI
BC
ITIIO, MVI
BC
lONE
MVI
MVC
01
BC
IZERO, MVI
INOII
NI
TM
BC
01
IliA IT L
SRL
01
SSM'
BCT
SSM
NI
BC

91 40 f 004'
47 80 f 186'
90 00 CODa'
107 70 f 156',
91 40 f 004
47 80 F 186
9C 00 C 000
107 FO f 16E
58 9E 0198'
88 90:0 003
90 00 CODa
47 80F 19A
46 90 F 18E
07 01 f OE8'fOE8'
96 80 F OEB
92 E7 f 605
92 E7 f 59F
9C 00 C 000
47 80F IDE
47 40 F ICC
47 20 F 1C4
92 F3 F 59F
47 FO f lE2
92 F2 F 59F
47 fa F 1E2
92 fl F 59F
02 07 F 6660 040 '
96 40 F OE8
47 Fa F 1E2
92 Fa f 59F
94 7F F OE8
91 40 B 000
47 10 F 286
96 10 F OE8
58 9E a 198
8B 90 a 003
96 BO f OE8
80 00 F 68B
46 90 F 202
80 00 F 68C
910 7f F OE8
107 FO f 286

001246 '
001248
00121tE
001252

DATE

TISTS~,SICTION

107 Fa f 156

001212
001216
0012lA
00121E
001222
001226
00122C
001230
001234
00123A
00123C
00123E
001240
001242
0012410 '

,PIN 840188
PAGI
,6

DATE
EC

o

101 ,FO 'F 4E4'

02 07 F 66E F 040 :
96 20F OE8 '
91 10 B 000'
47,80 F 286'
91 08 'F OE8'
107 10:F 286'
96 08 F OEB
101 FO F IF2
91 02 B 000'
10780 F 2AE
91 100 f OE8
107 BO F 304'
9102 F 66A'
47 10 F 2AE
91 20 F DEB
4780F 304
91 02 f 672
41 80 'F 304.
58 9E 0 198
88 90 :0004
41 80 f 678
50 BD a 048'
9C DOC 000'
47 70 F 352
90 00 C 000
47 40 F 2EE
46 90.F 2C6
47 FO F 304
91 100 F OE8
47 10f 352
47 FO F 356
91 20 F OE8
47 10 F 352
47 fOf 356
95 OC D 044
47 70 F 2CE
96 04 F OE8
05 00 F 605 B 005
47 60 F 352
05 00 F 59F 8 004
47 60 F 352
91 08 B 000
47 80 F 206
91 40 f OE8
47 80F 352
48 88 0 006
40 80 F 32A
05 07 F 666 F 666
47 60 F 352
91 04 B 000
47 80 F 2E2
9120FOE8
47 80 F 352
41 88 '0 008
40 80 F 34C
05 07 F 66E F661
47 80 F 356'
96 01 f OE8'
92 64 F 396
92 CO f 522
91 01 F OE8
47 10 F 376
91 01 F OOIt·
47 80 f 53E
9224 F 396
92 80 F 522
95 40 f 605
05MAY65
124252

ID40665
125580

BC
MVC
01
INn ,TM
BC
TM
BC'
01
BC
ISEN
TM
BC
TM
8C
TM
8C
TM
BC
. TM
BC'
IODSNS L
SRl
LA

ISV2

ST

ITIOLP
ITIC
INOEXI
INDEX2
IlOKI!

I8SN

IceS1I1

SID
BC
TID'
BC
BCT
BC
TM
BC
BC
TM
BC
BC
ClI
BC'
01
ClC
BC .
ClC;
BC
TM
BC
TM
BC
LH
STH
CLC
BC
TM
BC
TM
Be
LA
STH

ICCSW2 ClC,
BC,
INOER 01
IOUNCK MVI
MVI
TM'
8C
TM
BC
MVI
MVI,
IDUTIT ClI .
15JUN67
130498

UNC,ILOGED
ICSW2IB),HCSW(R15)
ISW,X'20'
OIRllItX'lO' ,
NONE,ISEN
ISW,X'08' ,
ALL,ISEN
ISII,X'08'
UNC,IWAIT
OCRl1I,X'02', •
NONE,IOOSNS
ISW,X'100'
NONE,I8SN
ICSW1+4,X'OZ' .
ALL,IODSNS
I SII,X' 20' ,
NONE,IBSN
ICSW2+4,X'OZ' ,
NONE,18SN
R9,WTIR14)
R9,1t
R8,ISENSE
R8,HCAWIRlI.
OIR12)
NCCO,INDER
01R12'
CCI,ILOKE
R9,lTIOLP
UNC,18SN
I SW, X'ltO'
AlL,lNDER
UNC.IDUNCK
ISW,X'20'
ALL,INOER
UNC,IOUNCK'
HCSW+ltIR13I,X'OC' ,
NCCO, j TIC
I SW,X'04' ,
IACSNS+511) ,5IRll' .
UNEQ,INDER
IACTCC+5( 1) ,4IRU' '
UNEQ,INOER
0IRll)'X'08'
NONE,INOEXI :
ISW,X'40' ,
NONE,INDER
R8,61Rlli
R8,ICCSIIl+4
ICSII1I81,IC5WI
UNEQ,INDER
0IRll),X'04'
NONE, INOE X2
ISW,X'20' ,
NONE,INDER
R8,8IRB)
R8,ICCSII2+4
ICSII218hlCSW2
EQ,IDUNCK
ISW,X"OI'
IFlAGltX'64' ,
IflAG2,X'CO'
ISW,X'Ol'
ALl,lOUTIT
SNSW"IC '01 '
NONE, ILEA VI!
, IFLA~ltX'24' ,
IFLAG2,1C'''0'
IACSNS+5,X'.0'

BR. UNCONDITIONAL
SAVE CSW 2
INDICATE 2 CSWS STORED
CHECK CTRl SW FOR 2 INTR EXPECTED
BR. IF NOT
BR. IF 'ALREADY ENABLED TWICE
, INDICATE ENABLED TWICE
CHECK CONTROL SWITCH FDR SNS ON UC
BR. IF OfPTO ISSUE SENSE
SEE IF 1ST CSW IN.
BR. If NO CSW STORED TO 8YP.ASS SENSE
CHECK FOR UNIT CHECK
IF YES BR. TO ISSUE SENSE
CHECK FOR SECOND CSW
BR. If NOT TO 8YPASS SENSE
CHECK FOR UNIT CHECK
BR. IF NOT TO BYPASS 'SENSE
LOAD DM IIAIT FACTOR
ADJUST,
LOAD SENSE COMMAND ADDRESS
STORE IN CAli
ISSUE SENSE
BR. IF NOT ACCEPTED
,TEST 1-0
IIR. IF :CSII STORED
BR. UNCONDITIONAL
8R. IF CSW STORED
BR. UNCONDITIONAL
BR. IF CSW 2 STORED
BR. UNCONDITIONAL
CHECK fOR CE DE ONLY,
BR. If NOT
INDICATE SENSE DATA RECIEVEO
COMPARE FOR EXPECTED SENSE
BR. IF UNEQUAL
COMPARE FOR EXPECTED COND., CODE
BR. IF UNEQUAL
8R. IF NO, CSW EXPECTED
BR. If NO CSW RECIEVED
LOAD CSII ADOR
STORE IN COMPARE INSTR.
COMPARE FOR EXPECTED CSW
BR. If UNEQUAL
BR. IF NO, CSW 2 EXPECTED
BR. IF NO CSW 2 RECJEVED
UPDATE TO SECOND CSW
COMPARE FOR EXPECTED CSW 2
BR. IF EQUAL
INDICATE AN ERROR
SET ,UP fOR ERROR PRINTOUT
CHECK FOR A DETECTED ERROR
8R. IF ERROR DETECTED
CHECK SECTION SENSE SWITCH 7
8R. IF OFF
SET 'UP FOR CDRRECT PRINTOUT
SEa IF, INTERVENTION REQUIRED.
10
F811-2
PAGE
6A

0000000000000000

0000000000000000000 000
IBM MAINTENANCE DIAGNOSTIC PROGRAM
25~0

!.

I

!

READER FUNCTION TESTS- SECTION'Z

0013lA
00137E
001382
001386
00138C
00138E
001390.
001392
00139~ ,
001396
001397 :
001398
00139A
00139E
0013AO
0013A~ :
0013A6 ,
0013A8
0013U
0013AC
0013AE
0013AF
0013BO
0013B2
001386
0013BA
00138E
0013CO
0013C2
0013C~ .
0013C6
0013C8
0013C9
0013CA
0013CC
001300
00130~

00130B
00130A
00130C
00130E
0013EO
0013E2
0013E3
0013E~

0013E6
0013EC
0013FO
0013F6
0013FA
oo13FE
001402
001406
00140A
00140C
001~OE

001410
001412
001418
00141E
001420
001421
001422
001't2~

001426
oo142C
00142E
001~lF

DATE
EC

PIN
PAGE

:

~7 80 F 554'
91.01 F 66A
~7 10 F 554'
02 01 F6ZC 8 OOZ
OA DO
0002
062C
062C
OA DO.
64
09
F627 ,
U 80.:0 :004
18 88'
50 BO F 588'
OA DO
0003
0589
05B8
OA DO
AD
10
F5B3
41 BB 0 004'
91 80B 000
~7 10 F 438'
OA DO
0003
0688 .
05A9
OA DO
AD
OF
F5A4
95 9C F lAC
47 60:F 426
50 AO'F 5C8'
OA DO
0003
05C9
05C8
OA DO
AD
DB
F5C3
02 02 .F 506 F 5DZ
92 16 F 421
02 07 F 578 A 000
45 90 F 40A
91 CO A 004
47 80 F 426
41 AA 0 008
47 FO F 3FO
OA DO
0008
0578 .
0578
02 07 F 5DA F 578
02 07 F 5E3 F 580
OA DO
AD

14

F5D5
07 F9
02 00 F 595 B 004
OA DO
AD
OA
05MAY65
124252

10AU.G65
125580

LA

SR
ST,
SVC
DC
DC
DC
SVC
DC
DC
DC
lA
TM
BC
SVC
DC
DC
DC
SVC
DC
DC
DC
ClI
BC
ST
SVC
DC
DC
DC
SVC
DC
DC
DC
MVC
MVI
ICWOUT MVC
BAl
TM
BC
LA

BC
SVC
DC
DC
DC
MVC
MVC
SVC
DC
ICNT
DC
DC
BCR
ICCOUT MVC
SVC
DC
DC
15JUN67
130498

·'7

F8l1

BC
TM
BC
MVC
SVC
DC
DC
DC
SVC
IFLAGI DC
DC
DC

ICOUT

840~88

PR IF YES.
SEE IF UNIT EXCEPTION.
BR IF YES.
MOVE TEST NUMBER TO PRINT
CONVERT TEST NUM8ER

PRINT TEST·NUMBER

ADJUST LINK ADDRESS FOR PRINTOUT
CONVERT LINK ADDRESS

PRINT LINK ADDRESS

BR. IF NO 1-0 COMMAND ISSUED
CONVERT 1-0 ADDRESS

PRINT 1-0 ADDRESS

COMPARE FOR SIO COMMAND
8R. IF NOT
STORE CCIIADDR.
CONVERT CAli

PRINT CAli.

MOVE -CCII- TO MESSAGE
ADJUST COUNT
MOVE CCW TO WORK AREA
BR. TO OUTPUT CCII.
CHECK FOR ANY CHAIN FLAGS
BR. IF NONE
UPDATE TO NEXT CCII.
BR. UNCONDITIONAL
CONVERT

MOVE TO MESSAGE
PRINT

X'U'

AL2CI8LAH-SECNO+RIG)
UNC.R9
IEXPCC+5UI;4IRIU .
X'DO'
X'AO' .
X'OA' .

RETURN VIA REG 9
MOYE EXP CC.TO MESSAGE
PRINT EXPECTED CONO.·CODE

. 10
F811-2
PA81
.,

#"t,

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 84018B
'PAGE
.7A

2540 READER FUNCTION TESTS -.SECTION 2
EQ,ROYM
ICSlll+4,X'01'
ALl,ROYM
ITSTNO+5IZ),l(Rll)
X'DD'
Al212)
ALZ ( I TSTNO+!l-SECNO) :
Al211 TSTNO+!l-SECNO) .
X'DO'
X'64'
X'09'
ALlIITSTNO-SECNO+REG)
R8,4
Rll,R8
Rll,ILlNK+5
X'DO'
Al213)
Al21IlINK+6-SECNO)
AL21IlINK+!l-SECNO)
X'DO'
X'AO'
X'lO'
Al21IlINK-SECNO+REG)
Rll,41RllI
0IRll)'X'80'
ALl,IOCSII
X'DD'
Al2(3)
Al2IIOADR-SECNOI
Al2110ADDR+!l-SECNO)
X'OO'
X'AO'
X'OF'
Al2110ADDR-SECND+REG)
ISSUE,X'9C' .
UNEQ,ICCOUT
RIO, ICAII+5
X'DD'
Al213)
AL21ICAII+6-SECNOI
Al2(ICAII+!l-SECNO)
.
X'DO' '.
X'AO' .
. X'OB'
Al21ICAM-SECNO+REGt
IBLAH+1I3) ,ICCII
ICNT,X'16'
WORKI8),OIRIOI
R9,ICOUT
41 RI0l,X'CO' .
NONE ,ICCOUT
RI0,8IRIO)
UNC ,ICWOUT
X'DD'
Al218)
Al21110RK-SECNO)
Al21110RK""SECNO)
IBLAH+5(8)'WORK
IBLAH+1418J ,WORK+'
X'DO'
X'AO' .

",I 0:" 0 0 0 0 ' 0 0 0 0 0 0 ·

001430
001432
001434
001435
001436
001438
00143E
001442
001446
00144A
001450
001454
001458
00145C
001460
001466
00146A
00146E
001472
001478
00141E
001482

001~86 .
00148A
001490 :
001496
00149A
00149E
0014A2
00HA8
0014AE
001"B2
001488
00148C
0014CO
0014C2
0014C4
0014C6
0014C8
0014CA
0014C8
0014ce
0014CE
001400.
001402.
001404 '
001406
0014D8
001409
0014DA
0014DC
0014EO'
00HE4 '
0014EA
0014EC
0014EE
0014FO
0014F2
0014F8
0014FE.
001504 .
00150A
00150C
00150D
'00150E
001510 .
001514 ~
001518 '

DATE
EC

F590
OA DO
AO
OA
F59A
02 02 F 506 F 5CF
92 1A F ~21
91 08 B 000
~7 80 F ~6A
02 02 F 5EC F 5F2
48 8B 0 006
40 80 F 464
41 88 0 008
40 80 F 494
02 07 F 578 F 578
45 90 F 40A
91 40 F OE8
47 80 F "82
02 02 F SEC F 5EF·
02 07 F 578 F 666
45 90 F 40A
91 04 BODO
47 80 F 49A
02 02 F 5EC F 5Fl
02 07 F 578 F 578
45 90 F 40A
91 20 F OE8'
47 80F 4B2
02 02 F 5EC F '5EF
02 07 F 578 F 66E
45 90 F 40A
02 00 F 5FA 8 005
91 04:F OE8
47 80 F 4DC
OA DO
0001
05FA
05FA
OA 00
AO
08
F5F5
OA DO
0001
0605
0605
OA DO
AO
OB
F600
95 30 E 181
41 60 F 510
02 DB F 578'E 080'
OA DO
OOOC
0578 .
0578 .
02 OIF 610F 578'
0205 F 613·F 57A
02 05 F 61A F 582
02 05 F 621 F 58A
OA 00

DC
SVC
DC
DC
DC
10CSW MVC
MYI
TM
BC
MVC
LH
STH
LA
STH
ICHNGl MYC
BAL
IDIDI TM
BC
Mve
MVC
BAL
IMORST TM
BC
MVC
ICHNG2 MYC
1010

IPAS

O!IMAY61
124252

10AUG65
125580'

BAL

TM
BC
MVC
MYC
BAL
MYC
TM
BC
SVC
DC
DC'
~C.

SYC

DC
DC

~C.

SYC
DC
DC'
DC
SYC
DC
DC
DC;
IPASS CLI
BC·
ILOGED MYC
SYC
DC
DC
DC
MYC
MYC
MYC,
MYC.
SYC

AD

IC
F608
9102 F OE8
47·80:F 520
94 :FO FOE8'

F8l1

ICUIO

DC
DC
DC,
TM'
BC

HI
15JUN67
130498

Al2IIEXPCC-SECNO+REGJ .
X'OO'
PRINT ACTUALCONO. CODE
X'AO'
X'OA'
AL21IACTCC-SECNO+REGI
IBlAH+1I3' ,ICSII
MOVE -CSII- TO MESSAGE
ADJUST COUNTICNT, X'U'
0IR11',X'08'
NONE,IOIOI
BR. IF NO CSII EXPECTED
JBlAH+2313).IEXP
MOVE -EXP- TO MESSAGE
RB,6IRlll
R8,ICHNG1+4
R8,8IR8)
R8, JCHNG2+4
WORKI81,1I0RK
MOVE EXPECTED CSII TO 1I0RK AREA
R9,ICOUT
BR. TO OUTPUT EXPECTED CSII
ISII,X'40'
NONE,IMORST
8R. IF NO CSII STORED
IBlAH+23131.IACT
MOYE.-ACT- TO MESSAGE
1I0RK18) ,ICSlll
MOYE ACTUAL CSII TO IIORK AREA
R9,ICOUT
BR. TO OUTPUT ACTUAL CSII
01Rlll,X'04'
NONE,IOID
BR. IF NOT EXPECTING 2 CSWS
IBlAH+2313).IIXP
MOVE -EXP- TO MESSAGE
WORKI8,,1I0RK
MOYE EXPECTED CSW TO 1I0RK AREA
R9,ICOUT
8R. TO OUTPUT EXPECTED CSII2
15W,X'20'
NONE,IPAS
BR. IF NO SECOND CSW STORED
18LAH+2313),IACT
MOYE -ACT- TO MESSAGe
1I0RKI8JtICSII2
MOVE CSW TO IIORK AREA
R9,ICOUT
IEXSNS+511'.5IRl1J
MOYE EXP SENSE TO MESSAGE
ISII.X'04'
NDNE,IPASS
8R. IF NO SENSE DATA RECIEYED
X'OD' .
CONYERT EXPECTED SENSE
AL21l J
Al2(IEXSNS+5-SECNOJ
Al2(IEXSNS+5-SECNOI
X'OO'
PRINT EXPECTED SENSE
X'AO'
X'OB'
Al2CIEXSNS-SECNO+REGI
X'DO'
AL2UJ
Al21IACSNS+!l-SECNOI
Al21 IACSNS+!l-SECNOI
X'DO' .
PRINT 'ACTUAL SENSE. DATA
X'AO'
X'OB'
AL2IIACSNS-SECNO+REGJ
SYSMODIRI4, .X'30' .
CHECK FOR MODEL 30
UNEQ.ICUIO
BR IF NOT.
IIORKI121,LOGOUTCRI4t MOYE LOG OUT TO WORK AREA
X'OD' .
CONYERT
Al2(12)
Al21 WORK""'SECNOI
Al21110RK-SECNOI
IOLOG+5121 .WORK .
MOVE LOG OUT TO MESSAGE
IOlOG+816).IIORK+2
IOlOG+1516J.WORK+IO
IOLOG+22(6J.WORK+18
X'DO' .
PRI NT LOG OUT
X'AO'
X'IC'
AL2 (lOLOG.... SECNO+REG J .
15I1,X'02' .
see .IF UIO.
8R.· IF NOTUIO
NON£,IOPOUT
151ftX'F-D' ,
RESET 'UIO SlInCH
10
F811-2
,PAGE
lA

._ _._"..". - - - . - - - - - - - - - - - - - - - - - - - -.....- - - - -_ _ _L-_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _- -_ _ _ _ _ _ _ _ _ _ __

._------------------------

IBM MAINTENANCE DIAGNOSTIC PROGRAM'

I

j

2540 READER FUNCTlONTlSTS '·SECTION

,PIN 840188
'PAGE
.'

IBM MAINTENANCE DlAGNOSTIC

:~'F811

~ROGRA";

2540 READER FUNCTlONTlSTS - ;SEtTlON 2

PIN 840188'
PAGE
8A
I!~n.

,

1

I

00151C
001520
001522
001523
001524 ,.
001526
001528
001529
00152A
00152C
001530
001534 ;
001538
00153C
00153E
001542
001546
00154A
00154E
001552

47 FO F IF2
OA DO:
CO
36
F630
OA DO
AO
01
F583
50 AD 0048
91 CO F 004.
47 50·F 156 .
91 80F OE8 '
07 15
91 08 8 000'
47 80 ,F 544
41 BB 0 002
41 88 0 006
98 89· F 570:
01 F8

001554 :
001556
001558
00155A
00155C
001560
001562
001561t
001566

OA DO
2410

'

J'"

0
,I"

.

o

UNC,INAIT
. X'DO' ,
X'CO'
X'36' '
DC, ,AU( loPTl-SECNO+REGt
SVC 'X'OO'
DC
' X'AO'
DC
i X'Ol'
DC
AL2(ILINK~SECNO+REG.
ST.
RIO,HCAWCRI3.
TM
SNSN,X'CO'
BC
ANY,ITRYl
TM
I SN,X'80' .
8CR
ALL,R5
ILEAVE TM
0IRl1),X'08' .
8C
NONE.IUP
LA
Rl1,2IRl1.
!UP
LA
Rl1,6IRl1.
LM.
R8,R9,ISAVE
BCR
UNC,Rli

OA DA
90 00 C 000
OA DO
8001
F680
It? FO F 136

05MAY65
124252

8R. UNCONDITIONAL
PRINT. LOOP OPTIONS

001609
00160B
001614 '
001618 .
001624 :
001627,
001630
001639
001640
001649
001650 :
001659
001660
001666
00166E
001678 '
001680·
001688 '
001688
00168C
001680
00168E
001697 :
00169E
0016A3·
0016AC
001680 '
0016B9

SPACE A LINE

STORE CAN
CHECK SECTION SENSE SNITCH
8R. IF ANY ON

a

AND 1

RETURN VIA REG 5 IF HANG,UP
8R. IF NO CSN EXPECTED
UPDATE LINK ADDRESS FOR RETURN
RESTORE REGS 8 AND 9
RETURN VIA REG 11

.......................................................................
•
INTERVENT10N REQUIRED "ESSAGE
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ROYM
SVC
X'OO'
PRINT -MAKE DEVICE'READYDC
DC
SVC
TlO
SVC
DC
DC
8C

F6BO

00156A
00156A
07 00
00156C
07 00
00156E
07 00
001570
0000000000000000
001578·
001590 : 40C3C34040E740C5E7:
001599
07
00159A
40C3C34040E740CIC3·
. E3
0015A3
0015A4
40C1C40940E7E7E7ET
0015AD
E7E740E7C906
0015B3
00
0015B4
001583
0015B3
40C1C4D940E7ETETET '
00158C
E7E74003C9D502
0015C3
00
0015C4 :
0015C3 '
0015C3
40C3C1E640E7E1E7E7
0015CC
E7E140
0015CF
C3E2E6
001502
C3C3E6
001505
40C3E2E61tOE7E7E1El
0015DE'
E1E7E7E7ItOE1El
0015E5
E7E7E7E1E7ET40C5E1 :
0015EE
07
0015EF I
C1C3E3
0015F2.
C5E1D7
0015F5
40E205E21tOE1E140C5
0015FI
El0l
001600
40E2D5E240E1E140Cl
DATE
EC

BC i
10POUT ISVC
IFLAG2 DC
DC

X' 2410' .
AL2IMDR-SECNO+REG.
X'OA'
OCR12)
X'DO' .
X'8001' .
AL2IMDR-SECNO+REGJ
UNC,IRETRY

. -HALTTEST 1-0
PRINT A 8LANK.

8R TO CONTINUE.
.......................................................................
•
1-0 HANDLER WORK AREA.
.......................................................................
CNDP " 0,8
BCR
' 0,0
8CR
0,0
BCR
0,0
ISAVE DC
XL8'0'.
WORK
OS
2ltC
IEXPCC DC
C' CC 'x EXP'
IACTCCOC

C' CC

10ADDR DC

C' .lOR XXXXXX XIO'

ILINK

ICAN

DC
X'OO'
CNOP 0.1t
oRG
*-1
DC
' C' ,CAN XXXXXX '

ICSN
ICCN
18LAH

DC
DC
DC
DC

X'OO' .
0.4
*-1
C' ADR XXXXXX LINK'

C'CSN'
,C'CCW' :
C'CSN XXXXXXXX XX'
C' XXXXXX EXP'

lACT
DC
IEXP
DC
IEXSNS DC

C'ACT' .
C'EXP' '
C' 'SHS XX EXP' :

IACSHS DC

C· .SNS

10AUG65, 15JUN61;
125580 '
130498 '

1

X ACT" ,

DC
CNoP
ORG
DC

xx

I

0016CO
0016e2
0016C6
0016CA
0016CC
001600 :
001604
001608 '
00160C
0016EO'
0016E4
0016E8 '
0016EC
0016FO
0016F6
0016FA
0016FC
001702
001704 '
001705
001706
001708
00170C
001710
001714
001718
001718
00171C
0017BC
0017C5
0011CC
001705
0017D6
001706

C3E3
4003D6C140E7E740El:
E7E7E7E7E740E7
E7E7E7E1E740E7E7El
E7E7E7
40E3E2E340ETE1El&1'
40E2C5E340E2E240FO·
40D60540C60609 '
40030606074006D540
E7C9D66840E2E2
40F140D60540C6D6D9'
40E3C90640E2C9
064003060607
0000000000000000
0000000000000000 ,
04001605 00000001
0000000000000000 "
0011AC
FE
01
00
40E4C9D640C6D9D6D4,
40C4C5E5C9C3C5
40ETE7E7E7
4009E30540C2E8D1Cl:
' E2E2C5C4
4004C102C540C4C5E5
C9C3C54009C4E8 '

IB DO
91 40 E
47 80 F
18 'OF
58 CO F
54 COF
50 CO F
58 'CO F
54 CO F
50 CO F
91 80 F
47 10 F
92 40 F
02 9E F
41 AO F
07 F4
02 00 F
OA DO
64 '

10LOG

'. C'LOG XX XXXXXX' X' '

DC

,C'XXXXXXXXXXX' .

, lTSTNODC
10PTl DC

ICSN1 '
ICSN2
ISENSE
' ISLAVE
, 10AOR
MSKI
MSK2
RTSV'
; IUNEX

C' LOOP ,ON XIO. SSt

DC

C' 1 ON FOR, TID SP.,

,DC
C'oLOOP' ,
, XL8'0' ,
DC
. XL8'0' ,
DC
CCN· X' 04' ,lAC SNS+5,X 'DO' ,1
DC
XL8'0'
'REGISTER SAVE AREA
DC,
AL31ISSUE.
DC
X'FE' ,
X'Ol' ,
DC
DC
X'OO'.
SAVE RT,NO. FOR HANGUP •
DC I
C' ,UIO FROMOEV.ICE' ..

DC
BYPASS DC

C' XXXX'
C' ,RTNBYP.ASSED~ .

MDR

C' MAKE DEVICE ROY',

DC

....................................................................... .
•
INITIALIZE ,ROUTINE
.......................................................................
SR
TM'
8C·
LR
NITWIT L
N·
ST I
L
N
ST
8LOOP' TM'
BC i
MV1
MVC
LA
8CR
HANGUP MVC
SVC
DC

OE4'
718'
89C
OED
718
898
OE8
6FC
71C
110 F l1C
820
003 F 680

1A

DC
01
8AL
MVI·
8C
CNOP
DC
OS
DC

R13,Rl3
406IRI4),X'40'
NONE,NITNIT
R13,R15
RI2,UNIT2
R12,M0050
R12,PCH
R12,UN1T1
R12,M0050
RI2,ROR
ISN,X'80'
ALL,HANGUP
ROAR ,C' .' .
ROAR+l1 159. ,RDAR
R10,NDDP
UNC,R4
,..
SECNO+311.,RTSV'
X'OO'
X'64' ,
X'lA'
AL2IHUNG-SECNO+REG.
ISN,X'Ol'
R5,IDOSNS
ISN,X'OO'.
UNC,BLOOP
0,1t
X'00003FFF'
160C
C'PREVIOUS HANG U'

DC,

cop DETECTED'

DC

OE8
2AE
OE8
6E4

00003FFF
4007D9C5E5C906E1tE2 .
40C8CI05ClltOE4
011t0C4C5E3C5C3E3C5
C4

,C'TST XXXX"
'C' SET SS DON FOR',

DC

INIT'

196
6CC

FlBC
96 01 F
45 50 F
92 OOF
47 FO F

DC'

MOD50
ROAR
HUNG

ZERO REG 13
CHECK FOR FORCED PR08LEM STATE
BR. IF NOT
SH UP FOR PROBLEM STATI!
PICK UP THE PUNCH UNIT TABLE.
SAVE ONLY THE PUNCH ADDR.
SAVE IT
LOAD REG 12 WITH UNIT ,TABLE ENTRY
SAVE ONLY THE READER ADDR.
SAVE IT
CHECK FOR HANG UP
8R. IF. DETECTED
CLEAR NORK AREA.

'PUT ADDR OF NoOP INTO 10.
RETURN VIA. REG It
RESTORE RT NO.
PRINT
-PREVIOUS HANGUP DETECTEoTURN ON ERROR SWITCH.
BR. TO OUTPUT;AVAILA8LE, INFO
RESET HANGUP SNITCH

CNOP' O,It

OT 00

8CR
0,0
.......................................................................

• ROUTINE 01·- .ISSUE ,A· TEST ·1-0· TO THE READER AND THE· PUNCH •. THE
.:
EXPECTED ,CONDITION CODE: FROM EACH DEVICE' SHOULD BE

ACTt
,10

PAGE

F811-2
8

DATE
EC

05MAY65
124252

10AUG65
125580 .

15JUN61·
1301t98

,10

PAGE

F811-2
8A

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 .01

0000000000000000000000000000000000
•

!

:

•

•

IBM MAINTENANCE DIAGNOSTIC PROGRAM
IBM MAINTENANCE DIAGNOSTIC PROGRAM
2540:READER FUNCTION TESTS - ,SECTION 2
, I

2540 READER FUNCTION TESTS -SECTION Z

• '
•
•
•
•
• '
•
• '
•
•

001108 '
001109 '
00110C
DOllED
0011E4 '
0011E6
0011E8
0011EA
0011EE
0011F2
0011F4 :
oo11F6 ,
0011F8 '
0011FA
0017FA

01
0001FC
45 40 F
45 BO F
0000 .
0010
FOOD
58 'CO F
45 BO F
0000
0020
FOOD:
OA D6

ZERO.
IF CONDITION CODE 1 IS RETURNED,THE DEVICE IS EITHER
NOT READY DR SOME STATUS WAS' STill PENDING IN THE
DEVICE FROM THE lAST START 1-0 EXECUTED ON THE DEVICE.
IF CONDITION CODE 2 IS RETURNED, CHANNEL END FROM THE
PREVIOUS START 1-0 IS STilL PENDING.
IF CONDITION CODE 3 IS RETURNED, THE ADDRESS OF THE
DEVICE THAT THE TEST 1-0 WAS ISSUED TO MAY BE WRONG
-POSSIBLE WRONG OM UDT ENTRY- OR THE CONTROL ,UNIT COULD
NOT DECODE IT PROPERLY •

B9C
OFE

01 00

ROUT01 DC
DC
BAl
START BAL
DC
DC
DC
L
BAl:
DC
DC
DC
SVC
CNOP
BCR

X'Ol'
Al3IRoUT02-SECNOI
R4,INIT
Rl1,ITIO
X'OOOO'
X'OOlO'
X'FOOO'
R12.PCH
Rll,ITIO
X'OOOO'
X'0020'
X'FOOO'
X'D6'
0,4
0,0

ROUTINE NUMBER
ADDRESS OF NEXT ROUTINE
BR. TO INITUll ZE
BR TO ISSUE TEST I-D.
CTRl SWITCHES
T EST
N U M B
EXP CONDo CODE AND SENSE
PICK UP THE PUNCH ADDR.
BR TO ISSUE TEST 1-0
CTRl SWITCHES.
T EST,
N U M 8
EXP CONDo CODE AND SENSE
ROUTINE EXIT

E

DATE
EC'

E

R

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

02
00086C
45 40 F 6CO
58 CO F 89B
41 AD F B30
45 80 I' '112
2AOO
0030
FOOD
FBAO
45 40 F AE6
0001
41 AO F BOO
58 CO F B9C
45 BO I' 112
4BOO
0040
1'180
FB80
58 'IE 0 198
88'90,0002
46 90:F 8U
58 CO F 898
45BO I' OFE
4800 ;
0050 :
FlOO
F8B8 .
45 40 F AE6'
0001
58 'CO I' 'B9C .
41 AO:F 800:
05MAY65
IZ4Z52

45 BO F 112
Z800
0060
FOOO
FBCO
OA 06

lOAUG65
125"0

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

ROUTOZ DC
DC
BAl
L
lA
BAl,
DC
DC
DC
DC
BAl
DC
LA
L
BAl
DC
DC
DC
DC
l
SRl
BCT
l'
BAL'
DC
DC
DC
DC
BAL
DC
L
LA
15JUN67'
130498

840188

X'02'
ROUTINE NUMBER
Al3IROUT03-SECNOJ
ADDRESS OF NEXT ROUTINE
R4,INIT
BR. TO INlTlAlI ZE
R12,RDR
PUT READER ADDR INTO REG 12.
R10,RD1
PUT RD FD STK SEl IU ADDR INTO 10.
Rll,lSIO
BR TO ISSUE START 1-0.
X' 2AOO' ,
CTRl SWITCHES
' X'0030' ,
T EST
N U M B E R
X'FOOO'
EXP CONDo CODE AND SENSE.
Al21 EXPI-SECNO+REG) , EXP CSW ADDRESS
R4,DWBF'
BR TO GENERATE DIAGNOSTIC WRITE DATA
X'OOOl' ,
DATA
R 10,DGWR
PUT ADDR. OF DUG WR IlE, INTO 10.
Rl2,PCH
PUT ADDR OF PCH INTO 12.
Rll,ISIO
BR TO ISSUE START 1-0.
X'4800'
CTRL SWITCHES
X' 0040'
T EST
N U M B E R
X'FIBO'
EXP CONDo CODE AND SENSE
Al2IEXPZ-SECNO+REGJ
EXP CSW ADDRESS.
R9, WTlR14)
,PUT 10 SEC WAIT IN REG 9.
R9,Z
CUT IT DOWN TO Z.5 SECS.
R9,.
TIME OUT.
R12,ROR
PUT RDR ADDR. INTO 12.
R 11, I TIO
8R TO ISSUE TEST I-tl.
X'4800'
CTRl SWITc~ES
X'0050'
T EST
N U' M B E R
X',F100· '
-EICP CONDo CODE AND SENSE.
Al2IEXP3-SECNO+REG'.
EXP CSW ADDRESS.
R4.DWF;
BR TO GENERATE Cat. BINARY DATA.
X'OOOP
DATA
RU,.PCH
PUTADOR. OF :PCH· INfO 12.
RlO.OG'"
PUT AODR OF DlAGUnl.,CQI, INTO 10.

'10

PAU

F811.,Z

9

1'811'

BAL
DC
DC
DC
DC
SVC
CNOP·
BCR

07 00

RU,I SID
X'Z800'
X'006D' ,
X 'FOOD'
AL2 I EXPlt-SECNO+REG I
X'D6'
0,4
0,0

BR TO ISSUE START I~O.
CTRl SWITCHES
T E S ,T
N U' M B 'E
EXP CONDo CODE AND SENSE.
EXP CSW ADDRESS.
ROUTINE EXIT

9~"1'

R

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
* ROUTINE 03 - ISSUE A DIAGNOSTIC WRITE TO lOAD THE READ BUFFER WITH

•
•
•
•
•
•

R

• ROUTINE 02 -,ISSUE A READ AND STACKER SELECT R1 TO THE READER.
•
AllOW ONLY CHANNEL END TO BE ACCEPTED. ISSUE A
•
DIAGNOSTIC WRITE 10 THE PUNCH -ATTEMPTS TO WRITE DATA
•
INTO THE READ 'IIUFFER• '
TEST FOR COMMAND REJECT, IN THE PUNCH SENSE BYTE.
•
ACCEPT DEVICE, END FROM THE READER.
•
RE-ISSUE DIAGNOSTIC WRITE AND CHECK TO SEE IF COMMAND
• ,
WAS ACCEPTED.,.

0011FC
oo11FD
001800
001804 '
001808
00180C
001810
001812
001814 :
001816
001818
00181C
00181E
001822
001826
00182A
00182C
00182E
001830,
001832 .
001836 .
00183A
00183E
001842
001846 "
001848 '
0018U
00184C'
00184E
OO'85Z'
001854 ~
001858 '

00185C
001860
001862
001864
001866
001868
001864
00186A

.......................................................................
6CO'
OFE

PIN

, PAGE

F811

00186C
00186D
001870
001874
001818
00187e
001880
00188Z
001886
001888
00188A
00188C
00188E
001892
001896
00189A
00189C
00189E
0018AO
0018A2
0018A6
0018A8 '
0018'"
0018AC
0018AE
0018BO

03
0008BO
45 40 F
58 CO F
41 AO F
45 40 I'
0120
45 BO F
2800
0010
FOOD
F8CO
58 CO F
41 AO F
45 BO F
3COO
0080
F008
FCZO
45 BO F
3COO
0090
FOOO
FRAO
OA 06

MORE THAN ONE DIGIT BETWEEN ROWS 1 THRU 7.
ISSUE A READ AND FEED AND TEST FOR UNIT CHECK IN STATUS
AND DATA CHECK IN THE SENSE BYTE.
I SSUE ANOTHER READ AND FEED TO THE READER AND TEST'
FOR AN ACCEPTED COMMAND DUE TO THE BUFFER BEING READ
INTO WITH VALID DATA FROM THE FIRST READ •

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ROUT03 DC
X' 03'
ROUTI NE NUMBER
DC
Al3IROUT04-SECNOI
BAL
R4,INIT
l
R1Z,PCH
lA
R10,DGWR
BAL: R4,DWBF
DC
X'0120'
BAl; Rll,lSlO
DC
. X' 2800' ,
DC
' X' 0070·
DC
X'FOOO'
DC
AlZIEXPlt-SECNO+REGJ
l
R 12,RDR
LA
RI0,RDl
BAl
R11,lSIO
DC
X' 3COO' .
DC
X'0080'
DC
X'F008'
DC
AlZIEXP14-SECNO+REGI
Rll,ISIO
8AL
DC
X' 3COO' ,
DC
' X' 0090'
DC
X'FOOO'
DC
Al2IEXPl-SECNO+REGI
SVC
X'D6'
CNOP 0,4

6CO
B9C
BOO
AE6
112

B98 .
B30
112

112

ADDRESS OF NEXT ROUTINE
BR. TO INITIALIZE
PUT THE PCH ADDR. INTO REG 12.
PUT ADDR.
BR TO COL BINARY GENERATOR.
DATA
Bft TO ISSUE START I~O.
CtRl SWITCHES
T EST
N U M B ,I 'R
EXP CONDo CODE AND SENSE
EXP CSW ADDRESS
PUT ROR AODR INTO REG 12.
PUT AD CCW ADDR INTO 10.
BR TO ISSUE START l-{l.
CTRl SWITCHES
TE S T
N U M B E R
EXP CONDo CODE AN.D SENSE
EXP CSW ADDRESS.
8R TO ISSUE START 1-0
CTRl SWITCHES
T EST
N U M B E R
EXP CONO. CODE AND SENSE
EXP CSW ADDRESS.
ROUTINE EXIT

.......................................................................
• ROUTIN.E 04 - I SSUE A READ NO FEED AND THEN FOLLOW BY A FEED AND
•
STACKER SELECT RI. STATUS IS TESTED FOR CHANNEL END AND
•
DEVICE END TOGETHER FOR THE READ NO FEED COMMAND.
•
STATUS FOR THE FEED AND STACKER SELECT IS TESTED FOR
•
SEPARATE CHANNEl:AND DEVICE END INTERRUPTS.

OD18BO
0018B1
001884 :
001888 '
0018BC
0018CO
0018C4 :
0018C6
0016C8
00.18eA
0018CC
001800 :
001804 :
001806 .
OOUD8 '
0018DA'
0018DC
001.IOE

04
0008 EO
45 40 I'
58 CO I'
41 AD F
45 BO F
2800.
0100 :
FOOD
FBDO
41 AO F
45 BO:F
3toO.
0110.

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ROUT04 DC
X'04' .
ROUTINE NUMBER
DC
BAL
l
lA
BAL'
DC
DC
D.C
DC
LA
8Al i
DC
DC
DC
D.C

6CO,
898'
808
112'

838'

112

Fl00 :
FC60
O.A D6'

SVt,

Al3IROUTO~SECNO)
ADDRESS OF NEXT ROUTINE
R4,INIT
BR. TO INITIALIZE
Rl2,RD.R
PUT THE RDR ADDR. INTO REG 12.
RlO.DGRD
PUT READ NO fEED· cew ADDR INTO 10.
Rll,lSlO
BR TO ISSUE START 1-0
X' 2800' ,
CTRL SWITCHES
. X'OlOO' ,
. T EST
N U' M B 'E R
,X'FOOO'
EXPCOND. CODE AND SENSE.
ALZIEXP6-SECNO+REGI
EXP CSN ADDRESS.
RlO.RfSl
PUT FEED cew ADDR. INTO 10.
R.U.ISIO·
BR TO ISSUE START I~O
' X·3eoo* ,
CtRlSNITCHES
' X'0110' .
T' E S, T '
N U' M 8, E R
'X'F100'
EXP CONO.CODEAND SENSE
At2(JlXPl5-SECND+.REGJ '
'X',D6-'
. ROUTltIE EXIT'

eND." i'O,f.

DATI

05MAY6$·

EC'

1~2l~5S'0 '

.lOMlG65

UJUN.67,

IJOn..

10
F811.,2
PAG;19A

IBM ,MAINTENANCE DIAGNOSTIC PROGRAM

PIN 8401,~'" 8
PAGE
11

2540 READER FUNCTlONTISTS -,SECTION 2

OOlBDE

OT 00

8CR

0,0

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• "'OUTINE 05- - I SSUE A DIAGNOSTIC WRITE TO THE PUNCH WHICH SHOULD
•
•
•
•
•
.,
• .
OOlBEO:
OOlBEl
001BEit
0018E8
0018EC
OOIBFO:
0018FIt
001BF6
0018FA
0018FC
0018FE
001900
001902
001906
0019DA
001906
001910
001912
001911t
001916
001918

05
000918
ItS "0 F
58 CO F
41 AO F
45 ItO F
3F3F
"5 BO F
2AOO
0120
FOOO
FBCO
5BCO F
Itl AO F
itS 80 F
2800
0130·
F1BO
F8BO
OA 06

FIll THE READ 8UFFER WITH DATA THAT IS INVALID TO A
NORMAL READ COMMAND.
ISSUE A FEED AND STACKER SELECT 11.1 TO THE READER.
THI S COMMAND SHOULD BE REJECTED DUE TO TWO FEEDS IN A
ROW 8E1NG PERFORMED ON THE READER. A SENSE COMMAND IS
ISSUED TO THE READER AND TESTED FOR THE COMMAND REJECT
8IT ON THE SENSE 8YTE.

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ROUT05 DC
X'05'
ROUTINE NUM8ER
DC
8AL
L
LA
8AL
DC
8AL'
DC
DC
DC
DC
L

AL3IRDUT06-SECNO)
RIt,INIT
R12,PCH
RlO,DGWR
RIt.DW8F
X'3F3F'
R11.ISIO
X'2AOO'
X'0120'
X'FOOO'
AL2IEXPIt-SECNO+REGI
RI2.RDR
LA
RIO,RFS1
8AL
R11,ISIO
DC
X'2BOO'
DC
X'0130'
DC
X'F180'
DC
AL2(EXP2-SECNO+REGI
SVC
X'D6'
CNOP, O,It

6CO'
89C
800
AE6
112

898 '
838
112

ADDRESS OF NEXT ROUTINE
811.. TO I NITULI ZE
PUT THE PCH AOOR. INTO REG 12.
PUT AODR OF DIAG WR CCW INTO 10.
8R TO COL 8INARY GENERATOR.
WRITE DATA.
811. TO ISSUE START 1-0
CTRL SWITCHES
T EST
N U M 8 E R
EXP CONDo CODE AND SENSE
EXP CSW ADDRESS.
PUT RDR AODR INTO REG 12.
PUT FEED CCW ADDR. INTO 10.
811. TO ISSUE START 1-0
CTRL SWITCHES
T EST
N U M B E R
EXP CONDo CODE AND SENSE
EXP CSW 1 ADDR.
ROUTINE EXIT

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• ROUTINE 06 - 1 SSUE A DIAGNOSTIC WRITE COMMAND TO THE PUNCH TO FIll
• '
•
•
• '
•
•
.,
•
•
• '
00191B
001919
00191C
001920
00192"
00192B
00192C
00192E
001932
00193" _
001936.
001938 '
00193A
00193E
00 191t2
00191t6
00191t8
0019ltA
0019ltC
00191tE
001952 .
001956 00195A
DATI
EC

'.'.'.'.;\')
..

'!(--

()

10AUG65
125580 '

THE READ BUFFER WITH, VALID DATA MODE 1 DATA.
I SSUE A READ NO FEED WITH A SENSE COMMAND FOLLOW ING
TO ALLOW TESTING THE SENSE 8YTE.
ISSUE A DIAGNOSTIC WRITE COMMAND TO WRITE INVALID DATA
INTO THE READ BUFFER.
I SSUE A FEED AND STACK SELECT 11.1 FOLLOWED BY A SENSE
COMMAND AND TEST 'FOR EXPECTED NORMAL OPERATION.
ISSUE A READ FEED AND STACK SELECT Rl AND EXPECT NORMAL
OPERATION DUE, TO THE READ BUFFER BEING FILLED WITH
VALID DATA8Y THE LAST FEED OPERATION.

ROUT06 DC
DC
8AL
L
LA
8AL
DC
BAL
DC
DC
DC
DC
L
LA
8AL
DC
DC
DC
DC
L
LA
8Al
OC'

X'06'
AL3IROUTOT-SECNO._
RIt.INIT
R12,PCH
RI0,DGWR
RIt,DW8F
X'OD01'
R11,1SIO
X'28DO' .
- X' 011t0'
. X 'FOOO'
AL2IEXPIt-SECNO+REG)
R12.RDR
R10,DGRD
R11,ISIO
X' 2800' .
X'0150'
X'FOOO' •
AL2(EXP~SECNO+REG)

R12,PCH
RI0,DGWR
R4,DWBF'
X'3F3F' .

ROUTINE NUMBER
ADDRESS OF NEXT ROUT INE
8R. TO INITIALIZE
PUT THE PCH AOOR. INTO REG 12.
PUT DUG WR. CCW ADOR. INTO 10.
8R TO COL 81NARY GENERATOR.
VALID MODE 1 DATA.
8R TO ISSUE START 1-0
CTRL SWITCHES
T EST
N 'u M 8
E R
EXP CONDo COOE AND SENSE.
EXP CSW ADDRESS.
PUT THE RDR AOOR. INTO REG 12.
PUT RD NO FD CCW AD DR INTO 10.
8R TO ISSUE START 1-('.
CTRL SWITCHES
T EST
N U M 8 E R
EXP CONDo CODE AND SENSE.
EXP CSW AODRESS.
PUT ADDR OF PCHINTO ·REG. 12.
PUT DUG WR CCW ADOR INTO 10.
8R TO COL BINARY GENERATOR.
INV. DATA.

15JUN6T,
130498

o o

10
PAGE

()

PIN 8401B8
PAGE
lOA

25ltO READER FUNCTION TESTS - ,SECTlON 2

Fan

F 112 .

BAL
DC
DC
DC
DC
L
LA
BAL
DC
DC
DC
DC

00l95C
001960
001962
001961t
001966
001968
00196C
001970
001971t :
001976
001978 '
00197A
00197C
001980
001981t .
001986·
001988
0019BA
00198C
00198E
00198E

45 BO
2800
0160
FOOO
FBCO
5BCO
Itl AD
1t5 80
3COO·
0170·
FlOO
FC60.
41 AO
45 80
3COO'
0180
FOOD
F8AO
OA 06

()

O C·) O·
',,'

,

I". "

,

'/ ...•.,

r.).
\.'

F811-2
10

Rll,ISIO
'X'2000' .
X'0160'
. X'FOOO'
AL2IEXPIt-SECNO+REG)
R12,RDR
RlO,RFSl
R11,ISIO
X'3COO'
X'0110'
X'F100' .
AL2(EXP15-SECNO+REG)
LA
R 10,11.01
8AL
R11.ISID
OC
X'3COO' .
DC
X'0180'
DC
X'FDOO'
DC
Al2(EXPl-SECNO+REGI
SVC . X'D6' .
CNOP 0.1t
BCR
0,0

F 898 '
F 1138 '
F 112·

:F 830 :

F 112

OT 00

• ROUTINEOT •
•
•
•

001990,
001991
00199 .. '
001998 '
00199C
0019AO
0019AIt
0019A6
0019A8
0019AA
0019AC
0019AE
0019AE

07
000980
58 CO F
41 AO F
92 50F
itS 80 F
3COO
0190 :
FOOO
F8E8
OA 06

DC
L
LA
MVI
8AL
DC
DC
DC
OC
SVC
CNOP
BCR

898
81t0
BItT

112

01 00.

DB
000904
1t5 40 F
41 AO F
5B CO F
92 ItF F
ItS BO F
3COO
0200
FOOD
FBF8
OA 06

PUT RD FD CCW ADDR. INTO 10.
BR TO ISSUE START I-n.
CTRl SWITCHES
TEST
NUMB E
EXP CONDo CODE AND SENSE.
EXP CSW ADDRESS.
ROUTt NE EX IT

R

'

.n.

ISSUE A READ FEED STACKER SELECT R1 COMMAND CHAINED
.
INTO ANOTHER READ FEED STACKER SELECT
THE SLI FLAG
IS LEFT OUT OF, THE COMMANDS AND 80 :CHARACTERS REQUESTED
BY EACH READ SHOULD,NOT8RING WRONG LENGTH RECORD INTO
STATUS.

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ROUTOT OC
X'07'
ROUTINE NUMBER
AL3 (ROUTOS-SECNi])
R12,RDR
RlO.CHRD
CHRD+T,80
R11,ISIO
X' 3C 00'
X'0190' .
X'FOOO'
AL2(EXPS-SECNO+REGI.
X'D6'
0,4
0,0

ADDRESS OF NEXT. ROUTINE
PUT THE READER ADDR: INTO REG 12.
PUT ADDR OF CHAINED CCWS INTO-I0.
PUT COUNT OF 80 INTO COMMAND 1.,
8R TO ISSUE START 1"'0
CTRL SWITCHES
T EST
N U M 8 E R
EXP CONDo CODE ANO SENSE
EXP 1ST CSW. ADDR.
ROUTINE EXIT

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• ROUTINE 08 - ISSUE, TWO READ FEED STACKER SELECT R1 COMMANDS COMMAND
•
•
•
• .

001980
001981
0019B4
0019B6
00198C
0019CO
0019C4
0019CB
0019CA
0019CC
0019C6
001900
001902
001902

OR TO Issue START 1-0
CTRl SWITCHES
.
T E ~. T
N U M 8 ,E R
EXP CONDo CODE AND SENSE.
EXP CSW ADDRESS.
PUT RDR ADD II. INTO REG 12.
PUT FD SK SEL Rl CCW ADDR., IN 10.
8R TO ISSUE START I~O.
CTRL SWITCHES
TEST
NUMBER
EXP ,COND CODE AND SENSE.

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

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

06
000990 '
ItS ItO F 6CO,
58 CO F 89C
41 AD F 800
45 40 F AE6
0001
45 BO F 112
2BOO
0140
FOOO
FBCO
58 CO F 898'
41 AO F 808'
itS 80 F 112
2800 0150,
FOOO
F8DO 58 'CO F,89C
1t1 AOF 800
1t5 ItO F AE6'
3F3F
05MAY65
121t252

IBM MAINTENANCE OIAGNOSTIC 'PROGRAM

~,

F8ll

CHAINED WITHTHEFIRSTCOMMANO REQUESTING ONLYT9
CHARACTERS. CHAINING IS EXPECTEO TO BE BROKEN BY THE
WRONG LENGTH RECORD, INDICATION AND STATUS IS TESTED
FOR THIS CONDITION.

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ROUT08 DC
X'08'
ROUTINE NUM8ER
DC
8AL·
LA
L '
MVI
8Al'
DC
DC
DC
DC
SVC
CNOP'
BCR

6CO
BItO
89B
8ltT
112.

01 00'

AL3(ROUT09-SECNOI
RIt,INIT
RI0,CHRD
R12.ROR
CHRD+T.79
RlltlSIO
X' 3COD' X'0200' ,
X'FOOO'
AL2IEXP9-SECNO+REG)
X'D6' .
0.1t
. 0,0

ADORESS OF NEXT ROUT tNE
8R. TO INITIALIZE
PUT CHAIN CMD CCW ADOR., INTO 10.
PUT RDR ADOR. INTO REG 12.
MOVE T9 INTO tCW COUNT.
BR TO ISSUE START 1-0.
CTRL SWITCHES
T EST
N U M 8 •E R
EXP CONDo CODE AND SENSE
EXP CSW ADDRESS.
ROUTINE EXIT

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ISSUE A'READ FEED STACKER SELECT R1 COMMAND WHICH DATA

• -ROUTINE' 09 •
• • .

CHAINS INTO ,FOUROIFFERENV PLACES. THE TOTAL' COUNT WILL
8E EQUAh·TO 80. THEREFORE. NO WRONG LENGTH RECORD
INDICATION SHOULD APPEAR IN STATUS •

........................................................................
DATE
EC

05MAY65
124252

IOAUG65
125580 :

15JUN67
130lt98

: 10
. PAGE

o

o

F811..,2
IDA

()

,t.)·:·
"

"I

c' co o
IBM MAINTENANCE DIAGNOSTIC
25~0

P~OGRAM'

READER FUNCTION TESTS -;SECTION 2

001~D~ ,
0019D5
0019D8 '
0019DC
0019EO
0019E~ :
0019E8 '
0019EC
0019FO
0019F2
0019F~ :
0019F6 "
0019F8 '
0019FA
0019FA

Q9
0009FC

PIN
PAGE

6CO'
58 CO 'F B98
~l AD ,F B50'
9214'FB57
92 BO:F 864:
45 ,BO 'F 11'2
3COO
0210
FOOO
FCOB
OA 06
07 :00

25~0

X'09'
AL3CROUTIG-SECNOJ
R~,INIT

Rl2,RDR
RlO,DCNRD '
DCNRD+7,20
DCNRD+20,X'80'
Rll, ISIO
X'3COO'
X'0210'
X'FOOO'
AL2CEXP1D-SECNO+REGJ
X'D6'

00lA4C
00 lAit 0
001A50
001A54
00lA58
00lA5C
001A60
OOlA64
00lA68
OOlA6A
00lA6C
OOlA6E
OOlA70
OOlA72
OOlAn

O,~

0,0

CHAINS INTO FOUR DIFFERENT PLACES. THE TOTAL COUNT WILL
BE EQUAL TO 100 THEREFORE, WRONG LENGTH RECORD SHOULD
APPEAR IN STATUS, AND CHAINING SHOULD BE BROKEN.

.......................................................................
0019FC
0019FD
OOlAOO:
OOlAOIt :
00lA08 '
OOlAOC,
OOlAIO
OOlAl~ .
00 lA 18
OOlAlA
OOlAIC
00lA1E
OOlA20
OOlA22
OOlA22

10

ROUTlO DC
DC
BAL
L
LA
MVI
MVI
BAL
DC
DC
DC
DC
SYe
CNOP
BCR

OOOA2~
~5 40 'F

·6CO:
58 CO F B98'
41 AD F 'B50:
92 28 F B57:
92 BO FB64:
45 BOF ,112
3COO
0220,
FOOD'
FC70
OA D6
0700 .

OOlA~6

001A48
OOU4A
OOlA4A

R~,INIT

R12,RDR
R10,DCNRD
DCNRD+7,40
DCNRD+20,X'BO'
Rll.ISIO
X'3COO'
X'0220'
X'FOOO'
AL2CEXPll-SECNO+REGJ
X'D6',

ROUTINE NUMBER
ADDRESS OF NEXT ROUTINE.
BR TO INITIALIZE.
PUT RDR ADDRESS INTO REG 12.
PUT CCW ADDRESS INTO REG 10.
PUT COUNT OF ~O INTO 1ST CCW.
TURN ON ONLY CHN DATA FLAG.
BR TO ISSUE START 1-0
CTRL SWITCHES
T EST
N U M B E R
EXP CONDo CODE AND SENSE.
EXP 1ST CSW.AODR.
ROUTINE EXIT

11'
58 CO F
~I 'AD F
92 28 F
92 AD 'F
~5 BOF
3COO:
0230
FOOD
FC70 '
OA 06

ROUTII DC
DC
BAL
L
LA
MVI
MVI
BAL'
DC
DC
De
DC
sve
CNOP,
BCR

6CO
898;
B50:
B57,
B64:
'112'

6CO
OE1
Al0'
B88
B98
112

0700

INTC FOUR DIFFERENT, PLACES WITH THE SLI FLAG ON IN THE
COMMAND THAT REACHES TOTAL RECORD COUNT. EXPECT CHAINING
TO BE BROKEN BUT: WRONG LENGTH RECORD SHOULD NOT APPEAR
IN STATUS •

01·00

ROUTINE NUMBER
ADOR OF NEXT ROUTINE.
PUT RDR AODR INTO REG 12.
PUT CCW AODR INTO 10.
PUT ~O INTO CCW COUNT.
TURN ON THE SLI FLAG IN THIRD CCW.
BRTO ISSUE START 1-0.
CTRL SWITCHES
TEST
NUMBER
EXP CONDo CODE AND SENSE.
EXP 1ST CSW ADDR.
ROUTI NE EX IT
ALIGN

'0,0
.......................................................................
,
• ,RCUTlNI! 12- IF THE 1400 COMPATIBILITY BIT; IS ON, IN THE UDT ENTRY
• ,
FOR THE 2540, THE FOLLOWING TEST'IS ,.PERFORMEDDM THE
• .
READER.,
A·1400CDMPATIBILITY.REAO NO FEEO·COMMAND CHAINED TO A
• .
1400 COMPATIBILITY FEED AND STACKER SELECT Rl IS: ISSUED
• ,
'to tHE 2540 READER.
U CHANNELI,ENDIN tHE FIRST 'CSV AND
• ,
ExPECTED
• ,
DEVII~E.';ENDdN, tHE .SECOND CSIf AFTER tHE FEED· CYCLE 1$
.,
COMPLETED.

00lAl4 '
00lA75
00lA18 '
001A7C
001A80:
001A8~ ;
OOlA88 •
OOlA8C
00lA90:
00lA92
00lA9~ •
OOU,6 .
OOlA98 '
OOlA9C
OOlAAO.
oolAAIt:
OOlAA6
00lAA8 '
OOlAAA
OOIAAC·
OOlAAE
oolAAE

13
OOOABO
91 08 'F DEI
~1 80,F AAC
~5 ~O F6CO:·
Itl AOF 810'
58 CO ,F ,B98 '
ItS 80F112'
3EOO
0250
FOOO'

FOO
~1

AO F B18
58 'CO FB98'
~5 BO:F '112'
2800 '
0260
F180
F880 '
OA 06"

05MAY6S
124252
Elii$#

4

IOAUG65
125580 ;

15JUN6T,

110498

;10
PAGE

ROUTINE EXIT
ALIGN

UDT ENTRY THE FOLLOWING, TEST WILL BE: PERFORMEDA READ NO FEED IS ISSUED TO THE READER. EXPECTED
STATUS IS CHANNEL ;AND DEVICE, ENDS TOGETHER; IN 1 CSW.
A TIME LOOP IS EXECUTED TO ALLOW EXPECTED AUTOMATIC
FEED CYCLE DUE TO 6MS PROVISIONAL ,FEED FOR THE 1400
FEATURE.
DEVICE END ALONE RETURNS AFTER AUTOMATIC PROVISIONAL
FEED CYCLE •
A FEED AND STACKER SELECT R1 IS, ISSUED AND UNIT· CHECK
IS EXPECTEO IN STATUS DUE TO 2 FDS 'IN A ROW WITHOUT
INTERVENING.READ. SENSE SHOULD HAVE THE COMMAND REJECT
BIT ON.
IF THE PROGRAM HANGS IN A LOOP, A POSSIBLE CHANNEL
ERROR MAY HAVE OCCURRED. THE OPERATOR SHOULD DO A PSW
RESTART TO HAVE THE LAST OPERATION OUTPUT·ON THE OUTPUT
DEVICE

ROllTl3 DC
DC
. TM
BC,
BAl
LA
L·
BAl
DC
DC
DC
DC
LA
L
BAL'
DC
DC
DC
DC
EXT2
SYe
CNOP,

.

,

X'13' .

ROUTINE NUMBER
AL3(ROUTI~SECMOJ
ADOR OF NEXT ROUTINE
UNIT1+!tX'08' .
SEE IF 1~00 COMPATIBlE 25~0.
NONE.EXT2
BR IF NO..
R4,INIT
BR TO INITIALIZE.
RIO.DGRDI
PUT ADDR OF 1400 RO NO FD'RI; IN 10.
RI2,RDR
PUT RDR ADDR INTO 12.
Rll,ISIO
BR TO ISSUE START I-D.
X'3EOO'
CTRL SWITCHES
X'0250'
,T E S T
N U M B E R
X'FOOO'
EXP CONO .. CODE AND SENSE.
AL2(EXPCO~SECNO+REGJ EXP,CSW ADDRESS.
R10,RFSI4 '
PUTADDR OF 1400 FD STK Rl IN 10.
R12,RDR
PUT RDR AODR INTO 12.
Rll.ISIO
BR TO ISSUE START 1-0
X'2800'
CTRL SwITCHES
X'0260' ,
T E S, T
N U M B E R
X'F180' .
EXP CONO. CODE AND SENSE.
AL2(EXP2-SECNO+REGJ
EXP CSW ADDRESS.
X'06'
ROUTINE ExIT
0;4
AUGN
'0,0
,

8CR
.....................................................................
.

0700 :

stnus

DATE
EC

ADDRESS OF NEXT ROUTINE
BR TO INITIALIZE
SEE IF IItOO COMPATIBLE 2540.
BR IF NO.
PUT AODR OF I~OO RD CHAIN INTO 10.
PUT RDR ADDR. INTO REG 12.
BR TO ISSUE START 1-0•
CTRL SWITCHES
TEST
NUMBER
EXP CONDo CODE AND SENSE

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

R~,INIT

O,~'

DC
AL3IROUTI3-SECNOI
BAL
RIt.INIT
TM
UNIT1+1,X'08'
BC
NONE.EXTl
LA
R10.CHI~
L
RI2.ROR
BAL
R11,IS10
DC
X'3COO'
DC
X'02ltO'
DC
X'FOOO'
DC
AL2CEXPI8-SECNO+REGI
ExTl
SYe
,X'06'
CNOP· O.~
BCR
0,0

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• ROUTINE 13 - IF THE 1400 COMPATIBILITY BIT IS ON IN THE 2540 READER

O.~

R12,RDR
R10,DCNRD
DCNRO+7,40
DCNRO+20,X'AO'
Rll,lSIO
X'3COO'
X'0230'
X*FOOO'
AL2CEXPII-SECNO+REGJ
X'D6',

A RESIDUAL COUNT OF I .SHOULD BE IN THE CSW BECAUSE
THE READER ODES NOT TRANSFER ANY DATA FOR THE STACKER
COMMAND.
IF THE PROGRAM HANGS: IN A LOOP. A POSSIBLE CHANNEL
ERROR MAY HAVE OCCURRED. THE OPERATOR SHOULD DO A PSW
RESTART TO HAVE THE LAST OPERATION OUTPUT ON THE OUTPUT
DEVICE

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ROUTIZ DC
X'12'
ROUTINE NUMBER

0,0

X'll'
AL3CROUTI2-SECNOJ

flU

• .
• ,
•
• ,
•
• .
•
•
• ,
•
.,
• .
• '
• ,
•
•

.......................................................................
OOOA~C
~5 ~O F

12
000A14
itS itO F
91 08 F
Itl 80'F
1t1 AO F
58 CO F
itS 80 F
3COO
02ltO
FOOO
FCAO
OA 06

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• ·ROUtINE 11 - ISSUE A READ FEED STACKER SELECT R1 COMMAND DATA CHAINED
• '
• '
•
• .

00lA24 •
00lA25 ,
OOlA28
OOlAZC
00lA30
00lA34.
001A38
00lA3C
00lA40:
00lA42 .
OOlA~. '

X'10'
AL3CROUT11-SECNOJ

:READER FUNCTION tESTS -SECTION Z

• .
•
•
•
•
•
•

ROUTI NE NUMBER
ADDRESS OF NEXT ROUTINE
BR. TO INITIALIZE
PUT THE RDR ADDR. INTO REG 12.
PUT ADDR. OF CCW INTO REG 10.
PUT 20 INTO THE FIRST CCW.
PUT CHAIN FLAG ON IN THIRD CCW.
BR TO ISSUE START 1-0.
CTRL SWITCHES
TEST
NUMBER
EXP CONDo CODE AND SENSE.
EXP 1ST CSW AODR.
ROUTINE EXIT

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• ROUTINE 10- ISSUE A READ FEED STACKER SELECT R1 COMMANO WHICH DATA
•
• '
•

PIN 840188
PAGE
llA

IBM 'MAINTENANCE DIAGNOSTIC PROGRAM

1l

F811

ROUT09 DC
DC
8AL
L'
LA
MVI
MVI
8AL
DC
DC
DC
DC
SVC
CNOP
BCR

~5 ~OF

8~01OB

• ·ROUnH! 14~: IF.THE 1400 COMPATIBILITY BIT ,IS ON IN THE 2540 READER
•
UDT ENTRY THE ,FOLLOWING 'TEST IS PERFORMED.
•
A 1400 COMPATIBILITY ,REAO NO FEED COMMAND CHAINED TO A

F81I..,2

DATii

11

K
; 4

05MAY65
lZ42S2

IOAUG65
125510 :

15JUH61·

110498 .

: 10
PAU

'811""2
llA
;:

,,
IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 84G18f11
PAGE
12

25ltOREADER FUNCTION TESTS- .SECTION Z

•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
OOlABO
001ABl
001AB4.
00lAB8
001ABC
OOlACO
OOlACit
00lAC8
OOlACC
OOlACE
OOlADO
00lA02
001A04 ~
OOlAD8 .
OOlADC
DO lADE .
OOlAEO'
00lAE2
OOlAE4 .

.
.
.
.
,
.
,
'

X'14'
X'OOFFFF'
UNIT1+1,X'o.8' .
NONE,EXT3
RIt,INIT
A12,RDR
R10,DRCN
R11,ISIO
X' 3EOO'
X'0210'
X'FDOO' ,
Al2(EXPll-SECNO+REG)
RIO, SNS
Rll,ISIO
X' 2AOO' .
X'0280' .
X'FDOO' :
Al2IEXPSN2-SECNO+REG)
X'D6'

ROUTINE NUMBER
LAST ROUTINE.
SEE IF 1400 COMPATIBLE 2540..
BR IF NO.
BR TO INITIALIZE
PUT RDR AODR INTO REG 12.
PUT ADOR OF 11000 RD CHAIN INTO 10..
BR TO ISSUE START 1-0.
CTRL SWITCHES
T EST
N U M B E R
EXP CONDo COOE AND SENSE.
EXP CSWADDRESS.
PUT SENSE AD DR I NTO REG 10.
8R TO ISSUE START 1-0
CTRL SWITCHES
T EST
N U M B E R
EXP CONDo CODE AND SENSE.
EXP CSW ADDRESS.
ROUTINE EXIT-

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• .
SET ,UP DIAGNOSTIC WRITE DATA HERE
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
DWBF
LA
R5,BO
PUT 80 INTO REG 5.

02
41
46
It7

001BOO
001B08 .
001810
001B18
001B20
001B28
001B30
001B38 .
001B40
001848
001B50
001858 .
00186(1.
001868 .
001870
001818 .
001880.

25 00171C 0000 OOAO
C2 00111C 0000 0050
02 00171C 2000 0050
33 00171C 2000 0001
03 00111C 2000 0001
040011lC 2000 0001
02 00171C 0000 0050
2300111C 0000 000.1
02 00171C 4000 0050
02 00111C 0000 0050
02 00171C 8000 0014
02 001144 8000 0.0.14
D200176C 800.0 00.14
0.2 0.0.179400.0.0. 0.0.14
02 D0111C 600.0. 0.0.50. .
DJ DD111C 60.0.0. '0.0.0.1
330D171C 20.0.0 0.0.0.1

4150 :0050.
Itl 60 F 71C

LA

6 000 4 000
0 002
F AEE
0'002

D'MAV651DAUG6!J
1Z4Z'Z
125!J8D'

NDDP COMMAND. WHiCH I S COMMAND CHAINED TO A HOD FEED
AND STACK SelECT R1,IS ISSUED TO THE READER.
THE No-DP COMMAND SERVES AS AN INTERMEDIATE COMMAND
BETWEEN THE 1400 READ AND SEPARATE FEED COMMANDS TO
INSURE THAT NO EXTRANEOUS DATA IS RETURNED BETWEEN
. THESE TIMING CRITICAL 1100.0. COMMANDS.
EXPECTED STATUS IS CHANNEL END RETURNED IN THE FIRST
CSW AND DEVICE END RETURNED IN THE SECOND DUE TO THE
FEED CYCLE.
A RESIDUAL COUNT OF 1 SHOULD BE IN THE CSW BECAUSE
THE READER DOES NOT TRANSFER ANV DATA FOR THE NO-OP
COMMAND.
A SENSE COMMANO IS ISSUED AND EXPECTED STATUS IS
CHANNel END AND DEVICE END IN ONE CSw. NO SENSE BITS
ARE EXPECTED TO BE ON.
IF THE PROGRAM HANGS IN A lOOP, A POSSIBLE CHANNEL
ERROR MAY HAVE OCCURRED. THE OPERATOR SHOULD 00 A PSW
RESTART TO HAVE THE LAST OPERATION OUTPUT ON THE OUTPUT
DEVICE

ROUT14 DC
DC
TM
BC
BAl
l
LA
BAl
DC
DC
DC
DC
lA
BAl
DC
DC
DC
DC
EXT3
SVC

00lAE6
OOlAEA
OOlAEE
001AF4 .
OOlAFB
OOlAFC

DATE
EC

25ltO READER FUNCTION TESTS

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

14
OOFFFF·
9108'F DEl
47 80 F AEit
45 40 F 6CO
58 CO F 898'
Itl AO F 870
45 80 F11Z
3EOO.
0210
FOOO
FC90.
Itl AO F 828
45 80 F 11Z
2AOO
0280 .
FOOD
FC50
OA D6

01
66
50
F4

F8U

DTlP

MYC
LA
BCT
BC

R6,RDAR
D12,R6),OIR41
R6,21R6)
R5,DTlP
UNC,2IR4)

PUT ADDR OF BUFFER INTO REG 6
MOVE TWO BYTES TO BUFFER
ADD 2 TO BUFFER ADDR.
BR UNTIL 160 CHARS MOVED.
RETURN TO PROGRAM.

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
CCW AREA
••••••••••••••••••••••••••••••••••••••••••••••••••••••••
*••••••••••••••

DGWR
DGRD
DGROl
RFSl4
NOOP
SNS
RDl
RFSl
CHRD

CCW
CCW
CCW
CCWe
CCW
CCW
CCW
CCW
CCW
CCW
DCNAD CCW
CCW
CCW
CClf ORCN
CClf·
·CClf
CClf-

X'25',RDAR,X'OO',160 DIAG WR. CCW.
X'C2',RDAR,X'OO',BO
DIAG RD CCW.
X'D2',RDAR,X'20',80
1ltOO AEAD NO FEED.
X'33',RDAR,X'20',l
1ltDO FEED STK SEL.
X'03',RDAR,X'20',1
No-OP CCW
X'04',ROAR,X'20',l
SENSE CMD.
X'02' ,RDAR,X'OD' ,80
RD, FD, STK SEL Rl.
X'23',RDAR,X'OD',l
FD AND STK SELECT R1.
X'02',RDAR,X'40',8D
COM CHAIN CCWS.
X'02',AOAR,X'OO',80
X'D2',RDAR,X'8D',2D
DATA CHAIN CCWS.
X'D2',RDAR+ltD,X'80',ZD
X'DZ',ADAR+80,X'80',Zo.
X'OZ',RDAR+120,X'OO',ZO
X'DZ',RDAR,X'60',8D. 1400 RD NO FD lflTH CMD CHN.
X'DJ',RDAR,X'6D'tl
No-OP
X'JJ'tRDAR,X'ZD',l
140.0. I'D STKSEl A1.

15JUN61 ;
130498

ID
F811-2
PAGE
12
44,#4

c'),

:,fl

"Ji

,)!

.f'"

,J

IBM MAINTENANCE DIAGNOSTIC 'PROGRAM

()

SECTION Z F811

001B88 '
001890.
001898
001B9C

02 OD111C 60.0.0.'0.0.50'
33 D0111C ZDOD:OODI
00000000.
0.0000000

001BAO
001BA4 .
001BA8 .
0018AC
001BBO'
0018BIt .
0018B8
OOlBBC
0018CO
001BC4 .
001BC8
0018CC
001 BOO
001B04
001B08 .
00180C
001BEO
001BE4 :
001BE8 '
OOlBEC
001BFO
0018F4 :
0018F8
001BFC
001COO
001C04.
001C08 .
001COC
001CI0
001C14 :
001C18 .
001C1C
001C20
001C24 '
001C28 .
001C2C
001C30
001C34
001C38
001C3C
001C40
001C44.
001Clt8
001C4C
001C50
001C54
001C58
001C5C
001C60
001C64 '
001C68
001C6C
001C70
001C14.
001C18 .
001cn
001C80'
001C81t .
001C88
001C8C
001C90.

00001B38 .
08000000 '
00000000
04000000
00000000.
02000.000. .
00000000.
04000000.
00001B08 .
OCOOOOOO.
00000000
14000000
00001B10
OCOOOOOO:
00001B40
08000000
00000000.
04000000. .
00001B50
08000000.
0.0000000
04000000
00001Blt8
08400000
00000000
01t000000 .
00001BI0
OBOOOOOO
00000000
04000000
00000000
14000014 .
00001B38
OAOOOOOO
00000000
04000000
00001B18
OCOOOOOO
00000000
04000000
00000000
08000000
00000000
04000000
00001B30
OCOOOOOO
00000000
OCOOOOOO
00000000
08000000
00000000
04000000
00001BI0
081t00014
00000000
04000000
00000000
0.8000000.
00000000
04000000
00001888 .

DATE
EC

D5MAV65
124Z5Z

IDAUG65
125580. '

CHH'
RDR

CCW. ·X'D2',RDAR,X'6o.',8o.:
CCW
X'33',RDAR,X'2o.',l
DC
F'O'
DC
F'O'

1lto.O RD NO FD:-CMD CHAlN1400. FO STK SELAI.

PCH
.........................................................................
•
EXP CSW AREA
......................................................................
.

.

EXP1

EXPZ
EXPJ
EXP4
EXP5
EXP6
EXPl

EXP8

eXP9

EXP10
EXP12
EXP13
EXP 14

EXPCOM

RD14

EXPSN2
EXPNOP
·EXP15

. EXPll

EXP16

EXP11

DC
DC
DC
DC
DC
DC
DC
DC
DC,
DC
DC
DC
DC .
DC
DC
DC
DC
DC
DC i
DC
DC
DC
DC:
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC:

AIRDl+81
X'080000DD' .
· XL4'OD' .
X'0400DODO'
XL4'OD'
· X'0200DOOD'..
· Xl4'OO' .
· X'040DDODD' :
ACDGWR+8)
· X'OCDOOOOO' .
, XL4'OO' .
'X'140DDDOD' :
A{DGRD+8)
X'OCOODOOO' ,
AIRFSl+8)
X'080DODOD' :
Xl4'DO'
X'040Do.ODo.' .
AICHRD+16) .
X' 080.0.00.00.' .
Xl4'OO'
X'04DDDDOD'
AICHRD+8)
X'0840DDDo.' .
Xl4'OO'
X' 0400.0.0.00.' .
AIDCNRD+32)
X'08DDDDOO'
Xl4'DO'
X' 040.0.0.0.00.' .
Xl4'OO'
X'14DDDD14'
AIROl+8)
X'OADDODOD' .
Xl4'OO'
X'OltODDDOD'
AIDGRDl+8)
X' DC 000.00.0.'
XL4'DO'
X'D40DDODO' :
Xl4'OD'
X'D80000Do.' Xl4'OO'
X'D40DOOOO' .
AI SNS+8)
· X'DCOOOODO' .
Xlit'DO'
X'OCDODODO' .
Xl4'DO' .
X'0800DOOD' .
Xl4'OD'
X' 0.40.000.0.0.' ,
AI DCNRD+32)
X'08400014' .
Xl4'OO'
X'0400DDDD'
Xl4'DD' .
X'o.8DDDDDD' ,
Xl4'DO'
·X'D4GODDDD' .
AlDRCN+2.4t .

l'JUN61.
130498

10

. PAGE

1'811-2
12A

• x

4"4 Qf4$4

A
'LJi

~

PIN 840188
PAGE
12A

a)
() '0 0 0 f) :0 10 '0' fO 0 0 0 0 '0 0 It··,,
!':''',
\' ",":"u

'~-!

.,

o

if)

..

H

__ 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
. .,

~~I

~

4~>"_""".,"'~

_....

~_.

,

~

..,..,..-....0 -....... -

..... , . . _

".'

\

IBM MAINTENANCE DIAGNOSTIC ,PROGRAM

PIN 84018,
PAeE
13

~

't

2540 'READER FUNCTION'TISTS -.SECTION 2

F811

.........

-..

-~~"'"

-,.,..

..

PIN 840188
PAGE
13A

IBM MAINTENANCE DIAGNOSTIC 'PROGRAM
2540 'READER FUNCTION TESTS - ;SECTION 2

F8U:

I

I!
I

i

1

001·C94 ~
oo1C98 .
00lC9C
oolCAO
00lCA4 '
oolCAB '
OOteAC

08000001 .
00000000 .
04000000 .
OOOOU"•.
08000001.
00000000.
04000000 .

EXP18

..
000000 .
000007
OOOOOF
000008
000004 :
000001
000005
000008
000004 .
000002
000001
000008
000004 '
000002
000006 .
OOOOOC
OOOOOA'
000080 .
000181
OOFOOO
00005A
000000,
000001
000002 .
000003·
000004 .
000005,
000006 "
000007,
. 000008'
000009
OOOOOA
OOOOOB

oooooe

000000
OOOOOE
000001' '
000198 .
000040 ;
000048'
0001AO ,

DC
DC
DC
DC
DC
DC
DC

X' 08000001' .
XL4'00' .
X'04000000'
AICHl4+161 .
X'08009001' .
XL4'00' .
. Xta.OOOOOO·

POST ·ASSEMBLY DATA.

REFERENCES TO DEFINED SYM80LS.

.......................................................................
· EG·UATES
.......................................................................

NEVER
NCCO'
UNC
NONE
SOME
ALL
ANY
CCO
CCI
Ct:2
CC3
EO
LO
HI
UNEG
EOLO
EOHI
LOGOUT
SYSMOD
REG
WHAT,
RO'
R1
U
R3

EOU
EGU'
EGU'
EOU
EGU
EGU
EOU
EOU'
EOU
EOU
EOU
EOU
EOU
EOU
EOU
EOU
EOU
EOU'
EOU'
EGU
EOU
EOU'
EOU'
EOU'
EGU
Rio .
EGU'
R5
EOU'
R6
EGU
R7
EQU
RI
EOU'
R9
EOU'
RIO
· EOU'
EQU
RU
R12
· EOU'
EOU "
RU
R14 '
EGU
EQU
Rl5
EQU'
lIT
IQU
HCSW
HeAIi · EGU
DMSSII illU
END

1
1
1
1
I.
1

0
7
l!I
8
4'
1
5
8
4
2
1
I
it
2
6
12
10
X'80' .
X'181t.
'X'FOOO' ;
90
0
1
2
3
it
5
6
7
8
9
10
11

1·
1

1
1

1
1

8
2
4
0
1
2
3
4

EO
HI
LO
RO
Rl
R2
R3
Rio'

5
6
7
8

R5
R6
R7
R8

134E,

UTA

16FA,
1884,
1908,
lAFC
153C,
UU,

17DC,
18E4,
1AOO,

1800,
18FO,
lA28,

1818,
191C,
1A50,

170C,
IAEE,

!AE6,
lAF4.

1AF8
lAF4 .

1286,
139A,
154E
1186,
12AE,
1496,

12&A,
139E,

112C,
13it4,

1

9

1
1

198
1.

1
It

1,
1.
1
1
8
2
. It

~

2

5
10108
8
it
2
1
1040,
100A'
1186 .
10E8

R9
WT,
ALL
ANY
CAW·
CCO
CCI
CC2
ce3
C5W
ICM'
1"1 .. j
; ISW ' !

lit5C,
112C,
1258,
147E,
1186,
114A,
1362,
153it

4:
16,
4'

154A
1680 :
18ge

1:

1

A

8

1180
UCA

116A,
119A,
120A,

117A
119A;
12U;
128!:,
1352.
1538,

1518,
1542
1558,
1604,
194E
1128,
RlO
152C,
188C.
196C,
lAse,
RU: 1122,
1304,
1382,
. 1482,
17EO,
1896,
IUP
MDR
peH

1942,
1:

C

R1t:

1Al",
115E,
121;6.
161;0.

i88E.

1968,'
1AS8.

1

,
I
1.

DATI
IC

\~-.

05MAY6S
120\252

10AUG6!J
12"10

--'"'-'-~~'"

l5JUN6? '
lJ04. . '

. 10
FIU-2
PACE
U

Dati
EC

0'MAY6S
124Zsa .

0

RlJ'

10AU6"
125580 :

1382,

1192,
llB4,
1188

UtE,
1 hI"

12
13
14 .
15
itOI
64 '
TZ
X'OlAO' ,
ROUT01:

llF2,
HEA,

1136,

l"'UN61,
1J049'

1564 '
17EA,
1136.
16F6"
18ce,
197t.
1All It ,
1128,
130E,
138Z.
1531:.

184E,
1921;
U80.

1870;
1956,
U8C,

187C
1"84 .
UEE

131E,
1450,

1322;

1340.

13itO:
1458

118A.
12&2,
14AE;
12AE,
1222.
138.,

1196,
12CE,
l!i4Et
1832
127A,
153G,

11Fh
13F6.
1832;

UF'" 120Z
1"'" V 14" .
18:n•• UI'

129',
UU·

120A,

11AO,
121E.
129E.
U5E,

HD6.

1112,
U5C;

12lh

16Eltt

1206,
146A,
17'08,

1au.
UDIt.'
1808.
l8Ii:C,
199 ••
lU8,

181E,
190'.
1981h

lilt6.

11U,

126f,

13~0;

1386, In!:,
1"2. . llt50,
15itA, U4A,
18it2, U5C,
iilf6'. 190A.
19AO, 19C4.
lilA 0 , lAC8;
11AC; 12U,
l6bit, 1608.

131&.

1386.

1146;
l1EEt . 180Cf
lOU. IICO.
195C. 1910.
lU(:,
116&, 117h
usc, 1 tote ,
UEA. 1804.'

un,.

11"\1...
191i.,'
lA9C,

1134,

uu...

145it_

un,

UE6'

126A,

11n
1216

149A,
1710

14&t,

1510

1854.

1874.

nu.

1920

UFO,

UF.,

11002,
1858, 1818.
1924, . 193Et
191:0, LA08i
UD4'

1402

U2C.

lAn,
1426,

1548_
18n.

UOlh

1980.
lAlit,

118&.
1600.

1822.

U~t

198e,

1902. 1'20,
19DC; . liM;

1I3A,

UDO, , lilAIl

lAto

1it58 ,

12~6.

12116,

1854.
193A.

Utt •

U16

1892
1952
lUO
12I'A

IUD

141\2
1552

1882

l'Ue

101:C

iAb8
U8l!

16bl:

U14'

194E
U60'

Ull. ' utt
, .10
F8ii";'.
UA
' 'AclI!

l,

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

I

,

I

IBM MAl NTE NAN CE DIAGNOSTIC PROGRAM

, PIN 81t018, ,
' PAGE
lit'

1

!

2540REAOER FUNCTION ITIESTS ,.. ,SECTION 2

1,

f!

1
8'
4

F'
1830
1898

1

FOOD

16CO,
R14 ' , llltO,
16C2,
Rl5
1226,
ROt. 1808,
16EO,
ROR
1968,
lA88,
REG
1246,

11t36,

1828 '
F

8
1

8
8'
8'
8'
8'
6
4'
1
1
4'
4
4
4:
4'
4
4
4:
4'
2
2
2
4.
1
1;
16
3
6.
12 :
3·
1;
3
It.

3,
4
2

1888
1840
180B'
1800
1870
lAEE
lAE6
A
C
IBAO
18BO:
18B8
18CO
1BC8 '
1BOO :
1B08
18E8 .
18FB
lA70.
lAAC
lAE4 !
UBE
48 '
40 :
nBC,
15EF,
1304 !
15C3
1502 .
1421
15CF,
149A
15F2
IDEA
16CO

CHllt
CHRO
OGRO
OGWR
ORCN
OTLP
OWBF
EQHI
EQLO
EXPI
EXP2
EXP3
EXP4 '
EXP5
EXP6
EXP7
EXP8
EXP9
EXTl .
EXTZ
Exn
GREG
HCAW.
HCSW'
HUNG
IACT,
IBSN
ICAW·.
ICCW·
lCNT!
ICSW·
1010
IEXP,
IHIO
INIT '

llE2
126E
llCC
I"B2
1286 .

4'

1112 .

INOW .
INn·
lONE
IPAS
ISEN
ISIO,

6
4
4:
4:

1264 '
12CE.
10F& '
I1C4 ;

ISV2
ITIC·
IT 10
ITMO

It'
4'
4
6'
It:

DATE
EC

SNS
UNC

05MAr.5
124252 .

aOAOG6'
125580 ;

1564,
18AO,
194C,
lAIE,
1A04,
10FA,
120E,
1406,
lAFC
lA5C,
1998,
'lBBC,
181E,
lAC4,
lAFB
1818,

16CO,
11 ItO ,
1832
1234,
1892,
1804,
1994,
lAge.
1398.
IItCC,
1706,
18AC,
1966"
lA46,
lC50
110E,
1230,

l6CA
1186,

llF2; " 12AE.

IItOC,

14E4 '

6·
6'
1;
1,
1;
1.
1,

1234 !
119A,
1688 '
168C
7;
1000·
8'

IUIO
JOHN
MSKI.
MSK2 :
NCCO
NIOU'
NONE·

8 ,.
4!
1.

1820 ;
lC40 '
11le·

NOOP I
R014 :
ROAR

1264, .
197C,
183E,
19BC,
lACO
1380, .
lItOA,
1816,
18CA,
197A,
lA6E,

16CA
1BAO,
188E.
190C,

lC20
18B8, 1902,
U04_ ' lA2e.

193A
lA60

13CA.
15 DE ,
1830,
180A,
198A,
lA96,

13E4; , 1422,
1524, 152A,
181tC, 1866,
1900, 1914,
19AA, 19CE;
lAAA. lA02,

11t30
1558 '
188e
1938 .
19F6
!AE2

1162,
1260,
151e,

1182,
1282.
1552.

lieD;
1202.
1566,

lle8.
120E.
l6FA,

llOA
12EA
1714 '

lCAO
199C,
193E,
1858,
le90

19B8,
1800
1878,

19C0.

18E8.

18F8 .

-4!

18Ee.

19241 . 1952,

1,
3,
1,

184E,

187C,

18FO,

1928, . 1956

1421t,

(

2:
8'
1;
1:

18tO

1.

1·

1;

1,

1816,
IB30,
184C
1866,

18AC,
1914,

19BA
lAAA

U8C,

noD,

18CA,

194C

19AA
19CE
lA58
lA7C
lAB8
1196
1136,
113A,
1706
1252,
1292,
1304,
13E6
124E,
1248,
14B6
l41oA.
noc.
1908,
114A.
1230
llB4
1"9E
llEA,
180C.
1800,'
1980,
lA8C,
1222
. 12F2
' llEO, .
1188

1938,

12BA;
113A,

152t
liDO,

1226,

1472,
12A2,
130e,

14A2
12AA,
130E,

1202
13E4 :

13EC,
1438

143E

4
8

1966 .

1234,

1264.

8'
I
4.
4:
4.
4
4:
4'
4 :
4'
4.
1
1
16

12EE

2
8'
8
4
4:

148A
1800,
lAOO,
11CO,

1870.
1A28,
llC8,

1884,
lA50.
110A

120E,
1826.
18F6"
19AO,
IUD,

1272,
185(;,
190A,
19C4,
1AC8,

121A
1882.
192E.
19EC.
lAD8

11EE,

1842

. 15JUN67 ,
130498 .

18E4_
lA80,

191C,
1A8t

1984 '

10

16
4:
4!
4'
5
3
6,
16 "
16
4'
8'
It
4:

1896; 1eA2, 18eo
1942, ; 195t., 1910
lA14, ' 1AIG. lA64.

' ID
, PAGE

F811.,2
14 '

_01.-

~~

--...

•.. ----~.- .....

.

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

IBM MAINTENANCE OIAGNOSTlC· PROGRAM

DATE
EC

05MAV65
121t252

' 1216
' 1152,
llFE
1206
. 1172,
, 1152,
, 12A2,
13FE,
1542,
' 16F6

.'

F8U

1192
12C2, ' 12F2
1 15A" . 116A, . 117A •
12AA, 1312, 131A,
141t6,
146E, 1486,
16C6, 1A58, 1A7e,

16EC, 16FO, l6FO, 1AEA,
1B18. 1B20, '1828, IB30,
1850, 1B58, 1860. 1868,
IB88, 1B90'
1554 ' ROYM i 13lA. 1382
RFS1,
1838 ' 18ce, ' 1906, 196C. lB08 '
1680 : RTSV! 1130, 16FC
loDe, . SOMF·
1004 ' ' SNSW·, 114E, 1156, 1166, tn6'4! SOME
1050. SRET ,
10E1 . UI0P,
IDES
U20P'
6' UNEQ
1216, 1300, 130A, 132C,
SA
WHAT
1578 . WORK
1234, UFO, 140E" 1410,
1460, 1478, lIt90, 1490"
14FO, . 14F2, 14F8, 14FE.
16E4 ' BLOOP
1714
1850 OCNRO
19EO, 19E4,' nee, lA08;
lA34, lA38, leo8, lC70'
IBID OGR01 , lA84,
le30
lAO' OMSSW.
Icoe EXPI0
19F6
lC70 EXPll
lAlE,
lA46
lC10 EXP12
lCl8 EXP13
lC20 EXP14
18AO
lC60 EXP15
180A, 197A
IceD EXP16
lC90: EXP17
lA02
lCAO EXPle
lA6E
lODE FLAGI
100F' FLAG2
1505 IBLAH
1248, 1252, 13E6, 1412.
144A, 1472, 148A, 14A2
140A' ICOUT
1258, 13F6. 1466. 141E,
1666 ICSW1, 1100, 1226. 1296. 1326,
166E ICSW2. 1264, 12A6. 1348, 1348.
1510 . ICUIO
14EO
146A 10101·
1446
116E. IHANG
11B2
15B3 ILINK. } 13AO. 13A8, 13AA, 138O,
12EE· ILOKE
12CA
115E noop, 10F6,. 1102, 1116
1352 INOER
12C2, 120A, 12£6., 1300. '
133C
1010 ; INPSW
16B8 IOAOR
13C2
143B' IOCSW. 13BA
160B IOLOG
IltF2,
IltF8, 14FE, ' 150""
1630 IOPTl
IDEE. 1106. 1UA, ' 1524'
IItOC IPASS
148C:
112C •. 1510E
1570 . lSAVE
llAC ISSUE, . IDEA, 10FE. ' '1112, " 1acll, .
U56, ITRYl : 1162. 1172, . 1514!
10AUG65
125580 :

~,.,.-<-~,

, PIN 81t0188 '
' 14A
- PAGE

25~0:REAOER FUNCTION ,TESTS ~,SECTION 2

F8ll

4

o o

"H .

,~

1272,
1334_
149E,
lAB8

128A,
133e,
14Be;

IBOO,
1838,
1870,

IB08. 1810
1B40, 1848 '
IB78; . 1880'

1366,

U30'

1300;

IItEO

1412,
14A1,
1504 '

1418,
14E4,

1460
14E£

lAOC,

LAID,

U30,

1418; : 1422,

1431 '

1496, 14AE
1326, . lI7E;
14A8

1411 '.

1292.
136A
1514 !

152A
130A,

lILA,

132t

150E

1688 '

15JUN61··
. 130498

, 10
F811';;Z
PAGE
11tA

..s

\ ,it; .

•

'"

i

0 0 0 0 0 10 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 '0' 00 0

I
"

0000000000000000000000000000000000
.~''''~--~-.'-'''''''''-"

--

.

"i>--'~'~

IIMMAINTENANeE OIAGNOSTIC PROGRAM

PIN 8401'8 .
. PAGE
111

2540 :REAOER FUNCTION TESTS ',- ,SECTION 2

4~

16 .
4
4:
4 !
1
8'
4:

1166 ITRY2
168E . IUNEX
Uf12 ' INA IT '
llOE. IZERO
1718 ' M0050'
0 NEVER
lB18 ' RFS14 '
1000 SECNO,

115A
124O.
1282.
11BO
1600.
lA98
1130.
. 13A8,
130E,
11t'4,'
14FO.
1106.
1860.
18E1.
197A,
-l9F6,',
1475.

FlU

2540:REAOER FUNCTION TESTS

1
1
1.
1
1
1
1-

1246
151C
160C
123E. 124O.
13U, 13BO,
13E4, 140E.
14C6. 14CC.
150E. 1524.
1709, 17FO.
1811C, lBAO.
190O. 1914 ..
198A. '1991.
19FO. 1A1E.
lA96. lAU.

1246.
13CZ,
1"10.
1402.
15ZA.
11116,
18AC,
1919,
19AA,
1AZ5,
1AD2,

139O,
13C4;
1422.
140'0_
15511.
11130,
lIIB 1;
19311,
1911,
1A46,
IAU

1392.
13CA,
143O,
140A,
1564;
181oC.
18CA,
194C,
19CE,
lA4D,

1398
130C
lIt36
14EE
16Ft
lB66
lBOA
1966
1905
1A6E

l'
1

1
1
8
8
1
2
2
1.

1880
18EO
1918
1990
19BO
190'0
19F'
lA210
lAIo'
lA74
lABO
1060
1020
181
10E2
10E6
1000

4' llEO SlART'
1
IDEO UNIT1 ; 1608, 1A54,' IAn. lAl4
1; 10E4' UNITZ , 16CC
,13 ' 16A3 BYPASS
5
1058 EXNPSW
.8
1018 EXOPSN
4: lC30 EXPCOM
1A96
4' lC58j;XPNOP
4
lC50.I;XP.S~2
lAE2
6
16FC HANGUP
1f!E8
11
1600 IACSNS
11A4,' 12FA, :131.6,' 1.402, . loW4; 140•• 1611
10
159A lAtTC;C
:UAa. llaC, UCt,. uce. ;.UBE, '1104 • .1'36
·6, .1426 ICCOUT· .1300. 13FE
.6
1326 l.eCSl)ll
1322
6
13 ..8 ItCSlf2
.~3Itlt
.·6 . ·llt60 lCHNG1, 1'054
,6
llo90lCHNG2 .; llt5C
;:6, UFO \ leWOWT . '.11t0.6
4' ,12AE I DoS,,!S
·.IZ8A; ),l~1I4; ~.UQC
"~ ,
U56JOUNCK' :1201;:. ;)114, Ute
10 ; 15!i10 : lExPCC
.1'026. ,1.4aO·
,11: 15F5 .1 Ex SNS .1482' ~ llte~,' 'i~6" '.l~C
::6 . , 1122, JEYIOH . 10FA" ,UoE
1: 1396 . I FkAGl ; ·1356, UOE
1 ,'1522 11'-'462 ;UU. ,nJ2
·,.,4 ~ : 1~3E I.... ~AV.E lllflA
.6. .,11oEIo :11.>13101:0
U60
:.'0 ~ \1~1J2 IMORST I 1~6E
~: 'UQ6 .It!OliXl •
1312
,~ ~
:12"Z INO"X2 ,~33~
15
IS.AIolaAPQR ",.OFl, '11GA, ,UtE. ,1"4, ' lKA
. It ~
1018' JONPS" .
.8 . 1·038 ·IQa!!SN . ,121;2, .lUE
z· ,1520 101l01:lT, ·.lSl4 :
~:
1316 lOUT IT ' U62
~:
1;212 Iil-ETRN
101C
~!
1136 JRETRY, ·.1566 "
8' 1678' JSENSE
1286
'8 < 161J0 ISL~VE
HZ8 .
~'
Ut6 lTJOLP
UCE
9, 1627 . ITSTNO , HZ2, ]1386, 1390. ,1192, lltl
1
80 LOGOUT. H40, ';1140,· 14£4 '
8' 1010,MeNPSN,
8' 1030.:MCOPS.. '
~'
16ttNITNIT : l"C(» ,
8' 1068 PGNPSW'
8' 1028'PGOPSW.
1: 17D8ROUl'.Ol; 1015, 1CIO.
1, llFC ROUT02
1109
1: 186& ROUT03· l1FO

.~

DATE
EC

05MAl'65
124252 .

10AUG6'
12'580 .

15JUN67
130498

PIN 840188
15A
' PAGE

IIMMAINTENANeE OIAGNOSTICPROGRAM
~SECTION

ROUT04
ROUT05
ROUT06
ROUT07
ROUT08
ROUT09
ROUT 10
ROUT 11
ROUT 12
ROUT 13
ROUT 14
SVNPSW
SVOPSN·
SYSMOO
UlAOOR
U2AOOR
XF8112

2

F8U

1860
1881
18E1
1919
1991
19B1
1905
19FO
lAZ5
lA"O
lA75
140C

.NOERRORDETECTED, IN' ABOYEASSEM8l'

10
F811-2
PAGE
15

OAt.
.Et

05MAf6'
124252

10AllG6!1
UI580:

15JUN61 ,
130498

do

,'AGE

F811... 2

15A

IBM MAINTENANCE DIAGNOSTiC PROGRAM:
F8ll .

PIN
PAGE

16

RD FUNCTION SEC 2

25~0

1 THROUGH .20

COlS.

12~.AAAA.ADA

8TXT.AAA •• AO •• AA8JJA
9
YOY Y9 Y9 9Y't
999 9
9
99

AAAAAAAAA80AADAAAAPQ:
YYYYYYYYY9+Y99YYYY9
999999999 9 9999

••••••••

COlS.

60

~l·THROUGH

COlS.

8TXT.ALA •• AO •• AA6+GA
9
Y9Y Y9 Y9 -ZO

61 THROUGH 80

9

i

9

9

9

G-~W+J5H8EACEIEHBOJC

AAAAAAAAAAAAAAAAAAAA
YYYYYYYYYYYYYYYYYYYY
99999999999999999999

AAAAAAAAAAAAOl120002
YYVYYYYYYYYY
999999999999

8TXT.AlO,;.AO •• AAKG5H'
9
Y9
Y9 Y9 9 R '
9
9
90;

JAEA48AOJDGA~WAKAHGO

30BEAHEHEHKG585HKG5T
80Y99R9R 9 Q R 9
999 0 0
9 0

5ABOJK5NG9KA81120019
YO-Y8 9 Y

80J85ABOJ85BKB5D5GBK '
8-Y8Q8-Y8 Q 9
Y-O
9 9 9 9
9 9

4/AHAAGA4+K85M52HCAF '
9-9QYZY - 9 Y ZYY9
09
9
9

.A~MAHAH.A4D81120020

5HEA48A.OYGA~BK85M5P

KG5H60EA~8ADAAGA4BK8

5M52KG5H5HEA01120021
Y 9 1 RZO

AAAAAAAAAAAA01120003
YYYYYYYYYYYY
999999999999

BTXT.AMY •• AB •• AA5EAD
9
Y99 Y9 Y9 -09

BTXT.AAO •• AA •• AAAAAA
9
YO+ YO Y9YYYY
99- 99 9 9999

AAAAADAAAAKK ••••••••
YYYY99YYYY99
9999 9999

.~

'

•••••••••••• &1120004

BTXT.AM-•• A8 •• AAKG5H
9
Y9
Y9 Y9 9 R

BTXT.AAS •• A8 •• AAAAAA
9
Y08 Y9 Y90YYY,
99
9
9 9 9

BAAAAA8F1M8H6A8H5A8F,
OYYYYY-O ,Y- 8- Q-Q
9 999
0

10G01SBE1MBE10BT6ABT
81 9-0Y-Q8- 8-

5AG015801M8001120005
OZ 9-0 Y-O

8TXT .AMH.:. A8 •• AA4BAJ ;
9
Y9- Y9 Y9 8-Y /
9
9
999

BTXT.AJO •• A8 •• AAI08S
9
Y99 Y9 Y9 8-

6A8S5AKA6UA8Al6AAI50
8- 0 98090Y YOO +
o
90

KA6EOC+NAHPGO.0.PCSA
Y Y 9 YYl 9- - 88Y

SAAAAAGA1SAOOl120006
OY-YOYIO .-+
09 9

BTXT.AMO •• A8 •• AAAAFE
9
Y9- Y9· Y9Y999

IBAAODGA10DAOAG01FA.
Q-Y 9ZY ZOY+YZ R-.

ODGA1FEAOAG01FA.00GA
9ZY OOY+YZ+ R- 9ZY

lFOAOAGOlWHF81120001
OOY+Yl ORO

BTXT .ANH •• AO •• AA5BBO
9
Y99 Y9 Y9 Y8-

9

9

9

9

9

9

8TXT.AJ8 •• A8 •• AAACFA
9
Y9
Y9 Y9Y9-Y.
9

9

9

9

OYAA6CFA2BAA6DD10YGO
YY YZO 9YY Y-O Z
9

9 9

BTXT.AKA •• A8 •• AAG02W
9
Y9Q "Y9 Y9Z 8

o

9

FAOY8X6EBX5GDAOAGA1F
-Y - 9- OOY+YZY 0

9

G.10GJ10B35G01120008
1 YZY 0
9 9

9

OYGOISB05G010YA.AAGA
Z
- Q-8 - QYZO
09 9

2FFAOYHFAHHA01120009
0-0 R09-00

2FA002G-2~010YA.OYGA

2MKG6oo.F.OY81120010

08+01

9

9-0

9

ZO

9

1 9 1

-

9

K8505G8K~/KB5M5PEA~8

OYG012ABAAGA20A.OYGA
1
-9QYZY YZY
09

3DAB6+GA2DAJ01120012
9-9 -lOY-Y

9

OYAAAAGA2FAHOYGA2FFH
-Ooyzy 0-9 ZQ .0-9
909
9

BTXT.AKJ •• A8 •• AAOYGA
9
Y9Y Y9 Y9 ZY

3DA868GA3DHFAHHAADAA
9-9 RZY 9R09-00Y9ZY

6H+EAHOAOAG03BEAOAG.
R YYZOY+YZ+ ROY+YZ
099999

20FA2FG03DA.8.11200 13
YIO 1 9-

38G03FAJOYGA38G03FED .
RZ R-Y ZQ RZ R-8
999

ODG02FFOOYNA6UEG--38
-ZZ+ Y-9
Y .909Z R

NA5GADG-3BAHOl12001~

8TXT.ALl •• A8 •• AAAAGA
9·
Y9Q Y9 Y9QYZY,
9 9 9
9 09

20A.OYGA38HCAF.A35NG
ZY RIYY9 Y I 9

6060G-3BAOAAGA2SAJOY
Z ZZ R-90YIY -Y
09
9

GA3BAHAH.A3001120015
lY RIOY9 Y 0

BTXT.ALH •• AO •• AANG6N.
9
Y9Z Y9 Y9 9 8

6WGA3FFAOY8M3FB05SAA
8lY R-9 -Z -+ 9-9

OYGA3FAAOOGA56BU3FBA
ZQ ,1-9 91Y 0-.9 --V ,

5SE.6EGA50AA01120016
9- 91Y 1-9

9 Z

9

9

8TXT.AKQ •• AO •• AAO.FJ
9
Y9Z Y9 Y9 -Y,
9

9

9

9

9

o

9

BTXT. AKQ •• A8 •.• AAOYGA
9
Y9
Y9 Y9 ZQ
9

9

DATE
EC

9

9

9'

9

9

9

9

05MAY65
12
001BF6
0018F8
0018FC
001COO
001C02
001C04
001C06
001C08
OOlCOA
001COC
001COE
001C 12
001C16
ODIC lA
001C1E
001C22
001C28
001C2C
001C2E
001C30
001C32
00IC31t
001C38
001C3C

02
OOFFFF
45 40 F
01 03 F
91 80 F
47 10 F
OA DO
0435
FF24
91 40 F
41 10 F
OA DO
A03A
FF85
OA DA
OA DO
8001
FF24
90 00 C
94 7F F
92 00 F
58 CO F
41 AO F
02 OA F
45 BO F
2A80
0020
FOOD
FEEC
91 80 f
47 10 F
02 00 F

DATE
EC

PIN 840572
PAGE
8A

8BA
7AC
8BA
A34
OE8
86A

15JUlII67 '
130498,

PI8

R6, R6
8UFFERI1),SFLE
ICSWl+4,X'02'
ALL,BU102
ICSW2+4,X'02'
ALL,8UI02
8UFFER,C"
ISW,X'OI'
ALl,PBLK
X'06'

ZERO REG 6 •
RESTORE LAST CHAR IN 8UFFER.
SEE IF UNITCHt< IN 1ST CSW.
BR IF YES.
SEE IF UNIT CHK IN 2ND CSW.
BR IF VES.
MOVE A BLANK TO BUFFER.
SEE IF ERROR OTHER THAN UNIT CHK.
BR IF YES.
ROUTINE EXIT

LA
STC

R5,80
R7,OlR81
Rl,lIf!.1l
R8,l I R8)
R5, PI 8
UNC,R4

PUT 80 INTO REG 5.
STORE THE CHARACTER INTO THE 8UFFER.
ADD 1 TO THE DATA BYTE
ADD 1 TO 8UFFER ADDR.
8R UNT IL FULL BUFFER.
RETURN.

ALl,PSIO
R7,R7
R7, 8UFFER
R7,SEV
R4,INDAT
R6,11R6)
PS,X'80'
UNC,PSIO
0,4

8R IF YES •
ZERO REG 1.
PICK UP 1ST 8YTE IN BUFFER.
SU8. 7 FROM THE 1ST BYTE.
BR TO GEN PREVIOUS CARD DATA.
ADD 1 TO CD COUNTER TO COMPENSATE •
TURN ON PASS SW. IN CASE 2 ERRS.
BR TO PUNCH ROUTINE.

LA
LA

8CT
8CR

,..

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
PUNCH ERROR ROUTINE.
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
BU102 TM
PS,X'80'
SEE IF 1ST PASS.

F AD5
F BIE
F
F
F
0
F
F

SR
MVC
TM
BC
TM
BC
MVI
TM
BC
SVC

EXTP
.............................••....................................•
•
SET UP PUNCH DATA HERE
"
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
INDAT LA
R8,8UFFER
PUT ADDR OF BUFFER INTO REG 8.

80 F A34
50 0 050
78 0 000
77 0 001
B8 0 001
50 F 8A8
F4

BO
10
71
10
70
40
66
80
FO

F812

8C
SR
IC
SH
BAL

A34
068
8AO
001
AD5
BIE

LA
01

BC
CNOP

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• ROUTINE 02 ~ RIPPLE READ TEST. READ 27 DETAIL CARDS.
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ROUT02 DC
X'02'
ROUTINE NUM8ER
9A6
A2C F A2e
AD6
C12

005
C06

HALT

000
AD4
ADA
A20
028
8B8 F
OEA

1 N2

RETN
LRNFI
BC~

ESNS
ADe
C42
ADA FA34,

DC
8AL
XC
TM
BC
SVC
DC
DC
TM
BC
SVC
DC
DC
SVC
SVC
DC
DC
TIO
NI
MVI
L,
LA
MVC
BAL
DC
DC
DC
DC
lM
BC
MVC

X'OOFFFF'
R4,INIT
CNTR,CNTR
LDSW,X'80'
All,lN2
X'DO'
X'0435'
AL2IDONPRO-SECNO+REGI
SNSW+l,X'ItO'
All ,HALT
X'OO'
X'A03A'
AL2ISSW9-SECNO+REGI
X'DA'
X'DO'
X' 8001'
Al2IDONPRO-SECNO+REGJ
0lR121
MSSW,X'7F'
FIRST,X'OO'
R12,RDR
RI0,RDNF
HDlA+91111o PRES
RU, IS 10
X' 2A80' ,
X'0020'
'X'FOOO'
AL2IEXP1-SECNO+REGI
DERs,x'ao'
ALL.DOf
FIRSTtlJ,BUFFER

lAST ROUTINE
BR TO INITIALIZE
ZERO THE CARD COUNTER
SEE IF LOADER IS TEST DEVICE.
BR IF YES.
PRINT -DO NOPRO, PUT DETAIL CDS INTO
TEST SSW 9.
BR IF ON.
PRINT HOW TO GET DETAIL CDS.
-HALTPRINT A BLANK.
CLEAR NOT READY TO READY INTERRUPT.
ZERO THE MSG 8YPASS SW. FOR LOOPS.
ZERO THE EXPECTED DATA BYTE.
PICK UP READER ADDR.
PUT ADDR OF RD NO FD CCW INTO 10.
MOVE WORD -PRESTK- TO MSG.
BR TO ISSUE START 1/0.
CTRL SWITCHES
TEST
NU,MBER
EXP CONDo CODE AND SENSE.
EXP CSW ADDRESS.
SEE IF DATA ERROR.
BR IF YES.
MOVE THE DATA 8YTE FROM BUFFER. .
ID
F812-0
PAGE
8A

:) O__ ~_~_!! 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

o

d#tt

$

000000000000000000000000
IBM

MAINTENA~CE

DIAGNOSTIC PROGRAM

PIN 840572
PAGE
9

IBM

2540 READER FUNCTION TESTS - SECTION 3 F812

MAINTENA~CE

DIAGNOSTIC PROGRAM

PIN 840'72
PAGE
9A

2540 READER FUNCTION TESTS - SECTION 3 F812
I·

00lC42
41 AO F 030
00lC46
45 BO F OEA
00lC4A
2EOO
00lC4C
0030
001C4E
flOO
001C50
FEF4
OOlC 52
58 40 F 112C
001C56
41 44 0 001
001C5A
50 40 F A2C
001C5E
1B 44
001C60
43 40 F ADA
001C64
41 44 0 007
001C68
42 40 F ADA
001C6C
91 20 F 005
001C10
47 80 F C9E
001C14
91 80 F A06
001C18
47 80 F eEA
001C7C
91 80 F A04
001C80
47 10 F CEA
001C84
OA 00
001C86
042C
001C88
FF59
001C811
OA OA
001C8C
90 00 C 000
001C90
96 80 F A04
001C94
Oil 00
001C96
8001
001C98
FF24
001C911
47 FO F CEA
001C9E
95 IB F A2F
001CA2
47 80 F CU
001CII6
47 FO F C14
001CU '. 01 03 F A2C F A2C
OOlCRO
92 00 F ADII
001CB4
91 20 F 005
001CB8
47 10 F CEil
001CBC
91 08 F 004
001CCO
47 80 F CE8
001CC4
91 80 " 1I0tt
001CC8
47 10 F CIA
001CCC
91 80 F 1106·
001COO
47 80 F CIA
001C04
OA 00
001C06
042C
00lC08
FF59
001COA
OA DA
001CDC .
90 00 C 000
OOlCEO
96 80 F A04
001CE4
47 FO F CIA
001CE8
OA 06

001CEA
OOlCEE
00lCF2
001CF8
OOlCFC
001CFE
001000
001002
001004
00100A
00100C
001010
001014
001D!.8
OOlolt
DATE
Ee

41 AO
58 CO
02 Oil
45 80
3E80
001t0
FOOO
FF14
02 00
.1B 44
.43 40
41 44
42 lop
91 20
47 80

F 040

F 1120
F .88.8 F 8CE
F DEA

OOF

~M

NoRl
EXTl

EXT2

BC
SVC

R10,FSSl
Rll,ISJO
X'2EOO'
X'0030'
X'F100'
AL2/EXP2-SECNO+REG)
R4,CNTR
R4,11R4)
R4,CNTR
R4,R4
R4,FIRST
R4,11R4)
R4,.FIRST
SNSW+l,X'20'
NONE, NOR1
LOSW,X'OO'
NONE, LP5
MSSW,X'80'
ALL,LP5
X'DO'
X'042C'
AL21TLO-SECNO+REGI
X'DA'
OlR12)
MSSW,X'BO'
X'OO'
X'8001'
AL21DONPRO-SECNO+REG)
UNC,LP5
CNTR+3,27
Ell. EXTl
UNC,RETN
CNTR, CNTR
FIRST,X'OO'
SNSW+l,X'20'
ALL,LP5
SNSW,X'OO'
NONE,EXT2
MSSW,X'80'
ALL,RETN
lDSW,X'OO'
NONE, RETN
X'DO'
X'042C'
AL21TLD-SECNO+REGI
X'DA'
01R12)
MSSW ,X' 00'
uNC,RETN
X'D6'

-HALTTID TO CLEAR NOT ROY TO ROY.
TURN ON MSG BYPA SS SW.
BR TO LOOP RTN.
ROUTINE EXIT

RI0,RDFO
Rl2,ROR
HOIA+9111J,STK1
Rll,lSIO
X'3E80'
X' 0040 '
X'FOOO'
AL21EXP4-SECNO+REGI
FIRST Ill, BUFFER
R4,R4
R4,FIRST
R4,71R41
R4,FIRST
SNSW+l,X'ZO'
NONE,EXT2'

PUT ADOR OF RD FOSTK Rl CCW IN 10.
PUT ROR AOOR INTO 12.
MOVE WORD -STK R1- TO MSG.
BR TO ISSUE START I-D.
CTRL SWITCHES
T EST
N U M B E R
EXP CONDo CODE AND SENSE.
EXP CSW ADOR.
MOVE 1ST POS. TO EXP DATA.
ZERO REG 4.
PICK UP EXP DATA BYTE.
BUMP TO NXT EXP BYTE.
PUT IT BACK.
TEST SSw 10.
BR IF NOT ON.

PUT FEED STK SEL Rl cew AOOR. IN 10.
BR TO ISSUE START I-D.
ClAl,. SWITCHES
TEST
NUMBER
EXP CoNO. CODE AND SENSE.
EXP CSW ADDRESS.
PICK UP CO COUNTER.
ADD 1 TO CO COUNTER.
SAVE IT.
ZERO REG 4.
PICK UP EXP DATA BYTE.
ADO 7 TO IT TO POINT TO NXT CO DATA.
PUT IT IN THE EXP DATA BYTE.
SEE IF SENSE SW 10 IS ON.
BR IF OFF.
SEE IF TESTING LOAD DEVICE.
8R IF NO.
SEE IF MSG BYPASS SW IS ON.
8R IF ON.
PRINT -LOOPING LOADER- KEEP ONLY
DETAIL CARDS IN RDR.
-HALTCLEAR NOT READY TO READY INTERRUPT.
TURN ON MSG 8YPASS SW.
PRINT A BLANK.
BR TO LOOP RO, COMP, FD.
SEE IF 27 COS READ.
BR IF YES.
BR TO CONTINUE TEST.
ZERO THE CARD COUNTER.
ZERO THE EXP DATA BYTE.
SEE IF SSW 10 IS ON.
BR IF YES.
TEST. SSW 4.
BR IF NO.
SEE IF MSG BYPASS SW ON •.
BR IF YES.
SEE IF ON LOADER.
BR IF NOT.
PRINT LOOPING LOADER- KEEP ONLY
DETAIL CARDS IN RDR.

LP5

FF

LA
L
MVC
BAL
DC
DC
DC
DC
MVC
SR
IC
LA

TSTI0

STe
TM
Be

»

PAGE

47 FO F CEA

001028
001030
001038
001040
001048
001050
001054
001068

C2 0011134
23 001A34
41 001A34
02 001A34
03 001A34
OOOOOOOF

00106A
001072
00107A ..
0010B2
00108A
001092
00109A
0010A2
0010AA
001082
0010811
0010C2
001DCA
001002
0011)011
001DE2
001DEA
001DF2
0010FA
001E02
001EOA
001E12
001ElA
001E22
001E2A
001E32
001E311
001H2
001E411
Oo'IE52

8039018818418218
1180980580390388
384382381380BB07
0035014814414214
1140940540350348
344342341340B407
7033012812412212
1120920520330328
32432232l320B207
F031010810410210
1100900500310308
304302301300B007
000BOIA81A411121A
lllto09A05A0390288
284282281280A806
800D01C81C41C21C
11C 09C05C0350248
244242241240A406
4003006816416216
11609605603302CO
02422222122011206
EOOFOIE81E41E21E
lIE 09E 05E 031 02 08
204202201200A006
B02BOOA 80A40A20A
lOll 08A04A02AOlAO
2A42A22A12AOU06
002DOOC 80C40C20C
lot 08C 04e; 02C 01C8
2C42C22C12COAC06
7027006806406206
1060860460260168
264.26226126011606
F02FOOE80E40E20E
10E 08E 04E.02E01E8
ZE4ZE22E12EOAE06
A009008808400200
10808004002001A8
3A43A23A13A08A07
6005004004404204
10408404402401CO
3C43C23C13COBC07
2827012802402202
1020820420220168
3643623613600601
2001000800400200
10000004002001E8
3E43E23E13E08E07

00.lE62
OOLEbA !
00lE72
001E7A·
0011/8;!
00lEBA
001E9i
001E911
001EA2
001EAA
001EB2
001':BA
001EC2
001ECA
001ED2
001EDA
001EE2

2000
2000
2000
0000
0000

0050
0001
0050
0050
0001

0007

9

'I

001.EEC
00lEFO

EC

00001030
OCOOOOOO

BC

UNC, LP5

RONF
FSSI
PCHCMD
RDFD
NOOP
OF
TWENTY
SEV

CCW
CCW
CCW
CCW
CCW
DC
OS
DC

X'C2',BUFFER,X'20',80 RD NO FEED ecw.
X'23',BUFFER,X'20',1
X'41',BUFFER,X'20',80 PCH AND STK SEL PZ.
X'02',BUFFER,X'00',00
X'03',BUFFER,X'OO',1
X'OOOOOOOF'
20C
H'0007'

*
*
*

HOLES

*********.*••••
* HOLES TABLE.
.**.***.*••••••

DCX'B03901801041B210'
DC
X'llB0980580390380'
DC
X'384302301380B007'
DC
X'0035014014414214'
DC
X'1140940540350348'
DC
X'3443423413408407'
DC
X'703301281241221Z'
DC
X'l120920520330328'
DC
X'3243223Z1320B207'
DC
X'F031010010410210'
DC
X'1100900500310308'
OC
X'304302301300B007'
DC
X'OOOBOIA81A41A21A'
DC
X'11A09A05A0390280'
DC
X'284282281280A806'
DC
X'800001C81C41C21C'
DC
X'11C09C05C0350240'
DC
X' 244242241240 M06·'
DC
X '4003006816416216'
DC
X'11609605603302CO'
DC
X'024222221220A206'
DC
X'EOOF01EOIE41E21E' .
DC
X'11E09E05E0310208'
DC
X'204202201200A006'
DC
X'002BQOA80A40A20A'
DC
X'10A08A04A02A01AO'
. DC
X'ZA42A22AI2AOAA06'
DC
X'D02000C80C40C20C'
DC
X'10COBC04C02COIC8'
DC
X'2C42C22C12COAC06'
DC
X '7027006806406206'
DC
X'1060860460260168'
DC
X'264262261260A606'
DC
X'F02FOOEOOE40E20E'
DC
X'lOE08E04E02EOIE8'
DC
X'2E42E22E12EOIIE06'
DC
X'A009000800408200'
DC
X'10008004802001AO'
DC
X'3A43A23A13AOBA07'
DC
X'6005004004404204'
DC
X'10408404402401CO'
DC
X'3C43C23C13COBC07'
DC
X'2027012002402202'
DC
. X' 1020820420220160'
DC
X'364362361360B607'
DC
X'2001000000400200'
DC
X'10008004002001EO'
DC
X'3E43E23E13EOBE07'

,.'

.

.*.*•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
EXP tsw AREA

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
EXPI
DC
ACRDNF+Bt·
DC

13049.8

_ _ _ _ _....._ _;.,...._ _ _ _ _ _ _ _ _ _ _......_10....;._F...8_12_-_0_ .. .---0-A-T-E..:....-1...;5"-J_U_N..::6_1_ _ _ _ _ _ _ _ _ _ _ _
;.

LOOP Rp FD.

****.*••**.**•• *** •••••••**** ••••••••• *•••••• *•••••••••••••••••••••••••
*
CCW AREA .
.*.*••• ***.******************.*.**.*•••*••••••••••••*••••••••••••••••••

•

1'JU~67

130498

001020

oq1E~1I

••••••• **•••••• *•••••••••*••••••••••••• *.*.******.*********.*****.**•• *
•
SENSE SWITCH 10 LOOP RO, FD, STK SEL RI SET UP HERE
•••••• ***••••*•• ** ••••••*••••*•••••• ******************* ****.* ** •. *.** •••

F ADA
0 007
F ADA
F e':8

BC
SVC
DC
DC
SVC
TlO
01
SVC
DC
DC
BC
CLI
BC
BC
XC
MVI
TM
BC
TM
BC
TM
BC
TM
OC
SVC
DC
DC
SVC
TlO
01

F ADA F A34

F 005:·

LA
BAL
OC
DC
DC
DC
L
LA
ST
SR
IC
.LA
STC
TM
BC
TM
BC

X'OCOOOOOO'

~

PAGE

9A

....._ _ _ _ _ _ _ _ _ _ _.;...t._ _ _ _ _ _ _ _ _ _IO
_ _F...8...1...
2_-0_

'" ", _,;"i_ _ _ _ _....._ _ _ _............_ _ _ _ _ _~

16"

HAINTENA~CE

DIAGNOSTIC PROGRAM

2540 READER FUNCTION TESTS

~

00lEF4
OOlEFS
OOlEFC
OOlFOO
001F04
001F06
OOlFOC
OOlFIO
001F14
OOlFlS
OOlF1C
001F20

00000000
OSOOOOOO
00000000
04000000
00001D40
OSOOOOOO
00000000
04000000
0000104S
OSOOOOOO
00000000
04000000

001F24
00lF2D
001F34
001F3D
001F44
001F4D
001F54
001F59
001F62
001F69
001F6A
OOlF13
001F7A
001FS3
00lFS5
001F8E
00lF95
OOlF9E
OOlFA5
OOlFAE
00 1 F8'5
001F8E

4OC4D64oo5D7D90668
D7D3CIC3C540C4
C5E3C1C9D340C3C4E2
40C 90 5400 9C409
484OC8D7D96B04C1D2
C540D9C4E86BC5
D6t6400605
4DD3D6D6D7C905C740
D306CIC4C5D960
40
D2C 5C5D740D605D3E8
40C4C5E3C1C9D3
40C3C4E240C9D54OD9
C409
40E 2C5E340E2E2E640
F940D6D5684OC4
064007E2E640D9C5E2
E3C 109E34OC9C6
40E2C5E34OD6C640C4
C5E3ClC9D34OC3
C4E 240C4C5E2C909C5
C4

PIN 840572
!,AGE
10

SECTION 3 F8l2

EXP2

EXP3

EXP4

DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC

2540 READER FUNCTION TESTS - SECTION 3 F812

XLIo'OO'

000005
000006
000007
OOOOOS
000009
OOOOOA
OOOOOB
OOOOOC
OOOOOD
OOOOOE
OOOOOF
000198
000040
000048
000140
000189
00018C

~~08000000'

le(4'o'

X'04000000'

AIPCHCMD+S)
X'OSOOOOOO'
XL4'O'
X'04000000'
AIRDFD+81
X'OBOOOOOO'
XL4'OO'
X'04000000'

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
MESSAGES
.......................................................................
DONPRO DC

C' DD NPRO, PL ACE 0'

DC

C'ETAIL COS IN ROR'

DC

C'. HPR, MAKE RDY, E'

DC
DC

C'OF ON'
C' LOOPING LOADER-' .

DC
DC

C'KEEP ONLY DETAIL'

DC

C' CDS IN ROR'

DC

C' SET SSW 9 ON, 0'

DC

C'O PSW RESTART IF'

DC

C' SET OF DETAIL C'

DC

C'OS DESIRED'

TLO

SSW9

PIN 840572
PAGE
IDA

18MMAINTENA14CE DIAGNOSTIC PROGRAM

R5
R6
R7
RS
R9
RIO
Rll
R12
R13
R14
R15
WT
HCSW
HCAW
DMSSW
DMIOL
DMPTR

EQU
EQU
EQU
EQU

5
6

7

EQU

B
9

EQU
EQU
EQU
EQU
EQU
EQU
EOU
EOU
EOU
EOU
EQU
EOU
END

10
11
12
13
14
15
408
64
72
X'OlAO'
X'0189'
X'OIBC'
ROUTOl

C"

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
EQUATES
.
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
NEVER EQU
0
•

000000
000007
OOOOOF
000008
000004
000001
000005
OOOOOB.
000004
000002
000001
OOOOOA
000006
OOOOOS
0000010
000002
000006
OOOOOC
OOOOOA
OOOOSO
OOOlSl
OOFOOO •
00005A
000000
000001
000002
000003
000004
DATE
EC

15JU'f67
130498

NCCO
UNC
NONE
SOME
All
ANY
CCO
CC1
CC2
CC3
CC02
CCl2
EO
LO
HI
UNEO
EOLO
EQHI
LOGOUT
SYSMOD
REG
WHAT
RO
Rl
R2
R3
R4

EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EOU
EOU
EOU
EQU
EOU
EOU
EOU
EOU
EOU
EOU
EOU
EOU
EOU
EOU
EOU

:, ,{I.

7
15
8
4
1
5
8
4
2
1
10
6
8
4
2
6
12
10
X'80'
X'18l'
X'FOOO'
90
0
I
2
3
4

'i
"

..

~.

\.

,\

10
F812-0
PAGE
10

DATE
EC

15JUI467
130498

F812-0
10
PAGE
lOA

1

----------------------------------------------------~~~--~------~---------------~----------~----------------------------~~. .--. . . .~. . . . . . . . . . . . . . .£q
.•.~S~i. .
4~_~·I.

() 0 0 0 0 0 0',0 0 0 0 0 0 0 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 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
--.- ....
till!

HAINTENA.'tCE DIAGNOSTIC PROGRAM

PIN 840512
PAGE
11

2540 READER FUNCTION TESTS - SECTION 3 F812

IBM

REFERENCES TO DeFINED SYM80LS.

1

1
4
1
1
1

1

1
1

1

1
1

1,
1

,,
i

1
16
4
1
1
1
1
8
2
4
9
4
2
4
4
2

I,'

8
lCF8
2
4
1050
lA05
0
1

EQ
FF
HI
LO
OF
PS
RO
Rl

2

R2

3

R3

4

R4

5
6

R5
R6

1

R7

8

R8

9

R9

198
1

liT
ALL

5
1809
1048
8
4
2
1
1040
180C
lC4?18A6
1524
10eA
11 SA
Ie 12
10E8

ANY
81G
CAli
CCO
CCI
ce2
eC3
CSII
OAG
OOF
HOI
leo
ICM
HII
IH2
ISII

12Ae,

1362, ' 138E,

1808,
1100,
12Ee,
1112,
1574,
1700,
1578,
1702,
17?2,
1582,
16CC,
114E,
1888,
1C5E,
100A,
155C,
1900,
19EO,
1292,
1632,
IBA8,
128E,
1358,
,1470,
1100.
1238,
156E,
115A,
111E,
1376,
162E,
183E,
IBFC.
12F4,
168A,

1842,
156E,
153e,
1116,
1582,
1700,
1578,
1708,
1734,
15AA,
16CE,
175A,
18ee,
lC5E,
100C,
1A14,
1900,
1812,
12eo,
16E4,
18Ae,
128e,
13AE,
l5FA,
115A,
140A,
15F2,
1102,
lleA,
1396,
1640,
IB58,
1C38,
1554,
16CO

1166,
1194,
'1198

1190
160A

188A,
16FA,
15e6,
17lA,
1586,
HOE,
151 A,
170e,
173C,
1656,
16FA,
lA02,
18EO,
le60,
1010,
18A4,
1902,
1850,
1208,
IBoe,
18Ae,
1204,
1382,
l8AO,
ll5E,
1438,
15F6,
15F2
1202,
13CE,
16A6,
1886,
1C80,
15AE.

leA2

1804
1738, 1744,
16FE, 16FE,
1728, 172e,
1586, 1586,
1722, 173e,
157E, 15B2,
1710, 1112,
1756
1666, 1676,
1704, 170E,
IB04, 180E,
1e52, lC56,
lC64, 1e64,
1010, t014
IBM
1906, 190A,
187A, 1B7A,
1586, 1598,
180e, 1846,
18e2, 1Be2,
1332, 1336,
1464, H68,
18A8, ~'lB80,
l16A, . l102,
141 A, H92,
160E
125A,
155e,
16EO,
188E,
1CB8,
1638,

121A,
1594,
19FO,
189A,
lee8
1724

1752,
170e.
1740,
ISBA,
174A
15B2,
171A,

1702
171E

1686,
1730,
184C,
1e56,
le68,

1696
174A
1862
le5A
100A

190e,
1800,
1612,
IB46,
1Be4,
1354,
146e,
1880
ll06,
14AA,

190E
1800
1620
1B48
18e8
1354
146C
llE2
14e2

1304,
1500,
182E,
1BBE,

1310
1626
1836
1BEE

175A
1710
1744
16ee

1858
lC38
16AE
14F4
113E,
18EE
116E,
11EA,
125E,
ne4,
12F8,
147E,
15e2.
lA1B,

114E
116E,
11FA,
126E,
12ee,
BOO,
l4AE,
15ee,
183A,

ll74,
11FE,
127E,
1200,
130e,
l4ee.
1504,
1896

...

-~~.,..

DIAGNOSTIC PROGRAM

MAINTENA~eE

.

~.~

.. -.

.-- .. -.- '.".-

PIN 840512
PAGE
llA

2540 READER FUNCTION TESTS - SECTION 3 F812

POST ASSEM8LY DATA.

1
4

-....,..

1186,
120e,
1296,
120e,
132A,
1524,
161C,

l1e2,
123e,
129E,
12E4,
134e,
152C.
1634,

11tE,
124A,
12A2,
12E8,
1366,
155B,
19Ee,

110A
1256
12BO
UFO
1312
15A2
lAI0

4
4
16
4
4
4
4
4
4
4
4
4
1

156A
1eEA
1954
1692
1682
16A2
1612
1752
1662
lA24
l8A8
173C
A

I UP
LP5
MOR
NAe
N8P
NTC
NXL
NXT
NXU
peH
PI8
PIK
RIO

1

8

Rll

1

C

R12

1

0

R13

1

E

Rl4

1
4
1

F
lA20
FOOO

US
ROR
REG

2
2
16
1

150e
1068
1F59
F

RRM
SEV
TLO
UNC

4
4
1
1
4
4
4
1
8
8
1
1
1
2
4
4
4
4
6
2
2
8

1A28
12EC
A
6
lA2C
l10A
1652
1A09
1780
1770
lADe
A
e
lC30
lEEC
lEF4
IF04
IFl4
lCAA
lCE8
189E
1030
1162
le06
48
40

ATEl
,BTCO
CC02
CC12
CNTR
CONP
COPT
CRSII
D8W
OCRO
OERS
EQHI
EQLO
ESNS
EXP1
EXP2
EXP3
EXP4
EXTl
EXT2
EXTP.
FSSI
GREG
HALT
HCAW'
l:IeSII

It

2
1
1

1562
lC78,
15EO,
168A
167A
1640,
166A
1746
165A
198A,
1884
1756
UOA,
19FE,
10FA,
1318,
13C6,
14C6,
1572,
1132,
15FE,
19C6,
lCOC,
UOA,
19A6,
1114,
19A8,
1206,
19C6,
1226,
144A,
15Ee,
1762,
le32,
138E,
18C8
le88,
1136,
1240,
1530,
1632,
1e9A,
158A
12EO
18E4,
15EE,
1638
1178,
16ce,
128C,
111e,

le32
le50
1828,
1002
1eA2
IceD,
1800
lC42
116A
18FC
UOA,
110E,

1e80,
15Ee

le9A,

164E,

169A

1816,

1866

13E8,
18lA,
11lA,
1322,
13C6,
1534,
IBIE,
1142,
1606,
19EO,
11(EE
110E,
19A6;
1114,
1902,
1214,
lelA,
13Ae,
14EO,
1648;
lAOE,
1e50,
1396

1C88,

1020

1404,
186A,
11e6,
1332,
13eA,
155E,
IB6E,
1152,
19B2,
1B16,

140E.
lelE,
124E,
1344,
1It3A,
1566,
lC28,
1162,
19B6,
1866,

1416,
1e42,
1266,
139A,
1456,
1566,
le46,
U8e,
19BA,
leOE,

1416,
leEA
12A6,
1382,
1464,
156A,
lCF8
11F2,
19BE,
1ClA,

110E,
1980
U5A,
1906,
1244,
lCEE
13C4,
14EE,
16AE,
1828,
1e88,

1lBO,

154e,

15FA,

1614

1102,
190A
1980

14FO,

14F8,

15F2

130E,
1522;
16B4,
1818,
le98,

13F8,
1544,
16BA,
18F6,
le08,

1436,
15'tA,
16eo,
le04,
1002

1444'
15EO
16e6
1eoc

154e
1284
1384
1496
156A
15E4
1ge2
lC8C
\,
~

,

,!

le08
1156,
1262,
1512,
164E,
1eA6,

llAO,
12Fe,
15e6,
1764,
leE4,

l1A8,
1308,
1508;
lA02,
1020

118A,
1314,
15EE,
lAIC,

l1EE,
HU,
1612,
1888,

1210
1438
1620
1808

IBE4,
1626,

1e52,
162E·

lC5A, , le9E,

1eAA,

ItU

163e,
1602,
1204 '
15e8,

164A
16E4,

16EE,

1740

112t,

\

lC34

1878
IDle

154e,
110E,

15FA
llBO,

,i
1206,

1214,

1244,

i

~TE

15JU.'461
130498

10
F812-0
PAGE
11

DATE
Ee

15JU.'/111 U4,0514

PAGE
25'00 :READER STACKER SELI::CTTES'F - SECTION F819

8190

~\fN

1

••
••

TITLE

•••
•

•• MDDIFICATIONS

••
••
••• REVISION LEVEL O. INITIAL RELEASE OF :THE PROGRAM.
• .
THIS SECTION CONTAINS THE 360 STACKER SelECT TEST ',WHICH WAS
••
FORMERLY
IN
SECTION
F811
THIS
SEtTION
ALSO
CONTAINS
THE
1400
•• COMPATl8'ILITY STACKER SELECT PRt;lt>RAM. FORMERLY LOCATED IN
•
•
SECTION
SECTION
F811
IS
MADE
08S0LETE
BY
THIS
SECTION.
•• 1. THE 'PROGRAM HAS BEEN MODIFIED TO INCLUDE TEST NUMBERS AND ••
COMM.ON MESSAGE FORMAT.
I:
••
•••
I:
.E.C. PREREQ(hSITES
• '
MACHINE • • • NONE
••
•
PROGRAM • • • NONE
•• USE DESCRIPtiON F819. AT EC 130498,DATEO 15 JUN 61.
•
•.......................................................................••

•••

.,..••
..••
..•••

~811.

*

XF8190,START 4096
USING ~.15

•

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• .

TEST NUMBER DESCRIPTION

........~*.....................................................................

..•••
...•
••
.••
.,..•
..••
....

..............
ROUTINE 01
..............

•
•
•••
••

..
••

THIS TEST NUMBER IS USED TO, INDICATE PROBLEMS IN THE 360
STACKER SELECT TEST. A READ·FEED STACKER SELECT IS DDNE IN
THE FOLLOWING PATTERN. R1. R2, R1, RP3, REPEATING 10.TIMES.
THIS ROUTINE SHOULD PLACE 20.CARDS IN R1, 10 CARDS IN R2, AND
10 IN RP3 AT A CARD SPEED OF .APPROXIMATELY lQOO CARDS PER
MINUTE. CARD TIMING CAN BE ALTERED WITH THE USE OF THE
ALTERNATE CLUTCH SWITCH IN THE 2540.

•
•
DATE
EC

15JUN67 :
130498

THE OM UDT ENTRY FOR THE OPTION BYTE OF THE 2540 MAY HAVE
BEEN ERRONEOUSLY ,SET UP TO INDICATE THAT 1~00 COMPATIBILITY
HARDWARE EXISTS IN THE 2540. THE 1400 COMPATIBILITY TESTS
WILL BE ATTEMPTED AND WILL INDICATE ERRORS.

....
....
..•
....
...
....
..

EXPECTED RESPONSE

•
••

CONOITION CODE 0 WITH CHANNEL ,AND DEVICE ENDS IN 2 SEPARATE
CSWS.
POSSIBLE FAILURE CAUSES

•.

A STACKER MAGNET MAY FAIL TO ,PICK OR MAY FAIL TO RELEASE.
THIS.CAN ONLY BE VISUALLY DETERMINED.

••

:

ROUTINE 02

••
•
••
•

••••••••••••••

THIS TEST NUMBER IS USED TO INDICATE PROBLEMS IN THE 1400
STACKER SELECT TEST. A 1400 READ NO FEED IS ISSUED FOLLOWED
BY THE VARIOUS 1400 FEED AND 'STACKER SELECT· COMMANDS. THE
10
F819-0
PAGE
1

A STACKER MAGNET MAY FAIL TO PICK OR MAY FAIL TO RELEASE.
THIS CAN ONLY BE VISUALLY DETERMINED.

THIS TEST NUMBER IS USED TO. INDICATE PROBLEMS IN THE FEED
STACKER SELECT PORTION OF THE 1400 STACKER SELECT TEST. REFER
TO TEST ·NUMBER 0020 FOR FURTHER INFORMATION •

••

• 0020 - OPERATION ATTEMPTED

••

POSSIBLE FAILURE CAUSES

• '
• .
• .

•

EXPECTED RESPONSE

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

CONDITION CODE 0 WITH CHANNEL AND DEVICE ENDS RETURNED IN THE
SAME CSW BECAUSE NO FEED CYCLE OCCURS.

ALL OTHER ERRORS WILL HAVE to BE ANALYZED BY THE INDICATIONS
GIVEN IN THE ERROR MESSAGE.

•• .
•• •

• 0010 - OPERATION ATTEMPTED

,

EXPECTED RESPONSE

• 0030- OPERATION ATTEMPTED

DESCRIPTION

,

•

FOLLOWING STACKER SELECT PATTERN IS USED, R1, R2. RI. RP3.
REPEATING 10 ,TIMES. THIS ROUTINE SHOULD PLACE 20 tAROS IN
Rl. 10 .CARDSIN R2, AND lO.CARDS IN RP3. THE tARO SPEED IN
THIS TEST ·IS LIMITED DUE TO THE SEPARATE COMMANDS INVOLVED
AND ALSO DUE TO THE SAVING OF DATA DURING EXECUTION.
IF 1400 COMPATIBILITY EXISTS ON THE TEST DEVICE, BOTH THE
360 AND 1~00 STACKER SELECT TESTS WILL BE EXECUTED. DOUBLE
THE AMOUNT OF CARDS WILt. BE IN EACH STACKER AT PROGRAM
COMPLETION IF THIS IS THE C~SE.

•••
•

..

...............................................................................
• ,TEST,

lit

2540 READER SUCKER SEt.ECT TEST - SECTION 1'819

........................................*•••••••••••••••••••••••••••••••••

001000

5~~OSlJJj

PAGE

DATE
EC

15JUN67
130498

CONDITION CODE1.-COMMAND IMMEDIATE WITH CHANNEL.AND DEVICE
ENOS IN TWO SEPARATE CSWS. SENSE IS ISSUED IF UNIT CHECK IS
DETECTED DURING THE FEED COMMAND •
POSSIBLE ERROR CAUSES
1. IF USING DME-2 ON A 2 MICROSECOND MODEL 3D,
THE PROGRAM FAILS DUE TO TOO MUCH TIME TAKEN IN INTERNAL
INSTRUCTIONS WHICH CAUSES A DELAV IN STACKER SELECTION.
PROVISIONAL FEED STARTS BEFORE THE PROGRAM CAN ISSUE THE
STACKER COMMAND.
2. ANY ,MALFUNCTION DURING TEST 0020 CAN CAUSE DELAY.BECAUSE
OF THE MESSAGE OUTPUT IN TEST 0020. THIS WOULD ALLOW THE
PROVISIONAL FEED CIRCUITRY TO FUNCTION BEFORE THE PROGRAM
HAD TIME TO ISSUE THE FEED COMMAND.
1~00

PROVISIONAL FEED OPERATION AND DEFINITION.

THE FOLLOWI~G IS AN EXPLANATION OF 1400 PROVISIONAL FEED
OPERATION.
A 1400 READ NO.FEED COMMAND IS ISSUED AND CHANNEL .AND DEVICE
ENDS RETURNIN:THE SAME CSWBECAUSE NO FEED CYCLE IS TAKEN •
THE PROGRAM:HAS TO ISSUE A FEED AND STACKER SELECT COMMAND
WITHIN 6 MILLISECONDS. IF,IT DOES NOT. THE .PROVISIONAL
FEED CIRCUITRY AUTOMATICALLY STACKER SELECTS THE tARO. IF
THE PROGRAM ISSUES A STACKER SELECT AFTER THEPROVISJONAl
FEED HAS STARTED, THE DEVICE WILL ACT BUSY OR PRESENT BOTH
BUSY AND DEVICE ENDS IN STATUS IF THE PROGRAM ACCEPTS THE
INTERRUPT.
10

PAGE

F819-0
lA

IBM'MAINfENANCE DIAGNOSTIC PROGRAM

PItl 84057"0
PAGE
2

25100 'READER STACKER SELECT,reST- SECTION Fel9

15M

MAiNrENA~CE

251t0 READER STACKER SELECT ,TEST -

•

IF THIS ERROR IS INDICATED, THE SINGLE SHOT THAT GOVERNS
THE 6 MILLISECOND DELAY FOR THE PROVISIONAL FEED SHOULD BE
SCOPEO TO INSURE PROPER SETTING. IF THE SINGLE SHOT IS ALL
RIGHT, THE MONITOR 8EING USED MUST BE TOO SLOW AND THE ERROR
IGNORED •

•

•
•
•
•

NOT USED
-;
••••••••••••••••••
*••••••••••••••••••••*••••*.****.*.......** ••••••••••
•
251t0 READER STATUS BYTE
•••••••**•• *••••••••*•••*••••••••••••*•••••*••*****........*.*•••••••••
•

••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••
•••••••••••••••••••
.• SECrlDN PREFACE . . . . . . . . . . . . . . . .*•••• *••••••••••••• SECTION PREFACE.

81
00
8000
82
00
0000

•••••••••••••••••••

!.

EXNPSII ·DCX· 0004000000' .
SRET
DC
XL3'O' .
SVNPSW. DC
XL8' 00'
PGNPsli DC
XL8' 00' .
MCNPSi.! DC
XLa'oo'
10NPSW DC
XLIt'OlOltOOOO'
DC
AL~IIRETRN)
OS
96C
UNITl DC
X'81'
UI0P
DC
X'OO'
UlADDR DC
X' 8000'
UNIT2 DC
X'B2'
U20P
DC
X' 00'
U2ADDR DC
X'OOOO'

i
I'

EXTERNAL NEW PSW
ADR OF EXT INTRPT ROUTINE
SUPERVISOR NEW PSW
PROGRAM NEW PSW'
MACHINE CHECK NEW PSW
110 NEW PSW
ADDRESS OF 1/0 INTRPT ROUTINE
96 BYTE REG DUMP AREA FOR OM USE
UNIT TYPE - 2540 READER
OPTIONAL FEATURES BYTE
flAGS AND CHANIUNIT ADDRESS
UNIT TYPE - 251t0 PUNCH
OPTI ONAL FEATURES BYTE
FLAGS AND CHANIUNIT ADDRESS

••

•

15JUN67 :
1301t98

BIT
0

•

1

•
•
•
•
•

2
. 3
It
5
6

2

•

3

•
•
•

It
5
6

1

•

2540 READER DIAGNOSTIC CHECK READ BYTE DEFINITION

•

0

•
•
•
•
•
•
• .

1
2
3
It
5
6
7

NOT USED
NOT USED
NOT USED
XU CHECK PLANE
Xl CHECK PLANE
BUFFER PARITY CHECK
READ TRANSLATE CHECK
READER BUFFER ADDRESS CHECK

••••••••••••••• *•••••••••••••••••••••••••••••••••••••••••••••••••••••**
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
.......................................................................
•
•

PARAMETERS USED TO ENTER

THE 1-0 HANDLER ROUTINE
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
*......
•
•
•
•
•
•

•••

BAL
DC
DC
DC
DC
DC

Rll,ISIO
XL2' 0000'
X'OOllt'
X'FO'
X'OO'
AL2(ADR-BASE+REGI

LINK TO 1-0 HANDLER
CONTROL SWITCHES
TEST NO. !N DEC EXPRESSED IN HEX
EXPECTED CONDo CODE
EXPECTED SENSE DATA
ADDR. OF EXPECTED CSW IF NEEDED

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
1-0 HANDLER CONTROL SWITCHES
•
2 BYTE PARAMETER FOLLOWING BAL
.......................
*••••••••••••••••••••••••••••••••••••••••••••
*..

•••
•

•

• ·SWITCH
•. 0
• .

•.
•
.,
•
•
•
•
•
•
• ,
.,
• .

•
•
•
•
•

1
2
3
It
5
6

DESCRIPTION
OFF - ISSUE AN 1-0 COMMAND
ON - DO NOT I SSUE AN 1-0 COMMAND
OFF - ENABLE
ON - DO NOT ENABLE
OFF - EXPECT NO INTERRUPT
ON - E XPEC T AN INTERRUPT
OFF - DO NOT EXPECT 2 INTERRUPTS
ON - EXPECT 2 INTERRUPTS
OFF - EXPECT NOCSWS
ON - EXPECT A CSW
OFF - DO NOT EXPECT 2 CSWS
ON - EXPECT 2 CSWS
OFF - ALWAYS TRY TO ISSUE SENSE
ON - SENSE ON UNI T CHECK ONLY

• **•••,..........................................**......*•••••••••.
•••••••
••••••••••••••••*•••••••••••••••••••••••••••••••**........***..........

MEANING
COMMAND REJECT
INTERVENTION REQUIRED
BUS OUT CHECK
.
EQUIPMENT CHECK
DATA CHECK - VALIDITY CHECK - INVALtD CARD CODE
OVERRUN - .NDT USED
UNUSUAL COMMAND ~EQUENCE-2 READS WITHOUT INTERVENING FEED
10
FBl9-0
PAGE
2

1

•

1400 COMPATIBILITY FEATURE ONLY - INDICATES
SENSE WAS ISSUED BEFORE 6 MS TIME. OUT AFfER
A IItOO COMPATIBILITY REAO.
STATUS MOOIFIER. - 2 CHANNel SWITCH FEATURE ONU
CONTROL UNIT END - 2 CHANNEL SWITCH FEATURE ONLY
DEVICE BUSY
CHANNEL END
DEVICE END
UNIT CHECK
UNIT EXCEPTION - LAST CARD PREVIOUSLY READ. AND END OF
FILE WAS ON •

•• ••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
BIT
MEANING

••••••••••••••••••*•••••••••••••••••••••**..........**...** •••••••••*••
•
2540 READER SENSE BYTE
•• *••••••••••••••••••••••••••••••••••••••••••••
** ••••••••••••••••••••••

•
•

MEANING
ATTENTION -

n

•
•••••••••••••••••••••••
*••••••••••••••••••••••••••••••••••••••••••*••*•

........................*•••••••••••••••••••••••••••••••••••••••••••••••
•
'OPTIONAL FEATURE BYTE DEFINlTlDN
.
••• *••••••••••••*•• *•••••••*••*••••••••••••*...........................
BIT 1 • BIT 2 • BIT 3 • BIT It • BIT 5 • BIT 6 • BIT 7
HEX It • HEX 2 • HEX 1 • HEX B • HEX 4 • HEX 2 • HEX 1
CARD.
•
51
• 1400.
•
• 2821
IMAGE •
• COL RD. COMP.
•
• 2 CHN
•
• i
•
•
•
•
SW.

BIT

•
•
•

•

•........*•••••••••

SECNO DC
XLlt'FBlllOOOO' .
PROGRAM,SECTION AND REVISION NOS • •
SNSW,. DC
XLIt'OO'
SECTION SENSE SWITCHES
•
'DC
XLl'OO'
•
ICM
DC
Xl2'OO'
INTERRUPTION CONDITION MASK
•
SDMF
DC
XU' 00'
SEC TI ON OM FLAGS
•
NIOU ,: DC
XU'02'
NUMBER OF UNIT TABLE ENTRYS
•
FlAGt DC
X ' C O ' E X C L U S I V E CPU
•
FUG2 DC
X'OO'
1/0 INT ARE ERR, EXT INT TO PROG
•
. INPSW' DC
X'0101t000000'
DISABLED, SPVSR STATE, NO PGM MASK.
DCAL31ROUTOll
ADR OF 1ST ROUTINE PREFIX
•
EXOPSW DC
XL8' 0'
SECTI ON OLD EXTERNAL PSW
•
SVOPSII DC
Xla'oo'
CLEAR ALL OLD PSWS
•
PGOPSW DC
lIL8'OO' ,
PROGRAM OLD PSW
•
MCOPSN DC
lIlB'OO' ,
MACHINE CHECK OLD PSW
•
JOOPSWDC
Xla'oo'
1/0 OLD PSW
•
CSW
DC
XL8'OO·.
CHANNEL STATUS WORD
•
CAW
DC
Xllt' 00' , C A W
•
DC
XU2' 00'
RESERVED FOR OM USE
•

•
• BIT 0 •
•
• HEX B •
• . • ASCII.
••
•

DATE '
EC

SECTION Fal9

ACOHHAND:REJECT COULD BE GENERATED ON THE DEVICE UNDER
THE CONDITION THAT 1HE.PROVISIONAL FEED WAS DONE AND THE
PROGRAM ATTEMPTS A FEED AND STACKER SELECT ,ALSO, DUE TO
2 FEEDS IN A ROW BEING ATTEMPTED.

..

• F8190DOO
00000000
0000
0000
00
02
CO:
00
01010000000
001818
0000000000000000
0000000000000000 ,
0000000000000000
0000000000000000
0000000000000000
0000000000000000,
00000000
000000000000000000
000000
0004000000
000000
0000000000000000
0000000000000000:
0000000000000000
01040000
00001lF6

PRO~AM

•
•
•
• '

••.

001000
0010010 '
001008 '
00100A
00100C
001000
00100E
OOlOOF
001010
001015
001018 '
001020 '
001028 '
001030
001038
001040 '
001048
00104C
001055
001058
001050
001060
00106&'
001070
001078
00107C
001080
OOIOEO
OOlDEl
0010E2
0010E4 '
0010E5
0010E6,

DIAGNOSTIC

• .

SWITCHES USED BY. 1-0 HANDLER

••••••••••••••••••• *.............................*.........*•••••••••••
• ·SWITCH
•
0 -• .
DATE
EC

15 JUN67
1301098

DESCRIPTION
OFF - NO HANGUP ON INTERFACE
ON - HANGUP OCCURRED

10
PAGE

F819-0
2A

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 00

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 ~
1

,

,
;

I

PiN 840514
PAGE
3

IBM MAINTENANCE OIAGNOSTICPROGRAM

1
2

~-~

3
It
5
6
7

OFF ON OFF ON OFF,ON OFF
ON OFF ON OFF ON OFF ON -

I
NO CSWS STOREO
ONE CSW STO~ED
SECOND CSW NOT RECEIVED
SECOND C SW RECE I VED
010 NOT ENABLE
ENABlEO ONCE
010 NOT ENABLE TWICE
ENABLEO TWICE
NO SENSE DATA RECEIVED
SENSE DATA RECEI VED
NO UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE
UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE
NO ERROR DETECTED
AN ERROR WAS DETECTED

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
REGISTERS USED IN 1-0 HANDLER
.••..••.•...•...•.............
~ .............................•..........
•
•
•

•••
•

...'
....
•

OOIOEB'

REG
5

COMMENTS
USED AS LINK TO ERROR OUTPUT FROM INITIALIZE ROUTINE IF
PREVIOUS HANGUP O~ INTERFACE DETECTED.

8

USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN.

9

USED AS WORK REGI STER. WIll BE RESTORED UPON RETURN.

10

MUST CONTAIN CCW ADDRESS UPON ROUTINE ENTRY
I

REG TO THIS ROUTINE
•
MUST CONTAIN DEVICE ADDRESS
12
•.......................................................................
ISW
'DC
XL2'O'
.......................................................................
.......................................................................

0000

11

MUST BE USED AS

L~NK

• ,
• 1-0 HANDLER SUB-ROUTINE.
'
.......................................................................
OOlOEA
OOlOEE
0010F2 '
0010F6 "
0010FA.
OOIOFE
001102
001106 "
OOl1OA
OOllOE
001114 ~
,001118 '
,DOllIE
001122
001128 '
00ll2E
001132
001136,
00ll3A

00ll3E
001142
001146
00114A
00114E
001152
001156
001l5A
OOllSE
OATE
EC
L. _ _ ,.

I

90 F 190,
90 F 146E3 F 690
E3 F 601t
FO FIDE
9C F 190.
9C F 1It6
E2 F 690
E2 F 604.
01 F,680:8·002
:09 F 588'
00F,70B'FI003
.AD 0 :048'
010 040 0 040
DB E 080 E 080
80 BODO
47 10 F lC6
91 CO F DOlt
47 BO F 182

92
92
92
92
41
92
92
92
92
02
90
02
50
01
07
91

91
47
9C
1t7
91
47
90

80
BO
00
FO
40
80
00
47 70
91 40

F
F
C
F
'F
F
C
F
F

15JUN61·
1301t98

001t·
14E
000
l3E
004'
16E
000
BE
004

ITIO

MVI
MVI
MVI·
MVI
BC
ISIO' MVI
MVI
MVI
MVI
IEYEOH MVC
STM
. MVC
ST
CONP
, XC
. XC
TM
BC
·TM
BC

ISSUE,X'9D'
SET UP FOR TEST 1-0
ILOOP,X'9D'
MOVE -T- TO OPTION MSG.
IOPT1+25,X'E3'
IOADDR+12,X'E3'
UNC,IEYEOH
BR. UNCONDITIONAL
SET UP .FDR START 1-0
ISSUE,X'9C' .
ILOOP,X'gc'
MOVE
-S- TO OPTION MSG.
IOPTl+25,X'E2'
IOADDR+12,X'E2'
SAVE TEST NUMBER'
ITSTNO+512I,2IRlll
SAVE WORK REGISTERS.
RO,R9,ISAVE
RTSVI 11, SECNO+3
SAVE RT NO •. FOR HANGUP.
STORE CMD AOORESS.
RIO,HCAWIR131
HCSWIB,R13I,HCSWI1U31
lOGOUTl12,RI4I,LoGOUTlRI41
01Rlll,X'80'
'
CHECK CONTROL SWITCH FOR NO, 1-0
ALL,INOW
BR. IF ON
SNSW,X'CO'
NONE,JOHN
,

BC
SIO
BC .
ITRY2 .' TM
BC
IHANG TIO
BC
TM

NONE ,ITRY2
OlR121
UNC, ITRYl
SNSW,X'40'
NONE, IHI
OlR121
NCC 0, lTR Yl
SNSW,X'40'

10

1t7
9C
47
58
8'8
90
47
46
07
96
92
9C
47
47
41
92
41
92
41
9~

02
96
47
92
9,.
91
47
96
58
88
9f>
BO
46
80
91t
47

80
00
FO
9E
90
00
80
90
01
80
E7
00
80
40
20
F3
FO
F2
FO
Fl
07
40
Fa
FO
7F
40
10
10
9E
90
80
00
90
00
7F
FO

F 16E
C 000
F 156
0 198
0 003
C 000
F 182
F 176
F OE8 F DEB
F OE8
F SF3
C 000
F lC2
F lBO
F lAB
F SF3
F 1C6
F 5F3
F 1C6
F SF3
F 5BO o 040
F OE8
F 1C6
F 5F3
F OE8
BODO
F 26A
F OE8
o 198
o 003
F OE8'
F 706
F lE6
F 707
F OE8
F 26A

IHI
GREG
JOHN
Issue

ITWO
lONE

JZEf'.O
INOW

tWAIT

BC'
NONE,IHI'
SID
OlRl21
BC
UNC,IHANG
l
R9,WTlRl41
SRl
R9,3
TID
OlRl21
BC'
CCO,JOHN
BCT
R9.GREG
XC
ISWI2IoISW
Dt
ISW,X'80',
MVI
IACTCC+5,C'X' .
SID
OlR121
BCCCO, IZERO
BC
CC 1,1 ONE
BC
CC2,J TWO
MVI
IACTCC+5,X'F3'
BC
UNC ,J NOW
MBVI
IACTCC+5,X'F2'
C
UNC,J NOW
MVI
IACTCC+5,X'Fl'
MIIC
ICSWll81,HCSWIR131
01
ISW.X'40'
BC
UNC,INOW
Mill
IACTCC+5,X'fO'. ,
NI
ISW,X'lF' .
TM
0IRl11.X'40·
Bt;
AlL.JSEN
01
ISW,X'10'
l'
R9,WTlR141
SRl
R9,3
01
ISW,X'80'
SSM
MSKI
BCT
R9..
SSM , MSK2
NI
ISW,X'lF' '
BC
UNC,ISEN

BR. IF ,OFF
START 1-0
BR. UNCONDITIONAL
PICK UP OM WAlT FACTOR.
CUT IT DOWN TO 1.25 SECS.
,TEST 1-0 TO DEVICE.
BR IF AVAILABLE.
LOOP UNTIL TIME OUT.
ZERO THE 1-0 HANDLER SWITCHES.
TURN ON THE HANG SWITCH.
MOVE IN A -X1-0 COMMAND- SIO, TID, OR HID
BR. IF CONDo CODE 0
BR. IF CONDo CODE 1
BR. IF CONDo CODE 2
INDICATE CDND. CODE 3
IIR. UNC DNf) I TI aNAL
INDICATE CONDo CODE 2
BR. UNCONDlT I ONAl
'INDICATE CONDo CODE 1
SAVE CSW
INDICATE 1 CSW
BR. UNCONDITIONAL
INDICATE CONDo CODE 0
TURN OFF HANG UP SWITCH
CHECK CONTROL SWITCH FOR NO ENABLE
BR. IF ON
INDICATE ENABLED ONCE
LOAD OM WAIT FACTOR
ADJUST
TURN ON HANG UP SW
ENABLE
WAIT
01 SABLE
TURN OFF HANG SW
BR. UNCONDITIONAL

••••••••••••••••**••••••••••••••••*.*••*•••••••••••••••••••••••••••••••
ALL·I-O INTERRUPTS RETURN HERE

•••••••••••••••••••••••••••••••••••••••••••••••***.....................

BR. I F OFF
SID, TI'O, ORHIO
BR. UNCONDITIONAL
CHECK SECTION SENSE SWITCH 1
BR. I F OFF
TEST 1-0
8R. I F NOT CONDo CODE 0
CHECK SECTION SENSE SWITCH 1

PAGE

001162
001166
00 11 6A
00ll6E
001172
001176
00117A
DOll7E
0011B2
001188
001l8C
001190
001194
001198
00119C
0011 AD
0011 Aft
001lA8
OOllAC
OOllBO
00 11 Bit
0011 BA
OOllBE
00llC2
001lC6
OOllCA
OOllCE
001102
001106
0011DA
OOllDE
0011E2
0011E6
0011EA
OOIlEE
001lF2

•

.......................................................................
•
SENSE SWITCH lOOPS
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ITRYl TM
SNSW,X'80' .
CHECK SECTION SENSE SWITCH 0
IlOOP

PIN Blt0511t
PAGE
3A

251t0 READER STACKER SELECT TEST- SECTION F,819

2540 READER STACKER SELECT ,TEST,,- SECTION FBl9

•
• .
.,
•
•.
• .
•
• '
•.
• ,
.,
• .
•
•

IBM MAINTEt4ANCE OUGNOSTIC PROGRAM,

F819-0
3

0011F6
0011FA
OOllFE
001202
001206
0012DA
001210
001214 ,
001218
OD121E
001220
001222
001224
001226
001228
001229
00122A
00122C
001232
001236
00123C
001240
001244 '
001248
00124E
001252
001256
0012SA
0012SE
DATE
EC

49 CO F
Itl 60 F
94 7F F
91 40 F
Itl 10 F
02 07 F
96 40 F
47 FO .F
02 01 F
OA DO
Don
003A
OllA
OA DO
61t
15
F709
02 02 F
92 lA F
02 02 F
45 90 F
96 02 F
41 FO F
02 07 F
9620'F
91 10 B
47 80 F
91 08 F
47,10 F
15 JUN67
130498

03A
218
OE8
OE8
248
SBO 'F 01t0
OE8 '
252
5C8 F 040

62A F 623
3F9
640 F 61t3
3E2
OE8
ItCIt
5B8 F 040
OE8
000
26A
OE8
26A

IRETRN CH
BC

HI

JUto

ISV2

TM
BC
MVC
01
BC
MVC
SVC
DC
OC
DC
SVC
DC
DC
DC
MVC
MVI
MVC
BAl
01
BC
MVC

01
INT3

TM
BC
TM
BC

R12,IOOPSW+2
UNEQ,JUIO
ISW,X'7F' .
ISW,X'40'
All, I SV2
ICSW1181.HCSWfR151
ISW,X'40'
UNC,INT3
WORKI81,HCSWIR151
X'DD'
AL2121
AL21 IOOPSW+2-SECNOI
AL21 I UNEX+l7-SECNOI
X'OO'
X'64' .
x'15'
AL21IUNEX-SECNO+REGI
IBLAH+113I,ICSW
ICNT,X'lA'
IBlAH+23131.IACT
R9,ICOUT
ISW,X'02'
UNC,ILOGED
ICSW2(BI,HCSWIR151
ISW,X'20'
OlRl11,X'lO'
NONE, I SEN
ISW,X'OB'
ALL,ISEN

COMPARE FOR CURRENT 1-0 ADDRESS
BR. IF UNEQUAL
RESET HANG UP SW
B~.

IF 1 CSW ALREADY STORED
SAVE CSW 1
INDICATE 1 CSW STORED
BR. UNCONDITIONAL
CONVERT ADDRESS
2 BYTES OF 1-0 OLD PSW.
FROM HERE •
TO HERE
PRINT UNEXPECTED INTERRUPT ,DEVICE
ADDRESS
MOVE -CSW- TO MESSAGE
ADJUST COUNT
MOVE -ACT- TO MESSAGE
BR. TO OUTPUT CSW
INDICATE UIO
BR. UNCONDITIONAL
SAVE CSW 2
INDICATE 2 CSWS STORED
CHECK CTRl SW FOR 2 INTR, EXPECTED
BR. IF NOT
BR. IF ALREADY ENABLED TWICE
10
FBI9-0
PAGE
3A

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 80\0570\
·PAGE
0\

IBMMAINTENAHCE DIAGNOSTIC PROGRAM'

250\0 READER STACKER SELECT,:TlEST - SECTION .FBl9

001262
001266
00126A
00126E
001272
001276
00127A
00127E
001282
001286
00128A
00128E
001292
001296
00129A
00129E
0012A2
0012A6
0012AA
0012AE
0012B2
0012B8 .
0012BC
0012CO
0012CIt '
0012C8
0012CC
001200.
·001204
001208
0012DC
0012E2
0012E6 .
0012EA
, 0012EE
0012F2
0012F6
0012FA
OO12FE
001304 '
001308 .
00130C
001310
001314 :
001318
00131C .
001320
, 001326
:00132A
00132E
001332
001336
00133A
00133E
001342
001346 .
O,0134A
00134E
001352
001356 ,
00135A
00135E
001364,
001366. ,
001368 '
00136A
00136C
00136E
DATE
EC

96 .08 'F OE8
0\7 FO F 106
91 80 F A8B'
0\7 10:F 2DC
91 02 8 000
0\7 80 F 29A
91 0\0 F OE8
0\7 80 F 2DC
91 02 F 584
47 10 F 29A
91 ZO F OE8
47 80 F ZOC
91 02 F 58C
4780'F 20C
41 80 F 580
45 70 F 54A
91 BO F OE9
47 80 F 20C
9604 F OE8
91t 7F F OE9
05 OO.F 659 8005
41 80 F 2DC
96 01 F OEB
41 FO F 2DC
91 40 F OE8 .
1t7 10 F 32A
41 FO F 32E
91 20 F OE8'
41 10 F 32A
41 FO F 32E
05 00 F 5F3 B 004
41 60 F 32A
91 08 8 000
4180 F 2C4
91 40 F OEB
47 80 F 32A
ItB BB 0 006
40:80 F 302
05 07 F 5BO F 5BO
1t1 60 F 32A
91 04 8 000;
47.80 F 200
91 20 F OE8
4780 F 32A
41 8B 0 '008
40 80 F 324'
05 07 F 588 F 5B8,
47 .80 F 32E
96 01 F OE8'
92 64'F 36E
92 CO F 502
91 01 F OE8
47 10 F 34E
91 01 F 004
47 80 F 51E
92 24 F 36E
92 80 F 502
95 40 F 659
41 80F 534
91 01 F 5B1t
1t7 10 F 531t
02 01 F 680 8 002
OA DO
OOOZ
06BO
0680
OA DO
64,

ISW .. X'08' :
UHC,IWAIT .
lSEN
SS.X'80'
ALL,IBSN
OIRU),X'OZ'
NONE,IDOSNS
ISW,X'O\O' .
NONE,IBSN "
ICSW1+4,X'02' ,
ALL,IOOSNS
I SW,X'20' .
NONE,I8SN
' ICSW2+4,X'oi' .
NONE,IBSN.
IDOSNS
R8, I SENSE
R7,ISTRT
ISII+l,X'80' .
NONE ,I8SN
ISII,X'04'
1 SW+ 1, X'7F' .
IACSNS+5Il),5IRll)
EQ,IBSN
ISlI,X'Ol'
UNC,IBSN
INOEXl
ISII,X'40'
ALL,INDER
UNC,IDUNCK
JNOEX2
ISII,X'ZO'
ALL,INDER
UNC,IDUNCK
I
IBSN
lACTCC+51!) ,41RllI
UNEQtlNDER
i'
0lRUltX'08'
NONE,INOEX1,
ISII,X i 40'
NONE,INDER
R8, 61 Rll)
RB.ICCSIIl+4 :
ICCSWl
ICSW1(8),ICSIl1
UNEQ;INOER
OIRU) ,X'04"
NONE. I NOE X2
ISII,X'20'
NONE,INDER
R8,81R8)
LA
STH
R8,ICCSII2+4
ICCSII2 CLC
ICSW2(8),ICSII2
EQ,IDUNCK
BC
INDER 01 .
ISW,X'Ol'
IDUNCK MVI . IFLAG1,X'6't'
MVI
IFLAGZ,X'CO'
TM
ISII,X'Ol'
BC
ALL,IOUTIT
TM
SNSW,X'OI'
BC
NONE, lLEAVE
MVI
IFLAG1,X'24'
, MVI
IFLAG2,X'80'
10UTlT CLI
IACSNS+5,X'40'
EQ,RRM
BC
IC SIIl+o\,X' 01 , .
TM
BC
ALL,RRM
MVC
ITSTNO+5(2),2tRl1)
X'OD'
SVC
I
AL2(2)
DC
DC
AL21ITSTNO+5-SECNO)
DC
AL2IITSTNO+5-SECNO)
SVC
X'OO'
IFLAGl DC
X'64'

15JUN67
1301t98

01
BC.
TM
8C
TM·
8C.
TM
8C
TM
Be
TM
BC
TM
8C
LA
8AL
TM
8C
01
NI
CLC
8C
01
BC
TM
8C
8C
TM
BC
8C
CLC
8C
TM
8C
TM
BC
LH
STH
CLC
BC
TM
BC
TM
8C

250\0 READER STACKER SELECT ·TEST- SECTION F819

INDICATE ENABLED TWICE

BR. 1 F CSII STORED
8R. UNCONDITIONAL
8R. IF CSII 2 STORED
8R. UNCONDITIONAL
COMPARE FOR EXPECTED CONDo CODE
8R. IF UNEQUAL
8R. IF NO CSII EXPECTED
8R. IF NO CSII RECIEVED
LOAD CSII ADDR
STORE IN COMPARE INSTR.
COMPARE FOR EXPECTED CSII
8R. IF UNEQUAL
BR. IF HO·CSII 2 EXPECTED
BR. IF NO CSII 2 RECIEVED
UPDATE TO SECOND CSII
COMPARE FOR EXPECTED CSII 2
8R. IF EQUAL
INDICATE AN ERROR
SET UP FOR ERROR PRINTOUT
CHECK FOR A DETECTED ERROR
8R. 1 F ERROR DETECT ED
CHECK SECTION SENSE SIIITCH 7
BR. I F OFF
SET UP FOR CORRECT PRINTOUT
SEE IF. INTERVENTION REQUIRED.
BR IF YES.
SEE IF UHIT EXCEPTION.
BR IF YES.
MOVE TEST·NUM8ER TO PRINT
CONVERT TESt NUM8ER

PRINT TEST NUMBER

ID

-.------- ..

.......

00136F
001370
001312
001376
001378
00137C
00137E
001380
001382
001384
001386
001387
001388
00138A
00138E
001392
001396
001398
00139A
00139C
00139E
0013AO
0013A1
0013A2
001344 .
0013A8
0013AC
001380
001382
001384
001386
001388 .
00138A
001388
0013BC
0013BE
0013C4
0013C8
0013CE
001302
001306
0013DA,
0013DE
0013E2
0013E4
0013E6
0013E8
0013EA .'
0013FO
0013F6
0013F8 .
0013F9
0013FA
0013FC
0013FE
001404
001406
001407,
001408
00140A
00140C
001400
00140E
001410
001416'
00141A
00141E
001422

SEE IF lO\OO.STK SELECT.
BR IF YES.
CHECK CTRL SW FOR SNS ON UC.
8R. IF ·OFFTO ISSUE SENSE
SEE IF1ST·CSW IN.
8R IF NONE.
CHECK FO,R UNIT CHECK
IF .YES 8R. TO ISSUE SENSE
CHECK FOR SECOND CSW'
'BR IF NONE.
CHECK FOR UNIT CHECK
BR IF NONE.
LOAD SENSE COMMAND ADDR.
BR TO AUX START 1-0.
CHK FOR DATA RECEIVED
BR IF NONE.
INDICATE SENSE RECJEVED
TURN OFF DATA RECEIVED.
COMPARE FOR EXPECTED SENSE
8R IF EQUAL.
INDICATE AN ERROR.
BR TO CONTINUE.

PAGE
.,

PIN 80\0570\
PAGE
O\A

F819-0
0\

DATE
EC
-..-.,

09
F678
41 80
18 88
51) 80
OA DO
00Cl3
06ClD
060C
OA DO
AO
10
F6Cl7
41 8B
91 80
47 10
OA DO
OQCl3
0703
05FD
OA DO
AO.
OF
F5F8
95 9C
47 60
5n AO
OA DO
0003
0610
OblC
OA DO
AO
OB
F611
02 02
92 16
02 01
45 90
91 CO
47 80
41 AA
47 FO
OA DO
0008
05(;8
05(;8
02 07
02 07
OA DO,
AO

o

004

LA

SR
ST
SVC
DC
DC
DC
SVC
DC
DC
DC
LA'
TM
8C
SVC
DC
DC,
DC

F 60C

0004
B 000
F 410

sve

F 190
F 3FE
F 61C

F 62A F626
F 3F9
F 5C8 A 000
F 3E2
A 004
F 3FE
o 008
F 3CB

F 62E F 5C8
F 631 F 500

1A

F629
07 F9
02 00
OA DO
AO
OA
F'5E4
O'A DO
AO,
OA
F5EE
02 02
92 14
91 08
4180
02 02

DC
DC

F 5E9 8 004

DC
DC,
DC.
CLI
8C
ST
SVC
DC
DC
DC
SVC
DC
DC
DC
MVC
MVI
ICWOUTMVC
BAL
TM
BC
LA
BC·
. ICOUT SVC
DC
DC
DC
MVC
MVC;

svc

DC
ICNT
DC'
DC
BCR
ICCOUT,MVC
SVC
DC,
DC:
DC
SVe;
~C'

F62A F 623
F 3F9
B 000
F 442
F 640 F 646

IOCSII

DC
DC
MVC
MVI
TM
BC
MVC

X'09' .
AL21ITSTN~SECNO+REGJ

R8.O\
Rll.R8
RU,ILINK+5
X'DD' .
ALZ(3)
AL2IILINK+6-SECNO)
AL21ILINK+5-SECNO)
X'DO'
X'AO'
X'10'

ADJUST LINK ADDRESS FOR PRINTOUT
CONVERT LINK ADDRESS

PRINT LINK ADDRESS

ALZIILINK~SECNO+REGJ

Rll,41RlU
OIRU) ,X'80'
ALL,IOCSII
X'OD' .
AL2(3)
AL2110AOR-SECNO)
AL2110ADDR+5-SECNO)
X'DO' .
X'AO'
X'OF'
AL2110ADDR-SECNO+REGJ
ISSUE,X'9C'
UNEQ,ICCOUT
R10,ICAII+5
X'DD'
AL2(3)
AL211CAII+6-SECND)
ALZIICAII+5-SECNO)
X'DO'
X'AO'
X'OB'
AL21ICAII-SECNO+REG)
IBLAH+1I3) ,ICCII
ICNT,X'16'
WORK(8),0IRIO)
R9,ICOUT
4IR10),X'CO'
NONE,ICCOUT
RlO,81RlOI
UNC,ICWQUT
X'OD'
AL2(8)
AL21 WORK-SECNO)
AL21110RK-SECNO)
IBLAH+5I8) ,WORK,
I8LAH+IO\1 8) ,IIORK+8 '
X'DO'
X'AO'
X'lA'
AL2II8LAH-SECNO+REG)
UNC,R9
IEXPCC+5(1),4IR11)
X'OO'
X'AO'
X'OA'

BR. IF NO 1-0 COMMAND ISSUED
CONVERT 1-0 ADDRESS

PRINT 1-0 ADDRESS

COMPARE FOR SID COMMAND
BR. IF NOT
STORE CCII ADDR.
CONVERT CAli

PRINT CAli

MOVE -CCW- TO MESSAGE
ADJUST 'COUNT
MOVE CCII TO WORK AREA
BR. TO OUTPUT CCW,
CHECK FOR ANY CHAIN FLAGS'
BR. IF NONE
UPDATE TO NEXT CCII.
8R. UNCONDITIONAL
CONVERT

MOVE TO MESSAGE
PRINT

RETURN VIA REG 9
MOVE EXP. CC· TO MESSAGE
PRINT EXPECTED CONDo CODE

AL21IEXPCC~SECNO+REG)

X'DO'
X'AO'
X'OA' .
AL21IACTCC-SECNO+REGJ
IBLAH+1I3) ,IC SII
ICNT,X'U'
OIRU) ,X'08'
NONE,IOIDI
IBLAH+2313),IEXP

PRINT ACTUAL CONDo CODE

MOVE -CSII- TO MESSAGE
ADJUST COUNT
BR. IF NO CSII EXPECTED
MOVE -EXP- TO MESSAGE

l5JUN61
1300\98

F819-0
10
; PAGE
O\A
.._.,

~

.... ---..

..-.

ooooooooooooooooooooooooooooooooou

0000000000000000000000000000000000
IBM MAINTENANCE DIAGNOSTIC PROGRAM
2540

~EADER

001428
00142C
001430
001434
001438 .
00143E
001442
001446
00144A
001450
001456
00145A
00145E
001462
001468
00146E
001472
001476
00147A
001480 .
001486
00148A
001490
001494
001498
00149A
00149C
00149E
OOl'tAO
0014A2
0014A3
0011tA4.
0014A6
0014A8 .
0014AA
0014AC
0014AE
0014BO.
001481 .
001482
001484 ~
001488 '
00148C
0014CO
0014C4 '
OOHCA
0014CC
0014CE
001400
001402
001408
0014DE
0014E4
0014EA
0014EC
0014EO '
0014EE
0014FO
0014F4 .
0014F8 '
OOHFC
001500
001502
001503
001504 .
001506
001508 .
001509
DATE
EC

PIN 840514
PAGE
5

STACKER SELECT ,TEST .- SECTION.FS19

48'S80 '006
40 :SO F 43C
41 8S0 '008
ItO 80 F 46C
02 01 F 5C8 F5C8
ItS 90 F 3E2
91 40 F OE8
47 80 F 1t5A
02 02 F 640 F 643
02 01 F 5C8 F 580
45 90 F 3E2
91 04 8 000'
47 80 F 412
02 02 F 6't0 F 646
02 07 F 5C8 F '5C8'
45 90 F 3E2
91 20 F OE8
47 80 F 48A
02 02 F 640 F 643
02 01 F 5C8 F 588
45 90 F 3E2
02 00 F 64E B 005
91 04 F OE8
47 80 F 48C
OA DO
OOH
06~E

064E
OA DO
AO.
08
F649
OA DO
0001
0659
0659
OA DO
AO
08
F651t .
95 F4 'F 6S9·
47 10F 531t:
95 30 E lSI
47 60FItFO'
0208 F SCB E OSO
OA DO
OOOC
05e8
05C8
02 01 F 664 'F5C8
02 05 F 667F5CA
02 05 F 66E F 502
02 05 F 675 F 5DA
OA DO
AO
lC
F65F
91 02 F OE8
47 80 F 500
94 FO F OE8
47 FO F 106 .
OA DO
CO
36
F684
OA DO
AO
01

lH
STH
LA

STH
ICHNGI MVC
8Al
10101 TM
8C
MVC
MVC
8Al
IMoRST TM
8C
MVC
. ICHNG2 MVC
8Al
TM
1010
8C
MVC
MVC
8AL
IPAS
MVC
TM
8C.
SVC
DC
DC
DC
SVC
DC
DC
DC
SVC
DC
DC
DC
SVC
DC
DC
DC
CLl
8C
IPASS CLl
8C.
ILOGED HVC
SVC
DC
DC
DC
HVC
HVC
HVC
MVC
SVC
DC
DC
DC
leulo TM
8C
NI
8C
. 10POUT :SVC
IFlAG2 DC
DC
DC
SVC
DC
DC

R8,6IRUI
R8,ICHNGl+1t
R8,8IRSI
R8,ICHNG2+4 :
WoRK( 81 ,WORK
R9,ICOUT
ISW,X'40'
NONE,IMoRST
18lAH+23(31,IACT
WoRK( 81,ICSWl
R9,ICoUT
OlRUI,X'04'
NONE ,101 0
18lAH+23(31,IEXP
WoRKI81,WoRK
R9,ICoUT
ISW,X'20'
NoNE,IPAS
18lAH+23(31,IACT
WoRK( 81 ,ICSW2
R9, l~oUT
IEXSNS+5(11,5IRl11
ISW,X'04'
NoNE,IPASS
X'DD'
AL2( 1)
AL2( I EXSNS+5-SECNol;

MOVE EXPECTED CSW TO WORK AREA
811.•. TO OUTPUT EXPECTED CSW
8R. IF NO CSW STORED
MOVE -ACT- TO MESSAGE
MOVE ACTUAL CSW TO WORK AREA
8R. TO OUTPUT ACTUAL CSW
811.. IF NOT EXPECTING 2 CSWS
MOVE -EXP-To MESSAGE
MOVE EXPECTED CSW TO WORK AREA
BR. TO OUTPUT EXPECTED CSW 2
8R. IF NO SECOND CSW STORED
MOVE -ACT- TO MESSAGE
MOVE CSW TO WORK AREA
MOVE EXP SENSE TO MESSAGE
BR. IF NO SENSE DATA RECIEVED
CONVERT EXPECTED SENSE

Al2(IEXSNS+5-SEC~01

PRINT EXPECTED SENSE
X'OO'
X'AO'
X'08'
AL2( I EXSNS-SECND+REGI
X'DD'
AL2(l)
AL2( IACSNS+5-SECNOI
AL2( IACSNS+5-SECNOI
PRINT ACTUAL SENSE DATA
X'DO'
X'AO'
X'08'
AL2( IACSNS-SECND+REGI
TEST FOR INTERVENTION REWIRED.
lACSNS+5,C '4'
ALL,RRM:
BR IF YES.
SYSMoD(R14),X'30'
CHECK FOR HODEL 30
UNEQ,ICUIO
8R IF NOT.
WoRKI.l2) • LoGoUTI R141 HOVE LOG OUT TO WORK AREA
CONVERT
X'DO'
AL21121
AL2( WoRK-SECNOI
AL2( WoRK-SECNo)
loLoG+5( 21, WORK
MOVE LOG OUT TO MESSAGE
lDLoG+81 61,WoR'K+2'
IoLoG+15161,WoRK+I0
IoLoG+22(61,WORK+18
PRI NT LOG OUT
X'OO'
X'AO'
X'lC'
I
AL2(loLoG-SECNO+REGI
I SW,X'02'
SEE IF UIO.
NONE, 10PoUT
SR. IF NOT UIO
ISW,X'FD' ,
RESET·UIo SWITCH
UNC, I WAIT
8R. UNCONDITIONAL
.PRINT·LOOP OPTIONS
X'OO'
X'CO'
X'36'
AL2(loPT1-SECND+REGI
X'DO'
SPACE A llNE
X'AO'
X'Ol'
.10
F819-0
PAGE
5

..

'.

,-.-

.•..

~.-,.-,--

... ,.

. PIN S40514
. PAGE
5A

2540 READER STACKER SELECT TEST - SECTION FS19

15JUN61.
130498
,.

IBM MAINTENANCE DIAGNOSTIC PROGRAM

••

- " . . .' ...... y •• "~,,.~~ • • •

~"

••• "

"

" ..-- .....

.."~

.....

-

..

-~,.,,~,,

00150A
00150C
001510
001514
001518
00151C
00151E
001522
001526
OQ152A
00152E
001532

F601
50 AD
91 CO
41 50
91 80
07 15
91 08
47 80
41 88
41 88
98 09
07·F8

001534 .
001536
001538
00153A
00153C
001540
001542
001544
001546

OA DO
2410
F68A
OA DA
90 00 C 000
OA DO
aOOl
F6BA
41 FO F UE

00154A
00154E
001552
001556 .
00155A
00155E
001562
001566
00156A
00156C
001570
001514
001578

58
88
50
9C
41
90
47
46
07
91
41
96
47

0
F
F
F

048
004
13E
OE8

8
F
0
0
F

000
52A
002
006
588

9E 0
90 0
80 0
OOC
7Q F
00 C
.40 F
90 F
F7
04 0
80 F
80 F
FO F

DC
ST
TM
8C
TM
BCR
JLEAVE TH
BC
LA
LA
lUP
LM
BCR

Al21IlINK-SECNO+REGI
RI0,HCAWIR131
SNSW, X'CO' .
ANY, ITRYl
ISW,X'80'
ALL,R5
O(Rll) ,X'OS'
NONE,I UP
Rll,2(Rll)
Rl1,6(Rl11
RO,R9,ISAVE
UNC,RU

RRH'

SVC
DC
DC
SVC
TID
SVC
DC
DC
8C

X'OO' .
X'2410'
AL2(HDR-SECNO+REGI
X'OA'
D(Rl21
X'DO'
X'8001'
AL2(HOR-SECNo+REGI
UNC,CoNP

SRl
ST
Slfr
BC
ITIOLP TID
8C
ITIC
8CT
IBACK 8CR
IloKE T"
BC
01
BC

R9,2
R8,HCAW(R131
0(R121
NCCO,IBACK
0(R121
CCl,lloKE
R9,ITlOLP
UNC,R1
HCSW+4(R13I,X'04' .
NoNE,lTIC
ISW+l,X'80'
UNC,IBACK

STORE CAW
CHECK SECTION SENSE SWITCH 0 AND 1
BR. IF ANY ON
RETURN VIA REG 5 IF HANG UP
BR. IF NO CSW EXPECTED
UPDATE liNK ADDRESS FOR RETURN
RESTORE WORKING REGS.

RETURN VIA REG 11
.......................................................................
•
INTERVENTION REQUIRED ROUTINE
.......................................................................
PRINT -HAKE DEVICE REAOY-

HALT
TEST 1-0
PRI NT A BLANK.
BR TO CONTINUE.

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
AUXILIARY START 1-0 ROUTINE
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ISTRT L
R9,WTlRI4)
LOAD OM WAIT FACTOR.

198
002
048
000
56A
000.
56C
55E
044
566
OE9
56A

.

CUT IT DOWN TO 2.5 SECS.
STORE IN CAW
ISSUE SENSE
TEST 1-0
SR. IF CSW STORED

8R UNCONDITIONAL 8ACK TO RTN.
CHECK FOR DEVICE END.
8R IF NOT IN YET.
INDICATE THE DATA RECEIVED.
RETURN TO MAIN ROUTINE.

......................................................................
1-0 HANDLER WORK AREA.
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ISENSE CCW
X'04' ,IACSNS+5,X'OO',1
•

001580
001588
00158C
001590
001594
001598
00159C
0015AO
0015A4 .
0015A8
0015AC
001580
001588
0015CO
0015C8
0015EO
0015E4
0015ED
0015EE
0015F1.
0015F8
001601
001607
001608

04 001659 00000001
00000000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
0000000000000000
0000000000000000
+00.00000000000000
00000000
40C3C34040E140C5El
07
40C3C34040E740CIC3
E3
40CIC4D940E1E1E1E1
E7E740E7C906
00
001601

DATE
EC

l5JUN61
130498

ISAVE

DC

10F t O'

ICSWI .
ICSW2
DSWD
WORK
RANDOM
IEXPCC

DC
DC
DC
OS
DC
DC

XLS'O'
Xl8'O'
0'0'
24C
F'O'
C'CC X EXP' ,

JACTCC DC

C' CC

10ADDR DC

C' AOR XXXXXX XIO'

DC
CHOP
oRG

X ACT' .

X'OO' ,
O,It
*-1

F819-0
10
PAGE
5A

IBM MAINTENANCE DIAGNOSTIC PROGRAM!
25~OREADERSTACKER

001601.
001610 :
001611 ,
001618 '

PIN 840514
PAGE
6

SELECT'TEST'- SECTlON,F819

40CIC4D940E1E7E1El
E1E74003C905D2
00.

001617
001611 ,
40C3CIE640E7E7E1El
001620.
E7E740.
001623·
C3E2E6
001626
C3C3E6
001629
40C3E2E64OE1E7E1El
001632
E1C7E1E140E7E7'
001639
E1E1E1E7E7E740C5El
001642
07·
001643
CIC3E3
001646
C5E107
40E205E24OE1£740C5,
001649
001652
E701
001654 '
40E205E240E1E740Cl
001650
C3E3
00165F
400306C740E7E140El
001668
E1E7E1E1E140El
00166F
E7E1E1E7E740E1E1El .
001618 '
E1E1El
001618
40E3E2E340E1E1E1E7
001684
40E2C5E340E2E240FO'
001680
40060540C60609
001694 :
40030606D140D60540
001690
E1C9066B40E2E2
0016A4
40F140060540C60609
0016AO, . 40E3C90640E2C9
001684 '
064003060601
00168A
4004CID2C540C4C5E5
0016C3,
C9C3C540D9C4E8
0016CA
40E2C8C440C8CIE5C5
001603·
40
4040404040C3C4E240
001604 :
C90540D9F16B40
001600
4040404040C3C4E240 '
0016E4 ~
0016EO
C9054009F26B40
0016F4 :
4040404040C3C4E240
0016FO
C905400907F3
001190
001103
001106
FE
001107
01
001708
00
001109
40E4C90640C60906D4.
001712
40C4C5E5C9C3C5
40E1E7E7El
001719

DC

ICAW

, X'OO' .
DC
CNOP 0,4 .
ORG
*-1
DC
C'CAWXXXXXX '

ICSW
ICCW
IBLAH

DC
DC
DC

C'CSW'

C'CSW XXXXXXXX'XX,

DC

C' XXX XXX EXP' .
C'ACT'
C'EXP'
C' SNS XX EXP'

IACSNS DC

C' SNS XX

ACT~

10LOG

DC

C' LOG XX

xxxxd:I

DC

C'XXXXX 'XXXXXX'

.'

C' TST XXXX'
C'SET SS 0 ON FOR'

DC

C' ·LOOP ON XIO,'SS'

DC

C' 1 ON FOR TlOiSI',

DC
DC

C·O LOOP'
C· ,MAKE DEVICE ROY'

SHDAVE DC

C' SHD HAVE, •

RIP

DC

C· .

CDS IN Ri, •

DC

C'

CDS IN R2, •

DC
DC
DC
DC
DC
DC

C· ,

00179B
00179C
0017AO
0017A4
0017A6
0017F8
0017F9
. 0017FA
0017F8
001804
001808
001614 .

CDS IN RP3'

AL3( ISSUE)
. X'FE'
X'Ol'
X'OO'
C· UIO FROM DEVICE'

SAVE RT NO. FOR HANGUP.

C' . XXXX'

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
INITIALIZE ROUTINE
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
INIT
SR
R13,R13
ZERO REG 13

•
00171E
001720
00112~

,

001728
00112A
00172E
001732
001736
001HC
001H2
001748 '
00114A
001HE
001152
.001754.
001756
001758
DATE
EC

IB DO
91 40 E 196
47 80 F 12A
18'OF
58 CO F OEO
5~CO F1A4'
50 CO F 19B'
07 OB F A9C F ,A9C
02 02 F AAC F AAF
07 01 .F lFB F lFB
18 66
~3 6E 0 189
loA 6E 0 1BC
lA 6E
06 60,
0660
~9 C6 ,0 000
15JUN61
130~98

TM
8C
LR
NITWIT L
N
ST
XC
MVC
XC
SR
IC
AH
AR
8CTR
8eTR
CH

406IR14),X'40'
NONE,NITWIT
R13.R15
RIZ,UNITI
RIZ,M0050
R12,RDR
CCSS(12),CCSS
NCARD(3),ONES
MSSWIZ),MSSW
R6,R6
R6,DMIOLIR14t
R6,DMPTRI R141
R6,R14
R6,0
R6,O
RIZ,0IR61

47
96
91
41
92
02
41
07
OZ
OA
64

60 F
80 F
60 F
10 F
40 F
4E F
AO F
F4
OO'F
00

164
7F9
OE8
l1C
lA8
lA9·F lAB
A88
003 Fl08

14

F7F8
96 01 F OE8
45 50 F 29A
9200.FOE8
47 FO F 164

CHECK FOR FORCED PROBLEM STATE
BR. IF NOT
SETUP FOR PR08LEM STATE
LOAD REG 12 WITH UNIT TABLE ENTRY
SAVE ONLY THE READER AODR.
SAVE IT
ZERO THE COUNT AREA
ZERO TWO' SWITCH BYTES.
ZERO REG 6.
PUT LENGTH OF DMIO TABLE INTO 6.
ADD OFFSET ADDRESS TO LENGTH.
ADD BASE REG VALUE.
SUBTRACT Z TO GET
TO LOADER ADOR.
SEE IF TEST·DEVICE. IS LOADER.
10
F819-0
PAGE
6!

001B16
0018lA
00181E
001822
001626
00182A
00162E
001830
001832
001634
001836 ,
001836
00183A
00183C
00163E
001640
001B42
0016'04
0018'06
0016'oA
0016'oC
0016'tE
001850
001654
001656 .
00185E
001660
001662
001864
001666
00166A
00186E
DATE
EC

00000000
00000051
00000000
00003FFF
00
00
00
40D7D9C5E5C9D6E4E2 .
40C6CID5C740E4
D740C4C5E3C5C3E3C5
C4

91 40
47 10
92 04
92 AO
91 80
41 80
OA 00
2429
F829
OA 00
A03C
F852
OA 00
A040
F8BE
OA 00
A045
F8CE
92 80
OA 00
0430
FAEC
91 60
47 10
02 05
OA 00
A022
FC5E
92 Z4
OA OA
90 00
OA DO
15JUN67
130498

F
F
F
F
F
F

BC
UNEQ.8LOOP
01
LOSW.X'BO'
BLOOP TM
ISW.X'80'
8C
All ,HANGUP .
MVI
8UFFER.C'.'
MVC
BUFFER+l(791.BUFFER
LA
RI0,NOOP
8CR
UNC,R4
HANGUPMVC
SECNO+3IlltRTSV
SVC
X'OO'
DC
X'64'
DC
X'lA'
DC
ALZ I HUNG-SECNO+REG I
01
ISW,X'Ol'
BAL
R5,IOOSNS
MVI
ISW,X'OO' .
8C
UNC,BLOOP,
CNOP 0,4

8R IF ,NOT.
TURN ON LOADER SW.
tHECKFOR HANG UP
SR. IF DETECTED
CLEAR DATA AREA.
CLEAR DATA AREA.
PUT ADOR OF NOOP ·INTO REG 10.
RETURN VIA REG 4
RESTORE RT NO.
PRINT
-PREVIOUS HANGUP DETECTEDTURN ON ERROR SWITCH.
BR. TO OUTPUT AVAILABLE INFO
RESET HANGUP SWITCH

.......................................................................
•
AUXILIARY WORK AREA.
.......................................................................

X' .

nSTNO DC
IOPTI DC

DC

00115C
001760 .
001764
001768
00176C
001770
001776 .
00177A
OOlHC
0017BZ
001784 :
0017B5
0017B6
001788
00178C
001790.
00179'0
001796

C'ccw" .

lACT
DC
IEXP 'DC
IEXS"S DC

10ADR
MSKI
MSK2
RTSV.
JUNEX

PIN 840514
PAGE
6A

2540 READER STACKER SELECT. TE5T,- SECTION F819

ILINK

MDR

18M. MAl NTENANCE OIAGNOST IC PROGRAM'

A88
858
84C
860
7F9
84A

F 84C

F lF9
F 868
F Cl A F' C80 :

F 860:
C 000

ROR
ATEl
RETURN
M0050
BUFFER
MSSW
LOSW
BYSW
HUNG

DC
DC
DC
DC
OS
DC
DC
DC
DC

F'O'
F'BI'
F' 0' .
X'00003FFF'
80C
X'OO'
X'OO' ,
X'OO' '
C'PREVIOUS HANG U'

DC

C'P DETECTED'

...............................................**••_****••••••••••••
•
INITIALIZATION MESSAGES
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
OPMSG TM
SS,X'40'
SEE IF 360:STK SEL DONE.

8C
MVI
MVI
TM
BC
SVC
DC
DC
SVC
DC
DC
SVC
DC
DC
SVC
DC
DC
MVI
BILM! SVC
MIF
DC
DC
TM
BC
TOPS
MVC
~OP'
SVC
DC
DC
MVI
HL Tl .. SVC
TlO
SVC
M1Fl

ALL,TOPS
M1F,X'04'
TOP+2,X'AO' .
LOSW,X'BO'
NONE,8ILM
X'OO'
X'2429'
AL2IRTDI-SECNO+REG)
X'OO'
X'A03C'
AL21 RTD2-SECNO+REGI
X'OO'
X'A040'
AL2IRT03-SECNO+REGI
X'OO'
X'A04S' .
ALZIRTO+-SECNO+REGI
MIF ,X '80' .
X'DO'
X'043D'
AL2100NPRO-SECNO+REGI
LOSW,X'BO'
ALl,HLTl
CLSTK+Z8161,STK
X'DO' .
X'A022'
ALZ I CLSTK-SECNO+REG I
TOP+Z,X'Z4'
X'DA'
01R12)
X'OO' .

8R IF YES.
PUT PRINT HEAD FLG ON IN MSG.
SUPPRESS HEADER IN MSG.
SEE IF TESTING LOAD DEVICE
8R IF NO
PRINT -REMOVE CDS FROM STKR
OF LOADER DEVICE.

PRINT -REMOVE REMAINING TEST
DECKS FROM LOADER HOPPER.
PRINT -RUN CDS OUT OF READER AND
PUT THEM IN FRONT OF REMAINING
TEST DECKS.
PRINT -SAVE REMAINING TEST DECKS
UNTIL A MSG REQUESTS THEM.
PUT SUPPRESS HOING FLG ON IN MSG
PRINT PUT VALID CDS IN ROR
SEE IF ON LOADER DEVICE.
8R IF YES.
MOVE WORD STKRS TO "SG.
TELL OPERATOR TO CLEAR ALL STKRS.
ALLOW HEADER IN MSG.
-HALTTEST 1-0 TO 8RING IN NOT ROY TO .RDY.
PRI NT A BLANK
10
F81g..0
PAGE
6A
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 0i

ttr

O~

.. ,

_

~

-

.

-

-

-

-.

-

0 0 0 0 0 0 0 0 O! 0 0 0 0 0 0 0 0 0 0
-

o

ttttt

• _ _ • __ •..

_____ .c.... ,_. _ _ .... _ _ _ .... _ _ _ .....

18MMAINTENANtE DIAGNOST I t PROGRAM.
25~OREADER

001810
001812
OOlBllt '
001B16
001816 '

PIN 8~051~
PAGE
1

SUCKER SELECT 'TEST,- SECTION FB19

8001
FAEC
01 F~

DC
DC
BCR
CNOP
BCR

01 00

X.8001' .
AL2IDONPRO-SECNO+REGI
UNC,R~

RETURN TO HAIN ROUTINE.

0,4

0,0
.......................................................................

01
OOBBDIt
92 00 FABB'
02 03 F A8A F A8F
~5 ItO F 11E
1t5 ItO F '816
96 ~O:F ABB'
41 00 0:028
41.100001
41,20:0 :008
58 CO F 798'
41 40 F 8AA
50 40 F 7AO
Itl A2 F Alt8
Itl 3A 0008
40 30 FADE
45 BO F OFE
3EOO
0010
FOBO
FADC
45 40 F 982
91 08 F 004
1t7 10 F 892
45 40 F A16 .
OA 06

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ROUTO 1 DC
X' 01'
,ROUTI NE NUM8ER
DC
MVI
MVC
BAL
BAL

01
LPOl

SIO

AL3IROUT02-SECNdl
SS,X'OO'
SSOPI41,NOSS
R~,INIT'

RIt,OPMSG
SS,X'40'
RO,40
R1,1
R2. B
R12.RDR
Rio, SIO
R4,RETURN
RI0,RDFD-8IR21
R3.BIRI0)
R3.EXP5+2
Rll.ISIO
X'3EOO'
X'0010'
X'FOOO' .
AL2IEXP5-SECNO+REGI
R4,MRTN
SNSW,X'08' .
ALL,LPOI
R4,COC
X'D6'

LA
LA
LA
L
LA
ST
LA
LA
STH
BAL
OC
DC
DC
DC
BAL
TM
BC
BAL
SVC
CNOP' O,~

AODRESS OF NEXT ROUTINE
ZERO THE STK SEL SW.
MOVE INITIAL PATTERN TO WORK AREA.
BR TO INITIALIZE
BR TO OPENING MSG.
TURN ON 360 STK SEL SW.
PUT 40 INTO REG 'J. -TOTAL' COSPUT 1 INTO REG 1
-COUNTPUT B I NTO REG 2
-CCW INDEXPUT RDR ADOR INTO REG 12.
PICK UP THE RETURN ADOR.
SAVE IT.
PICK UP ADDR OF READ FEED STK SEL.
PICK UP EXP CSW COMMAND ADDR
PUT IT IN EXP CSW
BR TO ISSUE START 1-0
CTRL SWITCHES
T EST
N U M B E R
EXP CONDo COOE AND SENSE
EXP CSW AODR
BRTO MAIN RTN.
SEE IF RTN LOOP SW ON.
BR I f YES.
BR TO CONVERT THE CD COUNT
-ROUTINE EXJT-

001BD5
001808 '
OOlBDC
0018EO
00lBE2
0018H'
001BE6
OOlBEA
0018EE
0018FO
OOlBFIt
0018F8 '
0018FE
001900
DATE
EC

02
OOFFFF
91 08 F
41 10 F
OA DO
01t3D
FCst
91 40 F
47 10 F
OA 06
91 80 F
41 80 F
02 05 F
OA DO
2422
15JUN67.
130498

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

DEl.
91B'

A88'
8FO'
7F9
8EE
·C7A F,C86

ROUT02 DC
DC
TM
BC
RBY
SVC
DC
DC
TM
BC.
EX
SVC
FINM
TM
BC
MVC
SVC
DC

_ . _ _ _ __

IBM MAINTENANCE DIAGNOSTIC PROGRAM

001902
001901t
001906 .
00190B
00190A
00190C
001910 .
001912
001914
001916
001918
00191C
001920
001924
00192.A
00192E
001932
001936
00193A
00193E
001942
001946
OD194A
00194E
001952
001954 .
001956
001958
00195A
00195E
001962
001964.
001966
00196B'
00196A
00196E
001972
001976
00197A
00197E

FC5E
OA DO
A03E
FCl3
OA DA
90 00 C 000
OA DO
8001
FCl3
OA 06
45 itO F B16
45 40 F 7lE
96 80F AB8'
02 03 F A8A F ABF,
41 00 '0028
41 10 0 001
41 20 0 008
58 CO F 79B
41 40 f 942
50 40 F 7AO
41 AO F A6B'
91 01 F 004
47 10 F BED
45 BO f OFE
2AOO
0020
FOOO
FACio
41 A2 f A6B
45 BO F OFE
2EOO
0030
FlOO
FACC
45 40 f 982
91 DB F 004
41 10 F 92A
45 40f Al6
92 00 F IfA
47 FO F 8FO

001982
001986
00198A
00198E
001992
001996
00199A
00199E
0019A2
D019A6
0019AA
0019AE
0019B2
001986
0019BA

50 40 F A98
88 20 0 001
58 32 F A98
41.33 0 001
50 32 f A98
89 20 0 001
91 10 F 005
47 10F 9fE
91 08 F 005
41 10 F A06
91 04 F 005
47 10 FADE
46 00 F 9BC
58 '40 F A98
07 F4

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

• ROUTINE 02- THE 1~00 COMPATIBILITY STACKER SELECT TEST.
•
THI S ROUTINE I SSUES A 1~00 READ NO FEED AND fOLLOWS NEXT
•
WITH A FEED TO' ONE OF THE STACKERS. THE STACKER SELECT
•
PATTERN I S AS FOLLOWS, Rl, R2, Rl, RP3, DONE 10 TIMES
•
IN A NORMAL PROGRAM EXECUTION. THIS SHOULO PLAtE 20
•
CARDS IN Rl. 10 CARDS IN R2. AND 10 CARDS IN RP3 I F THE
•
STACKING· PERFORMED PROPERLY.
•
THIS TEST IS BYPASSED IF THE CORRECT PRINTOUT SENSE
• .
SWITCH -SSW 7- IS ON, DUE TO TIMING SENSITIVITY.
0018D~

•

PIN 8~051<\
PAGE
:lA

2540 READER STACKER SELECT TEST ,- SECTION· F.B19

• ROUTINE 01 - THE 360 STACKER SELECT TEST.
•
THIS ROUTINE ISSUES 360 READ. FEED. AND STACKER SELECT
COMMANDS.
THE STACKER SELECT PATTERN IS AS FOLLOWS,
•
•
R1, R2, Rl, RP3, DONE 10 TIMES IN A NORMAL PROGRAM
•
EXECUTION.
THIS SHOULD PLACE 20 :CARDS IN Rl, 10 CARDS
• .
IN R2, AND 10 CARDS IN RP3 IF THE STACKING PERFORMED
•
PROPERL Y.
SENSE SWI TCH CONTROL OR THE LOOP ROUT IN!:
•
OPTION ENABLES STACKING AS MANY CARDS AS DES IRED.
001818 '
001879
OOlBIC
001BBO.
0018B6
00188A
0018BE
001892
001896 .
00189A
00189E
0018A2
0018A6
0018AA
0018AE
0018B2
0018B6
001BBA
0018BC
0018BE
0018CO
0018C2
0018C6 .
0018CA
OOlBCE
001802
0018DIt '

0 0: 0 0 0) 0 0 0 0' 0 0 0 0

_ _. . . . ",.. - , . - . - - - - . - - - . _ - . - . _ _ .. __ .•• _ _ _ _ _ _ _ ._ •. _ .. _ _ _ •• _ _ _

X' 02'
X'OOFfFf'
UNIT1+l,X'OB'
ALL.EX14
X'DO'.
X'040D' .
i
AL2IBYPASS-SECNO+REGI
SS,X'40'
ALL,FINM
X'D6'
LDSW,X'BO'
•
NONE,EX
CLSTK+2816I,REDR
X'DO'
X'2422'

ROUT! NE NUMBER
LAST ROUTINE
SE~ If 1400 COMPATIBLE 2540
8R IF YES.
PRINT -RTN BYPASSED-

EX1~

LP1~

51014

.

• iD
PAGE

0019BC
0019CO
0019C4
0019C8
0019CC
001900
001906
F819-0
1

DATE
EC

9103
47 10
91 02
47 10
41 20
02 00
02 03
15JUN61
130498

F
F
F
F
0
F
F

ABA
9EE
ABA
9F6
OOB
ABE F ABA
ABA F ABB

LA
TH
BC
BAL
DC
DC
DC
DC
LA
BAL
DC
DC
DC
DC
BAL
TM
BC
BAL
MVI
BC

AL2ICLSTK-SECNa.REGI
X'DO' .
X'A03E'
AL2IPTDB-SECNO+REG)
X'DA'
01R12)
X'DO'
X'B001' .
AL2IPTDB-SECNO+REG)
X'D6' .
R4,OPMSG
R4,INlT
SS,X'80' .
SSOPI41.NOSS
RO,40
R 1,1
R2,8
R12,RDR
R4, SI014 '
R4,RETURN
R10,ROl4 .
SNSW,X'Ol'
ALL,RBY
Rll,lSID
X'2AOO'
X'0020' .
X'fOOO' .
AL2IEXP1-SECNO+REG) .
R10,FDllt-81R21
Rll,ISIO
X'2EOO'
X'0030'
X'FI00'
AL2IEXP2-SECNO+REGI
R4,MRTN
SNSW.X'08'
ALL,LP14
R4,COC
BYSW,X'OO'
UNC ,FINM

ST
SRL
L
LA
ST
SLL
TM
BC
TM
BC
TH
BC
BCT
L
BCR

R4,ENDRT
R2.1
R3,CCSS-4IR2)
R3ollR31
R3,CCSS-4IR21
R2,l
SNSW+l,X'10'
ALL, SEn
SNSW+l,X'OB'
ALL,SET2
SNSW+l.X'04' .
ALL,SET3
RO.CNTCCW
R4,ENDRT
UNC,R4

:sr

PRINT·-PUT·THE TEST'DECKS IN RDR.
-HALT'"
TEST 1-0
SPACE OUTPUT DEVICE 1.
-ROUTINE EXITBR TO OPENING MSG.
BR TO INITIALIZE.
TURN ON THE 1400 :STK SEL SWITCH.
MOVE INITIAL PATTERN TO WORK AREA.
PUT 40 INTO REG o. -TOTAL. CDSPUT 1 INTO REG 1. -COUNTPUT 8 INTO REG 2. -CCW INDEXPICK UP READER ADDR.
PICK UP THE RETURN ADDR.
SAVE IT.
PICKUP ADDR OF 1400 RD NO FD CMD.
TEST CORRECT PRINTOUT SSW 1.
BR IF Otl.
BR TO ISSUE START 1-0.
CTRL SWITCHES.
TEST
NUMBER
EXP CONDo CODE AND SENSE.
EXP CSW ADDRESS.
PICK UP ADDR OF 1400 STK SEL CMD.
BR TO ISSUE START 1-0.
CTRL SWITCHES.
TEST
NUMBER
EXP CONDo CODE AND SENSE.
EXP CSW ADDRESS.
BR TO MAIN ROUTINE.
SEE IF RTN LOOP SW ON.
BR IF YES.
ZERO THE MSG BYPASS SW.

BR TO CHK END.
•••••••••••••••••••••**..............................................
..
•
UPDATE STACKER CARD COUNT'
......................................................................
MRTN

SAVE END RETURN ADDR.
OJ VI DE REG 2 BY 2.
PUT COUNT INTO REG 3
ADD 1 TO THE COUNT
STORE IT BACK
RESTORE REG 1
SEE IF LOOP ON STACKER Rl DESIRED.
BR I f YES.
SEE IF LOOP ON STACKER R2 DESIRED.
BR I f YES.
SEE IF LOOP ON STACKER RP3 DESORED.
BR IF YES.
BR TO SET STK SELECT.
RESTORE END RETURN ADDR.
RETURN TO ROUTINE.

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••*•••••*•••••••
•

SEE If 360 STK SEL EXECUTED.
BR IF YES.
-ROUTINE EXJTSEE IF ON LOADER.
BR IF NOT.
MOVE WORD READER TO MSG.
PRINT -CLEAR READER OF CDS-

DC
SVC
DC
DC
SVC
TID
SVC
DC
DC
SVC
BAL
BAL
01
MVC
LA
LA
LA
L
LA

SETUP STACKER SELECT CCW -HERE

•CNTCCW
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
TH
SSOP.X'03'
SEE IF STACKER 3 DESIRED.
SHOAT

BC
TH
BC
LA
MVC
HVC

ALL,FIX3
SSOP,X'02' •
ALL,fIX2
R2,8
SSOP+4111,SSOP
SSOP(4I,SSOP+l

BR IF YES.
SEE IF STKR 2 DESIRED.
8R IF YES.
PUT STKR 1 CCW POINTER INTO REG 2.
HOVE 1ST CHAR TO LAST.
SHIFT THE PATTERN OVER 1.
ID
FB19-0
PAGE
lA

---------------

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

'""

IBM MAINTENANCE DIAGNOSTIC PROGRAM
25~O,READER

PIN 840574
PAGE
8

RTLP
FIX3
FIX2
SEn
SET2
SEn

L

8CR
LA
8C
LA
BC
LA
BC
·LA
BC
LA
BC

R2,3
Rl.NCARO-lIR21
R2,3
R4,RETURN
UNC ,Rio
R2,21t '
UNC,SHDAT
R2,16
UNC,SHDAT
R2,S
UNC ,RTlP
R2,16
UNC,RTlP
R2,24
UNC IR TLP

,

DIVIDE REG 2 BY 8
INSERT NEW COUNT INTO REG
MULTIPLY REG 2 BY 8
PICK UP THE RETURN AODR.
BR TO ROUn NE.
PUT STKR 3 CCW POINTER INTO
BR TO SHIFT DATA.
PUT STKR 2 CCW POINTER INTO
BR TO SHIFT "DATA.
PUT STKR 1 CCW POINTER INTO
BR TO RETURN.
PUT STKR 2 CCW POINTER INTO
BR TO RETURN.
PUT STKR 3 CCWPOINTER INTO
8R TO RETURN.

CONC

LA
SR
L
CVD
UNPK
01
LA
LA
BCT
SVC
DC
DC
SVC
DC
DC
BCR

R3,3
R5,RIP
R6,R6
R7,CCSSIR61
R7,OBWO
014,R51,D8WD181
3IR51,X'FO'
R5,161R51
R6,41R6)
R3,CONC
X'OO'
X'2439'
AL2ISHOAVE-SECNQ+REGI
X'OO'
X'SOOl'
AL2ISHDAVE-SECNO+REG)
UNC,R4

REG 2.
REG 2.
REG 2.

PUT 3 INTO REG 3.
PUT ADDRESS OF MSG AREA INTO REG 8.
ZERO REG 6.
PUT COUNT INTO REG 7.
CONVERT COUNT TO DECIMAL.
UNPACK 4 8YTES INTO PRINT AREA.
OR AN F INTO THE SIGN POSITION.
ADD 16 TO REG 5.
ADD 4 TO COUNT POINTER.
BR TO CONVERT NXT COUNT.
PRINT NUMBER OF CARDS IN STKRS.
PRINT A BLANK.
RETURN TO MAIN ROUTINE.

••••••••••••••••••••••••••••••••••••••••••••••••••• **••••••••••••••••••
•
CCW AREA
••••••••••••••••
*••••••••••••••••••••••••••••••••••••••••••••••••••••••
ROFO

CCW
CCW
CCW
RD14
CCW
FD14
CCW
CCW
CCW
NOOP
CCW
OCll
DC
ISlAVE DC
ENDRT DC
CCSS
DC

X'02' ,BUFFER,X'20',l
X'42',6UFFER,X'20',l
X'S2',BUFFER,X'20',1
X'02',6UFFER,X'20',1
X'33',6UFFER,X'20',l
X'73','BUFFER,X'20',l
X'63',BUFFER,X'20',1
X'03',6UFFER,X'20',l
F'O'

OF
NCARO
ONES
REMOVE
ZERO
SS
PC
SSOP
NOSS

X'OOOOOOOF'
XL3'OO'
X'OlOlOl'
X'OFOFOF'
X'OOOOOO'
X'OO'
X'OO'
C'2l31'
C'2131'

OC
DC
DC
DC
DC
DC
DC
DC
DC

.

F' 0'
F' O'

XLl2'OO'

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

.*.•.••••••••••...••••.••••.•.•.•••••••••...••.•.•••••••••••••..••.••••
•

EXP C SW AREA

EXPI

DC
DC
DC
DC
DC

EXP2

0····.·

!.',

o o

o

OOlAEC
OOlAF3
OOlAFC
001803
00180C
001813
DOlBlC
001823
001B29
001632
001B39
001842
001849
001 B52
001B58
001 B62
001 B6B
001872
001B7B
001 B82
001B8B
OOlBSE
OOlB97 .
00169E
001SA7
OOlBAE
001 BB7
0016BE
0016C7
OOlBCE
001BD7
OOlBDE
001BE7
OOlBEE
0016F7
OOlBFE
001C07
OOlCOE
"OOlC13
OOlCIC
001C23
001C2C
OOlC33
001C3C
001Clt3
001C4C
001C51
001C5A
001C5E
001C67 "
001C6E
001C75
001C7E
001C60
001C86

40D7D3CIC3C540
CI07D7D906E740F1FO
F040E5CID3C9C4
40E2C3D9ClD740C3CIt
E240C9D540D9C4
D94840CSD7D968D4Cl
D2C540D9C4ES68
C506C640D6D5
4009C5D4D6E5C540C3
C4E240C6D906D4
40E2E3CIC302C5D940
D6C640D3D6CIC4
C50940C4C5E5C9C3C5
40D9C5D4D6E5C540E3
C8C540D9C5D4Cl
C9D5C9D5C740E3C5E2
E340C4C5C3D2E2
6BC9C640CID5E86B40
C6D9D6D440E3C8
C540D3D6CIC4C5D940
C8D7D9
40C4D640D5D6D709D6
40ClD5C440D703
CIC3C540C3C4E240D9
E40540D6E4E340
C90540C6D9D6D5E340
D6C640D9C5D4C1
C9D5C9D5C740E3C5E2
E340C4C5C3D2E2
40E2CIE5C540D9C5D4
CIC9D5C9D5C740
E3C5E2E340C4C5C3D2
E240E4D5E3C9D3
40C140D4E2C740D9C5
D8E4C5E2E3E240
E3CSC5D440E3D640C2
C540D7E4E340C9
D540C8D7D9
40D7E4E34009C5D4CI
C905C9D5C740E3
C5E2E340C4C5C3D2E2
40C9D5E3D64009
C40940C8D7D940C105
C440D4ClD2C540
09C4D940D9C4E86BC5
D6C640D6D5
40D9E3D540C2E8D7CI
E2E2C5C4
4009C5D4D6E5C540C1
D30340C3C4E240
C9C640CI05E86B
C6D9D6D440E2E3D2D9
E246
E2E3D2D9E246
D9C5CIC4C5D9

AIRD14+8)
X'OCOOOOOO'
XL4'OO'
X'08000000'
XL4'OO'

EXP5

DC
DC
DC
DC
DC

X'04000000'
AIRDFD+8)
X'08000000'
XL4' 00'
X'04000000'

•• ••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
MESSAGES
••••••••• *•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
DONPRO DC
DC

RTDI

RTD2

RTD3

RTD4

PlDB

DC

C'SCRAP CDS IN RD'

DC

C'R. HPR,MAKE ROY,'

DC
DC

C'EOF ON'
C' REMOVE COS FROM'

DC

C' STACKER OF LOAD' .

OC
DC

C'ER DEVICE'
C' REMOVE THE RE MA'

OC

C'INING TEST DECKS'

DC

C',IF ANY, FROM TH'

DC

C'E LOADER HPR'

DC

C' 00 NOPRO AND PL'

DC

C'ACE CDS RUN OUT'

DC

C'IN FRONT OF REMA'

DC

C'INING TEST DECKS'

DC

C' SAVE REMAINING'

DC

C' TEST DECKS UNTI L' .

DC

C' A MSG REQUESTS '.

DC

C'THEMTO BE PUT I'

DC
DC

C'N HPR'
C' PUT REMAINING T'

DC

C'EST DECKS INTO R'

DC

C'DR HPR AND MAKE •

DC

C'RDR ROY,EOF ON'

8YPASS DC
CLSTK

STK
REDR

C' PLACE '
"
C'APPROX 100 VALID'

"

.

C' RTN 8YPASSED'

DC

C' REMOVE ALL COS •

DC
DC

C'IF ANY,'
C'FROM STKRS.'

DC
DC

C'STKRS.'
C'READER'

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
EQUATES

•
000000·
000007
10
F819-0
PAGE
8

J
~''\.''

04000000
00001A58
08000000
00000000
04000000

REG 2.

•••••••••••••••• *••••••••••• *•••••• *.* ••••• *••••••••• *.** •••••••• *.*.*.
LA

001AD8
001ADC
OOlAED
00lAE4
00lAE8
REG 2.

•
THE CARD COUNT HERE.
••
*•••• *CONVERT
....._ .........................................................*
CDC

PIN 840571t
PAGE
8A

2540 REAOER STACKER SELECT TEST.,-SECTJON F819

STACKER SELECTITEST - SECTION F819

SRL
IC
SLL

IBM MAINTENANCE DIAGNOSTIC PROGRAM,

o o

DATE
EC

15JUN67
130498

••••••••• *•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
NEVER
NCCO

EQU
EQU

0
7
10
F819-0
PAGE
8A

0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ()

0 0 -------------------------00000000000,00 0000000000000000000
-

IBM MAINTENANce DIAGNOSTIC PROGRAM
25~0

PIN 840574
PAGE
9

READER STACKER SELECT ,TEST - SECTION F819

OOOOCF
000008
OOOOO~

000001
000005
000008
OOOOO~

000002
000001
OOOOOA
000006
000008
000004
000002
000006
OOOOOC
OOOOOA
000080
000181
00 FOOD
00005A
000000
000001
000002
000003
OOOOO~

-

000005
000006
000007
000008
000009
OOOOOA
000008
OOOOOC
000000
OOOOOE
OOOOOF
000198000040
000048 '
000 lAO ;
000189
00018C

UNC
NONE
SOME
ALL
ANY
CCO
CCl
CC2
CC3
CC02
CC12
EO
LO
HI
UNEQ
EOLO
EQHI
LOGOUT
SYSMOD
REG
WHAT
RO
R1
R2
R3
Rio
R5
R6
R7
R8
R9
RIO
R11
R12
R13

EOU
EOU
EOU
EOU
EOU
EOU
EOU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EOU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU'
EQU
EQU
EQU
EQU'
EQU
EQU
R1~
EQU
R15
EOU'
WT
EQU'
HCSW· EQU
HCAW
EQU
DMSSW· EQU
DMIOL EOU
DMPTR EQU
END

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PAGE

15

POST ASSEM8LY DATA.

8
4'

1
5
8
4
2
1

REFERENCES TO DEFINED SYM80LS.

10
6
8
4

2
6

12
10
X'80'
X'181'
X'FOOO' .
90

o
1
2
3
4
5
6
7
8

9

10
11
12
13
14
15
408 .
64
72
X'OlAO'
X'0189' .
X'018C'
ROUT01

EQ
EX
HI
LO
OF
PC
RO
Rl
R2

1
2
1
1
4
1
1
1
1

8
18EE
2
4
UA8
lA89
D
1
2
3

R3

1

4

R4

1.
1

5
6

R5
R6

1

1_

7
8'

R7
R8

1

9

R9·

1
1
1

U88
198
1

SS
WT
ALL

1

5
1048
8
4
2
1
!A16
1040
100A
116E
10E8

ANY
CAW
CCO
eCl
CC2
CC3
CDC
CSW
ICM
IHI
ISW·

~

1
1
1
1
4:
8·
2
4
2

152A
184C
168A
A

IUP
M1F,
MOR
RI0

,~

1

8

Rll

1

C

R12

1

o

R13

i'

15JUN67
130~98

9A

2540 READER STACKER SELECT ,TEST - SECTION F819

4'
2
16
1

DATE
EC

I'IN 840514

10
F819-0
PAGE
9

DATE
EC

1288,
18F4

1326,

1352

1114,
1896.
189A,
1996,
19FE,
18AE,
1A3A
177A,
18CE,
1982,
151C,
1748,
1758,
129E,
129A,
1316.
1114.
123C,
152E,
126A,
116E,
1132.
1204,
181A.
199E,
1514

152E.
192E,
lBAA,
19CC,
lA06,
1882,

1892.
19EO
1932,
19DC,
lAOE
198A,

1874,
1918.
1986,
118C,
1748,
lA1E,
156A,
12F6,
1428,
116E,
13CE,
154A,
1816,
1106,
11CE,
133A,
1854,
19A6,

1886,
191C,
198A,
lA1A,
114A,
lA1E,
1A20,
12FA,
142C,
1112,
13FC,
154E,
187C.
154A
1206,
135A,
18CA,
19AE,

117A.
1198,
119C

1194
1562

18CE.

1976

1152,
1182.
llEE.
1262,
12C4.
1472,
1788.
1522
181E,
1538.
111E.
1776.
110E.
12E6,
138A.
151E.
194E.
1146,
1556,
189E.
l11E.

1162
1182,
11FE,
127A,
1200,
1490,
1790

1188,
1202,
128A,
12EE,
14FO,

1846
1544
13AC,
18AA,
112E,
12F6,
138E,
1526,
195E
1156,
155E,
190C,
1122,

192A.

1982

195A,
19EO,

1986,
19£1t,

198A,
19EE,

1992
19F6

198E,

198E,

1992,

!A16

188A,
193A,
19E8,
lA28,
114E,
1A20,
1A24 '
1318,
1430,
111E,
143E,
1566
188E,

18A2,
193E,
19EC,
1A2E,
1152,
lA36,

18A6,
196A',
lA4A
1A32,
1154,
!A36

18C2
1976

1318,
1430.
1106,
1456,

131C,
1434,
110A.
146E,

1312
1552
11E6
1486

18E6,

1920

125E,
1392,
180C,
.19CO,

126E,
1488,
18EA,
19C8

1286,
151C,
194A,

12C8
1168
1972

U8A,

1210.
12A2,
1310,
14F8,

11C6,
1240,
12AA,
132A,
1518,

1102.
124E,
12AE,
1336.
1514,

11 DE
125A
128C
1442
1164

13C8,
18AE,
11CA,
1308,
13FE.
1526,

1302,
1942,
1252,
135E,
141A,
152A,

130A.
195A
1212,
1316,
1428.
152A.

130A,

150C

1282,
1378,
145A,
1532.

12 DC
138A
148A
1886

1166.
112A,
1936
1122,

1116,
112E,

1190,
1732,

llF6,
1758,

153C
186A

H81t,

150C,

1552,

156C

lA32
1156

"';'

15 JUN61
130498

10
F819-0
PAGE
9A
,,-.---..,..-,......,--~~.,

-

,

18MMAINHNANce IHlGNOSTIC I'IUlGUM:

PIN 840514
PAGE
10

2540 READER STACKER SELECT TEST -

2540 READER STACKER SELECT ;TEST - SECTION f819

1111:,
1

E

1t14

1

F
18 EO
1198
FOOO

IU5
R8Y
11.011.
REG

2
4
1

16
2
4'
6
2
1

1604
1534 '
18AA
lC80'
185E
F

4:
2
1
1
1
12
4'
4
8'
4
1
1
4
4
4
4'
8
4
4.

119C
184A
11FA
A
6
lA9t
lA20
UIE
15CO
lA90
A
I:
1918
lAt4 '
lAtC
lAOt
lAl0
18FO
19F6
19EE
1176
48
40
1868
11F8
1643
12Dt
1611
1626
13F9
1623·
1472
1646
111E,
11t6
1252
1180
148A
1264
10FE,
1248
1566
IDEA
11A8
1218
1182
11F9

4'

4.
1
1
2':
16
3
6
12
3

1
3
4
3'
2

4
4
4
6
4
4.
6
4
4
4
6'
6
1
DATE
EC

RIP
RRM
SIO
STK
TOP
UNt

1128,
1120,
120A,
194A
1132,
122A,
l40E,
1544,
1862,
1958,
lAlA
1352,
18142
1858
1822,
10FA,
1214,
13Ft,
1194,
lA02,

ATEl
8Il";
8YSW,
tC02
CC12
CtSS
tONt
I:ONP
OBWO
OtT!
EQHI
EQLO
EX14
EXPl,
EXP2
EXP5
FOlio
FIN" '
FIX2
FIn
GREG
HCAW
HCSW
HlTl '
HUNG
IAtT
18SN
ItAW
Il:tW'
ItNT
ItSW,
IDIO
IEXP
INIT
INOW
INB
lONE
IPAS
ISEN
IS 10
ISV2
IT It
IT 10
ITWO
lUlO
JOHN
LOSW,

U1E,
1128,
114A,
1218,

1128
U6E,
114E,
1248,

189E,
1310,
14A4,
1186,
1812,
1968,

1936
1388,
14B2,
1832,
18tO,
lA42,

135A,

1488

1864
114A,
1244,
14Ft,
1814,
lAOA.

116A,
1266,
1532,
191E.
lA12,

IBM MAINTENANCE DIAGNOSTIC PROGRAM

111)6,

HBC. ' lItC4,

1152
1728
13142.
14EE.
1838.
18E4,
!A48

11A4.
12tO,
1546,
19814,
1"4A

13BC.
1504.
183E.
1902,

llAC,
l2tt,
15614,
19EC,

BFA.
150A.
1844,
1908.

UBE,
1208,
1518,
19F2,

1801:
1958
1968
1882,
195A
18EA,
19C8
19CO
111E
111E,
1122,
1854
1786
1236,
126E,
13AC,
138E
1232,
122t,
145E
1422.
1886.
1132,
1214
1198
1416
11CE,
1886.
1206
1510
119C
11FA
113A,
1160.

1136,

198A,

1992,

1408
1538
184E
1914

llF2
130E
117"
19FA

lA20

191E

144A,
121E,
1384,

141A
128E,
1386,

131:4.
1410

1416

1462
191t
11A4.

llF2.
194E.

111A
1826,

11AC,

1256,
195E

1850,

120A,

1296.
138C

1218.

12A6,

1248,

1288,

NOOP
NOSS
ONES
PT08
ROllo
ROFO
REOR
RTOI
RT02
RT03
RTD4
RTlP
RTSV
SOMF
SEll
SET2
SEB
SNSW

1
3
5

4
1050
lABA

SOME'
SRET
SSOP

6
1
1
1
1
1

1858
IDEl
10E5
6
5A
151:8

TOPS
UI0P
U20P
UNEQ
WHAT
WORK

3
4
16
1
1
1
4
1
1
2.
16

lA85
1164
lC5E
1B9
IBC
lAO
lA98
100E
100F
156A
1629

ZERO
8l00P
tlSTK
OMIOL
OMPTR
OMSSW·
ENORT
FlAGl
FlAG2
IBAtK
18lAH

2
8
8 .
4
4
4'
16 ,
4
4
4'
5
3

13E2
1580
1588
14FO
1442
1156
1607
156t
1146
132A
1010
1703

ICOUT
ICSWI
ItSW2
ICUIO
10101
IHANG
IUNK
IlOKE
IlOOP
INOER
INPSW
IOADR

8
8
6
16
16
16
16
4
1
1

18CO

1552
1184,

'+
4
4
4

lAB8,
lA8F
lAAF
It 13'
lA68
lA50
1C86
1829
1852
188E
IBtE
19E8
1108
lOOt
19FE
lA06
lAOE
1004

8
'+
3
16

lA28

150C,
1122,

lPOl
lP14
MIF!
MltTN
MSKI
MSK2
MSSW
NCtO
NIOU
NONE

1
1
1
1
1
1

182A
191A
1136,
lA3A
1546
lA24,

1892
192A
181E
1982
1106
1101
11F8
1
1000
8

'+
'+
4
4

154A

156C

121:0

UBE

125E

l8FO

15JUN61
130498

F819-0
10
PAGE
10

DATE
Et

PIN 84051..
PAGE
lOA
SECTION Fill')

UCA
1912
18C2,
llE2
HEA
'1142,
U5A,

196A

113A,
128E,
13'42,
14F4,
1116
1880,
173t
1908,
1942,
18AA,
18F8
1832
1838
183E
1844
!A02,
1118,

1142,
1296,
1306,
1522,

1142
155A
1152,
12146,
141E,
1510,

1162,
12EA,
1446,
1124,

1256,
12F2,
145E,
182A,

1216.
130C.
1416,
18F4

121E
1314
1494

1924
1914
lAt3
lAOt

1AOA,
I11t

1A12

113E,
196E,

114E,
199A.

115E.
19A2.

133E.
19AA

1510.

18C6

1880,
1906
18lA

1924,'

19BC.

19&4 ..

1900,

1900.

19D6

11FA.

12E2,

1304,

13A8.

14CO,

U5C

1218,
1438,
1400,

13t8.
1450.
1402,

13E6,
1468.
1408,

13E8,
1468,
140E,

13EA,
1480,
14E4 '

UFO,
141:4,

1438
14CE

115t,
1858,
114A
114E

1194
1862,

18F8.

1902

1982,

19B6

155A.
122t,
1422,
123C,
1184.
1248,
14CO
141E
116A
1318,
1562
10EE,
12C8,

1518 .
1236,
144A.
13I:E.
120A,
1292.

138E.
1462.
143E.
1282,
1320.

13EA.
141A
1456.
12FE.
1320,

UFO.

13FA.

1410

146E.
12FE.
1480

1486
1356.

1450

1380.

1382,

1388,

150A

1102
1204,

12E2.

12F2,

1304,

199E
19A6
19AE
1136,
1946,

139A

15JUN61
130498

10
PAGE
_." _." ..

()

o

t)

o

o o

()

1314 '

~". ~,---,-

,·
:0 0 0 0 'O
.....

F819-0
lOA

.

()

amMO

tit

IBM MAINTENaNCE DIAGNOSTIC PROGRAM:

PIN 840574
PAGE
11

25ltO READER STACKER SELECT ,TEST ,- SECTION F819

6
16
16
4'
4
4
It:
4~

4
16
4
4:
4'
3
1
4:
4

6.
It,
1
1.
1 '
13
4'
7
5
8
6
11:
10
6.
6
6
6'
6
6
4
4'
10
11
6.
1.
1
4
6
It:
4:
4:
15
4:
8'
2
4
4'
8
4.
4
9,
1
8'
DATE
EC

1410,
165F
1684
lIt8C
1588
1190
154A
U3E
1l4E
1709
1106
11C2
l1A4 .
lAAC
0
1816
1000

10CSW
IOLOG
10PTI
IPASS
ISAVE
ISSUE
ISTRT
lTRYl
lTRY2
lUNEX
IWAIT
IZERO
M0050
NCARO
NEVER
OPMSG
SECNO

1900 SHOAT·
1942 SI014
10EO UNIT1
10E4 UNIT2
17 AS BuFFER
1C51
198C
lAEC
1058
1018
177C

1651t
15EE
13FE
12FE
1320
1438
1468
13C8
129A
132E
15E4

161t9
llOE
136E
1502
ISlE
14C4
145A
12CIt
1200
15F8
1078
1038
1500
134E
llF6
1580
lA91t
155E
1678
80
1070

8YPASS
CNTCCW
OONPRO
. EXNPSW
EXOPSW
HANGUP
IACSNS
IACTCe
ICCOUT
ICCSWI '
leCSW2
ICHNG1
IeHNG2
ICWOUT·
100SNS
10UNCK
IEXPCC
IEXSNS
IEYEOH
IFLAG1
IFlAG2
lLEAVE
IlOGED '
IMORST,
INOEXl
INOEX2
10ADDR
'IONPSW
100PSW 10POUT
lOUT IT
IRETRN
ISENSE
ISLAVE
IT 10lP
ITSTNO,
LOGOUT·
MCNPSW.

1392
1402,
10F2,
1494 '
1114,
10EA,
129E
114A,
1142
1224,
1266,
1194
172E
173C,

14DE,
1504

14E4,

l52E
10FE,

13A4,

1703

USA,

15 lit

1030 MCOPSW
8
112A NlTWlT
4
1068 PGNPSW
8
1028 PGOPSW
8
15EO RANDOM
4
lA82 REMOVE
3
l1AO RETURN
4
1878 'ROUTOI
1
1804 ROUT02
1
16CA SHOAVE
10
1060 SVNPSW
8
1020 SVOPSW
8
1.
181 SYSMOO
2 ' 10E2 UlAOOR
10E6 U2AOOR
2
1000 XF8190
1

14eE

122A
lItFC
19EO

188A.
1118.
1380,
1386.
149C.
1400.
1786,
1872.
1958,
19F2,
193A
172A,

1918
1222 •.
1382,
138C,
l1t9E.
lltEE,
1832.
1879,
1968,
19FA

176C.
lA70,
18E4
1982
184E.

1770,
lA78.

1768
1282,
118C,
l3A8,
12FA
131C
11t2C

2540 READER STACKER SELECT TEST -

11t08,
1106,

1221t.
1388,
13E6,
1itA It,
1504,
1838,
18CO,
lAlt2,

122A.
l39A.
13E8,
14AA.
150A,
183E,
18EIt.
1A48

1368.
139C,
13FA,
14AC,
1538,
1844.
1902.

136A,
13A2,
1408,
llt82 ,

1770,
lA80,

lA50,
1A88

lA58,

1A60,

lA68

134E,
1lAO,
1306

1 ItA A ,
llA8,

lltAC,
1180,

llt82 ,
UC2,

1484,
12 DC ,

1580
140E

1286,
1208,
1408
149C,

178C
1326

151t4.
18ltE,
1908.

PIN 840574
PAGE
llA

IBM MAINTENANCE DIAGNOSTIC PROGRAM'

1370
13B4
lItOE
lItCE
177C
1862

SECTION.F819

1724

18A6,
1015,
1879
1A42,

193E,
lC8C

19E8

lA48

148C

NO ERROR OETECTEO, IN ABOVE ASSEMBLY

1911t

1808

1872

11t31t :
130E
1276,
12ce,
13FE,
11t8A,
10FA
132E,
1332,
1342

149E,

14At

13ge,

13A2

1368,
1 Itt It

136A,

1346
134A

121t4
1446
12EA
130C
10F6"
llF6,'
IItFIt '
133A
107C
129A
1566
110E,
1128,

UOA,
1222

USE,
1128,

1370

15 JUN67
1304i8

F819-0
10
PAGE
11
~.-"

.. "" .<."',,' .. ,.-....

-~.--.

_ .. _-- ..•• "'".' " _.. _ ..
~

. ... ,.

'.'ov.""..,_._~

__ ,_

~,,".

DATE
Ee

F819-0
10
llA
PAGE

15JUN67
1301t98
' ..............

~~."~=

...-...,,

..

-~,-

... ..•"...,-.-"
~

•

, .....

··v,~,<

<"~"',

.

""1'"

--~.-.

. PIN 840574
PAGE
l2

IBM MAINTENANCE DIAGNOSTIC PROGRAM
F8t9

25~0'REAOER

STACKER SELECT TEST

F819

PERIODS CORRESPOND TO 8lANKCOlUMNS.
1 THROUGH 20'

COLS.

COlS.

IBM MAINTENANCE DIAGNOSTiC PROGRAM

21 THROUGH 40

COlS.

41 THROUGH 60

COlS.

61 THROUGH 80

575.130498 •• 81900001

2540 READER STACKER SELECT TEST

80JA6GACADAAAAGA4A8E
8-VQ9ZQY9-YQYZQ Q8Q
9 9
09
09 9 999

ACGCEE80JGS8EDIAG-3F·
Y9999Q8-Y8 -Q pz Q
9
Z9 9
Z

+J6M8EACFNFM81900011
Y .88QY99898
9999 9 9

8TXT.AlH •• A8 •• AA80JC
9
V9P V9 V98-Y8
9 - 9
999

6PK86S6WBD39KG5HJAEA
9 9 B 9-9
9 YYZQ

3SAOJDGA3FAKAHG03H8E
-+Y9ZY QZVV9Z
8Q
Z 9
99

AHEHEHKG6W5H81900018
V99 9 9 8

50BOJK6/G9KA5ZAD80J8
-8-V8 89 Y Q98-V8
999
909 9

5U80.J850K86S6T8K39AH
8-Y8 Y 9 8 9-8 -9

AAGA48K86.6F81900019
QVZY Z 9
Z
09

.A44AHAH.A4UKG5H5HEA
V 8Z0V9 V 8 9
ZQ

3SA.DVGA4KK86.6CKG5H
ZY 8 9
Z 9

5AEA3SADAAGA81900020
QZQ -gQYZY
o
09

48K86.6CKG5H5HEA3SKA
V9
Z 9
OZQ
Y

6FAEADOVGA4D81900021
809-9 ZV Q

90 •• AAAA.ADD ••••••••
VYOV YBY
9999 99

••••••••••••••••• 8~O

8TXT.AAA •• A8 •• AA8JAA
9
VOV V9 V9 8YV
999 9
9 999

AAAAAAAAA80AADAAAAOH
VYVVYYVYV9+V99YYVV9R
999999999 9 9999 0

AAAAAAAAAAAAAAAAAAAA
YVYVVVYVVVVYYVVYVVVV .
99999999999999999999

AAAAAAAAAAAA81900002
VYVYVYYVVVVV
999999999999

8TXT.AlO •• A8 •• AAKG61
9
V9
V9 Y9 9 9

8TXT.AA8 •• A8 •• AAAAAA
9
VQ9 V9 V9VVVV
99
9
9 9999

AAAAAAAAAAAAAAAAAAAA
VYVYVVVVVVVVVYYVVVVV
99999999999999999999

AAAAAAAAADAAAAAAAAAA
YVVVVVVVV9VVVVVYVVYV
999999999 9999999999

AAAAAAAAAAAA81900003
YY.VVVVVVVVVV
999999999999

8TXT.AMY •• A8 •• AAHCAF
9
Y99 V9 Y9ZYY9

•...................

•••••••••••• 8190000~

8TXT.AM- •• A8 •• AA48K8
9
Y9
V9 V9 R 9

9

9

9

9

9

9

AAAAAOAAAAJ6 ••••••••
VVVV99VVVV9
9999 9999

BTXT.AAS •• AB •• AAAAAA
9
VQ8 V9 V90VYV·
99
9
999

BAAAAABEIABEIFBT6E8T
OVVVVV-O 0-0 Z- 099999

60G01F8D1A801F8S6E8S
9Z 8-Q,0-0.Z- 0-

BTXT.AJO •• A8 •• AAKA7H
9
V99 V9 V9 V 9

OC+NAHPGO.O.PCSASAAA
9 YYl 9- - 88Y8Y-Y

AAGAIFAOOOGA18AAOOGA
QVZQ .-+ 9ZY O-V 9lV
09 9

IFDAOAG016A.81900006
80V+VZ 8-

OAG01FHFAHHAACEAOAGA
+VZ RRQ9-0QY9QV+VZY

18FA1FPAOVOY81900001
OZQ R 9

BTXT.ANH •• A8 •• AAJA6G
9
V99 V9 V9Y9 9

KG5AO.F.OVGD81900008

8TXT.AN ••• AB •• AA80AA
9
V9
Y9 V98-V9

9

9

9

9

9

BTXT.AJ+ •• A8 •• AAODGA
9
V9
V9 V9 9ZV
9

9

9

9

9 9

9

BTXT.AJ8 •• A8 •• AA02G9
Y9
V9· Y98Z
9

9

9

9

9

9

9

8TXT.AKJ •• A8 •• AA58AA
9
Y9Y V9 Y9 8-Y .
9

9

9

9

9

BTXT.AlA •• A8 •• AAAJOV
9
Y90 Y9 V9-V
9 9

9

9

DATE
EC

15JUN67
130~9B

o

6M5HKE6PS8KE6W5KKE6E
Z
9ZV98
9R

5880JM6PA80YGA5ADEOY .
Q8-Y8 8-9 ZY V-Q
99 9
9 Z

G0108006608081900023
8-+9 08Z

AAGA5SACA8ACAFHA5HGC
QYZV 8IQY9ZQY9-8 09Q
09
9 09 09 9
Z

BOUA6888EAOA81900024
8-9Q Q8QQV+V
9 9 099 9 9
ADOOGA50FAOZ81900025
-9-ZIY Z-V

9

OAG05+EAOAG.5UFA50G7
+VZ+ ·-QY+YZ 8ZQ 89
9 9 9

AAAADADJAAAAAAAAAAAA
YVVY9V98VVV9VVVVVYVV
9999 9 999 99999999

AAAAAAAAAAAAAAAAAAAA
VVVVVVYVVVVVVVVVVVVV
99999999999999999999

AAAAAAAAAAAA81900026
VYYVYVVVYYVV
999999999999

9

9

9

9

9

+NAHAOODG+16AAOYGNAH
VYZ-+ 9Z 8-V 99-9
9

9

9 9

0

9

68G010HFAHHAA8+EAHDA
QZ 8RQ9-0QV9 VVZOV

o

9

9

9

8TXT.ANA •• AQ•• AAAAAA
9
Y9Q V9 Y9VYVV
9 0 9
9 9999

AAAAAAAAAAAAAAAAAAAA
VYYVVVVVYYYVYVVVVVYY
99999999999999999999

KG·SHO. FJOYAAAAGA2+ AH
9 0 -v -QQYZY --9
9
909

OYGA2+FHOVG081900011
ZQ --9 I

8TXT.ANS •• AY •• AAAAAA
9
V98 V9 Y9YVVY
9
9
9 9999

.CC •• X.EXP.CC •• X.ACT

8HGA20A8AAGA28A.OYGA
00ZOO-90YZV QZV
Z- 9 9 09

2DA85DGA28AJOVGA2DA8
Q-90IQ.Q-Y ZY Q-9
9
9
9
- 9

5 OGA2 0 AA5 AEO 8'1 900012
QIV QZV YZ+

8TXT.AOG •• AJ •• AA.AOR
9
V99 V9 Y9

.XXXXXX.lINKA •••••••

OZGA2DFOOV070ZNA6JAE
ZY Q-9 -8
Y 8Q9

GA2DFAOVG02DA.OVGA3S
ZY Q-9 Z QZQ 8

G03WAJOVGA3S81900013
Z 8-V. ZQ B
9 9
9 9

8TXT.AOP •• A8 •• AA.CAW
9
V99 V9 V9

0

39K86.6CEA3SF80YGO~D

9

llO ,. -9

Z

9

8TXT.ANH •• A8 •• AAG05+
9
Y9R V9 V9Z -

999

9

0

9

9 9

9 0

9

o

9

9

9

9

9

9

9

G-3SAOAAGA2081900014
Z 8-9QVZV9 09

8TXT.AOG •• AB •• AAX.EX
.9
V98 V9 V9

GA3SAHAH.A3UNG5H5HGA
ZV 810V9 V 9 9 0 OIY

3WFAOV8H3W8058AAOVGA
8-9 -Z 8-+ 9-9 10

3FAAODGA508U81900015
8-9 9ZV 8-9

8TXT.AOG •• A8 •• AAT.SS
9
V90 V9 V9

9

9

58E.6JGA5~AA5DGA54KA

9-

8ZV 9-9 OZO 9 9
-

9

9

6AA88EA8FAFA80HA63AA
VQ98QY99V9V8-Z8 8ZY
o 999
9 9

9

9

AOlH+A608EAC81900016
Y980 Q 88QV9
9 9- 0 9999

10
F819-0.
PAGE
12

9

9

DATE
EC

9

Z

9

9

•••••••••••• 81900027

.ADR.XXXXXX.XIOA ••••

•••••••••••• 81900028

•••••••••••• 81900029

V
9

.XXXXXX.CSWCCW.CSW.X

XXXXXXX.XXXXXXXX.EXP

ACTEX P.SNS .X81900030

P.SNS.XX.ACT.lOG.XX.

XXXXXX.XXXXXX.XXXXXX

.TST.XXXX.SE81900031

.0.ON.FOR.lOOP.ON.XI

OT.SS.1.0N.FOR.TIO.S

IO.lOOP.MAKE81900032

9
8

9

BTXT.AOG •• AB •• AA.DEV
9
Y9Q Y9 V9
9 0

9

9

OVGA3SHCAF.A38NG5A5A
ZV 8lYV9 V 9 9 Q Q
9 9
0 o·

9

9

KC5HSA8EADEH81900022
8 8Y8QY89
9
9999

Y
9

9

NA53ADG-3SAHAAGA2DA.
Y 09Z 8-9QVZY 9 0
9 09

9

0

8TXT.AMO •• A8 •• AAEHKA
9
V9- V9 Y99 9

9

7GD10VG02+A081900009
9-8 Z -8+

o

JC60E46JGA54EAJAG-40
V8 R- 8ZQ 9-QZOZ

9

Z

9

FFFF80JC6A8EAAFJFJ80
98988-Y8 88QV9989889
"9 9 999

9

9 Q- -

9

9

GK80MN1AK86S81900010
988-Z9 11 9 8
99
9
9

9

8TXT .AlH.,. A8 •• AA3WBA
9
V9Z V9 V9 8-V
9
9
9

Z

I

9

9

F.OVG028KG5HO.8EA8A2
Z R 9
8QY9Y8
999 99

9

9

83S3G01F8253G01F8153

9 9

9

8TXT.AMH •• A8 •• AA8EAA
9
V9- V9 V98QY9
9
9
9 999

9

o

9 9

6.6FKG5H5HEA3SAJOYGA
I 9
ZQ -v ZV

0

20D70YA.OYGA2HKG5AO.
9-8 ZO Z 9 0

9

8TXT.AKO •• A8 •• AAG03W
9
Y9
V9 V9Z 8

9

9

9

9

9

AHHAACFAOVAA7FFA1WAA
9-0QY9-V YY 9Z0 VV

9

9

9

9 9

0 9

9

8TXT.AKO •• A8 •• AAIOAA
9
Y9Z V9 Y9 -Y

o

9

9

9

53070VA.AAGA2+FAOVHF
-8 - OYZO ~-O RO
09 9
9

9

8TXT.AKA •• A8 •• AA6TBK
9
Y90 Y9 V9 9-8
9 Z

9

8X53DAOAGA18G.IAGJ10
OV+VZY . Z OZY 0

9

8TXT.AJO •• A8 •• AA1FBO
9
Y9+ Y9 V9
9

lWEAOAG016A.ODGAlWDA
80V+VZ+ 8-. 9lY 80V
9 9 - 9

9

BTXT.AJH •• A8 •• AAFAOY
9
Y90. Y9 Y9-Y
9

9

9

9

9

BTXT.AAO •• AA •• AAAAAA
9
VQ+ VO V9VVVV
99- 99 9 9999

9

I

BTU .ALA •• A8 •• AAFEFD
9
V9V V9 V99898
9
9
9 9 9

8ESO •••••• AA•• AAXF81
9
VO V9
99 9

60KA6AA8AA5H81900005
9 9 VQ9QB O.

PIN 84057~
PAGE
12A

ICE.RDY.SHD.HAVE ••••

..CDS.IN.R1T•••••• CD.
8

S.IN.R2T •••• 81900033
8

9

15JUN61
130498
.

_.._..

_----_

- --

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

__ __
.

,10
FBlto
PAGE
2A

.- .........

_---

0000000000000000000000000000000000

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
IBM ,MAINTENANCE DIAGNOSTIC PROGRAM
F819

PIN 840574
PAGE
13

IBM MAINTENANCE DIAGNOSTIC PROGRAM

2540 READER STACKER SELECT TEST

8TXT.AD1 •• A8 •• AA •• CD
9
Y9
Y9 Y9
9

9

9

8TXT.APX •• A8 •• AA07M+
9
Y9B' Y9 Y9+ 0
9 9

9

9

8TXT.APP •• A8 •• AAYGA7
9
Y9Z Y9 Y9 ZO
9

9

9

2540 READER STACKER SELECT TEST

S.IN.RP3AJAFAA.UIO.F
Y90Q9Y
9 Z 9

ROM.DEYICE.XXXXLEA.J
80- Z
99

FGA7SQGHOOSD81900034
-ZY B90R+ BR
9 9

8TXT.AKO •• A8 •• AAHAAA
9
Y8- Y9 Y99YYY
99
9
9 999

AAAAOAAAAAKHHAAAAAAA
YYYY9YYYYY8R9YYYYYYY
9999 999999 9999999

DAAA.PLACE.APPROX.I0
9YYY
999

O.VALIO.SCRA81900051

07HPCBDBOKBBMBPPA7B7
+ - 8QOQQ 9QYQY 9
Z Z
9Z I

8LOCWAIBWAOKWF-F-AFA'
8lZ890889QB89 9 8 Y
9
09
9

AG-7MFA79AA081900035
YZ Z-Y -Y

BTXT.ALH •• AB •• AAP.CD
9
Y89 Y9 Y9
99
9
9

S.IN.RORC.HPRTMAKE.R

OYTEOF.ON.REMOVE.COS

.FROM.STACKE81900052

9

48.70KF7R70AJBHG4KAO
B- 0 8 0 0lYQ09 Y

C7HBOMK7CFAOYE+2BBAO
9 98-Z8 0-9 I O-Y
9 9 I
9

YG01MAAAAAAA81900036
Z ZYYYYYYY
9999999

8TXT.AL ••• AB •• AAR.DF
9
Y8
Y9 Y9
99
9
9

.LOADER.OEYICE.REMOV

•••••••••••• 81900031

BTXT.ALH •• A8 •• AAYT.F
9
Y8R Y9 Y9 8
990 9
9

ROM.THE.LOADER.HPR.D

O.NOPRO.AND.PLACE.CO

S.RUN.OUT.IN81900054

ECTEOAA.BHGA8HB080BJ
Y- OOZO R-9 8-Y
9 ZL 9

8-AA7'9GA8 B808190003B
-Y ZY B8-

BTXT.ALA •• A8 •• AA.FRO
9
Y8Q Y9 Y9
990 9
9

NT.OF.REMAINING.TEST

.OECKS.SAVE.REMAININ

G.TEST.OECKS81900055

BTXT.ALY •• AB •• AA.UNT
9
Y8
Y9 Y9
99
9
9

IL.A.MSG.REOUESTS.TH

EM.TO.BE.PUT.IN.HPR.

PUT.REMAININ81900056

R.ANO.MAKE.ROR.RDYTE

OF.ON.RTN.BY81900057

I

9

8TXT.APG •• AA •• AAAAAA
9
Y90 Y8 Y9RYYY.
9999999

F819

PIN 840574
PAGE
13A

9

AAA1G •••••••••••••••
YYY8Q
9999Z

8

8,

PREYIOUS.HANG.UP.OET

8TXT.AOA •• AB •• AAU/CI
9
Y90 Y9 Y99B08
9 9Z9
9 Z 9

BOJ4CB80J.CFBOJECFBA
B-Y8QRB-Y QY8-YZQY-Y
9 91 9
Z 9
19

8DB005BMAA79GA80KE02
88-98QY-Y ZO Z 908
9 9Z9
9
Z

DABOJSOOBU8-81900039
QY8-Y9Q8-9

8TXT.AOO •• AB •• AA8BEA
9
Y9Z Y9 Y9BQOY
9
9
9 99 9

OABOAABMG4GAAAHM8ABH
+Y8-Y9QY9 9Y9Y9 7YQO
99
19
9 9
91-

KCBB8GE.70E.BOF.BHAA
90000Z BZ 9- OOZY
ZOZO
9
Z- 9

AYAAAAAJAHH081900040
Y9ZQY9IYY9R+
9 99 99

BTXT.AMJ •• AB~.AAG.TE
9
Y8Y Y9 Y9
999 9
9

ST.DECKS.INTO.RDR.HP

8TXT.AQJ •• A8 •• AA7HA.
9
Y9Y Y9 Y9-Z

8K+.7JAKBHA2AH.ABFEA
Y
YZOQZZBY9 QOOZO
Z 99 Zl9 0

OF6AAAOABDE.9BAHOOGA
OBYYO YOQZ 0-9 9Z0
Z9999 9Z9
9

8BE.BOBOBAGG81900041
-I Q9B 9YOO
Z 9 9Z1

BTKT. AMH •• A4 •• AAPASS
9
Y8R Y9 Y9
99
9
9

ED.REMOVE.ALL.CDS.IF

GA9QBOOEOAA.BHGABOBO
10 9B-98QR- OOZO B
9 9 9Z
Z- 9 9

AA79GA80KE020FBOUSOO
-Y ZY Y 90800B-990B
9 Z Z 9
I

BOJ60L8BEAOAB1900042
B-YB098QQY+Y
9 9Z 99 9 9

8RLD •••••• A8 •••• AAAA
9

8TXT.AJA •• AB •• AA80AA
9
Y80 Y9 Y98-Y9,
999 9
9 9

OLBOE.80E.70FABHKCBB'
Q9B Z 9Z 8-YQO 9QQ
Z 9
9 1- 10

8GAAAY.AAAAAJAHH07HA.
QQZYY9Z0Y9ZYY9R+ -Z
ZO 99 99 99

9B+.7JAJ8QAA81900043
Z
YZYOZ-9

BRLD •••••• AH •••• AAAA
9
Y9
Y9Y9

8TXT.AJH •• A8 •• AAODGA
9
Y8Z Y9 Y9 9Z0
99
9
9
9

8SEAOFSAAJOABDAKBQEA
8lQ Q8YYY YQ ZOOIIQ
o 19999 91 Z 0

OFWAAA1ABOE.9BAHOOGA
08YYO YOYI 0-9 9Z0
Z9991 9Z9
9

9SE.BOBA7BG081900044
BI 09-Y OZ

8TXT.AJA •• A8 •• AA80+.
Y8Y Y9 Y9
9
99
9
9

BHHJAAH2BHA3AA+2BHIJ
0-OYY9R9Q-Z9Y9 9Q-OY
Z
9
Z 9
Z 99

AAAAOEGA9FAHOEGABFAO
Y9-Q 9Z0 Q-9 91009-9
9 9
9 I
9Z

OEGA8FFA90H.81900045
9ZQQ8ZY QR
919 9 0

BTXT.AJH •• A8 •• AABHG4,
9
Y80 Y9 Y9Q-9
99- 9
9 Z

ACB8GA90ABB8GA96AJAH
-9QQIO,Y-900ZQ ZYY9
10 9 9 ZO 9
99

KA8F8BKC8BBCHJACCKBL
YOOOQ 9QOOQOYY919QY
910Z0 ZOIO 99
Z

IJACH.7JG4AJ81900046
OYY9R Y9 ZY
99
9

BTXT.AJO •• A8 •• AAAQGO
9
Y8
Y9 Y9Y9Z
99
9
9 9

90AJAAG090AJAHG09YAJ
-ZYYQZ -ZYY9Z
ZY
999
99
9

AAG09YAJAQG09YAAACA+
YOI
ZYY91
ZOY9Z
99
99
19

6MLOHFBOF05081900047
8ZRRQQ8+ +
9
OZ -

BTXT.AKY •• A8 •• AA37+A
9
YB9 Y9 Y9 9 Y
99
9
9
9

50FO+CAEAAAOAOFABJBO
+- 9ZRYQZZY9ZQOYB99 9 ZZ99

U16BBOAA6BG4AAAA8APO
. 98 YB-Y9 Y9 YYYY9Y90"
9 99
9 9999 9

JAAABAPOJAAAB1900048
YYY9lY90YYY9
'
999 9 999

BTXT.AK-•• AB •• AABAPQ,
9
YB
Y9 Y90Y90
99
9
9 9

JAAAKAPQJAAA3APQJAAA
YYY9 Y90YYY99Y90YYY9
999 9 999 9 999

CAPOJAAACAPQJAAACAPO.
RY90YYY90Y90YYY99Y90
,'09 999 -9 999 9

JAAAAAAAAAAA81900049
YYY9YYYYYYYY
999 99999999

BTXT.AKH •• AB •• AAAAAA
9
YB- Y9 Y9YYYY
99
9
9 9999

AAAAAAAAAAAAAAAGAAAA
YYYYYYYYYYYYYYYBYYY9
9999999999999999999

AAGGGAAAAA2131.2131A '
998BBYYYYY
Y
99999999
9

AAKOOAAAAAAA81900050
YY8+BYYYYYYY
999-99999999

9

9

9

8TXT.AOQ•• A8 •• AAAHOJ
9
Y9
Y9 Y9-9 Z
9

9

9

I

I 9

I

I

9

Z

Y9

Y9Y9

9

9 9

9

9 Z

9 9

BEND.AQH •••••• AA ••••
9

Y9R

Y9

9 0

9

BLOT ••••••••••••••••
9

.

E.THE.REMAINING.TEST

.OECKSTIF.AN81900053
8

8TXT.APB •• A8 •• AAAAA.
9,
Y9
Y9, Y9YYY,
9
9
9 999

9

8

8

.ANYTFROM.STKRSCSTKR
8
8

SCREAOER •••• 81900058

AAANEAA4AANAAAPCAAKA
8YQ98YQ88Y908Y998Y8R
999 999 99 99 999

AAKJAAK/AAK/AAKAAAKI
8Y888Y8 8Y888Y8RBYB8
999 999 999 9990999

AAKAAAKIOAKD81900059
8Y80BY808Y8
999 999 999

DAKD ••••••••••••••••

.•.•.••...•.•.......

•••••••••••• 81900060

....

. .•....••....•...•..

•••••••••••• 8190006i

........•....•••..•.

...................•

• ••••••••••• 81900062

8Y8Q
9999

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

~

8

-----------------------~~~--------~~---------- LAST ,PAGE ~_------- ______ ------_--~-~_--_---_------ ___ _

DATE
EC

15JUN67 :
130498

10
F819-0
PAGE
13

DATE
EC

15JUN67
130498

, 10
F819-0
PAGE
13A

..

..
,

0000000000000000000000000000000000

0000000000000000 00000000000000000_
PIN
PAGE

IBNNAINTENANCE DIAGNOSTIC PROGRAN
F820'

25~0

2.
3'.
4.
5.
6.

1.

1
F820

PUNCH FUNCTION TEST

1.

TABLE OF 'CONTENTS

. . · . . . · • · ...• •• ·
· · • · · · ·•
·· .. . . . . ·· . . . ··· ··· ·· ··•• ··· ··•• ···• '··. ·•
· · · ··
·

...

PURPOSE
PREREQUISITES
USE PROCEDURE
;;
PRINTOUTS
'COMMENTS.
APPENDIX.

2.
1
lA
2.
3
SA
SA

1

6.

1·

;.

\

---I
I

I
I

I
I

:

I
I

\

'

~-~~------------------------------------------~-------~~~~---~-~--

!

i

THIS PROGRAM ALLOWS READING
AND REQUIRES A 2540 READER
ENTRY TO PROVIDE THE READER
WILL NDT BE EXECUTED .lBYTHE

NOU.

WHEN MORE THAN ONE . READERIPUNCH .ISPRESENT f OM 'UD1,lNTRIES FDR
THE ,COMBiNATlONSI4UST 'NOT.'II MillED. FOR ,IXAMPU.,INtIRREADER I 'PUNCH .1, THEN :R!ADER2 'PUNCH '2.

I

PROPERLY RESPOND TO ALL INVALID COMMANDS ISSUED
TO THE PUNCH~
SET AND SUPPRESS INCORRECT LENGTH RECORD .INOICATOR. '
BREAK COMMAND CHAINING'WITH INCORRECT LENGTH·RECORO
OR COMMAND REJECT.
RESET SENSE BITS WITH WRITE COMMANOS.
DISTINGUISH BETWEEN COMMANO AND DATA CHAINING AND.,EXECurl
BOTH PROPERLY.
PROPERLY STACKER SELECT ANY OF 3 STACKER POCKETS
IN 360 'OR 1400 PUNCH COMPATIBILITy MODE.

I

2.2

.

CARDS PUNCHED ,IY THIS, PROGRAM,
UNIT tYPE 81 4 BYTE UDT
ADDRESS. OTHERlIlSE THE PROGlAM
DIAGNOSTIC MONITOR. '
.

NOTE.

EQUIPMENT 'REQUIREM~TS
PROGAAM ILOAD1NG'DEVltE •
HARDiCOPY .00T.R01l tDIVICi .
CPU'
....
0\ ~KSTORAGE
:.tMATIIIteQUfiliD :IY ,MOIUl'OR
CHANNEL
.. ','
2540 , ...PU..C.... ;U... t;I'rtsTID ,

·,,,us

1.' PUNCH All;VAlID EBDIC CHARACTERSANO,INOICATI
, THE COLUMN LOCATION OF:ANY .ERRORS• .
ALSO ALLOWS .•••
READING iTHE DATA 'CARDS PUNCHED IN THE PUNCHROUTiNl. '
THIS'IS UNDER CONTROL'OF SECTION SiNSE SMITCH 9.

Z.

,

.

DATE
EC

05MAY65
124252

10AUG65, , lSHOV65
125580 .
125624 '

22FEB66
125621

15JUN61 ;
13Oft98

10
PAGE

F8Zo-*
1

r
I

I.
iI

I
...

1

DATI
EC'

O'MAY6$
124252

10AUG65
1255BO ,

.lSHOV65·. 22F1866 -,
,125624 ~
125621 '

15.1UN61·1
l30ft91 '

..

",'

I
ONIT·
I ZZ IBIT 0 IBIT 1 IBIT 2 IBIT 3 IBIT4 IBIT 5 IBIT 6 IBIT'1'1
I
I
I HEX 8 'IHEX 4 'IHEX 2 IHEX 1 IHEX 8 I HEX 4 IHEX 2 IHEX1,I
1-----------1---1---1----,-1--:-----1-----1..;---1----1-----1..--1..
12540 PUNCH
I 82 I
I CARD I PUNCH 151 COL 11400 I
I
12 CHNll
I
I
I
IIMAGE IFEED IFEAT. IFEAT. 1
1
ISIION
I
1
I
I
I READ I
1
I
I
12821 I

F822'- PUNCH FUNCTION 3 TESTS THE .ABILITY TO •••

I
II

,.

---.
-~--------------------~--------------------...;;-...;.--------.............;...""
I' UNIT TYPE
I OPTIONAL FEATURE DIGIT 1 I OPTIONAL FEATURE DIGIT 2 1

I

F821,;- PUNCH FUNCTION 2 TESTS ABILITY TO •••

4.
5.

·s,

_~ __________
, -.I-----I--..... -I------I-----'-I-~-....- 1 - - - - - 1 - - - 1 - - 1

ADDRESS THE OEVICE UNDER TEST ..
ISSUE SENSE START 1-0.
PROPERLY SET ALL CONOITION CODES.
CLEAR INTERRUPTS WITH TEST· 1-0.
PROPERLY STORE CSW.
RESPOND TO DIAGNOSTIC COMMANDS.
RESPOND TO ALL VALID COMMANDS TO THE PUNCH.

i

'~

OM MUST .HAVEA FOUR BYTE UDT ENTRY, ONLY THE FIRST TWO BYTES ARE SHOWN
BELOW. THE NEXT TWO BYTES MUST CONTAIN THE CHANNEL;ANO UNIT ADDRESS.

F820.- PUNCH FUNCTION 1 TESTS ABILITY TO •••

2.
3.

!;.:n.

PROGRAM REQUIREMENTS
THIS PROGRAM REQUIRES A' DIAGNOSTIC MONITOR.

I

1.1: INTENT

1.

PREREQUISITES
."

\

1.

2540 PUNCH FUNCTION TEST'

2.1

I

PURPOSE

2.
3.
4.
5.
6.
1.

PIN 840190
: PAGE
' U

IBM 'MAINTENANCE DIAGNOSTIC PROGRAM,

8~0190

10.1...' '.
'AGI
1A

'"

IBM MAINTENANCE DIAGNOSTIC PROGRAM,

j

PIN 640190
PAGE
2

I

I
1

,

1

, <

\

:

,

'j

F820

3.

2540 PUNCH FUNCTION TEST

F820' 2540 PUNCH FUNCTION TEST:

USE PROCEDURE
3.1

"

3.2.2

'PROGRAM LOADING

3.2

PROGRAM OPERATE

•••••••••••••••••••••••• **.*
.,
•
.,

I

NOTE •••••••••••••••••••••••••••••
•
UNUSED INTERFACE TO PREV!NT"NOT RE'ADY- TO READY ,STATUS
• '
FROM BEING PRESENTED TO THE OTHER CHANNEL.
•

IF 2 CHANNEL SWITCH FEATURE IS INSTALLED. DISA8LE THE

---.--------~-------------------~---------~--~----~.-~--~-----------I
I BVTE

I SENSE I
'I" SW .. - '1
I'NO'; I

li

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

'I

F822 RTN 01

1-------1--1
I

F820

X004'

9

" . '1-----"""-1"";"';";"

I·

I' F822 ,1' Xoo5
J -RTN 02" I 1,

I

I OFF-PROCEEDS NORMALLY

I

I ON--LOOP STACKER SELECT POCKET 1
I OFF-DO NOT LOOP STACKER SELECT POCKET I.
I .IFSSl + ,SSl1 DN-TIGHT SIO TlO lOOP STU 1

I . F821
I XDO'
IRTN 12..,.131 3

I
I

11.

I

--1---------.
. -.. . ------I

1--'
I
12
I
J'

I

I

I

.....,;...;-..;1..--.......... 1---1 ' flU· I XOO,

ON--LOOP STACkER SELECT POCKET 2
t OFf-DO NOT LOOP STACKER SELECT POCKET 2
tRTN 12.,.131 "
I *IF S51 ,+ SSll :ON-TIGHT SIO lt~ LooP'STKR 2 I
I
~-,
--,-....,..1--'---'-'-,..-1tON--I.ODP STACKER SELECT POCKET 3
I . F821
I X005
t OFF-DO NOT I.OOP STACKER SELECT POCKET 3
IRTN 12_131 5
I ' • ~F S51 + ssn ON-TIGHT Slo TlO LOOP STKR 3 I
•

1-----1-------.
-,-------------I
13

RDUTI'NE 02 OF 'THIS SeCTION IS AN OVERLAY WHICH CONSISTS OF 'A PROGRAM'
THAT WILL ENABLE THE OPERATOR TO"VERIFY.THE,CAftOS PUNCHED IN RDUTJNE
01. THIS IS OPTIONAL ;UNDER-CONTROl OFSEtTlON SENSE SWlTtH 9. A
MESSAGE: IS ISSU~D :ey THE PROGRAM 'INFORMING THE OPERATOR THAT 'THE
OPTION EXISTS.

I

IN F820
STACKER

I----I--------.-....;--------~---------..,..,...-..I~---.;--I-----

.'

j,

ROUTINE
X004'
All
I
1
12 OR 13 I
I

1 ON--AllOWS CARDS ,PUNCHED IN ROUTINE 01 ;TO 811
I'
READ AND COMPARED FOR VERIFICATION.

I

THE FIRST;

THE NEXT 2T CARDS ARE PUNCHED WITH A RIPPLE PATTERN OF, AU. EBCDiC
CHARACTERS.

i

ROUTINE I X004'
ALL
0

1

1..;.""---1----------'------------'-----"

39 CARDS ARE PUNCHED BY ROUTINE 01 OF SECTION F822.
TWELVE CARDS ARE PUNCHED AS FOLLOWSCARD 1 - 80 COLUMNS OF 12 PUNCHES.
CARD 2 - BOCOLUMNS OF 11 PUNCHES. ,
CARD 3 - 80 COLUMNS OF 0 PUNCHES.
CARD 4 - 80 COLUMNS OF i,PUNCHES.
ETC •••
CARD 12 - 80:COLUMNSOF 9 ,PUNCHES.

I

I

I, F821
J 5
13.
11
I
1
l---....,.-l--------------------..,----------'-~'---..;..;..I---.,..-_..;"'I-""-I
8
ION--PERFORM MANUAL -OFF LINE- RTN IF, 55" ON. 1 - F820' I, XOO'.
I
I OFF--BYPASS OFF LINE ROUTINE
. I -RTN 14' 1 O'

SECTION lULL BE "eXECUTED ON THE FIRS12540ALLOCarED BY OM BEFORE ANY,
'
TESTING OCCURS ON THE NEXT DEVICE.
RIPPLE PUNCH TEST

1-0
I
I
------"----------'------------------------1--------1----J
1

o

--1----------'-----------------------

If MORE THAN ONE 2540 IS DEF1NED IN THE OMUDT, ALI: kOUTlNES IN EACH'

3.Z.1

I RounNe't AND' I
I 8IT

I ON--LOOP ON CURRENT
COMMAND
I OFf-PROCEED NORMALLY
1----'--1-'-.
I
l
I 'ON--LOOP ON CURRENT SIO-TIO COMMAND
I .
1 ,OFF-PROCEED NORMALLY
I
I . *SEE FURTHER USAGE BELOW WITH SS 11
1--,
I
5
I ON--EXECUTE MANUAL -INTERVENTION RTNS
J
I
RTNS 13, 14, AND 15. OR EXECUTE
1
I
SELECT RTNS IN FB2l, UNS 12 AND
I
1 OFF-BVPASS ABOVE ROUTINES
I -

A PSW RESTART EXECUTED WHILE THE PROGRAM.IS OPERATING NORMALLY MAY
CAUSE A MISLEADING HANG UP MESSAGE. THE HANG UP MESSAGE; IS ONLY VALID
WHEN A PSW RESTART IS INITIAYED DURING A SYSTEM 'HANG UP CONDITION. '

i

FUNCTION

I--~-~I-------------------~------------~---~--------I----~-~-I-----

IF .EQUIPMENT CHECK TROUBLE 1S EXPERIENCED WHILE RUNNING F820 'OR F821,
IT IS SUGGESTED THAT F822 BE RUN TO ANALYZE THE ,TROUBLE.

\

SECTION SENSE SWITCHES
THE SENSE swnCHES SHOWN BEI.OW ARE ,IN THE SENSE SWITCH 8YTES OF THEIR
RESPECTIVE SECTION PREFACES.
THE CHARACTER X REPRESENTS THE RELOCATION
FACTOR' CONTAINED IN REGISTER l ' DURING RUN TIME. THE SWITCH BITS, ARE
ZERO WHEN OFF, AND ONE WHEN ON.

STANDARD AS PROVIDED BY ,MONITOR

I

II
I
!,

PIN 840190;
: PAGE
2A

IBM MAINTENANCE DIAGNOSTIC PROGRAM,'

I
I

-----...;~~-----....;..;....;.---......----------------""':'-·~~~~' ..
I~.-..;.·....
· -...

3.3

1

3.3'.1

HAllS
NORMAL HALTS.

F820
IF SENSE SWITCH' 15 ON, A HALT WILL OCCUR AFTER AN ,OPERUOR
INSTRUCTION, 'TO ;MAKE THE PuNCH NOT READY.
IF SENSE SWITCHes 5 AND 8 ARE 80TH ON, A HALT "ILIl'OCCUR AFTEI AN
OPERATOR INSTRucnONTOMAKETHE PUNCH NOT OPIIRATIONAt..
IF SENSE swnCH5 IS ON, 'A HAt. T WILL OCCUR AFTER AN 'OPERA fOR
INSTRUCTION, TO MAItE THE PUNCH OPERAtiONAL 'AND ReADY.

DATe
Et

' ; ,',
0,,""0
..

,',

;.!

'

,0'MA165
124252

10AU&6'·
125'80

15NOV6'·'
12'624'

22FEB66'
125621

15JUN61
130498'

10
PAGE

F82o-.
2

,

DATE

EO

i

0' MAY 65<
124:l52

lOAUG6'

15NO'l65

125580;

125624·.

22FE866
125621

UJUN67 ,
130498'

,10

.... &1

F82G-.

2.

I
I

000000000000000000000000000000

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 __
~~.

•
I

~aM:M.INTENA~CE

PIN '40190
PAGE
3

DIAGNOSTIC PROGRAM

F820. 2540'PUNCH FUNCTION TEST

IBM :MAINTENANCE DIAGNOSTIC PROGRAM·
F8Z0: 2540 PUNCH FUNCTION TEST'

FB21

Fa21
IF.THE STACKER SELECT ROUTINES -12 AND 13- ARE EXECUTED. A HALT
WilL OCCUR AT THE START AND COMPLETION OF EACH TEST. THE FIRST
HALT ENABLES PREPARING THE PUNCH FOR THE STACKER SELECT TEST ·AFTER
A MESSAGE IS ISSUED TO THE OPERATOR. AT THE COMPLETION OF EACH
TEST A MESSAGE IS ISSUED INSTRUCTING THE OPERATOR TO CHECK FOR A
STACKER SELECT FAILURE.

THIS MESSAGE IS ISSUED IF SECTION SENSE SWITCH 5 IS ON IN
PREPARATION FOR THE STACKER SELECT TESTS. NOPRO MEANS NON-PROCESS
RUNOUT.
- SEE IF CDS PCHED WITH

A HALT OCCURS IF SECTION SENSE SWITCH 9 IS ON. TO ALLOW THE OPERATOR
TO REMOVE THE PUNCHED CARDS FROM STACKER PI AND PUT THEM IN THE
READER HOPPER. .

F82Z

A HALT OCCURS IF THE READER BEING USED is THE LOADER TO ALLOW
PROPER HANDLING OF THE TEST DECKS.
ERROR HALTS

I

I

I

I!

IN Pl. 2 IN P2, 3 IN RP3-

- DO NOPRO, EMPTY PCH STKRS-

- IF DESIRED TO VERIFY THE CDS IN PI, SET SSW 9 ONTHIS MESSAGE IS ISSUED WHEN ROUTINE 02 STARTS EXECUTING •. IF EMD
INTERRUPT SHOULD OCCUR, FOLLOWED BY ADEVICE·;ENDdNTERRUPT.

*
*
*

A WRI TE COMMAND IS ISSUED AND 1 BLANK IS SENT..
IS ENA8LED TWICE FOR: INTERRUPTS.

•

OPERATION ATTEMPTED

CONDo CODE 0 SHOULD BE SET ON THE START .1-0. AND AFTER
TRANSFERING 1 BYTE OF DATA. A.CHANNEL:AND DEVICE END
INTERRUPT SHOULD OCCUR.

•* 0330 - OPERATION ATTEMPTED

•
*

CONDo CODE 0 SHOULD BE SET ON THE StART 1-0, AND AFTER
TRANSFERING 1 BYTE OF DATA; A CHANNEL AND DEVICE· END
INTERRUPT SHOULD OCCUR.

EXPECTED RESPONSE

THE CHANNEL IS

THE CHANNEL, IS

EXPECTED RESPONSE

•• 0380- OPERATION ATTEMPTED
••
A READ COMMAND IS ISSUED AND .lBYTE, 1$
*,
ENABLED FOR 1 INTERRUPT.

A READ COMMAND IS ISSUED AND 1 BYTe IS READ.
ENABLED FOR 1 INTERRUPT.

••*

!

A READ COMMAND IS ISSUED AND 1 BYTE ·IS READ.
ENABLED FOR 1 'lNTERRUPT~

*

*•

j

•**
••

.

COND. CODE 0 SHOULD BE SET·OH THE START 1-<0•. A CHANNEL lEND
INTERRUPT SHOULD OCCUR. FOLLDW.ED BY A DEVICEi.ENDi,INTERRUPT.

•

t',;'

CONDo CODE 0 SHOULD BE SET 'ON THE START 1-0. A CHANNEL-END
INTERRUPT SHOULD OCCUR, FOLLOWED 8YA DEVICE END INTERRUPT.

••
.* 0310 ••

EXPECTED RESPONSE

••

;

•*

THE CHANNEL

EXPECTED RESPONSE

*

* ·0320- OPERATION ATTEMPTED

~;

A WRITE COMMAND IS ISSUED AND 1 BLANK IS SENT.
IS ENABLED TWICE FOR INTERRUPTS.

•.

CONDo CODE 0 SHOULD BE SETON THE START 1-0. AND AFTER
TRANSFERING 1 BYTE OF ·DATA. A CHANNEL .AND DEVICE END
INTERRUPT SHOULD OCCUR.

•

1

..

EXPECTED RESPONSE

...

j

f

•

••
•*

*
*
* .0360'- OPERATION ATTEMPTED

* 0310 '- OPERATION ATTEMPTED

!

t

A READ COMMAND IS ISSUED AND 1 BYTE IS READ•. THE CHANNEL IS
ENABLED FOR 1 INTERRUPT.

*
*
*,
*
*

1

!

*

*,

*
*
*
*

*
*

CONDo CODE 0 SHOULD BE SET ON THE START 1-0. A CHANNEL:END
INTERRUPT SHOULD OCCUR. FOLLOWED BY ADEVlCE',END INTERRUPT.

*'
*.

EXPECTED RESPONSE
CONDo CODE 0 SHOULD 8E SET ON THE START I-D. AND AFTER
TRANSFERING 1 BYTE OF DATA, A CHANNEL AND DEVICE. END
INTERRUPT SHOULD OCCUR.

* 0350 - OPERATION ATTEMPTED

THE CHANNEL

** ,0300:- OPERATION ATTEMPTED
i

•

•

* 0290:- OPERATION ATTEMPTED

*

A READ COMMAND IS ISSUED AND 1 8YTEISRUD., THE CHANNel IS
ENA8LED.FOR 1 INTERRUPT.

*

EXPECTED RESPONSE

*
*
*

;,'

PIN 840191'
PAGE
4"

2540 ;PONCH 'FUNtTION 'nITS-SEtTION 1 FUO
A READ COMMAND IS ISSUED AND 1 BYTE IS READ.
ENABLED FOR 1 INTERRUPT.

*
*'
...*

IBM ;MAl NnNANCfI DlAGNOSTIC PROGRAM'

DATI!
EC.

05 MAY 65
124252

10AOG6'
1255BO.

22FE866 .
125621

'0 ':0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0

A WRITE COMMAND IS ISSUED ANDl :8UNkIS SENT.
IS ENABLED TWICE :FoR; INTERRUPTS •

THE CHANNel

EXPECTED RESPONSE·
CoND.CODE 0 SHOULD:BE SET ON THE START '1 ..0.. " A, tHANNEL':EMD
INTERRUPT ,SHOULD OCCUR, 'f'oL&:oWEDlty A DEVIU,lENDI:INTERRUPT 11

A WRITE COMMAND is ISSUED AND 1 BLANK IS SENT.
is ENABLED TWICE FOR INTERRUPTS.

THE CHANNEL

EXPECTED RESPONSE
CONDo CODE I) SHOULD BE SET ON THE START i-O. A CHANNEL END
INTERRUPT SHOULD OCCUR, FOLLOWED BY A DEVICE END INTERRUPT.

'"

•• 0710 -OPERATION ATTEMPTED

••
•

WRITE COHMAND IS iSSUED AND 1 8LANK IS SENT.
IS ENABLED TWICE FOR iNTERRUPTS.

Ii

.,
.•
•
••
•,.'"

EXPECTED RESPONSE
CONDo CODE 0 SHOULD BE SET ON THE START I~O. A CHANNEL END
INTERRUPT SHOULD OCCUR. I'OLUIWED IIY A DEYJCE END INTERRUPT.

*****.*
•••••,,"..
ROUTINE 12
**** ••••• **•••

,

•
'"
''"" 0180 •'"
'"
•

OPERATION ATTEMPTED

..

READ COMMAND IS ISSUED AND 1 BYTE is READ.
ENABLED FOR 1 INTERRUPT0

Ii

.,

CONO. CODE 0 SHOULD BE SET ON THE START_I-O. AND AfTER
fUNSFEIHNG 1 BYTE Of DATA. A CHANNiEL liND DEVICE END
INTERRUI'"f SHOULD OCCURQ

>II,

0190'-

'"
*'

'''"""

•'"
'•"
U)AUG65

J 0 ',0

t("\

V

["\
V

0"·

:... ,

OPERATiON ATTEMPTED
READ COMMAND IS ISSUED AND 1 BYTE ISREAOv
ENABLED FOR 1 INT~RRUP1.

Ii

co~o.

CODe 0 SHOULD BE SET ON THE STAAT 1-0. AND AFTER
TRANSFER1NG 1 bYTE OF DATA, A CHANNEL ;AND DEVICE END
INTERRUPT SHOULD OCCUR.

,0'

A.

'V

o

EXPECTED RESPONSE
CONO. CODE 0 SHOULO BE SET ON THE START 1-0, AND AFTER
TRANSFERING 1 BY'TE OF DATA. A CHANNEL AND DEVICE END
INTERRUPT SHOULD OCCUR.
- OPERATION ATTEMPTED

A READ COMMAND IS ISSUED AND 1 8YTE IS READ.
ENABLED FOR 1 INTERRUPT.

•
'"
''""
• OB30 -

THE CHANNEL IS

EXPECTED RESPONSE
CONDo CODE 0 SHOULD BE SET ON THE START 1-0, AND AFTER
TRANSFERING 1 BYTE OF DATA, A CHANNEL AND DEVICE END
INTERRUPT SHOULD OCCUR.

••
'" 0820'- OPERATION ATTEMPTED
•'"
A READ COMMAND J S I SSUED
'"
ENABLED FOR 1 INTERRUPT.
•'"
EXPECTED RESPONSE

..•

THE CHANNEL IS

AND 1 BYTE IS READ.

THE CHANNel IS

CONDo CODE 0 SHOULD BE SETON THE START 1-0, AND AFTER
TRANSFER.ING 1 BYTE OF DUA, A CHANNEL AND DEVICE END
INT.ERRUPT SHOULD OCCUR.
OPERATION ATTEMPTED
A READ COMMAND IS ISSUED AND 1 8YTE IS READ.
ENABLED FOR 1 INTERRUPT.

THE CHANNEL IS

'•"
EXPECTED RESPONSE
''""
CONDo
CODE 0 SHOULD BE SETON THE START 1-0, AND AFTER
••
TRANSFERING 1 BYTE OF DATA, A CHANNEL AND DEVICE END
INTERRUPT SHOULD OCCUR.
''""
•
'" 0840- OPERATION ATTEMPTED
A READ COMMAND is ISSUED AND ,1 8YTEIS READ. THE CHANNEL
•'"
ENABLED FOR 1 INTERRUPT.
'•'""
EXPECTED RESPONSE
•
CONDo CODe 0 SHOULD 8E SET ON THE $TARTt-O, AND AFTER
'"
TRANSFERING 1 BYTE OF DATA. A CHANNEL .AND DEVICE,END
INTERRUPT SHOULD OCCUR.
•
•'"
ATTEMPTED
''"" ,0850- OPERATION
A READ COMMAND I S ISSUED AND 1 8Vil IS IlEAD. 'l'HE CHANNEL
ENA8LED .FoR 1
•'"
eXPECTED RESPONse
•

.'.,

tNTeRRuPt~

"AGE

·.·
0·
,',:';

','

0",··.·.·

I,,,,,

O.

I,.

"

1·0,,'·':
I,

(0

!S

.,

ID

1304911

A
'V.'··.·

THE CHANNEL is

EXPECTED RESPONSE

l'JUI~61

125580

THE CHANNEL IS

EXPECTED RESPONSE

•*

'"
''""

THE CHANNEL

'"
• 0810
''""
'"
••
••
•••

OPERATION ATTEMPTED
A READ COMMAND IS ISSUED AND 1 8YTE IS READ.
ENABLED FOR 1 INTERRUPT.

•

CONO. CODE I) SHOULD BE SET ON THE START I~O. A CHANNEL END
INTERRUPT SHOULD OCCUR, FOLLOWED BY A DEVICE END INTERRUPT.

>II

.,•
..'•••"
•
...,•

0800-

CONDo CODE 0 SHOULD BE SET ON THE START I~(l. A CHANNEL END
INTERRUPT SHOULD OCCUR, FOLLOWED BY A DEVICE, END INTERRUPT.

8A

FUNCTiONUnS- SEct IIlN 1 FII20

IS

"82~3

8A

o

0000000000000000000000000000000000
tr f

j

j

I

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 81t0191
PAGE
9

t

251t0 :PUNCH FUNCTlONTlSTS- SECTION

1

FB20

• .
•
•

I1
1i

~". :

•

INTERRUPT.

•
•••
••
•• 0810••
• ..

EXPECTED RESPONSE

·•..
•

•••
.08BO -

••
•
•• .
•..
•

.0890:-

10AUG65
1255BO'

THE CHANNEL IS ENABLED FOR ONE

EXPECTED RESPONSE
EXPECT CONDo CODE 0 ON THE START 1-0, AND AFTER TRANSFERING
ONE BYTE OF DATA, A CHANNEL AND DEVICE END INTERRUPT SHOULD
OCCUR

EXPECT CONDo CODEODN THE START 1-0, AND AFTER· TRANSFERING
ONE BYTE OF DATA, A CHANNEL 'AND DEVICE ,END· INTERRUPT SHOULD
OCCUR
.

• .
•

A SENSE COMMAND
INTERRUPT.

• .

EXPECTED RESPONSE

•
•••
•• 0930 ••

EXPECT CONO. CODE 0 ON THE START 1-0, AND .AFTER TRANSFERING
ONE BYTE OF DATA, A CHANNEL ,AND DEVICE' END INTERRUPT SHOULD
OCCUR

•

••
••

OPERATION ATTEMPTED

••
•
••
••

t .

k44&=." __

J4UQ

$

I.

4aa.

A SENSE COMMAND IS ISSUED.
INTERRUPT.

THE CHANNel IS ENABLED FOR ONE

..
....

EXPECT CONDo CODED ON THE START 1-0, AND AFTER TRANSFERING
ONE BYTE OF DATA. ACHANNE.L 'AND DEVICE END INTERRUPT SHOULD
OCCUR

•••
•

EXPECTED RESPONSE

••
• 0950

THE CHANNEL IS ENABLED FOR ONE

EXPECTED RESPONSE

••

~

.
•• ,

•
•
• .

••
••• 0960 -

.,•

...,••
..••

EXPECT CONDo CODE OON THE START 1-0, AND ,AFTER TRANSFERING
ONE BYTE OF DATA, A CHANNEL ,AND DEVlce"ENO:INTERRUPT SHOULD
OCCUR
OPERATION ATTEMPTED
THE

CHA~ELIS

ENABLED FOR ONE
. 10

PAGE

f820-3

9

05MA"65
124252

. 10AIIG"
125580:

22FE866
125621

THE CHANNEL IS ENABLED FOR ONE

EXPECTED RESPONSE

..

A SENSE COMMAND IS ISSUED •. THE CHANNEL 15· ENABLED FOR ONE
INTERRUPT.

OPERATION ATTEMPTED·
A SENSE COMMAND IS ISSUED.
INTERRUPT.

•

OPERATION ATTEMPTED

THE CHANNEL IS ENABLED FOR ONE

ExPECT CONO. CODE DON THE START 1-0, AND AFTER TRANSFERING
ONE BYTE OF DATA, A'CHANNEl .AND DEVICE·.END, INTERRUPT SHOULD
OCCUR

•
•

EXPECT CONO. CODE ,0 ON THE START 1-0, AND AFTERTRANSFERING
ONE BYTE OF DATA, A'CHANNEL AND DEVICE· END: INTERRUPT SHOULD
OCCUR
OPERATION ATTEMPTED
A SENSE COMMAND IS ISSUED.
INTERRUPT"

THE CHANNEL IS ENABLED FOR ONE

EXPECTED RESPONSE
EXPECT CONDo CODE 0 ON THE START 1-0. AND AFTER TRANSFERING
ONE BYTE OF DATA, A CHANMEL,ANODEVICE END'INTERRUPT SHOULD
OCCUR
lSJUN61 .
130498

I

j.

ENABLED FOR ONE

EXPECTED RESPONSE

I

. ". ""

IS

OPERATION ATTEMPTED

A SENSE COMMAND ,IS ISSUED.
INTERRUPT.

!!

."'" ; t.

THE CHANNEL

• 0940 - OPERATION ATTEMPTED

OPERATION ATTEMPTED·

lSJON61
130498

ISSUED.

EXPECT CONDo CODE 0 ON THE STARt 1-0, AND ,AFTER TRANSFERING
ONE BYTE OF DATA, A CHANNEL AND DEVICE, END, INTERRUPT SHOULD
OCCUR

••

.

A SENSE COMMAND IS ISSUED.

,IS

EXPECTED RESPONSE

•
•

THE CHANNEL IS ENABLED FOR ONE

A SENSE COMMAND IS ISSUED.
INTERRUPT.

22FEB66
125621

EXPECTED RESPONSE

• 0920 - OPERATION ATTEMPTED

•••

•••
• 0910 ••
OSMAY65
121t252

THE CHANNEL IS ENABLED FOR ONE

OPERATION ATTEMPTED
A SENSE COMMAND IS ISSUED.
INTERRUPT.

INTERRUPT.

•

EXPECTCOND. CODE.O ON THE START 1-0, AND AFTER TRANSFERING
ONE BYTE OF ,DATA, 'A CHANNEL lAND DEVICE' END. INTERRUPT SHOULD
OCCUR

•••
••
• 0900 ••

DATE
EC

.,....•
•
•
..•

EXPECTED RESPONSE

·.'•.

b"
PIN B40191
PAGE
9A

••
•

EXPECT CONO. CODE O'ON THE START 1-0, AND AFTER TRANSFERING
ONE BYTE OF DATA, A CHANNEL AND DEVICE END INTERRUPT SHOULD
OCCUR

A SENSE COMMAND IS ISSUED.
INTERRUPT.

• .
• .

m•••.

IBM MAINTENANCE DIAGNOSTIC PROGRAM'

CONDo CODE 0 SHOULD BE SETON THE START·I-O, AND AFTER
TRANSFERING 1 BYTE OF DATA, A CHANNEL iAND DEVICE END
INTERRUPT SHOULD OCCUR.

..•

•

2540 PUNCH FUNCTION·TISTS- SECTION 1 F820

••
.OB60- OPERATION ATTEMPTED
••
A SENSE COMMAND IS ISSUED.

I

W

10
F820-3
PAGE
9.

1. 1..

j.

t8M'MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840191
PAGE
10

2540 PUNCH FUNCTION TESTS '- SECTiON 1 F820

•• 0970 ••
••

..
.,••
.,••
..•••
..••
••

'j

I
1
1

;
,

.\

•

,i

'I
·1
"

1

~!

··:1
~1

•• 0990 •..

,!
j

j

••
•

i

j

••

..•••
....••
.,•.,••

I

.~

!,

I

;,J
,
"

•• 1010 -

••
•••
••

•
•••
•••
•

o

05MAV65
124252

10AUG65
125'80

ttt@"''r

'PIN 840191
lOA
: PAGE

•• 1020 ••

OPERATION ATTEMPTED
A SENSE COMMAND IS ISSUED.
INTERRUPT •

THE CHANNEL 'IS ENABLED FOR ONE

••
••
•
••

EXPECTED RESPONSE
EXPECT CONDo CODE 0 ON THE START 1-0, AND ·AFTER TRANSFERING
ONE BYTE OF DATA, A CHANNEL AND OEVICE·.END. INTERRUPT SHOULD
OCCUR

OPERATIPN ATTEMPTED
A NOP 'SIO IS tsSUEDTO A NOT READY DEVICE •.
EXPECTED RESPONSE
EXPECT UNIT CHECK ALONE AND CONDo CODE OF 1. A SENSE IS
ISSUED AND INTERVENTION· REQUIRED SHOULD BE IN THE SENSE 8YTE.

• 1030'- OPERATION ATTEMPTED

A SENSE COMMAND IS ISSUED.
INTERRUPT.
EXPECTED RESPONSE

..

A

NOT READY DEVICE •

DEVICE.

CDND. CODE,1 SHOULD BE SETANDA· CSW KUHNO BiTS ON STORED.

•••••••••••••••
ROUTINE 14

••••••••••••••
.......................................................................
.•
NOTE-THIS ROUTINE BYPASSED UNLESS SECTION SNS 511·' AND 8 BOTH ON •
.......................................................................
'

..

• 1050 - OPERATION ATTEMPTED·

•

THE CHANNEL IS ENABLED FOR ONE

•••
••

EXPECTED RESPONSE
EXPECT CONDo CODE 0 ON THE START 1-0, AND.AFTER TRANSFERING
ONE BYTE OF DATA, A CHANNEL AND DEVICE· END INTERRUPT SHOULD
OCCUR

A NOP SID IS ISSUED TO A NOT I.AVAILA8LE DEVICE. 10r:F LIN!!)
EXPECTED RESPONSE

••• 1060 -

•
•

OPERATION ATTEMPTED

••
•• ,
••

THE CHANNEL IS ENABLED FOR ONE

EXPECTED RESPONSE
EXPECT CONDo CODE 0 ON THE START 1-0, AND AFTER TRANSFERING
ONE BYTE OF DATA, A CHANNEL AND DEVICE END INTERRUPT SHOULD
OCCUR

CONDo CODE 3 SHOULD 8E SET'INOT'OPERATIONALt
OPERATION ATTEMPTED'
A TEST '1-0 IS ISSUED TO A NOT ,AVAILABLE DEVIC,e. (OFF tiMEt .
EXPECTED RESPONSE
COND., CODE 3 SHOULD 8E SET CNOT ·OPElATlONAU '

• 1010 - OPE.RATIONATTEMPTED

••

•• .
•• .
•••

.,.

....

ID
F820-3
PAGE
10

IS ISSUED TO

EXPECTED RESPONSE

••
•

EXPECT CONDo CODE 0 ON THE START 1-0, AND .AFTER TRANSFERING
ONE BYTE OF DATA, A CHANNEL AND DEVICE END, INTERRUPT SHOULD
OCCUR

221'E866' 15JUN61 ,
125621
130498

EXPECT UNIT CHECK ALONE AND COND. CODE OF 1. A SENSE IS
ISSUED AND INTERVENTION REQUIRED SHOULD .81 :IN THE SENSE BYTE •

•• '
••

THE CHANNEL 'IS ENABLED FOR ONE

EXPECTED RESPONSE

A SENSE COMMAND IS ISSUED.
INTERRUPT.

•
•

T~ST 1-0

EXPECTED RESPONSE

••

OPERATION ATTEMPTED

A SENSE COMMAND IS ISSUED.
INTERRUPT.

A

••• 1040-.0PERATION ATTEMPTED
••
ISSUE A HALT 1-0 TO NOT 'READY

EXPECT ·COND. CODE OON THE STARt 1-0, AND .AFTER TRANSFERING
ONE BYTE OF DATA, A CHANNEL AND DEVICE.END. INTERRUPT SHOULD
OCCUR

A SENSE COMMAND.IS ISSUED.
INTERRUPT.

•••
•• .

..

THE CHANNEL IS ENABLED FOR ONE

••••••••••••••
ROUTINE 13
••••••••••••••
..................................................................~
•
NOTE--THIS ROUTINE IS BYPASSED·UNLESS SECTION SENSE SWITCH 5 IS ON.
.......................................................................
DATE
EC

'j

2540 ;PUNCH FUNCTION tESTS '- SECTION IF82D

• 1000 - OPERATION ATTEMPTED'

•

ten tt

iBM ·...·iNTENANCE DIAGNOStIC :PlOGUM

• 0980- OPERATION ATTEMPTED

,

?' •.. ;

A HALT 1-0 IS ISSUED TO A NOT ,AVAILABLE DI!VI"_ 'IOF,. lINEI
EXPECTED lESpONSE
COND. COOl! ,.SHOULD·BE SET i I NOr 'OPERATIONAt).

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

•

DATE
EC

05 MA'I 65
124252

10AUG65
125580'

UFEa66

125621

. ROUTINE 15

15JUN61
1304'8'

to

PAGE

F810-3

00000 0000000000000000000000000000

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\

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840191
PAGE
11

2540 ,PUNCH FUNCTION'TiSTS - SECTION 1 F820

2540PUhCH FUNCTION TESTS - SECTION 1 F820

•
• .

NOlE---THIS ROUTINE IS BYPASSED UNLESS SECTION SENSE SII 5 IS ON.

•

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

•• 1080 ••

F8203000
00000000
0000
0000
00
01
CO
00
0104000000
001760
0000000000000000
0000000000000000 .
0000000000000000
0000000000000000
0000000000000000
0000000000000000
00000000
000000000000000000
000000
0004000000

ooaooo

0000000000000000
0000000000000000
0000000000000000
01040000
00001214

82
00
8000

.
•
•

DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC

XLl'OO'
XLl'Ol'
X'CO'
X'OO'
X'Ol04000000'
AL31ROUTOll
XLB'O'
XL8'OO'
XL8'OO'
XL8'OO'
XL8'OO'
XL8'OO'
XL4'OO'
XL 12' 00'

,..'"
SECTION OM FLAGS
NUMBER OF UNITTA8LE ENTRYS
,..
EXCLUSIVE CPU
110 INT ARE ERR, EXT INTTO PROG
DISABLED, SPVSR STATE, NO PGM'MASK •
ADR OF 1ST ROUTINE PREFIX
SECTION OLD EXTERNAL PSII
CLEAR ALL OLD PSIIS
PROGRAM OLD PSW
MACHINE CHECK OLD PSW
110 OLD PSW
CHANNEL STATUS WORD
CAW
,..
RESERVED FOR OM USE

DC
DC
DC
DC
DC
DC
DC
OS
UNITl DC
UI0P
DC
UlAOOR DC

X'0004000000'
XL3'O'
XL8'OO'
XL8'00'
XL8'OO'
XL4' 01040000'
AL41IRETRNI
96C
X'82'
X'OO'
X'8000'

EXTERNAL NEWPSW
ADR OF EXT INTRPT ROUTINE
SUPERVISOR NEW PSW
PROGRAM NEW PSW
MACHINE CHECK NEW PSW
I/O NEW PSII
ADDRESS OF 110 INTRPT ROUTINE
96 BYTE REG DUMP AREA FOR OM USE
UNIT TYPE - 2540 PUNCH
OPTIONAL FEATURES BYTE
flAGS AND CHANIUNIT ADDRESS

SDMF
NIOU
FLAGl
FLAG2
INPSII

EXOPSW
SVOPSII
PGOPSII
MCOPSW
IOOPSW
CSW
CAW
EXNPSW
SRET
SVNPSW
PGNPSW
MCNPSW
IDNPSW

10AUG65
125580 .

IHEX 8

I
I
I

HEX 4
CARD
IMAGE

•
•
•
••

••

•
••

HEX 2
PUNCH
FEED
READ

HEX 1 I HEX 8 HEX 4
51 COL I 1400
FEAT.· I COMPAT
I FEAT.

HEX 2

•

1

•
•
•
•
•

2
3
4
5

•

6

•

7

•
•

BIT
0

•

1

•
•
•
•
•

2
3
4
5
6

•

•
•
•
•
•

.

11

DC
DC
DC
DC
DC

Xl2'OOOO'
X'OOl4'
X'FO'
X'OO'
AL2IADR-BASE+REGI

CONTROL SWITCHES
TEST NO. IN DEC EXPRESSED IN HEX
EXPECTED CONDo CODE
EXPECTED SENSE DATA
ADDR. OF EXPECTED CSW IF NEEDED

• SIIITCH
•
0
• .
•

•
.,
• '
•

• .

•

F820-3

PARAMETERS USED TO ENTER
THE 1-0 HANDLER ROUTINE

.......................................................................
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
1-0 HANDLER CONTROL SWITCHES
•
2 BYTE PARAMETER FOLLOWING BAl
.....................................................................
.

•
•

•
2540 PUNCHOlAGNOSnC CHECK READ IlYTE
........................................................................
10

MEANING
ATTENTION - NOT USED FOR THE 2540 PUNCH
STATUS MODIFIER- 2 CHANNEL SWITCH FEATURE ONLY
CONTROL UNIT END - 2 CHANNEL SWITCH FEATURE ONLY
DEVICE BUSY
CHANNEL END
DEVICE END
UNIT CHECK
UNIT EXCEPTION - .NOT·USED FOR THE 2540 PUNCH

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
BAL
Ril,l SID
II NK TO 1-0 HANDLER

HEX 1
2 CHAN
SW. ON
2821

PAGE

7

•
•

••
•
••
••
•

•

1!5JUN67,
130498

MEANING
COMMAND REJECT - INVALID COMMAND ISSUED TO THE PUNCH
INTERVENTION REQUIRED
BUS OUT CHECK - PARITY ERROR
EQUIPMENT CHECK - TRANSLATE CHECK, ADDRESS CHECK,
DATA REGISTER PARITY ERROR, OR A HOLE COUNT ERROR.
DATA CHECK
OVERRUN - NOT USED
UNUSUAL COMMAND SEQUENCE
NOT USED

•••****.*..............................................................
.......................................................................

······1.·... 1..•......•.......•....•..•..,.............................
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
........................................................................
22FEB66
125621

BIT
0

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
.......................................................................
•
2540 PUNCH STATUS BYTE
.......................................................................

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
2540 PUNCH OPTI ONAL FEATURES ASS I GNMENT
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•• UNITITYPE I OPTIONAL FEATURE DIGIT 1 I OPTIONAL FEATURE DiGIT 2
··
.... 1I ..... 1········.·.···.··.·
.........1...................."'........
•
IBIT 0 BIT 1 BIT 2 BIT 3 1 BIT" BIT 5 BIT 6 BIT 7
i

81T MEANING
0
NOT USED
I
NOT USED
2
NOl: USED
3
X UPPER CHECK PLANE
4
X LOWER CHECK PLANE
5
BUFFER PARITY CHECK
6
PUNCH TRANSLATE CHECK
1
PUNCH BUFF.ER ADDRESS CHECK

•
.......................................................................
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
2540 PUNCH SENSE BYTE
.....................................................................
.

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••
•••••••••••••••••••
• SECTION PREFACe ................................... SECTION PREFACE.
•••••••••••••••••••
•••••••••••••••••••
SECNO DC
XL4'F8203000' ,
PROGRAM,SECTION AND REVISION NOS. •
SNSII
DC
XL4'00'
SECTION SENSE SIIITCHES
•
DC
XL2'OO'
•
ICM
DC
XL2'00'
INTERRUPTION CONDITION MASK

•

OSMAU5
124252

•
•

EXPECT DEVICE END ALONE, IIITH A CONDo CODE 1.

.2540 I 82
.PUNCH!
•
I

DATE
EC

•

EXPECTED RESPONSE

••
••
001000
001004 .
001008
OOlOOA
OOlOOC
001000
OOlOOE
OOlOOF
001010
001015
001018
001020
001028
001030
001038
001040
001048
00104C
001055
001058 .
001050
001060
001068
001010
001078
OOlOlC
001080
0010EO
OOltlEl
0010E2

•
•

OPERATION ATTEMPTED
A TEST 1-0 TO A DEVICE THAT JUST IIENT FROM NOT READY TO READY.

••
••

PIN 840191
PAGE
11A

l8MMAINTENANCE DIAGNOSTIC PROGRAM

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

•.

0' 0

•
•.
.. '
.'
.. '

DATe
EC

05MAY65
124252

lOAUG65
125580

22fE866
1256Z1

DESCRIPTION
OFF - ISSUE AN 1-0 COMMAND
ON
DO NOT 1 SSUE AN 1-0 COMMAND
1
OFF
ENABLE
ON - DO NOT ENABLE
2
OFf' '- EXPECT NO INTERRUPT
ON - EXPECT AN iNTERRUPT
3
OFF - DO NOT EXPECT 2 INTERRUPTS
ON - EXPECT 2 INTERRUPTS
4
OFF - EXPECT NO CSIIS
ON - EXPECT A CSW
5 ----. OFF - DO NoT EXPECT 2 CIIiS
ON - EXPECT 2 (SIIS
6
OFF - ALIIAYS TRY TO iSSUE SENSE
ON - SENSE oN UNIT CHECK ONLY

15JUN611
1.30498 '

10

PASE

f820-3
llA

o o

00

1'/1'4

640191

PAGE

2540 PUNCH FUNCTION:TISTS -SECTION 1 1'820

2540 putfCH fUNCTiON TESTS. -SECTION 1 1'820

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
SWITCHES USED 8Y 1-0. HANDLER
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• SWITCH
DESCRIPTION
•

•

0

•
•

1

•
•
2
•
•
3
•
••
'"
•
5
• '
.,

6

• .

----

.........
•

1

~---

• ,

OfF ON Off ON OFF ON OFf ON OFf ON OfF ON Off ON OFFON -

NO HANGUP ON INTERfACE
HANG UP OCCURRED
NO CSWS STORED
ONE CSW STORED
SECOND CSW NOT RECEIVED
SECOND CSW RECEiVED
DID NOT ENABLE
ENA8LED ONCE
DID NOT ENABLE TWICE
ENA8LED TWICE
NO SENSE DATA RECEiVED
SENSE DATA RECEIVED
NO UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE
UNEXPECTED INTERRUPT fROM UNKNOWN DEVICE
NO ERROR DETECTED
AN ERROR WAS DETECTED

...........•..................•..............................
•
REGISTERS USED' IN 1-0 HANDLER
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
REG
COMMENTS
•
•

~

5

••
•

USED AS LINK TO ERROR OUTPUT fROM INITIALIZE ROUTINE If
PREVIOUS HANGUP ON INTERfACE DETECTED.
USED AS WORK REGIS1ER. WILL BE RESTORED UPON RETURN.

••
•

USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN.

10. MUST CONTAIN CCII ADDRESS UPON ROUTINE ENTRY
••
11
MUST BE USED AS UNK REG
0 THIS ROUTINE
••
12
MUST CONTAiN DEVICE ADDRESS
•."".*••• *.*.*~ ••*••••""•• ~ ••• **••*.*""*•••*.**.*.*••••••••••••••••••••••••
Of

0010E4

0000

ISW

DC

XlZ'O'

....

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
.........••.............
"' "'.•..........."'...........................
•

GIlIOE6 .
OOlOEA

0010H;
00101'2
00101'6
00101'11

OOlOFE

92 90 f lAE
92 90 F 164
92 E3 F 639

OOHlE
001124
00U28

90 AI'I F 61:111
90 89 F 56()

0011311

OOU40
001146
001 He:.

n

~,1

92

1110

1:3 F 5AO

1'0 F HE

<:Ie

F 1<11:

ISla

02 01 F 6lt 8 002

n

~Wi

PtHAIt,t..

Mye
XC

PCHAR+1119I,PCHAR
HCSIIIIl,R13) ,HCSW!RU)

iE'i'EOH Hlle·

Sf",
SlM

;;'OMAN

603

0101 D 040 0 040
01 08 E 080 E osa
91 808 0(1)

lOAUG65
125580

o

lIVe
5T

MVI
"VI
BC
MVI
MVI
MVi
MVi
BC
MVI
MVI
MVI
MVi

02 00 F 613 F COl
50 /1,00 04!!
40 ;r 6D!3
02 ~E F 609 f

ISSUE,X'9E'
IOPTl+25,X'CIl'
IOAODR+12,X'C8'
ILOOP,X'9E'
UNC,IEYEOH
ISSUE,X'9D'
ILOOP,X'90'
IOPT1+25,X'E3'
IOAODR+12.X'E3'
UNe , I EYEOH
ISSUE,X'9C'
iLOOP,X'9C'
IOPT1+25,X'E2'
IOADDR+12.X'E2'
lTSTNO+512! ,-2111.111
R10,lUl.lSI.AVE
R8,R9.ISAVE
RTSVU), seCNOH
iUO,HCIUoiIlU:H

MV!

MVI

92 9E I' 164

92 9(, F 164
92 E2 F 639
92 1:2 F SAO

OOU32
(lOH36

IHI0

41 1'0 F 11E

001102
001106
!JOllOA
OOllOE
OOHU
001116
OOHlA

ooun

• 1-0 HANDLER SUB-ROUTINE.

••••••••••••••••••••••••• *"" ••••••••••••••••••••••••••••••••••••••••••••

92 9E F !AE
92 (;8 F 639
n (8 I' SAO

22FEB66
125621

PIIII 8100191
PAGE
124

12

SETUP fOR HALT 1-0
MOVE -H- TO OPTION MSG.

BR. UNCONDITIONAL
SET UP FOR TEST 1-0
MOVE -1- TO OPTiON MSG.
BR. UNCONDITiONAL
SETUP FOR START 1-0
MOVE -S- TO OPTION MSG.
SAVE lEST NUM8ER
SAVE REG 10 AND REG 11
SAVE REGS 8 AND 9
SAVE RT NO. fOR H.lINGUP.
STORE COMMAND ADDRESS
CLEAR WORK AREA.
CLEAR WORK AREA.

001150
001154
001158

001l5C
001160
001164
001168
00116C
0011 TO
001114

001118
00117e
001180
001184
0011B8
00118C
001190
001194 .
001198
00119C
OOllAO
0011A6
00 11 Al

0011AE
0011B2
0011B6
0011BA
00118E
D011C2
0011C6
OOHCA
0011CE
0011D2
001108
0011 DC
0011 EO
00llE4
00llE8
OOllEe
OOllFO
00 11 F4
00Uf8
OOllFC
001200
001204
001208
00120e
001210

001214 .
001218
00121C
001220
001224
001228
00122E

001232
001236 .
00123t

00123E

xc

lOG!JU1H2.IU~I.u:JGOUllln4)

11'1

o !iU 11 ,11'110'

0012440

UJUN61 •

()O ()

001242

DATE
EC

130498

a'c
\.: .. ',

0, ,0··.,

I.,.. . .

" .....•

'

BC
TM
BC

ALl,INOW
SNSW,X 'CO' ,
NONE ,JOHN

BR. IF ON

BC
S10
BC
TM
8C
T10
Be
TM
8C
SIO
BC

NONE,ITRY2
0lR121
UNC,lTRYl
SNSW,X'".O'
NONE,IH!
0111.121
NCCO,lTRVl
SNSW,X'".O·
NONE,IHI
0111.121
UNC , I HANG
Rl,WTlH)
Rl,3
0lR121
CCO,JOHN
Rl,GREG
1 swe 2 It I SW
ISW,X'80'
IACTCC+5.C'X· .
oeR121
CCO,IZERO
CC l,lONE
CC2, lTWO
IACTce+5,X'F3 t .
UNC,INOW
iACTCC+5,X'F2t,
UNC ,INOW
IAeTCC+5.X'Flt
ICSWIIB),HCSWfR13)
ISW,X'.O' .
UNC,INOW
IACTce+"X'FO'
ISW,X'1F' .
OiRl1I,X'40'
AlL 01 SEN
lSW,X'lO'
R9,WTIR141
R9, 3
ISW,X'80'
MSKl
R9,.
MSK2
ISW,X'7F'
UNC tI SEN

8R. IF OFF
SIO, TIO. OR HID
811.. UNCONDITIONAL
CHECK SECTlOIII SENSE sWITCH
8R. IF OfF
TEST 1-0
BR. IF 1II0T CONDo CODE 0
CHECK SECTION SENSE SWItCH 1
8R. If OfF
START 1-0
BR. UNCONDITIONAL

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
SENSE SWITCH LOOPS
.
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ITRYl TM
SIIISW,X'80'
CHECK SECTION SENSE SWITCH 0

•

00U40

CHEt~ CONTROL sWITCH FOR NO X-O

41 10 f lE4'
91 CO F 004.
41 80 f lAO·

91 BO
47 80
9C 00
47 fO
91 40
41 80
9D 00
47 70
91 40
41 80
9C 00
47 FO
58 1E
B8 10
90 00
47 80
46 10
01 01
96 80
92 E1
9C 00
4780
47 40
47 20

F 004
f
C
F

'F

F
C
F
F
F

C
F
0

0
C

ITR,(2
KHANG

nil .

F
F
f
C
F
f

F

F
F
f
F
F
F

F
F

B
F
F

0

01:4 FOE4'
OE4
5Bf
000
lEO
lCE
1C6
5BF
lE4
58f
lE4
58F
656 0040
OE4
1E4
58f
OE4
000
288
OE4
198

JOHN

01

lSSUE

Irwo
lONE,

UERO

~NOW

MVI
SID
BC
BC
BC .
MVI
8C
MVI
BC
MVI
MVC
01.
BC
MVI
HI

TM
8C
01

UlAn

0 003
f
F
I"
F

L

SRL
TID
Be
BCT
XC

GREG

F 194.

L
SRL

OE4

01

673

SSM
BCT
SSM
NI
8C

204

614
F OEit
I" 288

49 COf 0311
47 60 f 236
94 lFf01:4
91 40 F 'OE4
41 lOF 266
92 01 1"656 F 040
96 40 I' OE4
41·1"0 F 270
D2 07 f 568 F 040
OA 00
0003

0039
0678
OA DO
05MA,(65,
124252

ILOOP

F lAO'

92 F3 F
47 FO f

92 f2
47FO
92 F1
02 01
96 40
47 FO
92 1"0
94 71"
91 40
47 10
96 10
58 9E
88 90
96 80
80 00
46 90
80 00
94 7f
41 1'0

16C
000
15C
004
18C
000
15C
004'
1BC
000
114
198
003
000'

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

•
ALL ·1-0 INTERRUPTS RETURN HERE
......................................................................
**.
IRETRN CH
8e
NI
TM
BC
MVC
OJ
Be
Iuto
MVC
sve
DC
DC
DC
SVC

UlAUG65
125580

o

MOVE IN A -X1-0 COMMAND- SIO, Tto, OR HIO
BR. If CONO. CODe 0
BR. IF CONDo CODE 1
811.. IF CONDo CODE 2
INDICATE CONO. CODE 3
8R. UNCONDITIONAL
INOICATE CONDo CODE 2
8R. UNCONDITIONAL
INDICATE eONO. CODE 1
SAVE CSW
iNDICATE 1 CSW
BR. UNCONDITIONAL
INDICATE CONDo CODE 0
TURN OFf HANG UP SWITCH
CHECK CONTROL SWITCH fOR NO ENABLE
BR. I F ON
INDICATE ENABLED ONCE
LOAD OM WAIT fACTOR
AOJUST
TURN ON HANG UP SW
ENABLE
WAIT
01 SA8LE
TURN OFF HAN.G SW
811.. UNCONDlT I ONAL

Ri2,lOOPSW+2.
UNHh 1 UJ 0
ISW,X'lf'
ISW,X'.O·
ALl,ISV2
ICSWl(81.HCSWIR15)
ISW,)('40'
UNe,INT3

WORKI8).HCSWiR15.
X'DO'
Al2l3t
AL2IJOOPSW+l-SECNDJ
A12(H/NEX+!S-SECNO)
)(·00' .

COMPARE FOR CURRENT 1-0 ADDRESS
8R. I F UNEQUAL
RESET HANG UP SW

8R. If 1 CSW ALREADY STORED
SAVE CSW 1
INDICATE 1 CSW STORED
8R. UNCONDITIONAL
CONVER1'AODRESS

PRINT 'UNEXPECTEO:tNTERRUPT DEVICE

15JUl\I6T

13049B'

o

00000000000'

t

00000
._--

....

~,...,.'"

o

I,

o

0 0 0 0 0 0 0 0 0 0 0) 0 0 0 0 0 0 0 0

.-..--_._---_._._.-----

..

,,-,,"

IBM MAINTENANCE DIAGNOSTIC PROGRAM

I

t

PIN 81t0191
PAGE
13

2540 PUNCH FUNCTION TESTS - SECTION 1 F8Z0

r'
i

I

Ir.. ........,. . •

'1'+

6= [

r'

0' 0 0 0 0 0 0 0

__

...........

,

'"?

........ , ......

S~CTION

-

........,.......

...

~

.

PIN 840191
PAGE
13A

IBM MAINTENANCE DIAGNOSTIC PROGRAM'
2540 PUNCH FUNCTION TESTS -

,~""""""'

1 F820

I

001246
001241 ;
00124B
00124A
001250
001254
00125A
00125E
001262
001266
00126C
001210
001214
001218 .
00121C
001280
001204 .
001288 .
00128C
001290
001294
001298 .
00129C
0012AO
0012A4 .
0012A8
0012AC
001280
001284
0012B8
0012BC
0012CO
0012e4.
0012e8
o012eC
001200 .
00120'0 :
001208 .
00120C·
0012EO
0012E4 :
0012EB
0012Ee
0012Fo·
0012F4
o012FB
o012FC
001302
001306 .
00130C
001310
001314
00131B
00131C
001310
00132'0
00132B
0013lE
00133l
001336
o0133A
00133E
001342
001346
00134A
001350
001354
001358
DATE
EC

64
OB
F616

02 Ol F 5C6
92 11 F 1tl3

02
45
96
47
02

02
90
02
FO
01

F 58F

F 50C F
F 3Ft
F OE4
F /tEE
F 65E'F
96 lO F OE4'
9110 8 000
41 BO F 28B
91 08 F OE4
47 10 F 288'
96 08 F OE4
47 FO F 1F4
91 02 BODO·
47 80 F 2BO
91 40 F OE4
47 80 F 306
91 02 F 65A
1t7 10 F 2BO
91 .20 F OEIt
1t7·80 F 306
91 .02 F 662
Itl 80 F 306
58 9E
198
88 90
002
Itl 80 F 668
50 80 0048
9C 0.0 C 000
1t7 70 F 351t
90 00 C 000
ItT 40 F 2Fo
46 90 F 2C8
47 FO F 306
91 40 F OE4
1t'7 10 F 354
41·Fo F 358'
91 .20 F OEIt
1t7 loF 351t'
It 7 : Fo F 358'
95 OC 0 044'
Itl·lo F 200
96 04 F OEIt
05 00 F 5F5 8
1t7 ·60 F 354
05 00 F 58F 8
1t7 60 F 351t
91 08 8 000
41·80 F 208
91 40 F OE4
47 80 F 354
48 8B 0 006
40 80 F 3lC
05 07F 656 F
47 60 F 354
91 Olt 8 000
47 80 F 2E4'
91 20 F OEIt •
47 ·80 F 351t:
Itl 88'0 '008 .
1t0:80F 31tE
05 07 F 65E F
47'80 F 358'
96 01 F OEIt
92 .61t.F 388'

50F

040'

INT3

ISEN

°°

0.'MAY65.
124252

ISVZ

IDOSNS

ITIOLP
ITIC
INOEXI
INOEXZ
ILOKE
005
004

656

65E

10AUG6'
lZ'580'

IBSN

ICCSWl

DC
OC
DC
MVC
MVI
MVC
8AL
01
BC
MVC
01
TM
BC
TM
8C
01
8C
TM
8C
TM
8C
TM
8C
TM
8C
TM'
8C
L
SRL
LA
ST
SIO
8C
TlO
8C
8CT
BC
TM
BC
BC
TM
BC
BC
CLI
8C
01
CLC
BC
CLC
BC
TM
Be
TM
BC
LH
STH
CLC
Be
TM
8C
TM
BC
LA
5TH

ICCSWZ CLC
BC
HolDER 01
IOUNCK MVI
22FEB66
12'621

15JUN67 :

130498

X'64'
ADDRESS
X'OB'
ALlIIUNEX-SECNO+REGI
IBLAH+lUI,ICSII
MOVE -CSII- TO MESSAGE
leNT,X'U'
ADJUST COUNT
IBLAH+23131,IAtT
MOVE -AeT- TO MESSAGE
R9,ICOUT
BR. TO OUTPUT CSII
ISW,X'02'
INDICATE UIO
UNe,ILOGEO
BR. UNCONDITIONAL
leSWll81,HCSIIIR151
SAVE CSW 2
ISW,X'20'
INDICATE 2 CSIIS STORED
01 Rlll,x'10' .
eHECK CTRL 511 FOR 2 INTR EXPECTED
NONE, I SEN
8R. IF NOT
ISW,X'08'
AlL,ISEN
BR. IF ALREADY ENA8LEO TIIICE
ISW,X'08'
INDICATE ENABLED TllleE
UNC,IIIAIT
0IRlll,X'02'
CHECK CONTROL SWITCH FOR SNS ON UC
NONE,IDOSNS
. BR. IF OFF TO ISSUE SENSE
ISW,X'40'
NONE,IBSN
BR. IF NOCSII STORED TO Bnass SENSE
ICSWl+4,X'OZ'
CHECK FOR UNIT CHECK
AlL,lOOSNS
IF VES 8R. TO ISSUE SENSE
ISW,X'ZO'
CHECK FOR SECOND CSII
NONE,18SN
BR. IF NOT TO BVPASS SENSE
ICSW2+It,X'OZ'
CHECK FOR UNIT CHECK
NONE,I8SN
BR. IF NOT TO 8VPASS SENSE
R9.WTlRI41
LOAD OM IIAIT FACTOR
R9.Z
CUT IT DOliN TO 2.5 SECS.
R8, I SENSE
LOAD SENSE COMMAND. ADDRESS
R8,HeAWIR131
STORE IN CAW
0lRl21
ISSUE SENSE
NCCO,INDER
8R. IF NOT ACCEPTED
OIR121
TEST 1-0
cel,ILOKE
BR. IF CSII STORED
R9, ITIOLP
UNC.I8SN
BR. UNCONDITIONAL
ISII,X'40'
ALL,INOER
8R. IF esw STORED
UNe ,lOUNeK
8R. UNCONDITIONAL
ISW,X'ZO'
ALL,INDER
8R. IF CSW 2 STORED
UNC,IDUNeK
BR. UNCONDITIONAL
HeSW+ItIR131oX'OC' .
CHECK FOR CE DE ONLV
NeCO,ITIC
8R. IF NOT
ISW,X'04'
INDICATE SENSE DATA RECIEVED
lAeSNS+5111 ,5IR1H
COMPARE FOR EXPECTED SENSE
UNEQ,INDER
8R. IF UNEQUAL
lAeTCC+5111 ,ItIR1U .
COMPARE FOR EXPECTED CONO. CODE
UNEQ,INDER
8R. IF UNEQUAL
OIRlllo X'08'
NONE,lNOEXl
BR. IF NO CSW EXPECTED
ISW,X'40'
NONE,INDER
.BR. IF NO CSW RECIEVEO
R8,61Rlll
LOAD CSW AD DR
R8,lceSW1+1t
STORE IN COMPARE INSTR.
leSW1I81, tCSll1
COMPARE.FOR EXPECTED CSII·
UNEQ,INDER
8R. IF UNEQUAL
OIRllIoX'OIt'
NONE,INOEXZ
8R. IF'NO CSII·2 EXPECTED
ISII,X'ZO' .
NONE,INDER
BR. IF NO CSW 2 RECIEVED
R8,81R81
UPDATE TO SECONOCSII
R8,ICCSW2+1t
ICSWZ I 8111CiSII2
COMPARE FOR EXPECTED CSW'2
EQ,IDUNCK'
8R. IF·EQUAL
ISII,X'Ol'
INDICATE AN ERROR
IFLAGl,X"64"
SET·UP FOR ERROR'PRINTIlUT
10
F82D-3
PAGE
13

i
I

I

I

I
i

I

I

00135C
001360
001364
001368
00136C
001370
001374
001378
00137E
001380
001382
001384
001386
001388
001389
00138A
OD13Be
001390
001392
001396
001398
00139A
00139C
00139E
0013AO
0013A1
0013A2
0013A4
0013A8
0013AC
001380
00138Z
001384 .
001386
001388
D0138A
001388 ,
00138C
0013BE
0013ez
0013e6,
0013tA'
0013ee
0013CE
001300
001302
001304
001305
001306 .
001308 .
0013DE.
0013EZ
0013E8
0013EC
0013FO
0013FIt '
0013F8
0013FC
0013FE
0011t00
0011t02
001404
0011t0A
OOIUO
001412
001413
001U4 '
001416·
DATE
EC

92
91
47
91
1t7

CO F 5ZC
01 F OE4
10 F 378
01 F 004 .
80 F 548 .
9l 24 F 388
92 80 F 52C
02 01 F 61C B 002
OA DO
0002
061C
061C
OA 00
64
09
F617
41 80 0004
1B B8
50 BO F 5A8
OA DO
0003
05A9
05A8
OA DO:
AD
10
F5A3
41 BB 0004
91 80 B 000
47 10 F42A
OA DO
0003
0610
0599
OA 00
AD
OF
F594
95 9C F'IAE
47:60:F 418
.50 AO F 588
OA DO
0003
05B9
0588
OA 00
AD'
OB
F583
DZ 02F 5C6'F5C2
9Z 16 F U3
02 07 F 568 A 000
45 90 F 3FC
91 eo A 004'
47 ·80 F 1t18
41 AA 0008
47 FO·F 3E2
OA DO·
0008
0568
0568
DZ 07 F"CA F '68
DZ 07,F5D3F"70
OA DO
AD
LA

F'C5
01 iF9'
OSMAV65
12425Z

tOAUG6S
125580

MVI
TM
BC
TM
BC
MVI
MVI
tOUT IT MVC
SVC
DC
DC
DC
SVC
IFLAGI DC
OC
DC
LA
SR
ST
SVC
DC
De
DC
SVC
DC
DC
DC
LA

TM
BC
SVC
DC
DC
~C'

SVC
DC
DC
DC
CLI
BC
ST
SVC
DC
De
DC
SVC
DC
De
De
MVC
MVI
ICIIDUT Mve
8AL
TM
8C
LA
Be
ICOUT SVC
DC
DC
DC
MVC
MVC
SVC
DC
ICNT
DC
DC
BCR
22FEB66' l'JUN67·
125621
130498'

1FtAGZ,X'CO'
I SII,X'OI' .
ALL,IOUTIT
SNSII.X·OI'
NONE,llEAVE
IFLAGI,X'ZIt'
IFLAGZIX"80'
ITSTNO+5IZ),ZCR11)
X'DD'
ALlI2)
ALlI ITSTN0+5-SECNOI
ALZIITSTNO+5-SECNOI
X'OO"
)('64'
X'09'
AL21ITSTND-SECNO+REGI
R8.1t
Rll,R8
Rll,ILlNK+5
X'DD'
AL2UI

CHECK FOR l DETECTED ERROR
8R. IF ERROR DETECTED
CHECK SECTION SENSE SIIITCH 7
8R. IF OFF
SET UP FOR CORRECT PRINTOUT
MOVE TEST NUM8ER TO PRINT
CONVERT TEST NUMBER

PRINT TEST NUM8ER

I
ADJUST LINK ADDRESS FOR PRINTOUT
CONVERT LINK ADDRESS

ALZIILINK+6~SECNO)

AL21ILINK+5-SECNOI
X'CO' .
X'AO'
X'IO'
AlZII LlNK-SECNO+REGI
Rll,4IRlU
OIRllIoX'IO' .
ALL.IOCS"
X'DD'
Al2U)
AL2110ADR-SECNOI' '
ALZIIOADOR+5-SECNOJ I
X'OO'
X"AO"
X'OF'
AL2110ADDR-SECNO+REG'
ISSUE,X'9C' .
UNEQ,leCOUT
RIO,IeAW+5
X'DD'
AL213)
ALZIICAW+6-SECNOJ :
AL21ICAII+5-SECNO'
X'OO'
X'AO'
X'OB'
Al2IICAII-SECNO+REGt
I8lAH+1I31,ICCII
ICNT,X'16'
WORKI81,OlRlOI
R9,IeOUT
ItIRIOI, X'CO'
NONE ,ICCOUT
R10,81R101
UNe,lCIIOUT
X'DO'
AL218)
ALZIWORK-SECNOI

PRINT LINK ADDRESS

BR. IF NO 1-0 COMMANO'iISSUED
CONVERT '1-0 ADDRESS

PRINT·I-OAOORESS

COMPARE FOR SIO COMMAND
BR. IF NOT
STORE CCII AODR.
CONVERT CAW

PRINT CAW

MOVE -CCW- TO MESSAGE
ADJUST tOUNT
MOVEecw TO WORK AREA
BR. TO OUTPUT CCII.
CHECK FOR ANY CHAIN FLAGS
BR. IF NONE
UPOATE TO NEXT CCII
8R. UNCONDITIONAL
CONVERT

ALZIIIORK~SECNO)

J8LAH+5(8toIlORK
IBLAK+.14C8I,WORK+8
X'DO' .
X'AO'
X'lA'
AU(IBLAH-SECNO+REG)
UNC,R9

MOVE TO MESSAGE
PRINT

AETURN VIA ItEC 9
10
F8ZD-3
PAGE
III

t.
IBM MAINTENANCE DIAGNOSUCPRDGRAM
i d~: ,~.,
.,.i

PIN 840191
PAGE
14

2540 PUNCH FUNCTIONTISTS - SECTION 1 F820

;

001418 '
00141E
001420 .
001421
001422
001424 '
001426 .
001421,
001428
00142A
001430
0014310 .
001438
00143C
001442 .
001446.
00144A
00144E
001452
001458
00145C
001460
001464 .
001464 i
001470
001414
001418 '.
00147C
001482
001488 .
00140C
001490 .
001494
00149A
0014AO
0014A4 :
0014AA
0014AE
001482
001484
001486 .
001480 '
00148A
00148(;
001480
DOHSE
0014CO
0014C2
0014t4
0014t6
0014CO
0014eA
0014C8
0014Ct
0014CE
001402
001406 00140A
00140E·
0014E2
DOlU6
OOl4EA
0014EE
.5

0014H -

00141'6.
00141'8
0014FA
00141'&

DATI!
EC

02 00'F5858 004
OA DO
AD
OA
1'500
OA DO
AD
OA
F5SA
02 02 I' 5C6 F 58F
92 lA F 413
91 08 8 000
47 80 F 45C
02 02 F'5DC I' 5E2
ItS 88 0 '006
"0.80 I' "56
41 88'0'000
40 80 I' 4t8602 07 F 560f 56845 90 F 3FC
91 40 F OE4t47 80 F 4t74
02 02 f 5DC. I' 501'
02 07 F 568'f 656 .
45 90 F 3FC
91 04 8 000'
47 110 F "8C
02 .02 F 5DC: F5E2
02 07 1'560 I' 568'
45 90 F3FC
91 20 I' ·OE4:
47 001' 4A"
02 02 F 5DC. F5DF'
02 07 F 568 F65E
45 90 F 3FC
D200:F·5EA·8-005
91 04 'FOE" '
"780'F-4I:6
OA DO
0001
05EA
05EA
OA 00
AO
08
F5E5
OA DO
OOal
051'5
051'5
OA DO
AO

oe

1'51'0
95 13 F 003
"7 AO F 41:6
95 1'4 f 5EA
47 80 I' 4E6
95 F4 F 5F5
41 80 F 142
95 30E 181
ttl 60F ,lit
02 DB II' 568E 01)0
OA DO
OOOC
0568
0568
0201 '600'568'
05NAY6'
124252

10AUB65
125580'

II:COU1' MVC
sve
DC
DC
DC
SVC
DC
DC
Dt
JoeSW MVC
MVI
TM
BC
Mve,
lH
5TH
lA
SfH

lCIiNGl Mve

BAl
TM
BC
Mve
MVC
BAl
IMORST'TM
BC
Mve
lCHNG2 Mve

,IDIOI

BAl

,TM
BC
MVC
MVC
BAl
IPAS
Mv.e
TM
8C
SVC
DC
DC
DC
SVC
DC
DC
DC
SVC
DC
DC
DC
SVC
DC
DC
DC
CLl
BC;
CLl
BC,
Cli
BC
IPASS eLI
1010

I

IIC

ILOGED Mve
SVC
DC
DC
DC
MVC
22FE866
125621

15JUN61I
130498

W"W

.err

iIiII'h "tw'

IBM MAINTENA~CE DIAGNOSTic PROGRAM!

PIN 840t91
. PAGE
14"

2540 PUNCH FUNCTION TESTS - SECTION 1 F820
IExpeC+5111.~IR111

X'OO'
X'AO'
X'OA,
Al2IIEXPCC-SECNO+REGI
X'DO'
X,AO'
X'OA'
Al21IACTce-SECNO+REGI
18lAH+1I3) ,ICSW
ItNT ,X'lA'
OIRU) ,X'08'
NONE,IDIDt
IBlAH+23(3J,IEXP
R8.6IRIU
RS. [CHNGl ....
R8,81R81

MOVE EXP CC TO MESSAGE
PRINT EXPECTED CONDo CODE

PRINT

AC~UAL

CONO. CODE

MOVE -CSW-TO MESSAGE
ADJUST tOUNT
8R. IF NO CSW EXPECTED
MOVE -EXP-TO MESSAGE

R8.1eHNG2+~

WORKI8) ,WORK
R9,ICOUT
ISW,X'40'
NONE, 'MORST
18lAH+23131.IACT
WORKI81.ICSWl
R9, ICOUT
OIRl1"X'O~'

NONE.JDID
18lAH+23131,IEXP
WORKI8},WORK
R9.1COUT
ISW,X'20'
NONE.IPAS
18lAH+23131,IACT
WORKIB),ICSW2
1t9,ICOUT
IEXSNS+5111.5IRl11
ISW,X'04'
NONE,IPASS
X'DO'
Al21l1
.Al2« t EXS~S+5-SECNOI
Al211EXSNS+5-SECNOI
X'OO'
X'AO'
X'OO'
Al211 EXSNS-SECND+REG I
X'OO'
Al2111
Al211ACSNS+5-SECNOI
Al21IACSNS+5-SECNOI
X'OO'
X'AO'
X'OB'
Al2IIACSNS-SECNO+REGI
SECNO+3,X'13' .
EQHI, JPASS
IEXSNS+5.C '4'
EQ,IPASS
IACSNS+5,C '4'
EQ.TElHIM'
SYSMODlk14),X'30'
UNEQ,lCUrO
WORK I 12J.LOGOUTCR14'

MOVE EXPECTED CSW TO WORK AREA
8R. TO OUTPUT EXPECTED CSW
8R. IF NO CSW STORED
MOVE -ACT- TO MESSAGE
MOVE ACTUAl·CSW TO WORK AREA
8R. TO OUTPUT ACTUAL CSW
DR. IF NOT EXPECTING 2 CSWS
MOVE -EXP- TO MESSAGE
MOVE EXPECTED CSW TO WORK AREA
8R. TO OUTPUT EXPECTED esw 2
8R. IF NO SECOND CSW STORED
MOVE -AtT- TO MESSAGE
MOVE CSW.TO WORK AREA
MOVE EXP SENSE TO MESSAGE
8R. IF NO SENSE DATA RECIEVEo
CONVERT EXPECTED SENSE

PRINT EXPECTED SENSE

PRINT ACTUAL SENSE DATA

.'00'

AU CWORK- SECNO)
AUf IIORK""SECNO) '.
10LOG+'U),WORK

MOVE 'LOG ooT;to MESSAGE
ID
"820-3
PAGE
l~

02 05 F 603F'56A
02 05 F 60A F 512
02 05 F .611 F 51A
OA 00
AD
lC
F5F8
91 02 FOE"
47 80. F 52A
9~ FD FOE"
47 FO F IF4
OA DO
CO
36
1'620
OA DO
AD
01
F5A3
50AO 0 ;0489i CO F 004
47 50 FISC
91 80 I' OE4
01 15
91 08 8 000
47 80 I' 554'
Itl 88 0002
"1 8BO 006
98 89 F 560:
01 FB

MVC
MVC
MVC
SVC
DC
DC
DC
ICUIO TM
8C
HI
8C
10POUT SVC
IFLAG2 DC
DC
DC
SVC
DC
DC
DC
ST
TM
8C
TM
BCR
IlEAVE TM
8C
l'A
LA
IUP
lM
8CR

10lOG+816I,WORK+2
IOlOG+l5l6I,WORK+l0
IOlOG+22( 6J ,WDRK+18
X'OO.
X'AO'
X'lC'
Al2CIOLOG-SECNO.REG)
ISW,X'02' .
NONE, 10POUT ISW,X'FO' .
UNe, J WAtT
X'OO'
X'CO'
X'36'
Al21IOPTl-SECNa+REG)
X'OO'
X'AO'
X'Ol'
Al21IlINK-SECNO+REGI
RIO,HCAWIRI3t
SNSW,X'CO'
ANY, IlR Yl
lSW,X'80'
All,R5
OlRll),X'08'
NONE,IUP
Rlh2CRll)
RU,6CRlU .
R8,R9,ISAVE
UNC,RU

PRINT lOG OUT

TEST 'FOR UNEXPECTED' 1-0 INTERRUPT.
8R. IF NOT-UIO
RESET'UIO SWITCH
8R. UNCONDITIONAL
PRINT LOOP OPTIONS

SPACE A LINE

STORE CAW·
CHECK SECTION SENSE SWITCH 0 AND 1
BR. IF ANY ON
RETURN VIA REG 5 IF HANG UP
8R. I"NO tsw eXPECTED
UPDATE LINK ADDRESS FOR RETURN

.........................................................................
RESTORE REGS 8'AND9
RETURN VIA REG 11

• .

00155E
00155E
001560
001566
001580 ;
001509 '
001584
001593
001594
001590
0015A3
0015A4 .
0015A3
0015At
001583
001584 '

SEE IF IN MANUAL INTERV RTNS.
8A IF YES.
SEE IF EXPECTED INTV REOD
BYPASS INTV REQO MESSAGE
SEE IF RECEIVED INTV REQo SNS
8R. ro PRiNT OUT INTV REQD MESSAGE
CHECK FOR MODEL 30
8R. IF NOT
MOVE lOG ooT·;TO WORK AREA
CONVERT

Al2H2) .

001502
001508 '
00150E
001514
001516
001517
001518
0015lA
00151E
001522
001526
00152A
00152C
001520
00152E
001530
001532
001533
001534 :
001536 .
00153A
00153E
001542
001546
001548
00154!:
001550
001554 '
001558
00155C

001583
00158C
00158F
0015C2
0015e5
0015CE
001505
00150E
00150F
0015E2
0015E5
0015EE
0015FO
0015F9
0015F8 '
001604 '
001608 i
DATe
EC

1-0 HANDLER WORK AREA.
.
.'
....................................................................
....

07 00
0000000000000000
40C3C3"040E740C5E7 '
07
"OC3C3~040E740CIC3·

CNOP;
BCIt
ISAVE DC
WORK
OS
IEXPCC DC

0,8
0,0
XL8'O'
2"C
C'CC . X EXP' .

IACTCCDC

E3

40CIC"D94OE7E1E7El
E7E740E7C9D6
00
0015A3
"OCIC40940E7E7E7E7·
E7E740D3C9D502
00
001583
40e3CIE6"OE7E1E7E7
E7E740.
t3E2E6
C3C3E6
.
40C3E2E640E7E7E7E7
E7E1E7E740E7E7

IOADDR DC

C' ADR XXXXXX XIO' .

DC
CNOP
ORG
lUNK - DC

.-1

05MA165
12"252

lOAUS65125580

C· ADR XXX XXX LINK'

ICAW

DC
CNOp·
DRG
DC

X'OO'
0,"
.-1
C' CAN XXXXXX •

ICSW
ICCW
18LAH

OC
DC,
DO

C'CSW' .
c'cew'
c' CSW XXXXXXXX XX'.

DC

C' XXXXXX EXp· .

IACT
DC
IEXP
DC
IEXSNS DC

COACT' C'EXP'
C' .SNS XX EXP'

IACSNS DC

C' 'SNS XX ACT' .

IOL06

DC

C'LOGXXXXXXXXXI.

DC

C· XXXXX XXXICXX' -

E7E7E7E7E7El~OC5El

07
Cle3E3
C5E7D7 40E205E2"0.E7E740C5
E701
40E2D5E21tOE1E140el .
C3E3
40D306C14OE7E740E7
E7E7E7E7E740E7
E7E7E1E7E740E7E1El·

X'OO'
0,"

221'&866
125621

15JUN61
130498

ID
'820-3
, 'AGE
14"

h

oobooooooOOOOOOOOOOOOOOOOOOOOOOOOO

*

'f

0000000000000000000000000000000000
ittdt.i.il
IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840191
PAGE
l'

2540 PUNCH FUNCTION TESTS - SECTION 1 F820

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840191
PAGE
15A

250\0 PUNCH FUNCTION .TISTI- SECTioN 1 F810
~

,

.i

001610\ '
E1E1El
001611
40E3E2E340E1E1E1El •
001620
40E2C5E30\0E2E20\0FO,
001629
40060540C60609
.
001630
40030606074006050\0
001639
E1C9066B1tOE2E2
001640
40flO\006050\0C606D9
001649
40E3C90640E2C9
001650
064003060601
001656
0000000000000000'
00165E
0000000000000000
001668
04 0015F5 0000 0001
001610
OOlUE
001613
FE
001614 '
01
001615
00
001616
40E4C9D640E7E1E1El
00161F
E1E1
001682
001682
07 00
001684. 01 00
001686 . 07 00
00168B
0000000000000000
001690
001692
001696
00169A
00169C
0016AO
0016A4
0016A8
OOlbAC
001b80

001684
001686
00168C
00168E
00168F
0016CO
0016C2
0016C6
0016CA
0016CE
001602
001602
001604 '
001608
001128
001131 .
001138 .
001141

001142
001144
001145
001146
001148
00114A
00114B
00114C
OOlHE
001750
001151

t.__._~~_T_E

"

lB 00
91 40
41 80
18 OF
5B to
54 CO
91 80
47 10
92 03
41 AO
07 F4
02 00
OA DO
60\
U
F128
96 01
45 50
92 00
41 FO

C' TST XXXX'
C' SET SS 0 ON FOR'

DC

C' LOOP ON XIO. SS'

DC

C' 1 ON FOR TlO SI'

001752
001154
001756
00175A
00115E
00115E

DC
ICSWI DC
ICSW2 DC
ISENSE CCW
10AOR DC
MSKI
DC
MSK2
DC
RTSV
DC
JUNEX DC

C'O LOOP'
XL8'O'
XL8'O'
X'04"IACSNS+5.X'OO',1
AL3C ISSUE I
X'FE'
X'Ol'
X'OO'
SAVE RT NO. FOR HANGUP.
C' UIO XXXXXX' .

CNOP
BCR
BCR
BCR
ISLAVE DC

0,8
0,0
0.0
0,0
XU'O'

FFAF
OA OA
90 OOC 000
41 FO F 132
07 00

INIT

E 196
F 69C
F
F
F
F
F
F

OEO
600\'
OE4
6B6
F58
F58'

F 003 F 615

F
F
F
F

OE4
280
OEO\
bAo\

400709C5E5C906EO\E2
40CBCID5C140E4
D140C4C5E3C5C3E3C'
C4

OA DO
80
01
FF60
OA DO
AO:
22
FF04 .
OADO
80 :
25

SR
TM
BC
LR
NITIIIT L
N
BLOOP TM
BC
MVI
LA
BeR
HANGUP MVC
SVC
DC
DC
DC
OJ
BAL
MVI
BC
CNOP
BCR
MOD50 DC
PCHAR DS
HUNG
DC
DC

X'lA'

AL2IHUNG-SECNO+REGI
ISW,X'Ol'
R5,IOOSNS
ISW,X'OO' .
UNC,BLOOP
0.1t
0,0
X'00003FFP'

eoc

C' PREVIOUS HANG U'

00176G
001761
001764
001768
00176C
00176E
001170
001712
001174

01
000771t
ItS 40 F 690
45 BO F OFA
0200
0010
FOOO
OA Db

22PE866
125621

15JUN61.
130498

HALT FOR MANUAL INTERVENTION
CLEAR PENDING INTERRUPT

ZERO REG 13
CHECK FOR FORCED PROBLEM STATE
BR. IF NOT
SET UP FOR P.R08LEM STATE
PUT PCH UNIT TA8LE IN 12.
AND OUT ALL BUT' ADDRESS.
CHECK FOR HANG UP
8R. IF DETECTED
PUT A NOOP INTO CCW.

RETURN VIA REG 0\
RESTORE RT NO.
PRINT
-PREVIOUS HANGUP DETECTEDSET UP HANG UP SWITCH
BR. TO OUTPUT AVAILABLE INFO
RESET HANGUP SWITCH

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ROUTOl DC
X'OI'
ROUTINE NUMBER.
DC
BAL
BAL
DC
DC
DC
SVC
CNOP

•
•
•

001174
001715
001178
00117t
001180
001184 '
001786
00178B'
0017BA
00178E
001790
001192
001794 '
001196
00179A
00119C
00179E
0011AO
0011A2
0011A2

AL3CROUT02-SECNOI
R4. IN n
Rll,nIO
X' 0200'
X'OOIO'
X'FOOO'
X'06'
0,4

ADDRESS OF NEXT ROUTINE.
BR. TO I NIT IALI ZE
BR. TO ISSUE TIO
CONTROL SWITCHES
T EST
N U M B E R
EXP CDND CODE - EXP SENSE
ROUTINE EXIT

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ROUTINE 02- ISSUE A 'SENSE SID -0It· EXPECT CONDo CODE 0 ON THE SIO.

REGISTER SAVE AREA

02
0007A4
45 ItO F 690
9204 '.FF58
'" BO:F '10E
4200
DOlO
FOOO
ItS BO F OFA
ItAOO
0030
FlOO
FFitC
45 BOF OFA
0200
00"0
FOOO
OA Db
01 00

ISSUE A'TIO EXPERT·CONO. CODE I WITH CHANNEL END - DEVICE
END IN THE CSW. ISSUE ANOTHER TID AND EXPECT CONO •
CODE O.

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
X'02'
ROUTINE NUMBER.

ROUT02 DC
DC
BAL
MVI
BAL
DC
DC
DC
BAL
DC
DC
DC
DC
BAL
DC
DC
DC
sve
CNOP
BCR

AL3IROUT03~SECNOJ
ADDRESS OF NEXT ROUTINE
R4,INIT
BR. TO INITIALIZE
CCW,X'OIt' , I N S U R E SENSE CCW
R11. J SIO
BR. TO I SSUE SENSE
X' "200'
CONTROL SWITCHES
X'0020'
T eST
N U M B E R
X'fOOO'
EXP. CONDo CODE - EXP. SENSE
RII,ITIO
BR. TO ISSUE TEST 1-0
X'ItAOO'
CONTROL SWITCHES
X' 0030'
T EST
N U M B E R
X'FI00'
EXP. CONDo CODE - EXP. SENSE
Al2CPROCSW-SECNO+REGJ EXP. ADDRESS OF CSW
RIl,lTIO
BR. TO ISSUE TEST 1-0
X' 0200'
CONTROL SWITCHES
X' 001t0' .
T EST
N U M 8 E R
X'FOOO'
EXP. CONDo CODE - EXP. SENSE
X'D6'
ROUTINE EXIT
0,4
0,0

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

PUNCH WORK AREA

• ROUTINE 03- ISSUE A SENSE SID -0It- EXPECT CONO. CODE 0 WITH CHANNEL
•.
END oEvtce, END· INTERRUPT. ISSUE TEST 1-0 EXPECT CONO
•
CODE o.

C'P DETECTED'

X'OO' .
PRINT A BLANK
X'80'
It
X'OI' .
'.'
AL2CBYPASS-5ECNO+REG'
It
X'OO'
PRINT OPERATOR INSTRUCTIONS
X'AO'
-PLACE.8LANK CARDS
X'22' .
IN PUNCH HOPPER-

AL2CPCH~SECNO+REGt

X'OO' •
X'80' .
X'25' ,

AL2IPCH3-SECNO+REGI
X'DA' .
OCR12)
UNe,GOMAN
0,4
0,0

• ROUTINE 01- ISSUE A TEST 11-0 TO AN AVAILABLE AND IDLE DEVICE.
•
EXPECT CONonlON CODE O.

.......................................................~...............
•
INTeRVENTION REQUIRED MESSAGE
.......................................................................
TELHIM SVC
DC
DC
DC
SVC
DC
DC
DC
SVC
DC
DC

lOAUG65
125580.

Rl3,RI3
406CRI41,X'ItO'
NONE,NITWIT
Rl3,R15
Rl2,UNITl
R12,MOD50
ISW,X'BO'
ALL,HANGUP
CCW,X'03'
RiO,CCW
UNC,R4
SECNO+3111,RTSY
X'OO'.
X'61t'

DC
SVC
TlO
BC
CNOP,
8CR

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

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
INITIALIZE ROUTINE
.......................................................................

07 00
00003FFF

05MAY6!!,
124252

ITSTNO DC
10PTl DC

-HAKE THE PUNCH OPERATIONAL
AND READY-

ID
F820-3
PAGE
15

0011AIt '
0011A5
0011A8
0011AC
0017BO
0011B4
0011B6
0017BB
0011BA
001leC
0011CO
0017C2
0017e4
0017C6
00nC8
DATE
EC

03
0007e8
45 40 F 690
92 'OItF F5B'
45 BO FlOE
2AOO
0050
FOOO
FF4C
1t5 BO f OPA
0200
0060
FDoo
OA Db

05HAU5
124252.

10AUG65
125580

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ROUT03 DC
X'03'
ROUTINE NUMBER
DC
BAL
MVI
BAL
DC
DC
DC
De
BAL
DC
DC
DC
sve
CNOP'

22FE866
125621

15JUN67
130498

AL3CROUT04-SECNO)
RIt.INlT
CCW,X'Oltt .
Rll.lSIO
X' 2AOO'
X'0050'
X'FOOO'
AL2IPRDCsw-secNO+REGr
R11.ITlO
)('0200'
X'0060'
X'FOOO·

X'D6'

O,It

ADDRESS OF NEXT ROUTINE
BR. TO INITIALIZE
INSURE SENSE CCW
BR. TO ISSUE SENSE
CONTROL SIIITCHES
T EST
N U M 8 E R
EXP. COND. CODE - EXP. SENSE
EXP. ADDRESS OF CSN
BR. TO ISSUE TEST ·1-0
CONTROL SWITCHES
T EST'
N U iii B E R
EXP .. COND. CODE - .EXP. SENSE
ROUTINE EXIT

10
'820-.3
PAGE
'15A

• i..

,'.,

IBM MAINTENANCE DIAGNOSTIC PROGRAM
PIN 840191
PAGE
16
2540 PUNCH FUNCTION TESf.S- SECTION 1 F820

2540 PUNCH FUNCTION TESTS -

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

• ROUTINE 04-. ISSUE NOP -03- EXPECT CONO. CODE 1 ON THE START 1-0 WITH
•
CHANNEL END AND DEVICE END STORED IN THE CSW.
•
NO INTERRUPT SHOULD OCCUR.
,

0017C8
0017C9
0017CC
001700
001704.
001708
00 17 I)C
0017DE

DOllEO

04
0007E8
4' 40 F '690 :
92 03 FF58'
41 AD F 'F!Se
45 80 F'lOE
OAOO,
0010
FlOO

0017E2
00171:4

OA D6

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ROUT04 DC
X' 04'
ROUTI NE NUM8ER
DC
BAl
MVI
U
Bi'll
DC
DC
DC
DC
SVC
CNOP
Btl!.

FF02

00171:6
0017E6

01 00

AL3IROUT05-SECNOI
R4. HilT
CCW,X'03' ,
R 10,I:CW .
IUl,lSlO
X'OAOO'
X' 0070'
X'flOO'
Al2INOPC5W-SECNO+REGI
)('06'
0.4
0,0

ADDRESS OF NEXT ROUTINE
BR. TO INITIALIZE
iNSURE CCW TO PERFORM NO OPe
LOAD NDOPCCW ADDRESS
SR. TO ISSUE START 1-0 NOOP
CONTROL SWITCHES
T EST
N U M B E R
EXP. tOND. CODE - EXP. SENSE
EXP. CSW ADDRESS
ROUTINE EXU

• ROUTINE 05- ISSUE A PUNCH FEED STACKER SELECT POCKET 2 ·41-.
ENA8lE
•
FOR ONE INTERRUPT ONLY.
EXPECT CONDo CODE 0 AND CHANNEL
• ,
END IN CSN.
•
ISSUE A TEST 1·'0 BEFORE DEViCE END OCCURS.
EXPECT CONDo
•
CODE 1 WITH DEVICE BUSV ONLY IN THE CSW.
AFTER DEVICE
•
BUSY HAS OCCURED EXPECT AN INTERRUPT WITH DEVice END FROM
•
THE INITIAL PUNCH COMMAND.
REPEAT FOR START 1-0. EXPECT
•
SAME RESULTS.
REPEAT FOR HALT 1-0.
EXPECT CONDo CODe 1
•
\lUll A lEI'UJED CSW STORED.
NOTE-- THIS ROUTH!E Will BE IlVPASSED IF SECTION SENSE
SWnCH 1 IS ON.

• ,
•

OOBES·
0017E9
OOllEC
00111'0
00111'4
001H8
00111'(;
001600
001802

001804
001806
001808

oouloe
OOlaGE

001610
00 1 IH:/!
001814
DOHBS
0018lA

00181e
001111E
001820
001824
0011126
001628
001824
00182(;

oOlno
OOHll2
001834
0011136

001838
00183C

0018310

'\.

o

()

o

DC

™

BC
SAl.
"'VI
BAl
DC
DC
DC
DC
IlAl
DC
DC
DC
DC
BAl
DC
DC
DC
DC
BAi.
DC
OC
DC
DC
8Al
DC
Ill';
DC
DC,
BAl
DC
DC

FFOA
4580·1' lOE
21'100
0120
FOOD
FF3C
BO FOE..
3tO!) .
0130,

It,

05MIW65
124252

,,,";"

.......
*.*.****
•••• **.**•••••• *••••ROUTINE
** ••••••• *••••••••••••••••••••••••••
ROUT05 DC
X'05'
NUMIlER

05
0001148
91 01 F 004
41 10 FEttE
45 ~,o I' 690
92 41 F F58·
45 no FlOE
21'100
0080
FOOD
FF3C
45 110 F OF"
3COD
OO'}O
FlOO
HOA
45 110 FlOE
Z400
0100
FOOO
FF3C
45 60 F HIE
3COO
DUO
FlOO

10AUG&!I

2~fEB66

1425580

125621

a ()

Al3IROIJT06-SECNOl
SNSW,X'Ol'
All,SOlONG
R4.1Nlf
CCW,X'41'
RU,ISH)
X'ZAOO'
X'0080'
X'FOOO'
Al2IPFRCSW-SECNO+REGI

0011140
001B42
0011144
001846
001846

SECTION 1 FII20

FlOO
FFlA
011. D6

DC
DC
SVC
CNOP
BCR

01 00

ADDRESS OF NEXT ROUTINE
TEST SECTION SENSE SWITCH 7
BR. TO BYPASS RTN IF SS 1 IS ON
SR. TO INn IAU IE
INSURE PUNCH
BR. TO ISSUE SIO PUNCH
CONTROL SWITCHES
T EST
N U '" B E l l .
EXP. CONO CODE - EXP. SENSE
EXP. ADDRESS OF CSW
Rll,Ino
SR. TO ISSUE TEST 1-0
X' 3COO'
CONTROL SWITCHES
X'0090' .
T EST
N U M BEll.
X'F100'
EXP. CONDo COOE - EXP. SENSE
AL21 OS! Z-SECNO+REGI
EXP. CSW ADDRESS
RU,ISIO
8R. TO ISSUE SIO PUNCH
X'2AOO'
CONTROL swncuES
X'OlOO'
T EST
N U M BEll.
X'FOOO'
EXP. CONO. CODE - EXP. SENSE
AL2IPFRCSW-SECNO+REGI EXP. ADDRESS OF CSW
Rll.IS!O
SR. TO ISSUE START 1-0
X' 3COO'
CONTROL swnCHES
X'OHO'
T EST
N U 1'1 B E l t
X'flOO'
EXP. COND CODE - EXP. SENSE
AL2108Il-SEtNO+REG'
EXP. CSW ADDRESS
R11.ISIO
SR. TO ISSUE SIO PUNCH
l(,21100'
CONTROL SWITCHES
X'0120'
T EST
N IJ iii B E R
X'FOOO'
EXP. CONO. CODE.- EXP. SENSE
AL2IPFRCSW-SEtNO+REGl EXP. ADDRESS OF CSW
RlhlHlO
8R. TO ISSUE HALT 1-0
X'3COO'
CON1'ROl SWiTCHES
)('0130'
TEST
NU'Mi!lER

ceM

EXP. CONDo CODE - EXP. SENSE
EXP. CSW ADDRESS
ROUTINE EXIT

.......

...............................................................
•• ••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ROUTINE 06- ISSUE A PUNCH FEED STACKER SelECT POCKET 2 -41-.
ENABLE

001848
001849
001S4C
001850
001854
0018511
DD185C
001860
0011162
001864
001866
001868
00186C
001B70
001811t
001818
00181C
001 81 I!
001880.
, 0018B2
0018B4
001888
0018U
OOlBU

DC
SAL
TM
BC
"'VI
BAL
DC
DC
DC
DC
MVI
L
SRl
BCT
8AL
DC
DC
DC
DC
MVi
SVC
CNOP
BCR

0100

00188C
001880
001890
0011194
00189B
001891:
00189E
DOIBAO;
0018A2
.00181'16
aOlUAB'

OOleu
OOUAC
001880

00

AL3IROUT01-SECNOI
R4,INIT
SNSW,X'Ol'
ALl,SOLONG
CCW,X'41'
R11,ISIO
X' 211.00'
X'0140'
X'FOOO'
Al2IPFRCSw-SECNO+REG)
CCW,X'F5'
R4,WTIR14)
11.4,4
R4,.
Rll.ISIO
X'38DO'
X'0150'
X'FtOO'
AL2IDlllY-SECNO+REG)
cCW,X'03'
X'D6'
0,4
0.0

ADDRESS OF NEXT ROUTINE
BR. TO INITIALIZE
TEST SSW 7 •
BR IF ON •
INSURE PUNCH CCW
BR. TO ISSUE START 1-0
CONTROL SWITCHES
T EST
N U M B E R
EXP. CONDo CODE - EXP. SENSE
E~P. ADDRESS OF CSW
SET UP INVALID COMMAND
SET UP WAIT FACTOR
ADJUST WAlT FACTOR
WAlT
BR. TO DO START 1-0
CONTROL SWITCHES
T EST
NUll 8
E R
EXP. CONDo CODE - EXP. SENSE
EXP. CSW ADDRESS
REPLACE NOOP COMMAND
ROUTINE EXlT

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• ROUTINE 01 - A PUNCH AND FEED -41- IS ISSUED.
NO INTERRUPTS ARE
CLEARED.
THE SAME COMMAND IS ISSUED AGAIN.
EXPECT
CONDITION CODE 2 DUE TO PENDING CHANNEL END.
ISSUE A
HAL T 1-0. EXPECT CONDITION CODE o•. ISSUE A TEST 1-0
EXPECT CONDo CODE 1, WITH CHANNEL END IN THE CSW.
EXPECT CONDo CODE 1 WITH A ZEROED
ISSUE A HALT 1~0.
C SW STORED.
J SSUE PUNCH AND FEED START' 1-0 AGA IN
EXPECT CONDo CODE 1 WITH DEVICE END AND DEVICE BUSY.
STORED IN THE CSW.
ISSUE HALT }-o. EXPECT CONDo CODE
WITH A ZEROEDCSW STORED.
ISSUE TEST 1-0.
EXPECT
CONDo CODE O.

,
.
'
.
.

1

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ROUT01 DC
X'07'
ROUTINE NUMBER

01
000900
45 40 F 690
92 41 I' F5B
45 80 FlOE
4200
0160

DC
8AL
MVI
BAL
DC
DC
DC
BAL
DC
DC
OC
L
SRi.

FOOD
45 80 flOE
4200
OlTO
1'200
58 9E 0 198
86 90 0 004
10AUG65
125560

o

FOR ONE INTERRUPT ONLY.
EXPECT CONO. CODE 0 WITH CHANNEL
END ONLY IN CSW.
ISSUE AN INVALID COMMAND BEFORE DEVICE END OCCURS.
EXPECT CONDo CODE 1 WITH DEVICE END AND DEVICE BUSY ONLY
IN THE CSW.
EXPECT NO SENSE 8ITS TO 8E SET.
NOTE-- THIS ROUTINE WILL BE BVPASSED IF SECTION SENSE
SWITCH 7 IS ON.

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ROUT06 DC
X'06'
ROUTINE NUM8ER

06
000811C
45 40 F 690
91 01 F 004
41 10 F E4E
92 41 F F58
45 80 FlOE
211.00
0140
FOOD
FHC
92 F5 F 1'58
511 4E 0 19B
88 40 0 DOlo .
46 40 F B14
45 BOF 10E
3800,
0150
FlOO
Ff2A
92 03 F F58'
OA D6

•
•
•
•
•
•
•
•
•
•

o

X'F.IOO·
AL2ICSWo-SECNO+REG)
X'D6'
0,4
0,0

~

DAlI!
lEt

,0

PIN 1140191
PAGE
16A

•
•
•
•
•
•
•

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••••••••••••
** •• *•• *•••••••••• *•••••••••••••••••••••••

.'

IBM MAINTENA!IICE DIAGNOSTIC PROGRAM'

221'1:966

1!3JUN6'7 ;

125621

130498

AL31 ROUTOB-SECNO)
R4,INIT
CCW.X'41' ,
Rll,lSIO
X'4200'
X'0160' .
X'FOOO'
RlltlSlO
X' 4200' ,

x·ono·

X t F200'
R9,WTIR14)
R9,,.

ADDRESS OF NEXT ROUT INE
BR. TO INITIALIZE
INSURE PUNCH CCW
BR. TO iSSUE SIO
CTRL SWITCHES
. T' E S T
N U M B' E
UP CONDo CODE AND :$ENSE
BR. TO ISSUE S10
CTRL SWITCHES
T EST;
N U' M B E
EXP CONDo CODE AND S~NSE
LOAD WAIT FACTOR
ADJUST :

R

R

10
1'820·~
PAGE!
16"

000000000 0000

il..JkriiI!iieM*nwte!YZNHtr

tt

PI! 'Us

• t

*

l'

0000000000000000000000000000000000

IPM MAINTENANCE DIAGNOSTIC PROGRAM

PIN

17

2540 PUNCH FUNCTION TIStS - SECTION 1 f820

Z540 PUNCH FUNCTION'TISTS'- SECTION 1 FIZO

I
1

i

;

001884 :
001888·
00188C
00188E
0018CO;
0018CZ
0018C6
0018C8 .
0018CA
0018CC.
0018CE
0018DZ
001804 .
001806 .
001808
0018DA
0018DE
0018EO
0018EZ
0018E4
0018E6
0018EA
0018EC
0018EI
0018FO
0018FZ
0018F6 .
0018F8 .
0018FA
0018FC
0018FI
0018FE

8CT
8Al
DC
DC
DC
8Al
DC
DC
DC
DC
8Al'
DC
DC
DC
DC
8Al
DC
DC
DC
DC
8Al
DC
DC
DC
DC
8Al
DC
DC
DC
SVC
CNOP
8CR

46 90F '8M
45 80 FOE6
4Z00
0180
FOOO'
45 80 F OFA
4AOO
0190
FlOO
FF3C
45 80 F 'OE6'
4AOO
OZOO
FlOO
FFlA
45 80 FIDE
0800
OZIO
FlOO
FF2A
45 80 FOE6
4AOO
0220
FlOO
FFlA
45 80 FOFA
4200

ono

FOOD
OA D6

R9,.
RU,IHIO
X'4200'
X'0180'
X'FOOO'
RU,ITIO
X'4AOO'
X'0190'
X'FI00'
Al21PFRCSW-SECNO+REGI
RU,IHIO
X'4AOO'
X'0200'
X'F100'
Al21CSWo-SECNO+REGJ
RU,ISIO
X'0800'
X' 0210' ,
X'FIOO'
AlZID8ZY-SECNO+REGI
RU,IHIO
X'4AOO'
X'0220' .
X'FIOO'
AlZICSWo-SECNO+REGI
RU,ITIO
X'4200'
X'0230'
X'FOOO'
X'D6'
0,4'
0,0

lOOP UNTIL COUNT OF ZERO
BR. TO ISSUE HALT 1-0
CTRl SWITCH
T EST
N U M B
EXP CONO. CODE AND SENSE
BR. TO ISSUE TEST 1-0
CTRl SWITCHES
TEST
NUM8
EXP CONO. CODE AND SENSE
EXP. ADDRESS OF CSW
8R. TO ISSUE HALT 1-0
CTRl SWITCHES
T EST
N U 1'1 B
EXP COND COSE AND SENSE
EXP CSW ADDRESS
BR. TO ISSUE SID
CTRl SWITCHES
TEST
NUMB
EXP CONO. CODE AND SENSE
EXP CSW ADDRESS
BR. TO ISSUE HALT 1-0
CTRl SWITCHES
T EST
N U 1'1 ... 8
EXP COND CODE AND SENSE
EXP CSW ADDRESS
BR. TO ISSUE TEST 1-0
CTRl SWITCHES
TEST
NUMB
EXP COND CODE AND SENSE
Roun NE EX IT

E

E R

R

E

R

E

R

E

R

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

08
00093C
45 40 F 690.
92 41 F F58
45 80 FIDE
3EOO
0240
FOOD
FF3C
92 C2 F F58
45 80 FIDE
2800
0250
FOOO
FFftC
92 C6 F F58'
45 80:F 'IOE
2800,
0260
FOOO
FFftC
OA D6

ROUT08 DC
DC
BAl
MVI
BAl
DC
DC
DC
DC
MVI
,8Al
DC
DC
DC
DC
MVI
BAl
DC
DC
DC
DC
SVC
CNOP
BCR

01,00

X'08'
Al31ROUT09-SECNOI
R4,INIT
.
CCW,X'4!'
RU,JSIO
X'3EOO'
X'0240'
X'FOOO'
AlZIPFRCSW-SECNO+REGI
CCW,X'CZ'
.
Rll,lSIO
X'Z8DO'
X'0250'
X'FOOO·.
AL2(PRDCSW-SECNO+REG)
CCW,X'C6'
R1l,ISIO
X'Z8DO'
X'0260'
X'FOOO'
AlZ(PROCSW-SECNO+REGI
X'06' .
0,4
0,0

ROUTINE NUM8ER
ADDRESS OF NEXT ROUTINE
8R. TO INITIALIZE
INSURE PUNCH CCW
BR. TO DO START 1-0
CONTROL SWITCHES
T. E S T
N U 1'1 8 E R
EXP. CONDo CODE - EXP. SENSE
EXP. AODRESS OF CSN
INSURE OIAG READ CCN
8R. TO 00 START 1-0
CONTROL SWITCHES
T EST
N U M· 8
E R
EXP. CONDo CODE-EXP. SENSE
EXP. ADDRESS OF CSN
INSURE DIAG CHECK READ
BR. TO DO START 1-0
CONTROL SWITCHES
T EST
N U 1'1 8
E R
EXP. CONO.·CODE.- ~XP. SENSE
EXP. ADDRESS OF CSN
ROUTINE EXIT

t

L
'i

.......................................................................
.......................................................................
• ROUTINE 09- ISSue All VALID PUNCH FEED READ COMMANDS SF THE FEATURE

DATe
IC

05MA'6S
124Z'2

IOAUG65

2lFE866

I'JUN61

125580

Il'6l1

130498

IS NOT PRESENT ON THE DEVICE. WHEN PFR FEATURE IS
NOT PRESENT ANDPFR COMMANDS ARE ISSUED, THE COMMANDS
ARE DECODED AS A NORMAL PUNCH FEED STACKER SELECT COMMAND
EXPECT CONDo CODE 0 ON THE START 1-0 WITH CHANNEL :ENO
AND THEN DEVICE END INTERRUPTS.

•
•
•
•
•

ISSUE All VALlO .PFR READ COMMANDS. THESE COMMANDS WIll·
BE DECODED AS A DIAGNOSTIC READ COMMAND.
EXPECT CONDo CODE 0 WITH CHANNEL END AND OEVICE END
TOGETHER.
NOTE THIS ROUTINE 8YPASSED IF PFR FEATURE DEFINED.

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

I

• ROUTINE 08- I SSUE A PUNCH FEED STACKER SELECT -41- EXPECT CONDo
•
CODE 0, WITH CHANNEL END AND DEVICE END. IN SEPARATE'
CSWS.
ISSUE A DIAGNOSTIC READ -C2- EXPECT COND CODE
•
•
0 WITH CHANNEL AND DEVICE ENDS TOGETHER IN ONECSW.
•
ISSUE A DIAGNOSTIC CHECK READ -C6- EXPECT SAME'RESULTS
IN STATUS AS DIAGNOSTIC READ.
•

001900
001901
001904
001908
00190C
001910.
001912
001914
001916
001918
00191C
001920
001922
001924
001926
001928
00192C
001930
001932
001934
001936 .
001938
00193A
oo193A

••

••
••

R

.........................................................................
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

01 00

PIN 840191"
PAGE
l1A

IIMMAINTINANCI DIAGNOSTIC P~OGRAM

140191

PAGE

II>

F820-3

!1

,j
IJ

00193C
001930
001940
001944
001948
00194C
0019ltE
001950
001952
001954' .
001958 '
00195C
00195E
001960
001962
001964
001968
00196C
00196E
001910
001912
001914
001918
00191C
00191E
001980
0019Bl
001984
001988
00198C
00198E
001990
001992
001994 '
001998
00199C
00199E
0019AO
0019A2
0019A4 .
0019A8
0019AC
0019AE
0019BO
0019B2
001984 '
0019B8
0019BC
0019BE
0019CO
0019C2
0019C4 '
0019C8 .
0019CC
0019CE
001900
DATI

09
000818
45 40 F 690
92 C2 F 'F58
45 BO FlOE
2AOO
02r.5
FOOD
FF4C
92 29 F FlO8'
45 80 FLOE
3EOO
0210
FOOO
FF3C
92 C2 F F58
45 80 FlOE
2AOO
0280
FOOO
FF4C
9l 39 F F58
45 80 FLOE
3EOO
0290
FOOO

FHC
92 02 F F58
45· BO FlOE
2AOO
0300
FOOO

FHC
92 69 F F58
45 BOF 10E
3EOO
0310
FOOO
FF3C
92 E2 F F58
45 BOF IDE
2AOO
0320
FOOD
FF4C
92 19 F 1'58
45 BO FLOE
3EOO
0330
FOOO
FF3C
92.F2 F F58'
.,., 80F 10E
lAOO

0340
FOOO
0'M.Y65,

'~~~'M~i"~'*~~~.•",~N~.~~P_AG_E~.-1_' ~h!~,.~,~E~~~~~1_2~4_25~2
__

10AUG65

ROUT09 DC
X'09'
ROUTINE NUMBER
DC
Al31ROUTlo-SECNO)
ADDRESS OF NEXT ROUTINE
BAl
R4,INIT
8R. TO INITIALIZE
MVI
ccw,X'Clt.
INITIALIZE CCW
BAl
R11,ISIO'
BR TO ISSUE START 1-0
DC
X'2AOO'
CTRl SWITCHES.
DC
X'0265'
T EST
N U 1'1 8 E R
DC
X'FOOO'
EXP COND CODE AND SNS.
DC
Al21PRDCSW-SECNO+REGt EXP CSW ADDR.
MVI
CCW,X'29' .
INITIALIZE CCW
8Al
R11,ISIO
8R. TO ISSUE START 1-0
OC
X'3EOO'
CTRl SWITCHES
DC
. X' 0210'
T EST
N U M 8 E R
DC
X'FOOO' .
EXP. CONDo CODE - EXP. SENSE
DC
Al21PFRCSM-SECNO+REGJ EXP CSW ADDRESS
MVI
CCW,X'C2,INITIALIZE CCW
BAL
R 11, I SID
BR. TO I SSUE START I-a
DC
X' 2AOO'
CTRl SWITCHES
DC
X'0280'
T EST
N U 1'1 8 E R
DC
X'FOOO'
EXP. CONDo CODE - EXP. ,SENSE
DC
Al21PRDCSW-SECNo+REGI EXP CSW ADDRESS
MVICCW,X'39'
INITIALIZE CCW
. 8Al
Rll,lSIO
8R. TO ISSUE START ,1-0
DC
X' 3EOO'
CTRL SWITCHES
DC
X'Ol90'
T EST
N U' 1'1 8 E R
DC
X'FOOO'
EXP. CONDo COOE - EXP. SENSE
DC
Al21PFRCSW-SECNO+REGJ EXPCSW ADDRESS
MVI
CCW,X'D2'
INITIALIZE CCW
8Al
R11,ISIO
8R. TO ISSUE START 1-0
DC
X'2AOO'
CTRl SNITCHES
DC
X' 0300'
T EST
N U 1'1 8 E R
DC
X'FOOO' .
EXP. CONDo CODE - EXP. SENSE
DC
AL2(PRDCSW-SECNO+REGIEXP CSW ADDRESS
MVI
CCW,X'69'
INITIALIZE CCW
8Al
RlltISIO
8R. TO ISSUE START 1-0
DC
X'3EOO'
CTRl SWITCHES
DC
X'0310'
T EST
N U 1'1 B E R
DC
X'FOOO'
EXP. CONDo CODE - EXP. SENSE
DC
Al2 (PFRCSV-SECNo+REGJ EXP CSW ADDRESS
MVI
CCW,X'E2'
INITIALIZE CCW
8Al
R11,ISIO
BR. TO ISSUE START 1-0
DC
X' 2AOO'
CTRl SWITCHES
DC
X'0320'
T EST
N U 1'1 8 E R
DC
X'FOOO'
EXP. CONDo CODE - EXP. SENSE
DC
Al21PRDCSW-SECND+REG) EXP CSW ADDRESS
MVI
CCW,X'T9'
INITIAlIZE'CCW
BAl
RllilSIO
8R. TO ISSUE START 1-0
DC
X' 3EOO'
CTRl SWITCHES
DC
x'0330' .
T, E S T
N U M. B E R
DC
X'FOOO'
EXP. COND. CODE - EXP. SENSE
DC
Al2IPFRCSW-SECNo+REGt EXP·CSW AODRESS
MVI
CCV,X'F2'
INITIALIZE CCW
8AlRll.ISI0
8R. TO ISsue START 1-0
DC
X'ZAOO' .
CTRl SWITCHES
DC
X'0340.
T' E S T '
N U' 1'1 8 E R
DC
X"OOO' .
EX'. COND. CODE ,- EXP. SENSE

l2FEB66

to

15JUN61;

F820-3

1_3D~4_9_8~'~--.~1~'A~jTI~.~~.,~,~~~j-.~~~~~------~--~~___P_A_G&----1~1_.~~

_____
12_5_5_80
_____
12_5_6_2_1____

..

M#

r-

IBM

MAI~TENANCE

DIAGNOSTIC PROGRAM'

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840191
PAGE
18

2540 PUNCH FUNCTION:TEST! -.SECTION '1 FI20
,

,

Il
j

I

.1

!

i

,I

j
1I

'!.' '

j

I

I
l

;. :

I

I1

I
!

I

I
t

!

.

~

!

,.

I
1-

i

0019D2
001904 :
0019D8 '
0019DC
0019DE
0019EO
0019E2
0019E .. '
0019E8 .
0019EC
0019EE
0019FO'
0019F2
0019F4
0019F8 '
0019Fe
0019FE
OOlAOO'
00lA02
001A04
001A08
001AOC
00 lADE
OOlAIO
00lA12
00lA14 :
00lAl8
OOlAit
OOlAIE
00lA20
OOlA22
00lA24 '
00lA2S'
001A2C
00lA2E
00lA30
00lA32
00lA34 .
00lA38
00lA3t
00lA3E
00lA40
OOlA42
DOlA..,.
DOIMe
00lA4C
001A4E
OOlA50
00lA52
001A54
00lA58
OOlASC
00lA5E
00lA60
00lA62
00lAb4,
00lA6e
OOlA6e
OOlAbE
OOlATO
OOUl2
00U"4
00lAT8
OOlATt
OOlAn!
00lA80
00lA8l
oolA84

FF4C
92 89 F :F58 '
45 80 F 10E
3EOO
0350
FOOO
FF3t
92 CA F F58
45 BO F 10E
2AOO
0360
FOOO
FF4C
92 B9 F F58
.. 5 80 FlOE
3EOO
0310
FOOO
FF3C
92 DA F F58
45 80 FlOE
2AClO
0380
FOOO
FFitC
92 09 F F58
45 8D F 10E
3EOO
0390
FOOO
FF3C
92 EA F F58
.. 5 BO F'10E
2AOO
0400.
FOOD
FF4C
9200F'F58'
105 BO'F'lOE
3EOO
01010
FOOO
FF3C
92 FA F F58
45 80 F 10E
2AOO
0420
FOOD
FF4e
92 19 F F58
45 BO F 10E
3EOO
0430
FOOO
FF3C
92 e2 F F58
45 80 FlOE
2AOO
0440
FOOD
FF4C
92 1D F 'F5S'
45 80 FlOE
3EOO
0450
FOOO
FF3t
92 02 F F58

DC
MVI
SAL
DC
DC
DC
DC
MVI '
BAL
oe
DC
DC
DC
MVI
eAl
DC
DC
DC
DC
MVI
SAL
DC
DC
DC
DC
MVI
8AL
DC
DC
DC
DC
MVI
BAl
DC
DC
DC
DC
MVI·
8AL'
'DC
DC
DC
DC
MVI
BAl
DC
DC
DC
DC
MVI
BAL
DC
DC
DC
DC
MVI
8AL
DC
DC
Dt
DC
MVI
8AL
DC
DC
DC
DC
MVI

I

t.~:'

1~

05MAY65
124252

10AUG65
125580

22FI!866
125621

2540 PUNCH FUNCTION TESTS- :SEGflON '1 '1'820
AL2IPRDtSN-SECNO+REG) EXP tSIIAOORESS
CCN,X'89' ,
INITIALIZE teN
Rll,lSIO
8R. TO ISSUE START 1-0
X' 3EOO'
tTRL SNITtHES
X'0350'
T E S T
N U M 8 E R
X'FOOO'
EXP. CONDo CODE - EXP. SENSE
1IL2'IPFRCSN-SECNO+REGI EXP CSN ADDRESS
tCN,X'CA'
INITIALIZE CCN
Rll,lSIO
BR. TO ISSUE START 1-0
X'ZAOO'
tTRL SNITCHES
X'D360' .
T E S T
N U It 8 E R
X'FOOO'
EXP. tOND. tODE - EXP. SENSE
AL2(PRDCSW-SEtNO+REGJ EXP tSN ADDRESS
ttN,X'89'
INITIALIZE ceN
Rll,lSIO
BR. TO ISSUE START 1-0
X'3EOO'
CTRL SNITCHES
X'03l0'
T E S T
N U M B Ii R
X'FOOO'
EXP. CONDo CODE - EXP. SENSE
AL2IPFRCSW-SECNO+REGJ EXP CSN ADDRESS
CCN,X'DA' ,
INITIALIZE CCN,
Rll,ISIO
BR. TO ISSUE START 1-0
X' 2AOO'
CTRL SNITCHES
X'0380'
T E S T
N U M 8 E R
X'FOOO'
EXP. CONDo CODE - EXP. SENSE
AL2IPROCSW-SECNO+REGJ EXP CSN ADDRESS
CCN,X'09'
INITIALIZE CCN
Rll,ISIO
BR. TO ISSUE START 1-0
X'3EOO'
CTRL SWITCHES
X'0390'
T E S T
N U M 8 E R
X'FOOO'
EXP. tOND. CODE - EXP. SENSE
AL2CPFRCSW-SECNO+REGJ EXP CSW ADDRESS
CCN,X'EA'
INITIALIZE CCN
Rll,lSID
8R. TO ISSUE .START 1-0
X'2AOO' ,
CTRl SIIITCHES
X'OIoOO' ,
T E S T
N U M 8 E R
X'FOOO'
EXP. CONDo CODE - EXP. SENSE
AL2IPRDtSW-SECNO+R.EGJ EXP CSN ADDRESS
CCN,X'OD'
INITIALIZE CCN
Rll,JSID
BR. TO ISSUE START 1-0
X'3EOO'
CTRL SIIITCHES
X'0410'
T E S T
N U M B E R
X'F'OOO'
EXP. CONDo CODE - EXP. SENSE
AL2IPFRCSN-SECNO+REGI EXP C511 ADDRESS
CCN,X'FA' ,
INITIALIlE CCN
Rll.ISID
BR. TO ISSUE START 1-0
X'2AOO'
CTRL SNITCHES
X'0420'
T E S T
N U M B E R
X'FOOO'
EXP. CONDo CODE - EXP. SENSE
AL21PRDCSII-SECNO+REGJ EXP CSN ADDRESS
CCII,X'19'
INITIALIZE CCW
Rll,ISIO
BR. TO ISSUE START 1-0
X'3EOO'
tTRL SNITCHES
X'0430'
T E S T
N U M 8 E R
X'FOOO'
EXP. CONDo CODE - EXP. SENSE
AL2IPFRCSW-SECNO+REGJ EXP CSN ADDRESS
CCW,X'C2'
J~nIALIZE CCN
Rll,ISIO
BR. TO ISSUE START 1-0
X'2AOO'
CTRL SNITCHES
X'0440'
T E S T
N U M B E R
X'FOOO'
EXP. CONDo CODE -EXP. SENSE
AL2IPRDcsw-seCNO+REGJ EXP CSW ADDRESS
CCN,X'lD' .
INITIALIZE CCN
Rll,ISIO
8R. TO ISSUE S1ART,I-0
X'3EOO'
tTRL swnCHES
X'OIoSO'
T, E S T
N U M 8 E R
X'FOOO' .
up" CONO. CODE -EXP. SENSE
AL2CPFRCSW-SEtNO+REG) EXPtSN ADDRESS
CeNtlt'02'
INITIALIZE CCN

UJUN6l

ID
Fe2D-3
PAGE
18

U04~8

Q

!

,"'"""f1>\\i

'Q6,

oo1A88 .
00lA8t
00lA8E
00lA90
00lA92
00lA94
00lA98
00lA9C
00lA9E
OOlAAO
00lAA2
00lAA4
00lAA8
OOlAAC
OOlUE
001 ABO
001AB2
00lAB4
001A88 '
OOlABC
OOlABE
OOlACO
00lAC2
ODlAC4
00lAC8
OOlACC
00 lACE
OOlADO
00lAD2
00lAD4
OOlADB
OOlADC
OOlADE
OOlAEO
00lAE2
00lAE4
00lAE8
OOlAEC
OOlAEE
OOlAFO
00lAF2
00lAF4
00lAF8
OOlAFC
OOIAFE
001 BOO
001B02
001B04
00lB08
001BOC
001BOE
001BIO
001B12
001B1 .. '
001818
00181C
001BIE
001B20
001822
001824
oolB28
00182C
001B2E
001830
001832 '
001834.
001838 '
00183' •

!
~

DATIl·

EC
Ii\' ,":,

45 80 FlOE·
2AOO
0460
FOOO
FF4C
92 49 FF58
45,80·F,,10E
3EOO
0410
FOOO.
FF3C
92 E2 F F58
45 80 F 10E
2AOO
0480
FOOD
FF4C
92 40 F F58
45 BO F 10E
3EOO
0490
FOOD
FF3C
92 F2 F F58
45 80 F IDE
2AOO
0500
FOOO
FfitC
92 59 F F58
45 80 F 10E
3EOO
0510
FOOO
FF3C
92 CA F F58 '
.. 5 80 F 10E
2AOO
0520
.FOOO
FF4C
92 50 ,F ,F58
45 80 FlOE
3EOO
0530
FOOO
FF3C
92 DA F F58
45 BO FlOE
2ADO
0540
FOOO
FFitC
92 8D F F58 '
45 BO F 10E
3EOO
0550
FOOO
FF3C
92 EA F. F58.
45 BO FlOE
2AOO
0560
FOOO
FF4t
92 99 F FS8
.. 5·80 F 10E
3EOO
05MA\' 65,
124252

10AUG65
125580 '

8Al
DC
DC
DC'
DC
MVI
BAL
Dt
DC
DC
DC
MVI
BAL
DC
Dt
DC
DC
MVI
BAL
DC
DC
DC
DC
MV.I
8AL
DC
DC
DC
DC
MVI
8AL
DC
DC
Ot
DC
MVI
BAl
DC
DC
DC
DC
MVI
BAL
DC
DC
DC
DC
MVI
BAL
DC
DC
DC
DC
MVI
8AL
DC
DC
DC
DC
MVI
BAL
DC
DC
DC
DC
MVI
BAl'
OC
22FEB66
125621

Rll,ISIO
X'2AOO'
X'0460'
X'FOOO' .
AL21 PRDC Slf-SECNO+REGI
CCN.X' ..9'
Rll,ISIO
X'3EOO'
X'04l0'
X'FOOO'
AL2IPFRtSw-SEtNO+REGI
ttN.X'E2' ,
Rll,lSIO
X' 2AOO'
X'0480'
X'FOOO'
AL2IPRDtSW-SECNO+REGI
CCN,X'''D'
Rtl,lSIO
X'3EOO'

BR. TO ISSUE START ',1-0
CTRL SNITtHES
T E S T
N U M B E
EXP. CONDo CODE- EXP. SENSE
EXP. tSN ADDRESS
INITIALIZE CCN
BR. TO. ISS.V,I;. STAIU_co .... ,
tTRL SNITCHES
T E S T
N U M B E
EXP. CONDo CODE - EXP. SENSE
EXP tSN ADDRESS
INITIALIZE CtN
8R. TO ISSUE START 1-0
tTRL SNITCHES
T E S T
N U M 8 E
EXP. tDND. CODE - EXP. SENSE
EXP. CSN ADDRESS
I NIT IALI ZE CCN
BR. TO ISSUE START 1-0
CTRL SNITCHES
T E S T
~'049D'
N U M 8 E
X'FOOO'
EXP. CONDo CODE - EXP. SENSE
AL2(PFRCSW-SEtNO+REGI EXP CSN ADDRESS
CCW,X'F2'
I NIT i ALI ZE CCN
Rll,lSto
BR. TO ISSUE START 1-0
X'2AOO'
CTRL SNI TCHES
X'0500'
T E S T
N U M 8 E
X'FOOO'
EXP. CONDo CODE - EXP. SENSE
AL2(PRDCSW-SECMO+ltEGJ .EXP. CSN ADDRESS
CCW,X'59'
INITIALI ZE CCII
Rll,ISIO
BR.TO ISSUE START· 1-0
X'3EOO'
CTRL SNITCHES
X'0510'
T E S T
N U M 8 E
X'FOOO'
EXP. eOND. CODE - EXP. SENSE
AL2(PFRCSW-SECNO+REGI EXP CSW ADDRESS
CtW,X'CA' ,
INITIAlJ.ZE CCW·
Rll,ISIO
8R. TO ISSUE START 1-0
X'2AOO'
. CTRL SIIITCHES
X'0520'
T E S T
N U M 8 E
X'FOOO'
EXP. CONDo CODe -EXP. SENSE
AL2(PRDtSW-SECNO+REGJ EXP. tSN ADDRESS
CCW,X'5D'
INITIALIZE tCII
Rll,ISID
BR. TO ISSUE START 1-0
X'3EOO'
CTRL SIIITCHES
X'0530'
T E S T
N U M 8 E
X'FOOO'
EXP. CONDo CODE - EXP. SENSE
AL2(PFRCSW-SECNO+REGI EXP esw ADDRESS
tCN,X'DA'
INITIALIZE CCW
R11,ISIO
BR. TO ISSUE START 1-0
X'2AOO'
CTRL SIIITCHES
X'0540'
T E S T
N U M 8 E
X'FOOO'
EXP. tOND. CODE - EXP. SENSE
AL2IPRDCSW-SECNO+REGJ EXP tsw ADDRESS
CCN,X'8D'
INITIALIZE CCW
Rll,ISID
8R. TO ISSUE START 1-0
X'3EOO'
tTRL SWITCHES
X'0550'
T E S T
N U' M' 8 E
X'FOOO'
EXP. tOND. CODE -,EXP. SENSE
AL2(PFRCSII-SECM~REG) EXP tSN ADDRESS
CCN,X'EA'
INITIALIZE ceN
Rll.1510
BR. TO ISSUE START ,1-0
X'2AOO'
CTRL SNtTCHES
X'0560'
T E S T
N U' M e E
X'FOOO' ,
EXP .. CONDo COoE.- EXP. SENSE
AL2CPRDCSW-SECM~ltEGI EXP,tSN,AODRESS
CCNtX'99' .
INITIALIZE CtN
Rll.ISIO·
BR. TO ISSUE START 1-0
X'3EOO'
CTRL SNITCHES

15JUN61
130498
.)

)

R

It

R

R

R

R

R

It

R

R

R

10 1'820-3
PAG!
18A

" '*

. ~~

." 1 .

",:

t-

"'I

~A

,

,
1¥'

/)
iJ

PIN 840191
PAGE
18A

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,0 0 0 0 0 0 0 0 0
__

L

.;

'

.-~

..-----....

-~.

_._--

.

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

"._-

-_._----

-_..

._-------.-., .. __.... _---_._-

---

I~l

0000000000000000000000000000000000

.,'f··'"

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840191
PAGE
19

0510
FOOD
FF3C
92 FA
45 80
2AOO
0580
FOOD
FFltC
92 90
45 80
3EOO
0590
FOOD
FF3C
92 C6
45 80
2AOO
0595
FOOD
FF4C
OA 06

F F58
F 10E

FF58 '
F 1011

F F58
FlOE

01 00

DC
DC
DC
MVI
BAL
DC
DC
DC
DC
MVI
BAL
DC
, DC
DC
DC
MVI
6AL
DC
DC
DC
DC
EXIT10 SVC
CNOP
aCR

X'0570'
X'FOOO'
AL2IPFRCSW-SECNO+REGI
CCWtX'FA'
Rll,ISIO
X'2AOO'
X'0580'
X'FOOO'
AL2IPRDCSW-SECNO+REGI
CCW,X'9D'
Rll,ISIO
X' 3EOO'
X'0590'
X'FOOO'
AL2(PFRCSW-SECNO+REGI

T EST
N U M 6 E A
EXP. CONDo CODE - EXP. SENSE
EXP CSW ADDAESS
INITIALIZE CCW
SR. TO ISSUE START 1-0
CTAL SWITCHES
T EST
N U M 6 E R
EXP. CONDo CODE - EXP. SENSE
EXP CSW ADDRESS
INITIALIZE CCW
6R. TO ISSUE STAAT 1-0
CTRL SWITCHES
TEST
NUM6ER
EXP. CONDo CODE - EXP. SENSE
EXP CSW ADDRESS
CCW,~'C6'
MOVE A CHK RD CMO INTO CCW.
Rll,ISIO'
6R TO ISSUE START 1-0
X'2AOO'
CTRL SWITCHES.
X'0595'
TEST
NUM6ER
X'FOOO'
EXp COND CODE AND SNS.
AL2(PRDCSW-SECNO+REGI EXP CSW ADDRESS.
X'06'
RQUTI NE EX IT
0,4
0,0

•
..............................................
,........................
• ROUTINE 10 ISSUE ALL VALID ,COLUMN 6INARY COMMANDS TO THE PUNCH.
•
IF THE COLUMN 6INARY FEATURE IS NOt PRESENT ON THE
•
DEVICE, THE COLUMN 8INARY COMMANDS WILL' DECODE AS A
•
NORMAL PUNCH FEED STACKER SELECT COMMAND.
•
EXPECT CONDo CODE 0 ON THE START 1-0 WITH CHANNEL END ANa
•
THEN DEVICE END INTEARUPTS.

001618 '
001879
00161C
001880
001884
001688 '
00168A
00188C
00188E
001890
001894
001698
00189A
00189C
00189E
0018AO
0018A4
0018A8
0018AA
0018AC
0018AE
001860
001884
001868
001BBA
00188C
00188E
001BCO
0018C4
001BC8
OOlBCA
0018CC
OOlBaE
001 BOO
00lBD4
DATe
EC

....................................*..................................
10
0006E4
45 40 F 690
92 21 F F58
45 80 FlOE
3EOO
0600
FOOD
FF3C
92 31 F F58
45 80 FlOE
3EOO
0610
FOOO
FF3C
92 61 F F58
45 60 FIDE
3EOO
0620
FOOO
FF3C
92 11 F F58
45 80 FlOE
3EOO
0630
FOOO
FF3C
92 Al F F58
45 80 FlOE
3EOO
06lt0
FOOO
FF3C
92 81 F F58
45 80 F 10E
05MAY65
124252

10AU665
125580

AOUTlO DC
DC
6AL
MVI
6AL
DC
DC
DC
DC
MVI
6AL
DC
DC
DC
DC
MVI
6AL
DC
DC
DC
DC
MVI
8AL
DC
DC
DC
DC
MVI
8AL
DC
DC
DC
DC
MVI
8AL
22FE866
125621

15JUN61,
130498

~,

2540 PUNCH FUNCTION TISTS - SECTION 1 F820

2540 PUNCH FUNCTION TESTS - SECTION 1 F820

00183E
001840
001842
001844
001848
00164C
00184E
001650
001652
001854 '
001858
001&5e
00185E
001660
001862
001864
001868
00186C
00186E
001810
001612
001614
001616
001616

PIN 840191
PAGE
19A

IBM MAINtENANCE DIAGNostIC 'PROGRAM

X'10'
AL3(ROUTII-SECNOI
R4,INlT
CCW,X'21'
Rll,ISIO
X' 3EOO'
X' 0600'
X'FOOO'
AL2IPFRCSW-SECNO+REGI
CCW,X'31'
Rll,ISIO
X'3EOO'
X'0610'
X'FOOO' ,
AL2IPFRCSW-SECNO+REGI
CCW,X'6l",
Rll,ISJO
X'3EOO'
X'0620'
X'FOOO'
AL2(PFRCSW-SECNO+REGI
CCW t X'Tl'
Rll,ISIO
X'3EOO'
X'0630'
X'FOOO' ,
AL2(PFRCSW-SECNO+REGI
CCW,X'A1'
Rll,ISIO
X'3EOO'
X'0640'
X'FOOO'
AL2IPFRCSW-SECNO+REGI
ccw,x'a1'
Rlt-ISIO

ROUTINE NUM6ER
ADDRESS OF NEXT ROUTINE
6R. TO INITIALIZE
INITIALIZE CCW
6R. TO ISSUE START 1-0
CTRL SWITCHES
T EST
N U MaE
EXP. CONDo CODE - EXP. SENSE
EXP CSW ADDRESS
INITIALIZE CCW
6R. TO ISSUE START 1-0,
CTRL SWITCHES
T EST
N U M 6 E
EXP. CONDo CODE - EXP. SENSE
EXP CSW ADDRESS
INITIALIZE 'CCW
6R. TO ISSUE STAAT 1-0
CTRL SWITCHES
T EST
N U M 8 E
EXP. CONO. CODE - EXP. SENSE
EXP CSW ADDRESS
INITIALIZE CCW
8R. TO ISSUE START 1-0
CTRL SWITCHES
T EST
N U M B E
EXP. CONDo CODE ,- EXP. SENSE
EXP CSW ADDRESS
INITIALIZE CCW
8R. TO ISSUE STAAT 1-0
CTRL SMITCHES
T' E S t
N U' M' B E
EXP. CONDo CODE - EXP. SENSE
EXP, CSM,ADDRESS
INitiALIZE ceM
8R. TO ISSUE STARt 1-0
10

R

R

R

'R

PAGE

R

F820-3
19

001808
0018DA
0018De
0016DE
0016EO
0018E2
0016E2

DC
DC
DC
DC
SVC
CNOP
8CR

3EOO
0650
FOOO
FF3C
OA 06
07 00

X'3EOO'
X'0650'
X'FOOO'
AL2(PFRCSW-SECNO+REGI
X'06'
0,4
0,0

CTRL swnCHES
N U M 8 E R
T E S T
EXP. CONO. CODE - EXP. SENSE
EXP CSW ADDRESS
ROUTI NE EX,IT

•
•••••••••••••••••••••
*••••••••••••••••••••••••••••••••••••••~••••••••••
• ROUTINE 11 ISSUE ALL VALID 1400 PUNCH COMPATI8ILITY COMMANDS TO
•
THE PUNCH. IF THE 1400 PUNCH COMPATI8ILITY IS NOT
•
INSTALLED THE COMMANDS WILL DECODE AS NORMAL PUNCH FEED
•
STACKER SELECT COMMANDS.
•
EXPECT CONDo COOE 0 ON THE START 1-0 WITH CHANNEL END AND
•
THEN DEVICE END INTERRUPTS.
•
ISSUE ALL VALID NORMAL PUNCH FEED STACKER SELECT COMMANDS
•
TO THE PUNCH. EXPECT SAME RESULTS AS A80VE.

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

0018E4
0018E5
0018E8
0016EC
0018FO
0018F2
0018F4
0016F6,
0018F8
001BFC
001COO
001C02
001C04
001C06
001C08
001COC
001CI0
001C12
001C14
00IC16
001C18
00IC1C
001C20
001C22
001C24
001C26
001C28
001C2C
001C30
001C32
001C34
001C36
001C38
001C3C
001C40
001C42
001C44
001C46
001C48
001C4C
ODIC50
001C52
00lC54
001C56
001C58
00lC5C
00IC60
001C62
00lC64
001C66
DATE
EC

11

OOOCAC
92 11 F F58
45 BO FlOE
3EOO
0660
FOOO
FF3C
92 15 F F58
45 BO FlOE
3EOO
0670
FOOO
FF3C'
92 51 F F58
45 BO FlOE
3EOO
06BO
FOOO
FF3C
92 55 F F58
45 80 FlOE
3EOO
0690
FOOO
FF3C
92 91 F F58
45 80 FlOE
3EOO
0700
FOOO
FF3C
92 95 F F58
45 80 FlOE
3EOO
0710
FOOD
FF3C
92 01 F F58
45 80 FlOE
3EOO
0120
FOOD
FF3C
92 05 F F58
45 80 FlOE
3EOO
0730
FOOO
FF3C

ROUT11 DC
DC
MVI
8AL
DC
DC
DC
DC
MVI
8AL
DC
DC
DC
DC
MVI
8AL
DC
DC
DC
DC
MVI
BAL
DC
DC
DC
DC
MVI
8AL
DC
DC
DC
DC
MVI
8AL
DC
DC
DC
DC
MVI
8AL
DC
DC
DC
DC
MVI
8AL
DC
DC
DC
DC

X'11'
All IROUT12-SECNO. '
CCW,X'l1"
Rll,ISIO
X'3EOO' ,
X'0660'
X'FOOO'
AL2(PFRCSW-SECNO+REG)
CCWtX'15'
Rll,ISIO
X'3EDO'
X'0670' ,
X"FOOO.

ROUTINE NUM8ER
ADDRESS OF NEXT ROUTINE
INITIALIZE CCW
8R. TO ISSUE START i-O
CTRL SWITCHES
T EST
N U M 8 E
EXP. CONDo CODE - EXP. SENSE
EXP CSW ADDRESS
INITIALIZE CCW
8R. TO ISSUE START 1-0
CTRl SWITCHES
T EST
N U M 8 E
EXP. CONDo CODE - EXP. SENSE
AL2IPFRCS~SECNO+REGI EXP CSW ADDRESS
CCW,X'51'
INITIALIZE ccw
Rll,ISIO
8R. TO ISSUE START 1-0
X'3EOO'CTRL SWITCHES
X' 0680' ,
T EST
N U M 8 E
X'FOOO'
EXP. CONDo CODE - EXP. SENSE
AL2IPFRCSW-SECNO+REGt EXP CSM ADDRESS
CCW,X'55"
INITIALIZE CCW,
R11,1 SID
8R. TO ISSUE ST ART 1-0
X'3EOO'
CTRL SWITCHES
X' 0690'
T EST
N U M 8 E
X'FOOO'
EXP. CONO. CODE - EXP. SENSE
AL2IPFRCSW-SECNO+REGI EXP CSW ADDRESS
CCW,X'91'
INITIALIZE CCW
Rll,lSIO
8R. TO ISSUE START 1-0
X' 3EOO'
CTRL SWITCHES
X'0700'
T EST
N U III 8 E
X'FOOO'
EXP. CONDo CODE - EXP. SENSE
AL2IPFRCSW-SECNO+REGt EXP CSW ADDRESS
CCW,X'95'
INITIALIZE CCW
Rll.ISIO
8R. TO ISSUE START 1-0
X'3EOO'
CTRl SWITCHES
X'0710'
T EST
N U III 8 E
X'FOOO'
EXP. CONDo CODE - EXP. SENSE
AL2IPFRCSW-SECNO+REG) EXP CSW ADDRESS
CCW,X'Ol'
INITIALIZE CCW
Rll,ISIO
8R. TO ISSUE START 1-0
X'3EOO'
CTRL SWITCHES
X'0120'
T EST
N U M 6 E
X'FOOO,
EXP. CONDo CODE - EXP. SENSE
AL2IPFRCSW-SECNO+REG. EXP esw ADDRESS
CCM,X'05'
INITIALIZE CCW
Rll,lSIO
BR. TO ISSUE START 1-0
X'3EOO'
CTRL SWITCHES
X'0130'
T EST
N U M B E
X'FOOO' ,
EXP. CONDo CODE - EXP. SENSE
AL2tPFRCSW-SECNO+REG' EXPCSW ADDRESS

I
l
~"

;",

;:C',

R

R

li

{I"
~.'::
",

"

R

R

R

['

f:,','.

r:
f

R

R

f

t,

~\I·,'
,

',:.;

';' .

R

r
f

05MAY65
124252

10AUG65
125580

22FE866
125621

15JUN61 ,
130498

k

10
F820-3
_P_A_G_E_ _l_9..
A_,.Jf

1

i
r
I

~,

4,.

c .

.s=M.££

as

Atz

IBM MAINTENANCE DIAGNOSTIC PROGRAM
PIN 840191
PAGE
20

2540 PUNCH FUNCTION TESTS - SECTION 1 F820

IBM MAINTENANCE DIAGNOSTiC PROGRAM

PIN 840191 '.,
PAGE
20A

2540 PUNCH FUNCTION TESTS - SECTION 1 F820
001C68
001C6C
001C10
001C12
OOlCH
001C16
001C18
001C1C
001C80
001C82
001C84
001C86
001ce8

OOHIIC
0011:90.
001en
OOlC'!!4
001C.96
001C98
001C9C
001CAO
001CA2
OOlCA't '

001(;A6
OOlCAe '

OOlCU
oatCAli

92 41
45 80
3EOO
0140
1'000
FF3C
92 45
45 BO
3EOO
0750

F F58

MVI:
BAl
OC
DC
DC
DC
MVI .
SAL
DC
DC
DC
DC

I" 10E

I" 1"58'
I" 10E

FOOO
FF3C
92 81 F 1"58
45 80 F'10E

IWI

BAl
DC
DC

3EOO

011>0

0'000

DC

FF3C
92 85 F 1'58
45 130 F'10E

3EOO

0710
1"000
FF3C
OA 06

07 00

•

DC
MVI
BAl
DC
DC
DC
DC
SVC
CNOP
BCR

CCW,X'4I'
Rll '[SIO
X'3EOO'
X'0740'
X'FOOO'
Al2IPFRCSW-SEtNO+REGI
CCW,X'45'
Rll,ISIO
X'3EOO'
X'0150'

INlTlAlUE CCW
SR. TO ISSUE START 1-0
CTRl SWITCHES
TEST
NUM'SE II.
EXP. CONDo CODE - EXP. SENSE
EXP CSW ADDRESS
I NI T1 ALI ZE CCW
811.. TO ISSUE START 1-0
CTRl SWITCHES
TEST
NUMBe R
X'FOOO'
EXP. CONDo CODE - EXP. SENSE
Al2IPFRCSW-SECNO+REG) EXP tSw ADDRESS
CCW,XtBl'
INITIALIZE cew
Rll,JSIO
SR. TO ISSUE START 1-0
X'3EOO'
tTRl SWITCHES
)('0160'
TEST
NUMBe II.
X'FOOO'
EXP. CONDo CODe - EXP. SENSE
AL2IPFRCSW-SECND+REGI EXP CSW AIlDRESS
CCW,X'85'
INITIALIZE CCW
Rll,IS[O
SR. TO ISSUE START 1-0
X'3EOO'
CTRl SWITCHES
X'Ol10'
TEST
NUMBe II.
X'FOOO'
EXP. CONDo CODE - EXP. SENSE
Al2IPFRCSW-SEeNO+REGI EXP CSW AODRESS
X'06'
ROUIl HE EX IT
0.4
0,0

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• ROUTINE 12-ISSUE AlL VAllO DIAGNOSTiC CHECK READ COMMANDS TO THE
•
•

PUNCH. EXPE!: T CONDo CODe 0 ON THE ST ART 1-0 IHTH
CHANNEL END AND DEVltEENO INTERRUPT TOGETHER.
I SSUE All VilLI 0 SENSE COMMANDS TO THE PUNCH.
EXPECT
CONDo CODE 0 ON THE START 1-0 WITH CHANNEL END DEVICE
END iNTERRUPT TOGETHER.
iSSUE AU. VAliD -2 CHANNEL swnCH fEATURE- COMMANDS TO THE
PUNCH ONl V IF -2 CHAN. SI!. fEIITURE- IS NOT INSTAllED.
IF THE 2 CHAN. SW. fEATURE IS NOT INSTALLED, THE COMMANDS
WIll DECODE AS SENSE COMMANDS. EXPECT CONDo CODe 0 ON THE
START 1-0 WITH CHANNEL END DEVICE END INTERRUPT TOGETHER.

•

•
•
,..
•
•

*

OOlCA!:
OOltAD

12

001C80
001C84
001CBS

000E3C
92 C6 F f!'Ill
45 110 FlOE
21100

QOICBA

0180

001CBC

OOlCBE
001ceo
001CC4
001CI:8

OOleCA
0011:CC
001CCE
001tOO

001CD4
001C08
001tOA

OOlCDI:

001tDE
OOlCEO
D01CE4

DOlCE8
001CEII
(}IHCEC

OOlCEE
OOlCFO
DATE
EC

*
•••••••
** ••••••
*****.* •••••••• *••••*********.**.**.*********•• *** •••**.
ROOT12 DC
X'12'
ROUTINE NUMBER
DC
MVI
BAL
DC
DC
DC
DC
MVI
BAl
DC

1'000

H;4C
92 06 F F58
45 80 F lUE

21100
0190
FOOO
FF4C
92 E6 F F58
45 SO f 10E

DC

DC
DC
MVI
BAl
DC

2AOO

0800
1'000
FF4C
92 F6 I" 1"58
45 110 FiDE
2AOO
0810
FOOO
FF4C
92 CE F F51!
D5MAY65
124252

lOAUG65
125580

DC
DC

DC
MVI
SAL
DC
DC
DC
DC
MVI
221'1l866
125621

15JUN6'7
13041198

Al3IROUT13-SECNOI
CCW,X'C6'
Rll,ISIO
X' 2AOO'
X'0180'
X'FOOO'
Al2IPRDCSW-SECNO+REGI
CCW,X'06'
RlltlSIO
X'2AOO'
X' 0190'
X'FOOO'
Al2IPRDCSII-SECNO+REG)
CCW,X'E6'
Rll.ISIO
X'2AOO'
X • 0800'
X'FOOO'
Al2IPRDCSW-SECNO+REGI
CCW.X'F6'
IUl.ISIO

ADDRESS OF NEXT ROUTINE
INITIALIZE cew
SR. TO iSSUE START 1-0
ClRl SWITCHES
T EST
N U M· B E R
EXP. CONDo CODE - EXP. SENSE
EXP. CSW ADDRESS
INITIALIZE CCW
BR. TO ISSUE START 1-0
CTRl SWITCHES
T EST
N U M B E R
EXP. CONDo CODE - EXP. SENSE
EXP. CSW ADDRESS
INITIALIZE CCII
BR. TO ISSUE START J-O
CTRl SWITCHES
T EST
N U M BEll.
EXP. CONDo CODE - EXP. SENSE
EXP. CSW ADDRESS
iNITIALIZE CCW
SR. TO ISSUE START 1-0
X'21100'
CTRl SWITCHES
X'0810'
T EST
ill U M 8 E R
X'FOOO'
EXP. CONDo CODe - EXP. SENSE
Al2IPRDCSW-SECNO+REG) EXP. CSW ADDRESS
CCII,ICtCE'
INITULIZE CCII
10
PAGE

001CF4
001CF8
001CFA
OOlCFC
OOlCFE
001000
001004
001008
00100A
00100C
00100E
001010
001014
001018
OOlOIA
001DIC
OOIOIE ,
001020
001024
001028
OOIDlA
001D2C
001DlE
001030
001034
001038
00103A
00103C
00103E
001040
001044
001048
00104A
00104C
00104E
001050
001054
001058
001D5A
00lD5e
00l05E
001060
001064
001068
00106A
00106C
0010bE
001010
001014
001018
00101A
00107C
00lD7E

001080
001084
001088
00108A
00108C
OOIOSE

001090
001094
001098
00109A
00109C
001D9E
OOIDAO
0010A4
0010A8 .

1"820-3
20

DATE
Et

45 130
2ADO
0820
FOOO
FH'C
92 DE
45 80
2ADO
OB30
FOOO
FFltC
92 EE
45 BO
2ADO
08ltO
FOOD
FF4C
92 FE
45 80
2AOO
01350
1'000
FF4C
92 04
45 SO
2AOO

FlOE

BAl
DC
DC
DC
DC
MVI
BAl
DC
DC
DC
DC
MVI
BAl
DC
DC
DC
DC
MVI
BAl
DC
OC
DC
DC
MVI
BAl
DC
DC
DC
DC
MVI
BAl
DC
DC
DC
DC
MVI
BAl
DC
DC
DC
DC
MVI
8Al
DC
DC
DC
DC
MVI
BAl
DC
DC
DC
DC
MVI
8Al
DC
DC
DC
DC
MVI
BAl
DC
DC
DC
DC
M\lI
BAL
DC

F F58
FlOE

I' F58

FlOE

F58
F'lOE

F

F F58
FIDE

08bO

lFOOO
FF4C
92 24 F f58
45 SO FlOE
2AOO
0810
FOOO
FF4C
92 44 F F58·
45 80 F 10E
2AOO
0880
1'000

FFltC
92 64 ~F F58
45 80 FlOE
2ADO
0890
FOOD
FF4C
92 84 f F5B
45 130 FlOE
2AOO
0900
FOOO
FF4C
92 A4 F F58
45 80 FlOE
2AOO
0910
FOOO
FF4C
92 C4 F F58
45 80 FlOE
2AOO
0920

FOOO
FF4C
92 E4 F F58
45 BO FlOE
2AOO
05141\1'65
124252

10AUG65
125580

l!2FEB66
125621

Rll,ISIO
X'2AOO'
X'0820'
X'FOOO'
Al21 PROCSW-SECNO+REGI
CCW,X'DE'
R11,ISIO
X'2AOO'
X'0830'
X'FOOO'
Al2IPRDCSW-SECNO+REG)
CCW,X'EE'
Rll,ISIO
X'2AOO'
X'0840'
X'FOOO'
Al2IPRDCSII-SECNO+REGI
CCW,X'FE'
Rll,ISIO
X'2AOO'
X'0850'
X'FOOO'
AL2(PRDCSW-SECNO+REG)
CCW,X'04'
Rll,ISIO
X'2AOO'
X'0860'
X'FOOO'
Al2(PRDCSW-SECNo+REGJ
CCW,X'24'
Rll.1SIO
X'2AOO'
X' 0810' .
X'FOOO'
,
Al2IPROCSW~SECNO+REGI

CCW,X'44'
Rll,lSIO
X'2AOO'
X' 0880'
X'FOOO'
Al2IPRDCSW-SECNO+REG)
CCW,X'64'
Rll.ISIO
X'2AOO'
X'0890'
X'FOOO'
Al2(PROCSW-SECNO+REGI
CCW,X'84'
RU.ISIO
X'2AOO'
X'0900'
X'FOOO'
Al2tPROCSW-SECNO+REGJ
CCW,X'A4'
Rll,lSIO
X' 2AOO'
X'0910'
X'FOOO'
Al2! PROCSW-SECNO+REG)
CCW,X'C4'
Rll,lSIO
X'2AOO'
X' 0920'
X'FOOO'
Al21PRDCSW-SECNO+REGI
CCW,X'E4'
R11,IS10
X'ZAOO'

BR. TO ISSUE START 1-0
CTRl SWITCHES
TEST
NUMBER
EXP. CONO. CODE - EXP. SENSE
EXP. CSW ADDRESS
I NIT IALI ZE CCW
BR. TO ISSUE START 1-0
CTRl SWITCHES
TEST
NUMBER
EXP. CONO. CODE - EXP. SENSE
EXP. CSW ADDRESS
INITIALIZE CCW
BR. TO ISSUE START 1-0
CTRl SWITCHES
TEST
NUMBER
EXP. CONO. CODE - EXP. SENSE
EXP. CSW ADDRESS
INITIALIZE CCW
BR. TO ISSUE START 1-0
CTRl SWITCHES
TEST
NUMBER
EXP. CONDo CODE - EXP. SENSE
EXP. CSW ADDRESS
INITIALIZE CCW '
BR. TO ISSUE START 1-0
CTRl SWITCHES
TEST
NUMBER
EXP. CONO. CODE - EXP. SENSE
EXP. CSW ADDRESS
INITIALIZE CCW
BR. TO ISSUE START 1-0
CTRl SWITCHES
..
T EST
N U' M B E "
EXP. CONDo CODE - EXP. SENSE
EXP. CSW AOORESS
INITIALIZE CCW
SR. TO ISSUE START 1-0
CTRl SWITCHES
TEST
NUMBER
EXP. CONO. CODE - EXP. SENSE
EXP. CSW ADDRESS
INITIALIZE CCW
BR. TO ISSUE START 1-0
CTRl SWITCHES
TEST
NUMBER
EXP. CONDo CODE - EXP. SENSE
EXP. CSW ADDRESS
I NI TI ALI ZE CCW
BR. TO ISSUE START 1-0
CTRl SWITCHES
TEST
NUM8ER
EXP. CONDo CODE - EXP. SENSE
EXP. CSW ADDRESS
INITIALIZE CCW
BR. TO ISSUE START 1-0
CTRl SWITCHES
TEST
NUMBER
EXP. CONDo CODE - EXP. SENSE
EXP. CSII ADDRESS
INITIALIZE CCW
SR. TO ISSUE START 1-0
CTRL SWITCHES
TEST
NU'MBER
EXP. CONDo CODE - EXP. SENSE
EXP. CSW ADDRESS
INITIAUZE cell
BR. TO ISSUE START 1-0
CTRL SWITCHES

15JUN61

HI

130498

PAGE

···· '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
-

~'-

1'820-3
201l

o

o

0000 0000000000000000000000000 0000

------

!

_ _ _ _ _ _ _ '"' ••. __ "~.~,..,~."-y,.~ ..... _L:.. .. ~".~ ....,

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

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840191
PAGE
21

l
i

-)

II
I

I
i

i
i
-\

I

I

DC
DC
DC
TM
BC
MVI
BAl
DC
DC
DC
DC
MVI
BAl
DC
DC
DC
DC
MVI
BAL
DC
DC

OC

DC
MVI
BAl
DC
DC
DC
DC
MVI
BAl
DC
DC
DC
DC
MVI
BAL
DC
DC
DC
DC
MVI
BAl
DC
DC
DC
DC
MVI
BAl
DC
DC
DC
DC
DONRTN SVC
CNOP
BCR

Z540 PUNCH FUNCTION TEStS - SECtiON 1 FB20
X'0930'
X'FOOO'
Al2IPRDCSW-SECNO+REGJ
UI0P,X'Ol'
ALL,DONRTN
CCW,X'F4'
Rll,lSIO
X'ZAOO'
X'0940'
X'FOOO'
Al2IPROCSW-SECNO+REGJ
CCW,X'34'
Rll,ISIO
X'ZAOO'
X'0950'
X'FOOO'
AL2CPRDCSW-SECNO+REGJ
CCW,X'54'
IU1,ISI0
X'ZAOO'
X'0960'
X'FOOO'
Al2CPRDCSW-SECNO+REGJ
CCW,X'74'
Rll,ISIO
X'2AOO'
X'0970'
X'FOOO'
Al2IPROCSW-SECNO+REGJ
CCW,X'94'
Rll,ISIO
X'ZAOO'
X'0900'
X'FOOO'
Al2CPRDCSW-SECNO+REGJ
CCW,X'B4'
Rll,ISIO
X'ZAOO'
X'0990'
X'FOOO' .
AL2CPRDCSW-SECNO+REGJ
CCW,X'D4'
Rll,ISIO
X'2AOO'
X'lOOO'
X'FOOO'
Al2CPRDCSW-SECNO+REGJ
CCW,X'14'
Rll,1 SIO
X' 2AOO'
X'1010'
X'FOOO'
Al2CPRDCSW-SECNO+REGJ
X'O'6'
0,4
0,0

..•

T E S T
N U M 8 E R
EXP. CONDo CODE - EXP. SENSE
EXP. CSW ADDRESS
TEST FOR 2 CHAN SW. FEAT.
8R. TO EXIT IF 2 CHAN SW PRESENT
INITIALIZE CCW
BR. TO ISSUE START 1-0
CTRl SWITCHES
T E S T
N U M B E R
EXP. CONDo CODE - EXP. SENSE
EXP. CSW ADDRESS
INITIALIZE CCW
BR. TO ISSUE START 1-0
CTRL SWITCHES
T E S T
N U M B E R
EXP. CONO. CODE - EXP. SENSE
EXP. CSW ADDRESS
I NIT,IALI ZE CCW
BR. TO ISSUE START 1-0
CTRl SWITCHES
T .E S T
N U M B E R
EXP. CONO. CODE - EXP. SENSE
EXP. CSW ADDRESS
INITIALIZE CCW
BR. TO ISSUE START 1-0
CTRl SWITCHES
T E S T
N U M B E R
EXP. CONO. CODE - EXP. SENSE
EXP. CSW ADDRESS
INITIALIZE CCW
BR. TO ISSUE START 1-0
CTRL SWITCHES
T E S T
N U M B E R
EXP. CONDo CODE - EXP. SENSE
EXP. CSW ADDRESS .
INITIALIZE CCW
BR. TO ISSUE START 1-0
CTRl SWITCHES
T E S T
N U M B E R
EXP. CONO. CODE - EXP. SENSE
EXP. CSW ADDRESS
INITIALIZE CCW
BR. TO ISSUE START 1-0
CTRL SWITCHES
T E S T
N U M B E R
EXP. CONDo CODE - EXP. SENSE
EXP. CSW ADDRESS
INITIALIZE CCW
BR. TO ISSUE START 1-0
CTRl SWITCHES
T E S T
N U M 8 E R
EXP. CONDo CODE - EXP. SENSE
EXP. CSW ADDRESS
ROUTl NE EX IT

.

•

001E3C
13
001E30
ODOE90
00LE40
OA DO
BO
001E4Z
001E43
01
FF60
001E44
001E46
91 04 F 004
47 10 F E56
001E4A
001E4E
OA DO
011lE50
04
00
001E51
FF60
001E5Z
001E54
OA D6
.
001E56
45 40 F 690'
001E5A
OA DO
00LE5C
00
001E50
01
FF60
001E5E
001E60
OA DO
04
001E62
001E63
19
001E64 FF60
001E66 .
OA OA
45 '80 F IDE
00LE60
001E6C
0000
1020
001E6E
001El0
Fl40
FF3Z
001E7Z
00lE74
45 BO FOFA
001E1B'
4800
1030
001E1A
001E7C
Fl'oO
FF3Z
001E1E
001EBO'
45 BO :F OE6
001EB4 :
0800
001E86
10.0
F140
001E8B'
001E8A
FFlA
001EBC
OA 06
ODIEBE
001E8E
07 00

DATE'
EC

4

05MAU5
124252

10AUG65
125580

22FEB66
125621

tD
F820-3
PAGE
21

ROUTl3 DC
DC
SYC
DC
DC
DC
TM
BC
SOLONG SVC
DC
DC
DC
SVC
GOlD
BAl
SVC
DC
DC
DC
SVC
DC
DC
OC
SVC
BAl
DC
DC
OC
DC
BAl
DC
DC
DC
OC
BAl
DC
DC
DC
DC
SVC
CNOP
BCR

••

X'13'
Al3CROUT14-SECNO)
X'DO'
X'BO'
X'OI'
Al2CBYPASS-SECNO+REGJ
SNSW,X'04'
ALl,GOlO
X'OO'
X'04'
X'OD'
AlZCBVPASS-SECNO+REGI
X'D6'
R4, INI T
X'DO'
X'OO'
X'Ol'
AlZCBYPASS-SECNO+REGI
X'OO'
X'04'
X'19'
ALZIPCHI-SECNO+REGI
X'DA'
Rll,ISIO
X'OOOO'
X'1020'
X'F140'
AlZIUCNYlD-SECNO+REG)
Rll,ITtO
X'4000'
X'1030'
X'F140'
AL2(UCNVlD-SECNO+REGI
Rll,IHIO
X'OOOO'
X'1040'
X'F140'
AL2CCSWo-SECNO+REGJ
X'06'
0,4
0,0

ROUTtNE NUMBER
ADDRESS OF NEXT ROUTINE
PRINT A BLANK
to·

"

to

CHECK SENSE SW. 5
DR. TO EXECUTE ROUTINE
PRI.NT BYPASS MESSAGE

"to
to

ROUTt NE EX IT
BR. TO INITIALIZE
PRINT A BLANK

"

"to

..

PRINT-MAKE PUNCH NOT READYto

" PERFORM INTERYENTION
HALT TO
BR. TO ISSUE START 1-0 NOOP
CONTROL SWITCH
TEST
NUMBER
EXP. CONO. CODE - EXP. SENSE
EXP. CSW ADDRESS
BR. TO ISSUE TEST 1-0
CONTROL SWITCH
TEST
NUMBER
EXP. CONDo CODE - EXP. SENSE
EXP. CSW ADDRESS
BR. TO ISSUE HALT 1-0
CONTROL SWITCH
TEST
NUMBER
EXP. CONDo CODE - EXP. SENSE
EXP. CSW ADDRESS
ROUTtNE EXIT

• ROUTINE 14- MANUAL .INTERVENTION ROUTINE
•
NOTE--THIS ROUTINE IS BYPASSED UNLESS SECTION SENSE
•
SWITCHES 5 AND 8 ARE BOTH ON.

••

-NOT OPERATIONAL TESTINGA START 1-0 NOOP A TEST 1-0 AND A HALT 1-0 ARE ISSUED TO
A DEVICE THAT IS OFF UNE. EXPECT CONDo CODE 3 WITH NO
STATUS •

•
•
• .

THE FOLLOWING ROUTINES REQUIRE MANUAL ,INTERVENTION

15JUN67
130498

..

••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

•*••*.**•••••*••**.....................................................
• ROUTINE 13- MANUAliINTERVENTION,ROUTINE

-NOT REAOY TESTtNGA START 1-0 NOOP IS ISSUED TO NOT READY DEVICE. EXPECT
CONDo CODE 1 UNIT CHECK. A TEST 1-0 IS ISSUED. EXPECT
SAME. A HALT 1-0 IS ISSUED. EXPECT CONDo CODE 1 ZEROEO
STATUS. INTERYENTION REQUIRED IS IN SENSE BYTE FOR ABOYE

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

'

••
...............................................................
*•••••••

NOTE--THIS ROUTINE IS BYPASSED UNLESS SECTION SENSE
SWITCH 5 IS ON.

.; •
•
•
•
•

•*
*
.....................................................................
*.

·.,•

PIN B40191
PAGE
21A

IBM 'MAINTENANCE DIAGNOSTIC PROGRAM

2540 PUNCH FUNCTION TESTS - SECTION 1 F82Q

0010AA
0930
0010AC
FOOO
0010AE
FF'oC
0010BO
91 01 F Del
00lDB4
41 10 F E38
0010B8
92 F4 F F58
0010BC
45 DO FLOE
0010CO
2AOO
0010C2
0940
0010C4
FOOO
0010C6
FF'oC
0010CB
92 34 F F5B
0010CC
45 eo F ·10E
001000
2AOO
001002
0950
001004
FOOO
001006
FF4C
00100B
9254,F F58'
00100C
45 BO F 10E
0010EO
2AOO
0010E2
0960
0010E4
FOOO
0010E6
FF'oC
0010EB
9274.F F58
001 DEC
45 BO F IDE
0010FO.
2AOO
0010F2
0910
OOlOF.
FOOO
0010F6
FHC
OOlOFB'
92 94 F F58
OOlDFC
45 BO F IDE
OOlEOO
2AOO
001E02
0980
001E04
FOOO
001E06
FHC
001EOO
92 B4 '.F F58 .
OOlEOC
45 BO F 10E
001EI0
2AOO
001E12
0990
001E14
FOOO
001E16
FF'oC
001E1B
92 D4.F F58
001E1C
45 BO F IDE
001E20
2AOO
001E22
1000
001EZ. - FOOO.
001E26
FF.C
001E2B'
92 .14:F F58
001E2C
45 80·F IDE
001E30
2AOO
10to .
001E32
001E3o'o '
FOOO
001E36
FF4C
001E38 '
OA06
001UA
01 00:
001E3A

.. " ..... ~¥~,.......,...~.... .,...... ,_,.• ,,'"

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

'.

001E90
001E91
001E94 '
001E9B
DATE
EC

1.

OOOEDC
91 04 F 004'
41 80 F E4E
05MAY65
124252

ROUTH DC
DC
,TM'
BC

104OG65. 22FED66
• 1255BO
125621

15JUN67
130498

X'14'
AL3IROUTl5-SECNOJ
SNSW.X'Q4t.
NONE,SOLONO

ROUTtNE NUMBER
ADDRESS OF NEXT ROUttNE
TEST ~OR SECTION SENSE SWITCH 5
DR. to TERMINATE RTN IF NO SS 5

.,

IBM MAINTENANCe D!AGNOSTIC,PROGRAM

PIN 840191
PAGE
22

IBM MAINTENANCE DIAGNOStiC PROGRAM

PIN 840191
PAGE
22/1

2540 PUNCH FUNCTION TESTS - SECTION 1 FalD
2540 PUNCH FUNCTION TESTS - SeCTION 1 F820
OOlE9C
OOIEAO
001EA4
OOlEAO
OOIEAA
OOlEAB
OOlEAC
001 EAE
OOlEBO
OOIEBl
001EB2
OOlEB4
OOlE66

OOlEBA
OOlESt
OOlEBE
OOlECO
OOlEC4
OOIECt:.
OOlEca

OOlECA
OiJLECE

OOlEOO
001£'02
001E04
OOlE06 .
001E01,
COlEOS

OOlEOA
001EDC

91 00 F 005

47 60
45 40
OA 00
60
01
fFIoO
OA 00
04
29
FF86
0.1. 011
45 80
0200
1050
F300
45 BO
4Z00
lObO

TM
.BC
BAl
SVC
DC
DC
DC
,svc
DC
DC
DC

F Elte
F 690

SIi'C

F 10E

BAl
DC
DC
DC
BAl

f OFA

m:

DC
DC
BilL

1'300
45 80 f 0106

0200

I)'e

1010

DC
DC
Slit
DC
DC
DC
SVC
CNOp

noo

Oil 00
90
01
1"1"60
04 D6

•'"

'"

*
*

OOlEm:

15

OOHOI)
oalHO
001 fE4
O()IEt'S
0!J1EfiC

OOFFH

001EF8

OOlEI'A
OOlEFC
OOlEfE
0011'00

)('4200'
X'1060'
X'1'300'

RH.IHHI

X'0200'
X'1070'
)('1'300'
X'OO'
X'80'
X'Ol'
AL2!BYPASS-SECND~REG'

X'06'
0,4

PRINT-MAKE PUNCH NOT OPERIITIONAl-

..

"

" INTERVENTION
HALT FOR MANUAL
BR. TO ISSUE START 1-0
CONTROL SWITCHES
T E S T
N U M B E R
EXP. CONO. CODE - EXP. SENSE
SR. TO iSSUE TEST 1-0
CONTROL SWiTCHES
T E S T
N U M 8 E R
EXP. CONDo CODE - expo SENSE
SR. TO ISSUE HlllT 1-0
CONTROL SWITCHES
r E s T
N U M B E R
EXP. CONDo CODE - EXP. SENSE
PI'IX NT A BLANK

..

ROUTINE EXIT

91 04 f

READY TO READY TESTING,II TEST 1-0 IS ISSUED TD II DEVICE THAT JUST WENT
FROM NOT READY TO READY. EXPECT CONDo CODE 1 WITH
DEViCE END ALONE IN THE CSW AND II ZEROED CSW ADDRESS.

-NOT

..

.~*.* **.******************$~*******.*********************************

IUlUTt' DC

DC
HI

0010

47 60 f E41!
45 40 f 690
01\ DO
04

25

45 BO f OF"

NONE,SOlONG
R4,IIIiIT

SIIC
iJC

)',,'00'
)( '04'
l(,2'5'

BAl

01100

loao

FIOO
fH4

Oil. 06

51<15101,X' 04 ,

BC
Bill
DC
DC
S1ft

HAl'
OA 011.

)1'1.5'

)1:' OOFFFF'

ROUTINE NUMBER
LAST Roun HE '
TEST FOR SECTION SENSE SWITCH 5
TERMINATE RTN IF SS 5
SR. TO INITIALIZE
PRINT MAKE PUNCH OPEn AND READY

DC
DC
DC
DC

Al2/00NLY-SECNO+REGI

SIIC

X'06'

10000000
00000000
04000000
0000000000000000
00000000
04000000
00000000
14000000
00000000
02000000
OOOOlfbO
08000000
00000000
04000000
000011'60

ocoooooo

....

00lF58

03 001608 2000 0001

0011'60
0011'69
0011'60
001F76
00lF7D
00lFB6
OOlFBF
0011'96
001F9F
001FA6 .
OOlFAF
001FB8
001fBF
OOlFCB
OOIFeF

0011'04
0011'DO
001FE4
001FEO
OOIF""

•••*****.********••••• ** •••*******.****•••****.***••••••**.*********.**
EXPECTED tIll AND STATUS
******•••••••*****•••••**.**••••••••••*••*.*.**••• ** ••*******.********.

00000000

NOPCSW DC
DC
PBIl
DC

ocoooooo

00000000

10AUG6S
125580

,. .)
"'-----'

Xl4' O'
X'OCDOOOOO'
Xl4'O'

EXP. CSIo! AbDR
EXP. STATUS

II}

PAGE

1'820-3
22

DATE

05HAV65

Et

124252

0000000000000000000

10AUG65
125560

o

CCW

CCW

•

X'03',PCHAR,X'ZO',l

BYPASS DC

C· RTN BYPASSED'

PCHl

OC

C· MAKE THE PUNCH

•

PCH2

DC
DC

C'NOT READY'
C' MAKE THE PUNCH

•

DC

C'NOT OPERATIONAl-'

DC
DC

C'-OFF LINE'
C' MAKE THE PUNCH'

PCH3

NOOP CCW

•

DC

C'OPERATIONAL ./11010

DC
DC

C'READY'
C' PLACE BLANK CAR'

DC

C 'OS IN PUNCH HDPP'

.

DC

C 'ER'

NEVER
NCCO
UNC
NONE
SOME
ALL
ANY
CCO
CCI
CC2
CC3
CC02
CCll
EQ
LO
HI
UNEQ

EQU
EQU
EQU
EQU
EQU
EQU
EQU
EOU
EOU
EQU
EQU
EOU
eQU
EQU
eQU
EQU
EQU

PCH4

•*••*••********••*.***.*.*.**•• ***••*•••*.*••*.*****••• ***••******.****
*
EQUATES·
.*.*****.****•••****.*.**.****••••*****.***.*.**.**•••••**.***••*••••**

000000
000007
OOOOOF
000000
000004
000001
000005
000000
000004
000002
000001
OOOOOA
000006
000000
000004
000002
000006

HALT FOR MANUAL INTERVENTION
SR. TO ISSUE TEST 1-0
CONTROL SWITCHES .
lEST
NUMSE R
EXP. CONDo CODE - EXP. SENSE
EXP. Clw ADDRESS
ROUTiNE EXIT

••*.*****************•• ****••••• ***••***************••***.*.*.**••••**.
>I<
CHANNEL COMMAND WORDS
.
.**********.******** ••*•• ** ••*.*****.**************.***.****.**********

*
***.*******************
..***.*.**•••*•••*••••*••••••*.**.***•• ***••*****
*
MESSAGES
*** •••***••• **********.****.*.*••*••*.*.**.*****••*•••••••• ***.**••*.**

4009E30540C2E807Cl
E2E2C5C4
4004CID2C540E3COC5
4007E405C3C840
0506E34009C5CIC4EO
4004CI02C540E3C8C5
4007E405C31:040
0506E34006D1C5D9Cl
E3C9D6D5CI0360
6006C6C64003C905C5
4004CI02C540E3COC5
4007E4D5C3CO.40
0607C509CIE3C90605
CI0340C105C440
09C5CIC4EB
40D703C1C3C540C203
C1050240C3CI09
t4E240C9054007E405
C3C840tOD60707
C509

>I<

OOlF02

X'10000000'
Xl4 ' O'
X'04000000'
XLO'O'
XL4'O'
X'04000000'
XL4'0'
X'14000000'
XL4'O'
X'02000000'
AICCW+BI
X'08000000'
XL4'O'
X'04000000'
AICCW+BI
X• OC 000000'

*'"

''""
***"'*********************************.**.*.******.******
••••*********.*

0011'06
001fOA

DC
DC
DC
CSWO
DC
DC
DC
OBZY
DC
DC
UCNVLO DC
DC
PFRCSW OC
DC
DONlY DC
DC
PRDCSW DC
DC

.f

AL21PCH3-SECNO+REGI
X'OA'
RU,lHO
X'OIlOO'
x' 1080'
)('1'100'

001FOE
OOlFIZ
001F16
001F1II
001F22 .
0011'26
001F2A
001F2E
001F32
00lF36
001F3C
001F40
001F44
001F48
00lF4C
0011'50

••
n

NOTE -- THIS ROUTINE IS BYPASSED UNLESS SECTION SENSE
SWITCH 5 is ON.

**

OOlEl'2
OOlEf4

RU,ITIO

......

RDUT!NE 15 - MANUAL INTEIWENTION ROUTINE

•

OOlEl'O

X'04'

X'29'
Al2IPCH2-SECNO+REG)
X'OIl'
Rll.ISID
X'0200'
)1'1050'
)('1"300'

TEST FOR SECTION SENSE SWITCH 8
TERMINATE RTN IF NO S5 8
BR. TO INITIALIZE
PRINT A BLANK

•
'••••••••••••••••
"
** ••••••••••••••••••••••••••••••••****.****.*.***.*.***

*

001 EEE
OOl EEl'

SI\ISW+l. X'80'
NONE,SOlONG
R4.INIT
)('00'
)('80'
X'Ol'
Al2(BYPASS-SECNO+REG)
)('00'

22FE866

125621

0

7

15
8

4
1
5

B
4
2
1
10

(,
8
4
2
(,

1!')JUN67
130490

OOrOO()O

o

00

oeoc

00000000000000000000
~"~

II
I

IBM 'MAINTENANCE DIAGNOSTiC
25~O

PIN 840191
PAGE
23

P~PGRAM

PIN 840191
PAttE
23A

IBM MAINTENANCE DIAGNOSTIC PROGRAM

::

"

25~0 PUNCH FUNCTlON TESTS - SECTlON I F820

PUNCH fUNCTION TESTS - SECTION I F820
POST ASSEMBLV' DATA.
EQLO
EQHI
LOGOUT
SYSMOO
REG
WHAT
RO
Rl
R2
R3

EQU
12
EGU
10
EGU
X'80'
EGU
X'18l'
EGU
X'FOOO'
90
EGU
o
EGU
EQU
1
2
EGU
EGU
3
R~
EGU
~
R5
EGU
5
6
R6
EGU
7
R7
EGU
B
R8
EGU
R9
EGU' 9
RIO
EQU
10
Rll
EGU
11
R12
EGU
12
R13
EQU' 13
Rl~
EGU
14
R1S
EQU
15
WT
EQU
~08
HtSN
EQU
6~
HCAN
EGU
72
DMSSN' EGU' : X'OIAO'
ROUTOI
END

OOOOOC
OOOOOA
000080
000181
00 FOOD
00005A
000000
000001
000002
000003
OOOOO~

000005
000006
000007
000008
000009
OOOOOA
OOOOOB
OOOOOC
000000
OOOOOE
OOOOOF
000198
OOOO~O
0000~8

OOOlAO

REFERENCES TO DEFINED SYMBOLS.
EQ
HI
' LO
RO

8
2

1

1

10

1
1
1
1
1
1

0
1
2
3

1
1
:I.

l~DA,

1~E2

118C.

1190,

119C

16810.

R1

R2
R3

10

R~

5

R5
R6
Rl
R8

'6
1
8

1

1350.

R9

9

1

WT
ALL

198
1

1
1

ANY
CAN
CCO
CC1
tt2
CC3
CCN

5

1
4'

10108 '

1

8

1
1
1
B

2
1
IF5B

10

B
2

10
2

101t0,
100A
118C
10EIo

CSW
ICM
IHI
ISW'

It
1

15510
A

IUP
RIO

1

8

Rll

/

132~.

13102,

13102

1"6.

l"A.

l"A

125A.
lItl0.

1280.

128~

1320,
14~2.

11FB.

120~"

1EE8

1128.
13 ... 6.

1288.
13BC.
1558
I1F ....
13E8,
l8At.
11F ... ,
11Et.
13At.

1361t.

184C
U7C

128C.
1390.

18110.

1128.
1200.
1558.
118t.
1150.

19100,

l7CC.
190....

1778.

1810,
lEA ....
16C6

l"'~E.

17FIo.

17A8.
1890.

17610.

186C.
1E56.
15... 6.

11016,
1880.
1280,

12210.
1546.

lIt58,
1884
186C.
121C.
16A8,

11088.

IUD

120C.

12E8
10M

18AC
129C.
11FO.

18510.

lE4A
153E
119B.
1186.
11BA

1182
12CC

16AC.
1858.
1944.
1984,
lA24,
lA94.
IBOIo.
l8BO.
IBFB.
lC68.
ICED,
1050.
10C8.
IF3A,

16BO.
1868.

1110.
11AO.
lZOt,
1280.
133A,
l52Z.
l510C

1951t.
19C4.
lA31o.
lAAIo.
IBllo,
1890,
lC08.
lC18.
lCFO,
1060.
1008.
Inc
1180
11AO.
12lC.
1290.

1351t.
'151oZ,

11ZIo,

1536.
111E.
1306.
13AIo.
IItAIo.
116B.
11Ft.
1818,

1132.
16BO.

11210.
1310.
13AIt,
1548.
1180.
1808.
1898,

111C.
1BBIo.

11AC,

18910,

1700,
190B.

1914.
19EIo.
lA51o,

1981t;

19D~.

lAB ....

lAC~.

19F ... ,
U61o.
lAOIt,

IB31o,
18BO.
lC2B.
lC9B,
1010.
lOBO.
10F8.

18".
lBCO,
lC38,
lCBO.
1020.
1090.
lE08.

19610.
lA~Io.

18210,
IBAO,
lClB,
lC88.
1000.
1010 ••
lOEB.

11FO.
126C.
12FB.
IItAA.

11FC
121B
131B
ISlA

13EC.

13FIo.

13FIt

1210,
1318,
llt3lo.

1288;
1390,
1"2.

llBO.
182C;
18t2.

11BC,
1838,
UtE,

12FC
1392
lItllo
155C
1108
18St
180A

11A6,
1220.
12AO.
1360.
16A1o.

1108.
122E.
1208.
lIt5C,
16C2.

11EIo ,
125E.

l3C6.

13E2.
11E8,
1332,
11ot8.
1550,
1196,
1820,
18B8.

1101t

HIoC.
1320.
13A8,
1550.
11BA,
1814.
l8U.

1704, 11FB
191B. 192B
1994; 19A4
lAOIo. lAl~
Ullo • lAB ...
lAEIo. lAn'
18510. IBM
IBOO, 18E8
lC108, lC58
lCCO. lCOO
1030. 10100
lOAD. 10BB
lEU. lE28

12E~.

lItBC.
16CA

15510,

155~'

t'

10

!__~~__,~,....-1_2_~_25_2_~_12_S_5_B_0
,

;;. JAUtA; A$Q4 ¢ IUt4!

DATE

05MAY6S

e ..

10AUG65

22FE866

,15JUN61

l~2.:..5_62_l_.-;.,._13_0_1o_9_8_ _..-._ _ _ _ _ _- - . . - ......

____

10

F8Z0-3

~--PA-G...E--Z-3---'

_""!"'_ _- -......

DATE
Et

OSMAY65
124252

10AUG65
125580 '

22FE866
125621

15JUN61
130498 '

PAGE

I'B20-3

23A

II
IBM'MAINT~NANCE

i8M MAiNTENANCE O_AGNOSTIC PROGRAM

DIAGNOSTIC PROGRAM
PIN
PAGE

25~0 PUNCH FUNCTION TESTS - SECTION 1 F820

,j

,
1
,

1

C

R12

1

o

1'13

1

E

Ri4

1

F

R15
REG

'J

1

FOOO

j
I

!I
!

!

!
i

1
1
1

o
4

4

1
1
4
4
1
1

IFlA
IFOA
1F2A
A
C

lE56
119~

48

40.
1720 '

3
6

12

15DF
1306
1583

3

15e2

1

1413
1581'
140e
15E2
lOE6
1690

3
4.
4

2

j

A
6

16

3

i

F

'+
4

UE4
1270

:. ~!~!

UNC
ee02

()

o '0

,~lE ~:::~'

lEAe.

10F6,
1210,
13F8,

lBF2,
1978,
19E8.
lA50,
lAe8.
1838.
1884,
IC2C,
1Cge.
1014,
1084,
10Fe.

190C,
1988.
191'8,
lA68,
lA08,
IB48,
18C4,
le3e.
le84,
1024,
1094,
IEoe.

191e,
1990,
lA08,
1A78.
lAEO.
1858,
IB04,
le4e.
leC4.
1034,
10A4,

lEB6.

IEeo,

lEtA,
1194,
1756
1102,

lEIC.

1114. 1104,
169C. 16AO,
1140, 1140,
1690. 169A
1146. 11F4, 1280,
18Ae
1236, 1266, 169A
138A, 13A2, 138e,
148E, "14ec. 1518.
174e, 1752, 1194,
101E, 102A. IB36,
1800. 18E4, 18FO.
1962, 1972. 1982,
1902. 19E2. 19F2.
lA42, lA52, lA62.
lAB2, lAC2, lAD2.
1822, 1832, 1842.
lB9E, IBAE, 18DE.
lC16,
lC26,
le36,
lC86, le96, leA6.
leFE.
lODE. IDlE,
106E t 101E. l08E,
10E6. 10F6, IEOll,
lE52, lE5E. lE64,
lE82, lE08. iEFO,
110A, 1168, 1108,
1232, 1262, 1204,
1416, 1526. 155C,

128C.

12FO.

1536

14E6,

14EE,

1692

1306, 1414,
152E, 1534,
118A, ,17E2.
1842, 1066.
1916, 1926,
1992, 19A2.
lA02, lA12,
tA12, tA82,
lAE2. lAF2.
1852, 1862.
l8eE, 180f.
lC46, lC56.
leBE. iCCE,
10ZE. 103E.
1091:, 10AE,
lE1lo, lE26.
IEl2, lE7E,
lEF&:
11e2.

1204,
1684,.

eswo
OBIl
OBlY
EQHI
EOLO
GOlD
GREG
HeAW
Hesw,
HUNG
lAeT
IOSN
leAW·

leell
teNT
IeSIl
1010
IEXP

IHIO
INn

1101011

:g::
INT3

: : : ; : : ' __

1842.
1812,
1882.

1808,
182A
18E4

18FO,

1208 '
110E

"

192e, 1940, 1958
19A8. 19BO, 1ge8
lA18. lA28, lA38
lA80, tA98. lAA8
lAF8, 1800, 1818
1868. IB84, 1894
18EC. 18FC, 1COC
le5C, 1e6C, lC1C
le04. lCE4, leF4 '
1044. 1054. 1064
108e; IDee, 100C
IE2C. 1E68. lE14
tEF4
11AE, 1214, 12CO

4

1422
16eo
1006
1802
1936

1982
lA22
lA92

1266
1200
10fA

lTJO

llC6

lTWO

4
6
6

1236
1 lAO

1

1613

1
1

1614
7

1

1000

1

8

11eA,
12EO,

12Ee

16eE,

175A

IF60
IF86
1FAF
1FD4
1675
loDe
1004

16

16
i6
16
1
1
It

l

HOC

lEBA

4

3
1

1050
10El

1

6

1
1

5A
1568

1402

4

16M

1

lE4A
119C
1132,
1140.
16CO
1254,
1294,

4
1
1
4
16

lAO
1F44
lODE
100F
1132
15C5

13C6,
1308
1250,

124A.

128C,
1140.

1536
1102,

1464.
UCE.

1494
12AC,
1300.

13DE.

1430

12A4.

142A

1228,

1236.

1266.

12FO

14,7e
1888,
1718,
1940.
11e2,

1204
1306

o
8
4

4

"

16
18eE,
17A8,
1B7C,
11CA,

18E6.
l1ce,
1E56'
110e

lEBO.
17F4.
IEA4,

lEeA
184C.
IEE8

4
4
4

1890

~!:~

l.::.~ :~~:'

5
3
6

fl

.

h

ISV2
IT IC

IUIO
JOHN
MSKI
MSK2
NCCO
NIOU
NONE

••

_...

..

__ " ::.,

"':~

J. !i

DATE

Et

.:::~

peHI
PCH2
peH3
PCH4.
RTSV
SOMF
SNSII
SOME
SRET
U10P
UNEQ
WHAT
WORK

05MAY65

8LOOP
OHSSW
OONLY
FLAGI
FLAG2
GOMAN
IBLAH

10AUG65

. . . :',':"

1158,
12A4,
13FO,
154C,
lE64
lEU
1752.

t

1210,
1180,
1878.
1948,
1988.
1A20,
lA98,
1B08,
1B84.
18FC.
le6C.
leE4.
1054.
IDee,
lE68,

1214,
1100,
1898,
1958, '
19C8,
lA38.
lAA8,
1818,
1694,
leoc,
lC1C,
lCF4,
1064,
100C,
lE86

121C
I1FC,
18A2.
1968,
1908,
lA48,
lAB8,
1828,
18A4,
lelC.
lC8C.
1004.
1074,
10EC,

1814,
180A,
1970,
19E8,
lA58,
lAC 0 ,
1838.
1664"
It2C,
lC9C.
1014,
1084_
10FC.

1820,
190C,
1988,
19FB.
lA68.
lA08.
1848,
1Be4.
lC3C,
lC84 1/
1024,
1094,
1EOC,

102C
191e
1998
lA08 '
lAl0
lAE8
1858
1804.
lC4C
lCC4
1034
IDA4 '
lE1C

118A.
IEeo,

1796,
lEF4

178C.

1808,

18C2.

18F2

lL
f

I:,"

1198

-:"

12e4.

12F4

1160.
12AC,
1438.
1696.

1110.

1180,

121~;

131~.

131C,

1460,
lE98,

1478,

1336,
1490,
lEU

U54. "U5e,
1850. lE46,

116C,
1E94,

l11C,
lE9C,

1368,

lOBO
1210.

1302,

130e,

132E,

13e2.

13E2.

146A.
14FC,

1400.
1482,
1502,

1402, 1404,
1482, 149A,
1508 •. 150E

140A.
14EE.

1254,
1464,
13E8,
1228,

1404.
1494
1470,
1328,

140A,

1414,

13~A,

1488.
1328.
149A

lltAo
146.

12A8.

1300.
141e,
1458,
1298,
l3U.

139A.

13ge,

UAZ,

1534.

lOFE,

1112

120C.

12t:8,

1302,

130C.

lEAO,

128C,
133E.
14AE,

1294.
136e
15lE

153A,

11Ee

lEFO

174C

112e.

1236.
1452,
14FA,
16eE

1686
lEEO

14EA

lEFE

13FC leOUT
16561CSili
165E leSII2
15lA ICUIO
145e 10101
1114 IHANG
15A3 IllNK'
12FO . 'ILOKE
1164·.ILOOP
1354' INOER
1010, INPSII
1610 10ADR
142A 10CSil

2

1418

143e.
1838,
1164.
1904,
1150,
1232

llEC.

1100,
185C,
192C,
19AO,
lA18,
lAB8,
1AFB,
1868,
16EC,
lC5C,
1eD4,
1044,
lOBe,
lE2C,
1224
12F4
1768,
lE74,
U8A
1218
1158,
1200
1200
1178.

1802

1872
18Ft. .
1e66
lCOE
1D4E
10C6
1E36
lEBA

ce12

, -I

i;

10E6,
1968,
1908,
lA48,
lAB8,
1B28,
10A4,
lele,
leoe.
1004,
1014,
10Et,
IEOO.
1164,
12e8,
1132,
1690,
1146,
IB6C.
1228,
1240,
1428.
1146.
IB12,
18ee.
1952,
1ge2,
tA32.
lAA2.
1B12,
180E.
le06,
1e16.
IeEE,
105E.
1006,
IE44.

2540 PUNCH FUNCTION TESTS - SECTION 1 F020

115A
124A,
143C,
125A,
1102,
1266,
14EA
1438
1188

1392.

142A

uce

10F2,
12C4.
133E
1384
13AC

,,''':,',1 ,. ~::',
22FE866

l!1JUN61 '

rT'""

131t.

132E

10

PAGE

F82o-~

24A

0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 10 0 0 0 0 0 0 0 0

0000000000000000000000000000000000
<

..O.""'""""-, ......,<; ...._....J.k" ......."".'i.*ir'HMt-.
.
.........."..
'_

.....
.1",,'....
___

.~~ .iOi-~,'1'."""._,\.~.
.....

PIN 840191
PAGE
25A

i8M MAINTENANCE OIAGNOSTIC PROGRAM' .
PIN 840191
PAGE
25

IBM MAINTENANCE OIAGNOSTIC PROGRAM

2540 PUNCH FUNCTION TESTS - SECTION 1 FazO
2540 PUNCH FUNCTION TESTS - SECTION 1 F820

16
16
4
8
4'
4
4

11

""
"1
"
1

1
13
2
2
5
8
6
11
10
6,
6

6
6
6
6
4

"

10
11

6
1
1
4
6
4'
It
4

15
4
8
2
6

DATE
Ee

i~_

15FB·
1620
14E6
1560
llAE
115C
116C
1676
llF" '

IOLOG
IOPTl
IPASS
ISAVE
ISSUE
lTRYl
lTRY2
IUNEX
IWAlT
UEO IZERO
16D1t . M0050
o NEVER
1608 PCHAR
1000 SECNO

10EO
IF60
lE38
1B74
1058
1018
16B6
15FO
158A
1418
1328
134A
1452
1482
13E2
12BO
1358
1580
15E5
111E
1388
l52C
1548
14EE
147"
1208
12E4
159"
1078
1038
152A
1378

05MA165.
121t252

UNITI
BYPASS
OONRTN
EX IT 10
EXNPSW
EXOPSW
HANGUP
IAC5NS
IACTCC
ICCOUT
ICCSWl·
ICCSW2
ICHNGI
ICHNG2
ICWOUT
100SN5
IOUNCK
IEXPCC
IEX5NS
IEYEOH
IFLAGI
IFLAG2
ILEAVE
ILOGEO
I HORST'
INOEXl,
INOEX2
IOAOOR
IONPSW'
IOOPSW
10POUT
' lOUT IT

lOAUG65
125580 ,

14FC,
10EA,
14AE,
1128,
10E6,
1168,

1502,
1102,
1402,
1558
10FA,
117'8,

1508,
1116,
140A
110E,

150E,
152E

1518

13BE,

1670

4
8
8
4

9
1
8

153E

8'
4

1160

1242,
1284,
11B2
16AO

1248
1526

1136,
112C,
139A,
1300,
14B6,
14F8,
1146,
llBA,
182A,
18CC,
1936,
19A2,
lA12,
lA82,
lAF2,
1862,
18CE,
lC36,
leA6,
100E,
107E,
10F6,
lE52,
1EAC,
169C
1146,
1084

113A,
1240,
139C,
1306,
1488,
lItFA,
174C,
17C9,
1836,
1808,
1930,
1982,
lA22,
1A92,
1802,
IB72,
180E,
lC46,
lCAO,
IDlE,
108E,
lE06,
lESE,
lE82,

113A,
1242,
13A2,
1400.
14BE,
1518,
1752,
17E2,
1842,
18E4,
1952,
19C2,
lA32,
1AA2,
1812,
1B79;
IBE5,
1C56,
lCBE,.
102E,
109E,
lEl6,
lE64,
lE08,

1F58
1248,
13B4,
1402,
14e",
152E,
1761,
17E9,
1849,
18FO,
1962,
1902,
lA42,
lA82,
1822,
IB8E,
IBF6,
le66,
lCCE,
103E,
IDle,
lE26.
lE12,
1EFO,

1382,
1386,
1414,
14C6,
1534,
1775,
1806.
1866,
1901,
1972,
19E2,
1A52,
lAe2,
1832,
IB9E,
lC06,
1C76,
lCOE,
104E,
10e6,
lE36,
1E7E,
lEFE

1384,
138C,
1422,
14CC.
1686.
1794,
1812,
1882,
1916,
1982,
19F2,
lA62,
lA02,
IB42.
18AE,
1C16,
1C86f
1CEE,
105E,
1006,
lE30,
lE8A,

lE"4,

lE52,

lE5E.

1EAC.

1E08

16A8
12FC,
11AA,

13C2,
1324
1346
1446
144E
13F8
128C,
12EO,
1418,
14A4,
10F6,
1358,
135C,
136C
1262
1460
1314
1336
10EE,
1214,:
151E'
136"
22FE866
125621

4
4

11teC,
lICE,

14DE,

1668

lIED,

UO~,

14C4,
118E,
UFO

l1te6,
llC6,

129C,
12EC.
1422
1486,
110A
1310
1314

16C6
1350
1488,

14BE,

1"06

1106,

IlIA,

1386,

UBC

138A
13CE
1428
14eE
16CO
17A5
181E
1880
1926
1992
lA02
lA72
lAE2
IB52
1BSE
lC26
lC96
1CFE
106E
10E6
1Elt4 .
lE91

8
8
4

1214
1668
1688
12C8
1611
80
1070
1030
169C
1F02
IF3C

IRETRN
ISENSE
ISLAVE
ITIOLP
ITSTNO
LOGOUT
MeNPSW
MCOPSW
NITWIT
NOPCSW
PFRCSW

1068 PGNPSW
1028 PGOPSW
IF4C PROCSW

1760 ROUTOl
'1774 ROUT02
17 AIt ROUT03
1
17C8 ROUT04
1
17E8 ROUT05
1
1848 ROUT06
1
188C ROUT07
1
1900 ROUT08
1
193e ROUT09
1
1, 1B78 ROUTlO
18E4 ROUT1l
1
leAe ROUTl2
1
1E3e ROUTl3
1
1E90 ROUTl4
1
lEOC ROUTl5
1
1EltE SilLONG
2
1060SV.NPSW.
B
1020SVOPSW
8
181 SYSMOD
1
1142 TELHl"
2
10EZ
U1AOOR
2
11'32 UCNVLO
4
1 1000 )(1'8203

1
1

1428 .

101e
12B8
1124
1200
111E,
111t6,

1378,
1146,

1382,

1696
17E2
1806,
1.982,
lA62,
18"2,
18DE,
lC56,

181E,
19A2,
lA82,
1862.
18F6,
1C66,

1836,
19C2,
lAA2,
188E,
1C06,
1C76,

178A,
1902,
lA82,
lC8E,
102E,
109E,
1El6,
11'1'6

1794,
19B2,
lA92,
1872,
IDlE,
108E,
1E06,
1015,
1761
1775
11A5
17C9
17E9
1849
1880
1901
1930
1879
18E5
lCAD

1384,

138A

1866,
19E2,
1AC2.
189E,
1C16,
lC86.

18CC,
lA02,
lAE2,
18AE,
1C26,
lC96,

1916,
lA22,
1802,
18BE,
lC36,
1CA6

1962
lA42
1B22
l8eE
1C46

1926, .1936,
19F2, lA12,
1AD2, lAF2,
1ceE. lCDE,
103E, 104£,
10AE, 10C6,
lE26, 1E36

1952,
1A32,
1B12,
1CEE,
lOSE,
1006,

1912,
lA52.
1832;
leFE.
106E,
1016;

1992
lA12 .
1852
lo0E
IDlE
10F6

HEE

IUD
1E91
11FO,

lE98,'

lEAD,

lEE4'

14E6
14E2

1E12,

111&

NO ERROR DETECTED. IN ABOVE ASSEMBLY

1240

15JUN61 .
130498

10
F820-3
PAGE
25

DATE

EC

05HA165
124252

10AUG65
1255BO

22FE866
125621

15JUN61·
130498

10
PAGE

F820-3
25A

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

; , _........ ' - -.. --- ...- ••~- ... ,- . . "----.-~.~~,--- ---""'-~,~'...
; - - - ,......,,",,'-

;1

.I

.............
" -_ _......_ _ _ _....._._'.....
b....
' . .' .·._ _•. .t..
' ,",'t...........,......~

¥'

m(> 51 be

IBM MAINTENANCE DIAGNOSTIC PROGRAM
FB20

25~0

PIN 840191
PAGE
26

PCH FUNCTION SEC 1

FB20

PERIODS CORRESPOND TO"BLANK COLUMNS.
COLS.

1 THROUGH 20

IBM MAINTENANCE DIAGNOSTIC PROGRAM

COLS.

~O

COLS.

~l

THROUGH 60

COLS.

•• A8 •• AAABFM
Y9 V9V998
9
9 9 9

fM80MA6PAAADLH+A50BE
988-Z8 9ZYY980 0 080
99 9
9 9- 0 99

ACERE080JA5LACAOAAAA
V990908-YO OZOV9-YOY,
9990909

8TXT.ALH •• A8 •• AA80JG
9
V90' V9 Y9B-Y8
9- 9
999

5DE010G-40+J5HBEACEI
-_0 YZ 9 Y OBOV990
-999 -

·EHBOJC5CKB5F5BB04LKG
9D8-Y8 0 9
-9 99

BTXT .ALO •• A8 •• AAGA40
9
V9
Y9 V9ZY 9

AKAHG03SBEAHEOEOKG5&
ZYV9Z
80V99Z91 9 V
999
9
9

'OKG5L50BOJK5EG9KA5E
Z 9
+8-V8' 9 V 0

5F5GBK4LAHAAGA4MKB5D'
0-8 9-90YIV B 9 0
D9
09
9

5SHCAF.A4FAHAH.A4FKG
lYY9 Y RI0Y9 Y 0 9

KB505GKG506FEA3DADAA
9 0 0 9 Z RZO 0-90V
9 9
Z 09

GA4DKB'D5SKG5050EA3D
ZY Y 9 Q 9 Z ZZQ 0
9
Z

'060EA3DKA5KAEADOUGA
Z 8Z0 0 Y Y09-9 ZV
Z 9 90

4W8EAAEKEKBOJC5VBEAA:
80V99V9Y8-Y8 80V9
999 9 99 9 999

E5E5BOJC50EL82030022
9 9 8-Y8 -9

4WE45KGA~WE~55GA78EA

ZY Z-O
Z

JAG-5KKC50SABEADEQEO
10Z 8 8 Z8Y80V89Z91
9 9
9999

KA6A50KE6C5+82030023
9VZ99-

58KE6J'2BOJM5CABOUGA
R 9 9 88-V8 0-9 lY

5SDEOUG01480066JBOJA
8-0 Z 8-+9 Y8-Y9

5L+NAHAODDG+82030024
OYVl-+ 91

9

61 THROUGH 80

PCH FUNCTION SEC 1

25~0

BTXT~ALA

21 THROUGH

Y9Y
,9

BESO •••••• AA •• AAXFB2
9
YO Y9
99 9

03 •• AAAA.AG6 •••• ~ •••

BTXT.AAA •• AB •• AABJAA
9
YOY Y9 V9 YOV,
999 9
9 9Z9

AAAAAAAAAAOAADAAAAPYVYVVYVVY9+Y99YYYY9
999999999 9 9999

AAAAAAAAAAAAAAAAAAAA
YYYYYYYYYYYYYYYYYYYY
99999999999999999999

999999999999

BTXT.AAB •• AS •• AAAAAA
9
VQ9 Y9 Y9VVVV
99
9
9 9999

AAAAAAAAAAAAAAAAAAAA
YYYVVYYVYYYYVYVYYVVY
99999999999999999999

AAAAAAAAADAAAAAAAAAA
YYYYYYYYY9YYYYYYYYYY ,
999999999 9999999999

AAAAAAAAAAAA82030003
YYYYYYYYYYYY
999999999999

BTXT .AMY •• A8 •• AA5BK8
9
Y99 Y9 V9 Y 9

BTXT.AAO •• AA •• AAAAAA
9
YO+ YO V9YYVY
99- 99 9 9999'

AAAAADAAAAKM ••••••••
YVVY99VVVY99
9999 9999

•....•....•.........

• ••••••••••• 82030004

BTXT.AM-•• A8 •• AAGA~D
9
Y9· V9 V91Y R

BTXT.AAS •• A8 •• AABAAA
9
V08' Y9 V90YYY
99
9
9 9 9

AABF1DBH61BH5JBflMGO
YY-Q,Y- S- Y-Q ZZ

10BE10BEIMBT61BT5JGO
B-O Y-O,Z- 8- Yl

BTXT.AJO•• A8 •• AA61BS
9
V99 V9 Y9 89
9
9 9

5JKA6MABAL6HAI5-KA6E
Y 9 B090Y 000
YR
90
9 0

OC+NAHB.60KF6R60PGO.
9 YYZ8
9-

BTXT.AJ+ •• A8 •• AAGAIU
9
V9
Y9 Y910
9
9
9 9

AOODGA1JAAODGA1UDAOA
-+ 9ZY Y-Y 9ZY 80Y+Y

G01MA.ODGA1DEAOAG01M.
Z 8- 9ZY YOY+Y!+ 8

BTXT.AJH•• A8 •• AAG010;
9
Y90,. V9 V91 R

,HOAHHAACEAOAGA1JFA10
R89-00V90Y+VZY YZO 9
9999
9

PAOUOUFAOUBX5GOAOAGA
9
-Y - YOY+YZY

lUB25GG01UBI5GKG6FO.

F.OUG01UB05GD70UA.AA
Z
Y-8 - OY
09

GA2HFAOUHFAH82030009
ZO 0-0 R09-

G02HA002G-26D70UA.OU
Z 08+ 8Z 9-8 -

GA20KG6fO.F.82030010
ZO Z 9 R

9

9

9

O'

VYOV YB
9999 99

99

9

yz

Y 9 R-

9

9

9

99-

9 9

FAOUAA6CFA2DAA6DD70U
-Y YV RZO 9YY R-S

BTXT.AKA •• A8 •• AAOUGD
9
V90 V9 Y9 Z

20KG500.BEACAIF3BOMC
+ 9 Z 80Y9V89BB-ZB
999 99 9 9

6FKB5F5GBK~LKB5D5GEA

FJOUAAAAGA2HAHOUGA2H
-Y -OOVZY 0-9 ZO 0
9
909
9

FHOUG01~ABAAGA2AA.OU

9 Z

9

9

BTXT.AKO •• A8 •• AA600.
9
V9Z Y9 Y9 8
9

9

9

9 0

9

BTXT.AKJ •• A8 •• AAAJOU
9
Y9Y Y9 Y9-V
9
9
9 9

GA3FAB6KGA3FHFAHHAAB '
IY 9-9 ZZY 9R09-00Y9

BTXT.AKO•• A8 •• AAA.OU'
9
V9
V9 Y9-

GA30G03HAJOUGA3DG03H
10 RZ R-Y 10 RZ R

9

9

9

9

9

9

9

R9

O-B 9 9 0 OZO
0 9
9 9

o

9

9

9

0

BTXT.AMH •• A8 •• AA5GKG
9
Y9- Y9 V9 0 9

10BD1DBD1MBS82030005
8-0 Y-O Z-

9

9

9.

9

0.PCSASAAAAA82030006
- 88Y8Y-YOY
9
09

8TXT.AMO •• A8 •• AAOCGJ
9
Y9- Y9 V9 9ZY .

A.ODGA1DDAOA82030007
- 9ZY YOY+Y

BTXT • ANH.·.A8 •• AAKE68
9
Y99 . Y9 Y9 9 8

9

9 9

9

9 9

9

9

9

9

9

9

Z Y9

9 -

9

9

8A5UKA6MA8BE82030016
-Y89 80980
9
90 99

6060GA3HfAOUBM3HB05U
8'81Y R-9 -2 0-+ 8

AAOUGA3HAAOOGA5H8U3H
-9 10.R-9 9ZY Z-9'0
9 0

0

ADBOJ85ABOJB82030019
09B-V8 Y8-V8
o9 9 9 9
5050EA3DA.OUB2030020
Z ZZO 0-

9

Z

AJOUGA4MK85D82030021
lY 0 9 0

-Y
9

9

9

9

99

9

9

9

•••••••••••• B2030025

.X.EXP.CC •• X.ACT.ADR

.XXXXXX.XIOA ••••••••

•••• ; ••••••• 82030026

Y

.•............•.....

•••••••••••• 82030027

.xxxxxx.CSWCCW.CSW.X

XXXXXXX.XXXXXXXX.EXP

ACTEXP.SNS.XB2030028

P.SNS.XX.ACT.LOG.XX.

XXXXXX.XXXXXX.XXXXXX

.TST~XXXX.SE82030029

OT.SS.l.ON.FOR.TIO.S

IO.LOOPAAAAA82030030
YYYVY
99999

.XXXXXX.LINKA •••••••
V
9

9

OUGA3DAHAH.A82030015
ZY RZOY9 Y

9

9 Z

9

Z

HI5-GCGAAAAAAAAA ••••
-0 9Q9YYYVYYYYY
Z 999999999

9

3DNA5GADG-3D82030014
. R Y Y091 R

9

9

9

9 I

9

9

EDODG020FDOUNA55AEG-8-ZZ+ --9
Y 09Z
990

9

9

50JAEA3DAOJD82030018
ZYYZO 0-+Y9

9-

-9

9

8TXT.AOT •• A8 •• AAT.5S
9
Y99 V9 Y9

- GA3FAB6KGA2A82030012
ZY 9-9 8Z0 0

-

-9

'GA45BEACFOE182030017
ZO 880V99+99 9999 -

OUGNAHAAGA50ACABACAF
99-90YIV RZOY9Z0Y9
09
09 09

BTXT.ANC •• A8 •• AA.CAW
9
Y90 Y9 Y9

3DF80UGO~OKG82030011

YIY
9

0'

9

BTXT.ANL •• AJ •• AA.AOR
9
V90' Y9 V9
9

'Z

9

8TXT.ANA •• AU •• AA.CC.
9
V9Y V9 Y9

9

0-9

9

-

9

BTXT.AN••• AY •• AAlMAA
9 . Y9
V9 V9 8-Y

lSG.1FGJ1FB38203000&
Bl YZY

9

9

G.20FA2HG03FB2030013
Z ZO Z 9

-90YZY 009
0

BTXT.ALH •• A8 •• AA3FNG
9
V9Z Y9 Y9·89

9

9

9

AA6Q+EAHDAOAG03DEAOA
lY Z YYZOY+YZ+ROY+Y
99999

Z

9

9

9

9

9 0

-9

NG6F6FG-30AOAAGA2UAJ
9 R RZ R-90YIY -Y
09
9

9

9

BTXT.ANL •• A8 •• AAX.EX
9
V9Y V9 V9
9 9 9
9

GA20A.OUGA3DHCAF.A3U
ZY ZY RIYY9 Y 8

9

AAAAAAAAAAAA82030002

yyyyyyyyyyyy'

9

BTXT.ALA •• A8 •• AAAHAA
9
Y90 V9 V9-90V
999
9· 09

9

•• 82030001

9

BTXT.AJ8 •• A8 •• AAHAAC
9
V9
Y9 V90QY9
9
9
9
9

9 0

192.130~98

9

9

9 9

8TXT.AJO •• A8 •• AA5GGO
9
V9+ Y9 Y9 Yl
9

9

••••••••••••••••• 840

PIN 840191
PAGE
26A.

8

9

BTXT.AOL •• A8 •• AAAAAA
9
V98 Y9Y9VYVY
9
9
9 9999

AAAAAAAAADAN5AAAAAJD,
VVYYVYYYY9V9 YYY9Y9Y
999999999 9 999 9

FAA.UIO.XXXXXXAGAGAG
09Y
Y9V9Y9

BTXT.AOC •• A8 •• AA.JFG,
9
V9- V9 V9. Z_l

A6DOGHOOSDD6MAAOUGA6
Y 090R+ 8R+ -V ZQ

fBCGHAJGHG4KAOC6EBOM
0-90RZVOR9 Y 9 R8-Z
Z
Z
9
09

9

• • • • • • • • •1. . . . . . . . . . . . . .

............ ,,' ••• B2030033

9

9

9

9

9

BTXT.AOC •• AE •• AAAOUG
9
V9Y V8 Y9V. l
99 99 9.9

9

06MGAAA7G •••••••••••
09VYV80
9999Z

Z 9

9 99

AAAAAAAAALEA&2030031
VYYYYYYYV8Q99999999999
K7YFAOUE+2AB82030032
89-9 Z 0'0

"

'.
.

,

DAte
EC

05MAY6~
12~Z52

10AUG65
125580

22fE866
125621

15JUN67
130~98

-

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

()
..

'~,

10
F8Z0-3
PAGE
26
----~~_.~

________

DATE
EC

05 "AY65
124252

10AUG65
125580

.k~~~~------------------

12fEB66
12'621

____________

t'JUN67,
130498

10
FUD-3
PAGE
26A

..

.... .

-..'!~,~~~~.'~1~'~'~)'lr.~'~"~.~"~'~o/~.r~~~~-,~?-.~~~----~~~~~

; I

0 0 0 0 0 0 0 0 0 0 0 ' 0 0 0 0 0 0 0 0 0 0 0 0 010 0 0 0 0 0 0 0 0

o!ooooooooooooo 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
.

_~" •• , < ,

,.

IBM MAINTENANCE DIAGNOSTIC PROGRAM
F820

PIN 840191
PAGE
27

2540 PCH FUNCTION SEC 1

8TKT.APY •• A8 •• AA.PRE
9
Y99 Y9 Y9

..... ". ,.

~

F820

YIDUS.HANG.UP.DETECT

PIN 840191
PAGE
274

IBM 'MAINTENANCE DIAGNOSTIC PROGRAM
2540 PCH FUNCTION SEC 1

BTXT.AKS •• AB •• AAOAG4
9
Y80 Y9 Y9 YQ8
99
9
9 9Z9

BBGHEAIFSAEJOAGDBNGH
-YQRZO 80Y9Y Y08-00R
9Z 0 999 9 9Z
Z

EAIF6AEAOAG4BBGHEA1F
ZO 88Y9Q Y08-0QRIO 8
o 999 Z 9Z9 91 0 9

SAE.OAGDBEGH02030051
8Y9 YQ8-YQR
99
91
I

OBBAAAIAGDEA82030035
08YYQ Y08ZQ
I 99Z 91 0

BTXT.AlO •• AO •• AAEAIF
9
Y09 Y9 Y9Z0 8
99
9
9 0 9

6AE+OAG4BKGHEAIFSAEOY9 Y08-YQRIQ 88Y9
99
9Z9 9Z 0 999

OAGD81GHEAIF6AEOOAG4
Y08--0RZO 80Y9+ YQ8
9Z
Z 0 999 - 9Z9

BBGHEAIFSAEA82030052
-QQRZQ 88Y9Y
lZ 0 999

EAIFSAA+OAGDEAOBBAAZQ 88YY YOOZO 09YY
o 9999 9Z 0 Z 99

OABODAGYE.6A82030036
Y8 9Y9 Z 0
99 9

BTXT.AL+ •• A8 •• AAOAGD
9
Y8
Y9 V9 Y08
99
9
9 91

BEGHEAIF6AEAOAG4BFGH '
-QQRZQ 8eY9Q YQ8- OR
Z 0 999
9Z9 Z

EAIFSAEEOAGDBOGAAACU
ZO 88Y9- YQ88 9YOY8
o 999 9Z 9 9999

I

AJGHEAIF8AAOIAGBBDGA
ZYQRZC OOYY+ YQ98 9Y
I
0 9999- 9Z 9 9

EAHHAAOOGAFFE.6ABAGH
9Y91-9 910081 Q-IQR
9
9Z
I

EAIFSAAAOAG482030037
ZO 88YYY Y08
o 9999 919

BTXT.AlH •• A8 •• AA6AFA
9
V80 Y9 V98Y9Y
99
9
9 99 9

OAG4BIGHEAIF6AFAOAG4
YQ8-90RZO 88Y9Q YQ8
9Z9 Z 0 999 9 9Z9

8/GHEAIF6AFJOAG48AGH
- ORZO 88Y9Y Y08-RQR
Z 0 999 9 9Z9 OZ

EAIF6AFAOAG482030054
ZQ 88Y9Q YQ8
o 999 I 9Z9

0 Z

4AAAIAGBEAIFSAAAOAG4
OYYO YQOZO 08Y9Y Y08
999 9Z9 0 999 9 919

EAIF4AAAIAGBEAIFSAAJ
IQ 80Y90 YQ8Z0 88Y9Y
o 999 9 919 0 999 9

OAG4EAOW4AAA8203003B
YQ8IO 8Y90
919 0 99 Z

8TXT.AlO •• A8 •• AABJGH
9
Y8+ Y9 Y9-0QR
99
9
9
I

EAIF6AF.OAG4BAGHEAIF
ZO 88Y9 Y08-00RZQ 8'
o 999
9Z9 -Z 0 9

6AF+OAG4BOGAJADMBJGH
8Y9 Y088 9Y9YOY-9QR
99
9Z99 9 99
I

EAIF6AF-OAG4B2030055
ZO 88Y9 Y08
o 999 9Z9

BTXT.AQ••• AB •• AAIAGK
9
Y9
Y9 Y9 YQ8
9
9
9 9Z9

BDGAFAHDE.6AAAODGAFF
8 9Y9Y9YI Q-9 9lQQ8
9 9 9
9Z

BAGHEAIFSAA.OAG4B5GH
-ZQRZQ 88Y9 Y08- QR
I
0 999
919 Z

HFAHH.ADF.8D82030039
R89-0 Y91 R
9
0

BTXT.Al8 •• A8 •• AA8NGH
9
V8
V9 Y9-90R
99
9
<)
Z

EAIF6AFOOAG4BAGHEAIF
ZO BOY9+ YQO-RORZQ 8
o 999 - 919 I 0 9

6AFAOAG4BEGHEAIF6AFA
8Y9Y Y08-RORIO 88Y90
99
9Z9 Z 0 999

OAG4BAGHEAIF82030056
YOB--ORlO 8
919 Z 0 9

BTXT. AQH •• AB •• AAEAIF '
9
Y9R Y9 Y9ZQ 8 '
909
909

8AA+IAGSBCGHBDGAGAAA
9Y9 YQO-90RO 9Y9Y8Y
9
9Z9 Z 9 9 999

E.6ABAGHEAIFBAA-OAEA
I
O-IORIO 8lY9 YIO
I
099
9 0

IF8AA02AHFAH82030040
8IY9+ YR099 9 - 9

9

BTXT.AMA •• A8 •• AA6AGA
YBO Y9 Y98Y9Y
9919
999'9

OAG4BEGHEAIF6AGAOAG4
YOO~-ORIO OBY90 Y08
9Z9 I
0 999 9 919

BAGHEAIF6AGJOAG4BEGH
-90RIO B8Y9Y YOB-90R
I
0 999 9 9Z9 Z

10 88Y9Q YOS

BTXT.AQA •• A8 •• AAHAAO,
9
Y9Q Y9 Y90QY9
9 0 9
9
9

FA8DEAOWBAAAOAEA088A
IQ OIQ ZY9Y YIO QOY
- 0
9
901 9

AAIAG4EAOWBABAIAGKEA
90 YQ810 8Y9Y Y0810
9Z9 0
9 9 919 0

IFHABAIAGSEA820300~1

BTXT.AQY •• A8 •• AAOWBA
9
Y9
Y9 Y9 8Y
9
9
9
9

BJIAGKEA088ABAOA8DGA
9Y Y08lQ QZY9Q Y89Y
9 9Z9 0 Z 9 I 99 9

HAA4E.6ABAGHEAIF6AB.
9Y801 Q-ZORIO 80Y9
999,
I
0 9,9.9

BTXT.AJJ •• A8 •• AAYAB+ '
Y8Y Y9 Y99Y9
9
999 9
9 9

OAGD8FGHEAIFYAB-OAGD
YQO- QRIQ 09Y9 Y08
9Z
Z 0 9 9
91

8TXT.AJH •• A8 •• AAEAIF
9
YOR Y9 Y9lQ 0
999909

9

9

BTXT.AP-•• A8 •• AAAAGO
9
Y9
Y9 Y99Y9R
9

9

9

9 0

BTXT.APH •• A8 •• AAOBBA
9
Y9- Y9 Y9 Q9Y,
9

9

9

Z 9

BTXT.APO •• A8 •• AABCGH
9
Y9- Y9 Y9-9QR
9

9

9

Z

BTXT.AQH •• A8 •• AAEAOB
9
Y99 Y9 Y9IQ Q
9

9

EOBOAAG-BOJSGMBOAVGP
0-Y90 8-Y90 0-Y90Y
9
19
19
I

BBEAOAG012GA82030034
80QY+YZ 99Y

E.6AEAOBBAAAOABDBAGM
Z OZO Q9YYQ YO 9Y90
o Z 999 99 9

E.6A8DGHEAIFBAAJOAEA
I
0-90RIO OIYYY YZO
I
0 9 999 9 0

A.OA8DGACAGHE.6ABDGH
Y YO 9Y9Y9 I Q-9QR
9 99 9 9
I

9

9

99 9 9

9

E.6AB/GHEAIF82030053
Q-9QRIO 8
109

EAIF6AGAOAG482030057

o 999 I 919

BTXT.AMO •• A8 •• AABAGH
9
Y8Z Y9 Y9-10R
99
9
9
Z

EAIF6AG.OAG4BEGHEAIF
10 88Y9 YOO-ZORZO 8
o 999
9Z9 Z 0 9

6AG+OAG4BAGHEAIF6AG·
8Y9 Y08-00RZO 88Y9,
99
9Z9 Z 0 999

OAG4BEGHEAIFB2030058
Y08-0QRZO 8
9Z9 I 0 9

OAG4BBGHEAIF82030042
YQ8- QRZO 8
919 1 0 9

BTXT.AMJ •• AB •• AA6AGO,
9
Y8Y V9 Y98Y9+,
99
9
9 99 -

OAG4BOGAKAF4BFGHEAIF
Y088 9Y9YOO- ORZO 0
9Z99 9 999 Z 0 9

SAGAOAGDBOGHEAIFSAGA
OY9Y Y08- ORZO 88Y90
99
91
Z 0 999

OAGOBWGHEAIF82030059
Y08- QRIO 8
91
Z 0 9

BOGAAACHE.6ABBGHEAIF
8 9Y8Y8RI Q- QRIQ 8
I
0 9
9 99990

SABNOAGDB/GH82030043
8Y9Z Y08-80R
99
91 9Z

BTXT.AMO •• A8 •• AASAHA
9
Y8
Y9 V98Y9Y
99
9
9 99 9

OAGDB6GHEAIFSAHAOAGD
Y08~ ORIO 88Y90 YQ8
9Z
Z 0 999 9 9Z

BFGHEAIF SAHJOAGDBFGH ,
-YORZO 88Y9Y Y08-00R
9Z 0 999 9 9Z 9Z

EAIFSAHAOAGDB2030060
ZO 88Y90 Y08
o 999 Z 91

6ABOOAG488GHEAIFSABA
8Y9+ YQ8- QRIQ 88Y9Y
99 - 919 Z 0 999

OAGDBIGHEAIF6ABAOAG4
Y08-80RZO 88Y90 Y08
91 91 0 999
919

BKGHEAIFSACA82030044
- QRIO 88Y9Y
Z 0 999 9

BTXT.ANA •• A8 •• AABOGH
9
Y80 Y9 Y9-YOR
999 9
9 9Z

EAIFSAH.OAGDBFGHEAIF
ZO 00Y9 YOO-OORZO 8
o 999 9Z ZZ 0 9

SAH+OAGDBDGHEAIFSAH8Y9 Y08-,90RZO 88Y9
99
9Z
I
0 999

OAGDBUGHEAIF82030061
YQ8-9QRIO 8
9Z
I
0 9

BTXT.AJA •• AO •• AAOAGD
9
Y80 Y9 Y9 YQ8
99
9
9 9Z

B/GHEAIF6ACAOAG4BSGH
-BORZQ 88Y9Q Y08- OR
Z 0 999 9 919 I

EAIFSACJOAG081GHEAIF'
IQ 88Y9Y Y08-80RIQ 8'
o 999 9 9Z I 0 9

6ACAOAG~B2GH82030045

8Y9Q YQ8- OR
99 Z 9Z9 Z'

BTXT.ANH •• A8 •• AASAHO
9
V8Z Y9 Y98Y9+
99
9
9 99 -

OAGDBDGHEAIFSAHAOAGD
Y08-Z0RI080Y9Y YOO
9Z
Z 0 999
9Z

8MGHEAIFSAHAOAGDBDGH
-ZORZO 88Y90 YQ8-00R
9Z
Z
Z 0 999

EAIFSAAAOAGD82030062
ZO 88Y8Y YQ8
o 99999 9Z

8TXT.AJH •• AO •• AAEAIF
9
Y8' Y9 Y9lQ 0
99
9
9 0 9

SAt.OAG08IGHEAIF6AC+ ,
8Y9 YQ8-00RZQ 08Y9
99
9Z
Z 0 999

OAG4B8GHEAlfSAC-OAGD
YQ8-YORZQ 88Y9 YQ8
919 91 0 999
9Z

BIGHEAIF6AC082030046
-OORIO 88Y9+
-Z 0 999 -

BTKT. ANA •• AB •• AABMGH .9
Y8Y Y9 Y9-0QR
99
9
9
I

EAIFSAAAOAGDBDGHEAIF
ZO 08Y80 Y08- ORZO 8
o 99999 91 Z 0 9

SAAJOAGDBUGHEAIFSAAA
OY8Y YQ8- QRZO 88Y8Q
9999 9Z
Z 0 9999Z

OAGDAAOJGAF8B2030063
YQ8-9 ZZOQ9
91
91

8TXT.AKA •• A8 •• AAOAG4
9
Y8Y Y9 Y9 Y08
999 9
9 919

88GHEAIFSACAOAGD8AGH ,
-OQRZQ 80Y9Y YOO-80R
91 0 999
91 9Z

EAIF6ACAOAG4BKGHEAIF
IQ 80Y90 YQ8-YORIQ 8
o 999 9Z9 91 0 9

SADAOAGDBEGH82030047
8Y9Y YQ8-8QR
99 9 91 9Z

8TXT.ANH •• A8 •• AAB4GH
9
Y80 ; Y9 Y9- QR
99-99
Z

EAIFSAA.OAGD84GHEAIF
ZQ 8BYO Y08-90RIO 8
o 9999 9Z
Z 0 9

SAA+OAGD8DGHEAIFSAA8Y8 Y08-RQRIO 88Y8
999 91
I
0 9999

OAGDBDGHEAIF8203006~

8TXT.AKO •• A8 •• AAEAIF
9
Y09 Y9 Y9ZQ 8
99
9
9 0 9

6ADAOAG48BGHEAIFSADJ
8Y90 YQO-OQRZQ 88Y9Y
99 9 9Z9 ZZ 0 999 9

OAGOBJGHEAIF6ADAOAG4
Y08-0QRIO 00Y90 YOO
91 91 0 999 I 919

BBGHEAIFSAD.82030048
- QRIO 88Y9
I 0 999

8TXT.ANO •• A8 •• AASAAO
9
YB' Y9 Y98Y8+
99
9
9 999-

OAGDBDGHEAIFSAAAOAGD
Y08~-ORZO 88Y8Y Y08
9Z
Z 0 9999 9Z

BDGHEAIFSAAAOAGDBMGH
-OORIO 88Y80 Y08- QR
-I 0 9999 91
I

EAIFSAAAOAGD82030065
10 88YQY Y08
o 99999 91

BTXT.AKO •• A8 •• AAOAGD
9
YO+ Y9 Y9 Y08
99- 9
9 91

BNGHEAlF6AD+OAG4BKGH '
-8QRZQ 88Y9 YOO- OR
9Z 0 999
919 Z

EAIFSAD-OAGDBAGHEAIF
10 80Y9 YOO-80RIO 8
o 999 9Z Z 0 9

6ADOOAG4BSGH820300~9

8Y9+ Y08- OR
99 - 9Z9 1

BTXT.AOV •• A8 •• AA8MGH
9
Y89 Y9 Y9-9QR

EAIFSAAAOAGD80GAlAFA
ZO 88YOO Y088 9Y9Y80
o 99999,91 9 9 99

BOAAG-ADODGAFFBOOEG8-Y90 -9 9100R8-9S0
9
Z
9Z 9 91

BOE.6ABOAAG-82030066
8 Z Qa-Y9Q
9
9
I

8TXT.AKQ•• AO •• AAEAIF
9
Y80 Y9 Y9Z0 8
99
9
909

SADAOAGOBEGHEAIF6ADA
8Y9Y Y08-80RIO 80Y90
99
91
Z 0 999

OAG482GHEAlfSAEAOAGO
YOO- ORZO 88Y9Y Y08'
9Z9 Z 0 999 9 9Z

BJGHEAIF6AEA82030050
-80RZQ 88Y90
Z 0 999 9

GVB8EAlFHAAJloG2EAOB'
0880Z0 89YOY 0910 0
I 990 9, 999 Z 0 I

HAAA1.G2EAOWHAA.l.GK
ZYOO' 0910 9YO
08
991 1 0
99
19

BOGAMAFDAD0082030D61 •
8 9Y9YaO-9 9

DATE
EC

05MAY65
124252

10AUG65
1255BO

22FEB66
125621

15JUN67
130498

89Y9Q YQ8Z0
9 9 9 919 0

99

10
F82D-3
PAGE
27

9

9

I

BTXT.A~ •• A8 •• AABODJ

9

DATE
EC

V8
Y9 Y98-98
999999

05MAY65
124252

10AUG65
125580

22FEB66
125621

15JUN61
130498'

Y08-RORIO 8
9Z OZ 0 9

9

9 999'

10
F820-3
PAlE
214

,

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN
PAGE

F820

11'8-

V9

V9lYQS

99

9

9

AAOEGAFFE.6ABOAAG-BO

-v

9ZVQ91

Q8-Y9Q

l

Z

<;I

8~

Z 9

8TXT.AOO •• A8 •• AAA03A

BOAAG-80NAGGADODG~FF

9

8-V9Q 8 9'(QO-9 9lVQ8

'(899

V9
9

V9Q+Y
9 9- 9

9

V89
99

V9
9

V9VVYY,
9 9999

BTXT.AP ••• A8 •• AAHAAA

91 99 09 99

90 Z

E.6ABODVGPBBEA08BAAA
Z QB-99QYBQIQ QaYQv
9

I

1 99 0 Z999

AAAAAADAAAAAAAMAAAAA

9999999999 999999999

VVVVVV9VVVYVVV9VVVVV
999999 9999999 99999

AAAADAAAAAP-DAAAAAAA
YYVY9VYYYY8 8VVVVYVV

CAOQJAAA.RTN.BVPASSE
9Y9 VVY9

BAA-3AEAOWBA82030068
ZYO YIg 911'
99

9 0

'"

lAGDBOAAAADA82030069
VQlO 11'11'11'11'811'
'II 9 999999

AABAAAAAAAP-82030070
YV9YVVVVYY8
99 99999999

D.MAKE.THE.P82030011

9999 999999 99999999

BTXT .APHuAIl. ,.AAUNCH

.NOT.READY.MAKE.THE.

PUNCH.NOT.OPERATIONA

l--OFF.lINE.82030072

.TH~.PUNCH.opeRATJOH

AL.AND.READV.PlACE.B

lANK.CARDS.I82030073

....

• ••••••• '•••• 82030014

9

V9
9

9Il

O/GfBBEAIFBAA+3AEA08
98Q08QZQ 89VQ rZQ Q

V99VVY
9 999

9

VB
99

I 9

AAAAAAAAAADAAAAAAAAA
VYQVVVVVVV<;lVVVVVVVVY

BTliT .APH.'.A8 •• AAAAAA

9

V8R

V9

V9

990

9

9

BTXT.APA •• A8 •• AAMAKE
9
V8g V9 Y9
990

9

999

.......•....•..

snIT .APV •• AF ... AAN.PIS
V8
V8 V9
99

9

9

9

99

~

9

8RlD •••••• AJ •••• AAAA

AAANEAA~AAO/AADOEAP4

EAPDHAPJ •• ~ •••••••••

Y9V9
9 .,

8VQ98YQ88Y988Y9+8V88

8Y889V88

999 999 99

999

BEND.AP-•••••• AAs •••

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

9

YY

99

I)

Y9'

9

V9
'9

'99 -9999

........•.•.•..•.•..

BLOT ••••••••'••••••••
9

--""':'-.---------.. .~---"'!-------. . .-----------DATE
EC

Ole

PCH FUNCTION SEC 1

2'~O

BTXT.AOH •• A8 •• AAGAFF

9

M0191

OSHAY65
124252

10AUG65
,125580

22FEB66
125621

15JUN61
130~98

99

..••........ ......-.
~

.. • • • • • • • • •-. . . . . . . • '. tile

LAST PAGE

.~ •••••••••• 82030075

• ••••••••••• 82030016

•••••••••••• 82030071

----~------~--------------------------~--------ID

PAGE

F820-3
28

,0

() ()

00 00000000000
1

o o

0 0

to

0 0 0 0 0 fO :00 ().() 10

.........

M

*t

00000000000000

ooooo~oo
i

r

_.....IL_. . . . . _._'"*_..•_~._ ........_~_._ _ _ _ __

.-,-." .

PIN 840193
PAGE
1

IBM'MAiNTENANCE DIAGNOSTIC PROGRAM

IBM'MAINTENANCE DIAGNOSTIC PROGRAM

25~b:PUNtH !UNCTIONTESTS - SECTION 2 F821

25~0

PUNCH FUNCTION'TESTS - SECTION 2 F821

·•

:'

•

8213

TITLE

••

•
• .
• .
•
•
•
•
•
•

• 0020 - OPERATION ATTEMPTED

1.
2.
3.
4.

5.

THE PROGRAM HAS BEEN MODIFIED TO INCLUDE -TEST NUMBERS-.
THE PROGRAM NOW INCLUDES STANDARD ERROR MESSAGE PRINTOUTS.
THE PROGRAM TESTS RESPONSE TO ALL INVALID COMMANDS.
THE PROGRAM TESTS PROPER SETTING AND SUPPRESSION OF THE
INCORRECT LENGTH INDICATOR.
THE STACKER SELECT TESTING HAS BEEN SIMPLIFIED. SECTION
SENSE SW 11 12 AND 13 ALLOW LOOPS ON STACKER SELECT POCKET
12 3 RESPECTIVELY. A NEW STACKER SELECT PATTERN OF 1-2-1-3
HAS REPLACED THE PREVIOUS RIPPLE PATTERN.

•• E.C. PREREQUISITES
MACHINE • • • NONE
••• PROGRAM • • • NONE
USE OESCRIPTION F820. AT EC 130498,
••

.,.\

\,

OR LATER.

..·
....

..

EXPECTED RESPONSE.

•

OSMAY65
lZ~252

10AUG65
125580

• .
•
•.
•
•
•
•

1. CONDITION CODE 2 INDICATES THE CHANNEL APPEARS TO BE BUSY.
2. CONDITION CODE 3 INDICATES THERE IS NO DEVICE FOR THE
ADDRESS USED. THE OM UDT ENTRY COULD BE IN ERROR, THE
DEVICE MAY BE OFF LINE, OR IF THE 2821 TWO CHANNEL SWITCH
FEATURE IS INSTALLED, THE .PARTITIONING SWITCH FOR THIS
INTERFACE MAY BE DISABLED.
3. IF CONDITION CODE 1 IS SET, THE CSWMUST BE INSPECTED TO
DETERMINE THE CAUSE. UNIT CHECK MIGHT BE DUE TO NOT READY

15NOV65
125624

••

••
••
••
••

..

••••••••••••••
10
F821-3'
PAGE
1

15JUN61
130498
1L

'z

%t

EXPECTED RESPONSE
CONDo CODE 0 SHOULD BE SET ON THE START I~O~ A CHANNEL .END
INTERRUPT SHOULD DCtUR. WITH. THEfNCORRECT LENGTH RECORD BIT
SET ON IN THE CHANNEL STATUS BYTE. A SECOND INTERRUPT SHOULD
OCCUR, WITH DEVICE END ALONE IN THE CSW •
OPERATION ATTEMPTED
A WRITE COMMAND -41-, IS ISSUED WITH A LONGCCW COUNT OF 81.
THE CHANNEL IS ENABLED TWICE FOR INTERRUPTS.

..

POSSIBLE FAILURE CAUSES

..••

A WRITE COMMAND.-41~, IS ISSUEO WITH A SHORT CCWCOUNT OF 79 •
THE CHANNEL IS ENABLED .TWICE FOR' INTERRUPTS •

••
. EXPECTED RESPONSE
••
CONDo CODE 0 SHOULD BESET ON THE START 1-0. A CHANNEL END
INTERRUPT SHOULD OCCUR WITH THE I NCORRECT LENGTH RECORD BIT
•
SET ON IN THE CHANNEL STATUS BYTE AND A RESIDUAL COUNT OF 1 •
A SECOND. INTERRUPT SHOULD OCCUR. WITH DEVICE END IN THE CSW.
•
•• 0060'- OPERATION ATTEMPTED

EXPECT CONDo CODE 0

•

••

OATE
EC

••
•

A TEST 1-0 IS I SSUED TO A READY ',fEST OEVIC:E.

- OPERATION ATTEMPTED

••
••
• 0050 -

••••••••••••••
ROUTINE 01
••••••••••••••

.' \.

••

OO~O

•••

..'0010 - OPERATION ATTEMPTED

·•

.............. .
ROUTINE 03
••••••••••••••

•

DESCRIPTION

ISSUE DIAGNOSTIC CHECK READ FOLLOWING AN INVALID COMMAND
START 1-0, TO RESET THE PUNCH SENSE LATCHES.
EXPECTED RESPONSE

*

•
•
••
•
•

OPERATION ATTEMPTED

EXPECT CONDITION CODE 0 FOR THE VALID DIAGNOSTIC CHECK READ
WHICH FOLLOWS EACH INVALID COMMAND START 1-0, AND A SENSE
BYTE WITH NO BITS ON.

•

.......................................................................
•
TEST NUMBER DESCRIPTION
.......................................................................
.......................................................................

.,j.

EXPECT CONDITION CODE 1, STATUS STORED WITH UNIT CHECK IN THE
DEVICE STATUS AND COMMAND REJECT IN THE SENSE 8YTE FOR THE
INVALID COMMAND CCW.

•

••

:

•
•

•

XF8213 START 4096
USING .,15

"...

EXPECTED RESPONSE

••

•
••

••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

•
••

•

•

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

• TEST

ISSUE INDIVIDUALLY ALL COMMANDS THAT ARE CONSIDERED INVALID
TO THE PUNCH.
EACH INVALID COMMANO IS FOLLOWED 8Y THE
EXECUTION OF A DIAGNOSTIC CHECK READ COMMAND TO RESET THE
SENSE LATCHES. IN THE PUNCH.

•• 0030 ••

••
••

DATED 15 JUN 67

•
•
•

•
•
•

• REVISION LEVEL 2 - THIS REVISION DIFFERS FROM VERSION 1 AS FOLLOWS ••
•
1. THE PROGRAM HAS BEEN MODIFIED TO INCLUDE 1400 MODE CCWS IF
•
THE COMPATIBILITY .FEATURE IS ON THE 2821.

001000·

ROUTINE 02
.............
.

•
•

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• MODIFICATIONS
•• .REVISION LEVEL 3 - THIS REVISION DIFFERS FROM VERSION 2 AS FOLLOWS ••

\

-

PIN 840193
PAGE
1A

4

.......

OSMAY65.

10AUG65
125580

. 15NOV65
125624

A WRITE COMMAND -41-. IS ISSUED NITH A SHORT CCW COUNT OF 79. ,
AND THE SUPPRESS INCORRECT.cLENGTH RECORD FLAG ON. THE CHANNEL
IS ENABLED TWICE ,FOR' INTERRUPTS.
EXPECTED ,RESPONSE
CONDo COOE.O SHOUlD BE'SET ON. THE START' I~O. A CHANNEL END
INTERRUPT 'SHOULD OCCUR, FOLLOWED BY A DEVICE ,END.lNTERRUPT.
INCORRECT"LENGTHRECOROINDICATlbN SHOULD BE SUPPRESSED.
15JUN6f ,
130498"

10
F821-3!
PAGE
lA I. "ll.

'--....;....------_.:.-_---_.........----"""""'-.------------.....:..12~252

IBM:MAINTENAHCE DIAGNOSTIC PROGRAM

IBM:MAINTENAHCE DIAGNOSTIC· PROGRAM;

PIN 840193
PAGE
2

251t0 PUNCH FUNCHON 'TESTS- .SECTION 2 FU1.

....•
••
..•••
..•
·•
....••
••
..••
..•••
..

2540,:PUNCH FUNCTION :TESTS '-SECTION 2F821

....,..•

·0070 -OPERATI.ON ATTEMPTED
A WRITE COMMAND -41- IS ISSUED WITH A LONG CCW COUNT OF 81,
AND THE SUPPRESS INCORRECT LENGTH RECORD FLAG ON. THE CHANNEL
IS ENABLED TWICE ,FOR INTERRUPTS.

•

••
•••

EXPECTED RESPONSE
CONDo CODE 0 SHOULD BE SET ON THE START 1-0. A CHANNEL END
INTERRUPT SHOULD OCCUR WITH A R.ESIDUAL COUNT OF 1 FOLLOWED
BY A DEVICE.END INTERRUPT.
INCORRECT LENGTH RECORD. INDICATION SHOULD BE SUPPRESSED.

•
•

•
•
• 0080 -

..•••
....
.......
.,..
.,•
•
•..
••
•

••••••••••••••
ROUTINE 04

..............
OPERATION ATTEMPTED

RES~ONSE

CONDo CODE 0 SHOULD BE SET ON THE START I~O. A CHANNEL END
AND DEVICE END INTERRUPT SHOULD OCCUR WITH THE INCORRECT
LENGTH RECORD BIT SET ON. IN THE CHANNEL STATUS BYTE.

•

•
•

• 0090 - OPERATION ATTEMPTED
A DIAGNOSTleREAD -C2- IS ISSUED WITH A LONG CCWCOUNT OF -81THE CHANNEL IS ENABLED ONCE FOR INTERRUPTS.

•

••
•

POSSIBLE.

..••

FAILUR~

•
DATE
EC

05MAY65
124252

10AUG65
125580

ISNOV65.
125624 .

•
•

•• ,

•
• .
,•

UNUSUAL COMMAND SEQUENCE -SENSE 02- WILL OCCUR IF PFR FEATURE
IS INSTALLED BUT NOT DEFINED IN THE UDT.

..

OPERATION ATTEMPTED

•
,. '
•
•
. •
•• ,

EXPECTED RESPONSE
A CHANNEL END
INCORRECT

•
•
•

..•.,
..

II

f

••••••••••••••

I

A .WRITE COMMAND .-41'"", IS COMMAND CHAINED TO AN INVALID C'OMMAND
TO THE PUNCH, -53-. THE CHANNEL IS ENABLED ONce FDA .AN .
INTERRUPT, AND A SENSE IS PERFORMED

I

EXPECTED RESPONSE

r

CONDo CODE 0 SHOULD BE SET ON THE START 1"'0•. UNI'fCHiitl( .
SHOULD BE SET BY COMMAND REJECT ON INITIAL SELECT10N OF :'tHE
SECOND COMMAND. THIS SHOULD BREAK THE COMMAND CHAIN, ANb AN
INTERRUPT SHOULD OCCUR.' '. THE CSW SHOULD CONTAIN ..THE ADDRESS>'"
OF THE INVALID CCW+ 8, AND THE DEVICE STATUS Byte SHOULD.. ".,"
HAVE UNIT CHECK ONLY. THE COMMAND .REJECT . BIT .SHOULD BE ON
IN THE SENSE BYTE.

!

!

I
f

A NOP -03-, IS ISSUED, AND THE CHANNEL IS ENABLED ONCE, fOR
ANY UNEXPECTED INTERRUPT. A·SENSE IS PERFORMED.
EXPECTED RESPONSE
CONDo CODE 1 SHOULD BE SET ON THE START 1-0 WITH CHANNEL ;AND
DEVICE END ONLY STORED. THE SENSE BYTE SHOULD CONTAIN THE
COMMAND REJECT BIT, WHICH WAS SET ON BY THE .PREVIOUS. TEST.
THE NOP SHOULD NOT RESET ·THE SENSE BYTE.

IF PFR FEATURE

I
Ii

ID F82l-3
PAGE
2

i
~
~

DATE
EC •

05MAY65.
124252

10AUG65·
125580 :

I
I

EXPECTED RESPONSE

1-·!

• ,

A NOP-03-, IS COMMAND CHA.INEDTO ANOTHER -NOP. THE· CHANNEL'
IS ENABLED FORAN INTERRUPT, THEN A.SENSE ISPERFORMED~

• ,

EXPECTED RESPONSE

• ,
• • -

CONDo CODE'O SHOULD ·BE SETON, THE START 1-0, DUE TO THE
COMMAND CHAIN flAG. AN·INTERRUPT'SHOUCO OCCUR, AND THE CSW.
SHOULD CONTAIN THE ADDRESSOFITHE SECOND CCW. 8. THE DEVICE
15JUN67 ;
13049B'

i

,

CONDo CODE 0 SHOULD BE SET ON THE START Jl.0. AN INTERRUPT i
SHOULD OCCUR, WITH ONLY CHANNEL AND DEVICE END"IN THE DEVICE
STATUS BYTE. NO SENSE BITS SHOULD BE ON. THE PREVIOUSLY
SET COMMAND REJECT BIT SHOULD BE RESET.'

•.

15NOV65
125624'

r

A DIAGNOSTIC CHECK READ -C6-, IS ISSUED AND THE CHANNEL, IS
ENABLED ONCE FOR AN INTERRUPT~ A SENSE IS PERFORMED.

.0150 - OPERATION ATTEMPTED

"

A DIAGNOSTIC:READ -C2-IS ISSUED WITH A LONG CCW'COUNT OF -81AND THE SUPPRESS INCORRECT LENGTH RECORD FLAG ON. THE CHANNEL
IS ENABLED.ONCE .FOR INTERRUPTS.
15JUN67 ,
UOlt98

'I

••••••••••••••
ROUTINE 05

• 0140 - OPERATION ATTEMPTED

A DIAGNOSTIC READ -C2- IS I'SSUED WITH A SHORT CCW COUNT OF -79
AND THE SUPPRESS INCORRECT LENGTH RECORD FLAG ON. THE CHANNEL
IS ENABLED ONCE FOR INTERRUPTS.

CONDo CODE 0 SHOULD BE SET ON THE START I-D.

'

• .

CAUSES

AND DEVICE END INTERRUPT SHOULD OCCUR WITH THE
LENGTH RECORD BIT SUPPRESSED.
••
• .
POSSIBLE FAILURE CAUSES
••
UNUSUAL COMMAND SEQUENCE -SENSE 02- WILL OCCUR
IS INSTALLED BUT NOT DEFINED IN THE UDT.
•
•• OlIO-.OPERATION ATTEMPTED

....

UNUSUAL COMMAND SEQUENCE -SENSE 02- WILL 'OCCUR IF.PFR FEATURE
IS INSTALLED ,BUT NOT DEFINED IN THE UDT.

• 0130- OPERATION ATTEMPTED

CONDo CODE 0 SHOULD BE SET ON THE START I~O. A CHANNEL. END
AND DEVICE END INTERRUPT SHOULD OCCUR WITH THE INCORRECT
LENGTH RECORD BIT SET ON. IN THE CHANNEL STATUS BYTE AND A
RESIDUAL COUNT OF ~1-.

•
• 0100 ••
•

••

'..•

EXPECTED RESPONSE

••

CONDo CODE ·.0 SHOULD BE SET ON THE START ·1.,0. A CHANNELiEND
DEVICE END INTERRUPT SHOULD OCCURWlTHA ·RESI,DUAVCOUNT 'OF. -1- ,
INCORRECT LENGTH RECORD INDICATION SHOULD BE SUPPRESSED.

• 0120 -. .
OPERATION ATTEMPTED

. ,

EXPECTED

EXPECTED RESPONSE

,

POSSIBLE FAILURE CAUSES

•

A DIAGNOSTIC ,READ -C2- IS ISSUED WITH A SHORT CCW COUNTOF-79
-THE CHANNEL IS ENABLED ONCE FOR INTERRUPTS.

•

PIN 840193·
PAGE
2A

.I

I
I

I

I

'I

F821-3
PAGE
2A

.10

00000000000000000000000000000000

!
!

o

0, :0 0 0 0 0 0, 0 C 0, 0 0 0 0, 0 0 0 Oi 0 0 0 0 0 0 0 0 0 0 0 0
1

. _ ._ _ _

IBM ,MA.NfENAI\ICE.DJAGNOSTIC PROGRAM'

PIN B401'13
PAGE
~

2540 PUNCH FUNCTION:TESTS'- SECTION 2 FB2l'

..
••

•••
••

..•••

•
•
•••
•••
••
•••
•

..•
....
•

••••••••••••••
ROUTINE 06
••••••••••••••

EXPECTED RESPONSE

••

EXPECTCOND. CODE 0 ON THE START 1-0 DUE TO THE COMMAND CHAIN
FLAG. AT EXECUTION OF THE SECOND COMMAND IN THE CHAIN AN
INTERRUPT WILL BE TAKEN FOR CHANNEL END FOLLOWED BY A SECOND
INTERRUPT FOR DEVICE END. THE 80 CHARACTERS PUNCHED -ALL
BLANKS- BY EACH COMMAND SHOULD NOT BRING WRONG LENGTH
RECORD INTO STATUS.

••

..

EXPECTED RESPONSE

..•
....••
..•••

EXPECT CONDo CODE 0 ON THE START 1-0 DUE TO COMMAND CHAINING.
THE LONG COUNT -Bl- OF THE FIRST COMMAND SHOULD BREAK COMMAND
CHAINING AND THE INCORRECT LENGTH RECORD BIT SHOULD BE SET ON
TOGETHER WITH A RESIDUAL COUNT OF 1 INDICATED.
EXPECT CHANNEL END, ILR. AND RESIDUAL· COUNT OF 1 ALL TOGETHER
FOLLOWED BY DEVICE END. THE CSW ADDRESS SHOULD POINT AT THE
SECOND CCW OF THE CHAIN.

..•••

•
•

05HAY65
124252

10AUG65
125580

15NOV65
125624

15JUN67
130498

A PUNCH FEED STACKER SELECT IS DATA CHAINED TO FOUR DIFFERENT
PLAtES WITH THE TOTAL COUNT E X C E E DIN G -80-. THE
CHANNEL IS ENABLED TWitE FOR INTERRUPTS.
EXPECTED RESPONSE

•

EXPECTtONDITION CODE 0 TO BE SET ON THE START 1-0.
SINCE THE COUNT EXCEEDS -80- EXPECT CHAINING TO 8E BROKEN
WITH ILR AND RESIDUAL COUNT INDICATED, IN THE STATUS.
CHANNEL .END NITH A RESIDUAL COUNT AND WRONG. LENGTH RECORD
INDICATION WILL BE FOLLOWED BY DEVICE END STATUS.

•

•••
• 0220 •••

••
••

'\

• 0190 - OPERATION ATTEMPTED

DATe
.EC

*'
••••••••••••••
ROUTINE 10
••••••••••••••

•

••••••••••••••
ROUTINE OB
••••••••••••••
A PUNCH FEED STACKER SELECT IS
CHAINED TO AN INVALID COMHAND.

EXPECT CONDITION CODE 0 TO BE SET ON THE START 1-0.
EXPECT'NONRONG LENGTH RECORD INDICATION DUE TO TOTAL COUNT
OF -80-. CHANNEL END FOLLOWED BY DEVICE.ENQ INTERRUPT SHOULD
OCCUR.

• 0210- OPERATION ATTEMPTED

EXPECTED RESPONSE

A PUNCH FEED STACKER SELECT WITH A COUNT OF -81- IS COMMAND
CHAINED TO A PUNCH FEED STACKER SELECT WITH A COUNT OF -BO-.
THE CHANNEL IS ENABLED TWICE FOR INTERRUPTS.

•
•

OPERATION ATTEMPTED

••

•
• .
•

•

••••••••••••••
ROUTINE 09
••••••••••••••

EXPECTED RESPONSE

••
••
•••
•

A PUNCH FEED STACKER SELECT WITH A COUNT OF -79- IS COMMAND
CHAINED TO A PUNCH FEED STACKER SELECT WITH A COUNT OF -80-•
THE CHANNEL IS ENABLED TWICE FOR INTERRUPTS.

EXPECT DATA CHAINING TO TAKE PRIORITY OVER COMMAND CHAINING
AND THE INVALID COMMAND SHOULD. NOT BE INSPECTED AND SHOULD
NOT CAUSE COMMAND REJECT. EXPECT CONDo CODE 0 ON THE START
1-0 DUE TO CHAINING. CHAINING SHOULO:NOT BE BROKEN ANO EXPECT
CHANNEL .END FOLLOWED 'BY: DEVICE· END NITH NO OTHER STATUS BITS
INDICATED.

A PUNCH FEED STACKER SELECT IS DATA CHAINED TO FOUR DIFFERENT
PLACES NITH THE TOTAL COUNT EQUAL TO -80-. THE CHANNEL IS
ENABLED TWICE FOR INTERRUPTS.

•
•

••••••••••••••
ROUTINE 07
••••••••••••••

•

EXPECTED RESPONSE

•
••
••
•• 0200 -

A PIMCH FEED STACKER SE·LECT IS COMMAND CHAINED TO ANOTHER
PUNCH FEED STACKER SELECT. THE CHANNEL IS ENABLED TWICE
FOR INTERRUPTS.
EACH COMMAND HAS A COUNT OF -80-.

• ·0180 - OPERATION ATTEMPTED

....
....••

FOR INTERRUPTS.

••

OPERATION ATTEMPTED

..••

••
••
••
•
••

_ _ ••••.••

PIN B40:193
PAGE
. 3A

•••
••
•••

A RESIDUAL

EXPECT CONDo CODE 0 ON THE START 1-0 DUE TO COMMAND CHAINING.
THE SHORT COUNT-79- OF THE FIRST COMMAND SHOULD BREAK COMMAND
CHAINING AND THE INCORRECT LENGTH RECORD BIT SHOULD BE SET ON.
EXPECT CHANNEL END WITH ILR BIT ON FOLLOWED BY DEY ICE END •
CSW ADDRESS SHOULD POINT AT THE SECOND CCW OF THE CHAIN.

..

_ _ _ _ _ _ _ _ _o _ _ _ _ _ •

IBM'MAINTENANCE DIAGNOSTIC PROGRAM

• 0170 - OPERATION ATTEMPTED

•
•
•••
•

~

2540 PUNCH FUNCTION TESTS ... SECTION 2 FBU

STATUS BYTE SHOULD CONTAIN CHANNEL .AND DEVICE END.
COUNT OF·l SHOULD REMAIN.
.

•• 0160 -

!

. . . . . . . . . . . . . . . . . . ._ ._ _ _

•••

1

0 A T A AND

COM MAN 0
THE CHANNEL IS ENABLED TWICE
10'

PAGe

F821-3

3

DATE
EC

05MAY6S
124252

10AUG65
125580

15NOV65
125624

••••••••••••••
ROUTINE 11
••••••••••••••
OPERATION ATTEMPTEO
A·PUNCH F~ED STACKER SELECT·IS DATA CHAINED TO FOUR DIFFERENT
PLACES WfTH TOTAL COUNT E X C E E 0 I N G -80-. THE SIL BIT
IS SET ON AND THE CHANNEL IS ENABLED TWICE FOR. INTERRUPTS.
EXPECTED RESPONSE
EXPECT CONDITION CODE 0 TO BE SET ON THE START 1-0.
SINtE THE COUNT EXCEEDS -80- EXPECT CHAINING TO BE BROKEN AND
A RESIDUAL'COUNT INDICATED. SUPPRESS INCDRRECT'LENGTH RECORD
FLAG IN ON BUT INCORRECT LENGTH RECORD SHOULD STILL BE
INDICATED. WHEN DATA CHAIN FLAG IS ON WITH SlL.FLAG. WRONG
LeNGTH RECORD IS NOT SUPPRESSED.
CHANNELiEND NITH A RESIDUAL COUNT ANDNRONGLENGTH RECORD

15JUN61,
130498

10

PAGE

F821-3
3A

lL

o
.~

IBMMAINTENAHCE DIAGNOSTIC PROGRAM

PIN 840193
PAGE
4

2540:PUNCH FUNCTION TESTS - SECTION 2 F821

•••

..•

• 0230 ••

••
•
•••
•

..••
••
•

••

••• 0270 - ,OPERATION

..

NOTE--THE NUMBERS PUNCHED IN THE FIRST EIGHT COLUMNS OF EACH
CARD SHOULD MATCH THE STACKER POCKET THEY FALL INTO.
OPERATION ATTEMPTED

EXPECT CONDo CODE 0 ON THE START 1-0. A CHANNEL END INTERRUPT
SHOULD OCCUR FOLLOWEO BY A DEVICE END INTERRUPT. THE CARD
THAT IS PUNCHED SHOULD FALL INTO STACKER -1- AND THE FIRST
EIGHT COLUMNS OF THE CARD SHOULD BE PUNCHED WITH -1-.

EXPECT CONDo CODE 0 ON THE START 1-0. A CHANNEL END INTERRUPT
SHOULD OCCUR FOLLOWED BY A DEVICE END INTERRUPT. THE CARD
THAT IS PUNCHED SHOULD FALL INTO STACKER·-2- AND THE FIRST
EIGHT COLUMNS OF THE CARD SHOULD BE PUNCHED WITH -2-.

•• 0265 -

OPERATION ATTEMPTED

•
•
•

A 1360 WRITE . STACKER SELECT POCKET 3 COMMAND -81- IS ISSUED
AND B BLANKS ARE SENT OVER THE BUS. THIS COMMAND IS GIVEN TO
FEEO THE LAST CARD TO THE PROPER STACKER.

•

EXPECTED RESPONSE

.,
..
•

DATE
EC

05MAY65
'124252

10AUG65
1255BO

15NOV65
125624

15JUN67
130498

- - - - - - - - - - - - - - - - - - - - - -_ _ _ _ _ _.;_;. ._ _ _ _

~

______________

____________________________________

EXPECT CONDo CODE

•

••
••
••
••

o.

..•••
DATE
EC

~#~c.~--

05MAY 65,
124252

_ _ _ _ _ _ _ _ _ _ _ _ _ __

10AUG65
125580 ;

15NOV65
l25624

OPERATION ATTEMPTED
A 1400 PUNCH COMPATIBILITY .STACKER SELECT -STACKER 3- COMMAND
-91- IS ISSUED. THE FIRST ,EIGHT 'COLUMNS ARE PUNCHED WITH -1THE CHANNEL IS ENABLED TWItE FOR INTERRUPTS.
THE STACKER SELECTION WHEN IN 1400 PUNCH COMPATIBILITY REFERS
TO THE PREVIOUSLY PUNCHED CARD. AS AN EXAMPLE, THE NEXT PUNCH
STACKER SELECT COMMAND WILL STACKER SELECT THE CARD JUST
PUNCHED.
EXPECTED RESPONSE

••
•• 1240 •
•••

10
FB21-3
PAGE
4

~

EXPECTED RESPONSE

.,•

EXPECTED RESPONSE
EXPECT CONO. CODE 0 ON. THE START 1-0. A CHANNEL END INTERRUPT
SHOULD OCCUR FOLLOWED BY A DEVICE END INTERRUPT. THE CARD
THAT IS PUNCHEO SHOULD FALL INTO STACKER -3- AND THE FIRST
EIGHT COLUMNS OF THE CARD SHOULD BE PUNCHED WITH -3-.

• .

•• 1230 ••
•
••
•

A PUNCH FEED STACKER SELECT -STACKER 3- COMMAND -81- IS ISSUED
THE CHANNEL .IS ENABLED TWICE FOR INTERRUPTS.

.,•••

START 1'"'0 TEST 1-0 LOOP. THE STACKER SELECTED IS DETERMINED
FROM ,THE SETTING OF SNS SWITCH 1112 OR 13. NO ERROR CHECKING
IS·PERFORMEO AND NO PRINTOUTS WIll INTERRUPT THIS LOOP.
NOTE--TO LOOP ON ANY ONE STACKER SELECT COMMAND SECTION SENSE
SWITCH 11 12 OR 13 MUST 8E ON. TO GO INTO A TIGHT START'
1-0 TEST 1-0 LOOP SECTION SENSE SW 1 MUST BE ON IN
CONJUNCTION WITH EITHER SENSE SW 11 12 OR 13.
SENSE SWITCH 11 SELECTS STACKER POCkET,-ISENSE SWITCH 12 SELECTS STACKER POCKET. -2SENSE SWITCH 13 SELECTS STACKER POCKET. -3-

•
••••••••••••••
••
ROUTINE 13
••
••••••••••••••
•
•• ••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
NOTE--1HE NUMBERS PUNCHED IN THE FIRST EIGHT COLUMNS OF EACH
•
CARD SHOULD MATCH THE STACKER POCKET THEY FALL: INTO.
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

EXPECTED RESPONSE

• 0260 - OPERATION ATTEMPTED

••
••

•
•
• .
•
•
•
•
•
•
•

••

A PUNCH FEED STACKER SELECT -STACKER 2- COMMAND -41- IS ISSUED
THE CHANNEL IS ENABLED TWICE FOR INTERRUPTS

EXPECT CONDo CODE 0 ON THE START 1-0. A CHANNEL END INTERRUPT
SHOULD OCCUR FOLLOWED BY A DEVICE END INTERRUPT. THE CARD
THAT IS PUNCHED SHOULD FALL INTO STACKER -1- AND THE FIRST
EIGHT COLUMNS OF THE CARD SHOULD BE PUNCHED WITH -1-.

•

NOTE--SECTION SENSE SWITCH -1- MUST BE ON IN CONJUNCTION WITH
SECTION SENSE SWITCH 11 12 OR 13 TO ENTER THIS TEST

.,

OPERATION ATTEMPTED

EXPECTED RESPONSE

••

•
•

••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
•
A PUNCH FEED STACKER SELECT COMMAND IS ISSUED IN A TIGHT

A PUNCH FEED STACKER SELECT -STACKER 1- COMMAND -01- IS IssueD
THE CHANNEL IS ENABLED TWICE FOR INTERRUPTS.

A PUNCH FEED STACKER SELECT -STACKER 1- COMMAND -01- IS ISSUED
THE CHANNEL IS ENABLED TWICE FOR INTERRUPTS.

•
•
•

ATTEMPTED

••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

0250 - OPERATION ATTEMPTED

•
••

EXPECT CONDo CODE 0 ON THE START 1-0. A CHANNEL :END INTERRUPT
SHOULD OCCUR FOLLOWED BY A DEVICE END INTERRUPT. THE CARD
WILL FALL INTO STACKER -1- UPON ISSUANCE OF THE NEXT PUNCH
STACKER SELECT COMMAND.
THE CARD PREVIOUSLY PUNCHED, IF ANY, WILL 8E SELECTEO INTO
STACKER -3-.
OPERATION ATTEMPTED
A 1400 PUNCH COMPATIBILITY STACKER SELECT '-STACKER 1- COMMAND
-11- IS ISSUED. THE FIRST EIGHT COLUMNS ARE PUNCHED WITH-2-.
THE CHANNEL IS ENABLED TWICE FOR INTERRUPTS.
THE STACKER SELECTION WHEN IN 1400 PUNCH COMPATIBILITY REFERS
TO tHE PREVIOUSLY PUNCHED CARD. AS AN· EXAMPLE, THE NEXT PUNCH
STACKER SELECT COMMAND WILL STACkER SELECT THE CARD JUST

15JUN67·
130498
k

:0
'\.J

0"
,0'·. 0'.',. 0.. :0···' 0:,·'.. 0'
"
J

',~

1

4A

EXPECT COND CODE 0 WITH CHANNEL END RETURNED IN THE 1ST CSW
AND DEVICE END RETURNED ALONE IN THE 2ND CSW •

•

EXPECTED RESPONSE

•••
• 0240 ••
•••
•
••

840193

2540 PUNCH FUNCTlONTeSfS - SECTION 2 F821

••••••••••••••
ROUTINE 12
••••••••••••••

•

PIN

PAGE

INDICATION WILL BE FOLLOWED BY DEVICE END STATUS.

••
•

•
••

18MMAINTENAHCE DIAGNOSTIC PROGRAM

o

o

,

0000000000;0
.

I

--"~-~----"-

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

•... ~~.""' ... -----'..~ ... --~. -

0 , 0000'00000000000

I

,

---..-.-----

............ _.,_.,, __ --....1

~

IBM. MAINTENANCE DIAGNOSTIC PROGRAM
25~0:PUNCH

o
PIN
PAGE

8~0193

FUNCTION'TESTS'- SECTION 2 f821

..-

PUNCHED.

•

EXPECTED RESPONSE

•• -

.-

•
• 1250 •
••

..
..••

THE STACKER SELECTION WHEN IN 1400 PUNCH COMPATIBILITY REFERS
TO THE·PREYIOUSLY PUNCHED CARD. AS AN EXAMPLE, THE NEXT PUNCH
STACKER SELECT COMMAND WILL STACKER SELECT THE CARD JUST
PUNCHED.
EXPECTED RESPONSE
EXPECT CDND. CODE 0 ON THE START 1-0. A CHANNEL END INTERRUPT
SHOULD OCCUR FOLLOWED BY A DEVICE END INTERRUPT. THE CARD
THAT WAS PUNCHED BY THE PREVIOUS TEST NUMBER WILL NOW BE
STACKER SELECTED INTO POCKET -2-.
OPERATION ATTEMPTED
A 1400 PUNCH COMPATIBILITY STACKER SELECT -STACKER 1- COMMAND
-11- IS ISSUED. THE FIRST EIGHT COLUMNS ARE PUNCHED WITH -3-.
THE CHANNEL IS ENABLED TWICE FOR INTERRUPTS.
THE STACKER SELECTION WHE.N IN 1400 PUNCH COMPATIBILITY REFERS
TO THE PREVIOUSLY PUNCHED CARD. AS AN EXAMPLE. THE NEXT PUNCH
STACKER SELECT COMMAND WILL STACKER SELECT·THE CARD-JUST
PUNCHED.
.

•
EXPECTED RESPONSE
••
EXPECT CONDo CODE O.ON THE START 1-0. A CHANNELENO INTERRUPT
SHOULD OCCUR FOLLOWED BY A DEVICE END INTERRUPT. THE CARD
•
THAT WAS PUNCHED.BY THE ,PREVIOUS TEST'NUMBER WILL NOW BE
••
STACKER SELECTED INTO POCKET -1-.
• 1265- OPERATION ATTEMPTED
••
A 1400 WRITE STACKER SELECT POCKET 3 COMMAND -91- IS ISSUED
AND 8 BLANKS ARE SENT OYER THE BUS. THIS COMMAND IS GIVEN
•••
TO ALLOW FEEDING THE LAST CARD PUNCHED FROM THE PRE-CHECK
STA TION TO THE PROPER STACKER BEFDRE.LEAYING THE TEST.

....•

..
..

••
•
• ·1210 -

EXPECTED RESPONSE

001000
001004
001008
00100A
OOIOOC
001000
00100E
00100F
001010
001015
00101S
001020
001028
001030
001038
001040
00104S
00104C
001055
00105S
001050
001060
001068
001010
001018
00101C.
0010S0.
0010EO
0010E1
0010E2

F8213000
00000000
0000
0000
00
01
CO
00
0104000000
0011B4
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
00000000
000000000000000000
000000
0004000000
000000
0000000000000000
0000000000000000
0000000000000000
01040000
00001230
S2
00
8000.·

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

•••

A I~OO MODE PUNCH STACKE SELECT COMMAND IS ISSUED IN A TIGHT
START 1-0 TEST 1-0 LOOP~ THE STACKER SELECTED IS DETERMINED

05MAY65
12~252

10AUG65
125580 .

15NOV65
12562~

15JUN61

10

130~98
A4

PAGE
we

¢

wz

FB21-3
5

•
•••
••
••
•
.......................................................................
•••••••••••••••••••
•••••••••••••••••••
• SECTION PREFACE ••••••••••••••••••••••••••••••••••• SECTION PREFACE •
•••••••••••••••••••
•••••••••••••••••••
SECNO DC
XL4' FB213000' .
PROGRAM.SECTION AND REVISION NOS. •
SHSW
SECTION SENSE SWITCHES
DC
XL4'OO'
•
DC
XL2'OO' .
ICM
SDMF
NIOU
FLAG1
FLAG2
INPSW

••
•••
•
••
•

DC
DC
DC
DC
OC
DC
DC
DC
DC
DC
DC
DC
OC
DC
DC

XL2'OO'
XLl'OO'
XLl'Ol'
X'CO'
X'OO' .
X'Ol04000000'
AL3IROUTOl)
XLS'O'
XLS'OO'
XLS'OO' .
XLS'OO' .
XL8'00'
XLS'OO' .
XL4'00'
XL12'OO'

INTERRUPTION CONDITION MASK
SECTION OM FLAGS
NUMBER OF UNIT TABLE ENTRYS
EXCLUSIVE CPU
1/0 INT ARE ERR, EXT tNT TO PROG
DI SA.BLEO, SPVSR STATE, NO PGMMASK •
ADR OF 1ST ROUTINE PREFIX
SECTION OLD .EXTERNAL PSW
CLEAR ALL OLD PSWS
PROGRAM OLD PSW
MACHINE CHECK OLD PSW
1/0 OLD. PSW
CHA.NNEL STATUS WORD
CAW
RESERVEO FOR OM USE

OC
DC
DC
DC
DC
DC
OC
OS
UNITl DC
U10P
OC
UlADDR DC

X'0004000000'
XL3'O'
XL8'OO'
XLS'OO' .
XL8'OO' .
XL4'01040000'
AL41IRETRN)
96C
X'S2'
X'OO' .
X'SOOO'

EXTERNAL NEW PSW
ADR OF EXT INTRPT ROUTINE
SUPERVISOR NEW PSW
PROGRAM NEW PSW
MACHINE CHECK NEWPSW
110 NEW PSW
ADDRESS OF 1/0 INTRPT ROUTINE
96 BYTE REG DUMP AREA FOR OM USE
UNIT TYPE - 2540 PUNCH
OPTIONAL FEATURES BYTE
FLAGS AND CHANIUNIT AOORESS

EXDPSW
SVOPSW
PGOPSW
MCOPSW
100PSW
CSW
CAW
EXNPSW
SRET
SVNPSW
PGNPSW
MCNPSW
lONPSW

•.
I
IBIT 0 BIT 1
•
I
IHEX 8' HEX ~
.2540 I 82· I
. CARD
.PUNCHI
I
IMAGE
•
1
I

•
SECTION SENSE SWITCH 11 12 OR 13 TO ENTER THIS TEST.
.......................................................................

DATE
EC

NOTE--TO LOOP ON ANY ONE STACKER SELECT COMMAND SECTION SENSE
SWITCH 11 12 OR 13 MUST BE ON. TO GO INTO A TIGHT START
1-0 TEST 1-0 LOOP SECTION SENSE SW 1 MUST BE ON IN
CONJUNCTION WITH EITHER SENSE SW 11 12 OR 13.
SENSE SWITCH 11 SELECTS STACKER POCKET -1SENSE SWITCH 12 SELECTS STACKER POCKET -2SENSE SWITCH 13 SELECTS STACKER POCKET -3WHEN DOING 1400 PUNCH COMPATIBILITY STACKER SELECT LOOP OPTION
THE NUMBER PUNCHED IN THE CARD WILL MATCH THE STACKER POCKET
IT IS FOUND IN. HOWEVER. WHEN LOOP OPTION SWITCH 11 12 OR 13
IS TURNED OFF THERE WILL UNAVOIDABLY BE GENERATED ONE PUNCHED
CARD WHICH HAS AN INCORRECT EXPECTED STACKER POCKET NUMBER
PUNCHED IN IT. THIS SHOULD NOT BE CONSIDERED A MALFUNCTIDN.

..

•
•••
•
••
•••
•
••

25~0

OPERATION ATTEMPTED
NOTE--SECTIDN SENSE SW -1- MUST BE ON IN CONJUNCTION WITH

o.

••
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
.......................................................................
PUNCH OPTIONAL FEATURES ASSIGNMENT
•.......................................................................
•• UNITITYPE I OPTIONAL FEATURE DIGIT 1 I OPTIONAL FEATURE DIGIT 2
··.··.1
...••1•..•...•.· ..........•....••.1.............................

EXPECT COND CODE 0 WITH CHANNEL END RETURNED IN THE 1ST CSW
AND DEYICE END RETURNED ALONE IN THE 2ND CSW.

•

EXPECT CONDo CODE

•

A 1~00 PUNCH COMPATIBILITY STACKER SELECT -STACKER 2- COMMAND
-51- IS ISSUED. THE FIRST EIGHT COLUMNS ARE PUNCHED WITH -1-.
THE CHANNEL IS ENABLED TWICE FOR INTERRUPTS.

••
•
••
••

EXPECTED RESPONSE

••
••
•

OPERATION ATTEMPTED

•

:

5A

fROM THE SETTING OF SNS SWITCH 11 12 OR 13. NO ERROR CHECKING
I S PERFORMED AND NO, PRINTOUTS WILL INTERRUPT THIS LOOP •

.

••
•

EXPECT CONDo CODE 0 ON THE START 1-0. A CHANNEL ·END INTERRUPT
SHOULD OCCUR fOLLOWED BY A DEYICE END INTERRUPT. THE CARD
THAT WAS PUNCHED BY THE ,PREYIOUS TEST NUMBER WILL NOW BE
STACKER SELECTED INTO POCKET -1-.

• ,
•
• .

..••
....•
•

8~0193

2540 PUNCH FUNCTION ,TlSTS- SECTION 2 F821

.,....

••
•
.1260 ••

PIN
PAGE

IBM MAINTENANCE DIAGNOSTIC PROGRAM

5

81T·2 BIT 3·
HEX 2 HEX 1.
PUNCH 51 COL
FEED I FEAT.,
READ,

I -BIT ~ BIT 5
I HEX 8 HEX 4
I ·1400
I, COMPAT
I·FEAT.

BIT 6
HEX 2

BIT 1
HEX 1
2 CHAN
SW. ON
2821

•••. . . 1..... 1..............................·1 ..................................

DATE
EC

05MAY65,
12~2S2

10AUG65
125580

l5NOV65
125621t .

l!IJUN61 :
130~98

10

PAGE

F821-3
5A

o

·1"
18M'MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840193
PAGE
~

\

2540 PUNCH FUNCTION TESTS - SECTION 2 F821

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• .
2540 PUNCH DIAGNOSTIC CHECK READ BYTE
.......................................................................

•

•
• .
•
• .
•
•

B.IT MEANING
.
0
NOT USED
1
NOT USED
2
NOT USED
3
X UPPER CHECK PLANE
4
X LOWER CHECK PLANE
5
BUFFER PARITY CHECK
6
PUNCH TRANSLATE CHECK
7
PUNCH BUFFER ADDRESS CHECK

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
.......................................................................
•
2540 PUNCH SENSE BYTE
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
BIT
MEANING

•
•
•
• .
•
•
•
•
•

0
1
2
3

4
5
6
7

COMMAND REJECT - INVALID COMMAND ISSUED TO THE PUNCH
INTERVENTION REQUIRED
BUS OUT CHECK - PARITY ERROR
EQUIPMENT CHECK - TRANSLATE CHECK, ADDRESS CHECK,
DATA REGISTER PARITY ERROR, OR A HOLE COUNT ERROR.
DATA CHECK
.
OVERRUN - NOT USED
UNUSUAL COMMAND SEQUENCE
NOT USED

Ii

....

I

••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
SWITCHES USED BY. 1-0 HANDLER
.......................................................................

- 'EXPECT NO CSWS
•• 4 ---- OFF
ON - EXPECT A CSW
5 ---- OFF - DO NOT EXPECT 2 CSWS
ON - EXPECT 2 CSWS
• 6 --- OFF
- ALWAYS TRY TO ISSUE SENSE
ON - SENSE ON UNIT CHECK ONLY
••
•
8 ---- OFF - NOT EXECUTING STACKER SELECT TESTS
•
ON - EXECUTING STACKER SELECT TESTS.
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• SWITCH
•
0 ---•

I

•

•
•
•
.,
•
•
• .
•
• '
•
•
•
•

I
I

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
2540 PUNCH STATUS BYTE
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• .
BIT
MEANING

i
!
I

•
•
•
•
•
•
•
•

0
1
2
3
4
5
6
7

.
.
.
.

•

XL2'OOOO'
X'0014'
X'FO' .
X'DO'
AL2IADR-BASE+REG)

CONTROL SWITCHES
TEST NO. IN DEC EXPRESSED IN HEX
EXPECTED CONDo CODE
EXPECTED SENSE DATA
. ADDR. OF EXPECTED CSW IF NEEDED

.............. ................................................•.......
.......................................................................
•
•

~

1-0 HANDLER CONTROL SWITCHES
2 BYTE PARAMETER FOLLOWING BAL

.......................................................................
• .SWITCH

•

o· .' - ......-

•

1'.,....,.,;-;

• .

,
:

• .
•.
•.
•
•

"

1

DATE
EC

05MAY6!$.
124252

10AUG65
125580 .

ISNOV65
125624

2 ........3 ---15JUN67 '
13049B'

DESCRIPTION
OFF- ISSUE' AN 1-0 COMMAND '.
ON' - DO NOT ISSUE AN' I -0 COMMAND
OFF.- :ENABLE
.
ON - DO NOT ENABLE .
OFF - EXPECT NO INTERRUPT
ON' - EXPECT AN INTERRUPT
OFF - DO NOT EXPECT 2 INTERRUPTS
ON - EXPECTZ INTERRUPTS '

10

PAGE

F821-3
6

4
5

--~

6
7

• ,REG
•
5
• .

•••
••
••
•
••

THE 1-0 HANDLER ROUTINE

DC
DC
DC
DC
DC

3

•
REGISTERS USED IN 1-0 HANDLER
.......................................................................

ATTENTION - NOT USED FOR THE 2540 PUNCH
STATUS MoDIFIER.·- 2 CHANNEL SWITCH FEATURE ONLY
CONTROL UNIT ENO - 2 CHANNEL SWITCH FEATURE ONLY
DEVICE BUSY
CHANNEL END
DEVICE END
UNIT CHECK
UNIT EXCEPTION - NOT USED FOR THE 2540 PUNCH

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
BAL
RlltISIO
LINK TO 1-0 HANDLER

1

2

DESCRIPTION
OFF
NO HANGUP ON INTERFACE
ON - HANGUP OCCURRED
OFF - NO CSWS STORED
ON - ONE CSW STORED
OFF - SECOND CSW NOT RECEIVED
ON - SECOND CSW RECEIVED
OFF - DID NOT ENABLE
ON - ENABLED ONCE
OFF - DID NOT ENABLE TWICE
ON - ENABLEO, TWICE
OFF - NO SENSE DATA RECEIVED
ON - SENSE DATA RECEIVED
OFF - NO UNEXPECTED, INTERRUPT FROM UNKNOwN DEVICE
ON -,UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE
OFF - NO ERROR DETECTED
ON - AN ERROR WAS DETECTED

...................................................................***.

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
.......................................................................
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
PARAMETERS USED TO ENTER
•
•
•
•
•

PIN 840193
PAGE
6A

Z540 . PUNCH FUNCTION :TESTS-SECTION 2 F8U

..
•
•

IBM 'MAINTENANCE DIAGNOSTIC PROGRAM

0010E4

0000

ODI0E6
OOlOEA
OOlOEE
0010F2
0010F6
OOlOFA
0010FE
001102
001106 '
00110),
00110E
001112
001116
OOUlA

92
92
92
92
47
92
92
92
92
47
92
92
92
92

DATE
Ee

9E
CB
C8
9E
FO
90
90
E3
E3
,FO
9C
9C
E2
E2

05 MAY 65,
124Z52

COMMENTS
USED AS LINK TO ERROR OUTPUT FROM INITIALIZE ROUTINE IF
PREVIOUS HANGUP ON INTERFACE DETECTED.

8

USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN.

9

USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN.

10·

MUST CONTAIN CCW ADDRESS UPON ROUTINE ENTRY

11

MUST BE USED AS LINK REG TO THIS ROUTINE

12

MUST CONTAIN DEVICE ADDRESS

I
i

'1

•
.......................................................................
ISW

F IB6
F 659
F 5CO
F l5A
F liE
F IB6
F,15A
F 659
F 5CO
F llE
F 1B6
F 15A
F 659
F '5CO:
IDAUG65
125580

DC

XL2'O'

MVI,
MVI
MVI
BC,
MVI,
MVI
MVI'
MVI
BC
MVI
MVI
MVI·
MVI·

IoPT1+25,X'C8'
IoADDR+12,X'C8' "
ILooP,X'9E' .
UNC, I EYEoH
ISSUE,X I 90"
ILoOP,X'90' ,
IOPT1+25,X'U'.
IOAOOR+12tiX'E3'
UNctlEYEoH
I$SUE,X'9C-,
ILOoP;X'9C' .
IoPT1+25,X'EZ"
IOADDR+12,x"EZ'.

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
• 1-0 HANDLER SUB-ROUTINE.
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
IHIo
MVI
ISSUE,X'9E',
SETUP FoRHALT'I-O
ITID

ISIO

. 15NOV65
125624

15JUN67
130498 '

Move -H- TO OPTION MSG •
BR. UNCONDITIONAL
SET 'UP 'FOR TEST ·1-0,

MOVE -y-"TOOPTION MSG.
BR. UNCONDITIONAL
SET UP rFORSTART'I-O
MOVE.-S-'.TO OP1!loN MSG.

to

PAGE

F821-3
6A

0000000000000000000000000000000000

,"

ciO"t 'Crr9SWWr"veWXSC'Wm'wltf¥'rBP"

o

t

"If %8%1

td@iWW"?'='M'WBMittW't&!:fOtim'tf"C"ik'1"Wb

m,,""Nffi'f'md

rTftSW}#'!r" tt

r

tt.

W.dtt.trW'S',

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 0 0 0 0 0
-....

-~-

...,. ..

~ ..

.-

IBM MAINTENANCe DIAGNOSTIC PROGRAM
25~OPUNCH

00111E
001124 !
00112S'
00112C'
001132
00U36·..
oo113C'
0011~2
001l~6
oon~A

"

OO1l4E ..

02 01 F 63C B 002'
90AB F 6A8
90 89 F 5S0'
0200 F 695 F'003
50:AD 0048'
07.07·0 O~O 0040
D7:0B E OSO E'080
91 80B 000'
~1. : 10 F 200.
91 CO F OO~
47 ,80F 196

001152
91 BO F 004:
001156 " 47 ·80 F 162
QOq5A: ·9C 00 C 000
:O0115e
47 FO F 152
901.162 . 91 40' F 004.
:)'tni166 - 47 80 F1S2
.'. G01l6A
'0 00 C 000
'pQ~ 16E . i·1t7 70 F 152
001172'.91 40 F OO~
«)0-1176' ',nso F lS2
'. ;ODU 7A'9t OOCOOO
00U7E
47 FO F 16A
0(M,182
IE 0198
001-l~6 '
ie4'100 003
,.~ ~ ~18.A
,90; 00 C 000
/OOU'SE ,"
·4i!;e0·F 196
~:OOll:g2 :,~. '10 F 18A
001196 'l)f"Ol F OE~ 'F OE~
00119C
96 80 F OE4 '
0011A092 E7 F 5AF
0011A4:
91 01 B 001
47 10 F 1B6
001lA8
0011AC
92 40 F 6FC
0011BO
02 4E F 6FD F'6FC
001lB6 " 9C 00 C 000
OOllBA
47·80 FIFe
0011BE
47·40 F 106
47 20 F ICE
0011C2 .
0011C692 F3 F 5AF
0011CA
41 FO F 200
0011CE
92 F2 F 5AF
001102
47 FO F 200
001106
92 Fl F 5AF
0011DA
02 07 F 616D O~O
0011EO
96'40 F OE~
0011E4:
91 80 B 001
0011E8'
47 80 F 200'
0011EC
91 08 F 67A
0011FO
47 10 F 200
0011f4:
9640 B 000'
0011F8'
47·FO·F 200'
OOllFC
92 FO F 5AF
001200
94 ,IF F OE4'
001204'
91.40·B 000.
001208'
47 10 'F 2A4.
00120C
96 10 F OE~
001210
58 9E 0 198
001214_
8890'0 :003
00121B
9680 F OE~ .
00121C
8000 F 693
001220
46 90:F 220'
001224'
80 00 F 694'
001228
94'7F F OE~
00122C
~7 FO F 2A4

I
I

!

DATe
EC

8~0193

7'

FUNCTION TESTS -SECTION 2 FS2l

5'

I

PIN
PAGE

05 MAY 65
124252

10AUG65
125580

IEYEOH MVC
STM:
STM
MYC
GaM AN ST·
XC
XC
TM
SC
TM
BC

TM
BC
ILOOP SlO
BC
ITRY2. TM
BC
IHANG TIO
BC
TM
BC
SIO
BC
IHI
L
SRL
GREG
TIO
BC
BCT'
JOHN
XC
01
MVI
TM
BC
MVI
MVC·
ISSUE SID
BC,
BC
BC
MVI·
BC
ITWO. MVI
BC
lONE. MVI·
MVC
01 TM'
BC.
TM'
BC·
01
BC
IZERa MVI
INON
NI
TM
BC
01
IWAIT L
SRL
01
SSM
BCT
SSM.
NI
BC
15NOV65
125624

15JUN67
130~9S

PIN
PAGE

IBM MAINTENANCE DIAGNOSTIC PROGRAM'

8~0193

7A

2540 PUNCH FUNCTION.TESTS - SECTION 2F821
ITSTNO+5(2),2IR11)
R10,Rl1,ISLAVE
R8,R9,ISAVE'
RTSV(1),SECNO+3
R10,HCAWIR13)
HCSNIB,R131,HCSWIR131

...........................................*...........................

SAVE TEST NUMBER
SAVE REG 10 AND REG 11
SAVE REGS 8 AND 9
SAVE RT NO. FOR HANGUP.
StORE COMMAND ADDRESS

LDGOUTI12,R141,LOGOUTIR1~)

OIRlll,X'SO·.
ALL,INOW
SNSW,X'CO'
NONE,JOHN'

CHECK CONTROL SWITCH FOR NO 1-0
BR. IF ON

.......................................................................
•
SENSE SWITCH LOOPS
.......................................................................
ITRYI

--------------.,---

....'

SNSW,X'SO'
NONE ,ITRY2
OIR121
UNC ,ITRYl
SNSN,X'~O'

NONE,IHI
01R12)
NCCO,ITRYI
SNSN,X'~O'

NONe,lHI
01R12)
UNC,IHANG

.

R1.,WTCl~1

RI,3
01R12)
CCO,JOHN
R1,GREG'
ISW(2),ISW
ISW,X'80' .
IACTCC+5,C'X'
1IR11),X'01'.
ALL, ISSUE
PCHAR,C' ,
PCHAR+1179I,PCHAR
01R12)
CCO,IZERO
CC1,IONE
CC2,ITWO
IACTCC+5,X'F3'
UNC,INOW
IACTCC+5,X'F2' .
UNC,INOW
IACTCC+5,X'F.l'.
ICSWllli),HCSWIR13).
ISW"X'~O'

1IRl11,X'SO'
NONE,INOW·
ICSW1+4,X'08' .
ALL,INON
0IR11),X'~O'

UNC,INON
IACTCC+5,X'FO' .
ISN,X'7F' .
0IR111.X'~0'

ALL, I SEN

ISW,X'10'

R9,WTIR1~t

R9,3
ISN,X'BO' .
MSK1
R9,.
MSK2
ISN,X'7F'
UNC,ISEN

CHECK SECTION SENSE SWITCH 0
BR. I F OFF
SIO, TlO, OR HID
BR. UNCONDITIONAL
CHECK SECTION SENSE SNITCH 1
BR. IF OFF
TEST'I-O
BR. IF NOT COND. CODE 0
CHECK SECTION SENSE SNITCH 1
BR. IF OFF
START 1-0
BR. UNCONDITIONAL

001230
~9 CO F 03A
001234.
~7 60 F 252
001238
9~ .7F F !IE~'
91 ~O F OE4
00123C
47 10 F 282
001240
0012~~ :
02 07 F 676'F 040
00124A
96 40 F OEIt
00124E
47 FO F 28C
001252
02 07 F 588F O~O
001258
OA DO
00125A
0003
00125C
0039
00125E
069B
001260
OA 00
00.1262
64
001263
OB
001264,
F696
001266
02 02 F'5E6. F 50F
92 1A F ~2F'
00126C
001270
02 02 F 5FCF5FF
001276·
~5 90F U8'
OOlllA
96 02 FOE4
00127E
47 FO F 502
001282
0207 F 67E F'040
001288
96 20 F OE~
91 10 B 000;
00128C
001290. .41 80 F 2A4;
001294 '
91 08 F OE~'
47 10F 2A4
00129B
9608'F OE4 '
00129C
47FO F 210
OOllAO
001ZA4
91.02 BOOO;
47 80F 2CC
0012A8
0012AC
91 40 F OEIt'
0012BO
4780 F 322
001284 .
91 02 F 61A
0012B8 '
~7 10 F 2CC
0012BC
91 20 F OE~
~7 80 F 322
0012CO
91 02 F 682'
OOllC4
41. .80 F 322
0012C8
0012CC
589E 0 198'
OOllDO.
88'90:0 002
41 80 F 688
001204 '
001208
50 80 0048'
0012DC
9C OOC 000;
4170 F310'
0012EO
0012E4.
90 OOC 000
0012EB
41 ~O F30C
0012EC
46 90 F ·2E~:
OOllFO'
~1 FO F 322'
0012F4
91 40 FOE4
0012F8 .
47 10:F 370:
47 FO F 3710;
0012FC
91.20 F OE4
001300
001304
47·10 F 370
001308 .
41 FO:F 374
00130C
95 OC 0 044 ~
001310
47 70 F 2EC
00131~ :
96 04FOEit
001318 .
05 OO:F 615 BOOS
47.,;60·F 310'
00131E
001322 _ 05 00 F·5AFB OO~·
41 ;60-:F '370:
001328
00132C
9108'B 000

• ,
.
ALL I-a INTERRUPTS RETURN HERE,
•••
*..................................................................
.
IRETRN CH
R12, JOOPSW+2
COMPARE FOR CURRENT,
ADDRESS
1-0

IUIO

ISV2
INT3

>

MOVE IN A -XSEE IF IN STACKER SELECT TEST.
BR IF YES.
CLEAR WORK AREA~

"

1-0 COMMAND- SID, TIO, OR HIO
BR. IF CDNO. CODe 0
BR. IF COND. CODe 1
BR. IF COND. CODe 2
INDICATE CONO. CODE 3
BR. UNCONDITIONAL
INOICATe CONO. CODE 2.
BR. UNCONDITIONAL
INDICATE COND. CODE 1
SAVE; CSN
INDICATE 1 'CSW
SEE IF INVALID COMMANDS TEST,
BR. IF NOT
SEE IF CHANNEL. END IN STATUS
8R. IF yes
DO NOT ALLOW FOR ENABLE INTERRUPT
. BR. UNCONDITIONAL
INDICATE CONO. CODE 0
TURN OFF HANG·UP SWITCH
CHECK CONTROL SNiTCH FOR NO ENABLE
BR. IF ON
INDICATE ENABLED ,ONCE
LOAD OM NAITFACTOR
ADJUST'
TURN ON HANG UP SW·
ENABLE
NAIT
DISABLE
. TURN OFF HANG' SW
BR. UNCONDITIONAL
F821-J
10
PAGE
7

ISEN,

>

DATE
Ee

05MAY65
124252

lOAUG65
125580:

IDOSNS

ITIOLP
ITIC
INDEX1
INOEX2
ILOKE

IBSN

BC,
NI
TM
BC
MVC
01 .
BC
MVC
SVC
DC
DC
DC
sve
DC
DC
DC
MVC·
MVI
MVC,
BAL
01
BC
Mve,
01
TM:
BC '
TM
BC
OJ
BC
TM
Be
TM
BC.
TM
BC
TM
BC
TM:
8e,
L
SRL!
LA
ST
510 '
BC.
TIO
BC;
BeT
Be
TM
BC
BC.
TM
B'C:
BC
CLI
Be :
01
CLC
Be'
CLC
BC
TM

15NOV65

15JUN61,

12562~

IJO~98'

UNEQ,IUIO'
I SW,X '7F·

BR. IF UNEQUAL
RESET HANG UP SN

ISW,X'~O'

ALL,ISV2
ICSW1C81oHCSNIR15)
IS>W,X'~O'

UNC.INT3
WDRKI81'HCSWIR151
X'DD'
AL2(3)
AL2IIOOPSW+l-SeCNOI,
ALZUUNeX+5-SECNOI '

BR. IF 1 CSN ALREADY STORED
SAVE CSN1 .
INDICATE 1 CSN STORED
BR. UNCONDITIONAL
CONVERT ADDRESS

x'oe'

PRI NT ;UNEXPECTED INTERRUPT' OEY ICE
X'.64'
ADDRESS
X'OB' .
All I 1UNEX-SECND+REG I
MOVE -CSW- TO MESSAGE
18LAH+1131.ICSW
ADJUST:COUNT
ICNT,X'lA'
IBLAH+23131.IACT'
MOVE.-ACT-TO MESSAGE
BR. TO OUTPUT'CSN
R"" COUT •
ISW,X'02' ,
INDICATE UIO
BR. UNCONDITIONAL
UNC.1l0GED
IC'W2(8) ,HCSWIRI5t:
SAVE CSN 2
INDICATE 2'CSWSSTOREO
ISW,X'20' .
CHECKCTRL'SM'FOR 2 I~TR EXPECTED
OiRllJ,X'lO'
NQNE, I seN·
BR. IF NOT
ISW.X'08'
BR. IF ALREADY ENABLED TWICE
ALL,ISEN
INDICATE ENABLEDTNlce
ISN,.X'08'
UNC, I NAIT
0IRll),X'02'.
CHECK CONTROL SWITCH FOR SNS ON ue
BR. IF OFF·TO ISSUE SENSE
NONE,IOOSNS
I SW,X '~O'
NONE,IBSN
BR. IF NOCSN STORED TO BYPASS SENSE
CHECK FOR UNIT CHECK
ICSW1+~,X'02' .
ALL,IDOSNS
IF YES BR. TO ISSUE SENSE
CHECK FOR seCOND CSW
ISW,X'20'
BR. IF NOT TO BYPASS SENSE
NONE,IBSN'
ICSW2+~.X·02' .
CHECK FOR UNIT CHECK
BR. IF NOT TO BYPASS seNSE
NONE.IBSN
LOAD OM WAIT FACTOR
R9,WTCR14l
R9,2
CUT IT DONN TO 2.5 SECS.
LOAD SENSE COMMAND ADDRESS
R8.1 SENSE
R8,HCANIR13J
STORE IN CAW
OlR121
ISSUE SENSE
NCCO,INDER
BR. IF NOT ACCEPTED
.
TEST
1-0
DIR12)
CC1,lLOKE
BR. IFCSN STORED
R9,JTIOLP
UNC,IBSN
BR. UNCONDITIONAL
ISN,X'~O'

ALL,INDER
UNC, IDUNCK
ISW,X'20' .
ALL,INDER
UNC,IDUNCK

HCSW+~IR13I.X'OC·

NCCO, ITIC
I

sw,x'o~·

BR. IF CSN 'STORED
BR. UNCONDITIONAL

.

.

IACSNS+5Uh5IR1U
UNeQ,lNDER
JACTCC+5CU,~IR1U

UNEQ,INDER
0IRl11.X·OB'

.

BR. IF 'CSW 2 STOReD
BR. UNCONDITIONAL
CHECK FOR CE DE ONLY .BR. IF NOT
INDICATE SENSE DATARECI EYED
COMPARE FOR EXPECTED SENSE
8R. IF,UNEQUAL
COMPARE FOR EXPECTED' COND.·CODE
BR. IF UNeQUAL'

·10
FB21-3
PAGE
,lA

IBM MAINTENANCE DIAGNOSTIC PROGRAM'
2~tO PUNC~

,i
I'

001330
001334 _
001338
00133C
001340
001344
00134A
00134E
001352
001356
00135A
00135E
00136Z
001366
00136e
001370
001374 :
001378 '
00137e
001380
001394 '
001388
00139C
001390
00139,. ,
00139A
00139C
00139E
0013AO
0013AZ
0013A4 '
0013A5
0013A6
0013A8
0013AC
0013AE
00138Z
001384
001386
001388
00138A '
00138t
001380
00138E
0013CO
0013t4
0013t8
0013tC
0013CE
001300
00130Z
001304
001306 '
o013oi
001308
00130A
00130E
0013EZ
0013E6
0013E8 '
OOUEA
0013Ee
OOl3EE
0013FO
OOl3fl
OOl3fZ
0013FIt
OOl3fA
DATE

PIN
PAGE

84019~

S

FUNCTION TESTS - SECTION 2 f82l

4780 F ZFIt'
91 40 F OE4
47 80 F 370
48 88 0 006
40 80 F 348
05 07 F 676 F 616
47 60 F 370
91 0"'8 000
4780 F 300'
91 ZO F OE4
41,80 F 370
41 88 0 008
4080 'F 36A
05 07 'F 61E f61E
,,.7,80 F 31,.
96 01 f OE4
,9Z ,64 'F 3A,.
92 CO f 5,48
91 01 F OE4
47 10 F 39,.,
91 01 F 004
,.7 80f 56,.,
9Z Z,.F3A4
9Z 80 F548'
DZ 01 F 63C B 002
OA DO'
0002
063C
063C
OA 00
64
09
F637
H 80 '0 ,004 •
18 88,
50 80 'f 5t8;
',OA DO
,0003
,05t9
05t8 ',"
OA 00
AO
'
10
F5t3
,.1 88 000,.
91 80 8 000
4710F"6'
OA 00
0003
0690
0599
OA DO
AO
OF
F5B4
95 9C F 186
47 60F 434
50 AOf' 508'
OA DO
0003
0509 '
0508
OA DO'
AO.
08
F5D3
02 02 f'5E6 F 5E2
92 16 F UF

05 MAY 65

10AUG65

BC
TM
BC
lH
STH
ICCSW1 tlC
8C
TM
BC
TM
BC,
LA
STH
ICCSW2 ClC
8C
tNDER 01
IDUNCK MVI
MVI
TM
8C
TM
8e
MVI
MVI
10unT iMve
SVC,
DC
DC
DC
SVC
IFlAGl DC
DC
DC
lA
SR
ST
SVC
DC
DC
DC
5VC
DC
DC
DC
LA
TM
8C
SVC
DC
DC
DC
SVC
DC
DC
DC
Cli
8C
ST
SVC
DC
DC
DC
SVC
DC
DC
DC
MVC
MVI
15NOV65

IBM MAINTENANCE DIAGNOSTIC PROGRAM'

PIN 840193
PAGE
8A

Z540 PUNCH FUNCTION 'TESTS ~ SECTION Z F8Z1
NONE,lNOEXl
ISW,X'40'
NONE,INDER
RS,61R1U
RS, ICCSWl+1t '
ICSN1I8)' leSW1 '
UNEQ,INDER
DIRUI,X'OIt'
NONE,INOEXZ
ISW,X'ZO'
NONE,INOER
RS,alRsl
RS,ICCSWZ+1t '
ICSWZlal,lCSWZ
EQ,IDUNCK
ISW,X'Ol'
IFLAG l,X' 61t'
IFLAGZ,X'CO'
ISN,X'Ol'
ALL,IOUTIT
SN5W,X'01'
NONE,llEAVE
I FLAG1,X' Zit'
IFlAGZ,X'SO'
ITSTNO+5IZI,ZtR11)
X'OO' ,
AlZIZ)
AlZIITSTNO+5-SECNO)
AlZI nSTNO+5-SECNO) ,
X'DO' ,
X'64'
X'09' '
AU(ITSTNCHSECNO+REGJ
RS,4
RU,R8
Rll,ILlNK+5
X'DO' , '
AlZI3)
AlZIllINK+6-SECNO)
AlZ(IlINK+5-SECNOI
X'DO' ,
X'AO'
X'10'
AlZlllINK-SECNO+REGI
Rll,4IR1U
OIRlll,X'SO'
ALL,IOCSW
X'DD' ,
AUI31
ALZIIOADR-SECNO)
AUIIOAODR+5-SECNO)
X'DO'
X'AO'
X'OF'
ALZIIOADDR-SECNO+REG)
ISSUE ,X'9C' ,
UNEQ.ICCOUT
R10,ICAW+5
X'DD'
AlZ(3)
A12IlCAW+6-SECNO) ,
Al2IICAW+5-SECNOI
X'OO' :
X,'AO'

8R. IF NO CSW EXPECTED
SR. IF NO CSW RECIEVED
LOAD CSW AOOR
STORE IN COMPARE INSTR.
COMPARE FOR EXPECTED CSW
8R. IF UNEQUAL
BR. IF NO CSW Z EXPECTED
BR. IF NO CSW 2 RECIEVEO
UPDATE TO SECOND CSW
COMPARE FOR EXPECTED CSW 2
8R. IF EQUAL
INDICATE AN ERROR
SET UP FOR ERROR PRINTOUT
CHECK FOR A DETECTED ERROR
8R. IF ERROR DETECTED
CHECK SECTION SENSE SWITCH 1
BR. IF OFF
SET 'UP FOR CORRECT PRINTOUT
MOVE TEST NUM8ER TO PRINT
CONVERT TEST NUM8ER

PRINT TESTNUM8ER

0014510

ADJUSTLlNKADDRESS FOR PRINTOUT
CONVERT LINK ADDRESS

PRINT liNK ADDRESS

BR. IF NO 1-0 COMMAND ISSUED
CONVERT 1-0 ADDRESS

PRINT 1-0 ADDRESS

COMPARE FOR SIOCOMMAND
8R. IF NOT
STORE CCW ADOR~
CONVERT CAW.

PRINT CAW.

X'08' ,

Al21ICAW-SECNO+REGI
IBLAH+1 I 3 I. ICCW
ICNT,X'16' ,

0013FE
001401t .
001408
00140C
001UO
001414 '
001418
0014lA
00141C
00141E
001420
0014Z6
00110ZC
0014ZE
OOlltZF
001430
001103Z
001434 ;
001103A
00143C
0011030
00143E
001440
00144Z
001443
0014104
001446
001410C
001450

MOVE -CCW- TO MESSAGE
ADJUST COUNT

0011058
00145E
001462
001466
0014,6A:
00146E
001474 :
00147S'
00147C
001480
00llt86
00148C
001490
001494
001498
00149E
0014A4
0014A8
0014AC
001480
001486
00148C
0014eo
001ltC6
0014CA
0014CE
001400.
0011t02
0014DIt '
001406
001408
001409
0014DA
0014DC
, OOHOE
0011tE0
001ltEZ
001ltEit

02 07 F 588 'A ODD'
45 90 F 1t18
91 CO A 001t
47 80F431t'
41 AA 0008
47 FO F':JFE
OA DO
OOOS
0588
0588
D2 01 F 5EA F"S8'
02 01 F SF3'F 590'
OA 00
AO
lA
F5E5
07F9'
DZ 00 F 5A5 B DOlt:
OA 00
AO
OA
F5AO
OA 00
AO
OA
F5AA
02 02 F SE6 F 5DF
92 1A F 42F
91 088 000
47 80Flt18
02 02F 'Fe F602
48 8B 0 006
40 80F 412
41 88 0 008
40 80 F /tA2
02 07 F 58S'F 588
45 90 F ,418
91 40 F OEIt
107 80F ,,90
02 02 F 5FC F 5FF
02 01 F 588 F 616
45 90 F 418
91 04 8000
47 80 F 4A8
OZ 02 F 5FC F 602
02 07 F 588 F 588
45 90 F H8
,9120 ,F OEIo
47 80 F ItCO
02 02 F ,5FC F5FF
OZ 07 F 5S8 F 61E
45 90 F 418'
02 OC F 60A B005
91 04'F OEIo
47 80'F ,4FA
OA DO
0001
060A
060A
OA DO
AO
08
F605
OA DO
0001
0615
0615
OA DO

ICWOUT ,MVC
WORK(8) ,0IRIOI
BAL
R9,ICOUT
TM
Itl R101, X'CO' ,
8C
NONE,IeCOUT
lA
R10,81R101
8e
UNC,ICWOUT
ICOUT SVC
X'OO'
Al2181
DC
DC
ALZIWORK-SECNOI
DC
Al2 I WORK- SECNO I
MVC
18LAH+5181,WORK
MVC
18lAH+llt(81.WORK+8
SVC
X'OO'
DC
X'AO'
ICNT
DC
X'lA'
DC
AL2118LAH-SECNO+REGI
8CR
UNC,R9
ICCOUT :MVC
IEXPCC+5Cl),4IR11),
SVC
X'DO'
DC
X'AO'
DC
X'OA' ,
DC
Al2IIEXPCC-SECNO+REGI
SVC
X'OO'
DC
X'AO'
DC
X'OA'
DC
Al21IACTCC-SECNO+REGI
10CSW MVC
18lAH+l131,ICSW
MVI
leNT,X'lA'
TM'
OIRllltX'OB'
BC
'NONE; 10101
MVC: 18LAH+23(3) ,IEXP
lH
R8,6IRUI
STH
R8,ICHNG1+1o
LA
RS , 8IRSI
STH
R8,JCHNG2+4
ICHNG1 MVC
WORKIS) ,WORK
8AL
R9.leOUT
10101 TM
ISW,X'ItO'
NONE,lMORST
8C
MVC
IBlAH+2313I,IACT
MVC
WORKl8l,ICSWl
BAL
R9,IeOUT
IMORST TM
01R111,X'04'
8C
NONE,IOIO
MVC
I8lAH+Z313),IEXP
NORK(8) ,WORK'
ICHNGZ MVC
R9,ICOUT
'
8AL
1010
TM
ISW,X'20'
BC
NONE,IPAS
18LAH+23(3),IACT
MVC
MVC
WORK181olCSN2
BAL
R9,ICOUT
IPAS
MVC
IEXSNS+511I,~IRll)
TM
ISW,X'Olt'
8C
NONE,IPASS
SVC
X'DD'
AL2(l )
DC
DC
AL21IEXSNS+5-SECNO)
DC
AUI I EXSNS+5-SECNOI
SVC
X'DO' ,
X'AO' ,
DC
DC
X'08'
AL21IEXSNS-SECNO+REGI
OC'
SVC, X'DD' '
'AUIU DC
AL2UACSNS+5-SECNOI .
DC'
OC
AL2IIACSNS+5'-SECNOI
SVC, X'OO' ,

MOVE CCW TO WORK AREA
8R. TO OUTPUT CCW
CHECK FOR ANY CHAIN FLAGS
8R. IF NONE
UPDATE TO NEXT CCW
8R. UNCONDITIONAL
CONVERT

MOVE TO MESSAGE
PRINT

RETURN VIA: REG 9
MOVE EXP CC, TO MESSAGE
PRINT EXPECTED CONDo CODE

PRINT ACTUAL;CONO. CODE

MOVE -CSW- TO MESSAGE
ADJUST COUNT
8R. IF Noesw EXPECTED
MOVE -EXP- TO MESSAGE

MOVE EXPECTEDeSN TO WORK AREA
BR. TO OUTPUT EXPECTED CSW
8R. IF NO CSN STORED
MOVE-ACT-TO MESSAGE
MOVE ACTUAL CSN TO WORK AREA
8R. TO OUTPUT ACTUAL CSW
BR. IF NOT EXPECTING 2 CSWS
MOVE -EXP- TO MESSAGE
MOVE EXPECTED CSW TO WORK AREA
8R. HI OUTPUT EXPECTED ,CSW 'Z
8R. IF NO SECOND CSW STORED
MOVE -ACT- TO MESSAGE
MOVE CSII TO WORK'AREA
MOVE EXP SENSE To MESSAGE
BR.IF'NO SENSEDATA RECIEVED
CONVERT EXPECTED SENSE

PRINT EXPECTED SENSE'

PRINT 'ACTUAL SENSE DATA

15JUN61

10 ,F821-:J ~__________________________________
DATE
05MA165
lOlOG65
lSNOV65
15JUN61 ,
L-________________________________________________________
'Ee:
~____________________
__
10
F821-3
124252
125580,
125624 '
130498 '
PAGE
8
EC

124252

125580

125621t

1301t98

PAGE

8A

I

!

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
,

.. - - - - - - , - - - -

0000000000000000000000000000000000
I
·I..-.--_ _ _ _ _ _ _ _ _ _ _

IBM MAINTENANCE DIAGNOSTIC PROGRAM
25~0

001~El

0014EB
0014EA
OOl~EE

001~F2
001~F6

0014FA
001~FE

!

001502
001508
00150A
00150C
00150E
001510
001516
00151C
001522
001528 '
00152A
00152B
00152C
00152E
001532
001536
00153A
00153E
601H2
0015~6

0015~S
0015~9
., i...

00J.54A.

~,..-.':' 'r--:--'oot5~C

,

S4019~

00154E
0015~F

001550
001552
001556 '
00155A
00155E
001562
00156~

001568
00156C
001510

00151~ ,
00151S'

AO
OB
F610
95 F~ F 60A
~7 80F4FA
95 F~ F 615,
41 80 F 766
95 30 E lSI,
~1 60F 52E
02 OB F 5SS'E
OA OD
OOOC
0588
0588
, D2 01 F 620 F
D2 05 F 623F
02 05 F 62A F
02 05 F 631 F
OA 00
AO
lC
F618
91 02 F OE4
4780F53E
9~ FO F OE4
41 FO F210
91 01 B 001
41 10 F B86
04 00
CO
36
F640
OA 00
AO
01
F5C3
50 AD 0048
91 CO F OO~
~1 50 F 152
91,80 F OE~
01 15
91 08 8 000
~7 80 F 570
U BB 0 002
41 88 0 006
98 89 F 5S0
01 FB

OSO'

5S8'
5SA
592
59A

DC
DC
DC
CLI
8C
CLI
8C
lPASS CLI
BC
ILOGED MVC
SVC
DC
DC
DC
MVC
MVC
MVC
MVC
SVC
DC
DC
DC
ICUIO TM
BC
NI
BC
10POUT TM
BC
SVC
IFLAG2 DC
DC
DC
SVC
DC
DC
DC
ST
TM
BC
SSRET TM
BCR
ILEAVE TM
BC
LA
IUP
LA
LM
BCR

X'AO'
X'OB' ,
Al2114CSNS-SECND+REGJ
IEXSNS+5,C'It'
EO,IP4SS
lACSNS+5,C'It'
EO, TELHIM
SYSMOOIRllt),X'30'
UNEO,ICUIO
WORK(12),LOGOUTIR14t
X'OD'
AL2( 121
AL21WORK-SECNO)
AL2IWORK-SECNO)
IOLOG+512I,WORK
IOLOG+8(6),WORK+2
IOLOG+15C6I,WDRK+lO
IOLOG+22(6),WORK+18
X'OO'
X'AO'
X'lC'
AL2110LDG-SECNO+REGI
ISW,X'02'
NONE,IOPOUT
ISW,X'FD'
UNC, I WAIT
l1Rll),X'Ol'
ALL,SNSMES
X'OO'
X'CO'
X'36'
AL2CIOPTl-SECNO+REGI
X'OO'
X'AO'
X'Ol'
AL21ILINK-SECNO+REGI
RIO,HCAWIR131
SNSW,X'CO'
ANY,ITRYl
ISW,X'80'
ALL,R5
OlRI1),X'08'
NONE,IUP
Rll,2(Rlll
Rl1,61Rll)
R!!,R9,ISAVE
UNC,Rll

001504
SEE IF EXPECTED INTV REOO
8YPASS INTV, REOO MESSAGE
SEE IF RECEIVED INTV REOO SNS
8R. TO PRINT OUT INTV REOD MESSAGE
CHECK FOR MOOEL30
8R. IF NOT
MOVE LOG OUT 'TO WORK AREA
CONVERT
'

MOVE LOG OUT 'TO MESSAGE

PRINT LOG OUT

8R. IF NOT UIO
RESET UIO SWITCH
8R. UNCONDITIONAL
SEE IF STACKER SELECT ROUTINE
8R. IF STACKER SELECT ROUTINE.

SPACE A LINE

STORE CAW
CHECK SECTION SENSE SWITCH 0 AND 1
8R. IF ANY ON
RETURN VIA REG 5 IF HANG UP
BR. IF NO CSW EXPEtTED
UPDATE LINK ADDRESS FDR RETURN
RESTORE REGS 8 AND 9
RETURN VIA REG 11

0015C3
0015CC
001503
DATE
EC

•
1-0 HANDLER WORK AREA.
............................................................
*••••••••••

~OC3C3~0~OE1~OC5El'

CNOP,
BCR
BCR
BCR
ISAVE OC
WORK
OS
IEXPCC DC

0,8
0,0
0,0
0,0
XL8'O',
24C
C' CC X EXP'

~OC3C34040E140CIC3

IACTCC DC

C' CC ,X ACT' ,

10AOOR DC

C' ADR XXXXXX XIO'

01 00
01 00
01 00
0000000000000000
01

E3
40C1C4D940E1E1E1El
E1El~0E1C9D6

00 '

0015C3 .
40C1C40940E1E1E1El
E1E140D3C9D5D2
00
05MAY65
124252

10AUG65
1255S0

ILINK

15NOV65
125624 '

DC
CNOP
ORG
DC

15JUN61
130498

PIN 840193
PAGE
9A

2540 PUNCH FUNCTION TESTS - SECTION 2 FS21

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

001514
00151A
00151C'
00151E
001580 '
001588
001540
0015A9
0015AA
001583
0015M:
0015BD
0015C3,
oo15C~ :

IBM MAINTENANCE DIAGNOSTIC PROGRAM

9

PUNCH FUNCTION TESTS -SECTIDN 2 Fe21

0014E6 ,

!

PIN
PAGE

-~-------

X'OO' ,
0,4

001503
40C3CIE640E1E1E1El
E7E140
&3E2E6
C3&3E6
40C3E2E640E7E1E1El
E7E7E1E740E1El
E7E7E1E7E1E140C5El
07
CIC3E3
C5E1Dl
40E205E240E1E140C5
E707
40E205E240E1E140C1
C3E3
400306C140E1E140El
E7E1E7E1E140El
E7E7E1E1E740E1E7El
E7E7E7
40E3E2E340E7E7E1El
40E2C5E340E2E240FO '
40060540C60609
400306060740060540'
E1C9066840E2E2
40F 140060540C606.09 '

001503
00150C
00150F
0015E2
0015E5
0015EE
0015F5
0015FE
0015FF'
001602'
001605
00160E
001610
001619
00161B
001624 '
00162B
001634
001637
001640
001649
001650
001659
001660
001669
40E3C906~OE2C9
001670
064003060601
001616
0000000000000000
00167E
0000000000000000
001688
04 ,001615 0000 0001.
001690
001186
001693
FE
001694 '
01
001695
00
001696 '
40E4C90640E1E1E1El
00169F,
E7El
001642
0016A2
0100
0016A4
01 00
001646
07 00
0016A8 '
0000000000000000

.-1
C'.DR XXXXXX LINK'
ID
F821-3
PAGE
9

IB DO
91 40 E
41 80F
18 'bF
58 CO F
54 CO F
91 80 F
41 10 F
92 03 F
92 20 F
41 AO F
01 F~
02 00 F
OA 00
64

0016E~.

F14t
9601 'FOE4
45 50·F 2Ct
92 OO:F OE4'
41;FO;F6C4

DATE
EC

196'
6BC
OEO
6F8'
OE4
60A
C88'
C8C
t88
003f 695

lA

C' CAW XXX XXX •

ItSW
ICCW
IBLAH

DC
DC
DC

C'CSW·
C'CCW' '
C' CSW XXXXXXXX XX'

DC

C'XXXXXX EXP'

IACT
DC
IEXP
DC
IEXSNS DC

C'ACT'
C'EXP'
C' ,SNS XX EXp·

IACSNS DC

C' SNS XX ACT' ,

10LOG

DC

C' LOG XX XXXXXX X' ,

DC

C'XXXXX XXXXXX' ,

ITSTNO DC
10PTl ot
DC
DC
DC
, ICS"l, DC
ICSW2 DC
ISENSE CCW
10ADR DC
MSKI
DC
MSK2
DC
RTSV' DC
IUNEX DC
CNOP
BtR
8tR
8tR
ISLAVE DC

124252

C' TST XXXX'
C' SET SS 0 ON FOR' ,
C' LOOP ON XIO,

sst

C' 1 ON FOR TID SI'
COO LOOP' '
XLSIO'
XLS'O'
XIO~'tIACSNS.5tX·OO',l

AL311$SUEt
X'FE'
X'Ol'
X'OO'
couto XXXXXX' ,
0,8
0,0
0,0
0,0
XL8'O'

SAVE RT NO. FOR HANGUP.

REGISTER SAVE AREA

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
INITIALIZE ROUTINE
INIT

SR
TM
8C
LR
NITWIT L
N
8LOOP TM
BC
MVI
MVI
LA
BCR
HANGUPMVt
SVC
Ot
Dt
Ot

IOAUG65
125580

R13,R13

,X'40' ,
NONE,NIT"IT
R13,R15
R12,UNITl
R12,M0050
IS", X' SO'
ALL,HANGUP
CCW,X'03' .
cew+~,X'20' .
RIO,CCW
~061Rl~)

UNC,R~'

SEtNO+3UltRTSV
X'DO'
X'M,'

x'u'

ZERO REG 13
CHECK FOR FORCED PROBLEM STATE
BR. IF NOT
SET UP FOR PROBLEM STATE
PUT PCH UNIT TABLE IN 12 •
AND OUT ALL8UT ADDRESS.
CHECK FOR HANG UP
BR. IF DETECTED
PUT A NOOP INTO CCW.
INSURE SIL FLAG IS ON IN cew

RETURN VIA REG It
RESTORE RT NO.
PRINT
-PREVIOUS ~ANGUP DETECTED-

AL2(HUNG-SECNO+REG) :
ISw,X'Ol' ,
SET HANG UP SWITCH
BAL· R5,IDOSN$
BR. TOOUTPUT:AVAIUBLE' INFO
MVI
l$W,X'OO' ,
RESET HANGUP SWITCH
8t
UNC • BLOOP ,
tNOP '0,4
8CR
0.0
01

0100 :
05MAY6~·

0,4
*-1

•••••••••••••••••••••••••*.............................................

001680
001682
0016B6
0016B4
0016BC
0016CO
0016C4
0016C8
0016CC
001600 '
00 1601t,
0016D8
00160A
0016EO
0016E2
0016E3,
0016E6
0016EA
0016EE
0016F2
0016F6·
0016F6

ICAW

CNOP
ORG
DC

15NOV65
125624'

15JUN61 :
nOlt98 '

10
f821-3
PAGE
9A

IBM MAINTENANCE DIAGNOSTIC PROGRAM
2540 PUNCH FONCTIONTESTS -

0016F8
0016FC
00174C
001755
00115C
001165

00003FFF

001766
001768
001769
001764
00176C
00116E
00116F
001170
001172
001174
001175
001176
001178
00117A
00117E
001782
001182

OA DO
80
01
FF03
OA DO
24
22
FF03
OA DO
80
25
FEDE
OA OA
90 00 C 000
41 FO F 132

PIN 840193
PAGE
10

SECTION 2 F82l

400109C5E5C9D6E4E2
40C8C1D5C140E4
D140C4C5E3C5C3E3C5
C4

MOD50
PCHAR
HUNG

X'00003FFF'
80C
C' PREVIOUS HANG U'

DC

cop DETECTED'

PUNCH WORK AREA

•
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• .
INTERVENTION REQUIRED MESSAGE
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
TELHIM SVC
X'DO'
PRINT A BLANK

07 00

X'80'
X'OI'
AL2IPCH4-SECNO+REGJ
X'DO'
X'Z4'
X'Z2'
AL2IPCHlt-SECNO+REGI
X'DO'
X'80'
X'25'
AL2IPCH3-SECNO+REGI
X'DA'
0lR121
UNC ,GOMAN
0,4
0,0

If

"
PRINT OPERATOR INSTRUCTIONS
-PLACE BLANK CARDS
IN PUNCH HOPPER-MAKE THE PUNCH OPERATIONAL
AND READYHALT FOR MANUAL INTERVENTION
CLEAR PENDING INTERRUPT

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
1-0 TO THE PUNCH. EXPECT CONDITION CODE O.
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ROUT01 DC
X'Ol'
ROUTINE NUMBER
• ROUTINE 01- ISSUE A TEST

001784
001185
001788
00178C
001790
001792
001194
001196
001198

01
000798
45 40 F 680
45 BO F OFA
0000
0010
FOOO
OA 06

DC
BAL
BAL
DC
DC
DC
SVC
CNOP

PIN 84D193
PAGE
lOA

2540 PUNCH FUNCTlONTiSTS -SECTION 2F821

DC
OS
DC.

DC
DC
DC
SVC
DC
DC
DC
SVC
DC
DC
DC
SVC
TIO
BC
CNOP
BCR

IBM MAINTENANCE DIAGNOSTIC PROGRAM

AL3IROUT02-SECNOI
R4,INIT
Rll,ITIO
X' 0000'
X'0010'
X'FOOO'
X'06'
0,4

0017DC
0017DE
0017EO
0011E2
0011E4
0017E8
0017EA
0017EE
0017F2
0011F6
0011FA
0011FE
001802
001806
00180A
00180E
001812
001816
0018lA
00181E
001822
001826
00182A
00182E
001832
001833
00183C
001843
001847
00184C

2800
0030
FOOO
FD90
46 10 F 7A6
OA 06
01030405
09001114 .
15191021
24252920
31343539
30414445
49405154
55595061
64656960
71747519
70818485
89809194
95999DAl
A4A5A9AD
81B4B5B9
BDC4C6CE
D406DEE4
E6EEF4F6
FE
0818283848586B1888
98A8B8C8D8E8F8
C2CA020A
'
E2EAF2FA

DC
DC
DC
DC
. HOHO
BCT
SVC
VAL COM DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
PFRFTR DC
DC
CNOP

001198
001199
00119C
0011AO
0011A2
0017A6
0017AA
0011AE
001180
001184
001188
00118C
0011CO
0011C4 .
0011C8
0011CC
0017CE
001"100
001702
0011D1t '
001708
DATE
EC

I,'

02
00084C
45 40 F
18 22
4110 :0
41 30 0
43 23 F
19 12
41 80 F
46 30 F
42 10 F
91 OF F
41 80 F
92 38 F
45 80 'F
3880
OOZO
Fl80
FE40 .
92 'C6 'F
45 80 F

*

••

05MAY65

124252

;,1

···0·····.···'
'i... ·

~)
''.

i"

r....j

OFF
061
lE9

AGAIN
RIP

lE4
lAA
C88
C88
7E4
lCC
10E
NEIL

C88
10E
10AUG65
125580

f"1I
~y

15NOV65
125624

-,J!
0 in

AL3IROUT03-SECNOI
R4.INIT
R2.R2
R1,255
R3,97
R2,VALCOM--UR3)
Rl,R2
EQ,HOHO
R3,RIP
RloCCW
CCW,X'OF'
NONE,HOHO
NEIL,X'38'
Rll,lSIO
X'38BO'
X'0020'
X'F180'
AL2(UCNVLD-SECNO+REG)
CCW,X'C6'
Rll.ISIO

•
•

,0.
~y

10
PAGE

a

,4'")

'V

0

{)
\,:

'I

0 ,0

F821-3
10

{)

IN THE SECOND CSW.
I SSUE SAME COMMANDS AGAIN BUT THIS TIME SUPPRESS THE
INCORRECT LENGTH RECORD INDICATION.
EXPECT RESULlS AS
ABOVE BUT WITHOUT THE INCORRECT LENGTH RECORD BIT ON.

*

00184C
001840
001850
001854
001858
00185C
001860
001862
0018610
001866
001868
00186C
001B70
001814
001816
001818
00181A
00187C
001880
0018B4
001888
00188A

,~

'V

DATE
EC

a

.
.
'
'

.
'

*
•••••••*•••••• *.**•••••••••*•••••••••••••••••••• **.*•• ** ••**••• *••••••*

03
0008A8
45 40 F 6BO'
92 00 F C94
41 AO F C90
45 BO FlOE
3EOO
0040
FOOO
FD38
92 00 F C9C
41 AO F C98
45 80 FlOE
3EOO
0050
FOOO'
FD48
92 20 F C94
41 AO F C90
45 BO FlOE
3EOO
0060
05MAY65
124252

10AOG65
125580

ROUT03 DC
DC
BAL
MVI
LA
BAL
DC
DC
DC
DC
MVI
LA
BAL'
DC
DC
DC
DC
MVI·
LA
BAL
DC
DC
15NOV65
125624

() (0 ,0 0

I

·.1
~~~~~HO~E~O~~ ~~~I ~:~~R C~=. TH~E~~~E C~~D :~g~::~;~~-:':=_:''-''-C;:j~~~~

:

ADDRESS OF NEXT ROUTINE
BR. TO INITIALIZE
CLEAR REGISTER 2
LOAD TOTAL COMMAND COUNT
LOAD TOTAL VALID COMMAND COUNT
INSERT ADORESS OF TABLE INTO REG 2
COMPARE FOR POSSIBLE INVALID
BR. IF A VALID COMMAND
RIPPLE DOWN THRU TABLE OF VALIDS
INSERT COMMAND INTO CCW
CHECK IF BITS 4 THUR B
BR. IF NONE - CHANNEL HANGS IF ISSUE
RESTORE CONTROL SWITCH
BR. TO ISSUE START J-O INVALID CMD.
CTRL SWITCHES
T EST
N U M B E R
EXP .. CONDo CODE - EXP. SENSE
EXP. CSW ADDRESS
INSURE DIAGNOSTIC CK READ COMMAND
BR. TO DO DIAG. CHECK READ START 1-0

15JUN67.
13049.B

ISSUE A PUNCH FEED STACKER SELECT WITH A LONG COUNT 61.
EXPEC T COND CODE a WITH CHANNEL END AND INCORRECT
.

•

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ROUTD2 DC
X'02'
ROUTINE NUMBER
DC
BAL
SR
LA
LA
IC
CR
BC
BCT
STC
TM
BC
MVI
8AL
DC
DC
OC
DC
MVI
BAL'

COMMANDS THAT ARE
TICS
PUNCH FEED READ
FEATURE

• ROUTINE ,03- ISSUE A PUNCH FEED STACKER SELECT WITH A SHORT COUNT 19.
EXPECT CONDo CODE 0 WllH CHANNEL ENO AND INCORRECT
LENGTH INDICATED IN THE ISTCSW, AND DEVICE END ALONE IN
•
•
SECOND C SW.

INVALID COMMANO IS ISSUED IN A SINGLE CCW.
EXPECT CONDo
CODE 1 WITH UNIT CHECK IN THE DEVICE STATUS BYTE AND
COMMANO REJECT' IN THE SENSE BYTE -80-.
EACH INVALIP
COMMAND I SSueD IS FOLLOWED BY A OJ AGNOSTJ C CHECK READ
C6 TO RESET THE COMMAND REJECT LATCH.

680

CONTROL SWITCHES
T EST
N U' M B E R
EXP. CONDo CODE- .EXP. SENSE
EXP. ADDRESS OF CSW·
DECREMENT TOTAL COMMAND COUNT
EXIT ROUTINE

•••••••••••••••••••••••••• ** ••• *.*•••••*••••••••••••••*•••••••••**.**.*.

ADDRESS OF NEXT ROUTINE
BR. TO INITIALIZE
BR. TO ISSUE TEST 1-0
CONTROL SW ITCHES
T EST
N U M B E R
EXP. CONDo CODE - EXP. SENSE
ROUTINE EXIT

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• ROUTINE 02- ISSUE All COMMANOS THAT ARE INVALID TO THE PUNCH.
EACH
•
•
•
•
•

X'2800'
X'0030'
X'FOOO'
AL21 NORSET-SECNO+REG)
Rl,AGAIN
X'06'
X'01030405' .
X'090Dl1l4'
X'1519lD21'
X'2425292D'
X'31343539'
X'3D414445'
X'494D5154'
X'55595D61'
X'6465696D'
X'1l147519'
X'7D818485'
X'898D9194'
X'95999DAl'
X'A4A5A9AD'
X'BIB4B5B9'
X'BOC4C6CE'
X'D406DEE4'
X'E6EEF4F6'
X'FE'
X'0818283848586818B8'
X'9BA8B8C808E8F8'
X'C2CAD2DA'
X'E2EAF2FA'
0,4

15JUN67
130498 .

X'03'

ROUTINE NUMBER
4L3IRDUT04~SECNOI
ADDRESS OF NEXT ROUTINE
R4,INIT
BR. TO INIT IALl ZE
PCSHRT+4,X'00'
TURN OFF SIL BIT IN CCW SHORT COUNT
R10,PCSHRT
SET UP TO DO PUNCH WITH SHORT COUNT
Rll,ISIO
8R. TO ISSUE START 1-0
X'3EOO'
CONTROL SWITCHES
X' 0040'
T EST
N U M B E R
X'FOOO'
EXP. CONDo CODE - EXP. SENSE
AL2(SHRTCW-SECNO+REG) EXP. CSW ADDRES~
PCLONG+4,X'OO' .
TURN OFF SIL BIT IN CCW LONG COUNT
Rl0,PCLONG
SET UP TO DO PUNCH WITH LONG COUNT
Rll,ISIO
8R. TO ISSUE START 1-0
X' 3EOO' .
CONTROL SWITCHES
X' 0050' .
T' E S T
N U M B E R
X'FOOO'
EXP .. CONDo CODE- EXP. SENSE
AL2(LNGCW-SECNO+REGJ
EXP. CSW ADDRESS
PCSHRT+4,X'20'.
TURN ON SILBlT IN CCW SHORT COUNT
RI0,PCSHRT:
SETUP. TO DO PUNCH WITH SHORT COUNT
R1ltiSIO
BR. TO DO START 1-0
X'3EOO' .
. CONTROL SWITCHES
X' 0060' .
T· E S T
N U' M B· E R

'.,-

'I'

•

I
i
I'

.

10
F821-3
PAGE
lOA

o!ooooooooo

(''''L).'1.

()

o

000

0\

o o

IBM MAINTENANCE DIAGNOSTIC PROGRAM'
25~0

o o o
PIN
PAGE

0

8~0193

00189~

•

FOOO'
FD28
92 'ZO F C9C,
1t1 AO 'F C98'
105 80 'F 'lOE
3EOO
DOlO
FOOO
FD58
OA D6

001898·
00189C
00189E
OOlBAO'
OOlBAZ
0018A4 :
001BA6
0018A6 ' 07 00

DC
DC
MVI'
LA
BAL
DC
DC
DC
DC
SVC
CNOP
8CR

00 18 A8'
Olt
0018A9
00090C
0018AC
1t5 40 F 680
001880
91.20 F' DEI
0018B4 '
107 10 F 908'
001888
92 00 F CCIt
0018BC
Itl AO F CCO
0018CO
1t5 BO FlOE
0018CIo
2AOO
0018C6
0080 '
0018C8
FOOD
0018CA
FD68
0018CC
92 00 F CCC
001800
41 AD F CC8'
001804
105 80 FIDE
001808
2AOO
0018DA
0090 :
0018DC
FOOO
0018DE
FD70
0018EO '
92 20 F CCIt
0018E4
41 AO F CCO'
0018E8
45 80 F 10E
0018EC
ZADO
0018EE
0100
0018FO
FOOO
0018FZ
FD78
0018F4
92 ZO FCCC
0018F8
Itl AD 'F CC8'
0018FC
45 80 F'10e
001900 '
ZAOO
00190Z
0110,
001901t :
FOOD
001906
FD80 ;
001908
DA D6
00190A
00190A
07 '00,

X'FOOO'
AL2INORM-SECNO+REG'
PCLONG+It,X'ZO'
RI0,PCLONG
RU,ISIO
X'3EOO'
X'0070' ,
X'FOOO'
ALZINOILRL-SECNO+REG'
X'06'

05MAY65
lZ4Z5Z

10AUG65
125580'

0,10

•
•
•

00190C
001900
001910
0019l1t
001918
00191C
00191E
001920
001922
001924
001928
00192C
00192E
001930
001932
001931t :
001938
00193C
00193E
0019,.0
0019ltZ'

DC
AL3IROUT05-SECNO)
ADDRESS OF NEXT ROUTINE
BAL' RIo,INIT
BR. TO IN1TlALlZE
TM
UIOP,X'ZO'
TEST FOR PFR FEATURE
BC
ALL,EXITOIt
BR. OUT OF RTN IF PFR INSTALLED.
MVI
OIARDS+It,X'OO',
TURN OFF SIL BIT IN OIAG. READCCW
LA
RIO,DIARDS
SET UP TO 00 DIAG. READ SHORT COUNT,
BAL' RU,ISIO
BR. TO ISSUE START 1-0
DC
X'ZAOO'
CONTROL SWITCHES
DC
X'0080'
,T EST
N U M 8 E R
DC
X'FOOO'
EXP. CONDo CODE - EXP. SENSE
DC
AL2IDIASRT-SECNO+REG) EXP. CSW ADDRESS
MVI, DIARDL+It,X'OO',
TURN OFF SIL BIT IN DIAG. READ CCW
LA
R10,DIARDL
SET UP TO DO DIAG. READ LONG COUNT
BAL
RU,ISIO
BR. TO ISSUE START 1-0
DC
X'2AOO'
CONTROL SWITCHES
DC
X'0090' ,
T EST
N U M B E R
DC
X'FOOO'
EXP. CONO. CODE - EXP. SENSE
DC
ALZIDIALNG-SECNo+REGJ EXP. CSW ADDRESS
MVI' DIARDS+It,X'ZO'
TURN ON SIl 8IT IN DIAG. READ SHORT
LA
RI0,DIARDS
SET UP TO DO DIAG. READ SHORT COUNT
8AL " RU,ISIO
8R. TO ISSUE START 1-0
DC
,X'ZAOO'
CONTROL SWITCHES
DC
X'0100' ,
T EST
N U M 8 E R
DC
X'FOOO'
EXP. CONDo CODE - EXP. SENSE
DC. A'LZIDAlLRS-SECNO+REGJ EXP. CSW ADDRESS
MVI
OIARDL+Io.X'ZO'
TURN ON SIL 81T IN DIAG. READ LONG
LA
RI0,DIARDL
SET UP TO DO DUG. READ LONG COUNT
8AL
RU,ISIO
BR. TO ISSUE START 1-0
DC "X' ZAOO'
CONTROL SWITCHES
DC
. X'0110'
T EST
N U M B E R
DC
X'FOOO' ,
EXP. CONDo CODE - EXP. SENSE
DC
ALZIDAILRL-SECNO+REGJ EXP. CSW ADDRESS
EXIlOIo SVC
X'D6'
ROUTINE EXIT.
CNOP' 0,1t
BCR
0,0

10

I SSUE A NOOP START 1-0 WITH A SHORT COUNT OF 1 COMMAND
CHAINED TO ANOTHER NOOP WITH A COUNT OF 1. EXPECT
CONDITION CODE o. CHANNEL END DEVICE END STATUS FROM
INITIAL SELECTION IS NOT SAVED DUE TO CHAINING. CHANNEL
END DEVICE END FROM THE SECOND COMMAND IS STORED ALONG
WITH A RESIDUAL COUNT OF 1 IN THE CHANNEL STATUS, WORD.

•
•
• '
•
•

ISSUE A80VE COMMANDS AGAIN BUT THIS TIME THE INCORRECT
LENGTH RECORD INDICATION IS SUPPRESSED. EXPECT SAME
RESULTS AS ABOVE BUT WITHOUT INCORRECT LENGTH RECORO
BIT ON.

PAGE

ISSUE A DIAGNOSTIC CHECK READ COMMAND TO THE PUNCH.
EXPECT CONDITION CODE 0 CHANNEL END DEVICE END. THE
COMMAND REJECT SENSE BIT SHOULD 8E RESET WHEN THE
DIAGNOSTIC CHECK READ COMMAND IS ISSUED.

•••
•

0,0

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

ISSUE A NOOP START 1-0 TO THE PUNCH. THE NDOP COMMAND
SHOULD NOT RESET THE COMMAND REJECT 8IT SET FROM THE
PREVIOUS INVALID COMMAND CHAIN. EXPECT CONDITION CODE 1
CHANNEL END DEVICE END BUT NO UNIT CHECK. THE COMMAND
REJECT SENSE 8IT SHOULD 8E ON.

••
••

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ROUTOIo DC
X'M'
ROUTINE NUMBER

15NOV65
1256Z4

PIN 81t0193
PAGE
11A

.,•

EXP. CONDo CQDE- EXP. SENSE
EXP. CSW ADDRESS
TURN ON SIL 8IT IN CCW LONG COUNT
SET UP TO DO PUNCH WITH LONG COUNT
BR. TO ISSUE START I~O
CONTROL SWITCHES
TEST
NUMBER
EXP. CONDo CODE - EXP. SENSE
EXP. CSW ADDRESS
ROUTINE EXIT

00191t1o

001948
0019~C

001950,
001951t
001956
001958
00195A
00195C
00195E
00195E

05
000960
105100

.

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

ROUT05 DC
DC
8AL'
LA
BAL'
DC
DC
DC
DC
LA
BAL
DC
DC
DC
DC
MVI
BAl
DC
DC
DC
DC
LA
MVI
MVI
BAL
DC
DC
DC
DC
SVC
CNOP
BCR

F 6BO

Itl AD F CAD

1t5 BOF
Z800
0120
F080
FD88 '
41 AD F
105 80 'F
2800
0130
Fl80 '
FD98
92 C6 F

10E

C8B'
10E

C88'

105 80 'F 'lOE

2800

OHO '

FOOO
FD90.
101 AD F
92 03 F
92 OO'F
105 BO F
2800
0150
FOOD'
FDAO

C80
C88
C8C
,IDE

OA D6

07 00

001960
001961,
0019610

001968
00196C
001970
00197Z
001971t '
001976 .
00197B "
0019fA

'

F821-3
11

-

DATIi
EC

06
00097C
45 40 'F 6BO
101 AO:F COO
1t5 BO FIDE
3EOO
0160
FOOO
FDA8 .

.

0,10

0,0

ANOTHER PUNCH FEED STACKER SELECT. THE SIL FLAG IS LEFT
OUT OF ,THE COMMANDS AND 80 CHARACTERS PUNCHED BY EACH
COMMAND SHOULONOT BRING WRONG LENGTH RECORD INTO STATUS.

DC
BAL'
LA
BAL'
DC
DC
DC
DC

"·sve

CNOP'

1210252

ROUTINE NUMBER
ADDRESS OF NEXT ROUTINE
BR. TO INITIALIZE
SETUP TO DO PUNCH CHAIN TO INVALID
8R. TO ISSUE SIO
CONTROL SWITCHES
T EST
N U' M 8 E R
EXP. CONDo CODE - EXP. SENSE
EXP. CSW ADDRESS
SET UP TO ISSUE NOOP
8R. TO ISSUE START 1-0
CONTROL SWITCHES
T EST
N U M 8 E R
EXP. CONDo CODE - EXP. SENSE
EXP. CSW ADDRESS
INSURE DIAG CHECK READ COMMAND
BR. TO I SSUE START 1-0
CONTROL SWITCHES
T EST
N' U M B Ii R
EXP. CONDo CODE - EXP. SENSE
EXP. CSW ADDRESS
SET UP TODD NOP COMMAND CHAINED NOP
I NSURE NO OP COMMAND
TURN OFF SIl FLAG IN CCW
8R., TO ISSUE START T-O
CONTROL SWITCHES
T EST
N U M B E R
EXP. CONDo CODE - EXP. SENSE
EXP. CSW ADDRESS
ROUTINE EXIT

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ROUT06 'DC,
X' 06'
ROUTI NE NUM8ER

OA D6

05MAY65

X'05'
AL3IROUT06-SECNO) ,
RIo,INIT
RIO,CHAINP'
Rll,lSIO
X' 2800' .
X'OlZ0' ,
X'FOBO' ,
ALZI UNCK-SECNO+REGJ,
RI0,CCW
Rll,ISIO
X'2800'
X'0130'
X'Fl80'
AL2INEXTI-SECNO+REG'
CCW,X'C6'
Rl1,lS 10
X'2800'
X'0140'
X'FOOO'
AL2INORSET-SECNO+REGJ
RI0,NOPCCW
CCW,X'03'
CCW+It,X'OO'
Rll,ISIO,
X' 2800' ,
X'0150' ,
X'FOOO'
AL2INOPRES-SECNO+REG)
X'06'

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• ROUTINE ;06- I SSUE A PUNCH FEED STACKER SELECT COMMAND CHA IN ED TO
•
•
•

• ROUTINE 05- ISSUE A PUNCH FEED STACKER SELECT COMMAND CHAINED TO AN
•
INVALID COMMAND. THE INVALID COMMAND BREAKS COMMAND
•
CHAINING AND THE CHANNEL ,END DEVICE END STATUS FROM
• .
INITIAL SELECTION IS NOT STORED DUE TO CHAINING.
•
EXPECT CONDITION CooE.O WITH UNIT CHECK ' ALONE IN THE
• '
STATUS AND COMMAND REJECT IN THE SENSE 8YTE.
DATE
EC

18M:MAINTENANCE DIAGNOSTIC PROGRAM

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

•
•
•

00 0 0 0 0 C 0

251t0:PUNCH FUNCTION TESTS - SECTION 2 F821

• ROUTINE ,04- ISSUE A DIAGNOSTIC READ WITH A SHORT COUNT 79. EXPECT,
•
CONDITION CODE 0 WITH CHANNEL ,END DEVICE END AND
,• '
INCORRECT LENGTH RECORD ALL TOGETHER
•
ISSUE A DIAGNOSTIC READ WITH A LONG COUNT 81.
EXPECT
• '
CONDITION CODE 0 WITH CHANNEL END DEVICE END INCORRECT
•
LENGTH RECORD AND A RESIDUAL COUNT OF I AlL TOGETHER.

••

o

000:

11

PUNCH FUNCTION TISTS - SECTION Z F8Z1

00188C
00188E
001890

o

o

10AUG65
125580 :

ISHOV65

1256210

15JUN67;
1101t98'

AL31 ROUT07-SECNOJ
RIo,INIT
UO,CHNPCH
Rll,lSIO
X' 3EOO·
X'Q160' ,
X'FOOO' ,
AUI VLDCHN-SECNO+REG,
X'D6' ,
O.~

ADDRESS OF NEXT' ROUT INE
BR. TO INITIALIZE
SET 'UP TO DO VAlIDCOM,CHAlN
BR. TO ISSUE START '1-0
CONTROL SWITCHES
T' E S T
N U'"' 8· E R
EXP. COND .. CODE, -EXP. SENSE
EXP. CSN ADDRESS'
ROUTINE eXIT'

10

PAGE

F821-1
11A

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840193
PAGE
12

2540 :PUNCH FUNCTION TESTS -SECTION 2 F821
00191A

01 DO

BCR

00197C
07
001970
0009B4
001980
45 40 F 6BO
001984 :
92 '40 F CE4'
001988 '
92 4F FCEl
00198C
41 AD FCEO.
001990 :
45 BO .F10E
00199,.
3COO
001996
0110
001998
FOOO
00199A
FOBB'
00199C
92 51 F ·CE7.
0019AO
41 AO;F CEO.
0019A4 :
45 BO FlOE
0019A8
3COO
0019AA
0180'
0019AC
FOOD
0019AE
FOC8
0019BO'
OA 06
0019B2
0019B2
01 00

0,0

•
•
•

COMMAND CHAINED TO A PUNCH FEED STACKER SELECT. EXPECT
INCORRECT LENGTH RECORD BIT TO BE SET AND BREAK COMMAND
CHAINING.

•
•

ISSUE ABOVE CHAIN COMMAND AGAIN BUT WITH A LONG COUNT OF
81. EXPECT INCORRECT lENGTH RECORD TO BREAK COMMANO
CHAIN. A RESIDUAL: COUNT OF 1 IN THE CSW.

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ROUT01 DC
X'07'
ROUTINE NUMBER
DC
BAl
MVI
MVI
LA
BAL
DC
DC
DC
DC
MVI
lA
BAl
DC
DC
DC
DC
SVC
CNOP
8CR

AL3(ROUT08-SECNOJ
R4,INIT
SHRTCH+4,X'40'
SHRTCH+7,X'4F'
R10,SHRTCH
Rll,lSIO
X'3COO' .
X'0110'
X'FOOO'
Al2(CHNSRT-SECNO+REGJ
SHRTCH+1.X'51, .
RIO.SHRTCH
Rll.ISIO
X'3COO' .
X'0180'
X'FOOO'
Al2(CHNLNG-SECNO+REGJ
X'D6'
0,4
0,0

ADDRESS OF NEXT ROUTINE
BR. TO INITIALIZE
INSURE PROPER FLAG IN CCW
INSURE SHORT COUNT 79
SET UP TO ISSUE SHORT COUNT CHAIN
BR. TO ISSUE START 1-0
CONTROL SWITCHES
T EST
N U M B E R
EXP. CONDo CODE - EXP. SENSE
EXP. CSW ADDRESS
INSURE LONG COUNT OF Bl
SETUP TO ISSUE LONG COUNT CHAIN
BR. TO ISSUE START 1-0
CONTROL SWITCHES
T EST
N U M B E R
EXP. COND. CODE - EXP. SENSE
EXP. CSW ADDRESS
ROUTINE EXIT

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• .ROUTINE .08- ISSUE A PUNCH FEED STACKER SELECT DATA CHAINED A N'D
• .
•
• .
•
•
0019B4
0019B5
0019B8
0019BC
0019CO
0019C4
0019C6
0019CB
0019CA
0019CC
0019CE
0019CE

08
0009DO
45 40 F 6BO
1t1 AD FOlD
45 DO FlOE
3COO
0190
FOOO
FElB
OA 06
0100 .

COMMAND CHAINED TO AN INVALID COMMAND. DATA CHAINING
SHOULD TAKE PRIORITY AND THE INVALID COMMAND SHOULD NOT
BE INSPECTED. EXPECT CONO. CODE o WITH CHANNEL END THEN.
DEVICE END WITH NO .COMMAND REJECT IN THE SENSE BYTE.
CHAINING SHOULD NOT BE BROKEN.

.......................................................................
ROUT08 DC
DC
BAl
lA
BAL
DC
DC
DC
DC
SVC
CNOP
BCR

X'08'
Al3(ROUT09-SECNOJ
R4,INIT
R10,DTAINV
R11,IS10
X'3COO'
X'0190' .
X'FOOO'
AL2(OTACCW-SECNO+REGJ
X'D6'
0,4
0,0

RDUTINE NUMBER
ADDRESS OF NEXT ROUTINE
BR. TO INITIALIZE
SET UP TO DATA AND eMD CHAIN TO INVD
BR. TO ISSUE START 1-0
CONTROL SWITCHES
T EST
N U M B E R
EXP. CoND. CODE - EXP. SENSE,
EXP. CSW ADDRESS
ROUTINE EXIT

0019EE
0019FO'
0019F2
0019F2

FDE8
OA 06

DC
SVC
CNOP,
BCR

0100

•
• .
•
• ,
0019F4 :
0019F5
0019F8 '
0019FC
OOlAOO
00lA04
OOlAOB
OOlAOC
OOlAOE
OOlAlO
00 lA 12
DOlA14.
00lA16
00lA16 .

10
000A18
45 40 F 6BO"
92 28 F cn
92 80 FOO4:
41 AO'F CFO'
45 BOF 10E
3COO
0210
FOOO
FoF8 .
OA 06
01 00

DATE
EC

05MAY65
124252

10AUG65
125580 :

ISHOV6S
125624 •

15JUN61
130498

X'09'

Al3(ROUT1~SECNOJ

R4, IN IT
DTACHN+1.20
DTACHN+20.X'80' .
R10.DTACHN
RlltlSIO
X'3COO'
X'0200' .
X'FOOO' .

ROUTINE NUMBER
ADDRESS OF NEXT ROUTINE
BR. TO I NIT JAlI ZE
PUT COUNT OF 20 INTO 1ST CCW.
TURN oFFSIL FLAG IN 3RD CCW
SET:UP TO DATA CHAIN
BR. TO ISSUE START 1-0
CONTROL SWITCHES
T EST
N U M 8 E R
EXP. COND CODE - EXP. SENSE
10

PAGE

00lA18
11
00lA19
00DA3t
00lA1C
45 40 F 6BO
00lA20
92 29 F cn
00U24 '
92 AO .FD04 .
00lA28
41 AO FCFO'
00U2C
45 BO FlOE
OOlA30
3COO
0220 .
00U32
00U34.' FOOD
FE08 .
00lA36
00lA38
OA 06
00lA3A
001A3A
01 DO'

····························t··············
··········...............•.
ROUTI0 DC
X'lD'
ROUTINE ..
NUMBER
DC
BAL
MVI
MVI
lA
BAL
DC
DC
DC
DC
SVC
CNOP'
BCR

Al3(ROUTll-SECNO)
ADDRESS OF NEXT ROUTINE
R4,INIT
BR. TO INITIAlI ZE
oTACHN+1.40
PUT COUNT OF 40 IN 1ST CCW
DTACHN+20.X'80'
TURN OFFSIL FLAG IN 3RD CCW
R10,DTACHN
SET 'UP TO DATA CHAIN
Rll,ISIO
BR. TO ISSUE START 1-0
X' 3COO'
CONTROL SWITCHES
X'0210'
. T EST
N U M B E R
X'FOOO'
EXP. CONDo CODE - EXP. SENSE
AL2(NORM2-SECNO+REGI EXP. CSW ADDRESS
X'D6'
ROUTINE EXIT
0,4
0.0
,

.......................................................................
RoUTll DC,
DC
BAL
MVI
MVI
LA
BAL
DC
DC
DC
DC
SVC
CNOP
BCR

X'11'
ROUTINE NUMBER
Al3IRDUT12-SECNO)
ADDRESS OF NEXT· RlJU1'INE .
R4,INIT
BR. TO INITIALIZE
oTACHN+7,41
PUT COUNT OF 41 IN 1ST CCW.
DTACHN+20.X'AO'
. TURN ON SIL FLAG IN 3Ro CCW
RlO,oTACHN
SET UP TO DO DATA CHAIN
R11.ISIO
BR. TO ISSUE START 1-0
X' 3COO'
CONTROL SWITCHES
X'0220'
T EST
N U M B E R
X'FOOO'
EXP. CONDo CODE - EXP. SENSE
AL2INORM3-SECNO+REGI EXP.· CSW AooR
X'D6'
ROUTINE EXIT
0,4
0,0

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

• ROUTINE 12- ISSUE A PUNCH FEED STACKER SELECT -STACKER 1- FOLLOWED
•
BY STACKER SE.LECT -STACKER 2- FOLLOWED BY STACKER SELECT
•
-STACKER 1- FOLLOWED BY STACKER SELECT ,"STACKER 3-. THIS
• ,
SERIES OF COMMANDS WilL GIVE A STACKER PATTERN OF 1~2-l-3

••

THE ENTIRE SERIES IS REPEATED -10- TIMES. BY SETTING THE
PROPER SENSE SWITCHES ANY ONE STACKER SELECT COMMAND CAN
BE lOOPED EITHER IN A TIGHT·Slo-TIO lOOP OR A lOOP THAT
INCLUDES ERROR MESSAGE PRINTOUTS. PUNCHED IN EACH CARD
THAT IS STACKER SELECTED.IS THE NUMBER OF THE STACKER
POCKET THE CARD SHOULD BE FOUND IN.
SENSE SWITCH OPTIONS ARE DESCRIBED .IN THE PROGRAM
DESCRIPTION AND THE TEST NUMBER WRITE-UP.

•
•
•
•
•
•
•

00lA3C
00lA3D
00lA40
00lA44
00lA4B'
00lA4C·
00lA50'
F821"'3
12

FOUR DIFFERENT PLACES. THE TOTAL COUNT WilL EXCEED BO •
THEREFORE WRONG LENGTH RECORD SHOULD APPEAR IN THE STAtUS
AND CHAINING.WILL BE BROKEN. A RESIDUAL COUNT WILL 'BE
IN THE CSW •

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

.......................................................................
ROUT09 DC
DC
BAL
MVI
MVI
LA
BAL
DC
DC
DC

EXP. CSW·ADDRESS
ROUTINE EXIT

• AOUTINE ·11- ISSUE A PUNCH FEED STACKER SELECT DATA CHAINED TO FOUR
• .
DIFFERENT' PLACES WITH THE SI l FLAG ON IN THE COMMAND THAT
•
EXCEEDS A toUNT OF 80. EXPECT CHAINING TO BE BROKEN.i
•
EVEN THOUGH THE Sil FLAG IN ON, WRONG LENGTH RECORD
•
SHOULD APPEAR IN THE STATUS.

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

09
0009F4
45 40F 6BO
9214F cn
92 80 F 004'
41 AO F CFO
45 'BO FlOE
3COO'
0200
FOOD:

AL2(NORM1.SECNO+REG)
X'D6'
0,4
0,0

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• ROUTINE ,10-. ISSUE A PUNCH FEED STACKER SELECT DATA CHAINED TO

• ROUTINE O~ ISSUE A PUNCH FEED STACKER SELECT DATA CHAINED TO
•
-... FOUR DIFFERENT. PLACES. THE TOTAL COUNT WILL EQUAL 80,
•
THEREFORE NO WRONG LENGTH RECORD INDICATION Will APPEAR
•
IN THE STATUS.

001900.
001901
001904 .
001908
0019DC
0019EO'
0019E4.
0019E8 .
0019EA
0019EC

PIN 840193
PAGE
12A

2540 PUNCH FUNCTioNTESTS·-.SECTION 2 FB21

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• ROUTINE ,01- ISSUE A PUNCH FEED STACKER SELECT WITH A COUNT OF 19

••

IBM:MAINTENANCE,DIAGNOSTIC PROGRAM,

DATE

EC·

12
000C14 :
9104'F'004
47:80'F B38
45 40'F 6BO:
45·40 F C6A
, 92 01 .F A93·
05MAY6S
124252

10AUG65
125580"

............................*..........................................
ROUT12 DC
DC
TM
BC .
BAL I
BAL'
MVI

lSHOV65
125621t .

15JUN61,
130498

X'12'
AL3(ROUT13-SECNOJ:
SNSW.X'04' .
NONE.EXIT12
R4.INIT·
R4,RAC
DOSS1+1'X'OH .

ADDRESS OF NEXT:RoUTlNE
SEE IF.SSW·5 IS ON.
BR IF'NOT~
BR TO SETiUP STK SELECT.
INSURE 360 :MOOEOP"CODES
10

PAGE

F821-3
12A

00000000000000 00000000000000000000

bJ.*rSW"t

rt

s
t

...

t

t

""

00000000008000 00000000000000000
-IBM MAINTENANCE DlAGNOSTlG 'PROGRAM i

. .:,'

.1

PIN 840193
PAGE
13

2540 PUNCH FUNCTION TESTS -.SECTIDN 2F821
OOlA54 .
00lA58 , ,
00lA5C ..
00lA60
00lA64 .
00lA6B
00lA6C'
00lA70.
001A74 .
OOlA78
00lA7C.
00lA80:
00lA84
00lA88
00lA8C
00lA92
001A96 00lA9C
OOlAAO
00lAA2
00lAA4 .
00lAA6
00lAA8,
OOlAAC
OOlABO
00lA84 '
OOlABA
001ABE
OOIACO;
00lAC2
00lAC4 .
00lAC6
OOlACA
OOlACE
00lAD2
00lAD8
OOlADC
OOlADE
OOlAEO
00lAE2
00lAE4
00lAE8
OOlAEC
OOlAFO
00lAF6
OOlAFA
OOlAFC
001AFE
001800
001802
001806
00180A'
D0180E
001B12
001818 .
00181C
001820
001824 '
001828
00182C
OD182E
001830
001832
001B34 .
001838
OOlS3A
00183E
00184l
DATI

EC

92 41 F ABI
.92 01 F ACF.
: 9281 F AEO
92 U ,F 84B
92 51F86D
9291 F B8F
92 02 F AAl
92 02 F ACO;
92'02 FADE
92 02 F AFC'
92 02 F BAA
92 02 F B2E
41 00 0 OOA
41 AO F 020
02 17 F 6FCF BFA
92 01 F 020
02 02 F 021 F·E58·
45 BO FIDE
3E01
0230
FOOO
FEU
91 lC F 005
47 40 F BU
92 41 F 020:
02 02 F 021 F E5B
45 BOF IDE
3EOI
02~0

FOOO
, FEU
91 lC F 005
47 40F 85C
92 01 F 020
02 02 F 02lF ES8'
45 BO FlOE
3EOI
0250
FOOO
FE~8

91 lC F 005
1t7 40F BU
92 81 F 020
02 02 F 021 F ESE
45 BO FlOE
3EOl
0260
FOOO
FE48
91 lC F 005
47 40 'F B7E
46 OO'F A92
92 ItO F 6FC
02 ItE F 6FO 'F·6FC
92 91 F 020'
95 13 F 003
47 ·BO F 828
92 81 F 020
1t5 ·BOF '10E
3EOl
0265

FOOO
FE~8

45 ItO F cn
OA D6
91 10 F 005
~7·80F AC6
91:1t0 F 004

05MAY6S
124252

10AUG6S
125580

MVI .
MVI .
MVI
MVI .'.
MVI'
MVI .
MVI
MVI
MVI
MVI
MVI
MVI
LA

15JUN67,
130498

0

o

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

IBM MAINTENANCE DIAGNOSTIC PROGRAM'

PIN 840193
PAGE
13A

2540 PUNCH FUNCTION TESTS- SECTION l F8l1

OOSS2+1 ,X'41' ,
INSURE 360 MODE OP CODES
INTERV+l,X'OI' ,
INSURE 360 MODE OP CDOES
DOSS3+I.X'81'
INSURE 360 MODE OP CODES
COMP1+l,X'U' ,
INSURE 360 MODE DP CODES
COMP2+i.x'51' .
INSURE 360 MODE OP CODES
COMP3+I,X'91' .
INSURE 360 MODE OP CODES
TST230,X'02'
MODIFY TEST NUM8ER
TST240,X'02'
MODIFY TEST NUM8ER
TST250,X'02' .
MODIFY TEST' NUM8ER
TST260,X'02'
MODIFY TEST NUMBER
TST270,X'02' ,
MODIFY TEST NUM8ER
TST265,X'02'
MOOIFY.TEST NUM8ER
RTN13
RO,10
SET UP TO STKR SEL 10 CARDS
LA
RlO,SSCOMN
SET UP CCW ADDRESS
MVC
PCHARI241,STKRl
SET,UP PUNCH INFO WORK AREA
DDSSI MVI
SSCOMN, X'Ol'
SET UP STKR SEL 1 CMD
DOSSIC MVC
SSCDMN+IC3I,SSONE
SET UP PUNCH AOOR IN CCW
8AL
Rll,ISIO
8R. TO ISSUE START 1-0
DC
X'3E01'
TST230 DC
X'0230'
T EST
NUMBER
DC
X'FOOO'
DC
AL2CSSADRS-SECNO+REGJ
ANYlTM
SNSW+lt X'lC'
TEST FOR ANY LOOP REQUESTS
BC
SDME,SEEll
BR. IF ANY REQUESTS
DDSS2 MVI
SSCDMN,X'41'
SET'UP STKR SEl l CMO
OOSS2C MVC, SSCDMN+IC31.SSTWO
SET·UP PUNCH AOOR IN CCW
BAL
Rll,ISID
BR. TO ISSUE START 1-0
DC
X'3E01'
TST21t0 DC
X'0240'
.T EST
N U M B E R
DC
X'FOOO'
DC
AL2ISSADR5-SECNO+REGJ
ANY2
TM
SNSW+1,X'lC' .
TEST FOR ANY lOOP REQUESTS
BC
SOME,SEE12
BR. IF ANY REQUESTS
INTERV MVI
SSCOMN,X'OI' '.
SET·UP STKR SEL 1 CMO
MVC
SSCOMN+1(3),SSONE
SET UP PUNCH ADOR IN CCW .
BAL
Rll,ISIO
DC
X'3EOl'
TST250 DC
X'0250'
T EST
N U M B E.R
DC
X'FOOO'
DC
AL2ISSAORS-SECNO+REGJ
TM
SNSW+l,X'·IC' .
TEST FOR ANY' lOOP REQUESTS
8C
SOME,SEE11
BR.. IF,ANY REQUESTS
DOSS3 MVI
SSCOMN,X'81'
....
SETUP' STKR SEL 3 CMO
DOSS3C MVC
SSCOMN+I(3).SSTHRE
SETUP PUNCH AOOR IN cew
8AL· Rll,ISIO
DC
X'3EOI'
TST260 DC
X'0260'
T EST
NUMBER
DC
X'FOOO'
DC
AL2CSSADRS-SECNO+REG)
ANY3
TM
SNSW+1,X'lC'
TEST FOR ANY LOOP REQUESTS
8C
SOME, SEE13
BR. IF ANY REQUESTS
8CT' RO,OOSSI
8R. UNTIL 10 PASSES THRU STKR SEl
MVI
PCHAR,C' ,
MOVE A BLANK
MVC; PCHAR+I(79),PCHAR
8LANK THE REST OF THE PCH AREA.
MVI
SSCOMN,X'91'
MOVE IN A 1400 STKR 3 CMO.
CLI
SECNO+3,X'13'
SEE IF IN ROUTINE 13. ,
8C
EQ,8AL11
8R IF YES.
.
MVI
SSCOMN,X'81' .
MOVE IN A 360 STKR 3CMO.
BAlli 8AL
Rll,ISIO
BR TO ISSUE START 1-<0.
DC
X'3E01'
CTRL SWITCHES
TST26S DC
X'0265'
TEST
NUMBER
DC
X'FOOO' .
EXP COND. CODE AND SENSE
DC
AL2CSSADRS-SECNO+REGJ EXPCSW ADDRESS
BAL
R4,CCOS
BR TO CHK COS.
EXIT12 SVC
X'06' ,
ROUTINE EXIT
SEEll TM
SNSW+I·,X'10·' .
TEST SNS SW 11 FOR STKR SEl I lOOP
8C
NONE,ANYl
BR. IF NO LOOP ON STKR SEL 1
TM
SNSW,X'40' ,
TESTSNSSWI -SIO TlOLOOP-

15NOV65
125624'

o

10
F821-3
PAGE
13

47 80 F BCA
00lB46
92 01 F 020'
00lB4A
02 02 F 021'F E58
00184E
001854 .
45 60 F BAO
00lS58 .
47 FO F AA8
001B5C
91 08 F 005
41.80 F B02 .
001860
91 40 F 004
001864
47 BO F BOA
OD1B68
001B6C
92 41 F 020
001B70
02 02 F 021 FESB
45 60.F BAO;
001876
00187A
47 FO F AC6
00187E
91 04 F 005
001882
47 BOF AA8
001886
91 40 F 004
47 80:F BEA
001B8A
00188E
92 81 F 020
001892
02 02 F021 F'ESE
001898 . 45 60 F BAO
001B9C
47 FO FBOl
0018AO.
41 AO'F 020:
001BA4
45 BO FlU
001BA8 .
3EOl
001BAA
0270
001BAC
FOOO
001BAE
FEU
41 00 0 001 .
0018BO
07 F6
001884
001886
OA DO
·AO '
001BB8
00lBB9
40
00lB8A
FE61
OA DO
00lB8C
001BBE
CO
001BBF
30
0018CO
FEAl
00lBC2
50 AD 0 048'
00lBC6 - 47 FO F 55E
OOIBCA
95 13 F 003
001BCE
47·60.F A92
001B02
92 11 F 020
001806
47 FO F A96
OOIBOA
95 13 F 003
41 60 F ABO
OOIBOE
001BE2
92 51F 020·
47 FOF AB4
001BE6
001BEA
95 13 F 003
47 60 F AEC
OOIBEE
00lBF2
92 91 F 020"
00lSF6
47 ·FO FAFO'
001BFA
FIFIFIFIFIFIFIFI :
00lC02
F2F2F2F2F2FlFlFl
F3F3F3F3F3F3F3F3
001COA
001C12
00IC12
0100

BC
COMPI. MVI
MVC
BAl
BC
SEEll' TM
BC
TM
BC
COMPl MVI
MVC
BAl
BC
SEE13 . TM'
BC .
TM
BC
COMP3 MVI
MVC·
BAL
BC .
TITELP LA
BAL'
DC'.
. TSTl10 DC
DC
DC
LA
BCR
SNSMES SVC
DC
DC
DC
SVC
DC
DC
DC
ST
BC'
CPT1· CLI
BC
MVI
BC
CPTl
Cll·
BC
MVI
BC
CPT3
CLI
BC
MVI
BC
STKRi DC
DC
DC
CNDP
BCR

BR. TO LOOP STKR SEL 1 WITH PRINTOUT
NONE,CPTl
SSCOMN,X'Ol' ,
SET UP TIGHT LOOP ROUTINE TO 00 •••
SSCOMN+1C3J,SSONE
SID TIO STKR SEL 1
R6, TITELP
BR. TO COMMON TEST NUMBER ROUTINE
UNC,ANYl
RETURN FOR SNS SW CHECK
SNSW+l,X'08'
TEST'SNS SW II FOR STKR SEL l LOOP
BR. IF NO LOOP ON STKR SEl 2
NONE,ANY3
SNSW,X'40' .
TEST SNS 'SW 1 -SID TID LDOPBR. TO lOOP STKR SEL 2 WITH PRINTOUT
NONE.CPT2
SETUP TIGHT LOOP ROUTINE TO 00 •••
SSCOMN,X'4l'
SSCOMN+IC3t,SSTWO
SIO TID STKR SEL 2
R6,TlTElP
BR. TO COMMON TEST NUMBER ROUTINE
UNC,ANY2
RETURN FOR SNS SW CHECK
SNSW+l,X'04'
TEST SNS SW.13 FOR STKR SEL:·3 LOOP·
NONE,ANYl
BR. IF NO lOOP ON STKR SEl 3
TEST SNS SW-l .-SIO TIO.LOOP.
SNSW,X'ItO'
BR. TO LOOP STKR SEL 3 WITH PRINTOUT
NONE,CPT3
SSCOMN.X'SI' .
SETUP TIGHT lOOP ROUTINE TO 00 •••
SSCOMN+I(3),SSTHRE
SIO TID STKR SEL 3
R6, TITELP
BR. TO COMMON TEST NUMBER ROUTINE
UNC ,ANY3
RETURN FOR SNS SW CHECK
RI0,SSCOMN
SET·UP CCW ADDRESS
Rll,IHANG
X'3EOI'
X'0210',
T E S T' N U M' 8 ,E R
X'FOOO' .
.I
AL2CSSADRS-SECNO+REGI
RO,l
. REDUCE RTN LOOP COUNTER TO 1
UNC,R6
X'OO'
X'AO'
X'40'
AL2CMSGI-SECNo+REG) .
X'DO'
X'CO'
X'30'
ALlCMSGl-SECNO+REG)
RlO,HCAWCR13t .
STORE CAW'
UNC,SSRET
RETURN TO MAIN HANDLER
SECNO+3,X'13' .
SEE IF. IN RTN 13
BR. IF . NOT RTN 13
UNEQ.00SS1
MOVE IN COMPAT STKR SEL CMO
SSCOMN.X'll'
UNC,DOSSIC
BR. TO DO STKR SEl·COMPAT·CMO lOOP
SECNO+3,X'13'.
SEE IF, IN RTN 13·
UNEQ.OOSSl
BR. IF NOT RTN 13,
SSCOMN,X'51"
MOVE IN COMPAT STKR SELCMD
UNC,DOSSlC
BR. TO DO STKR SEl COMPAT CMO lOOP
SECNO+3,X'13'
SEE IF IN RTN 13
UNEQ,DOSS3
BR. IF NOT RTN 13
SSCOMN,X'91,
MOVE IN COMPAT'STKR SEl CMO
BR. TO 00 STKR SEl COM PAT CMD LOOP
UNC.00SS3C
X'FIFIF1F1FIFIFIFl'
X'FlF2FlFlF2F2F2Fl'
X'F3F3F3F3F3F3F3F3'
0,1t
0,0

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

• ROUTINE 13-, ISSUE A 1400 MODE PUNCH STKR SELECT -STACKER 1- FOLLOWED
•
BY STACKER SELECT -STACKER l - FOLLOWED BY STACKER SELECT
• .
-STACKER 1- FOLLOWED BY STACKER SELECT -STACKER 3-. THIS
•
SERIES OF COMMANDS WILL GIVE A STACKER PATTERN OF 1-l-1-3

.,......
.,•
DATE
IC!

OSMA.,65,
124Z5l

10AUG6S
1255BO ,

15NOV65
125624 .

THE ENTIRE SERIES IS REPEATED -10- TIMES. BY SETTING THE
PROPER SENSE SWITCHES ANY ONE STACKER SELECT COMMAND CAN
BE LOOPED EITHER IN A TIGHT SIn-TID LOOP OR A lOOP THAT
INCLUDES ERROR-MESSAGE PRINTOUTS. PUNCHED IN EACH CARD
THAT IS STACKER SELECTED.IS THE NUMBER OF THE STACKER
POCKET THE CARD SHOUlD BE FOUND IN.
15JUN61
130498

ID
FBll-3
PAGE
13A

*

444 Z ..-..

IBM 'MAINTENANCE DIAGNOSTIC PROGRAM'

PIN

PAGE

840193

IBM 'MAINTENANCE DlAGNoSTICPROGRAM I

14 '

2540 ,PUNCH FUNCTION :,TESTS - ,SeCTION 2 F821

001C14
001C15
001C18 .
001CIC
001C20
001C21o
001C28 '
001C2C
001C30
001C31o ,
001C38
001C3C
001C40
001C44
001C48
001C4C
001C50
001C54
001C58
001C5C
001C60.
001C64 :
001C68

001C6A
001C6C
001C6E
001Cl0
001C12
001C16
001C18
001C1A
001C1C

001C1E
001C80
001C82
001C04.
001C86
001C88 '
001C8A
001C8C

'

13

2540 PUNCH FUNCTJONTESTS-SECTlON 2 F8il

....................................................................... .
• ,
• ,

SENSE SWITCH OPTIONS ARE DESCRIBED IN THE PROGRAM
DESCRIPTION AND THE TEST NUMBER WRITE-UP.

ROUTI NE NUMBER
LAST ROUTINE
SEE IF SSW 5 IS ON.
BR IF NOT.
SEE IF 1400 PUNCH COMPATIBILITY
ROUTINE EXIT
BR. TO INITIALIZE
8R TO SET UP STK SelECT.
INSURE 1400 MOOE COMMANDS
INSURE 1400 MODE COMMANDS
INSURE 1400 MODE COMMANDS
INSURE 1400 MODE COMMANDS
INSURE 1400 MODE COMMANDS
INSURE 1400 MODE COMMANDS
INSURE 1400 MODE COMMANDS
MODIFY TEST NUMBER
MODI FY TEST NUM8ER
MODIFY ,TEST NUM8ER
MODIFY TEST NUM8ER
MODIFY TEST NUMBER
MODIFY ,TEST NUMBER
GO TO RTN 12 TO EXECUTE 1400 CMOS
ROUTINE EXIT.

04 00
2426
FF25
04 OA
90 oot 000:
OA 00
8001
FF25
01 Flo

RAC

SVC
DC
DC
SVC
TIO
SVC
DC
DC
8CR

X'OO'
X'21oZ8'
AL2100NPRO-SECNo+REGI
X'OA'
0lR1Z1
X'OO'
X'8001'
AL2100NPRO-SECNO+REGI
UNC,R4

DC
DC
SVC
SVC
DC
DC
BCR

PRINT -REMOVE CAROS-

-HALTTEST 1-0
PRINT A BLANK
RETURN.

X'Z432'
AL2IVISUAL-SECNO+REG)
X'OA'
-HALTX'OO'
PRINT A BLANK
X'8001'
AL2IVISUAL-SECNO+REGI
UNC ,Rio
RETURN.

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
CHANNel COMMAND WORDS -CCW•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
PCSHRT CCW
X'101',PCHAR,X'OO',19 SHORT COUNT PUNCH -VARIABLE SIL-

DATe
EC

41
41
41
53
03
03
C2
C2
41

0016FC 0000 004F,
0016FC 0000 0051 '
0016FC 4000 0050
0016FC 0000 0050
0016FC 4000 0001
0016FC 2000 0001
0016FC 0000 004F
0016FC 0000 0051 ;
0016FC 4000 0050:
41 0016FC 0000 0050
41 0016FC 4000 004F
410016FC 0000 0050,
41 001110 8000'0014'
410011248000 '0014'
41 ,001110 8000 0014'
U OOl6FC 00000014 '
05MAY6~

124252

1QAUG65·
125580'

PCLONG
CHAINP
INVLO
NOPCCW
CCW
OIAROS
OIAROL
CHNPCH

CCW
X'41',PCHAR,X'OO',81 LONG COUNT PUNCH -VARIA8LE SILCCW
X'41',PCHAR,X'40',80 PUNCH COMMANO CHAINED
CCW
X'53',PCHAR,X'00',80 INVALID COMMANO
CCW
X'03',PCHAR,X'40',01
CCW
X'03',PCHAR,X'20',01 COMMON CCW -VARY OP. AND FlAGCCW- X'CZ',PCHAR,X'OO',19 DIAG. READ SHORT COUNT-VARIED SILCCW
X'C2',PCHAR,X'OO',81 DIAG. READ LONG COUNT-VARIED SIL~
CCW
X'41',PCHAR,X'40',80 PUNCH CHAIN VALID
CCW, X'41',PCHAR,X'00',80
SHRTCH CCW
X'41',PCHAR,X'40"19 PUNCH CHAIN SHORT~VARIABLECOUNT
CCW, X'41',PCHAR,X'OO',80'
OTACHNCCW
X'41',PCHAR+20'X'80',20
DATA CHAIN 20 BYleS -VARY COUNT
CCW
X'41' ,PCHAR+40,X'80' ,ZO
DATA CHAIN 20 BYTES
X'Io1' ,PCHAR+20t'X'80' ,20 '
, CCW
DATA CHAIN 20.BYTES-VARY FLAG
6ATAI CCW' ,X'41',PCHAR,X'00',20'
DATA CHAIN 20eneS

15NOV65'
125624'

15JUN61,
130498'

·~--------------

fa

0,

v

,0 () [) n·
"

'-J

,a

0
V

a

F821-3
PAGE
14

• 10

rf"');

'J

'0 0 0

.,

OTAINVCCW,
OATA2 CCW.
, SSCOMNCCW

i

I

I)

II

il
ii

I

Ii,:
H

il
II

I,
II

I
II

1\

00001C98
001028
00102C
08000000
001030
00000000
001034 _ 04000000
00001C96
001038
00103C
08 .. 00000
00000000
001040
04000000
001044
00001CAO
001048
00104C
08'<00001
00000000 .
001050
001054,
04000000
001058
00001CAO
00105C
08000001
001060
00000000.
001064 '
04000000
001068
. 00001CC8 '
00106C
OC400000,
001010
00001COO
001014 '
OC400001
001018
00001CC6
OCOOOOOO'
00101C
001000
'OOOOlCDO
001 DOlo '
OCOOOOOI
001088
00001C80'
02000050 ;
00108C
001090
00001CCO
001094 '
OCOOOOOO
001098
00000000
00109C
OCOOOOOO
0010AO
00001CCO
0010A4
OCOOOOOI
0010A8
00001CEO
0010AC
08000000
001080
00000000
001084 '
04000000
00001CE8 .
0010BO'
00108C
08400000
0010CO
00000000
0010C4.
04000000
0010C8
00001CE8 '
001DCC
00400001
001000
00000000
04000000
001004 .
00001CFO
001008
00100C
08000000
00000000
0010EO
0010E4.
04000000
0010E8
00001010
0010EC
08000000
001DFO
00000000
0010F4
04000000
001DF8 '
00001010
001DFC
08400014
001EOO
00000000
001E04
04000000
001EOO
00001008
08'<00001
OOlEOC
001E10
00000000
001E14 .
04000000
DATe

05M4Y65.
124252

104UG65

X'41',PCHAR,X'CO',100
X' 53' , PCHAR+40, X'OO' ,40
X'Ol',PCHAR,X'20',08'

DATA AND CMO CHAIN TO INVALID
DATA AND CMO CH4IN:TO, INVALID

•.......................................................................

•

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
PRINT MAKE VISUAL CHK OF CARDS IN STACKERS
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
CCOS
SVC
X'OO'
PRINT -CHK CAROS-

OA DO
2432
FF4D
OA OA
04 00
8001
FF4D
01 Flo

41 0016FCCOOO :0020 '
, 53 001124 '00000028 '
01 0016FC ,2000 :0008'

,

.......................................................................
• '
PRINT REMOVE ALL CDS FOR STACKER SELECT TEST
.......................................................................

•
001C90,
001C98
001CAO
001CA8
001C80
001C88
001CCO
001CC8
001COO
001C08
001CEO
001CEs
001CFO
001CF8
001000
001008 '

001010
001018
001020

,

ROUT13 DC
X'13'
DC
X'OOFFFF'
TM'
SNSW,X'04' ,
BC
NONE,EXIT13
TM
UI0P,X'08'
BC
NONE,EXIT12
BAL
RIo,INIT
BAL
RIo,RAC
MVI
OOSSI+1,X'91' I
MVI - DOSS2+l,X'1l~,
MVI
INTERV+1,X'51',
MVI
DOSS3+1,X'11' '
MVI
COMP1+1,X'11' ,
MVI
COMPZ+1,X'51',
MVI
COMP3+1,X'91'
MVI
TST230,X'12' :
MVI
TSTZ40,X'lZ'
MVI
TSTZ50,X'12'
MVI
TST260,X'12'
MVI
TST265,X'12'
MVI
TSTZ10,X'12'
8C
UNC,RTN13
EXIT13 SVC
X'06'

OOFFFF
91 04 F 004'
41 80F C60
91 08 F OE1
41 80 F 838
45 40 F 680,
45 40 F C6A
92 91 F A93
92 11 F A81
92 51 F ACF
92 11 F AEO
92 11 F 848
9Z 51 F 860
92 91 F 88F
92 12 F AA2
92 12 F ACO
92 1Z FADE
92 12 F AFC
92 12 F 82E
92 12 F8AA
41 FO F A84.
OA 06

PIN 840193
PAGE
14A

EXPECTED CSW ADDRESS AND EXPECTED CHANNEL STATUS WORD

-CSW-

•NORM
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
DC
AIPCSHRT+81
SHRTCW

LNGCW

NOIlRL

OIASRT
. DJALNG
DAlLRS
OAILRL
UNCK
NORSET
NEXll

NOPRES
VLOCHN

DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC,
DC
DC
DC
DC
DC
DC
DC
DC
DC
~C'

DC
CHNSRT DC'
DC
DC
DC
CHNLNG DC
DC
DC'
OC
ITSELF DC;
DC
DC
DC
NORM1 DC.
DC
DC
DC
NORM2 DC I
DC,
DC
DC
NORM3 DC
DC
DC
DC
15NOV65

15JUN61'

X'08000000'
XL4'O'
X'04000000'
AI PCSHR T+81
X' 08400000' .
XL4'0'
X'04000000'
AIPCLONG+81
X'08400001' .
XL4'O' ,
X'OIoOOOOOO'
AIPCLONG+81
X'0800000lf .
XL4'O'
X'04000000' '
AIDIARDS+81'
X'OC400000'
4IOIARDL+8) )
X'OC400001'
AIOIARDS+81 1
X'OCOOOOOO' ,
4IDIARDL+81
X'OCOOOOOl' .
AIINVLO+O)
X'OZ000050'
ACCCW+81
X'OCOOOOOO'
XL4'O'
X' OCOOOOOO' .
A(CCW+81
X'OC000001' '
4CCHNPCH+16)
X' 08000000' .
XL4'0'
X' 04000000' '
AI SHRTCH+8)
X'08400000' ,
XLIo'O'
X' 04000000' '
AI SHRTCH+81
X'081000001'
XL4'0'
X' 04000000' .
AISHRTCH+L6)
X'08000000' .
XL4'0'
X' 04000000' •
AIDATA1+81 .
X'08000000' .
XL4'O'
X'04000000· ,
41DAT41+81
X'0840001.4' ,
Xl4'0'
X' 04000000. '
AIOATAU
X'08IoDOOOl' ,
Xl4 t O'
X·04000000·
ID

F821-3

EC
125580 '
125624
PAGE
14A
__________~~l.L____
~____~____~~______________________~________~

o

()

130498

o () ()

0000000000000000000000000000000000
-,,-- ____._,_____ "",1_.

IBM'MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840193
PAGE
15

2540:PUNeH FUNCTION TESTS - SEellON 2 F821

2540 PUNCH FUNCTION;TESTS -.SECTION 2 F821

•

'",:: ..

001£18
001£1C
001E20
001E24 _
001E28 .
001E2C.
00IE30:
001U4 !
OOlE38 .
001E3C
001E40
001E44
001E48
D01E4C
001E50
001E54 '
001E58
001E58
001E5E

001E61 '
001E6A
OOlE11 '
001E1A
001E81
001E8A
001E91
001E9A
OOlUl,
OOlEAA
OOlEBl 001EBA
OOlECl
001ECA
001EDl '
001EDA
001EDE
001 EEl
001EEE
001EF7
001EFE
001F03
001FOC
00 1 Fl'3
OOlFIC
001F23001F25
001F2E
00lF3' '
001F3E
001F45
001F4D
001F54 :
001F50
00lF64 '
001F60
001F74 '
001 ...70

OTACCW_OC
DC
DC
DC
SNSCSWDC
DC'
DC'
NEXT
DC
DC
DC
UCNVLO DC
DC
SSADRS DC
DC
DC
DC
SSONE DC
SSTWO DC
SSTHRE DC

00001020
08000000
00000000:
04000000 "
00001690: '
OCOOOOOO'
OOOOlCFO,
08000001,
00000000
04000000: ,
00000000
02000000 '
00001028
08000000
00000000
04000000
OO16FC
001104
00110C

40E2D5E240E2E640F1
Fl40FlF240D6D9
40FIF340D60540E306 '
4003D6D60140E2
E302D940E2C50340Fl
40F240D60940F3
60E6C9E3C840C50909
40E2E3D6D7E260
40E205E240E2E640Fl
40E6C9E3C840Cl
D5E84006C640C1C2D6
E5 C540 C6D6 D940
E2C9D640E3C9064003
06060760050640
C5D9D940C3C8C5C3D2
C9D5C760
4004CI02C540E3C8C5
4001E4D5C3C840
D607C5D9C1E3C9D6D5
C1D340C1D5C440 '
D9C5C1C4E8
400703C1C3C540C2D3,
CID5D240C3C109
C4E240C9D540D1E4D5
C3C840C8D6D1D7
, C5D9
40C4D61t0D5D6D1D9D6
. 6B4009C5DltD6E5
C540C1D3D31t0C3CItE2ItOC6090601t40Dl
C3C840E2E3D2D9E2
ItOE2C5C51t0C9C6
40C3CltE240D7t3C8C5
C440E6t9E3C840
40F140t9D54001F16B
40F240t9054001 '
F26840f3ItOC9054009·
01F3 '

000000,
000001 '
OOOOOF000008
000004
000001
000005
000008
000004
000002
000001
OOOOOA
000006
000008
000004
000002
000006
OOOOOC
OOOOOA
000080
000181
00 FOOD
00005A
000000
000001,
000002
000003
000004 000005,
000006
000007 '
000008 .
000009
OOOOOA'
- OOOOOB·
OOOOOC'
000000,
OOOOOE
OOOOOF,
000198 .
000040 '
000048'
0001AO

AI OATA2+8 1
X'08000000'
XLIt'O'
X'04000000'
AIISENSE+81
X'DeOOOOOO'
AISHRTCH+161 '
X'08000001'
XLIt~O' .
' X'04000'000' ,
XLIt'O'
X'020aOOOO'
ACSSCOMN+81 "
X'08000000'
XL4'O'
X'04000000'
AL31PCHARI
AUIPCHAR+81
AL3 I PCHAR+16 1

••
•
.......................................................................
MESSAGES
•
.......................................................................
MSGI

DC

.DC

MSG2

PCH3

PCH4

C' SNS SW 11 12 ORI

C' ,13 ON TO LOOP S' ,

DC

C'TKR SEL 1 2 OR 3'

DC

C'-WITH ERR STOPS-'

DC

CI SNS SW 1 WITH A'

DC

CONY OF ABOVE FOR • ,

DC

COSIO Tl 0 LOOP-NO •

DC

C'ERR CHECKING... •

- DC

CI MAKE THE PUNCH •

DC

C'OPERATIONALAND '

DC
DC

C'REAOY'
CI PLACE BLANK CAR'

DC

CIOS IN PUNCH HOPP'

DC
DONPRO DC

CIERI.
CI.DO NOPRO. REMOY'

DC

CIE ALL COS_ FlOM P'

DC
YISUALOt
DC

C'CH STKRSI
CI SeE IF'
C' COS PCHEO WIT~ •

ot

C' 1 IN PI, 2 IN P'

DC

C t 2, 3 IN ;RP3 1

.,•

'PIN 8401,93
PAGE
15A

IBN:KAINTENANee DIAGNOSTIC PROGRAM'

- ;

NEVER EQU
EOU'
NCCO
EOU'
UNt
NONe, eou
SOMe
EOU
EOU
ALL
EOU ANY
EQU
eto
Ct1 " EOU
EOU'
Ct2
EOU'
eC3
ce02
EOU
ce12 " EOU
eou'
EO
EQU'
LO
EOU
HI
EQU
UNEO
EOLO
EOU
EOHI
EOU
LOGOUT EQU
SYSNOO EOU'
REG
EOU
WHAT' EQU
EOU
RO
EOU'
R1
EOU'
R2
EOU
R3
EQU
R4
EOU'
R5
EQU
R6
EOU
R7
R8
EOU
EOU'
R9
, RIO
EQU
R11'
EOU
EOU
R12
- EOU'
R13
Rllt
IOU
EQU
R15
WT:
EQU
EQU
HCSW
eQU'
HCAW
ONSSW· EOU'

(I

1
15
8
~'

1
5
8
4
2
1
10
6
8
4
2
6

'i.::

12

10
X1 80'
X'1S1' ,
X'FOOO' ,
90
0
1

. END

Z

3
4
5
6
7
8
9
10
11
12

'

13

14
15
408 64 '
72
XI 01AO' ,
ROUT01:

I
t

r
I

,

.......................................................................
• ·EQUATES."
'
.......................................................................

• DATE

Ee,

05MAUS,
124252

10AUG65
125580:

15NOY65
125624'

15JUN61 '
130498

,10
F821-3
PAGe
15

DAre'
Ee'

- 05KAY6,.
124252

,10AUG65, • ISMOV65, , l!SJUN61 •
125580." 125624'
130498 '

,10
F821-3 J
PAGe
15A

g

$

":::·~o.":

IBM 'MAINTENANCE DIAGNOSTIC PROGRAM

PIN 80\0193
PAGE
16

'"'

250\0 PUNCH FUNCTION TESTS - ,SECTION 2F821 '

IBM MAINTENANCE DIAGNOSTIC PROGRAM
250\0 : PUNCH FUNCTION

POST :ASSEMBLY DATA.

~TESTS-

1,

FOOD'

REG

4~

17AA
Fi

RIP
UNC

4
2

lAA8
lAe6
1802
A'
6
lelE
18eA
180A
18EA'
A
C
118A'
48 '
40 ;
17E4 '
174e'
15FF'
1322
1503
15E2
142F,
150F'
14A8 "
1602
10E6 '
16BO'

ANYl ,
ANY2
ANY3
ee02
eelZ
eeos
ePTl
ePT2
epn
EQHI '
EQLO
GREG
HeAW,
Hesw,
HOHO
HUNG
lAeT'
IBSN
leAW,
leew,
'leNT'
lesw'
1010
IEXP
IHIO
INIT I

4
4:
4'
6
4
ft·

1200 '
128e
1106
14eo'
1244 '
110E,

INOW,
INn·
lONE
IPAS
ISEN
IS 10'

6
ft.

1282
12Ee
10FA
11eE
1252
1196
1E61
lEAl,
1693
1694
1
nec
lE30
1000
8'

ISV2
Hie
HID
HWO
WIO
JOHN
MSGl,
HSG2
MSK1
MSK2
Neeo
NEIL
NEXT;
NIOU'
NONE

,SECTION 2 F821

1264, 13A6,
1444, 140~,
176A, 1710,
188E, 18A2,
1932, 1942,
19EE, 1A12,
1832, 18AE.
1e8A
1784
10F6" ' 110A,
122e.
124E.
1414, 1432,
1858, 181A,
18F6, le64.
1858. 1882
183E, 18lA
1860. 18 g e

REFERENCES TO DEFINED SYM80LS.
1
1,
1
1
1
1
1
1

8'
2
4
0
1
2
3
ft'

EQ
HI
LO
RO
R1
R2
R3
RIO

I.
1

5
6'
1
8'

R5
R6
Rl ;
R8 •

1

9

R9

1
1

198

1
1

1

1,
4
1
1
1
1
8

5
1048
8
4'
2
1
1C88

ANY
CAW
eeo
eel
ce2
ce3
eew,

8'
2
4,
2

1040,
100A
1182
10Eft '

esw
IeM
IHI,'
ISW'

ft~

1510
A

1

1,

8

1

1

e
/

1,
1
2
DATe
EC

WT'
ALL

05MAY65,
124252

0
E
F,
lC6A

136e.

14EE,

14F6, ' 1780,

lA84.
1182,
17AO,
17A6,
1608,
1980,
1834,
1562,
1854,

180A.
1186.
11AO,
17AA,
1188.
1988,
1e28.
16EA
1816.

1880
1192.
11AA.
1180\ '
11ge.
1904,
le2e. '

11A2.
17A1:'

l1AE.

1188.

l1E4 '

1850,
19F8.
lele,

18Ae.
lAlct
1C8e;

1910.
lAft8,

196ft '
lAfte

1898,

1884 '

1128,
1362,
146A,
1128,
12Ee,
1514
1182,
1146,
12F8.
1884
155A

1204,
13A8,
1514
1210.
140ft,

1208,
13Ae,

133C,
145E.

1340.
1462,

135E.
1466.

135E
1466 '

1214,
1432.

1220.
llt14,

1216.
Ift8e.

12ce.
1ftAft.

1200
IItBC

1210,
11A8,
1304.:

12CC
11FO.
1380.

118E.
118E.
lle2

118A
12E8

16ee.
1934.

1600,
1948,

1166,
1196,
1228.
12ge,
1356,
1536.
IUP
1568
RIO
1124,
1552,
1800,
198e,
18AO,
111E,
R11
, 128e,
1394,
1450,
156e,
185e,
18Fe,
19A4,
1A08,
R12
115A,
12E4,
R13
1132,
1680.
Rllt ' 113e.
R15
1244,'
RAC
144C.

10AUG65,
125580 :

15NOV65
125624 '

1820
1

1208,
13e8,

1240,
15ft2.

1298.
1562,

4'
4'
4
l'
1
2
4
4
4
1
1

ft "
'1 '
1,

1288
16C8

4

16
3
6,
12
3
1

1116
1196,
1238,
12Ae,
1310,
155E,
1132,
1604,
18E4,
19AO,
18e2
1124,
12A4,
13Ae,
145E,
1510,
1810,
1918,
1geo,
1AF6,
116A,
168e.
1136,
1680,
113t,
1252.
1C2C

1604.
19fte,

1788,
1090.

118e.
10AO

1704.

3
4'

192ft '

3

11ge,
123e,
12Be,
131e,
16e4,

11EO.
124A,
12F4,
1418,
16E6.

1200,
121A,
1300,
14A8,
16EE

120e,
1288,
1314,
141:6,

1218
1294
1334
152E

13E2,
1858,
18F8,
198e,

13FE,
186e,
1911t"
19EO,

1408.
1880,
1924,
lA04,

1410,
1894,
1944,
lA28,

1410
188e
1968
lA88

1142,
1318,
13AE,
1490,
1510,
1884,
1928,
19E4,
1828,
1114,
16eo,
1136,
168A,
1210,
1282.

11A4,
1322,
13eo,
14eo,
1518,
1898,
1938,
lA08,
18A4
118A,
111A.
110A.
18e2
12ee,
168A

llE4,
132e,
13eo,
153E,
118e,
18eo,
1950,
lA2e.

llF4,
133e,
13elt.
1564.
11e8,
1804,
196e,
14ge,

1201t
134E
1434 '
156e
1708
18E8
1990
lA8A

1186;
1e12
1208;

1230.

120e

130C,

1552

lftFA.

1502,

1682

4'

4
6
6

16
16
1
1
1
2
4.
1
1.

15JUN61 '
130ft98 '

10
F821-3
PAGE
16

DATE
Ee

05MAY65
124252

10AUG65
125580 :

PIN 80\0193
PAGE
16A

138E,
I:'+E8,
1776,
18eA.
195A,
lA36,
18BA.

n08,
J52e,
1702,
180E,
1976,
1AA6.
18CO.

13F2.
154A,
17E2,
18F2,
199A,
1Ae4,
lC6E.

143Q,
1!?50,
1866,
1906,
19AE,
lAE2,
lC1A.

143E
16E4 '
181A
1922
19CA
1800
le82

liSE,
121E.
153A,
18ge,
1C1C,

ll1E.
12AO.
1578.
188ft.
lcee

UCA,
12FO,
1608,
18e6,

1102.
12Fe.
16F2.
1806,

llF8 '
1308 '
171E
18£6

1208.
1136,
11CO

1552,
110A,

18C2
12ft40'

1252,

1282,

UDC'

1480,
12eo,
13EA,

1480 '
12e8,
13Ee.

12FO
13F2

13FA.
1446

!'t4C

1834
1846
1868
188A
1192
1132.
1136,
1180,
16E4
1210,
1280,
13E2.
13F4
126e,
1266,
1494
1458,

1498

1188,
19B8,
1146,
124E
11BE
l4Ae
1208,
11e8.
1804,
196e,
1Age.
1240
1310
118e
lle2
1234
114E,
188A
18eo:
121e
1224
116E,
llelt '

11ge.
1904,
lleA,

1850,
19F8,
1102,

18At,
lA1e,
11E8;

1910, 1964.
lA48, 1e28
11FO' ' llF8 '

1980 '

122e,
1108;
18E8.
1990,
lA8A,

1290.
185C,
18Fe.
19A4,
lA08,

1298
1810.
1918.
1geo.
14F6.

1884'
1928,
19E1t.
1828

1898,
1938;
lA08.

18CO:
1950 '
lA2C:

12EO.

1310

114E,
1280,
1388,
1532,

1156,
12eo,
11t0e,
1568,

1166,
12C8,
I1t54.
1686.

1116.
1330,
lItle.
17CO,

11E8
1338
149ft
lAlt4

1290,
1352,
14AC,
183E.

12A8 '
135A
14eA
1846 '

118E

15NOV65
125624

15JUN61'
130498 .

,10
F821-3,
. PAGE
16A

.;;:;;

4'1,
~~J

D' (0)

4')

'.

'~~

,],
,

0 () () ,0 I,t./0I'

{)

In.:,,,
\'U!'

(("'\.1

U'·

()

if."
u',

f)

o

,0:·.···,
"

0:,· '., '
!

10""'"
'

,

,

'Oi.\1
'

,

,

,0/·.· ,
~!
'

,0,:'"
\

,

0:'.\, '0" 0·,
-...

,

'

,

~

..

'

"0'·:·

.",
"

.

0"
(,

'.

'

0"··':: 0'······
'

'

-

,

D·.' !

",I

I

F821-3

17

DATI
,EC'

183A SEEll
1·85C SEEl2
187E SEE13
lE5B SSONE,
155E SSRET'
lE58 SSTWO
18FA STKR1,
10EO UNITl"
lCAO CHAINP
10caCHNLNG
lCDD CHNPCH '
10B8 CHNSRT,
1080 OAILRL
,1078 DAILRS
1070 OIALNG
lCC8 OIAROL
lCCO OIAROS
1068 OIASRT,
1F25 OONPRO
lA96 00SS1C
lAM 00SS2C
lAFO OOSS3C
lE18 . OTACCW .
lCFO OTACHN
10100TAINV.
1908 EXIT04
1838 EX IT 12
lC6B EXIT13
105B EXNPSW.
1018 EXOPSW·
16DA HANGUP
1610 IACSNS'
15AA IACTCC
1431t ICCOUT:
1344 ICCSWl,
1366 ICCSW2
146E ICHNGl'
149E ICHNG2
13FE ICWOUT
12CC IDOSNS
1374 IOUNCK:
15AO'IEXPCC
1605 IEXSNS
,111E IEYEOH
13A4 IFLAG1:
1548' IFLAG2
1564 ILEAVe
1502 ILOGED

05MA'I65
124252

10AUG65
125580 .

llAC,
lC90,
1CC8,
1000,
lESE
lC64
112C,
1386,
13EC,
1402,
150E,
1770,
1866,
18F2,
1961,
1901,
lAA6,
188A,
lC82,
lAAC,
lACA
1806
lA96, '
18C6
lA84,
lABC
, 16BC
1914 .
19AE
196B,
199A
1906
IBF2
IBOE
IBCC,
18B8,
18CA
lC6E.
1806
18E6
18F6
19CA
190B,
lA24.
, 19BC
1884
lA44,
1CIC
16e8
1318,
11AO,
13oE,
1340
1362
1462 .
146A'
1414 :
12AB,
12FC,
1434,'
14CO.
10F6,.
1374,
1378,.
1388
127E

lA8C,
ItA8.
ICED.
1018.

1180,
lC98,
1COO,
1008,

llBO,
1CAO.
lC08,
1010,

125C.
1388,
13F2,
1404,'
152C,
1776,
187A,
1906,
1976,
19EE,
lAC4,'
18CO,
1e8A
lAE8 '

125E. 1264,:
13BE. 1300, '
IItlC, 141E.
14DA, 14EO,
154A, 1550 ..
1785, ,1799,
188E. 18A2.
1900, 1922.
191D. 199A.
19F5, lA12,
lAE2, IBOO,
1BCA. 1BDA.

lAD2.

IBU

180E.
lC80,
1CE8,
1020,

1812,
1CB8,
1CFO,
lE58.

1812
lCCO
1CF8
lE58

139E,
1302,
1430,
14E2,
160A,
1702.
18A9,
1932.
19AE.
lA19.
181C,
18EA.

13AO, 13A6
1308, 13EA
143E, 1444 .
14E8, 150C
16E4, 176A
17E2. 1840
UCA, " 18DE
1942, 19,.
19B5, 19CA
lA36, lA3D
1832, lBAE
lC6E. ItTA
- ~--':.::'"

1870 :

I

IDU'

1

UF4.'
18EO.

18F8.
18E4.

ID70,
1D68,

19EO.

19Ft.

lAOO,

14EO, lItEl,
" 11C6, ' llCE,
, 14OC'

14E8,
llD6,

1/tF2,
UFe,

18DO,
188C,

1D80
IDT8 .

1C7A

190C,
lA28

lA20

1C24 '

1288,
,1308,
143E
14D2,
,110A
138t
U90:

15NOV65
125624 :

1688 '
1322,

16EA'

136C

I

1404.

15JUN6?
13049••

4

14OA,' 14EA

Fe21-3
ID
17A
PAGE

,,,
IBM 'MAINTENANCE DIAGNOSTIC PROGRAM'

2540 ,PUNCH FUNCTlONTI!5TS-SECTlON 2F8Z1

2540 PUNCH FUNCTION TESTS -SECTION 2 F821

4,
4
4
4
15
4:
8'
4'
6
4
8'
8'
4
4'
9
1
8'
8'
4'
4'
8'

1490
12F4
1300
lACE
1584
1078
1038
153E
1394
1230
1688
16A8
12E4
1008
1637
80
1070
1030
168C
1058
lCBO
It ~.
10AO
1.4', 1090
lC98
8'
B'
lC90
4 i, 1843
B" ',1068
8
1028
1, 1784
1798
1
1, 184C
1848
1
1, 190C
1960
1
1,
197C
1 .' 1984
1: 1900
1. 19F4
1:
lA18
1
143C
l ' IC14
ICED
8'

. \

4!
4'
2
4'
8'

3
8'
B'
I
2
4
2
2
2
2
2
2
2

10
4'
7'
4'
DATI
EC:

,r'l',
,,~,.jJ

147C
1330
1352
lA58,
10EE,
1230.
1532
1380 '
107C
1204,
1124 :
12EC

1:
lC38
1106,

10AUG65
125580':"'"

1114. ' 1302,

1000XF8213

1308

NO ,ERROR OETECTEO:IN ABOYE ASSEMBLY

125C

•
lE28

UIE, . 1394,
113C,
113C,

139E.
1502

13AO ... 13A6

1686
I~A2

1944
195A
17E2,
1868.
1854"

1942.
186C, ' 1890,
1858" ' '18;7C.
;0.'

10'15. IF'7F
1785
1799
1840
18A9
1900
1961
1970
1985
1901
19F5
1419
lA30
1984,: 1988,
1008,
IBO
1038 SHRTCW, ' 1866
IE28 SNSCSW,
IB86 SNSMES
1542
lE48 SSAORS
lAA6,
lAC4.
ID20 S5COMN
lA88.
lA92.
lAEC.
lAFO,
1870,
188E.
lE48
lESE 55THRE
UFO.
1892
1060 5VNPSW'
1020 5VOP5W'
181 5YSMOO
14FA
14F6 '
1766 TELHIM
IBAO TITELP,
IB54, 1876,
lAA2 T5T230
lA6C.
lC4C
lACO T5T240
lA70.
lC50'
lADE T5T250
lA74,
lC510 '
14FC T5T260:
lA78.
lC58
182E TST265
lABO, . lC5C
18AA T5T270.
lA7C.
lC60
10E2 UIADDR
lE1tOUCNVlO
1702
17EA YALCOM: ' 17AA
IF40 VISUAL
lC82.
lCBA
10A8VlOCHN
1976

05 MAY 65
124252

'.

IMDRST ,
INDEX 1
INDEX2
INTERV
IDAOOR
IONPSW
IOOPSW'
IOPOUT
lOUT IT ,
IRETRN
ISENSE '
ISLAVE
IT IOLP
ITSELF
ITSTNO
LOGOUT
MCNPSW
MCOPSW
NITWIT
NOILRL
NOPCCW
NOPRES
NORSET
PCLONG
PCSHRT ,.
PFRFTR
PGNPSW'
PGOPSW
ROUTOI
ROUT02
ROUT03
ROUT04 '
ROUT05,
ROUT06 "
ROUT07,
ROUT08 .
ROUT·09
ROUTlO,
ROUTH
ROUTl2
ROUTl3
SHRTCH,

'PIN 840.193,
PAGE
18A

IBM !MAINTENANCE DIAGNOSTIC PROGRAM '

PIN 840193
PAGE
18

15NOV65
125624 I

1894,
1880.:

104B,
1028,

1058
1038

..

.',;

198C.

199C"

19AO.

10B8,

10C8

lAE2.
1A96,
IBIB.
IB92,

1800.
lABO.
IB24.
leAO,

1832
lAB4
lB4A
lB02

lBAE
lACE.
IB4E,
18E2,

lA02
IB6C
IBF2 .

1898

I!

15JUN67,
130498

J>;~.--"''''''_'-'''_ _...·~f'C.ir-'·~i. ..<.'!!I,:_!ii!'';''!'ilj\;;~{;''''-~~~~---''"-'''''_III!'-.'_ _ _~"'T;i.,:. . . .'. .:'~'.tL.

~,

\,)1

6'(.'.) {)

\",-

,:

10
F821-3
PAGE
18

OATI!
• EC .

05MAY65,
124252

10AUG65
125580

15NOY65
125624 '

, 10
F821-3
PAGE
18A

15JUN67 ;
130498 '

J'------c'-----......-------~--~--------__....,.------__________

--...._______....:.._....;.____

()

l'f

- l '_ _-..l.

~
.. ,\:
,~

o

'0

o

:0
.. :
',,·
'i' _

()

o

o

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 0 0 0 0 0
1

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN B40193
PAGE
19

- I

!

1

FB21. 2S40;PCH FUNCTION.SEC 2

IBM MAINTENANCE DIAGNOSTIC PROGRAM'

PIN 840193
PAGE
19A

F821. 2540 PCH FUNCTION SEC 2

:i:
PERIODS CORRESPOND TO BLANK COLUMNS.
COLS.

1· THROUGH 20'

COLS.

21 THROUGH 40

COLS.

41 THROUGH 60

COLS.

61 THROUGH 80

8TXT.ALA •• A8 •• AAGA3D
9
V9Y V9 V9ZQ9

9

9

AAODGA5MBU3MBASHKA64
-9 9lV 1-9 O-Y I 9 8

A88EABF4F480MA67AAAD
Q980Y998988-18 9lVV9
o 999 9 99 9
9

LH+ASH8EACE182130017 .
80 Q 8QV99
·9-0999

JA5CACADAAAAGA4FBEAC·
YQ 10Y9-YOVIQ 18QY9
9
09
09.9 999

FAEI80JG5DEOIFG-'I4+J
9Q90S-V8 0-0 OZ 9 V

SOBEACEREQB082130018
BQY99 9 B999
9

AOJDGA44AKAHG03F8EAH :
-+Y9IV 9lVV91 Q8QV9

9

9

BESD ....... AA •• AAXF82
9
YQ Y9
99' 9

13 •• AAAA.AG7 ••••••••
YVQV Y88
9999 99

••• •••••••••••••• 840.

194.13049B •• 82130001

BTXT.AAA •• A8 •• AA8/AA
9.
VQV V9' V9 9QV;999· 9
9
19

AAAAAAAAAAOAADAAAAPD •
YYYYVVYVY9+V99VVVV90 •
999999999 9 9999

AAAAAAAAAAAAAAAAAAAA
VVVVVVVVVVVVVVVVVVVV .
99999999999999999999

AAAAAAAAAAAA82130002
YVYVVVYVVVVY
999999999999

BTXT.ALO •• A8 •• AAJC5L.
9
V9
V9· V9V8
9
9
9 9

KB5W5SB04XKG5HJAEA4Q:
9
-9 8 9 OVVIQ 9

BTXT.AA8 •• A8 •• AAAAAA
9
V09 Y9· V9YVVY
.
99
9
9 9999

AAAAAAAAAAAAAAAAAAAA
YYYVVVVVVVVVYVVVYVVY
99999999999999999999

AAAAAAAAADAAAAAAAAAA
VVVYVVVVV9VVVVVVVYVV
999999999 9999999999

AAAAAAAAAAAAB2130003
YVYYVVYYVVVY
999999999999

BTXT.AMV •• A8 •• AA535A
9
V99 V9 V9
Q
9
9
9

BOJK5VG9KA5NADBOJB5J
8-V8' 9 Y OQ9S-V8 V "
99
9099

80J85KK85WSG8K4XAHAA'
8-V8 Y 9
0-8 8-9QY .'
9 9
9 9 9 09

. GA4HKB5D6BHC82130020
IY R 9 0 91'1

BTXT.AAO •• AA •• AAAAAA
9
VQ+ VO V9VVVV
99- 99 9 9999

AAAAADAAAAKA ••••••••
VVVY99VVYV9Q
9999 9999 I

..........•..•....•.

o • • • • • • • • • • • 821JOOO~

BTX-T .AM-•• A8 •• AAAF.A
9
V9
'19 V9V9 V .
9
9
9 9

4BAHAH.A4KKG5H5HEA4Q
RIOY9 Y .0 9 OOIQ 9

A.OUGA4AK85D5GKG5H6F'
ZV 0 9 Q Q 9 O'R

, EA4QADAAGA4Q821J0021
lQ .9-90YlY 0
09

BTXT.AAS •• A8 •• AABAAA
9
VQ8 V9 V90VVV.
99
9
999

99

AA8FIFBH6JBH50BFIKGO
YV-Q 0- 8- +-Q 81

10BEIFBEIKBT6JBT50GO
8-0 0-0 .8- 8- +1

BTXT.AMH •• A8 •• AAKB5D
9
V9- V9 V9 9 0
9
9
9
I

6BKG5H5HEA4QAJOUGA40'
9 9 0 .01Q .9-'1 IV + .

AAGA2AAOODGA82130006
OYIQ Y-+ 9lV
09 9 9

BTXT .AHa •• A8 •• AAAAF8 :.
9 . '19- V9 \ V9V998'
9
9
9 9 9

. FBBOJC6EBEAAFNFNBOJC :
988-Y8'98QY99999S-YB
99 9 999
9 9

6AE46BGA4BE46NGA70EA
~
8IY Q- 9ZV.I-Q.
5BKE6158BOJM6LA80UGA
- 9 9 08-'18 8-9 IY

BTXT.AJQ•• A8 •• AA6JBS
9,
V99 V9 V989

9

9

BTXT.AJ+ •• A8 •• AAIFAA
9
V9
Y9 V9 -V.
9

9

9

9 -

9

10BDIFBDIKBS8213000S
8-0 O-Q 89

BTXT.ANH •• AA •• AAGCGA
9
V9R '10 V9909V
90' 99' 9 I 9

GAGAAAAAAAAA .............
9V9VVVVYVV·YY· .:
9999999999

...'................. .-....

BTXT.ANJ •• AU •• AA.CC.
9
V9V V9 V9

AA6DD70UG02M82110010
YY -8 Z 0

BTXT.AKA •• AB •• AAA002
9
V9Q V9· V98+ 8'

. G-2BD70UA.OUGA2BKG6F '
I R-8 IQ 0 9 R

0.F.OUG02DKG5HO.BEAC
I
V 9 0 80'19
999

AIFCBOMC6FK882130011
V8908-18 - 9
99 9 9

5BKG660.FJOUAAAAGA2M
9 9 8 -Y -QQVIV 0
9
909

-9

9'

ABAAGA2DA.OUGA3SAB62
-90VIV VIV 9-9 8
09
9

GA2DAJOUGA3SAB6BGA3S
ZO·V-Y IY 9-9 01'1 9
999

HFAHHAABAA6H82110011
RQ9-DOV9IV 0

BTXT.AKQ•• A8 •• AA+EAH·
9.
V9 . '19· '19 VYZ
9
9
9· 9

DAOAG030EAOAG.3DFA2U
QV+VI+ +OV+VI 810
99--99
9

G03SA.OUGA30G03DAJOU·
Z 9-. 10 +Z R-V

. GA30G03DEDOD82130014 .
IQ +1 R-8-Z

BTXT.ALA •• A8 •• AAG02M:
9·
V9Q V9· V9Z+.V.
999
9 -9

FDOUNA6NAEG-3ONA5PAD
-9
V 9091 + V VQ9
90
-9 O'

G-30AHAAGA24A.OUGA30
Z +-9QYZY ZY + .
- 09

HCAF.A3HNG6F821J001S
IVV9 V Z 9 R

BTXT.ALH •• A8 •• AA6FG-.
9·
V9Z V9 '19 RI

30ADAAGA3AAJOUGA30AH
+-90VIV V-V IV +10'
- 09
9 9

AH.A3+NG6666GA3DFAOU
'19 '1- 9 8 8ZVR-9·

8M3M805HAAOU82110016
-Z 0-+ Z-9

9

BTXT.AKJ •• A8 •• AAG02A'
9
V9V V9 V91 Q,
9

9

DATI;
Et:

9

9

9

9· 0

05MAY6S
124252

10AUG65
12S580

9

o

9

0

BK4XKB5D5GEA4QFBOUGO
-8 8 9 0 010 9-9 I
9 9

I I

15NOV65
125624'

15JUN6T .
110498

I

9 -

o

0

9

9

9 -

9'

I

9

0 9

0

I 9 9

I

9

9

AHOUGA2MFHOU82130012
IQ 0-9
9

9 -

9

9

9 9

560EOUG02AAA82130024'
8-0 I Q-9

99

9 I

9

ACA8ACAFHI5A82130025
IOY910Y9-0 V
09 09
.

".~.........

",',"

... 82130026 .

• ............. 82130027

Y
9

.XXXXXX.L INKA .........

. ••'.......................... '

. • .-••• ·••••••• 82130028 .

.XXXXXX.cswccw.csw.X·

XXXXXXX.XXXXXXXX.EXP

ACTEXP.SNS.X821J0029

P.SNS.XX.ACT.LOG.XX.

XXXXXX.XXXXXX.XXXXXX·

.TST.XXXX.SE821300JO

.O.ON.FOR.LOOP.ON"XI .'

OT.SS.I.ON.FOR. TlO. 5

IO.LOOPAAAAA82130031
VVYVY
99999

Y

9

9

9

9

BTXT.AOC .. A8 •• AAX.EX '.
9
Y98' Y9' Y9
9

9

·BTXT.ADC •• A8 •• AAT.SS '.
9
Y91 V9 Y9
.9

8

9

BTXT.A03 •• A8 •• AAAAAA
9
'198' '19 V9VYVV.
9
9
99999

AAAAAAAAADAONAAAAAJF'
VVVVVVVVY9V99YYV9Y90;
999999999 9 999 9 - .

FAA. UIO.·XXXXXXAGAGAG
Q9V
Y9Y9Y9
1 9
9 9 9

AAAAAAAAALEA82130032
YVYYYYVVV8Q99999999999

8TXT.AOC •• A8 •• AA.JFG.
9 • Y90 ; Y9 VI) Z-l .

A6DQGHOOSD068AAOUGA6 .
V.Q90R+ 8R+ -V IQ:
09
9

88CDHBJDOAJOHG4KAOC6
Q-9Qo-Y001Y009 Y.9
9 I-.9Z0 1-: 9

E80MK7 OFAOUI!821300n.
-8-Z8 8-9 1
-,

9 -

. 10
F821-3
. PAGE . 19

199

JAG-5WKC5HSA82 130023
101 8 '808Y .

I

" .XXXXXX. XIOA ••:......

BTXT.ANL •• A8 •• AA.CAW·
V9
Y9 Y9

9

0

o

I)

9 9

0 9

9

I

9

9

-9

BTXT.ANC •• AJ •• AA.ADR
9
Y9. V9 Y9

9

9

9

I

9

9

I

AEADOUGA4BBE82130022
09-9 IY Q8Q

9 9

ODG+IBAAOUGNAHAAGA50
91 R-Y 99-9QVIY.+
09

HFAHHAACFAOUAA6CFA2J
RQ9-0QY9-Y YY -IQ Y'

9

I I

CFB0066.BOJA5C+NAHAO
Q08-+9 8-'19
VYZ-+ .
1-9
9·
9

B05PD70UA.AAGA2MFAOU
- V-8. - .QVIQ O-Q
09 9
9

9

9

9

o

K85D5GKG5H66EA40KA68
9 Q 0 9 0 8IQ 9 Y 8'

BTXT.AN••• A8 •• AAAAGA
9
'19
V9 V9Q9IQ'
9
9
90'9

BTXT.AJ8 •• A8 •• AAG02A
9
V9
V9 V91 V
9
9
9
9

9

0

6DDAOAGAIDG.82130008 .
OOV+VIV QI

9

BTXT.AKQ•• A8 •• AA5W5G
9'
V9Z Y9 V9
Q

I I

9

BX5PAAAAGAIFB.6DKF6E
- V-9Q9IQ 0- 0 8 0

9

9

9

EHEHKG5K5HKG82130019
9090 9 V 0 9

1999

9

EHcHKA6J5HKE6T5BKE6S
90909 V 0 9 9 V 9 8

AH62GA2AF.AA82130009
-9810 Y-.OY
9 9 09

9

9

BTXT. ANH •• A8 •• AABEAD .
9.
V99 V9· V980V8'
9
9
9 9999

SPKG6FO.F.OUAAAAGA2A
Y 9 R-:-: -Y091Y V

9

o

9-

OAG01+HOAHHA82130007
+VI -R89-00
9
9
9

9

IFB35PG02AB25PG02AB1 •
V- VI V- VI V-.
999

9 Z

9

-9

IBEAOAGOIBA.ODGAIBOA
OQV+VI+ R- 9lV OOV .
9 9 9

9 9

9

9

ODGAIKDAOAGOIBA.ODGA
9lV IQV+VI R- 9lV

9

8TX7",AJO •• A8 •• AAI0GJ .
V9+ V9 V9 IY,
9
9

9

OC+NAHPGO.O.PCSASAAA
9 VVI 9- - 88V8V-Y

OAGAIFFAIBPAOUOUFAOU .
+VIV -IQ V 9
-V

9

9

SOKA64ABAL6QAI5AKA6E
+ 9 8Q9QY OQO Y V 90
9

BTXT.AJH•• A8 •• AAACEA
9
V90. V9 V9V90V.
9
9
99'9

9

BTXT.ALH •• A8 •• AAEHBO
9
V90: V9 V9.9 8-

9

9

DATE '05MAY65 . 10AUG65
124252
125580

Et :

,15NOV65
125624 '

UJUN61
130498

!

9· 9

10
F821-3
PAGE
19A

r

I

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840193·
PAGE '
20

F821. 2540 PCH FUNCTION SEC 2

BTXT.ADL •• AJ •• AA+2DBi
9
Y9Y Y9 Y9 Y9 9

9

9

9

BTXT.APD •• A8 •• AA.PRE
9
Y98 Y9 Y9
9

9

9

9

9

9

BTXT.APD •• AS •• AAAGDH
9,
Y9Q Y9 Y9-SQO'
9 0 9
9 9Z-

{)'

\,""

I

BTXT.AKO •• A8 •• AACMBA,
9
Y8Y Y9' Y90B-9'
999 9
9 "z

JEJKBE/FHEAIF6AB+OAFH
OY .9Q90RZQ 8899 YOZ
Z9 Z Z 0 99
9Z

-89Z 08-0QY 911l'1,QUQ
'9
Z9 . Z9 ' Z Z 6

VIOUS.HANG.UP.DETECT'

ED80AAGC80USGC80AVFF·
8-Y9098-99Q98-Y9QO
9
Z 9
Z 9
Z9

BBEAOAG012GA82130035
8QQY+YZ 99Y
.
99 9 9
9

BTXT.AlO •• AB •• AAOEG.
9
Y89 Y9 Y9 9Z
99
9
9

C6FABB8.60KF6E6DBAEJ:
. 08ZYO-- Q 8 OQ--QY .
Z 9Z
Z
Z Z Z9

ELOCGACYBAEJEAIF6ABN
-9.9ZYQ9-0QVZQ 8899Z
Z
Z9 0 99

OAFHE.D6BOAAS21l0052
YQZZ Q88 '-Q
9Z
Z 9
9

·E.6AEAOBAAAAOABOBAHD ,
Z OZQ QYYYO YS 9Y98'
o 0 Z9999 99 9

E.6AlSAAAGAAA/CT7ZJK
Z· Q89ZQYQZQY Z9 89
09 99Z Z9
9

GA1UFA1KBAOH82130036
ZY ZQ YZOQO
Z 9Z-

BTXT .Al4 •• A8 ... AAOEGA
9
Y88' Y9 Y9 9ZY,
9
999 9

o-

BFA.00GACB8AEJKBE/FH
9ZYQY-9QY 9Q9QR
Z
Z9 Z9' Z Z

E-CJGOBQAHOEGACBA.OO
Z OVZ QO-9 9ZYQ9- 9

GACBBAEJKBE/82130053
ZYQQ-ZOY9Q9
Z9 Z9 Z

BFOHEAIFYAAAOAEAFA70
- QOZO 89YYQ. YQQZO 0
Z- 09.99Z 9Z 9

BOACOEAEJMNJ82130037
8 9999889998
9
99
9

8TXT.AlO •• A8 •• AAFlE9
Y8R Y9 Y9Q8Z
990 9
9 Z

CJGOBFADOEGABQA.ODGA
OYZ 0 -9 9ZYOO- 9ZY

CKBAEJK8E/FOE-CJGOC8
QV-OQY 909Q8Z QYZ Q9
19 Z9 Z Z
Z
Z

AJEJEA1+6AB082130054 .
ZVQVZQ -899+
Z90 9

RNAOEI EOFFMD82 130038
OYOOOOQ V

AAAAG6BOJ.F/B005FJ+N'
ZYY99 8-Y Q 8-+8QO V
99
9
Z 9 9Z

AHG050ElOCG-BBBJEJGO
VZZ 8-9 9Z Q--90VZ

9

BTXT.AlMJ.A8 •• AAOAFH
9
V8Y Y9 Y9 YOZ
99
9
9
9Z

BFElOCG-BABA82130055
Q--'9 9Z OQ-R
Z
ZO

BOElOCG-BMBAEJGOBOll
00_9 9Z QY--QYZ Q
ZZ9 Z9 Z

111111222222223l33l3

33GALAGGAOOD82U0056 .
9Y9YQQ-9 9
9 9ZZ

99

99

IVAOE15AOEIEADEIEJMN
88RRR880000Y--QOOO
000

i

----0

I

Z

Z

AMOEG.C2BAEJK8~/FOE~

Z

9

Z

Z

Z

Z9

IF6AB~OAFHAM821300~J

.

8899 . VOZ-8
99
9Z 9

'46FHQY8HHQHHHQHHQY8B
Q9999ZRZRD-00
Z
0

BKBSK2BACAHQE.6ABADO
Y Q Y QY9Y90Z O-YQ9 9 9 Z9 9
0 9Z

AJDAEAIF6AA.82 130039
'ZYQQZQ 88YV
Z 0 9999

BTXT.AlU •• A8 ... AAEJGO
9
YS 'Y9 Y90yi
99
9' 9 Z9

BTU. AQM,;. A8 •• AAO AES
9
Y9Z Y9 Y9 V09
9
9
9 9Z

BADDAJOHEAIF6AA+OAEH
-YOQZYQ-ZQ 88YY YOZ'
9Z
Z 0 9999 9Z

BJOOAJOAEAIF6AA-OAEY
-YQ-ZYOQZQ 88YY YQ9
9Z
Z 0 9999 9Z

BJOOAJDHEAIF82130040
-YQQZYQ-ZQ 8
9Z
Z 0 9

BTXT.AMM •• AS •• AAGADO,
9
Y88' Y9 Y9ZYOZ
999 9
9
Z

AHOJGAC8E.6AE.0+BABC '
-9 ZZY09Z QZ Q---O" ,
Z
0 Z
Z

BJBABABGBJBNBJCCBACV
-90D-RQY-9QY-9Q8-R08
Z- Z9 Z9 Z
Z

BACGBKBKBKB082130057
--OV-9 QO-9 Q+

BTXT.AQO •• AS •• AA6AAO
9
Y9Q Y9 Y98YY+.
9
9
9 999-

OAEHBOGADAADE.6AAJOJ
YQRS 9Y9Y88Z Q-Y Z
9Z 9 9 999
0 9

GA9HBAOOAJOOEAIFSAAA
ZQ9-YO IYQ+IO 88YYY
9
9I
I 0 9999

OAEQBADDAJDHS2130041
YQZ-YOYZYO
9Z 9Z9 Z

BTXT.AMO •• A8 •• AABKBF'
9
YBR Y9 Y9-9QQ
99· 9
9
Z9

BKBDBKCWBKCKGOBDBDBO
-900-9QB-9QYZ Q08 8ZZ Z9 Z
Z 9 9

UYGVBBEAOABOAAGVG4BO
99Q9SQOY+Y8-Y9Q99 8Z 99 9 99
Z
9

U2GEBBBOAAGE82130058
990S8Q8-Y9Q8
Z
Z 999

BTXT.AQH •• A8 •• AAEAIF
9
Y9
Y9 Y9ZQ 8'
9
9
9 0 9

SAAAOAEOBJODAJOOEAIF
8YYQ YQ+-YQ ZYQ+ZO 8
9Z- 9Z
Z 0 9

SAAAOAEHBJOOAJOHEAIF
8Y9Y YOR-YQYZYO ZQ 8'
99 9 910 9Z9 Z 0 9

SAAAOAEABOGA82130042
8Y9Q YQYS9V
99 9 9Z 9 9

9

999

BTXT.AMD •• AS •• AAG4AA
YSY V9 Y99 YY
99
9
9
99

AAODAAAGAAODAAAAAADO
ZY90YYY8ZY90YYYRZY90
9 Z999 9 Z999 9 Z

.AA+CAODAAA+CAOO.AAA
YVRY90YYY ,9Y9Q YY9
99 9 Z999 9 Z 99

CAODJAAABAODS2130059
9Y9QYYY9 Y90
9 Z999 9 Z

BTXT.AJD •• A8 •• AAEAA9
Y88 Y9 Y99Y8
999 9
9 99

E.6AAJOJEAIFYAAJ OAEH
Z QZYQYZQ 89Y9Y YQO

AJDHEAIFYAAAIAEHBFOH
ZYQOZO 89Y9Q YO-- QO
Z- 0 9 9 I Z
Z-

EAIFYAA.OAEA82130043
ZQ 89Y9 YQO
o 9 9 9Z

BTXT.AMD •• AS •• AAAAAG
9
Y8
Y9. Y9YYY8'
99
9
9 999

BAOOAAAAAAOD.AA+AAOD
Y9QYYYRZY9Q YY ZY90

AAA+AAOO.AAGAAODAAA+
YYY ZY90 YYSZY9QYYV .
999 9 Z 99 9 Z999

AAPAAAAMAAPU82130060
ZY9QYVY9ZY99
9 9 99 9

BTXT.AJO •• AS •• AAAJOA
9
YSZ Y9, Y9ZYOQ
99
9
9
ZO

BCDHBADDEAIFYAA+OAEJ
-9QO-YQQZQ 89Y9 YQY
Z- 9Z0 0 9 9
9Z

BDGAFAA4E.6AAJOOEAIF
8 9Y9Y88Z QZYQ-ZQ 8
9 9 99
0 Z 0 9

6AA-OAEQBDGA82130044
8Y9 YQ08 9Y
99
9Z 9 9

BTXT.AMD •• A8 •• AAAAAMI
9
YSQ Y9 Y9YYV9
99Z 9
9 99

AAPAAAAMAAODAAAHAADO
ZY9QVYY9ZY9QYYY9ZY9Q
9 9·99 9 Z999 9 Z

OAAVCAPUAAAYAAODJAAH ,
+VY9RY99YYY99Y9QYYY9
99 9 999 9 Z999

AAHHHAAAAAAA82130061
YY8-9YYYYYYY
,999 9999999

BTXT.AJ4 •• AS •• AAGAAD,
9
Y88 Y9 Y99Y80,
99
9
9 99-

E.6AB.DUBGDXAJOSEAIF
Z Q- Q -8Q ZYQ8ZQ 8
o Z Z Z 09

4AAOOAEHBAOXAJOSEAIF
8Y9+ YOO-RQ ZYQ8ZQ 8'
99 - 91- Z
Z 0 9

4AAAOAEHBOGAS2130045
8Y9Y YQ 8 9Y

BTXT .AN4 ••.AS •• AADAAA
9
Y89 Y9 Y99YYY.
99
9
9 999

AAMHH.AAAAAADAAAAAMJ
YY8-9 YYYYYY9YYYYY8V
999
999999 999999

H.AAAAAADAAAAAHJHAAA
9 Y9YYYY9YVYYY8Y9YY9
9 9999 999999 99

AAAAOAAAAAHH82130062
YYYV9YYYYY8
9999 999999

BTXT. AJD •• A8 •• AAHAAO .
9
Y80' Y9 Y99Y899- 9
9 99

E.6AAJEAEAIF4AAAOAFQ
Z QZYQQZQ S8V9Q Y09
o Z9 0 999 9Z

BOGAAAA4E.6A8M07BAEO
8 9Y8Y8Z Q-90 -YQ9
9 9999
0 Z
Z

AJDOEAIF4ABA82130046
ZYQ ZQ S8Y9Y
Z 0 999 9

BTXT.ANU •• A8 •• AAD.AA
9
Y8B Y9 Y9B YY
99
9
9 9 99

AAMOO.AAAAMHDAAAAAMO
YY8-8Y9YY8 8YYYYY8999 9 9 999 9999999,

OAAAAAMABAA+AAMODAAA
SYY9YY8Q9YY YY8+8YYY ,
999 9990 99 999 9999

AAAADAAAAAM082130063
YYYY8YYYYY8+
99999999999

BTXT.AJM •• A8 •• AAOAEY
9:
Y8Y Y9· Y9 YQ
999 9
9 9Z

BOGAAABQE.6ABYD7BAEO
8 9YQY89Z 0-9Q -YQ9
9 9999
O' Z
Z

AJOOEAIF4A8AOAE8BOGA
ZYO ZO 88Y9Q YQ 8 9Y
Z 0 999 9 9Z 9 9

JAB4E.6AB/0182130047
9Y88Z Q-8Q
999
0 9Z

BTXT.ANM •• AB •• AADAAA
9.
YBO Y9 Y9BYY9
99
9
9 999

AAMSHAAAAAAADAAAAAMY ,
YY889YYYYYYY9YYYYY8 .
999 9999999 999999

H.AAAAAAOAAAAAMYH.AA
9·YYYYYY9YYYYY89 Y9
999999 999999
9

AAAADAAAAAM0821l0064
YYVY9YYYYY8
9999 999999

BTXT.AKU •• AS •• AABJEO.
9
Y89' Y9, Y9-YQ9

AJOOEAIF4ABJOAFHBOGA
ZYQ ZQ 88Y9V YQ98 9Y ,
Z 0 999 9 9Z 9 9

KAOMADOOGAC8E. 6AE. 0+ ,
9Y89-9 9ZYQ9Z QZ Q-

BABCBABABABG82130048
-9Q-ZQO-9QY

9'

BTXT.ANO •• AB •• AAHAAA
YBQ Y9 Y99YYY
999 9'
9 999

AAAAOAAAAANAHAAAAAAA
YYYV9YYYYY809YYYYYYV .
9999 9999999 9999999

OAAAAANAH.AMAAAADAAA
·9VYVYY809 V9YYYY9VVV.
9999999 9 9999 999

AANHH.AAAAAA82U0065
YY899Y9VVYY
999
9 9999

BTXT.AKM•• A8 •• AABABN,
9
Y88' Y9 Y9-0QY
99
9
9
Z9

BJCCBACVBACGBBBKBBBO
-908-RQ8,....,QY-9QO-9Q+ .

BBBFB8BOBBCKBBCWAAAB'
~9QQ-90Q-9QY-9Q8ZYY8 '
Z9 ZZ I
Z9 999

AJEJKP60CBBA82130049
ZYOY 9 QQO-9
Z9
UZ

9'

BUT. ADM .. A8 •• AADAAA
YS9' V9 Y99YYY.
99
9
9 999

AANJHAAAAAAAOAAAAAOA
YY8Y9YYYYYVY9VYYYY9Qi
9999 9999999 99999

DAAAAAMOHAAAAAAAOAAA
8 VVYYV8' '9VV9VVYV9VVV
·9999999 999999999

AAAABAAAAANV82130066 "
VVYV9YYYVV89
9999 999999

BTXT.AKO •• A8 •• AAEJKB
9
Y8- Y9 V90Y 9
99
9
9 Z9

E/FHEAIF6ABAOAFHAMOE
Q9QRZO S8990 YQZ-8 '9
Z Z 099 Z 9Z 9

G.C2BAEJKBE/FlEA1F6A
I Q8-ZQV 9090810 889
Z9 Z9 Z Z 0 99·

B.OAFHAMOEG.82130050
9 YQZ-89Z
9Z 9

9'

BTXT.AOD •• A8 •• AAHAAA
Y88' Y9 Y99YYY.
9999999

AAAAOAAAAODAPDAPO.SN'
YYYY9YVYY9QY99Y98
9999 9999 Z9 9 9'

S.-SW.lh12 •. 0R.13"ON.

TO.lOOP.S.TKR82130067 ,

9

9

o

Z

DATI!
EC

05MAY65
124252

Z

10AUG65
125580

0 0 0 "!t,')'" :0

"I

•• •••• ..... •• 82130034 :

IV14515ADEAEADEJN/MN'
8899988ZZZ88RRR88 ZZ

I

I

.•...•........•..•..

BTXT.AQU •• A8 •• AAFUWO
9'
Y98' Y9 Y9Q Y
999
999

. 99·

i

AOUG06DGAAA1G •••••••
Y Z
9YYY8Q
9
9999Z

, GA1UB81DEAIF8AAJ UF.
ZY -9 YZQ 89YYY YQ
9 0 9 99 Z

BTXT.AP4 .. AS •• AAN/UV'.
9
V9
Y9 Y98999
9
9
9 9

PIN 840193
PAGE
20A

F8ZI. 2540 PCH FUNCTION.SEC 2

9

BTXT.APD .. AB •• AAAAGH'
9
Y90: Y9 Y99Y9-

IBH:HAINTENANCE DIAGNOSTIC PROGRAM

Z

0 9 9 9

Z

15NDV65
125624

Z

Z

Z

Z

99

Z

I

0

99

9Z 9

Z

15JUN67 ;
ll0498

Z-

9

Z9

, 10
F821-3
PAGE
20

DATI!
EC

0511AY65.
124252

9 I999

10AUG65
125580 .

9 Z

15NOV65
125624

99

9'

Z

15JUN67 '
130498

Z

Z

Z

110
F82l"!' 3 ,
PAGE
20A

$#

i()

0 () ':0 :0 0 () '0 :0 0 :0 ,0 10 0 10
"

!

o

0 (0 0' 0 0 0 '0 0 0.0 ()

o

000000000 00000000000000000000 0000

_.

PIN 840.l93
PAGE
21

IBM MAINTENANCE DIAGNOSTIC PROGRAM
FB21

2540 PCH FUNCTION SEC 2

,BTXT.AOD .. AB •• AA.SEl:
9
VBO' V9 V9
99
9
9

TOP 5-. SNS. SM.l.MIT,H.

ANY .·OF. A80VE82 130068

BTXT.AOO •• AB •• AA.FOR
9
VSQ V9 V9
990 9
9

• SIO.TID.lOOP-NO.ERR

.CHECKING-.MAKE.THE •

PUNCH.OPERAT82130069

BTXT.A04~.AS •• AAIONA

l.AND.READY.PLACE.BL

ANK.CARDS.tN.PUNCH.H

OPPER.OO.NOP82 130010

BTXT.APU •• AS •• AAROT.
9
VSS V9 V9 S
999 9
9

REMOVE.ALL.CDS.FROM_

PCH.STKRS.SEE.IF.CDS

, • PCHED.MITH.82130011

BTXT.APM•• Al •• AA.l.1
9
VSl VS V9
99
99 9

N.PIT.2.IN.P2T.3.IN.

RP3 •••••••••••••••••

............. 82130012

BRlD•••••• AS •••• AAAA
9
V9'
V9V9,
999

AAANEAA4AAOIAAOAAAMA
SVQ9SYQSBV90SV9QBVS999 999 99 99 999

AAMtAAMJAAMRAAMAAAMI
8YS-8V808Y80SYSOSVSO
999 999 999 999-999-

999 999

BRlD •••••• AS •••• ,AAAA
9
V9
V9V9

AAMRAAMJAAMlAAMIAAM9
SYB SVSlSYS BYS8VS
999 999 999 999 999

AANAAANAAANJAANJAANI
8Y89SYS8SV89sV,88SYS9
999 9999999 9999999

BRlO •••••• AS •••• AAAA
9
Y9'
V9V9,
9
9 9

. EANHEANQEANOEANHEANA
8Y8R8YSl8VS+8YSR8V8Y
999 999 999-9990999

E;ANHEANAE~JEANQEANH

8V808Y8Q8Y8Y8Y808Y80
999 999 999 999 999-

EANHEANQOANY82130015
8vi1 8Y8 8Y8
999 999 999

BRlO •••••• AV •••• AAAA,
9
V9,
Y9V9
9
9,9

EAN8EADHEADQEAOYEADA
8Y8SY89SY898Y898V8Q
999 999 999 999 999Z

EADHAAD~AOLHADD ••••

.......... ,••• 82130016

9

VS
99

V9
9

V9
9

,9

9 9

BEND.APD .......AA ••,••
9
Y90:
;it
9
9
~8LDT •••••

•._•••••••••

B

S

.................. ......
'

'

a

AAMAAAMIHAMJ82130013
8Y8 8Y8 9,Y8
99
EANVEAN8DANl:i82130014
8V898Y898Y8Z
999 999999

8Y8Z11Y R&Y889YU '
9999" 99C) 99
.

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

••••••••'•••• 82,130017

...........:................

..•...........••....

'

9

,

,1

I

-

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

DATE
EC

05MAV65
124252

10AUG65
125580'

15NOV65
125624 .

15JUN61
130498

LAST PAGE

-----------.---~~----------------------10

PAGE

F821-3
21
'j

. #$

4MM4.

g,;

• altg;mltz

ME

44

~-~-~-~-~-~-------

..

--~-

--~

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

0000000000000000000000000000000000

0000000000000000000000000000000000
IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840516
PAGE
1

2540 PUNCH FUNCTION TESTS - SECTION 3 F822

PIN 840576
PAGE
1A

IBM MAINTENANCE DIAGNOSTIC PROGRAM
Z540 PUNCH FUNCTION TESTS - SECTION 3 F8ZZ

•

8220

•••

TITLE

..•

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
••
• MODIFICATIONS

•

• REVISION LEVEL O. INITIAL RELEASE OF THE PROGRAM.
•
EXPANSION TO THIS SECTION WAS THE RESULT OF THE TESTING ADDED
TO SECTIONS 820 AND 821.
•
1. THIS SECTION IS THE RIPPLE PUNCH TEST, WHICH WAS FORMERLY
•
•
LOCATED IN SECTION F821 VERSION 2.
2. THE PROGRAM INCLUDES TEST NUM8ERS AND THE COMMON ERROR
•
ERROR MESSAGE FORMAT~
•

•• E.C.
•
•

001000

i

PREREQUISITES
MACHINE· • • • NONE
PROGRAM • • • NONE

USING

•••
•

..
••
••
•

..•
••

••
••
•
••

•••
•
....-.-....

-.~-

~.--.---

_ _k4_._ _-

....•
....•
..••
..••
••

EXPECTED RESPONSE
CONDITION CODE 0 WITH CHANNEL AND DEVICE END SEPARATELY IN
TWO CSWS.
IF MESSAGES ARE ISSUED THAT INOICATE THE DIAGNOSTIC COMMANDS
HAVE FAILED, ALLOW THE PROGRAM TO CONTINUE TO ENABLE THE NEXT
TEST MESSAGE TO DISPLAY THE STATUS AND CONDITION CODE, THE
INFORMATION THAT PRECEDED THE COMMAND FAILURE MESSAGE SHOULD
ALSO BE AN AID IN DETERMINING THE CAUSE OF THE ERROR.

•
•••
•••
•
•
••
•

POSSIBLE ERROR CAUSES

..•
..•

1. CARD FEED SKEW COULD BE WRONG DUE TO SOME MALFUNCTION IN
THE CARD FEED PATH. IF THE DATA PRESENTED IN THE MESSAGE
DOES NOT INDICATE A DEFINITE PATTERN, THIS IS THE MOST
LIKELY CAUSE OF THE PROBLEM.
Z. ERRORS IN PUNCHING OR THE CHECK CIRCUITRY MAY OCCUR.
3. BUFFER PARITY, DATA TRANSLATION. OR THE BUFFER ADDRESS
REGISTER COULD BE IN ERROR.

4 ,

ISSUE A READ NO FEED COMMAND -CZ- TO THE READER. THE READ
DATA IS COMPARED TO EXPECTED DATA AND ERRORS ARE INDICATED
IF ACTUAL AND EXPECTED DATA ARE NOT EQUAL. TWO DIAGNOSTIC
CHECK READ COMMANDS ARE ATTEMPTED. THE DIAGNOSTIC CHE.CK
READ DATA IS TESTED COLUMN BY COLUMN FOR ANY ERRORS.
THE FOLLOWING HEADING WILL BE OUTPUT AFTER THE INITIAL
. INFORMATION MESSAGE WHICH IS EXPLAINED IN THE DESCRIPTION
UNDER -STATUS MESSAGES-.
DATA ERROR MESSAGE EXPLANATION
-READ ERROR
-CARD IN PRESTKR STA
BUF
EXPECTED SHD
-COL ·PUNCHES RD RD XU XL PAR ADR TRAN

•

DATE
EC

15JUN67
130498

I
I
I
I
I

I
I
I
I
I

I
I
I
I
I

I

I

I

I
I

I
I

I
I

I
I

I
I

I
I
I

I
I
I

I
I
I
I
I

I

I
I

I

I

I

•

A WRITE, FEED, AND STACKER SELECT Pl COMMAND -01- WAS ISSUED
TO THE PUNCH. THE 1-0 ROUTINE AFTER ISSUING THE WRITE COMMAND,
AUTOMATICALLY ISSUED A CHECK READ -C2- TO READ BACK WHAT WAS
SENT TO THE PUNCH BUFFER, AND ALSO ISSUED A DIAGNOSTIC CHECK
READ COMMAND -C6- TO ENABLE CHECKING THE TRANSLATOR, BUFFER
ADDRESS REGISTER, BUFFER PARITY, AND THE X UPPER AND LOWER
CHECK PLANES SET BY THE PREVIOUS CARD.

FBZ2-0
1

OPERATION ATTEMPTEO

•

OPERATION ATTEMPTED

10

~~--_".

••
•
•••
•
•
••
••
••
•••
••
•

.,15

PAGE
....

••
•
•

15JUN67
130498
.. _._-.

....
•

•
•
•
•
•
•

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
TEST NUMBER DESCRIPTION
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• TEST
DESCRIPTION
•
••••••••••••••
•••
ROUTINE 01
••••••••••••••
••

•••

".~

•• OOZO •
••
•

•• USE DESCRIPTION F820. AT EC 130498, DATED 15 JUN 67 OR LATER.
•
•
•
•
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
XF8220 START 4096

•• 0010 •

DATE
EC

••

••••••••••••••
ROUTINE OZ
••••••••••••••

I

I

I
I

I
I
I
I
I
I
I
I
I
I

I

I
I
I

I
I
I
I
I
I

I
I

I
I

I

I
I

I
I

I
I

I
I

I
I
I

I

I

I--READER TRANSLATE CHK.

1

I---READ BUFFER ADDRESS CHECK •.

I---READ BUFFER PARITY CHECK.

I

I---X LOWER CHECK PLANE.

I---X UPPER CHECK PLANE.

I---DATA BYTE READ FROM THE READER.

I---EXPECTED DATA BYTE.

I---HOLE PUNCHES EXPECTED TO BE IN THIS COLUMN.

I

I--COLUMN OF CARD WHERE ERROR WAS DETECTED.
NOTE-

THE INDICATION FOR XU, XL, PAR, BUF ADR, AND TRAN
WILL BE AS FOLLOWSo IF NO ERROR.
1 IF ERROR.

POSSIBLE ERROR CAUSES
1.

Z.
3.

IT IS POSSIBLE UNDER LOOPING CONDITIONS FOR THE PROGRAM
TO LOSE TRACK OF THE DETAIL CARD SEQUENCE. IF ALL BO COLS
INDICATE AN ERROR IN THE DATA BYTES IT IS POSSIBLE THAT
THIS'IS THE CAUSE. THE WAY TO DISTINGUISH 8ETWEEN A
MACHINE FAILURE AND A SEQUENCE PROBLEM IS TO VISUALLY
SCAN THE DATA BYTE READ FROM THE READER FOR EACH CARD
COLUMN, IF THE DATA IN EACH SUCCESSIVE COLUMN IS
INCREMENTED BY 1 THE READ DATA IS GOOD.
ANY OTHER ERRORS INDICATED SHOULD BE VALID MACHINE ERRORS
WHICH THE PROGRAM ERROR MESSAGE SHOULD GIVE SUFFICIENT
INFORMATION ON TO POINT TO THE MACHINE. PROBLEM.
X LOWER OR X UPPER INDICATIONS THAT 00 NOT INDICATE A
DEFINITE PATTERN OF TROUBLE MAY .IE DUE TO A READER
SKEW PROBLEM.

10

PAGE

F8ZZ-0
1A

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 8100576
PAGE
2

251t0 PUNCH FUNCTION TESTS - SECTION 3 F822

••

••
••

251t0 ,PUNCH FU NCTl ON TESTS- ,SECTION 3 F822

..,

X UPPER - X LOWER FAILURE CHART

,

••• 0030 -

THIS CHART IS ONLY VALID IF THERE IS AT LEAST ONE PUNCH IN THE
ERROR COLUMN AND THERE IS NOT A PARITY ERROR OR DOUBLE FAILURE
IN ONE POSITION OF THE BUFFER. MORE THAN ONE ERROR SHOULD BE
ANALYZED TO HELP LOCALIZE THE PR08LEM.

•••
••
••

STATUS

I BIT 1 BIT I

SUSPECTED FAILURE

I

.----------1-----1-----1----------------------------------------------1

• DATA REG I ON ION ORI 2821 PROBLEM- XU PLANE FAILED TO RESET OR
I
• CORRECT I
I OFF I
PICKED BITS AFTER RESET.
I
.----------1-----1-----1----------------------------------------------1
• DATA REG I ON ION ORI A- 2540 PR08LEM -NO RD2 PULSES
I
• BLANK
I
I OFF I B- 2B21 PROBLEM -ADDR REG FAILURE
I

.-------,---1-----1-----1----------------------------------------------1
• CORRECT r OFF J OFF I 2821 PROBLEM - FALSE READ CHECKS
I

• OR NOT
I
I
J NOTE - COULD 8E A MULTIPLE PROBLEM, BUT FALSEI
• CORRECT I
I
I
READ CHECKS SHOULD BE FIXED FIRST.
I'
.----------1-----1-----1----------------------------------------------1
• DATA REG I OFF I ON I A- 2540 PROBLEM -MISSING RD2 PULSES.
,I
* INCORRECT!
I
I 8- 2821 PR08LEM - ADDR REG FAILURE
I
*----------1-----1-----1----------------------------------------------1
DATA REG I OFF I ON I A- 2540 PROBLEM -MISSING OR EXTRA RDI PULSES, 1
• CORRECT I
I
I B- 2821 PROBLEM -ADDR REG FAILURE
I
•
I
t
I C- 2821 PROBLEM -XL OR YL PLANE FA ILURE.
I
.-------------------------------------------------~--------------------

*

•

••
•
•

*

THIS CHART IS ONLY VALID IF THERE ARE NO PUNCHES IN THE ERROR
COLUMN, AND THERE IS NOT A PARITY ERROR OR DOUBLE FAILURE IN
ONE POSITION OF THE 8UFFER. MORE THAN ONE ERROR SHOULD BE
ANALYZED TO HELP LOCALIZE THE PROBLEM.

•
.---------------------------------------------------------------------• DATA REG I XU I' XL 1
I

• STATUS I BIT J BIT I
SUSPECTED FAILURE
I
.----------1-----1-----1----------------------------------------------1
... DATA REG I ON I ON I A- 25100 PROBLEM -PICKED UP AN ODD NUMBER OF I
* BLANK I
I
I
RDI PULSES.
I
*
I
I
I B- 2821 PROBLEM -ADDR REG FAILURE
I
*----------1-----1-----1----------------------------------------------1
'" DATA REG I OFF J ON I 2821 PR08LEM -XL OR Yl PLANE PICKED UP A BIT.1
• BLANK
I
I
I
I
.----------1-----1-----1----------------------------------------------1
• DATA REG I ON ION ORI 2S21 PROBLEM -FAILING TO RESET XU PLANE.
I
• NOT BLNK I
I OFF I NOTE- THIS IS A MULTIPLE PROBLEM, BUT FAILUREI
•
I
I
I
TO RESET XU SHOULD BE FIXED FIRST.
I
*----------1-----1-----1----------------------------------------------1 '
'" DATA REG I OFF I ON I 251t0 PROBLEM -PICK UP AN ODD NUMBER OF RD2
I
• NOT BLNK I
I
I
PULSES.
I
.----------1-----1-----1----------------------------------------------1
• 8LNK DR I OFF I OFF I 2821 PROBLEM - FALSE READ CHECKS
I
• NOT BLNK I
I
I
I
.----'------1-----1-----1-------..,-----------'---------------------------1
• DATA REG I ON I OFF I A- 25ltO PROBLEM -PICKED UP EVEN NUMSER OF,
I
• 8UNK
I
J
I
RDI PULSES.
I
•
J
I
J B- 2821 PROBLEM -ADDR REG FAILURE
I
•
I
I
I C- 2821 PROBLEM -XU OR YU PLANES PICKED A 8 IT I

DATE
EC

15JUN67
1301098

OPERATION ATTEMPTED

EXPECTED RESPONSE
CONDITION CODE 1 -COMMANO IMMEDIATE WITH CHANNEL AND DEVICE
ENDS IN TWO SEPARATE CSWS. SENSE IS ISSUED IF UNIT CHECK IS
DETECTED DURING THE FEED COMMAND.

•

************************••••••••••••*.*.*.**.***.*.********************.
,~

001000
001001t
001008
00100A
00100C
001000
00100E
OOlOOF
001010
001015
001018
001020
001028
001030
001038
00101t0
0010"8
OOlO"C
001055
001058
001050
001060
001068
001070
001078
00107C
001080
O,010EO
OOlOEl
0010E2
0010EIt
0010E5
0010E6 '

F8220000
00000000
0000
0000
00
02
CO
00
010"000000
001 C6C
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
00000000
000000000000000000 •
000000
'00010000000
000000
0000000000000000.
0000000000000000
0000000000000000
0101t0000
0000110A
B2
00,
8000
81.
00.
8000 '

****.***••• ****•• **
****••*.*******.***
* SECTION PREFACE .*••••••••••••••• **.*******••• **.*. SECTION PREFACE.
**.** ••••*.........
'
.* ••• *.*••••••••••*
SECNO
SNSW

DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC

XL4'F8220000'
XL4'OO'
XL2'OO'
XL2'OO'
XL1'OO'
Xll'02'
X'CO'
X'OO'
X'01010000000'
AL3IROUTOl)
XL8'O' ,
XL8'OO'
XL8'OO'
XL8'OO' ,
XL8'OO'
XL8'OO'
XLIo'OO' '
X1l2' 00' ,

PROGRAM,SECTION AND REVISION NOS.
SECTION SENSE SWITCHES

DC
DC
DC
DC
DC
DC
DC
OS
UNITI DC
UI0P
DC
UlADDR DC
UNIT2 DC
U20P
DC
U2ADDR DC

X'Oa04000000'
XL3'O'
XLB'OO' ,
XLS'OO'
XL8'OO'
XLIt'0101t0000'
AL4IIRETRN)
96C
X'82'
X'OO'
X'8000'
X'SI'
X'OO'
X' BOOO'

EXTERNAL NEW PSW
ADR OF EXT INTRPT ROUTINE
SUPERVISOR NEW PSW
PROGRAM NEW PSW
MACHINE CHECK NEW PSW
1/0 NEW PSW
ADDRESS OF I/O INTRPT ROUTINE
96 BYTE REG DUMP AREA FOR OM USE
UNIT TYPE - 2540 PUNCH.
OPTIONAL FEATURES BYTE
FLAGS AND CHANIUNIT ADDRESS
UNIT TYPE - 251t0 READER
OPTIONAL FEATURES
flAGS AND CHANIUNIT ADDRESS.

lCM
SDMF
NIOU
FLAGI
FLAG2
INPSW
EXOPSW
SVOPSW
PGOPSW
MCOPSW
100PSW
CSW
CAW
EXNPSW
SRET
SVNPSW
PGNPSW
MCNPSW
10NPSW

•
•

*

INTERRUPTION CONDITION MASK
•
SECTION OM FLAGS
•
NUMBER OF UNIT TABLE ENTRIES.
EXCLUSIVE CPU
lID INT ARE ERR, EXT INT TO PROG
•
DISABLED, SPVSR STATE, NO PGM MASK.
ADR OF 1ST ROUTINE PREFIX
SECTION OLD EXTERNAL PSW
CLEAR ALL OLD PSWS
PROGRAM OLD PSW
MACHINE CHECK OLD PSW
1/0 OLD PSW
CHANNel STATUS WORD
CAW
RESERVED FOR OM USE

•
•

••
•••
••*
*

•
•
•
•
•
•

*

•
•
•

••••••••••••••*.**•••••• *•••••••••••••• *** •••• *.** •••*****.*.*•• *•• **.*
•
2540 PUNCH OPTIONAL FEATURES ASSIGNMENT
*•••*•••***.*•••*•••** ••••• *••••••*••*•• ***•• ****•••*•••**••••**.**•••*
• UNITITYPE I OPTIONAL 'FEATURE DIGIT 1

I

OPTIONAL FEATURE DIGIT 2

...•.•
1I ..... 1IBIT
.........
*.....··.·***·····*1 ....*.·*···*.*••• *•.• *•••*...
•
0 BIT 1 BIT 2 BIT 3 I BIT It 81T 5 BIT 6 BIT 7
•

I

.25100 I 82

.PUNCHI
•
I

.-..,--.,-----------..,----,--,---.,---,-'-..,....,..,-,-',.-----------

•••

EXPECTED RESPONSE

•

.,

CONDITION CODE 0 WITH CHANNEL AND DEVICE ENOS RETURNED IN THE
SAME CSN 8ECAUSE NO ,FEED CYCLE OCCURS.

• .

••

READ DATA SHOULD BE EQUAL TO, EXPECTED OATA •
OIAGNOSTICREADDATASHOULD RETURN WITH 80 BYTES ALL ZERO.

A FEED, STACKER SELECT Rl -23- IS ISSUED TO THE READER.

.'

*
**---------------------------------------------------------------------* DATA REG I XU I XL I
I
•

PIN 8100576
PAGE
2A

IBM 'MAINTENANCE DIAGNOSTIC ,PROGRAM

IHEX S
I
I
I

HEX 4
CARD
IMAGE

HEX 2
PUNCH
FEED
READ

HEX 1 I HEX 8 HEX 10
51 COL I 1400
FEAT. I COMPAT
I FEAT..

HEX 2

HEX I
2 CHAN
SW. ON
2821

.•••
·.1 ••**·1 .....•••••*••••··.··········1 .•*.**•••••*••**.•.••.•...•.•.
••••••••••••••••••••••••••••••••••••••••••••••••••••••••
••••••••••••••
2540 PUNCH DIAGNOSTIC CHECK READ BYTE
•••••••••••••*•••••••••••••••••••••••••••••••••••••••••••••••••••••••••

10

PAGE

F822-0
2

•

DATE
EC'

15JUN67 '
1301t98

BIT MEANING

0:

NOT ,USED
ID
FS22-0
PAGE
2A

L

o

0 0 0 0 0'0 0 0 0 0 0 0 0 00 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0

Ii,

i

o

c 000000000000000
IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 81t0576
PAGE
3

251t0 PUNCH FUNCTION TESTS - SECTION 3 F822

•
•
•
•
•
•
•

251t0 PUNCH FUNCTION TESTS - SECTION 3 F822
1
2
3
4
5
6
7

NOT USED
NOT USED
X UPPER CHECK PLANE
X LOWER CHECK PLANE
8UFFER PARITY CHECK
PUNCH TRANSLATE CHECK
PUNCH BUFFER ADDRESS CHECK

•
•
•
•

BIT
0
I
2

•

3

4
5
6
7

•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•

MEANING
COMMAND REJECT - INVALID COMMAND ISSUED TO THE PUNCH
INTERVENTION REQUIRED
BUS OUT CHECK - PARITY ERROR
EQUIPMENT CHECK - TRANSLATE CHECK, ADDRESS CHECK,
DATA REGISTER PARITY ERROR, OR A HOLE COUNT ERROR.
DATA CHECK
OVERRUN - NOT USED
UNUSUAL COMMANO SEQUENCE
NOT USEO

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
2540 PUNCH STATUS BYTE
.......................................................................
8IT

•

0

•
•
•
•

1
2
3
It

•

',5

•
•

6
7

MEANING
ATTENTION - NOT USED FOR THE 251t0 PUNCH
STATUS MODIFIER- 2 CHANNEL SWITCH FEATURE ONLY
CONTROL UNIT END - 2 CHANNEL SWITCH FEATURE ONLY
DEVICE BUSY
CHANNEL END
DEVICE END
UNIT CHECK
UNIT EXCEPTION - NOT USED FOR THE 2540 PUNCH

XL2'0000'
X'OOIIt'
X'FO'
X'OO'
AL2IADR-BASE+REGI

CONTROL SWITCHES
TEST ND. IN DEC EXPRESSED IN HEX
EXPECTED CDND. CODE
EXPECTED SENSE DATA
ADDR. OF EXPECTED CSW IF NEEDEO

0010EA

0010E8

DATE

ec

0000

15JUN67
130498

1
2
3
4
5
6
8

OFF
ON
OFF
DN
OFF
ON
OFF
ON
OFF
ON
OFF
ON
OFF
ON
OFF
ON

-

ISSUE AN 1-0 COMMAND
DO NOT I SSUE AN 1-0 COMMAND
ENABLE
DO NOT ENA8LE
EXPECT NO INTERRUPT
EXPECT AN INTERRUPT
DO NOT EXPECT 2 INTERRUPTS
EXPECT 2 INTERRUPTS
EXPECT NO CSWS
EXPECT A CSW
DO NOT EXPECT 2 CSWS
EXPECT 2 CSWS
ALWAYS TRY TO ISSUE SENSE
SENSE ON UNI T CHECK ONLY
DO NOT ISSUE 2 DIAGNOSTIC CHECK READ START 1-0 CMDS
ALWAYS ISSUE 2 DIAGNOSTIC CHECK READ COMMANDS

••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

ISW
DC
XL2'O'
.......................................................................

ID
F822-0
PAGE
3

-

NO HANGUP ON INTERFACE
HANGUP OCCURRED
NO CSWS STORED
ONE CSW STORED
SECOND CSW NOT RECEIVED
SECOND CSW RECEIVED
DID NOT ENA8LE
ENA8LED ONCE
DID NOT ENABLE TWICE
ENABLED TWICE
NO SENSE DATA RECEIVED
SENSE DATA RECEIVED
NO UNEXPECTED INTERRUPT fROM UNKNOWN DEVICE
UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE
NO ERROR DETECTED
AN ERROR WAS DETECTED
DO NOT PRINT CARD DATA
PRINT CARD DATA

REG
5

COMMENTS
USED AS LINK TO ERROR OUTPUT FROM INITIALIZE.ROUTINE IF
PREVIOUS HANGUP ON INTERfACE DETECTEO.

8

USEO AS WORK REGISTER. WILL BE RESTORED UPON RETURN.

9

USED AS WORK REGISTER. WILL BE RESTORED UPDN RETURN.

10

MUST CONTAIN CCW ADDRESS UPON ROUTINE ENTRY

11

MUST BE USED AS LINK REG TO THIS ROUTINE

12

MUST CONTAIN DEVICE ADDRESS

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
........................................................................
DATSW

0000

DC

XL2'OO'

DATA CONTROL SWITCHES.

• EXPLANATION DF START 1-0 DATA SWITCHES

•• SWITCH
•.
•
•
•
•
•
•
•
•
•

2 BYTE PARAMETER FOLLOWING 8AL

0

14

..

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• SWITCH
DESCRIPTION
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•

7

••
••
•

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
1-0 HANDLER CONTROL SWITCHES
•

5
6

••
•

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
8AL
R11, I SIO
LI NK TO I -0 HANDLER
DC
DC
DC
OC
DC

3
It

••

THE 1-0 HANDLER ROUTINE

•
•
•
•
•
•

OFF
ON
OFf
ON
OFf
ON
Off
ON .
OfF
ON
OFF
ON
OFF
ON
Off
ON
OFF
ON

2

•
•
•

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
PARAMETERS USED TO ENTER

•
•

0

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
REGISTERS USED IN 1-0 HANDLER
.......................................................................

•
•

SWITCHES USED BY 1-0 HANDLER

•

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• SWITCH
DESCRIPTION

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
2540 PUNCH SENSE BYTE
.......................................................................

•
•
•
•
•

PIN 81t0576
PAGE
3A

IBM MAINTENANCE DIAGNOSTIC PROGRAM

P010EC
DOI0f2
0010F6
0010fC

02
90
D7
07

01
09
07
08

F93C B 002
f B60
D 040 D 040
E 080 E 080

001102
001106
OOllOA
OOllOE

91
47
50
91

itO
10
AD
80

F 004
F llt6
0 01t8
FOOIt·

DATE
EC

15JUN67
1301t98

0
1
2
4
5
6
8
9
10
11

OESCRIPTION
1ST AREA MAIN START 1-0 DATA.
1ST AREA DIAGNOSTIC REAO DATA •
1ST AREA 1ST DIAGNOSTIC CHECK READ DATA.
2ND AREA MAIN START 1-0 DATA.
2ND AREA DIAGNOSTIC READ DATA.
2ND AREA 1ST DIAGNOSTIC CHECK READ DATA.
ERROR IN PRESENT START 1-0
ERROR IN PREVIOUS START 1-0
PRINT PRESENT DATA
PRINT PREVIOUS DATA

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
.
• 1-0 HANDLER SUB-ROUTINE •
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ISIO
MVC' ITSTNO+5121,2IRl11
SAVE TEST NUMBER
CONP

STM
XC
XC

RO,R9,ISAVE
SAVE WORK REGISTERS.
HCSWI8,RI3I,HCSWIRI31 ZERO THE CSW AREA.
LOGOUTI12,RI4),LOGOUTIRI4)

BC
ST
TM

ALL,SUlP
Rl0,HCAWIRI3)
SNSW,X'80'

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
SENSE SWITCH LOOPS
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ILOOP TM
SNSW,X'ItO'
OESIRED TO LOOP PREVIOUS SIO •
BR IF YES.
STORE CMD ADDRESS.
DESIRED TO LOOP PRESENT SIO •
ID
F822-0
PAGE
3A

oj'

.,

"~-.

';!

,

.'

IBM MAINTENANCE DIAGNOSTIC PROGRAM
2540

PU~tH

001112
001116
OOlllA
OOlllE
001122
001126
00ll2A
00U2E
001132
001136
OOIl3A
001l3E
001142
001146
001l4A
00114E
001152
001156
00ll5A

PIN 840516
PAGE
4

FUNCTION TESTS -SECTION 3 F822

47
90
47
91
47
9C
47
58
88
90
41
46
47
41
91
41
41
50
47

80
00
70
CO
80
00
FO
9E
90
00
80
90
FO
70
SO
10
10
70
FO

F
C
F
F
F
C
F

0
0
C
F

F
F
F
F
F

F
0
F

15E
000
12E
004
12E
000
116
198
003
000
102
136
102
DCO
C4E
156
DC8
048
116

BC
IHANG . TIO
BC
TM
Bt
SIO
BC
IHI
.l
SRl
GREG
TID
8C
BCT
BC
SUlP
LA
TM
BC
lA
STCD
ST
BC

OOUDA
OOllDE
00llE2
001lE6
OOllEA
OOllEE
00UF4
001lF8
OOllFC
001202
001204
001206
001208
DATE
Ee

o

07
96
94
94
92
9C
47
47
47
92

41
92
47
92

02
96
47
92
94
91
41
96
5S
8S
96
SO
46
SO
94
47

01
SO
00
00
00
00
80
40
20
F3
FO
F2
FO
Fl
01
40
FO
FO
7F
40
10
10
9E
90
SO
00
90
00
lF
FO

49 CO
41 60
94 7F
91 40
47 10
02 07
96 40
47 FO
02 07
OA DO
0002
003A
OA55
15 JUN61
130498

F OE8 F OE8
OE8
F C4D
F C4C
f 915
C 000
F

NONE, JOHN
01R12)
NCCO,IHJ
SNSW,X'CO'
NONE, IHI
DIRI2)
UNC ,IHANG
R9,WTlR14)
R9,3
01R12)
CCOollOOP
R9,GREG
UNC,1l00P
R1,WRTl
KEYSW,X'SO'
ALL,STCD
R7,WRT2
Rl,HCAWIR13)
UNC,tHANG

BR I F NO.
TEST 1-0
BR I F NOT AVAILABLE.
SEE IF SSW 0 DR ION.
8R 1F NO.
START 1-0
BR TO TEST I-D.
PICK UP OM WAtT FACTOR.
CUT IT DOWN TO 1.25 SEes.
TEST 1-0 TO DEVICE.
8R IF AVAilABLE.
lOOP UNTIL TIME OUT.
8R TO TRY AGAIN.
PICK UP 1ST AREA CCW ADDRESS.
SEE IF 2ND AREA CURRENT.
BR IF YES.
PICK UP 2ND AREA cew ADDRESS.
STORE THE CMD ADDRESS.
BR. UNCONOITIONAl

XC
01
NI
Nl
MVI
SIO
BC
BC
BC
MVI
BC
MVI
BC
MVI
MVC
01
8C
MVI
NI
TM
BC
01
l
SRl
01
SSM
8CT
SSM
NI
Bt

ISWI21,ISW
ISW,X'80'
CRSW,X'OO'
HDSW,X'OO'
IACSNS+5,X'OO'
01R12)
tCo, IZERO
CCl,lONE
CC2,nwo
IACTeC+5,X'F3'
UNC,INOW
IACTCC+5,X'F2'
UNC,INOW
IACTCC+5,X'Fl'
ICSWI(8),HCSWIRI31
ISW,X'40'
UNC, INOW
IACTCC+5,X'FO'
ISW,X'7F'
0IR11),X'40'
ALL,ISEN
ISW,X'10'
R9,WTIR14)
R9,3
ISW,X'SO'
MSKI
R9,.
MSK2
Isw,X'lF'
UNC,ISEN

ZERO THE 1-0 HANDLER SWITCHES.
TURN ON THE HANG SWITCH.
ZERO DUG MSG SW.
ZERO THE HEADING SWITCH.
ZERO THE ACTUAL SENSE DATA.
1-0 COMMAND- SIO, TIO, OR HIO
BR. IF CONDo CODE 0
BR. IF CONDo CODE 1
BR. IF CONDo CODE 2
INDICATE CONDo CODE 3
BR. UNCONDITIONAL
INDICATE CONDo CODE 2
BR. UNCONDITIONAL
INDICATE CONDo CODE 1
SAVE CSW
INDICATE 1 CSW
BR. UNCONDIT 10NAl
INDICATE CONDo CODE 0
TURN OFF HANG UP SWITCH
CHECK CONTROL SWITCH FOR NO ENABLE
8R. IF ON
INDICATE ENABLED ONCE
lOAD OM WAIT FACTOR
ADJUST
TURN ON HANG UP SW
ENA8lE
WAIT
DISABLE
TURN OFF HANG SW
8R. UNCONDITIONAL

8C
NI
TM
BC
MVC
01
BC
MVC
SVC
DC
DC

UNEQ, I UIO
ISW,X'lF'
ISW,X'40'
All,ISV2
ICSWlI8),HCSWCRI51
ISW.X'ftO·
UNC,INT3
WORKI81,HCSWIRI5J
X'DD'
Al2UJ
AL2tIOOPSW+2-SECNOJ .
Al2CIUNEX+I1-SECNO)

8R. I F UNEQUAL
RESET HANG UP SW

•••••••••••••••••••••••••••••••••••••••••••••••••••• *•••••••••• *•••*•••
EXECUTE START 1-0 HERE
•••••••••••••*•••••••••••••••••••••••••••••••••••••••••••••••••••••••••

F lA6

JOHN

ISSUE

F 194
F 18C
F 8AF
F lAA

F 8AF
F lAA
F SAF
F 8S8 0 040
F OE8

ITWO
lONE

F lAA
F 8AF
FOES
S 000
F 24E
F OE8
0 198
0 003
FOES
F A42
FICA
F A43
F OE8
F 24E

F 03A
IFC
F OE8
FOES
F 22C
F 8SS F 040
F OE8
F 236
F AOO F 040
F

IZERO
INOW

IWAIT

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
All 1-0 INTERRUPTS RETURN HERE
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
IRETRN CH
RI2,10DPSW+2
COMPARE FOR CURRENT 1-0 ADDRESS

IUIO

DC

PIN 840576
PAGE
4A

2540 PUNCH FUNCTION TESTS - SECTION 3 F822

•

001l5E
001164
001168
00116C
001110
001114
001118
001l7C
001180
001184
001188
00118C
001190
001194
001198
001l9E
001lA2
0011A6
OOllAA
OOllAE
001182
0011B6
OOllBA
OOUBE
0011C2
0011C6
OOllCA
OOllCE
001102
001106

IBM MAINTENANCE DJAGN.;JSTlC PROGRAM'

8R. IF 1 CSW ALREADY STORED
SAVE CSW 1
INDICATE 1 CSW STORED
BR. UNCONDITIONAL
CONVERT ADDRESS
2 8YTES OF 1-0 OLD PSW.
FROM HERE.
TO HERE

00120A
00120C
001200
00120E
001210
001216 ,
0012lA
001220
001224 '
001228
00122C
001232
001236
00123A
00123E
001242
001246
00124A
00124E
001252
001256
00125A
00125E
001262
001266
00126A
00126E
001212
001216
00121A
00127E
001282
001286
00128A
00128E
001292
001296
00129C
0012AO
0012A4
0012AS
0012AC
001280
001284
001288 '
0012BC
0012CO
0012C4
0012C8
0012CC
001200
001204
001208
0012DC
0012EO
0012E4
0012ES
0012EC
0012FO
0012F4.
0012F8
0012FC
001300
001304 :
001308
: 00130C
001310
00Ul4 '

ID
F822-0
PAGE
4

DATE
EC

0 0 0 0 () 0 0 0 0 () 0 0 () '0 0 0

o

OA DO
64
15
FA44
02 02 F SE6 F
92 1A F 439
02 02 F 8FC F
45 90 F 422
96 02 F OE8'
41 FO F 4FC
02 01 F S90 F
96 20 F OE8
91 10 B 000
4180 F 24E
91 OB FOES
41,10 F 24E
96 OS F OE8
41 FOF 18A
91 02 8 000
47 ·80 F 276
91 40 F OE8
47 .so F 2A4
91 02 F B8C
47 10 F 216
91 20 F OE8
47 SO F 2A4
91 02 F 894
47 SO F 2A4
41 SO F 858
45 70 F 664
91 40 F 915
41 10 F 64E
91 80 F OE9
41 80F 2A4
96 04 F·OES
94 7F F OE9
05 00 F 915 B
47 BO F 2A4
96 01 F OEB
41 SO F DB8
91 80 F C4E
41 10 F 2B4:
41 SO F 080
45 70 F 664'
91 SO F OE9
41 SO F 2FC
91 80 F C4E
41 SO F 204'
96 02 F OEA
9ft IF F OE9
47 FO F 2FC
96 20 F OEA
41 FO F 2CC
96 04 F OEA
41 FO F 324
91 40 FOES
47 10 F 382
47 FO F 3S6
91 20 F OEB
47 10 F 3S2
41 FO F 386
41 BOF DAS
9180 F e4E
47 10 F 30C
41 SO F DAO
4570F'664
91 SO F OE9;
41,80 F 328'

BDF'
BFF'

040

005

SVC
DC
DC
DC
MVC
MVI
MVC
8Al
01
8C
ISV2
MVC
01
IN13· TM
BC
TM
BC
01
BC
ISEN
TM
8C
TM
BC
TM
BC
TM
BC
TM
BC
IDOSNS lA
BAl
TM
BC
TM
8C
01
NI
ClC
BC
01
IFUR
lA
TM
8t
LA

JASI02 BAl
TM
8C
TM
BC
01
RRS2
NI
BC
SB2
01
BC
T05
01
BC
INOEX1 TM
8C
8C
INOEX2 TM
BC
BC
ISCR
LA
.TM
Bt
lA
IASIOI BAL'
TM
BC

X'DO'
X'64'
X'15'
Al21IUNEX-SECNO+REGl
18lAH+1I3),ICSW
ICNT,X'IA'
IBlAH+23(3),IACT
R9,ICOUT
ISW,X'02'
UNC,lLOGED
ICSW2IB),HCSWIRI5J
ISW,X'20'
OIRU) ,X'lO'
NDNE,ISEN
ISW,X'OS'
All, t SEN
ISW,X'08'
UNC,IWAIT
0IRll),X'02'
NONE,lDOSNS
ISW,X'40'
NONE,IFUR
ICSW1+4,X'02'
All,IDOSNS
ISW,X'20'
NONE,IFUR
ICSW2+4,X'02'
NONE,IFUR
RS,ISENSE
R7,ISTRT
lACSNS+5,X'40'
All,RRM
I SW+l ,X'80 i
NDNE,IFUR
ISW,X'04'
I SW+1 ,X'1F'
IACSNS+511),5IRlll
EQ,IFUR
ISW,X'Ol'
R8,CHRD2
KEYSW,X'SO' .
ALL, JASI02
R8,CHRDl
R7,ISTRT
ISW+1,X'SO'
NDNE,ISCR
KEYSW,X'80'
NONE,SB2
DATSW,X'02' .
ISW+1,X'7F'
UNC,ISCR
DATSW,X'20' .
UNC,RRS2
DATSW,X'04' ,
UNC,RRS1
ISW,X'40'
ALL,INDER
UNC,IDUNCK
ISW,X'20'
ALL,INDER
UNC,IDUNCK
RS,DGRD2
KEYSW,X'80'
All, JASIOl C
R8,DGRDl .
R7,ISTRT
ISW+ltX'80'
NONE,BTCO i

PRINT UNEXPECTED INTERRUPT DEVICE
ADDRESS
MOVE -CSW- TO MESSAGE
ADJUST COUNT
MOVE -ACT- TO MESSAGE
BR. TO OUTPUT CSW
INDICATE UIO
BR. UNCONDITIONAL
SAVE CSW 2
INDICATE 2 CSWS STORED
CHECK CTRl SWFOR 2 INTR EXPECTED
BR. IF NOT
BR. IF ALREADY ENABLED TWICE
INDICATE ENABLED TWICE
CHECK CONTROL SWITCH FOR SNS ON UC
BR. IF OFF TO ISSUE SENSE
SEE IF 1ST CSW IN.
8R IF NONE.
CHECK FOR UNIT CHECK
IF YES BR. TO ISSUE SENSE
CHECK FOR SECOND CSW
BR IF NONE.
CHECK FOR UNIT CHECK
BR IF NONE.
lOAO SENSE COMMAND ADDR.
8R TO AUX START 1-0.
SEE IF INTERVENTION REQUIRED.
8R IF YES.
CHK FOR DATA RECEIVED
8R IF NOT.
INDICATE SENSE RECIEVED
TURN OFF DATA RECEIVED.
COMPARE FOR EXPECTED SENSE
8R IF EQUAL.
INDICATE AN ERROR.
PUT ADDR OF 2ND CHECK RD INTO 8.
SEE IF 2ND DATA AREA IS CURRENT
8R IF YES.
PUT ADOR OF 1ST CHECK READ INTO 8.
BR TO AUXilIARY START 1-0.
SEE IF DATA RECEIVED
8R IF NOT.
SEE IF 2ND DATA AREA IS CURRENT
BR IF NO.
TURN ON BIT 6 OF DATA SWITCHES.
TURN OFF DATA RECEIVED SWITCH.
BR TO READ BACK PUNCH BUFFER.
TURN ON 81T 2 OF DATA SWITCHES.
BR TO RESET COMMON DATA RECEIVED SW.
TURN ON 2ND AREA DATA RECEIVED SW.
RETURN TO MAIN liNE.
BR. IF CSW STORED
BR. UNCONDITIONAL
BR. IF CSW 2 STORED
8R. UNCONDITIONAL
PUT ADDR OF 2ND DIAG RD CCW INTO 8.
SEE IF 2ND DATA AREA IS CURRENT.
BR IF YES.
PUT ADDR OF 1ST DIAG RD CCW INTO 8.
BR TO AUXilIARY START 1-0.
SEE IF DATA RECEIVED.
BR IF NOT.'

15JUN61 :
130498 '

00

F822-0
10
PAGE
4A

000000

o

00

o

0 0 0·"
.

'i

o o

0:00000000000000 00
PIN
PAGE

IBM MAINTENANCE DIAGNOSTIC PROGRAM
25~O

00131C
001320
00132~

001328
00132~

001330
001334
00133A
00133E
001342
00131t6
00131tA
00131tE
001352
001356
00135t
001360
00136~

001368
00136C
001370
001374
001378
00131E
001382
001386
00 13 SA
oo138E
001392
001396
00 139 A
00139E
001312
0013A6
0013lt
0013AE
001380
001382
00i3B~

001~86

001387
001388
00il8A
0013BE
DOUCO
oo13C4
0013e6

ooi3ee

0013tA
0013ec
DOUCE
oo13tf
0013DO
001302
001306
0013DA
0013DE
0013EO

oouEl

OOUE~

0013E6
0013E8
D013E9
0013EA
0013EC
0013FO
D013f2
DATE

91 80
·n 10
96 40
94 IF
91 10
47 80
~5 80
05 00
41 60
91 08
ItT 80
91 40
47 80

F
F

C~E

zoe

F OEA

F OE9

F 915

RRS1
8TCO

F 334

F 5B8
F SAF S 004

F 38Z
a 000
F 2EIt
F OE8
F 382
~8 88 0 006
40 80 F 35A
D5 07 F 888 F 8S8
47 60 F 382
91 Olt 8 000
47 80 F 2FO
91 20 F OE8
47 80 F 382
41 88 0 DOS
40 80 F 3fC
D5 07 F S90 F S90
47 80 F 386
96 01 FOES
92 64 f 386
92 CO F 586
91 01 F OE8
Itl 10 F 3A6
91 01 F DOlt
47 80 F SAl
92 24 F 386
92 80 F 586
02 01 F 93e 8 002
OA DO

18SN

ICCSWI

ICCSWZ
INDER
IDUNCK

10UTIT

0002

093C
093C
OA 110

M

IFLAGI

09

F937
Itl 80
18 BI
50 80
OA DO
0003
08t.9
OBCa
OA 110
AD.
10
Fle3
41 aa
91 80
47 10
OA DO
0003
OA3F
OB89
OA DO

0 DOlt.
F SCI

0 DOlt
B ODD
F 450

AD

OF
f884
50 AD F 808
DA DO
0003

15JUN67
1301t9.

TM
8C
01
NI
TM
8C
8AL
eLC
8C
TM
8C
TM
8C
LH
STH
CLC
BC
TM
8C
TM
8C
LA
STH
CLC
8C
01
MVI
MVI
TM
8C
TM
BC
MVI
MVI
MVC
SVC
DC
DC
DC
SVC
DC
DC
DC

I

LA

SR
ST
SVC
DC
DC
DC
SVC
DC
DC
DC
LA

TM
Be
SVC
DC
DC
DC
SVC
DC
DC
DC
5T
SVC
DC

KEYSW,X'80'
ALL,T05
DAT5W,X'40'
lSW+1,X'7F'
lAe5NS+5,X'10'
NONE,18SH
RS,SUCP
IACTce+5(1),4(R11)
UNEQ,INDER
oe Rll J, X'OI'
NONE,INOEX1
15W,X'ItO'
NONE,INDER
R8,6eRlll
R8,ICCSW1~

ICSWlCS) ,ICSWI
UNEQ,INDER
0lR1U ,X'04'
NONE,INOEX2
I5W,X'ZO'
NONE,INnER
R8,SIRB)
RS,ICCSW2~

ICSW2(8),ICSWZ
EQ,IDUNeK
ISW,X'Ol'
IFLAG1,X'64'
IFLAG2,X'CO'
I·SW, X' 01'
ALL,IOUTIT
SNSW,X'OI'
NONE,ILEAVE
IFLAG1,X'24'
IFlAG2,X'SO'
ITSTNO+5(2),2IR11)
X'DD'
Al2IZ1
AL21ITSTNO+5-SECNO)
AL2CITSTNO+5-SECNO)
X'DO'
X'64'
X'09' .
AL21ITSTND-SEeNO+REG)
RS,4
Rll,R8
RlltILINK+5
X'DD'
Al2I))
AL21ILINK+6-SECNOJ
AL21ILINK+5-SECNOI
X'DO'
X'AO'
X'lO'
AL2CILINK-SECNO+REGJ
Rll,4IRlU
OlRU I ,X'SO'
All,lDeSW
X'OD'
AL2(3)
AL2(IOADR-SECNOI
AL2CIOADDR+5-SECNOJ
X'DO'
X'AO'
X'OF'
AL2CIOADDR-SECNO+REGI
RIO,ICAW+5
X'DD'
AL2IS)

SEE IF 2ND DATA AREA IS CURRENT
BR IF YES.
TURN ON 1ST AREA DATA RECEIVED SW~
RESET COMMON DATA RECEIVED SW. .
SEE IF EQUIPMENT CHECK IN SENSE DATA
8R IF NOT.
BR TO SET UP COMPARE PARAMETERS.
COMPARE FOR EXPECTED CONC. CODE
BR. IF UNEQUAL

·1

\I

BR. IF NO CSW EXPECTED
8R. IF NO CSW RECIEVED
LOAD CSW AOOR
STORE IN COMPARE INSTR.
COMPARE FOR EXPECTED CSW
8R. IF UNEQUAL
BR. IF NO CSW 2 EXPECTED

."

BR. IF NO CSW 2 RECIEVED
UPDATE TO SECOND CSW
COMPARE FOR EXPECTED CSW2
BR. IF EQUAL
INDICATE AN ERROR
SET UP FOR ERROR PRINTOUT
CHECK FOR A DETECTED E~ROR
SR. IF ERROR DETECTED
CHECK SECTION SENSE SWITCH 7
BR. IF OFF
SET UP FOR CORRECT PRINTOUT
MOVE TEST NUMBER TO PRINT
CONVERT TEST NUM8ER

PRINT TEST NUMBER

ADJUST LINK ADDRESS FOR PRINTOUT
CONVERT LINK ADDRESS

2540 PUNCH FUNCTION TESTS - SECTION 3 F82Z

0013F4.
0013F6·
OOUf8
0013FA
00l3F8
OOl3FC
0013FE
001404
00 lit 08
00140E
00llt12
001416
00141A
00141E
001422
001424 .
001426
00142S
00142A
00llt30
001436
001438
001439
00143A
00143C
00143E
001444
001"6
001"7
001448
00144A
001"C
001440
001"E
00 lit 50
001456
00145A
00145E
001462
00146S
00146C
001410
001474
.00H7S
00141E
0014S2
0014S6
00148A
00 lit ':I 0

PRINT LINK ADDRESS

BR. IF NO 1-0 COMMAND ISSUED
CONVERT 1-0 ADDRESS

PRINT 1-0 ADDRESS

STORE CCN ADOR.
CONVERT CAW

ID
fB2Z-0
PAGE
5

,PIN 8<\0576
PAGE
SA

IBM MAINTENANCE DIAGNOSTIC PROGRAM

5

PUNCH FUNCTION TESTS - SECTION 3 F82Z

DC 1318

ec

S~0576

OOOOOOOOO,Oi():OOC

001496
00149A
00149E
0014A2
00lltA8
0014AE
00llt82
0014B6
00148A
oollteo
0014e6
0014eA
0014DO
001404
00140S
00140A
0014DC
OOUOE
0014EO
DATE
EC

0809
0808·
04 DO
AD
08

F803
02 02
92 16
D2 07
45 90
91 CO
47 SO
41 AA
47 FO
OA DO
0008
DADO
DADO
02 01
02 07
OA DO
AD
14
F8E5
07 F9
D2 00
OA 00
AD
04
FSAO
OA DO
AD.
OA
F8U

D2
9Z
91
41
02
4S
40
41
40
D2
45
91
47
D2
D2
45
91
47
02
02
45
91
47
D2
DZ
45
D2
91

02
lA
08
SO
02
S8
SO
8S
80
01
90
40

F SE6 F SE2
F 439
F AOO A 000
F 42Z
A 004
F 43E

0001
090A
090 A

OA DO
15 JUN67
130498

LA

0 008

F 408

BC
SVC
OC
DC
De
Mve
MVC
SVC
DC
ICNT
DC
DC
BCR
ICCOUT Mve
SVC
DC
DC
DC
ICOUT

F 8EA F ADO
F 8F3 F AOS

F 8A5 8 004

SVC

F SE6 F SDF
F 439
8 ODD

F
F
0
F
0
F
F

482
8FC
006
47t
008
4AC
ADO
F 422
F DEI
eo F 49A
02 F 8FC
07 F AOO
90 F 422
04 BODO
SO F 482
02 F 8FC
01 F AOO
90 F 422
20 F OE8
SO F 4CA
02 F aFC
07 F ADO
90 F 42Z
00 F 90A
O4F OEI
It7 80 F 4F1t
OA'DO

DC
DC
SVC
DC
DC
DC
Mve
MVI
leWOUT MVC
BAL
TM·
BC

F 902

IOCSW

DC
DC
DC
MVC
MVI
TM
BC
MVC
LH
STH
LA

F AOO

F SFF

F 8S8

F 902
F AOO

F 8FF

F 890
B 005

STH
ICHNGI MVC
BAL
10101 TM
BC
MVC
MVC
BAL
IMORST TM
BC
. MVC
ICHNG2 MVC
BAL
TM
1010
8C
MVC
MVC
BAL
MVC
IPAS
TM
8C
svt
DC
DC
DC
SVC

AL21ICAW+6-SECNOI
AL21ICAw+5-SEeNOI
X'DO'
X'AO'
X'OB'
AL2CICAM-SECNO+REGI
IBlAH+l(3),ICeW
leNT,X'16'
WORKC Shoe RIO)
R9,ICOUT
4eR10I,X'CO·'
NONE,lceOUT
RI0,SIRlOI
UNC,ICWOUT
X'DD'
AL21S)
AL2CWORK-SECNOI
ALZ(WORK-SECNO)
I8LAH+5(8J,WORK
I8lAH+14(8),WORK+I
X'DO'
X'AO'
X'IA'
AL21IBLAH-SECNO+REG)
UNC,R9
!EXpeC+511I,4CR111
X'DO'
X'AO'
X'OA'
AL21IExpeC-SECNO+REGJ
X'DO'
X'AO'
X'OA'
AL2CIACTce-SECND+REGJ
IBlAH+1I31,ICSW
leNT,x'lA'
CCRU I ,x'oe'
NONE,IDIDI
IBLAH+23131,IEXP
.RS,61R1U
RS,teHNG1+4
RS,eIR8)
R8,lCHNG2+4
WORKISI,WORK
R9,ICOUT
ISW,X'40'
NONE, I MORST
IBLAH+23(3) ,IACT
WORK (8), ICSWl
R9,IeOUT
0lR1U ,X'Olt'
NONE,IDID
IBLAH+23(3),IEXP
WORKIS),WDRK
R9,leOUT
ISW,X'ZO'
NoNE,IPAS
IBLAH+23(3),I&CT
WORKI8J,ICSW2
R9,ICOUT
IEXSNS+5Cl),5IRllJ
ISW.X'04'
NONE,IPASS
XIDD'
Al2IU
AL2(IfXSNS+5-SECNOJ
AL2(IEX5NS+5-SECNO)
.
X'DO'

PRINT CAW

MOVE -cew- TO MESSAGE
ADJUST COUNT
MOVE CCW TO WORK AREA
8R. TO OUTPUT cew
CHECK FOR ANY CHAIN FLAGS
8R. IF NONE
UPDATE TO NEXT CCW
SR. UNCONDITIONAL
CONVERT

MOVE TO MESSAGE
PRINT

RETURN VIA REG 9
MOVE EXP CC TO MESSAGE
PRINT EXPECTED COND. CODE

PRINT ACTUAL COND. CODE

MOVE -CSW~ TO MESSAGE
ADJUST COUNT
BR. IF NO CSW EXPECTED
MOVE -EXP- TO MESSAGE

MOVE EXPECTED CSW TO WORK AREA
8R. TO OUTPUT EXPECTED CSV

.... :..
BR. IF NO C5W STORED
MOVE -AeT- TO MESSAGE
MOVE ACTUAL CSW TO WORK AREA·
8R. TO OUTPUT ACTUAL C5W

.'

BR. I F NOT EXPECTING Z CSWSMOVE -EXP- TO MESSAGE
MOVE EXPECTED C5W TO WORK AREA
8R. TO OUTPUT EXPECTED CSW 2
SR. IF NO SECOND CSW STORED
MOVE ·-ACT- TO ~ESSAGE
MOVE CSW TO WORK AREA
MOVE EXP SENSE TO MESSAGE
BR. IF NO· SENSE DATA RECIEVED
CONVERT EXPECTED SENSE

PRINT ExPECTED SENSE

•
ID
F822-0
PAGE
SA

i
,l~"'._M.

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840576
P.GE
6

251t0 PUNCH FUNCTION TESTS - SECTION 3 F822

····r

00lltE2
001ltE3
OOlltEIt
001ltE6
001ltE8
OOlltEA
OOlitEC
00 litH
OOlltFO
0014Fl
00lltF2
0014F4
0014F8
OOlltFC
001502
001501t
001506
001508
00150A
001510
001516
00151C
001522
001524
001525
001526
001528
00152C
001530
001534
001538
00153e
00151t0
001544
001548
00154C
001550
001554
001558
00155!:
001560
001564
001568
00156C
001510
001574
001578
00157C
001580
001584
001586
001587
001588
00158A
00158C
001580
00158E
001590
001594
001598
00159C
0015AO
0015A2
0015A6
0015AA
0015AE
001582
oo15B6
DATE
EC
-"--~-.

-"

AO
OB
F905
OA 00
OOOl
0915
0915
OA 00
AO
OB
F910
95 30
41 60
02 OB
OA 00
OOOC
OAOO
OAOO
02 01
02 05
02 05
02 05
OA 00
AO
lC
F91B
91 02
Itl 80
94 fO
1t7 fO
96 02
91 80
41 80
96 20
45 80
94 IF
94 OF
91 40
41 80
96 10
41 30
41 40
t,l 10
91 80
41 10
41 30
41 40
41 10
45 10
OA 00
CO
45
f940
OA DO
AO
01
F8e3
50 AD
91 CO
47 50
91 80
01 15
91 08
41 80
41 88
41 B8
98 09
07 FB

E 181
F 528
F AOO E 080

F
F
F
F

920
923
92A
931

F
F
F
F

AOO
A02
AOA
AU

F OE8
F 538
F 01::8
f lilA
F 0(;9
F 01:8
F 554
f OEI!
F 588
F C4!:
F DEB
F OE8
F 584
F OEB
F A68
F 858
F BA8
f C4E
F 580
F AB8
F 808
F 8f8
F 50E

0 048
F 004
F 102
F OEB
B
f
0
0
F

000
5AE
002
006
860

15JUN67
130498

DC
X'AO'
DC
X'OB'
DC
AL2IIEXSNS-SECNO+REG)
SVC
X'OO'
DC
AL2111
DC
AL2~IACSNS+5-SECNOI
DC
AL2IIACSNS+5-SECNOI
SVC
X'OO'
DC
X'AO'
DC
X'OB'
DC
AL21IACSNS-SECNO+REG)
IPASS CLI
SYSMOOIR141,X'30'
8C
UNEQ,ICO
ILOGEO MVC
WORKI121,LOGOUTIR11t)
SVC
X'OO'
DC
AL21121
DC
AL2IWORK-SECNOI
DC
AL2IWORK-SECNOI
MVC
lOLOG+512I,WORK
MVC
IOLOG+816I,WORK+2
MVC
IOLOG+1516I,WORK+IO
MVC
IOLOG+2216I,WORK+18
SVC
X'OO'
DC
X'AO'
DC
X'lC'
OC
AL2110LOG-SECNO+REGI
I SW,X '02' '
ICO
TM
BC , NONE,IBCO
NI
ISW,X'FO'
UNe,tWAIT
BC
IBCD
01
I SW+ 1, X' 02'
TM
DATSW+l,X'80'
8C
NONI;:,SIPP
01
OATSW+1,X'20'
BAL
R8, SUCP
NI
HOSW,X'7F'
NI
DATSW+l,X'DF'
SIPP
TM
OATSW+l,X'40'
BC
NONE,IOPOUT
01
OATSW+l,X'lO'
LA
R3,PCHl
R4,CR02
LA
LA
R7,ROl
TM
KEVSW,X'80'
8C
ALl,CTD
R3,peH2
LA
LA
R4,CROl
LA
Rl,RD2
8AL
CTD
Rl,lCOT
IOPOUT SVC
X'OO'
IFLAG2 DC
X'CO'
DC
X'45'
DC
AL2110PTl-SECNO+REG)
SVC
X'DO'
DC
X'AO'
DC
X'OI'
DC
AL21ILINK-SECNO+REG)
ST
RIO,HCAWIRU)
TM
SNSW,X'CO'
BC
ANV,lLOOP
TM'
ISW,X'80'
BCR
ALL,R5
llEAVE TM
OIRU I.X'OS' ,
BC
NONE.IUP
Rll,2IRU) ,
LA
lUP
LA
Rll,6lRll »
LM
RO,R9,ISAVE
BCR
UNe,Rll

__,,,,,,,,,,,__ ,___, .. _.·",. . . _.. '''k....

~.

PIN 81t0576
PAGE
6.

IBM M.INTENANCE DIAGNOSTIC PROGRAM
251t0 PUNCH FUNCTION TESTS-SECTlON 3 F822

0015B8
, 00l5BC
0015CO
0015C4
0015C8
0015CC
001500
001504
001508
00150C

PRINT ACTUAL SENSE OAT.

CHECK FOR MODEL 30.
BR. I F NOT
MOVE LOG OUT TO WORK ARU
CONVERT

MOVE lOG OUT TO MESSAGE

PRINT lOG OUT

SEE IF UIO.
BR IF NO
RESET UIO SWITCH
BR. UNCONDITIONAL
TURN ON PRINT SW.
SEE IF ERROR IN PRESENT DATA.
8R IF NO.
TURN ON PRINT PRESENT DATA SW.
BR TO SET UP COMPARE PARAMETERS.
TURN OFF HEADING SWITCH.
RESET PRINT 1ST DATA SW.
SEE IF ERROR IN PREVIOUS CO.
8R IF NOT.
TURN ON PRINT PREVIOUS DATA SW.
PUT AOOR OF PCH DATA INTO 3.
PUT AODR OF CHK READ OAT A INTO 4.
PUT AODR OF RD DATA INTO 1.
SEE If 2ND AREA CURRENT.
8R IF YES.
PUT AOOR OF PCH DATA INTO 3.
PUT AOOR OF CHK READ DATA INTO 4.
PUT AODR OF RO DATA INTO 1.
BR TO CHK DATA.
PRINT LOOP OPTIONS

SPACE A LINE

STORE CAW
CHECK SECTION SENSE SWITCH 0 AND 1
8R. IF ANY ON
RETURN VIA REG 5 IF HANG UP
8R. IF NO CSW EXPECTED
UPDATE LINK ADDRESS FOR RETURN
RESTORE WORKING ,REGS';
RETURN VIA REG 11
ID
F822-0
PAGE
6

•

,

~>Io~,.".,,,,,,,,,

41
41
Itl
91
41
41
41
41
1t5
01

30
40
10
80
80
30
40
70
10
F8

00150E
0015E2
0015E8
0015EC
0015FO
0015FIt '
0015F8
0015FC
001600
001604
001608
00160C
001610
0016l1t
001616
0016lA
00161E
001622
001626
00162A
00162E
001632
001636
00163A
00163E
001642
001646
00164A

Itl
05
47
91
41
91
Itl
41
41
41
41
55
41
01
96
91
41
91
47
96
Itl
96
91
47
91
47
96
47

20 0 001
00 3 000 7 000
60 F 616
07 It 000
50 F 616
18 It 000
50F 632
22 0 '001
33 0 001
44 0 001
11 0 001
20 F A60
60 F 5E2
Fl
80 F OE8
10 F OEB
10 F 5F4 '
02 F OE9
10 F 69E
01 F OE8
FO F 'SF4
40 F OE8
,20 F OE8
10 F 5FC
02 F OE9
10 F 69E
01 F OE8'
FO F 5Fe

00164E
001650
001652
001654
001656
00165A
00165C
00165E
001660

OA 00
2400
FA32
OA OA
90 00 C 000
OA DO
8001
FA32
41 FO F OF,6

001664 :
001668
00166C
001610
001614 '
001618 '
00161e
001680,
001684 '

58 9E o 198'
88 90 0 002
50 80 0 :048'
9C 00 C 000
47 10:F 694'
90 ooeooo'
47 40 F 686
46 90:F '678 '
01F1 '

DATE
EC

F
F
F
F
F
F
F
F
F

i5JUN61'
130498 .

A68
B08
8A8
CitE
508
A88
B58
BF8
50E

SET UP PARAMETERS FOR DATA COMPARE HERE.
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
SUCP

SUIP

LA
LA
LA
TM
BC
LA
LA
LA
BAL
BCR

R3,PCHI
RIt,CROI
Rl,ROl
KEYSW,X'80'
NONE,SUIP
R3,PCH2
R4,CR02
R7,R02
Rl,ICOT
UNC,R8

PUT AODR OF 1ST AREA DATA INTO 3.
PUT ADOR OF CHK READ DATA INTO REG 4
PUT ADOR OF READ DATA INTO REG 7.
SEE IF 2ND DATA AREA CURRENT.
BR IF NOT.
PUT ADOR OF EXP D.TA INTO REG 3.
PUT ADOR OF CHK READ DATA INTO REG 4
PUT AOOR OF READ DATA INTO REG 1.
8R TO COMPARE DATA.
RETURN

011 ,R3)'0IR7)
UNEQ,ERPRS
OIRIt) ,X'07' ,
ANY,ERPRS
01R41,X'18'
ANY,ERPRE
R2,llR2)
R3,lIR3)
R4,11R41
Rl,lIR11
R2,ATE1
UNEQ,COOA
UNC,Rl
OATSW+l,X'80'
OATSW+1,X'10'
ALL,TXS
ISW+l,X'02'
ALL,IGOP
ISW,X'OI' ,
UNC,TXS
OATSW+1,X'40'
OATSW+l,X'20' \
ALL,UPD,
ISW+l,X'02'
ALL,IGOP
I SW,X'Ol' ,
UNC,UPO

SEE IF DATA AS EXPECTED.
8R IF NO.
SEE IF AOOR, TRANS, OR PARITY CHKS.
BR IF YES.
SEE IF XU OR XL.
8R IF YES.
ADO 1 TO REG 2.
ADO 1 TO REG 3.
ADO 1 TO REG 4.
ADO 1 TO REG 7.
SEE IF 80 COLUMNS HANDLED.
8R IF NO.
RETURN.
TURN ON ERROR IN PRESENT CD SW.
SEE IF PRINTING PREVIOUS DATA.
8R IF YES.
SEE IF PRINT SW ON.
8R IF YES.
INDICATE AN ERROR.
BR TO TEST 'PREVIOUS DATA.
TURN ON ERROR IN PREVIOUS CD SW.
SEE IF PRINTING PRESENT DATA.
BR IF YES.
SEE IF PRINT SW ON.
BR IF YES.
TURN ON ERROR SW.
BR TO UPDATE.

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
DATA COMPARE ROUTINE
•
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
R2,1
PUT 1 IN REG 2.
LA
ICDT
CODA

CLC
BC
TM
BC
TXS
' TM
8C
LA
UPD
LA
LA
LA
CL
BC
8CR
ERPRS 01
TM
BC
TM
BC
01
8C
ERPRE 01
TM
8C
TM
8C
01
8C

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
INTERVENTION REQUIRED ROUTINE
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
PRINT -MAKE DEVICE READYRRM
SVC
X'DO'
DC
DC
SVC
TIO
SVC
DC
DC
BC

X'240D'
AL2IMOR-SECNO+REGI
X'OA'
OCR12)
X'DO' ,
X'8001' ,
AL2IMDR-SECNO+REGI
UNC,CONP

HALT
TEST 1:-0
PRJ NT A 8LANK.
8R TO CONTINUE.

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
AUXILIARY START 1-0 ROUTINE
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
R9,WTCR14),
LOAD DM WAIT FACTOR.
tSTRT L

SRL
ST
SIO
BC
lTIDLPTIO
BC
, nIC
BCT
BeR

R9,2
R8,HCAWIR13)
OIR12)
NCCO,lBACK
0lRl21
CC1,ILOKE'
R9,ITJOLP
UNC,Rl

CUT IT DOWN TO 2.5 SECS.
STORE IN CAW
START I-D
teST '1-0
BR. IF'CSW STORED
RETURN.

F822-0
10
PAGE
6A

,

0000000000000000000000000000000000

c

0000

IBM MAINTENANCE DIAGNOSTIC PROGRAM

o o

PIN 840516
PAGE
1

2540 PUNCH FUNCTION TESTS - SECTION 3 F822

001686
U0168A
00168E
001692
001694
001698
00169C

00169E
0016A2
0016A8
0016AE
001682
001686
0016BC
0016CO
0016C4
0016C8
0016CC
001600
001604
00160A
00160C
00160E
0016EO
0016E4
0016E8
0016EC
0016FO
0016F4
0016F8
0016FC
001700
001704
001708
00170C
001710
001714
001118
00171C
001720
001724
001728
00172C
001730
001734
001738
00173C
001740
001744
001148
00174C
001750
001754
001758
00175C
001760
001764
001768
00176C
001772
001774
001776
001118
00177C
001180
DATE
EC

91
41
96
07
91
47
07

Olt
80
80
F7
40
10

D Oltlt
F 680
F OE9

ILOKE

F 915
F OF6

IBACK

01

F1

92 40
02 21t
02 OA
91 20
Itl 80
02 OA
91 80
Itl 10
91 20
Itl 50
91 80
41 10
02 01
OA DO
A013
FFAC
96 80
47 FO
91 80
41 10
91 02
41 80
92 FO
91 10
41 80
92 Fl

92 FO
91 08
47 80
92 Fl
92 FO
91 Olt
47 80
92 Fl
92 FO
91 01
47 80
92 F1
92 FO
91 02
47 80
92 Fl
90 Olt
91 20
47 80
91 80
41 80
91 Olt
Itl 50
91 40
41 10
02 01
OA DO
A013
FFAC
96 40
Itl FO
91 80
15JUN61
130498

F AOO
F AOI F
F 996 F
F OE8
F 6E8
F 996 F
F C4E
F 6FO
F OEA
F 6F8
F CItD
F llt8
F F86 F

F
F
F
F
F
F
F
4
F
F
F
4
F
F
F
It
F
F

F
It
F

F
F
4
F
F
F
F
F
F
F
F
F
F

F
F

AOO
9AC

BCR
TM
BC
BCR

C1CR
TPNC
EOA

MVC
MVC
TM
BC
MVC
TM
BC
TM
BC
TM
BC
MVC
SVC
DC
DC
01

CMI
TF
COPT

NXU

NXL

N8P

NAC

NTC

TSRD
IFM

C2A

BC
TM
BC
TM
8C
MVI
TM
BC
MVI
MVI
TM
BC
MVI
MVI
TM
BC
MVI
MVI
TM
8C
MVI
MVI
TM
BC
MVI
STM
TM
BC
TM
BC
TM
BC
TM
BC
MVC
SVC
DC
DC
01
8C
TM

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN

PAGE

840516

lA

2540 PUNCH FUNCTION TESTS - SECTION 3 F822

HCSW+4CR13I,X·0,.·
NONE,ITlC
ISW+1,X'80'
UNC, R1
IACSNS+5,X'40'
ALL,CONP
UNC,Rl

CHECK FOR DEVICE END.
8R IF NOT IN YET.
INDICATE THE DATA RECEIVED.
RETURN.
SEE IF INTERVENTION REQUIRED.
BR IF YES.
RETURN.

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
OATA PRINTOUT ROUllNE
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
IGOP
MVI
GODDY,C"
MOVE A BLANK TO MESSAGE AREA.

9Al

CItD
148
CitE
6C4
OEA
6CC
A16
000
108
A16
A19
000
718
A19
A1C
000
728
AIC
A20
000
738
A20
A25
000
748
A25
008
OE8
780
CitE
78C
OEA
191t
CloD
8ltC
F86 F E08

F CItD
F 84C
F C4E

TM
8C

000,00 0000 0000

GOUDY+1131I,GOODY
HDIA+9111',STKI
DATSW+l,X'20'
NONE,CMI
HOIA+9111I,PRES
KEYSW,X'80'
ALL,TF
DATSW,X'20'
ANY,COPT
CRSW,X'80'
ALL,NTC
XXI21,C6
X'DO'
X'A013'
AL2IDCA-SECNO+REGI
CRSW,X'80'
UNC,NTC
KEYSW,X'80'
ALL ,C1CR
DATSW,X'02' .
NONE, TPNC
GOODY+22,C'O'
OCR41,X'10'
NONE,NXU
GOODY+22,C'l'
GOODY+25,C'O'
OCR4l,X'08'
NONE,NXL
GOOOY+25,C'l'
GODDY+28,C'O'
0lR41,X'04'
NONE,NBP
GOOOY+28,C'l'
GOODY+32,C'O'
OIR41,X'Ol'
NQNE,NAC
GODDY+32,C'l'
GOODY+31,C'O'
01R41,X'02'
NONE,NTC
GODDY+31,C'l'
RO,R4,TWENTY
DATSW+1,X'20'
NONE,C2A
KEYSW,X'80'
NONE,CIA
DATSW,X'O,.'
ANY,CPRT
CRSW,X'4D'
ALL,RSRG
XXI2ltC2
X'DO'
X'A013'
AL2IDCA-SECNO+REGI
CRSW,X'40'
UNC,RSRG
KEYSW,X'80'

BLANK THE REST.
MOVE WORD STKR PI TO MSG.
SEE IF PRINTING PRESENT DATA
BR IF NOT.
MOVE WORD PRESTK TO MSG.
SEE IF 2ND AREA CURRENT.
BR IF YES.
SEE IF 1ST AREA CHK RD WORKED.
BR I F YES.
SEE IF MSG ALREADY PRINTED.
BR IF IT WAS.
MOVE DIAG CHK RD CMD TO MSG.
PRINT -2 CHK RDS. FAILEDTURN ON PRINT SW.
8R TO CONTINUE.
SEE IF 2ND AREA CURRENT.
8R IF YES.
SEE IF 2ND AREA CHK RD WORKED.
BR IF NO.
MOVE ZERO INTO PRINT AREA.
SEE IF XU ON IN OIAG CHK READ BYTE.
8R IF NOT ON.
MOVE ONE INTO PRINT AREA.
PUT ZERO INTO PRINT AREA.
SEE IF XL ·ON IN DIAG CHK DATA.
BR IF NOT ON.
MOVE ONE INTO PRINTOUT
MOVE ZERO INTO PRINTOUT.
SEE IF 8UFFER PARITY ON IN CHK DATA.
8R IF NOT ON.
MOVE A ONE INTO PRINTOUT.
MOVE A ZERO INTO PRINTOUT.
SEE IF ADDR CHK IN CHK DATA
8R IF NOT.
MOVE A ONE INTO THE PRINTOUT.
MOVE A ZERO INTO PRINTOUT.
SEE IF TRANSLATE CHK
8R IF NO.
MOVE A ONE INTO PRINTOUT.
SAVE REGS 0 THRU 4.
SEE IF PRINTING PRESENT DATA.
8R IF NOT.
SEE IF 2ND AREA CURRENT.
8R IF NOT.
SEE IF 2ND AREA READ WORKED.
BR IF YES.
SEE IF MSG PRINTED BEFORE
BR IF YES.
MOVE DIAG RD CMD TO MSG.
PRINT DIAGNOSTIC READ FAILED.
TURN ON MSG SW.
BR TO UPDATE.
SEe IF 2NO AREA CURRENT.
10
F822-0
PAGE
1

001784
001788
00178C
001790
001794
001798
00179C
00179E
0017AO
0017A2
0017A4
0017A6
0017A8
0017Al
0017AC
0017AE
001780
001782
001784
001786
001188
00178A
00178E
0011CIt
0017C6
0017CA
001700
001704
0017DA
0017DC
0017DE
.0017EO
0017E2
0017E4
0017E6
0017E8
0017EA
0017EC
0017EE
0017FO
0017F4
0017F8
0017FA
0017FC
0017FE
001802
001806
00180A
00180E
001810
001814
001818
00181C
001820
001824
001828
00182C
001830.
001832
001836
00183A
00183E
001842
001846
001848
00184A
00184C
001850
DATE
EC

47 10F
1t7 FO F
91 40 F
47 80 F
91 80 F
41 10 F
OA DO
A008
F985
OA DO
A014
F98D
OA DO
AOOI
F981
OA DO
A022
F9B7
OA DO
A021
F909
96 80 F
02 DO F
18 42
4E 40 F
F3 11 F
96 FO F
02 00 F
OA DO
0001
0898
OA12
OA DO
0001
OC4F
OAOE
1B 11
18 22
18 33
41 40 0
43 30 F
18 13
10 24
lA 31
43 13 F
89 10 0
It3 13 F
41 30 0
lit 23
41 50 F
88 10 0
50 10 F
41 40 0
41 30 0
41 00 0
43 23 F
58 10 F
14 10
41 80 F
42 24 F
46 40 F
89 00 0
1t6 30 F
OA DO
8026
FAOO
98 04.F
41 FO:F

18C
15C
OEA
16,.
CItC
lBE

C4C
C4F 3 000

CIA
CPRT

01

IPDA

898
A02 F ·89E
AD3
898'1 000

002
C4F

EOC
008
EOD·
OFF
818
004
898
006
OOC
001
A25
898'
83E
A05
83E
001
828

PIK

MVC
LR
CVD
UNPK
01
MVC
SVC
DC
DC
DC
SVC
DC
DC
DC
SR
SR
SR
LA
IC
LR
DR
AR
IC
SLL
IC
LA
NR
BC
SRL
ST
LA
LA
LA
IC
L

NXT
PRGD

008'
5Fe

BC
BC
TH
8C
TM
BC
SVC
DC
OC
SVC
DC
DC
SVC
DC
DC
SVC
DC
DC
SVC
DC
DC

RSRG

NR
BC
STC
BCT,
SLL
BCT
SVC
DC
DC
LH,
BC

ALL ,C lA
UNC,TSRD
DATSW,X'40'
NONE,IFH
HDSW,X'80'
ALL,IPDA
X'DO'
X'A008'
AL2IHDI-SECNO+REGI
X'DO'
X'A014'
AL2IHDIA-SECNO+REGJ
X'DO'
X'ADOl'
AL2IBIG-SECNO+REGI
X'DO'
X'A022'
AL2IBIG-SECNO+REGJ
X'OO'
X'A021'
AL2IBEAUTY-SECNO+REGJ
HDSW,X'80'
ICDDATCn ,OlR3J
R4,R2
R4,DBWD
GOODY+212I,DBWD+6121
GOODY+3,X'FO'
DBWD(1) ,OIRll
X'DD'
AL2 I 011
AL2IDBWD-SECNOI
AL2IGOODY+18-SECNOI
X'OD' .
AL21011
AL21ICODAT-SECNOJ
AL2IGOOOY+14-SECNOJ
Rl,R1
R2,R2
R3,R3
R4,2
R3,ICODAT
Rl,R3
R2,R4
R3,R1
R1,HOLESIRn
R1,8
Rl,HOLES+l(R3) .
R3,255
R2,R3
ANY,.+8
Rl,4
Rl,DBWD
R4,6
R3,12
RO,l
R2,PUNCHS-lIR3J
R1,DBWD
Rl,RO
NONE,NXT
R2,GOODY+51R41
R4,.+4
RO,l
R3,PIK
X'DO'
X' 8026'
AL2I GOODY-SeCNO+REGI
RO,R4,TWENTY
UNC,UPD

BR IF YES.
BR I F NO.
SEE IF 1ST AREA RD OK.
BR I F NOT.
SEE IF HEADING ALREADY PRINTED.
BR IF YES.
PRINT 1ST HOR.
PRINT CARD LOCATION IN READER.
PRINT A BLANK.
PRINT HEADING 3.
PRINT HEADING 4.
TURN ON THE HEADING SW.
MDVE EXP DATA TO WDRK AREA.
PUT THE COLUMN NO. INTO REG 4.
CONV IT TO DECIMAL.
PUT IT INTO PRINT AREA.
COVER SIGN UP FOR PRINTING.
MOVE ACTUAL DATA TO CONVERT AREA.
CONVERT FROM HEX TO 8INARY.
1 BYTE.
FROM HERE.
TO HERE
CONVERT FROM HEX TO BINARY.
1 BYTE.
FROM HERE
TO HERE
ZERO REG 1
ZERO REG 2.
ZERO REG 3.
LOAD DIVISOR
PICK UP HEX CHARACTER
SAVE HEX CHARACTER
DIVIDE HEX CHARACTER BY 2
ADD DIVIDEND TO CHARACTER
PICK UP FIRST 8YTE
SHIFT
PICK UP SECOND BYTE
LOAD MASK
AND WITH REMAINDER
BR. IF THERE WAS A REMAINDER
SHIFT OFF UNUSED 4 BITS
SAVE REG 1.
SET UP FOR 6 POSSIBLE PUNCHES
SET UP TO CHECK 12 PUNCHES
LOAD MASK
PICK UP PRINTABLE CHARACTER
RESTORE REG 1.
TEST FOR PUNCH
BR. IF NONE
STORE PRINTABLE CHARACTER
DECREMENT PRINT AREA INDEX
SHIFT MASK FOR NEXT BIT
8R. UNTIL 12 CHECKED
PRINT THE DATA.
RESTORE REGS.
BR TO CONTINUE DATA OUTPUT.
10

PAGE

F822-0
lA

c

00

IBM MAINTENANCE DIAGNOSTIC PROGRAM
25~0

PUNCH FUNCTION TESTS - SECTION 3 F822

001858
001860
00186~

001868
00186C
001810
00187~

001818
00181C
001880
00188~

001888
001890
001898
0018AO
0018A9
0018AA
001883
001B84
00188D
0018C3

001915 0000 0001
00000000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
0000000000000000
0000000000000000
+00.00000000000000
O~

~OC3C34040E140C5E7

01

ISAYE

ICSWI
ICSW2
DBWD
IEXPCC

0018C3
0018CC
0018D3

00193~

001931
001940
001949
001950
001959
001960
001969
001910
001919
0019BO
001985
0019BD
001996
00199F
0019Al
0019AA
0019AC
001985
0019B7

00

o

DC
DC
DC
DC

XL8'0'
XL8'0'
D'O'
C' CC X EXP'

40C3C34040El~OCle3

IACTCC De

C' CC

10ADDR DC

C' ADR XXXXXX SIO'

E7f7~OE2C906

00
001BC3
40CIC40940E7E1E1El
E1E740D3C9D5D2
00
001B03
40C3C1E640E7E7E1E7
E1E740
C3E2E6
C3C3E6
40C3E2E640E1E1E1E7
E1E1E1E140E1El

X ACT'

IUNK

DC
CNOP
ORG
DC

X'OO'
0,4
.-1
C' ADR XXXXXX LINk'

ICAW

DC
CNOP
ORG
DC

X'OO'
0,4
·-1
C' CAW XXXXXX

ICSW
Ieew
18LAH

DC
DC
DC

C'CSW'
C'CCW'
C' CSW XXXXXXXX XX' ,

DC

C'XXXXXX EXP'

E1E1E1E1E1El~OC5E7

lACT
DC
IEXP
DC
IEXSNS DC

C'ACT'
C'EXP'
C'SNS XX EXP'

40~205E240E1E140Cl

IACSNS DC

C' SNS XX ACT'

10LOG

C' LOG XX XXXXXX X'

El~lE1E1E140E1E1E7

E1E1E7
40E3E2E340E1E1E1E7
~OE2C5E340E2E240FO

40060540C60609
400306060140060540
0109C5E2E3D209
40C3C44006D940E2E2
40f140D60540C6
060940030606014006
0540E2E3CIC3D2

DC

C' TST XXXX'
C' SET SS 0 ON FOR'

DC

C' LOOP ON PRESTKR'

DC

C' CO OR SS 1 ON F'

DC

C'OR LOOP ON STACK'

HOI
HDIA

DC
DC
DC
DC

C'ED co·
C' PCH ERR'
C' ,CARD IN '
C'PRESTKR STA'

PRES

DC

C'PRESTKR STA'

STK1

DC

C'STACKER Pl.'

BIG

DC

C·

FH8
4040~O~04DC5E7D1C5

001C~D
001C~E

001C4F
001C50
001C51
001C5A
001C61
001C6A
001C6C

C'XXXXX XXXXXX'

ITSTNO DC
IDPTl DC

C5C4~OC3C4

4001C3CB40C5D909
40C3CID9C440C90540
0109C5E2E3D2D940E2
E3C1
0109C5E2E3D2D940E2
E3Cl
E2E3CIC3D2C5D94DD1

DC

001C6C
001C611
001C6E
001Cl0:
001C72
001C76
001C1A
001C1C
001C80
001C84.
001C88 <

EXPECTED SH'

DATE

10
F822-0
PAGE
8

o o o

o

C3E3C5C440E2C8
C44040404040404040

DC

404040~0~040c2

E4C6
~OC306D340D7E4D5C3

C8C5E24040D9C4
404009C440E1E440E7
0340D7CID940Cl
C~0940E3D9CID5
4040404040~0404040
404040~0404040
~04040~040~0404040

GOODY

() 0 0 0

o

404040~04040

E3C5fOFIF2f3F4f5F6'
F7fBF9
, 4004CID2C540D7C3C8
4009C4E8
001174
fE
01
40E4C9D640C6D9D6D4,

,:"

RO'

RO XU XL PAR A'

DC

C'

DC
DC

C'DR TRAN'
C'

DC

C'

DC
PUNCHS DC

C' .
C'TE0123456189'

MDR

DC

C' MAKE PCH ROY'

IOADR
MSK1
MSK2
IUNEX

DC
DC
DC
DC

::'Z

AL311SSUEI
X'fE'
. X'OI,
C' UIO fROM DEYICE'

40C~C5E5C9C3C5

DC

40E1E1E1E7

c,xxxx,

•• ••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
AUXILIARY WORK AREA.

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
PCH
DC
f'O' .

00000000
00000051
00003FFF

Of 00
FOOO
00
00
00
00
00
4007D9C5E5C9D6E4E2

ATEI
MOD50
PCHI
PCH2
CRDI
CRD2
RDI
RD2
RESET 1
RESET2
HDSW·
CRSW
KEYSW
ICODAT
GENDAT
HUNG

~OC8CID5C140E4
D1~OC4C5E3C5C3E3C5

DC
DC
OS
OS
OS
OS
OS
OS
DC
DC
DC
DC
DC
DC
DC
DC

f'Bl' .
X'00003FfF'
80C'
80C
80C
80C
80C
80C
X'OfOO'
X'FOOO'
X'OO'
X'OO'
X'OO'
X'OO'
X'OO'
C' PREYIOUS HANG U'

DC

C,P DETECTED'

CNOP

0,4

C4

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• ROUTINE 01 - THIS ROUTINE IS THE PUNCH RIPPLE TEST. 39 CARDS ARE

01
00
FFfE
IB DO
91 40 E 196-,
47 80f C1C
18 -OF.
58 CO 'F 'OEO '
54 CO F ·A64:
50 CO 'F A5C'
9180 'F 'OEa-

0" 0 0
"

C'Uf'
C, COL PUNCHES

40404040404040

I

"

PUNCHED AND THE OPERATION IS fULLY TESTED. EACH ROW ON
A CARD IS INDIVIDUALLY PUNCHED, STARTING WITH ROW 12
IN THE fIRST CARD AND ADYANCING A ROW IN EACH SUCCESIYE
CARD UNTIL ALL NINES ARE PUNCHED IN THE TWELFTH CARD.
THE NEXT 27 CARDS CONTAIN A RIPPLE PATTERN OF THE E8CDIC
CARD CODE.

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ROUTOI DC
X'OI'
ROUTINE NUM8ER
DC
x'oo,
OC
X'fffE' .
SR
R13,RI3
TM'
4061R141,X'40'
BC
NONE,NITWIT
LR
R13,R15 .
NITWIT L
R12,UNITl
N'R12,M0050
ST
RU,PCH
BLOOP' TM'
ISW,X'80'
INn

15JUN61'
130498 '

EC

B' .

C'D

DC
BEAUTY DC

•
•
•
• •
•

15JUN67
130498

00

00lA5C
00lA60
00 lAM
001A68
00lAB8
001808
001858
001BA8
001BF8
001C48
001C4A
001C4C

I

01
C1C3E3
C5El0l
40E205E240E1E140C5
E701
C3U
4003D6C140E1E140E7
E1E7E1E1E140E1

0019CO
0019C1·
001900
001901
001909
0019E2
0019E9
0019F2
0019F9
OOlADO
OOlA09
001A10
00lA19
00lA20
00lA26
00lA2F
00lA32
00lA3B
00lA3F
00lA42
00lA43
00lA44
00lA4D
00lA54 .

10F'0'

E3
40CIC40940E1E1E1El

0018D~

001803
00180C
00180F
0018E2
0018E5
0018EE
00lBF5
0018FE
001BFF
001902
001905
00190E
001910
001919
00191B
001924
001928

DC

PIN 840576
PAGE
8A

2540 PUNCH fUNCTION TESTS - ·SECTION 3 F822

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
1-0 HANDLER WORK AREA.
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ISENSE CCW
X'04',IACSNS+5.X'00',1

001BC~

DATE
EC

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840576
PAGE
- 8

ROUTINE FLAGS -NONEOYERLAY fOllOWS.
ZERO REG 13
CHECK FOR FORCED PR08LEM STATE
BR. If NOT
SET UP fOR PROBLEM STATE
PICK UP THE PUNCH UNIT TABLE.
SAVE ONLY THE PUNCH AODR.
SAVE IT
CHECK fOR HANG UP
10
F822-0
PAGE
8A

o o

0 0 0 0 0 0 0 0 0 0' 0 0

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

00000000 00000000000000000000000000
IBM

MAINTENA~tE

DIAGNOSTIC PROGRAM

PIN 840516
PAGE
9

2540 PUNCH FUNCTION TESTS - SECTION 3 FB22

001tBt
001t90
001C92
001C94
001t96
001C9B
001t9A
001t9t
001t9E
001tA2
001CA4
001tA6
001tA8
OOltAC
001t80
001t84
001t8A
001C8E
001tt2
001CC6
OOlttC
OOlCOO
001t04
001t08
001COE
001tE2
001CE4
001CE6
001tE8
OOlCEA
OOlCEE
001CF2
OOltF6
oOltFC
001000
001004
001008
00100C
001012
001016
001018
0010lA
00101C
00101E
001020
001026
00102A
00102E
001D30
001031
001032
001034
001038
00103t
001040

41 10
OA DO
2419
FF8F
OA DO
AOCIO
FA32
OA OA
90 OCI
OA DO
8001
FF8F
41 60
92 00
92 00
02 OB
45 40
58 CO
41 AO
02 01
91 80
41 80
41 AO
02 01
45 BO
3EOO
0010
FOOO
FFBC
91 80
47 10
96 80
04 01
46 60
41 AO
58 CO
92 40
02 4E
45 BO
3EOO
0010
FOOO
FF'Jt
OA 06
04 01
94 7F
47 FO
01 00
64

F D2E

FC51
96 01
45 50
92 00
47 FO

F
F
F
F

OE8
276
OEB
tB8

001044
001048
00104C
001050
001054
001058
00105C
001D60
001D64
00lD6B

41 80
91 80
47 80
41 80
5080
55 60
47 20
43 10
41 50
42 78

F
F
F
F
F
F
F
F
0
0

A68
C4E
054
AB8
D04
DOO
084
C50
050
000

C 000

0 021
F t4E
F C50
F OF8 F DEC
F 044
FISC
F OCO
F CE8 F EOIt
F C4E
F COE
F OC8
F CE8 F E06
F OEC

F
F
F
F
F
F
F
F
F
F

C4E
020
C4E
OEA F CItA
C8A
OC8
A5C
ABB
AB9 F ABB
OEC

F OEA F CltB
F C4E
F CFC

1A

BC
SVC
DC
DC
SVC
DC
DC
SVC
TlO
SVC
DC
DC
lA
MVI
MVI
MVC
PSIO
BAl
L
LA
MVC
TM
BC
LA
MVC
BAL
BAL
DC
DC
DC
DC
ORIG
TM
BC
01
NC
BCT
COP
LA
L
MVI
MVC
BAL
DC
DC
DC
DC
EXTP
SVC
SUFA
NC
NI
BC
HANGUP SVC
DC
DC
DC
01
BAL
MVI
BC

2540 PUNCH FUNCTION TESTS - SECTION 3 FB22

All,HANGUP
X'OO'
X'2419'
Al2IRCFP-SECNO+REGI
X'DO'
X'AOOO'
Al2IMOR-SECNO+REGI
X'OA'
0lRl21
X'OO'
X'8001'
Al2IRCFP-SECNO+REG)
R6,39
KEYSW,X'OO'
GENDAT,X'OO'
PARAMI121,ROW
R4,INOAT
R12,PCH
RIO,WRTl
ORIGI21,FIR
KEYSW,X'BO'
NONE,BAl
RI0,WRT2
ORIG(2),SEC
Rll,ISlo
X'3EOO'
X'OOlO'
X'FOOO'
AL2IEXPI-SECNO+REG)
KEYSW,X'80'
AlL,SUFA
KEYSW,X'80' DATSWI21,RESET2
R6, PSIO
RIO,WRT2
R12,PCH
PCH2,C' ,
PCH2+11191,PCH2
RU,I SID
X'3EOO'
X'OOlO'
X'FOOO'
AL2IEXP2-SECNO+REG)
X'D6'
DATSW(2),RESETl
KEYSW,X'lF'
UNC,CDP
X'DO'
X'64'
X'IA'
AL2 I HUNG-SECND+REG I
ISW,X'Ol'
R5,I00SNS
ISW,X'OO'
UNC,BLOOP

BR. IF DETECTED
TELL OPERATOR TO REMOVE CDS
FROM STACKERS.
PRINT MAKE DEVICE RDY.
-HALTTEST 1-0
PRINT A BLANK.
PUT 39 INTO REG 6.
INITIALIZE TO 1ST DATA AREA.
ZERO INITIAL EBCDIC CHARACTER.
INITIALIZE PARAMETERS.
BR TO GENERATE DATA.
PUT PUNCH AOOR INTO REG 12.
PUT CMO AODR INTO REG 10.
MOVE AOOR OF EXP CSW INTO PARAMS.
SEE IF 2ND AREA SHOUl.D BE USED.
BR IF NO.
PUT 2ND AREA CMD ADOR. INTO-REG 10.
MOVE AOOR OF EXP CSW INTO PARAMS.
BR TO ISSUE START 1-0.
CTRl SWITCHES
TEST
NUMBER
EXP CONO. CODE AND SENSE.
EXP CSW AODR.
SEE IF 2ND AREA USED LAST
BR IF IT WAS
TURN ON THE SW IF NOT ON.
RESET AREA 2 CONTROL.
BR UNTIL ALL CARDS PUNCHED.
PUT CMD ADOR INTO REG 10.
PUT PCH AOOR INTO REG 12.
PUT A BLANK INTO DATA AREA.
BLANK OUT THE RE-ST.
BR TO ISSUE START 1-0
CTRL SWITCHES
TEST
NUMBER
EXP CoND CODE AND SENSE.
EXP CSW ADDR.
ROUTINE EXIT
RESET AREA 1 CONTROL.
TURN OFF 2ND AREA POINTER.
BR TO CONTI NUE
PRINT
-PREVIOUS HANGUP CETECTEDTURN ON ERROR SWITCH.
BR. TO OUTPUT AVAILABLE INFO
RESET HANGUP SWITCH

••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
GENERATE PUNCH DATA HERE
•• *....................................................................

DATE
EC

15JUN61
13049B

_.- ---------._-------- ---

INDAT

LA
TM
BC
LA

LA5

ST

Pie

CL
BC
IC
LA
STC

--._--------

PIN 840516
PAGE
9A

IBM MAINTENANCE DIAGNOSTIC PROGRAM

RB,PCHI
KEYSW,X'80'
NDNE,LA5
R8.PCH2
RB,DATAO
R6,TWl
HltLA52
Rl,GENDAT
R5,SO
Rl,OIRBI

PICK UP 1ST PCH AREA AOOR.
SEE IF 2ND AREA AVAILABLE.
BR IF NOT.
PICK LIP 2ND PCH AREA ADDR.
SAVE THE BUFFER ADDR.
SEE IF REG 6 IS 21.
BR IF HIGHER.
PICK UP 1ST EBCDIC CHAR.
PUT 80 INTO REG 5.
STORE THE CHARACTER. INTO THE BUFFER.
10
F822-D
PAGE
9

00106C
001070 001D74 001078 .
001D7C
001D82
0010B4
OOlOBA
001D90
001096
00109C

41
41
46
5B
02
07
D2
02
02
02
01

001DAO
0010A8
0010BO
0010B8
0010CO
OOlOCB
001000
001004
00100B
OOlOEC
0010F5
0010FB'
OOlEOl
001E04
001E06
OOlEOB
OOlEOA

C2 001BA8
C2 001BF8
C6 OOlBOB
C6 001B58
01 001A6B
01 001AB8
0000001B
00000000

OOlEOC
001H4 _
OOlHC
001E24 001E2C
001E34 '
001E3C
001E44
001E4C
001E54
001E5C
001E64
001E6C
00lE74
001E7C
001E84
00lE8C
001E94
00lE9C
001EA4
001EAC
00lEB4
OOIEBC
001EC4
OOlECC
001E04
001EOC
001EE4
OOIEEC
00lEF4
OOIEFC
001F04 001FOC
001F14
DATE
EC

710 001
88 0:001
50 F 06B
80 F DD4
00 F C50
F4
00 8 000
4E 8 001
OA F DF8
00 F E03
F4

R7,lIR11
R8,l1R81
R5,PIB
R8,DATAD
GENOATI11,1IR81
UNC, R4
011,R81,PARAM
1119,R81,0IRBI
PARAMll11,PARAM+1
PARAM+11111,0IR81
UNC,R4

DGRD2
CHRDI
CHRD2
WRTI
WRT2
TW7
DATAD
TWENTY
ROW

CCW
CCW
CCW
CCW
CCW
DC
DC
OS
DC

X'C2',RD2,X'2Q',BO
X'C6',CRD1,X'20',BO
X'C6',CRD2,X'20',BO
X'Ol',PCH1,X'20',80
X'Ol',PCH2,X'20',BO
F'27'
F'O'
20C
X' 5060FOF IF2F3F4F5F6F1FBF9' -

PARAM

DC

X'5060FOF1F2F3F4F5F6F1F8F9'.

FIR
SEC
C2
C6

DC
DC
DC
DC

AL2IEXP1-SECNO+REGI
AL2IEXP2-SECNO+REGI
C'C2'
C'C6'

DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC

X'B03901881841821B'
X'11809B0580390388'
X'3B43823B1380BB07'
X'D035014814414214'
X'l140940540350348'
X'344342341340B401'
X'7033012812412212'
X'l120920520330328'
X'324322321320B201'
X'F031010810410210'
X'1100900500310308'
X'304302301300B001'
X'OOOB01A81A41A21A'
X'llA09A05A0390288'
X'284282281280AB06 t
X'BOODOICBIC41C21C'
X'11C09C05C0350248'
X' 244242241240A406'
X'4003006816416216'
X'11609605603302CO'
X'024222221220A206'
X'EOOFOIE81E41E21E'
X'11E09E05E0310208'
X'204202201200A006'
X'B02BOOABOA40A20A'
X'lOA08A04A02AOIAB'
X'2A42A22A12AOAA06'
X'D02DOOCBOC40C20C'
X'lOCOBC04C02C01CB'
X' 2C42C22Cl2COAC06'
X'1021006806406206'
X'106086046026016S'
X'264262261260A606'
X'F02FOOESOE40E20e'

8 001
F
8
F
8

OF8
'000
DF9
000

2000 0050
2000 0050
20000050
2000 0050
2000 0050
2000 0050

5060FOFIF2F3F4F5F6
F7FBF9
5060FOFIF2F3F4F5F6
F7F8F9
FFBC
FF9C
C3F2
C3F6

B03901B81B418218
I1B09805B0390388
384382381380BBOl
D035014B14414214
1140940540350348
344342341340B401
1033012812412212
1120920520330328324322321320B201
F031010810410210
110090050031030B
304302301300BOOl
000BOIABIA41A21A
1110910510390288
2842822812801806
800D01C81C41C21C
l1C09C05C0350248
2442422412401406
4003006816416216
11609605603302CO
024222221220A206
EOOFOIE81E41E21E
11E09E05E0310208
204202201200A006
B02BOOl80140A20A
10A08A04A02AOIA8
2A42A22Al2AOAA06
D02000C80C40C20C
10C08C04C02COICB
2C42C22C12COAC06
1027006806406206
1060860460260168
264262261260A606
F02FOOE80E40E20E
15JUN61 :
130498 .

lA
LA
BCT
L
MVC
BCR
MVC
MVC
MVC
MVC
BCR

LA52

ADD 1 TO THE DATA 8YTE
ADD. ITO BUFFER ADDR.
BR UNTIL FUll BUFFER.
PICK UP START OF BUFFER ADOR.
MOVE THE lTH CHAR FOR NXT CARD.
RETURN.
.
MOVE CHARACTER TO PUNCH DATA AREA.
FILL BUFFER WITH SAME CHARACTER.
SHIFT PARAMETERS OVER.
RESTORE 1ST ·PARAMETER TO LAST POSe
RETURN TO MAIN ROUTINE.

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
CCW AREA
•OGROI
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
CCW
X'C2',RD1,X'20'.80

•

••

HOLES

,
\'-,

"

EXP CSW ADOR.
UP CSW AODR.

*•••••••••••••••
HOLES TABLE •

•••••••••••••••

.
.

.
.

10
F822-0
PAGE
9A

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840516
PAGE
10

2540 PUNCH FUNCTION TESTS - SECTION 3 F822

OOlFlC
OOlFZ4
001F2C
001F34
001F3C
OOlF44
00lF4C
001F54
00lF5C
001F64
001F6C
001F74
00lF7C
001F84

IOE08E04E02EOIE8
2E4ZE22E12EOAE06
A009008808408208
10808804802801A8
3A43A23A13AOBA07
6005004804404204
10408404402401C8
3C43C23C13C08C07
2827012802402202
1020820420220168
3643623613608607
2001000800400200
10008004002001E8
3E43E23E13E08E01

00lF8C
001F90
001F94
001F98
001F9C
OOlFAO
00lFA4
OOlFA8

000010e8
08000000
00000000
04000000
00001DOO
08000000
00000000
04000000

001FAC
00lF85
001F86
001F8F
001FC8
OOlFCF

40C4C9CIC140e3D4C4
40
C3F640C6CIC903C5e4
40e4D640D5D607D9D6
68C5D4D1E3E840
Dle3C840E2E3D2D9E2

15JUN67
130498

PROGRAM

PIN 840576
PAGE
IDA

2540 :PUNCH FUNCTION TESTS - SECTION 3 F822

X'lOE08E04E02E01E8' .
X'ZE4ZE22E12EOAE06'
X'A009008808408208'
X'10808804802801A8'
X'3A43A23A13A08A01'
X'6005004804404204'
X'10408404402401C8'
X'3e43C23C13C08C07'
X'Z821012802402202'
X'10208204202Z0168'
X'3643623613608601'
X'ZOOl000800400200'
X'1000800400Z001E8'
X'3E43EZ3E13E08E01'

000001
000008
000009
OOOOOA
000008
oooooe
'000000
OOOOOE
OOOOOF
000198
000040
000048
OOOlAO
000189
00018C

••••••••• *•• ** •• *••••••••••••••••••••••••••••••••••••••••••••••••••••••
•

EXP CSW AREA

EXP2

DC
DC
DC
DC
DC
DC
DC

X'08000000'
XL4'O'
X'04000000'
AIWRT2+8)
X'08000000'
XL4'O'
X'04000000'

DC
DC

C'C6 FAILED'
C' DO NOPRO.EMPTY •

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
EXPI
DC
A(WRTl+8)

000000
000001
OOOOOF
000008
000004
000001
000005
000008
000004
000002
000001
OOOOOA
000006
000008
000004
000002
000006
oooooe
OOOOOA
000080
000181
OOFOOO
00005A
OOlAOO
000000
000001
000002
000003
000004
000005
000006
DATE
EC

DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC

i IBM :MAINTENANCE OlAGHOS! IC

Rl
R8
R9
RlO
Rll
R12
R13
R14
R15
WT
HCSW
HCAW
DMSSW
DMIOl
OMPTR

EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
END

1
8
9

10
11
12
13
14
15
408
64
12
X·OlAO·
X'0189' .
X'018C' ;
ROUTOI

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
MESSAGES
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
DCA
DC
C' DIAG CMD '
XX
RCFP

DC
C'PCH STKRS'
.......................................................................
•
EQUATES
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
NEVER EQU
o
NCCO
UNC
NONE
SOME

EQU
EQU
EQU
EQU
ALL
EQU
ANY
EQU
CCO
EQU
eCl
EQU
ecz
EQU
CC3
EQU
eC02
EQU
ee12
EQU
EQ
EQU
LO
EQU
HI
EQU
UNEQ
EQU
EQLO
EQU
EQHI
EQU
LOGOUT EQU
SYSMOD EQU
REG
EQU
WHAT
EQU
WORK
EQU
RO
EQU
Rl
EQU
R2
EQU
R3
EQU
R4
EQU
R5
EQU
R6
EQU

7

15
8
4
1

5
8
4
2
1

10
6

8
4
2
6

12

10
X'80'
X'181'
X'FOOO'
90
GOODY

o
1

2
3
4
5
6

10
F822-0
PAGE
10

DATE
EC

15JUH67 ;
130498

10
F822-0
PAGE
IDA

..-

0000000000000000000000000000000000

o

0
..

IBM MAINTENANCE DIAGNOSTIC PROGRAM

fI'N

PAGE

840576
11

2540 PUNCH FUNCTION TESTS - SECTION 3 F822

0
1

R1

1

2

R2

1

3

R3

1

.

R..

1
1
1

5
6
7

R5
R6
R7

1

8

R8

1

.
1
9
1

1
It
16
4
4
4
1
1
1
1
4
4
8
It.
10
2
8
4
2
4

.
2

DATE
EC

--_._.

15JUN67
130lt98

.

C2
C6
EQ
HI
LO
RO

9

R9

16fO
198
1F86
1

TF
liT
XX
ALL

5
lCOE
1987
178C
1780
1048
8
It
2
1
16E8
lCFC
1040
1580
IFAC
lE04
1985
1528
100A
1164
ll2E
10E8

ANY
BAL
8IG
ClA
C2A
CAW
CCO
CC1
CC2
CC3
CMI
COP
CSII '
CTO
DCA
FIR
HOI
ICO
ICM
IFM
IHI
IS11 .

176C
160 ..
129C,
105C
10F2,
1580,
17FE,
150E,
17FA,
1560,
118E,
1806,
156",
160 .. ,
11C .. ,
184C,
15AO,
lCA8,
1146.
151C,
1692,
1276,
1352,
1.. 6C,
10"",
101C,
10F2,
1220,
1582,
16CO
112E,
16D .. ,
ll06,
12AC,
1570,
16CO,
lCEE
1598,
1COO
17AC,
1758,
1750
113A,
117C,
1180

.

It
13
It
4
It.
It

U1E
1582,
1508,
1802,
15Ft,
180E,
1574,
11EE,
180A,
1578,
16FC,
11C6,
1C8A,
1038,
1CFC,
1152,
15CO,
169C,
12A4,
1370,
1470,
1050,
108",
112E,
140E,
166",

1148,
161",
1806,
15FC.
1828,
1588.
11EE,
180E,
158C,
170e,
17FO,
1082,
106",
1058
1156,
150",
1704,
1280,
1370,
1..70,
105",
108A,
1132,
143C,
1668,

118A,
176C
llltE,
12E8,
15AO,
1600,

1664
1182,
12F4,
161E,
16EC,

llEA,
1301t,
1626,
1768,

1242,
131C,
163A,
1784,

1798.

15FO,

15F8,

16C8,

1760,

1810

1824,
17EA,
181",
160C,
1836
15CC,
17F .. ,
1820,
1500,
171C,
17FA,
109C
107 ..
127A,
15E2,
1060,
12FC,
1374,
1..7 .. ,
1068,
108A,
113E,
147E,
1680

1830,
IlEA,
1818,
11C ...

183E,
17F8,
182C,
17EC,

184C
17Ft
1830
11EC

15E2,
I1F8,
1828,
15EC,
172C,
181C,

1600.
17FC,
1842
15F .. ,
173C,
1836,

1600
17FE

128.. ,
1608,
1068,
1308,
138A,
15 .. 8,
1070,
1096
118A,
1496,

1568
1684
106C
134E
1468
166C
1018

118E,
IltAE,

UCA
14C6

16lt2,

It,
4
It,
1

1604
171t8
183A

130C.
1608,
106C,
1330,
138E,
150C,
1070,

1262,
1392,

.

.. :

1282
130A
1698 '
lC8C

1790
lllA,
115E,
1102,

15AE
1054
lA32
1738
1728
11 ..8
1118
183E
1108
lA5C
1068
1828
A

IUP
LA5
MOR
NAC
N8P
NTC
NXL
NXl,
NXU'
PCH
PI8
PIK
RIO

1

8

R11

1

C

R12

1

0

R13

1

E

R14

1:
1
1
1

F
18A8
18F8 '
FOOO

ROI
R02
REG

12
2
It
2
It
4
4.
1

10EC
16 .. E
1201t
lE06
12DC
1000
15F..
F

ROil
RRM
S82
SEC
T05
TII7
TXS
UNC

IUS

1782
1784
4
4
4'
4
1
1
6
6'
It:
4
1
1:
1
8

1178
167C

1682
102A
1570
160E,
1CC6
17AO
14F8

1776

1

1122
115E,
UE2,

~"'''''''_~4''_''''.~

... .•.. ___
~

~_

-

_........ -..-'.........

P'N 840576
11A
PAGE

2540 PUNCH FUNCTION TESTS - SECTION 3 F822

REFERENCES TO DEFINED SYM80LS.
lE08
lEOA
8
2

_ _ , .• ,......," ._.................,,,_"""'_,,....•.. _. ____ ,.....

IBM MAINTENANCE DIAGNOSTIC PROGRAM

POST ASSEMBLY DATA.

2
2
1
1
1
1
1

~.

1164,
11E6,

1l9E,
llF4,

11AA,
1224,

1186,
1232,

1
4'
It'
2

11C2
123E
10
F822-0
PAGE
l1

DATE
EC

15fC
lA60
1328
16C..
A
6
15E2
10F6
16F8 '
1794 '
1808
1858
lCItO
1898 .
A
C'
IF8C'
lF9C'
101E

15JUN67,
130lt98

UP"
ATEl
8TCO
e1eR
CC02
CC12
CODA
eONP
COPT'
CPRT'
CR01
CR02
CRSW
08110
EQHI '
EQLO
EXP1 :
EXP2
EXTP,

1246,
1288,
1368,
1530,
168E,
15A6
10 ..C
1652,
1730
1720
1600,
1710
1832
1700
lC8 .. ,
107 ..
18 .. 2
110A.
lCC2.
10EC,
134E,
1306.
15AA,
1116,
1678,
10F6,
1686,
10FC,
1C72
HEE,
1568,
157C,
120E,
1.... E,
165E,
1788,
1032,
1CM
1282
12C ..
lCD8
131C
1058
161E.
112A,
llF8.
12F8,
162E,
177C,
163A,.
160C
1314
16EC
1610
1660,
16C8
1760
1578,
1564,:
ll68,
17C6,
lCE8,
101C,

1286,
12FO,
1.. 82,
1622,
103C

128E,
1310,
1482,
162A,

1292,
1324,
IltOO,
163Et

12AO
1346
1528
1646

1.. 08,
1000
1236,
13A6,
145A,
15AE,
1136,
lC80,
110A,
lC70,
112E,

1.. 12,

IltlA,

141A,

1590

124E,
138E,
1..68,
15AE,
ll7.. ,
1C8.. ,
U56,
1C7A
118A,

1296,
13CO,
1.. 9A,
1586,
110A,
1C9E,
1198,

1334,
1302,
l ..CA,
1COE,
1656,
1C8E,
1590.

133E
1302
15A2
1012
1670
1004
166C

14F .. ,

14FC.

1664

11FC,
15CO,
150",
1388,
14E4,
160E,
184A,
lEOIt,

122C,
10AO
10A8
1300,
14F2,
1776,
1C94,'
lE06

lC7A
13EA,
1526,
17AO,
lC9A.

13FC,
1588,
17A6,
lCA6,

143A,
158E,
17AC,
1CE8,

1446
1652
1782
101C

162E
ll42,
1228,
141E,
16ltA,
1788,
164A,

ll5A,
124A,
143C,
1660.
1850,
1850

1188.
1200.
102A;

1190,
1208,
1586.
1692,
1040,

llA2,
12EO,
150C.
169C.
1082,

1106
12EC
1614
16EIt '
109C

1764,
l10E,

1778 '
1818.

182C

1256,
12CC,
1382,
1538,
1C88,

1266,
12E .. ,
138E,
159C,
1034,

165E,

1C9A

16E4,

17 .. 0

lC8E.

1004

13EC.
lCO...
llAE,
1360,
143E,
15AA,
1126,
lC1C,
10F6,
lC70,
10FC,

1531t.
1681t,

1698
15BC,
1500,
16CC,
17CA,

1080
1088
16EO,
1704,

IE04 '
lE06

F822-0
10
11A
PAGE

_.

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840S76
PAGE
12

2540 PUNCH FUNCTION TESTS - SECTION :3 Fa22

4
1
1

9
1

16
:3

4
6
12
3
4

1136
48
40
1980
lC4C
le51
18FF
153B
1334
1803
18E2
150E

113E
110.11,
101'6,

1156,
lOF6,

1590.
1198,

HOlt.

16116.

1686,

17M

HOSW
HUNG
!ACT
18CO
16SN
ICAW
ICCW
ICDT
ICNT

116(.

154G,

1794.

1032
12111,
I52C

14811,

14811

13F4,

13F6,

1508
1404,
1450

1456

3
4
3
4
4
2
4

llAA

INO.,

4
4
6

1236
1194
14CII

lONE

I>

nilE

4
ft
6
6
4
4

12FC
1241:
10Ee
122C
1660

6

11FC

6

USE
1064

6
1
1

1
1
1

ICSW

1216,

1210.

!OIO

149E

lEX?
If-UR
IGOP

1462,
125.11,
1626,

14A2

1188,
llFB
IHC

1190,

INn

' I PAS

IPDA
ISCR
ISEN
ISIO
ISV2

2

"4

16

4
4
1

4

"3

1 •

4
11

4
4
6

"

4

"

IT Ie

usc

nwo

lA42
lA43
7
WOO

DATE

Ee

1686

1
16

1272,

128C,
11B2,

8
8
4.
8
8
4
2

HI'C

8
8
'I

12ge

121111 •

leOE.
ilEA
168/\
UBO
HOE

l11A,

16'14

1112,

1122,
128C,

PCH2
PRES
PRGO

191H
18',6
lCBA

PSIO

IFBF

1324
12(C
iS4C

100C
1554
1004
4
1050
1156
19/1C
15D8
15B8
1020
1146
16CC
175C

1
1

NIOlJ
NONE

PClH

RCfP
RRSl
RRS2
RSRG
SOMF
SIPP
SNSW
SOME

1
1

11A2

4
4
1200
1106,
1012

1140,
lO4C
lCC6,
1560,
1574,

136t,
1404,
1682,

1750,
lCOS
1588,
15CI:.

16 .
1231\,

Inc

1540
1102,

HOE,

12311,
12C4,
139A,
152e.
16F4,
1758,

1540,
1100,
1190.

1044.

UleD

1008,

lODe.

1252,
1314.

125A.
132C,
145E,
1558,
1110.

1416,

1£132.

lOOC.

1261\,
1342.
1486,
15A6,
1720,
lC76,

1050,

1212

134A
1"9E
15e8
1130
lCOO

lOC8

1594

1391'>.

SRET

srco
$TKl

B4E
16A8

SUIP
SUCP
SUFA
SUlP
TPNC
TSRO

1330,
ICEE
n06
16F4
11'68

UIOP

lOCO
10CB
lCB8
lOBO
1088
1004
lOEA

WRll
WRT2
8l00P
CHROI
CHR02
OATAO
OATSW

10.110

DGROI
DGR02
DMIOL
DMPTR
DMSSW
ERPRE
ERPRS
FLAG1
FlAG2
GOOOY

10116
189
l8C
lAO.
1632
1616
IOOE
lOOF
lAOO

llDE,

133A,

135C,

14F8.

15E8,

1610

11FG,
1478,
1508,
1146,
1152,
1040
12BO
12.114
1054,
12C8,
1554,
16C4,
1308
12FC

1408,
1490,
150.11,
1CC2,
lC04,

1426,
14A8,
1510,
1F8C
1000,

1428,
14A8,
1516.

142.11,
14CO,
I51C

1430,
14FC.

1418
1506

1018
1204,
155C.
16FO,

120C.
1616,
174C,

1320,
161A,
175C.

153C.
1632,
118C.

1544,
1636,
lCF6,

1550
16AE
1020

16A2,
1124,
17EO,
1806

16112,
1728,
11E8,

16F6.
1734,
1636,

1704,
1736.
184A,

1708,
1744,
IF08

1714

12lA,
148.11,
140E,
HEE,
126E,

13FE,
14A2,
147E,
125E.
1376,

142A,
148.11
1496,
1356,
1318,

1430,

143A,

1450

14AE,
1356,
14CO

14C6
1490

115A
13CB,

13CA,

noD,

158E

1142,

1596

12F4,

133.11,

134A,

135C.

1510,

1516,

151e,

1526

15F8
15E8,

8
4
16

lEoe
1694
IDE5

HOLES
18ACK
IBLAH

2
8
8
4
4
16
4.
4
4
4
5
3
6
16
16
4
4
4
4
16
4
4
1

1422
1888
1890
1482

ICOUT
ICS.,l
ICSW2
10101
IHANG
IUNK
IlOKE
IlOOP
INOAT
INOER
INPSW
10AOR
IOCSW
IOLOG
IOPll
IPASS
ISAVE
ISSUE
ISTRT

lC4E

IWAIT
IZERO
KEYSW .

4
1
12
4

lA64
0
10F8
1000

140050
NEVER
PARA'"
SECNO

1

IDEO

UNIT1.

1116

180
1686
1102
1044
1382
1010
lA3F
1450
1918
1940
14F4
1860
1114
1664
!Aft4
U8A
11116

IUNEX

15CII

1548

15JUiI!67
130498

F822-0
ID
PAGE
12

DATE
EC

169E,
17FE.
1674
1210.
1462,
1220,
1198,
122C,
145E
112A,
13CO,
161C
113A,
lCBA
I2E8,
l3E2
BOA
150.11,
1586
1404
lOF2,
lA3F
127A,
1208,
124.11.
1178
114A,
168C,
ICF2.
lC80

,0 0 0 0

nCA

136C

1582

1C84,
1206,
13CA,
13FC.
140E t
1526,
17AO,
l1E6,
101C,
!C1C

1284,
120E
1534

l3.0C

12.118,
16E8.
1026,

12CO.
1754,
1048

1300,
1180,

1316,
lCAC,

156C.
ICCC,

15C4
ICEA

1084,
1208,
1300.
1426,
14E4,
1588,
11A6,
17E8,
ID32,

1090.
120E,
13E2,
1428,
14EA.
158E,
11AC,
184A,
lE04,

1090,
1380,
13E4,
143A,
14EC,
1652,
1782,
lC94,
IE06

1096
l3.62.
13EA,
1448,
14F2,
165E,
1788,
1C9A,

1388,
13F4,
144E.
1506.,
160E t
170E t
lCA6,

13C8
13F6
140C
1508
1176
nED
ICE8

15JUN61
130498

ID

PAGE

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

,r)
'(.

IF9C

15FO

1118,
1100,

leA6

HU;,

U20P
UNEQ
WHAT
WORK

12'>2

16116

leFC
1C94,
12EO
1200
1768,

IOE5
6
5A
lAOO

171lA

1M2

lllZ
lOSC
HC6
UCE

OHIG

lCES
11\68
lABS

WEl

1261\,

HJ 10
JOHN
lAS2
MSKl
M5K2

Neca

II

1

122C.

1486
1198

168A,

1
1
11

11FC,

IN IT

128A,
1364,
1466,

2

1
1

166C
HEE.

B2G

BEC,
13FE
1580,

PIN 840576
PAGE
12A

2540 PUNCH FUNCTION TESTS - SECTION 3 F822

GREG
HCAW
HCS.,

1439
lBOF
14B2
1902
12114
169E
lC70

1

IBM MAINTENANCE DIAGNOSTIC PROGRAM

4¢#

e

4M

(0 iO <0 0 10 0
,0
:0
0
0
0
()
0
0
\.
.
0
0
0
'0
0 0 0 '0
'.'.

I.,

'

I

Ii

I,'

rt')
II

F822-0
12A

,*;;¥JWiiIf'I'~~_:,,,,,,~.

0 ,0 0 0 0 (0
..
'

!,

t

PIN 840576
PAGE
13

IBM MAINTENANCE DIAGNOSTIC PROGRAM
15~0

o

coco

o

10E4
1909
1058
1018
lC50
IDlE
1910

UNIT2
BEAUTY
EXNPSW
EXOPSW
GENOAT
HANGUP
IACSNS

6

18AA
13()C
12B4
143E

6

13~6

6

1378
1418
14A8
lC4F
1408
1216
1386
18AO
1905
1366
1586
15A2
14FC
149A
12E4
12FO
1884
1018
1038
1584
13A6
110A
1858
1678
1937
80
1070
1030
lC7C
1068
1028
lA26
lC48
lC4A
lC6C
1060
1020
181
1008
10E2
10E6
1000

IACTCC
IASIOI
145102
ICCOUT
ICCSWI
ICCSW2
lCHNGI
ICHNG2
ICOOAT
ICI/OUT
100SNS
IOUNCK
IEXPCC
IEXSNS
IFLAGI
IFLAG2
ILEAVE
ILOGEO
IMORST
INOEXl
INOEX2
10ADDR
IONPSW
100PSW
10POUT
lOUT IT
IRElRN
ISENSE
ITIOlP
ITSTNO
lOGOUT
MCNPSW
MCOPSW
NITWIT
PGNPSW
PGOPSW
PUNCHS
RESell
RESEl2
ROUTOI
SVNPSW
SVOPSW
SYSMOO
TWENTY
UlAOOR
U2AODR
XF8220

1

16
5
8
1
2
11

10
It
~

6
6

1
6
~

4

10
11
1

1
4

6
~

4
4

15
4

8
2

6
4
8
4
9

1
8
B
4

8
8

12
2
2
1
8
8
1
1
2
2
1

1788

3 F822

8220

1060,

107C

127E,
1858
118C,

1296,

1328,

1194,

11A6,

llOA,
1558
1392
107C
1276
1680
lOEC,
10FC,

1206

001000
14EA,

l~EC,

I~F2

1~4E

001000
·001015
001015

001810

001038
1262,
12F8,
1448
140C,
139E
13A2

1038
137E
14DE,

2540 PUNCH OVERLAY SECTION

00107C

USING .,15

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••
•••••••••••••••••••
• SECTION PREFACE ••••••••••••••••••••••••••••••••••• SECTION PREFACE.
•••••••••••••••••••
•••••••••••••••••••
SECNO OS
F
SNSW

00100~

17F4

TITLE

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
XF8220 START 4096

lC80,
lC8C
1170,
1694,
1184,
1304
12AC
1416
1352
1374
146C
1474
178E,
141E
1252,
12EC,
143E,
14CA,
1386,
138A,
139A
1228
1486
1342
1364
13E4,

17E6,

001038
00101C

OOOOllOE

0010EO
0010E~

0010EO

OS
ORG
DC
ORG
IOOPSW OS
DRG
DC
ORG
UNITI OS
UNIT2 OS

F
SECNO+21
Al3 I ROUT02 I
SECNO+56
F
SECNO+ 12~
Al411RETRNI
SECNO+22~

ORIGIN INITIAL PSW ADDRESS.
AOOR OF ROUTINE PREFIX.

1-0 RETURN ADDRESS.
ORIGIN AFTER SECTION PREFACE.

F
F

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
OPTIONAL FEATURE 8YTE DEFINITION
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• • 8IT 0 • 81T 1 • 8IT 2 • 81T 3 • 8IT 4 • BIT 5 • 8IT 6 • 8IT 7 •

14E4

• • HEX 8 • HEX 4 • HEX 2 • HEX 1 • HEX 8 • HEX
• 51
• 1400.
• • ASCII. CARD.
••
• IMAGE.
• COL RD. COMP.
••
•
•
•
•
•

~

• HEX 2 • HEX 1
•
• 2821
•
• 2 CHN
•
• SW.

•
•
•
•

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
2540 READER SENSE 8YTE
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
8IT
MEANING

13EA

13A6,
10FC,

V
I"t

PIN 840516
PAGE
13A

IBM MAINTENANCE DIAGNOSTIC PROGRAM
25~0 PUNCH FUNCTION TESTS - SECTION
25~D PUNCH OVERLAY SECTION

PUNCH FUNCTION TESTS - SECTION 3 FB22

"U! 0".' O',',' C,·,

1380,
14FC

13B2,

•
•
•
•
•
•
•
•

13B8

0
1
2
3
~

5
6
1

COMMAND REJECT
INTERVENTION REQUIRED
8US OUT CHECK
EQUIPMENT CHECK
DATA CHECK - VALIDITY CHECK - INVALID CARD CODE
OVERRUN - NOT USED
UNUSUAL COMMAND SEQUENCE-2 READS WITHOUT INTERVENING FEED
NOT USED

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
2540 READER STATUS 8YTE
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
BIT
MEANING

lC76
1828
1020
lCF6
1015,

IFD8

14F4
1748,

1841:

•
•
•
•
•
•
•
•
•
•
•

0

1
2
3
4
5
6
1

ATTENTION - 1400 COMPATIBILITY FEATURE ONLY - INDICATES
SENSE WAS ISSUED BEFORE 6 MS TIME OUT AFTER
A 1400 COMPATIBILITY READ.
STATUS MODIFIER - 2 CHANNEL SWITCH FEATURE ONLY
CONTROL UNIT END - 2 CHANNEL SWITCH FEATURE ONLY
DEVICE 8USY
CHANNEL END
DEVICE END
UNIT CHECK
UNIT EXCEPTION - LAST CARD PREVIOUSLY READ, AND END OF
FILE WAS ON •

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
2540 READER DIAGNOSTIC CHECK READ BYTE DEFINITION
.......................................................................
•
•
•
•
•
•
•
• .
•

NO ERROR DETECTED IN ABOVE ASSEMBLY

DATE
EC

15JUN61

__ __._-----

130~98

._...

...

10
F822-0
PAGE
13

DATE
EC

15JUN61
130498

BIT
0
1
2
3
4
5
6
1

MEANING
NOT USED
NOT USED
NOT USED
XU CHECK PLANE
XL CHECK PLANE
8UFFER PARITY CHECK
READ TRANSLATE CHECK
READER 8UFFER ADDRESS CHECK
10
F822-0
PAGE
13A
.$I • •

o o o c

PIN

IBM MAINTENANCE DIAGNOSTIC PROGRAM

8lt0576

P~GE

lit

25ltO PUNCH FUNCTION TESTS - SECTION 3 F8l2

IBM MAINTENANCE DIAGNOSTIC PROGRAM
25ltO PUNCH FUNCTION TESTS - SECTION 3 F822
25ltOPUNCH OVERLAY SECTION

25ltO PUNCH OVERLAY SECTION

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
PARAMETERS USED TO ENTER
•

•

11
MUST BE USED AS LINK REG TO THIS ROUTINE
•••
12
MUST CONTAIN DEVICE ADDRESS
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ISW
DC
XL2'0'

THE 1-0 HANDLER ROUTINE

••••••••••••••• t •••••••••••••••••••••••••••••••••••••••••••••••••••••••

•
•
•
•
•
•

8AL
DC
DC
DC
OC
DC

Rll,ISIO
XL2'OOOO'
X'0014'
X'FO'
X' 00.
Al2tADR-BASE+REGI

LINK TO 1-0 HANDLER
CONTROL SWITCHES
TEST NO. IN DEC EXPRESSED IN HEX
EXPECTED CONDo CODE
EXPECTED SENSE DATA
ADDR. OF eXPECTED CSW IF NEEDED

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
1-0 HANDLER CONTROL SWITCHES
•

2 BYTE PARAMETER FOLLOWING 8AL

••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• ** ••••••••••

• SWITCH
•
0
•
•
•
•
2
•
•
3
•
•
4
•
•
5
•
•
6
•
•
8
•

DESCRIPTION
OFF - ISSUE AN 1-0 COMMAND
ON - DO NOT 1 SSUE AN 1-0 COMMAND
OFF - ENABLE
ON - DO NOT ENABLE
OFF - EXPECT NO INTERRUPT
ON - EXPECT AN INTERRUPT
OFF - DO NOT EXPECT 2 INTERRUPTS
ON - EXPECT 2 INTERRUPTS
OFF - EXPECT NO CSWS
ON - EXPECT A CSW
OfF - DO NOT EXPECT 2 CSWS
ON - EXPECT 2 CSWS
OfF - ALWAYS TRY TO ISSUE SENSE
ON - SENSE ON UNI T CHECK ONLY
OFF - DO NOT ISSUE 2 DIAGNOSTIC CHECK READ START 1-0 CMOS
ON - ALWAYS ISSUE 2 DIAGNOSTIC CHECK READ COMMANDS

••••• **•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••••••• *••••••••••••••••••••••••••••••••••••••••••••••
•

SWITCHES USED BY 1-0 HANOLER

••••••••••••••••••••••••••••• *•••••••••••••••••••••••••••••••••••••••••
• SWITCH
•
0
•
.•
•
•
2
•
•
3
•
•
4
•
•
5
•
•
6
•
•
7
•

DESCRIPTION
OFF - NO HANGUP ON INTERFACE
ON - HANGUP OCCURRED
OFF - NO CSWS STORED
ON - ONE CSW STORED
OFF - SECOND esw NOT RECEIVED
ON - SECOND esw RECEIVED
OfF - DID NOT ENABLE
ON - ENABLED ONCE
OFF - 010 NOT ENABLE TWICE
ON - ENABLED TWICE
OFF - NO SENSE DATA RECEIVED
ON - SENSE DATA RECEIVED
OFF - NO UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE
ON - UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE
OFF - NO ERROR DETECTED
ON - AN ERROR WAS DETECTED

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
REGISTERS USED IN 1-0 HANDLER
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
REG
COMMENTS
•

5

USED AS LINK TO ERROR OUTPUT FROM INITIALIZE ROUTINE IF
PREVIOUS HANGUP ON INTERFACE DETECTED.

B

USED AS WORK REGISTER. WIll 8E RESTORED UPON RETURN.

9

USED AS WORK REGISTER. WILL 8E RESTORED UPON RETURN.

10

MUST CONTAIN CCW ADDRESS UPON ROUTINE ENTRY

•

•
••
••

•

DATE
EC

15JUN67
130498

- .... --. -.---- _...._-_.

._------------

__

PIN 8lt0576
PAGE
lItA

10
F822-0
PAGE
lit

0010E8

0000

OOlOEA
0010FO
00iOF4
0010FA
0010FE
001104
00110A
00110E
001112
001116

02
90
02
50
07
07
91
47
91
47

01
09
00
AD
07
DB
80

F
F
F
0
0
E
B
10 F
CO F
80 F

B54
760
961
04B
040
080
000
lAE
004
15E

0011lA
00111E
001122
001126
00112A
00112E
001132
001136
00113A
00113E
001142
001146
00114A
00114E
001152
001156
00115A

91
47
9C
47
91
47
90

80
80
00
FO
40
80
00
70
40
80
00
FO
9E
90
00
80
90

004
12A
000
11A
004
14A
000
11A
004
14A
000
132
198
003
000
15E
152

47

91
47
9C
47

58
8B
90
47

46

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
• 1-0 HANDLER SUB-ROUTINE.

F
F
C
F
F
F
C
F
F
F
C
F
0
0
C
F
F

'B 002

••••••••••••••••••• *•••••••••••••••• *••••••••••••••••••••••••••••••••••
ISIO

F 003
0 040

CONP

E 080.

MVC
STM
MVC
ST
XC
XC
TM
BC
TM
BC

ITSTNO+5t21,2tRl11
RO,R9,ISAVE
RTSVtll,SECNO+3
RI0,HCAWIR131
HCSWI8,R131,HCSWtR131

SAVE TEST NUMBER
SAVE WORK REGISTERS.
SAVE RT NO. FOR HANGUP.
STORE CMD ADDRESS.

OtRlll,X'80'
ALL,INOW
SNSW,X'CO'
NONE, JOHN

CHECK CONTROL SWITCH FOR NO 1-0
BR. IF ON

BC
SID
BC
TM
BC
TlO.
BC
TM
BC
SIO
BC
L
SRL
TIO
8C
BCT

NONE, ITRY2
0lR121
UNC,ITRYl
SNSW,X'40'
NONE,IHI
OtR121
NCCO,ITRYI
SNSW,X'40'
NONE,IHI
0lR121
UNC,IHANG
R9,WTIRI41
R9,3
OtR121
CCO,JOHN
R9,GREG

BR. I F OFF
START 1-0
BR. UNCONDITIONAL
CHECK SECTION SENSE swITCH 1
SR. IF OFF
TEST 1-0
BR. IF NOT CONDo CODE 0
CHECK SECTION SENSE SWITCH 1
BR. I F OFF
START 1-0
BR. UNCONDITIONAL
PICK UP OM WAIT FACTOR.
CUT IT DOWN TO 1.25 SEes.
TEST 1-0 TO DEVICE.
BR IF AVAILABLE.
LOOP UNTIL TIME OUT •

01
NI
NI
MVI
MVI
SIO
8C
8C
BC
MVI
BC
MVI
BC
MVI
MVC
01
BC
MVI
NI
TM
8C
01
L

ISW,X'80'
CRSW,X'OO'
HDSW,X'OO'
IACSNS+5,C'X'
IACTCC+5,C'X'
0lR121
CCO,IZERO
CCI, lONE
CC2,ITWO
IACTCC+5,X'F3'
UNC, INOW
IACTCC+5,X'F2'
UNC,INOW
IACTCC+5,X'Fl'.
ICSW118l,HCSWIR131
ISW,X'ltO'
UNC,INOW
IACTCC+5.X'FO'
ISW,X'7F'
OfRl11.X·ltO·
ALL,ISEN
ISW.X'lO· .
R9,WTCRlltl

TURN ON THE HANG SWITCH.
ZERO DIAG MSG SW.
ZERO THE HEADING SWITCH.
MOVE AN X INTO THE ACTUAL SENSE DATA
MOVE IN A -XSTART 1-0 COMMAND.
BR. IF CONDo CODE 0
BR. IF CONDo CODE 1
BR. IF CONDo CODE 2
INDICATE CONDo CODE 3
BR. UNCONDIT 10NAL
INDICATE CONDo CODE 2
BR. UNCONDITIONAL
INDICATE CONDo CODE I
SAVE CSW
INDICATE I CSW
8R. UNCONDITIONAL
INDICATE CONO. CODE 0
TURN OFF HANG UP SWITCH
CHECK CONTROL SWITCH FOR NO ENABLE
8R. IF ON
INDICATE ENABLED ONCE
LOAD OM WAIT FACTOR

LOGOUTI12,R~It).LOGOUTIR141

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
SENSE SWITCH LOOPS
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ITRYI TM
SNSW,X'80'
CHECK SECTION SENSE SWITCH 0
ILOOP
ITRY2
IHANG

IHI
GREG

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
EXECUTE START 1-0 HERE
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
JOHN
XC
ISWI2l,ISW
ZERO THE 1-0 HANDLER SWITCHES.
•

00U5E
001164 .
00116B
00116C
601170
001174
001178
001l7C
0011BO
001184
00118B
001l8C
001190
001194
001198
00119C
001lA2
0011A6
0011AA
0011AE
001182
001186
00118A
0011BE
OATE
EC

07
96
94
94
92
92
9C
47
47
47
92
47
92
47
92
02
96
It7
92
94
91
It7
96
58

01
80
00
00
E7
E7
00
80
40
20
F3
FO
F2
FO
Fl
07
40
FO
FO
7F
ItO
10
10
9E

OEB F OE8
F OE8
F AF3
F AFl
F 820
F 7C7
C 000
F lAA
F 19B
F 190
F 7C7
F lAE
F 7C7
F lAE
F 7C7
F 78B '0 OitO
F DEB
F lAE
F 7C7
F OE8
B 000
F 252
F 'OE8
0 198
F

ISSUE

ITWO
lONE

IZERO
INOW

IWAIT

15JUN67.
1301t98

0 0 0 0 0 0 0 0 0 0 0 0 0 0 () 0 0 0 0

ID
F822-0
PAGE
14A

o o o

OOOOOOOOOO()J:,

0000000000000000000000000000000000
IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840576
PAGE
15

2540 PUNCH FUNCTION TESTS - SECTION 3 F822
2540 PUNCH OVERLAY SECTION
0011C2
001lC6
0011CA
0011CE
001102
001106
OOllDA

88
96
80
46
80
94
47

90
80
00
90
00
7F
FO

0
F
F
F
F
F
F

003
OE8
95F
lCE
960
OE8
252

OOllDE
00llE2
001lE6
OOllEA
OOllEE
001lF2
001lF8
0011 FC
001200
001206
001208
00120A
00120C
00l20E
001210
001211
001212
001214
0012lA
00121E
001224
001228
00122C
001230
001236
00123A
00123E
001242
001246
OO124A
00124E
001252
001256
00125A
00125E
001262
001266
00126A
00126E
001272
001276
0012lA
00l27E
001282
001286
00128A
00128E
001292
001298
00129C
00l2AO
0012A4
00l2A8
0012AC
001280
001284
00128S
00128e

49 CO
47 60
94 7F
91 40
47 10
02 07
96 40
47 FO
02 07
OA DO
0002
003A
0973
OA DO

F
F
F
F
F
F
F
F
F

03A
200
OE8
OE8
230
788 F 040
OE8
23A
7AO F 040

SRL
01
SSM
BCT
SSM
NI
BC

64

15
F962
02 02
92 lA
02 02
45 90
96 02
47 FO
02 07
96 20
91 10
47 80
91 08
47 10
96 08
47 FO
91 02
47 BO
91 40
47 80
91 02
47 10
91 20
47 80
91 02
47 80
41 80
45 70
91 80
47 80
96 04
94 7F
05 00
47 80
96 01
91 80
47 10
91 80
47 80
41 80
45 70
91 80
47 SO

F 7FE
F 429
F 814
F 1t12
F DEB
F 4EC
F 790
F OE8
B 000
F 252
F OE8
F 252
F OE8
F 1BE
8 000
F 27A
F OE8
F 30C
F 78C
F 27A
F OE8
F 30C
F 794
F 30C
F 750
F 50C
F OE9
F 2AO
F OE8
F OE9
F 820
F 2AO
F OE8
F OE8
F 30C
8 001
F 30C
F 758
F 5DC
F OE9
F 2CS

F 7F7
F 817

F 040

8 005

OATE
EC

15JUN67
130498
._----•. -" ..-." . -... .. ----....
~,-

.,

-

~"

-

R9,3
ISW,X'80'
MSKi"
R9,.
MSK2
ISW,X'7F'
UNC, I SEN

ADJUST
TURN ON HANG UP SW
ENABLE
WAIT
DISABLE
TURN OFF HANG SW
OR. UNCONDITIONAL

R12,100PSW+2
UNEQ, IUIO
ISW,X'7F'
ISW,X'40'
ALL,ISV2
ICSWlI81,HCSWIR151
ISW,X'40'
UNC,IN13
WORKI81,HCSWCR1S)
X'DD'
AL2(2)
AL21100PSW+2-SECNOI
AL21IUNEX+17-SECNO)
X'DO'
X'64'
X'15'
AL21IUNEX-SECNO+REGI
18LAH+1I3I,ICSW
ICNT,X'lA'
IBLAH+23(3),IACT
R9,ICOUT
ISW,X'02'
UNC,ILOGED
ICSW2(8),HCSWCRI51
ISW,X'20'
OIRU) ,X' 10'
NONE,ISEN
ISW,X'08'
ALL,ISEN
ISW,X'08'
UNC,IWAIT
0IR111,X'02'
NONE,IDOSNS
ISW,X'40'
NONE,18SN
ICSW1+4,X'02'
ALL,IDOSNS
ISW,X'20'
NONE,IBSN
IC5W2+4,X'02'
NONE,IBSN
R8,ISENSE
R7,ISTRT
ISW+l,X'80'
NONE,IFUR
ISW,X'04'
ISW+l,X'7F'
IACSNS+5111,51Rl11
EQ,IFUR
ISW,X'Ol'
ISW,X'80'
ALL,nSN
11 Rll I ,X'80'
NONE,IBSN
R8,OCRD
R7,ISTRT
I$W+l,X'SO'
NONE,ISEA

COMPARE FOR CURRENT 1-0 ADDRESS
8R. IF UNEQUAL
RESET HANG UP SW
BR. IF 1 CSW ALREADY STORED
SAVE CSW 1
INDICATE 1 CSW STORED
8R. UNCONDITIONAL

CONVERT ADDRESS
2 BYTES OF 1-0 OLD PSW.
FROM HERE.
TO HERE
PRINT UNEXPECTED INTERRUPT DEVICE
ADDRESS
MOVE -CSW- TO MESSAGE
ADJUST COUNT
MOVE -ACT- TO MESSAGE
8R. TO OUTPUT CSW
INDICATE UIO
8R. UNCONDITIONAL
SAVE CSW 2
INDICATE 2 CSWS STORED
CHECK CTRL SW FOR 2 INTR EXPECTED
BR. IF NOT
BR. IF ALREADY ENABLED TWICE
INDICATE ENABLED TWICE
CHECK CONTROL SWITCH FOR SNS ON UC
BR. IF OFF TO ISSUE SENSE
SEE IF 1ST CSW IN.
8R IF NONE.
CHECK FOR UNIT CHECK
IF YES BR. TO ISSUE SENSE
CHECK FOR SECONO CSW
BR IF NONE.
CHECK FOR UNIT CHECK
8R IF NONE.
LOAD SENSE COMMAND ADDR.
BR TO AUX START 1-0.
CHK FOR DATA RECEIVED
8R IF NOT.
INDICATE SENSE RECIEVED
TURN OFF DATA RECEIVED.
COMPARE FOR EXPECTED SENSE
BR IF EQUAL.
INDICATE AN ERROR.
SEE IF HANG UP CONDITION.
BR IF YES.
SEE IF DIAGNOSTIC CHK RD WANTED.
BR IF NOT.
PUT ADDR. DF CHK RD INTO 8.
8R TO AUX, START 1-0.
TEST FOR DATA RECIVED
BR IF NOT.
10
FB22-0
PAGE
15

.....

PIN 840576
PAGE
15A

2540 PUNCH FUNCTION TESTS - SECTION 3 F8Z2
2540 PUNCH OVERLAY SECTION

ALL 1-0 INTERRUPTS RETURN HERE
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

IRETRN CH
BC
NI
TM
8C
MVC
01
8C
1U10
MVC
SVC
DC
DC
DC
SVC
DC
DC
DC
MVC
MVI
MVC
8AL
01
BC
ISV2
MVC
01
INT3
TM
8C
TM
8C
01
BC
ISEN
TM
BC
TM
BC
TM
8C
TM
8C
TM
BC
IDOSNS LA
BAL
TM
BC
01
NI
CLC
8C
01
IFUR
TM
8C
TM
8C
LA
BAL
TM
BC

IBM MAINTENANCE DIAGNOSTIC PROGRAM

0012CO
0012C4
0012C8
0012CC
001200
001204
001208
0012DC
0012EO
0012E4
0012E8
0012EC
0012FO
0012F4
0012F8
0012FC
001300
001304
001308
00130C
001312
001316
00 13 lA
00131E
001322
001326
00132A
00132E
001331t
001338
00133C
001340
001344
001348
00134C
001350
001356
00135A
00135E
001362
001366
00136A
00136E
001372
001376
00137A
00137E
001382
001386
00138A
00138E
001394
001396
001398
00139A
00139C
00l39E
00139F
0013AO
0013A2
0013A6
00l3A8
0013AC
0013AE
001380
001382
001384
001386
DATE
EC

96
94
41
45
91
47
96
94
45
91
47
96
47
91
47
47
91
47
47
05
47
91

1t7
91
It7

48
40
05
1t7
91
It7

91
47
41
40
05
It7

40
7F
80
70
80
80
20
7F
10
60
50
01
FO
40
10
FO
20
10
FO
00
60
08
80
40
80
8B
80
07
60
04
80
20
80
88
80
07
80
01

F
F
F
F
F
F
F
F
F
F
F
F
F
F
F
F
F
F
F
F
F
B
F
F
F
0
F
F
F
B
F
F
F
0
F
F
F
F
F
F
F
F
F
F
F
F
F
F
F
F
F

OE9
OE9
758
50C
OE9
2EO
OE9
OE9
570
OE9
30C
OE8
30C
OE8
35A
35E
OE8
35A
35E
7C7 B 001t
35A
000
2 fit
OE8
35A
006
332
788 F 788
35A
000
300
OE8
35A
OOB
354
790 F 790
35E
OE8
39E
53E
DE8
37E
DOlt
55A
39E
53E
820
5C6
78C
5C6
851t B 002

96
92 64
92 CO
91 01
47 10
91 01
47 BO
92 24
92 80
95 40
47 80
91 01
47 10
02 01
OA DO
0002
0854
0854
OA DO
64
09
F84F
41 80 o 004
IB B8
50 BO F 7EO
OA 00
0003
07El
07EO
OA 00
AD
15JUN67·
130498

01
NI
ISEA
LA
BAL
TM
BC
01
NI
BTCD
BAL
TM
BC
01
BC
INOEX1 TM
BC
BC
INOEX2 TM
BC
BC
IBSN
CLC
BC
TM
BC
TM
8C
LH
STH
ICCSWI CLC
BC
TM
8C
TM
8C
LA

ICCSW2
INDER
IDUNCK

lOUT IT

IFLAGl

STH
CLC
BC
01
MVI
MVI
TM
8C
TM
8C
MVI
MVI
CLI
BC
TM
BC
MVC
SVC
DC
DC
DC
SVC
DC
DC
DC
LA
SR
ST
SVC
DC
DC
DC
sve
DC

ISW+1,X'40'
I SW+ 1, X' 7F'
R8,DCRD
R7,ISTRT
ISW+1,X'80'
NONE,BTCD
15W+l,X'20'
I 5W+ 1, X' 7F'
Rl,ICDT
ISW+1,X'60'
ANY,IBSN
ISW,X'01'
UNC,IBSN
ISW,X'40'
ALL,INDER
UNC, IDUNCK
ISW,X'20'
ALL,INDER
UNC,IDUNCK
IACTCC+S(1),ItIRlll
UNEQ,INDER
01 R11 ) • X' 08'
NONE,lNOEXl
ISW,X'40'
NONE,INDER
R8,61Rlll
R8,ICCSWl+4
ICSW1I81,ICSWl
UNEQ,INDER
OIRlt) ,X'04'
NONE,INOEX2
ISW,X'20'
NONE,INDER
R8,81R81
R8,ICCSW2+4
ICSW2C 81, ICSW2
EQ,IDUNCK
ISW,X'OI'
IFLAG1,X'64'
IFLAG2,X'CO'
ISW,X'OI'
ALL,IDUTIT
SNSW,X'Ol'
NONE,ILEAVE
IFLAG1,X'24'
IFLAG2,X'80'
lAC SNS+5, X'ItO'
EQ,RRM
ICSW1+It,X'01'
ALL,RRM
ITSTNO+5121,21Rll)
X'DD'
AL2121
AL21ITSTNO+5-SECNOI
AL2IITSTNO+5-SECNO)
X'DO'
X'64'
X'09'
AL21ITSTNO-SECNO+REGI
R8,4
RU,R8
RU,ILlNK+5
X'DD'
AL2(3)

INDICATE 1ST CHK READ DATA RECEIVED.
TURN OFF OATA RECEIVED SW.
PUT ADDR. OF CHK RD INTO 8.
BR TO AUX, START 1-0.
SEE IF DATA RECEIVED
BR I F NOT.
INDIC 2ND CHK READ DATA RECEIVED.
TRN OFF GENERAL DATA REC. SW.
BR TO CHK DATA.
SEE IF ANY OF THE CHK READS OK.
BR IF YES.
TURN ON ERROR SW.
BR TO CONTINUE.
8R. IF CSW STORED
BR. UNCONDITIONAL
BR. IF CSW 2 STORED
BR. UNCONDITIONAL
COMPARE FOR EXPECTED CONDo CODE
8R. IF UNEQUAL
BR. IF NO CSW EXPECTEO
BR. IF NO CSW RECIEVED
LOAO CSW ADDR
STORE IN COMPARE INSTR.
COMPARE FOR EXPECTED CSW
8R. IF UNEQUAL
BR. IF NO CSW 2 EXPECTED
8R. IF NO CSW 2 RECIEVED
UPDATE TO SECOND CSW
COMPARE FOR EXPECTED CSW 2
8R. IF EQUAL
INDICATE AN ERROR
SET UP FOR ERROR PRINTOUT
CHECK FOR A DETECTED ERROR
8R. IF ERROR DETECTED
CHECK SECTION SENSE SWITCH 7
8R. IF OFF
SET UP FOR CORRECT PRINTOUT
SEE IF INTERVENTION REQUIRED.
BR IF YES.
SEE IF UNIT EXCEPTION.
8R IF YES.
MOVE TEST NO. TO PRINT AREA.
CONVERT TEST NUM8ER

PRINT TEST NUM8ER

ADJUST LINK ADDRESS FOR PRINTOUT
CONVERT LINK ADDRESS

AL21ILINK+6~SECNOI

Al21ILINK+5-SECNOI
X'DO'
X'AO'

PRINT LINK ADDRESS

F822-0""v
10
PAGE
15A

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 8it0576
PAGE
16

2540 PUNCH FUNCTION TESTS - S~CTION 3 fe22
2540 PUNCH OVERLAY SECTION
0013B7
0013B8
0013BA
OOBBE
0013C2
0013C6
0013CB
0013CA
0013CC
OOl3CE
001300
001301
0013D2
001304
001308
00130C
0013EO
0013E2
0013E4
OOl3E6
00BE8
OOBEA
OODEB
OOBEC
0013EE
U013F4
OO13F8
OO13FE
001402
001406
OO140A
00140E
001412
001414
001416
001418
0014lA
001420
001426
001428
001429
00142A
00142C
00142E
001434
001436
001437
001438
0014311
00143C
00 1.'> 3D
OO143E
001440
001446
0014411
00144E
001452
001458
00145C
001460
001464
0014Ml
OO146E
001472
00141'6
00147A
0014110
001486

10
F70B
41 BB 0 004
91 110 II 000
47 10 F 440
OA DO
0003
095C
OA 00
1.0

SVC

DC
DC
DC
CLI
BC

OF

ncc

95 9C F 178
47 60 F 42E
50 AO f 11'0
OA DO
0003
01f'1
07FO
011 00
110
OB

5T

SIIC
DC
DC
DC
SVC
DC
DC
DC
MVC
MVI

F7EB

02 02 F 7FE F
92 16 f 429
02 07 F 7AO A
45 90 F 412
91 CO A 004
47 BO F 42E
41 AA 0 008
41 1'0 F 31'8
OA DO
0008
OHO
01AO
02 07 F 802 F
02 01 F 8011 f
OA DO
AO
lA
FHO

7FA
000

HO
7Ail

1I::I

IBAA,
10EA,
130C.
13BA,
14BA,
156E.
1122,
15E8,
1998,
10FA.
1918,
1104.
191A,
llF2,
lCOC
1998,
1212,
143E,
1506,
114A,
185E,
lCOA
1872
1382,
lCOA
1884
1126,
122C,
152-'.
161C.
15A8
1204

PIN 840576
22A
PAGE

IBM MAINTENANCE DIAGNOSTIC PROGRAM

\,,-- j

if".

,,-JI

..~

!\, )'.

.

~

\~y

rl

'L,':i

.~.

(

.11

.4""'"

.~J

?f'~

I"-lJ

4"'"
,)

;!!'~

~J

rf'l /1') IJ 10' 0 (O!
·il····
.". !O:
'~~

.

,.,

I

.

t~)'.

I:.' '.

fel! 0 10 fJ'
"',
~--

'<1,., •

\t~~___

'

If} ;(}
I;

'I

\"1..- _ ~

i>'
\'1

'C ..

:

oooooooo~ooo

o c 0000000000 o 0000000000
,~.-

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 81t0576
PAGE
23

2540 PUNCH FUNCTION TESTS - SECTION 3 F822
251t0 PUNCH OVERLAY SECTION
4
4
4
3
6
16
16
4
4
4
4
4
4
16
4
It
It
1
12
It

ILOKE
ILOOP
INOER
10AOR
10CSW
10LOG
10PTl
IPASS
ISAVE
ISSUE
ISTRT
lTRYl
ITRY2
IUNEII
IWAlT
IZERO
MOD 50
NEVER
PARAM
SECNO

4
4
16
1
1
1
1
6
11

10EO
10E4
18tO
lAOO
lA50
lAAO
lAF5
1900
1828

UNITI
UNIT2
BEAUTY:
BUFFER
CHKBUF
EXPBUF
GENOAT
HANGUP
IACSNS

10
6
6
6
6
6
1
6
4
4
10

11C2
142E
132E
1350
1468
1498
lAF2
13F8
121A
135E
llB8
1810
139E
153E
155A
14EC
148A
12F4
1300
llCC
1038
153C
131E
11 DE
1150
UFO
184F
80
1984

IACTCC
ItCOUT
ICCSW1
ICCSW2
ICHNGI
ICHNG2
ICOOAT
ICWOUT
IOOSNS
10UNCK
IEXPCC
IEXSNS
IFLAGI
IFLAG2
ILEAVE
ILOGEO
IMORST
INOElll
INOEX2
10AOOR
100PSW
10POUT
lOUT IT
IRETII.N
ISENSE
IT_OLP
lTSTNO
lOGOI,IT
NlTlUT

11

1
1
4
6
4
4
4
15
It
2

4
4
8
ft

9
1
4
OATE
EC

15FE
1122
135A
195C
1440
1833
1858
14E4
1160
1178
150C
lllA
112A
1962
UBE
llAA
19FC
0
1Clt0
1000

15JUN61
1301t98

IBM MAINTENANCE DIAGNOSTIC PROGRAM

1B72,
1008,
1212,
BCA,
1418,
140A.
1546.
16BO,
1900,
1B5E.
1COA
1984
1990
16B6
15B2,
157E,
1574.
1B78,
19tO
ll70,
1750
ll74,
1308,
132A
134C
145C
1464
1518,
140E
1256.
12FC.
142E,
148A,
135E.
1362.
1312
122C
1476
131A
133C
13CC,
110E,
152C,
136A
101C
121A
15FB
IDEA,
1104,
191E

12

1304,
1500,
156A
195C
12B4,
1136,

.

~

__

.~,_

.............. _ _ _ _ _ _ _..... _ _ _ _ _ .v_., ,•. ..
~~

,~

.

_..

,

'---'---

PIN 81t0576
PAGE
23A

2540 PUNCH FUNCTION TESTS - SECTION 3 F822
2540 PUNCH OVERLAY SECTION

15F4
12F8,
13CA
13C2
14FA.
1540
1ltC4
10FO,
1304,
127E,
1126,
lllE
120t,
124E,
ll7C
1988,

' ........ _ " '............ - - I .. ~ ."_ -

1312,
1506,

1322,
150C,

1334,

1
1
1
1

1344

1516

191A
IBID
1B1
1C20
1000

PUNCHS
ROUT02
SYSMOO
TWENTY
IIF8220

1121t
1015.
lltE4
16E2.

IF9C

,"

,!

<.

1742

:~>

~~:". ~
"t...~

,
'.

NO ERROR DETECTED IN A80VE ASSEMBLY

12tt
1550

1212
1524
1994
18EA,
1018,
1398,
13tC,
142A.
140C,
15tA.
16B6,
190A,
1B64.

1BF6,
103C,
139A,
1302,
lIt38.
litE 2.
1506,
1606,
1824.
1870.

1BF6,
1080,
13AO,
13EIt,
143E.
IItF6.
1632.
1608.
IB30,
1BB8.

1BFt
10F4,
1380,
13E6.
11ttC.
14F8.
169E.
160E,
1B4t.
1BC8,

120A,
13B2,
BEt,
1ltCE,
1516. '
16A4.
16EO,
1B52,
IBOA,

19t4,
1758
1B80,
188C,

19&8.

19C8,

1C10,

1C18

1292,

13lE.

140A.

11t0C,

14E2,

1611t

1188,
1406

1190.

1198.

UAA.

130C,

143E

1586.

160E,

16FO

1266.
1308,
1438
14CC,
1376
131A

19EO
1356

120t
1388
11t16

1404
1540
16AA
174A
1B58
IBE6

1BAit
18AIt

144:E,

1ltD4

1398,
14EC

139A,

1302
120A
1531t

138E,
,104.

,.

:"

13AO

10

PAGE

F822-0
23

DATE
EC

15JUN61
130498

10

PAGE

F822-0
23A

PIN 840516
PAGE
24

IBM MAINTENANCE DIAGNOSTIC PROGRAM
25~0

F822

F822

PCH FUNCTION SEC 3

1 THROUGH 20

COlS.

COlS.

21 THROUGH

~O

COlS.

~l

THROUGH 60

COlS.

61 THROUGH 80

8ESD •••••• AA •• AAXF82
9
YQ Y9
99 9

20 •• AAAA.AGQ ••••••••
YYQY Y8
9999 99

••••••••••• ~ ••••• 840

8TXT.AAA •• A8 •• AA8SAA
9
YQY Y9 Y9 9YY
999 9
9
99

AAAAAAAAABOAAOAAAAMU
YYYYYYYVY9+Y99YVYY88
999999999 9 99999

AAAAAAAAAAAAAAAAAAAA
YYYYYYVYVVVVVVVVYYVY
99999999999999999999

8TXT.AA8 •• A8 •• AAAAAA
9
YQ9 Y9 Y9YYYY
99
9
9 9999

AAAAAAAAAAAAAAAAAAAA
YVVYYVVYYVYYYYYVYYYY
99999999999999999999

AAAAAAAAAOAAAAAAAAAA
YYYYYVVYY9YYYYVYVVVY
999999999 9999999999

8TXT.AAO •• AA •• AAAAAA
9
YQ+ YQ Y9YYYV
99- 99 9 9999

AAAAADAAAAJB ••••••••
YYVY99VYYY9Q
9999 9999 9

8TXT.AAS •• A8 •• AA8AAA
9
YQ8 Y9 Y90YYY
99
9
9 9 9

OVYYVYYY 9 8Q9Q8
90 9
9 99999

8TXT.AJQ •• A8 •• AAOAGO
9
Y99 Y9 Y9+YZ+
9
9
9 9-

lWAOODGAlWDAOAGOlOHF
8-+ 9ZY 8QY+YZ 9RQ
9
9 9 9

AHHAACEAOAGA18FA16GD
9-0QY9QV+YZV 9ZQ 91
999

18AOEOAADfGA82200006
9z+Q+-YQ8ZQ

BTXT.AJ+ •• A8 •• AAIFAO
9
Y9
Y9 Y9 RZ+

EH+5AHGOIOPAOYOYFAOY
Q 8YIl 9 9
-Y

DAOEDADD8A9NOAOAGAIO
-YQ8-YQ8-Y 9QV+VZV 0
9 9
9Z 9Z 9

G.IDGJID838P82200001
I
-IY Y- Y

828PGOIK818PKG8HO.F.
- YZ Y- Y 9 0- -

OYGOIKB08P070YA.AAGA
Z V- V-8 - QYZQ
09 9

2FFAOYHFAHHA82200008
8-Q RQ9-0Q

BTXT.AJO •• A8 •• AAACFA
9
Y9+ Y9 Y9Y9-Y
9
9
9 9'

OYAABBFAIBAABCD70VGO
YYQZZQ YYYQZ-8 Z
9 9Z
9Z

2FA002G-IDD70YA.OYGA
88+ 81 Q-8 ZQ

2UKG8HO.F.OY82200009
890 -

BTXT.AJ8 •• A8 •• AAG026
9
Y9
Y9 Y9Z 9

KGBAO.BEA8A2BEBOMNBD
9QY 8QY9Y88R8-Z9QZ
Z
Z9 999 999 9

K88W8GBK~lKB8D8GEA4S

BTXT.AKA •• A8 •• AAO.FJ
9
Y9Q V9 Y9 -Y
9
9
9 1 9

OYAAAAGA2FAHOYGA2FFH
-QQYIY 8-9 lQ 8-9
909
9

OYG018A8AAGA2FA.OVGA
Z Q-9QYZY RZY
o 09 0

BTXT.AKQ •• A8 •• AAOYGA
9
Y9Z V9 Y9 ZV

2MAB8DGA2MAA8HE06MA.
0-9 -ZY OlY RZ+ Z-

9NGA6FAAOZGA2MFDOVD7
9ZQ 8-V ZV 0-9 -8

9

9

9

8TXT.AJH •• A8 •• AAGOIK
9
Y90 Y9 Y9Z Y
9

9

9

9

9

9

AAAAAAAAKA9~ABAA8-PG

Z

9

9

9

9

O.O.PCSASAA.ODGAIF+N
88V8V- 9ZQ Z Y
9
.
9

9

9

Z

9

Q-8 8 9 Q QZQ 9
999
Z 1

9

AAEHAAOFGA2DAAEAE06M
ZYQO-YQ8ZQ OZYQQZ+ Z
Z- 1 9 - ZO-

AAOZGA2DAADFGA2MFBOK
-Y ZY Q-YQ8ZY -9 Y

8TXT.AKQ •• A8 •• AAG02D
9
Y9
Y9 Y9Z Y
9
9
9
9

FDOKG03UA.OYGA3BG03F
-9 YZ 9ZQ oz 0

AJOYGA38G03FAAEQAADF
-Y ZQ OZ OZYQO-YQ8

BTXT.AlA •• A8 •• AAAAOZ
9
Y9Q Y9 Y9-Y
9 9 9
9

GA3YAADFGA20F.OKD10l
ZV 9-VQ8ZQ Q- Y-8
Z 9 9
9

-Q 9ZY 9lY 0 Y' YQ9,Z

8TXT.AlH •• A8 •• AAOYGA
9
Y9l Y9 Y9 ZV

38HCAF.A3KNG8H8HG-3B
0lYY9 Y 8 9 0 OZ 0

ADAAGA20AJOYGA38AHAH
-9QYZY -Y IY .OZOY9
09
9
9

9

9

DATE
EC

9

9

9

9

15JUN67
130~98

9

9

9

9

Z

9

Z

9

9

Z

Z

AA9NGA3~EA5HNA8PADG­

9

- 9

0

9

ODGA5KBU3FBA5FKA9~AB

OYBM3F805FAAOYGA30AA
-Z 0-+ 0-9 ZQ 0-9

9ZY 0-9 O-Y 0 9 8Q9
90

9

9

8EA8A4A~80MA82200017

8QY988888-Z8
999 99999 9

8TXT.ALH •• A8 •• AA97AA
9
Y90 Y9 Y9 9lY
9 9
9

AOlH+A8H8EACHIHH80JA
Y980 Q 8QY99 9 8-YQ
9 9- 0 999
9 9

8CACAOAAAAGA4+BEAC87
ZQY9-YQYZQ 8QY988
09
09 9 999 99

HIBOJG8D+J8Q82200018
908-Y8 0 Y

AAAAAAAAAAAA82200002
YYYYYVYYYVVY
999999999999

8TXT.ALO •• A8 •• AA8EAC
9
V9
Y9 Y98QV9
9
9
9 999

HRHQ80JC8LKB8W8S8041
9 9 8-Y8
9
-9 8

KGBAJAEA~SAOJDGA46AK

AHG04HBEAH8A82200019
Y9Z 98QY98Y
9
999 99

AAAAAAAAAAAA82200003
VYYYYYYYYYYY
999999999999

8TXT.AMY •• A8 •• AABAKG
9
Y99 Y9 Y98Y 9
9
9
9 99

8KBAKG83BHBOJK8VG9KA
VQY 9 Q98-Y8 9 Y
9Z9
Z 9 9
9

8NAD80JB8JBOJB8KKB8W
OQ98-Y8 Y8-Y8 Y 9
o9 9 9 9

8GBK~lAHAAGA82200020

• ••••••••••• 82200004

8TXT.AH-•• A8 •• AA~BKB
9
V9
Y9 Y9 0 9

809BHCAF.A44AHAH.A4H
Q 9ZYY9 Y 8Z0Y9 Y Y

KG8A8AEA~SA.OYGA4BKB

8D8GKGBA8HEA82200021
Q Q 9QY OZQ
Z Z Z9

577.130~98 •• 82200001

9

9

8TXT.AKJ •• A8 •• AAFAOY
9
Y9Y V9 Y9-9

2540 PCH FUNCTION SEC 3

8TXT.AlA •• A8 •• AA3FFA
9
Y9Y Y9 Y9 0-9

PERIODS CORRESPOND TO 8lANK COLUMNS.

PIN 840576
PAGE
24A

IBM MAINTENANCE DIAGNOSTIC PROGRAM

AHAAODGAIOEA82200005
YI-Y 9ZY 8QY
9

9

9

.

BTXT.AHH •• A8 •• AA4SAO
9
Y9- Y9 Y9 9-9

9

9

9

9

9

Z

9

9QYYYZQ 9-+Y9ZY 8ZY
19 9
9

9

9

9QVQYZQ 9Z9Z9

9

AAGA~BK88D9BKG8ABAEA

QYZY 0 9 Q 9 9QYQYZQ
09
Z
Z9Z9

ZY Q 9

-9

9-

Q-8 8-9QYZY
9 9 9 09

4SAJOYGA4BKB808GKGBA
9-Y ZY Y 9 Q Q 9QY
9
9
Z Z Z9

8AEA~SKA9BAE82200022

QZQ 9 Y 8Q9
9 90

8TXT.AMO •• A8 •• AAADOY
9
Y9- Y9 Y9-9
9
9
9

GA4~BEAAA8ABBOJC9E8E

8QY988888-Y8 98Q
999 99999 9 99

AAANANBOJC9AEAJAG-5Y
Y989898-Y8 Q-QZOZ 9
999999Z

KCBASABEA08A82200023
8QY8Y8QY8BY
9Z9 999999

BTXT.ANH •• A8 •• AA8AKA
9
Y99 Y9 Y98Y 9
9
9
9 99

9JII"AKE9TBBKE9SBBKE91
YQY 9 9Q9 9 8Q8 9 9
9Z9
Z
9Z9

8KBOJM9lABOYGA58DEOY
Q98-Y8 8-9 ZY 9-Q
Z 9 9 9
Z

GOIBF80ZAAOl82200024
Z Q-9 -Y Y
o
9

BTXT.AN ••• A8 •• AAGA5D
9
Y9
Y9 Y9lY R
999

FJOLEA5H07DDOGOLA.Ol
-Y YZY 0-8Q8-Q V- Y
99
Z 99
9

GA50FAOLAABQA.CHAOCQ
ZY O-Q YZQQZZ QRZ+QO
9 9 ZZ
Z-Z

AADFGA5AAABH82200025
-V08ZQ YZQOO

BTXT.ANH •• A8 •• AAA.CH·
9
Y9R V9 Y91 Q9,

AOC8EA5FBOOE9.BOJA8C
Z+Q ZQ Q8-+Z 8-Y9
-Z 9 99
9

+NAHAOOOG+IBAAOVGNAH ,
YYZ-+ 9Z 9-Y 99-9

AAGA50ACA8AC82200026
OYZY YZQY9ZQ
09
09 0

8TXT.ANA •• A8 •• AAAFHA
9
Y9Q Y9 Y9Y9-8
90999 9

8-GCAA8QA.CHAOCQAADF
9QZQQZZ Q9Z+QO-YQ8

GA5QAA8HA.CHAOC8EA5F
ZY ZQQOZ QRZ+Q ZQ Q

2MA88DGA2FAJ82200011
0-9 YZQ R-V
909

BTXT.ANY •• A8 •• AAG-60
9
Y9
Y9 Y9Z 9

AG.AG+60AQ.AG+62ASAA
-9 YZ 9-9 YZ 9Z9Y9

OZNA9NAEGA2M82200012
V 9Q9IY 0
9 0

8TXT.AOJ •• A8 •• AA5~A8
9
Y9Y Y9 Y9 -9

D70ZG02DFJOK82200013
-8 Z Q-Y Y
Z 9 9
GA3DAAEJE06M8220001~

-Z

Z

9

9

9

9

9 0

F80YG04DKG8A82200010
-9

Q 9 Q
1

Z

9 9

I

9

I

9

GIFAOlAAOLGA82200028
9 -Y Y-Q YZQ
9 9 9 9

OZGA6FFAOYG054F.OLAJ
ZQ Q-9 Z
Y-Y
9
9 9

OlGA5DABOZGA6FFAOYGO
YZQ Q-9 ZQ Q-9 Z
9 9 Z
9

5D80UE828BEA82200029
Q8-98Q98QQY
Z9 9Z 99 9

BTXT.AOH •• A8 •• AAOA80
9
Y9R Y9 Y9+Y89
9
9 99

AAB2GD06HFAHHAAB+EAH
Y9Q9Z
RQ9-0QY9 YYZ
Z
9
9

DAOAG06DEAOAG.6FFA6H
QY+YZ+ -QY+YZ OZQ R
9999
0

G7ADODGA6AFA82200030
9 -9-ZZY Y-Y

8TXT.AOA •• A8 •• AAOZG1
9
Y9Q Y9 Y9 9

A.9NGA06G7B.8AKUBA8A
9ZQ 9 - QV 9Q9QY
9
Z9 Z Z9

K89F9HAJOlGA6YK89F9J
8 - Y-Y YZV
8 - 0
9
9 9
9

AAOFGA60AJOK82200031
-YQ8ZQ. -Y Y
I
9
9 9
GA6DBOBOAA.A82200032
ZY Y- Q9-Q y,
9 Z 9 9

9 9

9

9

9

9

9

9

Z ZZ

9

Z -Z

9

Z

ZZ-

9

Z

-Z

38AHAAGA2UA.82200015
0-9QYIY
09

8TXT.AOH •• A8 •• AAG+68
9
Y9
Y9 Y9Z
9
9
9

AADEGA7HKAGFF8BOJlGM
-YQ8ZQ Z 9QOQ88-Y9QY .
Z 9
Z-Z99
Z

FADEG01HAADFGA60ABOK
-YQ8Z Z-YQ8ZQ -9 Y

.A34NG8A8AGA82200016
Y 8 9 Q QIY

8TXT.APA •• A8 •• AAGA7H
9
Y9Y Y9 Y9ZY 9
9 9 9
9

81BOBOBJAH.AGA7QB18J .
-.Q9- Q8M 9 YZY 9- Q8
Z
Z9
9
Z9

BOBMAO.AGA7YBIBM80BJ
- Q8-9 YZY 9- QB- QY
Z9
9
Z9 Z9

F822-0
24

zz-

A3AAADAAAGAAEJ8-G-5S
Z9Y9ZZY9ZRY9RYQ Z
9
9 09 9Z

9

PAGE

9

G8AJAANAAAOA82200027
9 ZYY9 YQY+Y
99 9Z9-9

-

.10

Z

9 9

9

lQ 8ZVQYz+ I

9

ZY

DAte
EC

Z

Z

9

9

AA.AGA78BIBJ82200033
-9 YZY 9- QY
9
Z9

10
F822-0
PAGE
24A

15JUN67
130498
<

0000000000000000000000000000000'000

o

(j.

C 0
.

IBM

MAINTENA~CE

25~0

fB22

DIAGNOSTIC PROGRAM

PIN S40576
PAGE
25

PCH fUNCTIDN'SEC 3

PIN B40576
PAGE
25A

IBM MAINTENANCE DIAGNOSTIC PROGRAM
FB22

2540 PCH FUNCTION SEC·3

8TXT.APB •• AB •• AA808V
9
Y99 Y9 Y9- Q9
9
9
9
1

A8.AGA7H818VADEQAJOL
-9 YIY Z- Q9Q9Q -Y Y
9
I
I
9 9

GA7AAADFGA70AOOKG+70
ZY Y-YQSlY Y-9 YI

A.DEGA8DKAGF82200034
- QSlQ 8 9QO
I
9
Z-

8TXT.AMH •• AS •• AAGAOA
9
Y8Z Y9 Y9SY Y
99
9
9 99 9

AAAAA.PREVIOUS.HANG.
YYYYY
99999

UP.DETECTEDAAAGFLEA.
Y9YQQ8Q9 9ZZ99

JFGAD4QGHOOSS2200051
Z-ZYQS9QR+ S
Z 9

8TXT.APO •• AB •• AAfH80
9
Y9+ Y9 Y9Q9B9 - 9
9 I 9

JLGMf.DEG08DAADFGA7D
Y9QY- Q8Z 8-YQBZQ Y
Z
Z
Z 9

G07HA.OKGA7MAAODGA7F
I
8- YZY Z-YQ8IQ Q

BOJH9E80JM9ES2200035
S-Y9 OS-Y9 Y

8TXT.AMA •• AB •• AAD08M
9
Y8Y Y9 Y9R+QZ
99
9
9
Z

+08MAAOYGAEW80UJGG80
+QB-Y lQQ8S-9SQQ8Z
9199 9Z09

JE82B8EAOA80AAGGA-AX
Y8Q9SQQY+YS-Y9QQZ Y9
9l 99 9 99
ZO 9

BADFBAD+KCESS2200052
-YQS-YQ 8Q
9Z 9l 9Z

8TXT.APQ •• AB •• AA80JA
9
Y90 Y9 Y9B-Y9
9
9
9 9

9G80JS9G80JX9RFADDKA
08-Y9 OS-Y9 -YQ8 Y
-9
-9
Z 9

DGAAQ8F.SH3J888FF08C
QSQY9lS - 9Q9 Q- Q9
Z Z9
I
Z

KASHOA8EAAHH82200036
Y -+YSQY999 -9999

8TXT.AMH •• AS •• AAEME.
9
Y80 Y9 Y9QYI
99- 9
9 Z9

EDH08MAJEOKADYFDAADF
QZR+QSZYQ+ 9Q Q9-YQB
Z
Z
Z
Z Z
Z

GADFAJEHKADYFFEAOM6A
lYQQZYO 9Q Q9ZQ Y8Y
Z9 Z
1 Z 0 999

AAOAGDAADFGAB2200053
YQ YQY-YQ8ZQ
99 9Z
Z 9

8TXT.APS •• AB •• AA8K8E
9
Y98 Y9 Y9B98Q
9
9
9 9 99

AAOG8FLJLSL3A.A8CAOG
Y9S8SSS98989Z Y9ZQQS
9 9 999 9 9
9 ZZ

QLNUKIClFDIAAHCLFEAA
9989S9l9QSOQY9l9QSZQ
9 9
Z9 99
Z9 Z

AGMTG+8QHAAD82200037
YQ99Z 90QY9
9Z
99

8TXT.AMO •• AB •• AAEJFA
9
YS
Y9 Y9QY-Y
99
9
9 Z9

DFMAOK08F-D8AJEHH08M
,'QS 9 YQ8Z QQZYQ R+QS
Z
9Z
ZO Z
Z

8.8HKF8IBHEAOH6AAAOA
- QO SQOQOZQ YSYYQ Y
Z- Z-Z- 0 99999 9

GDBOMAOKDHD782200054
QQB 9 YQZ-S

8TXT.AQQ •• AB •• AA+ABH
9
Y99 Y9 Y9 Q 9
9
9 9

A.AFAAADAAAACT8VHASH
Z Y9ZQYSZYY9Z9Q9RQ 9 Z99 99
I
9

MAGAS68U8EF.S6IAAAFA
9QZY 8Z9Q9l SOYY9ZQ
9
9 Z
9 99 Z

SY80AW8AHDEQS220003S
98-Y9QY-9Q
9
Z9 Z

8TXT.ANY •• A8 •• AADFGO
9
YS9 Y9 Y9Q8Z
99
9
9 Z

QQS-ZSQR~9

DD80MKDAFAOYE+2F8AOY
Z R-Y
ZZ9 9Z
0 9

GODHAA8QAADFGAEDAA8H
Z QOZYQZ-YQSZYQRZYQO
Z
Z
Z
Z
l-

+AEME-EOGJED82200055
YQ R Q-ZYQO
Z
1 9Z

8TXT.AQ+ •• AB •• AAG05D
9
Y9
Y9 Y9Z Q
9
9
9
Z

AAAADAJNAAAAAAAAAAAA
YYYY9YS9YYY9YYYYYYYY
9999 99 999 99999999

AAAAAAAAAAAAAAAAAAAA
YYYYYYYYYYYYYYYYYYYY
99999999999999999999

AAAAAAAAAAAA82200039
YYYYYYYYYYYY
999999999999

8TXT.AN-•• AS •• AACOD+
9
YS
Y9 Y9Z+Q
99
9
9 -Z

A+A+8HAAAGAAAHAAF+EQ
Z Y ZRYYZRY9Z0Y9Z QZ
9 099 09
9
Z

HAEMKAD+AGG4KAAAESKF
RYQ YQ Y99 YYYQ S
1 9l
9 9Z

AAAAK8E8E9KAS2200056
Y9YY 8Q Q Y
9 9Z Z 9

8TXT.AQH •• A8 •• AAAAAA
9
Y90 Y9 Y9YYYY
9
9
9 9999

AAAAAAAAAAAAAAAAAAAA
YYYYYYYYYYYYYYYYYYYY
99999999999999999999

.CC •• X.EXP.CC •• X.ACT

.ADR.XXXXXX.82200040

8TXT.ANH •• A8 •• AAFCAA
9
Y8- Y9 Y9Q9YY
99
9
9 1 9

G4AA8ALQJAA+8ALSJAA+
9 YY YBOYYY YS YYY
99 99 999 99 999

FALHJAA+FALHJAA+AAKQ
Y89YYY YSRYYY 9YSZ
99 999 99 999 99

JAA+AAKHJAA+S2200057
YYY 9YSOYYY
999 99-999

......••.....••.....

•••••• ~ ••••• 82200041

8TXT.ANO •• AH •• AAAAAl
9
YB- Y9 Y9YYYS
99
9
9 9999

AAAA ••••••••••••••••

.............•....•.

•••••••••••• 82200058

YYYY
9999

8TXT.AQO •• AD •• AASIOA
9
Y9+ Y9 Y9
Y
9

9

9

9

9

8TXT.AQL •• AB •• AA.CAW
9
Y9
Y9 Y9
9

9

9

9

Z

9 0

9

9

9

8TXT.AQC •• AJ •• AA.ADR
9
Y9
Y9 Y9
9

Z

.XXXXXX.LINKA •••••••

• ••••••••••• 822000~2

Y
9

.XXXXXX.CSWCCW.CSW.X

XXXXXXX.XXXXXXXX.EXP

ACTEXP.SNS.X82200043

9

Z 9

9l

8TXT.ANM •• AS •• AA+-Ol
9
YBY Y9 Y9
999 9
9

234567S9+-01234567S9

GDGDC2C6AIAHQA8QJAHE
QYQQ
Q8909Z099Y-9
Z Z
09

AICHSC8SLAHG82200059
YS909Z099Y09

8TXT.AOU •• AS •• AA05AH
9
YB9 Y9 Y9-99l
99
9
9

MABMJ.DE.5CH4C84L.DG
9ZZ99 -9 99Z9ZZ99 09

03AYKASKJJ8EJ3CY2CS2
+9999Z999Y-9Y9999Z99

LJBGOIAHAA8AS2200060
9Y09 999QZ9Q

9

9

9

9-

9

9

8TXT.AJC •• AS •• AAX.EX
9
Y8B Y9 Y9
999 9
9

P.SNS.XX.ACT.lOG.XX.

XXXXXX.XXXXXx.XXXXXX

.TST.XXXX.SES2200044

BTXT.AOM •• AS •• AAJAAE
9
Y88 Y9 Y99YQ9
99
9
9 9

AICHACBALAAGACAQKAKK
Y999QZ9Q9YQ9YB90BZOB
9
Z Z 90 99 9 9

JJBEJ18HY88YKAQFAEAH
9YQ9YS909l099Y09Y89

8TXT.AJC •• AS •• AAT.SS
9
Y81 Y9 Y9
99
9
9

• O.ON.FOR.LOOP.ON.PR

ESTKR.CD.OR.SS.l.0N •

FOR. LoOP.oN.S2200045

8TXT.AOD .. A8 •• AAU88U·
9
YS- Y9 Y99Zl9
99
9
9

K.MF.CAQOAKOJ-FE-3BO
9 09 9YZ9ZZ99 -9 99+

88SSKJKFSGAYOASOJSFE
9Z999Y09SS9 Sl 898Q9
999 9

S18HJ88JKAJFS2200062
8999Yl9Y9YY9
999

8TXT.AJ3 •• AS •• AASTAC
9
Y8S Y9 Y9
99
9
9

KED.CD.PCH.ERR.CARD.

IN.PRESTKR.STAPRESTK

R.STASTACKERS2200046

8TXT.AOD •• AS •• AAATAQ
9
Y8Y Y9 Y9Q8YO
999 9
9 099

B.KBAJBDJSAQSSKSKJKF
S OBQYY9YS90SZ0S9YY9
9 99
9 9 9

OVAHD.8DAODDOUAHU8SU
-8Y 8 SQ+Y9+S9 Sl 8
99 9 99
9 9 9

KOMFOXAQF.KFS2200063
9+Y9+9YZ9 Z9

8TXT.AJC •• AS •• AA.PIC
9
YSO Y9 Y9
8
99- 9
9

••••• EXPECTED.SHD •••

••••••••••• 8UF.COL.P

UNCHES •• RD •• 82200047

STXT.APD •• A8 •• AAA-FD
9
YS9 Y9 Y9Q 09
99
9
9 9

-WAQW8KWK-OFOXAYF.SF
99Z9Z199 09 BY B S
99 9 9

ASFDSWAYW8SWKSoFJAAH
QSY98S9 SZ S98Y9YSYO
9
9 9 9
99

H.8HAAHDAYAQ82200064
9 09QY09Y990

8TXT.AJL •• AS •• AARD.X
9
YSY Y9 Y9
999 9
9

U.XL.PAR.ADR.TRAN •••

8TXT.AP4 •• AB •• AA2CK2
9
Y8S Y9 Y9SZ0S
999 9
9 9 9

LJSG-EAHD.SDA.DD.UAH
9YQ9 9YZ9 Z9Q 09 99

4CS4LODGYXAYB~SSAJ80

JSAQ6CK6L-FGS2200065
Y99Z9ZZ99 09

8TXT.AKT •• AS •• AA ••• T
9
Y89 Y9 Y9
99
9
9

E0123456789.MAKE.PCH

8TXT.APD •• AB •• AAJAAH
9
YBR Y9 Y9Y9Y9
990 9
9 9 9

A.SAAAADAJAY6CS6LSFG
Y 9YQYY9YY9 SZ S9SQ9
9 999 99 9 9 0

AANHHAAAAAAADAAAAANO
YY8 9YYYYYYY9YYYYYS999 9999999 999999

HAAAAAAADAAA82200066
9YYYYYYY9YYY
9999999 999

STXT.AKl •• AE •• AAAAAA
9
YBB YS Y9YYYY
99
99 9 9999

AAAAAAA7G •••••••••••
YYYYRYY8Q
9999 999Z

8TXT.APM •• AU •• AA.DIA
9
YBY Y8' Y9
99
99 9

G.CMD.C6.FAILED.DO.N

oPRoTEMPTY.PCH.STKRS

•••••••••••• 82200067

DATE
EC

15 JUN67
130498

• ••••••••••• 822000~8

.RDYAJDFA.UIO.FROM.D
Y9RQ9
9 OZ

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

~

........

EVICE.XXXXAAS2200049

YY
99
• ••••••••••• 82200050

tD
F822-0.
PAGE
25

DATE
EC

15JUN67
130498

9

o

9

9

9

9

Sl S9+Q999999 99QY09
9 9 0
99

MA8MJODE058H82200061
8Z 89+Q9+99l
9

9

- 9

9

9

8

ID
FB22-0
PAGE
25A

('

,

.

IBH HAINTENANCE DIAGNOSTIC PROGRAM
FB22

PIN 81t0576
PAGE
26

IBM MAINTENANCE DIAGNOSTIC PROGRAM

2540 PCH FUNCTiON SEC 3

FB22
BRLO •••••• A4 •••• AAAA
9
Y9
Y9Y9
9
9 9

AAANEAA4AAQJAAK7AANJ
BYQ90YQ88Y988Y888V80
999 999 99 9999999

....•..•........•...

••....•....•.....•..

~

• ••••••••••• 82200010

••• ••••••••• 0

•••••••

• ••••••••••• 82200011

8TXT.AJJ •• A8 •• AA1SOA
9
Y9Y Y9 Y9 BQY
999
999

OAGOIKA.OOGA18EAOAGO
+YZ 8- 9ZY 8QY+YZ+

BTXT.AJH •• A8 •• AAIOFA
9
Y9R Y9 Y9 8IQ

18PAOYOYFAOYOA830ABl
R. 9
-Y -YQ -YQ
'.II 9Z

8X8V8X1GOAOAGAIKG.IH
8QY+YIY YI

GOIOBllGKG7HO.F.OYGO

l0801GD10YA.AAGA2BFA
Y-8 - QYZQ R-Q
09 9
9

OYHFAHHAACFA82200077
RQ9-0QY9-V

02G-2AD70YA.OYGA2AKG
8Z V-8
ZQ Q .,
9
9
9 Z

7HO.F.OYG02282200078

9

9

9

9

8TXT.AJH •• A8 •• AAOYAA
.,
Y9
Y9 V9 VV
9

9

9

9

9.,

9

Z

9

9

9 9 -

Y-

z

'" 0- -

9PFAIFAA9-070YG02BAO
8Ig YYY -8 I R8+
9 9

O.O.PCSASAAAAAGAIOAO
88Y8Y-VQYlQ Y-+
9
09 9

00GAIOAAOOGA82200011t
9IY 8-Y 9ZY

lKA.00GA18DAOAG012HF
8- 9ZY 8QY+YZ '.IRQ

AHHAACEAOAGA82200075
9-0QY9QY+YZV
999

9

9 9

9

., 9

9

BTXT.AKA •• A8 •• AAKG1J
9
Y9V V9 V9 9 Y
999
9

0.BEABA2ACBOMN9KKB7F
6QY9Y88RB-19 Z 9 Q
999 99909
Z

178K4/K88M8PEA4KF80V

BTXT.AK8 •• A8 •• AAOYAA
9
V99 V9 Y9 -Q

AAGA2BAHOYGA2BFHOYGO
QYIY R-9 ZQ R-9 Z
09
9

IFABAAGA22A.OVGA3DAB
Q-9QYZY 9ZV 8-9
o 09
9

9

9

9

9

BTXT.AKO •• A8 •• AA3DAB
9
Y9+ V9 Y9 B-9
9 -

9

9

9

9

BTXT.AKQ •• AB •• AAAAAA
9
Y90 Y9 V9-VQ9
9

9

9

7DGA30AA7+E050AAOIGA
-IY SZY Z+ Q-Y ZY

0

-

9

GA30AA7HE050AAOZGA2H
IY alY RZ+ Q-Y ZY
9

-

9

A-OIG+30FAOYG030A.OY
Z 8-9 Z 8-

BTXT.AlQ •• AO •• AAAAGA
9
Y99 V9 Y9QYZV
<;
9
9 09

24A.OYGA3KHCAF.A32NG
IV aIYY9 Y 9 9

0 (0
lit

9

9

Z

8

9

GOItMKG7AO.FJ82200019
Z

Y 9 Q

9

-Y

9

10GA22AJOVGA82200080
YlQ 9-V ZY
9

9

-9

F.Ol070IAA1HE050AAOZ
-8 ZY RZ+ Q-Y

GA2SFJOZ070Z82200082
IY 8-V -8

<.I

FAOVAAOYGA3082200081
-Y ZQ 8

9

9

7H1HG-3KADAAGA3AAJOV
o OZ 8-9QVIV Y-Y
09
9 9

0

GA3KAHAH.A30B22000BIt
IV 8Z0Y9 V R
9

15JUN61
130498

10
F822-0
PAGE
26

~)
" ,',
I

:'"(\,
I"

~._ •.

i

{
0 '0'
.. ;

f)
\'t_
f} 'll.
0
i

I

0
1\

~O
t . 'i

,f)
I

0

~,\

.

~

~

n!1
"J

0,
'iJ

rl1
"",}

'J D
"

"

.~

..J

J

a

~

~I

a

cf") {)

\(~."

,0

(1)
l

0 (0

f)
.l_-"

0
t

tr)
'!t~~' "

I ,'~.

i

',I

'0

}

o

oee

0 C
1

c

0"',·'

IBM MAINTENANCE DIAGNOSTIC PROGRAM

"

o

o o

C·"

...

PIN 840103
PAGE
3

SAMPLE CORRECT PRINTOUT

01
02
03
04
05
06
07
08
09
10
11

12
n
14
15
16

00135C ooe.F8304 08
- TST 0370ADR 0018A4 LINK..,
- ADR 001182 SIO- C/lW 001BB8- cew 050011131 80000020- ecw 00001831 00000064- CC 0 EXP- CC 0 ACT- esw 00001Be8 OaOOOOOI EXP- CSW 00001Be6 0.8000001 ACT- CSW 0",,000000 O~OOOOOO exp- CSW 00000000 04000000 ACT- SNS 00 EXP- SNS 00 ACT.
- LOG OQ 000000 000000 000000SIO, SS 1 ON FOR TID SIO LOOPFOR
LOOP
ON
ON
- SS 0

- sao

01

0 C 0 0 0 (l 0; 0'

THIS UNE SHOWS THE CONDITION CODE EXPECTED, BY THE
PROGRAM, IN .RESPONSE TO ISSUING THE 1-0 COMMAND.

08

THIS LINE SHOliSTHE ACTUAL CONDITION CODe SET IN RESPONSE
TO THE 1-0 COMMAND.

09

THIS LINE DISPLAYS THE FIRST CSW EXPECTED BY THE PROGRAM.
A Bri:' BY BIT DESCRIPTION OF THE' DEVICE STATUS BYTE PORTION
OF THE CSW, APPEARS IN THE PROGRAM LISTING, FOLLOWING
THE TEST NUMBER DESCRIPTIONS.

10

THIS LINE DISPLAYS THE ACTUAL CSW RECIEVED BY THE PROGRAM.
NOTE ••• FOR EVERY EXPECTED -EXP- CSW PRINTED OUT THERE
SHOULD BE A CORRESPONDING ACTUAL -ACT- CSW
PRINTED OUT ON THE NEXT LINE. THE ABSENCE
OF A -ACT- CSW PRINTOUT INDICATES A MACHINE
FAILURE. A MACHINE FAILURE IS ALSO INDICATED
IF THERE ARE -ACT- CSW PRINTOUTS WHEN THERE
ARE NONE EXPECTED.

11

THIS LINE WILL APPEAR IF THE PROGRAM EXPECTS MORE THAN
ONE CSW.

-

4.2.2 ANALYSIS OF SAMPLE PRINTOUT
LINE

Q

01

MESSAGE

LINE

,

IBM MAINTENANCE DIAGNOSTIC PROGRAM

STATUS MESSAGES
4.2.1

.

e
J

PIN 840103
PAGE
~A

1403 FUNCTION TEST

1403 FUNCTION TEST

4.2

0 C CJ 0

12

THIS LINE WILL APPEAR IF THE PROGRAM RECIEVED A SECOND CSW.

13

THIS LINE SHOWS THE SENSE BYTE EXPECTED BY THE PROGRAM.
A BIT BY BIT DESCRIPTION OF THE 1403 SENSE BYTE APPEARS
IN THE PROGRAM LISTING, AFTER THE TEST NUMBER DESCRIPTIONS.

14

THIS LINE SHOWS THE ACTUAL SENSE BVTE RECIEVED BY THE PROGRAM.

EXPLA~ATION

THIS IS THE HEADER LINE PRINTED flY OM., IF AN ASTERISK
PRECEEDS THE -500- AN ERROR HAS CAUSED THE MESSAGE
PRINTOUT., IF NO· ASTER lSI( . IS PRINTED, THE MESSAGE
1SA RESULT OF ElTHER, ,H,IIVING THE CORRECT PRINTOUT
SWITCH .. ON OR AN OPERATOR MESSAGE IS TO FOllOW.
ALL LINES THAT FOLl.OW THE-SDO- .ARE PART OF THAT SAME
MESSAGE. THE START OF A NEW MESSAGE IS INDICATED
BY ANOTHER -SOO- PRINTOUT. THE -F830R'"; IS THE SECTION
ID NUMBER .WHERE -R- REPRESENTS THE REVLSION LEVEL OF
THE PROGRAM. THE -DB- IS THE PROGRAM ROUTINE NUMBER
WHILE THE -OOE- IS THE ADDRESS OF THE DEVICE UNDER
TEST.

02

THIS IS THE TEST NuM8ER ASSOCIATED WttH THE MESSAGE. AT. THE
8EGINNIN~OF THE PROGRAM LISTING, THERE IS A LIST OF TEST
NUMBERS. WITH THE,TEST NUMBER IS A SHORT EXPLANATION OF
WHAT WAS BEING DONE, AND WHAT SHOULD OCCUR.

03

THIS LINE SHO~S THE ADDRESS FROM WHICH THE 1-0 HANDLER
SUB-ROUTINE WAS ENTEREO. ALL 1-0 COMMANDS ARE ISSUED
FROM THIS SUB-ROUlINE, SO IT I S ENTERED MANY TI ME S FROM
MANY PLACES. TO INSURE THE SPECIFIC 1-0 OPERATION
WILL BE THE NEXT .ONE PERFORMED, RESTART THE PROGRAM WITH A
SYSTEM RESET, PSW RESTART, AND ADDRESS STOP AT THE GIVEN
ADDRESS.

04

THIS liNE SHOWS THE ADDRESS OF THE START 1-0, TEST 1-0.
OR HALT 1-0 THAT WAS ISSUED IN THE 1-0 HANDLER SUB-ROUTINE.

05

THIS 1..INE SHOWS THE ADDRESS OF THE CCW TO BE I SSUED BY
A START 1-0 COMMAND. IF CCWS ARE CHAINED, THE ADDRESS
GIVEN REFERS TO THE FIRST CCW IN THE CHAIN.

06

THIS LINE DISPLAYS THE FIRST CCW. THE FIRST BYTE CONTAINS
THE COMMAND CODE. THE NEXT 3 BYTES CONTAIN AN ADDRESS IN
STORAGE, WHICH WILL 8E USEO IF DATA TRANSFER IS PERFORMED.
THE NEXT BYTE CONTAINS FLAGS USED BY THE CHANNEL. THE LAST
3 BYTES ARE THE COUNT FIELD. IF CHAINING IS INDICATED IN
BYTE 4, ADDITIONAL CCWS WILL BE SHOWN BELOW THIS LINE.

TltiS LINE DISPLAYS THE CPU AND CHANNEL LOGOUT AREA ON
MODEL 30 SYSTEMS. IT WILL NOT APPEAR ON ANY OTHER SYSTEM.
16

THIS LINE SHOWS THE SECTlON SENSE SWITCH lOOPOPlIONS.
IF AN ERROR HAD OCCURRED, AND DM SENSE SWITClf'li:5 WAS ON,
A HALT WOULD NOW OCCUR, TO ALLOW SETTING OF THE SECTION
SENse SWITCHES. TO INSURE THAT YOU WILL LOOP ON 11-1"
COMMAND THAT FAILED, YOU SHOULD REQUEST A HA.lT.ONERROR.
set'THE PROPER SENSEswnCH ON, AND PRESS THE EXTERNAL
INTERRUPT KEY TO LOOP.

- PREVlOUSHANGU'p>DE:tecTED- SEE DESCRIPTION-COMMENTS COMMENTS

5.

5 .. 1

LOOPI NG
IF IT IS DESIRED TO LOOP ON AN "NTIRE ROUTINE RATHER THEN USE THE
SECTI ON. SENSE SW ITCH LOOPS PRovlDED.
MANUAllY ENTER
THE NUMBER OF THE ROUTINE IN X04C. WHERE X STANDS FORJ:HE RelOCATION
ADDRESS. NOW PERFORM A SYSTEM RESET-PSW RESTART, TO LOOP THE ROUTINE.
SENSE SWITCHES MAY BE SET BY MANUALLY ENTERING THE DESIRED BITS.

5.2

HANG UP
THE HANG UP MESSAGE .WILl APPEAR IFASVI;TEM RESET PSW. RESTART IS
PERFORMED AFTER A HANGUP CONDITION ON AN 1-0 COMIiiAND. FOLLOWING
THIS LINE WILL BEA PRINTOUT SIMILAR TO THE ABOVE SAMPLE MESSAGE.

A FALSE HANG UP MESSAGE PRINTOUT CAN OCCUR IF THE OPERATOR PERFORMS
A SYSTEIl RESET-PSW RESTART WHILE THE PROGRAM IS RUNNING. THE PROGRAM
WILL RESTART AFTER PRINTING THE MULTI-LINE ERROR MESSAGE. OR ANOTHER
SYSTEM RESET psw RESTART MAV BE PERFORMED TO BYPASS THE ERROR MESSAGE.

------~--------------------------------------- LAST PAGe -----------------------------------------------DATE
Ee

15MAR66
125632

15NO\l66
125655

120CT67
131812

10

PAGE

F830-*
3

DATE
EC

15MAR66
125632

15NOV66
125655

120CT61
131812

to

PAGE

1'830-*
3A

4

4 24

UX #0..24 U .4£ , ,A,

----

----

-

--

----------------------

-

-----

-------------

.~

;:

o

0 0 C) () 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 000000000000000000000000000 00_
..
PIN 840104
PAGE
1

IBM MAINTENANCE DIAGNOSTIC PROGRAM

Ilt03 PRINTER FUNCTION 1

1403 PRINTER FUNCTION 1
~OCAT

OBJECT CODE

LOCAT

SOURCE STATEMENT

STMT

OBJECT CODE

2
3

b4

65
66
67

PRINT ON,GEN,DATA
XF8305 START 4096
USIIIIG .,15

4
5

•

6

•

b8

1

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

8

• MODIFICATIONS

9

•

69
70
71

72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105

10 • REVISION LEVEL 5. THIS REVISION OIFFERS FROM VERSION 4 AS FOllOWS •••
11.
1. PROGRAM HAS 8EEN MODIFIED TO RUN WITH 01'1-44.
12 •••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
13 • REVISION LEVEL 4. THIS REVISION DIFFERS FROM VERSION 3 AS FOLLOWS •••
lit.
1. THE PROGRAM HAS 8EEN MODIFIED TO INCLUDE -TEST NUM8ERS15.
2. THE PROGRAM WILL TEST THE R~SET OF THE CARRIAGE LATCHES
16 •
ON A PRINT AND SPACe COMMANO.
11.
3. INCREASED TESTING AND USE OF HALT 1-0 INSTRUCTION.
18.
4. TEST THE ABILITY TO SET AND SUPPRESS INCORRECT LENGTH RECORD
19 •
ON A READ COMMAND.
20.
I
5. INCLUDE TESTING PREVIOUSLY HANDLED 8Y PROGRAM 10 F833 WHICH
21 •
IS NOW 08S0LETE.
22 • E.C. PREREQUISITES
23.
MACHINE • • • 2821 MUST 8E AT MINIMUM EC 125655
24.
PROGRAM • • • NONE
25 • USE OESCRIPTION F830. AT EC 125655, DATED NOV 15, 1966 OR LAT~R.
26
• •••••••LEVEL
••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••
21 ••••
• REVISION
3. THIS REVISION DIFFERS FROM VERSION
2 AS FOLLOWS •••
28.
1. tHE PROGRAM HAS BEEN MODIFIED TO RESET THE BLOCK DATA C~ECK
29 •
LATCH, ON UCS PRINTERS, DURING INITIALIZATION OF THE SECTION.
30 • E.C. PREREQUISITES
31.
MACHINE • ~ • 2821 MUST BE AT MINIMUM E.C. LEVEL 124265.
32.
'PROGRAM... NONE
33 •••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
34 •
35 •
36 •••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
31 •
TEST NUM8ER DESCRIPTION
38 •••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
39 •••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
~O
• TEST
DESCRIPTION
41 •
42 •
ROUTINE 01
43 •
44

45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62

DATE
EC'S

lSMAR66 15NOV66 120CT67
125632 125655 131812

•

• DOlO' - OPERATION ATTEMPTED
•
A TEST 1-0 IS ISSUED TO A READY DEVICE.
•
EXPECTEO RESPONSE
•
•
EXPECT CONDo COOE 0 ICOMMAND ACCEPTED)
•
•
POSSIBLE FAILURE CAUSES
•
•
1. CONOITION CODE 2 INDICATES THE CHANNEL APPEARS TO BE BUSY.
•
2. CONDITION CODE 3 INDICATES THERE IS NO DEVICE FOR THE
•
ADDRESS USED. THE OM UDT ENTRY COULD 8E IN ERROR, OR THE
•
DEVICE MAY 8E OFF LINE.
•
3. IF CONDITION CODE 1 IS SET, THE CSW MUST BE INSPECTED TO
>Ii
DETERMINE THE CAUSE. UNIT CHECK MIGHT BE DUE TO NOT READY
•
DEVICE. CHANNEL OR DEVICE END INDICATES THAT AN INTERRUPT
•
WAS PENDING IN THE CHANNEL.
•

10
PAGE

F830-5
1

!I

A SENSE START I-D IS ISSUED TO READY DEVICE.

*•

EXPECTED RESPONSE

•
•

EXPECT CDND. CODE D ICDMMAND ACCEPTED)

*

*

*•
•

*
*

*•

POSSIBLE FAILURE CAUSES
1. CDNDITIDN CODE 2 COULD BE DUE TO A PENDING CHANNEL END, DR
A BUSY CHANNEL.
2. IF CONDITIDN CDDE 1 WAS SET, THE CSW'MUST BE INSPECTEC TD
DETERMINE THE CAUSE. DEVICE END WITH DEVICE BUSY INDICATES
A DEVICE END WAS PENDING IN THE DEVICE.

•
• 0030 - OPERATION ATTEMPTED
•
A TEST 1-0 TO PENDING CHANNEL AND DEVICE END FROM PREVIOUS
*•
SENSE IS ISSUED.
•
•
EXPECTED RESPONSE

*

•
•

*•
*

•

,*
*•

EXPECT CONDo CODE 1 AND CHANNEL ENO DEVICE END BOTH IN THE CSW
FROM THE PREVIOUS SENSE 1/0 COMMAND.
POSSIBLE

CAUSES

FAILUR~

1. CONDITION CODE 2 INDICATES THE CHANNEL IS BUSY.
2. FAILURE TO RECEIVE CHANNEL AND DEVICE END COULD INDICATE
THE DEVICE FAILED TO PRESENT ENblNG STATUS.

•

*
•
•
•
•
•

0040 - OPER,A TION ATTEMPTED
ANOTHER TIO IS GIVEN.
EXPECTED RESPONSE
EXPECT CONDo CODE O.
INTERRUPTS.

DEVICE SHOULD BE CLEAR DF PENDING

*

POSSIBLE FAILURE CAUSES

110
III
112

•
•
•

113

•

1. CONDITION CODE 1 WITH UNIT CHECK IN THE CSW COULD INDICATE
A NOT READY DEVICE. CHANNEL OR DEVICE END INDICATES THE
PREVIOUS TIO FAILED TO CLEAR THEM.

114
115
116

•
•
•

15MAR66 15NOV66 12DCT67
125632 125655 131B12

,

0020 - OPERATION ATTEMPTED

•

•
•

120
121
122
123
124
125
126

I

•

107
108
109

119

{

ROUTINE 02

•

*•

•

118

DATE
EC'S

•

lOb

117

*

SOURCE STATEMENT

STMT
63

PROGRAM LENGTH = 3944 IDECIMAL)
01000
01000

PIN 840104
PAGE
lA

IBM MAINTENANCE DIAGNOSTIC PROGRAM

**
*
•

*
•
*

*
**

ROUTINE 03
0050 - DPERATION ATTEMPTED
A SENSE SID IS ISSUED.
EXPECTED RESPONSE
EXPECT CHANNEL END DEVICE END TOGETHER.
POSSIBLE FAILURE CAUSES

ID
PAGE

F830-5
1A

. - ....

IBM MAINTENANCE DIAGNOSTIC PROGRAM
1~03

LOCAT

PRINTER FUNCTION 1
OBJECT CODE

.._ - - - - - - - -

PIN B40104
PAGE
2A

1403 PRINTER FUNCTION 1
STMT

SOURCE STATEMENT

LOCAT

127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153

•
•
1. FAILURE TO RECEIVE CHANNEL AND DEVICE END INDICATES THAT
•
ENA8LING THE CHANNEL FOR 1-0 INTERRUPTS FAILED TO BRING IN
•
THE DEVICE STATUS.
•
•
• 0060 - OPERATION ATTEMPTED
•
•
TEST 1-0 IS ISSUED.
•
•
EXPECTED RESPONSE
•
•
EXPECT CONDo CODE O. DEVICE SHOULD BE CLEAR OF PENDING
•
INTERRUPTS.
•
•
•
ROUTINE D~
•
• 0070 - OPERATION ATTEMPTED
•
•
A NOP SID IS ISSUED TO READY DEVICE.
•
•
EXPECTED RESPONSE
•
•
EXPECT CONDo CODE 1 WITH CHANNEL END DEVICE END STORED IN
•
THE CSW. NO INTERRUPT SHOULD OCCUR.
•

154

•

155
156

• 0080 - OPERATION ATTEMPTED
•
•
IF UCS PRINTER A PRE-CONDITION LOAD IS ISSUED.

157
158

•
•
•
•
•
•

165

•

167

•

168
169

OBJECT CODE

•

•
•

211

228

•

EXPECTED RESPONSE

229
230
231
232
233
234
235
236
237
238
239

•
•
•
•
•
•
•
•
•
•
•

THIS COMMAND ACT~ LIKE A NDP. EXPECT CONO. CODE 1 WITH
CHANNEL END DEVICE ENO STORED IN THE CSW. NO INTERRUPTS
SHOULD OCCUR.

240

•

241
242
243

•
•
•

244

•

THIS COMMAND ACTS LIKE A NOP. EXPECT CONDo CODE 1 WITH
CHANNEL END DEVICE END STOREO IN THE CSW. NO INTERRUPTS
SHOULO OCCUR.

•NOTE
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
••• THIS TEST ODES NOT PRINTOUT IF THE CORRECT PRINTOUT
SWITCH IS ON AND THE TEST DEVICE IS
PRINTER.

NOT

A UCS

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

172
173
174
175
176
177
178
179

•
•
•
•
•
•
•
•

180

•

181
182
183
184

•
•
•
•

185

•

186

•

IF UCS PRINTER A 8LOCK DATA CHECK IS ISSUEO.

•NOTE
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
••• THIS TEST OOE·S NOT PRINTOUT IF THE CORRECT PRINTOUT
SWITCH IS ON AND THE TEST DEVICE IS
. PRINTER.

NOT

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

190

•

"

,

IF UCS PRINTEit AN AllOW DATA CHECK IS ISSUED.

254

15MAR66 15NOV66 120CT67
125632 125655 131B12

10

PAGE

•• 1,

FB30-5
2

ii

EXPECTED RESPONSE
EXPECT CHANNEL END DEVICE END AND INCORRECT LENGTH RECORD
ALL TOGeTHER.
01~0

- OPERATION ATTEMPTED
A DIAGNOSTIC READ IS ISSUED WITH COUNT OF 131 WITH SLI FLAG.
EXPECTED RESPONSE
EXPECT CHANNEL END DEVICE END TOGETHER.
RECORD SHOULD BE 8LOCKED.

INCORRECT LENGTH

245 . • 0150 - OPERATION ATTEMPTED
246 •
247 •
A OIAGNOSTIC WRITE J S ISSUED WITH COUNT OF 133.
248 •
249 •
EXPECTED RESPONSE
250 •
251 •
EKPECT CHANNEL END, INCORRECT LENGTH RECORD, AND RESIDUAL
252 •
COUNT OF 1. THEN DEVICE END.
253 •

A UCS

187. • 0100 - OPERATION ATTEMPTED

iii,
i

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

•
EXPECT CHANNEL END AND THEN DEVICE END. INCORRECT LENGTH
•
RECORO SHOULD 8E BLOCKED.
•
•
• 0130 - OPERATION ATTEMPTED
•
•
A DIAGNOSTIC READ IS ISSUED WITH COUNT OF 131.

EXPECTED RESPONSE

•

•

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

•

• 0090 - OPERATION ATTEMPTED

•

212
213
214
215
216
217
218
219

•
EXPECTED RESPONSE
•
•
THIS COMMAND ACTS LIKE A NOP. EXPECT CDND. CODE 1 WITH
•
CHANNEL END DEVICE END STORED IN THE CSII. NO INTERRUPTS
•
SHOULD OCCUR.
•
•
NOTE ••• THIS TEST DOES iii 0 T PRINTOUT IF THE CORRECT PRINTOUT
•
SWITCH I S ON AND THE TEST DEVICE IS NOT A UCS
•
PRINTER.
.
,
•
•
•
•
ROUTINE 05
•
• 0110 - OPERATION ATTEMPTED
•
•
A DIAGNOSTIC WRITE IS ISSUED WITH COUNT OF'131.
•
•
EXPECTEO RESPONSE
•
•
EXPECT CHANNEL END WITH INCORRECT LENGTH RECORD .ND THEN
•
DEVICE END.
•
•
• 0120 - OPERATION ATTEMPTED
•
•
A DIAGNOSTIC WRITE IS ISSUED WITH COUNT OF 131 WITH SLI FLAG.
•
•
EXPECTED RESPONSE

220

170

188

SOURCE STATEMENT

221
222
223
224
225
.226
227

171

189

\
STMT
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210

•

159
160
161
162
163
164
166

DATE
EC'S

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840104
PAGE
2

--~-

DATE
EC'S

15MAR66 15NOV66 120CT67
125632 125655 131B12

..J .______.

•

10

PAGE

F83D-5
2A

..

0000

o

0 0 0 0 0 00 ;0 0 0 0 0 0 0 0 0 0 0 0 .0 0 0 0 O. 0 O. 0 0 U

O· 0·'" 0'" O:CJOO
hi

,

'\

IBM MAIMTENAMCE DIAGNOSTIC PROGRAM

o

IBM

PIN 840104
PAGE
3

OBJECT CODE

STMT
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273

274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311

DATl!

EC'S

o

MAI~TENANCE

o 00000000_

0' 0

DIAGNOSTIC PROGRAM

PIN 840104

PAGE

3A

1403 PRINTER FUNCTION 1

1403 PRINTER FUNCTION 1
LOCAT

o

0

LOCAT

SOURCE STATEMENT

*

*
*
*
*
*
•
*

A DIAGNOSTIC WRITE IS 1 SSUED WITH COUNT OF 133 WITH SLI FLAG.
EXPECTED RESPONSE
EXPECT CHANNEL END WITH RESIDUAL COUNT OF 1 AND THEN DEVICE
END.
0170 - OPERATION ATTEMPTED

•

A DIAGNOSTIC READ IS ISSUED WITH COUNT OF 133.

*
*
*
*

EXPECTED RESPONSE

*

•

*
*

**
*
*
*
*

EXPECT CHANNEL END, DEVICE END, INCORRECT LENGTH, AND
RESIDUAL COUNT OF 1 ALL TOGETHER.
0180 - OPERATION ATTEMPTED
A DIAGNOSTIC READ IS ISSUED WITH COUNT OF 133 WITH SlI FLAG.
EXPECTED RESPONSE
EXPECT CHANNEL END DEVICE END WITH RESIDUAL COUNT OF 1
ALL TOGETHER.

*
*
*

*

ROUTINE 06

*

• 0190 - OPERATION ATTEMPTED
•
*
A DIAGNOSTIC WRITE IS ISSUED.
•
*
EXPECTED RESPONSE
•
*
EXPECT CONDo CODE O. NO INTERRUPTS ARE CLEARED.
•
•
* 0200 - OPERATION ATTEMPTED
•
*
ANOTHER DIAGNOSTIC WRITE IS ISSUED.
•
EXPECTED RESPONSE
•

*
*
*
•
*
*
•

EXPECT CONDo CODE 2 BECAUSE CHANNEL END OF PREVIOUS WRITE WAS
NOT CLEARED.
0210 - OPERATION ATTEMPTED

•
•

*
*•
*•

312
313
314
315
316
317

*
•

318

•

371

A HALT 1-0 IS ISSUED.

372

EXPECTED RESPONSE

374
375
376
377
378
379
380
381
382

373

EXPECT CONDo CODE 0

• 0220 - OPERATION ATTEMPTED

15MAR66 15NOV66 120CT67
125632 125655 131812

STMT
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370

0160 - OPERATION ATTEMPTEO

*
*
*
*

OBJECT CODE

A TEST 1-0 IS ISSUED.

10
'PAGE

F830-5
3

I

DATE
EC'S

SOURCE STATEMENT
•

EXPECTED RESPONSE

•

EXPECT CONDo CODE 1 AND CHANNEL END FROM PREVIOUS DIAGNOSTIC
WRITE SHOULD BE IN THE CSW.

*
•
*
*
*

•
•
•
•

0230 - OPERATION ATTEMPTED
A HALT 1-0 IS ISSUED.
EXPECTED RESPONSE

*
•

*
*
•
*

EXPECT ZERO CSW AND CONDo CODE 1.
0240 - OPERATION ATTEMPTED

*'

ANOTHER DIAGNOSTIC WRITE IS ISSUED.

•
•
•
•
•

EXPECTED RESPONSE
EXPECT DEVICE 8USY AND DEVICE END. CONDo CODE 1 SHOULD OCCUR
8ECAUSE DEVICE ,END SHOULD STILL 8E PENDING.

*•

• 0250 - OPERATION ATTEMPTEO
•
•
A HALT 1-0 IS ISSUED~
•
•
EXPECTED 'RESPONSE

*

•
•
•

*

*

EXPECT A ZEROED CSW AND A CONDo CODE OF 1.
0260 - OPERATION ATTEMPTED

*

A TEST 1-0 IS ISSUED.

*
•
*•
*
•

EXPECTED RESPONSE
EXPECT CDND. CODE 1 BECAUSE THE DEVICE SHOULD BE CLEARED OF
PENDING INTERRUPTS.

•

*

ROUTINE 07

•

*

0270 - OPERATION ATTEMPTED

*
*
*
*
*
*
*
*
*
* 0280
•
*
*
*
•
*
*

A NOP SIO IS ISSUED TO A NOT READY DEVICE.
EXPECTED RESPONSE
EXPECT UNIT CHECK ALONE AND CONDo CODE OF, 1. A SENSE IS
ISSUED AND INTERVENTION REQUIRED SHOULD BE IN THE SENSE BYTE.
- OPERATION ATTEMPTED
A TEST 1-0 IS ISSuED TO A NOT READY DEVICE.
EXPECTED RESPONSE
EXPECT UNIT CHECK ALDNE ANO CONDo CODE OF 1. A SENSE IS
ISSUED AND INTERVENTION REQUIRED SHOULD BE IN THE SENSE BYTE.

ID
PAGE

15MAR66 15NOV66 120CT67
1256~2
125655 131812

.'."--.-'----,.~,--------

F830-5
3A

\,

\.
\.

, j

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840104

PAGE

OBJECT CODE

~OURCE

SHIT

3B3
384
385
386
381
388
389
390
391
392
393
394
395
396
391
398
399
400
401
402
403
404
405
406
401
408
409
410
loll

412

*
*
• 0290
*
*
*
*

0300 - OPERATION ATTEMPTED
A NOP SID IS ISSUED TO A NOT AVAILABLE DEVICE. (OFF LINE)

•

EXPECTED RESPONSE

*
•
*•

*

•
•

- OPERATION ATTEMPTED

EXPECT A ZERoeD CSW WITH CONDo CODE 1.

*
*

CONO. CODE 3 SHOULD BE SET INOT OPERATIONAL)
0310 - OPERATION ATTEMPTED
A TEST 1-0 IS ISSUED TO A NOT AVAILABLE DEVICE. (OFF LINE)

*

*

EXPECTED RESPONSE

•
•
•

loll

412
413
474
415
416

CONO. CODE 3 SHOULD BE SET (NOT OPERATIONAL)

*

• 0320 - OPERATION ATTEMPTEO

loll

413

•

414
415
416

•

A HALT ]-0 IS ISSUED TO A NOT AVAILABLE DEVICE. (OFF LINE)

*•

EXPECTED RESPONSE

411

*

15MAR66 15NOV66 120CT61
125632 125655 131812

-----------

o o

418
419
480
481
482
483
484
485
4B6
481
488
489
490
491
492
493

10
PAGE

F830-5
4

-494

495
496
491
498
499
500
501
502
503
504
505
506
507
508
509
510

DATE
EC'S

15M4R66 15NOV66 120CT61
125632 l25655 131812

--,

4A

-

SOURCE STATEMENT

*
*
*
**
*
*
*

EXPECT CHANNEL END AND THEN DEVICE END.
NOTE ••• NO HAMMERS WILL 8E FIRED.
0360 - OPERATION ATTEMPTED
A SKIP 10 1 IMMEDIATE IS ISSUED.

*

EXPECTED RESPONSE

*

EXPECT CHANNEL END AND THEN DEVICE END. PREVIOUS PRINT AND
SPACE SUPPRESS SHOULD HAVE RESET THE CARRIAGE LATCHES, AND
THE CARRAIGE SHOULD SKIP TO THE NEXT CHANNEL 1.

•

•
•

*

*
*
**
*
*
*•
*
*

*•
*
•
*

**
*
*
*
*
*
*
*

*
*•
*
*

•

•

ROUTINE 08
0310 - OPERATION ATTEMPTED
A DIAGNOSTIC WRITE WITH A COUNT OF,32 IS DATA CHAINED TO AN
INVALIO COMMAND WITH A COUNT OF 100.
EXPECTED RESPONSE
EXPECT CHANNEL END AND THEN DEVICE END. NO ERRORS SHOULD
OCCUR BECAUSE THE SECOND COMMAND SHOULD NOT BE INSPECTED.
ROUTINE 09
0380 - OPERATION ATTEMPTED
A NOP J'S COMMAND CHAINED TO ANOTHER NOP WITH A COUNT OF 1.
EXPECTED RESPONSE
EXPECT CHANNEL END DEVICE END AND RESIDUAL COUNT OF 1 TOGETHER
EXPECT CONDo CODE 0 ON THE SID BECAUSE OF THE CHAIN FLAG.
THE ADDRESS OF THE SECOND CCW PLUS 8 IS IN THE CSW.
ROUTINE 10
0390 - OPERATION ATTEMPTED

*

A DIAGNOSTIC CHECK READ IS ISSUED.

•

EXPECTED RESPONSE

*
*

EXPECT CHANNEL AND DEVICE END· TOGETHER.

•

*

•
•

*
•
*
*
•
*
•

*

•
•

*

ROUTINE 11
0400 - OPERATION ATTEMPTED
A PRINT AND SKIP TO 1 IS ISSUED. THIS TEST ACCEPTS ONLY
CHANNEL END INTERRUPT AND GOES TO TEST 0410 BEFORE DEVICE
END 15 CLEARED.
EXPECTED RESPONSE
EXPECT CHANNEL END ONLY.

tD
PAGE

F830-5
4,11

.

0. .·/ () 0 (0 0 00 00 0 0 iO 00 ()
-

STMT
441
448
449
450
451
452
453
454
455.
456
451
458
459
460
461
462
463
464
465
466
461
468
469
410

EXPECTED RESPONSE

*
*
*

OBJECT CODE

ISSUE A HALT 1-0 TO NOT READY DEVICE.

•

*
*

LOCAT

STATEMENT

418 •
CONO. CODE 3 SHOULD BE SET (NOT OPERATIONAL).
41:9 *
'420 *
'421 * 0330 - OPERATION ATTEMPTED
422 *
423 *
A TEST ]-0 TO A DEVICE THAT JUST WENT FROM NOT READY TO READY.
424 *
425 *
EXPECTED RESPONSE
426 *
421 *
EXPECT DEVICE END ALONE, WITH A CONDo CODE 1.
428 *
429 *
430 * 0340 - OPERATION ATTEMPTED
431 *
432 *
A SKIP TO 1 IMMEDIATE 15 ISSUED TO A DEVICE WHOSE CARRIAGE WAS
433 *
JUST RESTORED.
434 *
435 *
EXPECTED RESPONSE
436 *
431 •
EXPECT CHANNEL END AND THEN DEV]CE END - NO CARRIAGE MOTION
438 •
SHOULD OCCUR SINCE THE CARRIAGE IS ALREADY AT CHANNEL 1.
439 .*
440 *
441 * 0350 - OPERATION ATTEMPTED
442 *
443 •
A PRINT AND SPACE SUPPRESS IS ISSUED.
444 •
445 *
EXPECTED RESPONSE
446 •

DATE
EC'S

PIN 840104

PAGE
1403 PRINTER FUNCTION 1

1403 PRINTER FUNCTION 1
LOCAT

IBM MAINTENANCE DIAGNOSTIC PROGRAM

4

()

!@"'*HHt"-p

",.*'NMrtHilf

=..

g''''''''''''''''''''_''''''''''''''''''''1.' ..............'..., "'..Uiliol'it..V""....."N..' .."OIi,a",,I"""..W'' 'l101>h...sr..*tl........'M... ·*.....oil!
..'iIII*ji;'"1iiifii/lij""t.l.....•...
"OO1nill/iWIiii·W...'iII"''"''l!iiWt_ _ _'...
_ _ _ tt _ _ _
' ..

...

~iIl"""",~"""'''''$'

'h
....

'~itI

m_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ __

000000000000000000000000000000000_
IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 84010"

PAGE

OBJECT CODE

STMT

LOCAT

SOURCE STATEMENT

•
• 0"10 - OPERAT[ON ATTEMPTED
•
Slit •
A TEST 1-0 IS ISSUED TO A DEVICE WITH CHANNEL END CLEARED, AND
515 •
DEVICE END HAS NOT DCCURED YET.
516 •
517 •
EXPECTED RESPONSE
518 •
519 •
EXPECT DEV[CE 8USY AND THEN DEVICE END DUE TO THE OPERATION
520 •
OF THE PREVIOUS TEST 0400 WHICH LEFT A DEVICE END PEND[NG.
521 •
EXPECT CONDo CODE 1. DEVICE END FROM PREVIOUS SKIP IS NOW
522 •
CLEARED 8Y ENA8LING FOR INTERRUPTS.
523 •
52" •
525 • 0"20 - OPERATION ATTEMPTED
526 •
527 •
A PRINT AND SKIP TO 1 IS ISSUED.
528 •
THIS TEST ACCEPTS ONLY CHANNEL END INTERRUPT AND GOES TO
529 •
TEST 0430 BEFORE DEVICE END IS CLEARED.
530 •
531 •
EXPECTED RESPONSE
532, •
533 •
EXPECT CHANNEL END ONLY.
53" •
535 •
536 • 0"30 - OPERATION ATTEMPTED
531 •
538 •
A START 1-0 IS ISSUED TO A DEVICE WITH CHANNEL END CLEARED AND
539 •
DEV ICE END HAS. NOT OCCURRED YET.
5"0 •
541 •
EXPECTED RESPONSE
5"2 •
543 •
EXPECT OEVICE BUSY AND THEN DEV[CE END DUE TO THE OPERAT [ON
54" •
OF THE PREVIOUS TEST 0420 WHICH LEFT A DEVICE END PENO[NG.
545 •
EXPECT CONDo CODE 1. DEVICE END FROM PREVIOUS SKIP IS NOW
546 •
CLEAREO BY ENABLING FOR INTERRUPTS.
547 •
548 •
'.5"9 • 0"40 - OPERATION ATTEMPTED

OBJECT CODE

5U
512
513

550

551
552
553
554
555
556
557
558
559
560
561
562
q 563
56"
565
566
567
568
569
570
571
572
573
574

DAlE
Ee'S

15MAR66 15"40V66 120CUl
~t565$
131812 .

125632

PIN 8401010
PAGE
5A

1403 PRINTER FUNCTION 1

1403 PRINTER FUNCTION
LOCAT

IBM MAINTENANCE DIAGNOSTIC PROGRAM

5

•

•
•
•
•
•
•
•
•
•
• 0450 •
•
•
•
•
•
•
•
•
•
•
•
• 0460 •

A PRINT AND SKIP TO 1 IS ISSUED, AND ONLY CHANNEL END IS TAKEN
THIS TEST ACCEPTS ONLY CHANNEL END INTERRUPT AND GOES TO
TEST 0450 BEFORE DEVICE END IS CLEARED.
EXPECTED RESPONSE
EXPECT CHANNEL END ONLY.
OPERATION ATTEMPTED

01000
01004
01008
0100A
0100C
01000
DIODE
0100F
01010
01015
, 01018
01020
01028
01030
0103B
01040
01048
0104C
01054.
01058
01050
01060
01068
01070
01078
0107C
01080
010EO
010El
010E2

A HALT 1-0 IS ISSUED TO A DEVICE WITH CHANNEL END CLEAREO AND
DEVICE END HAS NOT OCCURRED YET.

EXPECT A ZEROED CSW AND CONDo CODE 1. DEV[CE END FROM
PREVIOUS SKIP IS NOW CLEARED BY ENABLING FOR INTERRUPTS.
ROUTINE 12
OPERATION ATTEMPTED

[0

F830-5
5

-_.--'-'-'---'---'"

OOOOO~OOOOOOOOOO

0000000000000000
0000000000000000
0000000000000000
0000000000000000
00000000
0000000000000000
00000000
0004000000
000000
0000000000000000
0000000000000000
0000000000000000
01040000
0000120C
83
00
8000

575
57,6
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
591
598
599
600
601

SOURCE STATEMENT
•
ISSUE A DIAGNOSTIC WRITE AND CLEAR ONE INTERRUPT.
•
•
EXPECTED RESPONSE
•
•
EXPECT CONDo CODE O. THIS TEST CLEARS CHANNEL END ONLY.
•
•
• 0480 - OPERATION ATTEMPTED
•
•
ISSUE AN INVALID COMMAND TO A DEVICE WITH DEVICE END PENDING.
•
•
EXPECTED RESPONSE
•
•
EXPECT DEV[CE BUSY AND DEVICE END TOGETHER, AND A CONDo CODE
•
OF 1. SENSE IS ISSUED AND NO BITS ARE EXPECTED TO BE SET.
•
•
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••
• ••••••••••••••••••
• SECTION PREFACE ••••••••••••••••••••••••••••••••••• SECTION PREFACE.
•••••••••••••••••••
• ••••••••••••••••••
SECNO DC
XL4'F8305000'
PROGRAM,SECTION AND REVISION NOS. •
SNSW
DC
XLIt'OO' ,
SECTION SENSE SWITCHES
•
DC
XL2'OO'
•
ICM
DC
XL2'OO'
INTERRUPTION CONDIT[ON MASK
..
SDMF
DC
XLl'OO'
SECTION OM FLAGS
.,
NIOU
bc
XLl'Ol'
NUMBER OF UNIT TABLE ENTRYS
.\

602 . FLAGl

DC

603
604
605
606
607
608
609
610
611
612
613

DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC

6110

615
616
617
618
619
620
621
622
623
6210

625

FLAG2
INPSW
EXOPSW
SVOPSW
PGOPSW
MCOPSW
100PSW
CSW
CAW

X'C('J'

EXCLUSIVE CPU

• \,

X'OO'
110 INT ARE ERR, EXT INT to PROG
•
X'OlOItOOOO.OO'
DISABLED, SPVSR STAT'E, NO PGM MASK.
AL31ROUTOU
A.DR OF 1ST ROUTINE PREFIX
•
XL8'O'
SECTION OLD EXTERNAL PSW
.•
XL8' 00'
CLEAR All OLD PSWS
' •
XL8' 00'
PROGRAM OLD PSW
•
XL8'OO'
MACHINE CHECK OLD PSW
•
XL8'00'
1/0 OLD PSW
•
XL8'OO'
CHANNEL STATUS WORD
•
XLIt'OO' , C A W
.•
XL12'OO'
RESERVED FOR D.M USE
•

EXNPSW
SRET
SVNPSW
PGNPSW
MCNPSW
IONPSW

DC
X'0004000000'
EXTERNAL NEW PSW
•
DC
XL3'O'
ADR OF EXT INTRPT ROUTINE
•
DC
XL8'OO'
SUPERVISOR NEW PSW
.,
DC
XL8'OO'
PROGRAM NEW PSW
•
DC
XL8'OO'
MACHINE CHECK NEW PSW
•
DC
XL4 ' 0101t0000'
1/0 NEW PSW
•
DC
AL41IRETRN)
ADDRESS OF 1/0 INTRPT ROUTINE
•
OS
96C
96 BYTE REG DUMP AREA FOR OM USE
•
UNIT1 DC
X' 83'
UNIT TYPE - 1419 MICR
•
UI0P
DC
X'OO'
OPTIONAL FEATURES BYTE
•
U1ADDR DC
X'8000'
FLAGS AND CHANIUNIT AODRESS
•
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

627 •
1403 SENSE BYTE
628 .......................................................................
629.
BIT
MEANING
630 •
0
COMMAND REJECT
631.
1
INTERVENTION REQUIRED
632.
2
.BUS OUT CHECK
633 •
3
EQUIPMENT CHECK - HAMMER FIRE CHECK
634'.
4
DATA CHECK - UCS PRINTERS ONLY - UNCOMPARABLE CHARACTER
635.
5
BUFFER PARITY CHECK - REFERS TO uts BUFFER
636.
6
NOT USED
637.
7
CHANNEL 9

EXPECTED RESPONSE

PAGE

F8305000
00000000
0000
0000
00
01
CO
00
0104000000
001954
0000000000000000

STMT

DATE
EC'S

15MAR66 15NOV66 120CT67
125632 125655 131812

._._---'---_.-._----------

ID

PAGE

F830-5

5A

\,

, i

IBM MAINTENANCE DIAGNOSTIC PROGRAM
1~03

LOCAr

OBJeCT coDe

snIT

664

665
666
661
668
669

670
671

612
613

614
615
616
611

618
619

680
681
682
683
684
685
686
681
688
689
690
691

692
693
694

695
696

691
698
699
700
101

o

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840104
PAGE
6A

1403 PRINTER FUNCTION

PRINTER FUNCTION

638
639
640
641
642
643
644
645
646
641
648
649
650
651
652
653
654
655
656
651
658
659
660
661
662
663

DATE
EC'S

PIN 840104
PAGE
6

15MAR66 15NOV66 120CT67
125632 125655 131812

SOURCE STATEMENT

*.*•••••••••

LOCAT

OBJECT CODE

•••••••••••••••••••••• *.**••• *•• *•••••••••• *••••••••••• *••
*
••••••••••••••••*•••••••••••••• ** •••• *•••••••••••••••• ****.*•••••••••••
•
1403 DEVICE STATUS
•••••••••••••••••••••••••••• *•••••••••••• *••• *•••••• *•• *.*.*.* ••• *•••••
•
•
•
•
•
•
•
•
•

81T
0
1
2
3
4
5
6
7

102
103
104
105
106
707
108
709

MEANING
ATTENTION - NOT USED
STATUS MODIFIER - 2 CHANNEL SWITCH FEATURE ONLY
CONTROL UNIT END - 2 CHANNEL SWITCH FEATURE ONLY
DEVICE BUSY
CHANNEL END
DEVICE END
UNIT CHECK
UNIT EXCEPTION - CHANNEL 12

710
711
712
713
714
715
716
711
718
719

••••*••••••••••• *•••••••••••••••••••••••••• *••••• *•••••••••••••••••••••

••••••••••••••••••••••••••••••••• *••••••••• *•••••••••••••••••••••••••••
1403 DIAGNOSTIC CHECK READ DATA
••••••••••••••••••••••••••••
*••••••••••••••••••••••••••••••••••••••••••

•
•
•
•
•
•
•
•

BIT
5

•••
••
•
*•
••
••

MEANING
ON - THE PRINT LINE COMPLETE 81T HAS BEEN SET FOR THIS
POSITION.
OFF - ON BASIC PRINTERS, A COMPARE BETWEEN THE DATA BEING
PRINTED, AND THE PRINT CHARACTER GENERATOR DID NOT
OCCUR IN THIS POSITION, AND THE CHARACTER WAS NOT
CONSIDERED A VALID UNPRINTABLE.

120
121
122

723
724

125
126
121
728
129

ON UCS PRINTERS, A COMPARE BETWEEN THE DATA BUFFER
AND THE UNIVERSAL CHARACTER SET BUFFER DID NOT OCCUR
AND THE CHARACTER WAS NOT CONSIDERED A NULL OR BLANK
6

••
•
••

7

130
131
732
133

ON

THE PRINT CHECK PLANE FOR THIS POSITION WAS SET ON.
THIS PLANE IS SET BY--1. A HAMMER FIRE AND AN EQUAL CHECK.
2. NO HAMMER FIRE AND NO EQUAL CHECK.
3. LINE FULL, NOT VALID UNCOMPARABLE CHARACTER, AND
NOT A PRINT LINE COMPLETE BIT IN THIS POSITION.
OFF - THE PRINT CHECK PLANE FOR THIS POSITION IS NOT SET.

134

ON

139

735
736
731
738

- A PARITY CHECK IN THE DATA BUFFER WAS DETECTED IN
THIS POSITION.

140
741

742
743

OFF - THIS POSITION OF THE DATA BUFFER HAS CORRECT PARITY.

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
PARAMETERS USEO TO ENTER
•

744

THE 1-0 HANDLER ROUTINE

••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
BAL
Rll,lSIO
LINK TO 1-0 HANDLER
•
•
•
•
•

DC
DC
DC
DC
DC

XL2' 0000'
X'OOI4'
X'FO'
X'OO'
AL2IADR-BASE+REGI

•

1
2
3

OFF
ON
OFF
ON
OFF
ON
OFF

-

ISSUE AN 1-0 COMMAND
DO NOT 1 SSUE AN 1-0 COMMAND
ENABLE
DO NOT ENABLE
EXPECT NO INTERRUPT
EXPECT AN INTERRUPT
DO NOT EXPECT 2 INTERRUPTS

•• 8
OFF
00 NOT ISSUE DIAGNOSTIC READ.
ON - ISSUE UIAGNOSTIC READ IF UNIT CHECK.
••
9
OFF - DO NOT ISSUE DIAGNOSTIC CHECK READ •
ON - ISSUE DIAGNOSTIC CHECK READ IF UNIT CHECK •
•••
10
OFF - PRINT HEADER
ON - 00 NOT PRINT HEADER
•••
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
.......................................................................
•
SWITCHES USED BY 1-0 HANDLER
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• SWITCH
DESCRIPTION
•
0
•
•
1
•
•
2
•
.•
3
•
•
4
•
.'5
•
•
6
•
•
7
•

DATE
Ee',s

92 9E

-

NO HANGUP ON INTERFACE
HANGUP OCCURRED
NO CSWS STORED
ONE CSW STORED
SECOND CSW NOT RECIEVED
SECOND CSW RECIEVEO
010 NOT ENABLE
ENABLED ONCE
DID NOT ENABLE TWICE
ENABLED TWICE
NO SENSE DATA RECIEVED
SENSE DATA RECIEVEO
NO UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE
UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE
NO ERROR DETECTED
AN ERROR WAS DETECTED

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
REGISTERS USED IN 1-0 HANDLER
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
REG
COMMENTS

9

USEO AS WORK REGISTER. WILL BE RESTORED UPON RfTURN.

163
164
F lA6

OFF
ON
OFF
ON
OFF
ON
OFF
ON
OFF
ON
OFF
ON
OFF
ON
OFF
ON

USEO AS WORK REGISTER. WILL BE RESTORED UPON RETURN.

757

010E6

7

8

158
159
760
161

0000

6

150
751

762

F830-5
6

••

5

USED AS LINK TO ERROR OUTPUT FROM INITIALIZE ROUTINE IF
PREVIOUS HANGUP ON INTERFACE DETECTED.

754

010E4

10
PAGE

•
•••

ON - EXPECT 2 INTERRUPTS
OFF - EXPECT NO CSWS
ON - EXPECT A CSW
OFF - 00 NOT EXPECT 2 CSWS
ON - EXPECT 2 CSWS
OFF·- ALWAYS TRY TO ISSUE SENSE
ON - SENSE ON UNIT CHECK ONLY
OFF - GIVE HALT OPTION ON DETECTED ERROR
ON - RETURN WITHOUT HALT OPTION

5

155
156

2 8YTE PARAMETER FOLLOWING BAL

0

••*

745
746 •
141 •
74B
149.
752
153

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• SWITCH
DESCRIPTION
•
•
•
•
•
•

SOURCE STATEMENT

•

CONTROL SWITCHES
TEST NO. IN DEC EXPRESSED IN HEX
EXPECTED CONDo CODE
EXPECTED SENSE DATA
ADOR. OF EXPECTED CSW IF NEEDED

••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••*••••••
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
]-0 HANDLER CONTROL SWITCHES
•

STMT

165

15MAR66 15NOV66 120CT67
125632 125655 131812

••

•
10
MUST CONtAIN CCW ADORESS UPON ROUTINE ENTRY
••
II
MUST
BE USED AS LINK REG TO THIS ROUTINE
•••
12
MUST CONTAIN DEVICE ADDRESS
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ISW
DC
XL2'O'
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
• 1-0 HANDLER SUB-ROUTINE.
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
IHIO
MVI
ISSUE,X'9E'
SET UP FOR HALT 1-0
ID
PAGE

F830-5
6A

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 0

o c 0: 0 0 0 C 0
IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN B40,104
PAGE
7

1403 PRINTER FUNCTION 1
LOCAT

OBJECT CODE

OIOEA
010EE
010F2
010F6
010FA
010FE
01102
01106
0110A
0110E
01112
Oillb
OlllA
OllIE
01124
01128
0112t
01130
01136
0113A
01l3E
01144
01148
0114C
01150

92 C8
92 C8
92 9E
47 FO
92 90
92 90
92 E3
92 E3
41 FO
92 9C
92 9C
92 E2
92 E2
02 01
90 AB
90 89
50 AD
01 01
95 30
41 60
01 DB
91 80
41 10
91 CO
47 110

01154
01158
01l5C
01160
01164
01168
0116C
01110
01114
OU7.8
0111C
01180
0;1184
OUBB
0111iC
01190
0:1194
01198
0119E
0.1.142
011A6
011AA
OllAE
011B2
011B6
01l8A
OUBE
011C2
01lC6
OllCA
01100
01104
0.1108
OllDC
OIlED
OllE4

DATE
EC'S

91
41
9C
41
91
41
90

47

80
80
00
FO
40
80
00
10
40
80
00
FO
IE
10
00
80
10
01
80
El
00
80
40
20
F3
FO
F2
FO

92
02
96
41
92
91t
91
47

07
40
FO
FO
7F
40
10

41

91
47
9C
47
58
88
90
41
46
07
96
92
9C
47
41
41
92
41

92

Fl

F
F
F
F
F
F
F
F
F
F
F
F
F
F
F
F
0
0
E
F
0
B
F
F
F

F
F
C
F
F
F
C
F
F
F
C
F
0
0
C
F
F
F
F
F
C
F
F
F
F
F
F
F
F
F
F
F
F
F
8
F

610
588
15C
HE
1A6
15C
610
588
lIE
lA6
15C
610
588
604
668
548
048
040
181
144
080
000
1DC
004
19B

004
164
000
154
004
184
000
154
004
184
000
16C
198
003
000
198
18C
OE4
OE4
577
000
108
1C6
1BE
577
10C
577
1DC
577
63A
OE4
10C
577
OE4
000
280

B 002

0 040

o

080

F OE4

o

OltO

166
161
168
169
170
771
112
113
774
775
116
111
778
779
180
lBI
782
183
184
785
186
181
78S
189
790
191
192
193
194
195
796
791
19B
199
ROO
801
802
803
1104
805
806
1107
808
B09
810
All
A12
813
814
815
816
817
B18
B19
820
B21
822
823
824
525
826
827
528
829

15MAR66 15NOV66 120CT61
l25632 125655 131812

SO!JRCE STATEMENT
MVI
MVI
MVI
8C
MVI
1110
MVI
MVI
MVI
BC
ISIO
MVI
MVI
MVI
MVI
IEYEOH MVC
STM
STM
ST
XC
ClI
BC
XC
M0044 TM
8C
TM
BC

IOPTl+21,X'C8'
IOADOR+12,X'C8'
IlOOP,X'9E'
UNC,IEYEOH
ISSUE,X'90'
1l00P,X'9D'
IOPTl+21,X'E"3'
IOADDR+12,X'E3'
UNC,IEYEOH
ISSUE,X'9C'
ILOOP,X'9C'
IOPTl+21,X'E2'
IOAOOR+12,X'E2'
ITSTNO+5121.2IR111
R10,R11,1 SLAVE
R8,R9,1 SAVE
R10,HCAWIR131
HCSWI8,RI3),HCSWIRl11
SYSMODIR141,X'30'
UNEC,MDD44
LOGOUTI 121 ,lOGOUT
OIRllI,X'SO'
ALL,INOW
SNSW, X'CO'
NONE,JDHN

MOVE -H- TO MESSAGE
8R. UNCONDITIONAL
SET UP FOR TEST 1-0
MOVE -T- TO MESSAGE
BR. UNCONDITIONAL
SET UP FOR START 1-0

IlOOP
ITRY2
[HANG

IHI
GREG
JOHN
ISSUE

IlWO
lONE

IZERO
IN OW

TM
BC
SIO
BC
TM
BC
TlO
BC
TM
BC
SIO
Bt
L
SRL
TlO
8C
BCT
XC
01
MVI
SID
BC
BC
BC
MVI
BC
MVI
8C
MVI
MVC
01
BC
MVI
NI
TM
8C

SNSW,X'BO'
NONE,lTRY2
0lR121
UNC, ITRYl
SNSW,X'40'
NONE,IHI
OlR121
NCCO,I TRYl
SNSW,X'40'
NONE,IHI
0lR121
UNC,IHANG
Rl,IHII41
Rl,3
01R12)
CCO,JOHN
R1,GREG
ISWI21,ISW
ISW,X'80'
IACTCC+5,C'X'
01R12)
CCO,IZERO
CC1,IONE
CC2tITWD
IACTCC+5,X'F3'
UNC,INOW
IACTCC+5,X'F2'
UNC,INOW
IACTCC+5,X'F1'
ICSW1181,HCSWIR131
ISW,X'40'
UNC ,INOW
IACTCC+5,X'FO'
ISw,X'7F'
0lR111,X'40'
ALl,JSEN

LOCAT

OBJECT CODE

01lE8
OllEt
OllFO·
OllF4
011F8
011FC
01200
01204
01208

96
58
88
96
80
46
80
94
41

10
9E
90
80
00
90
00
IF
FO

0120C
01210
01214
01218
0121C
01220
01226
0122A
0122E
01234
01236
01238
0123A
0123C
0123E
0123F
01240
01242
01248
0124C
01252
01256
0125A
0125E
01264
01268
0126C
01210
01274
01278
D127C
01280
01284
01288
0128C
01290
01294
0129B
0129C
012AO
012A4
012A8
012AC
012BO
012B4
012B8
012BC
012CO
012C4
012C8
012Ce.01200

49
41
94
91
41
02
96
41
D2

CO
60
7F
40
10
01
40
FO

STMT

F OE4
198
0 003
F OE4
F 65B
F 1FC
F 65C
F OE4
F 280

°

MOVE -S- TO MESSAGE
SAVE TEST NUMBER
SAVE REG 10 AND REG 11
SAVE REGS B AND 9
STORE COMMAND ADDRESS
CHECK FOR MODEL 30
BR. IF NOT
CLEAR MOD 30 lOG CUT AREA
CHECK CONTROL SWITCH FOR NO 1-0
BR. IF ON

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
SENSE SWITCH LOOPS
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ITRYl

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840101t
PAGE
1A

1403 PRINTER FUNCTION 1

,

STMT

0 0 0 0 0 0 0 0 0 0 0, 0 0 0 _

CHECK SECTION SENSE SWITCH 0
BR. IF OFF
SIO, TID, OR HID
BR. U~CONDITIONAL
CHECK SECTION SENSE SWITCH
BR. IF OFF
TEST 1-0
BR. IF NOT CONDo CODE 0
CHECK SECTION SENSE SWITCH
BR. IF OFF
START 1-0
BR. UNCONDITIONAL

MOVE. IN A -X1-0 COMMANO- SIO, TlO, OR HID
BR. IF CONDo CODe 0
BR. IF CONDo CODe 1
·BR. IF CONDo CODE 2
INDICATE CONDo CODE 3
BR. UNCONDITIONAL
INDICATE CONDo CODE 2
BR. UNCONDITIONAL
INDICATE CONDo CODE 1
SAVE CSW
INDICATE 1 CSW
BR. UNCONDITIONAL
INDICATE CONDo CODE 0
TURN OFF HANG UP SWITCH
CHECK CONTROL SWITCH FOR NO ENABLE
BR. IF ON

10
PAGE

F830-5
7

DATE
EC'S

01

DO
0003
0039
0662
OA DO
64
OB
F65D
02 02
92 lA
D2 02
45 90
96· 02
41 FO
02 01
96 20
91 10
41 80
91 08
41 10
96 08
41 FO
91 02
47 80
91 40
47 80
91 02
47 10
91 20
41 80
91 02
41 80
58 9E
88 90
'.41 80
f 50 80
9C 00
.ft7 70
90 00
41 40
4(> ,90
47 FO
91 40·

F
F
F
F
F
F
F
F
F

03A
22E
OE4
OE4
25E
63A
OE4
268
550

F 040
F 040

O~

F
F
F
F
F
F
F
F
B
F
F
F
F
F
B
F
F
F
F
F
F
F
F
F
0
0
F
0
C
F
C
F
F
F

5AE
40B
5C4
3F4
OE4
4CA
642
OE4
000
280
OE4
280
OE4
lEC
000
2A8
OE4
2FE
63E
2AB
OE4
2FE
646
2FI;:
198
004
650
048
000
34C
000
2EB
2CO
2FE
F OE4

F 5A7
F 5C7

F 040

830
831
832
R33
834
835
836
831
83B
839
840
841
842
fl43
844
845
846
847
848
849
850
851
B52
853
1154
855
B56
857
B58
859
B60
B61
862
863
864
B65
866
B67
868
B69
870
871

872
873
874
875
B76
B77
878
879
B80
881
BB2
883
884
885
8B6
887
888
889
590
891
892
893

·15MAR66 15NOV66 l20CT61
1256032 125655 131812

SOURCE STATEMENT
IWAIT

01
L.
SRL
01
SSM
BCT
SSM
NI
BC

ISW,X'10'
R9, WTI R141
R9,3
ISW,X'80'
MSKI
R9,.
MSK2
ISW,X'7F'
UNC,ISEN

INDICATE ENABLED ONCE
LOAD OM WAIT FACTOR
ADJUST
TURN ON HANG UP SW
ENABLE
WAIT
DISABLE
TURN OFF HANG SW
BR. UNCONDITIONAL

UNE(h lUI 0
ISW,X'7F'
ISW,X'40'
ALL,ISV2
ICSWlIBI,HCSWIR151
ISW,X'40'
UNC ,INn
WORKI81,HCSWIR151
X'DO'
AL2131
AL2tI00PSW+1-SECNOI
Al2tIUNEX+5-SECNOI
X'DO'
X'64'
X'OS'
AL2IIUNEx-seCNO+REGI
IBLAH+l(3),ICSW
ICNT ,X'lA'
IBlAH+2313I,IACT
R9,ICOUT
ISW,X'02'
UNC,IPASS
ICSW218I,HCSWIR15)
ISW,X'20'
0IRll),X'10'
NONE,ISEN
ISW,X'OB'
ALL,ISEN
ISW,X'OB'
UNC ,I WAIT
0lRll1,X'02'
NONE .IOOSNS
ISW,X'40'
NONEtlBSN
ICSWl+4,X'02'
ALL,IOOSNS
ISW,X'20'
NONE,IBSN
ICSW2+4,X'O:Z'
NONE,IBSN
R9,WTlR141
R9,4
R8,ISENSE
R8,HCAWIR131
OlR12)
NCCO,INDER
0lR121
CC1,ILOKE
R9, ITIOLP
UNC,I8SN
ISW.X'''O'

BR. IF UNEQUAL
RESET HANG UP SW

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
*
ALL 1-0 INTERRUPTS RETURN HERE
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
IRETRN CH
R12,IOOPSW+2
COMPARE FOR CURRENT 1-0 ADDRESS
BC
NI
TM
BC
MVC
01
BC
MVC
1U10
SVC .
DC
DC
DC
SVC
DC
DC
DC
MVC
MVI
MVC
BAL
01
BC
MVC
ISV2
01
IN13
TM
BC
TM
BC
01
BC
TM
ISEN
BC
TM
BC
TM
BC
TM
BC
TM
BC
IDOSNS L
SRL
LA
ST
SID
8C
ITIOLP TID
BC
ITIC
BCT
BC
INOEX1 TM

BR. IF 1 CSW ALREADY STORED
SAVE CSW 1
INDICATE 1 CSW STORED
BR. UNCONDITIONAL
CONVERT ADDRESS

PRINT UNEXPECTED INTERRUPT DEV ICE
ADDRESS
MOVE -CSW- TO MESSAGE
ADJUST COUNT
MOVE -ACT- TO MESSAGE
BR. TO OUTPUT CSW
INDICATE UIO
BR. UNCONDITIONAL
SAVE CSW 2
INDICATE 2 CSWS STORED
CHECK CTRL SW FOR 2 INTR EXPECTED
BR. IF NOT
BR. IF ALREADY ENABLED TWICE
INDICATE ENABLED TWICE
CHECK CONTROL SWITCH FOR SNS ON UC
BR. IF OFF TO ISSUE SENSE
BR. IF NO CSW STORED TO BYPASS SENSE
CHECK FOR UNIT CHECK
IF YES 8R. TO ISSUE SENSE
CHECK FOR SECOND CSW
BR. IF NOT TO BYPASS SENSE
CHECK FOR UNIT CHECK
BR. IF NOT TO BYPASS SENSE
LOAD OM WAIT FACTOR
ADJUST
LOAD SENSE COMMAND ADDRESS
STORE IN CAW
ISSUE SENSE
8R. IF NOT ACCEPTED
TEST 1-0
BR. IF CSW STORED
8R. UNCONDITIONAL

to

PAGE

F83n-5
7A

18M'MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840104
PAGE
8

1403 PRINTER fUNCTION 1
LOCAT

OBJECT CODE

01204 41 10
0120B It7 FO
OlZOC 9i 20
012EO 47 10
012E4 It7 FO
012E8 95 DC
012EC 47 70
012FO 96 0,.
012F4 05 00
01ZFA 47 60
012FE 05 00
01304 47 60
01308 91 08
0130C 47 80
01310 91 40
01314 47 80
01318 48 8B
0131C 40 80
01320 05 07
01326 47 60
0132A 91 04
0l32E 47 80
01332 91 20
01336 47 80
0133A 41 88
0133E 40 80
01342 05 07
01348 47 80
0134C 96 01
01350 92 64
0135,. 92 CO
01358 91 01
OB5C 41 10
01360 91 01
01364 41 80
01368 92 24
0136C 92 80
01370 02 01
01376 OA DO
01318 0002
0131A ObO"
0137C 060,.
OB7E 04 00
01380 6,.
01381 09
01382 F5FF
01384 41 80
01388 IB 88
0138A 50 80
OB8E 04 00
01390 000)
01392 0591
01394 0590
01396 OA 00
01398 EO
01399 10
0139A F58B
013'1C 41 B8
013AO 91 80
013A4 It7 10
013A8 OA 00
013AA 0003
013AC 0658
013AE 0581

DATE
EC'S

F
F
F
F
F
0
F
F
F
F
F
F
8
f
F
F

°FF
F

8
F

F
F

0
F

F
F
F
F
F

34C
350
OE4
34C
350
044
2C8
OE4
500
34C
517
34C
000
200
OE4
34C
006
324
63A
34C
000
20C
OE4
3,.C
008
346
642
350
OE4
380
510
OEit

F
F 370
F 004
F 52C
F 360
F 510
F 60lt

0 OOit
F 590

0 004
8 000
F It26

8 004

F 63A

F 6It2

8 002

PIN MOI04
PAGE
SA

1403 PRINTER FUNCTION 1
STMT

8 005

IBM MAINTENANCE DIAGNOSTIC PROGRAM

894
895
896
897
.898
899
900
901
902
903
904
905
906
907
'108
909
910
911
912
913
914
915
916
917
918
919
920
921
'l22
923
924
925
'l26
927
928
929
930
931
'132
'133
934
935
936
931
938
939
940
941
9lt2

943
'144
'145
946
947
948
'149
950
951
952
953
954
'155
956
957

15MAR66 15NOV66 120CT67
125632 125655 131812

SOURCE STATEMENT
8C
8C
INOEX2 TM
BC
8C
[LOKE CLI
BC
01
CLC
BC
18SN
CLC
BC
TM
BC
TM
8C
lH
STH
lCCSWl CLC
BC
TM
BC
TM
BC
LA
STH
ICCSW2 CLC
BC
INOER 01
IOUNCK MVl
MVI
TM
BC
TM
BC
MVI
MVI
IOUTJT MVC
SVC
DC
OC
OC
SYC
IFLAGl DC
OC
DC
LA

SR
ST
SYC
DC
OC
DC
SVC
DC
DC
DC
lA
TM'
BC
SYC
OC
DC
DC

ALL,INOER
UNC,IOUNCK
ISW,X'20'
ALL,J NOEll.
UNC,IOUNCK
HCSW+4IRI3I,X'OC'
NCCO, ITIC
ISW,X'04'
IAC5NS+5111,5IRl11
UNEQ,INDER
IACTCC+511I,It\Rl11
UNEQ,INDER
OIRl11,X'08'
NONE,INOEXl
ISW,X'40'
NONE,INOER
R8,f>IRll1
R8,ICCSWl"4
ICSWII8) ,ICSWI
UNEQ,INOER
OIRlll,X'O'"
NONE,INOEX2
ISW,X'20'
NONE,INDER
11.8,8111.81
R8,ICCSW2+4
IC5W2181,ICSW2
EQ, IDUNCK
ISW,X'Ol'
IFLAGl,X'64'
IFLAG2,X'CO'
ISW,X'Ol'
ALL, IOUTI T
SNSW,X'Ol'
NONEolLEAVE
IflAGl,X'''4'
IFlAG2,X'1l0'
ITSTNO+512I,2IRl11
X'OO'
Al2(ZI
AL211TSTNO+5-SECNOI
AL2CITSTNO+5-SECNOI
X'Df)'
X'64'

BR. IF CSW STORED
BR. UNCONDITIONAL
BR. IF CSW 2 STOREO
BR. UNCONDITIONAL
CHECK FOR CE DE ONLY
BR. IF NOT
INDICATE SENSE DATA RECIEVED
COMPARE FOR EXPECTED SENSE
BR. IF UNEQUAL
COMPARE FOR EXPECTED CONDo CODE
811.. IF UNEQUAL
811.. IF NO CSW EXPECTED
BR. IF NO CSW REClEVEO
LOAD CSW ADOR
STORE IN COMPARE INSTil..
COMPARE FOR EXPECTED CSW
811.. IF UNEQUAL
BR. IF NO CSW 2 EXPECTED
SR. IF NO CSW 2 RECIEVED
UPOATE TO SECONO CSW
COMPARE FOR EXPECTED CSW 2
BR. IF EQUAL
INDICATE AN ERROR
SET UP FOR ERROR PRINTOUT
CHECK FOR A OETECTED ERROR
BR. IF ERROR OETECTEC
CHECK SECTION SENSE SWITCH 7
BR. IF OFF
SET UP FOR CORRECT PRINTOUT
MOVE TEST NUMBER TO PRINT
CONYERT TEST NUMBER

PRINT TEST NUM8ER

X'O~'

AL2IITSTNO-SECNO+REG)
11.8,4
11.11,11.8
Rll,ILINK+5
X'OO'
Al2131
AL2IILINK+6-SECNOI
AL2 (I LINK+5-SECNO I
X'OO'
X'Ef)'
X'IO'
Al2(Il[NK-SECNO+REGI
Rll,ltlRlll
01Rlll,X'80'
ALL.IOCSW
X'DO'
AL2(3)
AL2110ADR-SECNO)
Al2CIOADOR+5-SECNOI

AOJUST LINK ADORESS FOR PRINTOUT
,
CONYERT LINK ADDRESS

PRINT LINK AODRESS

BR. IF NO 1-0 CO~MAND ISSUED
CONVERT 1-0 AODRESS

10
PAGE

F830-5
8

LOCAT

08JECT CODE

013BO
01382
013B3
013B4
013B6
013BA
013BE
013C2
013C4
013C6
013C8
013CA
013CC
013CO
013CE
01300
01306
0130A
013EO
013E4
013EB
013EC
O13FO
013F,.
013F6
'013F8
013FA
013FC
01402
01408
0140A
01408
0140C
0140E
01410
01416
0141A
0141C
01410
0141E
01420
01422
01423
0142,.
01426
0142C
01430
01434
01438
0143E
01442
01446
0144A
0144E
01454
01458
0145C
0l't60
01466
0146C
01470
0147,.
01478
0147E

OA DO
EO
OF
F57C
95 9C
47 60
50 AD
04 00
0003
05Al
05AO
04 00
EO
DB
F59B
02 02
92 16
02 07
45 90
91 CO
47 80
'tl AA
47 FO
OA 00
0008
0550
0550
02 01
02 01
04 00
EO
14
F5AO
01 F9
02 00
58 AO
OA 00
EO
04
F568
OA 00
EO
OA
F572
02 02
92 lA
91 08
47 80
02 02
48 8B
40 80
41 88
40 80
02 07
45 90
91 40
47 80
02 02
02 07
45 90
91 0,.
47 80
02 02
02 07

DATE
EC'S

STMT
958
959
960
961
962
963
964
965
966
967
968
969
970

F lA6
F 410
F 5AO

'In

972

5AE
40B
550
'3F4
OOit
410
008
30A

F 5AA

F 5B2
F 5BB

F 550
F 558

F
F
F
F
A
F
o
F

560
F 66B
f

F
F
B
F
F
0
F

0
F
F
F
F
F
F
F
F
8
F
F
F

5AE
408
000
458
5 Cit
006
452
008
482
550
3F4
OE4
470
5C4
550
3F4
000
488
5C4
550

A 000

B 004

f

5A7

F 5CA

F 550

F 5C7
F 63A

F 5CA
F 550

'In

974
'175
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021

15M4R66 15NOV66 120CT67
125632 125655 131812

SOURCE STATEMENT
SVC
DC
DC
OC
CLI
BC
ST
SVC
DC
DC
DC
SVC
DC
OC
OC
MVC
MVI
lCWOUT MVC
BAL
TM
BC
LA
BC
ICOUT SVC
DC
OC
DC
MYC
MYC
SVC
OC
ICNT
OC
DC
8CR
ICCQUT MVC
L
SVC
OC
OC
DC
SVC
OC
OC
OC
10CSW MVC
MVI
TM
BC
MVC
LH
STH
LA
STH
ICHNGI MVC
BAL
10101 . TM
BC
MVC
MVC
BAl
IMORST TM
BC
MVC
ICHNG,2 MVC

X'DO'
X'EO'
X'OF'
AL2IIOADOR-SECNO+REGI
[SSUE,X'9C'
UNEQ, I CCOUT
RI0,ICAW+5
X'OO'
AL2(3l
AL2fICAW+6-SECNOI
AL2IICAW+5-SECNOI
X'DO'
X'Ef)'
X'OIl'
AL21ICAW-SECNO+REGI
IBLAH+ll31,tCCW
ICNT,X'16'
WORKI81,0IRI0l
R9,ICOUT
4(RI01,X'CO'
NONE,ICCOUT
11.10.8111.101
UNC,ICWOUT
X'OO'
AL218l
AL2IWORK-SECNOI
AL2IWORK-SECNOI
IBUIH+5181,WORK
IBLAH+14181,WORK+8
X'OO'
X'EO'
X'IA'
AL2(IBlAH-SECNO+REGJ
UNC,R9
IEXPCC+5111,4IRl11
11.10, ISlAVE
X'OO'
X'EO'
X'OA'
AL21IEXPCC-SECNO+REGI
X'OO'
X'EO'
X'OA'

PRINT 1-0 ADDRESS

COMPARE FOR S[O COMMAND
811.. [F NOT
STORE CCW AODR.
CONVERT CAW

PRINT CAW

MOVE -CCW- TO MESSAGE
AOJUST COUNT
MOVE CCW TO WORK AREA
BR. TO OUTPUT CCW
CHECK FOR ANY CHAIN FLAGS
BR. IF NONE
UPDATE TO NEXT CCW
BR. UNCONDITIONAL
CONVERT

MOVE TO MESSAGE
PR[NT

RETURN VIA REG 9
MOVE EXP CC TO MESSAGE
RESTORE REG 10
PRINT EXPECTED CONO. CODE

PRINT ACTUAL CONDo COOE

Al21IACTCC~SECNO+REGI

I8LAH+lf3I,ICSW
ICNT,X'lA'
0111. 11 I, X'OS'
NONE,IDIDI
IBLAH+2313I,IEXP
R8,61Rll 1
R8,ICHNG1+It
R8,8IR8)
R8,ICHNG2+It
WORKI81,WORK
R9,ICOUT
ISW,X'40'
NONE,IMORST
IBLAH+23131,IACT
WORKI81,ICSWl
R9,ICOUT
OIRll) ,X'D4'
NONE.IDtO
I8lAH+23(3I,IEXP
WORKIBI,WORK

Move -CSW- TO MESSAGE
AOJUST COUNT.
8R. IF NO CSW EXPECTED
MOYE -EXP- TO MESSAGE

MOVE EXPECTED CSW TO WORK AREA
BR. TO OUTPUT EXPECTED CSW
BR. IF NO CSW STORED
MOVE -ACT- TO MESSAGE
MOVE ACTUAL CSW TO WORK AREA
BR. TO OUTPUT ACTUAL CSW
BR. IF NOT EXPECTING 2 CSWS
MOVE -EXP- TO MESSAGE
MOVE EXPECTED CSW TO WORK AREA

10

PAGE

F830-5
8A

000000000000000000000000000

o

00000000
IBM M'INTENANCE DIAGNOSTIC PROGRAM

PIN 840104
I'AGE

DATE
EC'S

140~

08JECT CODE

01484 45 90
01488 91 20
0148C 47 80
01490 02 02
01496 02 07
0149C 45 90
014AO 02 00
014A6 91 04
014AA 47 SO
014AE OA DO
01480 0001
014B2 0502
014B4 0502
014B6 OA DO
014B8 EO
014B9 08
014BA F5CD
014BC OA DO
0148E 0001
014CO 0500
014CO 0500
014C2 0500
014C'" OA DO
014C6 EO
014C7 OB
014CS F50S
014CA 95 30
014CE 41 60
01402 02 08
01408 OA DO
0140A OOOC
014DC 0550
014DE 0550
014EO 02 01
014E6 02 05
014EC 02 05
014F2 02 05
014FS OA DO
014FA EO
014FB lC
014FC F5E3
Ot4FE 91 02
01502 47 80
01506 94 FD
0150A 47 FO
OHOE OA 00
01510 CO
Ol511 .32
Ol!itz f608
01514 OA DO
01516 AO
Ol5i? 01
0151S F56B
0151A 50 AD
0151E 91 CO
01522 41 50
01526 91 01
0'152A 01 15
OI52C en 06
0'i530 41 80
01534 41 88
01538 41 88
0153C 98 89
015"'0 01 F8

F
F
F
F
F
F
F
F
F

3F4
OE4
4AQ
5C4
550
3F4
502
OE4
4CA

E 181
F 50E
F 550

F
F
F
F

F
F
F
F

0
F
F
F
B
F
0
0
F

5ES
5E8
5F2
5f9

OE4
50E
OE4
lEC

04S
004
154
OE5
000
538
002
006
548

IBM MAINTENANCE DIAGNOSTIC PROGRAM

STMT

F 5C7
F 642
8 005

o 080

F
F
F
F

550
552
55A
562

1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1036
1039
1040
1041
1041
1042
1043
1044
1045
1046
1047
104S
1049
1050
1051
1052
1053
1054
1055
1056
1057
lOSS
1059
1060
1061
1062
1063
1064
1065
1066
1067
106S
1069
1070
1071
1012
1073
1014
1075
1076
1011
101S
1079
10S0
10Sl
10S2
1083
1084

15MAR66 I5NQV66 120CT61
1256U 125655 131812

SOURCE STATEMENT
BAL
TM
8C
MVC
MVC
BAL
IPAS
MVC
TM
BC
SVC
DC
DC
DC
SVC
DC
DC
DC
SVC
DC
OC
DC
DC
SVC
DC
DC
DC
IPASS CLI
BC
MVC
SVC
DC
DC
DC
MVC
MVC
MVC
MVC
SVC
DC
DC
DC
TM
BC
NI
BC
IOpOUT SVC
IFlAG2 DC
DC
DC
SVC
DC
DC
DC
ST
TM
BC
TM
BCR
ILEAVE TM
8C
LA
lUI'
LA
LM
8CR
IDID

R9,ICOUT
ISW,X'20'
NONE,IPAS
IBLAH+23(3I,IACT
WORK (8), ICSW2
R9,ICOUT
IEXSNS+5(1),5IR11)
ISW,X'04'
NONE,IPASS
X'DO'
AL2111
AL21IEXSNS+5-SECNO)
AL21IEXSNS+5-SECNOI
X'OO'
X'EO'
X'OA'
AL2(IEXSNS-SECNO+REGI
X'D[)'
AL2111
AL2(IACSNS+5-SECNOI
AL2(IACSNS+5-SECNOI

BR. TO OUTI'UT EXI'ECTEO CSw 2
BR. IF NO SECOND CSW STORED
MOVE -ACT- TO MESSAGE
MOVE CSW TO WORK AREA
MOVE EXP SENSE TO MESSAGE
BR. IF NO SENSE DATA RECIEVEO
CONVERT EXPECTED SENSE

PRINT EXPECTED SENSE

AL21IACSNS+~-~ECNOI

X'DO'
X'EO'
X'OIl'
Al21IACSNS-SECNO+REG)
SYSMODIR14I,X'30'
UNE(),IOPOUT
WORKI121,LOGOUT
X'DO'
AL2(12)
AL2(WORK-SECNO)
AL2IWORK-$ECNCl)
IOLOG+5121,WORK
IOLnG+S(61,WORK+2
IOLnG+15(6),WORK+I0
IOLOG+22(6),WORK+18
X'DO'
X'EO'
X'lC'
AL2110LOG-SECNO+REG)
ISW.X'02'
NONE,lOpOUT
ISW,X'FD'
UNC, I WAIT
X'DO'
X'CO'
X'32'
AL2IIOPT1-SECNO+REGI
X'DO'
X'AO'
X'Ol'
AL2CILINK-SECNO+REG)
RI0,HCAWIRI3)
SNSW,X'CO'
ANY, ITRYl
ISW+l,X'Ol'
ALL,R5
0lR111 ,X'08'
NONE, !UP
R11,2CRlll
Rl},61Rlll
RS,R9oISAVE
UNC,Rll

PRINT ACTUAL SENSE DATA

CHECK FOR MODEL 30
8R. IF NOT
MOVE LOGOUT TO WORK AREA
CONVERT

MOVE LOG OUT TO

~ESSAGE

PRINT LOG OUT

BR. IF NOT UIO
RESET UIO SWITCH
BR. UNCONDITIONAL
PRINT LOOP OPTIONS

SPACE A LINE

STORE CAW
CHECK SECTION SENSE SWITCH 0 AND 1
8R. IF ANY ON
RETURN VIA REG 5 IF HANG UI'
8R. IF NO CSW EXPECTED
UpOATE LINK ADDRESS FOR RETURN
RESTORE REGS 8 AND 9
RETURN VIA REG 11

10
PAGE

PIN 840104
9A
PAGE

9

1403 PRINTER FUNCTION
LOCAT

o

o o o

FS30-5
9

I'RINTER FUNCTION

LOCAT

OBJECT COOE

STMT

01542
01548
01550
01568
01570
01512
0151A
0157C
01584
0158B
0158C
0158B
0158B
01593
0159B
0159C
01598
0159B
015A3
015A7
015AA
015AD
015B5
015BD
015C5
015C7
015CA
015CD
01505
015DS
015EO
015E3
015EB
015F3
015F8
015FF
01607
0160S
01610
0161S
01620
0162S
01630
01638
0163A
01642
0164A
01650
01658
01658i
0165CI
01650
01665
01668
01670
01678
0167.C
01680
01104
0178S

070007000700
0000000000000000

10S5
10S6
10S7
lOSS

CNOp
ISAVE DC
WORK
OS
IEXPCC DC

O,S
XLS' 0'
24C
C' CC X EXP'

10S9

IACTCC DC

C' CC

1090

10AODR DC

C' ADR XXXXXX XIO'

01790

18 DO·

DATE
EC'S

40C3C34040E740C5
E707
40C3C34040E140C1
C3E3
40CIC40940E7E7E7
E1E1E140E1C9D6
00
40CIC4D940E7E1E1
EIEIE140D3C9D5D2
00
40C3CIE640E7E7E7
EIEIE740
C3E2E6
OC3E6
40C3E2E640E7E7E1
EIEIE1E7E740E7E1
EIE7EIE7E1E140C5
E107
CIC3E3
C5E7D1
40E2D5E240E7E740
C5E7Dl
40E2D5E240E7E740
CIC3E3
40D3D6C740E1E140
E7E1E1E7E1E740E7
E7E7E1E7E740E7E7
E1E1E7 E7
40E3E2E340E7E7E7
E7
40E2E240F040D6D5
40C606D940D3D6D6
0740D6D540E7C9D6
6B40E2E240F140D6
D540C6D6D940E3C9
D640E2C9D640D3D6
0607
0000000000000000
0000000000000000
000000000000
0400150000000001
001lA6
FE

01
40E4C9D640E7E1E7
E1E7E7
0000000000000000
0600168000000064
OOO1618
OCOOOOOO

P

020011 04000000S4

1091
1092
1093
1094

SOURCE STATEMENT

X ACT'

ILINK

DC
CNOp
DRG
DC

)('00'
0,4
*-1
C' IIDR xxx xxx LINK'

1095
1096
1097
109S

ICAW .

DC
CNOp
ORG
DC

X'OO'
0,4
*-1
C' CAW XXXXXX

1099
1100
1101

ICSW
ICCW
IBlAH

DC
DC
DC

C'CSW'
C'CCW'
C' CSW XXXXXXXX XX'

1102

DC

C'XXXXXX EXP'

1103
1104
1105

IACT
DC
IEXp
DC
IEXSNS DC

C'ACT'
C'EXP'
C' SNS XX EXp'

1106

IACSNS DC

C' SNS XX ACT'

1107

IOLOG

C' LOG XX XXXXXX X'

DC

,

110S

DC

1109

ITSTNO DC

C' TST XXXX'

C'XXXXX XXXXXX'

1110

10pT!

DC

C' SS OONFOR LOO'

1111

DC

C'P ON XIO, SS 1 O'

1112

DC

C'N FOR TIO S10 LO'

1113
1114
1115

ICSW1
ICSW2

DC
DC
DC

C'OP'
XLS'O'
XLS'O'

1116
1111
l11S
1119
1120

ISENSE
IOADR
MSK 1
MSK2
IUNEX

CCW
DC
DC
DC
DC

X'O"",IACSNS+5,X'OO',1
AL31ISSUEI
X'FE'
X'Ol'
C' UIO XXXXXX'

1121
1122
1123
1124
1125
1126
1127
112S
1129
1130
1131

ISLAVE DC
REGISTER SAVE AREA
XL8' 0'
DCKRD CCW
X'06',CKAR,X'OO',132
CRDCSW DC
ACCRDCSWI
DC
X'OCOOOOOO'
CKAR
132C
OS
DRAR
OS
132C
ROCCW CCW
X'02',DRAR,X'OO',132
************************.*******.*.****.****** ••••• **.* •• * ••• * •• * •••• *.
INITIALIZE ROUTINE
*
******.*******.* •• ****.* •••••• *.****** •• *** •••••••• * •• * •• * •••••• *******
INIT
SR
IU3.R13
ZERO REG 13

15MAR66 15NOV66 120CT61
125632 125655 131812

10
PAGE

F830-5
9A

. . PO

-'"

-,---_._._-

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840104
PAGE
10

1403 PRINTER FUNCTION 1
LOCAT

OBJECT CODE

0.792
01796
0179A
0179C
017AO
017A4
017A8
017AC
01780
017B2
017B3
017B4
01786
017B8
017B9
017BA
017BC
017BE
017C2
017C6
017CA
017CE
01704
017DA
017DE
017EO
017E6
017EA
017EE
017F2
017F4
017F5
017F6
017F8
017FA
017FC

91 40
47 80
18 OF
58 CO
54 CO
49 CO
47 80
40 CO
OA 00
24
27
F82C
OA DO
80
39
F853
OA DA
90 00
91 80
47 10
92 40
02 00
02 82
41 AD
07 fit
02 00
98 AB
94 7F
96 01
OA 00
64

017~E

01802
01806
0180A
0180E
01810
01812
01813
0181B
01823
01ll2B
Olll2C
olli34

0183C
01844
0184C
01853
01B5B
01863
0186B
01873
01878
01883
018BB
018Be
0188E
01896
0189E

DATE
EC'S

111

E 196
F 79C
F
F
F
F

OED
8C8
810
7C2
F 810

C 000
F OE4
F 7EO
F 8CD
F 812
F 8CE
F Fl8

F
F
F
F

003
668
OE4
OE5

-,-------

IBM MAINTENANCE DIAGNOSTIC PROGRAM

----------

PIN 840104
PAGE
lOA

1403 PRINTER FUNCTiON 1
STMT

1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
F 003 "1153
F BCD 1154
1155
1156
F 812 1157
1158
1159
1160
1161
1162
1163
1164
1165
1166

F88E
OA DO
A019
F811
45 50 F 2A8
92 01 F 003
94 FE F OE5
47 FO F 7C2
07 00
·FFFF
00
40E2C5C540C4C5E2
C3D9C9D7E3C9D6D5
60C3D6D4D4C5D5E3
E2
40C9C640E2E3D340
C6C5CIE3E4D9C56B
40C4C9E2C5D5C7Cl
C7C540E2E30340C8
CID9C4E6CID9C5
40C9D5E2E3CID3D3
'40C3CID9D9C9C1C7
C540E3CID7C56840
C3C540D6E4E3D7E4
E340D4 E4 E2 E340D5
D6E340C2C540E'3C5
E2E340C4C5E5C9C3
C5
OA DA
4007D9C5E5C9D6E4
E240C8CID5C740E4
D740C4C5E3C5C3E3

------_.-

11167

1168
1169
1170
1171
1172
1173

1174
1175

SOURCE STATEMENT
TM
8C
LR

NITWIT l

N

CH
BC
STH
SVC
DC
DC
DC
SVC
DC
DC
DC
SVC
TIO
BLOOP TM
8C
MVI
MVC
MVC
LA
BCR
HANGUP MVC
lM
NI
01
SVC
DC
DC
DC
SVC
DC
DC
BAl
MVI
NI
BC
CNOP
SAVDEV DC
RTSAV DC
CLUIN DC

1176

406IR141,X'40'
NONE,NITWlT
Rll,R15
R12,UNITl
R12,MOD50
R12,SAVDEV
EQ,lIl00P
R12,SAVOEV
X'DO'
X'24'
X'27'
Al2ISTL-S£CNO+REGI
X'DO'
X'80'
X'39'
AL2ICEMSG-SECND+REGI
X'DA'
0lR121
ISW,X'80'
ALL,HANGUP
PRAR,X'40'
RTSAVI11,SECNO+3
PRAR+111311,PRAR
R10,CCW
UNC,R4
SECNO+3111,RTSAV
R10,R 11,1 SLAVE
ISW,X'7F'
ISW+1,X'Ol'
X'DO'
X'64'
X'lA'
AL2IHUNG-SECNO+REGI
X'DO'
X'A019'
AL2ICLUIN-SECNO+REGI
R5,IDOSNS
SECNO+3,X'Ol'
ISW+l,X'FE'
UNC,BlOOP
0,4
X'FFFF'
X'OO'
C' ~EE DESCRIPTION'

DC

C'-COMMENTS'

DC

C' IF STL FEATURE,'

DC

C' DISENGAGE STl H'

DC
DC

C'ARDWARE'
C' INSTALL CARRIAG'

1181

DC

C'E TAPE, CE OUTPU'

1182

DC

C'T MUST NOT 8E TE'

1183

DC

C'ST DEVICE'

SVC
DC

X'DA'
C' PREVIOUS HANG U'

DC

cop

1177

STL

1178
1179
1180

1184
1185
1186

CEMSG

HUNG

CHECK FOR FORCED PR08LEM STATE
BR. IF NOT
SET UP FOR PR08lEM STATE
lOAD REG 12 WITH UNIT TABLE ENTRY
AND OUT UNUSED BITS
COMPARE FOR CURRENT DEVICE ADDRESS
BR. IF EQUAL
SAVE CURRENT DEVICE ADDRESS

HALT FOR SS ALTERATION
CLEAR PENDING INTERRUPT
CHECK FOR HANG UP
B.~. IF DETECTED
dEAR lOAD AREA
SAVE ROUTINE NUMBER
RETURN VIA REG 4
MOVE RTN NO. THAT HANG WAS FOUND
RESTORE REGS 10 AND 11
PRINT
-PREVIOUS HANGUP DETECTED-

lOCAT

OBJECT CODE

018A6
018A8
01BA8
01880
018B8
018CO
018C4
018C8
018CC
018CD
01951
01952

C5C4

01954
01955
01958
0195C
01960
01962
01964
01966
01968

01968
01969
0196C
01970
01974
01978
0197A
0197C
0197E
01982
01986
0198A
0198E
01990
01992
01994
01996
0199A
0199C
0199E
019AO
019A2

BR. TO OUTPUT AVAILA8LE INFO
RESTORE TO ROUTINE 01

019A4
019A5
019A8
019AC
01980
019B4
i 01986

DETECTED'

15MAR66 15NOV66 120CT67
125632 125655 131812

10
PAGE

F830-5
10

DATE
EC'S

0000000000000000
0000000000000000
0000000000000000
00000000
00000000
OOOO~FFF

40
00
07 00

01
000968
45 40 F 790
45 BO F OFA
0200
0010
FOOO
OA 06

02
0009A4
45 40
41 AO
45 BO
4200
0020
FOOD
58 9E
88 90
46 90
45 BO
DADO
0030
F100
FF04
45 80
0200
0040
FOOO
OA 06
07 00

F 790
F 650
FlOE

o
o

198
003
F 986
F OFA

F OFA

03
0009C8
45 40 F 790
41 AO F 650
45 BO FlOE
3AOO
0050

STMT

SOURCE STATEMENT

1187
ll88

CNOP
SAVEIT DC

11B9

SAVlT

DC

1190
1191
1192
1193

SAVIO
MOD50

DC
DC
DC
'OS

1194
1195
1196
1197
1198
1199
1200
1201
1202
1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
12.26
1227
1228
1229
1230

PRAR

CNOP

15MAR66 15NOV66 '120CT67
125632 125655 131812

XL12'O'
Xl4'0'
X'00003FFF'
X'40'
132C

I,

0,4

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• ROUTINE 01 - ISSUE A TEST 1-0 TO AN AVAILABLE AND IDLE DEVICE.
EXPECT CONDITION CODE O.

•

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ROUTOI DC
X'OI'
ROUTINE NUM8ER
G001

DC
SAL
BAL
DC
DC
DC
SVC
CNOP

AL3IROUT02-SECNOI
R4,INlT
Rll,lTIO
X'0200'
X'0010'
X'FOOO'
X'D6'
0,4

ADDRESS OF NEXT ROUTINE
8R. TO INITIALIZE
.
BR. TO ISSUE TEST 1-0
CTRl SWITCHES
T EST
N U M B
EXP CONDo CODE AND SENSE
ROUTINE EXIT

J

i I.

I

E R

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• ROUTINE 02 - ISSUE SENSE COMMAND -04-. EXPECT CONDo CODE 0 ON THE SIO
ISSUE A TEST 1-0. EXPECT CONDo CODE 1, AND CHANNEL AND
DEVICE END IN THE CSW. ISSUE TEST I-D. EXPECT CONDITION
CODE 0

•
•
•

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ROUT02 DC
X'02'
ROUTINE NUMBER
G002

1nl

1232
1233
1234
1235
1236
1237
123B
1239
1240
1241
1242
1243
1244
1245
1246

0,4
XlI6'0'

DC
8AL
lA
SAL
DC
DC
DC
L
SRl
8CT
BAL
DC
DC
DC
DC
8AL
DC
DC
DC
SVC
CNOP

AL31ROUT03-5ECNOJ
R4.INlT
R10.ISENSE
Rll, I SIO
)( '4200'
X'0020'
X'FOOO'
R9,WTIR141
R9,3
R9,.
Rll.lTIO
X'OAOO'
X'0030'
X'F100'
Al21SNSCSW-SECNO+REGI
R1t.ITlO
X'0200'
X'0040'
X'FOOO'
X'D6'
0,4

ADDRESS OF NEXT ROUTINE
8R. TO INITIALI ZE
lOAD SENSE CCW ADDRESS
BR. TO I SSUE SENSE SID
CTRl SWITCHES
T EST
N U M B'
EXP CONDo CODE AND SENSE
DELAY
BR. TO ISSUE TEST 1-0
CTRL SWITCHES
TEST
NUM8
EXP CONDo CODE AND SENSE
EXP CSW ADDRESS
8R. TO ISSUE TEST 1-0
CTRL SWITCHES
TEST
NUMB
EXP CONDo CODE AND SENSE
ROUTINE EXIT

E R

E

R

E

R

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

• ROUTINE 03 - ISSUE SENSE COMMAND -04-. ENABLE FOR AN EXPECTED CHANNEL
•
DEVICE END INTERRUPT. ISSUE TIO. EXPECT CONDo CODE 0.

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ROUT03 DC
X'03'
ROUTINE NUMBER
DC
8AL
G003

LA

8AL
OC
DC

Al31ROUT04-SECNOI
R4,INIT
RIO, I SENSE
Rll.ISIO
X'lAOO'
X'0050'

ADDRESS OF NEXT ROUTINE
8R. TO INITIALIZE
SET UP FOR SENSE COMMAND
8R. TO ISSUE SENSE SIO
CTRl SWITCHES
T EST
N U M 8

E

R

10
PAGE

F830-5
IDA

"

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

o

0 0 0 0' 0 0 0 '0 ,0,
,

o ' O. 0

'

,

4CA(

'0 0 0 0 0 0' 0 0 0 0 0 0 0 0 0 0 0 0 0 0

t)
\...'

0 0 0' 0 0 0) C C 0 0 0 0 0
, '~,:

.,'

. t:

."

"

c c c

()

IBM MAINTENANCE DIAGNOSTIC PROGRAM

r

PIN 840104
PAGE
11

LOCAT

OBJECT CODe

STMT

019B8
0198A
D198C
D19CO
019C2
019C4
019C6
019C8

FOOD
FF04
45 80
0200
0060
FOOD
OA 06

1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1211
1272
1273
1214
1275
1276
1271
1278
1219
1280
1281
1282
1283
1284
1285
1286
1267
12B8
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
1306
1301
1308
1309
1310

019C8
019C9
019CC
01900
01904
01908
019DA
019DC
019DE
019EO
019E4
019E8
019EC
019FO
019F2
019F4
019F6
019F8
019FC
OlAOO
01A02
OlA04
OlA06
01A08
01AOC
01410
OlAIZ
01A14
OlA16
01A18
OlAlA

01AIC
01AID
OlA20
OlA24
OlA28
OlA2C
01A30
OlA32

DATE
EC ·S

04
000A1C
45 40
92 03
45 80
OAOO
0070
FlOO
FFOC
91 10
47 80
92 E8
45 BO
OAOO
0080
FI00
FFOC
92 13
45 80
DADO
0090

F 790
F Fl8

FlOE

F OEl

F A18
F Fl8

FlOE

F FI8
FlOE

FlOO

FFOC
92 78
45 80
OAOO
0100

F Fl8
FlOE

FIOO

FFOC
OA 06
07 00

05
000AD8
45 40
41 AD
92 05
45 80
3COO
0110

F 190
F EE8
F EE8
FlOE

(1

o

00(;

IBM M41NTENANCE DIAGNOSTIC PROGRAM

o

o

PIN 840104
PIIGE
11A

1403 PRINTER FUNCTION 1

1403 PRINTER FUNCTION

F OFA

o o

0 0

15HAR66 15NOV66 120CT61
125632 125655 131812

LOCAT

SOURCE STATEMENT
DC
DC
BAL
DC
DC
DC
SVC
CNOP

X'FOOO'
AL2(SNSCSW-SECNO+REGI
Rll,ITIO
X'0200'
X'0060'
X'FOOO'
X'D6'
0,4

EXP CDND. CODE AND SENSE
EXP CSW ADDRESS
BR. TO ISSUE TEST I-D
CTRL SWITCHES
T EST
N U M B
EXP CDND. CODE AND SENSE
ROUTINE EXIT

E

R

••••••••••••••••••••••••••••• *•• ****** ••• **** ••• *************.**.****.*
• ROUTINE 04 - ISSUE NOP -03-. EXPECT CONDo CODE 1 ON THE SIO, WITH
•
CHANNEL AND DEVICE END STORED IN THE CSW. NO INTERRUPT
•
SHOULD OCCUR. IF PRINTER HAS UCS FEATURE, ISSUE THE
•
PRECONDITION LOAD COMMAND -EB-, THE BLOCK DATA CHECK
•
COMMAND -13-, AND THE ALLOW DATA CHECK COMMAND -1B-.
•
EXPECT SAME RESULTS AS NOP.

•• *.*** •••••••• **.*.* •••••••••••••••••••••• *•• *.** •••••••••••••••••••••

ROUT04 DC
DC
BAL
G004
MVI
BAL
DC
DC
DC
DC
TM
BC
MVI
BAL
DC
DC
DC
DC
MVI
8AL
DC
DC
DC
DC
MVI
BAL
DC
OC
DC
DC
END03 SVC
CNOP

X'04'
AL3IROUT05-SECNOI
R4,INIT
CCW,X'03'
Rll,lSIO
X'OAOO' .
X' 0010'
X'FIOO'
AL2(NOPCSW-SECNO+REGI
UNIT1+1,X'10'
NONE, END03
CCW,X'EB'
Rll,ISIO
X'DAOO'
X'0080'
X'FIOO'
AL2(NOPCSW-SECNO+REGI
CCW,X'73'
Rl1.ISIO
X'OAOO'
X' 0()90'
X'FIOO'
AL2INOPCSW-SECNO+REGI
CCW,X'18'
Rll,ISIO
X'OAOO'
X' 0100'
X'FIOO'
AL2(NOPCSW-SECNO+REGJ
X'D6'
0,4

ROUTINE NUMBER
ADDRESS OF NEXT ROUTINE
BR. TO INITIALIZE
SET UP FOR NOP
BR. TO ISSUE NOP SIO
CTRL SWITCHES
T EST
N U M B E R
EXP CONDo CODE AND SENSE
EXP CSW ADDRESS
CHECK FOR UCS FEATURE
BR. I F NOT OEF I NED
SET UP FOR PRE-CONDITION LOAD
BR. TO ISSUE SIO
CTRL SWITCHES
T EST
N U M B E R
EXP CONDo CODE ANO SENSE·
EXP CSW ADDRESS
SET UP FOR BLOCK DATA CHECK
BR. TO ISSUE SIO
CTRL SWITCHES
T EST
N U M B E R
EXP CONDo CODE AND SENSE
EXP CSW ADORESS
SET UP FOR ALLOW OATA CHECK
BR. TO ISSUE SIO
CTRl SWITCHES
T EST
N U M B E R
EXP CONDo CODE AND SENSE
EXP CSW AOORESS
ROUTINE EXIT

*••••••••••••• ** ••••• ****.* •• *** •• ****** •• ******************.**** •• ***.

*
•
*

ROUTINE 05 -

•
•

ISSUE DIAGNOSTIC WRITE -05-, WITH A COUNT OF 131. EXPECT
INCORRECT LENGTH RECORD TO BE INDICATED. ISSUE SAME
COMMAND WITH SLI FLAG. EXPECT INCORRECT LENGTH TO eE
SUPPRESSED. ISSUE DIAGNOSTIC READ -02-, WITH COUNT OF
131. EXPECT INCORRECT LENGTH TO BE INDICATED. ISSUE SAME
COMMAND WITH Sll FLAG. EXPECT INCORRECT LENGTH TO BE
SUPPRESSED. REPEAT ABOVE TESTS WITH A LONG COUNT OF 135.

*
*
.*.* •• *••••••••• *•• *.** •••••••••• ***.*****.******* ••••• ***.*.* ••• **** ••
ROUT05 DC
DC
8AL
GOOS
LA
MVI
BAL
DC
DC

X'05'
Al31ROUT06-SECNO)
R4,INIT
R10,SHORT
SHORT,X'05'
Rll,ISIO
X' 3COO'
X'OllO'

1

OBJECT CODE

STMT

FOOO
FEFO
41 AO
9205
45" 80
3COO
0120
FOOD
FE913
92 02
41 AO
4S 80
3800
0130
FOOO
FEA8
92 02
41 AD
45 60
3800
0140
FOOO
FE60
41 AD
92 05
92 40
45 80
3COO
0150
FOOO
FECS
41 AD
92 05
45 BO
3COO
0160
FOOO
FF38
92 00
41 AD
92 02
92 40
45 BO
3800
0170
FOOD
FED8
92 00
41 AD
92 02
45 BO
3800
0180
FOOO
FF48
OA Db
07 00

1311

SOURCE STATEMENT

I

ROUTINE NUMBER
ADORESS OF NEXT ROUTINE
BR. TO INITIALIZE
LOAD ADDR OF SHORT COUNT CCW
SET UP FOR DIAGNOSTIC WRITE
BR. TO ISSUE SIO
CTRL SWITCHES
T EST
N U M B E R

ID
PAGE

F830-5
11

01A34
01A36
01A38
01A3C
OlA40
OlA44
01446
01A48
01A4A
01A4C
OlASO
01A54
OlA58
01A5A
01A5C
01A5E
01A60
01A64
01A66
01A6C
01A6E
01A70
01A72
01A74
01478
01A7C
01A80
01A84
01A86
01A88
01A8A
. 01 ABC
01A90
01A94
01A98
01A9A
01A9C
01A9E
01AAO
01AA4
01AA6
OlAAC
01A60
01A64
01AB6
01AB6
01ABA
OIABC
01ACO
OlAC4
01AC8
OIACC
01ACE
01ADO
01AD2
01A04
01Aob

DATE
EC'S

F E90
F E90
FlOE

F EE8
F EEB
FlOE

F E90
F E90
FlOE

F EB8
F EB8
F ECD
FlOE

F ECO
F ECO
FlOE

F ECD

F EB8

F EB8
F EDD
FlOE

F Eoo
F ECO
F ECO
FlOE

1312
1313
1314
1315
1316
1317
1318
1319
1320
1321
1322
1323
1324
1325
1326
1327
1326
1329
1330
1331
1332
1333
1334
1335
1336
1337
1338
1339
1340
1341
1342
1343
1344
1345
1346
1341
134B
1349
1350
1351
1352
1353
1354
1355
1356
1351
1356
1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
1311
1312
1313
1314

15MAR6b 15NOV66 120CT61
125632 125655 131812

DC
DC
LA
MVI
BAL
DC
DC
DC
DC
MVI
LA
BAL
DC
DC
DC
DC
MVI
LA
8AL
DC
DC
DC
DC
LA
MVI
MVI
BAL
DC
DC
DC
DC
LA
MVI
BAl
DC
DC
DC
DC
MVI
LA
MVI
MVI
BAl
DC
DC
DC
DC
MVI
LA
MVI
BAL
DC
OC
DC
DC
SVC
CNOP

X'FOOO'
AL2(SHRT-SECNO+REGI
RI0,SSLI
SSLI,X'05'
Rll,ISIO
X'3COO'
X'0120'
X'FOOO'
AL2(SSLIST-SECNO+REGI
SHORT,X'02'
RI0,SHORT
Rll,ISIO
X'3800'
X'0130'
X'FOOO'
AL2(RDSHRT-SECNO+REGI
SSLI ,X'02'
RI0,SSLI
RU,ISIO
X'3800'
X'0140'
X'FOOO'
Al2(RSSLI-SECNO+REGI
RI0,WRLNG
WRLNG,X'05'
ALNG+5,X'40'
Rll.ISIO
X'3COO'
X'0150'
X'FOOO'
AL2(AlNG-SECNO+REGI
RIO,LNGSLI
LNGSLI,X'05'
Rll,ISIO'
X'3COO'
X'0160'
X'FfJOO'
AL2(ALNS-SECNO+REGI
ALNG+5,X'OO'
RIO,WRLNG
WRLNG,X'02'
BLNG+5,X'40'
Rll,ISIO
X'3800'
X'0110'
X'FOOO'
AL2(BlNG-SECNO+REGI
BLNG+5,X'OO'
RI0,LNGSLI
LNGSLI,X'OZ'
Rll,ISID
X'3800'
X'0180'
X'FOOO'
AL2(BLNS-SECNO+REGI
X'D6'
0,4

EXP CONDo CODE AND SENSE
EXP CSW ADDRESS
SET UP FOR SHORT WRITE WITH SLI FLAG
SET UP FOR DIAGNOSTIC WRITE
BR. TO ISSUE SIO
CTRL SWITCHES
TEST
NUMBER
EXP CONDo CODE AND SENSE
EXP CSW ADDRESS
SET UP FOR DIAGNOSTIC READ
SET UP FOR SHORT READ
8R. TO ISSUE SID
CTRL SWITCHES
TEST
NUMBER
EXP CONDo CODE AND SENSE
EXP CSW ADDRESS
SET UP FOR DIAGNOSTIC READ
SET UP FOR SHORT READ WITH SLI FLAG
BR. TO ISSUE SIO
CTRL SWITCHES
TEST
NUMBER
EXP CONDo CODE AND SENSE
EXP CSW ADDRESS
SET UP FOR LONG COUNT
SET UP FOR DIAGNOSTIC WRITE
EXP INCORRECT LENGTH
BR. TO ISSUE SIO
CTRL SWITCHES
T EST
N U M B E R
EXP CONDo CODE AND SENSE
EXP CSW ADDRESS
SET UP FOR LONG COUNT WITH SlI
SET UP FOR DIAGNOSTIC WRITE
BR. TO ISSUE SIO
CTRL SWITCHES
T EST
N U 101 B E R
EXP CDND. CODE AND SENSE
EXP CSW ADDRESS
EXP NO INCORRECT LENGTH
SET UP FOR DIAGNOSTIC READ
EXP INCORRECT LENGTH
BR. TO ISSUE LONG READ
CTRL SWITCHES
TEST
NUMB E
EXP CONDo CODE AND SENSE
EXP CSW ADDRESS
EXP NO INCORRECT LENGTH
SET UP FOR DIAGNOSTIC READ
BR. TO ISSUE SIO
CTRL SWITCHES
TEST
NUMB E
EXP CONDo CODE AND SENSE
EXP CSW ADDRESS
ROUTINE EXIT

R

R

•••• *.* •••• *.*.**.* ••••• *•• *•••• *•• *.* •• *.** •••••••• *•• ***** •• *•• *•••• *

*
*
•
.*
•
•

ROUTINE Ob -

ISSUE OIAGNOSTIC WRITE -05-. CLEAR NO INTERRUPTS. TRY
TO ISSUE ANOTHER SID. EXPECT CONDo CODE 2.
ISSUE ~ HIO.
EXPECT CONDITION CODE O. ISSUE A TEST 1-0
EXPECT CONDo CODE 1 WITH CHANNEL END IN THE CSW.
ISSUE
ANOTHER HIO. EXPECT CONDo CODE 1 WITH ZEROED CSW. ISSUE
A SIO. EXPECT CONDo CODE 1 WITH DEVICE BUSY AND DEVICE

10
PAGE

F83D-5
llA

\,

o

IBM M_INTENANCE DIAGNOSTIC PROGRAM

PIN 840104
PAGE
12

1403 PRINTER FUNCTION 1
LOCAT

08JECT COOE

DATE
EC'S

06
000858
45 40
02 01
45 80
4200
0190
FOOO
45 80
4200
0200
F200
58 9E
88 90
46 90
45 80
4200
0210
FOOD
45 BO
4AOO
0220
FlOO
FF20
58 9E
88 90
46 90
45 110
4AOO
0230
FIOO
FDF4
45 80
0800
0240
FlOO
FDC8
45 80
4AOO
0250
F100
FDF4
45 BO
4200
0260
FOOO
OA06

790
f F18
flOE
f

flOE

o 198
o 004
F B02
f OE6

f Of A

o

198

o 004
F B24
f OEb

flOE

f OE6

F Of A

1377
1378
1319
1380
F DCO
1381
1382
1383
1384
1385
1386
1387
1388
, 1389
·1390
1391
1392
1393
1394
1395
1396
1397
1398
1399
1400
1401
H02
1403
f, H04
1405
1406
1401
1408
1409
1410
1411
1H2
1413
1414
1415
1416
1411
1418
1419
1420
1421
H22
1423
H24
1425
1426
1421
1428
1429
1430
1431
1432
1433
1434
1435
1... 36
1431
1438

SOURCE STATEMENT

DIAGNOSTIC PROGRAM

END. ISSUE HID AGAIN. ~XPECT SAME AS BEFORE. ISSUE A
•
TEST 1-0. EXPECT CONO. CODE o.
••••••••• * •• * ••• * •• * •• * •• * •••••• *.* •••••••••••••• * ••••••• * •• * ••••••••••
RDUT06 DC
X'06'
ROUTINE NUMBER
DC
AL3IROUT07-SECNOI
ADORESS OF NEXT ROUTINE
BAl
R4,lNIT
8R. TO INITIALIZE
G006
MVC
CCWI 8 I ,OWR
SET UP FOR OIAGNOSTI C WR ITE
BAL
Rll,lSIO
BR. TO ISSUE SIO
DC
X'4200'
CTRL SWITCHES
DC
X'0190'
T EST
N U M B E R
DC
X'FOOO'
EXP CONDo COOE ANO SENSE
BAL
Rll,ISIO
BR. TO ISSUE SIO
DC
X'4200'
CTRL SWITCHES
DC
X'0200'
T EST
N U M B E R
DC
X'F200'
EXP CONDo CODE AND SENSE
L
R9,WTlR141
LOAD WAIT FACTOR
SRL
R9,4
AOJUST
BCT
R9,.
LOOP UNTI l "cOUNT OF ZERO
8AL
Rll,lHIO
8R. TO ISSUE HALT 1-0
OC
X'4200'
CTRl SWITCH
OC
X'0210'
T EST
N U M B E R
DC
X'FOOO'
EXP CONDo CODE AND SENSE
BAl
Rll.ITIO
8R. TO ISSUE TEST 1-0
OC
X'4AOO'
CTRl SWITCHES
DC
X'0220'
T EST
N U M 8 E R
OC
X'FIOO'
EXP CONDo CODE AND SENSE
DC
Al21NORM-SECNO+REGI
EXP CSW ADDRESS
l
R9,WTlR141
LOAD OM WAIT CONSTANT
SRL
R9,4
ADJUST
BCT
R9,*
DELAY
BAl
Rll,IHIO
BR. TO ISSUE HALT 1-0
DC
X'4AOO'
CTRl SWITCHES
DC
X' 0230'
T EST
N U M 8 E R
DC
X'F100'
EXP COND COSE AND SENSE
DC
AL21CSWO-SECNO+REGI
EXP CSW ADDRESS
BAL
Rll,lSIO
BR. TO ISSUE SIO
DC
X'0800'
. CTRl SWITCHES
DC
X'0240'
T EST
N U M B E R
DC
X'FIOO'
EXP CONDo CODE AND SENSE
OC
AL21DBZY-SECNO+REGI
EXP CSW ADDRESS
BAl
Rll,lHIO
BR. TO ISSUE HALT 1-0
DC
X'4AOO'
CTRL SWITCHES
OC
X'0250'
T EST
N U M B E R
DC
X'F100'
EXP COND CODE AND SENSE
DC
AL21CSWO-SECNO+REGI
EXP CSW ADORESS
BAl
Rll,lTlO
BR. TO ISSUE TEST 1-0
DC
X'4200'
CTRL SWITCHES
DC
X' 0260'
T EST
N U M B E R
DC
X'FOOO'
EXP COND CODE AND SENSE
SVC
X'D6'
ROUTINE EXIT
CNOP 0,4
•••••••••••••••••••••••••••••••••• ~ ••••••••••••••••••••••••••••••••••••
• ROUTINE 07 - THIS ROUTINE IS BYPASSED UNLESS SECTION SENSE SWITCH 5
•
IS ON. MAKE OEVICE NOT READY. ISSUE A NOP -03-. ISSUE
•
A TIO. EXPECT CONDo CODE 1, WITH UNIT CHECK STORED, AND
•
INTERVENTION REQUIRED IN SENSE, FOR BOTH. ISSUE HID.
•
EXPECT CONDo CODE 1, WITH 0 CSW STORED. MAKE DEVICE
•
UNAVAILABLE.· ISSUE NOP -03- SIO, A T10, AND A HIO.
•
EXPECT CONDo CODE 3 ON EACH. MAKE DEVICE AVAILABLE AND
•
READY. ISSUE TIO. EXPECT CONDo COOE 1 WITH DEVICE END
•
STORED DUE TO NOT READY TO ·READY. RESTORE CARRIAGE.
•
ISSUE SKIP TO 1. IMMEDIATE. OBSERVE NO CARRIAGE MOTION.
•
ISSUE PRINT AND SPACE SUPPRESS -01-. OBSERVE NO MOTION.
•
I~SUE SKIP TO 1 IMMEDIATE. CARRIAGE SHOULD SKIP TO 1.

LOCAT

OBJECT CODE

01B5B
01B59
01B5C
01B60
01B64
01B66
01867
01B68
01B6A
01B6C
01810
01B12
01B73
01874
01B76
01B78
01B7C
01B1E
01B80
01B82
01B84
01B8B
01B8A
01B8C
01B8E
01B90
01B94
01B96
01B98
01B9A
01B9C
0189E
01B9F
018AO
01BA2
01BA4
01BA8
01BAA
01BAC
OlBAE
01BB2
01B84
(HBB6
01BB8
OlBBC
OlBBE
01BCO
01BC2
01BC4
01BC5
01BC6
01BC8
01BCA
01BCE
01800
01BD2
01BD4
01BD6
01BDC
OlBDE
01BDF
01BEO
01BE2

07
000C50
91 Olt
41 10
OA DO
04
OE
FDDO
OA 06
45 40
OA DO
24
OF
FOOD
OA DA
45 BO
3800
0210
Fl40
FDEC
45 BO
3800
0280
F140
FDEC
45 BO
3800
0290
Fl40
FDF4
OA DO
24

PIN 8 ... 0104
PAGE
12A

15MAR66 15NOV66 120CT61
125632 125655 131812

10
PAGE

~

f830-5
12

DATE
EC'S

f 004
F B6C

F

190

flOE

F Of A

F OE6

11

FE04
OA DA
45 BO
3200
0300
F300
1t5 80
3200
0310
F300
45 80
3200
0320
F300
OA DO
24

flOE

F OFA

f OE6

IF
Ft:15
OA DA
45 8.0
3800
0330
FlOO
FF28
02 01
OA 00
24
24
fE31t
OA DO

STMT

SOURCE STATEMENT

••••••••••••••••••••••••••••••••••••••••• *••••••••••••••••••• ••••••••

•

. I

()·o

M~lNTENANCE

1403 PRINTER FUNCTION 1
STMT
L~15
J376

01AD8
01A09
OlADC
OlAEO
OlAEb
OlAEA
OlAEC
OlAee
OlAFO
OlAF4
OlAFb
OlAF8
OlAFA
OlAFE
01802
01806
0180A
0180C
0180E
01810
01814
01816
01818
01814
0181C
01820
01B44
01B28
01B;!C
01B2E
01B30
01B32
01B34
01B38
0183A
01B3C
01B3E
01BltO
01B44
01B46
01B48
01B4A
01B4C
61B50
01852
01B54
01856
01858

IBM

f OFA

F E3D of ES8

1439
1440 ROUT07 DC
1441
°DC
1442·
TM
1443
BC
1444 SOLONG SVC
1445
DC
1446
DC
1441
DC
1448
SVC
1449
BAl
1450 GOOl
SVC
1451
DC
1452
DC
DC
1453
1454
SVC
1455
BAL
1456
DC
1457
DC
1458
DC
1459
DC
1460
BAL
1461
DC
1462
DC
1463
DC
1464
DC
1465
. BAL
1466
DC
1467
DC
1468
DC
1469
OC
1470
SVC
1411
DC
1472
DC
1473
DC
1414
SVC
1475
BAl
1476
DC
1411
DC
1478
DC
1419·
BAl
14.80
DC
1481
DC
1482
DC
1483
BAl
1484
DC
1485
DC
1486
DC
1481
SVC
1488
DC
1489
DC
1490
DC
1491
SVC
1492
BAL
1493
DC
1494
DC
1495
OC
1496
OC
1497
MVC
1498
SVC
1499
DC
1500
DC
1501
DC
1502
SVC

15MAR66 15NOV66 120CT67
125632 125655 131812

.,

0·0 0 0 0 0 0 0.0. /0 0 0 O· 0 0 0 0 0

o o

~,

X'07'
AL3CROUT08-SECNOI
SNSW.X·04·
ALL,G007-4
X'DO'
X'04'
X'OE'
Al21BVPASS-SECND+REGI
X'D6'
R4,INIT
X'DO'
X'24'
X'OF'
AL2CMNR-SECNO+REGI
X'DA'
R11.ISIO
X'3800'
X'0270'
X'F140'
AL21UC-SECNO+REGI
Rll,lTIO
X'3800'
X'0280'
X'Fl40'
AL2CUC-SECNO+REGI
R11 ,.IHIO
X'3800'
X'0290'
X'Fl40'
AL21CSWo-SECNO+REGI
X'DO'
X'24'
X'll'
Al21MUA-SECNO+REGI
X'DA'
Rll.ISIO
X' 3200'
X'0300'
X'F300'
R11,ITIO
X'3200'
X'0310'
X'F300'
Rll, IHIO
X'3200'
X'0320'
X' F300'
X'DO'
X'24'

ROUTINE NUMBER
ADDRESS OF NEXT ROUTINE
CHECK SECTION SENSE SWITCH 5
BR- IF ON
.
PRINT -8YPASSED-

,.

i

EXIT fROM ROUTINE
PRINT -MAKE NOT READY-

HALT TO PERFORM INTERVENTION
BR. TO ISSUE SIO
CTRL SWITCHES
TEST
NUM8ER
EXP CONDo CODE AND SENSE
EXP CSW ADDRESS
8R. TO ISSUE TIO
CTRl SWITCHES
TEST
NUMBER
EXP CONDo CODE AND SENSE
EXP csw ADDRE~S
BR. TO ISSUE HIO
CTRL SWITCHES
TEST
NUMBER
EXP CONDo CODE AND SENSE
PRINT -MAKE UNAVAILABlE-

HALT TO PERFORM INTERVENTION
BR. TO ISSUE SIO
CTRl SWITCHES
TEST
NUMBER
EXP CONDo CODE AND SENSE
8R. TO ISSUE TIO
CTRl SWITCHES
TEST
NUMBER
EX·P. CONDo CODE AND SENSE
BR. TO ISSUE HID
CTRL SWITCHES
TEST
NUMBER
EXP CONDo CODE AND SENSE
PRINT -MAKE AVAllA8lE. RESTORE,
READY-

X'lF'

AL2IMRA-SECNO+REGI
X'DA'
Rll,lTIO
X'3800'
X'0330'
X'FlOO'
Al2CDONLY-SECNO+REGI
ONCM+9C2I,NO
X'DO'
X·2 ... •
X·24·'
AL210NCK-SECNO+REGI
X'DO'

HALT TO PERFORM INTERVENTION
BR. TO ISSUE TIO
CTRL SWITCHES
T EST
N U M B E R
EXP CDND. CODE AND SENSE
EXP CSW ADDRESS
MOVE -NO- TO MESSAGE
PRINT -OBSERVE NO CARRIAGE MOTION-

PRINT -SKIP TO 1 IMMED'

10
PAGE

F830-5
12A

0 0·0 0 0 0 0 O· O· 0 0

000000000000000000000000000000000_
IBM

M~INTENANCE

DIAGNOSTIC PROGRAM

PIN 840104
PAGE
13

1403 PRINTER FUNCTION 1
LOCAT

01C50
01C51
01C54
QIC58
01C5C
Q~C60

01C62
01C64
QlC66
pi~~~

1403 PRINTER FUNCTION 1
STMT

08JECT CODE

018E4 liP
Ol8E5 10
018E6 FE5A
018E8 Or DA
OlBEA 92 88
018EE 1t5 80
oi8F2 3COO
018F4 0340
018F6 . FIOO
01BF8 FF50
01BFA OA DO
01BFC 24
OlBFD 24
018FE FE31t
01COO OA DO
01C02 AO
01C03 11
01C04 FE6A
01C06 OA DA
01C08 02 01
01COE 92 01
01C12 45 BO
01C16 3COO
01C18 0350
OlCtA FOOO
OlCIC FF20
01Cl1' 02 01
01C2~
or. DO
01C26 24
01C21 24
01C28 FE34
01C2A or. DO
01C2C AO
01C2D 10
01C2E FE5A
01C30 OA DA
01C32 02 07
01C38 92 8B
01C3C 45 80
01C40 3COO
01C42 0360
01Citit FlOO
01C46 FF50
()lCitll DA DO
oiCH 04
Qlcitli OB
riiC4C FE81
!UC4E OA 06
01C5Q

SOURCE STATEMENT
DC
DC
DC
SVC
·MV1
BAL
DC
DC
DC
DC
SVC
DC
DC
DC
SVC
DC
DC
DC
SVC
MVC
MVI
BAL
DC
DC
DC
DC
MVC
SVC
DC
DC
DC
SVC
DC
DC
DC
SVC
MVC
MVI
BAL
DC
DC
DC
DC
SVC
DC
DC
DC
SVC
CNOP

l~D:3

1504
1505
1506
1501
1508
1509
i510
1511
1512
1513

F F18
FlOE

,15H

F Fl8
F F18
FlOE

F DCO

F E3D

F E3C

F F18

F F60

1515
1516
1517
1518
1519
1520
1521
1522
1523
1524
1525
1526
1521
1528
"1529
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539

F Fl8

151t0

FlOE

1541
le542
1543
1544
1545
1546
1547
1548
1549
1550
1551
1552
i553
1554
1555
1556
1557
1558
1559
1560
1561
1562
1563
1564
1565
i566

08
000C90
1t5 40 F 790
41 AO F C70
1t5 BO FlOE
3COO
0310
FOOO
FC80
OA 06

PIN 81t0101t
PAGE
13A

IBM MlINfENANCE DIAGNOSTIC PROGRAM

X'AO'
X'10'
AL2(SKIP-SECNO+REGI
X'OA'
CCW,X'8B'
Rll,ISIO
X'3COO'
X'0340'
X'FlOO'
AL2IIMCSW-SECNO+REGI
X'DO'
X'21t'
X'21t'
AL2(ONCM-SECNO+REG)
X'OO'
X'AO'
X'17'
AL2(PNS-SECND+REGI
X'DA'
CCWI81,DWR
CCW,X'Ol'
Rll,ISID
X'3COO'
X'0350'
X'FOOO'
AL2(NORM-SECNO+REGI
ONC~+9(2),ONCM+8

X'DO'
X'21t'
X'24'
AL210NCM-SECNO+REGI
X'DO'
X'AO'
X'10'
AL2(SKIP-SECNO+REGI
X'DA'
CCW(8I,NOPCCW
CCW,X'8B'
Rll,lSIO
X'3COO'
X'0360'
X'FI00'
AL2(IMCSW-SECNO+REGI
X'DO'
X'OIt'
X'OS'
AL2IENDRTN-SECNO+REG)
X'D6'
0,4

HALT TO READ INSTRUCTIONS
SET UP SKIP TO 1 IMMEDIATE
BR. TO ISSUE SID
CTRL SWITCHES
T EST
N U M .B
EXP CDNO. CODE AND SENSE

R

snIT

LOCAT

OBJECT CODE

01C6A
01C10
01C1B
01CBO
01C84
01CB8
01C8C
01C90

000000000000
050018CD80000020
000010C000000064
00001C80
08000000
00000000
04000000

PRINT -D8SERVE NO CARRIAGE MDTION-

HALT TO READ INSTRUCTIONS
SET UP PRINT NO SPACE
BR. TO ISSUE SID
CTRL SWITCHES
TEST
NUMBER
EXP CDND. CODE AND SENSE
EXP CSW ADDRESS
BLANK OUT -NO- IN MESSAGE
PRINT -OBSERVE
CARRIAGE MOTION-

01C90
01C91
01C94
01C98
01C9C
01CAO
01CA2
01CA4
01CA6
01CA8
01CAA
01CBO
01CB8
01CCO
01CC4
01CC8

09
000CC8
45 40 F 790
41 AO F CBO
45 00 FlOE
3800
0380
FOOD
FCCO
OA 06
000000000000
030018C040000001
030018CDOOOOOOOl
D0001CCO
OCOOOOOI

PRINT -SKIP TO 1 IMMED01CC8
01CC9
OlCCC
01COO
01CD6
01CDA
01CDC
OlCDE
DICED
01CE2
01CE4
01CE8
01CFO

HALT TO READ INSTRUCT10NS
SET UP FOR SKIP TO 1 IMMEDIATE
BR. TO ISSUE SIO
CTRL NUM8ER
T EST
N U M B
EXP CONDo CODE AND SENSE
EXP CSW ADDRESS

E

R

ROUTINE EXIT

10
OOOCFO
45 40 F 790
02 01 F Fl8
45 BO FIDE
3800
0390
FOOO
FF30
DA 06
00000000

F CE8

060018CDO~000084

CHAINED TO ANOTHER CCW WITH A COUNT OF 100. THE SECOND
cew IS AN INVALID COMMAND. EXPECT NO UNUSUAL CONDITIONS.

X'08'
AL3IROUT09-SECNOI
RIt,INIT
RI0,OWRDC
Rll,ISIO
X'3eoo'
X'0370'
X'FOOO'
AL2 I DCCWS-SECND+REG I
X'D6'

ROUTINE NUMBER
ADDRESS OF NEXT ROUTINE
BR. TO INITIALIZE
SET UP FOR DATA CHAIN
BR. TO ISSUE SIO
CTRL SWITCHES
T EST
N U M B
EXP CONDo COOE AND SENE
EXP CSW ADDRESS
ROUTINE EXIT

E

10
PAGE

..

X'05' ,PRAR,X'OO' ,32
X'OO',PRAR,X'OO',100
AIDCCWSI
X'08000000'
XL4'O'
X'04000000'
0,4

, i

- COMMAND CHAIN A NOP -03-, TO ANOTHER NOP. eXPECT CONDo
CODE 0 ON THE SIO, 'DUE TO CHAIN FLAG. 'EXPECT ,CHANNel
AND DEVICE END INTERRUPT wITH ADDRESS OF THE SECOND
cew PLUS 8 STORED IN THE CSW.
.

•••••••••••••••• **•••••••••••••••••••••••••••••••••••••••••••••••••••••

PRINT -PRINT NO SPACE-

••••••• *•••••••••••••••••••••••••••••••• *••••••••••••• *•• *••••••• *•••••

ROUT08 DC
DC
BAL
G008
LA
BilL
DC
DC
DC
DC
SVC

\,

1567 'DWRDC CCW
CCW
1568
1569 DCCWS DC
DC
1570
1571
DC
DC
1572
CNDP
1573
1574
1575 • ROUTINE 09
1576 •
1577 •
1578 •
1\;79
1580 ROUT09 DC
DC
1581
BAL
1582
LA
1583 GD09
BAL
1584
DC
1585
OC
1586
OC
1587
DC
1588
SVC
1589

••••••••••••••••• *•••••••••••••••••••• *••••••••••••••••••••••••••••••••

•••••••••••••••••••••••••••••••••
*•••••••••••••••••••••••••••••••••••• *
• ROUTINE 08 - ISSUE DIAGNOSTIC WRITE -05-, WITH COUNT OF 32, DATA
•
•

SOURCE STATEMENT

.'

\

..

,

01CFO
OlCFl
01CF4
01CF8
OlCFE
01002
01006
OlDOA

R

F83D-5
13

DATE
EC'S

11

000054
4.5 40
02 01
91 01
47 10
92 89
1t5 BO

F 790
F Fl8

F 004
F B64
F Fl8'

FlOE

F CE8

1590
1591
1592
1593
1594
1595
1596
1591
1598
1599
1600
1601
1602
1603
16Q4
1605
1606
1607
160B
1609
1610
1611
1612
1613
1611,
1615
1616
1617
1618
1619
1620
1621
1622
1623
1624
1625
1626
1627

15MAR66 15NOV66 120CT67
125632 125655 131812

CHNNDP CCW
CCW
CHNST DC
DC
CNDP

X'09'
AL3(ROUTI0-SEeNOI
R4,INIT
R10,CHNNOP
R11,ISIO
X'3800'
X' 0380'
X'FOOO'
AL2ICHNST-SECNO+REG)
X'D6'

ROUTINE NUMBER
ADDRESS OF NEXT ROUTINE
BR. TO INITIALI ZE
SET UP TO CHAIN NOP
BR. TO ISSUE SID
CTRL SWITCHES
T EST
N U M B
EXP CONDo CODE AND SENSE
EXP CSW ADDRESS
ROUTINE EXIT

E

R

X'03',PRAR'X'40',l
X'03',PRAR,X'OO',1
AICHNSTI
x'oeOOOOOl'
0,4

••• *•••••••••••••••••• *••••••••••••••••••••• *•••••••••••••••• *•••••••••

• ROUTINE 10 - ISSUE DIAGNOSTIC CHECK REAO -06-. EXPECT CONDo CODE 0
. ON SIO, WITH CHANNEl AND DEVICE END INTERRUPT.
•

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••*•••••••• *••
ROUTI0 DC
DC
BAL
GOI0
MVC
BAL
DC
DC
DC
DC
SVC
DCRD

CCW
CNDP

X'10'
AL3(ROUTII-SECNOI
R4,INIT
.
CCW(8)'DCRD
Rl1,ISIO
X'3800'
X' 0390'
X'FOOO'
AL2CNORD-SECNO+REGI
X'D6'

ROUTINE NUMBER
AODRESS OF NEXT ROUTINE
8R. TO INITIALIZE
SET UP FOR DIAG. CHECK REA,D
BR. TO ISSUE SIO
CTRL SWITCHES
T EST
N U M B E
EXP CONDo CODE AND SENSE
EXP CSw ADDRESS
ROUTINE EXIT

R

X'06',PRAR,X'00',132
0,4

••••••••••••••• *••••••••••••••••••••••••••••••••••• *•• *••••••••••••••••
• ROUTINE 11
•
•
•
•
•
•

~

ROUT11 DC
DC
BAL
MVC
GO 11
TM
BC
MVI
BAL

X'11'
AL3CROUT12-SECNO)
R4,INIT
CCW(8)'DCRD
SNSW,X'OI'
ALL,SOLONG
CCW,X'B9'
Rll,ISIO

ISSUE PRINT AND SKIP TO 1 -89-. CLEAR CHANNEL END.
ISSUE TIO BEFORE DEVICE END OCCURS. EXPECT DEVICE BUSY.
REPEAT FOR SIO. EXPECT SAME. REPEAT FOR HID. EXPECT eOND
CODE 1 WITH ZEROED CSW. EACH DEVICE END FROM THE PRINT
AND SKIP TO 1 IS CLEARED BY ENABLING THE CHANNEL AFTER
THE 1-0 OPERATION BETWEEN CHANNEL AND DEVICE END. THIS
ROUTINE WILL BE BYPASSED IF SECTION SENSE SWITCH 7 IS ON

••• *•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ROUTINE NUM8ER
ADDRESS OF NEXT ROUTINE
CHECK SECTION SENSE SWITCH 7
BR. IF ON TO BYPASS ROUTINE
SET UP PRINT AND SKIP TO 1
eR. TO ISSUE SIO

ID
PAGE

F830-5
13A

•IBM

i '

M_INTEN_NCE DIAGNOSTIC PROGRAM

PIN 840104
PAGE
14

1403 PRINTER FUNCTION 1
OBJECT CODE

STMT

OIDOE
01010
01012
01014
01016
OlDlA
OlOlC
OlDIE
01020
01022
01026
01028
0102A
0102C
0102E
01032
01034
01036
01038
0103A
01D3E
01040
01042
01044
01046
0104A
0104C
0104E
01050
01052
01054

2AOO
0400
FOOO
FF20
45 BO
3COO
0410
FI00
FOBO
45 BO
2AOO
0420
FOOO
FF20
45 BO
3COO
0430
FlOO
FOBO
45 BO
2AOO
0440
FOOO
FF20
45 80
3COO
0450
FlOO
FOF4
0_ 06

1628
1629
1630
1631
1632
1633
1634
1635
1636
1631
1638
1639
1640
1641
1642
1643
1644
1645
1646
1641
1648
1649
1650
1651
1652
1653
1654
1655
1656
1651
1658
1659
1660
1661
1662
1663
1664
1665
1666
1661
1668
1669
1610

FlOE

FlOE

FlOE

F OE6

01054 12
01055 OOFFFF
01058 45 40 F 190
0105C 02 01 F F18 F OCO
01062 45 80 FlOE
01066 2AOO
01068 0460
0106A FO
01068 . 00
0106C FF20
0106E 92 OC F F18
01012 58 4E o 198
01016 88 40 o 004
0101A 46 40 F 07A
0107E 45 80 FlOE
01082 3800
01084 0480
01086 Fl
01081 00
01088 FOC8
0108A OA 06
0108C 00000000
01090 030018C040000001
01098 0800109000000001
01DAO 0000000000000000
010A8 0000 10 AD

DATE
EC.'S

PIN 840104
PAGE
14A

1403 PRINTER FUNCTION 1

LOCAT

F OFA

IBM MAINTENANCE DIAGNOSTIC PROGRAM

SOURCE STATEMENT
DC
X'21100'
oC
X'0400'
DC
X'FOOO'
DC
AL2fNDRM-SECND+REGI
BAL
Rll,ITIO
DC
X'3COO'
DC
X' 0410.'
DC
X'FIOO'
DC
AL2108Il-SECNO+REGI
8AL . Rll,ISID
DC
X' 2AOO'
DC
X'0420'
DC
X'FOOO'
DC
AL2fNDRM-SECNO+REG)
BAL
Rll,ISIO
DC
X'3COO'
DC
X'0430'
DC
X'FIOO'
DC
Al2IDBll-SECNO+REGI
BAL
Rll.ISIO
DC
X'2AOO'
DC
X'0440'
DC
X'FOOO'
DC
AL2INORH-SECNO+REGI
8AL
Rll,IHIO
DC
X'3COO'
DC
X'0450'
DC
X'F100'
DC
AL2ICSWo-SECNO+REG)
SVC
X'D6~
CNOP 0,4

• .
•
•

L

15MAR66 15NOV66 120CT67
125632 125655 131812

E

R

E

R

E

E

E

R

R

R

••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ROUTl2 DC
X'12'
ROUTI NE NUMBER

1611

1687
1688
1689
1690

R

ISSUE AN INVALID COMMAND, EXPECT CDND. CODE 1 WITH
DEVICE 8USY AND DEVICE END ONLY. ISSUE SENSE, NO BITS
SHO\,lLD 8E SET.

1613
1614
1615
1616
1618
1619
1680
1681
1682
1683
1684
1685
1686

E

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• ROUTINE 12 - ISSUE A DIAGNOSTIC WRITE, AND CLEAR CHANNEL END ONLY.

DC
BAL
MVC
BAL
DC
DC
DC
DC
DC
MVI

1611
1612

CTRL SWITCHES
T EST
N U M B
EXP CONDo CODE AND SENSE
EXP CSW ADDRESS
BR. TO ISSUE TEST 1-0
CTRL SWITCHES
TEST
NUMB
EXP CONDo ceDE AND SENSE
EXP CSW ADDRESS
BR. TO ISSUE SID
CTRL SWITCHES
TEST
NUMB
EXP CONDo CODE AND SENSE
EXP CSW ADDRESS
BR. TO ISSUE SID
CTRL SWITCHES
TEST
NUMB
EXP CONDo CODE AND SENSE
EXP CSW ADDRESS
BR. TO ISSUE START 1-0
CTRL SWITCHES
TEST
NUMB
EXP COND CODE AND SENSE
EXP CSW ADDRESS
BR. TO ISSUE HALT 1-0
CTRL SWITCHES
TEST
NUMB
EXP COND CODE AND SENSE
EXP CSW ADDRESS
ROUTI NE EX IT

G012

SRL
BCT
BAL
DC
DC
DC
DC
DC
SVC
NOPTRN CCW
CCW
R12CSW DC
DC

X'OOFFFF'
R4,tNIT
CCWU),OWR
Rlt,ISIO
XL2'2AOO'
X'0460'
X'FO'
X'OO'
Al2fNORM-SECNO+REGI
CCW,X"OC'
R4,WTCR14)
R4,4
Rio,.
Rll,ISIO
XL2'3800'
X'0480'
X'F1'
X'OO'
AL210BZY-SECN~REG)

X'06'

LAST ROUTINE
GO INITIALIZE
SET UP COMMAND
GO TO 1-0 HANOLER- OIAG WRITE
CONTROL SWITCHES
TEST
NUMBER
CONDITION CODE EXPECTED
SENSE DATA EXPECTED
ADDRESS Of CSW
SET UP fOR INVALID COMMAND
LOAD WAIT FACTOR
ADJUST WAIT fACTOR
WAIT
GO TO 1-0 HANDLER - INVALIe COMMAND
EXPECTED A CSW
TEST
NUMBER
EXPECTED CONDITION CODE
EXPECTED SENSE
ADDRESS OF CSW
ROUTINE EXIT

X'03',PRAR,X'40',l
X'08',NOPTRN,X'DO',l
XL8'O'
AIR12CSW)

10
PAGE

F830-5
.14

LOCAT

08JECT CODE

STMT

01DAC
OlDBO
01DB4
010B8
OlDBC
OlDCO
01OC8
OlOCC
01000
01008
01000
01OE5
OlOEC
OlOFO
010F4
OlOFC
OlEOO
01E04
OlEOC
01E14
OlE15
01EIO
01E25
0lE20
01E34
0lE3C
01E44
01E4C
01E54
01E58
01E5A
01E62
01E6A
01E12
01E7A
01E81
01E89

OCOOOOOO
00000000
10000000
00000000
04000000
050018C000000084
00000000
14000000
4009E30540C2E801
CIE2E2C5C4
4004CI02C54005D6
E34009C5CIC4E8
00000000
0200000.0
0000000000000000
00000000
04000000
4004CID2C540E4D5
CIE5CIC9D3CIC2D3
C5
40D4CID2C540CIE5
Clt9D3ClC203C56B
40D9C5E2E3D609C5
684009C5CIC4E8
40D6C2E2CSD9ESC5
60D50640C3CID9D9
C9CIC7CS40D4D6E3
C9D60540C5E7D7C5
C3E3C5C4
0506
40E2D2C9D740E306
40F140C9D4D4CSC4
40D709C9D5E340C2
03CID502E26640D5
D640E2D7CIC3C5
40C5D5C440D6C640
09E305

1691
1692
1693
1694
1695
1696
1691
1698
1699

DC
DC
DC
DC
DC
DWR
CCW
D8lY
DC
DC
8YPASS DC

X'OCOOOOOO··
XL4'O'
X'lOOOOOOO'
XL4'O'
X'04000000'
X'05',PRAR,X'OO',132
XL4'O'
X'14000000' .
C' RTN 8YPASSEO'

1700

MNR

DC

C' MAKE NOT READY'

1701
1702
1703
1704
1705
1706

UC
C;;SWO
MUA

DC
DC
DC
DC
DC
DC

Xl4'O'
X'02000000'
XL8'O'
XL4'O'
X' 04000000'
C' MAKE UNAVAILABL'

1707
1708.

MRA

DC
DC

C'E'
C' MAKE AVAILABLE,'

0lE8C
01E90
01E98
01E9C
OlEAO
01EA4
01EA8
OlEAC

00000000
050018CD20000083
00001E98
08000000
00000000
04000000
OOOOlEFO
OC400000
0000lE98
OCOOOOOO
050018C000000085
050018CD20oo0085
00001ECO
08400001
00000000
04000000
00001ECO
OC400001
OCOOOOOO
00000000
050018C000000083
OOOOlHO
08400000
00000000
04000000
00

0~E8.0

01EB4
0lEB8
01ECO
OlECS
OlECC
OlEDO
01ED4
01E08
OlEOC
OlEEO
01EE4
01EE8
01EFO
01EF4
01EF8
OlEFC
OlFOO

DATE
EC'S

....- .......

DBll

1709
1710

ONCM

1711

DC

C' RESTORE, READY'

DC

C' OBSERVE-NO CARR'

DC

C'IAGE MOTION EXPE'

1712
1713
1714

NO
SKIP

DC
DC
DC

C'CTEO'
C'NO'
C' SKIP TO 1 IMMED'

1715

PNS

DC

C' PRINT BLANKS, N'

1716
1717

DC
ENDRTN DC

1718

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

1719
1720
1721
1722
1723
1724
1725
1726
1721
1728
1729

SSLI
CCW
SSLIST DC
DC
DC
DC
RDSHRT DC
DC
RSSL 1 DC
DC
WRLNGCCW
LNGSLI CCW
ALNG
DC
DC
DC
DC
8LNG
DC
DC
DC

1130

1731
1732
1733
1734
1735
1736
1737
1738
1739
1740
1741
1742

15MAR66 15NOV66 120CT67
125632 125655 131812

----_.-.-

SOURCE STATEMENT

SHORT
SHRT

CCW
DC
DC
DC
DC
DC

C'O SPACE'
C' END OF RTN'

X'05',PRAR,X'20',131
AISSLl+81
·X'08000000'
XL4'O'
X'04000000'
AI SHOR.l+S)
X'OC400000'
AISSli+8)
X'OCOOOOOO'
X' 05' ,PRAR. X'OO.' ,133
X'05',P~A~,X'20'.133

AIWRLNG+S)
X'08400001'
XL4'O'.
X'04000000'
AfWRLNG+8)
X'OC400001'
X'OCOOOOOO'
X'05',PRAR,X'00',131
AfSHORT+8)
X'08400000'
XL4'O'
X'04000000'
X'OO'

10
PAGE

F830-5
14A

_----............- ......--------------------------

i,

i,

'i ,.

'j,

':i

0000 000·00000000000000000000\0·000·0'00

00000000000000000,8M MAINTENANCE DIAGNOSTIC PROGRAM

PIN 8ltOl0lt
PAGE
15

1lt03 PRINTER FUNCTION 1
LOCAT

08JECT CODE

01F01
01F02
01F03
01F03
01FO't
01F08
01FOC
01FI0
01Fl't
01FlB
01F20
OlF2't
01F28
01F2C
01F30
01F34
01F38
01F3C
01F40
01F44
01F48
01FltC
01F50
01F51t
01F58
01F5C
01F60
00000
00007
OOOOF
0,0008
000010
00001
00005
00008
00004
00002
00001'
00008
qOOO't
QOQO?
O(lOQf>

Op

07 00

QpoQI.'

QOQP~

flQQ80

QQ!~l

OFOOO
IlQP~.

Qt'loPQ

ooooi

OpD02
00003
00004
00005
00006
00001
OOOOS
110009
OOOOA
OQ008
~Q()!=

Pc;ll'lOP
o.POOE
pO'llOF

~TE

EC'S

~5M.R66

125632

-------.

PIN 8ltOl0lt
PAGE
15A

Ilt03 PRINTER FUNCTION 1
STHT

SOURCE STATEMENT

17lt3
171tlt

00
00001658
OCOOOOOO
00000000
OCOOOOOO
00000000
030018CDOOOOOOOl
00001F20
08000000
00000000
010000000
00001F20
OCOOOOOO
00001EC8
08000001
00000000
010000000
0000lEC8
OCOOOOOI
00000000
08000000
00000000
010000000
,03001SCDOOOOOOOl

IBM MAINTENANCE DIAGNOSTIC PROGRAM

CNOP
ORG

17105
1746
P41
1748

SNSCSW DC
DC
NOPCSW DC
DC

1749
1150
1151
1152
1753
1754
1155
1156
1751
1158
1759
1760
1161
1762
1163
1164
1165
1766
1161
1768
1169
1110
1711
1772
1713
1711t
1715
1776
1777
1718
1719
1780
1181
1782
1783
1784
1785
1786
1781
1788
1789
1790
1791
1792
1193
1194
1195
1796
1791
1198
1199
1800
1801
1802
1803

CCII
NORM

CCII
DC
DC
DONLY DC
DC
NORD
DC
DC
ALNS ' DC
DC
DC
DC
8LNS
DC
DC
IMCSII OC
DC
DC
DC
NOPCCII CCW
NEVER EQU
EQU
NCCO
UNC
EQU
NONE
EQU
SOME
EQU
ALL
EQU
ANY
EQU
EQU
CCO
EQU
CC1
CC2
EQU
CC3
EQU
EQ
EQU
LO
EQU
HI
EQU
UNEQ
EQU
EQLO
EQU
EQHI
EQU
LOGOUT EQU
SY~MOD EQU
RE
EQU
EQU
WHAT
RO
EQU
R1
EQU
R2
EQU
EQU
R3
Rio
EQU
i:QU
R5
R6
EQU
Rl
EQU
R8
EQU
R9
EQU
RIO
EQU
Rll
EQU
R12
EQU
IU3
EQU
Rl1t
EQU
R15
EQU

, l5NOV66 l20CT61
125655 111812

--------------------

LOCAT
00198
OOOitO
000lt8
00 lAO
01954

O,It
*-1
AIISENSE+8)

x'oeoooooo'

08JECT CODE

STMT
180lt
1805
1806
1801
1808

SOURCE STATEMENT
WT
HCSW
HCAW
DMSSW

EQU
EQU'
EQU
EQU
END

It08
61t
12
X'OlAO'
ROUTOl

XLIt'O'
X'OCOOOOOO'
X'03"PRAR,X'OO~.1

AINORM)
)('08000000'
XL4'O'
X'04000000'
AINORM)
X'OtOOOOOO'
AIALNG)
X'08000001'
XL4'O'
X'04000000'
AIALNG)
X'OCOOOO01'
XLIt'O'
X'08000000'
XL't'O'
X'OltOOOOOO'
X'03',PRAR,X'00',1

°,

1(
15'
8'
10
1
5
8
It
2
1
8
It
2
6
12
10
X'SO'
X'181'
X'FOOO'
90

~

a

1
2
3
It
5
6
1
8
9
10
11

12
13

lit
15

10

PAGE

,F830-5
15

DATE
EC'S

15MAR66 15NOV66 120CT67
125632 125655 131812

ID

PAGE

F83O-5
15A

,.. ,·.li

.. _......... -"-.- ......

18" MAINTENANCE DIAGNOSTIC PROGRAM
F~NCTION

llt03 PRINTER

PIN 840104
PAGE
16

1

01015
010'"
01651
01658
01671
01618
01789
01C11
01C19
01C80
01C81
01C89
01CCO
01CE9
01091
01099
010A8
OlOCI
01E91
01E98
01EA8
01E80
01EB9
01ECl
01EC8
01E08
01EE9
01EFO
01F04
01F19
01F20
01F30
01F38
01FIo8
OlF61

..

,~.-

..

~'.""

PIN 840104
PAGE
16A
i:

LA8EL CROSS-REFERENCE 8Y STATEMENT NUM8ERS
LA8EL

RELOCATION DICTIONARY
LOCATION

IBM MAINTENANCE DIAGNOSTIC PROGRAM
1403 PRINTER FUNCTION

POST ASSEMBLY DATA

,.,.".~.-

LENGTH
3
10

3
3
3
10

3
3
3
10

3
3
4
3
3
3
4
3
3
10
10

4
3
3
4
4
3
10

"
"""
3

'0
3

DEFN

REFERENCES

ALL
ALNG
ALNS
ANY
BLNG
BLNS
BLOOP
BYPASS
CAW
CCW

LEN VALUE
1
4
4
1
4
4
4
13
4
8

000001
001EC8
001F38
000005
OOlEOB
001F4B
0017C2
001000
001048
OOlF18

1172
1730
1156
1173
17'34
1160
1150
1699
0612
1749

0788
1336
1348
1076
1352
1365
1138

CCO
eel
ee2
CC3
CEMSG
CHNNOP
eHNST
CKAR
CLUIN
CROCSW
esw
CSWO
08Il
OBZY
ocews
OCKRO
OCRO
OMSSW
OONLY
ORAR
OWR
OWROC
I:NORTN
EN003
EO
EOHI
EOLO
EXNPS"
EXOPS"
FLAGI
FUG2
GOOI
G002
G003
G004
G005
GOO ..
G007
G008
G009
GOlD
GUll
G012
GREG
HANGUP
HCAW
HCSW
HI
HUNG
IACSNS

1
1
1
1
16
B
4
1
16
4
8
8
4
4
4
8
8
1
4
1
8
8
11
2
1
1
1
5
8
1
1
4
4
4
4
4
6

000008
000004
000002
000001
001853
001e80
001CCO
001680
001813
001678

1174
1175
1776
1777
1180
1590
1592
1125
1175
1123
0611
1103
1692
1697
1569
1122
1609
1807
1152
1126
1696
1567
1117
1292
1778
1183
1782
0614
0606
0602
0603
1202
1217
1243
1266
1306
1381
1450
1560
1583
1602
1623
1669
0808
1157
1806
1805
1780
1185,
1106

2

4

"66

..

4
6
1
1
1
16

11

0010100

0010F4
0010BO
0010C8
001C80
001670
001CE8
0001AO
001F28
001704
0010CO
001e70
00lE81
001A18
000008
OOOOOA
OOOOOC
001051\
001018
00100E
00100F
00195C
001970
0019AC
001900
00lA24
OOllEO
001B70
001C58
001C98
001COO
001CF8
00lD5C
001l8C
OOl7EO
000048
000040
000002
00188E
00,1508

0829
1341

0846
13'09

1357

1358

0870
1756

0878
1760-

OB9'o

0897

0926

0953' 1078

1151

1'0'03

1625

1274
1676

1280

1286

1381

1507

1522

1523

1540

1602

1623

1469

1656

1171

14107

1155
1626
0809
0816
0811
1147
1583
1588
1122.
1167
1123

1266
1669
0815
0890

1592

1409 '1419
1636 1646
1414 1685
1565 1569
1602
1496
1127
1381
1560
1549
1273
0921

1539

'~.'

j

1623

15Z.2

1669

";:~.

1138

1443

0810
1151
0782
0783

0886
0783

107lt
0823

0847

0850

1161t
0902

10'01

1042

1046

1116

0865

0899

I

I

DATE
EC'S

15MAR66 15NOV66 120CT67
125632 125655 131812

10
PIIGE

"~~.

'

.. ---.........

-.--...

.........._--._.

"'__ .____
'.~

F830-5
16

(
DATE " , 15MAR66, 15NOV66 120CT67
EC'S (I 125632 125655 131812

ID
PAGE

F830-5
16A

....2-,.___ .

.~.,.l!

---'---~--'

I"~

3000000

o

00000

o

0000000000000000000

Oi 0

o

o

00

0."'/, C'··f. ·,
,.

00

-,

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840104
PAGE
17

ISLAVE
ISSUE

3
10
16
6
12
6
6
6
3
6
6
2
1
2
3
8
8
6
4
4
4
4
3
10
11
6
1
I

4
4
4
4
16
4
4
4
4
4
2
4
4
4
5
4
15
3
6
16
4
4
8
2
16
6
6
4
4
8
4
8
4

0015C7
001572
0015Ao
0012FE
001598
001410
001320
001342
0015AA
00144E
00147E
00100A
00140B
0013F4
0015A7
00163A
001642
00130A
001488
001458
0012AB
001350
0015CA
001568
0015CO
00111E
001380
001510
001l6C
00 1184
0010E6
00152C
00158B
0012E8
00H5C
00lF50
001470
00134C
001790
001200
00120C
OOlloC
001010
001268
00157C
001658
001426
0015El
001lC6
001078
001038
00150E
001608
001370
0014AO
0014CA
00120C
001548
001280
001650
00 HOE

M~INTENANCE

0

o o o o

o o

0', 0" 0' C··' C'"
" i,

, ,'"

,I

"

~':

" , ,.", :,'.

,'

O·A
, ,,'

~,I

PIN 840104
PAGE
17A

DIAGNOSTIC PROGRAM

1403 PRINTER FUNCTION

1403 PRINTfR FUNCTION
IACT
lACTCC
IBLAH
IBSN
ICAW
ICCOUT
ICCSWI
ICCSW2
ICCW
ICHNGI
ICHNG2
ICM
ICNT
ICOUT
ICSW
ICSWI
ICSW2
ICWOUT
1010
10101
IoOSNS
lDUNCK
IEXP
IEXPCC
IEXSNS
IEYEOH
IFLAGI
IFLAG2
IHANG
IHI
IHIo
ILEAVE
ILiNK
ILOKE
ILOOP
IMCSW
IMORST
INoER
INIT
INOEXI
INOEX2
INOW
INPSW
INn
IOAoOR
IOAoR
lOCSW
IOlOG
toNE
IONPSW
IOOPSW
IOPOUT
IOPTl
IOUTIT
IPAS
IPASS
IRETRN
ISAVE
ISEN
ISENSE
ISIO

IBM

o

1103
1089
1101
0904
1098
0992
0912
0920
HOO
1011
1021
0599
0989
0981
1099
1114
H15
0975
1023
1013
0883
0923
1104
10B8
1105
0779
0937
1067
0800
0806
0765
1079
1094
0899
0796
1762
1018
0922
1131
0893
0896
0827
0604
0867
1090
1117
1002
H07
0822
0619
0610
1066
H10
0931
1028
1047
0842
1086
0873
H16
0775

8 001668 1121
4 00 llA6 0814

OB61
OB13
OB59
OB76
0964
0963
0911
0919
0973
1008
1010

1015
0818
0861
0880
0967
0978

0860
0862
0859
0823
0865
09BO
1019
1005
0874
0895
1006
0992
1028
0769
0923
0924
0805
0799
1393
0928
0942
0890
0168
1512
1014
0888
1201
0901
0915
0188

0914
0976
1002
0841
0881

0849
0161
0956
0953
1054
0816
0842
1048
0766
0926
1024
0864
0620
0181
0829
0885
1218
1361
1621
0780
0765

15HAR66 15NOV66 120CT67
'125632 125655 131812

0878
0898
1020
0991
1033
0774
0929
0930

1025
0820
0913
0882
0968

0822
0985
0892
0912

0826
0986

1003
1012

1017

1022

1027

0877
0920

0912
0920

0912
1026

1016

ISV2
ISW
1006

1015

1020

0803
1405

1415

1465

1483

0945

0946

0950

1073

0111
1545

0776

0894
1216

0897
1242

0903
1265

0819

OB21

0825

0773

0778

0957

1056

0777

1057

0905
1305

1652

0909
1380

0913
1449

0917
1559

1582

1601

1622

1668

0961
1061

0868
1243
1261
1386
1642
1158
0775

ITRY2
lTSTNo
ITWO
IUIO
IUNEX
IUP
IWAIT
IZERO
JOHN
lNGSlI
LO
lOGOUT
MCNPSII
MCOPSW
MNR
M0044
M0050
MRA
MSKI
MSK2
MUA
NCCO
NEVER
NIOU
NITWIT
NO
NONE

4
4
4
4
4
9
4
6
11
4
4
4
6
8
1
1
8
8
15
4
4
16
1
1·
16
1
1
1
4
2
1

0012C8
0010FA
0012eo
001154
001164
0015FF
OOllBE
00122E
001650
001538
OOllEC
001108
001198
001ECO
000004
OOOOBO
001070
001030
001000
001144
0018C8
001E15
001658
00165C
001E04
000007
000000
001000
00119C
001E58
000008

01191
0710
0889
0794
0198
1109
OS20
0850
1120
1082
0831
0826
0811
1129
1719
1184
0618
0609
1100
0187
1191
1708
1118
1119
1106
1768
1161
0601
H35
1113
1170

NOPCCW
NOPCSII
NOPTRN
NORD
NORM "
ONCM I
PGNPSW
PGOPSWI
PNS
PRAR

8
4
8
4
4
16
8
8
16
1

00 !F60
001FOC
001090
001F30
001F20
001E34
001068
001028
001E6A
0018CO

1166
1141
1681
1154
1150
1110
0611
0608
1115
1193

ROCCW
ROSHRT
REG

8 001188 1121
4 001EA8 1724
1 OOFOOO 1786

ROUTOI
ROUT02
ROUT03
ROUT04
KOUT05
ROUT06
ROUT01
ROUT08
KoUT09
ROUTlO

1
1
1
1
1

1069

1030
1083
0838
1217
1244
1382
1637
0993
0770

6 00125E 0865
2 0010E4 0160

1025

H6B
0921
1038

0853
1063
0772

1001
1002

IT Ie
IT I 0
IT I Ol P
I TRYl

1034

1055

0904
0990

0810
1745
1275 1281
1410 1455
1647 '1670
0962

1287
1415
1680

1308
1508

1315
1524

1322
1541

1329
1561

1331
1584

1344
1603

1353
1621

1H7

10
PAGE

F830-5
17

DATE
EC'S

1

1
1
1
1

001954
001968
0019A4
001ge8
OOIAIC
001AD8
001858
001C50
001C90
00lCC8

1199
1214
1240
1263
1303
1378
1440
1551
1580
1599

0846
0811
0869
1023
0900
1202
0891
0191
0795
0119
0811
0843
0854
1080
0812
0815
0190
1342

0848
0925

08f,3
1013

0866
1023

0907
1133

0909
1273

0915

0911

0811
0871
1029

0812
0815
1062

0824
0819
1064

0827
0893
1011

0830
0896
1150

0833
0901
1159

0837
0908
1160

0844
0916
1110

°P45
0922

1249

1397

1420

1460

1479

1492

1632

0939

0868
1019

0874
1024

0876
1030

0880
1063

0882
1080

1225

1230

0801

1076

0931

0934

0935

0809
1343

1359

1360

0786

0186

1049

1453
0185
1136
1490
0834
0836
1413
0801

0888

0900

0795
0918

0799
1005

0803
1014

1279

1285

1291

1528
1501

1631
1516

1641
1529

1651
1529

1675
1533

1750

1154

1154
1149

1154
1166

1567

1568

1590

1591

1609

1687

1696

1719

1728

1729

0939
1141
1333
1464
1531
1615
1808

0950
1164
1341
1469
1545
1685

0961
1167
1348
1473
1549

0972
1229
1357
1490
1565

0990
1248
1365
1496
1588

0997
1271
1401
1501
1601

1001
1279
1409
1505
1631

1038
1285
1414
1512
1636

1046
1291
1419
1516
1641

1061
1312
1447
1520
1646

1069
1319
1453
1528
1651

1073
1326
1459
1533
1656

H33
1491
0790
0928
1539
1211
1688
1607
1401
1491
1520
1152
1137
1326
0858
1143
1326
1459
1533
1656
0605
1200
1215
1241
1264
1304
1379
1441
1558
1581

15MAR66 15NOV66 120CT61
125632 125655 131812

0858
1065

10
PAGE

F830-5
17A

$....

~--,..

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840104
PAGE
18

1403 PRINTER FUNCTION 1
ROUTH
ROUTl2
RSSLI
RTSAV
RO
IU
RIO

1
1
4
1
1
1
1

Rll

1 000008 1199

Rl2
1U2CSW
RU
R14
Rl5
R2
R3
R4

1
8
1
1
1
1
1
1

OOOOOC
0010AO
000000
OOOOOE
OOOOOF
000002
000003
000004

1800
1689
1801
1802
1803
1190
1191
1192

R5
il.6
Rl
R8

1
1
1
1

000005
000006
000001
000008

1193
1194
1195
1196

R9

1 000009 1191

001CFO
001054
001E80
001812
000000
000001
OOOOOA

1620
1666
1126
1114
1188
1189
1198

SAVOEV
SAVE IT
SAVIT
SAVIO
SOMF
SECNO

2
16
12
4
1
4

001810
0018A8
001888
0018C4
00100C
001000

1173
1188
1189
1190
0600
0596

SHORT
SHRT
SKIP
SNSCSW
SNSW
SOLONS
SOME
SRET
SSLI
SSLIST
STL
SVNPSW
SVOPSW
SYSMOO
UC
UNC

8
4
16
4
4
2
1
3
8
4
16
8
8
1
4
1

001EE8
OOlEFO
001E5A
00lF04
001004
001864
000004
001050
001E90
001E98
00182C
001060
001020
000181
0010EC
OOOOOF

1131
1138
1114
1145
0597
1444
1111
0615
1119
1120
1117
0616
0607
1185
1101
1169

UNEQ
UNITI
UlAOOR
UI0P
WHAT
WORK

1
1
2
1
1
1

000006
0010EO
0010E2
0010E1
00005A
001550

1181
0622
0624
0623
1181
1081

DATE
EC'S

""., ';".','" "'-

IBM MAil NTENANCE DIAGNOSTIC PROGRAM

~"""""M.'_~'

-.....~.....". ~~........ ""'- '"-_

PIN 840104
PAGE
18A

1403 PII/I NTER FUNCTION 1
1600
1621
1333
1153

WRLNG
WT

1151

~F.,8305

0806
0180
1306
0179
0942
1082
1281
1393
1492
0796
1690
0182
0184
0847

0801
0182
1313
0180
0951
1082
1281
1391
1508
0800

0810
0964
1321
0181
0951
1084
1308
1405
1524
0804

0183
0831
0850

0183, 0823
0883 1041
0865 1134

1156
1617
1018

1201
1618
1168

1216
1619

1242

0181
1009
0181
1021
1131

0885
1010
0831
1083
1139

0886
1083
0832
1222

0910

0911

0918

0918

0919

0940

0941

1001

1008

1009

0835
1223

0862
1224

0883
1390

0884
1391

0891
1392

0916
1402

0991
1'103

1012
1404

1011

1022

0853
0968
1046
1169
1312
1419
1641
1306
1312
1505
1229
0189
1625

0854
0972
1052
1200
1319
1441
1646
1301

0858
0983
1053
1215
1326
1447
1651
1320

0934
0984,
1061
1229
1333
1453
1656
1321

0935
0990
1069
1241
1341
1459
1675
1124,

0939
0991
1013
1248
1348
1464
1685
1138

0945
1001
1143
1264
1351
1469

0946
1033
1147
1211
1365
1473

0950
1034
1153
1279
1319
1490

0956
1038
1157
1285
1401
1496

0951
1041
1164
1291
1409
1501

0961
1042
1161
1304
141'1
1505

0961
10'16
1169
1312
1419
1512

1531
1248
0194

0198

0802

0927

1015

1442

1624

1313
1319
1143

1314

1327

1328

1120

1126

0184
1459
0169
0898
0185
1135

1041
1464
0174
0980
0843
1272

0797
0991
0903

0805
1065
0905

0819
1084
0913

0821
1156
0963

0825
1171
1048

0838

0849

0864

0872

0892

0895

0850

0915

0983

0984

0985

0986

1011

1011

1016

1021

1021

1026

1049

0915 0971
1328 1334
0828 0861
0952 0992
1158 1202
1315 1322
1410 1415
1541 .1561
0808 0814

0919
1342
0813
1004
1218
1329
1420
1584
0842

0919
1350
0902
1001
1225
1331
1455
1603
0887

0993
1359
0904
1018
1230
1344
1460
1621
0889

1074
1560
0906
1028
1244
1353
1465
1632
1135

1155
1583
0910
1019
1249
1361
1415
1631
1136

08116
1132

0899
1222

1074
1390

1131
1402

1131
1617

1134

1265

1305

1380

1449

1559

1582

1158

1211

1243

0914
1081
1261
1382
1419
1642
1131

0931
1081
1215
1386
1483
1641
1139

09'11
10e2
1281
13<13
1492
1652
1149

1601

1622

1668

,

8 001E88 1128
1 000198 1804
1 001000 0003

1052
1334
0806

1053
1335
0831

1054
1,350
0883

1055
1351
1222

1056
1130
1390

1051
1134
1402

1617

f·

NO STATEMENTS FLAGGED IN THIS ASSEM8LY
~4~,/-'

.. ",',,;,Ai,;.ti;':·

.','"

15MAR66 15NOV66 120CT67
125632 125655 131812

10
PAGE

F830-5
18

'"

DATE
EC'S

15MAR66 15NOV66 120CT61
125632 125655 131812

1D
PAGE

F830-5
18A

'-----------"---'----'-----,-i,

\

'), fl.

000 000000

o o o

I

0 0 0 0 0

0

0 0 0 0 0 0 0 0 0 0 0' 0

0

(J,

0000000000000000000

•

,~

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840104
PAGE
19

1403 PRINTER FUNCTION 1
08JECT DECK lIST.

PIN 840104
PAGE
19A

1403 PRINTtR FUNCTION

PERIQDS CORRESPOND TO

1 THROUGH 20

COlS.

IBM M4INTENANCE DIAGNOSTIC PROGRAM

COlS.

8~ANK

21 THROUGH 40

COLUMNS.
41 THROUGH 60

COlS.

COlS.

61 THROUGH 80

8ESD •••••• AA •• AAXF83
9
YQ Y9
99 9

05 •• AAAA.AGQ ••••••••
YYQY yal
9999 99

••••••••••••••••• 840

8TXT.AAA •• A8 •• AA8ACA
9
YQY Y9 Y9 Q Y
999 9
9 1 9

AAAA~AAAAACAAOAAAAJD

YYYYYYYYY9-Y99YYYY8R
999999999 9 99999

AAAAAAAAAAAAAAAAAAAA
YYYYYYYYYYYYYYVVYYVY
99999999999999999999

AAAAAAAAAAAA83050002
YYYYYYYVYYVY
999999999999

AAAAAAAAAOAAAAAAAAAA
YYYYVYYYY9VVVYVYYYVY
999999999 9999999999

AAAAAAAAAAAA8305000~

105.131812 •• 83050001

BTXT.AlA •• A8 •• AAA.OU
9
Y9Q Y~ Y99 9 9
9

GA30HCAF.A3UNG6262GlY 8lVY9 V 9 9 8 8Z

BTXT.AlH •• A8 •• AAGA3&
Y9l V9 V9lY

FAOUBM3AB&5AAAOUGA3&
-9 -Z Y-- Q-9 ZQ-

9

II

9

9

9 9

9

9

BTXT.AlA •• A8 •• AAMA5G
9
V9Y Y9 Y9lB Q
9

9

9

9 1

3DADAAGA20AJOUGA3DAH
8-9QYlY Q-Y lY 810
09
9 9
AAODGA5UBU3ABA5AKA6D
-9 9ZY S-9 Y-Y Q 9 9
9

9 0

9

FHEAB-SG54EDB3050011
9R9080BB B-Q

4A&J5JBEACEJEJB-SC5C
Q Y Y8QY9909V80BB 0
9
999
9 9

KB505KB04CKG5&JAEA34
9 Y Y-9 S 9 YYZQ

A&JDGA4AAKAHB3050018
--Y9lY QZYY9

BEAHE&E&KG5B5&KG5C5H
8QY99 9 9 9 QR
999
0
0

B-SK5NG9KA5VADHJ6QB808B V9 Y SQ9RY ZSO
9 9
9 0
9

SB5QB-SB5BKB83050019
B8 18088 R 9

BK4CAHAAGA4HKB5D58HC
-B B-9QYlY R 9
YIY
9 9 09
9

AF.A4BAHAH.A4BKG5&5C
Y9 Y RIOY9 Y 0 9

EA34A.OUGA4&83050020
ZQ lY-

9

BTXT.AAC •• AA •• AAAAAA
9
YQ- YQ Y9YYYY
990 99 9 9999

AAAAADAAAAKD ••••••••
YYYY99YYYY98
9999 9999 9

BTXT.AAS •• A8 •• AACAAA
9
YQ8 Y9 Y90YYY
99
9
9 9 9

AABFI08H6NBH5H8FIMGO
YY-Q 0- 8- O-Q 8l
99

BTXT.AJQ •• A8 •• AA6NBS
9
Y99 Y9 Y9 8-

5HKA6DA8Al6QAI5H&NAH
o 9 9Q9QY ZQO 1 YYl

PG-.-.EAJAG-I0PCAAAA
90 0 -OlOl 1 8YYYY
1
99 9

AAAAGAIOA&0083050006
-YQYZQ Q-- 9
09 9 9

BTXT.AM- •• A8 •• AAKB5D
9
Y9
Y9 Y9 9
9
9
9

5GKG5C62EA34AOAAGA4H
9
BIQ -9QYIY 0
9
09

KB5D5BKG5&5&EA34AJOU
9
Y OJ
lQ-Y

AAODGAIMDA&AGOIDA.OD
-Y 9lY lQY-Yl R- 9

GAIDEA&AGCI0A.00GAID
lY OOY-Vl- R- 9lY 0
990

DA&AGOIUHOAH83050001
OY-YZ 8R899 9
9

BTXT.AMH •• A8 •• AA5&6B
9
Y9- Y9 Y9
1

EA34KA5KAEADOUGA4BBE
lQ
Y Q9-9 lY YBO
9 0
999

AAEKEKB-SC5EBEAAEEEE
Y99 9 8088 Y8QY99Q9Q
9
9 9 9999 9 9

OUBX5GOA&AGA1QG.IFGJ
- ROY-YZY Z
ZY

IFB35GGOI08283050008
0- RZ Q009

8TXT ••~- •• A8 •• AA5FKC
9
Y90 Y9 Y9 8 8
9
9
9 9 9

5&AABEADE&E&KA5Y5&KE
YY8QY89 9 9
9
9 9999

5l5BKE525KKE595KB-SM

B05GD10UA.AAGA2AFAOU
R-8 - OYlO Y-O
o
09 9
9

HFAHHAACFAOU83050009
R09-0QY9-Y

BTXT~AN~.~A~ •• AAOUGO
: 9
Y99 'V9 Y9 1

IMB-&26HB-JA5C&NAHAC
Y80-9 980Y9 Y YYl--

ODGCIDAAOVGNAHAAGA58
91 R-9 99-9QYlY 9
09

G-2W010UA.OUGA20KG62
Z 8-B lQ 8 9 8
9
9
9

0.F.OUG020KG83050010

9

9

9

9

BTXT.AJC •• A8 •• AAGAIH
9
Y9
Y9 Y9lY9

9

9

9

99

BTXT.AJ& •• A8 •• AA5GGO
9
Y9- Y9 Y9 Rl
9

9

9

9

9 9

9

BTXT.AJH •• A8 •• AAHAAC
9
Y90 Y9 Y90QY9
9

'0

0

EA&AGAIHFAIDPA~UOUFA

QY-YZY -lQ Y 9
9 9

-Y

9

9

o

9

IDB15GKG62-.F.OUGOID
Q- R 9 80 1
Q
0

9

9

•••••••••••• 83050004

BTXT.AlO •• A8 •• AAG03B
9
Y9
Y9 Y9l 0

108D10801M8S83050005
8-Q O-Q 8-

BTXT.AMV •• A8 •• AA505P
9
Y99 Y9 Y9 Y 0

II 0

II

108E 108E IM8 T6NB T5HGO
8-Q O-Q 8- 8- Ol
9

9

9

9 9

9

9

9

FAIDAA6MD10UG02AA&02
ZQ OYY 8-8 1 Y8- 8

BTXT.AKA •• A8 •• AA5CO.
'9'
Y9Q Y9 Y9

BEACAIFK8-MC6NKB505P
80Y9Y89Z80Z8 8 9 Y 0
999 99 9 9

-8 8 9
9 9

BK4CKB5D5GEA34FBOUGO
lO -9 Z

4BKG6BO.FJOU83050011
Y 9 Z -Y

8T)(T. AKQ •• A8 •• AAAAAA
'9
,'yen Y9 Y9-QQY
,
·9
9
9 909

GA2AAHOUGA2AFHOUGOIM
ZY Y-9 lQ Y-9 1 Y

ABAAGA20A.OUGA2FAB66
-90YZY 0lY 0-9 8

GA2QAJOUGA2F83050012
ZQ O-Y ZY 0

8TXT.AKJ •• A8 •• AAAB6F
9
Y9Y Y9 Y9-9 Z

GA2FHFAHHAADAA6&&EAH
ZY OR09-00Y9ZY
YYZ

9 1

\I

9

9

9

\I

9

9

9

BTXT.AKO •• A8 •• AAG03&
9
Y9
Y9 Y9l
9

9

Z

9

9 '

9

AJOUGA3DG03&ED-DG&2H
-Y lO 8Z
-80Zl9

9

9

0

09

Z Z9

9

1

9

DA&AGC3DEACAG.2YFA2C
OY-YZ- 80Y-YZ
ZO9 9 0
9 9
FDOUNA5EAEG-3DNA5GAD
-9
Y 009Z 8 Y R09
9 90
9 00

?

9

BTXT.AJ8 •• A8 •• AAAA6l
~
Y9
Y9 Y9YY 8
'9
9
9 9

1 9

8TXT.AlH •• A8 •• AAI0GY9- Y9 V9 01

9

DATE

0, V5~6 120CT61
15MAR66 11 5N,'
25 6
lUt.:32
" 131812

-------'-~-~---

9

II

9

9

9

9

9

9

9

9

99

9

9

BTXT.AN ••• AA •• AAGCGA
9
Y9
VQ Y99Q9Y
9,
99 9 1 9

GAGAAAAAAAAA •••••• ~~
9Y9YYYYYYYYY
9 999999999

BTXT.ANO •• AU •• AA.CC.
9
Y91 Y9 Y9

.X.EXP.CC •• X.ACT.ADR

9

9

9

9

10

F830-5
19

9 0

o

9

9

Y R 9
9

GA4JKB5D5GKG83050021
lY Y 9
9

9

8 9

l8088
9

9

B-SC5QEAJAG-83050022
80B8 -QlOI
991

5TABOUGA5FDE83050023
-9 lY 8-0

9 Z

ACABACAFHI5H83050024
ZQY9ZQY9-0 Z
09 09
•••••••••••• 83050025

.XXXXXX.XIOA ••••••••

•••••••••••• 83050026

XXXXXXX.XXXXXXXX.EXP

ACTEXP.SNS.X83050028

BTXT.ANl •• A8 •• AAX.EX
9
V9
Y9 Y9
9
9
9

P.SNS.XX.ACT.lOG.XX.

XXXXXX.XXXXXX.XXXXXX

.TST.XXXX.SS83050029

BTXT.AOC •• AB •• AA.O.O
Y98 Y9 Y9
9

N.FOR.lOOP.ON.XIOT.S

S.I.0N.FOR.TIO.SIO.l

OOPAAAAAAAAA83050030
YYYYYYYYY
999999999

9

PAGE

9

.XXXXXX.CSWCCW.CSW.X

G-3DAHAAGA2-83050014
1 8-9QYZY 0
09

9

9

9

•••••••••••• 83050027

BTXT.ANC •• A8 •• AA.CAW
9
Y9Q Y9 Y9

Z

9

...•.........•.....•

G02FA.OUGA3D83050013
1 QlQ 8

Z

9

9

9

.XXXXXX.lINKA •••••••

9

9

9

Y

BTXT.ANC •• AJ •• AA.ADR
9
Y9Y V9 Y9
9
9
9

9

9 9

~·S

9

ABBEABFDFDB-83050016
Q9SQY9999980
o 999
9

SA5CACAOAAAAGA4WBEAC
8Q YZQY9-YQYlQ 9BQY9
9
09
09 9 999

YYYYYYYYYYYYYYYYYYYY
99999999999999999999

VVYYVYYYYYVY
999999999999

9

AAAOlH&A5ABEACEAEABZYY98- Q Q8QY99-9Q80
9 90 0 999
9

8TXT.AA8 •• A8 •• AAAAAA
9
YQ9 Y9 Y9YYYY
99
9
9 9999

AAAAAAAAAAAAAAAAAAA~

AH.A3FNG6B6BB3050015
Y9 Y 1 9 1 Z

DATE
EC'S

9

9

Y
9

9

9

15MAR66 15NOV66 120CT61
12563c, 125655 131812

B

10

PAGE

F830-5
19A

IBM MAINTENANCE DIAGNOSTIC PROGRAM

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PAGE

20
1403 PRINTER FUNCTION 1

1403 PRINTER fUNCTION 1
8TXT.AOC •• A8 •• AAAAAA
9
Y9Z Y9 Y9YYYY
9
9
9 9999

AAAAA4AAADANEAAAAAJO
YYYYYYYYY9Y9QYYY9Y90
999999999 9 9999 9

8TXT.AD3 •• AE •• AAHDAA
9
Y98 Y9 Y9R8YY
9
9
9 0999

Y
9

BTXT.APH •• A8 •• AABAPD
9
Y90 Y9 Y99Y99
9

9

9

9

8TXT.AP& •• A8 •• AAGAAA
9
Y9- Y9 Y9-Y-Y
9

9

9

9

BTXT.AP8 •• A8 •• AAB-JJ
9
Y9
Y9 Y980Y8
9

9

9 9

9 Z

9

9

'1:._ ,.

10'.
"

·0········
..
"_

AEHEAOWBABG183050041
YQ ZQ 8Y9
9Z 0
9

BTXT.AlA •• A8 •• AAAE4E
9
Y8l1 : Y9 Y9YQ Z
99'
9
9 9Z

AOBBAB-OABOGADGADODG
Q OZY9 Y8 9Y8 -9 9Z
o Z 9
99 99

ACUB-DFE-BOE.1AB-UGE
OQ88098Q08 Z Q809BQ
9Z 9 9Z 9
9 9Z

EBBEAIF8AB&183050048
Q8QZQ 89Y9999 0 9 9 0

BTXT.AlA •• A8 •• AA.EME
9
Y80 Y9 Y9 QYZ

AOB8ABA1.EMEAOW8ABAl
Q Q9V9Y QYIQ 9Y9Q
o Z 9
Z9 0
9

.E4B-UJFDBBEAIF2ACA3
Q 8099Q980Z0 89Y9Y
Z 9
Z 99 0 9 9 9

AEAOB2ACA3AE83050049
YZQ Q9Y9Q YZ
90Z999

GGA.SEE.DESCRIPTIONQQY

9

9

l

99

BTXT. ALI •• A8 •• AAAOW2
9
V8- Y9 Y9Q 9
990 9
9 0

ACJ3AB-UPFNBBEAOB8AC
Y9Y Y8098Q98QZQ Q9Y9
9 9 99 9Z 99 0 Z 9

o

A1AGYKAF5FHB-UUF4B-J
YQ9 9Q8QR8099Q980Y
Z 9Z
Z9Z 9
Z 9

AFKBBBCGQEA183050050
QQ8BQ-YQ9ZQ
9Z 99 Z 0

9

COMMENTS.IF.83050035

BTXT.All •• A8 •• AAF4AC
9
YB
Y9 Y9B8Y9
99
9
9 999

.1AGGB-UUF4B-JPF&BBK
YQ 8099Q980Y9Q-8Q
9Z 9
Z 9
Z 99

GGQEGBAGQEA1F4ACGOAG
9Q9Q--9Q9ZQ 88Y9 YQ
Z Z
Z 0 999
9Z

JKAF5F4B-UUF83050051
Y 9Q8Q8B0990
9 Z9Z99
Z

CARRIAGE.TAP83050036

BTXT.AM/ •• A8 •• AA4B-J
Y88 Y9 Y9980Y
9
999 9
9 9

AFKBBKGGQG-BCGQEAIF4
9Z 99

0 99

AC-1AGtB-DCFABOHAOAE
Y9 YQ 8098Q08 9Y8QZ
9
9Z 9 91 9 99

.1AAJDGEA1F483050052
QZYQ-ZQ 88
ZO 0 99

ADABDAAAAAAEAQEAAAJA
YQY8 YYYYYY9Y9YYYYYY
9Z 9 999999 9 9 9999

AQEAAAMAAMAHAAAAAAAD
Y9YYYYZYY8Y9YYYYYYY9
9 9999 999 9999999

AAAAADHE.1AA83050053
YYYBY8 Z QZ
999999

o

AIF8ACAOAD&BOAAAAAAC
Q 89Y9Y YQ~8 YYYYYY9
9 9
9Z 9 999999

AQE.AAACAQEAAAAAAM&D
Y9Y YY99Y9YYYY9YY8-8
9 9 99 9 9999999 9

AAAAADOE.1AK83050054
YY9QYB Z Q
99 999

BTXT.AMJ •• A8 •• AAGGQD
9
Y8
Y9 Y99Q9Q
99
9
9
Z l

YEAIF8ACAOAGABOAAAAF
ZQ 89Y9Q YQQ8 YYYY9
o 9 9 9ZZ9 9999

AQEAAADJAEDE.7AKGGQD
Y9YYYY09Y8RZ Q 9Q9Q
9 9999 99
Z Z

YAAODGACMBIG83050055
-9 910QZ-OQ

BTXT.ANA •• A8 •• AAQEAl
9
Y88 Y9 Y99ZQ
999 9
9
0

FSADAOAGJEAOB4ADAIAE
B8Y9Y YQYZQ Q8Y9Q YQ
999 9 9Z9 0 Z99 9 9Z

o

AEAIFSADJOAGJEA1F4AD
OZQ 88Y9Y YQYZQ 88Y9
0 999 9 9I9 0 999

AIAEAEAIFSAD83050056
Q YQQZQ 88Y'1
Z 9Z0 0 999

9

BTXT.ANA •• A8.#AA.OAG
Y81 Y9 Y9 YQ
99
9
9
9Z

JEAOW4ADG1AE4BDKAGGE
YZQ 8Y9 YQ 8 9YQQZ
9 0 99
9Z 9 9ZZ

.1AKGGOEGEAIFSAD-OAG
Q 9Q9Q-ZQ 88Y9 YQ
Z Z 0 999
9Z

JBDGQHFAHH.AB3050051
Y-8Q9R89-0 Y
9 9Z
9

BTXT.ANl •• A8 •• AADF.E
9
Y88 Y9 Y99Z Q
99
9
9
l

2EAIF8ADAIAEHBOAAAAC
8lQ 89Y9Y YQ 8 YYYY9
o 9 9 9Z 9 9999

AQE.AAAHANAAAAAAAAAA
Y9Y YY99Y8QYYY9YYYYY
9 9 99 99 999 99999

AAAAANJDAAAA83050058
YYYYYBY8YYYY
999999 99999

BTXT.ANA •• A8 •• AAAAAA
9
Y8- Y9 Y9YYYQ
990 9
9 9999

AAAAAAADAAAEAQEAAADA
YYYYYYY9YYY9Y9YYYYOY
9999999 999 9 9999 9

AAAMAAA.RTN.BYPASSED
YYY9YYY
999 999

.MAKE.NOT.RE83050059

BTXT.ANZ •• A8 •• AAADYA
9
Y8
Y9 Y9
Y

AAABAAAAAAAAAAAAAAAO
YYY9YYYYYYYYYYYYYYY9
999 999999999999999

AAA.MAKE.UNAVAIlABlE

.MAKE.AVAILAB3050060

999

.RESTORET.READY.OBSE

RVE-NO.CARRIAGE.MOTI

ON.EXPECTEDN83050061

BlANKST.NO.SPACE.ENO

.OF.RTNAAAAE83050062
YYYY9
9999

OUFAOVB-MK8F83050034
-9 80Z8 Y
9 9

8

E.OUTPUT.MUST.NOT.BE

.TEST.DEVICEBB.PREVI
8Q

99

99

BTXT.AJA •• A8 •• AAAGAA
9
Y8R Y9 Y9V9Y9
99
9
9 9 9

AAQE.1AEAOBBAAAOABOB
YBII QZQ Q9YYQ YB 9
99
0 I 999 99

AAME.1AAJ6GEAIFBAAJO
Y80l glY ZQ 8ZYYY
99
0 9 999

AHFAHHAAC FA983050'039
YRQ9-0QY9IQ
9

BTXT.AJI •• A8 •• AAFEAO
9
YBO V9 Y90ZQ
99
9
9
0

8BAAA1AGDEAOBBAA.OAB
QBYYQ YQ9ZQ Q9YY Y8
1999Z 9Z 0 I 99 99

OGACAAHE.1AAJ6GEAIF2
9Y9Y8 I
QZY ZQ 88
9 99
0 99

AAGOAGDEAOBB83050040
YY YQ9lQ Q9
99 9Z 0 l

BTXT.AJA •• AB •• AAAA-D
9
Y8
V9 Y9YY
99
9
9 99

A80DA8ME.1A8CGQEAIF8
Y8 9Y8aZ Q-9Q9ZQ 88
99 999
Z 0 99

AAGIAGDAAOJGABQBlGQE
YY- YQ8-C ZZYQ9-YQ9l
990 9Z9 9
Z 9Z

AIFBAAAIAGDB83050041
Q 88YYY YQ8o 9999 9Z9

BTXT.AJ9 •• A8 •• AACGQE
9
V8
V9 Y9RQ9Z
99
9
9 OZ

AIF8AAAIAGDB3GQEAIF8
Q 88YYQ YQa-8Q9ZQ 88
o 9999 9Z9 Z 0 99

AAAIAGDBCGAEABQE.1AA
Y9Y YQ88 9Y9Y8 Z QZ
9 9 9Z99 9 99

JFYBEFYEA1F483050042
YQ -9Q ZQ 88

8TXT.AK1 •• A8 •• AAAAAO
9
V89 Y9 Y9Y9Q

AFOAJFABEFAEAIF4AAJO
YQ ZYQQ-9QQZQ 88Y9Y
9Z
Z
I
0 999 9

AFHBBFYAJFYEA1F8AAAO
YO--9Q ZYQ ZQ 89Y9Q
l
Z 0 9 06
407
408
'>09
410
'>11
412

• SWITCH

•• °
•
•
•
•
•
•

loB
41'>

'>15
416
417

*

•
•
•
•
•
•
•

'>18
'>19

'>20
'>21
'>22
423
'>24
425
426
427
428
'>29
430
'>31
432
433
434
435
436
437
438
439
440
441

•

••
•
••

1
2
3
4
5
6
7
8

9

DESCRIPTION
OFF - ISSUE AN 1-0 COMMAND
ON - DO NOT I SSUE AN 1-0 COMMAND
OFF - ENABLE
ON - DO NOT ENABLE
OFF - EXPECT NO INTERRUPT
ON - EXPECT AN INTERRUPT
OFF - 00 NOT EXPECT 2 INTERRUPTS
ON - EXPECT 2 INTERRUPTS
OFF - EXPECT NO CSWS
ON - EXPECT A CSW
OFF - DO NOT EXPECT 2 CSWS
ON - EXPECT 2 CSWS
OFF - ALWAYS TRY TO ISSUE SENSE
ON - SENSE ON UN I T CHECK ONLY
OFF - GIVE HALT OPTION ON DETECTEO ERROR
ON - RETURN WITHOUT HALT OPTION

443
444
445
446
'>47
448
449
"50
"51
"52

•

472
473
474
475
476

0000

477

OFF - DO NOT ISSUE DIAGNOSTIC READ.
ON - ISSOE DIAGNOSTIC READ IF UNIT CHECK.
OFF - DO NOT ISSUE DIAGNOSTIC CHECK READ.
ON - ISSUE DIAGNOSTIC CHECK REAO IF UNIT CHECK.

-

15NOV66 120CT67
125655 131D12

471

010E4

•
OFF - PRINT HEADER
• 10
ON - DO NOT PRINT HEADER
••
*•••*•••••••• *.* ••••••••• *••••••••••• *••••••••• *•••••••••••••••••••••••
*••• *.*.*•• *••••••••••••••••••••••••••••••••••••••••• ** •••••• *•• *.*.*.*
SWITCHES USED BY 1-0 HANDLER
••••••••• ** •••••••••••*•••••••
*••• *••• *••••••••••••• *••••*••••••••••••••
DESCRIPTION
•• SWITCH OFF
- NO HANGUP ON INTERFACE
ON - HANGUP OCCURRED
•• °
OFF - NO CSWS STORED
ON - ONE CSW STORED
• 2
OFF - SECOND CSW NOT RECIEVED
•
ON - SECOND CSW RECIEVED
OFF - DID NOT ENABLE
•• 3
ON - ENABLED ONCE
•* 4
OFF - OlD NOT ENABLE TWICE
ON - ENABLED TWICE
• 5
OFF - NO SENSE DATA RECIEVED
•
ON - SENSE DATA RECIEVED
•• 6
OFF - NO UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE
ON
UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE

442

1~MAR66

453
454
loSS
456
"57
458
459
460
461
462
463
464
465
466
467
468
469
470

••• ****.* ••••• *••• *••••••••• *.* •••••••••••••••••••••••••••••••••• *•• *••

'oDS

125632

PIN 840106
PAGE
"A

1403 PRINTER FUNCTION 2
388
389
390
391

OATE
EC'S

IBM MAINTENANCE DIAGNOSTIC PROGRAM

10
PAGE

F831-5
4

010E6
OlOEA
OlOEE
010F2
010F6
010FA
010H
01102
01106
0110A
0110E
\ 01112
01116
0111A
OllIE
01124
01128
0112C
01130
01136
0113A
0113E
01144
01148
01l4C
01150

92 9E

92
92
92
47

C8
C8
9E
FO
92 90
92 90
92 i:3
92 E3
47 FO
92 9C
92 9C
92 E2
92 E2
02 01
90 AB
90 89
50 AD
07 07
95 30
47 60
07 DB
91 80
47 10
91 CO
47 80

F
F
F
F
F
F
F
F
F
F
F
F
F
F
F
F
F

°0
E

F

°F
B

F
F

lA6
635
SAO
15C
llE
lA6
15C
635
SAO
llE
lA6
15C
635
SAO
61C
680
560
048
040
181
144
080
000
10C
004
198

B 002

0 040

o

080

478
479
480
481
482
483
484
485
486
4B7
4B8
4B9
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
5Q5

01154
01158
0115C
01160
01164
01168
OllbC
01170
01174
01178
0117C

DATE
EC'S

91
47
9C
47
91
47
90
47
91
47
9C

80
80
00
FO
40
60
00
70
40
80
00

506
507
508
509

F 004
F 164
C·OOO
F 154
F 004
F 184
C 000
F 154
F 004
F 184
C 000

•
•

7

OFF - NO ERROR DETECTEO
ON - AN ERROR WAS DETECTED

•••••••••*•••••••••••• *••••••• *•••••••••••••••• *••• **.**••••••••••••••*
•
REGISTERS useD IN 1-0 HANDLER
•••••••••••• *••*••••• **** •• *.* •• *•••••••• ****.*•••• **•••••••• *•••••••••

*

REG
5

•
•

••
•
•*
•••
•

8

USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN.

9

USED AS WORK REGI STER. WILL 8E RESTORED UPON RETURN.

10

MUST CONTAIN CCW ADORESS UPON ROUTINE ENTRY

11

MUST 8E USED AS LINK REG TO THIS ROUTINE

••.*••••••• *•••••••• *.*.*•••••••••••• *••••••••••••••••••••••• *•••••••••••
12

ISW

DC

MUST CONTAIN DEVICE ADDRESS

XL2'O'

••••• *.* •••• ** •• *•• *•••*.* •••• *••••*.** ••••••••*•••••••••••••••••••••••
•••••••••••••••••••••••••*.* •••••••••••••••••*•••••*••••*••••••••••••••
•

• 1-0 HANDLER SUB-ROUTINE.

.* •••••••••••••••••••••••••••••• *••••••••••••••• *••••••••••••••••••••••
tHIO

MVI
MVI
MVI
MVI
DC
IT 10
MVI
MVI
MVI
MVI
BC
ISIO
MVI
MVI
MVI
MVI
IEYEOH MVC
STM
STM
ST
XC
'CLI
BC
XC
MOD44 TM
BC
TM
BC

ISSUE,X'9E'
IOPTl+21,X'C8'
IOAODR+12,X'C8'
ILOOP,X'9E'
UNC,IEYEOH
ISSUE,X'9D'
ILOOP,X'90'
IOPTl+21,X'E3'
IOADDR+12,X'E3'
UNC,IEYEOH
ISSUE,X'9C'
ILOOP,X'9C'
IOPTl+21,X'E2'
IOADDR+12,X'E2'
ITSTNO+5(2),2IRll)
R10.Rll,ISLAVE
RB,R9,ISAVE
RI0,HCAWIR131
HCSWI8,R13J,HCSWIR13)
SYSMODIR141,X'30'
UNEQ,MOD44
LOGOUTI12),LOGOUT
0IRl1),X'80'
ALL ,INOW
SNSW,X'CO'
NONE,JOHN

SET UP FOR HALT 1-0
MOVE -H- TO MESSAGE

DR. UNCONDITIONAL
SET UP FOR TEST 1-0
MOVE -T- TO MESSAGE
DR. UNCONDITIONAL
SET UP FOR START 1-0
MOVE -S- TO MESSAGE
SAVE TEST NUHBER
SAVE REG 10 AND REG 11
SAVE REGS 8 AND 9
STORE COHMAND ADDRESS
CHECK FOR HODEL 30
BR. IF NOT
CLEAR MOD 30 LOGOUT AREA
CHECK CONTROL SWITCH FOR NO 1-0
DR. IF ON

.* ••*•••••••••••••• **** •••••••••••••••••••••••••••• *•••••••••••••••••••
SENSE SWI TCH LOOPS
.'
•••••••••••••• ** •••*••••••*•••••••• *•••••••*.** •••••••••••*••••••••••••
•

ITRYI

TM
DC
SIO
BC
TM
BC
TIO
BC
TM
BC
SIO

ILOOP

510

511
512
513

COMMENTS
USED AS LINK TO ERROR OUTPUT FROM INITIALIZE ROUTINE IF
PREVIOUS HANGUP ON INTERFACE DETECTED.

ITRY2
IHANG

514
515
516

517

°

SNSW,X'80'
NONE,ITRY2
OIR12)
UNC, ITRYI
SNSW,X'''O'
NONE,IHI
OIR12)
NCCO,ITRYl
SNSW,X'''O'
NONEoIHI
01R12)

CHECK SECTION SENSE SWITCH
DR. IF OFF
SIO, TlO, OR HIO
DR. UNCONDITIONAL
CHECK SECTION SENSE SWITCH 1
BR. IF OFF _.
TEST 1-0
• '-,
, ,',
BR. IF NOT CONDo tilDE
CHECK SECTION SENSE SW'JTCH 1
DR. IF OFF
START 1-0

°'

15MAR66 15NOV66 120CT67
125632 125655 131812

ID
PAGE

' '--

--------------~--,~,-----

,',,'

I

!,'

11

itA

, - - " ' - - - - - - - - - - - , , ,...,»,,'

[) iO "l.0 0 ' :0 ,0 I,D ,0 I#)I 0 0 0 :0 0 ,0 10 () 0 '(:.'
'0 10 :0""\
'i'.
'~.,_,.

F831-5

1,,/1',.

,'

-I

,I

""'

iO",

10:'

-,','"

" - '

,0
1 '

',',

/

:,
'
,
1
0
,"
!

' }0
', "
1

, ~ ,

_"

'0',
"
\',

,_~

\:" ) ,
i('
_c

~o

o

* treN' "1

ntt tt n

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

,"k0'te't'tfHI"t#W'

p

'Wnili_*,."y,.,,: .rijr1J:i~6H '.u'Miftrt'lir'diHti!Fi:"t'{ri!rl#{MitWW,A"@ejN@a:f+o'j'tlir"I\" 'ieit IIHWW&t' dft! ii'

'i*\'1W'1

tl1 sttt stU.

!

1

"

.

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840106
PAGE
5

01184
01188
0118C
01190
01194
01198
0119E
011A2
011A6
011AA
01lAE
01182
011B6
011BA
011BE
011C2
011C6
011CA
01100
01104
01108
011DC
011EO
011E4
011E8
011EC
011FO
011F4
011F8
011FC
01200
01204
01208
0120C
01210
01214
01218
OlZlC
01220

01224
01228
0122C
01230
01234
01238
0123E
01242
01146

0124C
01l4E
01150

01252
01254
01256
01251
01258
0125A
01260
01264
0126A

DATE
EC'S

47 FO
58
88
90
47
46
07
96
92
9C
47
47
47
92
47
92
47

92
02
96
47

92
94
91
47
95
47
95
41
91
47
96
58
88
96
80
46
80
94
41

IE
10
00
80
10
01
80
E7
00
80
40
20
F3
FO
F2
FO
Fl
07
40
FO
FO
7F
40
10
FO
80
Fl

60
08
80
10
9E
90
80
00
90
00
IF
FO

49 CO
47 60
94 7F
91 40
41 10
02 07
96 40
41 FO
D2 01
OA DO
0003
0039
061A
OA DO
64
08
F615
02 02
92 lA
02 02
itS 90

F 16C

518
519

0
0
C
F
F
F
F
F
C
F
F
F
F
F
F
F
F
F
F
F
F
F
B
F
F
F
F
F
F
F
F
0
0
F
F
F
F
F
F

198
003
000
198
18C
OE4 F OE4
OE4.
58F
000
108
1C6
1BE
58F
1DC
58F
1DC
58F
652 o 040
OE4
1DC
58F
OE4
000
298
58F
200
58F
298
656
298
OE4
198
003
OE4
613
214
674
OE4
298

F
F
F
F
F
F
F
F
F

03A
246
OE4
DE4
216
652
OE4
280
568

F
F
F
F

5C6

F 040
F 040

F 5BF

1t21

SOC
410

F 5DF

.....,.....

....

",,"'~.~."'.-

.......',

~

.. ..........
,.,

IBM MAINTENANCE OIAGNOSTIC PROGRAM

..... '''..,~

PIN 840106
PAGE
5A

510
511

522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
531
538
539
540
541

•IHI
GREG
JOHN
ISSUE

lTWD
[ONE

IZERO
INOW

54l

543
544
545
546
541
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
561
568
569
510
571
512
573
514
515
516
571
518
519
580
581
5B2

15MAR66 15NOV66 120CT67
125632 125655 131812

IBLE
IWAIT

8C
L
SRL
TlO
8C
BCT
XC
01
MVI
SIO
BC
8C
BC
MVI
BC
MVI
BC
MVI
MVC
01
BC
MV[
N[
TM
BC
CLI
BC
CLI
BC
TM
BC
01
L
SRL
01
SSM
BCT
SSM
NI
BC

UNC.IHANG
Rl.WTI14)
Rl,3
01R12)
CCO,JOHN
R1,GREG
ISW(2),ISW
ISW.X'80'
[ACTCC+5,C'X'
01R12)
CCO,IZERO
CC1, lONE
CC2,ITWO
IACTCC+5,X'F3'
UNC.INOW
IACTCC+5,X'F2'
UNC,INOW
IACTCC+5,X'Fl'
ICSWl(8),HCSWIR13)
ISW,X'40'
UNC,INOW
IACTCC+5,X'FO'
ISW,X'7F'
OIRll) ,X'40'
ALL,ISEN
IACTCC+5,X'FO'
EO,IBLE
IACTCC+5,X'Fl'
UNEQ,ISEN
ICSW1+4,X'08'
NONE,ISEN
ISII,X'10'
R9,WTlR1'"
R9,3
ISW,X'80'
MSKl
R9,.
MSK2
ISW,X'7F'
UNC, I SEN

01l6E

8R. UNCONDITIONAL

01l7l
01176
01l7C

MOVE IN A -X1-0 COMMAND- SID, TID, OR HID
BR. IF CONDo CODE 0
BR. IF CONDo CODE 1
BR. IF CONDo CODE 2
INDICATE CONDo CODE 3
BR. UNCONDITIONAL
INDICATE CONO. CODE 2
BR. UNCONDITIONAL
[NDICATE CONDo CODE
SAVE CSW
INDICATE 1 CSW
BR. UNCONDITIONAL
INDICATE CDND. CODE 0
TURN OFF HANG UP SWITCH
CHECK CONTROL SWITCH FOR NO ENABLE
BR. IF ON
CHECK FOR COND CODE 0
BR. IF IT WAS
CHECK FOR COND CODE 1
BR. IF NOT
CHECK FOR CHANNEL END
BR. IF NONE
INDICATE ENABLED ONCE
LOAD OM WAIT FACTOR
ADJUST
TURN ON HANG UP SW
ENABLE
WAIT
DISABLE
TURN OFF HANG SW
BR. UNCONDITIONAL

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ALL 1-0 INTERRUPTS RETURN HERE
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
IRETRN CH
BC
NI
TM
BC
MVC
01
8C
1U10
MVC
SVC
DC
DC
DC
SVC
DC
DC
DC
MVC
MVI
MVC
BAL

R12,IOOPSW+2
UNEQ, IUIO
I SW, X'1F'
ISW,X'40'
ALL,ISV2
ICSWl(8),HCSWIR151
ISW,X'40'
UNC,INT3
WORKI8),HCSWIRI5)
X'DD'
AL2(3)
AL2(IOOPSW+I-SECNOI
AL21IUNEX+5-SECND)
X'DO'
X'64'
X'OB'
AL2(IUNEX-SECNO+REG)
I BLAH+1I3I,IC SW
ICNT,X'lA"
IBLAH+23(3),IACT
R9,ICOUT

COMPARE FOR CURRENT 1-0 ADDRESS
BR. IF UNEQUAL
RESET HANG UP SW
BR. IF 1 csw ALREADY STORED
SAVE CSW 1
INDICATE 1 CSW STORED
BR. UNCONDITIONAL

CONVERT ADDRESS

PRINT UNEXPECTED INTERRUPT DEVICE
ADDRESS
MOVE -CSW- TO MESSAGE
ADJUST COUNT
MOVE -ACT- TO MESSAGE
BR. TO OUTPUT CSW

10
PAGE

Fil31-5
5

01280
01284
01288
0128C
01290
01294
01298
0129C
012AO
012A4
012A8
012AC
012BO
01284
01288
0128C
01lCO
01lC4

012C8
012CC
01200
01lD4

01208
0120C
012EO
01lE4
012E8
012EC
012FO
012F4
012F8
012FC
01300
01304
01308
0130C
01312
01316
0131C
01320
01314

01328
0132C
01330
01334
01338
0133E
01342
01346
0134A
0134E
01352
01356
0135A
01360
01364
01368
0136C
01370
01314
01318

DATE
EC'S

96
47
Dl
96
91
41
91
47
96
47
91
47
91
47
91
47
91
47
91
47
58
88
41
50
9C
41
90
47
46
41
91
47
47
91

41
47
95
47
96
05
47
05
47
91
47
91
47
48
40
05
47
91
47
91
47
41
40
05
47
96
92
92
91
47
91

Ol

FO
07
20
10
80
08
10
08
FO
02
80
40
80
02
10
20
80
02
80
9E

90
80
80
00
70
00
40
90
FO
40
10
FO
20
10
FO
OC
70
04
00
60
00
60
08
80
40
80
8B
80
07
60
04
80
20
80
88
80
07
80
01
64
CO
01
10
01

F
F
F
F
B
F
F
F
F
F
B
F
F
F
F
F
F
F
F
F
0
0
F
0
C
F
C
F
F
F
F
F
F
F
F
F
0

F
F
F
F
F
F
8
F
F

F
0
F
F
F
B
F
F
F
0
F
F
F
F
F
F
F
F
F

OE4
4E6
65A
OEit
000
298
OE4
298
OE4
204
000
2CO
OE4
316
656
2CO
OE4
316
65E
316
198
004
668
048
000
364
000
300
208
316
OE4
364
368
OE4
364
368
044
2EO
OE4
5F5
364 .
58F
364
000
2E8
OE4
364
006
HC
652
364
000
2F4
CE4
364
008
35E
65A
368
OE4
398
52C
OE4
388
004

F 040

583
584
585
586
581
588
589
590
591
592
593
594
595
596
597
598
599
600
601

ISVl
INT3

ISEN

60l

603
604
605
606
601
608
609
610
611

IDOSNS

lTIOLP
ITIC

61l

8 005
B 004

613
614
615
616
611
618
619
620
621
622
623
624
625
626
627

INOEXl
INOEX2
lLOKE

IBSN

618

F 652

F 65A

I
I

r

1403 PRINTER FUNCTION 2

1403 PRINTER FUNCTION 2
01180

~

629
630
631
632
633
634
635
636
631
638
639
640
641
642
643
644
645
646
61t1

15MAR66 15NOV66 120CT67
125632 125655 131812

ICCSWI

ICCSW'2
INDER
IDUNCK

01
8C
MVC
01
TM
BC
TM
BC
01
BC
TM
BC
TM
BC
TM
BC
TM
BC
TM
BC
L
SRL
LA
ST
SIC
BC
TID
BC
BCT
BC
TM
BC
BC
TM
BC
BC
CLl
BC
01
CLC
8C
CLC
BC
TM
BC
TM
BC
LH
STH
CLC
BC
TM
BC
TM
BC
LA
STH
CLC
BC
01
MVI
MVI
TM
BC
TM

ISW.X'Ol'
UNC.IPASS
ICSWl(8),HCSWIR151
ISW.X'lO'
01Rll),X'10'
NONE,ISEN
ISW.X'08'
ALL,ISEN
[SW,X'08'
UNC ,I WAIT
,0IRll),X'02'
NONE,IDOSNS
ISW.X'40'
NONE,IBSN
ICSWl+4,X'02'
ALL,IDOSNS
ISW,X'20'
NONE,IBSN
ICSW2+4,X'02'
NONE,IBSN
R9,WTlR14)
R9,4
R8,ISENSE
R8,HCAWIR13)
01R12)
NCCO,INDER
01R12)
CC1,ILOKE
R9,ITIOLP
UNC,IBSN
ISW,X'40'
ALL,INDER
UNC,IDUNCK
ISW,X'20'
ALL,INOER
UNC,IDUNCK
HCSW+4,IR13I,X'OC'
NCCD,ITIC
ISW,X'O'"
IACSNS+511),5IRI1J
UNEQ,INOER
IACTCC+511I,4(R111
UNEQ,INDER
0IRlll,X'08'
NONE, [NDEXl
ISW,X'40'
NONE,INDER
R8,61Rll)
R8,ICCSW1+4
ICSW1I8),ICSWI
UNEQ,INDER
01Rll),X'04'
NONE,INOEX2
ISW,X'20'
NONE,INDER
R8,81R8)
R8,ICCSW2+"
ICSW2181,ICSW2
EO,IDUNCK
ISW,X'Ol'
IFLAGltX'61t'
lFLAG2,X'CD'
ISW,X'OI'
ALL,IOUTIT
SNSW,X'Ol'

INDICATE ula
BR. UNCONDITIONAL
SAVE CSW l
INDICATE 2 CSWS STORED
CHECK CTRL SW FOR 2 INTR EXPECTED
BR. IF NOT

I

i

I
I

I,

BR. IF ALREADY ENABLED TWICE
INDICATE ENABLED TWICE
CHECK CONTROL SWITCH FOR SNS ON UC
BR. IF OFF TO ISSUE SENSE
BR. IF NO CSW STORED TO BYPASS SENSE
CHECK FOR UNIT CHECK
IF YES BR. TO ISSUE SENSE
CHECK FOR SECONO CSW
BR. IF NOT TO BYPASS SENSE
CHECK FOR UNIT CHECK
BR. IF NOT TO BYPASS SENSE
LOAD OM WAIT FACTOR
ADJUST
LOAD SENSE COMMAND ADDRESS
STORE IN CAW
ISSUE SENSE
BR. IF NOT ACCEPTED
TEST 1-0
BR. IF CSW STORED
BR. UNCONDITIONAL
BR. IF CSW STORED
BR. UNCONDITIONAL
BR. IF CSW 2 STORED
BR. UNCONDITIONAL
CHECK FOR CE DE ONLY
BR. IF NOT
INDICATE SENSE DATA RECIEVED
COMPARE FOR EXPECTED SENSE
BR. IF UNEQUAL
COMPARE FOR EXPECTED CONDo CODE
BR. IF UNEQUAL
BR. IF NO CSW EXPECTED
BR. IF NO CSW RECIEVED
LOAD CSW ADDR
STORE IN COMPARE INSTR.
COMPARE FOR EXPECTED CSW
BR. IF UNEQUAL
BR. IF NO, CSW 2 EXPECTED
BR. IF NO CSW 2 RECIEVED
UPDATE TO SECOND CSW
COMPARE FOR EXPECTED CSW 2
BR. IF EQUAL
INDICATE AN ERROR
SET UP FOR ERROR PRINTOUT
CHECK FOR A DETECTED ERROR
BR. IF ERROR DETECTED
CHECK SECTION SENSE SWITCH 7

ID
PAGE

I

FB31-5
SA

I:
f

.

e

,

IBM MAINTENANce DIAGNOSTIC PROGRAM

PIN 840106

PAGE

6

1403 PRINTER FUNCTION 2

0137C
01380
01384
01388
OB8E
01390
01392
01394
01396
0139B
01399
0139A
0139C
013AO
013A2
013A6
013A8
013AA
013AC
Ol3AE
013S0
01381
01382
01384
01388
0138C
013CO
013C2
013C4
013C6
013C8
013CA
013C8
013CC
013CE
01302
01306
0130A
0130C
OBOE
OBEO
013E2
013E4
OBE5
013E6
0l3E8
O13EE
013F2
013F6
O13FC
01400
01404
01408
0140C
01410
01412
01414
01416
01418
.0141E
01424
01426
01421
01428
0142A

DATE
EC"S

47 80
92 24
92 80
02 01
OA 00
0002
061C
061C
OA DO
64
09
F617
41 80
18 88
50 80
OA 00
0003
05A9
05A8
OA DO
EO
10
F5A3
41 B8
91 80·
41 10
OA DO
0003
0610
0599
OA 00
EO
OF
F594
95 9C
47 60
50 AO
OA DO
0003
0589
0588
OA 00
EO
08
F583
02 02
92 16
50 AO
02 07
45 90
91 CO
47 80
41 AA
41 FO
OA 00
0008
0568
0568
02 07
02 07
OA DO
EO
1A

F5C5
01 F9

F
F
F
F

548
398
52C
61C

B 002

0 004
F 5AS

o

004
S 000
F 442

F 1A6
F 42C
F 588

F
F
F
F
F
A
F

5C6
421
854
56S
410
004
42C
o 008
F 3F6

F 5CA
F 503

F. 5C2

A 000

F 568
F 510

..

-"

-, ....

..... ..,....... ""'-......
~

'"

<" ..,..,-~~ ... '''.'''''' ....... - ' ' ' ' . , , -............... . . - . . - . . . . ' ' ' ' ' ' ' . ' ' ' - - - ,

IBM MAINTENANce DIAGNOSTIC PROGRAM

PIN 840106
PAGE
6A

1403 PRINTER FUNCTION 2

648
649
650
651
652
653
654
655
656
651
658
659
660
661
662
663
664
665
666
661
668
669
610
611
612
613
614
615
676
611
678
679
680
681
682
683
684
685
686
687
688
6B9
690
691
692
693
694
695
696
691
698
699
700
701
102
103
104
105
106
101
708
109
110
111
112

QC
MVI
MVI
IOUTIT MVC
SVC
DC
DC
DC
SVC
IFLAGI DC
DC
DC
LA
SR
ST
SVC
DC
DC
DC
SVC
DC
DC
DC
LA
TM
BC
SVC
DC
DC
DC
SVC
DC
DC
DC
CLI
8C
ST
SVC
DC
DC
DC
SVC
DC
DC
DC
MVC
MVI
ST
ICWOUT MVC
BAL
TM
8C
LA
8C
ICOUT SVC
DC
DC
DC
MVC
MVC
SVC
DC
ICNT
DC
DC
BCR

NONE,fLEAVE
IFLAGl,X'24'
IFLAG2,X'80'
ITSTNO+5(2).2IRll)
X'DO'
AL2(2)
AL21ITSTNO+5-SECNO)
AL2IITSTNO+5-SECNO)
X'DO'
X'64'
X'09'
AL24 I TSTNO-SECNO+REG)
RB,4
RU,R8
Rll.ILINK+5
X'DO'
AL2(3)
AL24ILINK+6-SECNO)

eR. IF OFF
SET UP FOR CORRECT PRINTOUT
MOVE TEST NUMBER TO PRINT
CONVERT TEST NUMBER

PRINT TEST NUMBER

ADJUST LINK ADDRESS FOR PRINTOUT
CONVERT LINK ADDRESS

AL21ILINK+~SECNO)

X'DO'
X'EO'
X'10'
AL21ILINK-SECNO+REG)
Rll,41Rll )
OlRll),X'8D'
ALL,IOCSW
X'DO'
AL2(3)
AL2410ADR-SECNO)
AL24 IOADDR+5-SECNO)
X'OO'
X'EO'
X'OF'
AL2110AOOR-SECNO+REG)
ISSUE,X'9C'
UNEQ,ICCOUT
RI0,ICAW+5
X'DD'
AL2(3)
AL21ICAW+6-SECNO)
AL21ICAW+5-SECNOI
X'DO'
X'EO'
X'OS'
AL2IICAW-SECNO+REG)
18LAH+ 1(3) ,ICC W
ICNT,X'16'
R10,SAVI0
WORK(8),0IR10)
R9,ICOUT
41RIO),X'CO'
NONE,.CCOUT
RI0,8IRI0)
UNC,ICWOUT
X'DD'
AL2(8)
AL2 I WORK-SECNO I
AL2IWORK-SECNO)
IBLAH+518),WORK
IBLAH+14IS),WORK+8
X'DO' .
X'EO'
X'IA'
AL21IBLAH-SECNO+REG)
UNC.R9

PRINT LINK ADDRESS

BR. IF NO 1-0 CO~MAND ISSUED
CONVERT 1-0 AOORESS

PRINT 1-0 ADDRESS

COMPARE FOR SID COMMAND
BR. IF NOT
STORE CCW AOOR.
CONVERT CAW

PRINT CAW

MOVE -CCW- TO MESSAGE
ADJUST COUNT
MOVE CONTENTS OF REG 10 TO SAVE
MOVE CCW TO WORK AREA
BR. TO OUTPUT CCW
·CHECK FOR ANY CHAIN FLAGS
OR. IF NONE
UPDATE TO NEXT CCW
BR. UNCONDITIONAL
CONVERT

MOVE TO MESSAGE
PRINT

RETURN VIA REG 9

15MAR66 15NOV66 120CT67
125632 125655 131812

10
PAGE

F831-5
6

0142C
01432
01436
01438
01439
0143A
0143C
0143E
0143F
01440
01442
01448
0144C
01450
01454
0145A
0145E
01462
01466
0146A
01470
01414
01478
0147C
01482
01488
0148C
01490
01494
0149A
014AO
014A4
014A8
014AC
01482
01488
014BC
014C2
014C6
014CA
014CC
014CE
01400
01402
01404
01405
01406
01408
0140A
0140C
014DE
014EO
014E2
014E3
014E4
014E6
014EA
014EE
014F4
014F6
014F8
014FA
014FC
01502
01508

DATE
EC'S

02 00
58 AO
0" DO
EO
OA
F580
OA DO
EO
OA
F58A
02 02
92 14
91 08
41 80
02 02
48 88
40 80
41 88
40 80
02 07
45 90
91 40
47 80
02 02
02 07
45 90
91 04
41 80
02 02
02 07
45 90
91 20
47 80
02 02
02 07
45 90
02 00
91 04
47 80
OA DO
0001
05EA
05EA
OA DO
EO
08
F5E5
OA DO
0001
05F5
05F5
OA 00
EO
08
F5FO
95 30
47 60
02 011
OA DO

F 585
F 680

F
F
8
F
F
0
F
0
F
F
F
F
F
F
F
F
8
F
F
F
F
F
F
F
F
F
F
F
F

5C6
421
000
414
5DC
006
46E
008
49E
568
410
OE4
48C
5DC
568
410
000
4A4
5DC
568
410
OE4
48C
50C
568
410
5EA
01:4
4E6

B 004

F 5BF

F 5E2

F 568

F 5DF
F 652

F 5E2
F 568

F 50F
F 65A
B 005

E 181
F 52A
F 568

o

F 600
F 603
F 60A

F 56B
F 56A
F 512

OBO

oooe

056B
0568
02 01
02 05
02 05

713
714
715
716
717
718
719
720
721
122
123
724
125
726
127
728
129
130
131
732
133
134
735
736
131
738
139
740
741
:742
743
744
745
746
141
748
749
750
151
752
753
154
155
756
751
758
159
760
761
162
163
764
765
766
761
76B
169
110
711
712
113
114
115
716
717

ICCOUT MVC
L
SVC
DC
DC
DC
SVC
DC
DC
DC
10CSW MVC
MVI
TM
BC
MVC
LH
5TH
LA
STH
ICHNG1 MVC
8AL
10101 TM
BC
MVC
MVC
SAL
IMORST TM
8C
MVC
ICHNG2 MVC
8AL
1010
TM
8C
MVC
MVC
8AL
IPAS
MVC
TM
8C
SVC
DC
DC
DC
SVC
DC
DC
DC
SVC
DC
DC
DC
SVC
DC
DC
DC
IPASS CLI
8C
MVC
SVC
DC
DC
DC
MVC
MVC
MVC

IEXPCC+5(1),4IRl1)
R10,ISLAVE
X'DO'
X'EO'
X'OA'
AL2IIEXPCC-SECNO+REGI
X'DO'
X'EO'
X'OA'
AL24IACTCC-SECNO+REG)
IBLAH+1(3) ,ICSW
ICNT,X'lA'
OIRll), X'08'
NONE,IDIDI
IBlAH+23(3),IEXP
R8,61Rll)
R8,ICHNG1+4
R8,81R8)
R8,ICHNG2+4
WORK(8) ,WORK
R9,ICOUT
ISW,X'40'
NONEolMORST
IBLAH+23(3),IACT
WORK(8) ,ICSW1
R9,ICOUT
OlRUr,X'04'
NONE,IDID
18LAH+23(3),IEXP
WORK(8),WORK
R9,ICOUT
ISW,X'20'
NONE,IPAS
18LAH+23(3),IACT
WORK(8),ICSW2
R9,ICOUT
IEXSNS+5(1),5IR11)
ISW,X'04'
NONE,IPASS
X'DD'
AL211 )
AL21IEXSNS+5-SECNO)
AL24IEXSNS+5-SECNO)
X'OO'
X'EO'
X'OS'
AL24IEXSNS-SECNO+REG)
X'DD'
.AL2(1)
AL24IACSNS+5-SECNO)
AL2(JACSNS+5-SECNO)
X'OO'
X'EO'
X'OS'
AL2IIACSNS-SECNO+REGI
SYSMOOIRI4),X'30'
UNEQ,IOPOUT
WOR KI 12 ) , LOGOUT
X'DD'
AL2112)
AL2IWORK-SECNO)
AL2IWORK-SECNO)
IOLOG+512) ,WORK
IOLOG+8(6),WORK+2
IOLDG+1'16),NORK+I0

MOVE EXP CC TO MESSAGE
RESTORE REG 10
PRINT EXPECTED CONDo CODE

PRINT ACTUAL CONDo CODE

MOVE -CSW- .TO MESSAGE
ADJUST COUNT
BR. IF NO CSW EXPECTED
MOVE -EXP- TO MESSAGE

MOVE EXPECTED CSW TO WORK AREA
BR. TO OUTPUT EXPECTED CSW
BR. IF NO CSW STORED
MOVE -ACT- TO MESSAGE
MOVE ACTUAL CSW TO WORK AREA
BR. TO OUTPUT ACTUAL CSW
8R. IF NOT EXPECTING 2 CSWS
MOVE -EXp· TO MESSAGE
MOVE EXPECTED CSW TO WORK AREA
BR. TO OUTPUT EXPECTED CSW 2
8R. IF NO SECOND CSW STORED
MOVE -ACT- TO MESSAGE
MOVE CSW TO WORK AREA
MOVE EXP SENSE TO MESSAGE
BR. IF NO SENSE DATA RECIEVED
CONVERT EXPECTED SENSE

PRINT EXPECTED SENSE

PRINT ACTUAL SENSE DATA

CHECK FOR MODEL 30
SR. IF NOT
MOVE LOGOUT TO WORK AREA
CONVERT

MOVE LOG OUT TO MESSAGE

15MAR66 15NOV66 120CT61
125632 125655 131812

10

PAGE

F831-5
6A

·1,

-----..

0000600000000000000000000000000

If)· 'I',"
It

coooo

0:

PIN 840106
PAGE
7

IBM MAINTENANCE DIAGNOSTIC PROGRAM

DATE
EC'S

02 05 F 611 F 51A
OA DO
EO
lC
F5F8
91 02 F OE4
47 80 F 52A
94 FD F OE4
47 FO F 204
OA DO
CO
32
F620
OA DO
AO
01
F5A3
50 AD o 048
91 CO F 00 ....
47 50 F 154
91 01 F OE5
07 15
91 08 8 000
47 80 F 554
41 88 0 002
41 88 0 006
98 89 F 560
07 f8
07 00
0000000000000000
.... OC3C3 ....0 .... 0E740C5
E7D7
.... OC3C34040El .... 0Cl
C3E3
40CIC .... D940E1E1El
E7E7U .... 0E7C906
00
40CIC.... D940E7E1El
E7E7E740D3C9D5D2
00
40C3CIE640E7E1E7
E7E7E740
C3EZE6
C3C3E6
40C3E2E640E7E7El
E7E7E1E7E740E7El
E1E1E7E7E7E740C5
E7D7
CIC3E3
C5E701
40E2D5E240E7E7 .... 0
C5E707
.... OE205E240E7E740
CIC3E3
40D3D6C740E1El .... 0
E7E7E1E7E7E740El
E7E7E1E7E7 ....0E7E7
E7UE1E7
.... OE3E2E3 ....0E7E7E7
E7

. " ;~

IBM MAINTENANCE DIAGNOSTIC PROGRAM

,'I

,I

PIN 840106
PAGE
14

1403 PRINTER FUNCTION 2

1403 PRINTER FUNCTION Z
0150E
01514
01516
01511
01518
015lA
0151E
01522
01526
0152A
0152C
01520
0152E
01530
01532
01533
01534
01536
0153A
0153E
01542
01546
01548
0154C
01550
01554
01558
0155C
0155E
01560
01568
01580
01588
0158A
01592
01594
0159C
015A3
015A4
015A3
015A3
015A8
01583
01584
01583
01583
01588
0158F
015C2
015C5
015CO
01505
01500
0150F
015E2
015E5
015EO
015FO
015F8
015F8
01603
01608
01613
01617
0161F

0 0 0 0 0 0 0 0 0 0 0 O 0 0_\ 0'

778

MVC
SVC
DC
DC
DC
TM
8C
NI
8C
10POUT SVC
IFlAG2 DC
DC
DC
SVC
DC
DC
DC
ST
TM
8C
TM
8CR
ILEAVE TM
8C

119
780
781
782
183
184
785
786
787
188
189
190
791
792
793
79 ....
795
796
797
798
799
800
801
802
803
80 ....
805
806
807
808
809

LA
LM
8CR
CNOP
ISAVE DC
WORK
OS
IEXPCC DC

810

IACTCC DC

811

LA

IUP

10ADOR DC

812
813
81 ....
815, IUNK
816
811
818
819
820
821
822

DC
CNOP
ORG
DC

IOLOG+2216),WORK+18
X'DO'
X'EO'
X'le'
AL21IDLOG-SECNO+REGI
ISW,X'02'
NONE. IOPOUT
ISW,X'FO'
UNC,IWAIT
X'DO'
X'CO'
X'32'
AL2IIOPTI-SECNO+REGI
X'DO'
X'AO'
X'Ol'
AL2IILINK-SECNO+REG)
RI0,HCAWIR131
SNSW,X'CO'
ANY,ITRYl
ISW+1,X'01'
ALL,R5
0IRlll,X'08'
NONE, IUP
Rllt21Rlli
Rll ,61Rlll
R8,R9,ISAVE
UNC,Rll
0,8
XL8'0'
C· CC

X EXP'

C· CC

X ACT'

ICSW
ICCW
18LAH

DC
DC
DC

C'CSW'
C·CCW·
C· CSW XXXXXXXX XX'

823

DC

C·XXXXXX EXP'

82 ....
825
826

IACT
DC
IEXP
DC
IEXSNS DC

C'ACT'
C'EXP'
C' SNS XX EXP'

827

IACSNS DC

C' SNS XX ACT'

828

10LOG

DC

C' LOG XX XXXXXX X'

DC

C'XXXXX XXXXXX'

15MAR66 15NOV66 120CT67
125632 125655 131812

STORE CAW
CHECK SECTION SENSE SWITCH 0 AND 1
8R. IF ANY ON
RETURN VIA REG 5 IF HANG UP
BR. IF NO CSW EXPECTED
UPDATE LINK ADDRESS FOR RETURN

01620 40E2E240F0400605
01628 40C60609400306D6
01630 D140060540E7C9D6
01638 6B40E2E240F140D6
01640 0540C606D940E3C9
01648 D640E2C906 .... 0D3D6
01650 0601
01652 0000000000000000
0165A 0000000000000000
01662 000000000000
01668 040015F50000000l
01610 001lA6
01613 - FE
01614 01
01615 40E4C9 06 .... 0 E7E7El
01610 E1E1El
01680 0000000000000000
01688 060016980000008 ....
01690 00001690
01694 OCOOOOOO
01698
0111C
011AO 0200171C00000084
011A8 000017A8
011AC OCOOOOOO

RESTORE REGS BAND 9
RETURN VIA REG 11
011BO
011B2
01186
011BA
0118C
011CO
017C4
017C8
011CC
01100
01106
0110C
011DE
011E4
017E8
017EC
017FO
011F2
011F3
011F4
017F6
011F8
017FA
011FC
01800
01804
01808
0180C
01810
01811
01819
01821
01829
0182A
0182C
01834
0183C

X'OO'
0, ....
·-1
C· ADR XXXXXX LINK'

C' CAW XXXXXX •

nSTNO DC

SPACE A LINE

C· ADR XXXXXX XIO'

ICAW

830

8R. IF NOT UIO
RESET UIO SWITCH
8R. UNCONDITIONAL
PRINT LOOP OPTIONS

2.... C

DC
CNOP
ORG
DC

829

PRINT LOG OUT

X'OO'
0, ....

·-1

C' TST XXXX'

10
PAGE

F831-5
1

DATE
EC'S

lB
91
47
18
58
54
91
Itl

92
02
02
07
02
91t

DO
itO
80
OF

eo
eo

80
10
40
00
82
Fit
00
FE
01
AB
DO

E 196
F 7BC
F OEO
F 858
FOE....
F 7DE
F 850
F 810
F 85E
F 003
F OE5
F OE5
F 680

F 003

F 850
F 810

96
98
OA
64
lA
F82e
OA DO
A019
F811
45 50 F 2eO
92 00 FOE....
94 7F F OE4
92 01 F 003
41 fO F 7C....
00
40E2C5e540e4C5E2
C3Dge9D7E3C9D6D5
60C3D6DltD4C5D5E3
E2
01 00
.... OD7D9C5E5C9D6E ....
E2ltOC8CID5C740E4
D7.... 0C4C5E3C5C3E3

831

IOPTl

DC

C· SS 0 ON FOR LOO'

832

DC

C'P ON XID, SS 1 0'

833

DC

C'N FOR TID SID LO'

834
835
836

ICSWI
ICSW2

DC
DC
DC

CtOP'
XLB'O'
XL8'0'

837
838
839
840
841

ISENSE
10ADR
MSKI
MSK2
JUNEX

ccil
DC
DC
DC
DC

X'04',IACSNS+5,X'00',l
AL311 SSUE)
X'FE'
X'OI'
C· UIO XXXXXX'

842
843
844
845
846
847
8lt8
849
850
851852
85)
85....
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
814
815
8J6
877
818
879
880
881
882
883

ISLAVE DC
XL8'0'
REGISTER SAVE AREA
DCKRD cew
X'06',CKAR,X'00',132
CRDCSW DC
AICRDCSWI
DC
X'OCOOOOOO'
CKAR
OS
l32C
DRAR
DS
l32C
RDCCW CCW
X'02',DRAR,X'OO',132
WHOPS DC
AIWHOPS)
DC
X'OCOOOOOO'
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
INITIALIZE ROUTINE
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
INIT
SR
Rll,RU
ZERO REG 13
TM
406IR141,X· .... 0'
CHECK FOR FORCED PROBLEM STATE
BC
NONE ,NITWIT
8R. IF NOT
LR
R13,R15
SET UP FOR PROBLEM STATE
NITWIT L
R12,UNITl
LOAD REG 12 WITH UNIT TABLE ENTRY
N
RI2,MOD50
AND OUT UNUSED BITS
BLOOP TM
ISW,X'80'
CHECK FOR HANG UP
8C
ALl,HANGUP
BR. IF DETECTED
MVI
PRAR,X ..... O'
MOVE BLANK TO PRINT AREA
MVC
RTSAVll),SECNO+3
SAVE ROUTINE NUMBER
MVC
PRAR+111311,PRAR
BLANK PRINT AREA
BCR
UNC,R....
RETURN VIA REG ....
HANGUP MVC
SECNO+311 J ,RTSAV
MOVE RTN NO. THAT HANG WAS FOUND
NI
ISW+I,X'FE'
01
ISW+l,X'Ol'
lM
RI0,Rll,ISLAVE
RESTORE REGS 10 AND 11
SVC
X'DO'
PRINT
-PREVIOUS HANGUP DETECTEoDC
X·6 .... •
DC
X'U'
DC
AL2IHUNG-SECNO+REGI
SVC
X'DO'
DC
X'AOI9'
DC
AL2(CLUIN-SECNO+REGJ
BAL
R5,IDOSNS
BR. TO OUTPUT AVAILABLE' INfO
RESET HANGUP SWITCH
"VI
ISW,X'OO' NI
ISW,X'7F'
MVI
SECNO+3,X'Ol'
RESTORE TO ROUTINE 01
BC
UNC,8LOOP
RTSAV DC
X'OO'
CLUIN DC
C' SEE DESCRIPTION'

88 ....

DC

C'-COMMENTS'

885
886

CNOP
DC

0,4
C' PREVIOUS-HANG U'

DC

C'P DETECTED'

881

HUNG

15MAR66 15NOV66 120CT61
125632 125655 131B12

----------------------------

10
PAGE

F831-5
lA

'•

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840106
PAGE
8

C5C4
01 00
0000000000000000
00000000
00000000
00003FFF
40
00
01 00

018E4 01
0l8E5 000918
018E8 45 40 F 180
018EC 41 AD' F'928
018FO 92 40 F 92C
018H 45 80 FIDE
018F8 3800
018FA 0010
018FC FOOl
018FE F940
01900 92 CO F 92C
01904 45 80 F 10E
01908 3EOO
0190A 0020
0190C F100
0190E F948
01910 41 AO F 958
01914 45 80 F 10E
01918 3AOO
01914 0030
0191C FOOO
0191E F970
01920 OA 06
01922 000000000000
01928 8800185040000001
01930 OBOO185040000001
0193B OBOO185DOOOOOOOl
01940 00001938
01944 06000001
01948 00000000
0194C 08000000
01950 00000000
01954 . 04000000
01958 A3001B5D40000001
01960 OBOO185D40000001
01968 0800185000000001
01910 00001968
01914 05000001
01918

DATE
EC'S

PIN 840106
PAGE
SA

1403 PRINTER FUNCTION 2

1403 PRINTER FUNCTION 2
01844
01846
01848
01850
01854
01858
0185C
01850
018El
OlBE2

IBM MAINTENANCE DIAGNOSTIC PROGRAM

888
889

SAVIT

CNOP
DC

0,4
X1l2'0'

DC
DC
DC
OS

XL4'0'
X'00003FFF'
X'40'
132C

890
891
892
893

SAVlO
MOD50

894
895
896
891
898
899
900
901
902
903
904'
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
921
928
929

CNOP 0,4
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• ROUTINE 01 - ISSUE SKIP TO 1 IMMEDIATE, COMMAND CHAINED TO TWO SPACE
•
1 IMMEDIATE COMMANDS. THE FIRST SPACE 1 SHOULD DETECT
•
A 9 HOLE IN THE CARRIAGE TAPE. THIS SHDULO 8RING UP
•
UNIT CHECK AND BREAK THE CHAIN. TURN ON CHAIN DATA FLAG
•
AND ISSUE CHAIN AGAIN. THE SKIP TO 1 WILL BE EXECUTED;
•
BUT NO CHAINING WIll OCCUR.
•
ISSUE SKIP IMMEDIATE TO CHANNEL 4 FOLLOWED 8Y TWO SPACE
•
IMMEDIATE COMMANDS. A CHANNEL 12 SHOULD BE DETECTED ON
•
THE FIRST SPACE IMMEDIATE, BRING UP UNIT EXCEPTION, AND
•
BREAK COMMAND CHAINING.
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ROUT01 DC
X'Ol'
ROUTINE NUMBER
DC
AL3IROUT02-SECNOI
ADDRESS OF NEXT ROUTINE
BAL
R4,INIT
BR. TO INITIALIZE
G001
LA
RIO,CHN3
LOAD CCW ADDRESS
MVI
CHN3+4,X'40'
SET UP COMMAND CHAIN
8AL
Rll,ISIO
BR. TO ISSUE SIO
DC
X' 3BOO'
CONTROL SWITCHES
DC
X'0010'
T EST N U M B E R
DC
X'F001'
EXP CONDo CODE AND SENSE
DC
AL2IBRKUC-SECNO+REGI EXP CSW ADDRESS
MVI
CHN3+4,X'CO'
TURN ON DATA CHAIN
BAL
Rll,ISIO
BR. TO ISSUE SIO
DC
X'3EOO'
CONTROL SWITCHES
DC
X' 0020'
T EST N U M B E R
DC
X'FI00'
EXP CONO. CODE AND SENSE
DC
AL2INOCHN-SECNO+REGI EXP CSW ADDRESS
LA
RI0,UNEX
LOAO CCW ADDRESS
BAL
RU,ISID
BR. TO ISSUE SIO
DC
X'3400'
.CONTROL SWITCHES
DC
X'0030'
T EST N U M B E R
DC
X'FOOO'
EXP CONDo CODE AND SENSE
DC
AL2IEXCE-SECNO+REGI
EXP CSW ADDRESS
SVC
X'D6'
ROUTINE EXIT

930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948'

CHN3

PRAR

CCW
X'8R',PRAR,X'40',1
CCW
X'OS',PRAR,X'40',1
CCW
X'OS',PRAR,X'OO',1
BRKUC DC
AIBRKUC-81
DC
X' 0600000 I '
NOCHN DC
XL4'O'
DC
X'08000000'
DC
Xl4'O'
DC
X'04000000'
UNEX
CCW
X'A3',PRAR,X'40',1
CCW
X'OS',PRAR,X'40',1
CCW
X'OR',PRAR,X'OO',1
EXCE
DC
AIUNEX+161
DC
X'05000001'
CNOP 0,4
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• ROUTINE 02 - DATA CHAIN A DIAGNOSTIC READ COMMAND, WITH THE COUNT
•
EQUAL TO THE RECORD LENGTH. THE NEXT COHMAND IS INVALID
•
TO THE CHANNEL. INCORRECT lENGTH RECORD AT CHANNEL END

15MAR66 15NOV66 120CT67
125632 1~5655 131812

10
PAGE

....

F831-5
8

01918
01919
0197C
01980
01984
01988
01984
0198C
0198E
01990
01994
01998
0199A
0199C
0199E
019AO
019A2
019A8
019BO
019B8
0198C
019CO
019C8
01900
01904
01908

02
000908
45 40 F lBO
41 AO F 9AB
45 BO F 10E
3AOO
0040
FOOO
F9B8
41 AD F 9CO
45 BO F 10E
3400
0050
FOOO
F900
OA 06
000000000000
0200185080000084
0000185000000001
000019B8
OC400001
0200185D800000B3
0000185000000001
00001900
OCOOOOOO

01908
01909
019DC
019EO
019E4
019EB
019EC
019EE
019FO
019F2
019F4
019FB
019FC
019FE
01AOO
DIA02
DlA04
01A08
DIAOC
OlAOE
DlAI0
01A12
01A14

03
000A30
45 40
41 AO
92 EB
45 BO
3800
0060
F080
FA28
92 73
45 BO
3800
0070
F080
FA28
92 7B
45 BO
3BOO
OOBO
F080
FA28
OA 06

DATE
EC'S

F
F
F
F

lBO
A18
A20
10E

F A20
F 10E

F A20
F 10E

949
950
951
952
953
954
955
956
951
958
959
960
961
962
963
964'
965
966
967·
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
99B
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
10lD
1011
1012

•
TIME SHOULD BREAK THE CHAIN AND THE CCN WITH THE INVALID
•
COMMAND SHOULD NOT 8E USED. A DIAGNOSTIC READ WITH A
•
COUNT LESS THAN THE RECORD lENGTH IS NOW DATA CHAINED TO
•
COMPLETE TRANSFERING THE CORRECT RECORD LENGTH. THE
•
SECOND CCII COMMAND FIELD IS INVALID TO THE CHANNEL. NO
•
CHANNel PROGRAM CHECK SHOULD BE SET.
.........................................................................
,ROUT02 DC
X'02'
ROUTINE NUM8ER
DC
AL3IROUT03-SECNOI
ADDRESS OF NEXT ROUTINE
BAL
R4,JNIT
BR. TO INITIALIZE
G002
lA
R10,RDCDA
lOAD CCW ADDRESS
SAL
Rll,ISIO
BR. TO ISSUE SIO
DC
X'3AOO'
CONTROL.SWITCHES
DC
X'0040'
TEST NUMBE'R
DC
X'FOOO'
EXP CONDo CODE AND SENSE
DC
AL2IWIERD-SECNO+REGI EXP CSW ADDRESS
LA
R10,TRU
. LOAD CCI! ADDRESS
BAL
Rll,ISIO
BR. TO ISSUE SIO
DC
X'3AOO'
CONTROL SWITCHES
DC
X' 0050'
T EST N U M B E R
DC
X'FOOO'
EXP COND CODE AND SENSE
DC
Al2IWORD-SECNO+REGI
EXP CSI! ADDRESS
SVC
X'D6'
ROUTINE ExIT

I
I
,

RDCDA

CCW
X'02',PRAR,X'80',132
CCW
X'OO',PRAR,X'OO',l
WIERD DC
AIWIEROI
DC
X'OC400001'
TRU
CCW
X'02',PRAR,X'80',131
CCW- X'OO',PRAR,X'OO',l
WORD
DC
AIWORD)
DC
X'OCOOOOOO'
CNOP 0,4
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• ROUTINE 03 - ISSUE A NOP, COMMAND CHAINED TO A UCS PRE-CONDITION LOAD
•
-EB- COMMAND. EXPECT CONDo CODE 0 ON THE START I-D.
•
UNIT CHECK SHOULD BREAK THE CHAIN DURING INITIAL
•
SELECTION OF THE -EB- COMMAND. COMMAND REJECT SENSE BIT
•
SHOULD BE SET. ON NON-UCS PRINTERS, -EB- IS AN INVALID
•
COMMAND. ON UCS PRI NTERS THE -EB- MUST BE THE FIRST
•
COMMAND IN A CHAIN, OR COMMAND REJECT WILL BE SET.
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ROUT03 DC
X'03'
ROUTINE NUMBER
DC
AL3IROUTO~-SECNOI
ADDRESS OF NEXT ROUTINE
BAl
R4,INIT
BR. TO INITIALI ZE
G003
LA
RI0,NOPEB
LOAD CCW ADDRESS
MVI
NOPEB+8,X'EB'
SET UP PRE-CONDITION LOAD
BAL
Rll,ISIO
BR. TO ISSUE SIO
DC
X' 3800'
CONTROL SWITCHES
DC
X' 0060'
T EST N U M B E R
DC
X'F080'
EXP CONDo CODE AND SENSE
DC
Al2Il0T-SECNO+REGI
EXP CSW ADDRESS
MVI
NOPEB+B,X'73'
SET UP BLOCK DATA CHECK
BAl
Rll,ISIO
BR. TO ISSUE SIO
DC
X'3800'
CONTROL SWITCHES
DC
X'0070'
T EST N U M B E R
DC
X' F080'
EXP CONDo CODE AND SENSE
DC
Al2Il0T~SECNO+REGI
EXP CSI! ADDRESS
MVI
NOPEB+8,X'7B'
SET UP AllOI! DATA CHECK
BAL
RU,ISIO
BR. TO ISSUE SIO
DC
X'3800'
CONTROL SWITCHES
DC
X'0080'
T EST N U M B E R
DC
X'F080'
UP COND CODE AND SENSE
DC
Al2 I ZOT-SECNO+REG I
UP CSW ADDRESS
SVC
X'D6'
ROUTINE EXIT

15MAR.66 15NOV66 120CT61
125632 125655 131812

10
PAGE

F831-5
SA

------- ._._----_._---------------

o 0000000000000000000000000000000

(J

o

C'.·'"
'i'

c c o

o o

o

0·'·,
.

"

PIN 840106
PAGE
9

IBM MAINTENANCE DIAGNOSTIC PROGRAM

00 00
0300185040000001
E800185000000001
00001A28
02000001

1013
1014
1015
1016
1011
1018
1019

01A30
01A31
01A31o
OlA38
01A3C
OlA40
01A42
01A41o
01AIo6
01A48
01A4C
01A50
01A52
01A51o
01A56
01A58
OlA5C
OlA60
01A64
01A68
01A6C
01A70
OlA74
OIA78
OlA7C
01A80
01A84
01A8A
01A8C
01A90
OlA94
01A98
01A9A
OlA9B
01A9C
01A9E
01AAO
OlAAl
OlAA2
OlAAIo
01AA8
OlAAE
01A82
01ABio
01AB5
01AB6
01AB8
01ABC
OlAC4
01ACC
01AOio
OlAOB
01AE3
DlAE4
DIAE5

DATE
EC'S

04
000B08
45 '00 F lBO
41 AO F AFO
45 BO FlOE
3EOO
0090
FOOO
FAF8
41 AO F 688
45 80 FlOE
3AOO
0100
FOOO
F690
92 00 F AE4
41 70 0 08'0
41 80 F 718
91 0'0 8 000
'07 80 F A8C
46 80 F A70
46 70 F A610
91 01 F AEtt
47 80 F A8A
41 AO F AFO
45 BO F 52A
000000000000
OA 06
91 01 F AE4
47 10 F AA4
96 01 F AE4
OA 00
64
09
FAD8
OA 00
64
IF
FABC
4E 70 F 568
F3 21 F AE6 F '6E
96 FO F AE8
DA DO
AO
0'0
FAE5
'07 FO F A6C
Io0D7D3C340D5D6E3
40E2C5E340D7D9C9
D5E3C9D5C740C2D3
C1D5D2E240C9D5
40E3E2E340FOFIFl
FO
00

40E1E1El

0'·'· '

()

:;r,

C'

0 , 0'" 00
"

"'f

,,,,"

';

o

o c

00

PIN 840106
PAGE
9A

IBM MAINTENANCE DIAGNOSTIC PROGRAM
1403 PRINTER FUNCTION 2

1403 PRINTER FUNCTION 2
01A16
OlA18
OlA2D
OlA28
01A2C
01A30

o

o

1020
1021
1022
1023
1024
1025
1026
1021
1028
1029
1030
1031
1032
1033
1034
1035
1036
1031
1038
1039
1040
1041
10'02
1043
104'0
10'05
1046
1041
1048
1049
1050
1051
1052
1053
1054
1055
1056
1051
1058
1059
1060
1061
1062
1063
1064
1065
1066
1061
1068
1069

NOPEB
lOT

CCW
CCW
DC
DC
CNOP

X'03',PRAR,X'40',1
X'EA',PRAR,X'OO',l
AllOTI
X'02000001'
0,4

•••••••••••••••••••••••••••••••••••••••••••••••••••••• *•••••• ** ••••••••

00000000000000
0100185000000084
OOOOlAFB
08000000
00000000
0'0000000

• ROUTINE 0'0 - PRINT A LINE OF BLANKS.
ISSUE DIAGNOSTIC CHECK READ.
•
CHECK FOR All PLC BI TS BEING SET ON.

••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• * •••
ROUTOio DC
DC
BAL
GOOio
LA
8AL
DC
DC
DC
DC
LA
BAL
DC
DC
DC
DC
MVI
LA
LA
TECT
TM
BC
TIC
BCT
BCT
TM
BC
LA
BAL
DC
END04 SVC
ERED
TM
BC
01

SVC
DC
DC
DC
SVC
DC
DC
DC
NDHOR CVO
, UNPK
,01

SVC
DC
OC
DC
BC
MITHEO DC

ROUTI NE NUMBER
X'04'
ADDRESS OF NEXT ROUTINE
AL3IROUT05-SECNDI
BR. TO INITIALIZE
R4,INIT
RI0,PRCCW
LOAD CCW ADDRESS
Rll,ISID
BR. TO ISSUE 510
CTRl SWITCHES
X':lEOO'
T EST N U MOE R
X'0090'
EXP COND CODE AND SENSE
X'FOOO'
EXP CSW ADDRESS
AL2IPRCSW-SECND+REGI
LOAD CCW ADDRESS
RI0,DCKRD
Rll,ISIO
BR. TO ISSUE SIO
CONTROL SWITCHES
X'31100'
T EST N U M B E R
X'0100'
EXP CONDo CODE AND SENSE
X'FOOO'
AL2ICROCSW-SECND+REGI EXP CSW AODRESS
RESET SWITCH
SKORCH,X'OO'
SET UP TO CHECK 132 POSITIONS
R7,132
R8,CKAR+131
LOAD ADDR POSITION 132
CHECK FOR PLC BIT
01R81,X'04'
BR. IF NONE
NONE,ERED
DECRIMENT ADDRESS
R8,·+10
R7,TECT
BR. UNTIL 132 CHECKED
SKORCH,X'Ol'
BR. IF NO ERR DETECTED
NONE,EN004
RI0,PRCCW
SET UP TO LOOP ON PRINT
R1l, IOPOUT
BR. TO PRINT LOOP OPTIONS
XL6'O'
ROUT! NE EX IT
X'D6'
SKORCH,X'OI'
CHECK FOR HEAOING PRINTED
BR. IF IT WAS
All ,NOHDR
INDICATE HEADING PRINTED
SKORCH,X'Ol'
X'DO'
X'64'
X'09'
AL2IBLABRR-SECNO+REGI
X'DO'
X'64'
X'lF'
AL2IMITHED-SECNO+REGI
R7,WORK
CONVERT PRINT POSITION TO DECIMAL
POS+1(3),WORK+6(21
POS+3,X'FO'
PRINT ERR POSITION
X'DO'
X'AO'
X'04'
Al2(POS-SECNO+REGI
UNC, TIC
C' PlC NOT SET PRI'

1010

DC

1071

BLABRR DC

C' TST 0110'

1012
1013

SKORCH DC
POS
OC

X'OO'
C' XXX'

15MAR66 15NDV66 120CT61
125632 125655 131812

01AE9
OlAFO
01AF8
01AFC
01BOO
01B04
01B08

01B70
01B71
01B71o
01B7B
0lB1C
01B80
01BB2

C'NTING BLANKS IN'
T EST

01B08
01809
OlBoe
01BI0
01814
01B18
01BIC
01B20
01624
01B28
01B2A
01B2C
01B2E
01B30
01B34
01B38
01B3II
0183C
01B3E
01640
01B42
01B44
01848
01B4C
01850
01858
01B60
01B68
01B6C
01B70

N U M8 E R

ID
PIlGE

F831-5
9

DATE
EC'S

05
000B70
45 40 F 7BO
41 AD F 850
F B58
92 73
58 10 F 84C
91 10 F DEI
'07 80 F B40
45 80 FlOE
3AOO
0120
FOOD
F868
92 02
F B58
45 BO FlOE
3800
0130
F080
FB44
OA D6
00 00
00001B66
02000001
00000000
EB00185DIoOODOOOl
1300165060000001
7B00185D00000001
00001868
OC000001

06
0006C6
'05 40 F 7BO
41 AO F lAO
45 BO FIDE
3800
0140

1014
1075
1076
1071
1078
1079
lOBO
1081
1082
1083
1084
1085
1086
1087
1068
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
ll04
1105
1106
1107
110B
1109
1110
1111
1112

PRCCW
PRCSW

1113
111'0
1115
1116
1117
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1121l
1129
1130
1131
1132
1133
1134
1135

15MAR66 15NOV66 120CT67
125632 125655 131812

CCW
DC
DC
DC
OC
CNOP

X'Ol',PRAR,X'00',132
AIPRCSWI
X'0800DOOO'
XL4'O'
X'D4DOOODO'
0,4

••••••••••••••• ** ••• *••••••••••••• *••••••••••••• *•••••• *•••••••••••••••
• ROUTINE 05 - THIS ROUTINE WILL RUN ON UCS PRINTERS ONLY.
COMMANO CHAIN A PRE-CONDITION LOAD -EB-, TO A BLOCK DATA
•
•
CHECK COMMAND, TO AN ALLOW OATA CHECK COMMAND. CONDo
•
COOE 0 SHOULD BE SET ON THE SIO. THE ENTIRE CHAIN
•
SHOULD BE EXECUTED.
THE PRE-COND. LOAD LATCH BEING ON
•
BLOCKS COMMAND REJECT OF THE DATA CHECK COMMANDS, EVEN
•
THOUGH THEY ARE NOT THE FIRST IN A CHAIN.
•
COMMAND CHAIN II PRE-CONDITION LOAD -EB-, TO A DIAG READ,
•
TO ALLOW OATA CHECK COMMAND. THE DIAG READ SHOULD RESET
•
THE PRE-CONOITION LOAD LATCH, AND COMMAND REJECT SHOULD
•
BREAK THE CHAIN ON THE ALLOW DATA CHECK COMMAND.

•• *•••••••••••••• *•• ***.*** •••••• *••••••••••••••••••••••••• *•• *••••••••
ROUT05 OC
OC
BAL
G005
LA
MVI
TM
BC
BAL
DC
DC
DC
OC
MVI
BAL
DC
DC
DC
DC
SVC

X'05'
AL3IROUT06-SECNOI
R4,INIT
R10,BIGC
BIGC+8,)('13'
R1,SAVIT+4
UNITl+1,X'10'
NONE,END05
Rll,ISIO
X'3AOO'
X'0120'
X'FOOO'
AL2IBIGW-SECNO+REGI
BIGC+B,X'02'
Rll,ISIO
X'31l00'
X'0130'
{'FOIlO'
AL2IBUST-SECNO+REGI
X'D6'

BUST

DC
OC

AIBIGW)
X'02000001'

BIGC

CCW
CCW
CCW
DC
DC
CNOP

X'EA',PRAR,X'40',1
X'73',PRAR,X'60'.1
X'7A',PRAR,X'OO',l
AIBIGWI
X'OC000001'
0,4

L

END05

BIGW

ROUTINE NUMBER
ADDRESS OF NEXT ROUTINE
BR. TO INITIALIZE
lOAD CCW ADDRESS
SET UP BLOCK OAT A CHECK
CHECK FOR UCS FEATURE
BR. IF NOT DEFINED
BR. TO ISSUE SIO
CONTROL SWITCHES
T EST N U M B E R
EXP CONO CODE AND SENSE
EXP CSW ADDRESS
SET UP SENSE
BR. TO ISSUE SIO
CONTROL SWITCHES
T EST N U M B E R
EXP COND CODE AND SENSE
EXP CSW AODRESS
ROUTINE EXIT

••••••••••••••••••• *••• *••• *••••••••••••••••••••••••••• *•••••••••••••••
• ROUTINE 06 •
•

*

•
•

ISSUE A UCS lOAO WITH FOLDING COMMAND. CONDo CODE 1
SHOULD BE SET ON THE SIO, WITH UNIT CHECK IN THE CSW,
AND COMMANO REJECT IN THE SENSE BYTE. THE -F3- COMMAND
IS INVALIO ON NON-ues PRINTERS, AND ON UCS PRINTERS, THE
PRE-CONDITION lOAD LATCH MUST BE SET FOR THE COMMAND TO
BE ACCEPTEO. REPEAT FOR LOAD NO FOLD -FB-.

.* •• *•••• *••••••••••••••••••••••••••••••••••••••••••••• *•••••••••••••••
ROUT06 DC
DC
BAl
G006
LA
BAl
OC
DC

X'06'
AL3IROUT01-SECNOI
R4,INIT
RI0,RoeCM
Rl1,rSIO
X'3800'
X'0140'

ROUTINE NUMBER
ADDRESS OF NEXT ROUTINE
BR. TO INITIALIZE
SET ADDR OF READ COMM IN REG 10
BR. TO 00 SIO
CONTROL SWITCHES
T EST N U M B E R

10
PAGE

F83l-5
9A

I"'!. . "'.
~

o e,

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 8"'0106
PAGE
10

lIt03 PRINTER FUNCTION 2
01B84
01B86
01B88
0188C
01B90
01B94
01B96
01B9B
01B9A
0189C
018AO
01BA4
01BA8
01BAA
01BAe
01BAE
01B80
01B82
01886
01B8A
018CO
018C8

01BC8
01BC9
01BCC
01BDO
01BD4
01BDB
OIBDC
01BEO
01BE6
01BEA
01BEE
01BF2
01BF6
OlBFC
01COO
01C04
01C08
01COC
01CI0
01C12
01C14
01C16
01C18
OlCIC
01C20
01C22
01C24
01C26
01C28
01C2C
01C2E
01C30
01C38
01C3C
01C40

DATE
EC'S

o

FOOO
F1A8
92 F3 F BCO
"'1 AO F BCO
45 BO F 10E
3800
0150
FIBO
FB8l
92 FB F BeO
41 AO F Beo
45 BO F 10E
3800
0160
Fl80
FB82
OA 06
00000000
02000000
000000000000
F300185DOOOOOOFO

01
OOFFFF
45 40 F 1BO
41 20 0 OA3
91 01 F OE1
41 10 F BEA
41 32 F C40
02 07 3 000 F CEE
41 22 0 008
91 10 F OEI
41 10 F COO
41 32 F C40
02 02 3 000 F CF6
41 22 0 003
43 32 F e3F·
42 30 F C30
41 AO F C30
45 BO F lOE
0800
0170
F180
FC38
41 AO F AFO
45 80 F 10E
3COO
0180
FOOO
FAF8
46 20 F COO
OA 06
00 00
0000185DOOOOOOOl'
00000000
02000000

IBM MAINTENANCE OIAGNOSTIC PROGRAM

PIN 8"'0106
PAGE
lOA

litO 3 PRINTER FUNCTION 2
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1141
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
115B
1159
1160
1161
1162
1163
1164
1165
1166
1161
1168
1169
1170
1171
1172
1173
1174
1115
1176
1117
1178
1179
1180
1181
1182
1183
1184
1185

END06
FOLD
LDUCS

DC
DC
MVI
LA
BAL
DC
DC
DC
DC
MVI
LA
BAL
DC
DC
DC
DC
SVC
DC
DC

LDUCS,X'F3'
RI0,LDUCS
Rll,ISIO
X'3BOO'
X'0150'
X'F180'
AL2IFDLD-SECNO+REGI
LDUCS, X'F8'
RI0,LDues
Rll,lSID
X'3BOO'
X'0160'
X'F180'
AL2IFOLD-SECNO+REGI
X'D6'
XL4'O'
X'02000000'

CCW
CNOP

X'F3',PRAR,X'00',240
0,4

X'FOOO'
AL2(W~OPS-SECNO+REGI

EXP CDND CODE - EXP SENSE
ADDRESS OF EXP CSW
INSURE UCS LOAD WITH FOLDING OP
GO DO SID
CONTROL SWITCHES
T EST N U M B E R
CDND. CODE 1 - CDMM. REJ. EXPECTED
ADORESS OF CSW
INSURE UCS LOAD NO FOLDING
GO DO SID
CONTROL SWITCHES
T EST N U M B E R
CONDo CODE 1 - COM. REJ. EXPECTED
ADDRESS OF CSW
ROUTINE EXIT

•••••••••••••••••••••••••••• *••••••••••••••••••••••••••••••••••••••••••
• ROUTINE 07 -

•
•
••

ISSUE ALL COMMANDS TO THE 1403, THAT SHOULD RESULT IN
COMMAND REJECT. EXPECT CONDo CODE 1 ON EACH SIO, WITH
UNIT CHECK IN THE CSw. EXPECT COMMAND REJECT IN THE
SENSE BYTE. AFTER EACH INVALID, ISSU~ BLANK PRINT NO
SPACE, AND ANOTHER SENSE TO CHECK PROPER RESETING OF THE
SENSE INFORMATION.

•••••••••••••••••••••••••••••••••••••••••••••••••• *.*•••••••••••••••••••

1181
1188
1189
1190
1191
1192
1193
1194

ROUT07 DC
DC
BAL
G007
LA
TM
BC
LA
MVC
LA
ARG
TM
BC
LA
MVC
LA
LESS3 IC
STC
LA
BAL
DC
OC
DC
DC
LA
BAL
DC
DC
DC
DC
BCT
SVC

X'07'
X'OOFFFF'
R4,INIT
R2ol63
UNIT1+1,X'Ol'
All,ARG
R3,ERTABIR21
OC8,R31,VC2CS
R2,SCR21
UNITl+1,X'10'
All,LESS3
R3,ERTABCR21
013,R3I,VCUCS
R2,3CR21
R3,ERTAB-l(R21
R3,CCWERR
RI0,CCWERR
Rll,ISIO
X'OSOO'
X'Ol70'
X'FlS0'
AL2IREJ-SECNO+REGI
RlO,PRCCW
Rll,JSIO
X'3COO'
X'Ol80'
X'FOOO'
AL21 PRCSW-SECNO+REG I
R2,LESS3
X'D6'

UP INVALID COMMAND
STORE IN CCW
LOAD CCW ADDRESS
8R. TO ISSUE SIO
CONTROL SWITCHES
T E S T N U MB E R
EXP CONO. CODE AND SENSE
EXP CSW AODRESS
LOAD PRINT CCW A~DRESS
BR. TO ISSUE SID
CONTROL SWITCHES
T EST N U M 8 E R
EXP COND CODE AND SENSE
EXP CSW AODRESS
BR. UNTIL ALL INVALIDS CHECKED
ROUTINE EXIT

1195
1196
1197
1198

CCWERR ecw
REJ
DC
DC
CNOP

X'OO',PRAR,X'OO',l
XL4'O'
X'02000000'
0,4

OEFINE BOUNDRY

118b

ROUTI NE NUMBER
ADDRESS OF NEXT ROUTINE
8R. TO INITIALIZE
SET UP FOR 163 INVALIDS
CHECK FOR TWO CHANNEL SWITCH
BR. IF OEFINED
SET UP FOR 111 INVALIDS

,,
,,

CHECK FOR UCS FEATURE
BR. IF DEFINED
SET UP FOR 114 INVALIDS

,,
"
PICK

15MAR66 15NOV66 120eT67
125632 125655 131812

DATE
EC'S

,0

o

rO
.... ' ·'

rO." 0".· ·

o

"

~

'

-

':

'

,-

01F3FBFFFEFDFCFA
F9F7F6F5F2FIEFEE
EDECEAE9E7E6E"'E2
DFDEDCDAD7D6D2CF
CECCCAC1C6C4C2BF
BEBCBAB1B6B2AFAE
ACAAA1A4A29F9E9C
9A9196928F8E8C8A
878685848382817F
1E1D1C1C1A791776
757212716F6E6D6C
6B6A696766656463
62615F5E5D5C5B5A
595756555352514F
4E4D4C4B4A494746
45444342413F3E3D
3C383A3931363533
32312F2E2D2C2B2A
2927262524232221
IFIEICIA1116120F
OEOCOAOOOOOOOOOO
000000000000
1434547494B4D4F4
EIH378

00000
00001
OOOOF
00008
00004
00001
00005
00008
00004
00002
00001
00008
00004
00002
00006
OOOOC
OOOOA
00080
00181
OFOOO
0005A
00000
00001
00002
00003
00004
00005
00006
00007
00008
00009
OOOOA
OOOOB
OOOOC
00000
OOOOE
OOOOF
00198

F831-5
10

10
PAGE

"

01C40
01C48
01C50
01C58
01C60
01C68
01C10
01C18
01C80
01C88
01C90
01C98
01CAO
01CA8
01CBO
01CB8
01CCO
01CC8
01CDO
01CD8
01CEO
01CE8
01CEE
01CF6

1199
1200
1201
1202
1203
1204
1205
1206
1201
120B
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1231
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257'
1258
1259
1260
1261
1262
1263

ERTAB

VC2CS
VCUCS

DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC

X'07F3FBFFFEFDFCFA'
X'F9F1F6F5F2FIEFEE'
X'EDECEAE9E7E6E"'E2'
X'DFDEDCDAD7D6D2CF'
X'CECCCAC1C6C4C2BF'
X'BEBCBAB1B6B2AFAE'
X'ACAAA7A4A29F9E9C'
X'9A919692BFBE8C8A'
X'87868584B382817F'
X'7E7D7C7C7A797176'
X'757272116F6E6D6C'
X'6B6A696766656463'
X'62615F5E5D5C5B5A'
X'595756555352514F'
X'4E4D4C4B4A494746'
X'45444342413F3E3D'
X'3C383A3937363533'
X'32312F2E2D2C2B2A'
X'2927262524232221'
X'IFIEICIAI716120F'
X'OEOCOAOOOOOOoooo'
X'oooooooooooo'
X'143454749484D4F4'
X'E8737B'

NCCO
UNC
NONE
SOME
ALL
ANY
CCO
CCI
CC2
CC3
EQ
LO
HI
UNEQ
EQLO
EQHI
LOGOUT
SYSMOD
REG
WHAT
RO
Rl
R2
R3
Rio
R5
R6
R7
R8
R9
RIO
Rll
R12
R13
R14
R15
WT

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
EQU
EQU
EQU
EQU
EQU
EQU
EQU

7
15
8
4

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
EQUATES
•
•
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
NEVER EQU
0
1·

5
8
4
2
1
8
4
2
6
12
10
X'80'
X'1S1'
X'FOOO'
90
0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
408

15MAR66 15NOV66 120CT67
125632 125655 131812

()

10
PAGE

10"'.,,,
"

,0 '0
i,'

it~)'

F831-5
lOA

'0 ':0
"ll,

,0'
.. '"
',\

-,I

9
01910
019A9
01981
01988
019(;1
019C9
01900
OlA19
OlA21
01A28

,~

LENGTH

OlAH
OlAF8

01844
01851
01859
01861
01B68
018Cl
01C31

10

3
3
4

3
3
4
3'
4
4

3
3
3

,.
3
3

I
1
!f

J

DATE
EC'S

15MAR66 15NOV66 120CT67
125632 125655 131812

ID
PAGE

F831-5
11

DATE
EC'S

15MAR66 15NOV66 120CT67
125632 125655 131812

10

PAGE

F831.. 5

llA

............~_,,....~

"',""',,,~.>.'''''''~'''M.,,.,,,,,--~,,~,

.IBHHAINTENANCE DIAGNOSTIC PROGRAM

PIN 840106
PAGE
12

1403 PRINTER FUNCTION 2

LEN VALUE

ALL

000001 1231

ANY
ARG
8IGC
BIGW
BLA8RR
BLOOP
BRKUC
BUST
CAW
CCWERR
CCO
CCI
CC2
CC3
CHN3
CKAR
CLUIN
CROCSW
CSW
DCKRD
OMIO
OMSSW
ORAR
EN004
EN005
EN006
EQ
EQHI
EQLO
EREO
ERTA8
EXCE
EXNPSW
EXOPSW
FLAG1
FLAG2
FULO
GOOI
G002
G003
G004
G005
G006
G007
GREG
HANGUP
HCAW
HCSW
HI
HION
HUNG
IACSNS
IACT
IACTce
IBLAH
IBLE
IBSN
ICAW
ICCOUT

1 000005
4 0018EA
8 001B50
4 001B68
9 001ADB
4 0017C4
4 001940
4 001B44
4 001048
8 001C30
1-000008
1 000004
1 000002
1 000001
8 001928
1 001698
16 001811
4 001690
8 001040
8 001688
1 0001BC
1 OOOlAO
1 0017lC
2 001A8A
2 00lB40
2 001BBO
1 000008
1 OOOOOA
1 OOOOOC
4 00 lA8C
8 001C40
4 001970
5 00105B
8 001018
I 00100E
1 00100F
4 001BB2
4 0018EC
4 001980
4 0019EO
4 001A38
4 001BI0
4 001B78
4 001BOO
4 001l8C
6 00170E
1 000048
1 000040
1 000002
1 000018
16 00182C
11 0015FO
3 0015DF
10 00158A
16 0015C5
4 001200
6 001316
12 001583
6 00142C

DATE
EC'S

(<'Cli
~,jf

3

,I'

~

':

,a

DEFN

REFERENCES
0501
1175
0797
1170
1096
1105
1056
0881
0916
1111
1180
0523
0530
0531

0543

1097
ll13

0566

0590

0598

0614

0617

0646

0673

0799

,:)

iO
"

tt\

0861

1051

1170

1106
1118

0933
1181
0529
0610

0910 0911
0843 1039
0876
0844· 1036

0917

1031
0848
1045
1100
0545
1041
1171
0928

1144

ICCSWI
ICCSW2
ICCW
ICHNGI
ICHNG2
ICM
ICNT
ICOUT
ICSW
ICSWI
ICSW2
ICWOUT
1010
10101
IOOSNS
IOUNCK
IEXP
IEXPCC
IEXSNS
IEYEOH
IFLAGI
IFLAG2
IHANG
IHI
IHIO
ILEAVE
IUNK
ILOKE

6
6
3
6
6
2
1
2
3
8
8
6
'+
4
4
4
3
10

noop

IMORST
INOER
INlT
INDEX 1
INOEX2
INOW
INPSW
INn
IOAOOR
10AOR
IOCSW
IOLOG
lONE
IONPSW
100PSW
IOPOUT

0641

111.6

1179

1151

IOpn

0524
0861
0495
0496
0873
0622
0581
0527
0579
0545
0596
0684
0683

0606
0496

0795
0537

0567

0762
0736
0532
0581

0763
07'+6
053'+
0693

0600
0687
0699

0602 0612
0688 ·0692

0570

0167

0837

0536
0706

0540
0701

0585

0544
0111

! lOUT IT
IPAS
IPASS
IRETRN
ISAVE
ISEN
ISENSE
ISla

0619

0546
0723

0624
0727

0722
0736

0141

15MAR66 15NOV66 120CT61
125632 125655 131812

!:('
} {)
'llL '
I,,',I

1232
1174
1115
1118
1071
0860
0933
1113
0325
1195
1233
1234
1235
1236
0930
0846
0883
0844·
0324
0843
1277
1278
0847
1049
1112
1152
1237
1242
1241
1050
1199
0942
0327
0319
0315
0316
1153
0910
0959
0993
1025
1096
1132
1168
0522
OB66
1266
1265
1239
1276
0886
0827
0824
0810
0822
0550
0624
0819
0713

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840106
PAGE
12A

1403 PRINTER FUNCTION 2

LABEL CROSS-REFERENCE BY STATEMENT NUMBERS
LABel

"'~¥~""'''''''''-'''''-~4'''-'''''''_;'

'\,,'

''-..,

()

a

() :::) f) #)
\,;,'".

',i

0632
0640
0821
0732
0742
0312
0710
0702
0820
0835·
0836
0696
0744
0734
0603
0643
0825
OB09
0826
0492
0657
0788
0513
0520
0478
0800
0815
0619
0509
0739
0642
0854
0613
0616
0541
0317
0581
0811
0838
0723
0828
0536
0332
0323
0787
0831
0651
0749
0768
0562
0807
0593
0837
0488

001680
0011A6
001276
0010E4

0842
0528
0585
0473

ISlAVE
ISSUE
ISV2
ISW

8
4
6
2

ITIC
ITIO
ITIOLP
ITRY!

4 0012EO 0611
4 OOlOFA 0483
4 001208 0609
4 001154 0507

0746

10
PAGE

'v '[) 1). {)

001338
00135A
0015C2
00146A
00149A
00100A
001427
001410
0015BF
001652
00165A
0013F6
0014A4
001474
0012CO
001368
0015E2
001580
11 0015E5
6 OOlliE
1 001398
1 00152C
4 001l6C
4 001184
4.001OE6
4 001548
16 0015A3
4 001300
4 00H5C
4 00148C
4 001364
2 0017BO
4 0012E8
4 0012F4
4 00110C
5 001010
4 001280
15 001594
3 001670
6 001442
16 0015FB
4 0011C6
4 001078
8 001038
2 00152A
16 001620
6 001388
6 00148C
4 0014E6
4 001224
8 001560
4 001298
8 001668
4 OOllOE

"~

';

F831-S
12

a

OATE
EC'S

0631
0639
0693
0729
0731
0580
0582
0579
0537
0585
0701
0740
0726
0594
0615
0727
0713
07'+9
0482
0643
0644
0518
0512
0648
0662
0610
0481
0735
0608
0909
0627
0635
0501
0569
04BO
0676
0673
0775
0530
0562
0769
0479
0646
0745
0584
0333
0494
0543
0605
0912
1140
0493
0478
0566
0525
0589
0744
0620
0611
0510

0694
0697
0723
0548
0601

0598
0618
0741
0718
0754
0487
0649
0650

0724
0733

0738

0743

0748

0567
06'+0

0597
06'+0

0632
0141

0632

0731

0629
1131

0633
1167

0637

0877
0641
0755

0159

0665

0666

0610

0194

0484

0489

0614
0958

0617
0992

0623
1024

0625
1095

0533

0535

0539

0486

0491

0611

0681

0776

0777

0118

0782

0573
0784
0485

1047
0490

0790

0804
0547

0549

0558

0588

0590

0918
1147
0714
0483

0924
1182
0869
0488

0960
1188

0966

0995

1001

1007

1026

1032

1101

1101

l133

0682

0838

0525
0591
0750

0526
0595
0783

0538
0599
0785

0541
0613
0798

0550
0616
0860

0553
0621
0867

0557
0628
0868

0564
0636
0818

0565
0642
0819

0568
0645

0583
0134

05136
0144

0514

0791

0516

0751

15MAR66 15NOV66 120CT67
125632 125655 131812

If)
f) ") ,{) "')
'- ' (
"\,

I

10
PAGE

F831-5
12A

(0 () 0 ()
0 :0 0 0 iO ,0
"
,,'

.

'),

J

o c; o

o

o o o

o c

0·

IBM MAINTENANCE OIAGNOSTIC PROGRAM

PIN 840106
PAGE
13

4
9
4
6
11
4
4
4
6
8
4
1
1
8
8
16
1
4
4
1
1
1
1
1
1
1
4
1
4
4
1

001164
001611
00118E
001246
001615
001554
001204
001108
001198
0018CO
OOICOO
000004
000080
001010
001030
00 lABC
OOOOOC
001144
001858
001613
001674
000001
000008
000000
000000
001000
00118C
000009
001948
00lAA4
000008

0511
0830
0534
0510
0841
0803
0551
0540
0525
1155
1119
1238
1243
0331
0322
1069
1211
0500
0891
0839
0840
1227
1212
1269
1226
0314
0858
1261
0935
1061
'1229

NOPE8
NOTZRO
PGNPSW
PGOPSW
POS
PRAR

8
1
8
8
4
1

00lA18
000004
001068
001028
001AE5
001850

1013
1210
0330
0321
1013
0893

PRCCW
PRCSW
ROCCW
ROCOA
REG

8
4
8
8
1

001AFO
00lAF8
0011AO
0019A8
OOFOOO

1014.
1015
0848
0912
1245

REJ
ROUT01
ROUTOZ
ROUT03
ROUT04
ROUTOS
ROUT06
ROUTOl
RTSAV
RO
R1
RIO

4
1
1
1
1
1
1
1
1
1
1
1

001C38
0018E4
001978
001908
00lA30
001808
001B70
0018C8
001810
000000
000001
OOOOOA

1196
0901
0956
0990
1022
1093
1129
1165
0882
1241
1248
1251

Rll

1 000008 1258

R12

1 OOOOOC 1259

OATE
EC'S

c o o

(J. )
,

:'

o

o

c

PIN 840106
PAGE
13A

IBM MAINTENANCE DIAGNOSTIC PROGRAM

1403 PRINTER FUNCTION 2
ITRY2
ITSTNO
ITWO
IUIO
IUNEX
IUP
IWAIT
IZERO
JOHN
LOUCS
lESS3
LO
LOGOUT
MCNPSW
MCOPSW
MITHEO
MIXNON
H0044
M0050
HSK1
HSK2
NCCO
NCC1
NCC2
NEVER
NIOU
NITWIT
NMIXED
NOCHN
NOHOR
NONE

o o

1403 PRINTER FUNCTION 2
0508
0492
0531
0563
0514
0801
0592
0529
0503
1138
1115

0523
1139
1193

11'15

0499

0499

0110

0651

0654

0655

R13
R14
R15
R2
R3

0659

0518

Rio

0786

R5
R6
R7
R8

11106

1
1
1
1
1
1
1
1
1
1

R9
SAVIT
SAVIO
SOHF
SECNO

0608

0508
0648
1100
0994

0889
0890
0313
0309

TRU
UNC

1
4
1
3
8
8
1
4
4
8
1

001AE4
001004
000004
001050
001060
001020
000181
001A64
001A6C
0019CO
OOoOoF

1072
0310
1230
0328
0329
0320
1244
1040
1042
0976
1228

UNEQ
UNEX
UNI Tl
UIAOOR
UIOP
VCUCS
VC2CS
WAHT
WHAT
WHOPS
WIERO
WORD
WORK

1
8
1
2
1
3
8
1
1
4
4
4
1

000006
001958
0010EO
0010E2
OOlOEl
001CF6
001CEE
00005A
00005A
0017 A8
001988
001900
001568

1240
0939
0335
0337
0336
1222
1221
1264
1246
0849
0914
0918
0808

WT
, XF8315

1
I
1
4

000198
001000
000008
001A28

1263
0003
1268
1015

0620
SKORCH
SNSW
SOME
SRET
SVNPSW
SVOPSW
SYSHOO
TECT

0512
0699

0516
0126

1000

1006

0549
0135

0588
0740

0594
0145

0596
0151

0600
0184

1062
0862
1013
1025
1030
1132
0959
0518
0813
1056
1186
0318
0908
0957
0991
1023
1094
1130
0863

1063
0864
1014
1046
1015

1061
0864
1014
1181
1192

0930
1115

0931
1116

0932
1111

0939
1155

0940
1195

0941

0659
0816
1060

0610
0916
1061

0681
0922
1105

0692
0928
1111

0111
0964
1131

0118
0970
1144

0122
0999
1151

0159
1005
1186

0520
0493
0959
0492
0662
0803
1026
0509

0521
0495
0965
0493
0611
0803
1032
0513

15MAR66 15NOV66 120CT61
125632 125655 131812

000009 1256
001848
001854
00100C
001000

0856
0922
1051
0503
0637
1045
0993

1260
1261
1262
1249
1250
1251
1252
1253
1254
1255

12
4
1
4

1060
0498
0859
0554
0556
0514

000000
OOOOOE
OOOOOF
000002
000003
000004
000005
000006
000007
000008

0602
0801

0972

0767
1011
1192

0621
0856

0973

0782
1030

0629
1041

0976

0790
1036

TIC

0635
1045

0977

0194
1056

I

Z

ZOT

0866

0495
0497
0567
1168
1111
0865
0799

0496
0551
0570
1171
1172
0909
0877

0496
0603
0585
1173
1176
0958

0537
0768
0857
1173
1117
0992

0606
0855

0619

0795

0854

0854

1176
1179
1024

1178
1180
1095

1178

1179

1193

1131

1167

1038
0494
0730
0494
0148
1098
0695

1043
0605
0131
0551
0804

1061
0606
0804
0552

0630
1039
0555

0631
1040
0582

0638
1042
0603

0638

0639

0660

0661

0128

0129

0730

0604

0611

0697

0712

0733

0738

0143

0573
0688
0767
0916
1036
1192
1037
0502

0574
0692
0773
0922
1056

0578
0704
0774
0928
1060

0654
0705
0782
0957
1067

0655
0111
0190
0964
1094

0659
0718
0194
0970
1105

0665
0122
0863
0991
1111

0666 ,
0154.
0866
0999
1130

0670
0155
0873
1005
lUl

0616
0159
0876
1011
1144

0671
0162
0880
1023
1151

0681
0763
0908
1030
1186

0681
0161
0916
1036
1192

1044
0507

1050
0511

1052
0515

0641

0796

0497
1043
1068
0965
0482
0712
0498
0923
0858

0768

0510
0805
0563

0518
0865
0623

0533
0881
0625

0535
1068
0633

0539

0558 . 0569

058 .. ' 0592

0612

0615

0683

0169

1169

1114

0106
0171

0107
0718

0732
1061

0732
1062

0742

0747

0710

0487
0786
0547
0942
1099

0851

1117
1112

0849
0964
0970
0510
0773
0520

1137
0914
0918
0696
0774
0551

0704
0775
0603

0105
0116

0999

1005

1011

1015

0731

0742

NO STATEMENTS FLAGGED IN THIS ASSEM8LY
0524
0684
0993
0500
0611
0805
1041
0517

1098
0695
1025
0542
0612
0869
1101
0522

0696
1031
0561
0113
0912
1101
0528

0698
1046
0593
0125
0918
1133
0562

0100 0100
1096 1132
0622 0624
0128 , 0139
0924 0960
1140 1141
0601 0609

0114
1139
0626
0149
0966
1182
0858

0795
1146
0630
0800
0995
1188
0859

0869
1181
0634
0802
1001

0910
1187
0651
0802
1007

10
PAGE

.'

0923
0661
0803
1026

F831-5
13

DATE
EC'S

15MAR66 15NOV66 120CT61
125632 125655131812

10
PAGE

F831-5
13A

o

IBM'MAINTENANCE DIAGNOSTIC PROGRAM

PIN 8~0106
PAGE
14

OBJECT DECK lIST.

BTXT.AlA •• A8 •• AAAEG9
Y9Q Y9 Y9Q9Z
99990

3MNA5GADG-3MAHAAGA2Y ,
Z V YQ9Z Z-9QYZY
9 0
09

A.OUGA3MHCAF.A3~NG6B

8TXT.AlH •• A8 •• AA24AJ
9
Y9Z Y9 Y9 -Y
9
9
9
9

OUGA3MAHAH.A30NG6K6K
ZV ZZOY9 Y 8 9 8 8

GA3QFAOU8M3H8&5UAAOU'
ZY Z-9 -Z --- 8-9

AAAAAAAAAAAA83150002
YYYVYYVVYVVY
999999999999

BTXT.AlA •• A8 •• AA8U3H
9
Y9Y Y9 Y9-9-

8A5UKA6MABBEA8FMFMB-Y 8 9 BQ98QY9989880
90 999 9 99
9

MA6PAAADlH&A5QBEACER
Z8 9ZYV98- Q 08QV990
9
9 90 0 999

EQB-SA5lACAD83150017
90808Q OZQV9
9 9
09

AAAAAAAAAAAA83150003
YYYYYYVYYVVY
999999999999

8TXT.AlH •• A8 •• AAAAAA
9
Y9- Y9 Y9-YQY
9 0
9
9
09

GA~8BEACF&EIB-SG5DED

10G-~U&J5H8EACEIEHB­

SC5CK85F5B8083150018
88 - 9
-9

•••••••••••• 83150004

8TXT.AlO •• A8 •• AA~X&J
9
Y9
Y9 Y9 9 Y

PERIODS CORRESPOND TO BLANK COLUMNS.

1 THROUGH 20,

COlS.

COlS.

21 THROUGH

~O

BESD •••••• AA •• AAXF83
9
YII Y9
99 9

15 •• AAAA.AD9 ••••••••

8TXT.AAA •• A8 •• AA81&A
9
YQY Y9 Y9 9 Y
999 9
9
9

AAAAAAAAAA&AADAAAAQU
VYYVYYYYY9-Y99YYYY9
999999999 9 9999

COlS.

THROUGH 60

~l

••••••••••••••••• 840

61 THROUGH 80

COlS.

107.131812 •• 83150001

YYQY Y8
9999 99

8TXT.AA8 •• A8 •• AAAAAA
9
YQ9 Y9 Y9YYYY
99
9
9 9999

AAAAAAAAAAAAAAAAAAAA
YYYYYYYYYYYYYYYYYYYY
99999999999999999999

8TXT.AA& •• AA •• AAAAAA
9
YQ- YII Y9YYYY
990 99 9 9999

AAAAADAAAAKU ••••••••
YYYY99YYYY99
9999 9999

8TXT.AAS •• A8 •• AACAAA
9
YQ8 Y9 Y90YYY
99
9
9 9 9

AABF10BH6SBH5JBF1MGO
YY-Q 0- 9- Y-Q 8Z
99

AAAAAAAAAAAAAAAAAAAA
YYYYYYYYVYYYYYYYYYYY
99999999999999999999
AAAAAAAAADAAAAAAAAAA
VYYVYYYYV9VYYYVYYYYY
999999999 9999999999

9

9

lOBE10BE1M8T65BT5JGO
8-0 O-Q 8- 9- YZ
9

9

9

9

108010801M8S83150005
8-0 O-Q 8-

9

9

9

PG-.-.EAJAG-1DPCAAAA
90 0 -QZOZ Z 8YYYY
Z
99 9

AAAAGA10AtOD83150006
-YQYZQ Q-- 9
09 9 9

8TXT. AM- •• A8 •• AA4WAH"
9
Y9
Y9 Y9 6Z0

AAODGA1MDA&AG01DA.OD
-Y 9ZY ZQY-YZ R- 9

DA&AG01UHOAH83150001
QY-VZ 8R899 9
9

8TXT.AMH •• A8 •• AA5SKG
9
Y9- Y9 Y9
9

9 9

GA1DEA&AG&lDA.ODGA1D
ZY OQY-YZ- R- 9ZY 0
990

BTXT.AJH •• A8 •• AAHAAC
9
Y90 Y9 Y90QY9
9
9
9 99

EA&AGA1HFA1DPAOUOUFA
QY-YZY -ZQ Y 9
-Y

OUBX5GDA&AGA1QG.1FGJ
VQY-YZY Z
ZY

lF835GG0108283150008
Q- VZ Q-

BTXT.AJ& •• A8 •• AASGGO
9
Y9- Y9 Y9 YZ

1DB1SGKG6B-.F.OUG01D
Q- Y 9 RO Z Q

9

9

9

8TXT.AJ& •• A8 •• AAGA1H
9
Y9
Y9 Y9ZY9

9

9

9

9

9

9

9

9

GA2HFAOUHFAHHAACFAOU
ZY --Q RQ9-0QY9-Y

9

9

GA2FKG6BO.F.OUG02AKG
ZQ R 9 R Z Y9

9

~AFBOUGO~WKG6KO.FJOU

Q-9

Z

-Y
9

GA30AB6FGA2&AJOUGA30
ZY 9-9 RZQ,~-Y ZY 9
9

9

BTXT.AKQ •• A8 •• AAEA&A
9
Y9
Y9 Y9QY-Y
9
9
9 9 9

9 8

9

AA6CFA2MAA6DD70UG02H
VY RZQ 9YY R-8 Z

GA2AE15GG-2H83150009
ZY Y- VZ

SQO.BEACA1F28-MC6EK8
Z 8QY9Y89880Z8 R 9
999 99 9 9 0

o

1SMAR66 1SNOV66 120CT61
125632 125655 131812

5QKG5l5&B-SK83150019
Z9
-8088
09 9

SBKBSFSG8K~XAHAAGA4D

KB5D5SHCAF.A831S0020
9 0 ZYY9 Y

,Y9

AH.A4FKG5Q5QEA4AA.OU
Y9 Y Q 9 Z ZZQ Q-

GA4DKBSD5GKGSQ6BEA4A
ZY V 9 Q Q 9 Z RZQ Q

9

Q-8 9-9QYZY R
o 9
09
0

9 9

5Q5QEA4AAJOUGA4DK85D
Z ZZQ Q-Y ZY Q 9 Q

9

9

9

AOAAGA4MK85D83150021
-9QYZV 0 9 Q
09
9

JAG-SSKC5QAA8EADEQEQ
ZOZ 8 8 ZVY8QY89Z9Z
9 9 9 9999

KA6A50KE6C5&83150023

8TXT.ANH •• A8 •• AAKE6B
9
Y99 V9 Y9 9 8

5BKE6J52B-SM5CA80UGA
R 9 9 88088 Q-9 ZV

SSDEOUG02DB-&26J8-JA
8-Q Z 980-9 V80Y9

5l&NAHA&ODG&83150024
OYYZ- 9Z

9

9

9

9

9 9

9

9

9

8TXT.ANA •• AU •• AA.CC.
9
V9Y Y9 V9
9

9

9

o

9

0

9 Z

9 Z

9

99

ZY

8QY99Y
999 9

9 Y Z 9 9 9

9

OVGNAHAAGA5DACA8ACAF
99-9QYZY RZQY9ZQY9
09
09 09

HI5-GCGAAAAAAAAA ••••
-0 9Q9YYYVYYYYY
Z 999999999

............ 83150025

.X.EXP.CC •• X.ACT.ADR

.XXXXXX.XIOA ••••••••

• ••••••••••• 83150026

Y

9

9

AAAAGA2HAHOUGA2HFHOU
-QQYZY --9 ZQ --9
909
9

G02DA8AAGA2&83150012
Z 9-9QYZY09

8TXT.ANl •• AJ •• AA.ADR
9
Y90 V9 V9

A860GA30HFAHHAADAA6Q
-9 8ZY 9RQ9-0QY9ZY Z

&EAHDA&AG&3M83150013
YYZQV-YZ- Z

, 8TXT.ANC •• A8 •• AA.CAW
9
Y9- Y9 Y9
909
9

.XXXXXX.CSWCCW.CSW.x

XXXXXXX.XXXXXXXX.EXP

ACTEXP.SNS.XB3150028

8TXT.ANL •• 48 •• AAX.EX
9
Y9Y Y9 Y9
9 9 9
9

P.SNS.XX.ACT.lOG.XX.

XXXXXX.XXXXXX.XXXXxx

.TST.XXXX.SS83150029

8TXT.AOT •• A8 •• AA.0.0
9
Y99 V9 Y9

N.FOR.lOOP.ON.XIOT.S

S.1.0N.FOR.TIO.SIO.l

OOPAAAAAAAAA83150030
YYYVYVyyy
999999999

9

G03QAJOUGA3MG03QED-D
Z Z-Y ZQ ZZ Z-80Z
9

9

9

9

9 9 0

G&2SFDOUNA5583150014
Z- 8-9
Y

o

9

9

DATE
EC'S

AKAHG0368EAHEQEQKGSB
lYY9l
8QY99Z9l 9 Y
9
999
9

SC5VBEAAE5E5B-SC50EA
88 8QY99 9 8088 -Q
Z
9 999
9 9

9

9

9

9 0

BTXT.AM- •• A6 •• AAEKB9
Y90 Y9 Y99Y80
9
9
9 99

9

5F5G8K4XK85D83150011
Q-8 9 9 Q

9

8 Y -8QY99-9-80
9
0999 0 09

KA5EADHJ6AB-SB5AB-S8
Y OQ9RV Y8088 Y8088
90
9999

9

9

8TXT.AN ••• AY •• AA1DAA
9
V9
V9 Y9 R-9

A&02G-2FD70U83150010
Z-8

R 9 ZYVZQ Q--Y9ZY 8

9

9

9

8- 8Z

8DKG5QJAEA~AA&JDGA4U

OZ

GA3HAAODGA5H83150016
ZQ 0-9 9ZV Z

OUGA~W8EAAEK83150022

9

9

9

9

6BG-3MADAAGA83150015
RZ Z-9QYZY
09

5GKGSQ6KEA4AKASKAEAD
Q 9 Z 8ZQ 0 Y V09-9
9
9 9 90

9

9

9

o

9 0

9

G.3AFA2QG030A.OUGA3M
Z YZQ Z 9ZO Z
9

9

805GD10UA.AAGA2HE05G
Y-8 - QYZQ -- Y
09 9

9 0

9 0

9

8TXT.AKJ •• A8 •• AAA.OU
9
Y9Y Y9 Y99

9

9

BTXT.AKQ •• A8 •• AASGEA
9
Y9Z Y9 Y9 QZQ
9

9 9

9

BTXT.AKA •• A8 •• AAA.OU'
9
Y9Q Y9 Y99 Z

9

9

9

8TXT.AJ8 •• A8 •• AAAH6F
9
Y9
Y9 Y9-9 R
9

9 9

9

9

9

ZQ Z8QY99-9-8088 --Q
9 999 0 9 9

9

9

ZY ZZYY9 Y 8 9 R

9

9

8TXT.AMY •• A8 •• AA5EG9
9
Y99 Y9 Y9 9

5JKA6MA8Al6AAI5-&NAH
Y 9 8Q9QY YQO
YYZ
90
9

8TXT.AJQ •• A8 •• AA65BS
9
Y99 V9 Y9 9-

PIN 8~0106
PAGE
14A

1403 PRINTER FUNCTION 2

PRINTER FUNCTION 2

1~03

IBM MAINTENANCE DIAGNOSTIC PROGRAM

ID
PAGE

F831-5
14

DATE
EC'S

9

9

.XXXXXX.lINKA •••••••

•••••••••••• 83150021

V
9

9

9

15MAR66 15NOV66 120CT67
125632 125655 131812

8

ID
PAGE

F83i-5
14A

000000000000000000000000000000'0

o o o

o

o

~",,;;

u

0 0 0 0 0 0 0; 0 C 0 0 0: 0 0 0 0 0 0 0 0 0 0

IBM MAINTENANCE OIAGNOSTIC PROGRAM

PIN 0 .. 0106
PAGE
15

AAAAAAAAADAN5AAAAAJO
YYYYYYYYY9Y9 VYY9V90
999999999 9 999 9

BTXT.AOC •• AE •• AAAOAA
9
V9- Y9 Y9Q8YY
9
9
9 999

A •••••••••••••••••••
Y
9

BTXT.APJ •• A8 •• AABAPM
9
Y9Y V9 Y99Y98

AAADAAPQDAAALEA.JFGA
YYYOYY908YYY8Q- Z-ZY
999 99 999999

10QGH&OSD&8HAAOUGA1F
Q9QR- 8R- R-V ZQ Q

G4KAOC8ADFOVFAOVHL6A
9 Y 9 Q-Q -9 -Y Y
9
9 Z

B-MK8U8-JJ8JEt2tBAOU
80Z8 880Y8 9Z --V
9 9 99 9
9

E.DESCRIPTION-COMMEN

TSGA.PREVIOUS.HANG.U
9Y

9

9

9 9

9

9

9

8TXT.AQA •• A8 •• AAA.SE
9
V9Q Y9 Y9Y
9 9

9

PIN 81t0l06
PAGE
15A

1403 PRINTER FUNCTION 2

BTXT.AOL •• A8 •• AAAAAA
9
Y98 Y9 Y9YYYY
9
9
9 9999

9

,

IBM MAINTENANCE DIAGNOSTIC PROGRAM

1403 PRINTER FUNCTION 2

BTXT.APQ •• A8 •• AA808N
9
V9
Y9 Y9 8 8

.

y,

FA.UIO.XXXXXXAAAAAAA
Q9
YVVVVVY
Z
9999999

o

9 9

9

9 9

9

AFAOHAAADAA083150031
Y9Y9-YYYOYY9
9 9 999 99

8TXT.ALJ •• AB •• AAJCtB
9
Y89 Y9 Y9YO99
9
9 1

CCHHA8DAAOJGAC.EAIF2
RQRRQ B-Q llVQ lQ 88
Ol 9
9
l
0 99

AAJOACQ8BCHEAIF8AAAO
Y9V VQZ-9QRlQ 89V90
9 9 9Z
Z 0 9 9 Z

ACOBOAAAAlQBB3150041
VQZB YVYY8Z9
Z 9 99999

•••••••••••• 83150032

BTXT.ALA •• A8 •• AAAAAA
9
Y8B Y9 Y9YY9Y
99
9
9 99 9

AAAlAQN.AAACAQN-AAA3
VYVVY98 YY9RY98 YV98
99999
99 09
99

AQNAAAAAAlQDAAAFACHE
Y98YVY9VY8Z8VY99V8 1
9 999 999 999 99

.7AAJ1JEAIFB8315001t8
QlY YZQ 89
o
0 9

B.8NKA8AOC~883150033

BTXT.ALA •• AB •• AAAA.O
9
YBO Y9 Y9Y9
99
9
9 9

A7QB3C&AJC&EAIFBAACl
V 0- Q-ZYQ-lO 89Y9
9
Z
Z 099

ACB8CCtAJCtEAIF8AA-l
YQ--QO-ZYQ-ZQ 89V9
ZO ZZ
l
0 9 9

ACBBOAAAABAA8315001t9
YQ-B YYYY9YY
l09 9999 99

Dl0UBAOCG01083150034
-8 -9 91

BTXT.All •• A8 •• AAAAAA
9
YB- V9 Y9YYYY
990 9
9 9999

AAA3AONAAAOGAGGE.7AA
VYY Y98YVY 9YOQZ QZ
999 9 999 9Zl
0

JALAAOJGACKA20.KGAAO
YVO-9 ZZQQYZ9Q 9QYQ
99
919 Z
19Z

OASAHAAOJGADB3150050
YZ9Y9-Q ZZQQ
9
9
9
9Z

P.OETECTEOGA83150035
9Y

BTXT.All •• A8 •• AAAA2D
9
Y8
Y9 Y9Yl90
99
9
9 9 Z.

.KBAAD6ASACC2D7BADAA
9QYQ Z9Y9Z9Q8l0QQZ
19Z
9
19 ZZZ

JDAEAIFHAAtlAD8AJBOE
YQQZQ 89Y9- V09ZVQ Z
ZZ 0 9 9 0 Z
l

AIF4AAAOAB8FB3150051
Q 88V9V YQ Z
o 999 9Z

•••••••••••• 83150036

BTXT.AM/ •• AB •• AAJDAB
9
Y88 Y9 Y9YQY8
999 9
9 9199

OAAAAQNAAAAAAAABAAAG
YYYY9BYYY9VYYV9VYY9
9999 999 9999 999

3CGFED8916521PONMKZX
QQQQQQ
YVVVY
lllZlZ
99999

WUSGFDBPOKGF83150052
OQQQ
VV
9999
99

8 Y Q 9 0
9 9

9

BTXT.AQH •• AN •• AAAAAA
9
V9Z Y9 V9YYYY
9
9
9 9999

AAAAAAAAAAAAAA1G ••••
YYYYYYYYYYYYYYBQ
999999999999999Z

BTXT.AQJ •• A8 •• AAAGAA
9
Y9Z Y9 Y9Y9Y9
9
9
9 9 9

AAHE.1AAJ9YB.9UEAIFB
Y8RZ QZY 9- BZQ 89
990
0
9 0 9

AAAOA9.8t9UEAIF6AAJI
YYQ 9 -- 810 B8YYV
999
9 0 99999

A9HAJ9HEAIF283150031
Y ZZY RZO 88
9
0 99

BTXT.AM/ •• AB •• AAD8~F
9
YB
Y9 Y9YY
99
9
9 99

DBGFOBGFBPOMKPMKGF08
QQQQ---YYYYOOOQQQQ
0000000

GFBGFD8GFEDCBA165442
---YYYY00000008B8888

IGFEBBAXWVUT83150053
8RRRRRR8B888
000000

BTXT.AJJ •• A8 •• AAAAAO
9
VB8 Y9 Y9YYQ
999 9
9 99Z

A9CBOAAAAAACAQN.AAAC
Y -8 YYYYYYYY9B YY98
9 09 999999 9
99 9

AQN.AAACAQNAAAAAAJ8F
Y98 YV98Y98YVV9YY899
9
99 99 999 999

AAAAAAAHAAAA83150038
YY9YYYY9YYYY
99 9999 9999

BTXT.AMI •• A8 •• AAC/PO
9
YB- Y9 Y9-8Zl

NMLK/PONMlKJGFECBAGF
llll 888B88BRRRRRR88

EDCBAGFEOCBA76543211
88888ZZlZlZZ888888B9
9999999

65321XWVUTS/83150051t
999998888888
9999999

BTXT.AJA •• A8 •• AAAAAD
9
V8R Y9 Y9YVY9
99
9
9 999

AAALAQN.AAACAQN.AAAC
YYYOY98 YY98Y98 YY98
999 9
99 99
99 9

AQNAAAAAAJQEAAABAAOE
Y98YVY9YV8Z9VY99V8 Z
9 999 999 99 99

.7AAJ90EAIF283150039
OZY OZO 88
o
0 99

BTXT.AMJ •• AY •• AAXWVU
9
Y8
V9 Y99999

TS/POMKPOKGFDBAAAAAA
999BB889998888VVYYVY
9999
9999999999

AAAAAM40DDOM4LC3 ••••
VVVYY99RR-- VR8
99999
0 0 90

•••••••••••• 83150055

BTXT.AJI •• A8 •• AAAA.0
9
Y80 Y9 V9YY
99
9
9 99

A9HAJ9CEAIF2AACOA9-B
Y -ZY -ZQ 8BYY Y 08
9 0
0 9999 9 9

OAAAAAABAQNAAADAAONA
YVYVVY9Y98YVVOYY98Y
999999 9
99 99 9

AAAAAJHD.AAB83150040
YY9YY8-8 Y99
99 99909 9

BRlD •••••• A...... AAAA
9
Y9
Y9V9
9
·99

AAANEAA4AAO/AAO&AAOI
8YQ98YQB8Y988V9-8Y90
999 999 99 99 099

EAOAAAPJEAPQAAJ/AAJI
8V9QBV908V908V888Y89
99 99 99 9999999

AAJIDAJ ••••• 83150056
8V888Y8
9999999

BTXT.AJA •• A8 •• AAAQNA
9
V8' Y9 Y9Y98Y

AACAAQNAAAAAAJ-DAAAC
YYOYY98YYY9YYB08YYY9
99 99 999 999 9999

ABAE.1AAJBQBLBJEAIF8
Y8QZ 0IY09-YOYZO 89
99Z
0 Z 919 0 9

AA-OABYBCBJE83150041
YY Y09-ROll
99
l
OZ9

BRLO •••••• A4 •••• AAAA
9
Y9
Y9Y9

AAJJAAJ/AAJ/EAJCAAJR
8V88BY8 BY888Y8-8V80
999 999 999 9990999

AAJAEAJHAAJAAAJIEAJ8Y8-8Y8-8Y8 8V8 8Y80
99909990999 999 999

AAKJHAK/ •••• 83150057
8Y889YB9
9999 99

BTXT.AJ9 •• A8 •• AAAIFB
9
Y8
Y9 Y9Q 89
99
9
9 0 9

AA&OABY83BJEAIFBAAAO
YY- YQ9-BQYZQ 89YYY
990 Z
Z9 0 9 99

ABYBOAACAQN.AAALAQNA
YQ98 VV9Y98 VY9YY98Y
Z 9 99 9
99 99 9

AAAAAKYBAAAD83150042
YY9YY899YY99
99 999 99

BRlO •••••• AU •••• AAAA
9
VB
Y9V9
99
9 9

EAKYAAKIEAKBEALDAAlA
8Y898Y8 8Y8 8Y8l8Y8R.
999 999 999 999 999

AAlJAAL/EALQAALAHAMI
8Y888Y8 '8Y8ZBY8 9Y89
999 999 999 999 99

•••••••••••• 83150058

BTXT.AKl •• A8 •• AAACHE
9
Y89 Y9 Y9V89Z
99
9
9 99

.lAAJBOEAIF6AAAOAB8A
QZYQ ZQ 8BYYQ YQ Z
o Z 0 9999 91

J6HEAIF2AAAOA6ABABUA
Y OIQ BBY9V V Q-YQ Z
o 999 9 9
9Z

tADAA1LADAAG83150043
-YOZY 8-9YVZ
09
9
\I

9

BTXT.AK/ •• A8 •• AAABDF
9
Y88 Y9 Y9YQYZ
99
9
9 Z

AB&F&BMAABUGABBAJBOE
YQ-I-QZ-9Q ZYQYZYQ Z
ZO Ol
Z
·z
Z

Q

A5SAAAAAA80AABUGABMF
8YYYYVY8 -9Q ZQQO-.
o 99999999 Z 9Z

ABUB-MABCB-M83150044
90 80Z80080Z
Z 9 9199

9

BTXT.AKJ •• A8 •• AAPBDF
9
V80 Y9 Y98QQ8
99
9
9 9Z0

&5Q3/BW5WFOBYB-JDBVG
- Z 9Q 8- Q BOV9Q Z

08U.PLC.NOT.SET.PRIN
Q8
Z

TING.BLANKS.83150045

BTXT.AKR •• A8 •• AAIN.T·
9
YB
Y9 Y9
99
9
9

ST.OIIOA.XXXAAAAAAAA
YYVYYVY9
Y
'9
9999999

AQNAAAOAAK8HAAAAAAAD
Y98YVVOVY8 9VVYVYVV9
9 999 999 9999999

AAAEACtE.1AA83150046
YYY9YB-Z OZ
999 990
0

99

9

9 9

o

Z

Z· 9

Z

"

99

99

9

9

9

9

9

9 9

BEND ••••••••••••••••

BLOT ••••••••••••••••

....•..••.........•.

••••• ~ •••••• 83150059

.••.•....•...••...•.

••••••• ~ •••• 83150060

-----------------------------------------------LAST

DATE

i

Ee's

15MAR66 15NOV66 120CT61
125632 125655 131812

10
PAGE

F831-5
15

DATE
EC'S

l5MAR66 15NOV66 120CT61
125632 125655 131812

PAGE----------------------~---------------------------

10
PAGE

F831-5
15A

c

0_

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

()'~}

i

o

o o

0000

o
PIN 840108
PAGE
1

IBM MAINTENANCE DIAGNOSTIC PROGRAM

1403 PRINTER FUNCTION 3

1403 PRINTER FUNCTION 3
PRO~RAM

LENGTH

= 4079

(DECIMAL)

PRINT ON,GEN,DATA
XF8325 START 4096
USING *,15
4
5 •
6 •
7 •••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
8 • MODIFICATIONS
9 • REVISION LEVEL 5. THIS REVISION DIFFERS FROM VERSION 4 AS FOLLOWS--10.
1. THE PROGRAM HAS BEEN MODIFIED TO TEST THAT THE HEX CHARACTERS
11 •
80 AND CO ARE CONSIDERED VALID UNPRINTABLE CHARACTERS WHEN
12 •
THE UCS PRINTER IS IN FOLDING MODE.
13.
2. INCLUDES CHANGES TO ENABLE PROGRAM TO RUN WITH DM-44.
14 • E.C. PREREQUISITES
15.
MACHINE • • • 2821 MUST BE AT E.C. 125673
16.
PROGRAM • • • NONE
17 • REVISION LEVEL 4. THIS REVISION DIFFERS FROM VERSION 3 AS FOLLOWS •••
18.
1w THE PROGRAM HAS BEEN MODIFIED TO INCLUDE -TEST NUM8ERS19.
2. TEST THE ABILITY TO SET AND SUPPRESS INCORRECT LENGTH RECORD
20 •
ON A UCS BUFFER LOAD COMMAND.
21.
3. TEST THE ABILITY TO LOAD THE UCS BUFFER WITH BLANKS (401.
22.
4. TEST THE ABILITY TO LOAD THE UCS BUFFER WITH A SHORT COUNT
23 •
AND NOT AFFECT THE REST OF THE BUFFER.
24.
5. TEST THE ABILITY TO -FOLD- CHARACTERS FROM THE FIRST QUADRANT
25 •
TO THE FOURTH QUADRANT.
26.
6. INCLUDE TESTING PREVIOUSLY HANDLED BY PROGRAM 10 F833 WHICH
27 •
IS NOW OBSOLETE.
28 • E.C. PREREQUISITES
29.
MACHINE • • • 2821 MUST BE AT E.C. 125655
30.
PROGRAM • • • NONE
31 • USE DESCRIPTION F830. AT EC 125655. DATED NOV 15, 1966 OR LATER.
32 •••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
33 • REVISION LEVEL 3. THIS REVISION DIFFERS FROM VERSION 2 AS FOLLOWS •••
34.
1. THE PROGRAM HAS 8EEN MODIFIED TO RESET THE 8LOCK DATA CHECK
35 •
LATCH. ON UCS PRINTERS, DURING INITIALIZATION OF THE SECTION.
36 • E.C. PREREQUISITES
37.
MACHINE • • • 2821 MUST BE AT MINIMUM E.C. lEVEL 124265.
38.
PROGRAM • • • NONE
39 •••••••••••••••••••••• , ••••••••••••••••••••••••••••••••••••••••••••••••
40 •
41 •
42 •
43 •••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
2
3

01000
01000

44

•

56
57
58
59

•
•
•
•

60

•

EXPECTED RESPONSE

61
62
63

•
•
•

EXPECT CHANNEL END AND THEN DEVICE END.
CDND. CODE 0 ON THE SIO (COMMAND ACCEPTED)

15MAR66 l5NOV66 120CT61
125632 125655 131812·

F832-5
1

_ _ _- ' \...'''''"'''''';..'_ _ _ _'...,ql"'!&",...,....., • .,."
.. ~-----------~_I,"·,.,.'.~

Z¥

4 ¥

71

•

12

•
•
•
•
•

EX~ECTED

RESPONSE

EXPECT CHANNEL END AND THEN DEVICE END.
CDND. CODE 0 ON THE SIO (COMMAND ACCEPTED I

77

•

78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109

• 0030 - OPERATION ATTEMPTED

*

•
•

ISSUE A PRE-CONDITION LOAD COMMAND CHAINED TO LOAD UCS BUFFER
WITH A SHORT COUNT -239~.

•
•
•

EXPECTED RESPONSE

*
*
•

EXPECT CHANNEL END WITH INCORRECT LENGTH FLAG ON.
THEN DEVICE END.
CONDo CODE 0 ON THE SIO (COMMAND ACCEPTED).

•
•
• 0040 - OPERATION ATTEMPTED
•
ISSUE A PRE-CONDITION LOAD COMMAND. COMMAND CHAINED TOA LOAD
•
THE UCS BUFFER COMMAND WITH A LONG COUNT -241-.
•
•
EXPECTED RESPONSE
•

*

•
•

*

EXPECT CHANNEL END, WITH INCORRECT LENGTH FLAG ON AND RESIDUAL
COUNT OF 1. THEN DEVICE END.
CONO. CODE 0 ON THE SIO (COMMAND ACCEPTED).

OATE
EC'S

*

112
113

•

·U5
116
117
118
119

•
•
•
•
•

120
121

•
•

122

•

123
124
125
126

•
*
•
•

127
128

•
•

114

ISSUE A PRE-CONDITION LOAD COMMAND. COMMAND CHAINED TO ALLOW
DATA CHECK COMMAND AND FURTHER CHAINED TO A LOAD UCS BUFFER
COMMAND WITHOUT FOLDING. THE BUFFER IS LOADED WITH BLANKS.

10
PAGE

•
•
• 0020 - OPERATION ATTEMPTED
•
ISSUE A PRE-CONDITION LOAD COMMAND, COMMAND CHAINED TO ALLOW
•
DATA CHECK COMMAND AND FURTHER CHAINED TO A LOAD UCS BUFfER
•
COMMAND WITH FOLDING. THE BUFFER IS LOADED WITH BLANKS.
•

•
*
ROUTINE 02
•
' .• 0050 - OPERATION ATTEMPTED
•
LOAD THE UCS BUFFER WITH BLANKS AND NO FOLDING.
•
*
EXPECTED RESPONSE
•
•
EXPECT CHANNEL END AND THEN DEVICE END.
110 •
CONDo CODE 0 ON THE SIO (COMMAND ACCEPTED).
III *

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

'55

64
65
66
67
68
69
70
73
74
75
76

45 •
TEST NUMBER DESCRIPTION
46 •••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
47 •
ROUTINE 01
48 •
49 •
50 , • TEST
DESCRIPTION
51 •
52 •
53 •
,54 • 0010 - OPERATION ATTEMPTED

DATE
EC'S

PIN 840108
PAGE
1A

IBM 'MAINTENANCE DIAGNOSTIC PROGRAM

'15MAR66 15NOV66 120CT67
125632 125655 131B12

• 0060 - OPERATION ATTEMPTED
ISSUE A PRE-CONDITION LOAD COMMAND, COMMAND CHAINED TO A WRITE
NO SPACE COMMAND.
EXPECTED RESPONSE
THE UCS BUFFER AND THE PRINT AREA BOTH CONTAIN
BLANKS AND THE PRE_CONDITION LOAD LATCH IS SET ON. A WRITE
COMMAND ISSUED UNDER THESE CONDITIONS FORCES PRINT CHECK IN
EVERY POSITION. EXPECT CHANNEL END THEN DEVICE END WITH UNIT
CHECK. EQUIPMENT CHECK SHDULD BE IN THE SENSE BYTE.
ALLOW NEXT TWO TESTS TO BE PERFORMED FOR FURTHER INFORMATION.

10
PAGE

F832.. 5
1A

--------------------~-----.j

~~

-~---~-

~~~~~~-

IBM MAINTENANce DIAGNOSTIC PROGRAM

~~~-~

~---~----------~-

PIN 81t0108
PAGE
2

11t03 PRINTER FUNCTION 3

IBM MAINTENANCE DIAGNOSTIC PROGRAM
1403 PRINTER FUNCTION 3

129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179

*

0070 - OPERATION ATTEMPTED

*
*
*
*
*
*
*
*
*
** 0080
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
* 0090
*

*

*
*
*
*

*
*
* 0100
*
*
*
*
*
*

*
*

*

ISSUE

DIAGNOSTI~

194
195
196
197
198
199
200
201
202
203
204
205
206
2Q7
208
209
210

CHECK READ.

EXPEC1ED RESPONSE

,
EXPECT CHANNEL END, DEVICE END, UNIT CHECK TOGETHER.
EQUIPMENT CHECK IPRINT CHECK) IN THE SENSE BYTE.
THIS TEST WILL FAIL IF TEST 0060 ABOVE FAILED.
- OPERATION ATTEMPTED
TEST 0070 ABOVE READS BACK 132 CHECK PLANE POSITIONS.
THIS TEST SCANS THE CHECK PLANE POSITIONS FOR NO PRINT CHECK
SET.

*.* •••••*•••••••••••••••••••••••••*••••••••• ****.****** ••***

211

NOTE ••• THIS TEST DOES NOT PRINT OUT IF THE CORRECT PRINT
OUT SWITCH IS SET ON, OR IF TEST 0070 ABOVE DETECTS· NO ERROR.
EXPECTED RESPONSE

212
213
214
215
216

EXPECT PRINT CHECK BIT ON IN EVERY CHECK PLANE POSITION. THIS
TEST SCANS ALL CHECK PLANE POSITIONS AND PRINTS OUT POSITIONS
WHICH DO NOT HAVE PRINT CHECK BIT SET ON. IF YOU LOOP AT THIS
TIME YOU WILL LOOP ON THE PRE-LOAD, WRITE COMMANDS.

218
219
220
221

••*••••••***.****.****.**.***•• *********************.*******

217

222

223
224
225
226
227
228
229
230
231

ROUTINE 03
- OPERATION ATTEMPTED
LOAD UCS BUFFER WITH 15 SETS OF 16 CHARACTERS, FO THRU FF.
EXPECTED RESPONSE
EXPECT CHANNEL END AND THEN DEVICE END.

232
233

234
235
236
237
238
239
240
241
242
243
244
'245
246
247
248
249
250
251
252
253
254
255
256
257
258

- OPERATION ATTEMPTED
ISSUE A PRINT COMMAND.
EXPECTED RESPONSE
PRINT AREA IS FILLED WITH CHARACTER -A- I(1) WHICH DOES
COMPARE TO WHAT IS IN THE UCS BUFFER.
EXPECT CHANNEL END THEN DEVICE END WITH UNIT CHECK.
DATA CHECK WILL 8E IN THE SENSE BYTE.
CONTINUE ON FOR FURTHER INFORMATION.

NOT

180 *
181 *
182 *
183
0110 - OPERATION ATTEMPTED
184 *
ISSUE A DIAGNOSTIC CHECK READ.
185 *
186 *
EXPECTED RESPONSE
187 *
188
EXPECT CHANNEL END, DEVICE END UNIT CHECK TOGETHER.
189 *
EQUIPMENT CHECK IS IN THE SENSE BYTE.
190.
THIS
TEST WILL FAil IF TEST 0100 FAILED. CONTINUE ON FOR MORE
191
192 •
INFORMATION.
193' •

*

*
*
*

DATE
EC'S

PIN 81t0108
PAGE
2A

15MAR6615NOY66 120CT67
.125632 125655 131812

10

PAGE

F832-5
2

DATE
EC'S

15MAR66 15NOY66 120CT67
125632 125655 131812

** 0120- OPERATION ATTEMPTED
*
TEST 0110 ABOVE READS BACK 132 CHECK PLANE POSITIONS.
*
THIS TEST SCANS ALL 132 CHECK PLANE POSITIONS FOR PRINT LINE
*
COMPLETE BIT TO BE SET 0 F F IN ALL POSITIONS.
*
•.
*
****************************••••• *•• *.**.*******************
NOTE ••• THIS TEST DOES NOT PRINT OUT IF THE CORRECT PRINT
*
OUT
SWITCH IS SET ON, OR IF TEST 0110 ABOVE DETECTS NO ERROR.
*
*
*************************••******.**.**.*****.*.****.*******
*
*.
EXPECTED RESPONSE
*
EXPECT PRINT LINE COMPLETE BIT TO BE SET 0 F F IN ALL
*
POSITIONS. THIS TEST WILL PRINT OUT WHICH POSITIONS THE PRINT
*
LINE COMPLETE BIT IS ON.
*
IF YOU LOOP AT THIS TIME. YOU WILL LOOP ON THE WRITE COMMAND.
*
*
*
ROUTINE 04
*
*
* 0130 - OPERATION ATTEMPTED
*
LOAD UCS BUFFER WITH 15 SETS OF 16 CHARACTERS FO THRU TO FF.
*
*

*

*
*
*
*
* 0140
*
*
*
*
*
*
*
. *
** 0150
*
*
*
*
*
*
*
*•
*
*
* 0160

*
*

*
*
*
*
*
*
** 0170

•.

EXPECTED RESPONSE
EXPECT CHANNEL END AND THEN DEVICE END.
- OPERATION ATTEMPTED
ISSUE A BLOCK DATA CHECK COMMAND.
EXPECTED RESPONSE
EXPECT CHANNEL END DEVICE END TOGETHER.
LATCH SHOULD BE SET ON.

BLOCK DATA CHECK

- OPERATION ATTEMPTED
ISSUE A PRINT COMMAND.
EXPECTED RESPONSE
THE PRINT AREA IS FILLED WITH CHARACTER -A- WHICH ODES NOT
COMPARE TO WHAT IS IN THE UCS .BUFFER. EXPECT CHANNEL END AND
THEN DEVICE END WITH N 0 DATA CHECK IN THE SENSE BYTE DUE TO
THE BLOCK DATA CHECK LATCH BEING ON FROM TEST 0140 ABOVE.
- OPERATION ATTEMPTED
ISSUE ALLOW DATA CHECK COMMAND.
EXPECTED RESPONSE
EXPECT CHANNEL END DEVICE END TOGETHER AND SETTING THE BLOCK
DATA CHECK LATCH 0 F F.
- OPERATION ATTEMPTED

10

PAGE

F832-5
2A

...

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 ,y
(f'.""

...

'"'

it

0008
IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840108
PAGE
3

1403 PRINTER FUNCTION 3

PIN 840108
PAGE
3A

1403 PRINTER FUNCTION 3
259
260
261
262
263
264
265
266
267
268
269
270

•
•
•
•
•
•
•
•
•
•
•
•

271

•

ISSUE A PRINT COMMAND.
EXP.ECTED RESPONSE
THE PRINT AREA' IS FILLED WITH CHARACTER -A- WHICH DOES NOT
COMPARE TO WHAT IS IN THE UCS BUFFER. EXPECT CHANNEL END
THEN DEVICE END WITH UNIT CHECK. EXPECT DATA CHECK IN THE
SENSE BYTE DUE TO BLOCK DATA CHECK LATCH BEING SET OFF FROM
TEST 0160 ABOVE.
ROUTINE 05

272

• 0180 - OPERATION ATTEMPTED

273

•

274
275
276

•
•
•

277

•

278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
30B
309
310

•
CHANNEL END AND THEN DEVICE END.
•
•
• 0190 - OPERATION ATTEMPTED
•
•
ISSUE A PRINT COMMAND.
•
•
EXPECTED RESPONSE
•
•
POSITIONS 2 THRU 132 OF THE PRINT AREA CONTAINS BLANKS.
•
POSITION 1 OF THE PRINT AREA CONTAINS A -1-.
•
EXPECT CHANNEL END AND THEN DEVICE END, AND PRINT ONE
•
CHARACTER.
•
•
• 0200 - OPERATION ATTEMPTED
•
•
PLACE A 8LANK IN POSITION ONE OF BUFFER LOAD AREA. ISSUE A
•
LOAO UCS BUFFER WITH A COUNT OF 1.
•
•
EXPECTED RESPONSE "
•
•
THIS SHOULD PLACE ONLY ONE BLANK IN THE UCS BUFFER AND NOT
•
ALTER THE REST OF THE BUFFER.
•
•
• 0210 - OPERATION ATTEMPTED
•
•
ISSUE A PRINT COMMAND.
•
•
EXPECTEO RESPONSE
•
•
PRINT AREA CONTAINS A -1- AND THE REST ARE BLANKS.
•
IF TEST 0200 ABOVE WAS PERFORMED CORRECTLY, THAT IS ONLY ONE
•
POSITION OF THE BUFFER IS BLANK THEN A COMPARE SHOULD OCCUR
•
AND THE CHARACTER IS PRINTED. EXPECT CHANNEL END AND THEN
•
DEVICE END.
•
•
•
ROUTINE 06
•
• 0220 - OPERATION ATTEMPTED
•
•
LOAD UCS BUFFER WITH 5 SETS OF 48 CHARACTERS.
•
•

311

312
313
314
315
316
317

318
319
320
321
322
323

DATE
EC'S

IBM MAINTENANCE DIAGNOSTIC PROGRAM

15MAR6615NOV66'120CT67
125632 125655 131812

EXPECTED RESPONSE

F832-5
3

•
EXPECTED RESPONSE
•
•
CHANNEL END AND THEN DEVICE END.
•
•
• 0230 - OPERATION ATTEMPTED
•
•
ISSUE A PRINT COMMAND.
•
•
EXPECTED RESPONSE

334

•

335 •
THE PRINT AREA CONTAINS 48 CHARACTER SETS. EXPECT CHANNEL END
AND THEN DEVICE END.
336 •
337 •
CONTINUE ON FOR FURTHER INFORMATION.
338 •
339 •
340 • 0240 - OPERATION ATTEMPTEO
341 •
342 •
ISSUE A DIAGNOSTIC READ COMMAND.
343 •
344 •
345 •
EXPECTED RESPONSE
346 •
341 •
EXPECT CHANNEL END DEVICE END TOGETHER. THIS TEST WILL FAIL
348 •
IF TEST 0230 AB,OVE FAILED.
349 •
CONl'lNUE ON FOR FURTHER INFORMATION.
350 •
351 •
352 '. 0250 - OPERATION ATTEMPTED
353 •
354 •
TEST 0240 ABOVE READS BACK THE CONTENTS OF THE DATA BUFFER.
355 •
THIS TEST WILL COMPARE WHAT IS IN THE PRINT AREA TO WHAT WAS
356 •
READ BACK FROM THE DATA BUFFER.
.
357 •
358 •
359 •
NOTE ••• THIS TEST DOES NOT PRINT OUT IF THE CORRECT PRINT
360 •
OUT SWITCH IS SET ON, OR IF TEST 0240 ABOVE DETECTS NO ERROR.
361 •
362 •
363 •
EXPECTED RESPONSE
364 •
365 •
PRINT AREA AND DATA BUFFER POSITIONS THAT DO NOT COMPARE
366 •
ARE PRINTED OUT. IF YOU LOOP AT THIS POINT, YOU WILL LOOP
367 •
ON THE PRINT COMMAND.
368 •
NOTE---OO NOT USE TO TROUBLE SHOOT PRINT CHECK PROBLEMS.
369 •
USE ONLY TO CHECK READ BACK OF THE DATA BUFFER.
370 •

LOAD UCS BUFFER WITH 15 SETS OF 16 CHARACTERS Fa THRU TO FF

ID
PAGE

324
325
326
327
328
329
330
331
332
333

••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

DATE
EC'S

371

•

372
373
374
375
316
377
378
379
380
3Bl
382
383
3B4
385
3B6
3B7
388

• 0260 - OPERATION ATTEMPTED
•
•
LOAD THE UCS BUFFER WITH FOLDING. UCS BUFFER IS FILLED WITH
•
5 SETS OF 48 F 0 U R T H QUADRANT'CHARACTERS -C1 TO FO-.
•
•
EXPECTED RESPONSE
•
•
EXPECT CHANNEL END AND THEN DEVICE, ENO.
•
•
• 0270 - OPERATION ATTEMPTED
•
•
PRINT AREA IS FILLED WITH 48 F, IRS T QUADRANT CHARACTERS
•
-30 TO 01- REPEATED TO FILL THE 132 PRINT 'POSITIONS.
•
A'PRINT COMMAND IS THEN ISSUED.
•
•
EXPECTED RESPONSE

15MAR66 15NOV66 120CT67
125632 125655 131812

1__

10
PAGE

FB32-5
3A

IBM 'MAINTENANCE DIAGNOSTIC PROGRAM'
1~03

PRINTER FUNCTION 3

411

412
413

414
415
416
417

418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434

435
436
437
438

439
440
441
442
443
444

445
446
447
448

449
450
451

452
453

",

c<'~

iO,

',J

I(),
1t.j

•
•

,
r!')
'

V

0

454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470

EXPECT CHANNEL END AND THEN DEVICE END.
NOT E-- IF THIS TEST (FOLDING) FAILED, CHANNEL END AND THEN
DEVICE END WITH UNIT CHECK WILL OCCUR~ DATA CHECK WILL BE IN
THE SENSE BYTE.

••
••
••
•

POSSIBLE FAILURE CAUSES
1.
2.

•
•

THE FOLDING LATCH FAILED TO BE SET ON.
FAILED TO FORCE A COMPARE ON THE ZERO AND ONE BITS OF
THE UCS AND PRINT BUFFER DATA.

••
ROUTINE 07
•
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•

NOTE--SECTION SENSE SWITCH 24 MUST BE ON

TO INDICATE OUALING

.* •••••••••••••••• *•• *•••••••••••••••••••• *•••••••••••••*.** ••••• *•••••

••
•
•

471

472

0280 - OPERATION ATTEMPTfD

473

LOAD UCS BUFFER WITH 5 SETS OF 4B CHARACTERS.
INCLUDES THE FOUR DUALABlE CHARACTERS.

••
•
••

474
475
476

EACH SET

477

47B
479
480
481
482
483

EXPECTED RESPONSE
CHANNEL END AND THEN DEVICE END.

••

• 0290 - OPERATION ATTEMPTED

•
•
•
•
•
•••

484

PLACE ALREADY TRANSLATED DUALING CHARACTERS INTO PRINT AREA.
ISSUE A PRINT COMMAND TO PRINT THE FOUR DUALING CHARACTERS.

486

EXPECTED RESPONSE

488

489
490
491

EXPECT CHANNEL END AND THEN DEVICE END.

•• 0300
••

492

493

- OPERATION ATTEMPTED

•
••
*•
••

494

PLACE UNTRANSLATED DUALING CHARACTERS IN THE PRINT AREA.
ISSUE A PRINT COMMAND TO PRINT THE FOUR DUALING CHARACTERS.

495
496
497

EXPECTED RESPONSE

••
• 0310 -

•
•
•
•
••

498

EXPECT CHANNEL END AND THEN DEVICE END. IF AN ERROR OCCURS
ON THIS TEST, CONTINUE THROUGH THE NEXT 2 TESTS FOR FURTHER
ERROR INFORMATION.
01000
01004
01008
0100A

OPERATION ATTEMPTED
ISSUE A DIAGNOSTIC READ COMMAND.

OlOOC

01000
0100E

EXPECTED RESPONSE

•
•

••
• 0320 •
•

n

485
4B7

EXPECT CHANNEL END DEVICE END TOGETHER. IF AN ERROR OCCURRED
ON PREVIOUS TEST, THIS TEST WILL INDICATE AN ERROR ALSO.
CONTINUE ON TO NEXT TEST FOR FURTHER ERROR INFORMATION.
OPERATION ATTEMPTED
TEST 0290 ABOVE READS BACK THE CONTENTS OF THE DATA BUFFER.

ID
PAGE

15MAR66 15NOV66 120CT67
125632 125655 131812

t~

PIN 840108
PAGE
4A

IBM MAINTENANCE DIAGNOSTIC PROGRAM
1403 PRINTER FUNCTION 3

389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410

DATE
EC'S

PIN 8~0108
PAGE
~

,1f~

'>

'-

In
"~I

iO

~,

~J>

()

It)
\.'"

3

F832-5
4

n

\~'-J'

!

,0

OlOOF

01010
01015
01018
01020
01028
01030
01038
01040

DATE
Ee'S

499
500
501
502
503
504
505
506
507
508
509
510

F8325000
00000000
0000
0000
00
01
CO

00
0104000000
0018FB
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000

511

••
•

THIS TEST COMPARES THE DUALING CHARACTERS AFTER TRANSLATION
8Y THE DATA BUFFER TO WHAT THE OUALING CHARACTERS SHOULD BE
AFTER TRANSLATION.

•••

•••••••••••••••••••••••••••••••••••••••••••••••• *•••• *••••••
NOTE ••• THIS TEST DOES NOT PRINT OUT IF THE CORRECT PRINT
OUT SWITCH IS SET ON, OR IF TEST 0310 ABOVE DETECTS NO ERROR.

••
••
•

•• *••••••••••••• *•••••••••••••••••••••• *••••••••••••••••• *••
EXPECTED RESPONSE

•••
•
••

ANY INCORRECT DUALING CHARACTER FOUND IN THE BUFFER WILL
RESULT IN A PRINT OUT OF THE FOUR DUALING CHARACTERS AS THEY
APPEAR IN THE DATA BUFFER AND A PRINTOUT OF WHAT THEY SHOULD
BE. IF YOU (OOP AT THIS TIME, YOU WILL LOOP ON THE PRINT
COMMAND.

••

•
•• 0330
•
*•
•••
••

514
515

516
517

518

- OPERATION ATTEMPTED ,
THE UCS BUFFER IS LOADED IN FOLDING MODE, WITH A 16 CHAR. SET.
EXPECTED RESPONSE
EXPECT CONDo CODE 0 TO BE SET ON THE START I-D. EXPECT A
CHANNEL AND~DEVICE END INTERRUPT. THE FOLDING LATCH SHOULD
BE SET ON.

•

**

0340 - OPERATION, ATTEMPTED

*

A PRINT COMMAND IS ISSUED, AND INTERRUPTS ARE CLEARED.

•*
•
••

EXPECTED RESPONSE
THE PRINT AREA CONTAINS HEX CHARACTERS -BO-, AND -CO-. THE
UCS BUFFER DOES NOT CONTAIN ANY OF THESE CHARACTERS, BUT
BECAUSE OF FOLDING MODE, THE CHARACTERS ARE CONSIDERED VALID
UNPRINTABLE CHARACTERS, AND ARE TREATED AS BLANKS OR NULLS.
EXPECT CONO. CODE 0 ON THE START I-D. EXPECT 2 SEPARATE
INTERRUPTS - CHANNEL END, THEN DEVICE END. UNIT CHECK AND
DATA CHECK SHOULD NOT OCCUR.

*
•*

*•

••**.* ••** ••• *.*** •••

*•• *.* •• *•• ***.** ••
* SECTION PREFACE •••••••••• *•• *••• ** •• *.**.*.* •• **.* SECTION PREFACE.
.* •• *.* ••• **.*.** ••
*•• *.** ••• *•• *.****
SECNO
SNSW

ICM
SDMF
NIOU
FLAG1
FLAG2
INPSW

512
513

ROUTINE 08

EXOPSW
SVOPSW
PGOPSW
MCOPSW
IOOPSW
CSW

DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
OC
DC
DC
DC
DC

XL4'F8325000'
XL4'OO'
XL2'OO'
XL2'OO'
XU'OO'
XL1'Ol'
X'CO'
X'OO'
X'DID4000000'
AL3 (ROUTOll
XLB'O'
XL8 ' OO'
XL8 ' OO'
XL8'OO'
XL8 ' OO'
XL8'OO'

SECTI ON SENSE SWITCHES
INTERRUPTION CONDITION MASK
SECTION OM FLAGS
NUMBER OF UNIT TABLE ENTRYS
EXCLUSIVE CPU
110 INT ARE ERR, EXT INT TO PROG
DISABLED. SPVSR STATE, NO PG" MASK
ADR OF 1ST ROUTINE PREFIX
SECTION OLD EXTERNAL PSW
CLEAR ALL OLD PSWS
PROGRAM OLD PSW
MACHINE CHECK OLD PSW
1/0 OLD PSW
CHANNEL STATUS'WORD

15MAR66 15NOV66 120CT67
125632 125655 131812

rI')
{)
'\,c '

(~)

()

------

10

PAGE

r)

0 {) :0 (0

"<\ "

'I)

,f)
l
,

'

•
••
*

*

*•

*
*
*
*
*
•*

•

F832-5
4A

10 10 lOt 0 0 0
1

():
4.,'

o

o~

o

o

0 0 0
1

o

0' 0

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840108
PAGE
5

00000000
0000000000000000
QPPOOOOO
0004000000
000000
0000000000000000
0000000000000000
0000000000000000
01040000
00001104
83
00
8000

PIN 840108
PAGE
5A

1403 PRINTER FUNCTION 3
519
520
521
522
523
524
525
526
521
528
529
530
531
532
534
535
536
537
53B
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
55B
559
560
561
562
563
564
565
566
561
568
569
570
571
512
513
574
575
576
577
51B
579
5BO
5B1
582

DATE
EC'S

o

o

IBM MAINTENANCE DIAGNOSTIC PROGRAM

1403 PRINTER FUNCTION 3
01048
0104C
01054
01058
01050
01060
01068
01070
01078
0101C
01080
OIOEO
OlOEI
010E2

000

15MAR66 15NOV66 120CT61
125632 125655 131812

CAW

DC
DC

EXNPSW
SRET
SVNPSW
PGNPSW
MCNPSW
IONPSW

DC
DC
DC
DC
DC
DC
OC
DS
UNITl DC
UlOP
DC
UIADDR DC

Xl4'OO'
Xl12'OO'
X'OO04000000'
Xl3'O'
XlB'DO'
XlB'OO'
XlB'OO'
XL4'01040000'
AL4( IRETRNI
96C
X'83'
X'OO'
X'8000'

CAW
RESERVED FOR OM USE

*
*
*
*
*
*
*
*
*
*
*

EXTERNAL NEW PSW
ADR OF EXT INTRPT ROUTINE
SUPERVISOR NEW PSW
PROGRAM NEW PSW
MACHINE CHECK NEW PSW
I/O NEW PSW
ADDRESS OF 1/0 I NTRPT ROUTINE
96 BYTE REG DUMP AREA FOR OM USE
UNIT TYPE - 1419 MICR
OPTIONAL FEATURES BYTE
FLAGS ANO CHAN/UNIT ADDRESS

583
584
585
586
5B7
5B8
589
590
591
592
593
594
595
596
597
59B
599
600
601
602
603
604
605
606
607
60B
609
610
611
612
613
614
615
616

•

•

***********************.****** •••••••••• *•• ** •••• ******* ••• ************
*** ••• *•••• ** ••• ** •• *.**************************************** ••• ******
•
1403 SENSE BYTE
•••••• ** ••• **.********.* ••••• ** ••• *.***.****.**************************

*

*
*
*
*
,.
*

BIT
0
1
2
3
4

5

•

6

•

1

MEANING
COMMAND REJECT
INTERVENTION REQUIRED
BUS OUT CHECK
EQUIPMENT CHECK - HAMMER FIRE CHECK
DATA CHECK - UCS PRINTERS ONLY - UNCOMPIRA6LE CHARACTER
BUFFER PARITY CHECK - REFERS TO UCS BUFFER
NOT USED
CHANNEL 9

•••••• *.* ••• ** •••••• **** •••••••••• ** •••• ***.*.*.**.*.** •• *•• ***.***** ••
.**.* •••••••••••• ** •••••• *••••• *** ••• *** ••••••••••••• *••••• ***** •• *••••
•
1403 DEVICE STATUS
•••• *•• *.* ••• *•• ** ••• *•• *•••••••••••••••••••• *•••••••••••••• **.*** ••• **

*
•*

•

BIT
0
1
2
3
4
5
6
7

MEANING
ATTENTION - NOT USED
STATUS MODIFIER - 2 CHANNEL SWITCH FEATURE ONLY
CONTROL UNIT END - 2 CHANNEL SWITCH FEATURE ONLY
DEVICE BUSY
CHANNel END
DEVICE END
UNIT CHECK
UNIT EXCEPTION - CHANNEL 12

617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
641

*•
•*
**.****••• *.* •• *****.*•••• *** •••••• *.*** •••• **.**** •••• *.*.* •••••• *** •••
*
1403 DIAGNOSTIC CHECK READ DATA

**.***.* ••• ** •••• *.* ••• ****.** •• **.* •••• *••••• *.** •• *.*.* •• *** •••••••• *

•
•

•

BIT
5

•*
*
•*

MEANING
ON - THE PRINT LINE COMPLETE BIT HAS BEEN SET FOR THIS
POSITION.
OFF - ON BASIC PRINTERS, A COMPARE BETWEEN THE DATA BEING
PRINTED, AND THE PRINT CHARACTER GENERATOR DID NOT
OCCUR IN THI~ POSITION, AND THE CHARACTER WAS NOT
CONSIDERED A VAllO UNPRINTABLE.

•

ON UCS PRINTERS, A COMPARE BETWEEN THE DATA BUFFER
AND THE UNIVERSAL CHARACTER SET BUFFER DID NOT OCCUR
AND THE CHARACTER WAS NOT CONSIDERED A NULL OR BLANK

•

*
*•
*
*
*•
*
*
*

*

6

7

ON

THE PRINT CHECK PLANE FOR THIS POSITION WAS SET ON.
THIS PLANE IS SET BY--1. A HAMMER FIRE AND AN EQUAL CHECK.
2. NO HAMMER FIRE AND NO EQUAL CHECK.
3. LINE FULL, NOT VALID UNCOMPARABlE CHARACTER, AND
NOT A PRINT LINE COMPLETE 81T IN THIS POSITION.
OFF - THE PRINT CHECK PLANE FOR THIS POSITION IS NOT SET.
ON

-

- A PARITY CHECK IN THE DATA BUFFER WAS DETECTED IN

10
PAGE

F832-5

5

DATE
EC'S

15MAR66 15NOV66 120CT67
125632 125655 131812

THIS POSITION.

*
**

OFF -

THIS POSITION OF THE DATA BUFFER HAS CORRECT PARITY.

••• *.**.* •• *.************** •••• ** •• *.***.* ••• *•••••••• *••• *.* •• *••• ** ••
*
PARAMETERS USED TO ENTER
•
THE 1-0 HANDLER ROUTINE
*** •• ***** ••••• ****.** ••••• *.*.**** •••• *•••••••••• *••• *•• ***.***.** •• **
•

SAL
DC
DC
DC
DC
DC

*

*
*

*
*

Rll,ISIO
XL2'0000'
X'0014'
X'FO'
X'OO'
Al2(ADR-BASE+REGI

LINK TO 1-0 HANDLER
CONTROL SWITCHES
TEST NO. IN DEC EXPRESSED IN HEX
EXPECTED CONDo CODE
EXPECTED SENSE DATA
ADDR. OF EXPECTED CSW IF NEEDED

.**** •• *•• ******.***.***** ••• **.*.**.* •••••••••••• *•• ****** •• **.***.***
** •••• *.* •• *••••• *••••• *••••••• **.**** ••• ****.***.**********.****.**.**

*
*

1-0 HANDLER CONTROL SWITCHES
2 BYTE PARAMETER FOLLOWING BAL

••• **.**.*.****.* ••• *********.* •• *** •••••• ****.**** •• *.************.**.
* SWITCH
DESCRIPTION
•
0
OFF - ISSUE AN 1-0 COMMAND
*
ON - DO NOT ISSUE AN 1-0 COMMAND
*
OFF - ENABLE

*
*
*

•
•

3

•

4

•

5

*

*
*
*

ON
OFF
ON
OFF
ON
OFF
ON
OFF
ON
OFF
ON

2

6

-

00 NOT ENABLE
EXPECT NO INTERRUPT
EXPEC T AN INTERRUPT
DO NOT EXPECT 2 INTERRUPTS
EXPECT 2 INTERRUPTS
EXPECT NO CSWS
EXPECT 1\ CSW
DO NOT EXPECT 2 CSWS
EXPECT 2 C5WS
ALWAYS TRY TO ISSUE SENSE
SENSE ON UNIT CHECK ONLY

.*****.*.*.***.*.** ••••• **.*.*.**.* ••• ** •• *.******* ••• *.**•• *.*.**.****
********.********.*.** •• ****** •• *.***.**.*.***.*.***********.**********
*
SWITCHES USED BY }-o HANDLER
***.********* •• ************* •• *.*.*.**********••*** •• *****.**.***.*****

*
•
*
*
*
*
•
*
*
*
*
*
•
*
*
*
*

SWITCH
0

DESCRIPTION
OFF - NO HANGUP ON INTERFACE
ON - HANGUP OCCURRED
OFF - NO CSWS STORED
ON - ONE CSW STORED
OFF - SECOND CSW NOT RECIEVED
ON - SECOND CSW RECI EVED
OFF - DID NOT ENABLE
ON - ENABLED ONCE
OFF - DID NOT ENA8lE TWICE
ON - ENABLED TWICE
OFF - NO SENSE DATA RECIEVED
ON - SENSE DATA RECIEVED
OFF - NO UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE
ON - UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE
OFF - NO ERROR DETECTED
ON - AN ERROR WAS OETECTED

2
3
4
5
6
7

********.**** •••• **** ••••• *.*** ••••• ** •• ***************.********.******
~EGISTERS USED IN 1-0 HANDLER
.*******.***.*.*****.**.**.***** •• *************************.***.*******

•

*
*
*
*

*

*
*
*

REG
5

COMMENTS
USED AS LINK TO ERROR OUTPUT FROM INITIALIZE ROUTINE IF
PREVIOUS HANGUP ON INTERFACE DETECTED.

8

USED AS WORK REGISTER. WILL 8E RESTORED UPON RETURN.

9

USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN.

10
PAGE

F832-5
5A

00

IBM MAINTENANCE DIAGNOSTIC PROGRAM
1~03

0000

010E6
OlOEC
OlOFO
010F4
010F8
OlOFE
01102
01106
OllOC
01110
01114
01118

02
90
90
50
01
95
41
07
91
41
91
41

01
AB
B9
AD
01
30
60
OB
80
10
CO
80

F
F
F
0
0

F

59C
4FB
4FO
048
040
181
10C
080
000
1A4
004
160

0111C
01120
01124
01128
0112C
01130
01134
01138
01l3C
01140
01144
01148

91
47
9C
47
91
47
90
41
91
47
9C
47

80
80
00
FO
40
80
00
70
40
80
00
FO

F
F
C
F
F
F
C
F
F
F
C
F

004
12C
000
llC
004
14C
000
llC
004
14C
000
134

01l4C
01150
01154
01158
0115C
01160
01166
0116A
Oll6E
01112
01176
0117A
OIl7E
01182
01186
0118A
0118E
01192
01198
0119C
011AO
011A4
011A8
OllAC
01180
011 BIt

58
88
90
47
46
07
96
92
9C
47
47
47
92
47
92
47
92
02
96
47
92
94
91
47
96
58

IE
10
00
80
10
01
80
E7
00
80
40
20
F3
FO
F2
FO

0
0
C
F
F
F

198
003
000
160
154
OE4
OE4
50F
000
lAO
18E
186
50F
lA4
50F
1M
50F
502
OE4
1A4
50F
OE4
000
210
OE4
198

Fl

07
40
FO
FO
7F
"0
10
10
9E

E
F

0
8
F
F

F

F
C
F
F
F
F
F
F
F
F
F
F
F
F
F
B
F
f
0

8 002

0

O~O

0 080

F OE4

D oltO

PIN 840108
PAGE
6A

1403 PRINTER FUNCTION 3

PRINTER FUNCTION 3

010E4

DATE
EC'S

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840108
PAGE
6

64B
649
650
651
652
653
654
655
656
651
658
659
660
661
662
663
664
665
666
667
668
669
610
671
672
673
674
675
676
677
678
619
6BO
681
682
683
6B4
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
109
710
711
712

10
MUST CONTAIN CCW ADDRESS UPON ROUTINE ENTRY
*
*
MUST BE USED AS LINK REG TO THIS ROUTINE·
11
*
*
MUST CONTAIN DEVICE ADDRESS
12
*
*
***********************************************************************
ISW
DC
XL2'O'
**********.*.*************.*.*.***.* ••• ************.*******************
*
* 1-0 HANDLER SUB-ROUTINE *
****** ••••• *.*.**.****.**.*.* •• * •••• **** ••••••• ** ••••• *.** •••• * ••• *.* ••
ISIO
MVC
ITSTNO+5121,2IR111
SAVE TEST NUMBER
RIO,R11,ISLAVE
STM
SAVE REG 10 ANO REG 11
R8,R9,1SAVE
STM
SAVE REGS BAND 9
ST
R10,HCAWIR131
STORE COMMAND ADDRESS
HCSWI8,R131,HCSWIR131
XC
SYSMODIR141,X'30'
CLI
CHECK FOR MODEL 30
UNEQ,M0044
BC
BR. IF NOT
XC
LOGOUTI121,LDGOUT
CLEAR MOO 30 LOGOUT AREA
MOD44 TM
OIR11I,X'SO'
CHECK CONTROL SWITCH FOR NO 1-0
All,lNOW
8R. IF ON
BC
TM
SNSW,X'CO'
BC
NONE,JOHN
*.*.**.**.** •• ***.****.**.*** •• ********.********.**** •• * •• *******.****.
SENSE SWITCH LOOPS
*
****.* •••••••••••• ****.**.*** •••• *.**.•• *.**.******.** ••• ******.****** ••
SNSII,X'80'
ITRYI TM
CHECK SECTION SENSE SWITCH 0
NONE, ITRY2
BR. If OFF
BC
(lOOP SID
0lR121
SIO, TID, OR HIO
BC
UNC,r TRY!
BR. UNCONDITIONAL
SNSW,X'40'
ITRY2 TM
CHECK SECTION SENSE SWITCH 1
NONE ,IHI
BR. IF OFF
8C
IHANG TIO
0lR121
TEST 1-0
NCCO, ITRYI
8R. IF NOT CONO. COOE 0
BC
TM
SNSW,X'40'
CHECK SECTION SENSE SWITCH
NONE,IHI
BR. IF OFF
BC
START 1-0
SIO
0lR121
UNC,IHANG
BC
BR. UNCONDITIONAL

•IHI

l
SRL
TID
GREG
BC
BCT
JOHN
XC
01
MVI
ISSUE SID
BC
BC
BC
MVI
BC
ITWO
MVI
BC
lONE . MVI
MVC
01
8C
IZERO MVI
INOW
NI
TM
BC
01
IWAIT L

R1,WT1141
Rl,3
OlR121
CCO,JOHN
R1,GREG
ISII/2I,1SW
ISW,X'80'
IACTCC+5,C'X'
0lRl21
CCO,IZERO
CCl,IONE
CC2,ITIIO
lACTCC+5,X'F3'
UNC,INOW
IACTCC+5,X'F2'
UNC,INOW
lACTCC+5, X' Fl '
ICSWIIBI,HCSWIR131
ISW,X'40'
UNC,INOW
IACTCC+5,X'FO'
ISW,X'7F'
0IRUI,X'40'
ALL,ISEN
ISW,X'10'
R9, WTI R141

MOVE IN A -X1-0 COMMANo- SID, TIO, OR HIO
BR. IF CONDo CODE 0
BR. IF CONDo CODE 1
BR. IF CONDo CODE 2
INDICATE CONDo COOE 3
BR. UNCONOITIONAl
INOICATE CONO. CODE 2
BR. UNCONDITIONAL
INDICATE CONO. CODE
SAVE CSW
INDICATE 1 CSW
8R. UNCONDITIONAL
INDICATE CONO. CODE 0
TURN OFF HANG UP SWITCH
CHECK CONTROL SWITCH FOR NO ENABLE
BR. IF ON
INOICATE ENABLED ONCE
LOAD OM WAIT fACTOR

15MAR66 15NOV66 120CT67
125632 125655 131812

10
~AGE

F832-5
6

i

011BB
011BC
011CO
011C4
011C8
011CC
01100

8B
96
BO
46
80
94
47

90
BO
00
90
00
7F
FO

0
F
F
F
F
F
F

01104
01108
011DC
OllEO
011E6
OllEA
OllEE
OllF4
OllF8
011FC
U1200
01204
01208
0120C
01210
01214
01218
0121C
01220
01224
01228
0122C
01230
01234
01234
01238
0123C
01240
01244
01248
0124C
01250
01254
01258
0125C
01260
01264
01268
0126C
01270
01274
01278
0127C
01260
01284
0128A
0128E
01294
01298
0129C
012AO
012A4
012A8
012AC
012BO

94
91
47
02
96
47
02
96
91
41
91
41
96
47
91
47
91
47
91
47
91
47
91
47
41
58
8B
41
50
9C
47
90
47
46
47
91
41
47
91
47
47
95
41
96
05
47
05
47
91
47
91
47
48
40
05

1F
40
10
01
40
FO
07
20
10
60
08
10
08
FO
02
60
40
80
02
10
20
60
02
BO
60
9E
90
80
80
00
70
00
40
90
fO
40
10
FO
20
10
FO
OC
70
04
00
60
00
60
08
80
40
80
68
80
07

F

DATE
EC'S

003
OE4
5F3
1C4
5F4
OE4
210

OE4
OElt
lEE'
502
OE4
1 F8
5DA
OE4
B 000
F 210
F 0~4
F 210
F OE4
F 184
B 000
F 238
F OE4
F 28E
F 506
F 238
F OE4
F 26E
F 50E
F 28E
F 28E
0 198
0 004
F 5E8
0 048
C 000
F 20C
C 000
F 278
F 250
F 28E
F OE4
F 20C
F 2EO
F OE4
F 20C
F 2EO
0 044
F 258
F OE4
F 575
F 20C
F 50F
F 20C
B 000
F 260
F OE4
F 20C
0 006
F 284
F 502
F
F
F
F
F
F
F

713
714
715
716
717
718
719
720
721
122
723
724
725
726
727
128
729
730
731
132
133
134
735
736
737
138
739
740
741
742
743
744
745
746
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
174
175
776

F 040
F

040

B 005
B 004

F 502

R9,3
SRL
ADJUST
01
ISW,X'80'
TURN ON HANG UP SW
MSK1
SSM
ENABLE
BCT
R9,*
WAIT
SSM
MSK2
DISABLE
NI
ISW,X'7F'
TURN OFF HANG SW
BC
UNC,ISEN
BR. UNCONDITIONAL
***********************************************************************
ALL
1-0
INTERRUPTS
RETURN HERE
*
*********************.****** ••••• **.**** ••• * ••• * •• * •• * •• **.****.*******
ISW,X'7F'
IRETRN NI
RESET HANG UP SW
TM
ISW,X'40'
BC
ALL 01 SV2
BR. IF 1 CSW ALREADY STORED
MVC
ICSWIIB),HCSWIR15)
SAVE CSW 1
ISW,X'40'
01
INDICATE 1 CSW STORED
BC
UNC, INn
BR. UNCONDITIONAL
ISV2
MVC
ICSW2181,HCSWIR15)
SAVE CSW 2
01
ISW,X'20'
INDICATE 2 CSWS STOREO
INT3
TM
01R11I,X'10'
CHECK CTRL SW FOR 2 INTR EXPECTED
BC
NONF,ISEN
BR. IF NOT
TM
ISW,X'08'
ALL,ISEN
8R. IF ALREADY ENABLED TWICE
BC
01
ISW,X'08'
INDICATE ENABLED TWICE
BC
UNC, I WAIT
ISEN
TM
01 R111 ,X' 02'
CHECK CONTROL SWITCH FOR SNS ON UC
BC
NDNE,100SNS
BR. IF OFF TO ISSUE SENSE
TM
ISW,X'40'
NONE,IBSN
BR. IF NO CSII STORED TO BYPASS SENSE
BC
TM
ICSW1+4,X'02'
CHECK FOR UNIT CHECK
BC
AlL,IOOSNS
IF YES BR. TO ISSUE SENSE
TM
ISW,X'20'
CHECK FOR SECOND CSW
NONE,IBSN
BC
BR. I F NOT TO BYPASS SENSE
TM
ICSII2+4,X'02'
CHECK FOR UNIT CHECK
8C
NONE,IBSN
BR. IF NOT TO BYPASS SENSE
'BC
NONE,IBSN
BR. IF NOT TO BYPASS SENSE
100SNS l
R9,WTlRI41
LOAD OM WAIT FACTOR
R9,4
SRL
AOJUST
LA
R8,ISENSE
LOAO SENSE COMMAND ADDRESS
ST
R8,HCAWIR13)
STORE IN CAW
SIO
0lR121
ISSUE SENSE
BC
NCCO,INOER
BR. IF NOT ACCEPTEO
IT 10LP TID
OlR121
TEST 1-0
. 8C
CCl,ILOKE
BR. IF CSW STORED
ITIC
BCT
R9, ITIOLP
BC
UNC,IBSN
BR. UNCONDITIONAL
INOEX1 TM
ISW,X'40'
All,INOER
BC
BR. IF CSW STOREO
BC
UNC,IOUNCK
BR. UNCONDITIONAL
INOEX2 TM
ISII,X'20'
BC
ALl,INOER
BR. IF CSW 2 STORED
BC
UNC,loUNCK
BR. UNCONDITIONAL
ILOKE CLI
HCSW+4IR131,X'OC'
CHECK FOR CE DE ONLY
BC
NCCO, I TIC
BR. IF NOT
01 , ISW,X'04'
INOICATE SENSE DATA RECIEVED
ClC
IACSNS+5111,5IRlll
COMPARE FOR EXPECTED SENSE
UNEQ,INoER
BC
BR. IF UNEQUAL
IBSN
IACTCC+511),4IRlll
CLC
COMPARE FOR EXPECTED CONDo CODE
UNEQ,INOER
BC
BR. IF UNEQUAL
TM
0IRUI,X'08'
NONE,INOEXI
8C
BR. IF NO CSW EXPECTED
TM
ISW,X'40'
BC
NONE,INOER
BR. IF NO CSW RECIEVED
lH
R8,6IR111
LOAO CSW ADDR
STH
R8,ICCSW1+"
STORE IN COMPARE INSTR.
ICCSWI CLC
ICSW1I8J, IClIWI
COMPARE FOR EXPECTED CSW

15MAR66 15NOV66 120C167
125632 125655 131812

10
PAGE

F832-5
6A

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

'\i..0.'.;".•.,

." "",,;

.rO.·
. '

;0.""
.• '

/0'.'
\ . j,'0*,
' , .'

tfO··.:'·
';;y'

".

-'·0······.···,
,,".
')

•.f.",)·.·
....

'<\.

o

·0,···,.·.:;·0.,··.··
.:'

"

'\

'

o

i

1'.,

',,0,..110:·.
.,

'0"
.'. " . '

,j,''''

',I

~

i

o

0 0 0 0 0 0 0 'J

JCt.":
...........,

o

0' 0 0 0 0; () 0 0 0 0 0 0: 0 0 0 0'
.

IBM

M~INTEN.NCE

';,I

Ii'

,,'.','

DIAGNOSTIC PROGRAM

PIN 8"CH08

PAGE

7

1"03 PRINTER FUNCTION 3
012B6
012BA
012BE
012C2
012C6
012CA
012CE
01202
0120B
012DC
012EO
012E4
012E8
012EC
012FO
012F4
012F8
012FC
01300
01306
01308
0130A
0130C
Ol30E
01310
01311
01312
01314
01318
013lA
0131E
01320
01322
01324
01326
01328
01329
0132A
0132C
01330
01334
01338
OlBA
0l33C
01BE
01340
01342
01343
01344
01346
0134A
0134E
01352
01354
01356
01358
0135A
0135C
01350
0135E
01360
01366
0136A
0136E
01314

DATE
EC'S

41
91
41
91
47
41
40
05
47
96
92
92
91
41
91
41
92

60
04
80
20
80
88
80
07
80
01
64
CO
01
10
01
80
24
92 80
02 01
OA DO
0002
059C
059C
OA 00
64
09
F591
"1 80
IB 68
50 BO
OA DO
0003
0529
0528
Oil DO
EO
10
F523
"1 B8
91 80
41 10
OA DO
0003
05FO
0519
Oil DO
EO
OF
F511t
95 9C
41 60
50 AO
OA DO
0003
0539
0538
OA 00
EO
OB
F533
02 02
92 16
50 AO
02 01
45 90

F
B
F
F
F
0
F
F
F
F

F
F
F
F
F
F
F
F
F

20C
000
26C
OE4
20C
008
206
50A
2EO
OE4
310
4A4
OE4
300
004
loCO
310
4A4
59C

F 50A

B 002

0 004
F 528

0 004
8 000
F 3BA

F 16E
F 3A4
F 53B

F
F
F
F
F

5"6
39F
818
408
388

F 542
A 000

()

o

o

0

0

cooo o

IBM MlINTEN.NCE DIAGNOSTIC PROGRAM

PIN 8"0108
PAGE
11\

1403 PRINTER FUNCTION 3
111
118
119
180
781
182
783
184
185
786
781
188
189
190
191
192
193
19"
195
196
191
19B
199
BOO
801
802
B03
80"
805
806
B07
808
B09
810
811
B12
813
B1"
B15
B16
811
BIB
819
820
821
822
823
B24
825
826
821
828
B29
830
831
832
833
834
835
836
B31
838
839
8"0
8"1

15MAR66 15NOV66 120CT67
125632 125655 131812

BC
TM
BC
HI

ICCSW2
INDER
IOUNCK

10UTlT

IFLAGl

ICWOUT

BC
lA
5TH
ClC
BC
01
Mill
MVI
TM
BC
TM
BC
Mill
MVI
MVC
SVC
DC
DC
DC
SIIC
DC
DC
DC
LA
SR
ST
SIIC
DC
DC
DC
SIIC
DC
DC
DC
lA
TM
BC
SVC
DC
DC
DC
SIIC
DC
DC
DC
Cll
BC
ST
SIIC
DC
DC
DC
SVC
DC
DC
DC
MVC
Mill
ST
MVC
BAl

UNEQ,INOER
01RUI,X'04'
NONE,INOEX2
ISW,X'20'
NONE,INOER
R8,IllR81
R8,ICC5W2+4
ICSW2181,ICSW2
EQ,lDUNCK
ISW,X'Ol'
IFLIIGl,X'64'
IFLAG2,X'CO'
ISW,X'Ol'
All,lOUTIT
SNSw,X'Ol'
NONE,ILEAVE
IFlAG1,X'24'
IFlAG2,X'BO'
ITSTNO+5(21,2IRlll
X'DD'
AL2121
Al211TSTNO+5-SECNOI
Al2([TSTNO+5-SECNOI
X'DO'
X'64'
X'O'"
Al2IITSTNO-SECNO+REGI
R8,"
Rll,RB
Rll,ILlNK+5
X'DD'
Al2131
Al2IIlINK+6-SECNOI
Al2(llINK+5-SECNO)
X'DO'
X'EO'
X'10'
Al2(IlINK-SECNO+REGI
Rll,41Rl11
0(RUI,X'80'
All,IOCSW
X'DD'
AL2131
Al2(IOAOR-SECNO)
Al2(IOAOOR+5-SECNOl
X'DO'
X'EO'
X'OF'
Al2(IOAODR-SECNO+REGI
ISSUE,X'9C'
UNEQ,ICCOUT
RI0,ICAW+5
X'DO'
Al2131
Al2(ICAW+6-SECNOl
Al21ICAW+5-5ECNOl
X'DO'
X'EO'
X'OS'
Al2IICAW-SECNO+REGl
I BLAH+ 1131, ICC W
ICNT,X'16'
RI0,SAVI0
WORK(8),0IRI01
R9,ICOUT

BR. IF UNEQUAL
BR. IF NO CSW 2 EXPECT ED
BR. IF NO CSW 2 RECIEVED
UPDATE TO SECOND CSW
COMPARE FOR EXPECTED CSW 2
BR. IF EQUAL
INDICATE AN ERROR
SET UP FOR ERROR PRINTOUT
CHECK FOR A DETECTED ERROR
BR. IF ERROR DETECTED
CHECK SECTION SENSE SWITCH 7
BR. IF OFF
SET UP FOR CORRECT PRINTOUT
MOVE TEST NUMBER TO PRINT
CONVERT TEST NUM8ER

PRINT TEST NUMBER

ADJUST lINK ADDRESS fOR PRINTOUT
CONIIERT LINK ADDRESS

PRINT lINK ADDRESS

BR. IF NO 1-0 COMMAND ISSUED
CONIIERT 1-0 ADDRESS

PRINT 1-0 ADDRESS

COMPARE FOR SID COMMAND
BR. IF NOT
STORE CCW ADOR.
CONIIERT CAW

PRINT CAW

MOVE -CCW- TO MESSAGE
ADJUST COUNT
MOVE CONTENTS OF REG 10 TO SAllE
MOllE CCW TO WORK AREA
BR. TO OUTPUT CCW

10
PAGE

F832-5
1

01318
0131C
01380
01384
01368
0138A
0138C
0138E
01390
01396
0139C
0139E
0139F
OUAO
013A2
013A4
OUAA
013AE
013BO
013Bl
013B2
013B4
013B6
013B1
013B8
013BA
013CO
013C4
013C8
013CC
01302
01306
013DA
013DE
013E2
013E8
O13EC
013FO
013F4
013FA
01400
01404
01408
0140C
01412
01418
0141C
01420
01424
0142A
01430
01434
0143A
0143E
01442
01"44
01"46
01448
0144A
0144C
01440
0144E
01450
01"52
01454

DATE
EC'S

91 CO
41 80
41 AA
47 FO
OA DO
0008
0408
0408
02 07
02 07
OA 00
EO
lA
F545
01 F9
02 00
58 AD
OA DO
EO
OA
F500
OA 00
EO
OA
F50A
02 02
92 III

91 OB
"7 80
02 02
4B 86
40 80
"1 88
"0 80
02 01
45 90
91 40
41 80
02 02
02 01
45 90
91 04
41 80
02 02
02 01
45 90
91 20
41 80
02 02
02 07
45 90
02 00
91 04
41 80
OA 00
0001
056A
056A
OA DO
EO
DB
F565
OA DO
0001
0515

A
F
0
F

004
3A4
008
36E

54A
F 553

F

F 505
F "F8

546
F 39F
B 000
F 3EC
F 55C
0 006
F 3E6
0 008
F 416
F 408
F 388
F OE4
F "04
F 55C
F "DB
F 388
B 000
F "lC
F 55C
F 408
F 38B
F OE4
F 434
F 55C
F 408
F 388
F 56A
F OE4
F 45E
F

F 408
F 4EO

B 004

F 53F

F 562

F 408

F 55F
F 502

F 562
F 408

F 55F
F 5DA
B 005

842
843
844
845
846
B41
848
849
850
851
852
853
854
855
856
B51
858
859
860
861
862
863
864
865
B66
867
86B
869
810
B11
B12
B13
874
875
816
811
81B
B79
880
881
882
B83
88"
885
8B6
881
888
889
890
B91
892
893
B94
B95
896
897
898
899
900
901
902
903
904
905
906

15MAR66 15NOV66 120CT67
125632 125655 131812

TM
BC
LA
BC
ICOUT SVC
DC
DC
DC
MVC
MIIC
' SVC
DC
ICNT
DC
DC
BCR
ICCOUT MVC
l
SVC
DC
DC
DC
SVC
DC
DC
DC
IOCS\; MIIC
MVI
TM

BC
MVC
lH
5TH
LII
STH
ICHNGI MIIC
BAl
10101 TM
BC
MIIC
MIIC
BAl
IMORST TM
8C
MIIC
ICHNG2 MIIC
BAl
TM
IDID
BC
MIIC
MIIC
BAl
IPAS
MIIC
TM
BC
SIIC
DC
DC
DC
SIIC
DC
DC
DC
SVC
DC
DC

4IRI01,X'CO'
NONE,ICCOUT
RI0,81RI01
UNC,ICWOUT
X'OO'
Al21BI
Al2IWORK-SECNOl
Al21 WORK-SECNO I
1BUIH+5 I B I, WORK
IBlAH+l"181,wORK+8
X'DO'
X'EO'
X'll1'
Al2(IBlAH-SECNO+REGI
UNC,R9
IEXPCC+5(11,4IRl11
RIO,! SLAVE
X'OO'
X'EO'
X'OA'
Al2IIEXPCC-SECNO+REGI
X'DO'
X'EO'
X'OA'
Al2IIACTCC-5ECNO+REGI
16lAH+U3I,ICSW
ICNT,X'lA'
0IRlll,X'08'
NONE, 10101
IBUIH+2313I,IEXP
R8,61Rlli
R8,ICHNGl+4
RB,BIRBI
R8,ICHNG2+4
WORK(8) ,WORK
R9,ICOUT
ISW,X'40'
NONE,IMORST
18lAH+23(3) ,IACT
WORK(8J,ICSWl
R9,ICOUT
o ( R111 ,X' 04 '
NONE,IOID
IBlAH+23(31,IEXP
WORK(8),WORK
R9,ICOUT
ISW,X'20'
NONE,IPAS
IBlAH+23131,IACT
WORK(8I,ICSW2
R9,ICOUT
IEXSNS+511t,5IRl11
ISW,X'04'
NONEtiPASS
X'DD'
Al2(1)
Al2(IEXSNS+5-SECNOI
Al2(IEXSNS+5-SECNO)
X'DO'
X'EO'
X'OB'
Al21IEXSN5-SECNO+REG)
X'OO'
Al2U)
Al2(IACSNS+5-SECNOI

CHECK FOR ANY CHAIN FLAGS
BR. IF NONE
UPDATE TO'NEXT CCW
BR. UNCONDITIONAL
CONVERT

MOVE TO MESSAGE
PRINT

RETURN VIA REG 9
MOllE EXP CC TO MESSAGE
RESTORE REG 10
PRI NT EXPECTED CONDo CODE

PRINT ACTUAL COND. CODE

MOllE -CSW- TO MESSIIGE
ADJUST COUNT
SR. IF NO CSW EXPECTED
MOVE -EXP- TO MESSAGE

MOllE EXPECTED CSW TO WORK AREA
SR. TO OUTPUT EXPECTED CSW
BR. IF NO CSW STORED
MOVE -ACT- TO MESSAGE
MOllE IICTUAL CSW TO WORK AREA
BR. TO OUTPUT ACTUAL CSW
BR. IF NOT EXPECTING 2 CSWS
MOVE -EXP- TO MESSAGE
MOVE EXPECTED CSW TO WORK AREA
SR. TO OUTPUT EXPECTED CSW 2
BR. IF NO SECOND CSW STORED
MOVE -ACT- TO MESSAGE
MOVE CSW TO WORK AREA
MOVE EXP SENSE TO MESSAGE
BR. iF NO SENSE DATA RECIEVEO
CONVERT EXPECTED SENSE

PRINT EXPECTED SENSE

(0

PAGE

F832-5
7A

o

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840108

PAGE

8

1403 PRINTER FUNCTION 3
01456
Q1458
0145A
0145B
0145C
0145E
01462
01466
0146C
0146E
01410
01412
01414.
0141A
01480
01486
0148C
014BE
0148F
01490
01492
01496
0149A
0l49E
014A2
014A4
014A5
014A6
014A8
014AA
014AB
014AC
014AE
01482
01486
0148A
0148E
014CO
014C4
014C8
014CC
01400
01404
01406
01408
014FO
014F8
01500
01508
0150A
01512
01514
0151C
01523
01524
01523
01523
0152B
01533
01534
01533
01533
01538
0153F
01542

DATE
EC'S

:~!

V

0515
OA DO

EO. .

OB
F510
95 30
41 60
02 OB
OA 00
OOOC
0408
0408
02 01
02 05
02 05
02 05
OA DO
EO
lC
F51B
91 02
41 80
94 fD
41 FO

E 181
F 4A2
F 408

F 5BO

F 583
F 58A
F 591

o 080

F 408
F 4DA
F 4E2
F 'tEA

F OE4

F 4A2
F DE4
F IB4

CO
32
PjAO
OA DO
AO

01
F523
50 AD
91 CO
41 50
91 01
01 15
91 08
41 80
41 B8
41 BB
98 89
01 fB
01 00

o 048
F 004
F 11C
FOES
BODO
F 4CC
o 002
o 006
F 4FO

0000000000000000
0000000000000000
40C3C34040E140C5
El01
40C3C34040E140Cl
C3E3
40CIC40940E1E1E1
E1E1E140E2C9D6
00

.

40CIC4D940E1E1El
E1E1E140D3C9D5D2
00
40C3CIE640ElflEl
E1E1E140
C3E2E6
C3C3E6

901
908
909
910
911
912
913
914
915
916
911
918
919
920
921
922
923
924
925
926
921
929
930
931
932
933
934
935
936
931
938
939
940
941
942
943
944
945
946
941
948
949
950
951
952
953
954
955
956
951
958
959
960

DC
DC
DC
ST
TM
BC
TM
8eR
lLEAVE TM
Be
LA
IUP
LA
lM
BCR
CNOP
WORK
OS
ISAVE DC
ISLAVE DC
IEXPCC DC

Al21IACSNS+S-SECNOI
X'DO'
X'EO'
X'OIl'
Al21IAeSNS-SECNO+REG)
SYSMOOIR14) ,X'30'
UNEQ,IOPOUT
WORKI121,lOGOUT
X'OD'
AL21l21
Al2 I WORK- SECNO I
Al2IWORK-SECNOI
IOlOG+5(2) ,WORK
IOlOG+BI61,WORK+2
IOlOG+15161,WORK+I0
IOlOG+22(6),WORK+18
X'DO'
X'EO'
X'IC'
Al2110l0G-SECNO+REGI
ISW,X'02'
NONE,IOPOUT
ISW,X'FD'
UNC, I WAI·T
X'DO'
X'CO'
X'32'
Al2110PTl-SECNO+REGI
X'DO'
X'AO'
X'Ol'
Al2IIlINK-SECNO+REGI
R10,HCAWIR131
SNSW,X'CO'
ANY,ITRYl
ISW+l,X'OI'
ALL ,RS
01Rlll,X'08'
NONE,IUP
Rll,21Rlll
Rll,61Rlll
R8,R9'(SAVE
UNC ,Rll
0,8
24C
Xl8'0'
Xl8' 0'
C' CC X EXP'

IACTCC DC

C' CC

IPASS

De
SVC
De
DC
DC
eLI
Be
MVC

sve

DC
DC
De

Mve

MVC
MVC
MVC

sve

De
DC
OC
TM
8C
NI
8C
10POUT SVC
IFLAG2 DC
DC
De

sve

IOADDR DC

PRINT ACTUAL SENSE DATA

CHECK FOR MODEL 30
BR. IF NOT
MOVE lOGOUT TO WORK AREA
CONVERT

MOVE lOG OUT TO MESSAGE

PRINT LOG OUT

BR. IF NOT UIO
RESET UIO SWITCH
BR. UNCONDITIONAL
PRINT lOOP OPTIONS THEN HALT

SPACE A LINE

STORE CAW
CHECK SECTION SENSE SWITCH 0 AND 1
BR. IF ANY ON
RETURN VIA REG 5 IF HANG UP

RESTORE REGS 8 AND 9
RETURN VIA REG 11

',"

I

01120
01122
01126
0112A
0112C
01130
01134
01738
0113C
01140
01144
01148
0114e
01152
01158
011SE
01162
01166
0116C
01112
01118
0111A
0111B
0111C

REGISTER SAVE AREA

X ACT'

C' ADR XXXXXX SIO'
X'OO'
0,4
*-1
C' ADR XXXXXX lINK'

ILINK

DC
CNOP
ORG
De

961
962
963
964

IeAW

De
CNDP
ORG
DC

X'OO'
0,4
*-1
C' CAW xXXXXX •

965
966

ICSW
ICCW

DC
DC

C'CSW'
C'CCW'

01545
01540
01555
01550
0155F
01562
01565
01560
01510
01518
0151B
01583
0158B
01593
01591
0159F
015AO
015A8
015110
01588
015CO
015C8
01500
01502
I 0150A
U1SE2
015E8
015FO
015F3
U15F4
015F5
015FO
01605
·01600
0160E
01692
01116
01118

40C3E2E640E1E1E7
E1E1E1E1E740E7El
E1E1E1E1E1E140C5
E101
CIC3E3
C5E101
40E205E240E1E140
C5E701
40E205E240E1E140
C1C3E3
400306C140E1E140
E1E1E7E7E1E140E7
E1E1E1E1E140E1E7
E1E7E7 E1
40E3E2E340E1E1El

10
PAGE

o o o

F832-5
8

DATE
EC '5

961

IBlAH

OC

C' CSW XXXXXXXX XX'

968

DC

C'XXXXXX EXP'

969
910
911

IACT
DC
IEXP
DC
IEXSNS DC

C'ACT'
C'EXP'
C' SNS xx EXP'

912

IACSNS DC

C' SNS xx ACT'

973

IOlOG

xx

x'

OC

C' lOG

914

OC

C'XXXXX XXXXXX'

915

ITSTNO DC

C' TST XXXX'

976

IOPTl

OC

C' S5 0 ON FOR lOO'

OC

C'P ON SIO, S5 1 0'

XXXXXX

E1

40E2E240F0400605
40C6060940030606
0140060540E2C906
6B40E2E240F14006
0540C6060940E3C9
0640E2C906400306
0601
0000000000000000
0000000000000000
000000000000
0400151500000001
00ll6E
FE
01
40E2C5CS40C4CSE2
C309C901E3C90605
60C3060404C505E3
E2

911
918

DC

C'N FOR TIO SID lO'

919
980
981

ICSWI
ICSW2

OC
DC
OC

C'OP'
Xl8'O'
Xl8'O'

982
983
984
985
9B6

ISENSE
10AOR
MSKI
MSK2
ClUIN

CCW
DC
OC
DC
DC

X'04',IACSNS+5,X'OO',1
Al3/ISSUEI
X'FE' .
X'OI'
C' SEE DESCRIPTION'·

DC

C'-COMMENTS'

CKAR
ORAR

OS
OS

132C
132C

ROCCW

CCW

X'02',DRAR,X'00',132

9Bl
988
989

00 00
0200169200000084

BR. IF NO CSW EXPECTED
UPOATE liNK ADDRESS FOR RETURN

15MAR66 15NOV66 120CT61
125632 125655 131812

,0···,'... ··1.

PIN 840108
PAGE
8A

1403 PRINTER FUNCTION 3

928

OA DO

IBM MAINTENANCE DIAGNOSTIC PROGRAM

1B DO
91 40
47 80
18 OF
92 FB
58 CO
54 CO
49 CO
41 80
40 CO
91 10
41 80
02 02
02 02
02 02
91 80
41 10
02 02
02 02
02 02
04 00
04
2B
FFAB

E 196
F 130
F
F
F
F
F

8EO
OEO
81C
lFC
180

F 1FC

F OE1
F 102
F FB9
F FC4
F FCB
FOOl
F 17B
F FB9
F FC4
F FCB

F 5A6
F FD6
F F83
F F06
F 5A6
F FCA

990
991
992
993
994
995
996
991
998
999
1000
1001
1002
1003
1004
1005
1006
1001
1008
1009
1010
1011
1012
1013
1014
1015
1016
1011

***********************************************************************
*
INITIAlIlE ROUTINE
***********************************************************************
INIT

SR
TM
BC
lR
MVI
NITWIT l
N

OARIO

15MAR66 15NOV66 120CT61
125632 12S655 131B12

00

CH
BC
STH
TM
BC
MVC
MVC
MVC
TM
BC
MVC
MVC
MVC
SVC
DC
OC
DC

R13,R13
4061R141,X'40'
NONE,NITWIT
RB,R15
lOAD,X'FB'
R12 ,UNI Tl
R12,MOOSO
R12,SAVOEV
EQ,RlOOP
R12,SAVDEV
UNITl+l, X'10'
NONE,SCAT
FERRO+14131,IOPTl+6
FERRO+25131,OFF
FERRO+32(3) ,NOT
SNSW+3,X'80'
ALL,DARIO
FERRO+l4(3) ,OFF
FERRO+25131,IOPT1+6
FERRO+32131,FERRO+31
X'OO'
X'04'
X' 2B' .
Al21FERRO-SECNO+REG)

ZERO REG 13
CHECK fOR FORCEO PROBLEM STATE
BR. IF NOT
SET UP FOR PROBLEM STATE
INSURE lOAD NO FOLD
lOAO REG 12 WITH UNIT TABLE ENTRY
AND OUT UNUSED BITS
COMPARE FOR CURRENT DEVICE ADDRESS
BR. IF EQUAL
SAVE CURRENT DEVICE ADDRESS
CHECK FOR UCS FEATURE

MOVE WORD -ON - TO MSG
MOVE WORO -OFF- TO MSG
MOVE WORD -NOT- TO MSG
TEST FOR OUAlING MODE
8R. IF OUALING MODE
MOVE WORD -OFF- TO MSG
MOVE WORD -ON - TO MSG
BLANK 'OUT WORD -NOTPRINT SS 24MSG

10
PAGE

F832~5

SA

o

" 0':..; 0····,.,," 0',,':·' 0',','
0·· · 0'· 0"',' U'
'·,1

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 8 ... 0108
PAGE
9

1403 PRINTER FUNCTION 3
0177E
01780
01784
01788
0178E
01792
01798
0179E
017AO
017A6
011AA
011AE
017B2
01184
017B5
017B6
011B8
011BA
017BC
017BE
011C2
011C6
011CA
017CE
011D2
011D4
01705
011D6
011D8
0110A
011E2
Ol1EA
011F2
017F9
017FA
Ol1FC
017FE
01806
0180E
01816
01818
01818
0181C
01820
0182.1
018A5

018A6
018AC
018B2
018B8
018BC
018CO
018C4
018C6
018C8
018CA
018CC
018CE
01800
01808
018EO
018E8

DATE
EC'S

Oil
91
41
D2
92
D2
D2
07
D2
94
96
9B
Oil
64

DA
BO
10
00
40
EF
83
F4
00
IF
01
AB
00

F OE4
F lAO
F BA5
F 9FB
F 9FC
F B21
F 003
F OE4
F OE5
F 4F8

F 003
F 9FB
F 9FB
F 8A5

1A

F7FE
OA DO
A019
F5F5
45 50 F 23B
92 01 F 003
94 FE F OE5
92 00 F OE4
41 FO F 780
OA 00
04
IF
Fl0A
OA 05
40C4C5E5C9C3C540
C2E8DICIE2E2C5C4
60D5D640E4C3E240
C4C5C6C905C5C4
00
01 00
FFFF
40Dl09C5E5C9D6E4
E240C8CID5C740E4
D140C4C5E3C5C3E3
C5C4
00000000
00003FFF
40
00

02 OF F 9FB F C15
02 OF F AOB F 9F8
02 01 F 8C6 5 000
41 55 o 002
41 AO F 800
45 80 F OE6
3EOO
0000
FOOO
FeEB
01 F5
00 00
E800182140000001
lB00182140000001
FB0019FBOOOOOOFO
0000lBE8

.',"J

,.'1

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 8100108
PAGE
9A

1403 PRINTER FUNCTION 3
1018
1019
1020
1021
1022
1023
1024
1025
1026
1021
102B
1029
1030
1031
1032
1033
1034
1035
1036
1031
103B
1039
1040
1041
1042
1043
1044
1045
1046
1041

STAY
BLOOP

SVC
TM
BC
MVC
MVI
MVC
MVC
BCR
HANGUP MVC
NI
01
lM
SVC
DC
DC
DC
SVC
DC
DC
BAl
MVI
NI
MVI
BC
SCAT
SVC
DC
DC
DC
SVC
SCATEl DC

1048
1049
1050
1051

DC
CNOP
SAVDEV DC
HUNG
DC

1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1010
1011
1012
1073
1074
1015
1076

15MAR66 1~NOV66 120CT67
125632 125655 131812

DC

X'DA'
ISW,X'80'
All,HANGUP
RTSAVl11,SECND+3
lDAR,X'40'
lOAR+1(2401,LOAR
PRARI1321,LDAR
UNC,R4
SECNO+3111,RTSAV
ISW,X'7F'
ISW+l,X'Ol'
RI0,Rll,ISLAVE
X'DO'
X'64'
X'lA'
AL2IHUNG-SECNO+REGI
X'OO'
X'A019'
AL21CLUIN-SECND+REGI
R5, IDOSNS
SECNO+3,X'Ol'
ISW+1,X'FE'
ISW,X'OO'
UNC,BlOOP
X'DO'
X·O ... •
X'lF'
Al21SCATEL-SECNO+REGI
X',05'
C' DEVICE BYPASSED'

HALT

SS ALTERATION
FOR HANG UP
BR •. IF DETECTED
SAV~ROUTINE NUMBER
CLEAR LOAD AREA
FO~

01BEC
018FO
01BF4
018FB

CHF.C~

08000000
00000000
04000000

CLEAR PRINT AREA
RETURN VIA REG 4
MOVE RTN NO. THAT HANG WAS FOUND
RESTORE REGS 10 AND 11
PRINT
-PREVIOUS HANGUP DETECTED-

BR. TO OUTPUT AVAILABLE INFO
RESTORE TO ROUTINE 01
RESET HANGUP SWITCH

C'-NO UCS DEFINED'
0,4
X'FFFF' .
C' PREVIOUS HANG U'
C • P DE TEC TED'

CNOP 0,4
DC
XL4'O'
DC
X'00003FFF'
DC
X'40'
PRAR
OS
132C
RTSAV DC
X'OO'
***********************************************************~***********
LOAD UCS SUB-ROUTINE
SAVIO
MOD50

01BFB
01BF9
018FC
01900
01904
01906
0190A
0190E
01910
01914
0191B
0191C
01920
01924
01926
0192B
0192A
0192C
01930
01934
0193B
0193C
0193E
01940
01942
01944
01946
01948
01950
0195B
0195C
01960
01964
0196B

01
000968
45 40 F 120
45 50 F BB2
0010
92 F3 F 8EO
45 50 F 882
0020
92 FB F BEO
92 EF F 957
92 00 F 95F
41 AO F 94B
45 BO F OE6
3EOO
0030
FOOO
F958
92 F1 F 957
92 01 F 95F
41 AO F 948
45 BO F OE6
3EOO
0040
FOOO
F958
OA 06
00 00
EB0019FB40000001
FB0019FBOOOOOOFO
00001958
08400000
00000000
04000000

*

***********************************************************************
ECONMY MVC
MVC
lOADIT MVC
LA
LA
BAL
DC
MUMB
DC
DC
DC
BCR

LDARI161,CHAR16
LDAR+1612241,LDAR
MUMB121,01R51
R5,2IR5)
RI0,PRElO
Rll,ISIO
X'3EOO'
X'OOOO'
X' FOOO'
Al2ILDCSW-SECNO+REGI
UNC.R5

PRElD

X'EB',PRAR,X'40',1
X'7B',PRAR,X'40',1
X'FB',LDAR,X'00',240
AllDCSWI

LOAD
lDCSW

CCW
CCW
CCW
DC

LOAD CHARACTERS INTO BUFFER
FIll BUFFER WITH 16 CHAR SETS
MOVE TEST NUMBER
UPDATE RETURN REG
LOAD CCW ADDRESS
8R. TO ISSUE SID
CTRl SW ITCHES
TEST NUMBER
EXP CONO CODE ANO SENSE
EXP CSW ADDRESS
RETURN VIA R5

10
PAGE

0196B
01969
0196C
01910
01914
01976
0197A
0197E
01980
01982
01984
01986
0198A
0198E

F832-5
9

DATE
EC'S

02
000B48
45 40
45 50
0050
41 AO
45 80
3COO
0060
F010
FBOO
41 AO
45 BO
3800

F' 120

F BB2
F AFO
F OE6

F B10
F OE6

1071
1018
1079
1080
1081
1082
1083
10B4
10B5
10B6
10Bl
10BB
1089
1090
1091
1092
1093
1094
1095
1096
1097
109B
1099
llOO
1101
1102
ll03
1104
1105
1106
llOl
1108
ll09
ll10
1111
lll2
1113
1114
1115
ll16
1117
1118
1119
1120
ll21
1122
1123
ll24
1125
1126
ll27
ll28
ll29
1130
ll31
1132
ll33
1134
1135
1136
1137
1138
1139
1140

15MAR66 15NDV66 120CT67
125632 125655 131812

DC
DC
DC
CNOP

X'OBOOOOOO'
XL4'O'
X'04000000'
0,4

***********************************************************************
* ROUTINE 01 - THIS ROUTINE RUNS ON UCS PRINTERS ONLY. ISSUE A PRE -

*

CONDITION LOAD COMMAND -EB-, COMMAND CHAINED TO A LOAD
THE UCS ~UFFER -FB- COMMAND. REPEAT WITK LOAD WITH
FOLDING -F3-. ISSUE LOAD WITH SHORT COUNT. ISSUE lOAD
WITH LONG COUNT.

*
*

*

**********~************************************************************

ROUT01 DC
DC
BAL
BAL
DC
MVI
BAL
DC
MVI
MVI
MVI
lA
BAL
DC
DC
DC
DC
MVI
MVI
LA
BAL
DC
DC
DC
DC
EXIT01 SVC

X'OI'
AL3IROUT02-SECNOI
R4,INIT
R5,lOADIT
X'0010'
LOAO,X'F3'
R5,lOADIT
X'0020'
lDAO,X'FB'
LDINC+7,X'EF'
INCCSW+7,X'OO'
R10,PREINC
R11,ISIO
X'3EOO'
X'0030'
X'FOOO'
AL21INCCSW-SECNO+REG)
LDINC+l,X'Fl'
INCCSW+7,X'01'
R10,PREINC
R11,ISIO
X'3EOO'
X' 0040'
X'FOOO'
AL2IINCCSW-SECNO+REGI
X'D6'

PREINC CCW
LDINC CCW
INCCSW DC
DC
DC
DC
CNOP

X'EB',LDAR,X'40',l
X'FB',LOAR,X'OO',240
AIINCCSWI
X'06400000'
XL4'O'
X'04000000'
0,4

ROUTINE NUMBER
ADDRESS OF NEXT ROUTINE
BR. TO INITIALIZE
BR. TO LOAD UCS
T EST
N U M 8 E
SET UP FOR FOLDING COMMAND
BR. TO lOAD UCS
T EST
N U M B E
RESTORE LOAD COMMAND
SET UP SHORT COUNT
SET UP 0 RESIDUAL COUNT
LOAD CCW ADDRESS
BR. TO ISSUE SIO
CTRL SWITCHES
T EST
N U H B E
EXP CONDo CODE AND SENSE
EXP CSW ADDR
SET UP LONG COUNT
SET UP 1 RESIDUAL COUNT
PLACE ADDR OF CCW IN REG 10
BR. TO ISSUE SIO
CONTROL SWITCHES
T EST
N U " 8 E
EXP COND CODE AND SENSE
EXP CSW ADDRESS
ROUTINE EXIT

R
R

R

R

***********************************************************************

*

*
*
*

ROUTINE 02 - LOAD UCS BUFFER WITH BLANKS. COMMAND CHAIN A PRE CONDITION LOAD -EB-, TO A WRITE NO SPACE -01- COMMAND.
EXPECT UNIT CHECK AND EQUIPMENT CHECK.
ISSUE DIAGNOSTIC
CHECK READ. EXPECT PRINT CHECK IN EVERY POSITION.

***********************************************************************
ROUT02 DC
DC
8AL
BAL
DC
LA
BAL
DC
DC
DC
DC
LA
8Al
DC

X'02'
Al3IROUT03-SECNOI
R4,INIT
R5,LOADIT
X'0050'
R10,PCLOAD
R11,ISIO
XL2'3COO'
X'0060'
X'F010'
Al2IPCLCSW-SECNO+REGI
R10,DOCKRO
R11,ISIO
X'3800'

ROUTINE NUMBER
ADDRESS OF NEXT ROUTINE
BR. TO INITIALIZE
GO TO UCS lOAD ROUTINE
T EST
N U M 8 E
PLACE CCW ADDRESS IN REG 10
GO DO SIO
CONTROL SWITCHES
T EST
N U M B E
EXP COND CODE - EXP SENSE
ADDRESS OF CSW
LOAD ADDRESS OF CCW
GO DO SID
CONTROL SWITCHES

ID
PAGE

R

R

F832-5
9A

o

0·· ·" 0··'"
i/

.

',,'

,:,

o

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840108
PAGE
10

IBM MAINTENANCE DIAGNOSTIC PROGRAM

1403 PRINTER FUNCTION 3
01990 0070
01992 FOlD
01994 F8 l8
01996 92 00 F CI0
0199A 41 70 0 084
0199E 41 50 F 691
019A2 91 02 5 000
019A6 47 80 F 9CA
019AA 46 50 F 9AE
019AE 46 70 F 9A2
019B2 91 01 F C10
019B6 47 80 F 9C8
019BA 41 AO F AFO
019BE 45 80 F 4A2
019C2 000000000000
019C8 OA 06
019CA 91 01 F CI0
019CE 47 10 F 9E2
01902 96 01 F CI0
01906 OA 00
01908 64
01909 09
0190A F820
0190C OA 00
0190E AO
019DF IF
019EO F829
019E2 4E 70 F 408
019E6 F3 21 F C12 F 40E
019EC 96 FO F C14
019FO OA 00
019F2 AO
019F3 04
019F4 FCll
019F6 47 FO F 9AA
019FA 40
019FB
OlAEB 0000000000
OlAFO EB0019FB40000001
OlAF8 0100182100000084
01BOO 00001800
01B04 08000000
01B08 00000000
01BOC 06000000
01BI0 0600160E20000084
01B18 000011H8
01BIC OEOOOOOO
01B20 40E3E2E340FOFOF8
01B28 ' FO
01B29 40C6C1C903C5C440
01B31 ' E30640E2C5E34007
01B39 09E340C3C8C5C302
01B41 40C905400706E2
01B48

1403 PRINTER FUNCTION 3
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168
1169
1170

T EST
N U M, 8, E R
EXP CONO CODE - EXP SENSE
ADDRESS OF CSW
TURN OFF TITLE SW
INITIALIZE COUNT OF PRT POS
INSERT ADOR OF CHECK READ AREA
TEST FOR PRINT CHECK
8R. IF NO PRINT CHECK
DECREMENT CHECK READ POSITION
DECREMENT POSITION COUNTER
SEE IF TITLE PRINTED
8R. IF NO TITLE PRINTED
SET UP TO REPEAT WRITE CCW
BR. TO PRINT LOOP OPTION AND HALT

1177

1178
1179
1180
11Bl
1182
11B3
1184
1185
1186
11B7

PC LOAD CCW
PRINTA CCW
PClCSW DC
DC
DC
DC
OOCKRO CCW
CHKRO DC
OC
BLAB
DC

X'EB',lPAR,X'40',1
X'OI',PRAR,X'00',132
A(PClCSW)
X'OOOOOOOO'
Xl4'O'
X'06000000'
X'06',CKAR,X'20',132
A(CHKRO)
X'OEOOOOOO'
C' TST 0080'

PRE-CONDITION LOAD
WRITE
ADDRESS OF CSW
CSW

1188

BLABI

DC

C' FAilED TO SET P'

DC

C'RT CHECK IN POS'

1171

1172
1173
1174
1175
1176

llB9
1190
1191

DATE
EC'S

03
000C28
45 40 F 720
45 50 F 8A6
0090

DC
DC
DC
MVI
lA
lA
AGAIN TM
BC
CYCLE BCT
BCT
TM
BC
lA
BAl
DC
EXIT02 SVC
NOPTCK TM
BC

X'0070'
X'FOI0'
Al2(CHKRD-SECNO+REGJ
SKORCH,X'OO'
R7,132
R5,CKAR+131
0(R51,X'02'
NONE,NOPTCK
R5,*+4
R7,AGAIN
SKORCH,X'Ol'
NONE,EXIT02
RIO,PClOAO
Rll,IOPOUT
Xl6'0'
X'06'
SKORCH,X'OI'
All,DIOTlE
01
'SKORCH,X'OI'
SVC
X'DO'
DC
X'64'
DC
X'09'
DC
Al2(BlAB-SECNO+REGJ
SVC
X'DO'
DC
X'AO'
DC
X'IF'
Al2(BlABI-SECNO+REGI
DC
OIDTlE CVO
R7,WORK
UNPK POS+l(31,WORK+6(2)
01
POS+3,X'FO'
SVC
X'DO'
DC
X'AO'
DC
X'04'
DC
Al2(POS-SECNO+REG)
UNC,CYClE
BC
BLANK DC
X'40'
lOAR
OS
HOC

1192
1193
1194
01B48
01849
01B4C
01850
01854

PIN 840108
PAGE
lOA

1195
1196

1197
1198

1199
1200
1201

01B56 92 Cl F 821
01B5A 02 82 F 822 F 821
01860 41 AO F AF8
01B64 45 BO F OE6
01B68 3COO
0186A 0100
01B6C F008
0186E FBOO
0lBl0 41 AO F 810
01B14 45 BO F OE6
01B78 3800
01B7A 0110
01B1C F010
0181E FB18
01B80 92 00 F C10
01B84 41 70 0 084
0lB88 41 80 F 691
0188C 91 04 8 000
01B90 41 10 F BB4
01894 46 80 F B9B
01898 46 10 F BSC
0189C 91 01 F CI0
018AO 47 80 F 8B2
01BA4 41 AO F AF8
OIBAB 45 BO F 4A2
018AC 000000000000
01B82 OA 06
01BB4 91 01 F CI0
01888 41 10 F BCC
018BC 96 01 F CI0
01BCO OA DO
01BC2 64
018C3 09
018C4 FCOl
018C6 OA DO
01BC8 AO
01BC9 23
01BCA F8E4
018CC 4E 70 F 408
OIBOO F3 21 F C12 F 4DE
01B06 96 fO F C14
0180A OA 00
01BOC AO
01BDO 04
01BOE FCll
01BEO 41 FO F 894
01BE4 400703C340C2C9E3
018EC 40C5090906D5C506
. 0lBF4 E4E203E84006D540
01BFC C905400106E2C9E3
01C04 C9D605
01COl 40E3E2E340FOFIF2
01COF FO
01C10 00
01Cll 40E1E7E1
01C15 FOFIF2F3F4F5F6Fl
01CID F8F9FAF8FCFDFEFF
01C25 00
01C26 07 00

EXIT
CHECK FOR TITLE PRINTED
BR. IF TITLE PRINTED
TURN ON TITLE SW

CONVERT TO DECIMAL
UNPACK

BR. FOR MORE
BLANK
UCS BUFFER LOAD AREA

DIAG CHECK READ CCW
TEST

NU

B

E

R

CNOP 0,4
••• * ••• *****************.**** ••• **.* ••• *.*.*** •• ***.*.*.*** ••• *******.*
* ROUTINE 03 - LOAD UCS BUFFER WITH
16 CHARACTER SETS. PRINT 132
*
CHARACTERS WHICH ARE NOT IN THE UCS 8UFFER. EXPECT
*
UNIT CHECK AND DATA CHECK. ISSUE CHECK READ. EXPECT NO
•
PLC BITS TO BE SET ON.
••• ** ••• * ••••• *.** ••••••••• * ••••••••• * ••••••• ***••••• * •• *.* ••• * •••• *.**
ROUT03 DC
X'03'
ROUTINE NUMBER
DC
AL3(ROUT04-SECNO)
ADDRESS OF NEXT ROUTINE
BAl
R4,INIT
BR. TO .INITIALIZE
BAL
R5,ECONMY
GO TO LOAD UCS ROUTINE
DC
X'0090'
T EST
N U 11 B E R

15MAR66 15NOV66 120CT67
125632 125655 131812

F832-5
10

10

PAGE

DATE
EC'S

1202
1203
1204
1205
1206
1201
1208
1209
1210
1211
1212
1213
1214
1215
1216
1211
1218
1219
1220
1221
1222
1223
1224
1225
1226
1221
122S
1229
1230
1231
1232
1233
1234
1235
1236
1231
1238
1239
1240
1241
1242
1243
1244
1245
1246
1241
1248

MVI
MVC
LA

BAl
DC
DC
DC
DC
lA
BAL
DC
DC
DC
~C'

MVI
LA

LA
TM
BC
TIC
BCT
8CT
TM
BC
lA
BAL
DC
EXIT03 SVC
ERED
TM
8C

TECT

01

NOHDR

SVC
DC
DC
DC
SVC
DC
DC
DC
CVO
UNPK
01

SVC
DC
DC
DC
8C
MITHEO DC

PRAR,X'Cl'
PRAR+11131),PRAR
RlO,PRINTA
Rll.lSIO
Xl2'3COO'
X'OlOO'
X'FOOS'
,
AL2IPCLCSN-SECNO+REG)
R10,DOCKRD
Rll,ISIO
X'3800'
X'OllO'
X'FOI0'
AL2(CHKRD-SECNO+REG)
SKORCH,X'OO'
R7,132
R8,CKAR+131
0(RO),X'04'
ALL,ERED
R8,*+4
Rl,TECT
SKORCH,X'Ol'
NONE,EXIT03
RI0,PRINTA
Rll,lOPOUT
XL6'O'
X'D6'
SKORCH,X'OI'
AlL.NOHDR
SKORCH,X'Ol'
X'OO'
X'64'
X'09'
AL2(TSTELL-SECNO+REG)
X'OO'
X'AO'
X'23'
AL2(MITHEO-SECNO+REG)
Rl,WORK
POS+l(31,NORK+6(2)
POS+3,X'FO'
X'OO'
X'AO'
X'04'
Al2(POS-SECNO+REG)
UNC, TIC
C' PLC BIT ERRONEO'

MOVE -A- INTO PRINT AREA
LOAD PRINT AREA WITH -ASET ADDRESS OF CCN IN REG 10
GO 00 SIO
CONTROL SWITCHES
T EST
N U M B E R
EXP CDND CODE - EXP SENSE
ADDRESS OF EXP CSW
LOAD ADDRESS OF CCW
GO 00 SID
CONTROL SWITCHES
T EST
N U M B E R
EXP COND CODE - EXP SENSE
AOORESS OF CSN
RESET SWITCH
SETUP TO CHECK 132 POS
LOAD ADDR POS 132
CHECK FOR PLC BIT
BR. IF IF ON
DECREMENT ADDRESS
BR UNTIL 132 CHECKED
SEE IF PRINTED HEADING
SET UP lOOP CCN
GO PRINT LOOP MESSAGE
ROUTINE EXIT
CHECK FOR HEAOING'PRINTED
8R IF HEADING WAS PRINTED
INDICATE HEADING PRINTED

CORRECT PRINT, POS TO DECIMAL

1249

DC

1250
1251

DC
TSTELL DC

C'ION'
C' TST 0120'

1252
1253
1254

SKORCH DC
POS
DC
CHAR16 DC

X'OO'
C' XXX'
X'FOFIF2F3F4F5F6F7F8F9FAFBFCFDFEFF'

1255
1256
1257
1258
1259
1260
1261

CNOP 0,4
***************.*.*****.********* •••••• * •• * •••••*** ••* •••••• * •••••• *.*.
* ROUTINE 04 - lOAD UCS BUFFER WITH A 16 CHARACTER SET. ISSUE BLOCK
*
DATA CHECK COMMAND -73-. PRINT A LINE OF CHARACTERS
•
WHICH WilL NOT COMPARE. EXPECT NO DATA CHECK. ISSUE
*
ALLOW DATA CHECK COMMAND -78-. PRINT LINE AGAIN. EXPECT
•
DATA CHECK.

C'USLY ON IN POSIT'

15MAR66 15NOV66 120CT67
125632 125655 131812

T

EST

N U M B E R

10
PAGE

F832-5
lOA

!

------~-------.--------,.~.•.,. ._ - - - ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -......_-,1

~)

,-

I,

,')

;0 :0
Ii.'

,

I:

(()
In ,.
I,':'

I

0 0

f)

0

'>1,

,

I

'

{)

() 10 0 (0 0, !) :0
i.',

.

:1

"

"

,~)

.

'

()

't) '0 ,0 '0 '0 (0

o o c co

o o c c

0·"'·
'I],

0·· ·:'
, '

IBM M_INTEN_NCE DIAGNOSTIC PROGR_M

PIN 840108
PAGE
11

1403 PRINTER FUNCTION 3

01C28
01C29
PIC2C
01C30
OlC34
01C3b
01C3A
01C3E
01C40
01C42
01C44
01C4b
01C4A
01C50
01C54
01C58
01C5A
01C5C
01C5E
01C60
01C64
01C68
OlCbA
OlCbC
01C6E
01C70
01C74
01C78
01C7A
01C7C
01C7E
OlCBO
01CB2
OlCBB
01C90
01C9B
01C9C
01CAO
01CA4
01CA8
OlCAC
OlCBO

01CBO
01CBl
01CB4
OlCBB
OlCBC
01CCO
01CC2
01CC6
01CCA
01CCE
OlCDO
01CD2
01CD4
01CD6
OlCDA
01CDE
01CE2

DATE
EC'S

04
OOOCBO
45 40 F 720
45 50 F 8A6
0130
41 AO F C88
45 BO F OE6
4AOO
0140
FlOO
FCA8
92 Cl
F 821
02 82 F 822 F 821
41 AO F AF8
45 BO F OEb
3COO
0150
FOOO
FC98
41 AO F C90
45 BO F OE6
4AOO
0160
FlOO
FCA8
41 AO F AF8
45 BO F OE6
3COO
0170
F008
FBOO
OA Db
000000000000
73001B2100000001
7800182100000001
OOOOlBOO
08000000
00000000
04000000
00000000
OCOOOOOO

05
000004
45 40
92 FO
45 50
0180
92 Fl
41 AO
45 BO
3EOO
0190
FOOO
FC98
92 40
92 01
92 20
1t5 50

F 720

F 8E7
F 8A6

0

IBM MAINTENANCE DIAGNOSTIC PROGRAM

o c o

o 0 o
PIN 840108
PAGE
llA

1403 PRINTER FUNCTION 3
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1271
1278
1279
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294

•• *••••••••••••• *.*.***.**********.***** •• ***.**.** •••• *•• ****.********
ROUT04 DC
DC
BAL
BAL
DC
LA
BAL
DC
DC
DC
DC
MVI
MVC
LA
BAL
DC
DC
DC
DC
LA
BAL
DC
DC
DC
DC
LA
BAL
DC
DC
DC
DC
EXIT04 SVC

X' 04'
AL3IROUT05-SECNOI
R4,INIT
R5,ECONMY
X'0130'
RI0,BLOCK
Rl1,ISIO
XL2 '4AOO'
X' 0140'
X'F100'
AL2INDRM-SECNO+REGI
PRAR,C'A'
PRAR+l(1311,PRAR
R10,PRINTA
Rll,ISIO
XL2'3COO'
X'0150'
X'FOOO'
AL2(ZEIOER-SECNO+REGI
RI0,ALLOW
Rll,ISIO
XL2'4AOO'
X'0160'
X'FI00'
AL2INORM-SECNO+REGI
RlO,PRINTA
Rll,ISIO
XL2'3COO'
X'0170'
X'FOOB'
AL2(PCLCSW-SECNO+REGI
X'D6'

1295
1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
1306
1307
130B
1309
1310
1311
1312

BLOCK CCW
AllOW CCW
ZEIOER DC
DC
DC
DC
NORM
DC
DC
CNOP

X'13',PRAR,X'OO',1
X'7B',PRAR,X'OO',1
IIIPCLCSWI
X'08000000'
XL4'O'
X'04000000'
XL4'O'
X'OCOOOOOO'
0,4

1313

1314
F 821

1315

F AF8
F OE6

1316
1317

1318
1319
1320
1321
F 9FB
F BE7
F 8EIt
F BB2

o o

o 0 o

1322
1323

1324
1325

15MAR66 15NDV66 120CT67
125632 125655 131812

ROUT I NE NUM8ER "
ADDRESS OF NEXT ROUTINE
BR. TO INlTlALIZe
GO TO LOAD UCS ROUTINE
T EST
N U M B
LOAD CCW ADDRESS
BR. TO ISSUE SIO
CONTROL SWITCHES
T EST
N U M B
EXP COND CODE AND SENSE
EXP CSW ADDRESS
FILL PRINT AREA WITH -ALOAD PRINT CCW ADDRESS
BR. TO ISSUE SIO
CONTROL SWITCHES
TEST
NUMB
EXP CONDo CODE AND SENSE
EXP CSW ADDRESS
LOAD CCW AODR.
BR. TO ISSUE SID
CONTROL SWITCHES
TEST
NUMB
EXP CONO. CODE AND SENSE
EXP CSW ADDRESS
LOAD cew ADDRESS
BR. TO ISSUE SID
CONTROL SWITCHES
TEST
NUMB
EXP COND CODE AND SENSE
EXP ADDR OF esw
ROUTINE EXIT

E

R

E

R

E

E

R

E

R

******** •• **.*.*** •• *.***.**.**.**** •• *••• ** •••••• *••••••• **.***.**.***

ROUTINE 05 - LOAD ENTIRE UCS BUFFER WITH A 16 CHARACTER SET. PRINT
ONE OF THESE CHARACTERS. ISSUE A LOAD WITH COUNT OF 1.
•
PRINT CHARACTER AGAIN.

******* ••• **** •• *** ••• *••• *•••• *********.***.*** •• **.****************.*
X'OS'
AL3IROUT06-SECNOI
R4,INIT
LOAO+7,X'FO'
R5, ECONMY
X' 0 1 80'
PRAR,X'Fl'
RlO,PRINTA
R11,ISIO
XL2 '3EOO'
X'0190'
X'FOOO'
AL2(ZEIDER-SECNO+REG)
LDAR,X'40'
LOAD+7,X'Ol'
LOAD+4,X'20'
R5,LOADIT

ROUTINE NUMBER
ADDRESS OF NEXT ROUTINE
BR. TO INITIALIZE
INSURE COUNT OF 240
GO TO LOAD UCS ROUTl NE
T EST
N U M B E R
PUT -1- IN POSITION ONE OF PRT BFR
PLACE AODR OF PRINT CCW IN REG. 10
BR. TO PRINT ONE POSITION -1CONTROL SWITCHES
T EST
N U M B E R
EXP COND CODE - EXP SENSE
ADDRESS OF EXPECTED CSW
PLACE BLANK IN 1ST POS OF BUFfER LOR
SET LOADER CCW FOR COUNT OF -1SUPPRESS INCORRECT LENGTH RECORD
BR. TO LOAD UCS

10
PAGE

0200
41 AO
45 BO
3EOO
0210
FOOO
FC98
92 FO
92 00
OA Db
01 00

F AF8

F OE6

F SE7
F 8E4

R

*
*

ROUT05 DC
DC
BAL
MVI
BAL
DC
MVI
LA
BAl
DC
DC
DC
DC
MVI
I
MVI
MVI
BAL

01CE6
OlCEB
01CEC
01CFO
01CF2
01CF4
01CFb
01CF8
01CFC
01000
01002

F832-5
11

01004 06
01005 000E34
01008 45 40
OlOoe 41 80
01010 41 10
01014 42 7B
01018 4b 10
0101C 46 80
01020 02 BF
01026 45 50
01D2A 0220
01D2C 02 2F
01032 02 53
01038 41 AO
01D3C 45 80
01040 3EOO
01042 0230
01044 FOOO
01D4b FC9B
01048 41 AO
01D4C 45 80
01050 3AOO
01052 0240
01054 FOOO
01056 FOFO
01058 92 00
01D5e ' 05 83
01Db2 41 60
01Dbb 92 F3
01D6A 45 50
01D6E 0260
01070 41 BO
01074 42 B8
01078 4b BO
01D7C 02 53
010B2 41 AO
OlDB6 45 BO
01DBA 3EOO
01D8C 0270
01D8E FOOO
01090 FC98
01092 OA 06
01094 IB B8
01096 IS 77
01098 41 50
01D9C 43 15

DATE
EC'S

F 120

o
o

030
OFO
F 9FA
FDIC
F 014
F A2S F 9FB
F BB2,
F
F
F
F

821
851
AFB
OE6

F 9FB
F 821

F 718

F OEb

F
F
F
F
F

C10
821
094
8EO
8B2

o

030
820
014
B51
AF8
OE6

F
F
F
F
F

o

OB4
F 820

F 692

F 821

1326
1321
1328
1329
1330
1331
1332
1333
1334
1335
1336
1337
133B
1339
1340
1341
1342
1343
1344
1345
1346
1347
134B
1349
1350
1351
1352
1353
1354
1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
1371
1372
1373
1314
1375
1376
1377
1318
1379
13BO
13B1
13B2
1383
1384
1385
1386
1381
1388
1389
1390

l5MAR66 15NOV66 120CT67
125632 125655 131812

DC
LA
BAL
DC
DC
DC
DC
MVI
MVI
EXIT05 SVC
CNOP

l( O?OO'
R O?PRINTA
R 1,IS10
X 2'3EOO'
X 0210'
X'FOOO'
AL2(ZEIDER-SECNO+REGI
LOAD+7,X'FO'
LOAD+4,X'OO'
X'D6'
0,4

T EST
N U M B E R
PLACE ADDR OF PRINT CCW IN REG. 10
BR. TO PRINT DNE POSITION -1CONTROL SWITCHES
T EST
N U M B E R
EXP COND CODE - EXP SENSE
ADDRESS OF EXPECTED CSW
RESTORE CCW COUNT OF 240
RESTORE INCORRECT LENGTH CHECK
ROUTINE EXIT

.**.* •• *•••• *•• ** •• *•• *.*.** •• **.******.* •• *****.* ••*.**.**********.***

*
•
*

*
*
*

ROUTINE 06 - LOAD UCS BUFFER WITH 5 SETS OF 48 CHARACTERS. PRINT
A LINE. ISSUE DIAGNOSTIC READ. COMPARE FOR CORRECT
READ BACK. LOAD FOURTH QUADRANT CHARACTERS IWITH
FOLDINGI INTO UCS BUFFER. PRINT AREA CONTAINS FIRST
QUADRANT CHARACTERS.
IF FOLDING IS OPERATING PROPERLY,
EXPECT N 0 DATA CHECK ON THE PRINT COMMAND.

****** ••• ****.**** •••• **.*.************.** •••• *.** ••••• *••• *** •••• ***.*

ROUTOb DC
DC
BAL
LA
LA
MORGEN STC
BCT
BCT
MVC
BilL
DC
MVC
MVC
LA
SAL
DC
DC
DC
DC
LA
BAL
DC
OC
DC
DC
MVI
CLC
BC
MVI
BAL
DC
LA
FOLDES STC
BCT
MVC
LA
BAL
DC
DC
DC
DC
EXIT06 SVC
SADONE SR
SR
LA

ANYMOR IC

X'06'
AL3(ROUT01-SECNOI
R4,INIT
R8,48
R7,240
R7,LDAR-IIR81
R7,*+4
RB,MORGEN
LDAR+4BI1921,LDAR
R5,LOADIT
X'0220'
PRAR(481,lDAR
PRAR+48184),PRAR
RIO,PRINTA

ROUTINE NUMBER
ADDRESS OF NEXT ROUTINE
SR. TO INITIALIZE
PLACE COUNT INTO REG 8
PUT 1ST CHAR -FO- INTO REG 7
STORE CHAR INTO BUFF LOAD AREA
MODIFY CHARACTER BEING STORED
REDUCE COUNT AND STOR POS OF NEXT C~
GEN -5- 48 CHAR SETS IN BUFF LOAD AR
BR. TO LOAD BUFFER
T EST
N U M B E R
MOVE CHARACTERS INTO PRINT AREA
FILL PRINT AREA WITH CHARACTERS
PLACE ADDR OF PRINT CCW IN REG 10
Rl1,I~IO
SR. TO PRINT A LINE
Xl2'3EOO'
CONTROL SWITCHES
X'0230'
T EST
N U M B E R
X'FOOO'
EXP COND CODe - EXP SENSE
AL2IZEIOER-SECNO+REGI ADDRESS OF EXP CSW
RIO,RDCCW
PLACE AODR OF DIAG READ CCW IN RIO
Rll,ISIO
BR. TO DO DIAG READ
X'31100'
CONTROL SWITCHES
X' 0240'
T EST
N U " B E R
X'FOOO'
EXP COND CODE - EXP SENSE
AL2IDIDRED-SECNO+REGI ADDRESS OF EXP CSW
SKORCH,X'OO'
PRAR (1321 ,DRAR
UNEQ,BADONE
lOAD,X'F3'
INSURE LOAO WITH FOLDING
R5,LOADIT
BR. TO LOAD UCS BUFFER
X'0260'
T EST
N U M B E R
R8,4B
INSERT FIRST CHAR TO BE LOADED
RB,PRAR-lIR81
GENERATE FIRST QUADRANT CHARACTERS
RB, FOLDES
PRAR+481841.PRAR
RlO,PRINTA
Rll,ISIO
BR. TO ISSUE StO
X'3EOO'
CONTROL SWITCHES
X'0210'
T EST
N U M B E R
X'FOOO'
EXP CONDo CODE AND SENSE
AL2(ZEIDER-SECNO+REGI EXP CSW ADDRESS
X'06'
ROUTINE EXIT
R8.R8
R7,R1
R5,132
R1,PRAR-lIR5)

ID
PAGE

FB32-5
11A

--.-----~--------------:-~----

08

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN .840108
PAGE
12

1403 PRINTER FUNCTION 3
OlOAD 43 85 F 691
010A4 19 78
OlDA6 41 60 F DCO
OlDAA 46 50 F 09C
OlOAE 41 AO F AF8
010B2 45 BO F 4A2
010B6 000000000000
OlDBe 47 FO F 092
OlDCO 91 01 F C10
010C4 47 10 F 008
01OC8 96 01 F C10
Oloce OA DO
OIDCE 64
OlOCF 09
01000 FE2A
01002 OA DO
01004 AO
01005 32
01006 FOF8
01008 4E 50 F 408
OlOOC F3 21 F C12 F 4DE
010E2 96 FO F C14
010E6 OA DO
01DE8 AO
010E9 04
OlOEA Fell
OlOEC 47 FO F DAA
OlOFO
OlDFO 00001720
010F4 ' oeoooooo
010F8 40E309Cl05E2D3C1
OlEOO E3D6D940D6D940C2
01E08 E4C6D940D6D7C5D9
01EI0 C1E3C5C440C9D5C3
0lEl8 06D9D9C5e3E340C9
0lE20 . D540D7D6E2C9E3C9
0lE28 0605
0lE2A 40E3E2E340FOF2F5
01E32 FO
01E33 00
0lE34 :

01E34 . 07
01E35 OOOEFO
01E38 45 40 F 720
01E3C 91 80 F 007
01E40 47 10 F E4E
0lE44 . OA 00
01E46 04
01E47 00
01E48 FFE2
01E4A 47 FO F EA6
01E4E 02 03 F 9FB
. 01E54 , 02 SF F A2B
01E5A 45 50 F 8B2
01E5E 0280
01E60 02 03 F 821

DATE
Ee's

F FA4
F 9FB
F FAO

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840108
PAGE
12A

1403 PRINTER 'FUNCTION 3
1391

Hn
1393
1394
1395
1396
1397
1398
1399
1400
1401
1402
1403
1404
1405
1406
1407
1408
1409
1410
1411
1412
1413
1414
1415
1416
1417

1418
1419
1420
1421

IC
CR
BC
CKMORE BCT
LA
BAL
DC
BC
INFRM TM
BC
01
sve
DC
DC
DC
SVC
DC
DC
DC
01000 CVO
UNPK
01
SVC
DC
DC
DC
BC
CNOP
DIOREO DC
DC
SAYIT DC

R8,DRAR-lIR5)
R1,R8
UNEQ,INFRM
R5,ANYMOR
RlO,PRINTA
Rll,lOPOUT
XL6'0'
UNC,EXIT06
SKORCH,X'Ol'
ALL,DIDDO
SKORCH.X·Ol'
X'DO'

SET UP TO LOOP

"
"

X ·6,... •

X'09'
AL2IBLAB2-SECNO+REG)
X'OO'
X'AO'
X'32'
AL2ISAYIT-SECNO+REG)
R5,WORK .
POS+113),WORK+6(2)
POS+3,X'FO'
X'DO'
X'AO'
X'04'
AL2IPDS-SECNO+REG)
UNC,CKMORE
0,4
AIINIT)
X'OCOOOOOO'
C' TRANSLATOR DR B'

1422

DC

C'UFR OPERATED INC'

1423

DC

C'ORRECT IN POSITI'

1424
1425

BLAB2

DC
DC

C'ON'
C' TST 0250'

1 ... 26
1 ... 27
1 ... 28
1429
1430
1 ... 31
1432
1433
1434
1435
1 ... 36
1437
1438
1439
1440
1441
1442
1443
1444
1445
1446
1447
1448
1449
1450

CNOP 0,4
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• ROUTINE 07 - SECTION SENSE SWITCH 24 MUST BE ON TO INOICATE DUALING
•
MODE, OR THIS ROUTINE WILL BE BYPASSED. THE UCS BUFFER
•
IS LOADED WITH 5 SETS OF CHARACTERS. EACH SET CONSISTS
•
OF 4 OUALING CHARACTERS AND 44 BLANKS. PRINT THE FOUR
•
DUALING CHARACTERS TO CHECK PRINT BUFFER TRANSLATE. TijEN
•
PRINT 4 DUALING CHARACTERS TO CHECK DATA BUFFER
•
TRANSLATE. I SSUE DIAGNOSTIC READ TO CHECK RESUL T.S
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ROUT07 DC
X'01'
ROUTINE NUMBERS
DC
A13(ROUTOB-SECNO)
ADDRESS OF NEXT ROUTINE
BAL
R4,INIT
BR. TO INITIALIZE
TM
SNSW+3,X'80'
TEST FOR NO DUALING MODE
BC
ALL,GOMAN
HAVE DUAlING, GO TEST IT
SVC
X'DO'
PRINT OUT BYPASS MESSAGE
DC
X'04'
"
OC
X'OD'
DC
AL2IBYPS-SECNO+REG)
"
BC
UNC,EXIT07
GO TO NEXT DEVICE
GOMAN MVC
LDAR(4),REGDUL
PUT DUAL CHARS INTO 1ST BUFFER SET
Mve
LDAR+481192),LoAR
FILL BUFFER,'4 DUAL + BLANKS, 5 SETS
BAL
R5,LOAOIT
BR. TO LOAD 8UFFER
DC
X'0280' .
TEST
NUMBER
MVC
PRAR(4),XLTDUL
PLACE TRANSLATED DUAL CHARS IN PRT

T

15MAR66 15NOV66 120eT61
125632 125655 131812

________________.__

~

EST

NUMBER

10

01E66 41 AO F F88
01E6A 45 BO F OE6
01E6E 3COO
01E70 0290
OlE72 FOOO
01E74 FF90
0lE76 02 03 F 821
01E7C 41 AO F F88
01E80 45 BO F OE6
01E84 3COO
01EB6 0300
01E88 FOOO
01E8A FF90
01E8C 41 AO F 718
01E90 45 BO F OE6
01E94 3800
OlE96 0310
01E98 FOOO
0lE9A FOFO
01E9C 05 03 F 692
01EA2 47 60 F EA8
01EA6 'OA 06
UlEA8 OA DO
OlEAA 64
OlEAB 09
OIEAC FFD9
OlEAE OA DO
OlEBO AO
UIEBI OF
01EB2 FF2C
01EB4 OA 00
01EB6 0004
01EB8 OFAO
OlEBA OF7B
OlEBC 02 02 . F F6F
01EC2 OA DO
01EC4 AO
01EC5 20
OU:C6 FF56
01EC8 OA DO
OlECA 0004
01ECC 0692
OlECE OF7B
01EDO 02 02 F F6F
01ED6 OA DO
01ED8 AD.
01ED9 20
OlEDA FF56
OIEOC 41 AO F F88
01EEO 45 BO F 4A2
01EE4 000000000000
OlEEA 47 FO F EA6
OlEEE 07 00

OlEFO
OlEFl
01EF4
OlEF8
01EFC
01FOO

I
FB32-5' DATE

____________________P_A_G_E___l_2_____

j.E_e_.~s

08
OOFFFF
45 40 F 720
92 F3 F 8EO
45 50 F 8A6
0330

F FA4

F FAO

1451
1452
1453
1454
1455
1456
1457
1458
1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
.1471

F FA8

F F6E

1472
1473
1474
1475
1476
1477
1478
1479
1480
14B1
14B2
1483
1484
1485
1486
14B7
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500
1501
1502
1503
1504
1505
1506
1507
1508
1509
15,10
1511
1512
1513
1514
1515

15MAR66 15NOV66 120eT61

LA
BAL
DC
DC
DC
DC
MVC
LA
BAL
DC
DC
DC
DC
LA

BAL
DC
DC
DC
DC
CLC
BC
EXIT07 SVC
XLTERR SVC
DC
DC
DC
SVC
DC
DC
DC
SVC
DC
DC
DC
MVC
SVC
DC
DC
DC
SVC
DC
DC
DC
MVC
SVC
DC
DC
DC
LA
BAL
DC
BC
CNOP

RI0,PRINTB
R11,ISIO
XL2' 3COO'
X'0290'
X'FOOO'
AL2ISAME-SECNO+REG)
PRARI4),REGoUL
R10,PRINTB
Rll,ISIO
XL2'3COO'
X'0300'
X'FOOO'

ADoR OF CCW INTO REG 10
BR. TO ISSUE SIO
CONTROL· SWITCHES
N U M B E R
T EST
EXP COND CODE - EXP SENSE
AoDR OF EXP CSW
PLACE UNTRANSLATEo DUAL CHARS IN PRT
ADDR OF CCW INTO REG 10
BR. TO ISSUE SIO
CONTROL 'SWITCHES
TEST
NUMBER
EXP COND CODE - EXP SENSE
AL2(SAME~SECNO+REG)
AoDR OF EXP CSW
RI0,RDCCW
ADOR OF oiAG READ INTO REG 10
Rll,ISIO
BR. TO ISSUE SIO
X,'3800'
CONTROL SWITCHES
X'0310'
TEST
NUMBER
X'FOOO'
EXP CONo CODE - EXP SENSE
AL2IDIORED-SECNO+REG) ADOR OF EXP CSW
DRAR(4),XLToUL
COMPARE FOR XLATED DUALING CHARACTER
UNEO,XLTERR
BR. IF NO COMPARE
X'06'
ROUTINE EXIT
X'DO'
X'64'
X'09'
AL2IBLAB3-SECNO+REG)
X'DO'
X'AO'
X 'OF'
AL2ISAYIT1-SECNO+REG)
X'DD'
AL214)
AL2IXLTOUL-SECND)
AL2ISHUDRO+5-SECNO)
SAYIT2+25131,INSERT
X'DO'
X'AO'
X'20'
AL2ISAYIT2-SECNO+REG)
X'DD'
AL2(4)
AL2IDRAR-SECNO)
AL2ISHUDRo+5-SECNO)
SAYIT2+25(3),SAYIT2+24
X'DO'
X'AO'
X'20'
AL2ISAYIT2-SECNo+REG)
RIO,PRINTB
SET UP TO LOOP
Rll,IOPOUT
"
XL6'O'
"
UNC,EXIT07
0,4

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• ROUTINE 08 - LOAD THE UCS BUFFER WITH A 16 CHAR. SET WITH FOLDING.
•
•
•

PRINT A LINE OF HEX CHARACTERS -80-, AND -CO-. THESE
CHARACTERS SHOULD BE CONSIDERED VALID UNPRINTABLES IN
FOLDING MODE. NO DATA CHECK SHOULD BE SET.

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ROUT08 DC
X'08'
ROUTINE NUMBER
DC
BAL
MVI
BAL
DC

X'OOFFFF'
R4,INIT
LOAO,X'F3'
R5,ECONMY
X'0330'

ADDRESS OF NEXT ROUTINE
BR. TO INITIALIZE.
SET UP FOR FOLDING MODE
GO TO LOAD UCS ROUTINE
T EST
N U M B

E

ID

R

F832-5

_____
12_5_6_3_2___1_25_6_5_5___1_3_18_1_2__________________________________________________________P_A_G_E____
12_A__

~J

.,

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

00

o

o

0

o o o

IBM MAINTENANCE DIAGNOSTIC PROGRAM

0 0 0 0 0 0 0 : 0 0 0 0 0 0 0 0 ' 0 0 0_

PIN 840108
PAGE
13

IBM MAINTENANCE DIAGNOSTIC PROGRAM

1403 PRINTER FUNCTION 3
01F02 92 80 F 821
01F06 9l CO F 822
01FOA 02 40 F 823 F 821
01FlO 41 AD F AF8
01F14 45 80 F OE6
01Fl8 3COO
01FlA 0340
01FIC FOOO
01FIE FC98
01F20 92 F8 F 8EO
01F24 OA DO
01F26 04
01F21 18
01F28 FF38
01F2A OA 06
01F2C 40C4E4CI03C905Cl
01F34 40C6CIC903C5C4
01F38 4009C5E2E30609C5
01F43 40E4C3E240C2E4C6
01F48 0940~6C9E3C840C6
01F53 F8F31-1
01F56 40C4CIE3C140C2E4
01F5E C609400106E2C9E3
01F66 C90605E240F160F4
01F6E 4040404040C30605
01F16 E3CIC90540E1E1El
01F1E E1E1E1E1El
01F83 0506E3
01F86 , 0000
01F88 0100182120000004
01F90 00001F90
01F94 08000000
01F98 00000000
01F9C 04000000
01FAO 6C4C1B1C
01FA4 40501El0
01FA8 E2C8C4
; 01FAB 40E2C5C340E2E240
01FB3 F2F440C9E24006C6

1403 PRINTER FUNCTION 3
1516
1511
1518
1519
1520
1521
1522
1523
1524
1525
1526
1521
1528
1529
1530
1531

MY.J
MVC
LA
BAL
DC
DC
DC
DC
MVI
SVC
DC
DC
DC
SVC
SAYITI DC

PRAR,X!80'
PRAR+l,X'CO'
PRAR+2.165I, PRAR
RI0,PRINTA
Rll,ISIO
X'3COO'
X'0340'
X'FOOO'
AL2IZEIOER-SECNO+REGI
LOAO,X'F8'
X'OO'
X'04'
X'lB'
AL2eBASHEO-SECNO+REGI
X'06'
C' OUALING FAILED'

1532

8ASHEO DC

C' RESTORE UCS 8UFR WITH F831'

1533

SAYIT2 OC

C' DATA BUFR POSIT'

MIO

1534

DC

1535

SHU ORO DC

1536

NOT

1531
1538
1539
1540
1541
1542
1543
1544
1545

PRINT8 CCW
SAME
DC
DC
DC
DC
XLTDUL DC
REGOUL DC
INSERT DC
FERRO DC

DC

C'IONS 1-4

LOC

FILL PRINT AREA WITH -80- AND -CO-

01FBB
01FC3
OlFCB
01F03
01F06
01F09
01FEI
01FE2
01FEA

LOAD CCW ADDRESS
BR. TO ISSUE 510
CONTROL SWITCHES
TEST
NUMBER
EXP CONO. CODE AND SENSE
WXP CSW ADDRESS
RESTORE LOAD NO FOLD
PRINT RESTORE MSG

ROUTINE EXIT

CON'

C'TAIN XXXXXXXX'
C'NOT'
X'OI',PRAR,X'20',4
AeSAME)
X'08000000'
XL4'O'
X'04000000'
X'6C4C181C'
X'40501E7D ,
C'SHO'
C' SEC SS 24 1 S OF'

r

00000
00001
OOOOF
00008
00004
00001
DODO!;
00008
00004
00002
00001
00008
00004
00002
00006
OOOOC
OOOOA
00080
00181
OFOOO
0005A
00000
00001
00002
00003
00004
00005
00006
00001
00008
00009
OOOOA
00008
OOOOC
00000
OOOOE
OOOOF
00198
0005A
00040
00048
00009
00008
00000
00004
OOOOC
00008

00078

DATE
EC'S

C;S.=44

15MAR66 15NDV66 120CT67
125632 125655 131812

4

# U

PIN 840108
PAGE
13A

10
PAGE

F832-5
13

DATE'
EC'S

OBJECT CODE

A

STMT

C640E2C5E340C9E3
4006C6C640C9C640
0506E340C4E4CI03
C905Cl
06C6C6
40E3E2E340FOF3F2
FO
4009E30540C2E807
CIE2E2C5C4

1546

DC

C'F SET IT OFF IF '

1541

DC

C'NOT OUALING'

qos

SOURCE STATEMENT

1548
1549

OFF
BLAB3

DC
DC

C'OFF'
C' TST 0320'

1550

BYPS

DC

C' RTN 8YPASSEO'

T

EST

CL2-4

NUMBER

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

1551
1552 •
EQUATES
•
1553 •••• *** ••••• ****.***.*.* ••••••••••••••••••*••••••••••••••••••••••••••••
1554 NEVER EQU
o
1555 NCCO
EQU
1
EQU
1556 UNC
15
1551 NONE
EQU
8
1558 SOME
EQU
4
EQU
1559 ALL
1
1560 ANY
EQU
5
1561 CCO
EQU
8
EQU
1562 CCI
4
EQU
1563 CC2
2
EQU
1564 CC3
1
1565 EQ
EQU
8
1566 LO
EQU
4
EQU
1561 HI
2
6
1568 UNEQ
EQU
1569 EQLO
EQU
12
1510 EQHI
EQU
10
1511 LOGOUT EQU
X'80'
1512 SYSMOO EQU
X'181'
EQU
1513 REG
X'FOOO'
EQU
1514 WHAT
90
1515 RO
EQU
o
1516 Rl
EQU
1
1511 R2
EQU
2
EQU
1518 R3
3
1519 Rio
eQU
4
1580 R5
EQU
5
1581 ·R6
EQU
6
1582 Rl
EQU
7
1583 'R8
EQU
8
1584R9
9
EQU
1585 RIO
EQU
10
1586 '-Rll
&QU
11
1581 R12
eQU
12
1588 R13
EQU
13
1589 R14
eQU
14
1590 R15
EQU
.15
EQU "408
1591 WT
1592 WAHT
EQU
90
1593· HCSW
EQU
64
1594 HCAW
EQU
12
1595 NMUED EQU
NOT MIXE~
:0
9
3
1596 Z
EQU
8
ZERO
0
1591 NCC2
EQU
13
NOT BUSY
. 0 1
3
1598 NOTlRO EQU
4
NOT ZERO- AND 1
1599 MIXNGN EQU
12
MIXED OR NONE 0 1
1600 NCCI
EQU
11
CSW NOT STORED 0
2 3
1601 •
1602 •.
GENERAL EQUATES
1603
1604 HION
EQU
120
HARDWARE 1/0 NEW PSW LOCATION

•

15MAR66 15NOV66 120CT61
125632 125655 131812

10
PAGE

F832-5
13A

PIN 8ltOl08
PAGE
lit

IBM MAINTENANCE DIAGNOSTIC PROGRAM
Ilt03 PRINTER FUNCTION 3

PIN 840108
PAGE
lit A

Ilt03 PRINTER FUNCTION 3
1605
1606
1601

OOI8C
OOlAO

IBM MAINTENANCE DIAGNOSTIC PROGRAM

OMIO
OMSSW

EQU
EQU
END

441t .

OMIO TA8LE

POST ASSEM8LY DATA

416
RELOCATl ON 01 CTlONARY
LOCATION
01015
0101C
015E9
015fO
01719
01801
01809
018H
01BE8
01949
01951
01958
OlAFl
OlAf9
01800
01811
01818
01C89
01C91
01C98
OlOFO
01F89
01F90

DATE
EC"S

15MAR66 15NOY66 120CT61
125632 125655 131812

0000

o

1D
PAGE

F832-5
lit

DATE
EC"S

LENGTH
3
It

3
3
3
3
3
3
"
3
3

"

3
3

4
3

4
3

3
"
"
3
"

15MAR66 15NOY66 120CT61
125632 125655 131812

ID
PAGE

F832-5
14A

O· 0 0 0 0 0 0 0 0 0 0 0 0 :0000 0 0 0 0 0 : 0 0 0 0 0 0

-------,_._---_.,-------

o o

o
.... ,.. .........,,,_¥....... _, __ .,.. , _........ _. _ _ , .. _... _............ '....,..w.-.'.
~

IBM M_INTEN_NCE DI_GNOSTIC PROGUM

PIN 840108
PAGE
15

1403 PRINTER FUNCTION 3

AGAIN
ALL
ALLOW
ANY
ANYMOR
BADONE
8ASHED
BLAB
8LABl
8LA82
IILA83
8LANK
8LOCK
IlLOOP
8YPS
CAW
CCO
CC1
CC2
CC3
CHAR16
CHKRo
CKAR
CKMORE
CLUIN
CSW
CYCLE
OARIO
01000
OIORED
OIOTLE
OHIO
OMSSW
DOCKRD
ORAR
ECONMY
EQ
EQHI
EQLO
EREO
t:XITOI
EXIT02
EXIT03
EXIT04
EXIT05
EXIT06
UIT07
EXNPSW
EXOPSIl
FERRO
FLAG 1
FLAG2
FOLDES
GOMAN
GREG
HANGUP
HCAW
HCSW
HI
HION

OATE
EC'S

LEN VALUE

DEFN

4 0019A2 1147
1 000001 1559
001C90
000005
001D9C
001D94
001F3B
001B20
001829
001E2A
001F09
0019FA
001C88
001180
001FE2
001048
000008
000004
000002
000001
001C15
001818
00160E
001DAA
0015F5
001040
0019AA
001178
001008
0010FO
001<;lE2
00016C
0001AO
001810
001692
0018A6
000008
OOOOOA
OOOOOC
001684
001944
0019C8
001662
001C80
001DOO
001092
001EA6
001058
001018
001FA6
00100E
00100F
001074
001E4E
001154
oonAO
000048
000040
1 000002
1 000078

8
1
4
2
27
9
16
9
9
1
8
4
13
4
1
1
1
1
16
4
1
4
16
8
4
2
4
4
4
1
1
8
1
6
1
1
1
4
2
2
2
2
2
2
2
5
8
16
1
1
4
6
4
6
1
1

1296
1560
1390
1387
1532
1187
1188
1425
1549
1176
1295
1019
1550
0519
1561
1562
1563
1564
1254
1185
0988
1394
0986
0518
1149
1014
1410
1419
1168
1605
1606
1184
0989
1062
1565
1570
1569
1229
1113
1156
1228
1294
1335
1386
1472
0521
0513
1545
0509
0510
1377
1446
0689
1026
1594
1593
1567
1604

........ , ......

,,~~",

._'"

IBM M_INTEN_NCE DI_GNOSTIC PROGR_M

PIN 840108
PAGE
15A

1403 PRINTER FUNCTION 3

LA8El CROSS-REFERENCE 8Y STATEMENT NUMBERS
LABEL

-~~,,,-

REFERENCES
ll50
0668
1220
1282
0941
1394
1372
1529
1163
1167
1405
1476
1268
1002
1444
0690
0697
0698
1062
1143
1146
1417
1036
1175
1010
1400
1369
1158
1138
0990
1200
0785

0710
1230

0725
1400

0734
1440

0742

0758

0761

0790

0817

0943

1010

1020

1158

1041
0696
0754

1185
1184

1215
1218

1469

1210
1371
1266
1002

1391
1313

1470
1514

1492

1220
1152
1224
1398
1445

1502

1006

1007

1008

1378
1440
0691
1020
0662
0663

0750
0663

0939
0104

15MAR66 15NOV66 120CT67
125632 125655 131812

1011

0726

1012

0729

1013

1013

1017

0763

HUNG
IACSNS
IACT
IACTCC
IBLAH
IBSN
ICAW
ICCOUT
ICCSWI
ICCSW2
ICCW
ICHNGI
ICHNG2
ICM
ICNT
ICOUT
ICSW
ICSWI
ICSW2
ICWoUT
IDIO
10101
100SNS
10UNCK
IEXP
IEXPCC
IEXSNS
IFlAGl
IFlAG2
IHANG
IHI
ILEAVE
IUNK
1L0KE
HOOP
IMORST
INCCSW
INOER
INFRM
INIT
,INOEXI
INOEX2
INOW
INPSW
INSERT
INn
IOAooR
IOAoR
IOCSW
10LOG
lONE
IONPSW
100PSW
10POUT
IOPTl
Ioun T
IPAS
IPASS
IRETRN·
ISAVE
ISEN
ISENSE
ISIO

16 0011FE
11 001570
3 00155F
10 00150A
16 001545
6 00128E
12 001533
6 0013A4
6 0012BO
6 0012D2
3 001542
6 0013E2
6 001412
2 00100A
1 00139F
2 001388
3 00153F
8 001502
8 0015DA
6 00136E
4 00141C
4 0013EC
4 001238
4 0012EO
3 001562
10 001500
11 001565
1 001310
1 0014A4
4 001134
4 00114C
4 0014CO
16 00152'3
4 001278
4 001124
4 001404
4 001958
4 00120C
4 0010CO
2 001120
4 001260
4 00126C
4 001lA4
5 001010
3 001FA8
4 00.1lF8
15 001514
3 0015FG
6 00136A
16 001576
4 001l8E
4 001078
8 001038
2 0014A2
16 001SAO
6 001300
6 001434
4 00145E
4 00HD4
8 0014FO
4 001210
8 0015E8
6 0010E6

ISLAVE

10
PAGE

F832-5
15

DATE
EC'S

1051
0972
0969
0955
0967
0768
0964
0857
0776
0784
0966
0876
0886
0506
0854
0846
0965
0980
0981
0840
0888
0878
0747
0787
0970
0954
'0971
0801
0932
0680
0687
0944
0960
0763
0676
0883
1116
0786
1399
0994
0757
0760
0708
0511
1544
0731
0956
0983
0867
0973
0703
0526
0517
0931
0976
0795
0693
0912
0723
0952
0737
0982
0659

8 0014F8 0953

"

1033
0766
0880
0694
0837
0740
0828
0827
0775
0783
0837
0873
0875
0838
0841
0867
0704
0729
0845
0884
0870
0738
0759
0871
0857
0893
0787
0788
0685
0679
0792
0806
0754
0879
1098
0752
1393
1090
0771
0779
0668
1485
0728
0821
0820
0817
0919
0697
0913
0934
0790
0889
0895
0527
0661
0710
0749
1067
1359
0660

15MAR66 15NOV66 120CT67
125632 125655 131812

0907,

O'i!H

Q982

0701
OB51
0746
0832

0703
OB55
0756
0836

0707
OB67

0868
0877

0882

0887

0892

0726
0745

07'tl
0784

0776
0784

0776
0891

0906
OB90
0699
OB50
0744
0831
0843

0742 1037
0762 0785
0885
0862
0898 0899
0793
0794'

0768
OB71

0866
OBBO

0885

I

0890

0881

0903

0683
0809

0810

0814

0938

1104
0758

1106
0761

1112
0767

1116
0169

0773,

0777

0781

1129

1199

1265

1311

1347

1419

1438

1512

07.00

0702

0706

0920

09Zl

0922

0926

0928
1006

1154
1012

1226

1396

1500

09.48
0719

0732

0734

1100
1365
0858

1108
1381
1029

1133
1452

1139

120!i
1465

1211
1520

1269

1211

0825

.'

11059

1283

128.9

1311

10
PAGE

1328

F832-5
15A

9,

O·
"

o e

~----

,

IBM MAINTENANce DIAGNOSTIC PROGRAM
1~03

PRINTER FUNCTION 3

ISSUE
ISV2
ISII
ITIC
ITIOLP
lTRYI
lTRY2
ITSTNO
ITWO

IUP

IWAIT
IZERO
JOHN
LOAR
LOesw
LOINe
LO
LOAD
LOAOIT
LOGOUT
MCNPSW
MeoPSW
MITHEo
MIXNON
MOD44
M0050
MORGEN
MSKI
MSK2
MUM8
Neeo
Neel
Nee2
NEVER
NIOU
NITWIT
NMIXEo
NOHOR
NONE

4 DO 116E 0695
6 00l1EE 0729
2 0010E4 0655
4
4
4
4
9
4
4
4
4
6
1

001258
001250
00111C
00112e
001597
001186
0014CC
001184
0011AO
001160
0019F8

0755
0753
0674
0678
0975
0701
0947
0712
0707
0692
1177

4
8
1
8
6

0018E8
001950
000004
0018EO
001882
000080
001010
001030
,0018E4
OOOOOC
00110e
00181C
001014
0015F3
0015F4
0018e6
000001
000008
000000
000000
001000
001130
000009
0018ec
000008

1076
1115
1566
1075
1064
1571
0525
0516
1248
1599
0667
1055
1350
0984
0985
1069
1555
1600
1591
1554
0508
0999
1595
1240
1551

1

8
8
16
1
4
4
4
1
1
2
1
1
1
1
1
4
1
4
1

NOPTCK
NORM
NOT
NOTZRO
OFF
PCLCSW
PCLOAo
PGNPSW
PGOPSW
POS
PRAR

4
4
3
1
3
4
8
8
8

0019CA
001eA8
001F83
000004
001F06
001800
00 UFO
001068
001028
~ 001Cll
1 001821

1151
1301
1536
1598
1548
1180
1178
0524
0515
1253
1057

PREINC
PRElD
PRINTl
PRINTB
RDCCII
REG

8 001948
8 001800
80oUF8
8 oOlF88
8 001718
1 OOFOOo

1114
1073
1179
1537
0990
1573

DATE
EC'S

PIN 840108
'PAGE
16

IBM MAINTENANCE DIAGNOSTIC PROGRAM

- -

'-------------------

PIN 8/00108
PAGE
16A

1"03 PRINTER FUNCTION 3
0826
0125
0692
0135
0894
0764
0755
0677
0675
0659
0698
0945
0136
0696
0670
1022
1353
1071
1097

0983

0690
1023
1353
1076
1105

1023
1356

0998
1091
0666

1093
1094
0666

1096
1130
0914

0692
0739
0921

0693
07~3

0929

0681

09~1

0195

0798

0105
0757
09/02

0708
0760
1019

0799

0803

0711
0765
1027

07140718
0772 0180
1028 1039

0723
0786
1040

0724
0789

0727
0878

0730
0888

0733
0894

0930
1024
1446

1062
1447

1063
14"7

1063

1075

11 lit

1115

1178

1322

Rll
1312
1325

1323
135/0

1324
1374

1333
1448

1334

1373

1513

R12
R13
RI"
RI5
R2
R3

076/0

0615
0843
1224

0679
0870

0683
0879

0732
0884

0738
0889

0740
0895

0744
0928

0746
0945

0771
0996

0773
1005

0779
1148

0781
1152

1011
1180
1153

1169
1024
1356
1518
1099
1066
1204
1451
1364
0803
1033
1215

1209

1293

1297

1110
1073
1357
1518
1101

11710
1074
1357
1537

12/01
1179
1371

12"2
1202
1377

12"6
1203
1319

1411
1203
1379

1412
1274
1390

1416
1275
1450

1275
1457

1225
1458

1216
1/099

1288

1316

1327

1358

1380

1395

1519

0825
10"5
1239

0836
1071
1246

0855
110/0
1273

0862
1112
1281

0866
1137
1287

0903
11/03
1293

0911
1163
1321

0926
1167
1332

1295
1516

1296
1511

1315
1518

0934
117"
1363

0938
1209
1369

lOll
1215
1385

1~64

0814
1036
1235

15MAR66 15NOV66 120CT67
125632 125655 131812

OOOOOB 1586

R5
R6
Rl
R8

1 000006 1581
1 000001 1582
1 000008 1583

SAME
SAVOEV
SAVIO
SAY IT
SAYIll

10
PAGE

F832-5
16

oooooe
000000
OOOOOE
OOOOOF
000002
000003
000004
000005

1587
1588
1589
1590
1577
1578
1579
1580

1 000009 1584

SCAT
seATEL
SOMF
SECNO

4
2
4
16
15
16
2
16
1
4

001F90
0017FC
001818
001oF8
001F2C
001F56
001702
oOllOA
00100e
001000

1538
1050
1054
1421
1531
1533
1042
1047
0507
0503

SHUORD
SKORCH
SNSW
SOME
SRET
STAY
SVNPSW
SVOPSW
SYSMOO
TECT
TIC
TSTEll

13
1
4
1
3
2
8
8
1
4
4
9

001F16
001CI0
001004
000004
001050
00H1E
001060
001020
000181
001B8C
001B94
001C07

1535
1252
,0504
1558
0522
1018
0523
0514
1572
1219
1221
1251

SAVITZ

1287

1001
1137
1132

1543
1088
1121
1197
1263
1309
1345
1436
1510
1058
1575
1576
1585

1
1
1
1
1
1
1
1

R9
0996
1230
0610
0792
1152
1148
1273
1008

001FA4
0018F8
001968
001B48
001C28
001e80
001004
00lE34
001EFO
0018A5
000000
000001
OOOOOA

1525

Rio

0152

4
1
1
1
1
1
I
1
1
1
1
1
1

1350

1239
0665
1000
1352
0715
0711
1064
0681

REGOUl
ROUTOI
ROUT02
ROUT03
ROUT04
ROUT05
ROUT06
ROUTOl
ROUT08
RTSAV
RO
Rl
RIO

DATE
EC'S

1385
1524
1446'
0512
1089
1128
1198
1264
1310
1346
1431
1021

1405
1529
1457

1409

11016

14/0/0

1456

1463

1476

1480

1489

1498

15210

0687
0660
1107
1327
0659
0806
0941
1226
1459
0676
0662
0664
0726

0688
0662
1132
1358
0660
0815
0947
1269
1465
0680
0663
0712
0729

0691
0828
1138
1364
0667
0815
0949
1277
1500
0684
0663
0747
0997

0839
1153
1380
0709
0816
1029
1283
1520
0689
0704
0912

0840
1204
1395
0731
0857
1067
1289

0842
1210
1451
0731
0869
1100
1317

0844 ' 0844 0858
1225 1268 1276
1458 1464 ' 1499
0766 0768 0770
0872 0883 0893
1108 1133 1139
1328 1359 1365

0939
1282
1519
0774
09"4
1154
1381

1029
1288

1066
1316

1099
1327

0778
0946
1205
1396

0795
0946
1211
1452

0805
0947
1226
1459

0695
0750
0995

0751
0763

0753
0939

0999
0994

1000
0994

1001
0997

1003

1025
0943
1266

1090
1'031
1313

1129
1064
1325

1199
1065
135/0

1265
1065
1374

1311, 1347
1012 1091
1389 1390

1438
1094
1391

1512
1130
1394

1146
1410

1147
1448

11"9
1514

1200

1145
0661
0874
1378
0661
09"8
1456
1001
0839
1409
1480
1485
1005
1045

1150
0749
0875
1387
0712

1168
0750
09"8
1381
0713

1217
0774
1218
1391
0716

1222 ,1240
0775 0782
1219 1221
1392
0747 0748

1349
0782
1348

1350
0783
1350

1351
0804
1352

1388
0805
1376

1388
0872
1377

1390
0873
1377

1392
087"
1378

0755

0841

,0856

0877

0882

0887

0892

1463
1003

1538

1489

1494

1494

1498

0798
0849
0926
110"
1239
1369
1484
1144
0669

0799
0855
0934
1112
1246
1385
1493
1151
0674

0803
0862
0938
1128
1264
1405

0809
0866
1017
1137
1273
1409

0810
0898
1021
1143
1281
1416

0814
0899
1026
1163
1287
1437

0820
0903
1033
1167
1293
1444

0821
0906
1036
117"
1310
1456

0825
0907
1038
1198
1321
1463

0831
0911
10"5
1209
1332
1469

0832
0917
1071
1215
1346
1476

0836
0918
1089
1235
1363
1480

08"8
0926
1104
1239
1369
1483

1157
0678

1159
0682

1216
0791

1223
0940

1229
1009

1231
1439

1370

1399

1401

0664
1222
1247
1235

0912

15MAR66 15NOV66 120CT67
125632 125655 131812

1469

1026

10
PAGE

F832-5
16A

-------------_.--

o

000000

o o

000000000000000000000000

0 0 0 0 0 0 0 0 0 0 0 0 : O 0 O· 0' 0 0 0 0 0 0 /
'.

~,

:'

IBM MAINTENANCE DIAGNOSTIC PROGRAM

' i;

" ','

PIN 840108
PAGE
17

IBM MAINTENANCE DIAGNOSTIC PROGRAM
1403 PRINTER FUNCTION 3

1403 PRINTER FUNCTION 3
UNC

OOOOOF 1556

UNEQ
UNITl
UlADDR
UI0P
WAHT
WHAT
WORK

1
1
2
1
1
1
1

000006
0010EO
0010E2
0010El
00005A
00005A
001408

1568
0529
0531
0530
1592
1574
0951

WT
XF8325
XLTOUL
XLTERR
Z
ZElDU

1
1
4
2
1
4

000198
001000
001FAO
001EA8
000008
001C98

1591
0003
1542
1413
1596
1297

0677
0930
0665
0999

0685
0949
0767
1004

0700
1025
0769

08"0
0918
0687

0848
0919
0712

0849
0920
07lt7

1450
1471

1470

1483

1281

1321

1332

0702
10"1

0-;-;7

0850
0921

1363

0706
1072
0827

0851
0922

1385

0719
117!.i
0913

0876
1168

0728
1247
1372

0876
1169

0736
1'398
1393

0881
1240

0756
1417
1471

0886
1241

0759
1"45

0886
1410

0762
1502

0891
1411

011"5

0856

, 08JECT DECK LIST.

0914

0917

1524

NO STATEMENTS FLAGGED IN THIS ASSEM8LY

PERIODS CORRESPOND TO 8LANK COLUMNS.

1 THROUGH 20

COLS.

41 THROUGH 60

COLS.

61 THROUGH 80

109.131812 •• 83250001

8TXT.AAA •• A8 •• AA82&A
'9
YQY Y9 Y9 9 Y
999 9
9
9

AAAAAAAAAA&AAOAAAAQ8
YYYYYYYYY9-Y99YYYY9
999999999 9 9999

AAAAAAAAAAAAAAAAAAAA
YYYYYYYYYYYYYYYYYYYY
99999999999999999999

AAAAAAAAAAAA83250002
YYYYYYYYYYYY
999999999999

BTXT.AAB •• A8 •• AAAAAA
9
YQ9 Y9 Y9YYYY
99
9
9 9999

AAAAAAAAAAAAAAAAAAAA
YYYYYYYYYYYYYYYYYYYY
99999999999999999999

AAAAAAAAAOAAAAAAAAAA
YYYYYYYYY9YYYYYYYYYY
999999999 9999999999

AAAAAAAAAAAA83250003
YYYYYYYYYYYY
999999999999

i BTXT.AA& •• AA •• AAAAAA

AAAAAOAAAAJM ••••••••
YYYY99YYYY9
9999 9999

YQ990

YQ
99

Y9YYYY
9 9999

• ••••••••••• 83250004

PG-.-.EAJAG-I0PCAAAA
90 0 -QZOI 8 8YYYY
Z
9 99 9

AAAAGA1MA&008325000!.i
-YQYZQ 0-- 9
09 9

GA10EA&AG&IMA.00GA10
ZY 8QY-YZ- 8- 9ZY 8
9 9 0 9

OA&AG014HOAH83250006
QY-YZ 9R89-

EA&AGA1-FAI0PAOUOUFA
QY-YZY ZQ R 9
-Y
9 9
9

OUBX5GOA&AGAIJG.IFGJ
8QY-YZY YZ YZY
9 9 9
9

IFB3!.iGGOIMB283250007
0- 8Z 0-

8TXT.AJH •• A8 •• AA5GGO
9
Y90 Y9 Y9 8Z
9
9
9 9

IM815GKG5K-.F.OUG01M
0- 8 9 0 I
0

805G070UA.AAGA2AFAOU
8-8 - QYZO Q-Q
9
09 9 9 9

HFAHHAACFAOU83250008
R09-0QY9-Y

BTXT.AJ& •• A8 •• AAAA53
Y9- Y9 . Y9YY

FA10AA54070UG02AD70U
ZQ YY -8 Z Q-8

A.OUGAI0KG5KO.F.OUGO
ZQ Y 9
Z
9 9

18KG580.FJOU83250009

-~QYZY

ABAAGA28A.OUGA2FA850
9ZY Y-9
09

GA28AJOUGA2F83250010
ZQ 9-Y ZY Y

DA&AG&2DEA&AG.2HFA2&
QY-YI- QQY-YZ RZQ
990999
0

G02FA.OUGA2083250011
ZQ Q
Z Y9 9

AJOUGA20G02SED-DG&2H
-Y IQ QZ 8-80ZZ- R
99990

FDOUNA5EAEG-20NA5GAO
-9
Y RQ9Z Q Y 809
9 00
9 9 90

G-20AHAAGA2-83250012
Z Q-9QYZY
9 09

GA2DHCAF.A20NG5K5KGZY QIYY9 Y - 9
Z

2DAOAAGA2UAJOUGA20AH
Q-9QYZY 8-Y ZY QZO
9 09
9
9

AH.A20NG585B83250013
Y9 Y
9Q Q

BTXT.AAS •• A8•• AACAAA
9
YQ8 Y9 Y90YYY
99
9
9 9 9

AAKA50ABAL48AI"0&NAH
YY 9 QQ9QY QO
YYZ

8TXT.AJQ •• A8 •• AAGA19
Y99 Y9 Y9ZY
9
9
9

AAOOGA1UOA&AG01MA.00
-Y 9ZY 8QY-YZ 8- 9
9 9 9
9

9

9

99

«)

9

9

9

99

0

9

9

9

9

9

BTXT.AJ8 •• A8 •• AAAAAA
9
Y9
Y9 Y9-QQY
999909

GA2AAHOUGA2AFHOUGOID
IY Q-9 ZQ Q-9 Z

BTXT.AKA •• A8 •• AAAB5F
9
Y9Q Y9 Y9-9 Q

GA2FHFAHHAADAA5Y&EAH
IY YRQ9-0QY9IY
YYZ

9 Z

9

9

9

9

9

BTXT.AKJ •• A8 •• AAA.OU
9
Y9Y Y9 Y99

9

9

8TX.T.AKQ •• A8 •• AAGA2S
9
Y9
Y9. Y9ZY 8
9

OATE
.EC'S

9

9

9

9 9

9

9

BTXT.AKQ •• A8 •• AAG02S
9
Y9Z Y9 Y9Z 8

FB32-5
17

COLS.

••••••••••••••••• 840

9

10
PAGE

21 THROUGH 40

2S •• AAAA.AGP ••••••••
YYQY Y8Y
9999 999

8TXT.AJ& •• A8 •• AAHAAC
9
Y9
Y9 Y90QY9

15MAR66 lSMOY66 12OCT67
125632 125655 131812

COLS.

8ESD •••••• AA •• AAXF83
9
YQ Y9
99 9

9

DATE
EC'S

PIN B"0108
PAGE
17A

9

9

0

9

0

FAOU8M3AB&4MAAOUGA3A
-9 -Z Q-- 0-9 ZO Y
9
9 9

15MAR66 15NOY66 120CT67
125632 125655 131812

AAOOGA4&8U3ABA4MKA50
-9 9ZY --9 Q-YO 9 Q
9

9 9

9

9

9
9 Q

-Y

9

9

99

9

9 9

ABBEABEDEDB-83250014
Q98QY99Q9Q80

o

999

9

10
PAGE

F832-5
17A

ZIO'.

api4. ' .. '

PIN 840108
PAGE
18

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN B4010B
PAGE
18A

IBM MAINTENANCE DIAGNOSTIC PROGRAM

1403 PR,INTER FUNCTION 3

1403 PRINTER FUNCTION 3

8TXT.ALA •• A8 •• AAMA5G
9
Y9Q Y9 Y9Z89 9 9
9 9

AAADLH&A5Y8EACE/EYBZYY98- Q 98QY9989980
9 90 0 999 9 9

SA5TACADAAAAGA3BBEAC
BQ 9ZQY9-YQYZQ Q8QY9
9
09
09 9 0999

EOEJB-SG5MED83250015
9 988088 9-Q
99 9

8TXT.APF •• A8 •• AAGI50
9
Y98 Y9 Y9Q- 0
9
9
9 ZO

K8GDGOK8GCGCAAOGGA7H
90 0 90YOO-Y 9ZQ R
Z Z
Z9Z
9 0

KBGIGOKBGD50KBGCGBB9Q-0 9Q 0 90YOY80
ZOZ
Z
Z9Z99

OTGl88AAOUGA83250031
9BQY8Q-Y ZQ
9Z 99
9

BTXT.ALH •• A8 •• AA1WG9
Y9Z Y9 Y9 8Z

3M&J58BEACE1E8B-SC53
o Y 98QY998998088 9
999 9 9 9

KB5F5B803G&J8QKG4QJA
9 Z Z-9 Q Y 9 9 YY

EA3HA&JDGA3M83250016
ZQ 0--Y9ZY 0

BTXT.APF •• A8 •• AA7JKA
9
Y90 Y9 Y9 Y Y

8NOCB.9CKP9D9CKC8/9C
o 9- 0 Y Q 0 0 9 0
Z 9 Z Z
Z

G4KAOCBND70UFAOYHL48
9 Y 9 0-8 -9 -Y

B-MK7FB-JJ5583250032
80Z8 QBOY8
9
9 Z9 9

BTXT.ALA •• A8 •• AAAKAH
9
Y9Y Y9 Y9ZYY9
9
9
9
9

G03WBEAHDQDQKG5B4QKG
Z 88QY99 9 9 8
9
999

5C4~B-SK5EG9KA5EADHJ

BAOCDFOYBAOUG07AB-DP
-9 9-0' -Y Z Y8098
9
9 9
Z

78BN.DEVICE.8YPASSED
08

8TXT.ALH •• A8 •• AA5B~8
9
Y9- Y9 Y9 8 9
9 0 99 9

5F518K3GAHAAGA3MK85M
Z 8-8 Q-9QYZY Y 9 8
9 9
09
9

GAGG.PREVIOUS.HANG.U
9YOO

P.DETECTEOAAAAAA7G ••
YYYYYY80
9999999Z

•••••••••••• 83250034

8TXT.ALO •• A8 •• AAGA40
9
Y9
Y9 Y9ZY 9

9

9

9

9

9

9

9

9

48B-SB5AB-S883250011
8088 Y8088
9 9 99 9

BTXT.APF •• A8 •• AAE&28
9
Y9Q Y9 Y9Z 9

5KHCAF.A3WAHAH.A40KG
ZZVY9 Y ZOV9 Y 9 9
9
9

4Q4QEA3HA.OU83250018
ZQ 0-

8TXT.AP6 •• AT •• AANEDA
9
Y9
Y8 Y9
Y

KB5M5PKG4Q5KEA3HAOAA
9 8 8 9
ZQ 0-9QY
09

GA4MKB5M5KKG4Q4QEA3H
IY 8 9 8 Z 9
IQ 0

AJOUGA44K85M83250019
-Y IY 9 9 8

BTXT.AMY •• A8 •• AA5PKG
9
Y99 Y9 Y9 8 9
9
9
9

4Q58EA3HKA5&AEADOUGA
QZQ 0 Y -Q9-9 ZY

408EAAE&E&B-SC5NBEAA
88QY99-9-8088 I8QY9
999
9 9 999

BTXT.AM- •• A8 •• AAJAG9
Y9
Y9 Y9Z0Z

4KKC4QAABEADDQDQKA5A
o 8 YY8QY89 9 9 Y
9 9 9999

8TXT.AMH •• A8 •• AA4KDE
9
Y9- Y9 Y9 O-Q
9
9
9
Z

OUGOIDB-&25JB-JA5T&N
Z -80-9 Y80Y9 9 Y
09
9

BTXT.AM- •• AH •• AAHI40
9
Y90 Y9 Y9-0

GCGA ••••••••••••••••
9Q9Y

9

9

9

9

9

9

9

9

9

9

9

0

AAAAAAAAAAAA.CC •• X.E
YYYVVYYYYYYV
999999999999

8TXT.ANT •• AJ •• AA.ADR
9
Y99 Y9 Y9

.XXXXXX.LINKA •••••••
Y

9

9

9

9

9

0

9

9

99

9

9

9

9ZZ

-NO.UCS.OEFIB3250033

99

8TXT.AQN •• A8 •• AAAKG9
9
Y90 Y9 Y9Y 8
9
9
9 9 9

CDNKGBC9CKA8F&AAEABA
Q09 OQ8 0 9
YZRY9Z
ZZ 9Z9 Z
9 9

J8-EAOW6AAAOA8YG5AAL
Y OZO ' 8YYY Y 9 YYY
o 9999 9
999

AQ/.AAA3AQ/.83250035
Y99 YY98Y99
9
99 9

EEEEB-SC5&EA83250020
9R9R8088 --Q
o 09 9 0 Z

8TXT.AQE •• A8 •• AAAAAC
9
Y9Q Y9 Y9YY9Q
9 9 ' 9
9 99 Z

AJCAAAOAAOYHAAAAAAAD
Y80YYY YY9 9YYYYYYY9
99Z999 99
9999999

AAAAAAQE.7JE&8BAA838
YYY9Y8ZZ 'YZ -YQ999 99
9
099

SE&8BAJBC8S883250036
8Z -YY-Q 8099 Z

4QKE5C4BKE5B4SKE5A4K
9 0 Q 9 V
9 - Y
9
9

8-SM53A80UGA83250021
8088 8-9 ZV
9 9

8TXT.AJN •• A8 •• AAP9G8
9
Y89 Y9 Y9Y R99
9' 9 9

A9PAJ9HEAOW6AAAOA9HB
Y 8ZY ZZQ 8YYQ Y R9
0 999Z 9

19GBA9PAJ9HEAOW6AA.0
R-9 8ZY ZZQ BYY
o ,999

A9H80AALAJC.83250037
Y R8 YYYY8Q
9 9 999991

AHA&ODG&lMAAOYGNAHAA
YZ-- 91 8-9 99-9QY
9
9
09

GA4DACA8ACAF83250022
ZY YZQY9ZQY9
9 09 09

8TXT.AJE •• A8 •• AAAAAC
9
Y88 Y9 Y9YY9Q
99
9
9 99 Z

AJCAAAOAAJHH.AAAAAAD
Y8QYYY YY8R9 YYYYYY9
99Z999 999
999999

AAABACHE.7JE&8BA&AJ8
YYY9Y81Z YZ -Y ZYQ
999 99
9
09
Z

OEAOW4AA-OAC83250038
ZQ BYY QQ
o 999 9Z

•••••••••••• 83250023

8TXT.AJE •• A8 •• AAAAJC
9
Y80 Y9 Y9YZYQ
99
9
9 9 Z

AEAOW8AA&OACQBADAACA
QZQ 9YY- 009-YOQZ-Y
9 0
990 9Z 9Z9 09

DAC6AA8&AGA9BF&90F&9
OZ --9 YZY YZ YZ990

KAADAGA9HAJ883'250039
0-9QQlY ZVQ
Z9
Z

XXX.SIOA •••• 83250024

8TXT.AJE •• A8 •• AAOEA4
9
Y8Q Y9 Y9 ZQ

KAAAAAABOAADAGA9SFAD
OYYYYYY8 -9QQZO -90
9999999
Z9 9
Z

AB-MACJB-JPC/F&4Q3/D
9Q
Q80Z8QY80Y8Q8899 9Z99 9Z9 0
Z

K4FFODM8-JDD83250040
9'Q- Q9BOY9Q

9

9

XP.CC •• X.ACT.ADR.XXX

Y
9

.•....•..••.•.••.•..

990

•••••••••••• 83250025

!

9

,9

0

BTXT.AJ5 •• AF •• AAJG09
9
Y8
Y9 Y99Z
99' 9
9

K•••••••••••••••••••

9

Z 9

Z

•••••••••••• 83250041

Y

.XXXXXX.CSWCCW.CSW.X

XXXXXXX.XXXXXXXX.EXP

ACTEXP.SNS.X83250026

BTXT.AKL •• A8 •• AAAAAA
9
YBY Y9 Y9YYYY
999 9
9 9999

ALAJC.AAAAAQ/AAADAAL
YYY80 YY99Y99YYYOYY8
9999Z 99 9 999 999

AHAAAAAAAFAAAFAOFJAA
Y9YYYYYYY9YYY9Y98YYY
9 9999999 999 9 9999

DAALOFAAA.TS83250042
OYY89BYYY
999 9999

P.SNS.XX.ACT.LOG.XX.

XXXXXX.XXXXXX.XXXXXX

.TST.XXXX.SS83250027

BTXT.ALT •• A8 •• AAT.00
9
Y89 Y9 Y9
99
9
9

80.FAILEO.TO.SET.PRT

.CHECK.IN.POSCADYE.7
9Y89Z
99

JE&80AA8A8/K83250043
YZ OYQ- 9
9
9

N.FOR.LOOP.ON.SIOT.S

S.1.0N.FOR.TIO.SI0.L

OOPAAAAAAAAA83250028
YYYYYYYYY
999999999

BTXT.ALl •• A8 •• AAB8S8
9
Y88 Y9 Y9p 9

IAJ88EAOW4AAAOHCAAJC
9ZYO ZO 8Y9Y 90YZYO
Z 0 99 9 Z9 Z

AEAOW8AAAOACQBADAA&A
QZQ 9Y9Q QQ9-YQQZ-Y
9 0
9 9 9Z 9Z9 09

DAA6AADAAGAC83250044
OIY --9YYZQQ
9 9Z

OMMENTS ••••• 83250029

BTXT.ALC •• A8 •• AADFAC
9
Y8- Y9 Y9-ZYQ

HFCCDAADAGACBAJB8EA4
-Z-QY-9QOZYQ-ZYQ ZO
OZ
Z9 ZO Z 0

KAAAAAABOAADAGACDFAD
OYYYYYY8 -9QQZQQY-9Q
9999999
Z9 9Z9 Z

A8-MADGB-JTC83250045
QBOZBQ980Y9Q
99 9Z 9
Z

03/0K4FFODMB-JDDJGOC
9Q9 Q- 0980Y909Z Q

D.PLC.BIT.ERRONEOUSL

Y.ON.IN.POSIB3250046

8

9

8TXT.ANC •• A3 •• AAAAAA
9
Y9Q Y9 Y9YYYY
9 9 9
9 9999

AAAAAAAAADANEAAAAAJW
YYYYYYYVY9Y9RYYY9Y98
999999999 9 0999 9

FA.SEE.DESCRIPTION-C
Q9

BTXT.APO •• A8 •• AAAABA
9
Y99 Y9 Y9YY9Y
9
9
9 99 9

OBAAADLEA.JFGA7AQG8C
9-YYY08Q- Z-ZY Q9Q-Q
999 99
Z 9 Z

8SH&OSD&8MA&7DGA7A.&
8R- 8R- 88- QZY Y -

DATE
EC'S

9 0

9

8TXT.ANL •• A8 •• AA.0.O
9
Y90 'Y9 Y9
9

9

9

BTXT.ANT •• A8 •• AAX.EX
9
Y98 Y9 Y9
9

9

9

9

8TXT.AN3 •• A8 •• AA.CAW
9
Y99 Y9 Y9

9

Y 9Q9RV

Z9

BTXT.AMO •• A4 •• AAAAAA
9
Y9
Y9 Y9YYYY
9
9
9 9999

9

R 88088 Z9

9

15MAR66 15NOV66 120CT67
125632 125655 131812

99

Z

99

9

Z

7DAAOJGA7KK883250030
Q-Q ZZY
9

9

9

9 0

Z

BTXT.ALC •• A8 •• AAUF&4
9
Y8Y Y9 Y9 8999 9
9
0

Z9

ID
PAGE

9

F832-5
18

DATE
EC'S

Z 9

15MAR66 15NOY66 120CT67
125632 125655 131812

Z 9

Z

1

ID
PAGE

F832-5
18A

4.

j

¥

00000000000000000000000000000000

{)
.", J

"'M.tm'!ldMkuM'Mt...W"

: ... +#AftWR*lWiu 1'"IIO",I#l!i6!thHtt'Mri",it000? 'f'i'W,MiII.i,'

o

"M'(

. . . . . .-------------.. . ---------------------------------------------

_wehwJri\i!,jW~:!..~J.il,,:.lI.!.l'·Cr_fr'"'J~'''' tfte... MW.t:\I-.......
M""'·t."s....
m...
tK.rnd....
·'M...
' .'"
..
·'WWW_
.
...
_......
•• .......__
!s:"'"'''...
··o....................-

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

000000'

000)00000000000,

PIN 840108
PAGE
19

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840108
PAGE
19A

IBM MAINTENANCE DIAGNOSTIC PROGRAH

1403 PRINTER FUNCTION 3

1403 PRINTER FUNCTION 3
BTXT.APC •• A8 •• AANOTA
9
Y80 Y9 Y9
Y
99
9
9
9

AAAO/JAADAAPAHAAAAAA
Y9Y99YYY9YY809YYYYYY
9 9 999 999 999999

ADAAAUD34EN65SHD.SEC
Y9YYY88888888
9 999

.SS.24.IS.OF83250063

8TXT.APC •• A4 •• AAF.SE
9
Y80 Y9 Y9
990 9
9

T.IT.OFF.IF.NOT.OUAL

INGOFF.TST.0320.RTN.

8YPASSED •••• 83250064

AAAAADAAAAAA83250049
YYYYY9YYYYYY
99999 999999

8RLD •••••• A~ •••• AAAA

AAANEAA4AANZAANOAAPJ
8Y098Y088Y9 8Y9 8Y98
999 999 99 99 99 9

AAQJAAQRAAOJEAOYAAJA
8Y9 8Y9 8Y9l8Y9 8Y88
99 99 99 99 999

AAJADAJH •••• 83250065
8Y8R8Y8R
999 999

18/AJB8EAOW6AAAOADH8
9ZYO ZO 8Y90 yO-I
0 99
9Z

.9C8A8XBJ8UE83250050
Q-9 -Y 1

BRlD •••••• AA •••• AAAA
9
YO
Y9Y9
9Z
9 9

AAKIAAK9EALAAALJEALO
8Y8 8Y8 8Y8Y8Y898Y89
999 999 9999999 999

AAMIAAMAEAMHEANOAAPI
8Y808Y8-8Y8-8Y8 8Y80
999 999 999 999 999

DAPA •••••••• 83250066
BY80
999

AAJB8EAOW6A8AOADHB08
YZYO ZO 8Y90 YO-9 Z 0 99 9 9Z

XBA8UBQGAFAF4E.7JAAA
-Y 8 9Y9Y89Z YZYY
9 9 9 99
9 9

AA&AOBH9BF&E83250051
OZ-Y lR OZ-Q
Z 09 0 Z OZ

BTXT.ANL •• A8 •• AAHFAE
9
Y88 Y9 Y98ZYO
999 9
9 9 Z

MKGBT9CE&8B8JKX8/9CK
9 008 OZ -9Y 8 9 0
Z
OZ9 Z
0 9 9

C8A8/AJB8EAOW6ABAOAD
R R 9ZYO ZO 8Y90 YO
Z 0 99 Z 9Z

HAJ7QEAOW2AB83250,052
-ZY 9ZQ 8Y9

BTXT.ANC •• A8 •• AA.OAE
9
Y8R Y9 Y9 yo
99
9
9
9Z

OBADANC8/6BG-EDB38SE
-YOO 0 9 -Z 0-- 8Z
9Z9
1

&8BB-AAAABH8JFAEDKC8
-9 ZYYOZO YZYOR R

A8/AJ88EAOW683250053
R 9ZYQ IQ 8

8TXT.ANC •• A8 •• AAAB&0
9
Y8Y Y9 Y9Y999
9
9 9 0

ADHBOLHLGA&ADCE8JCE6
YO-8 808RZ YOZR YlO
9l 9 9 90 9 0 9

AJHG-E&F£EDAJB8EA4KA
-8Rl Q-l OOlYO' ZO OY
90 I
Z
1 0 9

AAAAAGOEBAAD83250054
YYYYYI 0--90
99999 1
Z

8TXT.ANC •• A8 •• AAAGAE
9
Y8
Y9 Y90Z00
99
9
9 9 9Z

OFADAB-MAFSB-J2E8F&4
-90080l80880Y90 8
Z99 9Z99
1

03/DK4FFODHB-JDDJGOE
909 0- 0980Y909l 0
1
Z
Z 9 Z 9

KAAPJDAAA.TR83250055
YYY9Y8YYY
99 99999

BTXT.ANC •• A8 •• AAANSL
9
Y80 Y9 Y9
99Z 9
9

ATOR.OR.BUFR.OPERATE

D.INCORRECT.IN.POSIT

JON.TST.025083250056

8TXT.A03 •• AS •• AAAGAF
9
Y89 Y9 Y9Y9Y8
99
9
9 9 99

OE.7JAAOGGAFF8-DEGSG
Z Y-Y 9Z00880980 1
9
9l 9 9l

OFOKC9CGMKGBT9CE£8BB
00 9 000 008 OZ -9
Z
ZZ OZ9 1
0

AKC8/GJAJGHE83250057
Y 9 90YZYQOZ

BTXT.AOT •• AS •• AAAOW4
9
YB8 Y9 Y90 8
99
9
9 0 9

A8AOAGAKC8/GHAJGHEAO
Y90 YOO 9 900ZYOOIO
9
9Z
Z
1 0

W4ACAOAGAAJ70EAOW8AC
8Y9Y YOOlY 910 9Y9
99 9 9Z
0
9

AOAEONC6BGJG83250058
9 -QYZ
9 9I
1

BTXT.AOL •• A8 •• AA-F08
9
Y80 Y9 Y9 008
99' 9
9 Z 9

OB-MAGRB-JGGUBEADGJG
80180 80Y80880Y98Y8
9 9Z 9 919999 9 9

3KBGXGOB-JVGFBEADFBG
8 9080080Y80R80Y99-B
I Z 9 9I 999
9

3KBGXGWB-JVG83250059
8 9080880Y8Q
Z Z 9 9Z

BTXT.AOC •• A8 •• AAFAJG
9
Y80 Y9 Y9RIYO
999 9
9
I

HEA4KAAAAAAGOFOGAHAG
OZO OYYYYYYZ 009Y9YO
o 999999 1 9 9Z

GE.7JB38SE&8DCABA8/8
OI Y- 8Z 090-Y 9-

£8SK.8T8/AJB83250060
- 9
9 9IYO

BTXT.APl •• A8 •• AA8EAO
9
Y89 Y9 Y9 IO
99
9
9
0

W4AC.OADHBC8SB-DlG3B
8Y9 YO--O 88098088
99
9I Z 9 9Z99

O.DUAlING.FAIlED.RES

TORE.UCS.8UF8325006~

8TXT.APC •• A8 •• AAR.WI
9
Y88 Y9 Y9
99
9
9

TH.F837.DATA.8UFR.PO

SITIONS.1-4 ••••• CONT

AIN.XXXXXXXX83250062

.TST.0120A.XXX012345

8TXT.AH3 •• A8 •• AAAOW8
9
Y88 Y9 Y90 8
999 9
9 0

AA.IADOBA8/KB8S8/AJB
Y9 YOO- 9 0 9 9ZYO
9
9Z
Z

8EAOW4AA&OADHAJDAEAO
ZQ 8Y9 YQ-ZYQOZQ
o 99
9Z
1 0

WBAA-IADQAJB83250048
8Y9 YOOlYQ

BTXT.AHC •• A8 •• AA8EAO
9
Y8R Y9 Y9 ZO
990 9
9
0

W4AA&OHCABOAAAAAACAO
8Y9- 90Y8 YYYYYYRY9
99 0 Z99 99999909

IAAAA3AQ/AAAAAALAHAA
9YYY98Y99YYY9YY8Y9YY
999 9 999 9999 99

8TXT.AHL •• A8 •• AAADAA
9
Y8Y Y9 Y9Y8YY
99
9
9 9999

AEAEDE.7JB08XE&80AA8
Y9Y89Z YZ 09Y9 99
9

8TXT.AHT •• A8 •• AA&8BB
9
Y8
Y9 Y9 -9
99
9
9
0

Y
9

6189BCDEFGAGADADAE.7
00QQQQY9Y9Y8QZ
ZlZZZZ99'990

J~~8DAAAJDHE83250047

8TXT.AMC •• A8 •• AATION
9
Y89 Y9 Y9
99
9
9

o

I

9l

9

9

yl,

090ZYOOZ
Z 1

9

9

Z

Z

9

9

o

Z

10

Z

9l

Z

Y9

Y9Y9

9

9 9

•••••••••••• 83250067

BEND ••••••••••••••••
9

•••••••••••• 83250068

BLOT ••••••••••••••••
9

99

0

9

i
l'

l

Z

'>

o YO

I

-----------------------------------------------lAST PAGE·-----------------------------------------~-------

DATe
EC'S

15MAR66 15NOV66 120CT67
125632 125655 131812

10
PAGE

F832-5
19

\' DATE
EC'S

------------------------------------------I

10
paGE

15MAR66 15NOV66 120CT67
125632 125655 131812

-------------------~--------------

______________________

.--~

~--

f832-5
19A

____..__.. __..
~

,

~J

o

0_

".

aooooooOOOOOOOOOOOOOOOOOOOOOOOOOO}
--

------~---

------

.~~

C" COO C

c'

. ,

o o

0

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840209
PAGE
1

1403 RIPPLE PRINT TEST

'I

3.2.1

1.

PURPOSE •

2.

REQUIREMENTS
•••••
OPERATING PROCEDURE.
I'R (NTOUTS .
COMMENTS • • • • • •

•

•

•

•

•

•

. ..

I

1
1
1

I
[

1
3

oPTIONAL FEATURE DIGIT 2

*
*

* *HEX 8* HEX 4* HEX 2* HEX 1* HEX 6* HEX 4* HEX 2* HEX 1 *
*-------------*--*-----.------.------*------*------*------*------* ------*
* 1403 PRINTER*83*ASCII*SEL
*
*UNIV. "HI- * 120 *
* 2821 *
OR
• *
.TAPE *
*CHAR • • SPEED *PRINT *
*2 CHNL •
•
* 1404 PRINTER* *
.LISTER*
*BUFF. *PTR. *POS. *
*SWITCH •
*
*
*
•
•
•
•
•
* CaNT I NUOUS * *
• FORMS
••
*
*
*
•
•
•
•
•

I 11004
I 0

HAVE A PC$ EMITTER CHA[N. AND IS THEREFORE
I
NOT IN DUAllNG MODE
I ON--PRQGRAM WILL ASSUME THE PRINTER DOES NOT
I
HAVE PCS EMITTER AND [S IN OUAlING MODf.

I
I

01

I

I
I

I
I
I
I

0

PROGRAM OUTPUT ON TEST DEVICE.

4 GROUPS OF 64 LINES EACH. WITH A TRIPLE SPACE BETWEEN EACH GROUP
WIll BE PRINTED oN THE OEV[CE UNDER TEST. EACH GROUP SHOULD APPEAR
AS A TRUE RIPP!-E PATTERN.
4.

PRINTOUTS
4.l

-----------------------------------.---------------------------------------

OPERATOR INSTRUCTIONS
-SEC SS 24 IS OFF seT IT ON FOR DUALING MODE-SEC SS 24 IS ON SET IT OFF IF NOT DUALING MODE-

EQUIPMENT REQUIREMENTS.
INPUT DEVICE FOR PROGRAM LOADING.
OUTPUT DEVICE OTHER THAN TEST DEVICE.

ONE OF THE A80VE MESSAGES WILL APPEAR ONCE FOR EACH UCS PRINTER PRIOR
TO A HALT. THE OPERATOR SHOULD CHECK FOR THE PROPER SETTING of THIS
SWITCH BEfORE EACH DEVICE IS TESTED. IMPROPER SETTING OF THIS SWITCH
COULD CAUSE FALSE ERRORS.

STORAGE. FOR THIS PROGRAM.

CPU
CHANNEL

- RESTORE UCSBUFR WITH F837-

OPERATING PROCEDURE

THE ABOVE MESSAGE WILL OCCUR AT TERMINATION OF THE TEST ON EACH
DEViCE. THIS Is TO REMIND THE OPERATOR THE ORiGINAL CONTENTS
OF THE uCS 8UFFER HAS BEEN DESTRQYED, AND THAT SECTION F83l IS
A MEANS OF RESTORING IT.

PROGRAM LOADING.
STANDARD AS DESCRiBEO IN USERS GUIDE.

3.2 .

Fill"
A!.!.

ROUTINE 02 - BASIC PRINTERS

*

3.1

I
I

16 GROUPS OF 16 LINES EACH. WITH A TRIPLE SPACE BETWEEN EACH GROUP
WILL BE PRIkTED ON THE DEVICE UNOER TEST. THE FIRST 15 GROUPS
SHOULD APPEAR AS A TRUE R[PPlE PATTERN. THE 16TH GROUP MAY NOT
APPEAR AS A TRUE RIPPLE PATTERN. THIS SHOULD BE EXPECTED AND NOT
CONSIDEREP AN ERROR.
THE 16 GROUPS WILL BE REPEATED IN FOLDING MODE.

-_ .. _---------------------------------------------------------------------*
*ZZ*BIT O. BIT 1* BIT 2* BIT 3* BIT 4* BIT 5* BIT 6* BIT 1 *

3.

I OFF-PROCEED NORMAL!. Y.
I ON--Go INTo Tlo 5,0 lOOP ON CURRENT COMMAND.

ROUTINE 01 - UCS PRINTERS

* UNIT

4K OF

I AND

3.2.3

-------------------------------------------------------------------------* UNIT CODE
*
•
•

2.2

OR

THE PROGRAM WILL HALT ONCE FOR EACH UCS PRINTER TO BE TESTED. AFTER
INSTRUCTING THE OPERATOR TO CHECK SECTION SENSE SWITCH 24.

THE UNIT DEFINITION TABLE-UOT-ENTRY MUST BE PUNCHED AS FOLLOWS.

OPTIONAL fEATURE DIGIT 1*
•

I
I

1-----1------_..:_-------------------------------------1-------__
1.,.___ _
PROGRAM HALTS.

THE SECTION IS RElOCATABLE.
THE EXCLUSIVE CPU FLAG IS ON.
A DIAGNOSTIC MONITOR MUST BE USED TO CONTROL THIS PROGRAM.

*
*

FUNCT ION

3.2.2

PROGRAM REQUIREMENTS.

*

0

I
I
I
I

PREREQUIS IrES

-----.--------

SW. I
•
I

[-----I-------------------------------------~-----------I---------J---~I 24 I OfF-PRp6R~1! WIL!- aSSUME THE PR INTER DOES
I FU6
I ·11001

INTENT.

2.i

SENSE SWITCH usaqE.

ROUTIN~ I elT
I-----l------------------_~-----------------------------I------_~_l_~~--

I

TO PRINT All CHARACTERS IN EVERY PRINT POSITION BY MEANS OF A RIPPLE
PATrERN. TO INDICATE BY PRINT POSITION', ALL DETECTED FAILURES.
2.

PIN 840209
PAGE
lA

-----------------------------------------------------------------------ISENSEI
I SECTION I BYTE

PURPOSE
1.1

•

1403 RIPPLE PRINT TEST

TABLE OF CONTENTS

1.

•

IBM MAINTENANCE DIAGNOSTIC PROGRAM

1403 RIPPLe PRINT TEST
DESCR IPTION

3.
4.
5

oe

0 0 · C' 0 0 0 0

PROGRAM OPERATE.

**************.*********.•• ** NOTE •••••••••••*.*•• **** •• *••••••
*
IF 2 CHANNEL SWITCH FE~TURE INSTALLED. DISABLE THE UNUSED.
* INTERFACE TO PR~VENT NOT READY TO READY STATUS FROM BEING •
*
PRES ENf EI) TO THE OTHER CHANNEL.
•
.** ••• ****••••••*.*** •• **.**.* ••••••** •••• *••• **.**•••• *.**.~ ••

OATE
EC

15MAR66
125632

15NOV66
125655

120CT61
131B12

10

PAGE

F836-.
I

DATE
EC

15MAR66
125632

15NDV66

125655

120CT61
131812

10

PAGE

1'836-.
1A

I'IN

IBM MAINTENANCE D1AGNOSTIC PROGRAM

840209

PAGE

2

PAGE

STATUS MESSAGES
4.2.1

SAMPLE ERROR PRINTOUT FOR UCS PRINTER

04

THIS LINE SHOWS THE ADDRESS OF THE START 1-0, TEST 1-0,
OR HALT 1-0 THAT WAS ISSUED IN THE 1-0 HANDLER SU8-RDUTINE.

05

THIS LINE SHOWS THE ADORESS OF THE CCWTD BE ISSUED BY
A START 1-0 COMMAND. IF CCWS ARE CHAINED, THE ADDRESS
GIVEN REFERS TO THE FIRST CCW IN THE CHAIN.

06

THIS LINE DISPLAYS THE FIRST CCW. THE FIRST BYTE CONTAINS
THE COMMAND COOE. THE NEXT 3 8YTES CONTAIN AN ADDRESS IN
STORAGE, WHICH WILL BE USED IF DATA TRANSFER IS PERFORMED.
THE NEXT 8YTE CONTAINS FLAGS USED 8Y THE CHANNEL. THE LAST
3 BYTES ARE THE COUNT FIELD. IF CHAINING IS INDICATED IN
BYTE 4, ADDITIONAL CCWS WILL 8E SHOWN 8ELOW THIS LINE.

07

THIS LINE SHOWS THE CONOITION CODE EXPECTED, BY THE
PROGRAM, IN RESPONSE TO ISSUING THE 1-0 COMMAND.

08

THIS LINE SHOWS THE ACTUAL CONDITION CODE SET IN RESPONSE
TO THE 1-0 COMMANO.

09

THIS LINE DISPLAYS THE FIRST CSWEXPECTED BY THE PROGRAM.
A 81T BY 8IT DESCRIPTION OF THE OEVICE STATUS BYTE PORTION
OF THE CSW, APPEARS IN THE PROGRAM. LISTING, FOLLOWING
THE TEST NUM8ER DESCRIPTIONS.

10

THIS LINE DISPLAYS THE ACTUAL CSW RECIEVEO BY THE PROGRAM.
NOTE ••• FOR EVERY EXPECTED -EXP- CSW PRINTED OUT THERE
SHOULD BE A CORRESPONDING ACTUAL -ACT- CSW
PRINTED OUT ON THE NEXT LINE. THE ABSENCE
OF A -ACT- CSW PRINTOUT INDICATES A MACHINE
FAILURE. A MACHINE FAILURE IS ALSO INDICATED
IF THERE ARE -ACT- CSW PRINTOUTS WHEN THERE
ARE NONE EXPECTED.

11

THIS LINE WILL APPEAR IF THE PROGRAM EXPECTS MORE THAN
ONE CSW.

12.

THIS LINE WILL APPEAR IF THE PROGRAM RECIEVED A SECOND CSW.

13

THIS LINE SHOWS THE SENSE BYTE EXPECTED BY THE PROGRAM.
A BIT BY 8IT DESCRIPTION OF THE 1403 SENSE BYTE APPEARS
IN THE PROGRAM LISTING, AFTER THE SECTION PREFACE.

14

THIS LINE SHOWS THE ACTUAL SENSE 8YTE RECIEVED BY THE PROGRAM.

15

THIS LINE DISPLAYS THE CPU AND CHANNEL LOGOUT AREA ON
MODEL 30 SYSTEMS. IT WilL NOT APPEAR ON ANY OTHER SYSTEM.

16

THIS LINE SHOWS THE SECTION SENSE SWITCH LOOP OPTIONS.
IF AN ERROR HAD OCCURRED. AND OM SENSE SWITCH 25 WAS ON.
A HALT WOULD NOW OCCUR, TO ALLOW SETTING OF THE SECTION
SENSE SWITCHES. TO INSURE THAT YOU WilL LOOP ON THE
COMMAND THAT FAILED, YOU SHOULD REQUEST A HALT ON ERROR.
SET THE PROPER SENSE SWITCH ON, AND PRESS THE EXTERNAL
INTERRUPT KEY TO LOOP.

MESSAGE

LINE

01 -*500

F8363 01
001400 OOE02 - TST 002003 - ADR 001052 lINK04 - AOR 001142 SIO05 - CAW OOlE1006 - CCW EBOOIA50 0000000101 - CCW 09001A50 0000008408 - CC 0 EXP09 - CC 0 ACTIO - CSW OOOOlE20 080DOOOO EXP11 - CSW OOOOlE20 OBOOOOOO ACT12 - CSW 00000000 04000000 EXP13 - CSW 00000000 06000000 ACT14 - SNS 00 EXP15 - SNS 10 ACT16
LOG 00 000000 000000 00000017 - UCS AODR 001 TO 016 CONTAIN 00 THRU OF REST 8LANKS18 - PRINT SHD
PRT PAR19 POS WR RD RD PlC CHK CHK20 - 132 03 03 03 1
1
021 131 02 02 02 1
1
022 130 01 01 01 1
1
023
55 0 ON FOR LOOP ON S1024

PIN

840209·
2A

1403 RIPPLE PRINT TEST,

1403 RIPPLE PRINT TEST

4.2

IBM MAINTENANCE DIAGNOSTIC PROGRAM

HLT

- IN FOLDING MODETHt A80VE MESSAGE WILL OCCUR IF THE UCS BUFFER WAS LOADED WITH
FOLDING, AND A PRINT ERROR IS DETECTED. THE MESSAGE WILL APPEAR
8ETWEEN LINES 17 AND 18 OF THE SAMPLE PRINTOUT.
4.2.2 ANALYSIS OF SAMPLE PRINTOUT
LI

Nl

01

02

03

DATE
EC

o

15MAR66
125632

EXPlANAT ION
THIS IS THE HEADER LINE PRINTED RY OM. IF AN ASTERISK
PRECEEOS THE -500- AN ERROR HAS CAUSED THE MESSAGE
PRINTOUT. IF NO ASTERISK IS PRINTED, THE MESSAGE
IS A RESULT OF EITHER HAVING THE CORRECT PRINTOUT
SWITCH ON OR AN OPERATOR MESSAGE IS TO FOLLOW.
ALL LINES THAT FOLLOW THE -500- ARE PART OF THAT SAME
MESSAGE. THE START OF A NEW MESSAGE IS INDICATED
BY ANOTHER -500- PRINTOUT. THE -FB30R- IS THE SECTION
10 NUMBER WHERE -R- REPRESENTS THE REVISION lEVEL OF
THE PROGRAM. THE -08- IS THE PROGRAM ROUTINE NUMBER
WHILE THE -OOE- IS THE ADDRESS OF THE DEVICE UNDER
TEST.
THIS IS THE TEST NUMBER ASSOCIATED WITH THE MESSAGE. AT THE
BEGINNING OF THE PROGRAM LISTING, THERE IS A LIST OF TEST
NUMBERS. WITH THE TEST NUMBER IS A SHORT EXPLANATION OF
WHAT WAS 8EING DONE, AND WHAT SHOULD OCCUR.
THIS LINE SHOWS THE ADDRESS FROM WHICH THE 1-0 HANDLER
SUB-ROUTINE WAS ENTERED. ALL }-O COMMANDS ARE ISSUED
FROM THIS SUB-ROUTINE, SO IT IS ENTERED MANY TIMES FROM
MANY PLACES. TO INSURE THE SPECiFIC 1-0 OPERATION
WILL BE THE NEXT ONE PERFORMED, RESTART THE PROGRAM WITH A
SYSTEM RESET, PSW RESTART, AND ADDRESS STOP AT THE GIVEN
ADDRESS.
15NOV66
125655

o

PAGE

o

"

1·0··'···"'·
..· ,

,0'(,,·
'....
'

o

THIS LINE DESCRI8ES THE PATTERN OF CHARACTERS IN THE UCS
BUFFER.

18

CDLUMNHEADINGS READ
PRINT POSITION. NEXT
DATA READ 8ACK, THEN
8IT, THE PRINT CHECK

AND
19

10

120CT67
131812

17

f836-*
2

DATE
EC

15MAR66
125632

()

15NOV66
125655

VERTICALLY. THE FIRST COLUMN IS THE
DATA WRITTEN, DATA SHOULD READ 8ACK,
THE STATE OF THE PRINT LINE COMPLETE
81T AND PARITY CHECK 81T.

120CT67
131812

0···,
('

iU;,
~ .. t!

10
f836-*
PAGE
lA

0.,

.'t~

(0
~I

\~. .,!
'0··'

10:
I,'l.·· ..\
,J
~

..

a

()

000 00 00 000:000000001

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 8'10209
PAGE
3

1403 RIPPLE PRINT TEST

20
21

AND
22

23

THESE LINES INDICATE IN WHICH PRINT POSITIONS AN ERROR WAS
DETECTED, WHAT WAS WRITT'EN IN THAT POSITION" WHAT SHOULD 8E
READ BACK, WHAT WAS READ BACK, AND IF THE PR1'NT LINE COMPLETE
BIT, THE PRINT CHECK BIT, OR PARITY CHECK 8IT WAS SET ON.
A 1 INDICATES THE BIT IS ON', A ZERO, THAT IT IS OFF.
THIS LINE SHOWS THE SECTION SENSE SWITCH LOOP OPTIONS.
FURTHER ANALYSIS QF THE ABOVE PRINTOUT INDICATES A PRINT
CHECK PROBLEM IN POSITIONS 130, 131, AND 132. A
LOOK AT THE LOGIC, SHOWS ONE COMMON INPUT TO THE INDICATED
HAMMER DRIVERS -- TENS DRIVE 13 IN THE HAMMER FIRE SElECT
MATRIX. THIS COULD BE THE FAILING AREA.

- PR"VIOUS HANGUP O£TECTED- SEE DESCRIPTION-COMMENTS 5.

COMMENTS
THE ABOVE MESSAGE WILL APPEAR IF A SYSTEM RESET PSW RESTART IS
PERFORMED AFTER A HANGUP CONDITION ON AN I-a COMMAND. FOLLOWING
THIS LINE WILL BE A PRINTOUT SIMILAR TO THE ABOVE SAMPLE MESSAGE
ALL THE INFORMATION THAT CAN 8E COllECTED ABOUT THE ERROR, WILL 8E
PRiNTED. NOTE - SYSTEM RESET WILL RESET THE SENSE INFORMATION.
A FALSE HANG UP MESSAGE PRINToUT CAN OCCUR IF THE OPERAtOR PERFORMS
A SYST,EM RESET-PSWRESTART ,WHILE THE PROGRAM IS RUNNING.
THE PROGRAM
WILL RESTART AFTER PRINTING THE, IWLTI-liNE ERROR MESSAGE, OR ANOTHER
SYSTEM RESET PSIt RESTART MAY BE PERFORMED TO BYPASS THE ERROR MESSAGE.

o
o
0'

o
o

o
o
o

o
o

o
o
o

o
o
o
o

o
o
o
----------------------------------------------- LAST PAGE -----------------------------------------------ID
F836-*
DATE
15MAR66
15NOV66
120CT67
PAGE
3
EC
125655
131812
125632

o

o
o
o
o

o

!!''),
';"_J

(~.

'

,J

(')',
,--j/

0

\"j

13
,I

,r~

iJ;
."

(?~)~I
~~J;

(1'.
'""yi

,;r,
""J

t~
',j

0.

.",)1

0 ,

1

.~.. j!

(<},

"',

(0
\'

'J

,A,
\~);

tr'\,

·,Y

J

~a

'0

Ii)

,0
\1 ()
0 :0 ,0 10 0 0'l.
I,,',

:)

0 0 0 0 0' 0 0 0 0 0 0 0 0 0) 0
"'

IBM

MAINTENAN~E

1~03

DIAGNOSTIC PROGRAM

PIN 840210
PAGE
1

4

5
6
7
B

F8364000
00000000
0000
0000
00
01
CO
00
0104000000
001038
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
00000000
0000000000000000
00000000
0004000000
000000
0000000000000000

"'",

0 0" 0 0; 0 0
.1

V~,i

o o

00

IBM MAINTENANCE DIAGNOSTIC PROGRAM

o 0.8

PIN 8"0210
PAGE
1A

1403 RIPPLE PRINt'

2
3

01000
01000

DATE
EC'S

" t':'

RIPPLE PRINT
PROGRAM LENGTH

01000
01004
01008
0100A
0100C
01000
0100E
OlOOF
01010
01015
01018
01020
01028
01030
01038
01040
01048
0104C
01054
01058
01050
01060

()

9
10
11
12
13
14
15
16
11
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
5B
59

60
61
62

15MAR66 15NOV66 120CT67
12~632
125655 131812

= 4073

(DECIMAL)

PRINT ON,GEN,DATA
XF8364 START 4096
USING .,15

••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• REVISION LEVEL 4. THIS REVISION DIFFERS FROM VERSION 3 AS FOLLOWS •••
•
1. THE PROGRAM HAS BEEN MODIFIEO TO INCLUDE RIPPLE OF ALL
•
~HARACTERS IN FOLOING MODE ON UCS PRINTERS.
•
2. THE PROGRAM HAS BEEN MODIFIED TO CONSIOER HEX CHARACTERS
•
-80- AND -CO-, AS VALID UNPRINTABLE CHARACTERS, ON UCS
•
PRINTERS IN FOLOING MODE.
•
3.
INCLUDES CHANGES TO ENABLE PROGRAM TO RUN WITH OM-44.
• E.C. PREREQUISITIES
•
MACHINE • • • 2821 MUST BE AT EC 125673
•
PROGRAM • • • NONE

01068
01070
01078
0107C
01080
OlDEO
010El
010E2

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

• REVISION LEVEL 2.
THIS REVISION DIFFERS FROM VERSION 1 AS FOLLOWS •••
•
1. THE PROGRAM HAS BEEN MODIFIED TO RESET THE BLOCK DATA CHECK
•
LATCH, ON UCS PRINTERS, DURING INITIALIZATION OF THE SECTION.
• E.C. PREREQUISITES
•
MACHINE • • • 2821 MUST BE AT MINIMUM E.C. LEVEL 124265.
•
PROGRAM • • • NONE

SECTION SENSE SWITCHES

EXNPSW DC
SRET
DC
SVNPSW DC

X' 0004000000 ,
XL3'O'
XLB'OO'

EXTERNAL. NEW PSW
ADR OF EXT INTRPT ROUTINE
SUPERVISOR NEW PSW

ICM
SDMF
NIOU
FLAG1
FLAG2
INPSW
EXOPSW
SVOPSW
PGOPSW
MCOPSW
100PSW
CSW
CAW

•
•
INTERRUPTION CONDITION MASK
.•
SECTION OM FLAGS
•
NUM8ER OF UNIT TABLE ENTRYS
•
EXCLUSIVE CPU
.•
110 I NT ARE ERR. EXT I NT TO PROG
•
DISABLED, SPVSR STATE, NO PGM MASK.
ADR OF 1ST ROUTINE PREFIX
•
SECTION OLD EXTERNAL PSW
•
CLEAR ALL OLD PSWS
•
PROGRAM OLD PSW
•
MACHINE CHECK OLD PSW
•
110 OLD PSW
•
CHANNEL STATUS WORD
•
CAW
•
RESERVED FOR OM USE
•

FB36-4
1

•

0

78
79
80
81
82
83
, 84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99

•
•
•

1
2
3

•
•

4
5

COMMAND REJECT
INTERVENTION REQUIRED
BUS OUT CHECK
EQUIPMENT CHECK - HAMMER FIRE CHECK
DATA CHECK - UCS PRINTERS ONLY - UNCOMPARABLE
BUFFER PARITY CHECK - REFERS TO UCS BUFFER
NOT USED
CHANNEL 9

112
113
114
11'
li6

117
118
119
120
121
122
123
124
125
126
127

•

10

17

110
111

••

PAGE

73
74
75
76

•
•
•
•
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
1403 SENSE BYTE
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
81T
MEANING

101
102
103
104
105
106
107
108
109

SE~TION

XL4'OO'
XL2'OO'
XL2'OO'
XU'OO'
Xll'Ol'
X'CO'
X' 00'
X'0104000000'
AL3(ROUTOll
XL8'O'
XL8' 00'
XL8'OO'
XL8'OO'
XL8'OO'
XL8' 00'
XL4'OO'
X1l2'OO'

XL8'OO'
XL8'OO'
XL4'010"0000'
AL4( IRETRN)
96C
X'83'
X'OO'
X'8000'

100

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••
•••••••••••••••••••
• SECTION PREFACE ••••••••••••••••••••••••••••• *•••••
PREFACE.
•••••••••••••••••••
•
••••••••••••••••••
SECNO DC
XL4'F8364000'
PROGRAM,SECTION AND REVISION NOS. •
OC
DC
DC
DC
OC
DC
DC
DC
DC
OC
OC
DC
DC
DC
DC
DC
DC

83
00
8000

DATE
EC'S

15MAR66 15~OV66 120CT67
125632 125655 131812

•

6

•

7

•

0

•
•

1
2

PROGRAM NEW PSW
MACHINE CHECK NEW PSW
I 10 NEW PSW
ADDRESS OF 110 INTRPT ROUTINE
96 BYTE REG DUMP AREA FOR OM USE
UNIT TYPE - 1419 MICR
OPTIONAL FEATURES BYTE
FLAGS AND CHANIUNIT ADDRESS

••
••

PGNPSW DC
MCNPSW DC
10NPSW DC
DC
OS
UNITl DC
UIDP
DC
UlADDR ac

63
64
65
66
67
68
69
70
71

• MODIFICATIONS
• REVISION LEVEL 3. THIS REVISION DIFFERS FROM VERSION 2 AS FOLLOWS •••
•
1. THIS PROGRAM NO LONGER RESTORES THE UCS BUFFER. USE PROGRAM
•
10 F837 TO RESTORE THE UCS BUFFER.
•
2. THE PROGRAM HAS BEEN MODIFIED TO INCLUDE -TEST NUMBERS•
3. ON UCS PRINTERS, THE RIPPLE PATTERN OUTPUT HAS BEEN MOOIFIED
TO INSURE USING ALL AVAILABLE UCB ADDRESSES.
•
•
4. THE REQUIRED NUMBER OF LINES PRINTED BY THIS TEST HAS BEEN
•
REDUCED TO CUT RUNNING TIME.
• E.C. PREREQUISITES
•
MACHINE • • • 2B21 MUST BE AT E.C. 125655.
•
PROGRAM • • • NONE
• USE DESCRIPTION FB36. AT EC 125655, DATED NOV 15, 1966 OR LATER.

SNSW

0000000000000000
0000000000000000
01040000
0000llE8

~HARACTER

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
1403 DEVICE STATUS
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
8IT
MEANING

•

5

•
•

6
7

ATTENTION - NOT USED
STATUS MODIFIER - 2 CHANNEL SWITCH FEATURE ONLY
CONTROL UNIT END - 2 CHANNEL SWITCH FEATURE ONLY
DEVICE BUSY
CHANNEl END
DEVICE END
UNIT CHECK
UNIT EXCEPTION - CHANNEL 12

••

5

ON

•

3

•

4

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
1403 DIAGNOSTIC CHECK READ DATA
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
MEANING
811

••
•
•
•
•
•

••
•
•
..•
•

THE PRINT LINE COMPLETE BIT HAS BEEN SET FOR THIS
POSITION.
OFF - ON BASIC PRINTERS, A COMPARE BETWEEN THE DATA BEING
PRINTED, AND THE PRINT CHARACTER GENERATOR DID NOT
OCCUR IN THIS POSITION, AND THE CHARACTER WAS NOT
CONSIDERED A VALID UNPRINTABLE.
ON UCS PRINTERS. A COMPARE BETWEEN THE DATA BUFFER
AND THE UNIVERSAL CHARACTER SET BUFFER DID NOT OCCUR
AND THE CHARACTER WAS NOT CONSIDERED A NULL OR BLANK

6

ON

-

7

ON

- A PARITY CHECK IN THE DATA BUFFER WAS DETECTED IN

•
•

••
•

-

THE PRINT CHECK PLANE FOR THIS POSITION WAS SET ON.
THIS PLANE IS SET 8Y--1. A HAMMER FIRE AND AN EQUAL CHECK.
2. NO HAMMER FIRE AND NO EQUAL CHECK.
3. LINE FULL, NOT VALID UNCOMPARABLE CHARACTER, AND
NOT A PRINT LINE COMPLETE BIT IN THIS POSITION.
OFF - THE PR1NT CHECK PLANE FOR THIS POSITION IS NOT SET.

THIS POSITION.
•
••
OFF
THIS POSITION OF THE DATA BUFFER HAS CORRECT PARITY.
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
~

•

PARAMEIERS USED TO ENTER

10
PAGE

F836-"
1A

,j

#

,-.

___.."._________.....____'.."'w__. . . . . . . . . . .

....-.~_"'_

. . . "" . . . . _
.. ______•_,__"__._,. . . .
~

~

IBM MAINTENANCE DIAGNOSTIC PROGRAM

.._."'........ ......

~~...

PIN 8100210
PAGE
2

II,'

~

_._~._~

......_..'...____......__.....____

'IBM MAINTENANCE DIAGNOSTIC PROGRAM'

PIN 840210
PAGE
2A

I

I

1403 RIPPLE PRINT'
128
129
130

131
132
133
134

135
136
137
138
139

140
141
1'12

143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
. 160
161
162
163
164
165
166
167

168
169
170

171
172
173

174
175
176
177
178

179

180
181
182
183
1810
185

186
IS7
ISS
189

190
191
192

, DATE
ECIS

15MAR66 '15NOV66 120CT61
125632 125655 131B12

•

l1t03 RIPPLE PRINT'
193
194
195
196
191
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216

THE 1-0 HANDLER ROUTINE

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
BAL
RlltISIO
LINK TO 1-0 HANDLER
•
•
•
•
•

DC
DC
DC
DC
DC

XL2'OOOO' .
X'0014'
X'FO'
X'OO'
AL2IADR-BASE+REG)

CONTROL SWITCHES
TEST NO. IN DEC EXPRESSEO. IN HElC
EXPECTED CONDo CODE
EXPECTEO SENSE DATA
ADDR. OF EXPECTED CSW IF NEEDED

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
1-0 HANDLER CONTROL SWITCHES
2 BYTE PARAMETER FOLLOWING BAL

•

••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• SWITCH
DESCRIPTION

•
•
•
•
.,
•
•.
•
•
•
•
•
•
•
•
•

••
•
••

••
•

••

0

1
2
3
4
5
6
1

OFF - ISSUE AN 1-0 COMMAND
ON - 00 NOT ISSUE AN 1-0 COMMAND
OFF - ENABLE
ON - DO NOT ENABLE
OFF - EXPECT NO INTERRUPT
ON - EXPECT AN INTERRUPT
OFF - DO NOT EXPECT 2 INTERRUPTS
ON - EXI'ECT 2 INTERRUPTS
OFF - EXPECT NO CSWS
ON - EXPECT A CSW
OFF - DO NOT EXPECT 2 CSWS
ON - EXPECT 2 CSWS
OFF
ALWAYS TRY TO ISSUE SENSE
ON - SENSE ON UNIT CHECK ONLY
OFF - GIVE HALT OPTION ON DETECTED ERROR
ON - RETURN WITHOUT HALT OPTION

S

OFF - DO NOT ISSUE DIAGNOSTIC READ.
ON - ISSUE OIAGNOSTIC REAO IF UNIT CHECK •

9

OFF - DO NOT ISSUE OIAGNOSTIC CHECK READ.
ON - ISSUE DIAGNOSTIC CHECK READ ,IF UNIT CHECK.

10

010E4

0

OFF - PRINT HEAOER
ON - DO NOT PRINT HEAOER

•

10

•
•.
•
•
•
•
•
•
•

••
•

2
3

5
6
7
S
9

OFF ON OFF ON OFF
ON OFF ON OFF ON
OFF 'ON OFF ON OFF ON OFF ON -

217

218
219

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
SWITCHES USED BY 1-0 HANDLER
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• SWITCH
DESCRIPTION
•
•
•
•
•
•
•
•

0000

NO HANGUP ON INTERFACE
HANG UP OCCURRED
NO CSWS STORED
ONE CSW STORED
SECOND CSW NOT RECIEVED
SECOND CSW RECIEVED
DID NOT ENABLE
ENABLED ONCE
DID NOT ENABLE TWICE
ENABLED TWICE
NO SENSE DATA RECIEVED
SE.NSE DATA RECIEVED
NO UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE
UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE
NO ERROR DETECTED
AN ERROR WAS DETECTED
NO DATA RECIEVED
DATA RECIEVED

---- OFF - NO DIAGNOSTIC CHECK READ DATA RECIEVED
ON - DIAGNOSTIC CHECK READ DATA RECIEVED

10

PAGE

FS36-1o
2

010E6 02 01
010EC 90 79
010FO 92 00
010F4 . 50 AD
·010FS 07 07
010FE 90 AB
01102 95 30
01106 47 60
0110A 07 DB
01110 91 BO
01114 : 47 10
01118 91 SO
01llC 47 80

50 AD

01120
01124
01128
0112C
01130
01134
01138

91 80
47 80
90 00
41 10
9C 00
41 FO

0113C
01140
01144
01148
OU4C
01150
01156
0115A
0115E
01162
01166
0116A
0116E

58 IE
88 10
9000.
47 80
46 10
01 01
96 80
92 E1
9C 00
47:80
41 40
41 20
92 F3

DATE
EC'S

F 7C8
F 830
F 196
o 048
o 040
F B9C
E 181
F 110
o OBO

B 002

•
•

10

OFF - NO DIAGNOSTIC READ DATA RECIEVED
ON - DIAGNOSTIC READ DATA RECIEVED

11

OFF - HEAOINGS NOT PREVIOUSLY PRINTED
ON - HEADINGS PREVIOUSLY PRINTED

••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•

•
•

5

USED AS LINK TO ERROR OUTPUT FROM INITIALIZE ROUTINE IF
PREVIOUS HANGUP ON INTERFACE DETECTED.

.'••

S

USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN.

9

USED AS WORK REGISTER. WIll BE RESTORED UPON RETURN.'

10

MUST CONTAIN CCW ADDRESS UPON ROUTINE ENTRY

11

MUST BE USED AS LINK REG TO THIS ROUTINE

12

MUST CONTAIN DEVICE ADDRESS

•
••

••
•

••
ISW

F 139

257

o 080

BODO

F 194
F 004
F 150

o

F
F
C
F
C
F

XL2'O'

STM
MVI
ST
XC
STM
CLI
BC
XC
TM
BC
TM
BC

R7,R9,ISAVE
IEXSNS+5,X'00'
RI0,HCAWIRI3)
HCSWI8,R13),HCSWIRI3!
R10,R11,ISLAVE
SYSMODCR14! ,X'30' ,
UNEQ,M0044
LOGOUTI 12) ,LOGOUT
OCRll),X'SO'
ALL,INoW
SNSW,X'80'
NONE,JOHN

TM
BC
TID
BC
SlO
BC

SNSW,X'SO'
NONE,IHI
01R12!
NCCO, ITRYl
01R12)
UNC,ITRYl

CHECK SECTION SENSE SWITCH 0
BR. IF OFF
TEST 1-0
BR. I F NOT CONO. CODE 0
START 1-0
BR. UNCONDITIONAL

SRL

R1,3
.
01R12)
CCO.JOHN
Rl,GREG
ISH(2),ISH
ISW,X'SO'
IACTCC+5,C'X'
01Rl2)
CCO,IZERO
CCl,IONE
CCZ,ITWD
IACTCC+5,X'F3'

MOVE IN A -X1-0 COMMAND- SID, TID, OR HIO
BR~ IF CONDo CODE 0
BR. IF CONDo CODE 1
BR. IF CONDo CODE 2
INDICATE CDNo. CODE 3

STORE COMMAND ADDRESS
SAVE REGS 10 AND 11
CHECK FOR MODEL 30
BR. IF NOT
CLEAR MOD 30 LOGOUT AREA
CHECK CONTROL SHITCH FOR NO 1-0
BR. IF ON

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
L
RI,WTIl4)

0 198

003
000
150
14,.
OE4
F OE4

DC

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
SENSE SWITCH LOOPS
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ST
RI0,HCAWCR13!

048
004
BC
000
120
000
120

0
C
F
F
F

.

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
• 1-0 HANDLER SUB-ROUTINE.
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ISIO
MVC
ITSTNO+5(2).2CRll)
SAVE TEST NUMBER

F 17E
F 116

o 040

REGISTERS USED IN 1-0 HANDLER

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
REG
COMMENTS

222
223
224
225
226
227
228
229
230 MOD44
231
232
233
234'
235 •
236
237 ITRVI
238
239
240 IHANG
241
242
243
244
245 IHI
246
247 GREG
248
249
250 JOHN
251
252
253 ISSUE
254
255
256

F OE4

F 739

C 000
F 190

no

BC
tiCT
XC
01
MVI
SID
BC
BC
BC
MVI

15MAR66 15NOV66 120CT67
125632 125655 131812

________________

~

o o

220
221

•
•
••

10

PAGE

____________

~

_________

~

____________

~

______________

~

F836-4
2A

________

I

~J

0 0 0 0 0 0 0 0 0 0 0·0 0 0 0 00 0 0 0 0 0 0 0 00 0 0 0 0'0

C: () 0

0000

IBM M4INTEN.NCE DI4GNDSTIC PROGRAM

c

,"

0 0 0 0 0

".,

PIN 840210
P~GE

111M

MAINTtNA~Lc

41 fO
92 f2
41 FO
92 Fl
02 01
96 40
41 FO
92 FO
94 7F
91 40
41 10
96 10
58 'IE
88 90
96 80
80 00
46 90
80 00
94 1F
95 FO
47 60
9D 00
41 BO
91 10
47 80
OA DO
64
24
FA5D
96 80
OA D.
47 FO

01lE8
OIIEC
OllFO
01lF4
OllFA
OllFE
01202
01208
0120C
01210
01214
0121B
01l1C
01220
01224
01228
0122C
01230
01234
0123B
0123C
01240
01244
01248
0124C
01250
01254
01258
0125C
01260

94
91
47
02
96
47
02
96
91
47
91
41
96
41
91
47
91
47
91
47
91
47
91
41
91
41
91
47
41
45

DATE
EC'S

1F
40
10
07
40
FO
07
20
10
80
08
10
08
FO
20
SO
20
10
CO
80
40
80
02
10
20
80
02
SO
80
70

F
F
F
F
F
F
F
F
F
B
F
F
0
0
F
F
F
F
F
F

F
C
F

0

F

194
739
194
739
716
01:4
194
139
OE4
000
224
OE4
198
003
OE4
S03
164
B04
OE4
139
22C
000
22C
044
22C

o 040

F OE4
F lCO

F
F
F
F
F
F
F
F
B
F
F
F
F
F
F
F
8
F
B
F
F
F
F
F
F
F
F
F
F

0f4
0(;4
202
1E6
OE4
20C
1EE
OE4
000
224
OE4
224
01:4
1M

OE4
lCO
000
23C
001
33A
OE4
33A
7EA
25C
OE4
33A
1F2
33A
7FS
f 2FO

F 040
F 040

o c

0 0, 0

c o e

0, 0 0

DIAGNOSTIC PROGRAM

PIN 840210

PAGE

3

1403 RIPPLE PRINT
01172
01176
0117A
0117E
01182
01188
0118C
01190
U1194
01198
01l9C
OllAO
01lA4
01lA8
01l11C
OllBO
01lB4
011BS
OllBC
OllCO
011C4
011CS
OIlCC
01100
01104
01108
011DA
OllDB
OllOC
OllDE
01lE2
OllE4

c

0 0 0

{;

3A

1403 RIPPLl PRINT
258
259
260
261
262
263
264
265
266
261
268
269
270
211
212
273
274
215
216
217
778
279
280
2S1
282
283
284
285
286
287
28B
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
31B
319
320
321
322

15MAR66 15NOV66 120CT67
125632 125655 131812

BC
UNC, I NOW
SR. UNCONDITIONAL
MVI
IACTCC+'i,X'F2'
INDICATE CONO. CODE 2
BC
UNC,INOW
BR. UNCONDIT IONAL
lONE
MVI
Ii\CTCC+S,X'FJ '
INDICATE CONDo CODE
MVC
ICS~I(8I,HCSW(RI31
SAVE CSW
01
ISW,X'40'
INDICATE I CSW
8C
UNC,INOW
BR. UNCONDITIONAL
IZERO MVI
IACTCC+S,X'FO'
INDICATE CONDo CODE 0
INOW
NI
ISW,X'7F'
TURN OFF HANG UP SWIICH
TM
01 R111, X' 40'
CHECK CONTROL SWITCH FOR NO ENABLE
ALL,ISEN
BC
BR. IF ON
01
ISW,X'10'
INDICATE ENABLED CNCE
IWAIT L
R9,IHIRI41
LOAD OM WAIT FACTOR
SRL
R9,3
ADJUST
01
ISW,X'BO'
TURN ON HANG UP SWITCH
SSM
MSK 1
ENABLE
BCT
R9,*
WAIT
SSM
MSK2
DISABLE
NI
ISW,X'1:F'
TURN OFF HANG UP SWITCH
TRUBL ClI
IACTCC+5,X'FO'
CHECK FOR COND. CODE 0
BC
UNHl,ISPED
tlR. IF NOT
O(R 121
TIO
TEST 1-0
BC
NCCl,ISPED
BR. IF NOT CONO. CODE
TM
HCSW+4IRI3I,X'lO'
CHECK FOR DEVICE BUSY
BC
NONE,ISPED
IlR. IF NOT
SVC
X'OO'
DC
X'64'
PRINT BUSY I-IESSAGE
DC
X'24'
DC
AL2(NODEV-SECNO+REGI
01
ISW,X'BO'
INDICATE HANG UP
SVC ' X'DA'
HALT
BC
UNL,TRUBL
******.* •• ***.*.**** ••• ** •• * ••••••••••• ***** •••• ****.*.**********.*****
ALL 1-0 INTERRUPTS RETURN HERE
**** •• ***.**.**** •• ** •••• * ••••••••••• ******.***.*.********.******.****.
IRETRN NI
ISW,X'1F'
RESET HANGUP SWITCH
TM
ISW,X'40'
BC
All,ISV2
BR. IF 1 CSW ALREADY STOREC
MVC
ICSW1181,HCSWIRI51
SAVE CSW 1
01
ISW,X'40'
INDICATE 1 CSW STOREO
UNC,INT3
BC
BR. UNCONDIT IONAL
ISV2
MVC
ICSW2181,HCSWIR151
SAVE CSW 2
01
ISW,X'20'
INDICATE 2 CSWS STORED
INT3
TM
OIR11I,X'IO'
CHECK CTRL SW FOR 2 INTR EXPECTED
BC
NONE,ISEN
BR. IF NOT
TM
ISW,X'08'
BC
ALLd SEN
BR. IF ALREADY ENABLED TWICE
01
ISW,X'OS'
INDICATE ENABLED TWICE
BC
UNC,J WAIT
ISEN
TM
ISW,X'20'
CHECK FOR SECOND INTERRUPT
BC
NONE, TRUBL
BR. IF NOT
ISPED TM
0IR11I,X'20'
CHK CTRL SW FOR SNS ON UC ONLY
BC
ALL,JDECI
BR. IF ON
TM
1 I R111 ,X' CO'
CHK CTRL SW FOR DUG ON UNIT CHECK
BC
NONE,IBSN
BR. IF NONE
IOECI TM
ISW,X'40'
CHECK FOR CSW STORED
BC
NONE,IBSN
BR. IF NONE
TM
ICSWI+4,X'02'
CHECK FOR UNIT CHECK
ALL,IDOSNS
BC
BR. IF YES
TM
ISW,X'20'
CHECK FOR SECOND CSW
BC
NONE,I8SN
BR. IF NONE
TM
ICSW2+4,X'02'
CHECK FOR UNIT CHECK
BC
NONE,I8SN
BR. IF NONE
IDDSNS LA
R8,ISENSE
LOAD SENSE CCW ADDRESS
BAL
R7,lOEXRA
BR. TO ISSUE SENSE
lTWO

•

Ie
PAGE

F836-4
3

01264
01268
0126C
UI270
01274
0127A
0121E
U121l2
01286
0128C
01290
01294
01298
0129C
0129E
0129F
012AO
012A2
012A4
Ol2A8
012AC
01280
012B4
012B8
OI2BC
012CO
012e4
012e8
012CC
012DO
01204
01208
012DC
OllEO
012E4
012E8
012EC
012FO
012F4
012F8
012FC
01300
01304
0130B
0130C
01310
01312
01316
0131A
0131E
U1322
01326
0132A
0132E
01332
01336
OI33A
01340
01344
0134B
0134C
01350
01354
0135B
0135C

DATE
EC'S

91 80
41 80
96 0'<
94 IF
D2 00
'II 01
41 80
96 01
05 00
41 80
96 01
91 40
47 80
Oil DO
64
00
FA81
OA Oil
90 00
41 70
'II 40
41 80
41 80
45 70
91 80
47 80
96 40
94 7F
91 80
1,1 80
41 80
45 70
91 80
47 tlO
96 20
94 7F
47 FO
58 'I':
88 90
50 80
9C 00
47 10
90 00
41 40
46 90
01 F7
91 04
47 80
96 80
47 FO
91 40
41 10
47 FO
91 20
41 10
47 FO
D5 00
47 60
91 08
41 80
91 40
47 80
48 8B
40 80
05 01

F
F
F
F
F
F
F
F
F
F
F
F
F

0f:5
211C
01:4
01:5
796
1111
286
796
7Al
2AC
OE4
lAI
2AC

B 005

F 196

C 000
F 2114
B 001
F ZCC
F 808
F 2FO
F OES
F lCC
F OI:S
F OE5
B 001
F 33A
F 948
F 2FO
F OES
F 33A
F OES
F OES
f 33A
0 198
0 004
0 048
C 000
F 310
C 000
F 312
F 304
0 044
F 30C
F OE5
F 310
F OE4
F 384
F 3B8
F 0(;4
F 3B4
F 3B8
F 739
F 3B4
B 000
F 322
F 0t4
F 3tl4
0 006
F 360
F 1E6

B 004

F 7E6

323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
35B
359
360
361
362
363
364
365
366
367
368
369
310
371
372
373
374
375
376
317
378
379
380
381
3B2
3B3
384
385
386
3S7

15M.R66 ISNOV66 120CT67
125632 125655 131B12

ILKSEN

HOPE
IFUR

ISEA

10EXRA

ICLEAR
IT ICK
IBACK
ILOKE

INDEX 1
INOEX2
IBSN

ICCSWI

TM
BC
01
NI
MVC
TM
BC
01
CLC
BC
01
TM
BC
SVC
DC
DC
DC
SVC
TIO
BC
TM
BC
LA
BAL
TM
BC
01
NI
TM
BC
LA
BAL
TM
BC
01
NI
BC
L
SRL
ST
SIO
BC
TIO
BC
BCT
BCR
TM
BC
01
BC
TM
BC
BC
TM
BC
BC
CLC
BC
TM
BC
TM.
BC
LH
STH
CLC

ISW+l,X'80'
NONf,IFUR
ISW,X'04'
ISW+l,X'7F'
IEXSNS+51 11 ,5IRIlI
IACSNS+5,X'01'
NONF,ILKSEN
IEXSNS+5,X'OI'
IACSNS+5111,IEXSNS+5
EQ,IFUR
ISW,X'OI'
IACSNS+5,X'40'
NONE,IFUR
X'DO'
X'64'
X'OD'
AL2(READY-SECNO+REGI
X'DA'
OIR In
Nce fJ. HOl'E
l(Rlll,X'IoO'
NONE,ISEA
R8,OCKRD
R1,IOEXRA
ISW+I,X'SO'
NONF,ISEA
ISW+I,X'40'
ISW+l,X'7F'
1 I RHI, X' 80'
NONE,tBSN
R8,RDCCW,
R7,IOEXRA
ISW+l,X'SO'
NONE,IBSN
ISW+l,X'20'
ISW+l,X'7F'
UNC,IBSN
R9, WTI R141
R9,4
R8, HCAWI R131
0(R121
NCCO,IBACK
0lR12J
CC 1. IlOKE
R9,IClEAR
UNC,R7
HCSW+4IRI31,X'04'
NONE,ITICK
ISW+l,X'80'
UNC, I BACK
ISW,X'40'
ALL,INDER
UNC,IDUNCK
ISW,X'20'
ALL,INDER
UNC ,IOUNCK
IACTCC+5(1),4IRlll
UNEQ,INDER
01 R111, X' OS'
NONE,INOEXI
ISW,X'40'
NONE,INOER
RB,6(Rl1l
R8.ICCSWl+4
ICSW1(8),ICSWI

CHK FOR DATA RECIEVEO
BR. 1 F NOT
INDICATE SENSE RECIEVED
RESET DATA RECIEVED SWITCH
MOVE IN EXPECTED SENSE
CHECK FOR CHANNEL 9
BR. IF NONE
SET UP 9 AS EXPECTED
BR. IF EQUAL
INDICATE AN ERROR
CHECK FOR I NTERVENTI ON REQUIRED
BR. IF NOT
PRINT
-READY OEVICE
HALT TO PERFORM INTERVENTICN
TEST 1-0
CHK CTRL SWITCH FOR OIAG CHECK READ
BR. IF NOT
LOAD CHECK READ CCW ADDRESS
BR. TO ISSUE CHECK READ
CHECK FOR DATA RECIEVED
BR. IF NOT
INDICATE CHECK READ DATA RECIEVED
RESET DATA RECIEVED
CHK CTRL SWITCH FOR DUG READ
BR. IF NOT
LOAD 01 AGNOSTIC READ CCW ACORESS
BR. TO ISSUE DIAGNOSTIC READ
CHECK FOR DATA RECIEVED
BR. IF NONE
INDICATE READ DATA RECIEVEO
RESET DATA RECIEVEO SWITCH
BR. UNCONDITIONAL
LOAD OM WAIT FACTOR
ADJUST
STORE CAW
START 1-0
BR. I F NOT ACCEPTED
TEST 1-0
BR. IF CSW STORED

RETURN VIA REG 7
CHECK FOR DEVICE END
BR. IF NOT
INDICATE DATA RECIEVED

COMPARE FOR EXPECTED CONDo CODE
BR. IF UNEQUAL
BR. IF NO CSW EXPECTED
8R. IF NO CSW RECIEVED
LOAD CSW ADOR
STORE IN COMPARE INSTR.
COMPARE FOR EXPECTED CSW

10
PAGE

F836-4
3A

ifIl\48?4Mt¥.¥4

7; 4 .4#l

&W!tz;i42'" 4P.@iJ,R WHiiM.4.· WI;:; .

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840210
PAGE
4

IBM MAINTENANCE DIAGNOSTIC PROGRAM

1403 RIPPLE PRINT
01362
01366
0136A
0136E
01372
01376
0137A
0137E
01382
01386
0138A
0138E
01392
01396
0139A
0139E
013A2
013A6
013AA
013BO
013B4
013B8
013BC
013CO
013C4
013C8
013CC
01300
01304
01308
: OBOE
013EO
_0l3E2
013E4
013E6
013E8
013E9
013EA
OBEC
013FO
013F2
O13F6
013F8
013FA
Ol3FC
O13FE
01400
01401
01402
01404
01408
0140C
01410
01412
01414
01416
01418
014IA
0141B
0141C
01UE
01422
01426
0142A
0142C

47
91
47
91
47
41
40
41
40
94
40
40
91
It7
96
91
47
96
05
47
96

60
04
80
20
80
88
80
88
80
Fe
80
80
01
80
02
01
80
01
07
80
01
92 61t
92 CO
91 01
47 10
91 01
47 80
92 24
92 80
02 01
OA DO
0002
07C8
07C8
OA DO
64
09
F7C3
41 80
1B 88
50 80
OA DO
0003
0755
0754
OA DO
EO
10
F74F
41 68
91 80
47 10
OA 00
0003
0600
0743
OA 00
EO
OF
F13E
95 9C
41 60
50 AO
OA DO
0003

DATE
EC'S

F
B
F
F
F
0
F
0
F
F
F
F
F
F
F
F
F
F
F
F
F
F
F
F
F
F
F
F
F
F

3B4
000
32E
OE4
3B4
008
3AE
004
388
818
39C
3A8
796
39E
818
7F2
3M
818
7EE
3B8
OE4
3E8
56E
OE4
308
004
58A
3E8
56E
7C8

F 7EE

1403 RIPPLE PRINT
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411

BC
TM
BC
TM
BC
lA
STH
lA
STH
IClRDT NI
STH
STH
TM
BC
IFIX9 01
IS12
TM
BC
IFIXIZ 01
ICCSWZ CLC
BC
INDER 01
IDUNCK MVI
MVI
TM
BC
TM
BC
MVI
MVI
IOUTIT MVC
SVC
DC
DC
DC
SVC
IFlAGI DC
DC
DC
LA
SR
ST
SVC
DC
DC
DC
SVC
DC
DC
DC
lA
TM
8C
SVC
DC
DC
DC
SVC
DC
DC
DC
CLI
BC
ST
SVC
DC

41Z

B 002

413
414
415
416
411
418
419
420

4Z1

0 004

F 754

0 004
6 000
F 492

422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441

44Z

F 15E
F 41C
F 764

PIN 840210
PAGE
4A

443
444
445
446
447
448
449
450
451
452

UNEQ,INDER
01 R 111 , X' 04 '
NONE,INOEX2
ISW,X'20'
NONE,INDER
R8,8(R8)
R8,ICCSW2+4
R8,4IR8)
R8,IClRDT+2
WORK ,X' FC'
R8,IFIX9+2
R8,IFIX12+2
IEXSNS+5,X'0I'
NONE,ISIZ
WORK,X'02'
ICSWZ+4,X'Ol'
NONE, ICC SW2
WORK,X'Ol'
ICSW2181,ICSW2
EQ, TDUNCK
ISW,X'Ol'
I FUIG 1, X'64 •
IFlAGZ,X'CO'
ISW,X'Ol'
ALl,IOUTIT
SNSW,X'Ol'
NONE,llEAVE
IFlAGl,X'24'
IFlAG2,X'80'
ITSTNO+5(ZI,Z(Rlll
X'DD'
Al2IZ)
Al21ITSTNO+5-SECNO)
AL21ITSTNO+5-SECNO)
X'DO'
X'64'
X'09'
AlZIITSTNO-SECNO+REGI
R8,4
Rll,R8
RllrIlINK+5
X'DO'
AlZ(3)
AL2(ILINK+6-SECNOI
Al21IlINK+5-SECNOI
X'DO'
X'EO'
X'10'
Al2(ILINK-SECNO+REGI
Rll,4lRll1
OCRlll,X'80'
ALl,IOCSW
X'OD'
AL2131
Al2(IOADR-SECNOI
AlZ(IOADOR+5-SECNOI
X'OO'
X'EO'
X'OF'
Al2(IOADDR-SECNO+REGI
ISSUE,X'9C'
UNEQ,ICCOUT
RIO, rCAW+5
X'DD'
AL2(31

BR. IF UNEQUAL

0142E
01430
01432
01434
01435
01436
01438
0143E
01442
01446
0144C
01450
01454
01458
0145C
01460
01462
01464
01466
01468
0146E
01474
01476
01471
01478
0147A
0147C
01482
01486
01488
01489
0148A
0148C
0148E
0148F
01490
01492
01498
0149C
014AO
014A4
014AA
014AE
01482
01486
0148A
014CO
014C4
014C8
014CC
01402
01408
014DC
014EO
014E4
014EA
014FO
014F4
014F8
014FC
01502
01508
01S0C
01510
01514

BR. IF NO CSW 2 EXPECTED
BR. IF NO CSW 2 REC I EVED
UPDATE TO SECONO CSW

CHECK FOR CHANNEL lZ
COMPARE FOR EXPECTED CSW 2
BR. IF EQUAL
INDICATE AN ERROR
SET UP FOR ERROR PRINTOUT
CHECK FOR A DETECTED ERROR
BR. IF ERROR DETECTED
CHECK SECTION SENSE SWITCH 7
SR. IF OFF
SET UP FOR CORRECT PRINTOUT
MOVE TEST NUMBER TO PRINT
CONVERT TEST NUMBER

PRINT TEST NUMBER

ADJUST, LINK ADDRESS FOR PRINTOUT
CONVERT LINK ADDRESS

PRINT LINK AOORESS

BR. JF NO 1-0 CO~MANO ISSUED
CONVERT 1-0 ADDRESS

PRINT 1-0 ADDRESS

COMPARE FOR SIO COMMAND
BR. IF NOT
STORE CCW ADOR.
CONVERT CAW

15MAR66 15NOV66 120CT67
125632 125655 131812

10
PAGE

F836-4
4

DATE
EC'S

0765
0764
OA DO
EO
OB
F75F
02 02
92 16
50 AO
02 07
45 90
91 CO
47 80
41 AA
47 FO
OA DO
0008
0818
0618
02 07
02 07
OA DO
EO
1A
F111
07 F902 00
58 AD
OA DO
EO
OA
F72A
OA DO
EO
OA
F734
D2 02
92 1A
91 08
47 60
D2 02
48 8B
40 80
41 88
40 80
02 07
45 90
91 40
47 60
D2 02
02 01
45 90
91 04
47 80
02 02
02 07
45 90
91 20
47 80
02 02
02 07
45 90
91 04
47 80
OA 00

F
F
F
F
F
A
F
0
F

772
477
B98
818
460
004
47C
008
446

F 776
F l1F

F 72F
F B9C

F
F
8
F
F
0
F
0
F
F
F
F
F
F
F
F
6
F
F
F
F
F
F
F
F
F
F
F

112
411
000
4C4
788
006
4BE
008
4EE
818
460
OE4
4DC
788
818
460
000
4F4
788
818
460
OE4
50C
788
818
460
OE4
530

F 76E
A 000

F 818
F 820

B 004

F 76B-

F 78E

F 818

F 788
F 7E6

F 78E
F 818

F 78B
F 7EE

453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
413
474
475
476
471
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
511

ICWOUT

ICOUT

ICNT
ICCOUT

IOCSW

ICHNG1
10101

IMORST
ICHNG2
IDID

IPAS

DC
DC
SVC
DC
DC
DC
MVC
MVI
ST
MVC
BAl
TM
BC
lA
BC
SVC
DC
DC
DC
MVC
MVC
SVC
DC
DC
OC
BCR
MVC
l
SVC
DC
DC
DC
SVC
DC
DC
DC
MVC
MVI
TM
BC
MIIC
lH
STH
LA
STH
MVC
BAl
TM
BC
MVC
MVC
BAl
TM
BC
MVC
MVC
BAl
TM
BC
MVC
MVC
BAl
TM
BC
SVC

(of'),

('f~_

\~.

';t

__J(

I

;,f") {)
~_-'

7

~J
-"ill - -

I

I

,,'

~1'i
,-,J;

~}

'-ii., ---

-0
-'l

-.!

([)

0
I~)

(~,
.'o.....J#

[\
,.

',,'I

'''-,;i

(f")
~

()

iO f)
f'

PRINT CAW

MOVE -CCW- TO MESSAGE
ADJUST COUNT
MOVE CONTENTS OF REG 10 TO SAVE
MOVE CCW TO WORK AREA
BR. TO OUTPUT CCW
CHECK FOR ANY CHAIN flAGS
BR. IF NONE
UPOATE TO NEXT CCW
BR. UNCONDITIONAL
CONVERT

MOVE TO MESSAGE
PRINT

RETURN VIA REG 9
MOVE EXP CC TO MESSAGE

R10.1SL~VE

X'DO'
X'EO'
X'OA'
AlZ(IEXPCC-SECNO+REGI
X'DO'
X'EO'
X'OA'
Al2(IACTCC-SECNO+REGI
IBlAH+1I3I,ICSW
ICNT,X'lA'
01 R111 ,X' 08 '
NONE, 10 ID I
IBLAH+23(3I,IEXP
R8,6CRll1
R8,ICHNG1+4
R8,BCR81
RB,ICHNGZ+4
WORK(81,WORK
R9,ICOUT
ISW,X'40'
NONE,IMORST
t8lAH+23(31,IACT
WORK(81,ICSW1
R9,ICOUT
o I R111 ,X ' 04 •
NONE, IDID
18lAH+23(31,IEXP
WORK(81,WORK
R9,ICOUT
ISW,X'ZO'
NONE, IPAS
IBlAH+23(31,IACT
WORK (81, ICSW2
R9, rCOUT
ISW,X'04'
NONE,IPASS
X'OO'

PRINT EXPECTED CONDo CODE

PRINT ACTUAL CONDo CODE

MOVE -CSW- TO MESSAGE
ADJUST COUNT
BR. IF NO CSW EXPECTED
MOVE -EXP- TO MESSAGE

MOVE EXPECTED CSW TO WORK AREA
BR. TO OUTPUT EXPECTED CSW
BR. IF NO CSW STORED
MOVE -ACT- TO MESSAGE
MOVE ACTUAL CSW TO WORK AREA
BR. TO OUTPUT ACTUAL CSW
BR. IF NOT EXPECTING 2 CSWS
MOVE -EXP- TO MESSAGE
MOVE EXPECTED CSW TO WORK AREA
BR. TO OUTPUT EXPECTED CSW Z
BR. IF NO SECONO CSW STORED
MOVE -ACT- TO MESSAGE
MOVE CSW TO WORK AREA
BR. IF NO SENSE DATA RECIEVED
CONVERT EXPECTED SENSE

15MAR66 15NOV66_120CT67
125632 125655 13181Z

10
PAGE

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

r),
'I~.i

Al2(ICAW+6-SECNO)
Al2(ICAW+5-SECNO)
X'DO'
X'EO'
X'OS'
Al21ICAW-SECNO+REG)
I BlAl-l+l I 3), ICCW
ICNT, X'16'
RIO, SAVIO
WORK(8),0IR101
R9,ICOUT
4(RIOI,X'CO'
NONE,ICCOUT
RIO,8(RI01
UNC,ICWOUT
X'DO'
Al2(8)
Al2IWORK-SECNOI
AL2IWORK-SECNOI
IBlAH+5(8),WORK
IBlAH+14(8I,WORK+8
X'DO'
X'EO'
X'lA'
Al2(IBlAH-SECNO+REGI
UNC,R9
IEXPCC+5111,4(Rlll

,

'
\'

,,'

(c~

'\.J

"'~«.>

a
' .,

'-,I

F836-4
4A

._----,---------------

---------~

.
() '.\.,r[) 0 10 0 (,l"1
") :O! 0 0 0 iO ()
1
\~-!

'-

j

l

0; 0 0 0 0 0 0 0 0
:c

c

0 0 0' 0 0

IBM M_INTEN_NCE DIAGNOSTIC PROGRAM

c

PIN 8lt0210
PAGE
5

0 0 0

DATE
Ee'S

0001
0796
0796
OA DO
EO
08
F791
OA DO
0001
07Al
07Al
OA DO
EO
08
F79C
95 30
47 60
02 OB
OA DO
OOOC
0818
0818
02 01
02 05
02 05
02 05
OA DO
EO
lC
F7A7
91 60
47 50
OA DO
CO
18
F7tC
OA DO
AO
01
F74F
50 AD
91 80
47 50
91 01
07 15
91 08
47 80
41 BB
41 BI>
98 79
07 F8
90 27
IB 77
18 33
41 20
41 60
91 10
47 10
41 60
11> 55
43 32
43 42
43 52
43 76
42 40

E 181
F 564
F 818

F 7AC
F 7AF
F 786
F 780

F OE5
F 5AO

0
F
F
F

048
004
120
OE5

B 000
F 596
0 002
0 006
F 830
F B80
0 084
F AA8
F OEl
F 58C
F BFC
F
F
F
2
F

AA8
83B
8BF
000
BEC

o 080

F
F
F
F

B18
8IA
822
82A

c

0; 0, 0 0 0 0 0' 0
"

,

IBM MUNTEN_NCE DIAGNOST,1C PROGRAM

1403 RIPPLE PRINT
01516
P1518
0151A
0151C
0151E
0151F
01520
01522
01524
01526
01528
0152A
0152C
01520
0152E
01530
01534
01538
0153E
01540
01542
01544
01546
0154C
01552
01558
0155E
01560
01561
01562
01564
01568
0156C
0156E
0156F
01570
01572
01574
01575
01576
01578
0157C
01580
01584
01588
0158A
0158E
01592
01596
0159A
0159E
015AO
015A4
015A6
015A8
015AC
015BO
015B4
01588
0151>C
015BE
015C2
015C6
015CA
015CE

()

0 0 0 0,

.

e

PIN 8lt0210
PAGE
5A

1403 RIPPLE PRINT
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582

15HAR66 15NOV66 120CT67
125632 125655 131812

DC
DC
DC
SVC
DC
DC
DC
SVC
DC
DC
DC
SVC
DC
DC
DC
IPASS CLI
BC
MVC
SVC
OC
DC
' DC
MVC
MVC
MVC
MVC
SVC
DC
DC
DC
10POUT TM
8C
IPRLOP SVC
IFLAG2 DC
DC
DC
SVC
DC
DC
DC
ST
TM
BC
TM
BCR
llEAVE TM
BC
LA
IUP
LA
LH
BCR
lOUT
STH
SR
SR
LA
LA
TM
BC
LA
SR
NIXT
IC
IC
IC
IC
STC

AL2Cli
AL2CIEXSNS+5-SECNOI
AL2CIEXSNS+5-SECNO)
X'OO'
X'EO'
X'OS'
AL2CIEXSNS-SECNO+REGI
X'OD'
AL21l1
AL2CIACSNS+5-SECNOI
AL2CIACSNS+5-SECNOI
X'OO'
X'EO'
X'OIl'
AL2CIACSNS-SECNO+REGI
SYSMDOCRI41,X'30'
UNEQ,IDPDUT
WDRKCI21,LOGOUT
X'DO'
AL2C 121
AL2CWORK-SECNOI
AL2CWORK-SECNOI
IOlllG+5C21,WORK
IOLOG+BC61,WORK+2
IOlOG+1516I,WORK+I0
IOLOG+2216I,WORK+18
X'DO'
X'EO'
X'IC'
AL2CIOLOG-SECNO+REGI
ISW+l,X'60'
ANY,IOUT
X'OO'
X'CO'
X'18'
AL2CIOPTI-SEtNO+REGI
X'DO'
X'AO'
X'Ol'
AL2CILINK-SECNO+REGI
RI0,HCAWCRI31
SNSW,X'80'
ANY,ITRYI
ISW+l,X'OI'
ALL,R5
OlRUI,X'08'
NONE,IUP
Rll,21Rlll
Rll,61RUI
R7,R9tlSAVE
UNC,Rll
R2,R7,LARGE
R7,R7
R3,R3
R2,132
R6,PRAR-l
UNITl+1,X'10'
ALL,NI XT-2
R6,LOAR-l
R5,R5
R3,PRAR-lIR21
R4,CKAR-IIR2)
R5,DRAR-ICR21
R7,OCR6,R21
R4,INFO+16

01502
01504
0150B
0150C
015EO
015E4
015E8
015EC
015FO
015F4
015F8
015FC
01600
01604
01606
01607
01608
0160A
0160E
01612
01616
0161A
0161C
01620
01624
01628
0162E
01632
01636
0163A
01640
01644
01648
0164C
0164E
01650
01652
01654
01656
0165B
0165A
0165C
0165E
0165F
01660
01662
01666
0166A
0166C
01660
0166E
01670
01672
01673
01674
01676
01678
01679
0167A
0167C
01680
01684
01688
0168C
0168E

PRINT EXPECTED SENSE

PRINT ACTUAL SENSE DATA

CHECK FOR MODEL 30
BR. IF NOT
MOVE LOGOUT TO WORK AREA
CONVERT

MOVE LOG OUT TO MESSAGE

PRINT LOG OUT

CHECK FOR DIAGNOSTIC DATA
BR. IF ANY
PRINT LOOP OPTIONS

SPACE A LINE

STORE CAW
CHECK SECTION SENSE SWITCH 0
BR. IF ANY ON
RETURN VIA REG 5 IF HANG UP
BR. IF NO CSW EXPECTED
UPDATE LINK ADDRESS FOR RETURN
RETURN VIA REG 11

SET UP FOR 132 POSITIONS
CHECK FOR UCS FEATURE
BR. IF DEFINED
PICK UP CHAR WRITTEN
PICK UP CHECK BYTE
PICK UP CHAR READ
PICK UP CHAR SHD READ
STORE CHECK BYTE

10

PAGE

F836-4
5

DATE
EC'S

19 57
47 60
95 04
47 60
46 20
98 27
47 FO
91 10
47 10
91 10
47 80
95 FO
47 60
OA DO
EO
IF
FB2D
47 FO
58 90
41 80
41 99
IB 98
43 89
42 80
4E 90
F3 21
96 FO
41 9,9
4E 90
F3 21
96 FO
43 89
42 80
OA 00
0001
OB69
OB69
OA DO
0001
OB7l
OB7l
OA DO
EO
33
FB4C
95 FB
47 80
OA 00
EO
10
FEB7
OA DO
EO
lA
FBA8
OA DO
EO
lA
F8C2
96 10
42 30
42 50
42 70
OA DO
0001

F
F
F
F
F
F
F
F
F
F
F
F

6 Fit
BEC
5EC
5BE
B80
56C
OE5
680
OEI
670
BFD
60E

F
F
F
0

670
B90
BFC
001

F
F
F
F
F
0
F
F
F
F

BFC
B69
81B
B56
B58
OOF
818
850
B5F
BFC
F B7l

F 020
F 670

F
F
F
F

OE5
BE2
BE8
BE5

F 81E

F 81E

583
584
585
5B6
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647

15HAR66 15NDV66 120CT67
125632 125655 131812

CR
BC
HOKAY CLI
BC
CRUDE BCT
LM
BC
HONK
TM
8C
'TM
BC
CLI
BC
SVC
DC
DC
OC
BC
HARDER L
LA
LA
SR
IC
STC
eVD
UNPK
01
LA
CVO
UNPK
01
IC
STC
SVC
DC
DC
DC
SVC
DC
DC
DC
SVC
DC
DC
DC
CLI
BC
SVC
DC
DC
DC
CHIRP SVC.
DC
DC
DC
SVC
DC
DC
DC
01

SZABO

STC
STC
STC
SVC
DC

R5,R7
UNEQ,RANK
INFO+16,X'04'
UNEO,HONK
R2,NIXT
R2,R7,LARGE
UNC,IPRLOP
ISW+i',X'10'
ALL,SlABO
UNITl+1,X'IO'
NONI',CHIRP
LDAR,X'FO'
UNEQ,HARDER
X'OO'
X'EO'
X'IF'
AL2CLSTGRP-SECNO+REGI
UNC,CHIRP
R9,lARGE+16
R8,lDAR-l
R9,lCR91
R9,R8
RB,lOAR-ICR91
RB, TUFF+29
R9,WORK
TUFF+I0C31,WORK+6CR21
TUFF+12,X'FO'
R9,15CR91
R9,WORK
TUFF+17131,WORK+6121
TUFF+19,X'FO'
R8,LDAR-I1R91
R8,TUFF+37
X'DD'
AL2 Cl)
AL2ITUFF+29-SECNOI
AL2CTUFF+29-SECNOI
X'DO'
AL2 111
AL2CTUFF+37-SECNOI
AL21TUFF+37-SECNOI
X'OO'
X'EO'
X'33'
AL2ITUFF-SECNO+REG)
LOAIJ,X'FB'
EQ,CHIRP
X'DO'
X'EO'
X'IO'
AL2CFOLDNG-SECNO+REGI
X'OO'
X'EO'
X'i/I'
AL 2 CHED 1- SECNO+REG I
X'DO'
X'EO'
X'IA'
AL2CHED2-SECNO+REGI
ISW+l,X'10'
R3,INFO+6
R5,INFO+12
R7,INFO+9
X'OD'
AL2111

.

COMPARE FOR CORRECT READ BACK
BR. IF UNEQUAL
COMPARE FOR PLC ONLY
BR. IF UNEQUAL
BR. UNTIL 132 POSITIONS CHECKED
CHECK FOR PREVIOUS HEADING PRINT
8R. IF THERE WAS
BR. IF NOT
CHECK FOR LAST GROUP
8R. IF NOT
PRINT

PICK UP LDAR ADDRESS BEING FILLED
PICK UP LDAR ADDRESS
SUBTRACT
PICK UP FIRST CHAR
CONVERT UCB ADDRESS TO DECIMAL
UP TO LAST CHAR IN FIELD
CONVERT HIGH ADOR TO DECIMAL
PICK UP LAST CHAR

PRINT UCB AODR AND DATA RANGE

COMPARE FOR FOLDING MODE
BR. IF NOT FOLDING
PRINT FOLDING MSG

PRINT HEADINGS

INDICATE HEADINGS PRINTED
STORE DATA
CONVERT DATA

10
PAGE

F836-4
5A

. A4\"g

A#4

*.

I

'I

IBM MAINTENANCE DIAGNOSTIC PROGRAM

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840210
PAGE
6

1403 RIPPLE PRINT

1403 RIPPLE PRINT
01690
01692
01694
01696
01698
0169A
0169C
0169E
016AO
016A2
016A4
016A8
016AE
016B2
016B6
016BA
016BE
016C2
016C6
016CA
016CE
01602
01606
016DA
016DE
016E2
016E6
016EA
016EC
016ED
016EE
016FO
016F4
016F8
016FC
01700
01704
01706
0170A
0170E
01710
01714
01718
0171C
01720
01722
01726
0172A
01732
01734
0173C
OI73E
01746
01740
0114E
0174F
0174F
01757
0175F
01760
0175F
0175F
01767
01768
0176E

DATE
EC'S

J

'n

\"l_'1 .)

OBE2
D8E2
OA DO
0001
OBE5
OBE5
OA DO
0001
08E8
OBE8
4E 20 F 818
F3 21 F BOD F 81E
96 FO F 8DF
42 40 F 8EC
92 FO F BFO
91 02 F BEC
47 80 F 6C6
92 Fl F 8FO
92 FO F BF4
91 01 F BEC
47 80 F 606
92 Fl F BF4
91 04 F BEC
47 80 F 6E6
92 Fl F BEC
47 FO F 6EA
92 FO F BEC
OA 00
EO
19
F80C
47 FO F 5EO
91 10 F OE1
47 80 F SEC
91 80 F 007
47 BO F SEC
IB 88
41 40 0 004
43 84 F BF4
19 83
47 80 F 71C
46 40 F 70A
47 FO F 5EC
43 74 F BF8
19 57
47 60 F 5EC
47 FO F 508
40C3C34040E740C5
E7D7
40C3C34040E740Cl
C3E3
40CIC4D940E7E7E7
E7E7E740E2C9D6
00
07 00
40C1C4D940E7E7E7
E7E7E740D3C9D5D2
00
40C3CIE640E7E7E7
E7E7E740
C3E2E6
C3C3E6

648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
67B
679
6BO
681
6B2
6B3
684
685
6B6
687
688
689
690
691
692
693
694
695

DC
DC
SVC
DC
DC
DC
SVC
DC
DC
DC
CVO
UNPK
01
STC
MVI
TM
BC
MVI
OBERI MVI
TM
BC
MVI
OBER2 TM
BC
MV}
BC
OBER3 MVI
OBER4 SVC
DC
DC
DC
BC
RANK
TM
BC
TM
BC
SR
LA
SWING IC
CR
BC
BCT
BC
SWUNG IC
CR
BC
BC
IEXPCC DC

Al2IINFO+6-SECNOI
AL21INFO+6-SECNOI
X'DO'
AL2(1)
AL21INFO+9-SECNOI
AL2(INFO+9-SECNDI
X'DD'
AL2(1)
AL21INFO+12-SECNDI
AL2(INFO+12-SECNOI
R2,WORK
INFO+1131,WORK+6121
INFO+3,X'FO'
R4,INFO+16
INFO+20,X'FO'
INFO+16,X'02'
NONE,OBER1
INFO+20,X'FI'
INFO+24,X'FO'
INFO+16,X'01'
NONE,OBER2
INFO+24,X'Fl'
INFO+16,X'04'
NONE,OBER3
INFO+16,X'Fl'
UNC,OBER4
INFO+16,X'FO'
X'OO'
X'EO'
X'l'l'
AL2(INFO-SECNO+REGI
UNC,CRUDE
UNITI+1 ,X' 10'
NONE,HONK
SNSW+3,X'BO'
NONE,HONK
R8,RB
R4,4
R8,OUABLE-1IR41
R8,R3
EQ,SWUNG
R4,SWING
UNC,HDNK
R7 ,OUALED-l(R4 I
R5,R7
UNEQ,HONK
UNC,HOKAY
C' CC X EXP'

696

IACTCC DC

C' CC

697

10ADDR DC

C' AOR XXXXXX SID'

698
699
700
701

~)

'\..

rJ
(

STORE CK RO BYTE
CHECK FOR PRINT CHECK BIT
8R. IF OFF
CHECK FOR PARITY CHECK BIT
8R. IF OFF
CHECK FOR PLC
BR. IF OFF

PRINT FAILING POSITION

CHECK FOR UCS FEATURE
8R. IF NOT
CHECK SENSE SWITCH 24 FOR DUALING
8R. IF OFF - NOT OUAlING
CLEAR REG 8
SET UP FOR 4 DUALABLE CHARACTERS
COMPARE FOR OUALA8LE CHAR
8R. IF IT IS
BR. UNTIL 4 CHECKED

01950
01952
01956
0195A
0195C
01960
01964
01968
0196C
01970
01974
01978
0197E
01984
0198A
0198E
01992
01998
0199E
019A4
019A6
019A7
019A8

INSERT DUAL EO IN SHO READ
COMPARE TO READ
BR. IF UNEQUAL

X ACT'

IlINK

DC
CNOP
DRG
DC

.-1
C' ADR

702
703
704
705

ICAW

DC
CNDP
ORG
DC

X'OO'
0,4
·-1
C' CAW XXXXXX '

706
707

ICSW
ICCW

DC
DC

C 'CSW'
C'CCW'

X'OO'
0,4

XXXXXX LINK'

10
PAGE

{)

~)'"
I~,

01771
01779
01781
01789
01788
0178E
01791
01799
0179C
017A4
01IA7
017AF
017B7
017BF
017C3
017CB
017CC
01704
0170C
017E4
017E6
017EE
017F6
017F8
01800
01803
01804
01805
01806
01810
01814
01818
01818
01830
01838
0183C
018CO
01944
01948

CONVERT PRINT POSITION TO DECIMAL

15MAR66 15NOV66 120CT67
125632 125655 131812

~J,
"'\...'

PIN 840210
PAGE
6A

rf)
'~.,

','

~)
"l. '

iJ
,.

(f),
'......J'

()

fl'
,j'

I:.,

,I

F836-4
6

t)

'"

'

n
'-..'

DATE
EC'S

X("'\.

'V

40C3E2E640E7E7E7
E7E7E7E7E740E7E7

708

DC

C' CSW XXXXXXXX XX'

E7E7~7E7E7E740C5

709

DC

C'XXXXXX EXP'

710
711
712

IACT
DC
IEXP
DC
IEXSNS DC

C'ACT'
C'EXP'
C' SNS XX EXP'

713

IACSNS DC

C' SNS XX ACT'

714

IOLOG

C' LOG XX XXXXXX X'

E7D7
C1C3E3
C5E7D7
40E2D5E240E7E740
C5E7D7
40E2D5E240E7E740
CIC3E3
40U3D6C740E7E740
E7E7E7E7E7E740E7
E7E7E7E7E740E7E7
E7E7E7E7
40E3E2E340E7E7E7
E7
40E2E240F040D6D5
40C6D6D94003D6D6
D740D6D540E2C9D6
0607
0000000000000000
0000000000000000
0000
040017AI00000001
OOHSE
FE
01
000000
0600183C00000084
00001010
OCOOOOOO

1B DO
91 40
47 80
18 OF
58 CO
54 CO
49 CO
47 80
40 CO
91 10
47 80
02 02
02 02
02 02
91 80
47 10
02 02
02 02
02 02
OA 00
04
2B
FA2e

F OEO

F BM
F AIO
F 9BC

F A10
F OEI
F 98C

A3A
A45
A4C
007
9A4
A3A
A45
F A4C

C' TST XXXX'

717

IOPTl

DC

C' SS 0 ON FOR lOOt

ICSWI
ICSW2

DC
DC
DC
DC

C'P ON SIO'
C'OP'
XlO'O'
XL8'O'

724
725

ISENSE
10ADR
MSKI
MSK2

CCW
DC
DC
DC

X'04',IACSNS+5,X'OO',l
AL311SSUEI
X'FE'
X'OI'

726
727
728
729
730
731

DCKRD CCW
CRDCSW DC
DC
CNOP
WORK
OS
ISAVE DC

X'06',CKAR,X'OO',132
AICRDCSWI
X'OCOOOOOO·
0,8
24C
XL12'O'

732
733

CKAR
DRAR

OS
OS

132C
132C

RDCCW

CCW

X'02',DRAR,X'OO',132

734
73S
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760

F 95C

F
F
F
F
F
F
F

ITSTNO DC

722

E 196

F 702
F A57
F A5A
F A57
F 702
F A4B

C'XXXXX XXXXXX'

DC

716

723

00000000
020018C000000004

DC

715

718
719
720
721

0000000000000000
00000000

IBLAH

*.* •••• *~ •• **.**.**** •• *••••••••••• *••••• *••••••••••• *•••••••••• *••••••
INITIALIZE ROUTINE
*.* •••••••••••••••• ***.* •• *••••••• ** ••••••••••••• *••••••• *••• *•••••••••
•

IN IT

SR
TM
BC
LR
NITWIT L
N

DARIO

CH
BC
STH
TM
BC
MVC
MVC
MVC
TM
BC
MVC
MVC
MVC
SVC
DC
DC
DC

R13,R13
406(R141,X'40'
NONE,NITWIT
R13,RI5
R 12, UNI Tl
RI2,MOD50
RI2,SAVDEV
EQ,IlLOOP
RI2,SAVDEV
UNIT1+1 ,X '10'
NONE,BLOOP
FERRO+14131,IOPTl+6
FERRO+25131,OFF
FERRO+3213I,NOT
SNSW+3,X'BO'
ALL,OARIO
FERRO+14(3) ,OFF
FERRO+25(3),IOPT1+6
FERRO+3213I,FERRO+31
X'DO'
X'04'
X'20'
AL2IFERRO-SECNO+REG'

ZERO REG 13
CHECK FOR FORCED PROBLEM STATE
8R. IF NOT
SET UP FOR PROBLEM STATE
LOAD REG 12 WITH UNIT TABLE ENTRY
AND OUT UNUSED BITS
COMPARE FOR CURRENT DEVICE ADDRESS
BR. IF EQUAL
SAVE CURRENT DEVICE AOORESS
CHECK FOR UCS FEATURE
BR. IF NOT DEFINED
MOVE WORD -ON - TO MSG
MOVE WORD -OFF- TO MSG
MOVE WORD -NOT- TO MSG
TEST FOR OUALING MODE
BR. IF DUALING MODE
MOVE WORD -OFF- TO MSG
MOVE WORD -ON - TO MSG
BLANK OUT WORD -NOTPRINT SS 24 MSG

15MAR66 15NOV66 120CT67
125632 125655 131812

a
'

'

{) {) () () f)
.~

,

,.

10
PAGE

{)

'\
0 0 0
0
"

F836-4
6A

((,
')

0 0 '0
\'

_~_c

'

Il)

.

0 ·'

000000

"

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840210
PA,GE
7

o o
IBM MAINTENANCE DIAGNOSTIC

DATE
EC'S

PIN 840210
PAGE
1A

PROGRA~

1403 RIPPLE PRINT

1403 RIPPLE PRINT
019AA O. OA
019AC 41 AO F F28
019BO 45 BO F OE6
019B4 2CCO
019B6 0005
019B8 FlOO
019BA FF30
019BC 91 60 F OE4
019CO 47 10 F 90C
019C4 02 00 F A12 F 003
019CA 92 40 F 8FD
019CE 02 EF F BFE F 8FO
01904 02 B3 F AA9 F BFD
0190A 07 fl.
0190C 02 00 F 003 FA12
019E2 94 7F F OE4
019E6 96 01 F OE5
019EA 98 A8 F 89C
019EE OA DO
019FO 64
019Fl lA
019F2 FABE
019F4 OA 00
019F6 A019
019F8 FA13
019FA 45 50 F 25C
019FE 92 00 F OE4
OlA02 94 FE F OE5
OlA06 92 01 F 003
01AOA 47 FO F 9BC
OlAOE 07 00
OlA10 FFFF
OlA12 00
01A13 40E2C5C540C4C5E2
01AIB C309C907E3C906D5
01A23 60C3060ltDltC5D5E3
01A2B E2
01A2C ItOE2C5C3ltOE2E240
01A34 F2Flt40C9E2lt006C6
01A3C C6ltOE2C5E3ltOC9E3
01AItit 1t006C6C6ltOC9C6ltO
01AltC D506E340CltE4C103
OlA54 C905C7
OlA57 D6C6C6
OlA5A D5D6E3
01A50 ItOC8E405C740E407
01A65 40C2E4E2E86040E2
01A60 E8E2lt009C5E2C5E3
01A15 4007E2E640D9C5E2
OlA70 E3C109E3
01A81 4009C5CIC4E840C4
01A89 C5E5C9C3C5
01A8E 40Dl09C5E5C9D6EIt
OlA96 ' E240C8C1D5C140E4
01A9E 0740C4C5E3C5C3E3
OlAA6 C5C4
OlAA8 40
OlAA9
OOlAO
01820 ItOEltC3C240C8ClE2
01835 ItOFIF640C3C8CID9
01B3D ItOE2C5E340C6F040
01845 E3C8D9E440C6C6
01B4C 40EltC3E240ClC4CIt
01851t ' D9~OE7E1E740E306

o~

161
762
163
764
765
166
161
76B
769
770

711
772

113
174
775
776
771

118
779

780
781
182
183
784
785
786
787
788
189
790
791
192
793
794

STAY

SVC
LA
BAL
DC
DC
DC
DC
8LOOP TM
BC
MVC
MVI
MVC
MVC
BCR
HANGUP MVC
NI
01
LM
SVC
DC
DC
DC
SVC
DC
DC
BAL
MVI
NI
MVI
BC
CNOP
SAVOEV DC
RTSAV DC
CLUIN DC

795

X'OA'
RI0,PRINTl
Rll,ISIO
X'2CCO'
X'0005'
X'FIOO'
AL2IPRT1-SECNO+REGI
ISW,X'SO'
ALL,HANGUP
RTSAVl1',SECNO+3
LOAR,X'40'
LOAR+112401,LDAR
PRAR I 132) ,LOAR
UNC,R4
SECNO+3(1),RTSAV
ISW,X'7F'
ISW+1,X'Ol'
R10,Rll,ISLAVE
X'OO'
X'64'
XOlA'
AL2IHUNG-SECNO+REGI
X'OO'
X'A019'
AL2ICLUIN-SECNO+REGI
R5,IOOSNS
ISW,X'OO'
ISW+1,X'FE'
SECNO+3,X'01'
UNC,BLOOP
0,4
X'FFFF'
X'OO'
C' SEE DESCRIPTION'

DC

C'-COMMENTS'

DC

C' SEC SS 24 IS OF'

197

DC

C'F SET IT OFF IF '

798

DC

C'NOT OUALING'

796

FERRO

DC
DC
DC

C'OFF'
C'NOT'
C' HUNG UP, 8USY- S'

802

DC

C'YS RESET PSW RES'

803
804

READY

DC
DC

C'TART'
C' READY DEVICE'

805

HUNG

DC

C' PREVIOUS HANG U'

DC

C'P DETECTED'

799
800
801

OFF
NOT
NODEV

806
807
808
809
B10

DC
PRAR
OS
OMSSW EQU
LSTGRP DC

811

812

TUFF

GO 00 SPACE
CONTROL SWITCHES

CHECK FOR HANG UP
BR. IF OETECTEO
SAVE ROUTINE NUMBER
CLEAR LOAD AREA
CLEAR PRINT AREA
RETURN VIA REG 4
MOVE RTN NO. THAT HANG WAS FOUND
RESTORE REGS 10 ANO 11
PRINT
-PREVIOUS HANGUP DETECTEO-

BR. TO OUTPUT AVAILABLE INFO
RESET HANGUP SWITCH
RESTORE TO ROUTINE 01

01B5C ItOE7E7E740C30605
01B64 E3CIC90540E1E740
01B6C E3C809Elt40E1ElltO
01B74 09C5E2E3ltOC203Cl
01B1C 0502E2
01B7F 00
01B80
01B80
0lB96 00000000
01B9C 0000000000000000
01BAit 00003FFF
0lBA8 400709C905E3lt040
OlBBO E2C8C44040404040
01BB8 1t040400109E34007
OlBCO C109
01BC2 40400706E240E609
OlBCA 1t009C44009C44007
01B02 03C340C3CB0240C3
OlBOA C802
OlBOC 40E1E7E74040E1E7
OlBEIt 40E7E740E1E71t040
OlBEC E7lt04040E7401t040
01BF4 E7
01BF5 40501E70
01BF9 6C4C7B7C
OlBFO

OlCEO
OlCEE
01CF4
01CFB
OlCFC
01000
01002
01001t
01006
OlOOB
0100A
01010
OlOlB
01020
01028
0102C
01030
01034
0103B

X'40'
132C
416
C' UC8 HAS 16 CHAR'

DC

C' SET FO THRU FF'

DC

C' UCS ADDR XXX TO'

15MAR66 15NOV66 120CT67
125632 125655 131812

HALT FOR SS ALTERATION

10
PAGE

FB36-1t
7

DATE
EC'S

00
02 01 F 002 5 000
41 55 o 002
41 AO F 010
45 BO F OE6
3EOO
0000
FOOO
F028
01 F5
000000000000
EBOOIAA91t0000001
7BOOIAA940000001
FBOOIBFOOOOOOOFO
00001028
08000000
00000000
01t000000

813

DC

C' XXX CONTAIN XX '

814

DC

C'THRU XX REST BLA'

1115

DC

C'NKS'

CNOP
OS
DC
DC
DC
DC

0,1t
24C
XL4'O'
XL8'OO'
X'00003FFF'
C' PRINT SHD

DC

C'

DC

C'

DC

C'LC CHK CHK'

DC

C' XXX

826

DC

C'X

821
828
829
830
831
832

DUABLE DC
OUALEO DC
LOAR
OS

X'4D5D7E10'
X'6C4C787C'
240C

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
LOAD UCS SUB-ROUTINE
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

833
831t
835
B36
837
83B
839
B40
8ltl

LOAOIT MVC
LA
LA
BAL
DC
MUMB
DC
DC
DC
BCR

MUM8(2),0IR51
R5,21R51
R10,PRElD
Rll,ISIO
X'3EOO'
X'OOOO'
X'FOOO'
AL2ILOCSW-SECNO+REGI
UNC,R5

842
8lt3
844
8lt5
846
847
848
849
850
851
B52
853
851t
855
856
857
858
859
860
861
862
863
861t
865
866

PRELD

X'EB',PRAR,X'ltO',l
X'lB',PRAR,X'40',l
X'FB',LOAR,X'OO',240
AILOCSWI
X'08000000'
XL4'O'
X'04000000'
0,1t

B16
817

818
819
820
821

LARGE
SAVIO
ISLAVE
M0050
HE01

822
823

HE02

824
825

INFO

LOAO
LDCSW

CCW
CCW
CCW
DC
DC
DC
DC
CNOP

PRT PAR'
POS WR RO RO P'

XX XX XX
X

X'

MOVE TEST NUMBER
UPDATE RETURN REG
LOAD CCW ADDRESS
8R. TO ISSUE SID
CTRL SWITCHES
TEST NUMBER
EXP COND CODE AND SENSE
EXP CSW ADDRESS
RETURN VIA R5

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

• ROUTINE 01 - THIS ROUTINE WILL RUN ON Ilt03 PRINTERS WITH THE UCS
•
FEATURE ONLY. ALL 256 POSIBLE CHARACTERS WILL BE PRINTED
•
IN EACH PRINT POSITION. THE 256 CHARACTER CODES WILL BE
•
RIPPLED THROUGH THE PRINT AREA IN GROUPS OF 16 CODES AT
•
A TIME. EXCEPT FOR THE LAST GROUP OF 16 CODES, ONLY ONE
•
AREA OF THE' UCS BUFFER WILL CONTAIN MATCHING CHARACTERS.
•
FOR EACH OF THESE GROUPS, A DIFFERENT AREA OF THE UCS
•
BUFFER WILL CONTAIN THE MATCHING CODES, THE REST OF THE
•
BUFFER CONTAINING BLANKS. FOR THE LAST GROUP OF 16 CODES
•
THE ENTIRE UCS BUFFER WILL BE FILLED WITH MATCHING CODES
•
EACH GROUP OF 16 LINES WILL BE SEPARATED BY A TRIPLE
•
SPACE. THE FIRST 15 GROUPS WILL APPEAR AS A TRUE RIPPLE
•
OUTPUT. THE LAST GROUP WILL NOT BECAUSE MANY PRINT SLUGS
•
ARE ASSIGNED THE SAME CODE.

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

15MAR66 1.5NOV66 120CT67
125632 125655 131812

L~____________________________________.
--~------- ...~

10

PAGE

F836-1t
lA

0 0._

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PAGE

8

DATE
EC 'S

t~}
,~. i

01
000F44
91 10
47 80
45 40
92 FB
41 20
41 40
41 60
92 40
02 EE
1B 54
41 70
42 5b
42 57
95 F3
47 60
06 00
46 50
46 10
91 80
41 10
02 73
45 50
0010
41 70
92 09
41 AD
91 80
47 10
41 AD
45 BO
3CCO
0020
FOOO
FEOB
02 83
02 00
91 10
47 10
46 70
92 19
47 FO
41 44

867
8b8

FOEl
F FE6
F 950
F 020
o OOF
o OOF
F BFC
F BFO
F BFE

F BFO

877

878
879
880

F U8
F 020

881
882

F AA8
F B2C

883
B84
B85
B86
8B7
B88
B89
B90
891

F F40

F AA9

B92

F AA9
F AA8

F
F
F
f
f

EOO
ODE
OB2
EOO
OB2
o 010
o 010
F 058

o
f
f
F
F

912
913

010

914
915
916

Of 0
COO
AA9
CEE

F BFO
f BFO

917
918

919
920

921
922
923
924
925
926

o

OOF
F EOO
F EC8
F 007
F E26
F EOO
F OE6

I~MAR66

893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911

F BfC
F Of8

125632

\~.;

874
875
876

OOF
F EOO
F ECB
F 001
f OB2
F EOO
F OE6

4b 20

{) {}

872
813

o

41 b6

1B 54
41 10
42 57
46 50
46 10
02 OF
02 B3
45 50
0030
41 70
92 09
41 AO
91 80
47 10
41 AD
45 BO
3CCO
0040
FOOO

869
870
871

0010
1 000
F 07E
7 006
F 082
F ObB
F 001
F E62
F AB9
f CEE

927

928
929

930
931

ROUT01 DC
DC
TM
BC
8AL
MVI
AGAIN LA
LA
LA
KLEER MVI
MVC
LR
LA
STC
STC
STC

ClI
BC
DC
BCT

BCT
TM
BC
MARTY MVC
BAL
DC
LA
MVI
LA
TM
BC
LA
WRITE BAL
DC
DC
DC
DC
MVC
MVC
TM
BC
BCT
MVI
BC
UPGRUP LA
LA
BCT
LR
LA
STC2
STC
BCT
BCT
MVC
MVC
BAL
DC
LA
MVI
LA
TM
BC
LA
WRITE2 BAL
DC
DC
DC

X'OI'
AL3(ROUT02-SECNOI
UN 1T1+1,X '10'
NONE,EXIT02
R4,INIT
LOAO,X'FB'
R2,I5
R4,15
R6,LOAR-1
LOAR,X'40'
LOAR+l(239I,LOAR
R5,R4
R1,I6
R5,O(Rb,R11
R5,PRAR-1IR71
LOAO,X'f3'
UNEQ,*+10
R6( I,R71 ,FOLD
R5,*+4
R1,STC
SNS~+3,X'80'

ALL,AOJUST
PRAR+16(116I,PRAR
R5,lOAOIT
X'OOI0'
R7,15
PRINT,X'09'
R 10,OUAL
SNSW+3,X'80'
ALL,WRITE
R10,PRINT
RlltlSIO
X'3CCO'
X'0020'
X'FOOO'
AL21PRTCS~-SECNO+REGI

PRAR-I1I32I,PRAR
PRAR+13111I,PRAR-1
PRINT,X'10'
ALL ,UPGRUP
R1,~RITE

PRINT,X'19'
UNC ,WRITE
R4,1blR41
R6,16lR61
R2,KLEER
R5,R4
R1,I6
R5,LOAR-llR71
R5,*+4
R1,STC2
LOAR+161224I,LOAR
PRARI132l,LOAR
R5,lOAOIT
X'0030'
R1,15
PRINT,X'09'
RIO,OUAL
SNS~+3,X'80'

AlL,WRITE2
R10,PRINT
Rll,ISIO
X'3CCO'
X'0040'
X'FOOO'

r{)
\,',

'

LOAD STARTING CHARACTER
SET UP FOR 16 CHARACTERS
STORE CHAR IN UCS LOAD AREA
STORE CHARACTER IN PRINT AREA
COMPARE FOR FOLDING MODE
BR. IF NOT
OR IN BITS 0 AND 1
DECRE~ENT CHARACTER
BR. UNTil 16 STORED
CHECK SECTION SENSE SWITCH 2"
BR. IF ON - OUALING
FILL THE PRINT AREA
BR. TO LOAD UCS BUFFER
TEST NUMBER
SET UP FOR 15 LINES
SET UP PRINT AND SPACE
SET UP FOR OUALING MODE
CHECK SENSE SWITCH 24 FOR DUALING
BR. IF ON - IN DUALING MODE
LOAD PRINT AND SPACE CCW ADDRESS
BR. TO ISSUE START 1-0
CONTROL S~ITCHES
TEST NUMBER
EXP CONO. CODE AND SENSE
EXP CSW ADDRESS
RIPPLE THE PRINT AREA
CHECK FOR SPACE 3 AFTER PRINT
BR. IF IT WAS
BR. UNTIL 15 LINES PRINTED
SET UP FOR SPACE 3 AFTER PRINT
UPDATE TO NEXT GROUP CHARACTERS
UPDATE TO NEXT UCS ADDRESS
BR. UNTIL 15 GROUPS RIPPLED
GENERATE LAST SET FO TO FF
FILL UCS LOAD AREA WITH 15 SETS
FILL PRINT AREA
BR. TO LOAD UCS BUFFER
TEST NUMBER
SET UP FOR 15 LINES
SET UP FOR OUALING MODE
CHECK SENSE SWITCH 24 FOR DUALING
BR. IF ON - IN OUALING ~ODE
SET UP FOR PRINT AND SPACE
BR. TO ISSUE SIO
CONTROL SWITCHES
TEST NUMBER
EXP CONO. CODE AND SENSE

10
PAGE

,I
,. ID rf)
0

1:'1',:"

,I,;',

1

. ··.1

'n

01E30
01E32
01BB
01E3E
01E42
01E46
01E4A
01E4E
01E52
01E56
OIE5A
01E5E
01E62
01E66
01E6A
01E6E
01E12
01E1b
01E1A
01E1E
01EB2
01EB6
OlEBA
DIE90
01E94
01E96
01E91
01E98
01E9A
01E9C
01EA4
01EAC
01EB4
01EB1
OlEBF
01EC1
OlECB
01EOO
OlEDB
OlEDC
01EEO
01EE4
OlEEB
OlEFO
01EFB
01FOO
01FOB
01F10
01F1B
01F20
01F2B
01F30
01F34
01F3B
01F3C
01F40
01F41
01F42

ROUTl NE NUMBER
ADDRESS OF NEXT ROUTINE
CHECK FOR UCS FEATURE
BR. IF NOT DEFINED
BR. TO INITIALIZE
SET UP LOAD NO FOLD
SET UP FOR 15 GROUPS
SET UP FOR 00 TO OF
SET UP FOR UCS AODR 1 TO 16

15NOV66 12DCT67
125655 131812

\0

BA

1403 RIPPLE PRINT

1403 RIPPLE PRINT
01038
01039
0103C
01040
01044
01048
0104C
01050
01054
01058
0105C
01062
01064
01068
0106C
01070
01074
01078
0107E
01082
01086
0108A
OlOBE
01094
01098
0109A
0109E
010A2
010A6
010AA
OlOAE
010B2
010B6
010B8
010BA
OlOBC
OlOBE
010C4
010CA
OlOCE
01002
01006
0100A
0100E
010E2
010E6
010EA
010EC
010FO
010F4
010F8
010FC
01E02
01EOB
OlEOC
01EOE
01El2
01E16
OlElA
01E1E
01E22
01E26
01E2A
01E2C
01E2E

PIN B"0210

IBM M41NTENANCE DIAGNOSTIC PROGRAM

PIN 8"0210
PAGE

()
"
'.

('").

iU

932
DC
933
MVC
934
MVC
935
TM
936
BC
937
BCT
93B
MVI
939
BC
940 EXITOI CLI
941
BC
942
MVI
943
BC
944 ADJUST CLI
945'
BC
946
CLI
941
BC
948
CLI
949
BC
950
CLI
951
BC
952
CLI
953
BC
954 SWAT
MVC
955
BC
956 EXITI SVC
951
DC
958
DC
959
DC
960
SVC
961 BASHED DC

AL2(PRTCSW-SECNO+REGI EXP CSW ADDRESS
RIPPLE PRINT AREA
PRAR-l1132I,PRAR
PRAR+131111,PRAR-I
CHECK FOR SPACE 3 AFTER PRINT
PRINT,X'10'
ALL,EXITOI
BR. I F IT WAS
R1, ~R ITE2
BR. UNTIL 15 LINES PRINTED
PRINT,X'19'
SET UP FOR SPACE 3 AFTER PRINT
UNC,WRITE2
COMPARE
FOR FOLDING MODE
LOAO,X'F3'
EQ,EXITI
BR. I F DONE
LOAO,X'F3'
SET UP FOR FOLDING ~oOE
UNC,AGAIN
COMPARE FOR A NULL
PRAR,X'OO'
EQ,SWAT
BR. IF IT IS
PRAR,X'40'
COMPARE FOR A BLANK
EQ, SWAT
BR. IF IT IS
LOAO,X'F3'
COMPARE FOR FOLDING
UNEIl,MARTY
BR. IF NOT
COMPARE FOR A VALID UNPRINTABLE
PRAR,X'SO'
EQ,SWAT
SR. IF IT IS
COMPARE fOR A VALID UNPRINTABLE
PRAR,X'CO'
UNEQ,MARTY
BR. IF NOT
PRARlll,PRAR+1
WIPE OUT CHARACTER
UNC,MARTY
PRINT RESTORE MSG
X'DO'
X'04'
X'lll'
AL2IBASHEO-SECNO+REGI
X'06'
EXIT FROM ROUTINE 01
C' RESTORE UCS BUFR WITH FS31'

962

FOLONG DC

C' IN FOLDING MODE'

963
964
965
966
967
96B
969
910

DUAL
CCW
PRINT cew
P.RTCSW DC
DC
DCc'
OC\
QUAD1 DC
DC
DC
DC
DC
DC
DC
DC
PR INTI CCW
PRTl
DC
DC
DC
DC
FOLD
DC

X'EB',PRAR,X'40',1
X'09',PRAR,X'OO',132
AIPRTCSWI
X'OBDOOOOO'
XL4'O'
X'OiiOOOOOO'
X'313213341516313B'
X'197A3B1C1C7A7F2A'
X'6162236425266768'
X'292A6B2C1C6E2F10'
X'5152135"15165758'
X'191A5B1C5D5BIF4A'
X'010243044546070B'
X'494AOB4C4COB4F10'
X'OB',PRAR,X'OO',132
XL4'O'
X'D8000000'
XL4'O'
X'04000000'
X'CO'

911

972
913
914
975
916
971

91B
979
9BO
9Bl
9B2

00

07 00

983
9B4
9B5
9B6
9B7
98B
989
990

F836-4
B

() ,0 "l\...1').

FEOB
02 83 F AAB F AA9
02 00 F B2C F AAB
91 10 F EDO
41 10 F E52
46 10 F E26
92 19 F EDO
47 FO F E26
95 F3 F 020
47 BO F E94
92 F3
f 020
47 FO F D4C
95 00 F AA9
47 80 F E8A
95 40 F AA9
47 80 F EBA
95 F3 F 020
47 60 f OBE
95 80 F AA9
47 BO F EBA
95 CO F AA9
47 60 F DBE
02 00 F AA9 F AAA
47 FO F OBE
OA DO
04
18
FE9C
OA 06
4009C5E2E3D6D9C5
40E4C3E240C2E4C6
0940E6C9E3CB40C6
FBF3F7
40C90540C6D6D3C4
C905C1"00406C4C5
00
EB001AA940000001
09001AA900000084
00001ED8
OBOOOODO
00000000
04000000
313273341516313B
191A381C1C1A1F2A
616223642526676B
292A6B2C7C6E2F10
5152135415165758
191A5BlC505B1F4A
010243044546070B
494AOB4C4COB4F70
DBOOIAA9000000B4
00000000
OBOOOOOO
00000000
04000000
CO

,,(')
....

DATE
EC'S

CNOP 0,4
************ ••• *********************************************.*.********
* ROUTINE 02 - THIS ROUTINE WILL RUN ON 1403 PRINTERS WITHOUT THE UCS
*
FEATURE ONLY. ALL 256 POSSIBLE CHARACTERS WILL BE
*
PRINTED IN EACH PRINT POSITION. THE 256 CHARACTER CODES
*
WILL BE RIPPLED THROUGH THE PRINT AREA IN GROUPS OF 64
•
CHARACTERS EACH. EACH GROUP OF 64 LINES WILL BE
*
SEPARATED BY A TRI~LE SPACE.

15MAR66 15NOV66 120CT67
125632 125655 131812

0 0 0
I , ~

""J"

/

,

,{)

10
PAGE

FB36-4
BA

,0 0 0 '0 0 '0 0 0 0 0 0
(,

'f

l)
t{)
.\ ..

.

o

0 - 0--" 0-' 0-

1

-

o o o

IBM MAINTENANCE DIAGNOSTIC PROGRAM

0 ()
PIN 840210
PAGE
9

(J

00000
00001
OOOOF
00000
00004
00001
00005
00008
00004
00002
00001
00008
00004
00002
00006
! OOOOC
i OOOOA
- 00080
00181

DATE
EC'S

02
OOFFFF
91 10
41 10
45 40
41 20
41 40
41 30
42 40
42 23
46 20
46 30
02 43
02 3F
95 04
47 80
95 01
47 80
92 lA
92 1A

92 2A
02 43
41 30
92 09
41 AO
45 BO
3CCO
0050
FOOO
FED8
02 83
02 00
02 83
02 00
91 10
47 10
46 30
92 19
47 FO
46 40
OA 06
00

F OEl
F H6

F 950
100
004
040
f FE8
F AA8
F F6C
F F64
F AE9
F BFD
f FE8
F f98
F FEB
F F90
F C3C
F COC
F CIC

o
o
o

F 00

o

f AA9
F EEO

991

••••••• ** •••• *•••••••• *•••• *••• *••• ** •••••••••••••••••••••• *•••••••••••

992

ROUT02 DC
DC
TM
8C
BAL
LA
LA
FIL
LA
STC
STC3
STC
BCT
BCT
MVC
MVC
CLI
BC
CLI
BC
MVI
OTHER2 MVI
OTHER3 MVI
MOVEIN MVC
LA
MVI
LA
WRITE3 BAL
DC
DC
DC
DC
MVC
MVC
MVC
MVC
TM
BC
BCT
MVI
BC
UPGP2 BCT
EXIT02 SVC
GLORY DC

X'OZ'
X' OOFFFF'
UNIT1+1,X'10'
ALL,EXIT02
R40INIT
R2,256
R4,4
R3,M
R4,GLORY
R2,PRAR-IIR31
R2,.+4
R3,STC3
PRAR+6416BI,PRAR
LDARI641,QUADl
GLORy,X'04'
EQ,MOVEIN
GLORY,X'Ol'
EQ,OTHER2
LOAR+63,X'lA'
LOAR+15,X'lA'
LDAR+31,X'ZA'
LDAR+6416BI,LOAR
R3,63
PRINT,X'09'
RlO,PRINT
R11,IS10
X'3CCO'
X'0050'
X'fOOO'
ALZIPRTCSW-SECNO+REGI
PRAR-111321,PRAR
PRAR+131111,PRAR-l
LDAR-1113ZI,LDAR
LDAR+131Ill,LDAR-l
PRINT,X'10'
ALL,UPGP2
R3,WRITE3
PRINT,X'19'
UNC,WRITE3
R4,FIL
X'D6'
X'OO'

NEVER
NCCO
UNC
NONE
SOME
ALL
ANY
CCO
CCI
CC2
CC3
EQ
LO
HI
UNEQ
EQLO
EQHI
LOGOUT
SYSMOD

0
7
15
8
4
1
5
8
4
2
1
B

993
994
995
996
997
99B
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1012
1013

03F
F EDO
f EDO
F OE6

1011

AA8
B2C
BfC
C80
EDO
fE2
fAA
EDb
FAA
f5C

1018
1019
1020
1021
1022
1023
1024
1025
1026
1021
1028
1029
1030
1031

F
F
f
F
f
F
f
F
F
F

1014
1015
1016

F
F
f
F

AA9
AA8
BfD
BFC

o o o 00 o
PIN 840210
PAGE
9A

1403 RIPPLE PRINT

1011

F BFD

00

IBM MAINTENANCE DIAGNOSTIC PROGRAM

1403 RIPPLE PRINT

0lf44
01F45
01F48
01F4C
01F50
01F54
01F58
01F5C
01F60
01F64
01F68
01F6C
OlFl0
01F76
01F7C
01F80
01F84
01F88
01FBC
01F90
01F94
01F98
01F9E
01FA2
01FA6
01FAA
01FAE
01FBO
01FB2
01FB4
01FB6
01FBC
01FC2
01FC8
01FCE
01F02
01FD6
01FDA
01FDE
01FE2
01FE6
01FE8

o

1032

1033
1034
1035
1036
1031
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
104B
1049
1050
1051
1052
1053
1054
1055

15MAR66 15NOV66 120CT67
125632 125655 131012

ROUTINE NUMBER
LAST ROUT I NE
CHECK FOR UCS FEATURE
BR. IF DEFINED
BR. TO INITIALIZE
SET UP FOR 256 CHARACTERS
SET UP FOR 4 GROUPS
SET UP FOR 64 CHAR GROUP,
SAVE QUADRANT NUMBER
GENERATE CHARACTERS
FILL PRINT AREA
COMPARE FOR QUADRANT 4
BR. IF IT IS
COMPARE fOR QUADRANT
BR. IF IT IS

OFOOO
0005A
00000
00001
00002
00003
00004
00005
00006
00007
00008
00009
OOOOA
OOOOB
OOOOC
00000
OOOOE
OOOOF
00190
0005A
00040
00048
OOOOB

SET UP fOR 63 LINES
SET UP PRINT AND SPACE

1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1011
1072
1073
1014
1075
1016
1077
1078
1019

REG
WHAT
RO
Rl
R2
R3
Rio
R5
R6
R7
R8
R9
RIO
Rll
R12
R13
R14
R15
WT
WAHT
HCSW
HCAW
NCCI

EQU
EQU
EQU
EQU
EQU
EIlU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EIlU
EQU
EQU
END

X'fOOO'
90
0
1
2
3
4
5
6
7
0
9
10
11

12
13

14
15
408
90
64
72
11

BR. TO ISSUE START 1-0
CONTROL SWITCHES
TEST NUMBER
EXP CONDo CODE AND SENSE
EXP CSW ADDRESS
RIPPLE THE PRINT AREA
RIPPLE COMPARE AREA
CHECK fOR SPACE 3 AFTER PRINT
BR. IF IT WAS
BR. UNTIL 63 LINES
SET UP FOR SPACE 3 AFTER PRINT
BR. UNTIL 4 GROUPS PRINTED
ROUT! NE EX IT

•• *•••••• *•••••• *••••••••••••••••••••••••••••••••• *••••••••••• ** ••• ****
*
EQUATES
.* ••••••••••••••••••••••••••••••••••••• *••••••• *••••••••••• *••••• *.* ••••
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU

4

2
6
12
10
X'OO'
X'lBl'

10
PAGE

F836-4
9

DATE
EC'S

15MAR66 15NOV66 12DCT67
125632 125655 131812

10
PAGE

fB36-4
9A

0

o.e

J8M

M~INrENANCe

DIAGNOSTIC PROGRAM

PIN 840210
PAGE
10

IBM MAINTENANCE DIAGNOSTIC PROGRAM

1403 RIPPLE PRINT

PIN 840210
PAGE
lOA

1403 RIPPLE PRINT

POST ASSEM8LY DATA

LABEL CROSS-REFERENCE BY STATEMENT NUMBERS
LABEL

LEN VALUE

DEFN

REFERENCES

RELOCATION DICTIONARY
LOCATION
01015
0101C
017F9
01800
01809
01810
01949
01011
01019
01021
01028
01EC9
01EOl
01E08
01F29

DATE
EC'S

ADJUST
AGAIN
ALL

LENGTH
3
4
3
3
3
4
3
3
3
3
4
3
3
4
3

ANY
BASHED
BLOOP
CAW
CCO
eel
CC2
CC3
CHIRP
CKAR
CLUIN
CRoesw
CRUDE
esw
DARIO
OCKRD
UMSSW
ORAR
OUA8lE
DUAL
OUALEO
EQ
EQHI
I:QLO
EXITOI
EXIT02
EXIT1
EXNPSW
EXOPSW
FERRO
FIL
FLAGI
FLAG2
FOLD
FOlONG
GLORY
GREG
HANGUP
HARDER
HCAW
.HCSW
HEOI
HE02
HI
HOKAY
HONK
HOPE
HUNG
IACSNS
IACT
IAeTCC
IBACK
IBLAH
IBSN
ICAW
ICC OUT
ICCSWI

10
PAGE

15MAR66 15NOV66 120CT67
125632 125655 131812

-----~,'"

()

4 001E62 0944
4 00104C 0873
1 000001 1042

0 '0 ,0 'D

r{)

0 rf)
"

{)
I,',

"

F836-4
10

DATE
EC'S

.....

-"-""---

1
27
4
4
1

1
1
1
2
1
16
4
4
8
2
8
1
1
4
8
4
1
1
1
4
2
2
5
8
16
4
1
1
1
16
1

4
6
4
1
1
16
16
1
4
4
4
16
11

3
10
2
16
6
12
6
6

I

1043
0961
0766
0058
1044
1045
1046
1047
0634
0732
0794
0727
0587
0057
0"157
0726
0609
0733
0827
0963
OB28
1048
1053
1052
0940
1032
0956
0060
0052
0796
0999
0048
0049
0982
0962
1033
0247
0775
0601
1077
1076
0821
0823
1050
0585
0590
0341
0805
0713
0710
0696
0368
0708
0379
0705
0479
0387

0266
0769
0560

0295
0888

0304
0896

0310
0906

0316
0926

0374
0936

0377
0995

0412
1027

0439

0562

0748

0790

0629

0688

0745

0941

0945

0947

0951

1007

1009

0750

0751

0754

0755

0756

0756

0760

1006

1008

0237
0225

0362
0262

0558
0281

0296

0299

0369

0681

0683

0690

0693

0248
0255
0256

0254
0366

0593
0579
0785
0727
0679

0600
0726

0575

0753
0345
0580
0686
0894
0691
0332
0936
0870
0941
0749
1031
0684
0633
1000
0249
0769
0595
0224
0225
0637
0641
0694
0586
0342
0782
0328
0502
0252
0364
0459
0312
0450
0449
0386

0734
0924
0407

0995

0331
0512
0257
0372
0472
0314
0453
0465

0334

0527

0528

0532

0722

0259

0261

0265

0277

0379

0488

0473
0318
0454

0477
0320
0458

0489
0352

0493
0356

0502
0359

0507

0512

10
PAGE

_ _-_ _----,.
..

F836-4
lOA

--

..

4')
!J(

OS'll

0629

15MAR66 15NOV66 120CT67
125632 125655 131812

0 0 0 iO :0
,"i:

000005
001E9C
0019BC
001046
000008
000004
000002
000001
001670
00183C
00 lAB
001810
0015EO
001040
D019A4
001808
0001AO
0016CO
0018F5
001EC8
00lBF9
000008
OOOOOA
OOOOOC
001E52
001FE6
001E94
001058
001018
001A2C
001FSC
00100E
00100F
001F40
001EB7
001FE8
001144
00190C
00160E
000048
000040
001BA8
0018C2
000002
001508
P015EC
0012A4
001A6E
00179C
00178B
001734
001310
001771
00133A
00175F
00147C
00135C

0888
0943
0231
0753
0549
0959
0745

0

o

"0- 0--' '0--- 0' :0
i".'

_,

I

I,""

I

I.., ".'

"

.,'1,.

o o

0·0

o . CJ

0·",' C")
.'

,

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840210
PAGE
11

4
4
1
1
4
4
4
4
16
6
4
4
4
16

INIT
INOEXI
INOEX2
INOW
INPSW
INT3
IOAooR
IOAOR
IOCSW
10EXRA
10LOG
lONE
IONPSW
IOOPSW
IOPOUT
IOPTI
lOUT
IOUTIT
IPAS
IPASS
IPRLOP
IRETRN
ISAVE
ISEA
ISEN
ISENSe
ISIO
[SLAVE
ISPEo

2 001950 0738
4 001322 0373
4 00132E 0376
I, 001194 0266
5 001010 0050
4 00120C 0301
15 00173E 0697
3 001800 0723
6 001492 0489
4 0012FO 0360
16 0017A7 0714
4 00117E 0261
4 001078 0065
8 001038 0056
4 001564 0548
16 0017CC 0717
4 0015AO 0569
·6 001308 0417
4 00150C 0515
4 001530 0533
2 00156C 0550
4 0011E8 0293
12 001830 0731
4 0012CC 0351
4 001224 0307
8 0017F8 0722
6 0010E6 0221
8 001B9C 0819
4 00122C 0309

DATE
Ee'S

6
3
6
6
4
4
2
1
2
3
8
8
6
4
4
4
4
4
3
10
11

0013AA
00116E
00 lIt8A
0014EA
001304
001386
00100A
001477
001460
00116B
0017E6
OOHEE
001446
00123C
0014F4
0014C4
00125C
0013B8
00178E
00172A
001791
0013A6
00139A
0013E8
00156E
0012AC
00112C
00113C
00158A
00174F
001286
001312
00140C
001384
001BOC

0406
0707
0498
0508
0365
0397
0045
0476
0468
0706
0720
0721
0462
0313
0510
0500
0321
0409
0711
0695
0712
0405
0402
0423
0551
0343
0240
0245
0563
0701
0331
0369
0505
0408
0825

000

,.'"

"

.. ,

c o o o

00 0'

e

PIN 840210
11A
PAGE

IBM MAINTENANCE DIAGNOSTIC PROGRAM

1403 RIPPLE PRINT
ICCSW2
ICCW
ICHNGI
ICHNG2
ICLEAR
ICLRoT
ICM
ICNT
ICOUT
ICSW
ICSWI
ICSW2
ICWOUT
IoECI
IDIo
IDIoI
IODSNS
IoUNCK
IEXP
IEXPCC
IEXSNS
IFIX12
IFIX9
IFLAGI
IFLAG2
IFUR
IHANG
IHI
ILEAVE
ILINK
ILKSEN
ILOKE
IHORST
INOER
INFO

0·",

".'u,"'

000

'

1403 RIPPLE PRINT
0394
0459
0495
0497
0367
0396

0404

0460
0463
0489
0262
0299
0467
0310
0506
0492
0316
0375
0493
0479
0223
0399
0398
040'l
0410
0324

0490
0499

0504

0509

0514

0296
0319

0315
0403

0387
0406

0387
0406

0239
' 0414
0428
0329
0366
0501
0374
0582
0661
0871
0382
0390
0231
0298
0443
0442
0439
0322
0540
0255
0534
0553
0549
0412
0511
0516
0589
0066
0222
0344
0268
0321
0763
0226
0278

15MAR66 15NOV66 120CT67
125632 125655 131812

0786
0378
0507
0484
0327
0415
0416
0332

0503
0513

0407
0330

0331

0400

0519

0520

0524

0335

0431

0432

0436

0557

0377
0585
0662
0996

0380
0643
0663

0384
0644
0665

0388
0645
0666

0258

026.0

0264

0392
0648
0667

0649
0669

0652
0670

0653
0672

0656
0674

0657
0678

0659

0660

0447
0346
0541

0354
0542

0749

0755

0567
0348
0302

0304

0836
0480
0280

0898
0778
0282

0543

0928

0547

1017

ID
PAGE

F836-4
11

ISSUE
ISV2
ISW

4 00ll5E 0253
6 001202 0299
2 0010E4 0211

IS12
ITICK
IlRYI
ITSTNO
IlWO
!UP
IWAIT
IZERO
JOHN
KLEER
LARGE
LoAR

4
4
4
9
4
4
4
4
6
4
1
1

00139E
00130C
001120
0017C3
001176
001596
0011A4
001190
001150
001058
001880
0018FO

0403
0367
0237
0716
0259
0566
0270
0265
0250
0876
0817
0829

LOCSW
LO
LOAD
LOAOIT
LOGOUT
LSTGRP
HARTY
MCNPSW
MCOPSW
M0044
M0050
MOVEIN
HSKI
MSK2
MUM8
NCCO
NCCI
NEVER
NIOU
NITWIT
NUT
NOoEV
NONE

4
1
8
6
1
16
6
8
8
4
4
6
1
1
2
1
1
1
4
4
16
1

001028
000004
001020
OOICEE
000080
001820
00108E
001070
001030
001110
001BA4
001F98
001B03
001804
001002
000007
000008
000000
001000
00195C
0015BE
001A5o
000008

0845
1049
0844
0833
1054
0810
0889
0064
0055
0230
0820
1013
0724
0725
0838
1038
1078
1037
0047
0742
0578
0801
1040

NOT
OBERI
OBER2
OBER3
OBER4
OFF
OTHER2
OTHER)
PGNPSW
PGOPSW
PRAR

3
4
4
4
2
3
4
4
8
8
1

001A5A
0016C6
001606
0016E6
0016EA
001A57
001F90
00lF94
001068
001028
001AA9

0800
0666
0670
0674
0675
0799
1011
1012
0063
0054
0808

PRELO
PRINT
PRINTl
PRTCSW
PRTl
QUAol

8
8
8
4
4
8

001010
001EoO
001F28
001E08
001F30
001EE8

0842
0964
0977
0965
0978
0969

DATE
EC' S

1

0448
0295
0250
0303
0355
0515
0401
0370
0241
0221
0256
0564
0306
0254
0233
0912
0569
0576
0877
1024
0840
0628
0890
0229
0599
0949
0228
0743
1007
0273
0275
0833
0241
0280
0740
0575
0286
0233
0348
0492
0740
0751
0664
0668
0671
0673
'0750
1009

0573
0933
0977
0835
0893
0762
0902
0767
1005

15MAR66 15NOV66 120CT67
125632 125655 131812

0723
0250
0305
0357
0548

0251
0307
0358
0561

0263
0313
0371
05'l0

0266
0317
0373
0642

0243
0411

0560
0420

0421

0425

0269
0323
0376
0768

0272
0325
0383
0776

0276
0326
0391
0777

0287
0333
0408
0787

0293
0347
0411
0788

0294
0349
0500

0297
0350
0510

0300
0355
0515

0772
1010

0772
1011

0773
1012

0844
1013

0875
1013

0876
1024

0877
1024

0248
0588
0594
0915
1025
0845

0601
0602
0918
1025

0605
0918

0614
0919

0771
1005

0872
0920
0229

0882

0940

0942

0948

0953

0955

0342

0364

0282
0356
0506
0870

0302
0370
0511

0308
0382
0516

0312
0384
0564

0314
0390
0593

0318
0392
0664

0320
0401
0668

0324
0404
0671

0329
0414
0681

0335
0465
0683

0344
0492
07"0

0578
0933
1001

0773
0934
1004

0842
0934
1004

0843
0944
1022

0881
0946
1022

0889
0950
1023

0889
0952
1023

0903
0954

0903
0954

0904
0963

0904
0964

0919
0977

0897

0905

0908

0923

0927

0935

0938

1015

1016

1026

1029

0932

0965

1021

0535

0587
0239
0352
0501
0748

0754

ID
PAGE

F836-4
11A

4#4. 4.;

;4)44.£4 .4.$100

iilf'

'~~"""""""'~'""""
.-~"""""-"'"-"""""""'_"""'I6>

IBM M.. NT£NANCE DIAGNOSTIC PROGRAM

PIN 840210
PAGE ' 12

lItO 3 RIPPLE PRINT
RANK
ROCCW
READY
REG

4
8
13
1

D016F4
001948
001A81
OOFOOO

0680
0734
0804
1056

ROUTOI
ROU102
RTSAV
RO
Rl
RIO

1
1
1
1
1
1

R11

1 OOOOOB 1069

R12
R13
Rlit
11.15
11.2

1
1
1
1
1

11.3
11.4

1 000003 1061
1 000004 1062

11.5

000005 1063

, R6
11.7

" 1 000006 1064
, 1 000007 1065

11.8

1 000008 1066

11.9

1 000009 1067

SAVOEV
S~VI0

SOMF
SECNO

SNSW
SOME
SRET
STAY
SlC
STC2
STC3
SVNPSW
SV,OPSW
SWAT
SWING
SWUNG
SYSMOD
SZABO
TRU8L
TUFF
UNe

2
4
1
4

001038
001F44
001A12
000000
000001
OOOOOA

OOOOOC
000000
OOOOOE
OOOOOF
000002

001AI0
001B98
00'100C
001000

0867
0992
0793
1058
1059
1068

1070
1071
1072
1073
1060

0792
0818
0046
0042

4 001004 0043
1 000004 1041
3 001050 0061
2 0019AA 0761
4 001068 0880
4 0010FO 0915
4 001F64 1001
8 001060 0062
8 OQI020 0053
6001E8A 0954
4 00170A 0686
4 00171C 0691
1 000181 1055
4 001680 0643
4 OOllCO 0277
16 00184C0812
1 OOOOOF 1039

~,

_~

..

","",::t;o>_._"""~_."",,....-~.~

,

PIN 840210
PAGE
12A

1403 RIPPLE' PRINT
0584
0353
0339
0286
0557
0902
0051
0868
0770
0245
0224
0835
0221
0389
0565
0240
0224
0227
0296
0569
1001
0571
0579
0913
0562
0880
0573
,0222
0691
0922
0321
0399
0614
0222
0567
0744
0461
0286
0458
0538
0637
0775
0232

0339
0599
0932

01025
0627
0959

0436
0633
1021

04H
0637

01058
0641

0477
0678

0484
0760

0488
0767

0524
0782

0532
0785

0547
0840

05~3

0902

UPGP2
UPGRUP
U1AODR
UI0P
WAHT
WHAT
WORK

4
4
2
1
1

001FE2
00100E
0010E2
0010El
00005A
1 00005A
1 001818

1031
0910
0070
0069
1075
1057
0730

WRITE
WRITE2
WRITE3
WT
XF8364

4
4
4
1
1

0898
0928
1017
1074
0003

0775

,

0246 0249
0226 0237
0894 0897
0226 0230
0417 0427
0565 0566
0242 0247
0225 0225
0270 0360
0299 0741
0572 0578
1002
0571 0578
0582 0661
0996 0998
0577 0577
0881 0885
0576 0581
0322 0346
0692 0879
ci937
0:345 0353
01026 0427
0615 '0684
0270 0271
0601 0603
0746
0339
0470
0539
0641
0782
0238

0420
0471
0547
0648
0785
0413

0947

0951

0450
0924
0267
0428
0566
0253
0237
0533

0461
0927
0301
0437
0568
0279
0262
0739

0462
1016
0309
0437
0763
0341
0281

0464

0466

0466

0480

0558

0762

0778

0311
0438
0778
0363
0362

0327
0479
0836
0365
0369

0343
0491
0898
0742
0558

0351
0494
0928
0743
0738

0379
0505
1017
0744
0738

0381
0563

03@5
0565

0579

0580

0581

0587

0588

0608

0658

0873

0912

0991

0643
06115
1000
0580
0890
0875
0354
0880

0687
0686
1031
0583
0913
0880
0368
0881

0999
0689

1001
0691

1003
0774

1014
0871

1028
0874

0878

0910

0910

0644
0915
0884
0567
0884

0692.0916
0911
0569
0886

0786
0920
0911
0570
0892

0833

0834

0834

0841

0878

0570
0907

0581
0914

0583
0915

0588
0917

0645
0922

0362
01094
0684
0274
0603

0385
0495
0686
0360
0604

0386
0496
0687
0361
0605

0393
0496

0393
0497

0394
0602

0395
0604

0395
0605

0396
0606

0398
0614

0367
0607

0463
0610

0478
0610

0499
0611

0504
0614

0509

0514

0421
0477
0553
0649
0789
0559

0425
0484
0557
0652
01140
0682

0431
0488
0599
0653
0868
0752

0432
0519
0618
0656
0902
0887

0436
0520
0619
0657
0932
0895

0442
0524
0622
0678
0959
0925

0443
0527
0623
0760
1021

0447
0528
0627
0767

0453
0532
0633
0770

0454
0538
0637
0'175

0612
0264
0600
1030
0388
0742

0613
0289
0673

0615
0298
0679

0618
0306
0690

0619
0359
0694

0622
0368
0774

0623
0372
0790

0627
0375
0841

0378
0909

0467
0939

0449
0747

0534
0869

0584
0994

0586

0595

0693

0883

0949

09~3

0746
0741

001082
001E26
001FAA
000198
001000

1027
0906

0397
0513
0658
0896
0926
1028
0245

0402
0535
0659
0907
0937
1030
0270

NO STATEMENTS FLAGGED IN THIS ASSEMBLY

0405
0538

0462
0539

0410
0540

0471
0541

0472
0542

0413
0543

0498
0601

0498
0608

0503
0611

0508
0612

0508
06'58

0909
0939
0360

;,:

0886
0917
1003
0945
0689
0688
0227
0591
0289
0606
0243
0478
0939
0228
0574

UNEQ
UNITl

1 000006 1051
1 0010EO 0068

DATE
Ee's

15MAR66 15MOV66 120CT67
125632 125655 131812

00000

... .......

IBM MAINTENANCE DIAGNOSTIC PROGRAM

0533
0308
0608
0258
0568
0943
0278
0592

o o

0609
0260
0589
0955
0380
0680

10
PAGE

F836-4
12

DATE
Ee's

15"AR66 15NOV66 120CT67
125632 125655 131812

10
PAGE

F836-4
12A

0 0 0 0 0 0 0 0 0 0 0 0 OQ 0 0 0 0 0 0 0 0 0 0 0'0

o
IBM

M~INTENANCE

0 0 0 0 C C 0 0' 0 0 C 0 0 0 C 0: 0 0 0 0 0 0 G

DIAGNOSTIC PROGRAM

.

"

"

1

PIN 840210
PAGE
13

COLS.

COLS.

21 THROUGH 40

COLS.

41 THROUGH 60

COLS.

BTXT.ALA •• A8 •• AAG7AD
9
Y9Q V9 Y99-9

61 THROUGH 80

9 9

9

9

-DGA3DFAOVG03AA.OUGA
OllY 8-Y l
QIQ
9
9
9

3DG03HAJOUGA3DG03HNA
-Z --v ZQ -Z - Y
0099009

71ADG-3DAHAA83640015
8Q9l --9QY
90
0 09

A.OUGA3DHCAF.A3-NG7W
lY -ZYV9 Y
9

3DAHAH.A30AHB3640016
-ZOY9 Y YZO

9

7WG-3DADAAGA3WAJOUGA
l
--9QYZY B-Y lY
o 09
9 9

3HDD8Q.A3D.A3QAA7FGA
O-Q 9 Y Q Y 0-9 -lY

3FFB8QAA72GA3KFA8QNG
Q-9 9-9 ZY Y-9 9 9

7070GA3HFAOU83640017
Y YlY --9
990

BU3Y8A~WKA7HABBEABGH

GHB-MA7CAAAD83640018
9 80Z8 lYY9
999

64 •• AAAA.AGI ••••••••
YYQY Y8
9999 99

••••••••••••••••• 840

211.131812 •• 83640001

BTXT.AAA •• A8 •• AA86.A
9
YQY Y9 Y9 9 Y
999 9
9
9

AAAAAAAAAA&AADAAAAN8
YYYYYYYYY9-Y99YYYY89
999999999 9 99999

AAAAAAAAAAAAAAAAAAAA
YYYYYYYVVYVVYYYYYYYY
99999999999999999999

AAAAAAAAAAAA83640002
YYYYYYVYYYYY
999999999999

BTXT.ALA •• A8 •• AAAO.A
9
Y9Y V9 Y9Y9 Y

BTXT.AA8 •• A8 •• AAAAAA
YQ9 Y9 Y9YYYY
99
9
9 9999

AAAAAAAAAAAAAAAAAAA~

9

YYYYYYYYYYYYYYYYYYYY
99999999999999999999

AAAAAAAAADAAAAAAAAAA
YYYYYYYYY9YYYYYYYYYY
999999999 9999999999

AAAAAAAAAAAA83640003
YYYYYYYYYYYY
999999999999

BTXT.ALH •• A8 •• AABM3Y
9
Y9- Y9 Y9-1

BTXT.AAh •• AA •• AAAAAA
9
YQ- YQ Y9YYYY
990 99 9 9999

AAAAADAAAAJY ••••••••
YYYY99YYYY9
9999 9999

•••••••••••• 83640004

BTXT.ALO •• A8 •• AALH&A
9
Y9
Y9 Y98- Q
9
9
9 90 0

7DBEACGEGD8-SA7GACAD
R8QY99R9R808Q 8lQY9
999
9 9
09

AAAAGA4BBEACHAGCB-SG
-YQYlQ -OQY99Y9l8088
099 .,99 9 9 9

76EDI0G-44&J83640019
8-Q 8l 8 Y

BTXT.AAS •• AB •• AACAAA
9
YQ8 Y9 Y90YYY
99
9
9 9 9

AAKA7HABA1BABA7F&NAH
YY 9 Q9Q8 Q-Y - YYZ
99
0
I 9
9

PG-.-.ALCDEAJAG-IAPC
90 0 CYQQ-QIOI Q 8

•• A8 •• AA7MBE
Y9 Y9 l8Q

ACGNGMB-SC7PKB7B7WBO
Y99Z9Z8088 8 9 R 8-9
9
9 9
0

4G&JCHKG8QJAEA4-A&JD
R YQ- 9 9YYZQ --Y9

GA44AKAHG04F83640020
IY BIYY9l l

BTXT.AJQ •• A8 •• AAAAOD
9
Y99 YII Y9-Y 9

GAl&&NAHAAODGA14EA&A
IY
YYI-Y 9lY 8QY-Y

G&IJDA&AGOIJHOAHHAAC
Z- YQY-YZ YR89-0QY9
o 9 9 9
9 9
99

EA&AGA1&FAIOS3640006
QY-YZY ZQ l

BTXT.AM- •• A8 •• AABEAH
9
Y9
V9 Y98QY9
9
9
9 999

HQHQKG7F8QKG77BJ8-SK
9999 9 R 9 9 8 Y80B8

7AG9KA7XADHJCDB-SB7S
R9 Y 8Q9RYQQ8088 8
o 9 90 Z 9 9 9

9

OUFAOUBX71DA&AGAIAG.
-Y
8QY-YlY QZ
999

16GJIFB371GOIDB271GO
8ZY R- 8l
8Z

ID8171KG7W-.83640007

BTXT.AMH •• A8 •• AA8K4G
9
Y9- V9 Y9-8 R
9
9
9 9 0

AHAAGA4DK87H7FHCAF.A
-9QYZY
9 0 YZYY9 Y
09
9

4FAHAH.A40KGOQ8QEA4QZOY9 Y Y 9 9 9lQ

A.OUGA4DK87H83640022
ZY Q 9 0

G01DB071D70UA.AAGA2U
l
8-8 - QYlQ 9
9
09.9

-'I

FAI0AA8D070U83640008
lQ -YY 9-S
o 9

BTXT.AM- •• A8 •• AA7CKG
9
V90 Y9 Y9 Y 9

8Q7WEA4-ADAAGA44K87H
9 ZQ -9QYlY
9 0
09

7FKG8Q8QEA4-AJOUGA5D
Y 9 9 9ZQ -Y lY 8

G-2UEA&AGA2UAA-DGA2U
l
8QY-YlQ 8-QOlIY B
9 9 909 9
9

B-MUBNFAOUBBGOl&D70U
BOZ9QB-Y 8QZ --8
9
Z
99

A.OUGA2BKG7W83640009
lQ 9 9

BTXT.ANH •• A8 •• AAEA49
Y99 Y9 Y9lQ

-9

ADOUGA5ABEAAGFGFB-SC
lY QBQY99-9-8088
Z999
9 9

7ABEAAGJGJB-SC7DEAJA
-8QY990908088 Q-QIO
999
9 9
I

G-5MKC8QAABE83640024
l
l 8 9YY8Q
9 9 99

OUG02DKG700.FJOUAAAA
l
8 9 Y -Y -QQy
9
9
9
909

GA2UAHOUGA2UFHOUGOIM
ZV 9-9 lQ 9-9 l
0

AJOUGA1&AJAA83640010
-Y lY --YQY
909
9

BTXT.AN ••• A8 •• AAAOHQ
9
Y9
Y9 Y9Y899
9
9
9 99

HQKA7M8QKE7P8KKE7F8S
99 9 Y 9 9 Y 8 9 - 9
9
0

KE7E8SB-SM7PA-OYG&5J
9 Q 8B088 0Z Y
o 99 9

B-&Q7DB-JA7G83640025
80-9 Y80Y9 8
99
9

A&AAGA32A.OUGA32AB7K
--Q9IY BlY 8-9 Y

GA2MAJOUGA32A872GA32
ZQ 8-Y lY 8-9 ZY 8
9
9
9
9

AA78E&20AAOV83640011
lY l- -Y

9

BTXT.ANH •• A8 •• AA&NAH
9
Y9R Y9 Y9 YYl
9 0 9
9
9

AAODG&IJAAOVGNAHAAGA
-Y 9Z Y-9 99-9QYIY
9
09

5FACABACAFH18AGCAXCA
-lQY9ZQY9-8 Q9QQ9QY
09 09
Z Z Z

lGL3AJADA-BQ83640026
8R89ZYYOI QO
909 99
Z

FDOUD70YKA7FAEAA7JGA
-9 -8
Y -'19-9 OZY

2FFA7FNA7J7FGA2MFAOU
0-9 - Y 0 -ZY Y-9

A.7JGA2MB-ME83640012
OIY YSOlS
9 9

BTXT.ANA •• A8 •• AAAAOJ
9
Y9Q Y9 Y9-Q l
9 0 9
9 9

GA5DA-CDlEC28QCB83CB
IQ QI QQ8Rl9QOll alR
9 0 ZZ9
l
9

8GCFJAB.CMJGG-64EDCM
QZRYYZ QY8Rl
-9QY
o 099 Z99
Z9

G-5MFJ5FHXCA83640027
l
YlY Q-9QV
990 Z

E&20AAOYGA2DF.OYD70Y
Z- -Y ZY Y-8
o
9

AAAAGA32AA9HS3640013
-YQIllY SlY l

BTXT.ANY •• A8 •• AAG05U
9
Y9
Y9 V9l 8
9, 9
9

AAOVGA6AAAOJGA6&EOCE
-Q ZQ Y-Q ZZY --QQ
9
9
9
0 ZZ

G-6FB-SPCVG06&HACAAA
Z 88088Q8Z -RQQQlY
99 9Z9
0 Z

CDAIAALHCICD83640028
QQl-Y98-l0QQ

HFAHHAAD&EAHOA&AG&3A
RQ9-0QY9 YYZQY-YZ- Q
9
9 9 909

EA&AG.3KFA3D83640014
QY-YZ nQ 9

BTXT.AOJ •• A8 •• AABACI
9
Y9Y Y9 'Y9ZYQ8
.
999
9
Z

FA8Q3/CF80FOCHAIAGFA
8Q 9 9QR 8- QRl-Y88Q

8Q3/CN80FOCPCICOBACA
9 9Q8 8- Q8l0QQZYQR
ZZ ZO
Z 9 Z

8EAAC/C/8EAAB3640029
8QY988888QY9
999 9 9 999

BTXT.AOH •• AS •• AACACA
9
Y9R Y9 Y9BRBR
9
9
9 9090

B-S3CDECEJGA6&B-SAFG
8089Q8-QQYlY -808QQ9
Z lZ9
09 'lZ0

B-SKCQB-SKCBFAOYOACS
8088Q08088Q -Q ZQQ
., 9Z 9 9Z 9
ZZ

B&CYB&CVBEAA83640030
Z Q Z-Q 8QY9
Z OZ 999

9

BTXT.~J& ••

9

9

9

Y9

A8 •• AAPAOU
Y9 Y9 9

9

9

9

BTXT.AJH •• A8 •• AAF.OU
9
Y90 Y9 Y99

9

9

BTXT.AJ& •• A8 •• AAE071
9
Y9- Y9 Y9- 8
9
BTXT.~J8

9

Y9
9

9

9

9

•• A8 •• AAO.F.
Y9 Y9
9

9

8TXT.AKA •• A8 •• AAGA24
9
Y9Q Y9 Y9lQ 8
919999

BTXT.AKQ •• A8 •• AAGA2M
9
Y91 Y9 Y9ZY Y
9

9

o

9

9 9 9

9

9

9

0

EA&AG&2MA.AAGA2DAA8H
QY-YZ- 0- Q9ZY YZY 9

BTXT.AKQ •• A8 •• AAE&20
9
Y9
YII Y9Z-

AAOYGA32FJOVD70VG032
-Y ZY 8-Y -8 Z 8
9 9
9

DATE
EC'S

9

9

0

9 9 0

0

9

15MAR66 15NOY66 120CT61
125632 125655 131812

--------_.-_

l

9 0

Z

9

9

9

9

9 \I

9

9

9

9 0

BTXT.~MY

9

0

9

9

9

o

o

Y99
9

9

8 9
9

9

FAOUHFAHHAACFAOUAA8C
RQ9-0QY9-Y YY 9

9

AAAAAAAAGAI083640005
YYYY-YQYlQ 9 9
09 9

9

9 9

10
PAGE

..

BTXT.ALH •• AB •• AAGA3S
9
Y9l Y9 Y9lY 9
9

9

BTXT.AKJ •• A8 •• AABABB
9
Y9Y Y9 Y9Q08Q
9
9
9 I 99

9

1

PIN 840210
PAGE
13A

BESD •••••• AA •• AAXFB3
9
YQ Y9
99 9

9

"'-

1403 RIPPLE PRINT

PERIDDS CORRESPOND TO BLANK COLUMNS.

1 THROUGH 20

"

IBM MAINTENANCE DIAGNOSTIC PROGRAM

1403 RIPPLE PRINT
OBJECT DECK LIST.

,

F836-4
13

DATE
EC'S

9

9

9

9

9

9

o

9

9 9

l

8&5WAAOUGA3QAAODGA58
, -- 8-9 lQ -9 9lY Y

9

9

-9

-Y 8 9

Q98QY99
o 999

9

99

9

9

o

I

99

9

Z

9

99

o

o

Z

9

o

9

9

9

9

B-S874KB7B7T83640021
8088 9 9 R 8
9

0

9

9

9

15MAR66 15NOV66 120CT6l
125632 125655 131812

KB7H7CKG8Q7D83640023
9 0 Y 9 9 Y

9

9

ZZ

9 9

ZZ

ID
PAGE

FB36-4
13A

--

-------~---------'-----.

##A;;:;;

.n

,i2

PIN 840210
PAGE
14

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840210
PAGE
14J1

IBM MAINTENANCE DIAGNOSTIC PROGRlM

1403 RIPPLE PRINT

1403

~IPPLE

PRINT

8TXT.AOA •• A8 •• AACSCS
9
Y9Q Y9 Y98 8
9
9
9 9 9

8EAACVCV8EAACYCYFJ8Q
8QY98 8 8QY98 8 8Y 9
999 9 9 999 9 9 9

3/CE80FOCG8.CM80COAB
9QQ 8- QQZ QY- Q -9
Z9 9 Z9 Z9 Z

CMGA6FBICOB083640031
QYZY - Q Z9
Z

BTXT.AKD •• AN •• AAOUS.
9
YB- Y9 Y9
99
9
9

HANG.UP.DETECTEO ••••

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

•••••••••••• 83640047

8TXT.AOH •• A8 •• AAC4AA
9
Y9
Y9 Y9Q-9

CMGA6081C4AOCHGA6W81
QYlY - Q -9QYlY -

CMG06K80CMB-SJCOG05S
QYZ Y- QY8088QQZ 8
Z9
9 199 9Z9

AAOJGA5MAAOG83640032
-Q ZZY Y-Y 9
9
9

BTXT.ALV •• AB •• AA.UCB
9
Y88 Y9 Y9
999 9
9

.HAS.16.CHAR.SET.FO.

THRU.FF.UCS.AOOR.XXX

.TO.XXX.CONT83640048

G05MCOC8JGG-5MG05Q.C
1 YlRQ IlR1 YZ
9 OZ 9
9

C•• X.EXP.CC.83640033

BTXT.ALN •• AL •• AAAIN.
9
YBl Y8 Y9
99
99 9

XX.THRU.XX.REST.BlAN

KSA •••••••••••••••••
Y
9

~

9

9

9 1

29

1

19

,

••••••••••• 83640049

8TXT.APA •• A8 •• AAGA5H
9
Y9Y Y9 Y9lY Y
9 9 9
9
9

LHA.AOCOC4JCGA7HF.78
801 Y9Z0Q 80lY 8Z 8
9
9
19
9
9

8TXT.AP8.~AQ •• AA.X.A

CT.AOR.XXXXXX.SIOAGA
Y9Y
9 9

•••••••••••• 83640034

BTXT.ALH •• A8 •• AAAAAA
9
YB- Y9 Y9YYYY
99
9
9 9999

AAAAAAAAAA7G.PRINT ••
YYYYYYYYYY8Q
99999999999Z

SHD •••••••• PRT.PAR ••

POS.WR.RO.RD83640050

.XXXXXX.LINKA •••••••

• ••••••••••• 83640035

BTXT.AL- •• AV •• AA.PLC
YBO Y8 Y9
9
99
99 9

.CHK.CHK.XXX •• XX.XX.

XX •• X••• X••• XEN65UD3
8888888

4 ••••••••••• 83640051

9

Y99

Y9

Y9

9

9

9

8TXT.APG •• AJ •• AA.AOR
9
Y98 Y9 Y9
9

9

Y
9

9

8

.XXXXXX.CSWCCW.CSW.X

XXXXXXX.XXXXXXXX.EXP

ACTEXP.SNS.X83640036

BTXT.AMN •• A8 •• AAAKAE
9
Y8Y Y9 Y9Y 9Q
999 9
9 9 Z

B&AAEABAJEAEAOW6AAAO
9 YlRY9ZYQQlQ BYYY
9 9
19 0 9999

AEYG5AAAAAALAKR.AAA3
YQ99 YYYYYYYYBO YY98
9Z
999999999 99

AKR.AAACALEA83640052
Y80 YY9QY8QY
99 99 Z99Z9

P.SNS.XX.ACT.LOG.XX.

XXXXXX.XXXXXX.XXXXXX

.TST.XXXX.SS83640037

BTXT.ANV •• A8 •• AAAAOA
9
Y89 Y9 Y9YY Y
99
9
9 99 9

ANYHAAAAAAAOAAAAAGOA
Y899YYYYYYY9YYY9Y8Z99 9999999 999 99

AOJGAGWE.9&BCEJAJAGA
Q ZZYQ Z
-QQYZYY8Z
9
Z
ZZ9 999

.AGA-CDB.CEK83640053
Y8Z QQ- QO
99
ZZ Zl

N.FOR.LOOP.ON.SIOOPA

AAAAAAAAAAAAAAAAAOAP
YYYYYYYYYYYYYYYYY9Y9
99999999999999999 9

JAAAAAJOFAAA83640038
OYYY9Y98Q9YY
999 9 Z 99

BTXT.ANN •• AS •• AAOCFC
9
Y88 Y9 Y9YQQQ
99
9
9 9ZZZ

EQDA&AABF&ABGBQE3EJG
Q9RZ-YQZR-YZRQO- QYZ
1
099 09 Z
Z9

-E60A&FG.F&EBf&EQAAO
Q8 Y-9Q Z QOZ-Ql-Y
Z 90 Z
Z OZ

GGAFKKCBIBRE83640054
9Z0QZ RQ-QOI
91 OlOZ

4AAADAAQAOAAA •••••••
8YYYOYY9Q8YYY
9999 99 99999

•••••••••••• 83640039

BTXT.ANE •• A8 •• AA&OOA
9
Y8- Y9 Y9 QYY
99
9
9 Z99

AA&AGBAf-AJFHAAOGGAE
QZ-Y8-8QOlYQ -Y 9ZQQ
9 099 9Z
Z
9Z

BAJF-EAOW4&AJOAFQKCB
-ZYQOZQ 8-YY YQ OQ
o Z 0 9 99 9Z
Z

QBRKACUBQAAF83640055
OQO YQ8QO-QQ
Z 9Z9Z 91

8TXT.AQA •• AD •• AAAAAA
9
Y9Q YB Y9YYYY
9 1 99 9 9999

AAAAAAAA ••••••••••••
YYYYYYYY
99999999

•••••••••••• 83640040

BTXT.ANE •• A8 •• AA-GAE
9
Y8Y Y9 Y90ZQQ
999 9
9
9Z

FF&EBBJF-GOEBAOAAAOA
QZ-Q--8QOZ Q-ZlYQZZY
9 OZO 9Z
ZO 99 9

AFJEHQOA&AABGCOF&E8F
QZYQR9RZ-YQZRQQZ Q Z
9 9Z
099 ZZ Z

&EOKGDECEKCB83640056
-Q QQ8QQ OQ
OZ 9Z9ZZ Z

8TXT.AJO •• AB •• AAAAAA
9
YBl Y9 Y9YYYY
99
9
9 9999

8AQ&AAADLEA.JFGA9HQG
9Y9-YYY08Q- Z-ZY 89Q
9 999 99
9

H&OSD&CMA&BAGA9D.&BA
R- 8R-Q08-QQZY Q -QQ
Z
19
0 Z9

-Q

AAOJGA90KBB283640041
ZZY Q 9Q8
9
0
Z9

BTXT.AOE •• AS •• AARCEE
9
Y89 Y9 Y900QZ
99
9
9 ZZ

&OOAAA&AGBAF-AJFHAAO
QYYQZ-Y8-8QOZYQ -Y
Z99Z 099 9Z
Z

GGAFWAJF-EAOW4&A.OAF
9ZQQ9ZYQOZQ 8-Y YQ
9Z
Z 0 9 9 9Z

QKCBQBRKACUB83640057
OQOQO YQ8Q
Z Z 9Z9Z

i 8TXT.AJ4 •• AB •• AA1KK8

9

8E8GK8BDBKAAOGGA9MK8
QZQR 9Q8Q8-Y 9ZQ 0 9
Z Z
Z Z
9

B28GK8BE7KKB80BC8-0T
Q8QR 9QZ
9Q8Q88098
Z9Z . 1
Z Z 9 9

BUBBAJGYEAOW83640042
QB8QZYQ9ZQ
Z999 1 0

BTXT.A05 •• AB •• AAQAAF
9
Y8S Y9 Y90-QQ
999 9
9
9Z

-GAFBF&FWBJF-GOFWE3E
OZQQRZ~Q9-8QOZ Q9- Q
9Z OZ 9Z
Z
Z

JGAFDB3EJGOEOEABRGAF
YZYQ-- QYZ Q8-YQOZYQ
9 Z
Z9 Z 9Z
Z

BE.BRGAFBE3E83640058
Y- QOIYQY- Q
Z
Z
Z

8TXT.AJO •• AB •• AAU&AE
9
Y8- Y9 Y98-Y9
990 9
9 9 9

lAGAAAOUGA90KA8KOCB.
YQQ-Y ZQ Q YQ9 99ZZ
9 9 9Z

CEKPCFCEKCBRCEG4KAOC
QQ YQQQQ OQOQQ9 Y 9
lZ 9llll Z lZ
9

BK070UFAOVHLB3640043
Q9-8 -9 -Y

BTXT.AOE •• AB •• AAJG-E
9
Y8R Y9 Y9YZ Q
.
990 9
9 9 Z

FEABRGAFBE&BRG-EFKAB
Y-YQOZYQY--QOZ QY YQ

RBKGOEFB-OLFDBO.REST
OQYZ QY8098QQ8
Z
Z 9 9Z 9

ORE.UCS.BUFR83640059

8TXT.AJM •• A8 •• AACD89
Y8Y Y9 Y9QQ80
999 9
9 1 9

MKBF8-JJ8LE&2H8AOUDF
Z8QY80Y8Q9Z 8-Y -Q
9Z 9 9Z
9
Z

OVBAOCG090GAGGA.SEE.
-9 9Z Q9YQQY
o 9ZZ9

DESCRIPTION-B3640044

BTXT.AON •• A8 •• AA.WIT
9
Y8Y Y9 Y9

H.FB37.IN.FOLOING.MO

OEALAKR.AAAAAKRAAADA
YYY80 YY98Y80YYYOY
9999 99 999 999 9

AOQHAAAAAAA083640060
Y8 9YYYYYYY9
99 9999999

8TXT.AKU •• AB •• AACOMM
9
Y89 Y9 Y9

ENTS.SEC.SS.24.IS.OF

F.SET.IT.OFF.IF.NOT.

OUALINGOfFNOB3640045

BTXT.AOV •• A8 •• AAAAAl
9
YB
Y9 Y9YYY9
99
9
9 999

2C4EF781234M27S/KTMV
9R9RR998888B888 Z9Z9
6 00
9 9
9

WPQ/STU4WXAABLONOGHJ
9ZZ8888888QRR9R99RR8
99 9 99
9

KLMNLP8ABCDE83640061
88888889919Z
999

NG.UP.8USY~.S~S.RESE

T.PSW.RESTART.REAOY.

OEVICE.PREVI83640046

BTXT.APN •• A8 •• AAFGHA
9
Y88 Y9 Y9Z998
999 9
9

BCOOCG&CAKRAAAOAAAAH
888888-8Y80YYYOYYYY9
9 9 0999 999 9999

AAAAAAADAAA&AGABAGGA
YYYYYYY9YYY-Y9Y9YQQ9999999 9999 9 9Zl

Q ZZOQ Z
9
9Z

8TXT.APP •• A8 •• AA.CAW
9
Y98 Y9 Y9
9

9

9

8TXT.APG •• A8 •• AAX.EX
9
Y9- Y9 Y9
9

9

9

8TXT.APG •• A8 •• AA.0.O
9
Y9Y Y9 Y9
9 9

9

9

8TXT.AQG •• AJ •• AAAFAQ
9
Y99 Y9 Y9Y9Y9
9

9

9

9 9 9

YBB

Y9

Y9

99

9

9

99

9

I

Z

99

9

8TXT.AKM •• AB •• AAT.HU
9
Y88 Y9 Y9
99
9
9

DATE
EC'S

Y
9

15MAR66 15NOV66 120CT67
125632 125655 131812

10
PAGE

FB36-4
14

DATE
EC'S

9

1

Z

1

Z

9Z

9

15MAR66 15NOV66 120CT67
125632 125655 131812

AO.JGAGWE. 9 &483640062
Z

ID
PJlGE

f836-4
14A

l._---'___________

,0
\~~--,,'

() D
:,

'~"

' !':)

i~)

tf)\
'~J

1'")\
,,]

'~)

Q)

,if)
' '" .

0"'-

I~.':.···.·:'~'

u"

"'u'

"')
.....

0 0

'"')

'(

:0

()

O' 0 0

00 00

o

PIN 840210
PAGE
15

IBM MAINTENANCE DIAGNOSTIC PROGRAM
1403 RIPPLE PRINT
BTXT.APE •• A8 •• AAJAAA
9
Y8R Y9 Y9Y9YZ
99
9
9 9 9

.ADAAA.B.GYBTBOFJGUF
Y9ZQY Z 0 Z9QOZYQ8Z
9 Z9
Z
Z 9Z

AGHKCBZBRK1CEFYEDGYG
QQZ ZQ 00 8000 -90 Z
Zl
Z Z 9ZZ1
Z

AGHEAGYGAGAB83640063
VO--90 ZYOOZ
I
Z

BTXT.APE •• A8 •• AAKD4B
9
Y8Y Y9 Y9BQB99
9
9 9Z9

KDDBSDHKCD5CEAAA7BAF
808-808 ZOBOOZOY8-80
9Z9 9Z9 Z9ZZ Z99 9Z

-AJF-EAOW4&AtOAFOKCB
OZYOOZO 8-Y YO 00
Z 0 9 9 9Z
Z

OBRKACUBOKCCB3640064
000 YOBOO 00
Z 9Z9Z
Z

BTXT.APE •• AU •• AAOCEK
9
Y8
Y9 Y900Q
99
9
9 Zll

ADACDAAF-GAGSFAGKBJF
YOYOO-OQOZOO ZOOY-BO
9Z ZZ 9Z 9Z ZZ 9Z

-GOGKF.GMBDA ••••••••
Ol OYI 088 V

•••••••••••• 83640065

BRlD •••••• A4 •••• AAAA
9
Y9
Y9Y9

AAANEAA4AAP9AAOAAAOA
8Y098Y088Y9 8Y9Y8Y98
999 999 99 99 999 9

EAOAAAJAAANJAANJAANI
8Y908Y888Y898V888Y89
99 9999 999 9999999

9

9 9

BRLp •••••• AA •••• AAAA
9
VO
Y9V9
99
9 9

Z

Z 9 9

•••••••••••• 83640061

AAOJEAOOHAP/ ••••••••
8V8 8V8 9Y88
999 999 999

BEND ••••••••••••••••

EANYHAOI •••• 83640066
8Y899Y8
999 99

•......••.•...•....

~

•••••••••••• 83640068

9

BLOT ••••••••••••••••

•••••••••••• 836~0069

9

-----.----------'----------------------lAST PAGE-------------------------------------------------

DATE
EC'S

15MAR66 15NOV66 120CT67
125632 125655 131812

10
PAGE

F836-4
15

.0#

~ooooaooooooooooooooooooooooooooou~

" i ' _..."""..'_ _.....___

~

__

~',~,

__,_" ____

0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 00 0 0 0 0 0 ' 0 0 ' 0 0 : 0

o
\

J

PIN

IBM MAINTENANCE DIAGNOSTIC PROGRAM

840540

PAGE

1

F837

1403 8UfFER RESTORE TEST

f837

3.2

1403 BUFFER RESTORE TEST
DESCR IPTION

1.

1
1

1
2
3
4

PURPOSE
THIS PROGRAM IS USEO TO RESTORE UNIVERSAL CHARACTER BUFFERS ON
1403 PRINTERS WITH THE UCS FEATURE, TO A DESIRED CONFIGURATION.
THE PROGRAM LOGICALLY FOLLOWS THE DIAGNOSTIC PROGRAMS WHICH
ALTER THE UCB DURING THE 1403 TESTS.

1.1

2.

PURPOSE...
• • • • •
REQUIREMENTS
• • • • •
OPERATING PROCEDURE. • • • • •
PRINTOUTS
COMMENTS
• • • • •
APPENDIX
• • • • •

------------------------------------------------~----------------------

I SENSE I
I SW. I

I

*

••
•

OPTIONAL FEATURE DIGIT 1*•
*

OPTIONAL FEATURE DIGIT 2

I

1

1

BYTE
I SECTION I AND
I
I 8IT

I oN--- PR INT PROGRAM TITLE.
I OFF-- BYPASS PROGRAM TITLE.

I
I

1 X004
1 6

1

I OFF-- EXECUTE TH I S PROGRAM.

I

I

5

I
I

I
\
HAL T •
I OFF- BYPASS ALTER PRINTOUT AND HALTING

I

I

6

I

I

LOADING UCB.
I OFF-- BYPASS LOGOUT

I
I

1
I

7

I
I

-------------------------------------------------------------------------•___________
UNIT CODE

FUNCTION

I ------I -----------------------------------.-----..,-1-------.,.-I ,..----

THE UNIT DEFINITION TABLE-UDT-ENTRY MUST BE PUNCHED AS fOLLOWS.

6

F837 ,

1-------1------------------..,------...;--------...;------...;1--.,..,.---·-1---I 29
I ON--- BYPASS THIS PROGRAM.
1 F837
I X001

•*
*

1-----1--------------------------------------...;--------1---...;-----1---I 30
I ON--- PRINT CTRL INFORMATION FOR ALTER AND
I
F837
I X007

-------------------------------------------------------------------------.
• UNIT
.ZZ.BIT O. BIT 1* BIT 2* BIT 3. BIT 4. BIT 5* BIT 6. BIT 1 *

*
• *HEX 8. HEX 4. HEX 2* HEX 1. HEX 8* HEX 4. HEX 2. HEX 1 *
.-------------*--*-----.------.------.------.------*------.------* ------*
* 1403 PRINTER*83*ASCII*SEL.
*UNIV. * HI- • 120 *
* 2821 *
OR
......
.TAPE.
*CHAR. *SPEED .PRINT •
.2 CHNL *
•
... 1404 PRINTER*.
*LISTER*
.BUFF •• PTR. *POS..
.SWITCH •
* CONT INUoUS. *
...
•
*
•
*
*
•
•
• *
•
*
*
...
*
•
•
•
• FORMS

1
I
1-------1-----------.--------------------------I--------1---I
31
I ON--- LOGOUT CTRL AND DATA CARDS WHILE
I
F837
I X001
I

--------------------------------------------------------------------------

2.2

OPERAT ION

THE SENSE SWITCHES SHOWN BELOW ARE IN THE SENSE SWITCH BYTES OF THE
SECTION PREFACE. THE CHARACTER X REPRESENTS THE RElOCATION
FACTOR CONTAINEO IN REGISTER 15 DURING RUN TIME. ,THE SWITCH BITS ARE
ZERO WHEN OFF, AND ONE WHEN ON.

PROGRAM REQUIREMENTS
A DIAGNOSTIC MONITOR MUST BE USED TO RUN THIS PROGRAM.
THE PROGRAM NEEDS DEVICE DEFINITION AND DATA DEFINITION PRIOR
TO EXECUTION. -SEE COMMENTS AREA FOR DEFINITION FORMATSTHE 1403 PRINTERS USED IN THIS PROGRAM MUST HAVE THEIR
ADDRESSES DEFINED IN THE OM UNIT DEFINITION TABLE -UDT-.

1

1403 BUFFER RESTORE TEST

SECTION SENSE SW ITCHES

REQUIREMENTS

2.1

PIN 840540
PAGE
1A

****.** •• *.* ••••• * ••••••• * WARNING * ••••••••••••••••••••••••••••••
THIS PROGRAM IS RELEASED WITH CTRL CARDS AND DATA CARDS -BOTH
DEFINED LATER IN THIS DESCRIPTION- WHICH DEfINE THE STANDARD 1403
ADDRESSES OF OOOE, OOOF, AND 0010, AND THE STANDARD AN CHAIN
AND TRAIN CONfiGURATIONS USED AS DATA TO LOAD THE UNIVERSAL CHARACTER BUFFERS. IF A 1403 WITH THE UCS OPTION EXISTS ON A SYSTEM
AND HAS ANY OF THE ABOVE ADDRESSES, AN ATTEMPT WILL BE MADE TO LOAD
THE BUfFER WITH THIS AN DATA. If THE DEVICE BEING RESTORED
DOES NOT HAVE THE STANDARD CONFIGURATED CHAIN OR TRAIN, THE PROPER
DATA FOR THE UCB LOAD INSTRUCTION MUST BE INSERTED INTO THIS DIAGNOSTIC PROGRAM. If THE DIAGNOSTICS ARE ON TAPE OR OISK, THE OATA
MUST BE PUT INTO THE PROGRAM WITH THE APPROPRIATE UTILITY PROGRAM.
HN, PN, QN, AND RN CONfIGURATIONS ARE ALSO RELEASED WITH THIS
PROGRAM TO ENABLE THE OPERATOR TO EASILY USE ANY Of THESE BY
A CTRL CARD CHANGE.

PAGE

TABLE Of CONTENTS
1.
2.
3.
4.
5.

IBM MAINTENANCE DIAGNOSTIC PROGRAM

3.3

EQUIPMENT REQUIREMENTS

PROGRAM HALTS
A HALT WILL OCCUR IF SECTION SENSE SWITCH 30 IS ON. THIS ALLOWS THE
OPERATOR TO SCAN THE CONTROL INFORMATION BEING USED AND GIVES THE
STORAGE ADDRESS OF THE DATA IN THE EVENT THE OPERATOR WANTS TO
ALTER THIS INFORMATION. seE COMflENTS AREA FOR CONTROL DEFINITION.

AN INPUT DEVICE FOR PROGRAM LOADING.
AN OUTPUT DEVICE FOR MESSAGE OUTPUT ..
-OTHER THAN DEV ICES BE ING RESTORED 8Y THIS PROGRAM4K OF STORAGE FOR THIS PROGRAM.
CPU, CHANNEL, AND OEVICE IN WORKING ORDER.
A MINIMUM OF ONE 1403 UCS PRINTER
A MAXIMUM OF TEN 1403 UCS PRINTERS

3.4

PROGRAM TERMINATION
THE PROGRAM IS TERMINATED IN 2 'WAYS
1. AT NORMAL PROGRAM COMPLETION.

3.

2. WHEN AN ABNORMAL TERMINAT'E IS INITIATED THROUGH THE EXTERNAL

OPERATING' PROCEDURE
3.1

INT ERRUPT KEY.

LOADING
STANDARD LOADING PROCEDURE, AS IS GIVEN IN THE USERS GUIDE,
MUST 8E USED TO LOAD THE PROGRAM.

DATE
EC

15NDV66
125655

10

PAGE

F837-.
1

N

DATE
EC

15NOV66

ID

Fe31-*
,PAGE
1A

125655

If

_##4..44'*'4\:_#_0

,*-44A,_

J..

PIN

IBM MAINTENANCE DIAGNOSTIC PROGRAM

2

F837

1403 BUFFER RESTORE TEST'

FB37

4.

IBM MAINTENANCE DIAGNOSTIC PROGRAM

840540

PAGE

1403 BUFFER RESTORE TEST

ONLY THE ABOVE MESSAGE IF THE CTRL CARDS ARE MISSING. IF A CTRL
CARD IS MIXED, THE DATA CARDS WILL BE LOGGED OUT UNTIL THE MISPLACED
CTRL CARD IS DETECTED.

PRINTOUTS
THE FOLLOWING IS AN EXPLANATION OF THE DATA CARD REFERENCES MADE
IN THE OUTPUT MESSAGES. ALL FORMATS ARE DEFINED IN THE COMMENTS
SECTION OF THIS DESCRIPTION.

4.1

PIN 840540
PAGE
2A

-MISSING CTRL AND DATA CDSTHIS MESSAGE IS GIVEN WHEN AL'L CONTROL AND DATA CARDS ARE MISSING BUT THE OAT CARDS ARE IN THE DECK. SEE THE COMMENTS AREA FOR
PROPER SETUP OF CARDS.

CARDS MENTIONED AS CTRL CARDS ARE CONTROL CARDS.
CARDS MENTIONED AS CUSTOMER CARDS ARE IN THE CUSTOMER UNIVERSAL
CHARACTER UTILITY FORMAT.
CARDS MENTIONED AS HEX CARDS AR~ IN THE HEX CARD FORMAT.
CARDS MENTIONED AS DATA CARDS CAN MEAN EITHER CUSTOMER OR HEX CARD
FORMATS.

-ALL DATA CDS MISSING-

INSTRUCTIONS TO OPERATOR

THIS MESSAGE IS GIVEN WHEN THE CTRL CARDS ARE IN THE DECK BUT THE
DATA CARDS ARE ALL MISSING.

-DEVICE XXXX ASSIGNED BY OM DOES NOT HAVE DATA FOR UCB RESTORE-IF OESIRED TO RESTORE ANY OEVICES THAT DO NOT HAVE THE DATA-CONSULT THE DESCRIPTION FOR THE PROCEDURE-

-DATA CARDS MISSINGTHIS MESSAGE IS GIVEN WHEN SOME OF THE DATA CARDS OF
A SET ARE MISSING.

THIS MESSAGE IS GIVEN TO BRING TO THE OPERATORS ATTENTION THAT
THIS PROGRAM IS POSSIBLY NOT BEING UTILIZED FOR HIS SYSTEM AND
HE SHOULD TAKE STEPS ACCORDINGLY OR SIMPLY IGNORE THIS MESSAGE
IF THE DEVICE IS NOT DESIRED TO BE RESTORED.

-ANY RESTORED BUFFERS MAY BE IN ERRORTHIS'MESSAGE IS GIVEN IN ADDITION TO SOME OF THE OTHER MESSAGES
TO INDICATE THAT BECAUSE A DATA CARD HAS BEEN FOUND MISSING, THE
POSSIBILITY EXISTS THAT IT MAY BE ONE FROM A DIFFERENT SET DUE TO
THE DATA CARDS OF DIFFERENT SETS FOLLOWING EACH OTHER. TO
BE SURE OF PROPER LOADING, THE CARDS MUST BE VISUALLY CHECKED TO
MAKE SURE OF THE PROPER SEQUENCE FOR THE BUFFER LOAD.

-NO BUFFERS RESTOREDTHIS MESSAGE IS GIVEN WHEN NO DEVICES WERE FOUND WITH THE UCB OPTION.
-MAKE DEVICE REAOYTHIS MESSAGE IS GIVEN WHEN A TEST 1-0 TO A PRINTER FINDS IT NOT
READY. THE DEVICE ADDRESS IS GIVEN IN THE SOD HEADING THAT PRECEDES THIS MESSAGE.
4.2

-EITHER CUSTOMER OR HEX CDS MIXED DR ONE TYPE IS INADEQUATE IN NUMBERTHIS MESSAGE IS GIVEN WHEN THE T~O DATA CARD TYPES -DESCRIBED IN THE
COMMENTS SECTION- HAVE BEEN DETECTED TO BE MIXED OR ONE TYPE HAS TOO
FEW CARDS.
A LOG OUT VIA SENSE SWITCH 31 IS RECOMMENDED HERE TO OBSERVE
SEQUENCE OF DATA CARDS. THE DATA CARDS FOLLOWING OETECTION OF
THE ERROR WILL NOT BE LOGGED OUT. THE ERRONEOUS OATA MAY NOT BE
LOCATED 'AT THE LAST LINE OF DATA. THEREFORE, THE SEQUENCE OF ALL
THE DATA SHOULD BE CHECKED THOROUGHLY.

STATUS MESSAGES
-UCB RESTORED WITH NO BLOCK DATA CHK AND NO FOLDING USING CHAIN NNTHIS MESSAGE IS GIVEN WHEN A UCB IS SUCCESSFULLY RESTORED. THE WORDS
NO IN THE MESSAGE ARE INSERTED OR DELETED DEPENDING ON THE CTRL CARD
REQUEST FOR THESE OPTIONS. THE CHAIN NUMBER -NN- IS THE DATA CARD
SET USED ON THE DEVICE. THE ADDRESS OF THE DEVICE APPEARS IN THE
SDO HEADER PRECEDING THIS MESSAGE.

-TID LOOP RECEIVES SOLID CHANNEL BUSY FROM THIS DEVICETHIS MESSAGE IS GIVEN WHEN THE TEST 1-0 BEFORE THE LOAD BUFFER START
1-0 RECEIVES A SOLID CHANNEL BUSY CONDITION.

-CTRL DATA AT ADDR XXXXXX FOR ALTER-DEVICE XXXX UCB NOT RESTOREO OUE TO INSUFFICIENT DATA CDS-OR WRONG CTRL DEFINITION-

THIS MESSAGE IS GIVEN FOLLOWING THE ASSOCIATED CTRL CARD LOGOUT
WHEN SECTION SENSE SWITCH 30 IS ON TO INDICATE WHERE THE CONTROL
INFORMATION IS STORED. THE ADDRESS IN THE MESSAGE POINTS TO THE
PP INFORMATION AS GIVEN IN THE COMMENTS AREA OF THIS DESCRIPTION,
THE CHAIN INFORMATION IS LOCATED AT THE NEXT HIGHER STORAGE ADDRESS.
THE DEVICE AODRESS ASSOCIATED WITH THIS DATA I,S LOCATED IN THE
2 BYTES BEFORE THE ADDRESS GIVEN IN THE MESSAGE.
4.3

THIS MESSAGE IS GIVEN AT THE END OF THE PROGRAM WHEN Ii. CHECK OF THE
CONTROL ~ABLE SHOWS NOT ALL BUFFERS HAVE BEEN RESTORED. MOST PROBABLE
CAUSE IS A DEVICE HAS BEEN DEFINEO TO BE LOADED WITH A DATA CARD
SET THAT DOES NOT EXIST. FOR EXAMPLE, DEVICE ODE DEFINED FOR CHAIN 04
AND ONLY DATA CARDS DEFINING 3 CHAINS EXIST.

ERROR MESSAGES

-DEVICE NOT OPERATIONAL-

-CTRL CDS MISSING OR MIXED WITH DATA CDS-

THIS MESSAGE IS GIVEN IF CONDITION 'CODE 3 IS RETURNED AFTER A TEST 1-0
HAS BEEN ISSUED. USUALLY MEANS OM HAS BEEN DEFINED WITH A NON-EXISTANT
DEVICE ADDRESS AND A CONTROL CARD MADE OUT fOR IT ALSO.

THIS MESSAGE IS OUTPUT WHEN CONTROL OR DATA CARD.S HAVE BEEN MISPOSITIONED IN THE DECK OR WHEN THE CONTROL CARDS ARE MISSING.
A LOG OUT OF CTRLAND DATA CARDS VIA SENSE SWITCH 31 WILL INDICATE
DATE
EC

10

15NOV66
125655

PAGE

F831-*;
2

DATE
EC

15NOV66
125655

ID

PAGE

F837-*
2A

i
(~
,'I
)'

i

~1\'

'iit __

if,"",
.;('"'" ',J'

."- ,_/it

4'"""
'J'
ill:

[~
~-- j

10,
~J'

::):
':.:.....-.,

,0
\~y

~)i,t"
I">ll

'0
I

\~

','

\

'n

'0

Af)
'co
.:

I!

,

() () 0 0

"

'0'

:00000

o

I

I

0 () 0

b

t,)"
'\.
'

0000000000000000000000000000000000
.
"

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840540
PAGE
3

1403 BUFFER RESTORE TEST

f831

IBM MAINTENANCE DIAGNOSTIC PROGRAM
FB31

-ERROR ON UCB LOAD SIO-

PIN 840540
PAGE
3A

1403 BUFFER RESTORE TEST

THE PROGRAM THEN READS ONE FULL SET OF DATA CARDS HEREBY BEING CALLED
CHAIN 01 BY THE PROGRAM BECAUSE 1T IS THE FIRST SET READ, OTHER SETS
READ THEREAFTER BEING CALLED CHAIN 02, 03, ETC. UP TO CHAIN FF IF
THAT MANY SETS OF CARDS EXIST. THESE CHAIN SETS ARE NUMBERED IN HEX
BY THE PROGRAM AND SHOULD BE PUNCHED IN HEX BY THE OPERATOR ON THE
CTRL CDS. -CTRL CARDS DEFINED IN LATER PARAGRAPHS OF THIS AREA-

THIS MESSAGE IS GIVEN WHEN THE LOAD UCB START 1-0 DOES NOT GET
AN AVAILABLE CONDITION CODE RETURNED. THE CSW INDICATES THE STATUS
FOR THE OPERATION. THE PROGRAM GOES ON TO THE NEXT DEVICE IF ANY.
-SNS SIO AFTER UCB LOAD ATTEMPT- NOT ACCEPTED-

AFTER CHAIN 01 IS READ INTO STORAGE, A CHECK OF THE DEVICE TABLE
IS MADE TO DETERMINE IF ANY DEVICES ARE TO USE THIS DATA. ALL DEVICES
DEFINED TO USE THE DATA WILL HAVE THEIR BUFFERS RESTORED AT THIS TIME.
IF ANY MORE CHAIN DEFINITION CARDS ARE IN THE DECK, THE PROGRAM GOES
THROUGH THE SAME PROCEDURE AS JUST DESCRIBED. If NO MORE EXIST," THE
PROGRAM READS AN LOT CARD WHICH SIGNALS FOR AN ENDING PROCEDURE AND
INSTITUTES SOME FINAL CHECKING IN THE PROGRAM BEFORE TERMINATION.

THIS MESSAGE IS GIVEN WHEN SOMETHING GOES WRONG WITH THE UCB LOAD
EXECUTION AND A SENSE START 1-0 IS TRIED TO FINO OUT WHAT SENSE
LATCHES ARE ON IN THE DEVICE. THE SENSE START 1-0 ALSO IS REJECTED
AND RESULTS IN THIS MESSAGE. THE DEVICE IS OBVIOUSLY FAULTY AND THE
1403 DIAGNOSTICS SHOULD HAVE INDICATED TROUBLE WHEN WERE EXECUTED.

ANY NUMBER OF SETS OF CHAIN DEFINITION CARDS MAY BE PUT INTO THE
PROGRAM, WHETHER THEY ARE USED TO RESTORE BUffERS SOLELY DEPENDS
ON THEIR BEING DEfINED IN THE CTRL CARDS.

-SNS SID AFTER UCB LOAD ATTEMPT 010 NOT RECEIVE AVAILABLE FROM DEVICETHIS MESSAGE IS GIVEN IF THE TIO AFTER THE SENSE START 1-0 NEVER
RECEIVES AVAILABLE. A TIME OUT FROM THIS CONDITION AllOWS THIS MESSAGE.

CONTROL AND DATA CARD fORMATS.
4.4

5.

MESSAGE ABBREVIATIONS
ABBREVIATIONS

FULL MEANING

ADDR
CDS
CSW
CTRL
OM
ROY
RTN
SIO
TIO
UCB

ADDRESS
CARDS
CHANNEL STATUS WORD
CONTROL
DIAGNOSTIC MONITOR
READY
ROUTINE
START 1-0
TEST 1-0
UNIVERSAL CHARACTER BUFFER

THREE CTRL CARDS WITH STANDARD ADDRESSES ARE RELEASED WITH THIS
PROGRAM AND ARE LISTED IN THE APPENOIX OF THIS DESCRIPTION.
CONTROL CARO LAYOUT
CARD
COLS

0
1
1
12345618901234
CTRL DODD PPCC

WHERE- CTRL IS THE CARD IDENTIFICATION.
0000 IS TWO HEX BYTES INDICATING THE DEVICE ADDRESS.

E.G. DOOE 1S MULTIPLEX CHANNEL DEVICE E.
OlOE IS SELECTOR CHANNEL 1 DEVICE E.

COMMENTS

PP

IS A HEX BYTE DENOTING OPTIONS TO BE USED WHEN
LOADING THE UCB AND IS DEFINED AS FOLLOWS00 MEANS LOAD UCB WITHOUT SETTING THE BLOCK DATA CHECK
LATCH OR ALLOWING FOLDING.
80 MEANS SET BLOCK OATA CHECK WHEN LOADING UCB.
40 MEANS ALLOW fOLDING WHEN LOADING UCB.
CO MEANS SET BLOCK OATA CHECK AND ALLOW fOLDING WHEN
LOADING THE UCB.

CC

IS A HEX BYTE OENOTING WHICH SET Of DATA CARDS THAT
FOLLOW THE CTRL CARDS SHOULD BE USED TO LOAD THE BUFfER
ON THE OEVICE DEfINED ON THIS CARD. THE BYTE IS A HEX
NUMBER "THAT CAN RANGE fROM 01 TO ff, WHERE AN 01 WOULD
MEAN THE FIRST SET OF DATA CARDS READ, 02 THE SECOND,
••••• OA THE TENTH, ETC.

THIS PROGRAM WAS WRITTEN TO ENABLE RESTORATION OF THE UNIVERSAL
CHARACTER BUFFERS OF ALL 1403 UCB PRINTERS TESTED WITH THE 1403
AND 2821 DIAGNOSTICS. IT HAS THE CAPA8ILITY TO HANDLE TEN PRINTERS
AT ONE TIME IF NEEDED.
*** NOTE *** CAUTION SHOULD BE OBSERVED TO KEEP FROM REPEATING ANY
CHARACTER WITHIN 16 POSITIONS IN THE BUFFER TO PREVENT
ANY DAMAGE TO THE PRINT CHAIN OR PRINT TRAIN.
THE PROGRAM OPERATES AS fOLLOWSAFTER BEING LOADED IN, THE PROGRAM REAOS CTRL AND DATA CARDS WHICH
HAVE BEEN PREPARED FOR THE SYSTEM BY THE OPERATOR AND PLACED IN THE
DECK. -THE fORMAT AND SEQUENCE OF THIS INFORMATION IS GIVEN IN OTHER
PARAGRAPHS OF THIS COMMENT AREA-

IF SEVERAL CTRL CAROS ARE USED fOR THE SAME DEVICE ONLY THE LAST
CARD FOR THAT DEVICE WILL BE USED.

THE PROGRAM EXPECTS ALL THE CTRL CAROS TO BE READ IN BEFORE
ANY OF THE DATA CARDS DEFINING THE BUFfER IN ORDER TO ESTABLISH
THE TABLE Of DEVICES TO 8E USED IN THIS PROGRAM.
THE PROGRAM CHECKS TO SEE If THE DEVICES INDICATED IN THE CTRLINFORMATION ARE ASSIGNED BY OM. If THEY ARE NOT, THIS CTRl INfORMATION IS
THROWN AWAY.

DATA CARO LAYOUTS
FIVE SETS OF CHAIN CONFIGURATIONS ARE RELEASED WITH THIS P*OGRAM
AND ARE LISTED IN THE UNIVERSAL CHARACTER SET UTILITY PROGRAM
SRL. A CARO IMAGE OF THE OATA RELEASED WITH THIS PROGRAM IS GIVEN
FOLLOWING THE PROGRAM LISTING. THE CHAIN CONfIGURATIONS ARE AN. HN,
PN, QN, AND RN.

THE DEfiNITION OF SETS Of DATA CARDS AS DISCUSSED IN THE NEXT
fEW ITEMS IS EITHER 4 CUSTOMER UCS UTILITY CARDS OR 15 HEX CARDS.
EACH OF THESE CARD TYPES ARE DEfINED IN LATER' PARAGRAPHS Of THIS
COMMENT SECTION.
DATE
EC

15NOV66
125655

COLUMNS 15-80 NOT USED.

THIS PROGRAM USES 2 TYPES Of DATA CARDS10

PAGE

f831-*'
3

DATE
EC

15NOV66
125655

10

PAGE

f837-*
3A

1

J .4iAMAi __ tU; ($...,. 4::;;;:44A44# -:::-

IBM 'MAINTENANCE DIAGNOSTIC PROGRAM'
F831

1"03 BUFFER RESTORE TEST'

1.
2.

f837

1"03 BUFFER RESTORE TEST
CHAIN'Ol DATA. IF ANY MORE SETS FOLLOW. THE NEXT SET IS CHAIN 02.
ETC. ,

CUSTOMER CARD IMAGE CARDS FROM THE UNIVERSAL,CHARACTER SET UTILITY
PROGRAM.
HEX CARD FORMAT TYPE DATA CARDS.
APPENDIX

IF CUSTOMER CARO IMAGE CARDS ARE USED. ONLY" ARE NEEDED TO DEFINE
THE 2"0 POSITION BUFFER. IF THE HEX CARD FORMAT TYPE IS USED.
THEN 15 CARDS ARE NEEDED TO DEFINE ONE FULL 8UFFER CONFIGURATION.

THE FOLLOWING IS A SEQUENCE LIST OF THE DECK STRUCTURE FOR PROPER
LOADING AND OPERATION OF THE PROGRAM.

THE DATA CARDS ARE FORMATTED AS FOLLOWS-

1. PROGRAM F837 OBJECT DECK
2. OAT CARD
3. CTRL CARDSTHE AMOUNT OF ~TRL CARDS IS VARIABLE AND DEPENDENT ON HOW
MANY THE OPERATOR WISHES TO PUT IN.
It. DATA CARDS DEFINING BUFFER CONFIGURAtION
tHE AMOUNT OF SETS OF ,THESE CARDS CAN 8E ANYWHERE IN THE LIMITS
OF 1 TO 255 SETS. A SET BEING EITHER" CUSTOMER UCS UTILITY
CARDS OR 15 HEX LOADER CARDS. A PROGRAM CAN USE BOTH SET
TYPES AS LONG AS ONE TYPE IS NOT FOUND WITHIN ANOTHER. THE
FIRST SET READ IS CONSIDERED AS CHAIN SET 01. AND ALL SETS
THEREAFTER SHALL BE PUT IN HEXADECIMAL NUMERIC SEQUENCE BY
THE PROGRAM. PARTIAL OR iNCOMPLETE SETS PLACED IN THE DECK
WILL CAUSE AN ERROR to BE DETECTED BY THE PROGRAM.
5. LOT CARD

CUSTOMER UCS UTILITY CARD FORMATCARD
COLS

0
1
2
B
123"567B90123"567B901--0
II CI XXXX SS
DODD

WHERE-

II

ARE 2 SLASHES.

CI

IS AN ABBREVIATION FOR CARD IMAGE.

XXXX IS THE CHAIN OR TRAIN IDENTIFICUION- E.G. AN. HN. PCHN.
ETC. -THIS AREA CAN CONSIST OF BLANKS OR ANY DESIRED
COMBINATION OF " CHARACTERSSS
IS THE SEQUENCE NUMBER OF 'THE CARD. RANGING FROM S1 TO S4.
DODD IS 60 COLUMNS OF THE DATA TO BE LOADED INTO THE UCB.
THIS DATA IS PUNCHED IN THE EBCDIC CODE FOR EACH DESIRED
CHARACTER. THE DATA WILL BE PLACED IN THE BUFFER IN THE
ORDER IT, IS FOUND ON THE CARDS.
I.E. THE 60 CHARACTERS ON THE FIRST CARD GO INTO THE
FIRST 60 BUFFER POSITIONS. THE 60 CHARACTERS ON THE
SECOND CARD INTO THE NEXT 60 BUFFER POSITIONS. ETC.

F5F6
E950
C1C2
F5F6
E950
C1C2
F5F6
E950

F7F8
6B4D
C3C4
F7F8
6B"0
C3C"
F7F8
6B"D

F9FO
0102
C5C6
F9FO
0102
C5C6
F9FO
0102

7E7D
0304
C7C8
7E7D
030"
C7C8
7E7D
0304

61E2
0506
C94E
61E2
0506
C94E
61E2
0506

~~~~ ~~~: ~~~g.~~~~ ~~:i

'E950
C1C2
F5F6
E950
CIC2

6B"0
C3C"
F7F8
68"0
C3C"

0102
C5(:6
F9FO
0102
C5C6

0304
C7C8
7E1D
0304
C7C8

0506
C94E
61E2
0506
C9"E

,I'

~

.

(

.:.

ADOITIONS TO THE PROGRAM SHOULD 8E MADE AS FOLLOWS-

0
1
2
3
""
67B901234567B90123456789012345678901234
F3F4
E7EB
5B5C
F3F4
f7E8
5B5C
F3F1t
E7EB
5B5C
F3F"
E7E8
585C
F3F4
E7EB
5B5C

.

••

1. PROGRAM F837 OBJECT DECK
2. OAT CARD
3. CTRL OOOE 0001
4. CTRL OOOF 0001
5.'CTRL 0010 0001
6. 15 HEX DATA CARDS IN THE AN CONFIGURATION •
. 7. 15 HEX DATA CARDS IN THE HN CONFIGURATION.
8. 15 HEX 'DATA CARDS IN THE PN CONFIGURATION.
9. 15 HEX DATA CARDS IN THE QN CONFIGURATION.
10. 15 HEX DATA CARDS IN THE RN CONFIGURATION.
l l . LOT CARD.

THE FOLLOWING IS AN EXAMPLE OF THE HN CHAIN FORMAT RELEASED WITH
THIS PROGRAMTHE DATA IS PUNCHED IN THE CARDS IN THE HEXADECIMAL CODE DESIRED
TO BE IN THE UCB. E.G. 2 CARD COLUMNS EQUAL ONE BUFFER BYTE.

FIF2
E5E6
0960
F1F2
E5E6
0960
FIF2
E5E6
0960
FIF2
E5E6
0960
FIF2
E5E6
0960

'G

j'~ ~I'

THE FOLLOWING IS A LIST OF THE RELEASED PROGRAM DECK CONTENTS
AND INFORMATION ABOUT ANY ADDUIONS MADE BY OPERATORS.

HEX CARO FORMAT'

CARD
COLS

PIN B405"0
PAGE
4A

IBM MAINTENANCE DIAGNOS,TIC PROGRAM

PIN 11"05"0
PAGE'
"

A CTRL CARD OR CARDS SHOULD BE PLACED BETWEEN ITEMS 5 AND 6A8DVE.
DEFINING THE PARTICULAR DEVICE. FOR EXAMPLE. IF, IT WAS DESIRED
TO HAVE DEVICE OOOE BLOCK DATA CHECK AND USE ANOTHER SET OF DATA
NOT RELEASED WiTH THIS PROGRAM. THE CTRL CARD WOULD BECTRL OOOE 8006
.
THE DATA DEFINED AS CHAIN 06 SHOULD BE PUNCHED IN ONE OF THE
FORMAT TYPES EXPLAINED IN THE COMMENTS SECTION OF THIS DESCRIPTION,
AND PLACED BETWEEN ITEMS 10 AND 11 OF THE A80VE LIST.

E3E"
0708
4B50
E3E"
0708
"B50
E3E"
D70B
"B5D
E3E4
0708
"850
E3E4
0708
"B5D

SEQUENCE NUMBERS OR COMMENTS ARE ALLOWED IN COLUMNS 1-" AND 51-80.
COLUMNS 5. 10. 15. 20. 25. 30. 35. AND "0 ARE IGNORED. COLUMNS
45-50 MUST BE BLANK.
THE PROGRAM ASSUMES THE OPERATOR HAS PLACED EACH SET OF DATA CARDS
IN ORDER. I.E. THE FIRST SET OF CUSTOMER OR HEX CARDS IS USED AS
DATE
EC

15NDV66
125655

-------------,----,'
10
F837-*
PAGE
"

DATE
EC

-------..., LAST PAGE, - - - - . . . - - - ' , .
. ....,..,....--.-,.....,....,.~.---ID

15NOV66. '
1256,55

PAGE

F831-*
4A

1

0'", ,0::"
"'.. ,

o. o o o

0 0 0 0

0 0 0 0 0

boo

0 0·0 0

o·

0 0 0 0 0 0 0 0·0

;:

o

0····;

:

0'·',,::,
,"'\.,

0 0 0.,,':'',

1"\.
'-I)

0000000

o

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 8"0541
PAGE
1

F8370000
00000000
0000
0000
00
OA
80
00
0104000000
001100
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
00000000
000000000000000000
000000
0000000000000000
0104000000
001616
0000000000000000
0000000000000000
0000000000000000

0010EO
OOlDEl
00lDE2

83
00
8000

0010E4
0010E5
0010E6

XF8370 START "096
USING .,15

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
*•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
MODIFICATIONS

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
SECTION PREFACE
•
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
SECNO DC
PROGRAM IDENTIFICATION
XL"'F8370000'
SNSW

DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC

X'OOOOOOOO'
XL2'OO'
XL2'OO'
XU' 00'
XL1'OA'
XL1'80'
XL1'OO'
XL5' 0104000000'
AL31ROUTOll
XL8'00'
XL8'00'
XL8'OO'
XLO'OO'
XL8'OO' .
XL8'OO'
XL4'OO'
XL12'OO'

EXNPSW DC
SVNPSW DC
DC
PGNPSW DC
MCNPSW DC
IONPSW DC
REGOMP OS

XL8'OO'
XL5'0104000000'
AL310ATlNTI
XL8'OO' .
XL8'OO' .
XLB'OO'
24CL4

ICM
NUTE
FLAGI
FLAG2
INPSW
EXOPSW
SVOPSW
PGOPSW
MCOPSW
100PSW
CSW
CAW

X'OO'
X'8000'

83
00
0000

. UNIT2 DC
U20P
DC
U2ADDR DC

X'83'
X'OO'
X'OOOO'

0010E8
0010E9
OOlOEA

83
00
0000

OOlOE(;
OOlDED·
0010EE

83
00
0000

OOlOFO
OOIOFl
OOlOF2

83
00
0000

0010f4
OOIOFS
0010F6

83
00
0000
15NOV66
125655

SECTION SENSE SWITCHES
INTERRUPTION CONDITION MASK
NUM8ER OF UNIT TA8LE ENTRIES
FLAG BITS SET BY SEC--EXCLUSIVE CPU
I NTRP FLAGS
INITIAL PSW.
EXTERNAL OLD PSW
SUPERVISOR CALL OLD PSW
PROGRAM OLD PSW
MACHINE CHECK OLD PSW
1/0 OLO PSW
CHANNEL STATUS WORD
COMMAND ADDRESS WORD
RESERVED FOR OM USE

o

0',:,
"

o

0'·;' 0·· ·:· 0 0 0
-'I

,

•

o

.0·····,'

PIN B405"1
PAGE
1A

•

•

NEW PSW
CHECK NEW PSW
PSW.
REGISTER SAVE AREA - OM USE

OPTIONAL FEATURE 8YTE
FLAGS AND CHAN/UNIT ADDRESS

..

UNIT TYPE' -1403 PRINTEROPTIONAL FEATURE BYTE
FLAGS AND CHAN/UNIT ADDRESS

DC
U30P
DC
U3ADDR DC

X'83'
X'OO'
X'OOOO' .

UNIT TYPE -1403 PRINTEROPTIONAL FEATURE BYTE
FLAGS AND CHAN/UNIT ADDRESS

DC
U40P
DC
U4ADDR DC

X'83'
X'OO'
X'OOOO'

UNIT TYPE -1403 PRINTEROPTIONAL FEATURE BYTE
FLAGS AND CHAN/UNIT ADDRESS

DC
USOP
DC
USADDR DC

X'83'
X'OO'
X'OOOO'

UNIT TYPE -1403 PRINTEROPTIONAL FEATURE BYTE
FLAGS AND CHAN/UNIT ADDRESS

DC
U60P
DC
U6ADDR DC

X'S3'
X'OO'
X'OOOO·

UNIT TYPE -1403 PRINTEROPTIONAL FEATURE 8YTE
FLAGS AND CHAN/UNIT ADDRESS

•UNIT3

•UNIT4

•UNITS

•UNIT6

B3
00
0000

OOlOFC
0010FD
OOlOFE

83
00 .
0000

001100
001101
001102

83
DO
0000

001104
001105
001106

83
00
0000

•UNIT7

10

PAGE

.'

X'83'
X'OO'
X'OOOO'

UNIT TYPE -1403 PRINTEROPTIONAL FEATURE 8YTE
FLAGS AND CHAN/UNIT ADDRESS

DC
U80P
DC
U8AODR DC

X'83'
X'OO'
X'OOOO'

UNIT TYPE -1403 PRINTEROPTIONAL FEATURE 8YTE
FLAGS AND CHAN/UNIT ADDRESS

DC
U90P
DC
U9ADDR DC

X'83'
X'OO'
X'OOOO'

UNIT TYPE -1403 PRINTEROPTIONAL FEATURE BYTE
FLAGS AND CHAN/UNIT ADDRESS

DC
UADP
DC
UAADDR DC

X'83'
X'OO'
X'OOOO'

UNIT TYPE -1403 PRINTERopn ONAL FEATURE 8YT E
FLAGS ANO CHAN/UNIT ADDRESS

•UNIT8

•UNIT9

•UN ITA

.'

••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
CONTROL CARD LAYOUT FOR 8UFFER RESTORE PROGRAM
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•• -CARD COLUMNS- -PUNCHES-EXPlANATION••
I DENT IF ICATION
CTRL
1-4
BLANK
5
••
-EXAMPlES6-9 '
DEVICE ADDRESS
DOOE
MULTIPLEX DEVICE E.
•...
010E
SELECTOR DEVICE E.
8LANK
10
••
-80 MEANS 8LOCK DATA CHECK
PRINT OPTIONS
11-12
-40 MEANS USE FOLDING
•

••

..

~'

DC
U70P
DC
U7AODR OC

•
'"
•••

EXTERNAL NEW PSW.
SUPERVISOR CALL NEW PSW.
PROGRAM
MACHINE
1-0 NEW
SECTION

00IOF8
00IOF9
OOlOFA

••
•'"

SECTION PREFACE UNIT TA8LE
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
UNIT1 DC
X'83'
UNIT TYPE -1403 PRINTERUIOP
DC
UlAODR DC

DATE
EC

:

UCB RESTORE PROGRAM

• REVISION LEVEL o. THIS IS THE INITIAL RELEASE OF THE PROGRAM.
• E.C. PREREQUISITES
•
MACHINE • • • 2821 MUST 8E AT E.C. 125655
•
PROGRAM • • • NONE
• USE DESCRIPTION F837. AT EC 125655, DATED NOV 15, 1966 OR LATER.

001000
001004
001008
OOlOOA
OOIOOC
001000
00100E
00100F
001010
001015
001018
001020
001028 .
001030
001038
001040
001048
00104C
001055
001058
001060
001065
001068
001070
001078
001080

0'·,

IBM MAINTENANCE DIAGNOSTIC PROGRAM

UC8 RESTORE PROGRAM

001000

o

o o o o

0:

•

-CO MEANS DO 80TH
-00 MEANS NORMAL UCB LOAD

13-14

CHAIN NUMBER

15-80

BLANKS

-01 THROUG Ii FF
THIS REFERS TO THE GROUP
OF 15 BUFFER CARDS IT IS
DESIRED TO LOAD THE UCB
WITH. AN 01 MEANS THE 1ST
GROUP FOLLOWING tHE CTRL
CDS, 02 THE 2ND, ETC.

••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
HEX DATA CARD LAYOUT FOR BUFFER RESTORE PROGRAM
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
'"
. -EXPLANATION-PUNCHES-CARD COLUMNS•••
CAN BE USED FOR SEQUENCE
ANYTHiNG
1-5
NUMBER IF DESIRED.
••
. PUNCHED IN SERIES OF 4
BUFFER DATA·
••
HEX CHARACTERS -2 BYTESSEPARATED BY I COLUMN.
•
E.G. FIF2 F3F4 FSF6 ETC.
••
USED
BY PROGRAM TO
8LANKS
45-50
••
DETERMINE END OF DATA.
••
CAN BE USED FOR SEQUENCE
ANYTHING
OR OPERATOR COMMENT.
•
'•"
75-80
NOT USED
'J
.
'
.
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
*J•••••••
•
PROGRAM SWITCH DEFINITION
\,
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•

.3"

F837-o
1

·

'

:Rf - .

F837-0
PAGE
1A
JI)

,. §¥£@#

.$

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN

840541

PAGE

IBM MAINTENANCE DIAGNOSTIC PROGRAM

2

••

.••

•••
••

001108

001l4C
OO1l4E
001150
001154
001158
001l5C
00116l
001166
00116/\
DOH6E

noun

001116
OOU7E
001180
001l8l
001184

00U96
OOHSA
OOUBt
DATE
EC

BIT

o --

BYPASS ALTER ROUTINE AFTER ALTeR MADE.

BIT 1

INDICATES UC S OPT! ON ON DEVICES THAT ARE NOT DEFINED

BIT 2

INDICATES CTRL CARD WAS READ BEFORE DATA CONF IGURATION
CARD.
INDICATE STARTING TO READ NEW SET OF DATA CARDS

BIT 3
BIT

001190
001196
00119A
0011AO
001lA4
001lA8
0011 AC
OOllBO
001lB4
001188
OOllBC
OOUCO
001lC6
0011CA

INDICATES IN PROCESS OF READING HEX OR CUSTOMER
CONFIGURATION CARDS.
INDICATES READING DATA CARDS.

"

BIT 5

BIT 6 -- INDICATES CHAIN HEADING PRINTED
•'•"
BIT 7 -- INDICATES READING CUSTOMER CARDS.
••••••••••••*•••••••** •• **.*********** ••••••••••••• *••*••*.*•••**.******
CNDP

18 00

40
80
OF
04
10
Ol
80
00

ROUTOI DC
DC

FULL WORD ALIGNMENT

X'OlOO'
X'FFFF'

ROUTINE 1 -NO OPERANOSLAST ROUTINE IN THIS SECTION.

0011CE
001102
001106
00110A
00110E
DOllED
0011 El
001lE4
00llE8
OOllEC
00111"0
001lF4
0011F6
0011F8
0011FA
OOllFe
OOHFE
001200
OOllOl
001204
001206
00120B

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

•
START LOAD UC8
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
*

E 196
F 118
F 007
F 12E

utBl

F 004
F 12E

14

F8lA
94 00 F ·,98
94 00 F 799
94 00 F 1911.
92 00 F 79B

ueB2

01 21 F C84 I' C84
58 70 F 76t
41 90 F 88A

OA DB
083A
91 04
41 10
94 EF
05 03
47 60

0,4

** ••• **.*** •••••••••••• *•••••••••*•• *••••••••••••••••••••••••••••••••••

0100
FFFF

91
47
18
91
47
91
47
OA
80

SR
TM
BC
LR
TM
BC
TM
BC
SVC
DC
DC
DC
NI
NI
NI
MVI
XC
L
lA

R13 ,R13
406IR141,X'40'
NONE,UC81
R13,Rl5
SNSW+3,X'04'
All,UCBl
SNSW,X'02'
NONE,UCBl
X'OO'
X'SO'

ZERO REG 13.
SEE IF IN PROB PROG STATE.
8R IF NOT.
LOAD REG 13 WITH CONTENTS OF REG 15.
TEST SSW 29.
BYPASS TEST IF ON.
TEST SSW 6.
8YPASS TITLE IF OFF.
PRINT TITLE
NORMAL MSG
20 CHARACTERS
ADDRESS OF MSG.
ZERO All PROG SWITCHES
ZERO THE CUSTOMER CO ENTRY SW.
ZERO 2ND SET OF SWS.
ZERO BUFFER PROG SW.
ZERO eTRL DATA SAVE AREA.
PUT 1 IN CHN CONFG CARD COUNTER.
PUT PRINT AREA AOOR INTO REG 9.

X'llt'

Al21TITLE-BASE+REGI
PGSW,X'OO'
ecsw.x·OO·
PRSW,X'OO'
RESW,X'OO'
CTlSVI401,CTLSV
R7,ONE
R9,PAREA

*•• "' •••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
'"

READ CONTROL AND CHAIN CONFIGURATION CARDS

UC83

sve
DC
TM
Be
NI
elC

I" 007

14C
F 796
I' 8311 1'788
F

lie
1M

F 20e
91 09 F 796
47 50 f 5FC
96 20 F 198
02 03 F 774 F IllF
02 113 I' 718 I' 844

BC
01
MVC

MVr.
SVC
DC

OA DC
0008
0714
0774

X'OB'
Al2IROAR-SECNOI
SNSW+3,X'04'
ALl,UCB3
PGSW,X 'EF'
ROARI4),CTRL
UNEQ, ueBCH
PGSW,X'09'
ANY.UCBERI
PGSW,X'lO'
WORKI4I,ROAR+5
WORK+4(4) ,ROAR+10
X'DC'
AL2(8)
AL2. WORK-SECNOI
AL2IWORK-SECNOI

READ A CARD
READ IN AREA
TEST ssw 29.
BR IF YES.
TURN OFF ST ART RO NEW CHN CD SW.
SEE IF CNTRL CARD
BR I F NOT
SEE IF READING DATA CDS.
OR If YES.
TURN ON CNTRL 1ST CARD SWITCH
MOVE DEV ADDR TO CON V AREA.
MOVE CTRL DATA TO CONY AREA.
CONY 81 NARY TO HEX.
EIGHT BYTES
FROM HERE
TO HERE

....
"'....."'..."'......"'' '...' '...' ' .................'''.'''..."'........"'......'"
...."'................"'''' .....'''.'''.....''....''...' ' ' .....' '"'.."'......"'."'."'..
DC

DC

41 30 0 OOA
18 88
41 8B F OED

•

CHECK OM ASSIGNMENT AND STORE CTRl DATA HERE

PRC

LA

CTAS

SR
LA

R3.10
RU,Rll
R8,UNITlIRIU

PUT 10 IN REG 3.
.
ZERO REG U.
PICK UP START ADDROF UNIT TA8LE.

15NOV66
125655

10
FB37-0
PAGE
2

':;1

'''''-

i:'/

iD' D {) In,
i~,"_

'j

'"",

'.

,,-'

I ':~

,).1

\~"(

[) f)
,':

''I."

\

,"i

!.""~."
J>

10
. ·,'
~J

.0
.... ,
,.

Dl
94
05
47
41
46
47
91
47
96
41
02
41
50

01
07
01
80
SB
30
FO
10
BO
80
BB
03
BB
BO

91 01
47 10
91 02
47 80
OA 00
800F
F83A
91 02
47 80
91 10
47 80
OA DO
0003
OC81
0840
OA 00
8022
F8ZE
OA DO
8001
1'784
47 I'D

I' CBO B 002
I' CBD

MVC
I'll

F C80 F '774
I' 1110

0 004
F 18C
I' ICE
8 001
F ICE
F 79A
I' CB4
B 000 1'774
0 OOl
F C80 .

F 007

STDT

.."''''''''''
•

MOVE UNIT TABLE AOOR TO WORK AREA.
AND OUT All BUT ADDR.
SEE IF DEVICE ASSIGNED.
8R IF IT IS.
ADD 4 TO UNIT TABLE ADDR.
BR TO SEE IF NEXT DEV IN TABLE.
BR IF NOT IN TABLE.
CHECK FOR UCS FEATURE.
BR IF UCB NOT ON DEVICE.
TURN ON UCS DEVICE SW.
PICK UP AODR OF CTRL TABLE.
MOVE CTRL DATA TO CTRL TABLE.
ADD l TO POINT TO CTRL DATA.
SAVE THE ADDR FOR ALTER MSG.

.....''..'''.'''..' ' ' ..'''.'''...................'''.''''''... ....."'' ' ' ...'''''''''....
'''

SET UP CTRL DATA FOR PRINTOUT

."'
••"'."' ••••••••••••
"''''.'''.'''••••••••' ' ' TEST
•••••••••••••
' '•• ' ' ' •••••"' •••"'••"'*"'' ' ' •
CSU
TM
SNSW+3,X'OI'
SSW 31.

I' 1DE
I' 007

F 14C
PCTe
I' 001

F 14C
8 001
F 202

PBK
I' 14C

CLC
BC
LA
BCT
Be
TM
BC
01
LA
MVC
LA
ST

AOl(2),lIR8)
ADI,X'07'
ADlIll,WORK
EQ,STOT
Rll,41Rlll
R3,CTAB
UNC,CSU
lIR8),X'10'
NONE,CSU
PRSW,X'80'
R11,CTLSVIR11)
014,Rlll,WORK
Rll,21R111
RIl,ADl

8C
TM
BC
sve
DC
DC
TM
BC
TM
BC
SVC
DC
DC
DC
SVC
DC
DC
SVC
DC
DC
BC

ALL.,PCTC
SNSW+3,X'Ol'
NONE,ut83
X'OO'
X' 8001"
AL2IROAR-BASE+REG)
SNSW+3,X'02'
NONE, UCB3
lIR8) ,X'10'
NONE,PBK
X'OO'
AL2131
AL2IADl-SECNO)
Al2IAODR-SECNO)
X'OO'
X' BOl2'
AL2IMSGI-BASE+REGI
X'DO'
X'800l'
ALl(BLNK-BASE+REG)
UNC ,UCB3

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

BR IF ON.
TEST SSW 30.
BR IF OFF.
PRINT CTRL CD
TEST SSW 30.
BR IF OFF.
SEE IF UCB ON PRINTER.
BR IF NOT.
CONVERT ADDRESS FOR MSG.
3 BYTES
FROM HERE
TO HERE
PRINT ALTER ADDRESS
PRINT A BLANK.

....

BR TO RD NXT CD.

j

j

I

798
5FC
799
14C
798
30E
B3A
55E
798 .
798
598
798
248
001
l52
79B
e7C I' '76e

00120C
001110
001214
001218
00121C
001220
001224.
001118
00122C
001130
001234.
001238
00123C
001240
001244 '
001248
001l4C

91
47
91
47
91
47
95
41
96
91
47
91
47
41
47
96
02

001252
001254.
001256
001158
001l5A
OO125E

OA 00
0001
OC7F
089l
91 01 FOOl .
47 ·80 F 28E

lO
80
08
10
80
80
61
80
04
01
10
08
80

F
F
F
F
F
I'

F
F
I'

F
F
I'

F

77 0
FO I'
08 I'
03 I'

DATE
Ee

15NOV66
125655

,0.,.,
'VI

000

... ... ...

"'."'''''''
' ' ''''''.'''.'''''' ' ' '
'''.'''.........' '
''
• .
POST CONTROL CARD HANDLER
••
"'••••••••"'' 'PGSW,X'lO'
••• '''.''''''''''''••' '••••••••••'WAS
' •••••
' ' ••••••' ' ' •••' ' ••"'."'*••"'."'•••"'••
ueBCH TM
1ST CARD READ A CTRL CD.
'''

.........................................................•....•.......'"

,

0·
',j

FB37-0
8

DATE
EC

HI
IF
IR
LO
LS
NO
RO
Rl

1

1

10

Glo

R2
R3

1

PAGE

157E
2
19CIo
lA79
10
131t1t
1850
0
1

Z

B1
82
CF
EQ

2
3

1

15HOV66
125655

8
150E
15EO
1334
8

1
1

1

'-"-'---~----"-'"-"'-

5
1865
1280
1790.
16A2
lA28
190C
1202
10lt8
8
It
2
1
1808
136C
11CE
10,100
16CE
17210
12CIo
lA88
1987
100A
19FF'

ANY
80M
8HO
8IS
8MP
8NR
CAt
CAD
CAW

ceo

CC1
CC2
CC3
CCM
CFL
CSU
CSW
CT8
CV1
CVO
ONT
FHD
ICM i
IF! .

15CA,
15CE,
132C
11AO,
16010
1572

1502,
1506,

150E
15EO

1228,

12810,

133C.
1358,

13EC,
136C

1536

129A,
12FIt.
lltEC,
1296,
1186,
168E,
15AE,
1lt71o,
16CO,
11 Itlo ,
118C,
12E8,
1481t,
169A,
lllt8,
1588,
1190,
16EIt,
llF8
ll1C,
llt21o,
159C,
16AE,
116A
1358,
1266
11038,
16010,
172C
15AIo
1292,

129E,
12F8,
IltF4,
129E,
11A8,
1692,
15FIt,
lltF 8,
16CE,
12ltO,
1190,
1320,
166C,
16A2,
12B6,
15AA,
1196,
1CAO

12A8,
lIt86.
15C6,
12AIt,
1206,
16A6
168C,
1502,
1608,
12100,
1IBO,
1328,
1671t,
16A2,
12C6,
15CA,
119A,

160C
1506,
1608
12CA,
11Et,
1338,
167E,
16CIo,
12C6,
15E6,
11CA,

12FC,
120A,
13510,
168A,
1710.
12FE,
15E6
16C....

1151t,

1102,
11oA6,
161A,

1218,
1IoAE.
1622,

11050,

1""6,

1396,
139A,
13C2
139E
1662
1362
11AC,

1514
13CE,

1292,

12E4~

12A8,
1108A,
15CE,
12AIt,
12Et,

12AC,
Ilt8E,
15E2,
157A,
15C2,

"'"

(-~

,

.p

.1')"
"- )-

tf-}
." .

(f',,),
~.I

.Af'"

",,-J

til ()
,~

;,f'),

""- .J!

..~.

~)

.0,

....~);

4")
f)
-\...

130C,

167A

UFO,

12FIo .
litEC

1706
13E8

16DC
1718,
1286,
13FIt
16F2

1lt2C,
1600,
1711t

litH ti

15E2
158C
15EA,

1670

12FC
120E,
13AC,
168A,

12E8
13F6
1696

151E,'.,

1718

1582,

1588

16CA,

16CE

12310.
1536,
162A,

1266,
156A,
16... 2,

1... 02
1572
169E

1ltCE,

IItDlt '

1366
llt3E,
16F8
15F8
IIt18

U81t
171C,
128A.

1721t
12CIo

17OC

15NOV66
l256"

. 10

PAGE

.. --.~"-

/'

8A

REFERENCES TO DEFINED SYMBOLS.

1
16
15
1
10
2
1.

DATI!
EC

8 ...0541

POST,ASSEM8LY DATA.

10

~

PAGE

UC8 RESTORE PROGRAM

000048
001C7F
001C81
OOOOOC
OOOOOA
000198
00 FOOD
001000

.

PIN

"

8

3 0 0 0 :0 (0
\'

~.-~-----

"

1

F837-0

8A

I
d

(l

C)"'"

i'

I,

-.1
i

0,

c·

."
.,

"

o

0:

o

0 0' 0

.

o

,

0'"

~

,

.-"-=-"'-~-"-.-"',--.,,

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 81t051t1
PAGE
9

IBM MAINTENANCE DIAGNOSTIC PROGRAM

UCB RESTORE PROGRAM

4
2
4
16
6
5
16
It
2
2
4.
2
1
•

I

j

"1

155E
1252
1804
1888
129E
198E
1894
176C
1202
165E
128E
1380
2
1186
A

Lec
LCT
MAC
Mec
MDA
MES
MIX
ONE
P8K
PCM
PCP
POK
POS
PRC
R10

1

8

R11

1
1

C
D

R12
R13

1
1
1

E
F
FOOO

Rllt
R15
REG

16
2
4
1

4
16
4
2
16
It

4
4
2
1

16
4

lSE8
154A
138A
1758
160A
lAEl
15e2
13E4
lA9E
166e
169A
1392
1554
F

1840
1000

RME
SER
S10
SNS
SPC
STO
SU3
SUS
TBL
TBS
TFU
TIO
TOM
UNe

AODR
BASE

4

1784

8LNK

16
4
4
8
5
4

lA61
1320
168A
17A2
1790
1636
1799

BNR2
Byep
eABU
tAWO
tAWP
eeHN
tesw

1
9

5
4
6
2

17AF
17AA
14FA
l20E
1892

ctWD
tClIP
CF12
CHKO
tHNl,

PIN 81t05ltl
PAGE
9A

I

UCB RESTORE PROGRAM'

1228
1244
164A
1632
1282
16E6
1608
1144,
11FO
1652
125E
1376
1344,
14FE
118A,
11CO,
1320,
110C,
13FE,
110E,
1116
112C,
128C,
147C,
1558,
1668,
1132,
1668
14A6
1350,
14FA
15A6
1558
15H,
130e
14AO
163A,
16A6
13A2,
14AE
11AC,
1306,
1526,
15F8.
11FA
112e,
128e,
147C,
1558,
1668,
1732,
1206,
16Ee,
1132
12E4
1714,
1466
1472
162A
1132,
160A,
14CC.
14E2
142C
12Et
1258

It
2
4
4
16
1
1
2
11
1
1
It
13
6
2
1
1
1
1

124C

1348,

134C,

138A,

138E,

13A2,

14FA

118A,
11C6,
138E,
110C.
1406,
138A,

118C,
11C6,

llA4,
11CA,
150E,
13"8,
l"FE.

11A",
1350,
1516
13M,

118C,
13D6

U8C

1381t •

13D8

1206,
13E8,
149A,
1608,
1100,

126E,
13F4,
14AO,
1632,
1706';,

1271t •

127E
1472
l!I4E
1662
112C

11E2,
1384,
1482,
15AIt,
16EC,
173C
13C2,

1Itl",

1116,
140E,
1502
1200,
BAA,
1494,
15F2,
16F2,

146C,
14E2.
161tA,
110C,

16
4
2

CHNO
CNV2
CTAB
CTRL
DEVI
EQHI
EQLO
FFEX
FOLD
HCAW
HCSW
INCR
MSGI
MSG2
N8RM
NCCO
NeCI
NCC2
NONE

2
1

1826
1710
13FO
1000
1768
15AA
llOE
1798

NORE
NRES
NTOP
NUTE
ONE5
PCCO
PCTC
PGSW

1

179A

PRSW

10

183A

RDAR

1
4
6
4
16
4

1798
14F4
1384
150E
lA84
1004

RESW·
RRGS
SIOl
SlO2
SNER
SNSW

1
4
4
4
6
4
4

4
1180
15eA
l2FO
1674
1224
1308
130E
13eA
1414
152A
1516
164E
1692
10El
10E5
10E9
lOEO
10Fl
10F5
10F9
10FO
1101

SOME
STOT
STIT
SUNe
T8RS
Tees
TFER
THLT
TI01
TI02
TI03
TI04
TRce
Tues
U10P
U20P
U30P
U40P
U50P·
U60P
U70P
U80P
U90P'

1

4.
It

H24

165A
13EO
1208,
13EO,
152E,
1612.

1244,
13Et,
1546,
16F8,

130A,
13FA,
1550.
1734

llE2,
1384,
1482,
15A4,
16Ee,
173e
126E,
1700

1200,
13AA,
1494.
15F2,
16F2,

1206, 126E,
13E8, 13F4.
149A, ' 14AO,
1608, 1632,
17DO, 1706,

1274,
146t,
14E2,
164A,
not,

127E
1"72
154E
1662
H2C

127E,

12Ae.

1366;

137A,

14t1C

1561£,

1576.

1590.

1598.

15Ft

131t,
14B2,
155A.

1386,
14FO,
1594.

1380
14F8
15A6

It

4
4
4
4
4
4
1

1734

1214,'
161E
14ee,

len
IItCA
118C
1788
lA2F
A
C
166A
1878
48
40,
12E8
182E
188C
1738
7
8
0
8

1404.

1

1
1

140A

1
1
1
1

1

124C,
14BE t
11A8
U5C
1126

12DE,
IltC2t

12FO,
IItCA

12F8,

ICAD

161A,
136C,
1348,

1622
137A
14FE
1384,
1380,

1308,
13FA,

13FE,
1482,

H06.
1550,

140E
155A

13D2,

l"lC,

1512

1121t,
123C.
14E8,

1181t,

125E,
1562,

11DA,
1312,
163A,

llES,
132C.
1652,

UFO,
133C,
165A,

1210
140A
1682

12CA
1284
11D2
112E,
1230,
1306,
163E,
1136,
152A,
114E,
128e,
1582,
113A,
14E8
1396

1158,
1238,
1318,
164E,
1188,
153A,
115e,
128E,
1588,
1686,

1166,
1248,
155E,
1656,
138A,
1636
1172,
1296,
158C.
1682

116E,
1262,
1566.
16AA,
1488.

120C,
1276,
157E,
16F4
14A2,

121C.
12D2,
160E.

122C
1302
1626

IItAA ,

1522

1178.
129A,
15Bt,

llE2,
12C2,
15t6,

1224.
1582,
15F2

1280
1582

154E
1118,
130E,

H2O.
1616

1150,

11tE,

1106,

11E4,

125A

1381t,

1386,
1200
1274
1686
13C6,
1112,
1220,
148C,
1686
173C
1682
139E

11AO
15EA
168E
1312,
139A
1220
1302,
141e
1512
151E
1642
167A

131t
140A

'F-

DATE
EC

15NOV66
125655

.

ID
F837-0
PAGE
9

DATE
Et

UN0V66 .
125655

o·
.,'

...,','"

FS37-0
PAGE
9A
10

';

,I

....
!i
i

...,..~

...

-.~

.....

.... .,.........-~--' ..-"""

--'->'~"-"'-"

' PIN 81t051t~
PAGE
10

IBM MAINTENANCE DIAGNOSTIC PROGRAM

I

UC8 RESTORE PROGRAM

I
I

I'

1
4,
4'
2

1105
1118
lI2E
114C

UAOP
UC81
UC82
UC83

4
1
1
2

1238
6
198
16FC
1714

UCB4
UNEQ
WAIT
WATE
WORK

It

4
It

1

4
4
4'
4
4
16
9
5
9
5
1
4,
4'
8
1
1
4'
5
1
4
2
4

J

I

,,

I

I
I,

1770
ZERO
148E AGAIN
178C CAWSV
1598 COM IX
1C7F CHINO
16BC I:HKTB
13FE CONDI
1852 CORlD
17E4 CSWAD
17DF CSWAP
17C5 I:SWEO
171:0 I:SWEP
1760 I:SNEX
177C CSNSV
1C84 CTLSV
1748 DI:CCW
lODE FLAG1
100F FlAG2
1248 INITE
1010 ; INPSN
IB8A PAREA
14B6 PCCWS
11t9C PUCER
1000 SECNO

, 1

1112
111C.
1154.
158C,
1594
1162.
138A.
16AE
1172,
14F4
1674
14FO
134C.
1234,
1256
169E
13CE
1384
lIt36,
1482
lIt4E,
1471:
lIt4C
lItOE,
113E,
1324,

!

9
5

I,

11
5
16
16
4
1
1
1
1
1
1
1
1
1
1
1
4
2
4
8
8
8
8
8
8
8
1
1

!
1
I
I

1
I

I
!

,!
I

!
I

I

I
DATE
EC

.

1811
180C
1801
17FC
1951
18lA
12DC
10EO
10E4
10E8
10EC
10FO
10F4
10F8
10FC
1100
1104
lCAC
1532
1430
1616
1058
1018
1078
1038
171tO
1070
1030
C
9

llE8,
1600,

1208,
1612

1218,

UCE,

1282,
1502

12CE.

1362,

1376

1178,

1182,

1464.
156A

148A

1438,

143E,

1444

1450,

1456,

145C

1420.
1l3E,
1330.

1428,
11BC,
1334,

1434
12DA,
1340.

166C,
135E,

16CO
1372.

12FE,

15U',

1740,

1748,

1750

1182,
12elt,
IItCAf
16E6,

1184,
1434.
lltCe,
1l21t,

lIF8,
1436,

llFA,
l41tC,

151t2,

1541t.

1256;l"E,
15DE,

1126,

lCAD

IBM MAINTENANCE DIAGNOSTIC PROGRAM'
UC8 RESTORE PROGRAM'

1
8
8
4
2
6 "
1
5
8
2
2
2
2
2
2
2
2
2
2
4
I,

130A

,
1184,

119A,

llCO,

PIN 1It051t,PAGE
IDA

11t86

4 NOTZRO
1068 PGNPSW
1028 PGOPSW
1080 REGDMP
1108 ROUT01
140E SIOERR
179C SNSOAT
1060 SVNPSW
1020 SVOPSW '
10E2 UlADDR
10E6 U2ADDR
10EA U3ADDR
10EE U4ADDR
10F2 U5ADDR
10F6 U6ADDR
10FA U7ADDR
10FE U8ADDR
1102 U9ADOR
1106 UAADOR
15FC ueBERl '
1000XF8J70

~.

1015
13C6,'
150A.

1402.
1532,

116A,

1210, ' 1562

\

1418 '

l51t2,

1759

NO ERROR DETECTED: IN'AIOVE ASSEMILY

1761

123C
1148.
1474

':~

11t8C
114E,
12C2,

I1t66,

I

1124
HDA,
159C,

I

16EIt,
SNSAD
151t4
SNSAP
lIt9A
SNSED
SNSEP
1491t
T10TO
13AA
TITLE
112C
UC8CH
1162
UNITl ' 118C,
UNIT2
UNIT3
UNIT4
UNIT5
UNIT6
UNIT7
UNIT8
UNIT9
UNITA
BUFEND
CHKSNS
151A
CNVRST
1526t
DATI NT
1065
EXNPSN
EXOPSN
IONPSN
IOOPSN
LU8eCN
1341t
HCNPSN'
MCOPSN
MIXNON
HMIXED

1258

Ilt64 '
15EO
)

1696

.r

152E.

151ta

'.

15NOV66
125655

ID
F837-0
PAGE
10

DATE
EC

15NOV66
125655

tD
F837-0
' PAGE
lOA

.._._-._---

() 0

o o

000

o o o

00

o o

0 0 0 0 0 0 0 0 0 '0 0 '0 ()

00 0·'·:
I

:

IBM MAINTENANCE DIAGNOStiC PROGRAM

PIN 840541
PAGE
11

1403 BUFFER RESTORE

1 THROUGH 20

o

0' 0 0

IBM MAINTENANCE DIAGNOSTIC PROGRAM

COLS.

21 THROUGH 40

COLS.

41 THROUGH 60

COLS.

61 THROUGH 80

BTXT.AlA .. A8 •• AABODB'
9
V9V Y9 Y98-9l
9
9
9 9

8BG02VHOAHHJABEAOAGA
RZ
RV9-0VV9QV+VlV
999

3DG.3QGA30FJ3BBOD69A
OZ
ZQ lV -8-Z9 R
9

FBABG02VPGO.83700017
-9V9Z
9-

••••••••••••••••• 8~O

542.125655 •• 83700001

BTXT.AlH •• A8 •• AAO.Dl
9
V90. Y9 V9-9 - 9
9

7BDAOAGJ3BG04FEAOAG.
QQV+VlV VZ+ 8QV+VZ
999
-999

3FG03BGCEBODGA3UG038
Ql+ V9Q-9-lZV Z

BTXT.AAA •• A8 •• AA87AA
9
VQV V9 V9 9VV .
999 9
9
99

AAAAAAAAABAAADAAAAJH
VVVVVVVVVOVV99VVVV99
9999999999 9 9999

AAAAAAAAAAAAAAAAAAAA
VVVVVVVVVVVVVVVVVYVV
99999999999999999999

AAAAAAAAAAAA83700002
YVYVYVVVYVVY
999999999999

BTXT.AlO •• A8 •• AABODD
9
V9
Y9 Y98-Z9

BHFBABG02VABODGA4FAG
QO-9V9Z
-9-ZZQ 8-Q

OEGA3BOG740.EAOAG.4F
-llV V 9 8- QV+Vl 8
9
9 9
9

G04MAA7AGA3B83700019
l+ 9-9 VZQ V

BTXT.AA8 •• A8 •• AAAAAA
9
VQ9 V9 V9VVVV
99
9
9 9999

AAAAAAAAAAAAAAAAAAAA
VVVVVVVVYVVYVVVVVVVV
99999999999999999999

AAAAAAAAAAAAAAAAADAA
VVYVVYVVVVVVVVVV99VV
9999999999999999 99

AAOOAAAAAAAA83700003
VV99VVVVYVYV
99 99999999

BTXT.AMV •• A8 •• AAAB7A
9
V99 Y9 V9-9 Y

7N7AB.7HBEAHG~GEKG7A

9 Q

7EKG7F7AB.7E83700020
V9VQ- V

BTXT.AAO •• AA •• AAAAAA
9
VQ+ VQ V9VVVV
99- 99 9 9999

AAAAAAAAAAAA ••••••••
VVVVVVVVVVVV
999999999999

•••••••••••• 83100004

BTX1.AM- •• A8 •• AABEAD
9
V9
Y9 V98QY9
9
9
9 999

GDGKBOAA7DBOHE7EE+4F
9V908-V9 08-l8 Ql 0

BOJP70BOJN7GFBABAH7B
8-V8 +8-VB Q-9V9-9 0
9 9 9 9 9

GA4D80JA7DB083700021
ZV Q8-VQ Q8-

BTXT.AAS •• AB •• AACAAA
9
VQ8 V9 V90VVV
99
9
9 9 9

CAAACAAACAAACAAACAAA
OVVVOYVVOVVVOVVVOVVV
999 999 999 999 999

CAAACAAACAAACAAAAAGG
OVYVOVVVOYVVOVYV9VQQ
999 999 999 999 9ZZ

LEA.JFGAIQQG83700005
SO- l-ZV 990
99
9

BTXT.AMH •• A8 •• AAJFBD
9
V9- Y9 V9V8 8
9
9
9 9 9

BOAOBFAB7BGASBAD7BGA
8-V9QQ-9 QlQ 8-9 QlO

5DG02V+A7DHA7D.A4BDG
RZ
0 RRQ V Q V-8
909
999

4BBEAHDBGPKG83700022
Y8QV99V9V 9
9999 9

BTXT.AJQ •• A8 •• AAADOG
9
V99 V9 V9-9 9
9
9
9

GAIWABODGAIWBOAMOKDA
lQ 8-9 9lV 08-V9 8-V
9 9
99
9 9

7HDA71DA7BBA7CPXDDDD
-~V --V Q-Y Q 9QOQO

H07UAACBBCC283700006
R+ 8ZQQY8Q88
1 9999

BTXT.AMO .. A8 .. AA7A7G·
9
V9- V9 V9 Q 0
9
9
9

KG7H7AB.7GBOJ07KAOAD
9 0 Q- 08-V9 V-+Q9'

GA44AJAHG04FHA7DG5AJ
Z9V9l QRQ R9 ZV

7H+NAHHOAHH+B3700023
R VVlRB9-0

BTXT.AJ+ •• A8 •• AAADOG
9
V9
V9 V9-9 9

GAIDDP7HNCC27HG-2DAA
lQ .8-V - 9Q0 OZ 8-8
9
9
Z9
9 9

7HG+5DFJ7HKC7DC7KC7H
-Z Q-V - 9 R08 9 R
Z 9
OZ9
0

CDBDAHGDGDAA83700007
Ql80V99R9RZQ

BTXT.ANH •• A8 •• AAABBA
9
V99 V9 Y9V9-V
9
9
9 9 9

7DDAOAG05SEAOAGA 52F+ .
QQV+Vl+ 8QV+VlV 9l
99-999

BTXT.AJH •• A8 •• AAABLC
9
V90 V9 V9V88Q
9
9
9 9990.

ACOSKADAABDGDANADA7D
lY 8 9QVV9-9QY 9QY R

GAIAACADFAIDGOIFAAAA
lY OZOV9lQ VZ V-QV9
o 09 Z
9 9

GAIFFA78ACDD83700008
lV v-v QZQQO

BTXT.AN ••• A8 •• AAAAGD.
9
V9
V9 V9V99Q
9
9
9 9

HJG04ABOAVBDG02VBOAE
99Z QD-V8QOl
8-VZ

BTXT.AJO •• A8 •• AAKCAA
9
V9+ V9 V9 9QV
9
9
9
09

7DACAB+ADAAAOGGAIFAB
RZQY9 QQV-9 9ZQ .Q-9
o 09 OZ
9 9

OGGAIDBOAGC2ABOGGAID
9ZV 8B-Y808-9 9ZV .8

AAAAGA2BBEAC83700009
-QY9lV 980V9
9
999

BTKT.ANH •• AB •• AA7IAJ
9
V9R V9 Y9 -lV

ADFA7HK3AACFAIA4FJID
V9-9 - 8QVQ8Z-Vazv 8
99 9
9
9 9l

D77IG028AH7IGAID80-E
-8 -Z 9-9 -ZQ 88· 1

8TXT.AJ8 •• AB •• AADAH.
9
V9
V9 V9B09
9
9
9 9

BOAS8WBOAA7DGOIDAJ7H
8-V9 88-V9 Ol 8-V9
99
9

GA5DAH7JGAIDAA7HGA3F
IV Q-9 -lO B-V -ZY B

E/C2GA50FD7H83700010
- Q8ZV 8-9 Z9

BTXT.ANA •• AO •• AAAGKC
9
V9Q V9 V9V8 9

C2C .B.C6KUC 7C 6AAAHAA
QBQ - Q8 8Q8Q8ZQV9lQ
19Z
Z9 9Z9l9 Z9 9

C7.A5F.A5SDG5FDG5S8E
Q8 Q Q Q B-B Q-8 88Q
19
9 9
9 9 9 99

9

BTXT.AKA •• A8 •• AAAA7H
9
V9Q V9 V9-9-

GASHAH7HGA2HAGAAG02B
ZQ.--9 -ZV ZZRV9Z R
9
09

FH7HKCD47UBEAAD7HBAA
-9 - 9Q8 880V9889--9
Z
999 9

OGGA2FAB7HGA83700011
9lV Y-9 -lQ

BTXT.ANY •• A8 •• AAABFA
9
V9
V9 V9V9lQ
9
9
9 9 1

5BBOAUC2F.SBG02KAH71
VB-VBQal
1
-999 9Z9

GAIDBO.X8DFH7IFJ7HGO
lQ 88- 9 --9 --v -l

IDADOGGA6+AH83700028
8-9 9ZQ ,..-9

AA7DBOAH8DFB7HBDAA7D
V908-V9 V-9 -8-Y9 0

E/C2GASKBOABC2E/C2GA
- Q8ZY V8-V80B- 08lV
Z9
9
Z9 Z9

2KAJC2AAC7KC83700012
ZYQ8ZQQ8 9

BTXT.ADJ •• A8 •• AA7IGA
9
V9V V9 V9 -lQ
9 9 9
9
9

6+AJ7HGA66BO.J8CBDAA
--V -ZQ 9D- 8 Q8 -V
9
9 9 9 09

7BGA6UAH7HGA6FBO.M8M
QZV 8-9 -lQ 88- 9

BTXT.AOH •• A8 •• AA7HGA
9
V9R V9 V9 -ZV

6UBD-AOQBOJU8VBDAADD
88- Q 8-V9 8 Z VQO
9 9 9
9
1

AAABNCAA70GA6BAAABGA
lQV8 9VV +IV --9V9lV,

ABAAOSAAAAGA6DAHADFA
V8lV 8-QV9lQ QlOV9ZQ

6BA.7HGA6DAA7CGA78BO
Q- -lQ Q-V QlV98

9 I

9

9

9

8TXT.AKQ •• A8 •• AA2ABO
9
V91 V9 V9 V89

9

9

9

Z

9

1

Z

0

9

9

9

9

Z

9

Z Z

919

9

9

1 999

BTXT.AKQ •• AB •• AAABAA
9
V9
V9 V9V8lV
9
9
9 99

DDNAACD7GA3JAHADFA2F
QO VV9Q8lV VZOV9lQ Q
19Z
9919

HAD4AJAA+AD4LGAACBDB
RQQ8Z9Y9 QQ88RlQOV-Q
9l
9 9l 90 1 0

7HFA7HGOIDA883700014
--Q -Z 8-9

BTxt.ALA •• A8 •• AAOGGA
9
V9Q V9 V9 9lv

2UB8FA7HG02UHHAAB37H
98Q-V -1 9Z YY-8 1
99
99

AAABGA34BC7HBC7+A.AB
-YY9lY 9-R I-a .:- Y9

GA3DB37+AJ7.S370001S
lY l- . Zv .

+J·7DeA3BFAABKABN8+EC
V VIQ,Y-9V9 9 1 -R

7HG-3UKASN7DKAS3S+E3,
ZZ 89 1 0 9 8

BTXT.AlH •• A8 •• AA+NAH
9
V91 V9 V9 VVI
9

DATE
EC

9

9

15NOV66
12565S

9

o

9 0

919 919

7QG-IDDE7HAA83700013
II 8-Q -ZO

o

9 0

9

2DDG2DBDAJC2BDAIAAEO
-B BQVY889 l-VOR+
9 999999
99 -

9

9

Ol

9

ASADAJAENCAA7DG-2F.A
Z9V9Z9V9 9QV OZ Q Q
9
9
99

9

9

0 0 1

BTXT.AKJ •• A8 •• AAJAAA
9
V9V V9 V9VVQV
9
9
9 9999

9 9

' , ,I, I

, .. "

~',

~

Z

1

9

9

1

to

9

9

9

9

F837-0

11

9 9 Z

GA4BBEAHG4GUKG7A7MKG
lQ Q8QV9989 9 Q V 9
9 1999

9

9

9 99

9

9

9

1

9

9

9

9

-9

19

9l-

9

DATE
EC

I

Z

9

9

9

J39DBOA/9G8DABA8GA6B
V8 a-V8 Q8~ -9V9lQ V
9

9

9 19

15NOV66
125655 '

9

9

9 19

9

9

BJG02VAJ7HGASDAD7HGA
-v -ZV 0-9 -lQ

99

SHAA7IGA56FA83700025
--v -ZQ 8-Y

9

1

9

9

9DG06BAACBA.B3700026
8Z 8lQQVl

9

9

9

9

Z

ABEFESAJAEAI83700027
V99Q98l9V9l9

9

9

9

9

BOAA7HGA60AE83700029
8 -Q -lV 8-9

9

9

9-

9 1

/

7DGA3DFH7BBE83700024
QlQl-9 Cl80

1

9

9

9

Qll

199

9

0 9 0

Z

9

BODGBIBBG03D83700018
8-9808BQZ 1
9 9Z 99

9

SOFD7BG04AFB7BG04AAA
9-9 Ql Q-9 Ol Q-9

1

9

DANADA-AGA6KAOADF.6F
QV 9QV VlV 01ZV91 V

9

yaQV99 9
9999

lV

9

BTXT.AOH •• A8 •• AAABDG
9·
V9
V9 V9V9-9
9

9 Z

V Q9

9

999909l

BTXT.APA •• A8 •• AA7DBO
9
V9V V9 V9 089 9 9
9
9

0

PAGE

9

1

9 9

BTXT.ADA •• A8 •• AA6DAA
9
V9Q ,V9 V9 RZQ
9
9
9 0 1

9

.7+G-3AKAS31D83700016
1 Y.9 8 0

9

Z -

..

~

9

10 •• AAAA.ADN ••••••••
VVQV VOV
9999 99

9

0: 0 ', 0'\

PIN 840S42,
PAGE
11A

BESD •••••• AA •• AAXFB3
9
VQ V9
99 9

9

o

00

1403 8UFFER RESTDRE

PERIODS CORRESPOND TO BLANK COLUMNS.
COLS.

o

OOO();O

,_

9

7AFA7CAHADFA83700030
'I-V QlOV9lQ
9

9

9

1

A.A8A-DDKAOAB3700031
1 VBZ Q09QV
99

Z

1

BEABDAAFBOAA7D80JS9G
8QV98V8V8-V9 08-V80
999 9 9 9
9 99

F.7HG06KBOAA83700032
- -Z 08"Y9

.A7UDG7U8EA8GUBX80Jl
'V 9-8 98QV999888~V8
9 999
999 9

8VBDAQ8/G06883700033
Q98-V9Q Z V

9

I 9

1

10

PAGE

F837-0

11A

tt

3. '

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN Blt05U
PAGE
12

IBM MAINTENANCE DIAGNOSTIC PROGRAM

1403 BUFFER RESTORE

PIN 81t054'
PAGE
12A

Ilt03 BUFFER RESTORE

BTXT.APB •• AB •• AABOAM
9
V99 V9 V9B-V9
9
9
9 9

CWBOLALB-AAA3ALB-AAA '
Q98 YYBY VV9BYBY YY9
l 9 999 99 99 99

CAl8AAAOOAPDJAAAAAPH
QY8YVVV 9V9QVVY9VV9R
199 999 9 999 99

DAAAAAAGAAAA83100031t
BVYYVVV8YYV9
99999999999

8TXT.AKO •• AB •• AAUC8.
9
VB
V9 V9
99
9
9

LOAO.ATTEMPT.DID.NOT

.RECEI Y,E.AVAJ lABLE.F

ROM. DEY IC·E .N83700051

BTXT.APO •• A8 •• AAAAAA
9
V9+ V9 V9VVVY
9 - 9
9 9999

AAAAAAAAAAAAAAAA ••••
YVVVVVVYVVVYVVVV
9999999999999999

CTRLAAAAAAAAAAAAAAAA
VVVVVVVVYVVVVVVV
9999999999999999

A.CAW.XXXXXXB3700035
V
'1

BTXT.AlV •• AB •• AAO.BU
9
V89 V9 V9
99
9
9

FFERS.RESTOREOAAAAAA
YVVVYV
999999

AAAAAAAAAAAAAAAAAAAA
YYVVVVVVVYYVVVVVVYVY
99999999999999999999

AAAAAAAAAAAA83700052
YVVVVVVYVVYY
999999999999

BTXT.APQ •• A8 •• AAXX.C
9
V90 V9 V9

CW.XXXXXXXX.XXXXXXXX

.CSW.XXXXXXXX.XXXXXX

XX.EXPECTED.B3700036

8TXT.AL-•• AS •• AAAAAA
9
VB
V8 V9VVVY
99
99 9 9999

AAAAAAAAAAAAAAAAAAAA
VVVVVVVVYVVVVVVYYVVV
99999999999999999999

AAAAAAAAAAAAAAAAAA ••
VYYVVVVVVVVVVYVVVV
999999999999999999

•• ~ ••••••••• 83700053

XXXXXXXX.XXXXXXXX.AC

TUA L.. SNS. 00. EX PECT lED

.SNS.XX.ACTUB3700031

BTXT.AM2 •• A2 •• AAAAAA
9
V88 V9 Y9VVYV,
99
9
9 9999

AAAAAAAAAAAAAAAAAAAA
V9VVVVVVVVVYVVVYYVVY
9 999999999999999999

AAAAAAAAAAAAAAAAAAAA
VVVYVVVYYVYYYYVVYYVY
99999999999999999999

AAAAAA •••••• B3700051t
YVVVYV
999999

21.UCB.RESTORE.RTNCT

RL.DATA.AT.ADDR.XXXX

XX.FOR.ALTER8370003B

8RlD •••••• AJ •••• AAAA
9
YV
V9V9
99
9 9

AAANAAANAAPAAAPAAAPA
8VQ9BVQlBY9lBV9BBV9R
999 999 99 99 99

AA,PJHAP/ ......... •• '••

••••••••• ,••• 83700055

8V9B9Y9
99
9

BEND •••••••••• AA ••••

...•.••..•......•..•

.••...•••...•••..•..

••••••••• ,••• 83700056

.•.•...•...••.....•.

.~ •••••••••• 83700057

9

9

9

BTXT.APS •• AB •• AACSW.
9
V98 V9 V9
9

9

9

BTXT.AQQ •• A8 •• AAAL2B
9
V99 Y9 Y9
9

9,

9

BTXT.AQ+ •• AB •• AANO.U
9
V9
V9 'V9
9

9

9

9

9

9

CHAIN.XXCTRL.CDS.MIS

SING.OR.MIXED.WITH.D

ATA.CDSMISSIB310001t0

TRL.AND.DATA.CDSALL.

DATA.CDS.MISSiNGANY.

RESTORED.8UFB3700DIt1

CTRL.OOOF.OOOl ••••••
• MAV.BE.IN.ERROREITH

.TYPE.IS.INADEQUATE.

ER.CUSTOMER.AND.HEX •

CTRL.OOI0.0001 ••••••

CDS.MIXED.ORB3100042

IN.NUMBER.TIO.LOOP.R

ECEIYES.SOLIB310001t3

9

ANNEL.BUSY.FROM.THIS

BTXT.AJJ •• A8 •• AAM.DO
9
VBV V9 V9
99
9
9

ES.NOT.HAYE.DATA.FOR

BTXT.AJQ •• AB •• AAE.AN
9
VB
V9 V9
99
9
9

V.DEVICES.THAT.DO.NO

BTXT.AKA •• AB •• AAIPTI
9
VBQ V9 V9
999 9
9

ON.FOR.THE.PROCEDURE

BTXT .AKH.'.AB •• AA. TO.
9
V8l V9 V9
99
9
9

INSUFfICIENT.DATA.CD

BTXT.AKA •• AB •• AAVICE
9
VBY V9 V9
99
9
9

.RDYDEY Ice,.NOT .OPERA

BTXT.AKH •• A8 •• AA.SIO
9
V80, V9 Y9
99- 9
9

,f"
. . . I'.:
''i..J

CTRL.OOOE.OOOl ••••••

9

BTXT.AJQ •• AB •• AAO.CH
9
VBl V9 V9
99
9
9

DATE
EC

V9

BOAT ••••••••••••••••
9

9

BTXT.AJA •• AB •• AA.ONE
9
VBQ V9 V9
99l

9

9

BTXT.AQ8 •• AB •• AAFERS
9
V9
V9 V9
9

O.fOlDING.US83700039

9

BTXT.AQO •• AB •• AANG.C
9'
V9+ V9 V9
9

8LOCK.DATA.CHK.AND.N

9

BTXT.AQH •• AB •• AAING.
9
V90 V9 V9
9

'CB.RESTOREO.WITH.NO.

.AfTER.UCB.lOAD.ATTE

.DEYICEDEYICE.XXXX.A

SSIGNED.BY.DB310001t1t

.UCB.RESTOREIF.DESIR

, EO.TO.RESTORB310001t5

T.HAYE.THE.DATACONSU

LT.THE.DESCRB370001t6

DEYICE.XXXX.UCB.NOT.

RESTORED. DUE8310001t1

SOR.NRONG.CTRl.DEFIN

MPT-.NOT.ACCEPTED.SN

S.SIO.AFTER.83700050

, 10

15NOV66

1256li5

PAGE

n
'-

0" 0

,'-f) {)
"

,0 0

{)
,.

!

0'!iL' :0 0

fB31-0
12

. .,

.~.~.'~ •••••• 83700060

F7FB.F9fO.181C.61E2.

E3E4~

•••••••••••••••

•••••••••••• 83100061

AN2 •• E5E6.E7EB.E950.

686C.OI02.03DIt.0506.

D7D8 •••• '.' •••• ~ ... ·•• ·~.

......... • '• • '.83100062

AN3 •• 0960.585C.CIC2.

C3CIt.C5C6.C 7C8.C 91tE.

484C •• • '•• •• '•••••••••

, •••••••••••• B3700063

ANIt •• FlF2. F3FIt. F5F6';

F1FB.F9FO.1B7C.61EZ.

. •• '••••••• '••• 83100064

AN5 •• E5E6.E1EB.E950.

6B6C.OI02.0301t.D506.

01D8 ••••••••••••••••

•• • '.' ••••••• • 831000~5

AN6 •• 0960.585C.CIC2.

C3CIt.C5C6.C7C8.C9ItE.

484C ............ • _••••

••• ~ •••••••• 83100066

AN1 •• FIF2.F3FIt .. F5F6.

F7FB.F9FO.187C.61EZ.

E3E4 ••••••••••••••••

••• '.......... 83700061

ANB •• E5E6.E1EB.E950.

6B6C.OI02.0301t.D506.

D7D8 •• '••••••••••••••

•••••••••••• 83700068

AN9 •• 0960.585C.CIC2.

C3CIt.C5C6.C 1C B.C 91tE.

4B4C •• '.: ••••••• ·••••••

•••••••••••• 83100069

ANIO.FIF2.F3FIt.F5F6.

f1FB.F9FO.7B7C.61E2.

E3E4 ••• ·•••••••••••••

•••••••••••• 83100070

ANll.E5E6.E1EB.E950.

686C.OI02.D301t.D5D6.

01D8 •• ·••••••••••••••

•••••••••••• 83100011

C3CIt.C 5C6.C 7C B.C 91tE.

4B4C ••••••••••••••••

• .' •••••••••• 83700072

ANI3.FIF2.F3FIt.F5F6.

F7F8.F9FO.787C.61E2.

E3E4 •••• ,•• '••• '•••••••

•••••••••••• B3700013

ANllt.E5E6.E1EB.E950.

6B6C.DID2.03DIt.D5D6.

0708 ........'•••••••••

, •••••••••••• 83100071t

AN15.0960.585C.CIC2.

C3CIt.C5C6.C7C8.C 91tE.

•••••••:••••• B3700075

HNl •• FIF2.F3FIt.f5f6.

F1F8.f9FO.7E7D.61E2.

••• :........... 83700016

HN2 •• E5E6.E1EB.E950.

6BItD.0ID2.D3DIt.D5D6.

• .o' ...:........... B3,7000 11

HN3 •• 0960.5B5C.CIC2.

.r C3CIt .. C:5C6.C: 7C B.. C91tE.

• ............ 83700018

DATE
EC

,4'")

'

• ....... • "•• -••'.83100058
.•••••••••• ~.83700059

AN1 •• F1F2.F3FIt.F5F6.

IT IONMAKE.DE8310001t8

LOAD.SIO.SNSB370001t9

...................•

.......•...•...•••..
................ .....'.

15NDV66 '

125655

JD
F831-0
PAGE
12A

0 0 0 ,0 '0 0 ' 0 0 0 0 0 0 0 0 0 : 0

10:,···
.. ,. 'ff)·.;
.",
..

o o

000
IBM MAINTENANCE DIAGNOSTIC PROGRAM

IBM MAINTENANCE DIAGNOSTIC PRDGRAM

PIN 84054:1.
PAGE
13

1403 8UFFER RES/ORE

1403 8UFFER RESTORE

HN4.~F1F2.F3F4.F5F6.

PIN 840543,
PAGE
13A

F7F8.F9FO.7E7D.61E2.

E3E4 ••••••• ·•••••••••

· •••••••••••• 83700079

QN8 •• E5E6.6F6E.7C5C.

687E.D1D2.D3D4.D5D6.

D708 ••••••••••••••••

• ••••••••••• 83700113

C3C4.C5C6.C7C8.C94E.

6840.0102.0304.0506.

D1D8 ••••••••••••••••

•••••••••••• 83100080

QN9 •• D960~E94D.C1C2.

ItB5D ••••••• • '••••••••

•• ~ •••••• -••• 83100114

HN6~.0960.585C.C1C2.

C3C4.C5C6.C1C8.C94E.

4850 ••••••••••••••••

• ••••••••••• 83700081

QN10.F1F2.F3F4.F5F6.

F7F8.F9FO.E7E8.61E2.

E3E4 ••••••••••••••••

• ••••••••••• 83700115

HN1 •• F1F2.F3F4.F5F6.

F7F8.F9FO.1E1D.61E2.

E3E4 ••••••••••••••••

•••••••••••• 83100082

QN1l.E5E6.5F7D.505C.

687E.0102.03D4.05D6.

D708 ••••••••••••••••

• ••••••••••• 8370QI16

HN8 •• E5E6.E7E8.E950.

6840.01D2.0304.0506.

0108 ••••••••••••••••

• ••••••••••• 83100083

QN12.D960.E94D.C1C2.

C3C4.C5C6.C 1C 8.C94E.

485D ••••••••••••••••

• ••••••••••• 83100111

HN9 •• D960.585C.CIC2.

C3C4.C5C6.C1C8.C94E.

485D ••••••••••••••••

•••••••••••• 83100084

QN13.FIF2.F3F4.F5F6.

F1F8.F9FO.E1E8.61E2.

E3E4~ •• ~ ••••••••••••

•••••••••••• 83700118

HN10.F1F2.F3F4.F5F6.

F1F8.F9FO.1E10.61E2.

E3E~ ••••••••••••••••

• ••••••••••• 83700085

QN14.E5E6.4F7A.6C5C.

681E.0102.0304.0506.

0708 ••••••••••••••••

• ••••••••••• 83700119

HE8. E950.

6840.01D2.03D4.0506.

0108 ••••••••••••••••

•••••••••••• 83100086

QN15.0960.E940.C1C2.

C3C4.C5C6.C lC8.C94E.

485D •••• '••••••••••••

•••••••••••• 83100120

HNll·~E5E6.

HN12.D960.585C.CIC2.

C3C4.C5C6.C 1C8.C94E.

485D ••••••••••••••••

• ••••••••••• 83100081

RN1 •• FIF2.F3F4.F5F6.

F1F8.F9FO.E7E8.61E2.

E3E4 ••••••••••••••••

•••••••••••• 83100121

HN13.FIF2.F3F4.F5F6.

F1F8.F9FO.1El0.61E2.

E3E4 •••• ~.~· •••••••••

•••••••••••• 83100088

RN2 •• E5E6~1D7C.585C.

681E.0102.0304.05D6~

Dl08 ••••••••••••••••

• ••••••••••• 83100122

6840.D102.0304.0506.

0708 ••••••••••••••••

• ••••••••••• 83100089

RN3 •• 0960.E940.C1C2.

C3C4.C5C6.C1C8.C94E.

485D •• '.............. .

•••• ~ ••••·••• 83100123

HN15.D960.585C.C1C2.

C3C4.C 5C6.C 1C 8.C 94E.

485D ••••• ·•••••••••••

• ~ •••••••••• 83100090

RN4 •• FIF2.F3F4.F5F6.

F1F8.F9FO.E1E8.61E2.

E3E4 ••••••••••••••••

• ••••••••••• 83100124

PNl •• FlF2.F3F4.F5F6.

F7F8.F9FO.E1EB.61E2.

E3E4 ••••••••••••••••

_ •••• _ •••••• 83100091

RN5 •• E5E6~6C1C.585C.

681E.0102.0304.05D6~

D7D8 ••••••• ~ ••••••••

_ ••••••••••• 83100125

PN2 •• E5E6.4F1A.607F.

687E.0102.0304.0506.

0108 ••••••••••••••••

• ••••••••••• 83100092

RN6~.0960~E9~0.C1C2.

C3C4.C5C6.C1C8.C94E.

485D ••••••••••••••••

..~ ••••••••• 83100126

PN3 •• 0960.E940.C1C2.

C3CIt.C5C6.C1C8.C94E.

485D ••••••••••••••••

• _ ••••••• ~ •• 83100093

RN1 •• F1F2.F3F4.F5F6.

F7F8.F9FO.E7E8.61E2.

E3E4 •• ·••••••• ·•••• ·•••

............. 83700121

•••••••••••• 83100094

RNB •• E5E6.187C.585C.

681E.OI02.0304.0506.

0708 ................'•

.............. 8310012B

C3C4.C5C6.C7C8.C94E.

4850 ••••••••••••••••

..~ ••.••••••• 83100129

E3E4 ••••••••••••••••

.............. 83100130

D708.~ ••• ~ ••••••••••

• •• ~ •• ~ ....... 83100131

PN4 •• 6C58.5C18.501C.

4C5E.5F10.6F6E.FIF2.

F3F4 ••••••••••••••••

PN5 •• F5F6.F1F8.F9FO.

E1E8.61E2.E3E4.E5E6.

"'FlA •••••••••••••• ••.

PN6 .. 601F.681E.0102.

0304.0506.0708.0960.

E94D ••••••••••••••••

• ............ 83100096

PN1 •• CIC2.C3C4.C5C6.

C7C8.C94E.4850.6C58.

5C18 ••••••••••••••••

•••••••••••• 83100091

PN8 •• 507C.4C5E.5F10.

6F6E.F1F2.F3F4.F5F6.

F1F8 ••••••••••••••••

•••••••••••• 83100098

PN9 •• F9FO.E7EB.61E2.

E3E4.E5E6.4F1A.601F.

681E •••••·•••••••••••

PN10.OI02.D304~0506.

0108.0960.E94D.CIC2.

PNll.C5C6.C1C8.C94E.

·

.~ •••••• ~

r-

••• 83700095

RN9 •• D960.E940.C1C2.

oF

RNll.E5E6.4C1C.585C.

.,!

'J

I

I

RN12.0960.E940.CIC2.

C3CIt.:C5C6.C1CB.C94E.

485D ••••••• _· ••••••••

• ........... ~.83700132

• ••••••••••• 83100099

RN13.F1F2.F3F4.F5F6.

F1F8.F9FO.E1E8.61E2.

E3E4 ..................... .

............:••• 83100133

C3C4 ••••••••••••••••

•••••••••••• 83100100

RNllt .. E5E6.501C.585C.

6a7E.0102.0304.0506~

0108 ••••••••••••••••

• ........'._:••• 83700131t .

4850.6C58.5C1B.501C.

4C5E ••••'•••••••••.•••

· •••• ~ ••••••• 83100101

C3CIt"C5C6~C1C8.C91tE.

48.50 •• ·................

• ... ~ .......... 83100135

P~12.5Fl0.6F6E.FlF2.

F3F4.F5F6.F7F8.F9FO.

E1Ea ••••••••••••••••

•••••••••••• 83100102

PN13.61E2.E3E4.E5E6.

4f7A.6D1F.681E.OID2.

D3D4 ••••••••••••••••

• ••••••••••• 83100103

PN14.0506.01D8.0960.

E940.C 1C2.C3C4.C 5C6.

e7ca ••••••••••••••••

• ••••••••••• 83100104

PN15.C94E.4850.6C58.

5C78.501C.4C5E.5Fl0.

6F6E ••••••••••• ~.· •••

• ••••••• ·•••• 83100105

QN1 •• F1F2.F3F4.F5F6.

F1F8.F9FO.E1E8.61E2.

E3E4 ... ·.~ ••••••••••••

• ••••••••••• 83100106

QN2 •• E5E6.601F.585C.

687E.OI02.0304.0506~

D1D8 ••••••••••••••••

•••••••••••• 83100101

QN3 •• D960.E940.CIC2.

C3C4.C5C6.C1C8.C94E.

485D ••••••••••••••••

• ••• ~ ••••••• 83100108

QNIt ...FIF2.F3F4.F5F6.

F7F8.F9FO.E1E8.61E2.

E3E4 ••• ~ •••• ~ •••••••

• ••••••••••• 83100109

687£.0102.D3DIt.0506.

010 •••••'.· ............... .

• ••• '•••••••• 81100110

QN6 •• D960.E940.CIC2.

C3C4.C5C6.C1C8.C94E.

4810 ................ .

• ••••••••••• 83100111

QN7 •• F1F2.F3FIt.F5F6.

F7F8.F9FO.E7E8.61E2~

EI&4 •••'............... .

• •• ~ •• ~ ••••• 83100112

<

BLOT •• ·................ .
9

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

j

i

!
I

I

I

• ............. 83100136

I..

I

LAST PAGE. ---..;.........,_.--,.,-

DATE
EC

15NOV66
125655

<

10
F831-0
PAGE
13

DATE
EC

15NOV66 .
125655

10
PAGe

F831-0
13A

f
,I

-----.-----

-

--

-

-

--

-

---.--

-"----

--

---0 __ -

--.

---

---_. _ _ _ •

~_"

___________

0 __

_

" __

•

___ 0

ooooooooooooooooooooooooooooooooo~

o
IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 8lt0212
PAGE
1

IBM MAINTENANCE DIAGNOSTIC PROGRAM

2.2

1lt03 CARRIAGE FUNCTION TEST
DESCRIPTION
.

EQUIPMENT REQUIREMENTS.
INPUT DEV ICE
~~BRAGE SIZE
4K PLUS STORAGE R~QUIRED BY DM.
lio CHANNEL
1403 PRINTER
2821 CONTROL UNIT
DIAGNOSTIC CARRIAGE TAPE. SEE 5.2

TABLE OF CONTENTS

2.
3.
It.

5.
6.

1.

PAGE

PURPOSE • • •
PREREQUISITES
USE PROCEDURE
PRINTOUTS
COMMENTS
APPENDIX

1
1
1
2

3.

It

5

USE PROCEDURE
3.1

LOADING.

3.2

OPERATING.

PURPOS~

1.1

INTENT.

:****************.****.**** NOTE *****.****.********.*******.*
* IF 2 CHANNEL SWITCH FEATURE INSTALLED, DISABLE THE UNUSED *
INTERFACE TO PREVENT NOT READY TO READY STATUS FROM BEING *
*
* PRESENTED TO THE OTHER CHANNEL.
********* •• **.*************************.***.*****.** •• * ••••• *.

FORMS SPACE AND SKIP TEST-- ( RTN 3 I WILL TEST THE FUNCTIONS OF THE
CARRIAGE.
PREREQUISITES
2.1

THE SENSE SWITCHES SHOWN BELOW ARE IN THE SENSE SWITCH BYTES OF THEIR
RESPECTIVE SECTION PREFACES. THE CHARACTER X REPRESENTS THE
RELOCATION
FACTOR CONTAINED IN REGISTER 15 OURING RUN TIME. THE SWITCH BITS
ARE
ZERO WHEN OFF, AND ONE WHEN ON.

PROGRAM REQUIREMENTS. A OM IS REQUIRED TO RUN THIS PROGRAM.
THE EXCLUSIVE CPU FLAG [S ON
THE PROGRAM IS RELOCATABLE

;-~~~~~-;---------------------------------------------------------------

***.*********************** NOTE ***********.*****.** •• ***.***
* FOR UCS PRINTERS, THE UCS BUFFER SHOULD BE LOADED.
*
... TO LOAD THE UCS BUFFER. USE PROGRAM 10 F837
•
************.**************************.*.******.***** •• ******

1-------1---------___

THIS TEST WILL BE BYPASSED FOR ANY 1403 WHICH HAS SELECTIVE TAPE
LIST DEFiNED IN THE OM UN[T DEFINITION TABLE.

I

I

I
i

* UN IT CODE
-------------

*

------------~~--------------'I""---------""'!'----

*
*
*

*
OPTIONAL FEATURE DIGIT 1*
*

__________

/I

0

FUNCTION

I

I

I
OUTPUT DEVICE.
1-------1------------________

~~~

DATE
EC

10JUN,,5
124255

22JUN65
1242lt9

15JUt65
124265

OltNOV65
125611

OPTIONAL FEATURE DIGIT 2

15MAR66
125632

01JUN66
125653

15NOV66
125655

..
"

.'

S~~j~ON : X004

•

: S~~j:ON : X~O~
RTN 3 I

I
I

I

INSERT ;;;~T-~~~~~~~-~~~;_y~-;;---:-~;~T~~~-:-;~~;
I
I
•
SEE CHART 6.1
I
F838
I All
-----_____________________
I
RTN 3 I

>I<

:

*
*

B~T~ ~ ~~O~~~I~~D.

----------------------------------------------

* UNIT
.ZZ*BIT 0* BIT 1* BIT 2* BIT 3* BIT 4* BIT 5* BIT 6. BIT 1 *
*
* *HEX 8* HEX 4* HEX 2* HEX 1* HEX 8. HEX It* HEX 2* HEX 1 •
.-------.--.-----.------*------>1<------*------*------.------* ,..----*
• Ilt03 PRINTER*83*ASCII*SEl.
*UNIV • • HI- ~ 120 *
* 2821 *
•
OR
••
.TAPE.
*CHAR. *SPEED *PRINT *
*2 CHNL *
* 1404 PRINTER* *
*LISTER*
*BUFF. *PTR. *POS. *
*SWITCH *
• CONT INUDUS * *
*
*
*
*
*
*
*
*
• *
*
*
*
*
•
•
*
•
* FORMS

I

!

ON--LOOP ON CURRENT START lID, TEST 1/0

I ON--lOOP ON CURRENT 110 COMMAND, OUTPUT ON
I
PRINTER WITH ERROR PRINTOUTS ON C. E

1

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

f

I SECTION! BYTE
I
OR
1 AND
I ROUTINE I BIT

I OFF--PROCEE~~~;~~~~~-------------------------I---------I-----

I
I

~

THE UNIT DEFINITION TABlE-UDT-ENTRY MUST BE PUNCHED AS FOLLOWS.

----------.. .

SW.

x
WITH NO ERRDR PRINTOUTS
:
I
0
1-------1-------___________________
_ OR CHECKING
I 2 I OFF--PROCEEO NORMALLY
--------------------1---------1-----

i'

I

STANDARD AS DESCRIBED IN THE USERS GUIDE.

3.2.1 DIAGNOSTIC CARRIAGE TAPE MUST BE INSERTED
3.2.2 STANDARD OM SENSE SWITCHES AS DESCRIBED IN· THE
3.2.~ SECTION SENSE SWITCHES
USERS GUIDE.

CHANNEL 9 AND 12 TEST- ( RTN 1 & 2 I WILL TEST THE ABILITY OF THE SENSE
START 1/0 TO DETECT CHANNEL 9 AND 12 HOLES IN THE DIAGNOSTIC CARRIAGE
TAPE, AND TO CHECK THAT CHANNEL 12 TURNS ON UNIT EXCEPTION, AND CHANNEL
9 TURNS ON UNIT CHECK. A SKIP AND TWO SPACE 1 OPERATIONS WITH COMMAND
CHAINING IS USED TO DETERMINE TEST RESULTS ON THE PRINTER UNDER TEST.

2.

PIN 840212
PAGE
lA

1403 CARRIAGE FUNCTION TeST

. 1lt03 CARRIAGE FUNCTION TEST

1.

0,

)

ID
F838-*
PAGE
1

DATE
EC

10JUN65
124255

22JUN65
12lt249

15JUL65
124265

04NOV6"
12561

,!lMAR66
125632

01 JUN66
125653

15NOV66
125655

10

PAGE

F838-*

lA

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 81t02l2
PAGE
2

llt03 CARRIAGE FUNCTION TEST

3.3

llt03 CARRIAGE FUNCTION TEST

PROGRAM HALTS

- GOT UNEXPECTED UNIT CK WHILE TESTING CHAN 12ERROR CONDITION
- SNS ACT 81SENSE INDICATES COMM REJ AND CHAN 9
- NO CHAN 12 DETECTEODID NOT DETECT CHAN 12 DUE TO COMM REJ.

AT THE BEGINNING OF ROUTlNE 1 THE C.E. INSTRUCTIONS
WILL TELL THE C.E. TO PLACE THE DIAGNOSTIC CARRIAGE TAPE IN
PLACE, RESTORE IT TO CHANNEL 1 USING THE CARRIAGE RESTORE
KEY, CHECK FOR THE CHANNEL 1 HOLE DIRECTLY UNOER THE
CARRIAGE BRUSHES, MAKE THE PRINTER READY AND PUSH INTERRUPT
TO RESTART THE PROGRAM.
3.1t

TERMINATION.

ERROR PRINTOUTS ROUTINE 03
-DEVICE NOT OPERATIONAL-SET SS 0 TO LOOP ON SIO- SEE SENSE SWITCHES.
-DEVICE I CHANNEL BUSY TOO LONG AFTER 510-NO CHANNEL END-COMMAND, REJECT-INTRV REQUIRED- INTERVENTION REQUIRED
-BUS OUT CHECK-EQUIPMENT 'CHECK-SKIP X FAllED- CHANNEL NUMBER WILL BE FILLED IN.
-BUSY TOO LONG-NO DEV ICE END-UNIT BUSY AFTER DEVICE END-NO CSW AFTER IMMEDIATE OPERATION-OAT A CHECK-BUFFER CHECKUCB PARITY CHECK

STANDARD VIA SVC 06.

PRINTOUTS

It.

It.l

INSTRUCTIONS TO THE OPERATOR
~lNSERT TEST CARRIAGE TAPE,~ .
-RESTORE CARRIAGE TO CHAN. 1-CHECK FOR CHAN.l HOLE UNDER BRUSHES.-MAKE PRINTER READY PUSH INTERRUPT-

1t.2

PIN 81t0212
PAGE
24

IBM MAINTENANCE DIAGNOSTIC PROGRAM

STATUS MESSAGES ON CE OUTPUT OEVICE
---~----

NORMAL PRINTOUTS ROUTINE 01
-SDO F8383 01
00123E OOE-CHAN 9 DETECTED OK-

PROG 10 AND REVISION, RTN. ADDR, DEVICE
CHAN 9 HAS BEEN DETECTED CORRECTLY

NORMAL PRINTOUTS ROUTINE 02
F8383 02
001372 00£-CHAN 12 DETECTED OK-

PROG 10 AND REVISION, RTN, ADDR, DEVICE
CHAN 12 HAS BEEN DETECTED CORRECTLY

-500

ERROR PRINTOUTS ROUTINE 01
-*SDO F8383 01
00127E OOEPROG to ANO REVISION, RTN, ADDR, OEVICE
- NO CHAN 9 DETECTED IN SENSE BYT
ERROR CONDITION
- SNS ACT 1t0SENSE INDICATES INTIIRVENTION REQUIRED
-*SDO F8383 01
001278 OOE- GOT UNEXPECTED UNIT EXCePTION
- SNS ACT 01- CHAN 9 DETECTED-

.~--

SAME AS ABOVE
WHILE TESTING CHAN 9ERROR CONDITION
SENSE INDICATES CHANNEL 9 ONLY, CHAN 12
UNIT EXCEPTl ON ERRONEOUSLY SET ON.

ERROR PRINTOUTS ROUTINE 02

DAle
EC

:)
f)
""'-

-*SDO F8383 02
001335 OOE- NO CHAN 12 DETECTED-

SAME AS ABOVE

-*SDO

SAME AS ABOVE

10JUN65
'121t255
i'"

f8~83

02

001328 OOE-

22JUN65

lSJUL65

121t21t9

121t265

\,,' 0 , 0
0 0 0 10
i",~

ERROR CONDITION

OItNOv.,;("
125611

t-)
"

15MAR66
125632

01 JUN66
125653

15NOV66
125655

ID

PAGE

F838-*

2

DATE
EC

lOJUN65
124255

22JUN65
121t21t9

0 0 0 0 '0 0 0) 0 '0 (0 iO
"

'"

',,-

:

15JUL65
121t265

0ltNOV65
125611

15MAR66
' 125632

01 JUN66
125653

10

15NOV66
125655'

PAGE

f838-*

24

,0,\ 1:0 10 '0' 0 '0
Ii

' __ '

,',

,

'

I"~

'_'

\,

"

',,,

II' ""

d

t

t tit

0 0 0 0 ,_
•
PIN 81t02l2
PAGE
3

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PRINTOUTS ON DEVICE UNDER TEST

1
1
2

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I E
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I EE
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE IEEE
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I EEEE
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I EEEEE

WRITE SPACE 2

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I EEEEEEE

WRITE SPACE 2

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I EEEEEEEEE

WRITE SPACE 2

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I EEEEEEEEEEE

WRITE SPACE 3

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I EEEEEEEEEEEEE

WRITE SPACE 3

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I EEEEEEEEEEEEEEEE

WRITE SPACE 3

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I EEEEEEEEEEEEEEEEEEE

WRITE SPACE 3

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I EEEEEEEEEEEEEEEEEEEEEE

IMMED SPACE 1

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I EEEEEEEEEEEEEEEEEEEEEEEEEE

IMMED SPACE 1

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I EEEEEEEEEEEEEEEEEEEEEEEEEEEE

IMMED SPACE 1

EEEEEEEEEEEEEEEEEEEEEEEEEEEE I EEEEEEEEEEEEEEEiiEEEEEEEEEEEEEE

IMNED SPACE 1

EEEEEEEEEEEEEEEEEEEEEEEEEE I EEEEeEEEEEEEEEEEEEEEEEEEEEEEEEeE

IMMED SPACE 2

EEEEEEEEEEEEEEEEEEEEEEE I EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE

IMNED SPACE 2

EEEEEEEEEEEEEEEEEEEE I EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE

INNED SPACE 2

EEEEEEEEEEEEEEEEE I EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE

IMMED SPACE 2

EEEEEEEEEEEEEE I EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE

IMMED SPACE 3

EEEEEEEEEE I EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE

INMED SPACE 3

EEEEEE I EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE

IMMED SPACE 3

EE I EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE

IMMED SPACE 3

I EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE

WRITE
WRITE
WRITE
WRITE
WRITE
WRITE
WRITE

SPACE
SPACE
SPACE
SPACE
SPACE
SPACE
SPACE

1
1
1
1

PIN 840212
PAGE
3A

o

1403 CARRIAGE FUNCTION TEST

1403 CARRIAGE FUNCTION TEST

4.3

IBM MAINTENANCE DIAGNOSTiC PROGRAM

WRITE SKIP TO 1

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I

CHANNEL
1
WRITE SKIP TO 2

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I

CHANNEL
2
WRITE SKIP TO 3

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I

CHANNEL
3
WRITE SKIP TO 4

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I

CHANNEL
4
WRITE SKIP TO 5

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I

CHANNEL
5
WRITE SKIP TO 6

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I
,~'

CHANNEL
6
WRITE SKIP TO 7

()

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I

'-/

DATE
EC

10JUN65
124255

22JUN65
1210249

15JUl65
1210265

04NOV65
125611

15MAR66
125632

01JUN66
125653

15NOV66
125655

ID
F838-.
PAGE
3

CHANNEL
7
WRITE SKIP TO 8

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I

CHANNEL
8
WRITE SKIP TO 9

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I

CHANNEL
9
WRITE SKIP TO 10

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I

CHANNEL
10
WRITE SKIP TO 11

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I

DATE
EC

10JUN65
1210255

22JUN65
1242109

15JUl65
1210265

04NOV65
125611

15NAR66
125632

01JUN66
125653

15NDV66
125655

.) ,

ID
F83 ....
PAGE
3A

PIN 840212
PAGE
4

IBM MAINTENANCE DIAGNOSTIC PROGRAM

CHANNEL

12

IMMED SKIP TO 1

IMMED SKIP TO 2

EEEEEEEEEEEEEEEEEEEEEEEEEEEEE~EEEEEEEEEEEEEEEEEEEEEEEEEEEEE

IMMED SKIP TO 9

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I

IMMED SKIP TO 10

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I

IMMED SKIP TO 11

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I

IMMED
SPACE
WRITE
SPACE
WRITE

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I
XXXXXX ~EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I E
XXXXXX EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I EE
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE IEEE

I

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEjEEEEEEEEEEEEEEEEEEEEEEEEE I

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I

COMMENTS
5.1

IMMED SKIP TO 4

IMMED SKIP TO 5

SKIP TO 12
SUPPRESS OK
SPACE 1
SUPPRESS OK
SPACE 1

NOTE ••• XXXXXX IN ABOVE SAMPLE PRINTOUT IS NORMALLY OVERPRINTED.
5.

IMMED SKIP TO 3

PIN 840212
PAGE
4A

1403 CARRIAGE fUNCTION TEST

1403 CARRIAGE fUNCTION TEST

CHANNEL
11
WRITE SKIP TO 12

IBM MAINTENANCE OIAGNOSTIC PROGRAM

DETAILS ON SECTION fUNCTIONS.
f838 -- CHANNEL 9 AND 12 TEST RTN 1 AND 2

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I

THE SENSE CHANNEL 9 AND 12 ROUTINE PRINTS SET-UP
INSTRUCTIONS ON THE C.E. OUTPUT DEVICE AND GOES INTO THE WAIT
STATE TO ALLOW TIME TO EXECUTE THE INSTRUCTIONS. THE PRINTOUT
SAYS TO RESTORE THE DIAGNOSTIC CARRIAGE TAPE TO CHANNEL 1 AND TO
BE SURE THAT THE CHANNEL 1 BRUSH IS RESTING IN THE CHANNEL 1
HOLE WHEN THE TEST IS STARTED. THIS SYNCHRONIZES THE CARRIAGE TAPE
WITH THE PROGRAM. THE PROGRAM IS RESTARTED BY MAKING THE PRINTER READY
AND PUSHING THE EXTERNAL INTERRUPT KEY.

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I

A SKIP TO CHANNEL 1 fOLLOWED BY TWO SPACE 1 IMMEDIATE COMMANDS ARE
ARE ISSUED. AFTER THE FIRST OF THE TWO SPACE 1 COMMANOS IS EXECUTED A
CHANNEL 9 HOLE SHOULD 8E DETECTED ON THE CARRIAGE TAPE AND BREAK COMMAND
CHAIN WITH UNIT CHECK INDICATED.

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I

A SKIP TO CHANNEL 4 FOLLOWED BY TWO SPACE 1 IMMEDIATE COMMANDS ARE
ISSUED. AfTER THE FIRST OF THE TWO SPACE 1 COMMANDS IS EXECUTED A
CHANNEL 12 HOLE SHOULD BE DETECTED ON THE CARRIAGE TAPE AND BREAK
COMMAND CHAIN WITH UNIT EXCEPTION.
F838 -- FORMS SPACE AND SKIP TEST RTN 3
IMHED SKIP TO 6

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I

IMMED SKIP TO 1

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I

IMMED SKIP TO 8

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE I

DATE
EC

r)
I,,_~

lOJUN65
124255

22JUN65
124249

15JUL65
124265

04NOV65
125611

15MAR66
125632

01JUN66
125653

10 10 iO 0 0 :0 iO 0 0 {) 0
"'(_

·1

THE PROGRAM TESTS SPACE, SKIP, SPACE SUPPRESS, AND IMMEDIATE
OPERATIONS. A TABLE HAS BEEN SET UP IN STORAGE -CCTAB- WHICH
DICTATES THE SEQUENCE OF OPERATIONS. THIS ORDER MAY BE CHANGED
WITH REP --REPLACE-- CARDS, OR MANUALLY AT RUN TIME.
ALL SPACE OPERATIONS MAY BE CHECKED BY SIGHTING ALONG THE
DIAGONAL SLASH LINE. If IT IS STRAIGHT, NO ERROR OCCURED.
SKIP OPERATIONS ARE CHECKED BY THE PROGRAM. A NINE DR TWELVE IS
SENSED AFTER EACH SKIP.
TO REPEAT A SPECIFIC TYPE OF OPERATION, ENTER THE COMMAND IN THE
PROGRAM SECTION PREFACE BYTE 005. SEE CHART 6.1 •
THE LETTER IS PLACED IN THE PRINT AREA TO PROVIDE A GUIDE FOR
PRINT ALIGNMENT. IF ANOTHER CHARACTER IS DESIRED PUT THIS
CHARACTER IN THE MVI INSTRUCTION AT ADDRESS -NOREST-.
SUPPRESS PRINTING IS CHECKED BY X-ING OUT THE WORD -FAIlED-, AND
ADDING THE WORD -OK-.
fU8-.
10
PAGE
4

15NOV66
125655

r'f)

'.... !

DATE
EC

10JUN65
124255

22JUN65
124249

15JUl65
124265

04NOV65
125611

15MAR66
125632

01JUN66
125653

4") () () (0 0 ()
() (L·
0 0 0 0 J":>
''"
i

II

,"

i*")I
i'l.

15NOV66
125655

0 ()

ID

PAGE

o

FUe-.
4A

'0

o

,:

/

QQOOOOOOOOOOOOOOO
- - - . ,-----r-"----....--- -- - --_.- -_ ..
---~-.-.

--:~'l'

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840212
PAGE
5

1"'03 CARRIAGE FUNCTION TEST,

o

I

o
5.2

CARRIAGE TAPE

~

F838 ,

LENGTH 96 SPACES
LINE NO -HOLE
LINE
01 - 01
02 - 09
09 - 02
10 - 09
17 - 03
18 - 09
25 - O~
26 - 12
6.

o

NO.-HOLE
33 - 05
3~
~1

- 12
- 06
U-12
~9

-

07

LINE NO.-HDLE
65 - 09
66 - 12
13 - 10
7~ - 09

o
o

81-11

50 - 12
57 - 08
58 - 12

82 - 09
89 - 12
90 - 09

o
o

APPENDIX
COMMAND CODES.

1~03

o

••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
COMMAND CODE 81TS
HEX
•

FUNCTION

•• NO OP

•
•
•
•
•
•
•
•
•
•
•
•
•
•

. . .,.

• ••

SENSE
TEST 110 •
• • • • • • •
PR SP SUP
• • • •
PR SP 1 • • • • •
• • •
PR SP 2
•
PR SP 3
•
•
•
•
•
• •
IMMEO SPI
INNED SPX ••
IMMED SKIP 1 •
IMMED SKIP 2 •
•••.
IMMED SKIP X •
PR SKIP 1
PR SKIP 2
• • •
PR SKIP X'

· ... ..

~.

0 1 2 3

~

0 0 0 0

0 o 1 1

o0 0 0
o 000

1 000

••
••
••

0 000
000 1
000 1

••

0 0 0 0
o0 0 X

-1000
1 0 0 1
lXXX

•• ;1000
1 0 0 1

1 XXX

0 1 0
o0
0 o 0
1 o 0
0 o 0
1 o 0

0

o

b~

1

19
08

0 1

o

03

0
0
1
1
1

1 o 1 1
X 011
1 o 1 1
0 o 1 1
X 011
1 o 0 'I
0

CODE

o

00
81
09
11

o
o

88
98

o

89
91

o

X 001
I I I I
I I I I--WRITE 81T
1-------1 I I
I
I I--~-IMMEDIATE
SPACE--SKIP VALUE 8 ~ 2 1--1
I
I,.--SENSE
• WHERE X MAKES UP THE TOTAL NUM8ER OF LINES
• SPACED OR SKIPPED
I NOTE ••• LODPING ON ANY IMMEDIATE SKIP COMMAND
WILL PRODUCE NO CARRIAGE MOTION. NO IND,ICATION OF THIS WILL 8E GIVEN
TO THE PROGRAM. )

••

••

5 67

I I
SKIP 8IT---l I

••
••

o
i

01

1

01

•••
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

01

~I

••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
ONE SENSE 8YTE

•
•

8IT

•
•

0
1
2

•

3

•
•
•

4
5
6

••

•

7

MEANING

STATUS

COMMAND REJECT
INTERVENTION REQUIRED
8US OUT CHECK
EQUIPMENT CHECK
DATA CHECK
8UFFER CHECK
NOT USED
CHANNEL 9 SENSED

0

UNIT CHECK
II

II

II

II

It

..

II

It

••

I I

(l

D

UNIT CHECK

••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

o
o

DATE
EC

10JUN65
124255

22JUN65
124249

15JUL65
124265

'01tN0V65
125611

15MAR66
125632

01 JUN66
125653

15NOV66 '
125655

10

PAGE

F838-.
5

6

o

o

I
1

1

I

i

--------

o

0' 0 0 0 0 t )

i;

10000000000000000000000000000000000

ill I

..

"

W'r

000000000000000000000000000000000.
f

I
,

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN
PAGE

8100213

1

1403 CARRIAGE ,FUNCTION TEST
l'

'.~

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN S40213 'Ii
PAGE
1A

11003 CARRIAGE FUNCTION T,EST

'f

,
i

83B3

•

TITLE

••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• MODIFICATlDNS
•

•• REVISIDN LEVEL

•
•
•
,•
•
•
•
•
•
•
•
•

3. THIS REVISION DIFFERS FROM VERSION 2 AS FOLLOWS •••
1. THIS PROGRAM NO LONGER RESTORES THE UCS 8UFFER. USE PROGRAM
10 F837 TO RESTORE THE UCS BUFFER.
2. THE PROGRAM HAS BEEN MODIFIED TO INCLUDE TESTING OF THE
CHANNEL 9 AND 12 LATCHES WHICH WAS PREVIOUSLY DONE ON THE
NOW DBSOLETE PROGRAM 10 F839.
3. TESTING DF INVALID COMMANDS HAS BEEN REMOVED AND IS NOW BEING
DONE IN PROGRAM ID F831
4. BUFFER RESTORE FUNCTION HAS BEEN REMOVED AND IS NOW BEING
DONE BY PRDGRAM 10 F837.
E.C.'PREREQUISITES
'
MACHINE... 2821 MUST BE AT EC 125655 OR LATER
PROGRAM • • • NONE

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
VERSION 2
•
•
•
•

EC lZ5632

•• USE

,
t

i

I

I

I
I

I

I

!

I

I

I

I

I

I

I, :

~~:-r,~..

I,',

I
I

I

r":'.£ .{

I

I

DESCRIPTION F83B. AT EC 125655, DATED NOV 15, 1966 OR LATER'.

••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
XFB383 START 4096
USING .,15

001000

001000
001004
001008
OOlOOA
OOlOOC
001000
OOlOOE
OOlOOF
001010
001015
001018
001020 '
001028
001030
001038
0010100
001048
OOlOIoC
001055
001058
00105D
001060
00~068
001070,
001078"
00107C
001080
0010EO
0010El
0010E2

THE PROGRAM HAS BEEN MOOIFIED TO RESET BLOCK DATA,.
CHECK LATCH, ON UCS PRINTERS, DURING INITIALIZATION.
OF THE SECTION.
•

•••••••••••••••••••
•••••••••••••••••••
• SECTION PREFACE ••••••••••••••••••••••••••••••••••• SECTION PREFACE.
•••••••••••••••••••
•••••••••••••••••••
SECNO DC
XLIo'F8383000' ,
,PROGRAM,SECTION AND REVISION NOS. •

F8383000
00000000
0000
0000
00
01
CO
00
0104000000
0011FC
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
00000000
000000000000000000
000000
0004000000
000000
0000000000000000
0000000000000000
0000000000000000
01040000,
00000000

SNSW

DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
OC
DC
DC
DC
DC
DC
DC

XLIo'OO'
XL2'OO'
XLZ'OO'
XLI'OO'
XLl'Ol'
X'CO'
X'OO'
X'D104000000'
AL31BEGINI
XLB'O'
XLS'OO'
XLe'oo'
XLB'OO'
XLS'OD'
Xl8 '00'
XL4'OO'
XL12'OO'

DC
DC
DC
DC
DC
DC
DC
OS
UNI'T1 DC
U10P
DC
UllDOR DC

X'D004000000'
'XU'O'
XLS'OO'
xLe'oo'
XLs '00' ,
XL4'01040000'
XL4'O'
96C
X'S3'
X'OO'
X'BOOO'

ICM
SDMF
NIOU
FLAGI
FLAG2
INPSW
EXOPSW
SVOPSW
PGOPSW
MCOPSW
IODPSW
CSW
CAW
EXNPSW
SRET
SVNPSW
PGNPSW
MCNPSW
IONPSW

83
00 '
8000

SECTION SENSE swnCHES

•
,I

•

INTERRUPTION CONDITION MASK
SECTION DM FLAGS
NUMBER OF UNIT TABLE ENTRYS
EXCLUSIVE CPU
1/0 INT ARE ERR, EXT INT TO PROG
DISABLED, SPVSR STATE, NO"PGM'MASK
ADR OF 1ST ROUTINE PREFIX
SECTION OLD EXTERNAL PSW
CLEAR ALL OLO PSIIS
PROGRAM OLD PSW
MACHINE CHECK OLD PSW
I/O OLD PSW
CHANNel STATUS WORD
CAW
RESERVED FOR DM USE

•
•
•
•
•
•
•
•
.•
•
•
.'
•
•
•

EXTERNAL NEW PSW
ADR OF EXT INTRPT ROUTINE
SUPERVISOR NEW PSW
PROGRAM NEW PSW
MACHINE CHECK NEW PSW
110 NEW PSW

••

96 BYTE REG DUMP AREA FOR DM USE
UNIT TYPE OPTIONAL FEATURES BYTE
FLAGS AND CHANIUNIT ADDRESS

•

.'••
•
•
•
•

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

I

••

INfTIALIZe,ROUTINE

OOlOEIo
001OE8
OOlOEC
OOlOEE
OOIOEF
OOlOFO
0010F2
0010F4
0010F6
0010F7
0010F8
OOlOFA
0010FC
001100
001104
001106
OOllOA
OOllOE
001112
001116
001UA
OOlllC
001110
, DOllIE
001120
001122
001123
001124
001126
001128
001129
00112A
00112C
001l2E
00112F
001130
001132
0011310
001138
00113A
001143
001l4A
001153
001155
00115E
001165
001l6E
001171
001l7A
001181
00118A
001191
00119A
00119C
001lA5
0011AC
001lB5
oonBC
00118C
0011BE
001lC2
001lC6
OOllCA
OOllCE
001102
001106

DATE
10JUN65
22JUN6!1 .. l!IMAR66
15NOV66
10
F838-3
'_E~C_____l_2_4_2_!l!I_____
12_.~2~4'~,_,,~12_~_,6~3_2_>~',__1~25_6_5_!l__________________________________________
PA_.G_E_____I_____:_~__
TE

l___

; i.

,;

,

'"
'

;7,

...

4iiSaMhil(i;W,t;;mm4W

-,

.. ..'.. -.,"-•.. ...
'

@, . .

",.4

-'''.~-,.-.--.".-

.}Ii .thl!l4!

.... ---".''~-.-

._ ........ ...

¥Wa:;;q&D .. '., .4",.. )$;

" .,

h

••••

t

"

$.. P

,Am

x,

24

91 40
107 80
OA DO
20
15
FB2C
OA 06
OA DO
AD
01
F2FO
1B DD
91 40
47 80
18 OF
58 CO
54 CO
109 CO
47 80
40 CO
OA DO
34
1B

••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
INITAL TM
U10P,X'40'
CHECK FOR STL FEATURE

F OEI
F 0F4

E 196
F 106
F
F
F
F

OED
C90
IBC
134
F lBC

FHA

OA DO
AD
1C
Fl55
OA DO
AD
2B
Fl7l

OA DO
80
IF
F19C'
OA DA
92 00 F 98C
07 FB
40C905E2C5D9E340E3
C5E2E340C3CID9
D9C9CIC7C540E3CID7
C568
40D9C5E2E3D6D9C540
C3ClD9D9C9ClC7
C5100E3D640C3CBCID5
IoBIoOF1
40C3C8C5C3D240C606
D9100C3CSCID54B
Fl100C8D6D3C56B40Fl
4OD3C9D5C5100D7
CIE2E340C2D9E4E2C8
C5E2
10004CID2C540D7D9D5
E3D9100D9C4EB6B
40D1E4E2C840C905E3
C5D909E4D7&3
FFFF
92 100

41
91
47
50
90
47

AD
80
80
AD
00
70

F
F
F
F
0
C
F

CB4
CBO
DOlo

1E2
048
000
1C6

BC
SVC
DC
DC
DC
SVC
ZDOM
SVC
DC
DC
DC
SR
TM
BC
LR
BLOOP L
N
CH
BC
STH
SVC
DC
DC
DC
SVC
DC
DC
DC
SVC
DC
DC
DC
SVC
DC
DC
DC
SVC
GITOUTMVt
BCR
TEll
DC
DC
TEU

TEU

TELlo

NONE,ZOOM
X'OO'
X'20'
X'15'
AL2(STL-BASE+REGt
X'D6'
X'DO'
X'AO'
X'OI'
AL2(BLANK-BASE+REG)
R13,R13
1006(141,X'40'
NONE,BLOOP
R13,R15
R12,UNIT1
R12,M0050
R12,SAVOEV
EQ,GITOUT
R12,SAVDEV
X'DO'
X'34"
X'IB'
AL2ITELl-BASE+REGI .
X'DO'
X'AO' ,
X'lC'·
AL2ITEL2-BASE.REG) .
X'DO'
X'AO'
X'2B' ,
AL2ITEL3-BASE+REG) :
X'DO'
X'80'
X'lF'
AL2ITEL4-BASE+REG) ,
X'DA'
'
OUTSNS+9,X'00' ,
UNC,Rll
C' INSERT TEST CAR' ;

C' RESTORE CARRIAG' .

DC

C'E TO CHAN. I '

DC

C' CHECK FOR CHAN.'

DC

C'l HOLE, 1 LINE' P'

DC

C'AST BRUSHES'

OC

C' MAKE PRNTR ROV,' ,

DC

C' PUSH INTERRUPT'

Sf

TID
BC

PRINT -STL-SECTION BYP.ASSEDEXIT FROM ROUTINE

SET UP FOR SUPERVISOR STATE
CHECK FOR FORCED PROBLEM STATE
BR. IF NOT
SETUP FOR PROBLEM STATE
LDAD REG 12 FROM UNIT TABLE
AND OUT BITS FOR MODEL 50
COMPARE FOR SAME DEVICE'ADDRESS
BR. IF EQUAL
PLACE CURRENT 'DEVICE AOOR IN AREA
PRINT OPERATOR INSTRUCTIONS
INSERT CARRIAGE TAPE
RESTORE ,CARRIAGE TO 1

CHECK POS,OF BRUSHES

MAKE PRINTER'REAOY

WAIT 'FOR, INTERRUPT 'TO CONTINUE
CLEAR SENSE
'. RETURN VIA. REGISTIA: 11 '

C'RIAGE TAPE,'

DC

CNOP
SAVOEV OC
LOOP
MVI
LA
STRTIO TM
BC

BR. ,IF NOT DEFINED IN UOT

0,4

X'FFFF'
CCWI+4,X'40' '
R10,CC.,1
SNSW,X'80'
NONE ,SQUARE
R10,HCAW(RUI
0(R1Z)
NCCO.STRTlO

SET UP TO CHAIN COMMANDS
SETUP CAW
'SEE IF SENSE SWITCH 0 STtLL,ON
BR., IF SS a OFF
SETUP CAW
ISSUE TID
LOOP UNTil CLEAR

,

,

10JUN65
124255

2ZJUN65
124249

15MAR66
125632

15NDV66 '
125655

I

i_
i 10
FB3... 3
16
. PAGE

IBM MAINTENANCE DIAGNOSTIC PROGRAM
1403

CARRIAG~

OOllOA
OOUDE
00nE2
(lOllE6
OOllEA
OOHEE
001lF2
001lF6

OOllFA
OOllFA
OOllFC
OOllFD
001200
001204 '
001208
00120C
001210
001214
001218
00121C
001220
001224
001228
00122C
001230
001234
001236
00123A
00123E
001242
001246
00124A
00124E
001250
001251
001252
001254 .
001256
001257
001258
00125A
00125C
001250
00125E
001260
001262
001263
001264
001266
00126A
00126E
001272
001276
00127A
001Z7E
001282
001286
00128A
DA:rE

ec

f)

9C
47
58
B8
9D
46
92
1t7

00
FO
90
90
00
90
00
FO

FUNCTION TEST

C 000
F lC6
0 198'
0 005
C 000
,F lEA
F CBIt'
F 5F4

22JUN65
121t21t9

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN' 840213
PAGE
2A

1403 CARRIAGE FUNCTION TesT
SIO
8C

SQUARE L
SRl
TT
TIO
BCT
MVI
BC

OCRl21
UNC,STRTIO
R9,WTIR13)
R9,5
OIRIZI
R9,TT

CCWl+4,X'00'
UNC,SJOSIO

ISSUE START 1-0
BR. TO TIO
LOAD WAIT FACTOR
ADJUST
ISSUE TEST 1-0
LOOP UNTIL CLEAR
RESTORE CCW TO NO CHAIN COMMAND
BACK TO MAIN PROGRAM

•••
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

ROUTINE 1 - CHANNEL 9 TEST
•
•
•'"
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
CNOP 0,4 '

07 00
01
000308
45 BO F OE4
58 9E 0 198
88 90 0 003
90 00 C 000
47 70 F 236
92 8B F 440
92 OF F BA8
92 CO F BA9
92 09 F 424
41 AO F 440
50 AD 0 048
45 60 F 5DC
47 FO F 20C
OA 06
46 90 F 20C
47 FO F 214'
95 01 F 982
47 60 F 286'
91 01 0 041t
47 80 F 27A
OA DO
AO
01
F2FO
OA DO
64
33
F3Fl
OA DO
EO
OB
F983
OA DO
CO
10
F2F2'
92 CO F 262
92 10 F 263
91 80 F 004
41 10 F 214
47 FO F 2BE
92 04 F 262
92 13 F 263
47 FO F 260
91 01 F 982
47 10 F 2C6
IOJUN65
124255

PIN 1!It0213
PAGE
2

0,0
)(001'
Al3IBEGINZ-BASEI
Rll,lNlTAl
l
R9,WTIR141
R9,3
SRL
TSTCLR TIO
0lR121
BC
NCCO,ITRY
D09
MVI
GOSKP,X'BB'
MVI
SWITCH,X'OF'
MVI
SWITCH+ I, X'CO'
MVI
NSWCH,X'09'
LA
RIO,GOSKP
ST
R10,HCAWIR13)
BAL , R6,SIOI
BC
UNC,TSTCLR
END9
SVC
X'D6'
lTRY
BCT
R9,TSTClR
BC
UNC,009
CUT
Cll
SAVSNS,X'OI'
BC
UNEQ,DECIDE
TM
HCSW+4IRI3I,X'01'
NONE,REWORK
'
BC
SVC
X'DO'
DC
X'AO'
OC
X'Ol'
DC
AlZIBLANK-BASE+REGI
SVC
X'DO'
DC
X'64'
DC
X'33'
DC
AL2IUNEXUE-BASE+REGI
SVC
X'OO'
DC
X'EO'
OC
X'OB'
DC
Al210UTSNS-BASE+REGI
BACK9 SVC
X'DO'
BK9
DC
X'CO'
BK91
DC
X'10'
OC
ALZIBUTYFl-BASE+REGI
MVI
BK9,X'CO'
MVI
BK91,X'10'
TM
SNSW,X'BO'
BC
ALl,D09
BC
UNC,CLR9
REWORK MVI
BK9,X'04'
MVI
BK91,X'13'
BC'
UNC,BACK9
DECIDE TM
SAVSNS,X'Ol'
BC
ALl,VARY9
BEGIN

15MAR66
lZ5632

0 0 0 0 ,0 ,0
;~

BCR
OC
OC
BAl

15NOV66
,125655

o

BR. TO INITIAllZER ROUTINE
LOAD WAIT 'FACTOR
ADJUST
CLEAR PENDING INTERRUPT
LOOP UNTIL CLEAR
INSURE SKIP TO CHAN 1 IN CCW
SET UP SIO SWITCH
ROUTINE SWITCH
SET UP CAW

00128E
001292
001296
00129A
00129C
001290
00129E
00l2AO
OOllAl
0012A3
0012A4
0012A6
0012A8
0012A9
0012AA
OOlZAC
0012BO
001Z6b
00126A
0012BE
0012C2
001ZC6
0012CC
001200,
001209
0012EO
001,ZE9
001ZFO
001ZFZ
0012FB
001302
001305

91 01 0 044
47 BO F 2AO
EO F 2A2
OA DO
64
33
F3Fl
OA DO
64
20
F200
OA 00
CO
OB
F9B3
92 64 F 2A2
02 01 F 201 F 305
91 80 F 004
47 10 F 214
92 00 F 4Z4
47 FO F 234
,02 01 F 201 F 2FO
47 FO F 28E
40D5Db40C3C8CID540
F940C4C5E3C5C3
E3C5C41t0C9D540E2C5
D5E2C540C2E8E3
4040
40C3C8CI0540F940C4
C5E3C5C3E3C5C4
1t00602
, D5D6
"92

BR. TO SIO ROUTINE
BR. TO START AGAIN
EXIT ROUTINE
LOOP UNTIL CLEAR OR TIME OUT
TRY AGAIN FOR CLEAR DEVICE
COMPARE FOR CHAN 9 IN SENSE
BR. IF NO UNIT CK CHAN 9
TEST FOR UNIT EXCEPTION
8R. I F NO UNIT EXCEPTION

DEC!

TM
BC
MVI
SVC
DC
DC
OC
BACKIO SVC
BKIO
DC
DC
DC
SVC
DC
DC
DC
MVI
MVC
TM
BC
CLR9
MVI
BC
VARY9 MVC
BC
BLAB
DC

HCSW+4IR131,X'01'
NONE,8ACKlO
BK10,X'EO'
X'OO'
X'64'
)(,33 I
Al2IUNEXUE-DASE+REG)
X'OO'
X'64'
X'20'
AL2(BlAB-SASE+REGI
X'OO'
X'CO'
X'OB'
ALZIOUTSNS-DASE+REGI
BK10, X'64'
BLAB+lIZI,NO
SNSW,X'DO'
AlL,009
NSWCH.X·OO'
UNC.EN09
BlAB+1IZI,BLANK
UNC.OECI
C 'NO CHAN 9 DElEC'

DC

C'TED IN SENSE 8YT'

BLANK DC
BUTYFL DC

C'
C' CHAN 9 DETECTED'

OK
NO

C' OK'

••

DC
DC

SEE IF UNIT EXCEPTION
DR. IF No UNIT EXCEPTION
MODIFY MESSAGE PRINTOUT

RESTORE CHAN 9 MESSAGE
TEST SS 0 FOR LOOPOP110N
BR. TO LOOP
RESET ROUTINE SIIITCH
8R. TO EXIT ROUTINE
REMOVE N 0 FROM MESSAGE
DR. TO GET REST ,OF PRINTOUTS

C'NO'

•
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

•••

ROUTINE 2 - CHANNEL 1Z TEST

••

RESTORE MESSAGE PARAMETER
RESTORE MESSAGE PARAMETER
TEST FOR LOOP SW
BR. TO lOOP
EXIT ROUTINE
SET UP MESSAGE PARAMETERS
SET UP MESSAGE PARAMETERS
GO PRINT OUT CHAN 9 OK
SEE IF CHAN 9 IN SENSE
ALTER MESSAGE TO SAY~HAVE CHAN 9
10
F838-3
PAGE
2

001308
00130B
001309
00130C
001310
001314
001318
00131C
0013Z0
001324
001328
00132C
001330
001334
001336
00133A
00133E
001342
001346
OOl34A
00134C
001340
00134E
001350
001352
001353
DATE

EC

OZ
000458
45 BO F
90 00 C
9Z A3 F
92 12 F
92 OF F
9Z CO F
41 AO F
50 AD 0
45 60 F
47 FO F
OA 06
91 01 D
47 10 F
91 40 F
47 80 F
92 CO F
OA 00
64
20
F3C4
OA DO
EO
OB
IOJUN65
124Z55

..

•••••••••CNOP*...........................................................
.
0,4

OE4
000
440
4Z4
BA8
BA9
440
048
5DC
310
044
370
BA8
356
358

Z2JUN65
121t21t9

BEGIN2 DC
DC
8Al
BACKUP TID
0012
MVI
MVI
MVI
MVI
LA
ST
BAL
BC
END12 SVC
GOTST TM
BC
1M
BC
SAYl
MVI
SVC
DC
DC
DC
SVC
DC
, DC
15MAR66
125632

X'02'
Al3IBEGIN3-BASEI
R11,INITAL
0lR1Z1
GOSKP,X'A3'
NSWCH,X'lZ'
SWITCH,X'OF'
SWITCH+l,X'CO'
R10,GOSKP
R10,HCAWIR131
R6,S101
UNC ,BACKUP
X'06'
HCSW+ItIR131,X'Ol'
AlL,ISGOOD
SWITCH,X'ItO'
NONE,TELIM
TE,X'CD'
X'OO'
X'64'
X'ZD'
AL2IUNEXUC-8ASE+REGI
X'DO'
X'EO'
X '08'

ROUTINE PREFIX
ROUTINE PREFIX
BR. TO INITIALIZER ROUTINE
CLEAR PREVIOUS UNIT CHECK
INSURE SKIP TO CHAN It IN CCII
ROUTI NE SW ITCH
SET UP SIO SWITCH
SET UP CAW
SET UP CAW
BR. TO SIO ROUTINE
BR. TO TRY AGAIN
ROUTINE EXIT
TEST FOR UNIT EXCEPTION
DR. IF NO ERROR
WAS THERE UNIT CHECK
DR. IFNO UNIT CHECK PREVIOUSLY
MODIFY MESSAGE.PRINTDUT i

15NOV66
125655

10 0 0 0 0 0 0 0 0 0 0
'""

o

0"',",
,

'i

'*btftWttd

.t dire '(rtf" fib

o o
I

"r' ...t'oj'h'

",fift

t

"""

dY"lk'i4

H

!

t'·. tf,'¢@'##'r±01"t ''dtdWf1ffitlt*'tojt1b'itthMtMit.fWk'ietWtMU'f'rl'w;';K"'Mi.it!ttid"l!#ti1dlt4t'tW$i"'W'1'tn iit1:ir¥+!1!riJerWM1Writrt1"tWeaittr1 1.ttttr "'Wetfe,'_:! "'SN
r

t

't!tbtMMwanert'N,"'''Tttr t 'WeIl:J:S

',B! 1M

tnt ,gmt

,11M

.....

*

'MM' 'MNr:t_Ur!rtWt!H

."t?"dtttf*

b t

«nth

00000000000000000000000000000000

1

PIN 840213
PAGE
3

IBM MAINTENANCE DIAGNOSTIC PROGRAM·

0013610:

001368
00136C
001310
001311t

001318
00131C
001382
001384
001385
001386
001388
0013U
001388
00138C
00138E
001390
001391
001392
0013910

001396
001391
001398
00139A
0013AO
0013A4
0013A8
0013AC
001380
001389
0013CO
0013C4
0013CD
0013D4
0013DD
0013E4
0013ED
0013F1
0013FA
0011001
0011o0A
001411 .
00141A
001421
DO 14210
001425
oo142E
001435
00110100

001448
001450

DC
SVC
DC
DC
DC
MVI
SPHERE TM
8C
ClR12 MVI
8C
I5GOOO TM
8C
MVI
MVC
SVC
DC
DC
DC

F983
OA DO
44
14
F380
92 44F 358
91 80 F 0010
41 10 F 314
92 00 F 424
41 FO F 3310
91 40 F 8A8
41 80· .. 394
92 CO "·396
02 01 F 431 I' 2FO
OA DO
AO
01
F2FO
OA DO
64
2D
F3C4
OA DO
EO
08
F983
OA DO
14
14
F425
D2 02 F 436 F 302
92 14 I' 396
91 40 I' 8A8
41 10 I' 360
41 FO F 368

TELIM
TE

no

DC
DC
DC
SVC
DC
DC
DC
NOPROe SVC
Nope
DC
DC
DC
MVC
MVI
TM
BC
BC

40D5D640C3C8CID540
FlF240C4C5E3C5
C3E3C5C4
40C1D6E340EIoD5C5El
D1C5C3E3C5CIoio0
E4D5C9E340C3D240E6·
C8C9D3C540E3C5
E2E3C9D5C140C3C8Cl
. D5100FlF2
100Cl06E31o0EIoD5C5El
D1C5C3E3C5C440 .
EIo05C9E3100C5ElC3C5,
D1E3C9D6D540E6
C8C9D3C540E3C5E2E3
C9D5Cl100C3C8Cl .
D540F9
00
40C3C8CID5100FIF240
CIoC5E3C5C3E3C5
C"OD6D2
88 001BAA 4000 0001
OB 001BAA 4000 0001
OB 001eAA 0000 0001

•8lAn

AL210UTSNS-BASE+REG)
X'DO'
X'1010'
X'14'
AL218LABI-BASE+REG)
TE,X'44'
SNSW,X'80'
ALL ,D012
NSWCH,X'OO'
UNC,END12
SWI TCH.,X '40'
NONE,NOPROB
NOPB,X'CO'
LOVLY1+2IZJ,BLANK
X'DO'
X'AO'
X'Ol'
AL2IBLANK-BASE+REGJ
X'DO'
X'61o'
X'2D'
AL2IUNExuc-eASE+REGI
X'DO'
X'EO'
X'OB'
AL210UTSNS-BASE+REGI
X'DO'
x'llo'
X'llo'
Al2ILOVLY-8ASE+REG)
LOVLY1+113I,oK
NOP8,X'l1o'
SWITCH,X'40'
ALL ,SPHERE
UNC,CLR12

DC

C' NO CHAN 12 DETE'

DC
UNEXUC DC

C'CTED'
C' GOT UNEXPECTED'

DC

C'UNIT CK WHILE TE'

DC

C'STING CHAN 12'

UNUUE DC

NSWCH
LOVlY

C'UNIT EXCEPTION W'

DC

C'HllE TESTING CHA'

DC
DC
DC

C'N 9'
X'OO'
C' CHAN 12 DETECTE'

••

INSURE CORRENT PRINTOUT
MODIFY.MESSAGE PRINTOUT
BR. TO SEE IF LOOPSW IS ON'
EXIT 'ROUTINE

C' GOT UNEXPECTED' .

DC

LOVLYI DC
GOSKP CCW
CCW
CCW

MODIFY MESSAGE PRINTOUT
TEST FOR SS 0 ON
BR. TO LOOP IF SS 0 ON
RESET ROUTINE SWITCH
EXIT
UNIT CHECK PREVIOUSLY
BR. IF NO UNIT CK PREVIOUS
MODIFY MESSAGE
INSURE ERROR MESSAGE

C'D ilK'
X'BB',PRINT,X'40',1
X'OB',PRINT,X'40',1
X'OB',PRINT,X'OO',l

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

••
ROUTINE 3 - FORMS SPACE AND SKIP TEST
•
•.......................................................................
CNOP

001458
10JUN65
124255

I

., - I

2ZJUN65
124249

PIN 840213
PAGE
3A

1403 CARRIAGE FUNCTION TEST

11003 CARRIAGE FUNCTION TEST

001354
001356
001358
001359
00135A
00135C
001360

IBM MAINTENANCE DIAGNOSTIC PROGRAM

ISMAR66
125632,

15NOV66
125655

0,4

F838-3
PAGE
3
10

001458
001459
00145C
001460
001462
001466
001468
00146C
001470
001414
001418
00141C
001480
001484 .
00148A
001108E
001492
001496
00149C
0014AO
0014A6
0014AA
0014AE
001482
001488.'
0014BC
0014CO
0014C4
0014C8
0014CC
. 0014CE
0014D2
001406
0014DA
00 14D.E
0014EO
0014E4
0014E8
0014EA
0014EE
00141'2
00141'6
0014FA
0014FE
001502 .
001508
00150E
001512
001518
. 00151C
001520
001524
001528
00152C
001530
001534
001538
00153E
001542
001546
00154A
00154E
001552
001558
00155C
001560
001564
001568
DATE
EC

03
OOFFFF
45 80 I' OE4
18 11
41 50 I' C2C
18 44
91 1'1' I' 005
41 80 I' 418
43 40 I' 005
41 1'0 I' 41C
43 41 I' 859
42 40 F C80
92 40 F BAA
D2 82 I' BAB
94 00 I' BA9
91 02 F CBO
41 10 I' 4AO
02 05 F BAA
41 FO F 4AA
02 05 F BAA
96 40 F BA9
91 BO F CBO
41 10 I' 512
02 05 I' BBO
88 40 0 003
42 40 F BBl
96 FO F BBl
91 02 F CBO
41 80 F loEB
lB 54
41 60 F BC8
91 04 F OEI
47 80 I' loDE
41 60 F BBC
19 56
4120 F 4FE
107 1'0 F 4EE
18 '04
41 FO F 4FE
41 50 F C2C
91 04 FOEI
41 BO I' 4FE
41 50 F C20
92 C5 I' BBC
02 11 F BBD
02 02 5 000
41 FO F 55C
02 01 F BBO
96 80 F BA9
88 40 0 003
loB 40 I' CA4
41 20 F 542
loA 40 I' CAD
42 40 I' BBA
96 FO F BBA
92 40 I' A66
02 00 F A61
41 1'0 F 4Et:
loB 40 F CA8
42 40 F BBA
96 FO F BBA
92 Fl F BB9
02 01 I' A66
41 FO F 4EE
41 40 F CBO
50 4D 0 048
95 01 F CBO
47 60 F 516
10JUN65
,.1210255

BEGIN3 DC
DC
BAL
T2B
SR
NEXT
NUll

F BAA

F AFB
F ABE

LA

SR
TM
BC
IC
BC
NEXT2 IC
NEXT3 STC
MVI
MVC
NI
TNRITE TM
BC
MVC
BC
IMMED MVC
01

F 801

TSPACE TM
BC
MVC
SRL
STC
01
TM
BC
SR
LA

TM
BC
LA

BZ

BBC
F CAa

I'

F AF3

CR
BC
BC
STOSP LR
BC
RESET5 LA
TM
BC
LA
NORE.ST MVI
MVC
MVC
BC
SKIP
MVC
01
ITEM
SRL
SH
BC
AH
STC
01

F BBA
GRTER

I'

BB9

22JUN65
124249

MVI
MVC
BC
SH
5TC
01
MVI
MVC
BC

SETCAW LA
ST
ClI
BC

15MAR66 ' 15NOV66
125632
125655

X'03'
ROUTINE PREFIX
X'OOFFFF'
ROUTINE PREFIX
ll,lNITAL
BR. TO INITIALIZE THE PROGRAM
Rl,R7
CLEAR CONTROL COUNTER
R5,PRINT+130
RESET REG 5 SLASH POSITION
R4,R4
CLEAR CONTROL CHARACTER
SNSN+1,X'FF'
CHECK FOR CONSTANT CCW·- SS OPTION
NONE,NEXT2
R4,SNSW+l
GET CCW FROM SWITCHES
UNC,NEXT3
BYPASS NEXT CCW . FETCH
R4,CCTABIR11
GET NEXT CCW FROM TABLE
R4,CCW1
STORE INST IN CCW
PRINT,C' ,
CLEAR THE PRINT AREA
PRINT+11131).PRINT
CLEAR THE PRINT AREA
SWITCH+1,X'OO'
CLEAR SWITCH
CCW1 ,X '02'
TEST FOR WRITE
ALL,IMMED
BR. IF AN IMMEDIATE COMMAND
PRINTl61,CWRITE
MOVE 'WRITE' .TO PRINT
UNC,TSPACE
PRINTI61,CIMMED
MOVE 'IMMEO' TO PRINT OUT
SWITCH+l ;X'40'
SET UP. IMMEDATE SPACE SWITCH
CCWI ,X 'BO'
TEST SPACE
ALL,SKIP
BR. IF A SKIP COMMAND
PRINT+616I,CSPACE
MOVE 'SPACEiTO PRINT
R4,3
SHIFT BITS RIGHT· TO GET SPACE
R4,PRINT+13
NUMBER. STOR SPACE NO •. IN PRINT
PRINT+13,X'FOi
AREA. OR IN.-I'O- TO PRINT OUT
CCNl ,X'02'
CHECK FOR IMMEADATE SPACE
NONIE.STOSP
BR. IF A SPACE COMMAND
R5,R4
STOR CURRENT I POS IN REG 4
R6,PRINT+30
120 POSITION PRINTER
U10P,X'04'
NONE,BZ
BR. IF NOT
R6,PRINT+IB
CHECK SLASH· COUNTER
R5,R6
SEE IF SlASH IN MESSAGE AREA, BR. NO
HI,NOREST
DO NOT RESET THE SLASH COUNTER
UNC,RESET5
RO,R4
STORE SPACE' COUNT
UNC,NOREST
R5,PRlNT+130
RESET SLASH POSITION
UI0P,X'04'
CHECK IF 120 POS PRINTER
NONE, NORE ST
BR. IF NOT
R5,PRINT+U8
PRINT+IB,C'E'
SET E TO PRINT
PRINT+191114I,PRINT+18 MOVE E TO ALL LOCATIIlNS
013,51,CSlASH
INSERT SLASH
UNC,SETCAW
PRINT+618IiCSKIP
MOVE 'SKIP , TO PRINT
SWITCH+l,X'80'
SET UP SKIP SWITCH
R4,3
SHIFT BITS TO DETERMINE SKIP TO WHAT
R4,CX19
SUBTRACT 19
HI,GRTER
R4,CX9
RIo,PRINT+16
STORE SKIP TO NUMBER
PRINT+16,X '1'0' .
LOAD IN FO TO PRINT OUT
CSKFAL+5,X'40'
CSKFAL+61l1,PRINT+16 PUT CHAR IN FAIL MESSAGE
UNC,RESET5
R4,CXl
SUBTRACT 1 FROM SKIP TO INFO
R4,PRINT+16
MOVE SKIP TO INFO TO. PRINT
PRINT+16,X'FO' .
ADJUST FOR PRINTOUT .
PRINT+15,X'Fl' .
MOVE HIGH ORDER DIGIT TO PRINT
CSKFAL+5IZ),PRINT+15 PUT CHAR IN FAIL MESSAGE
UNC,RESETS
RESET SlASH COUNTER
R4,CCWl
SETUP
R4,HCAWIRIJI
CAW
CCWhX'Ol' ..
CHECK FOR SPACE SUPPRESS
UNEQ,BSIO

ID

1'838-3
,PAGE
SA

I
I
I

.",

L

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

, .

'!
IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840213
PAGE
4 .

1403 CARRIAGE FUNCTION TEST'

00156C
001570
001576
00157A
00157E
001582
001586
00158A
00158C
001590
001594
001598
00159C
0015AO
0015A4
0015A6
0015AA
0015AE
0015B2
0015B6
0015BA
0015BE
0015C2
0015C6
0015CA
0015CE
001502
001506
001508

96
02
45
95
47
91
47
18

47
5B
41
91
47
41
19
47
41
91
47
41
91
47
91
47
5A
55
47
OA

20
18
60
01
80
02
10
50
FO
50
60
04
80
60
56
20
50
04
80
50
FF
50
20
10
70
70
40
06

F
F
F
F
F
F
F

BA9
BAA F 107
508
CBO
590'
CBO
590

F
F
F
F
F
F

594
C94 .
BC8
OE1
5A4
BBC

F Del

5BA
C20
005
466
004
466
C94
C98
466

.;

01
SWITCH+l,X' 20'
MVC
PRINTC251,CSPSUP
BSIO
BAL
R6,SIOBEG
CLI . CClIl,X'Ol'
EQ,IMDATA
BC
TM
CCIIl,X'02 '
8C
ALL,IMDATA
.R5,RO
SR
UNC,LRE06
BC
IMbATA S
R5,Cl
'LRE06 LA
R6,PRINT+30
TM
U10P,X'04'
BC
NONE,Dl
R6,PRINT+18
LA
R5,R6
01
CR
HI,NOSUP
BC
R5,PRINT+130
LA
TM
UI0P,X'04'
NONE,NOSUP
BC
LA
.R5, PRINT+1l8
NOSUP TM
SNSII+1,X'FF'
BC
ANY,NEXT
TM
SNSW,X'20'
8C
ALL,NEXT
A
R7,Cl
R7,C54
CL
BC'
LO,NEXT
EXITI SVC
X'D6'
CNOP 0,4

001634
001636
00163A
00163E

SPACE SUPPRESS TO PRINT
SIO
CHECK FOR SPACE SUPPRESS

001640
001644
001646
001647
001648
00164A
00164C
00164E
001650
001654

SUBTRACT SLASH COUNT
UP DATE SLASH COUNTER
SET UP FOR MAX
CHECK FOR 120 POSITION PRINTER
BR. IF NOT
CHECK TO SEE IF SLASH IS MAX

••
94 00
92 00
92 00
58 9E
88 90
91 80
47 10
9C 00
47 10
47 20
47 40
91 40
47 ·80
91 FF
47 50
OA DO
4021
FAC4
47 FO
91 1B
47 70
47 FO

00162A
00162C
001620
00162E
001630
001632

OA DO
AO
01
F2FO
OA DO
4430 .

DATE
E.C

F
F
0
0
0
F

001656
00165A

CHECK FOR CONSTANT CCII
BR. IF CONSOLE ENTERED COMMAND
TEST SENSE SIlITCH 2
BR. TO LOOP CURRENT SID COMMAND
UP DATE CONTROL TABLE
PROGRAM FINISHED
NOT. FINISHED
ROUTINE FINISHED
PROGRAM ALlGN

F

C
F
F
F
F
F
F
F

SI01

MVI
MVI
L

SRL
TM
BC
SlOSlO SID
.
BC
BC
BC
TM
BC
TM
BC
SVC
OC
DC
BC
WHICH TM·
BC
BC

F 65E
F 424
F 1C6
F 18E

••••••
• .
••••••
SNOTOP

10JUN65

22JUN65

124255

124249

---------_.

SID ROUTINE

•

•••••

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
SIOBEG NI
SWITCH,X'OO'
RESET SWITCH

BA8
CC5
044
198
003
004
61E
000
62A
640
656
BA9
65E
BA8
65E

15MAR66
125632

__ _-----

CCW3+5,X'OO' .
HCSII+4CR13I,X'OO'
R9,WTCR141
R9,3
SNSII,X'BO'
ALL,IIHICH
OCRl2)
CC3,SNOTOP
CC2,SBUSY
CCl,SCSIlST
SWI TCH+ I, X'40'
NONE, TIOBEG
SWITCH,X'FF'
ANY,nOBEG
X'DO'
XL2'402l'
AL2CNOCSW-BASE+REG)
UNC,nOBEG
NSWCH,X'18'
MIXED,STRno
UNC,LOOP

CLEAR SENSE DATA
CLEAR STATUS
LOAD WAIT FACTOR
ADJUST
TEST SENSE SIlITCH 0
BR. TO LOOP SID TID
START 110
NOT OPERATIONAL
DEVICE I CHANNEL BUSY
tsw STORED
CHECK FOR IMMEDATE OPERATION
GO TO WAIT FOR 110 SIGNAL
CHECK FOR SECOND TIME IN LOOP
SR. IF SECOND TIME THROUGH
PRINT - NO CSII AFTER IMMEDATE
OPERATION
SID OK

SEE IF FROM RTN 1 OR 2
BR. TO LOOP

SID

NOT OPERATIONAL ROUTINE

SYe
DC
DC
DC
SVC
DC

X'DO'
X'AO' .
X'Ol' .
AL2IBLANK-BASE+REG)
X'DO'
XL2'4430' .

15NOV66
125655

DC·
TM
BC
BCR

•••••••
•••••••• SID
SBUSY BCT

46 90 F 5F4
OA DO
AO
01
F2FO
OA DO
4429
F9CO
90 00 C 000
07 F6

SVC
DC
DC
DC
SVC
DC
DC
TIO
BCR

SID
••••••••
•••••••
SCSIIST TM
BC
••

CHECK FOR 120 POS PRINTER

.~.

•••••

F990
91 80 F 004
47 10 F 1BE
07 F6

CHECK FOR IMMEDIATE SPACE

••
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

00150S
0015DC
. 0015EO
0015E4
0015EB
0015EC
0015FO
0015F4
0015F8
0015FC
001600
001604
00160S'
00160C
001610
001614
001616
001618
00161A
00161E
001622
001626

PIN 840213
PAGE
4A

1403 CARR IAGE FUNCTION TEST

F 5BA
F C2C
F
F
F
F
F
F
F
F
F

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PRINT-DEVICE NOT OPERATIONAL

10
FS3B-3
'PAGE
4

91 CO F BA9
47 50 F 68E

'I

BUSY ROUTINE
R9,SIOSIO
X'DO'
X'AO'
X'Ol'
AL2CBLANK-BASE+REGI
X'OO'
XL2'4429'
AL2CCSBUSY-BASE+REGI
OCR12)
UNC,R6

BUSY TOO LONG

PRINT-BUSY TOO LONG
AFTER SIO

CSW STORED ROUTINE
SWITcti+l;X 'CO'
ANY,TCSIIST

CHECK FOR IMMEDATE COMMAND

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
••
TID ROUTINE
•

00165E
001662
001666
00166A
00166E
001672
001676
00167A
00167E

91
47
58
B8
90
47
47
47
47

60
50
9E
90
00
10
20
40
80

••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
TIOBEG TM
SIlITCH,X'60'
CHECK FOR SENSE COMMAND

F BA8
F B2C
0 19B
0 003
C 000
F 62A
F 682
F 681:
F 6EE
,

001682
0016B6
00168B
00168A
00168C

46 90 F 66E
OA DO
4410
FA81
07 F6

00168E
001692
001696
00169A
00169E
0016A2
0016A6
0016AA
0016AE
0016B2
0016B6
0016BA
0016CO
0016C2
0016C3
OOl6C4
0016C6
0016C8

91 02
47 80
96 40
47 FO
91 lB
47 70
91 80
47 10
96 80
91 OB
47 10
02 07
OA DO
AO
01
F2FO
OA DO
440F

DATE
EC

10JUN65
124255

o o o

BC
L
SRL
TIOTIO TIO
BC
BC
BC
.
BC

ANY,TIOSEN
R9,IIlIR14)
R9,3
OCR12)
CC3,SNOTOP
CC2,TBUSY
CCl,TCSIlST
CCO,TDVENO

•
TIO
•••••••
TBUSY BCT

TBUSY

.......

SVC
DC
DC
BCR

0 044
F 69E
F BAB
F 6FA
F 't24
F'6EE
F BAB
F 6EE
F BA8
o 044
F 606
F'9EA 0 040

.....

'0 0 0 0 0 0 0 0 0 00 0 00 0

AL2CCNOTOP-BASE+REG)
SNSW,X'SO'
. TEST'FOR SENSE SWITCH 0 TO LOOP
ALL,LOOP
BR. TO LOOP IF SS 0 IS ON
UNC,R6

22JUN6f'
12't249

TID
•••••••
••••••
TCSIIST TM

TCSII

15MAR66
125632

BC
01
BC
TM
BC
TM
BC
01
TM
BC
MVC
SVC
DC
OC .
DC
SYC
DC

15NOV66
1256!15

LOAD IIAIT FACTOR
ADJUST
TEST 110

CHECK
CHECK
CHECK
CHECK

R9,TlOTIO

x,oo'

NOT
FOR
CSII
FOR

OPER
BUSY
STORED
ERRORS

PRINT-BUSY TOO LONG
AFTER TID

XL2'4410'
AL2CCTBUSY-8ASE+REG)
UNC,R6

BACK TO PROGRAM

CSII STORED ROUTINE
HCSII+4CR13),X'02'
NONE, TCSII
SIiITCH,X'40'
UNC,MISSDE
NSIICH,X'lB'
MIXED,TOVEND
SIlITCH,X'SO'
ALL,TDVEND
SWITCH,X'BO'
HCSIi+4CR13)· ,X '08'
AlL,CECOE
CSCSIIC8J ,HCSIICR131
X'OO'
X'AO'
x'Ol'
AL2IBLANK-BASE+REGJ
X'DO'
XL2'440F'

TEST FOR UNIT CHECK
BR. IF NO UNIT CHECK
SET UNIT CHECK SWITCH
TEST IF FROM RTN 9 OR 12
BR. IF FROM RTN 9 OR 12
CHECK FOR FIRST TIME THRU
CHECK FOR DEVICE END
SET SIlITCH
TEST FOR CHANNEL END
$AVE CSII

PRINT-NO· CHANNEL' END

:'"

l'

,.

.~~

i i
10
F838-3 I~
PAGE ....____
itA- l

._--_ .... _--------

0 10 00 0 0·0 0 0 0 0 0 0 0

o qoooooooooooooooo
i
&)
,.;

'. I~.

IBM MAINTENANCE DIAGNOST.IC PROGRAM

..
,
. "

Ilt03 CARRIAGE FUNCTION TEST

Ii

0016CA
0016CC
001602
001606
0016DA
0016DE
0016EO
0016El
0016E2
0016E4
0016E6
0016ES
0016EA
0016EE
0016F2
0016F6
0016FA
0016FE
001702
001706
00170C
001710
001714 '
001718
00171C
001722
001724
001725
001726 .
001728
00172A
00172C
00172E
001734
00173S
00173C
001740
001744
0017lt8
00174C
001752
001754
001755
001756
00175S
00175A
00175e
00175E
001764
00176S
00116C
001110
001774
00177S
00177C
0017S0
0017S4
00178B
0017SC
001790
00179..
.001798
00179A
001798
00179C
00179E
0017AO
0011A2

FAll
D2 01 o 040 F 9EA.·
41 FO F· 6EE
91 0 .. o 044
47 80 F 66E
OA DO
AO
01
F2FO
OA DO
440F
FAll
47 FO F 66E
91 02 0 044
47 80 F 106
96 40 F BAS
91 IB F 424
47 10 F SE2
47 FO F 764
02 01 F 98C F ·,eE
92 00 F 982 .
91 04 D 041t
47 10 F 131t
1t6 90.F 66E
D2 07 F 9EA D 01t0
OA DO
AD
01
F2FO
OA DO
41t0F
FA91
02 07 D 01t0 F 'EA.
91 40 F BAS'
41 10 F 764
91 0' F 421t
1t7 10 F 286
91 10 D 01t4
4780 F 764
D2 07 F 9EA D DItO
OA DO
AD
01
F2FO
OA DO
441C
FAAl
02 07 D 040 F 'EA
91 40 F' BA8 .
47 SO F 188
41 40 F CCO
50 40 0 04S'
91 09 F 424
1t7 10 F 23E
91 12 F 424
47 10 F 336
41 FO F 5FIt
91 12 F 421t
47 10 F 336
91 Olt F 8AS
47 SO F iAIt
OA DO
AO
01
F2FO
OA DO
44DF
FA61

22JUN65
DATE
10JUN65
EC
124255
124249
L-_,~ ~ .. "._.4--"_._~ .. ' .. ' ,.,.:.._._.....
,

PIN 8lt0213
PAGE
5

DC
MVC
Be
eEeDE . TM
Be
sve
· DC
DC
DC
SVC

· DC
'DC
BC
TDVEND TM
BC
(11

MISSDE TM
Be
BC
MVC
TDVE
MVI
TM
Be.
Bt.T
NO~DTMve

SVC
· bC

DC
DC
svc
DC.
DC
MVC
DEDONE TM
8C
DE8USY TM
.
BC
.TM
BC
MVC
SVC
DC
,DC
DC
SVC
DC
DC
MVC
nODK TM
BC
lA
ST
TM
BC
TM
BC
BC
SKIP1 TM
BC
TM
Bt
SVC
DC
DC
DC
SVC
DC
DC

1SMAR 66
125632

UNOV66
12!16!1!1

Al2ICNCE-&ASE+REGI
HCSWIBiRI31,CSCSW
UNC, TDVEND.·
HCSW+4IR13I',X i 04' ,
NONE,n0T.10 ' .
X·'D.O'··.
X'AO'
'X'Ol'
AL2IBLANK-BASE+REGI
X'DO' .
"
Xl2'440F-

1403 CARRIAGE FUNCTION TEST;
','

. REstQR£ C511
TE,~TFOR

DEVICE END

. PRINT'-O!=V'ICE END

Al2ICDEE~R-8ASE+REGI

UNC, TlOTI 0
HCSW+4IR13.1 ,X '02'
NONE, TDVE
SWlTCH,X'40'
NSWCH ,x 'lB'
; MIXEO,DOSNS
UNC, TIOOK
. QUTSNS+9(2) .XX
SAVSNS.X'OO' .
HCSW+4IR13I,X'04'
. All, DEOONE .
R9,TIOTIO
eSCSW(8),HCSWIR131
X'DO'
X'AO'
X'Ol'
Al218lANK-8ASE+REG)
X'DO'
Xl2 '1t40F' .'
AL2ICNDEND-8ASE+REG)
HeSWI8,R131,CSCSW
SWITC.A,X'40' '
All,noOK'
NSWCH.X '09.',
All,DECIDE
HCSW+4IR131;X'10'
NONE,TlODK
CSCSWISI,~CSWfR13t

TEST FOR UNIT CHECK
BR. IF NO UNIT. CHECK
SET UNIT CHECK.SWITCH
. SEE IF FROM RTN 9 DR 12
GO: 1SSUE SEttSE
GO ON IF NOT
CLEAR SENSE PRINTOUT
CLEAR SENSE SAVE AREA
'. TEST FOR DEVICE END
8R. IF RECEIV~O DEVICE END

1'1

SAVE tSW

PRINT-NO DEVICE ENO
. RESTORECSW
.TESTTO 'SKIP BUSY CHECK
BR. IF SWITCH ON
. ,BR. 'IF 'FRDM RTN 1
TEST FO~ BUSY
8R. 1 f 'NOT BUSY
.' SAVE CSW

X'DO'
X'AO'
X'Ol'

00 17 A4
0017A8
0017AC
0017BO
0017B4
0017BS
0017BC
00 17 CO
0017C4
0017C8
0017CC
001700
001706
00170A
00l70E
0017E4
OOl7ES
0017EC
0017FO
0017F4
0017FS
0017FC
OOlT.FE
OOl7FF
001800
001802
001806
00180A
00180E
001812
001816
0018lA
0018lE
001820
001821
001822
001824
001826
001828
00182A

91 80 F 8A9
41 80 F 106
95 Al F C80
47 40 F 18C
95 01 F C80
41 40 F lC4
96 04 F BAS
47 FO F. 7C8
96 OS F BA8
91 02 F CBO
47 10 F,106
02 00 F BAA F AE5
95 01 F CBO
47 60 F lE4
02 09 F BB9 F 821
91 EO F BA9
4180 F 80E
94 00 F BA9
94 OF F 8A8
91 FE F CC5
41 80F 802
OA DO
CO
01
F2FO
41 40 F CB8
50 40 0 048
41 FO F SOC
91 OS F BA8
41 80 F 802
91 01 0 044
41 10 F 8D2
OA DO
AO
01
F2FO
OA DO
440F
FA61
01 F6

00182C
001830
001834
001838
00183C
001840
001844
001848
00184C
001850
001854 .
001858
00185A
00185t
001850
00185E
Oi1l860
00186 ..
001868
oo186A

58 9E
88 90
90 00
41 80
46 90
91 FE
41 50
91 04
47 80
91 01
41 80
01 F6
OA DO
64
01
F2FO
91 80
47 80
OA DO
EOOF

Al218lANK~BAS~+REGI

X'DG'
.
Xl2'1t41C'
Al2ICDBUSY-BASE+REG)
HCSWle,R131,CSCSW
SWITCH,X'ItO'
NONE.SKIP1
RIt.CCW3
RIt,HCAWIRl31
NSWCH,X'09'
All,CKIT
NsweH,X'12'
All,GOTST'
UNC.SIOSIO
NSWCH,X'12'
All,GDTST
SWITCH ,x '04'
NONE,SKIP2
X'DO'
X'AO'

PRINT UNIT BUSY AFTER DEVICE END
RESTORE CSW
TEST'UNIT CHECK SIiITCH

TEST IF FROM RTN 1
BR.· TO CHECK I F FROM RTN 1
TEST IF FROM RTN 2
GO TEST FOR UNIT EXCEPTIDN
TEST IF FROM RTN 2
GO TEST FOR UNIT EXCEPTION
NO NINE HOLE

X'OP

Al218LANK-BASE+REG)
X'DO'
X'440F' ,
AL2CCSKFAL-BASE+REG)

. piN 840213
. PAGE' ·5A

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PRINT· SKIP FAILED
Jt

;f

I

10
F838-3
PAGE
5 .~
·----------------~)L

DATE
EC

10JUN65
124255

0 198
0 004
C 000
F 840

F 834
F CC5
F 85A
F BA8
F 188
F CC5
F 85A

F CC5
F 86E

SKIP2

TM
BC
MVC
SPSUP CLl
BC
MVC
SPACE TM
BC
NI
NI
TM
BC
SVC
DC
DC
DC
BYBn LA
ST
BC
TSTCK TM.
BC
TM
BC
SVC
DC
DC
DC
SVC
DC
DC
SIOFIN BCR

SWITCH+l.X'SO' •
NONE. SP.SUP ,
CCW1,X'Al'
lD,NITM
CCWhX'Dl'
lO.TWTM
SWITCH.X '04'
liNC.FTE
SWITCH,X'08'
CCW1,X '02' .'
ALL,SPSUP
PRINT(14) ;CCHAN
CCW1,X'01'
UNEQ,SPACE
PRINT+l5110hCOKXX
SWITCH+l'X'EO' .
NONE,TSTCK
SWITCH+liX'OO' .
SWITCH,X'OF'
CCW3+5,X'FE' .
NONE.BYBYl
X'DO'
X'CO'
X'Ol'
Al218lANK-8ASE+REGI
R4.CCW2 .
R4.HCAIIIR13.
UNC,SI01
SWITCH,X'OS'
NONE.CHANOF
HCSW+4IR13).X·01'
All,CHANOF
X'DO'
X'AO'
X'OI'
AL2IBLANK-BASE+REGI
X'DO'
X'440F'
Al2ICSKFAL-8ASE+REG)
UNC.R6

SRL
TID
BC
BCT
BILlF ·TM
BC
TM
BC
TM
BC
8CR
HDR
SVC
DC
DC
DC
TSAVBL TM
BC
SVC
DC

R9,4
O(R12)
CCO.BILlF
R9,TS
CCW3+5.X'FE'
ANY,HDR
SWITCH.X'04'
NoNE.SKIP1
CCW3+5,X'Ol'
NONE,HOR
UNC,R6
X'OO'
X'64'
X'OI'
Al2IBlANK-8ASE+REG)
CCW3+5.X'80'
NONE.INTREQ
X'DO'
Xl2 'EO.OF'

NITM
TWTM
FTE

TM
BC
CLl
BC
CLl
BC
01
BC
01

CHECK FOR SKIP FLAG
GO TO SPACE SUPPRESS
CHECK FOR TEST HOLE

SET NINE SIiITCH
SET TWELVE HOLE ·SIIITCH
CHECK FOR IMMEDIATE OP
GO TO SPACE SUPPRESS
CHECK FOR SPACE SUPPRESS
GO TO IMMEDIATE SPACE CHECK
MASK OUT FAILED
CHECK FOR SPACE IMMEDIATE
CLEAR SWITCH
RESET SWITCHES
SEE IF ANY SENSE INFO

SET UP CAW
BR. TO SIO
CHECK FOR TWELVE HOLE SWITCH
GO PRINT BLANK
TEST FOR UNIT EXCEPTION

PRINT SKIP FAILED
BRANCH BACK TO MAIN PROGRAM

•••
•
.•.••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
TID SENSE ROUTINE
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
nOSEN l
R9.WTIR14)
LOAD WAn FACTOR
TS

22JUN65
15NOV66
15M"R66.
12..249
125632
125655
....._ _.__ .__ ,.. _ .. _ _......;.._......_......i"i..:..

~:.-._..,..

ADJUST
TEST 1-0
BR. IF CLEAR

TEST FOR ANY SENSE INFO
GO PRINT HEADER IF ANY SENSE
IS CHAN 9 EXPECTED
BR. IF'NO CHAN 9 EXP£CTED
IS CHAN 9 IN SENSE BYTE
BR. IF NO· CHAN 9 EXPECTED
RETURN VIA' REG 6

, PRINT:-COMMANO REJECT

.10
_ _- ' - _

PAGE

FU8-3
SA

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN

PAGE

B40,213
6

1403 CARRIAGE FUNCTION TEST

1403 CARRIAGE FUNCTION TEST

00186C
00186E
001B72
001876
001878
, 00187 A
00187C
001880
001884
001886
001888
00188A
00188E
001892
001894
001896
001898
00189C
0018AO
0018A2
001BA3
0018A4
0018A6
001BAA
0018AE
0018BO
0018Bl
0018B2
0018B4
0018B8
0016BC
0018CO
0018C4
0018C6
0018C7
0018C8
0018CA
0018CC
0018CE
001800
001802
001806
00180A
00180C
001800
00180E
0018EO

FA21
91 40
47 80
OA DO
EOOF
FA31
91 20
41 80
OA DO
EOOF
FA41
91 10
41 80
OA DO
EOIO
FA51
91 08
47 80

DC'
INTREQ TM,
BC
SVC
DC
DC
BUSOC, TM
BC
SVC
DC
DC
EQCK
TM
BC
SVC
DC
DC
DlACK 1M
BC
SVC
DC
DC
DC
BUFCK TM
BC
SVC
DC
DC
DC
SENOK TM
BC
TM
BC
SVC
DC
DC
DC
SVC
DC
DC
BCR
CHANOF TM
8C
SVC
DC
DC
DC
BYBY
8CR

F CC5
F 81C

F CC5
F 88A

F CC5
F 898

F CC5
F 8A6

OA DO

EO
OB
FB41
91 04 F CC5
47 80 F 8B4
OA DO
EO
00
FMC

91
47
91
47

001BE2
001BE8
001BEC
0018FO
001BF4
0018FB
001BFC
001900
001904
001908
00190C
001910
001914 '
00191B
00191E
001924
001926
001928
00192A
00192C

04
80
01
10
OA DO
EO
01
F2FO
OA DO
COOF
FA61
07 F6
91 FE
41 80
OA DO
CO
01
F2FO
01 F6

F
F
F
F

02 01
41 40
50 40
9C 00
41 10
47 20
41 40
58 9E
88 90
90 00
41 80
46 90
92 00
02 00
02 00
OA DO
0001
098C
098C
02 01

F
F
0
C

BAB
78B
CC5
802

F CC5
F 8EO

F

F
F
0
0
C
F
F
F
F
F

•DOSNS

9EA 0 040
CCO
048
000
954
95C
936
198
004
000
914
90B
982
982 F CC5
98C F CC5

HOPE

START

DATE

/~

:{~

'" ,j)i'

() f}
;;I},

'-

I

l

TSTIO

GaT IT

SRl
TIO
BC
BCT
MVI
MVC
MVC
SVC
DC
DC
MVC

0 040 F 9EA

. 22JUN6li'
124249

15MAR66".,
J25632

{)
f) {) \;l,,'"

I:

\>',

CSCSWIB),HCSWIRI3)
R4,CCW3
R4,HCAWIRI3)
01R12)
CC3, I SNOOP
CC2,ISBSY
CCl,OHNO
R9,WTIRlIt)
R9,4
0lR121
CCO ,GOll T
R9,TSTID
SAVSNS,X'OO'
SAVSN5-( 1) ,CCW3+5
DUTSNS+9(1I,CCW3+5
X'DO'
,~L211 )
Al2(OUTSNS+9-BASE)
AL2 I OUTSNS+9-BASE I
HCSWI8.IU3I,CSCSW'

DC

10JUN65
124255

n

Al2ICCDMRJ-8ASE+REGI
CCW3+5,X'40'
NONE,BUSOC,
'X'DO'
XL2 'EOOF'
AL2ICINTRQ-BASE+REGI
CCW3+5.X· 20'
NDNE,EQCK
X'OO'
Xl2 'EOOF'
Al2ICBUSOC-8ASE+REGI
CCW3+5,X'10'
NDNE,DTACK
X'DO'
Xl2 'EOH}'
Al2ICEQPCK-8ASE+REGI
CCW3+5,X'08'
NONE ,BUFCK
X'OO'
X'EO'
X'08'
Al2IDATOUT-8ASE+REG)
CCW3+5,X'04'
NONE,SENOK
X'DO'
X'EO'
X'OO'
AL218UFOUT-8ASE+REG)
SWITCH,X'04'
NONE,SKIPI
CCW3+5,X'OI'
ALL,CHANOF
X'DO'
X'EO'
X'OI'
Al218lANK-8ASE+REG)
X'DO'
Xl2 'COOF'
Al2ICSKFAl-8ASE+REG)
UNC,R6
CCW3+5,X'FE'
NONE,BY8Y
X'DO'
X'CO'
X'OI'
AL2IBlANK-BASE+REG)
UNC,R6

MVC
lA
ST
510
BC
BC
BC

... ,

ec

"I

.. J

PIN 840213
PAGE
6A

IBM MAINTENANCE DIAGNOSTIC PROGRAM

f'),

PRINT-tNT REQUIRED

PRINT-"BUS OUT CHECK

BR. IF NO DATA CHECK
PRINT-EQUIPMENT CHECK
TEST FOR DATA CHECK
8R. IF NO DATA CHECK

TEST FOR BUFFER CHECK
BR. IF NO BUFFER CHECK

47
91
41
47
OA

FO
02
10
FO
DO

F 734

D 044
F 942
F 94B

44

IE
F964
90 00 C 000
47 10 F 948
47 FO F 8EB
45 60 F 62A
41 FO F 8E8
45 60 F 640
47 FO F BE8
40C1D6E340E405C9E3
40C3C8C5C30240
D60540C9E2E2E4C540
E2C5D5E2C5
00
40E2D5E240CIC3E340
E7El
E7E7

CHECK FOR NINE HOLE SWITCH
GO PRINT BLANK AND CLEAR, CHAIN FLAG

PRINT-SKIP FAILED

SEE IF ANY SENSE INFO

SAVE CSW
SET UP TO 00 SENSE
SET UP TO DO SENSE COMMAND
DO SENSE
BR. IF NOT OPERATIONAL
8R. I F BUSY
BR. IF CSW STORED
lOAD WAIT
ADJUST
DO TID SENSE
TRY AGAIN
CLEAR SENSE SAVE AREA
MOVE SENSE BYTE TO SAVE
MOVE SENSE TO MESSAGE
CONVERT FOR MESSAGE OUTPUT
CONVERT FOR MESSAGE OUTPUT
RESTORE CSW

'001990
001990
001999
0019AO
0019A9
0019BO
0019B9
0019CO
0019C9
001900
001909
0019EO
0019E9
0019EA
0019F3
0019FA
001A03
OOlAOA
001All
OOIAlA
001 A21
001A2A
001A31 ,
001A3A
00lA41
00lA4A
00lA51
001A5A
OOlAbl
001A6A
001A71
OOlA1A
001A81
001ABA
001A91
00lA9A
OOlAAl
OOlAAA

BC
TM
BC
8C
IMWEAK SVC
DC
DC
OC
PLEASE TlO
BC
BC
ISNOOP BAL
8C
I SBSY BAl
BC
SICK
DC

OHNO

40C4C5E5C9C3C54005
D6E3400607C509
C1E3C9D605C10360E2
C5E340E2E240FO
40E3D6400306060140
060540E2C90640
40C4C5E5C9C3C54061
40C3C8CI0505C5
0340C2E4E2E840E306
0640D30605C740
C1C6E3C50940E2C9D6
40
404040404040404040
40404040404040
4060C3E2E640E2E3D6
09C5C440C1C6E3
C50940E2C90640
40D5D640C3CBC1D505
C50340C505C440
40C3D604D4C105C440
09C5D1C5C3E340
40C905E309E540D9C5
DBE4C909C5C440
40C2E4E24006E4E340
C3C,8C5C3024040
40C508E4C9D704C5D5
E340C3C8C5C302
E202C90140404040C6
C1C903C5C44040
40C4C5E5C9C3C540C5
05C44040404040
40C2E4E2EB40E3D606
40030605C14040
40050640C4C5E5C9C3
C5 1,0 C505C440 /,O
40E405C9E340C2E4E2
E840C1C6E3C5D9

DC

UNC,DEOONE
HCSW+4(R131,X'02'
ALL, I MWEAK
UNC,PLEASE
X'OO'
X'44'

CLEAR
TRY AGAIN
GO PRINT NOT OPERATIONAL
GO PRINT DEVICE 8USY

C'ON ISSUE SENSE'
X'OO'
C' SNS ACT XX'

xx

C'XX'

DC

8R.
tS IT UNIT CHECK
8R. IF UNIT CHECK

X'lE'
AL2ISICK-8ASE+REGI
OIR12)
NCCO,PLEASE
UNC,HOPE
R6,SNOTOP
UNC,HOPE
R6,S8USY
UNC ,HOPE
C'GOT ,UNIT CHECK •

SAVSNS DC
OUTSNS DC

••
•••••••••••••••••••••••••••••••••••••••••••••*••••••••••••••••••••••••

••
CONSTANTS AND COMMENTS
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
CNOP 0.4
CNOTOP DC

C' DEVICE NOT OPER'

DC

C'ATIONAL-SET SS 0'

DC

~.

COMMENT NOT OPER

TO LOOP ON SIO •

C' DEVICE I CHANNE I ,

COMMENT BUSY

DC

C'L BUSY TOO LONG'

COMMENT BUSY

DC

C'AFTER

DC

C'

DC

C' -CSW STORED AFT'

DC
DC

C'ER SIO '
C· NO CHANNEL END •

"
COMMENT

CCOMRJ DC

C' COMMAND REJECT •

COMMENT

CINTRQ DC

C' INTRV REQUIRED •

C8USOC DC

C' BUS OUT CHECK

CEQPCK DC

C' EQUIPMENT CHECK' '

CSKFAL DC

C'SKIP

COEERR DC,

C' DEVICE END

COMMENT

CTBUSY DC

C' BUSY TOO LONG

COMMENT

CNDEND DC

C' NODEIIICE END,

•

COMMENT

CDBUSY DC

C' UNIT BUSY AFTER'

COMMENT

CSBUSY DC

cscsw

CNCE

sin'

..

COMMENT CSW'

•

FAILED

.,
..

It

f'vl

.

15NOV6li
U56!l!l

',jP'

001932
001936
00193A
00193E
001942
001944
001945
001946
001948 '
00194C
001950
001954
001958
00195C
001960
001964
001960
001914
001910
001982
001983
0019BC
00198E

In
"

ID

..

'v

PAGE

() f) :0
'J,J.

'-

,-,

101
i"",.1

0 ()

FB30-3
6

(r\\"~j;

DATE
EC

lOJUN65
124255

22JUN65
lZ4249

15MA,R66
125632

1!lNOV66
125655

F83B-3 ! fl
ID
6A \~
PAGE
J

iO :0 0 '0' iO ( 0 , 0 0 0 0 0 0 0 0 0 0 0
\i ','

ii

•

•

at

1

mitt'

H'

'MM

t

t

t

t

t

tit'.

1m 1 to

''''triWd. . . . tm'NliN'

t

t

_1 .w'....PH

t*!

·m.r..
" ..'....""...m
........
_ ...
ttt_·_·ftM
........_ _ _ _ _

rdl_

011'_*_ _ __

....
, . . . . . .'_ _ _ _ _

000000000000000000
\

!

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 81t0213
PAGE
1

1403 CARRIAGE FUNCTION TEST·

001AB1
40C4C5e5C9C3C540C5
OOlABA
05C44040
00lA8E
C904D4C5C440
OOlACft
4005D640C3E2E640C1
OOlACO
C6E3C50940C904
OOlAOft
04C5C4C9C1E3C540D6
OOlAOO
01C509CIE3C906
00lAE4
05
00lAE5
404040ftOftDC3C8C105
OOlAEE
05C5034040
00lAF3
E202C90140E30640
OOlAFB
E6D9C9E3C540
001801
E201C1C3C540
001801
E2D1C1C3C540E2E401
001810
0109C5E2E24040
001811
4040C6CIC903C5C440
40
001820
001821
D60240E1E1E1E1E1El
00182A
4040
00182C
40E2E30360E2C5C3E3
001835
C9D60540C2E8Dl
001 B3C
CIE2E2C5C4
001841
40C4CIE3C140C3C8C5
00184A
C3D2
00184C
40C2EftC6C6C50940C3
001855
C8C5C3D2
001859
090909090909
00185F
1111111119191919
001861
0808080813131313
00186F
18181818899199A1
001811
A98189C1C90109El
00181F
889398A3A8B388C3
001881
C8030BE301090109
00188F
0000000000000000
001891
0000000000000000
00189F
0000000000000000
0018Al·
00
0018A8
0000
0018AA
001C40
001C90
001C90
00003FFF
001C94 .
00000001
001C98
00000036
0000 .
001C9C
001C9E
001C9E
01 00
001CAO
0009
001CA2
001CA2
01 00
001CA4 :
0019
001CA6
001CA6
01 00
001CA8
0001
OOlCAA
406140C5
001C80
00 OOlBAA 0000 0084
001C88
09·001BAA 0000 0084
OOlCCO
04 001CC5 0000 0001

000000
000001
DATE
EC

I

}

IBM MAINTENANCE OIAGNOSTIC PROGRAM

PIN 840213
. PAGE
·711

11t03 CARRIAGE FUNCTION TEST
DC

C! DEVICE END

COMMENT

CIMMED DC
NOCSII DC

C'IMMEO '
C' NO CSII AFTER 1M' .

COMMENT

De

C'MEOIATE OPERATIO' .

COMMENT

eCHAN

DC
DC

C'N'
C'

CSKIP
CIIRITE
CSPACE
CSPSUP

DC
DC
DC
DC

C'SKIP TO '
C'IIRITE '
C'SPACE '
C'SPACE SUPPRESS

DC

C'

COKXX

DC

C'OK XXXXXX

STL

DC

000002
000003
000004
000005
000006
000001
000008
000009
OOOOOA
000008

CHANNEL
COMMENT
COMMENT
COMMENT

oooooe

000000
OOOOOE
OOOOOF
ODD lAO
000198
001000
OOFOOO
000184
OOOOOF
000008
0000.01
000005
000001
000008
000004
000002
000001
000001
000040
000048
000008
000004
. 000002
.000006

FAILED
MASK FOR SPACE SUPPRESS

C' STL-SECTI ON 8YP' .

DC
DATOUT DC

C'ASSEO'
C' DATA CHECK'

8UFOUT DC

C' 8UFFER CHECK'

CCTA8
CCTAB1
CCTA82
CCTA83
CCTA84
CCTA85
CCTAB6
CCTA81
CCTA88
CCTA89
. SIOOIS
SIIITCH
PRINT
RDAR

DC
X'090909090909'
DC
X'1111111119191919' .
DC
X'0808080813131313'
DC
X'18181818899199A1',
DC
X'A98189C1C90109E1'
DC
X'889398A3ABB3BBC3'
DC
X'CB03DBE301090109'
DC
X'0000000000000000'
DC
X'0000000000000000 , .
DC
X'0000000000000000 , ...
DC
X'OO'
DC
X'QOOO'
os
150C
DS
80C
CNOP 0,4
M0050 DC
X'00003FFF'
C1 .
DC
X'OOOOOOOI'
C54
DC
X'00000036'
UNTAB DC
X'OOOO'
CNOP 0,4
BCR
0,0
CX9
DC
X'0009'
CNOP 0,4
BCR
0,0
CXI'
DC
X'0019'
CNOP 0,4
8CR
• 0,0
CXI
DC
X'OOOI' .
CSLASH DC
C' IE'
CCll1
CCII
X'00',PRINT,OO,132
CCII2
CCII
X'09',PRINT,OO,132
CCII3
CCII
X'04',CCII3+5,00,1

..•

CONTROL TABLE
CONTROL
CONTROL
CONTROL TA8LE
CONTROL TA8LE
CONTROL TABLE
CONTROL TABLE
SPARE CONTROL TABLE
SPARE CONTROL TABLE
SPARE CONTROL TABLE

R2
R3
R4
R5
R6
Rl
R8
R9
RiO
Rll
R12
R13
R14

R15
OMSS
liT

BASE
REG
OMOUT
UNC
NONE
MIXED
ANY
All
CCO
CCI
CC2
Ce3
NCCO
HCSII
HCAII
EQ
LO
HI
UNEQ

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
EQU
EQU
EQU
EQU
EQU
END

2
3
4

5
6
1
8
9

10
11
12
13
14

15

416

408
SECNO
X'FOOO'
436
15
8
1

5
1
8
4
2

1
1

X'40'
X·'48'
8

4

Z
6

PRINT AREA

CONST ANT ONE

CONSTANT NINE
CONSTANT NINTEEN
CONSTANT 1
SLASH
CHANNEL COMMANO TESTED
IIRITE CIMMANO AFTER IMME~OATE
SENSE COMMAND

•
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
EQUATES
•
•......................................................................
RO
R1

EQU
EQU

0
1

SETUP REG AS LOCATIONS

iJ'l

10JUN65
124255 ,

22JUN65
124249

15MAR66
125632·

15NOV66
125655

F838-3
10
PAGE
1

DATE
EC

10JUN65
124255

22JUN65
1242109

15MAR66
125632

15NDV66
12116SS

u..

. ID
F831-3
PAGE
7A )

·~.~.! .•. ,~ ... -

.... "".. -

.. ~"-- ...-"_\.....~-..... - " , , , -............. -~

"'- ................

·.... t

l

~,

I

I
IBM MAINTENANCE DIAGNOSTIC PROGRAM

I

PIN 840213
PAGE
8

j

1403 CARRIAGE FUNCTION TEST

l

POST:ASSEM8LY DATA.

I

IBM MAINTENANCE DIAGNOSTIC P.ROGRAM

1
1

F
FOOO

R15
REG

1

1

,

R5

1

6

R6

1
1
1

7
8
9

R7
R8
R9

1

2
1

1
1
4
4
1
1
1

1
8
2
2
It
It,
2
2
1
1
1

\.

8Z
Cl
OZ
EQ.
HI
LO
,NO
OK
RO
R1
R2
R3
R4

1

1
4
4

!:'

140E
1C94
15A4
8
2
4
1305
1302
0
1
2
3
4

1358
1834 .
llEA
198
198E
1

5
1262
1e98
101t8
8
It
2
1
1040
lCA8
1CAO
1214
17C8
185A
100A
A
8
C

TE
TS
TT

liT

XX

ALL

ANY
BK9
C54
CAW
CCO
CC1
eC2
eC3
CSW
CXl
CX9
009
FTE
HOR
ICM

rHo

R11
R12

I

1

0

R13

I~~ ;.\. <
1
DATE
EC. j

10JUN65
121t255

E

R11t

22JUN65
12~249

1406
1590,
159C
1112,
14EO,
1502,
1280
139A
14E8.

16
2
1

182C
1460
F

STL
T28
UNC

4

1000

1
1
16
4
2
8

12A2
1263
1200
1576
18EO
1C80

8
8

lCB8
1CCO

4
4
16
2
4
1
4
2
It
1
1

123E
12BE
1A11
1CA4
128E
lAO
1314
1234
188A
48
40

4'
4
4
4
1
2
1
4
1

18E8
151C
1236
UBE
7
1466
1000
17BC
8

1

1396
1936
lCItO
1346
100C

111E.
1264,
1386.
1648,
1726.
1822,
18A4,

1124.
129E,
138C,
164E,
172C,
1828,
1882,

112A.
12A4,
1392,
168A.
1756,
185E,
18C8,

1130. 1252
12AA, 134E
1398, ' 1618
16C4, 16CA
175C, 179C
186C. 187A
18CE, 18DE

1138, 110E,
12C2. 12CC.
. 14E4. lItEA,
1626. 163E,
1702. 1784.
18EO. 1932.
8ASE· 10FO. 10F8,
1252. 1258.
1309. 134E.
1398. 1618,
16CIt, 16CA.
175C. 179C,
186C, 187A.
18CE. 180E,
BK10
1296, 12AC
BK91
126A. 127E
8LAB.
12A4. 1280,
BSIO
1568
BY BY
1806
CClll
118E. 11C2.
155C • . 1564.
1706
·CCII2
1802
150C, 176C,
CCII3
187C, 188A,
1918. 191E,
CKIT
1778
CLR9
1276
CNCE
16CA
CX19 '1520
OECI
12ee
OMSS
0012
1364
EN09
12e2
EQeK
188Q
HeAIi
11CE. 1228,
HCSII
1246. 128E.
16ee. 1606.
174e. 175E.
HOPE
1950. 1958,
ITEM
ITRY
1210
LOOP
1626. 163A
Nceo
1106, 1210.
NEXT
158E, 15e6,
NIOU
NITM
1780
NONE ' 10E8, 1100,
146C, 14C8,
1692. 160A,
17E8, 17F8,
1880, 188E,
NOPB
1378, 13AO
OHND
18Ft
ROAR
SAVl
SOMF

llF6.
1330,
150E,
1654.
17CO.
193E,
l11E,
125E,
1351t.
162E,
16E2,
17A2,
U88,
1928,

1230,
136C,
153E,
168C,
180A,
1950,
1124,
1264,
USA,
1634,
16E8,
1800, '
1896,
192A,

123A,
13AC,
1558,
169A.
182A,
1958,
112A,
129E,
1386,
l61t8,
1726,
1822,
18AIt,
1946·

1276.
1474,
158C,
1602,
1858.
1960
1130,
12A4,
138C,
164E,
172C,
1828,
1882,

11FO
12AA
1392
USA
1756
18'E
18C8

11F2.
157A.

147C,
1582.

11t8E,
17AC,

14AA.
1784,

14C4
17C8

17FIt,
1898.
1CCO

1840,
18A6,

1850,
188C.

1860.
1802,

186E
18&8

1328,
1336.
16EE.
1816.
1960

1560,
15EO,
1710,
18E2,

1770.
168E,
171C,
192e,

1806,
1682,
172E,
1936

18EC
USA
1H4

124A,
14F6,
1748,
184C.
18AA,

1292,
159C,
1768.
1854.
1888,

1342,
1582,
1791t,
1861t,
1806

1374
1608
17A8
1872

I

1466.
14CC.
1546,
18E8,
1462.
15AIt.
122C,
15AO,
1800.
1460,

!

157E
1524.
1780,

1542
1528
123A,
17eo
1844,
11C2.
1138,
1106.
120C.
1908.
10FA.
128E.
168A.
111t1t.
lBEt,

1204.
15MAR66 '
125632

15A6
1788

158A

1466.
~4E8.

155C.
18EC
IItCC.
15AA,
132C.
15A4.
18EO,
1460.

llE2, 11E6.
15E8. 1640,
1830, 183C,
1346, 135C
183C
11EE
llE2, 1204.
1706
1272. 128A,
14AE. ' 1586.
1714. 1738,
181A, 18CO.
15BE, 1610,
1266, 127A
15CE
167E,
1600,
15Ft.
15F8.

Ii

15CA

1838,
167A,
1676.
1612,

1272,

1470,
151C,
1560.

1478,
1520.
176C.

147C,
1528.
1770,

1488,
152C.
1802.

148C
1542
1806

140E.
1586
14CE.
163E,
1954,
1478,

1ltEE,

1ItFA.

USA,

1590

140A.
1654.
195C
15CA,

IItOE,
168C,

1576,
182A,

1594
1858

15CE

11EE,
1666,
1900.

1204,
166A,
1904.

120B,
1682,
1910

1236,
1718,

15E4,

1666;

182C,

1900

12BA,
15C6,
1740,
193A
USA,

133A.
15FO,
1778,

1361t,
163A.
1780,

13A8,
16AA.
178C,

1662.

181t4

15EIt
182C

1492
1686
17CC

",."':'1'''':,,;:,

i

d..:';';;. '4~,

......."-

;~
'I
..

I

190C
18FC
18F8
18F4

\I

I
,I

12BA

I

1854
llCE.
1200.
110A.
1310.
1948
10FA.
1328,
16tC,
114C.
192C,
15EIt,

{

1224.
130C
110E.
15F4,
1101t.
1336,
1606,
175E.
1936
1666,

1228,

1324.

1328

1116.

1650,

1102,
166E.

110A.
1831t,

11EA
UFO

UCE,
1560.
16EE,
1770,

UE2.
15EO.
1110,
1806,

1228,
168E.
111C,
1816,

1246
1682
112E
18E2

182C,

1900

.!

~

1
~

II

1

1104
10FO.
1258.
1354.
162E.
16E2,
17A2.
1888.
1946
10FO

10F8.
125E.
135A,
1634,
16E8,
1800,
1896.

I

2
4
2
1
1
1
2
3
1
1
1

PIN 840213
, PAGE
8A

1403 CARRIAGE FUNCTION TEST

l

REFERENCES TO DEFINED SYM80LS.

1282
149C
16lA
16EA
1800

12C6

194C
1502
11CA,
1406.
16F2,
1812,
189C,

!~

.; ;

,I

15NOV66 '
125655

---------------"-

10
F838-3
PAGE
8 1!
"

' ~.

i

t

I

DATE
EC

10JUN65
121t255

22JUN65
124249

15MAR66
125632

15NOV66
125655

-----_

....

io

.•.

PAGE

F838-3

r-"

SA)

-"--~"'"-''.''-."'''''.'''''

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

..

~-,--" --.~

"

I
'1'

--

...

__

..,

"'-

.*

i

bet

~

I

II
,

I

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 840213
PAGE
9

1403 CARRIAGE FUNCTION TEST

II

I
!
\
i

i

!

16
4
6
It

1964
15DC
1512
1001t

3
4
6
16

1050
169E
1706
113A
1155
1171
119C
17 Cit
10El

16

16
16
4
1
1
2
2
1
4
16
2

I,

,I

I
,

,;

I
l

i

SICK
SI01
SKIP
SNSW -

"

10F4
1260
11FC
181t0
13BO
UFO

SRET
TCSW
TDVE
. TEll
TEL2
TEL3
TELlo
TWTM
U10P
UNEQ
ZOOM
BACK9
BEGIN
BILLF
BLABl
BLANK

1
I

'j

4
4
4
4
14 '
6
4
It
11
16

i

1106 BLOOP
1eA6 ' BUFCK
187C BUSOC
1802 BVBV1
lAE5 CCHAN
1859 CCTAS
1606 CECDE
1368 CLR12
IB21 COKXX
19EA CSCSW

8
lAF3
1
181t
6
18E2
4
1898
2
1331t
2
1506
1
100E
1
100F
141t0
8
4
1914
4
1336
4
1542
6
IItAO
5
1010
It
195C
16 ' 1425
,4
U94
1
7
4
lC90
4
1468
4
1478
4
147C
16
lAC4
6
171C
4
158A
1
11tZ4
1

4'

l8IlA

1640

CSKIP
DMOUT
DOSNS
DTACK
' END12
EXIT1
FLAGI
FLAG2
GOSKP
GOT IT
GOrsT
GRTER
IMMEO
INPSW
ISBSV
LOVLY
LRED6
MIXED
M0050
Nun
NEXTZ
NEXT3
NOCSII
NOGOT
NOSUP
NSIICH
PRINT

S8USY

IBM MAINTENANCE DIAGNOSTIC PROGRAM
1403 CARRIAGE FUNCTION TEST

191t6
122C,
1ltAE
11C6,
15C2,

1692
16F2
111E
1124
112A
1130
1788
10E4,
12 It 2 ,
10E8
1282
1015
1838
USA
10F8,
16C4,
185E,
1100
189C
1872
17F8
1700
11t78
16B6
13AC
17DE
16BA,
192C
1512

132C,

180A

126E,
15EC,

1286.
1636

1402,
U61,

1360,

14F2,
110A

1598,

1461,

1410,

15BA

15AE

1252,
16E2,
UCI,

18DE

11~(I"

131C,
1156,

1386,
179C,

162E,
1800,

1648
1822

16CC.

111C,

17Ut

114C,

115Et

18E2

12C6,

4
4
4
4
4
4
4
2
It,
2
4
4
4
1
2
6
4
2
4
1
1
13
16
16
16
8
8
8
8
8
8
8
8
8
16
16
16
4
6
16
16 '
16
16
16
4
6,
16
16
6

16FE
188E
136C

1214t
190C
1780,
1524

1224,

1314t

1324

11ec

Ilt92

18,F8
1398
158C
1622.
110A

11

16A2,

It,
It'
4
5
8
It
It
2
It
It
It
8
4
4
4
8
8
4

16FE

146C
1414
1618
15A6,
1220.
173C,
11t40,
1496,
14EE,
1530,
1594,
lC88
15FC,

15B2
12BE,
1174,
141t8,
1ItAO,
1ltFA,
1538,
15AO,

1318,
177C,
11t50,
14B2,
14FE,
1546,
15AA,

1368,
1188
11t62 ,
14BC,
1502,
154A,
1586,

161E,

169E,

16FA

1480,
IItCO,
1502,

l481t,
14CE,
1512,
1552,
110E,

1484
1ltDA
152C
1570
lCBO

l51tE ,

1100,

195C

-,
DATE
EC

10JUN65
124255

22JUN65
124249

PIN 840213
:9A
PAGE

15MAR66
125632.

15NOV66
125"5

. .

). ~

---_._-,._--

10 ' F838-3
PAGE
9

DATE
EC

lOjUN65
124255

1000 SECNO
1884 SENOK
1788 SK IPI
17A4 SK IP2
17E4 SPACE
1706 SPSUP
18FO START
14E8 STOSP
1682 T8USV
1356 TEL 1M
1764 TIOOK
180E TSTCK
1908 TSTIO
10EO UNIT1
1C9C UNTAB
12C6 VARV9
161E WHICH
12AO BACK10
1310 BACKUP
1308 BEGfN2
1458 BEGIN3
1B4C BUFOUT
-12F2 BUlVFL
lA41 CBUSOC
lA21 CCOMRJ
1B5F CClABl
IB67 CCTAB2
186F CCTAB3
IB77 CCTAB4
1B7F CCTAB5
IB87 CCTAB6
IB8F CCTAB7
1897 CCTABB
IB9F CCTAB9
!AAI C08USV
!A7l CDEERR
lA51 CEQPCK
1802 CHAN OF
lA8E CIMMED
1A31, CINTRQ
1A91 CNDENO
1990 CNOTOP
19CO ,CS8USV
lA61 CSKFAL
lCAA CSLASH
1801 CSPACE
IB07 CSPSUP
lA81 CTBUSV
lAFB CWRITE
1841 OAT OUT
173C DEBUSV
1286 DECIDE
1734 OEDONE
1058 EXNPSW
1018 EXOPSW
1131t GITOUT
1590 IMOATA
1942 IMWEAK
10Elt INITAL
186E INTREQ
1078 IONPSW
1038 IOOPSW
1370 ISGOOD
1954 ISNOOP
1435 LOVLVl
1070 MCNPSW
1030 MCOPSW
16FA MISSOE
22JUN65
124249

lCC8
18AA
1768,
1794
170A 17A8,

l8ItC,

14C8
1676
1342
1702,
17E8
1910
1106

1738,

1741

181A,

18CO

1538,

1552.

1881

ncc

128A
15FO
1292
1330
UFO
1309
18B2
1264
18B8
186C

175C
16E8
1896
1812,
14AO
187A
172C
1634
16ltE
1531t,
1508'
1482
1570
168A
lIt96
18A4
1242,
1714,
1112
157E,
193A
1200,
1864
133A
18F4
l37C,

11A2t

1828.

leCE

1740
1932

1586
13ot,

1It5C

139A

169A ~
15MAR66
125632

.- -' ---"-"--"-

tv
15NOY66
125655
- , - - - - . -._,-"

10
F838-3
PAGE
9A

1

'I

~

...
1
IBM MAINTENANCE DIAGNOSTIC PROGRAM

PIN 8402131
PAGE
,10 ,

1403 'CARRIAGE FUNCTION TEST

2
4'
11

1394 NOPR08
14FE NOREST'
1983 OUTSNS'

8

1068 PGNPSW
1028 PGOPSW '
1948 PLEASE
1ltEE RESET5
121A REWORK
118C SAVOEV
1982 SAVSNS
1656 SCSWST
155C SETCAW
1508 SI08EG
18Al SIOOIS
182A SIOFIN
15F4 SIOSIO
162A SNOTOP
1360 SPHERE
llE2 SQUARE
11C6 STRTIO
1060SVNPSW
1020 SVOPSW
1BA8 SWITCH

8
4

It
4

2
1
4
4
4
1

2
4

2
4
4
4
8
8

2

4:
4
4
4
4
4
4

,.
4:
2

16
16 '
1

IBM MAINTENANCE DIAGNOSTIC P,ROGRAM

PIN 840213
PAGE
lOA

F8381403 CARRIAGE FUNCTION TEST

1314
14EO.
1134,
1928.

14EA,
125E.
192A

14F6
12A4,

PERIODS CORRESPOND TO 8lANK COLUMNS.
13'4.

1392,

1106,

191E

COlS.

1 THROUGH 20

COlS.

21 THROUGH 40

BTXT.AAA •• AB •• AA88AA
9
YQY Y9 Y9 9QY
999 9
9
Z9

AAAAAAAAAAOAAOAAAAJD
YYYYVYYYY9+Y99YYYY9Q
999999999 9 9999 Z

AAAAAAAAAAAAAAAAAAAA
YYYYYYYYYYYYYYYYYYYY
99999999999999999999

AAAAAAAAAAAA83830002
YYYYYYYYYYYY
999999999999

BTXT,.AA8 •• A8 •• AAAAAA ,
9'
YQ9 Y9 Y9YYYY
99
9
9 9999

AAAAAAAAAAAAAAAAAAAA
YYYYYYYYYYYYYYYYYYYY
99999999999999999999

AAAAAAAAADAAAAAAAA~A

AAAAAAAAAAAA83830003
YYYYYYYYYYYY
999999999999

1640,
1672,

1184
1954

BTXT.AAO •• AA •• AAAAAA
9
YQ+ YQ Y9YYYY
99- 99 9 9999

AAAAAOAAAAAA ••••••••
YYYY99YYYYYY
9999 999999

110E.

1622

1218,
148A,
1656.
1164.
llFO,
165A,
161Ei
1608,
1662
1682,

l21C,
14A6,
165E,
1190,
UtOE,
167A
16A2,
1610,

13IC.
1518,
1696,
1144,
1848,

1320,
156C,
16A6,
llBC,
1884

BTXT.AAS •• A8 •• AACAAA
9
YQ8 Y9 Y90YYY
99
9
999

16AA,
161A

1602

1604,

16EA,

1118

168E TtSWST
16EE TOVENO
165E TIOBEG
182C TIOSEN
166E TIOTIO
1860 TSAVBl
14AA TSPACE
149C
120C TSTClR
1230,
148E TWRITE
10E2 UlAOOR
13C4 UNEXUC
134E,
13F1 UNEXUE
1258,
1000 XF8383
NO ERROR DETECTED,

',110C,

1914~

1918

133E,
15D8,
16AE,
llC4.

1370,
1604,
16F6,
llE4'

13A4
160C
1134
llEC

, •••••••••••• 83830004

A.OJGA04BOJNCU80BOJA
- ZZY ~Y9Q88 8-Y9
9 9 199 9

20lEA.JFGA1FQGHOOSDO
BQ- Z-ZY 99QR+ 811.+
99
9

OAA010GA14.083830005
OQ8+ QZV 9 +
Z
0

BTXT.AJQ •• A8 •• AA1080
9
Y99 Y9 Y9 Q89
9
9 09

4l12BOJM1E80JT1ABOAP
98 88-Y8 R8-Y8 R8-Y8
9 99 9 9 9 09 9

1D8B8A9DGC.INSERT.TE
Q80-Y Y90
99 9
Z

ST .CARRlAGE.83U0006

BTXT.AJ+ •• A8 •• AATAPE
9
Y9
Y9 Y9

T.RESTORE.CARRIAGE.T

O.CHANC.l~CHECK.FOR.

CHANC1.HOlET83830007

9

9

1236

9

~

8

8

8

INE.PAST.BRUSHES.MAK

E.PRNTR.RDYT.PUSH.IN
B

TERRUPTAGGB.83830008
YQO9ZZ

9

'DAAAOOGA 1S+NAHEAOAGO,
QQ-Y 9ZY
YYZQY+YZ+
ZO
9 9 9 -

1FDAOAGOIFHEAHHAAEEA
OY+YZ
RQ9-0QY9QY
9 9
9 9

OAFA1KBADDG083830009
+YZQ ,Y-YQOZ
9
9 9Z-

8TXT.AJ8 •• A8 •• AA54GA
9
Y9
Y9 Y9 9Y

AACHEAOUHFAHHAACEAOA
9Y99ZQ RQ9-0QY9QY+Y
9 9

G026BC4.8GCOBOCRBA4U
Z+ ,9~Y -800-+00-8 9
9Z
Z 9

AJ4.+NAHE-5D83830010
zy
YYZZ 0
9
9

80FA20G02MEA9BG-2FAA
8 ZQ 8Z 9-9 OZ 0-9

ODGA2280JA2080M33180
-ZZY 88-Y9 8-Z9 8-

SC9C800A22B083830011
88 08-+Q ',-+
9 9 9

9

9

9

9

9

BTXT.AKA •• A8 •• AAG020
9
Y9Q Y9 Y9Z 8
9 Z

9

9

9

0

9

9

8TXT.AKQ •• A8 •• AA2KBA
9
Y9Z Y9 Y9 Z-Q
9

9

9

9

2lAAODGA2MG02FB02K8l
Z-Y 9ZQ 9Z Q-9 Z-9
9

9

9

9

2lG02-AA9BGA2FAAODGA
ZZ
-9 OZQ :-9-ZZY

0

2J8S2K80M33183830012
Y-8 08-Z9
9

9

8TXT.AKJ •• A8 •• AABOMJ
9
Y9Y Y9 Y98-ZY
9
9
9 9 9

20800C9C8M2KKA2J3EAA
-8-+8 O-Z 0 9
9-Y

BTXT.AKQ •• A8 •• AA.9.D
9
Y9
Y9 Y9
9
9
9

ETECTED.IN.SENSE.BYT

••• CHAN.9.DETECTEO.O

KNOA8AOHEAOU83830014
Y9Y9RZO
990

8TXT.AlA •• A8 •• AAEAOA
9
Y9Q Y9 Y9QY+Y
9 9 99 9 9

8l4.8K4U8GCQ80CRAJ4.
-0 -9 9-8Qo-+QOZY
9Z
Z

+NAHE-5DG03ABOAAOOGA
YYZZ QZ 08:-9-ZZ0
9
999
9

30A.CQGA3F808383001'
+- QOlY 11.-+ '

BTXT.AlH •• A8 •• AA3HBO
9
Y9Z Y9 Y9 11.8-

MV3DBOSC9C800M3ABD3H'
Z8 8-88 08-29 Q-Z II.
9 9'9 9
0

AAOOGA3MBA4UG034A.CQ
-Y 9ZQ 9-V 9Z 9- QO

GA3DB03FKA4113830016
IY ....+- 9,9

9

9

!

8

8TXT.AJO •• A8 •• AADOAJ
9
Y9+ Y9 Y9QOZY
9
9
9 Z-

9

I

9

BTXT.AJH •• A8 •• AA.1.l
9
Y90 Y9 Y9

IN ABOVE ASSEMBLY

YYYYYYYYY9YYYYYYYYYY
999999999 9999999999

....... .......•....

9

138C
129E

61, THROUGH 80

214~125655 •• B3830001

llF6,
15F8,
13A8
llCA
ll06,

1286~

COlS.

••••••••••••••••• 840

194C
153E,
1116

41 THROUGH 60

83 •• AAAA.ADH ••••••••
YYQY Y8
9999 99

193E.
1ltEIt,
124A
110E.
123E.
1600
150E
1516

1558

COlS.

8ESD •••••• AA •• AAXF83
9
YQ Y9
99 9

9

9

,9

OOGA2MBA4UG024KA2J20
'9ZQ 9-Y 9Z 9 9
9

9

G02F.NO.CHAN83830013
Z Y

9

9

9

-

Z

Z

,N

DATE
EC

10JUN65
124255

22JUN65
124249

15MAR66
125632

lSMOV66
125655

10
F838-3
PAGE
10

------.,.;.---------.:...._-------_._.

,

'

,

DATE
EC

10JUN65 ,22JUN65
124255
124249

15MAR66
125632

, ::

ISMOV66
125655

ID
f838-3 i, )
'AGE
10A'--'

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

c

000000
IBM MAINTENANCE DIAGNOSTIC PROGRAM
fB3B

PIN 840213
PAGE
11

IBM MAINTENANCE DIAGNOSTIC PROGRAM
F838

1403 CARRIAGE FUNCTION TEST

PIN 840213
PAGE
llA

1403 CARRIAGE FUNCTION TEST

8TXT.AP8 •• A8 •• AAGA1M
9
V99 V9 V9lQ I
9
9
9 9

AA4UGA2FAAODGA7MKG9K
-8 9ZQ O-Q-ZIV Z 9 V
9
9
9
9

0.BOJA20BODMBJKGO.9K
- 8-V9 8-Z8QO 9- V
9
9 91
9

A.CQGA7HA.D083830034
- QOIV 01 Q+
I
Z

8TXT.APO •• A8 •• AA+EAH
9
V9+ V9 Y9 8VZ

AA4UGA26AK4UGA36G054
-8 9IQ 8-9 9IQ .91
9
9 9
9

AK4UGA36ADCQGA7M80JA
-9 910 9-9QOZV 08-V9

20BODGB/AACR83830035
8-ZSQ -VQO
9
9Z
1

BTXT.APO •• A8 •• AAGA10
9
V90' V9 V9IV
9
9
9

EJOAG.70EJDAG.1DFDCQ
-OQQZ Q- 001
-9QO
lO
0 10
I

G07HFHCQABOAGA70KECK
Z -9QO-9QQZQ
8QV
I
lO 9
9Z

BVEADAG-7UKA83830036
Q -9QQZ
8
Z
ZO
9

AAAACAGGEAOU83B30020
VVV99VQQZQ
999 9ZZ 0

BTXT.APS •• AB •• AACICI
9
V98 V9 V9QOQ9

ASCRGA8FDACRDGCQAFOE
-8QOZV 8-YQO-8QD-QQ
Z
9 9l 9Z ZZ

GAB8800A20A.DH+EAHGO
ZV 98-+9 Z Q08YZZ

5DAHCQGA8KAAB3830037
Q-9QOIY -9
9 1

CGCJB.DAB.CKKBClCKDA
ZZQBZ QQ- QY OQVQY-Y
Z
ZO I
I Z 9

CRABOAGA4JKEB3B30021
QO-9QQZQ Y 9
Z
ZO 9

8TXT.AQQ •• AB •• AAODGA
9
V99 V9 V9-ZIQ

8K80JA20BODGB/G6HFAH
8-V9 8-18Q 9 RQ99
9
9Z

HAADEAOAGA8.FA84AFOE
OQV9QV+YZV ZQ 9-QQ

9

G04KKECKBff.CRAADAGA
I V 9QVQQ- QO-VQQZQ
Z ZO Z
ZO 9

5KKECACAH.ACB.CGFOCG
9 9QQ090 Y9Z QO- QO
ZOZ
9
1- Z-

ABDAGAltVL OA'-83830022
-9QQZY BRZ
ZO
9

8TXT.AQ+ •• AB •• AAAAOE
9
V9
V9 V9-9Q
999
Z

GA8KG680MA20AADEGA8W
ZV 89 8-19 -VQ IV 8
9
Z

BOSGB/A.DEGA84BOSG81
8-88Q9- Q IY 88-88Q9
9 91
Z
9 91

AJDEGA8BBOSG83830039
-YO ZY VB-88
9Z
9 9

8TXT.AMO •• A8 •• AACHAD
9
V9- V9 V9Q-9
9
9
9 I

OJGA4FA-CDJFGJ4FG040
ZIY QZ QQ8RZV QZ V
9 109 9 I
9

QDG04FA+DUADOJGA4FA+
991 QZ QB-9 IZV OZ
I Z9
Z

DJBECDKACEC083830023
QV- 00 RQQQQ
Z9 ZO OZOZO

BTXT.AQH •• A8 •• AA8AAA
9
V90 Y9 Y9QZ-Q

80SCCAADDEGA8DBOSECD
8-88QI-9Q IY 08-88Q8
9 9l
Z
-9 91

ADCQGA7HAADE83830040
-9QOlY 0-9Q

9

DEGA8H80SABAAHOEGA80
Q ZV -8-8QQR-9Q IV 0
Z
9
91
Z

8TXT.ANH •• A8 •• AAKB+A
9
V99 V9 V9 9 V
9
9
9
9

DKG05MKGCA83FACRH.AC
QVI 8 9QQQ -YQOO V9

C.DMGJ5BB.OJB.CBFOCB
B QOZV Z8 QVZ QQ- OQ
I 9
Z
ZO ZO

8.80KABPCBG083B30024
- QZ VQIQQZ
Z 9Z 10

8TXT.AQO •• Aa •• AAGA8K
9
V9+ V9 V9IQ
9
9
9
9

80SA20800GB/G6AFDEGA
8-89 8-+8Q 9 -OQ ZV
9
9 9Z
ZZ

8S800A20G6KG9KO.A.DO
88-+9 9 9 V- Z Q+

+EAHDAOAGA908383004l
8VZQV+VZQ R
9 999

BTXT.AN ••• A8 •• AA40C.
9
V9
V9 V9 V8

DQB.CBFOCBBICIKA80CI
QOZ QQ- QQ- QO 9QIQO
Z
10 ZO Z- I Z-

G040A.DA+EAHEADAG-5F
Z YZ QQ BYI-9QQZ R
ZO
0
9 10 9

FJCRKQCKCGE-83830025
-VQO 9QYQ9I
9Z
I I

BTXT.AQ8 •• A8 •• AAGJ9M
9
V9
V9 V9ZV 8

G.96HFAHHAAOEAOAGA9M
I 9RQ9-0QY9QV+VIV 9
999

FA9H8A98KA9BDEKA9DOE
ZQ 9-V 0 V OQ Y YQ

BTXT.ANH •• A8 •• AA5QEA
9
V9R V9 V9 '-9
909
9

DAGA5AA8DAGA5Al+G05D
OQZV Q-9QQZQ Q8 Z 10
ZO 9 9

l+DOA-CHAOOJGA5MA-CO
B Q-Z Q -9 ZZY OZ QQ
Z
Z
ZO

JFGJ5BA+OUA083830026
BRIV QI Q8-9
9 9 0 19

8TXT.AJA •• AB •• AA9KGO
9
V80 V9 V9 VZ

74A80DGA9BG09HBOD09M
9-9-ZZ0 ZI 18-ZB Z

EAOAG09HG08YE-6SG08Y
OV+VZ+ II
Z 81
9 9 9

E-6.G08V.GOT83830043
Z Z

BTXT.ANA •• A8 •• AAOJGA
9
V9Q V9 V9 ZZV
909
9

5BA+DJAGOEG+40AJOOGA
QZ QV-Q 9Z Z-V 9ZQ
o Z9 Z
9
9

40KOODEOOHG.40BOOACQ
ZB+Q-R+Q-Z ZB -VQO
-Z -Z
9 91

BADEBAODHFAHB3830021
-VQ -V-IRQ991 9

BTXT.AJQ •• A8 •• AA.UNI
9
Y8Z V9 V9
99
9
9

SEA.SNS.ACT.XXXX.DEV

ICE.NOT.OPER83830044

BO./BDG060Al83830028
8- 9Q Z 8-8

8TXT.AJJ •• A8 •• AAATIO
9
VBV V9 V9
99
9
9
BTXT.AJQ •• A8 •• AAOO.l
9
va
V9 V9

BTXT.AlA •• A8 •• AA20BO
9
V9V V9 V9 89
9
9
9

JA20BOMV3DBOSC9CBOMM
V9 8-za 8-88 08-99
9 9 9 9 9

4VKB463BBM3FA.CQGA39 9 9 9-9 -- QOZQ
Z 9

Z

BTXT.AlH •• A8 •• AA.12.
9
V90 V9 V9
9 - 9
9

DETECTED.GOT.UNEXPEC
,

TED.UNIT.CK.WHILE.TE

STING.CHAN.183830018

BTXT.AlO •• A8 •• AA2.GO
9
V9
V9 V9
9
9
9

T.UNEXPECTED.UNIT.EX

BTXT.AMV •• A8 •• AAAN.l
9
V99 V9 V9

2.DETECTED.OKAAAAAAA
VVVVVVV
9999999

CAlK.AAACAlK.AAACAlK
VV8V VV98V8V VV98VBV
99 99 999 99 999

8TXT.AM- •• A8 •• AALGA+
9
V9
V9 V98RI
9
9
9 90

DULDAGOEGA4HC.OEG044
Q88Z-Q 9ZV RZ 9Z 8
Z99 Z
0

8TXT.AMH •• A8 •• AACK8C
9
V9- V9 V9QVQQ
9
9
9 I II

9

9

9

9

'

CEPTION.WHIlE.TESTIN

G.CHAN.9A.CH83830019
V
9

ZOI

I

9

BTXT.ANV •• A8 •• AAHAAC
9
V9
V9 V90QV9

Z

9 -

9

9

G03Q.~0.CHAN83830017

Z

9

AAODGA60DAOAGA6SGJ6.
-Y 9ZQ 8QV+YZQ 81V
9 9 9 9 9 9 9

G.6FA.CRGA60AGCQG+60
Z R- QOZV 8-QQOZ B

BTXT.AOJ •• A8 •• AA4UGO
9
V9V V9 V9 9Z+
999
9

IFGOIFBOJA2080DA9AAA
I QS-V9 8-Z0 Q-V
09
9 Z

OOGAIFG6FA54BOJA20BO
910 09 IQ B-V9 B9 0
9
9

BTXT.AOH •• A8 •• AACRG+
9
V9R V9 V9QOZ

6FA-CQG+8UHFAHHAACEA
V- 001 BR09-00V90Y

6WBODABAG6AB83B30030
88-IQQ09 -9

9

OAGA6SGJ6BG.6FGA60FA
+YZQ 8ZV OZ VZV VZQ
9 9 9 9
9

6FF.COG068Al4UG060AA
Q- QOl 0-8 9Z+ V-V

CQGA60FACQAHOOGA60KG
OOZQ V-VQO-9-IZQ
9

9KO.BOJA208083830031

9

9

9

9

9

9

1

9 Z

8TXT.AOA •• A8 •• AAODGA
9
Y90 V9 V9-ZZV
9

9

9

9

I

Z 9

9

- 9

Z

BTXT.AOH •• A8 •• AADGBJ
9
V9
V9 V9Z8Q9
9
9
9 9Z

KGO.9KG060ADODGA6WBO
9- VI V-9-ZlY BB-

BTXT.APA •• A8 •• AABSGO
9
Y9Y Y9 Y9 Z
999
9

lMKA9D9FBA98ADODGA74
I 9 Y Y-Y 0-9-IZO 9
9
9

9

9

9

II

Z

9 9

1

9

9

JA20BODGBAG06WABODGA
V9 8-IBQRZ 8-9-ZZV
9 910
FA6WKG9KO.BOJA20BODG
10 B 9 Y- 8-Y' 8-IB
9

9

9

9

Z

9

0/90EAOAG6A083830029
18 +QV+V9 -+
9

9

9,

9

9

991

V- 8-Y9 a9
9
• 9

9

9

9

9

Z

9

9

9

9

9

T.CHECK.ON.ISSUE.SEN

9

9

9

Z-

9

9

9

9

G+8KADCQGA7H83830038
I 8-9QOZV 0

z

Zl

9 9

9

I

Z

9

Z

Z

z

BEAAADADKGO.83830042
8QY98yaV .9999 9 9

Y
9

••••••••••• -CSW.STOR

ED.AFTER.SI083830046

BTXT.AKA •• A8 •• AA •• NO
9
VBQ V9 V9
999 9
9

.CHANNEl.END •• COMMAN

D.REJECT •• IN1RV.REQU

IRED •.• 8US .OU83830047

BTXT.AKH •• AB •• AAT.CH
9
Y8l V9 V9

ECK ••• EQUIPMENT.CHEC

KSKIP •••• FAIlED ••• DE

VICE.END •••• 83830048

SY.TOO.lONG ••• NO.DEV

ICE.END ••• UNIT.BUSY.

AFTER.DEVICE83B30049

•• IMMED~.NO.CSW.AFTE

R.IMMEDIA1E.OPERAlIO

N••••• CHANNE83830050

9

9

9

9

8TXT.AKA •• A8 •• AA •• BU
9
V8Y V9 V9
99

BAKGO.9KA.COB3830033
Y- QO
I
9 I

9

9

Z

ONG.AFTER.SIO•••••••

Z 9

0- 9-

9

9 I-I

9

ANNEL.BUSY.T83830045

99

7FF.CQAl4UG083830032
9- QO-B 9Z+

9

9

NAl-SET.SS.O.TO.lOOP

99

91

9

9

.ON.SJO •• DEVICE.I.CH

9 9

9

9

9

9

8TXT .AKH .. A8 •• AA.END
9
V80 V9 V9
99-

9

9

tv

DATE
EC

IOJUN65
124255

22JUN65
124249

15MAR66
125632

1SNOV66
125655

ID
F838-3
PAGE
11

DATE
EC

lOJUN65
124255

22JUN65
124249

l!iMAR66
125632

ISNOV66
125655

ID
F838-3; 1
'AGE
11A

PIN 840213
PAGE
12,

IBM MAINTENANCE DIAGNoSTIC PROGRAM
F838 , 1403 CARRIAGE FUNCTION TEST

BTXT.AKO •• A8 •• AAL •• S
Y8
Y9 Y9
9
99
9
9

KIP. TO.WRITE. SPACE. S

PACE.SUPPRESS •••• FAI

BTXT.ALY •• A8 •• AAXX ••
9
Y89 Y9 Y9
99
9
9

• STL-SECTION.BYPASSE

D.DATA.CHECK.8UFFER~

BTXT.AL- •• A8 •• AAJJJJ
9
Y8
Y9 Y99998
9
9
9
99

JJJCCCCLLLLLLLLIAIJR
8886688999988880--00
9999999
9999

AIAIJRJCCCllCCCClCTA
lY-DOYOD Y D 9
00

BTXT.ALH •• AK •• AAAAAA
9
Y8- Y9 Y9YYYY
99
9
9 9999

AAAAAAAAAAAAAA ••••••
YYYYYYYYYYYYYY
99999999999999

BTXT.AMA •• A8 •• AAAA7G
9
YSQ Y9 Y9YYSQ
99
9
9 9992
6RlD •••••• AJ •••• AAAA
9
YY
Y9Y9
99
9 9
BEND •••••••••• AA ••••
9
Y9
9
BLDT ••••••••• ,. ... • '•• '.
9

-0 9 9

lED •• OK.XXXX83830051

.

CHECKAAAAAAJ83830052
888eSS9
999999
AAAAAAAAAAAA83830053
898YYYYYYYYY
9 9999999999

....•.....•.•.....•.

•••••••••••• 83830054

AAAAAAA6AAGAAAGAAJGA
YYY9YYY9YY9YY89YY89Y
999 999 99 999 999 9

AA.I.EAAAALKAAAOAALK
Y9
YYYY8YYYY08Y8Y
9
99999 999 999

AAADDAMEAAAA83830055
YYY09Y8 YYY9
999 99 999

AAANAAMAAAMAAAMAAAMA
8YQ98Y9l8Y988Y9R8Y80
999 99 99 99 999-

AAMIHAMA ••••••••••••
8Y809Y8
999- 99

•••••••••••• 83830056

... •...•....•.•....•.

.••.•••••....•.....•

••••••• -••••• 83830051

...•......•••••.••..

.•••...••...•.•.....

~

-

••••••••••• 83830058

- - - - - - - - - - ' - - - - - - - - - - - - - - - - - - - - - LAST PAGE --------------------------------------------DATE
10JUN65
22JUN65
15MAR66
15NOV66
10
F838-3
PAGE
12
12421t9
125632
,125655
124255
EC

0 0 ,0 '0

4')
~

'to.,.

/'

10

(1) (0
'"
'"
"

!O 0 (0 0 0
i\

£)

III ' "

iO f) 0 '\r) ·0 10 ,0 iO iO 0 1:0 0 0 0 100 0 0 () Oit
'4..,

.(
. .,.

J

I
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:01:03-08:00
Modify Date                     : 2014:07:05 17:40:53-07:00
Metadata Date                   : 2014:07:05 17:40:53-07:00
Producer                        : Adobe Acrobat 9.55 Paper Capture Plug-in
Format                          : application/pdf
Document ID                     : uuid:38374c64-6f3d-c242-a5c3-3cc64346ae92
Instance ID                     : uuid:996f22b9-3e0f-9e42-84f6-3b6b675f8e01
Page Layout                     : SinglePage
Page Mode                       : UseNone
Page Count                      : 283
EXIF Metadata provided by EXIF.tools

Navigation menu