1130 Diagnostics Volume 2 196706 0 u 0 c) 0 0 (J 0 0
IBM MAINTENANCE OIA\.NOSTIC PROGRAM FOR THE 1130 SYSTFM 1130 SCOPE LOOP PROGRAMS
0 0 0 () 0 o·o 0 (_) 0 0 0 0 0
PART NO. 224.3962
PAGE
l
IBM MAINTLNANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 1110 SCOPF LOOP PROGRAMS
0
PART NO·. 2243962
'PAGE
lA
. PARAGRAPH 1. PURPOSE 2. RF.QUIREMENTS 3. USE PROCEOURE 4. PR I NTOlJT S 5. COMMENTS 6. APPENDIX A APPENDIX B 6.01
6.03
6.05 6.06 6.07 6.08 6.09 . 6.10 6.11 6.12 6.13
*************************************************** 3A000020
* * * * * * * *
T AA L E 0 F C 0 NT E NT S
*********
...
CHARACTER CODES AND CONTROLS · ·
PAGE lA lA lA lA lA 2
3A000030 . 3A000040
3A000050 3A000060 3A000070 3A000080 3A000090
3AOOOIOO 3A000110 3A000120 3A000130 3A000140 3A000150 3A000160 3A000170 3A000180 3AOOOI<JO
* SCOPE LOOP PROGRAMS
*** CORE STORAGE CHECK
3A000200 3A000210 3A000220 3A000230
** CONSOLE PRINTFR
3A000240 3A000250
** KEYBOARD
3A000260 3A000270
** PAPER TAPE PUNCH
3A000280 3A000290
** PAPER TAPE READER
3A000300 3A000310
** 1442 PUNCH
3A000320 3A000330
** 1442 READER
3A000340 3A000350
** 2310 SEEK
3A000360 3A000370
** 2310 READ/WRITE/COMPARE
3A000380 3A000390
** 1627 PLOTTFR
3A000400 3A000410
** 2501 READER
3A000420 3A000430
** 1403 PRINTER
3A000440 3A0004.5.0
** 1132 PRINTER
3A000460 3A000470
* 3A000480
*************************************************** 3A000490
*************************************************** 3A000510
l. PUR PllSF
* 3A000520
* ONE CARO PROGRAMS THAT PROVIDE THE C.E. WITH THE 3A000530
* ABILITY TO E~FRCISE VARIOUS FUNCTIONS Of THE
..3A000540
** 1130 SYSTEM. fACH CARO IS IDENTIFIED BY THF
3A000550
NUMBER IN COLUMNS 79 AND 80. THIS NUMBER REFERES 3AQ00560
* TO A PARAGRAPH WITHIN THF APPENDIX.
3A000570
2. RF.QUIREMENTS
** 3A00.0580 THE C.E. MUST HAVE THE llJO SYSTEM ANO A MEANS 3A000590
* TO ENTER THE PROGRAM.
3A000600
3. USE PROCEDURE **
.3A000610 3A000620
3.1 SFTUP ANO fJPERATION
** CHECK EACH WRITE-UP FOR SWITCH SETTINGS REFORE
* ANO AFTER LOADING.
.
3A000630 3A000640 3A000650
'3.2 LOADING
** THE PROGRAM IS LOADED IN IPL MOOE FROM CARDS,
3A000660 3A000670
* PAPER TAPE OR MAY BE BIT-SWITCHED IN.
3A0006RO
J.3 WAITS
** WAITS ARE IOENTIFIEO BY THE B-REGISTER. THF.Y
3A000690 3A000700
* HAVE THE FOLLOWING MEANING,
3A000710
** B-REG '3001 BIT SWITCH SETTINGS REQUIREQ.
3A000720 3AOOD730
* * * * * * * * * * * * * 3.4 TERMINATION *****
PRESS
3002 ONE PASS OF THE PROGRAM HAS BEEN COMPLETED.
1003 NO INTERRUPT RECEIVED AFTER A WRITE COMMAND.
3004 NO INTERRUPT RECEIVED AFTER A PEAD . COMMAND.
3005 NO INTERRUPT RECEIVED AFTER A CONTROL COMMAND.
3006 ERROR, SEE INOIVIOUAL PROGRAM.
3007 ERROR, SEE INDIVIDUAL PROGRAM.
IMMEDIATE STOP. IF PROGRAM STOP IS PRESSED
3A000740 3A000750 3A000760 3A000770 3A000780 3A000790 3AOOOBOO 3AOOOR10 3A000820 3A000830 3A000840 3A000850 3AOOOR60 3AOOOR70 3A000880 3A000890 3A000900 3A000910
* THE PROGRAM MAY NOT RUN BY PRESSING START BE-
3A000920
* GAUSE INTERRUPT~ IS ON.
3A000930
3.5 RESTART
** PRESS IMMEDIATE STOP AND RESET. PRELOADING
3A000940 3A000950
* SWITCHES MAY BE SET AS DESIRED. PRESS START. AT 3A000960
* WAIT 1 MAKE REQUIRED BIT SWITCH SETTINGS.
3A000970
4. PRINTOUTS
** NONE EXCEPT FOR DEVICES THAT PRINT CHARCTF.RS
3A000980 3A000990
* ENTERFD FROM THE BIT SWITCHES~
3A001000
lj. COMMENTS
* 3A001010
* IN MOST CASES A SPECIFIFIF.O 1 LDX 1 MAY RF.PLACE A 3A001020
* WAIT TO ALLOW RUNNING WITHOUT INTERRUPT. ERROR 3A001030
* WAITS MAY BE REPLACED BY A 'NOP'· OTHER COMMENTS 3A001040
*·Will BE FOUND IN EACH PROGRAM. AN INSTRUCTION
3A001050
* FOLLOWED BY *A* WILL BE ALTERED. THIS IS DUE TO 3A001060
* THE LIMITATIONS OF 1130 IPL MOOE. THE ALTERED
3A001070
* INSTRUCTION Will FOLLOW THE *A*·
3A001080
* 3A001090
*************************************************** 3A001100
DATE
EC NO.
15FFB68 2SJUL69 420403 571053
!-,
PROG ID
PAGE
03AO-O 1
DATE
EC NO.
15FEB68 25JUL69
420403
571053
PROG to PAGE
03AO-O lA
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM li30 SCOPE LOOP PROGRAMS
PART NO. 2243962
PAGE
2
* 6.
* C~AR
APPENDIX A
A
* B
* .C
* * * *
0 E F G
**·***************
H
I J
K L
M
N 0
P
Q
R
S T U
V
W X V
***
Z
0 I
* 2
** 1132 * 1403 * KEY/BO * CON/PTR U/C * CON/PTR l/C* 3A001120
* * *
Cl C2
*
64 25
*
AOOO 8800
* *
lE
*
IA
*
3C * 3AOOll30 la * 3AOOII40
* * C3 * 26 * 8400
lE
*
lC * 3A001150
* * * * · * ·*************** ****
C4 C5 C6 C7
ca
C9 01
02 03 04 05 06
07 oa 09 E2 E3 E4 E5 E6 E7 Ea E9
FO
Fl F2
* * * * * * · * * * * *·****
*
* * * * * * ~
*
67 68 29 2A 6B
2C 5a l~ lA 58 IC 50
5E
IF 20 OD OE 4F
IO 51 52 I3 54
49 40 OI
* * * * * * ·****** * * * * * * * * * * * * *
8200 8100 80aO 8040 8020 ao10
5000 4800 4400 4200 4100
4080 4040 4020
40IO 2aoo 2400 2200 210-0
2080 2040 2020 2010
2000 1000
0800
* * * * *
* *
* * *
***
*
* *
*
* *
* * *
* *
*
*
32 36
* *
30 * 3A001160 34 * 3A001170
12
*
10 * 3A001180
16
*
14 * 3A00ll90
26
*
24 * 3A001200
22 7E
* *
20 $ 3A0012IO 7C * 3A001220
5A
*
58 * 3A001230
5E
*
5C * 3A001240
72
*
70 * 3A001250
76
*
52
*
74 50
** 3AOOl260 3A001270
56
*
54 * 3A001280
66
*
64 * 3A001290
62
*
60 * 3A001300
9A
*
9a * 3A001310
9E B2
* *
9C * 3A001320 80 * 3A001330
B6 92
* *
84 * 3A001340 90 * 3A001350
96
*
94 * 3A001360
A6
*
A4 * 3A001370
AZ
*
AO * 3A001380
C4
************** 3A001390
FC
*
3A001400
08
* ************ 3A001410
* 3
* *
4
·5
* * *
*
F3 F4 F5
* *
02 43
·.. 04
*
*
0400
0200 0100
*
* *
* 6
***
7 a 9
* *
= $
* * *
F6 F7 Fa
*
* *
45 46 07
*
* *
0080 0040
0020
* *
*
*
*
F9 7E
*
*
08 4A
*
*
0010 OOAO
* *
· 58 · 62 · 4420 *
* * * * * * * * * *·***
+
* I
& SPACE
NUMBER AT LS THN
*
* · · * * * * *
· *
48 70 68 40
60 50 4E 61
5C 50 00
* * * * ·
~
* * * *
*
6E OB 16 57
61 2F 60 4C
23 I5 7F
* * * * * * * * * * *
·-------------· ·---~---------*
·-------------·
8420 0120 2420 8120 4000 4120
80AO 3000 4220 8000 0000
0420 0220 8220
* · * *
* *
*
* *
* * * *
* *
* LOG/NOT·------------~* 4060 *
DC FO
* * * CONSOLE * 3A001420
* PRINTER * 3A001430
F4
* * CONTROLS* 3A001440
DO
* ************ 3A001450
04 E4 EO
* *
*
*
* *
CARRIER * 3A001460 RETURN * 3A001470 81 * 3A001480
C2
* ************ 3A001490
40
* * TAB * 3A001500
00 · * *
41 * 3A001510
E6
* ************ 3A001520
80 FE
** * SPACE * 3A001530
*
21 * 3A001540
84
* ************ 3A001550
F6 DA
** *BACK/SPACE· 3A001560
*
11 * 3A001570
BC
* ************ 3A001580
06 44
** * SHIFT TO * 3A001590 * RED * 3A001600
21
* *
09 * 3A001610
CO
* *
* 3A001620
04
* ************ 3A001630
OE F2
* *
* *
SHIFT TO BLACK
* *
3A001640 3A001650
* * SEM/CLM·-------------· 40AO *
. * QUOTE ·-------------* 0060
02
* *
05 * 3A001660
E2
* ************ 3A001670
* LOG/OR ·-------------* 8060 ~
C6
* * LINE FEED* 3A001680
* UNSCORE·-------------· 2120 *
* QST MK ·-------------· 2060 ·
* COLON ·--~---------· 0820 * * GRT THN·-------------· 20AO *
BE
* *
03 * 3A001690
a6
* ************ 3A001700
82
*
3A001710
46
*
3A001720
* EXCLAIM·-------------· 4820 *
42
*
3A001730
* PERCENT·----~--------* 2220 *
06
*
3A001740
** CENT ·-------------·
EDF
·-------~-----*
** ER CHR ·-------------* ER FLO ·-------------·
· 0-8-2 ·-------------·
8820
0008 0004 0002 2820
*
02
*
***************
*
*
*
3A001750
3A001760 3A001770 3A001780 3A001790
DATE EC NO.
"'· I
,/
I5FEB68 25JUL69 420403 571053
PROG ID PAGE
03AO-O
2
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 1130 SCOPE LOOP PROGRAMS
PART NO· 2243962
PAGE
2A
****~*L*O*T*T*E*R*
*******************·******************** BIT SWITCH CONTROL * PAPER TAPE BIT SW
** *
3A001800 3A001810
******************************* CONTROL AND BINARY* 3A001820
*
* PATTERN DATA.
* lA0.01830.
* BIT SWS
FUNCTION
********************* 3A00l&·O
* 0 AND 8
PEN DOWN.
*
3A0Ql850
* 1 AND 9
DRUM DOWN
*
3AOOi860
* 2 AND 10 DRUM UP
**
** *
* 3A001870
· 3 AND 11 - CARR. RIGHT * * * * * * . * * 3A001880
* 4 AND 12 -.,.. CARR. LEFT * 5 AND 13 -- PEN UP ·
* * * O·. * * · 3AOOl890
· ·o 0
· O * 3AOOl900 ...
* SET CHAR. 1 IN BIT SWS 0-5 *
0 O·
* 3A001910
* SET CHAR. 2 IN BIT SWS 8-13 *
0
0 0 0 * 3A0019ZO
*******************************
0
· 0 0 , * 3A001930
*
*
0
· 0 0 · 3AOOl940
· ·
* *
0 0
·
0
0
o ··
3A001950 3A001960
*********************
*
O
0 * 3A001970
· DECIMAL TO HEX *
*
0
0 * 3AOOl980
* CONVERSION TABL.E *
*
0
* 3A001990
*********************
*
0 0 · 0 0 0 · 3A002000
· CVL · BIT SW *
*
0 0 0 0 * 3A002010
* NUMBER * SETTING *
*
0 0 · 0 0 * 3A002020
* IN HEX * IN HEX *
*
00 · 0
* 3A002030
*********************
*
0 0 · O 0 * 3A002040
* 10 * OA *
*
0 0 · 0 * 3A002050
* 20 * 14 *
*
00 ·
~ * ~A002060
* 30 * 40
* *
lE 28
* *
*
00 ·
* 3A002070
*
0 .·o 0 0 * 3A002080
* 50 * 32 *
*
0 · 0 0 * 3A002090
* 60 * 3C *
*
0 · 0 0 * 1A002l00
* *
70 80
* 90
* 46
* *
50 5A
* * *
*
0 ·0
* 3A002110
*
o·
O O · 3A002120
*
0
0 · 3A002130
* 100 * 64 *
*
0
0 * JA002140
* 110 * 6E *
*
0
* 3A002150
* 120 * 18 *
* 130 * 82 * 140 * 8C
* *
* * *
0 · 0 0 0 * 3A002160 · 0 0 0 * 3A002170
0 · 0 0 * 3A00Zl80
* 150 * 96 *
*
0· 0
* 3AOOZ190
* 160 * AO *
*
0
0 0 * 3A002200
* 170 · AA * * 180 * B4 *
· *
0 · 0 · 3A002210
0 ·
0 * 3A002220
* 190 * BE *
*
0
* 3A002230
· 200 · ca ·
·
· o o o · 1Aoo2240
*********************
*
O O * 3A002250
·
* ·
0 0 · 3A002260 .
*
*
· 0
* 3A002270
*
*
0 0 * 3A002280
·
*
O · 3.A002290
* TO READ/COMPARE BINARY
*
0 * 3A002JOO
* PATTERN, LOAD TAPE HERE ----·
* 3A002310
*
*
* 3A002320
*
PAPER *
* 3A002330
*
TAPE
********************* 3A002340
*
CHANNEL 8 7 6 5 4 3 2 1 3A002350
*
3A002360
*
CHAR 1 BIT SWS 0 1 2 3 4 5 6 1 3A002370
*
3A002380
*
CHAR 2 BIT SWS 8 9 1 1 l 1 l l 3A002l90
*
0 0 0 0 0 0 3A002400
*
3A0024I°O
*************************************************** 3A002420
DATE EC NO.
15FEB6a 25JUL69 420403 571053
) ·,_)
.-···)
'~
··.~
' '
-..
_
)
_/
,_)
I
._./
PROG ID PAGE
03AO-O. 2A
) <J ()
./
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
IBM MAINTFNANtF OIAGNOSTIC PROGRAM FOR THF 1130 SYSTEM 1130 SCOPF LOOP PROGRAMS
PART NO. 2243962
PAGE
3
6. 1 STORAGE CHECK
A. PRELOAO SWS
B. LOADING C. WAIT
6
D. RESTART
E. COMMENTS
0000 0000 0 6009 0001 0 0000 0002 0 0000 0003 0 0000 0004 0 0000 0005 0 0000 0006 0 0001 0007 0 003A 0008 0 0015 0009 0 603F OOOA 0 1006 0008 O.EAFC
oooc 0 1006
OOOD 0 ERFA OOOE 0 DOF4 OOOF 0 Oftf6
ocilo 0 COFO
0011 0 DOF3 0012 0 1802 0013 0 1002 0014 0 90Fl 0015 O OOEE 0016 0 3001 001 7 0 08FE 0018 0 COE8 0019 0 1800
*************************************************** 3A002440
****
3A002450
EACH CORE LOCATION IS CHECKED WITH A PATTERN
3A002460
SET IN THE BIT SWITCHES. IF BIT 14 IS ON THF BIT 3A002470
SWITCHES ARE USEO AS AN ADDRESS TO RE CHECKED
3A002480
* AND THE PATTERN IS /5555.
3A002490
* * * * * * *
AIT SW 15- HALT AFTER ONE PASS. 14- USF ONE ADDRESS 3- 4 K MEMORY
2- 8 K 1- 16 K 0- 32 K
3A002500 3A002510 3A002520 3A002530 3A002540 3A002550 3A002560
* IPL MOOF FROM CARDS OR PAPER TAPE.
3A002570 3A002580
** SFT PATTERN OR ADDRESS IN BIT SWITCHES.
3A002.590 3A002600
** ONE PASS COMPLETED, PRESS START TO CONTINUE.
3A002610 3A002620
* * *
*
3AD02630
PATTERN CHANGED. THE BIT THAT WAS DROPPED OR
3A002640
PICKFD IS ON IN THE ACCUMULATOR. FAILING ADDRESS 3A002650
IS IN ADDRESS LOCATION 2. PRESS START TO
3A002660
CONTINUE OR DO A RESTART.
3A002670
** PRESS IMMFDIATE STOP AND RESET. PRELOADING * SWITCHES MAY BF SET AS DESIRED. PRESS START.
3A002680 3A002690
3A002700
** THIS PROGRAM WILL WRITE ANO READ ALL CORE * AODRESSES OUT SIOE THE PROGRAM ARFA.
3A002710 3A002120 3A002730
** EACH ADDRESS IS WRITTEN AND CHECKED 2 TIMES.
3A002740
If AN AOORfSS IS FOUND TO RE A PROBLEM, SET RIT 3A002750
* 14 ON AND RESTART. PLACE THE ADDRESS IN THE BIT 3A002760
* SWITCHES AT WAIT 1.
3A002770
* THE PROGRAM WILL CHECK ONLY THAT ADDRESS WITH
3A002780
* THE PATTERN /5555.
3A002790
****************************************************
3A002800 3A002810
AHS
3A002820
ORG
0
3A002830
LOX
STGST
3A002840
STGSW DC
BIT SWITCH STG
3A002850
STGLC DC
AORS LOCATION
3A002860
STGPN DC
STORAGE PATTERN
3A002870
STGCR DC
STGHL oc
SIZE OF CORE BIT 15- HALT
3A002880 3A002890
*STGRD DC
/0001
BIT 14- USE l AORS
3A002900 3A002910
DC
/003A *A* DC
/3AOO RD BIT SW 3A002920
STGXX DC
/0015
CONSTANT
3A002930
STGST LDX
STGBD *A* LO
STGXX
3A002940
SLA
6
OR
STGXX
SLA
6
* PATTERN TO USE:
* UNLESS ALTERNATE * IS SELECTED
3A002950 3A002960 3A002970
OR
sro . xro
STGXX STGPN STGRD
READ BIT SWS
3A002980 3A002990 3A003000
LD
STGSW
GET BIT SW SETTINGS
3A0030l0
STO
STGHt
SET HALT IF A 15 ON
3A0030-20
SRA
2
3A003030
SLA
2
s
STGRD
ADJ CORE SI Zt.=
3A003040 3A00-3050
STO
STGCR
STORE CORE Sl ZE
3A003060
WAIT
1
*
XIO
STGRO
*SFT SWS FOR PAJTERN OR ADDRESS READ BIT SWS
3A003070 3A003080 3A003090
LD
STGSW_
GET BIT SW SETTINGS
3A003100
RTF
16
* AND SAVE IN Q REG
3A003110
DATE EC NO.
15FER6W 25JUL69
4.20403
571053
PROG ID PAGE
03AO-O 3
0 0 0 0 0 0 0 u 0 0 0 0 0 CJ 0 0 0
[BM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 1130 SCOPE LOOP PROGRAMS
PART NO. 2243962.
PAGE
3A
OOlA 0 COEA OOlB 0 lROl OOlC 0 41104 0010 0 7003 OOlE 0 1800 OOlF 0 DOE3 0020 0 7002 0021 0 1800 0022 0 DOEl 0023 0 COED 0024 0 DODO 0025 0 COD.D 0026 0 0002 0027 0 OOC2 0028 0 1000 0029 0 FODC 002A 0 0002 002F\ 0 OOC2 002C O F009 002D 0 FOD5 OOZE 0 4820 002f 0 3006 0030 0 COrJ4 0031 0 1801 0032 0 4804 0033 0 7006.
oo::i4 o cocn
0035 0 9000 0036 0 DOCB 0037.0 9006 0038 0 4830 0039 0 70EB 003A 0 COCA 003B 0 .4804 003C 0 3002 003D 0 70F5 003F 0 003E
003F 0 C009 0040 0 DOC8 0041 O COC5 0042 0 1008 0043 0 DOC3 0044 0 C8EI 0045 0 1808 0 046 0 ()!!OF 0047 0 08E2 0048 0 6009 0049 0 COFE
004A 0 0000 004B 0 0040 004C 0 9000 0040 0 2000 004E 0 2000 004F 0 1000
LO
STGHL
GET CNTL WORD
3A003120
SRA
1
3A003130
BSC
E
USE SWS AS ADRS
3A003140
MOX
STG7
RTE
16
STO
STGPN
** YES NO
3A003150 3A003160 3A003170
MDX
STGO
3A003180
STG7 RTE
16
34003190
STD
STGCR
SET ADRS IN CORE SIZE
3A003200
STGO LO
STGCR
LO CORE SIZE
3A003710
STD
STGLC
STORE IN XR 2
3A003220
STGl LD STG2 OC
STGPN
LO PATTERN TO USE
/0002 *A* TO STO 2 0
3A003230 .3A00.3240
DC
/OOC2 *A* TO LO 2 0
3A003250
WlP
3A00.3260
EOR
STGRO
CHG BIT 15
.340032"70
STG3 DC
/0002 *A* TD STD 2 0
3A003280
DC
/OOC2 *A* TO LO 2 0
3A003290
EOR
STGRO
CHG BIT 15 BACK
3A003300
FOR
STGPN
CK STARTING PATTERN
.3A003310
BSC
WAIT
LD
l 6 STGHL
IS PATTERN THE SAME
* NO
* YFS
3A003320 3A003330 3A003340
SRA
l
3A003350
BSC
E
MDX
STGlO
l f)
STGLC
s
STGRO
USE ONLY l ADRS
* YES * NO, GET ADRS
REDUCE AORS
3A003360 3A003370 3A003380 3A003390
STD
s
BSC MOX
STGlO LO RSC WAIT MDX
STGP-G flC
STGLC STGPG
z-
S T G l STGHL
E 2 STGO STGPG
STORE IN XR 2
SUS PROG SIZF
REACHED LAST ADRS
* *
NO YES
*HALT PROGRAM YES .
* NO
LAST AORS Of PROG
3A003400 3A003410 3A003420 3A003430 3A0·03440 3A003450 34003460 3A003470 3·A003480
* * *STGBD LO
INITIALIZATION ROUTINE STGSP
3A003490 3A003500 .3A003510 3A003520
STO
STGST
3-A003530
LD
STGRO+l
BUILD RD BIT SW IOCC
3A003540
SLA
.8
3A003.550
STO
STGRO+l
3A003560
LOO
STG2
RTE
24
RUILO 5TO AND LO
* WI TH XR 2
3A003570 3A003580
STD
STG;>
3A003590
STO
STG3
3A003600
STGR.S LOX
STGST
GO TO PGM START
3A003610
STGSP LD X STGXX-I-STGST
3A003620
*******************************************~******* 3A003630
OC
0
SPACE FILLER
3A003640
DC
/0040
THE LAST FIVE WOROS ARE
3A00.3650
DC
/9000
* USED FOR PROGRAM
3A003660
DC DC DC
/2000 /2000 /1000
* IDENTIFICAT~OM. THREE * FOR THE PIO AND TWO FOR
* SEQUENCE.
3A003670 3A003680 3A003690
DATE EC NO.
l 5FEB6.8 25JUL69
470403
571051
PROG ID PAGE
03AO-O 3A
IBM MAINTENANCE DIAGNOSTIC PROGRAM. FOR THE 1130 SYSTEM 1130 SCOPF LOOP PROGRAMS
PART NO. 224H62
PAGE
4
*************************************************** 3A003710
6.02 CONSOLE
** 1. THE PROGRAM PRINTS ALTERNATE CHARACTERS OR
3A003720 3A003730
PRINTER
* *
EXECUTES ALTERNATE CONTROL FUNCTIONS WHICH HAVE BEEN SELECTED IN THF BIT SWITCHES.
3A003740 3A00.3750
** 2. AN OPTION IS AVAILABLE TO SET UP A VARIABLE 3A003760
DELAY BETWEEN XIO WRITE EXECUTIONS.
3A003770
** 3. AN OPTION IS AVAILABLE TO HALT THE PROGRAM AFTER THE COMPLETION Of THE EXECUTION OF
3A003780 3A003790
*
AN ALTERNATE XIO SEQUENCE.
3A003800
** A. PRELOAD SWS
1. IF DELAY IS DESIRED, SET DELAY CONTROL
3A003810 3A003820
*
VALUE IN AIT SWITCHES 1 THRU 13.
3A003830
*
*NOTE* SWS 1 THRU 13 ALL ON, MAX DELAY.
3A003840
*
SWS 1 THRU 13 ALL OFF, NO DELAY.
* 2. If A WAIT AFTER EACH PROGRAM PASS IS
* DESIRED, TURN ON BIT SWITCH 15.
3A003850 3A003860 3A003870
B. LOADING
** LOAD IPL FROM CARO OR PAPER TAPE.
3A003880 3A003890
C. WAITS
* 1
SET DESIRED CHAR/CONTROL CODES IN BIT SWITCHES
3A003900 3A003910
* * * *
0 THRU 15. SEE PAGE 2 FOR BIT SW CODES. lST CHAR/CONTROL IN SWS 0 THRU 7. 2ND CHAR/CONTROL IN SWS A THRU 15.
DEPRESS START.
3A003920 3A003930 3A003940 3A003950
3A003960
* 2 * NORMAL PROGRAM WAIT IF 1 PASS OPTION HAS BEEN SELECTED. DEPRESS START TO MAKE ANOTHER PASS.
3A003970 3A003980
* 3
NO INTERRUPT GENERATED AFTER XIO WRITE
* COMMAND WAS GIVEN. SEE COMMENTS.
3A003990 .3A004000 3A0040l0
D. RESTART
** 1. TO RESTART PROGRAM OR RESET INITIAL PRELOAD
* SWITCH SETTINGS, DEPRESS IMMEDIATE
3A004020 3A004030 3A004040
*
STOP AND RESET PUSH BUTTONS.
* 2. SET DESIRED PRELOAD BIT SWITCH SETTINGS.
* 3. DEPRESS START.
3A004050 3A004060 3A004070
E. COMMENTS
**********
3A004080
1. LAST DSW SENSED IS DISPLAYED IN THE Q REG.
3A00409D
2. If PROGRAM LOOPS, CHECK Q REG FOR NOT ROY
3A004100
OR BUSY OS~ BITS BEING ON.
3A004ll0
3. TO RUN PROGRAM WITH INTERRUPT DELAY SW ON
3A004120
OR TO BYPASS THE INTERRUPT WAIT, LOAD /602D 3A004130
INTO LOCATION /002A ANO 00 A PROGRAM RESTART. 3A004140
4. TO SET UP LOOP TO EXECUTE XIO, LOAD /6020
3A004150
INTO LOCATION /002A AND LOAD /1000 INTO
3A004160
LOCATION /0031 AND 00 A PROGRAM RESTART.
3A004170
0000
********OR*G*******0 ************************************
3A004180 3A004190 3A004200
0000 0 6012 .
CPBGN LOX
CPBLO *A* TO LOX CPRDS /6024
3A004210
0001 0. 0001
CPONE DC
l
CONSTANT ONE
JA.004220
0002 0 0006
CPBSW DC
CPD SW
BIT SW SAVE AREA
3A004230
0003 0 003A
DC
/003A *A* TO /3AOO RD BIT SW
3A004240
0004 0 0()06 0005 0 9000 0006 0 0000 0007 0 F010 0008 0 0000 0009 0 6010 OOOA 0 0000 OOOB 0,0000
oooc o 002C
CPWRT DC DC
. CPDSW DC DC
CPSET DC CPCTL LOX
DC CPDSV DC
DC
·-·CPDSW
/9000 /FOlO
·-*
·-·CPROS
CPIN4
CHARACTER ADDRESS *A* TO /0900 XIO PRINT
BIT SW READIN AREA
*A* TO /OFOl xro SENSE
SW OPTION/DtLAY SAVE 2ND CHAR SW/RESET MOD
DSW SAVE AREA INTERRUPT ADDRESS
3A004250 3A004260 3A004270 3A004280 3A004290 3A004300 3A004310 3A004320 3A004330
0000 0 1810
CPALT SRA
16
CLR 2NO CHAR SW
3A004340
OOOE 0 OOFA OOOF 0 7012
STD
CPCTL
MDX
CPS EN
*GO CHK If PRINT BUSY
3A004350 3A004360
0010 0 3002
WAIT
2
COMPLETED PROG PASS
3A004370
0011 0 700F
MDX
CPSEN-1
RESTART PROGRAM
3A004380
DA.TE·
EC NO.
,.·'")
15FEB68 2SJUl69
42040.3
511053
PROG ID PAGE
"--.../'
03AO-O 4
I
__,,!
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 1130 SCOPE LOOP PROGRAMS
PART. NQ. 2243962
PAGE
4A
0012 0 COF2 0013 0 1804 0014 0 DOFO 0015 0 COFI 0016 0 1804 0017 0 DOEF 0018 0 COEA 0019 0 1008 OOlA 0 DOES OOlB 0 COED OOlC 0 DOE3 0010 0 08E4 OOlE 0 COE7 OOlF 0 OOE8 0020 0 3001 0021 0 OBED 0022 0 CAE7 0023 0 OAE2 0024 0 DOE6 0025 0 1004 0026 0 4820 0027 0 70FA 0028 0 C8El 0029 0 08DA 002A O 3003 002B 0 7006
ooze o 0000
0020 0 0808 002E 0 OODC 002F 0 C80B 0030 0 4850 0031 0 70FB 0032 0 C8D7 0033 0 C0D4 0034 0 1804 0035 0 1003 0036 0 90CA 0037 0 4810 0038 0 70FO
0039 0 cocc
003A 0 1008 0038 0 DOCA 0.03C 0 COCC 0030 0 4820 003E 0 70CE 003f 0 68C9 0040 0 C0C7
0041 0 4804 0042 0 70CD 0043 0 7000
0044 0 0000 0045 0 0000 0046 0 0000 0047 0 0000 0048 0 0000 0049 0 0000 004A 0 0000 0048 0 0040 004C 0 9000 004D 0 2000 004E 0 2000 004F 0 0800
CPBLD LO
SRA STD
CPWRT£1
4 CPWRT&l
**BUILD WRITE IOCC
3A004390 3A004400 3A004410
LO SRA STD
CPDSW£1 4 CPOSW£1
BUILD SENSE RESET
** OSW IOCC
3A004420 3A004430 3A004440
LO SLA STO
CPBSW&l 8 CPBSW£1
**BUIIOLCDC READ BIT SW
3AOOlt450 3A004460 3A004470
LO
CPCTL
STD
CPBGN
*SET UP RESET ANO START BRANCH
3A004480 3A004490
CPROS XIO LO STO
CPBSW CPOSW CPSET
READ BIT SWS FOR
** PROG OPTS/DELAY
3A00450Q 3A004510 3A004520
WAIT
l
SET CHARS IN SWS
3A004530
XIO
CPBSW
READ BIT SWS
3A004540
CPSEN L1D
CPOSV-1
LOAD LAST DSW IN Q
3A004550
XIO
CPDSW
CHK DEVICE NOT BUSY
3A004560
STO
CPDSV
SLA
4
BSC
Z
MOX
CPSEN
* OR NOT READY AND
*** SAVE DSW
3A004570 3,\004580 3A004590 3A004600
LOO
CPOSV-1
LOAD LAST DSW IN Q
3A004610
XIO
CPWRT
WRITE CHARACTER
3A004620
WAIT
3
WAIT FOR INTERUPT
3A004630
MDX
CPRET
BRANCH TO DELAY
3A004640
CPIN4 OC
*-*
INTERRUPT LEVEL 4
3A004650
XIO
CPDSW
SENSE RESET OSW
3A004660
STO
CPDSV
SAVE OSW
3A004670
LOO
CPDSV
LOAD OSW INTO Q REG
3A004680
BOSC
RESET INT LEVEL
3A004690
MOX
CPIN4£1
RESENSE DSW
3A004700
CPRET LOO
CPDSV-1
LOAD LAST DSW IN Q
3A004710
LO SRA
SLA CPLOP S
BSC MDX
CPSET 4 3 CPONE
CPLOP
SET UP DELAY ANO
*** EXECUTE DELAY
* *
3A004720 3A004730 3A004740 3A004750 3A004760 3AOOlt770
LD
CPDSW
SLA
B
LO, SET UP 2NO CHAR
*
3A004780 3A004790
STO
CPD SW
*
3A004BOO
LO
CPCTL
BSC
l
*CHK IF 2ND CHAR SW Off
.3A004810 3A004820
MOX
CPALT
NO, BRANCH
3A004830
STX
CPCTL
YES, SET 2ND CHAR SW
3A004840
LO
CPSET
BSC
E
*CHK 1 PASS OPTION SW
3A004850 3A004860
MDX
CPALT&3
SW ON, GO TO WAIT 2
3AOOlt870
MOX
CPSEN-1
SW OFF, LOOP PROGRAM
3A004880
*******DDDDDDD*CCCCCCC*******0000000*******,*********S*P*A*C*E**F*I*L*L*E*R***************
3A004890 3AOOlt900 3AOOlt910 3A004920 3AOOlt930 3AOOlt940 3A004950 3A004960
DC
/0040
THE LAST FIVE WORDS ARE
3A004970
DC DC DC DC
/9000 /2000 /2000 /0800
* USED FOR PROGRAM
* IDENTIFICATION. THREE
* *
FOR THE PIO SEQUENCE.
ANO
TWO
FOR
3A004980 3A004990 3A065000 3A005010
DATE EC NO.
/
15FEB68
420403
25JUL69 571053
I
·".. ,J
"" __ / I
PROG ID PAGE
03AO-O 4A
)
c
(_)
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTFM 1130 SCOPE LOOP PROGRAMS
(r··.
~)
PART NO. 2243962
PAGE
5
6.03 KEYBOARD
A. PRELOAD SWS
B. LOADING
C. WAITS
1
2
D. RESTART
E. COMMENTS
0000 0000 0 6024 0001 0 0001 0002 0 0004 0003 0 003A 0004 0 6032 0005 0 FOlO 0006 0 0000
0007 0 cooo
0008 0 OOOA 0009 0 AOOO OOOA 0 0000 000[1 0 0000
oooc 0 0011
000() 0 CAFC OOOF 0 lllDO OOOF 0 DBFA 0010 0 7011 0011 0 0000 0012 0 08EF 0013 0 08FO 0014 0 DOF6 0015 0 1001 0016 0 4850 0017 0 7001 0018 0 7003 0019 0 1001 OOlA 0 4850
*************************************************** 3A005030
*
3A005040
* * * * *
·
1. THE PROGRAM SELECTS KEYBOARD AND DISPLAYS
3A005050
THE CHARACTER READ OR THE DSW SENSED WHEN A 3A005060
KEY IS DEPRESSED.
3A005070
2. THE PROGRAM ALSO CHECKS THE INTERRUPT REQUEST 3A005080
KEY OPERATION.
3A00.5090
3. AN OPTION IS AVAILABLE TO HALT PROGRAM BEFORE 3A005100
A KEY IS DEPRESSED, OR LOOP IN A SELECT
3A005110
KEYBOARD AND SENSE OSW MOOE.
** 4. SEE PAGE 2 FOR KEYBOARD CHAR CODES.
*****
NONE, SWITCHES MAY BE CHANGED AT ANY TIME. LOAD IPL FROM CARD OR PAPER TAPE.
3A005120 3A005130 3A005140 3A005150
3A005l60 3A005l70 3A005180
* SET DESIRED PROGRAM OPTIONS IN BIT SWS 14 AND 15.3A005190
*****
14 ON -- DISPLAY LAST CHAR READ IN Q REG. 3A005200
14 OFF - DISPLAY LAST DSW IN Q REG.
3A005210
15 ON -- WAIT AfTER EACH PROGRAM PASS.
3A005220
15 OFF - LOOP IN SELECT KEYBOARD AND SENSE 3A005230
DSW MODE.
3A005240
DEPRESS START.
3A0052.50
* 3A005260
* NORMAL PROGRAM WAIT IF BIT SW 15 IS ON. SELECT 3A005270
* LIGHT SHOULD BF ON.
3A005280
* LAST CHAR READ AND LAST DSW ARE DISPLAYED IN
3A005290
* ACCUMULATOR OR Q REG, DEPENDING ON BIT SW 14.
3A005300
* DEPRESS DESIRED KEYBOARD KEY OR DFPRFSS INT. REQ.3A005310
*
3A005320
1. TO RESTART PROGRAM, DEPRESS IMMEDIATE STOP
3A005330
* AND RESET PUSH BUTTONS.
3A005340
* 2. DEPRESS START.
3A005350
* 3A005360
* 1. LAST DSW SENSED OR LAST CHARACTER READ IS
3A005370
* DISPLAYED IN THE Q REG. SEE WAIT 1.
3A005380
* 2. TO RUN PROGRAM WITH INTERRUPT DELAY SW ON,
3A005390
* EXECUTE BIT SW 15 OFF OPTION.
3A005400
* 3A005410
**************************************************** 3A005420
ORG
0
3A005430
KYBGN LOX
KYBLD *A* TO /6032 LDX KYRST
3A005440
KYONE DC
1
CONSTANT l
3A005450
KYBSW DC
KYDSW
BIT SW SAVE AREA
3A005460
DC
/003A *A* TO /3AOO RD BIT SWS
3A005470
KYOSW LOX
KYRST
RESET VECT/BIT SWS
3A005480
DC
/FOlO *A* TO /OFOl XIO SENSE DSW
3A005490
KYSEL DC
0
3A005500
DC
/COOO *A* TO /OCOO XIO SEL KYBD
3A005510
KYRD DC
KYKEY
KEYED RO/IN AREA
3A005520
DC
/AOOO ·A· TO /OAOO XIO KEY RD
3A005530
KYKEY DC
*-*
K E'YED RD/ IN AR EA
3A005540
KYDSV DC
*-*
LAST DSW SENSED
3A005550
DC
KY I N4
INTERRUPT AODR
3A005560
KYOCH LDD
KYKEY
LOAD LAST CHAR READ
3A005570
RTE
16
SWAP LAST CHAR/DSW
3A005580
STD
KY KEY
MOX
KYDSP
*
3A005590 3A005600
KYIN4 DC
*-*
INTERRUPT ENTRY
3A005610
XIO
KY fl SW
READ BIT SWS
3A005620
XIO
KYDSW
SENSE RESET DSW
3A005630
STD
KYOSV
SAVE DSW
3A005640
SLA
l
CK IF RESPONSE
3A005650
BOS.C MDX
KYRFQ
*NO, CHK IF REQUEST
3A005660 3A005670
MDX
KYRDW
YES, READ CHAR CODE
3A005680
KYREQ SLA
l
CHECK IF REQUEST
3A005690
BOSC
*
3A.005700
D.ATE
EC ND.
l5FEB68 25JUL69
420403
571053
PROG IO PAGE
03A0-0 5
c) .o
u
(_)
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 1130 SCOPE LOOP PROGRAMS
PART NO. 2243962
PAGE
5A
oorn o 101 A
OOlC 0 08EB OOllJ 0 OflEB OOlE 0 COF5 OOlF 0 lOOF 0020 0 4828 0021 0 70FB 0022 0 C8E7 0023 0 7012 0024 D CODE 0025 0 1008 0026 0 DODC
oon o cor)[)
0028 0 1804 0029 0 DODB 002A 0 CODC 0028 0 1804
ooze o riooA
0020 0 CODB 002E 0 1804 002F 0 0009 0030 0 COD3 0031 0 OOCE 0032 0 3001 0033 0 0802 0034 0 1010 0035 0 0004 0036 0 08CB
0037 0 cocc
0038 0 lOOE 0039 0 4810 00311 0 7007 0038 0 CACE 003C 0 3002 0030 0 7004
003E 0 0000 003F 0 0000 0040 0 0000 0041 0 0000 0042 0 0000 0043 0 0000 0044 0 0000 0045 0 0000 0046 0 0000 0047 0 0000 0048 0 0000 0049 0 0000 004A 0 0000 004B 0 0040 004C 0 9000 004fl 0 200() 004F O 2000 004F 0 0040
Ml) X
KY SET
NO, RESENSE DSW
3A0057l0
KYRDW XIO
KYRD
YES, READ LAST CHAR
3A005720
XIO
KYSEL
SELECT KEYBOARD
3A005730
LO
KYDSW
CK IF CHAR/DSW IN Q
3A005740
SLA
14
BSC
&Z
"IDX
KYDCH
**DISPLAY CHAR IN Q
3A005750 3A005760 3A005770
KYDSP LDD
KY KEY
DISPLAY DSW IN Q
3A005780
MIJX
KY SET
GO SELECT KEYBOARD
3A005790
KYBLO LO
KYBSW&l
BUILD IOCCS AND
3A005800
SL A
sTn
LD SR/\
STO
LO SRA STO
Lf)
SRA STD
L f)
srn
KYRST r/A TT
8
KY BSW& l KYDSW&l
4
KYDSW&l KYSFLl:l
4
KYSEL&l KYRl)l;l
4
KYRD&l KYOSW KYBGN
l
* RESET/START VECT
* * * * * * * * * * * *SET PROGRAM OPTIONS
3A005810
3A005820 3A005830 3A005840
3A005850 3A005860 3A005870 3A005880 3A005890 3A005900 3A005910 3A005920 3A005930 3A005940
X IO
KYSEL
SELECT KEYBOARD
3A005950
SLA
16
CL LASl CHAR KEYED
3A005960
STO
KYSET XIO
KY KEY KYBSW
*RO BIT SWS FOR OPTS
3A005970 3A005980
LO
KYDSW
CHK IF SEL/RD LOOP
3A005990
SLA
15
BSC
** OPTION IS SELECTED
3A006000 3A006010
MDX
KYIN4tl
YES, GO SENSE DSW
3A006020
LOO
KY KEY
DISPLAY CHAR/OSW IN Q
3A006030
WAIT
2
DEPRESS DESIRED KEY
3A006040
MDX
KYIN4&1
GO SENSE DSW
3A006050
*************************************************** 3A006060
DC
0
DC
0
*SPACE FILLER
3A006070 3A006080
DC DC DC DC DC DC DC DC DC DC DC DC
0 0 0 0 0 0 0 0 0 0 0 /0040
* * * * * * * * * **THE LAST FIVE WORDS ARE
3A006090 3A006100 3A006110 3A006120 3A006130 3A006140 3A006150 3A006160 3A006170 3A006180 3A006l90 3A006200
DC
/9000
* USED FOR PROGRAM
3A006210
Df.
/2000
* IDENTIFICATION. THREE
3A006220
DC
/2000
* FOR THE PIO AND TWO FOR 3A006230
DC
/0040
* SFQUENCF.
3A006240
DATE EC ND.
l 5FEB68 25JUL69
420403
571053
. PRDG ID PAGE
03AO-O SA
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 1130 SCOPE LOOP PROGRAMS
PART NO. 2243962
PAGE
6
6.04 PAPER TAPE PUNCH
A. PRELOAD SWS
R. LOADING
c. WA[TS
1
2 3 D. Rf START
E. COMMENTS
0000 0000 0 6000 0001 0 0001
0002 0 0006 0003 0 003A 0004 0 0006
0005 0 0019 0006 0 0000 0007 0 OOlF 0008 0 0000 0009 0 601C OOOA 0 0000 OOOB 0 0000
oooc 0 0033
OOOD 0 COF7
*************************************************** 3A006260
*
3A006270
* l. THE PROGRAM PUNCHES ALTERNATE CHARACTERS
3A006280
WHICH HAS BEEN SELECTED IN THE BIT SWS,
* OR A BINARY PATTERN. ** 2. AN OPTION IS AVAILABLE TO SET UP A VARIABLE
3A006290 3A006300 3A006310
*
DELAY BETWEEN XIO PUNCH EXECUTIONS.
3A006320
* 3. AN OPTION IS AVAILABLE TO HALT THE PROGRAM 3A006330
* *
AFTER THE COMPLETION OF THE EXECUTION OF A PROGRAM PASS.
3A006340 3A006350
* 4. SEE PAGE 2A FOR BIT SW CONTROL BINARY PATTERN.3A006360
* 5. THIS TAPE MAY BE USED IN THE PAPER TAPE
3A006370
* * * * *
READER SCOPE LOOP, 6.05.
1. IF DELAY IS OF.SIRED, SET DELAY CONTROL VALUE IN BIT SWITCHES l THRU 13. *NOTE* SWS 1 THRU 13 ALL ON, MAX DELAY.
* * * * *
SWS 1 THRU 13 ALL OFF, NO DELAY. 2. IF A BINARY PATTERN IS DESIRED, TURN ON
BIT SWITCH 14. 3. IF A WAIT AFTER EACH PROGRAM PASS IS
DESIRED, TURN ON BIT SWITCH 15.
* * * * * * * * * * * * * * * * *
LOAD IPL FROM CARO OR PAPER TAPE~
SET DESIRED CHARACTERS TO BE PUNCHED IN BIT SWS 0 THRU 15. SEE PAGE FOR BIT SW CODES.
lST CHARACTER IN SWS 0 THRU 7. ZNO CHARACTER IN SWS 8 THRU 15. M.KE ~APER TAPE PUNCH READY. DEPRESS START.
NORMAL PROGRAM WAIT IF 1 PASS OPTION HAS BEEN SELECTED. DEPRESS START TO HAKE ANOTHER PASS.
NO INTERRUPT GENERATED AFTER XIO PUNCH COMMAND WAS, GIVEN. SEE COMMENTS.
1. TO RESTART PROGRAM OR RESET INITIAL PRELOAO SWITCH SETTINGS, DEPRESS IMMEDIATE
3A006380 3A006390 3AOQ6400 3A006ltl0 3A006420 3A006430
3A006440 3A006450
3A006460 3A006470
3A006480 3A006490
3A006500 3A006510 3A006.520 3A0065.30 3A006540 3A006550 3A006560 3A006570 3A006580 3A006590 3A006600 3A006610
3A006620 3A006630 3A006640 3A006650
*
STOP AND RESET PUSH BUTTONS. 2. SET DESIRED PRELOAD BIT SWITCH SETTINGS.
3A006660 3A006670
* 3. DEPRESS START.
3A006680
* 3A006690
* 1. LAST DSW SENSED IS DISPLAYED IN THE Q REG.
3A006700
* 2. TO RUN PROGRAM WITH INTERRUPT DELAY SW ON
3A006710
* OR TO BYPASS THE INTERRUPT WAIT, LOAD /6034 3A006720
* INTO LOCATION /0031 ANO DO A PROGRAM RESTART. 3A006730
* 3. TO SET UP LOOP TO EXECUTE XIO, LOAD /6034
3A006740
* INTO LOCATION /0031 ANO LOAD /603A INTO
3A006750
* LOCATION /0039 AND DO A PROGRAM RESTART.
3A006760
* 3A006770
**************************************************** 3A006780
ORG
0
3A00679.0
TPBGN LOX
TPBLO *A* TO LOX TPRDS /6024
3A006800
TPONE DC
l
CONSTANT ONE
3A006810
TPBSW DC
TPOSW
BIT SW SAVE AREA
3A006820
DC
/003A *A* TO /3AOO RO BIT SWS
3A006830
TPWRT DC
TPDSW
CHARACTER ADDRESS
3A006840
DC
/0019 *A* TO /1900 XIO PUNCH
3A006850
TPDSW DC
*-*
BIT SW READIN AREA
3A006S60
DC
/OOlf *A* TO /lFOl SENSE DSW
3A006870
TPSET DC
TPCTL LOX
TPlOO TPOSV
DqCc
*-*
TPRDS
··-- ··
SW OPTION/DELAY SAVE 2NO CHAR SW/RESET MOO *A* TO /0100 P~TT BUILD OSW SAVE AREA
3A006880 3A006890 3AQ06900
3A006910
DC
TPIN4
INTERRUPT ADDRESS
3A006920
TPBLO LO
TPWRT&l
BUILD WRITE IOCC
3A006930
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 1130 SCOPE LOOP PROGRAMS
PART NO. 22~3962
PAGE
6A
OOOE 0 1008 OOOF 0 DOF5 0010 0 COF6 ·0011 0 1008 0012 0 E8EE 0013 0 DOF3 - 0014 0 COEE
0015 0 1008 0016 0 DOEC 0017 0 COE9 0018 0 1008 0019 0 DOFO OOlA 0 COEE 0018 0 DOE4 OOlC 0 08E5 0010 0 COE8 OOlE 0 DOE9 OOlF 0 3001 0020 0 1010 0021 0 DOE4 0022 0 COE5 0023 0 lOOE 0024 0 4828 0025 0 7002 0026 0 0808
0027 .o 7005
0028 0 CODD 0029 0 80EO 002A 0 OOOB 002B 0 1010 002C 0 DODC 0020 0 0808 002E.O OOOC 002F 0 C8DA 0030 0 0803 0031 0 3003 0032 0 7007 0033' 0 0000
0034 0 C805 0035 0 0800 0036 0 0004 0037 0 1003 0038 0 4850 00.39 0 70FA 003A 0 COCO 0038 0 1801 003C 0 90C4 0030 0 4810 003E 0 70FO 003F 0 COC9 0040 0 4818 0041 0 7004 0042 0 COC3 0043 0 1008 0044 0 DOCl 0045 0 70E5 0046 0 68C2
0047 0 coco
0048 0 4804 0049 0 3002 004A 0 700.7
0048 0 0040 004C 0 9000 0040 0 2000 004E 0 2000 00.4F 0 0020
SLA STO
8 TPWfHU
· ·
LO
SL" OR STO
TPOSW&l
8 TPONE TPOSW&l
···BUILD SENSE RESET
LO
SLA STO
TPBSW&l 8 TPBSW&l
BUILD READ BIT SW
··* IOCC
3A006940 3A006950 3A006960 3A006970 3A006980 3A006990 3A007000 3A007010 3A007020
LO
TPONE
SLA
8
STO , TPlOO
LO
TPCTL
··BUILD PATTERN WORD
SET UP RESET AND
3A007030
~A007040
3A007050 3A007060
STO
TPBGN
* START BRANCH
3A007070
TPROS XIO
TPBSW
READ BIT SWS FOR
JA007080
LO STO
WAIT
TPDSW TPSET 1
·* PROG OPTS/DELAY
SET CHARS IN SWS
3A007090 3A007100 3A007ll0
SLA
16
CLR PUNCH WO LDC
3A007l20
STO
TPOSW
3A007130
LO
TPSET
CHK PUNCH OPTION
3A007140
SLA
14
BSC
&l
MDX
TPPAT
* ·
BIT 14.0N, PCH PATT
3A007150 3A007160 3A007170
XIO
TPBSW
READ BIT SWS
3A007180
MOX
TPSEN
GO SENSE DSW
3A007l90
TPPAT LO
TPDSW
LOAD PATTERN WORD
3A007200
A
STO TPALT SLA
STO TPSEN XIO
TPlOO TPDSW
16 TPCTL TPDSW
·BUILD NEXT WORD
·CLR 2NO CHAR SW
SENSE DSW
3A007210 .3A007220 3A007230 3A007240 3A007250
STO
TPDSV
SAVE OSW
3A007260
LOO
TPOSV-1 LOAD LAST DSW IN Q
3A007270.
XIO
TPWRT
PUNCH CHARACTER
3A007280
WAIT MDX TPIN4 DC LOO
·-·3
TPRET TPOSV-1
WAIT FOR INTERUPT BRANCH TO DELAY INTERRUPT LEVEL 4 LOAD LAST DSW INTO Q
3A007290 3A007300 3A007310 3A007320
XIO
TPOSW
SENSE RESET DSW
3A007330
STO
TPDSV
SAVE DSW
3A007340
SLA
3
CK IF PUNCH RESPONSE
3A007350
BOSC
RESET INT LEVEL
3A007360
MDX
TPIN4&l RESENSE OSW
3A007370
TPRET LO
TPSET
SET UP DELAY AND
3A007380
SRA TPLOP S
BSC MOX LO
1 TPONE
TPLOP . TPCTL
* EXECUTE DELAY
·
* ·
CHK IF 2ND CHAR SW
3A007390 3A007400 3A001410 3A007420 3A007430
BSC
&-
* CLEARED
3A007440
MDX
TP NOT
YES
3A007450
LO
TPDSW
SLA
8
STO
TPOSW
MDX
TPALT
··NO, SET UP ZND CHAR
PUNCH 2ND CHAR
3A007460 3A007470 .3A001-'t80 3A007490
TPNOT STX
TPCTL
SET 2ND CHAR SW
3A007500
LO
TPSET
CHK 1 PASS OPTION SW
3A007510
BSC
E
WAIT 2
*COMPLETED PROG PASS
3A007520 3A007530
MOX
TPRDS&6 LOOP PROGRAM
3A007540
*************************************************** 3A007550
DC
/0040
THE LAST FIVE WORDS ARE 3A007560
DC
/9000
* USED FOR PROGRAM
3A007570
DC
/2000
* IDENTIFICATION. THREE 3A007580
DC DC
/2000 /0020
** FOR THE PIO AND TWO FOR 3A007590
SEQUENCE.
3A007600
DATE EC NO.
.15FEB68 25JUL69 420403 571053
PROG IO PAGE
03AO-O 6
DATE EC NO.
l 5FEB68 25JUL69 420403 571053
,-----,
...,/
\
j
'._j
.J
·..........
I
,__j
I
,.....____/
PRDG ID PAGE
03AO-O 6A
/
- - - - - - - - -------·-·- --·---~------
0 0 0 0 0 0 0 0 0 0 0 0 0 0 () () 0 CJ CJ 0 0 () 0 0 0 0 0 0 0 0 0
JRM MAINTENANCF 0IAGNOST1C PROG~AM fOU THE 1130 SYSTEM 1130 SCOPE LOOP PROGRAMS
PART NO. 2243CJ62
PAGE
7
IBM MAINTFNANCE DIAGNOSTIC PROGRAM FOR THf 1130 SYSTEM 1130 SCOPE LOOP PROGRAMS
PART NO. 2243962
~AGE
7A
6.05 PAPER TAPE RFADFR
A. PRFLOAD SWS
P. LOADING C. WAITS
5 6
D. RESTART
E. COMMENTS
0000 0000 0 6021 0001 0 60?.f 0002 0 0809 0003 0 0021 0004 0 1001 0005 0 4850 0006 0 70F8 0007 0 0806 0008 0 COlB 0009 rj 7008 OOOA 0 0000 OOOB 0 fOOO oooc 0 0001 0000 0 f808
*************************************************** 3A007620
* 1. THE PROG~AM RFADS CHARACTERS WHICH HAVE B£EN 3A007630
*
PUNCHED IN THE TAPf AND COMPARES THEM WITH
3A007640
*
A BINARY PATTERN OR ALTERNATE BIT SWITCH
3A007650
*
CHARACTERS.
3A007660
* 2. AN OPTION IS AVAILABLE TO SET UP A VARIABLE 3A007670
*
OF.LAY BFTWEFN XIO READ EXECUTIONS.
3A007680
* 3. AN OPTION IS AVAILABLE TO BYPASS WAit 6
3A007690
*
ON COMPARE fRRORS.
3A007700
** 1. IF DELAY IS DESIRED, SET DELAY CONTROL
3A007710 3A007720
*
VALUE IN RIT SWITCHES 1 THRU i3.
3A007730
*
*NOTE* SWS 1 THRU 13 ALL ON, MAX DELAY.
3A007740
*
SWS l THRll 13 All OFF, NO DELAY.
* 2. IF A RINARY PATTERN rs DESIRfO, TURN ON
3A007750 3A007760
*
BIT SWITCH 14.
3A007770
* 3. IF RYPASS COMPARE ERROR WAIT 6 OPTION JS
3A007780
*
DESIRED, TURN ON BIT SWITCH 15.
3A007790
** LOAD IPL FROM CARD OR PAPER TAPE.
3A007800 3A007810
** LOAD PAPER TAPE INTO READER. SfE PAGE 2A FOR
3A007820 3A007830
* LOADING A BINARY PATTERN TAPE.
3A007840
* PLACE lST CHARACTER TO BE READ FROM THE TAPE,
3A007B50
* JUST AFHIND SENSING PINS.
3A007860
** SET DESIRED CHARACTERS TO COMPARE IN BIT SWS 0 THRU 15. SFE PAGE 2A FOR BIT SW CODES.
3A007870 3A007880
*
lST CHARACTER IN SWS 0 THRU 7.
3A007890
*
2NO CHARACTER IN SWS A THRU 15.
3A007900'
* DEPRESS START.
3A007910
** NO INTERRUPT GENERATLD AFTER XIO TAPE ADVANCE
3A007920 3A007930
* COMMAND WAS GIVEN. SEE COMMENTS.
3A007940
3A007950
** COMPARE ERROR. ACCUMULATOR CONTAINS THE CHAR
3A007960
* READ. THIS CHARACTER IS NOW LOCATED l CHARACTfR 3A007970
* PAST THE SENSING PINS.
3A007980
** TO READ/COMPARE NEXT CHARACTER, DEPRESS START. TO LOOP ON COMPARE ERROR, SEE PRELOAD SWS.
3A007990 3AOOB000
* 3A008010
* 1. TO RESTART PROGRAM OR RESET INITIAL PRELOAO .3AOOB020
*
SWITCH SETTINGS, DEPRESS IMMEDIATE
3A008030
*
STOP AND RESET PUSH BUTTONS.
3A008040
** 2. SET OFSIREO PRELOAD BIT SWITCH SETTINGS. 3. DEPRFSS START.
3AOOR050 3A008060
*
* * * * * * *
3AOOB070
l. LAST OSW SENSED IS DiSPLAYFD IN THE Q REG.
3A008080
2. TO RUN PROGRAM WTTH INTERRUPT DELAY SW ON
3A008090
OR TO BYPASS THE INTERRUPT WAlT, LOAD /6002 3A008100
INTO LOCATION /0042 ANO DO A PROGRAM RESTART. 3A008110
3. TO SET UP LOOP TO EXECUTE XIO, LOAD /6002
3A008i20
INTO LOCATION /0047. ANO LOAD /601A INTO
3A008130
LOCATION /0006 ANO DO A PROGRAM RESTART.
3A008140
ORG
0
3AOOB150
TRBGN lf)X
TR BLD *A* TO /602F LDX TRRST
3A008160
TRIN4 LOX
TRRST
INTERRUPT ENT.RY
3A008170
XIO
TROSW
SENSE nsw
3A008180
STO
TROSV
SAVE DSW
.3A008190
SLA
1
CK FOR OP COMPLETE
3A008200
BOSC: MOX
TR I N4&1
*NO, RESENSE DSW
3A008210 3AOOR220
XlD
TRRO
YES, READ TAPE
3A008230
LO
TR ARA
COMPARf TO EXPECTED
3AOOR240
MDX TRAOV DC
oc
TRI4A
mooo
/EOOO
GO TO TRl4A RUILD CONSTANT *A* TO /lCOO XIO ADVANCE
3A008250 3A008260 3A008270
TROSW DC
DC
/0001
INT AOR/CONSTANT 1
/F808 *A* TO /lFOl xro SENSE
3A008280 3A008290
OOOE 0 0024 OOOF 0 OOlA 0010 0 007-3 0011 0 003A 0012 0 FOlO 0013 0 4Rl8 0014 0 7005 0 01.5 0 C OOB 0016 0 4A04 0017 0 7002 0018 0 C80B 0019 0 3006 OOlA 0 CR09 IJOlB 0 C005 OOlC 0 lAOl 0010 0 90EE OOlE 0 4810 OOlF 0 70FD 0020 0 7014 0021 0 COEF 0022 0 1008 0023 0 DOED 0024 0 COE8 0025 0 1803 0026 0 OOE6 0027 0 1008 0028 0 OOF9 0029 D CAEO 002A 0 lllC3 002B·O DOE3 002C 0 0800
0020 o coin
002E 0 OOfH
002f 0 08EO 0030 0 COF2 0031 0 OOEF 0032 0 3001 00:33 0 1010 0034 0 DOEE 0035 0 COER 0036 0 lOOE 0037 0 4828 0038 0 700F 0039 0 0806 003A 0 COEB 003A 0 4!120 003C 0 7006 0030 0 68E8 003E 0 COE4 003F 0 1008 0040 0 00E2 0041 0 OBC8 0042 0 3005 0043 0 1010 0044 0 OOEl 0045 O CODD 0046 () 1808 0047 0 71'1F7 0048 O CODA 0049 0 BOOR 004A 0 70F5
0048 (} 0040 004C 0 9000 0040 0 2000 004E 0 2000 004F 0 0010
THRO DC
TR ARA
READ/IN AOOR
3A008300
DC
/OOlA *A* TO /lAOO XIO READ
3A008310
TRBSW DC:
TRSBW
BIT SW SAVE AODR
3A008320
DC
/003A *A* TO /3AOO RO BIT SWS
3A008330
TRl4A frlR
BSC MDX
TR SBW
r.-
TRLOP-3
* *
OK, GO TO DELAY
3A008340 3A008350 3A008360
LD
TRALD
ERR, CK LOOP/ERR OPT
3A008370
BSC MDX
E T!l LOP-3
*LOOP/ERR SELECTED
3AOOB3BO 3AOOF3390
L!lD
TR ARA
LO WO RFAO ANO DSW
.3A008400
WAIT
6
COMPARE ERROR WAIT
3A008410
Ll10
TR ARA
LOAD OSW INTO Q
3A008420
Lf)
TRBLD
SET UP OELAV
3A008430
SRA TRLOP S
BSC MDX MflX
1 TRDSW
TR LOP TRSTR
* * * *CK ON PATT OPT
3AOOR440 3A008450 3A008460 3A008470 3A008480
TRBLD LO
TRBSW&l
BUILD PROGRAM
3A008490
TRlOO SLA
8
*A* TO /0100 PATT~ AUILD
3A008500
TRSBW STO
TRBSW& 1 *A* TO *-* COMP SIB WORD
3A008510
TRARA LD
TR DSW& 1 *A* TO *-* WORD READ
3A008520
TROSV SRA
3
*A* TO *-* SAVED OSW
3A008530
TRCTL STO
TPDSW&l *A* TO *-* ALJ CHAR SW
3A008.540
SLA STO LOO RTE
STO STD LO STO TRRST XIO
8
TR 100 TR ADV
3 TR RD& l TR Al)V TR IN4 TRBGN TRBSW
* * * *
* *
**RO SWS DELAY/OPTIONS
3A008550 3A008560 3A008570 3A006580 3A008590 3A008600 3A008610 3A00%20 3A008630
LO
TRSBW
SAVE DELAY/OPTIONS
3A008640
STD WAIT
TRBLO 1
*SET CHARACTERS IN SWS
3A008650 3A008660
SLA
16
INITIALIZE S/B WO
3A008670
STU TRSTR LO
TR SAW TRfHD
*CK WHICH PATT OPTION
3A008680 3A008690
SLA
14
3AOOB700
BSC
&Z
MDX
TRPA.T
*AINARY PATT SELECTED
3A0087l0 3A008720
XTO
TRBSW
READ BIT sws~cHARS
3A008730
LD
TRCTL
CK WHICH CHAR
3A008740
RSC
z
Ml)X
TR NOT
*SEL LEFT CHAR
3A008750 3A008760
STX
TRCTL
SET ALT CHAR SW
3A008770
LD
TRSBW
LOAD BIT SWS
3A008780
TRAL T SLA
8
SET UP RIGHT CHAR
3A008790
STO
TRSBW
SAVE IN S/B
3A008800
x 111
TRAOV
ADVANCE TAPE
3A008810
WAIT
5
WAIT FOR INTERRUPT
3A008820
TRNOT SLA
16
CL ALT CHAR SW
3A008830
STD
TRCTL
LD
TRSBW
*SET UP RIGHT CHAR
3A008840 3AOOBR50
SRA
8
3A008860
MDX TRPAT LO
TRAL T TRSBW
*SET UP BINARY PATT
3A008870 3A008880
A
TR mo
3A008890
* MDX
TRALTtl
3A008900
* *************************************************** 3A008910
nc
/0040
THE LAST FlVE WOROS ARE 3AOOB920
DC
/9000
* USED FOR PROGRAM
3A0089.30
DC DC
/2000 /2000
** IDENTIFICATION. THREE 3A008940 FOR THE PIO ANO TWO FOR 3A008950
DC
/0010
* SEQUENCE.
3A008960
DATE EC ND.
15FFB68 25JUL69
420403
571053
PROG IO PAGF
03AO-O 7
DATE EC NO.
15FFB68 25JUl69
42040.3
5.71053
PROG ID PAGE
03AO-O 7A
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE ll 30 SYSTEM 1130 SCOPE LOOP PROGRAMS
PART NO. 2243962
PAGE
8
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 1130 SCOPE LOOP PROGRAMS
PART NO. 2243962
P4GE
84
6.06 1442 PUNCH
A. PRELOAO sws
B. LOADING
c. WAIT
· l
2 3 5
o. RESTART
E. COMMENTS
0000 0000 0 6037
0001 0 0003 0002 0 0000 0003 0 0000 0004 0 0003
0005 0 003A 0006 0 0003 0007 0 OOll 0008 0 OOll 0009 0 A008 OOOA 0 0008 OOOB 0 8818
oooc 0 0011
0000 0 0029 OOOE 0 OOFO OOOF 0 3001 0010 0 701F 0011 0 0000
0012 0 08F7 0013 0 1001
0014 0 4850 0015 0 700C 0016 0 OBED 0017 0 COEA
0018 0 BOEB
0019 0 DOES
OOlA 0 FOF3 0018 0 4820 OOlC 0 7003 0010 0 COE5
*************************************************** 3A008980
*
3A00fl990
* THIS PROGRAM WILL PUNCH THE DATA IN BIT SWITCHES 3A009000
* 0-11 IN All COLUMN UNLESS RIT 12 IS ON AND THEN 3A009010
* ONLY THE FIRST COLUMN IS PUNCHED. THESE CARDS 3A009020
* MAY BE USED IN THE READER SCOPE LOOP 6.07 AND 3A009030
* 6.11.
3A009040
* * NONE, SWITCHES MAY BE SET AT ANY TIME.
3A009050 3A009060
*
3A009070
* IPL MODE FROM CARDS OR PAPER TAPE.
3A009080
*
3A009090
* SET DES IRED BIT SWITCHES AS FOLLOWS,
3A009100
*
RIT 15- HALT
3A0091 l0
*
BIT 14- STACKER SELECT
3A009120
*
BIT 13- F£EO A CARO
3A009130
*
BIT 12- TERMINATE PUNCHING 3A009140
*
0 TO 11- PUNCHING PATTERN 3A009150
*
3A009160
* ONE PASS COMPLETED, PRESS START TO C~NTINUE.
*
3A009170 3A009180
* LOST PUNCH INTERRUPT.
3A009190
*
3A009200
* LOST FEED OR INTIATE PUNCH INTERRUPT.
3A009210
*
3A009220
* PRESS IMMEDIATE STOP ANO RESET. PRELOADING
3A009230
** SWITCHES MAY BE SET AS DESIRED. PRESS START.
3A009240 3A009250
* 1. TO RUN THE PROG WITH INTERRUPT DELAY SWITCH 34009260
*
ON OR BYPASS THE INTERRUPT WAIT LOAD /6012 3A009270
*
INTO LOCATION /0021 AND /0032 ANO RESTART. 3A009280
*
3A009290
* 2. TO GET A FASTER LOOP THAN THE ABOVE PLACE
3A009300
*
/70FF IN THE NEXT LOCATION AFTER THE XIO. THE 3A009310
*
XIO WILL BE EXECUTED AFTER EACH BRANCH.
3A009320
*
3A009330
*************************************************** 3A009340
ORG
0
3A009350
PHFED LOX
DC PHCTR DC PHSWS DC
·-·PHBLO
/000.3 *-*
*A* TO /600F LOX PHl
*A* DC
/1402 FD A CD
COLUMN COUNTER
BIT SWITCH STG
3A009360 3A009370 3A009380 3A009390
PHBSW DC
/0003
READ IN ADRS
3A009400
DC
/003A *A* DC
/3AOO
3A009410
PHPCH DC
PHSWS
PCH [/0 AREA
3A009420
'DC
/0011 *A* DC
/1100
3A009430
PHPST DC
PHI NT
COL INTR ADRS
3A009440
DC
/A008 *A* DC
/1401
3A009450
PHOSW DC
/0008
PCH TERMINATOR
3A009460
DC
/B818 *A* DC
/1703
3A009470
PHSTK DC
PHI NT
OP COMP INTR ADRS·
3A009480
DC
/0029 *A* DC
/1480
34009490
PHK50 DC
/OOFO
80 COLS TIMES 3
3A009500
PHl WAIT MDX
PHINT DC . XIO.
·-·l
PH2 PHO SW
SET BIT SWS
INTERREPT ENTRY SENSE DSW
3A009510 3A009520 3A009530
3A009540
SLA
1
3A009550
BOSC
COL INTR ON
3A009560.
MDX
PH6
* NO, TRY OP COMP
3A009570
XIO
PHBSW
3A009580
LO
PHCTR
COLUMN COUNTER
3A009590
A
PHBSW
ADO THREE
3A009600
STO
PHCTR
3A009610
EOR
PHK50
CHECK FOR LAST COLUMN
3A009620
BSC
z
IS IT LAST COLUMN
3A009630
. MDX
PH4
3A009640
LO
PHSWS
GET DATA TO BE PUNCHED
3A009650
OOIE 0 E8F.B OOlF 0 DOE3 0020 0 08E5 0021 0 3003 0022 0 1003 0023 0 4850 0024 0 6012 0025 0 1010 0026 0 DODB 0027 0 OBOC 0028 0 CODA 0029 0 4804 002A 0 3002 002R 0 1801 002C 0 4804 0020 0 7005 OOZE 0 1801 002f 0 4804 0030 0 08CF 0031 0 0806 0032 0 3005 0033 0 0808 0034 0 COCE 0035 0 1802 0036 0 70F8
0037 0 C012 0038 0 DOC7 0039 0 COCF 003A 0 1803 003B 0 OOCD 003C 0 FOC4 0030 0 DOC3 003E 0 COC6 003F 0 1008 0040 0 DOC4 0041 0 COC9 0042 0 1803 0043 0 OOC7 0044 0 COC2 0045 0 1008 0046 0 DOCO 0047 0 COC5 0048 0 1007 0049 0 DOC3 004A. 0 600F
0040 0 0040 004C 0 9000 0040 0 .2000 004E 0 2000 004F 0 0008
OR
PHDSW
* AND OR IN PCH tERM
3A0096f!O
STO
PHSWS
* ANS STORE BACK
3A009670
PH4 XIO
PHPCH
PUNCH.A COLUMN
3A009680
WAIT 3
WAIT FOR INTERRUPT
3A009690
PH6 SLA
3
'3A009700
BOSC
OP COMP ON
3A009710
LOX
PHINT&l * NO, SENSE AGAIN
3A009720
SLA
16
* LEVEL ~- OP C6MP
3A009730
STO
PHCTR
CLEAR COLUMN COUNTER
3A009740
XIO
PHBSW
READ BIT SWITCHES
3A009750
LO
PHSWS
GET SW SETTING
3A009760
BSC
E
HALT .PROGIUM
3A009770
WAIT 2
*.YES
3A009780
SRA
1
* NO
3A009790
BSC
E
00 STACKER.SELECT
3A009800
MOX
PH8
* YES
3A0098.10
SRA
1
* NO
3Ao09820
BSC
E
WHAT OPERATION
3A009830
PH2 XIO
PHFEO
FEED A CARD
3A009840
XIO
PH PST
START THE PUNCH
3A009850
WAIT 5
* PCH FROM SWS
3A009860 .
PH8 XIO
PHSTK
GIVE STACKER COMMAND
3A009870
LO
PHSWS
RESTORE ACC
3A009880
SRA
2
3A009890
MDX
PH2-l
3A009900
* PHBLO LO
PHRES
BUILD XIO COMMANDS SET UP RESTART
3A009910 3A009920
STO
0
3A009930
LO
PHPST+l * INIT PCH
3A009940
SRA
3
*
3A009950
STD
PHPST+l *
EOR
PHFED&l * FEED A CARD
STO . PHFEO&l *
LO
PHBSW+l * READ BIT SWITCHES
3A009960 3A009970
3A009980
3400.9990
SLA
8
*
STO
PHBSW+l *
LO
PHDSW+l * SENSE DSW
SRA
3
*
3A010000 3A010010
3A010020 3AOl0030
STO
PHOSW+l *
LO
PHPCH+l * PCH A COLUMN
SLA
8
*
STO
PHPCH+l *
LO
PHSTK+l * STACK SELECT
3A010040 3A010050 3A010060 3A010070 3A010080
SLA
7
*
STD
PHSTK&l *
3A010090 3A010100
PHRES. LOX
PHl
3A010110
*************************************************** 3A010120
DC
/0040
THE LAST FIVE WORDS ARE 3A010l30
DC
/9000
* USED FOR PROGRAM
3A010140
DC
/2000
* IDENTIFICATION. THREE 3A010150
DC
12000.
* FOR THE PIO ANO TWO FOR 3A010160
DC
/0008
* SEQUENCE.
3A010170
DATE
EC ND.
15FEB68 25JUL69 420403 571053
--,)
I
j
'-.__,/
'----'
:
-,_/
..._
.._ ,/
PROG IO PAGE
03AO-O
8
DATE EC NO.
15FEB68 25JUL69 420403 571053
,)
"· i
'-J
..- '\I
·,__/
.. -·--...,,
,__)
,)
,,....-....... ,
\ J\
\
.____)
·-.,
_,-- .....\
_,,) ,_) '·,
,_J
")
:~J
,,.,----....._
\"'---)'
.. ---" )
'-..~_./
,-·-..........,
'-)
·~
.:J
~. )
'.,_
·, /
PROG IO PAGE
03AO-O 8A
I .J
,
__
'
,/
'·..... _,.
,_' )
'1 ,' \
j
'-..,/
0
0 u(· 0
0
r'BM '.MAI NHN[\NC'f'. h I AGNb'slfrt;· PROGRAM FOR THE 11.'.JO SYS Tf M
1 : I ' ·
~ :; i~ ::. ~· t i:" \ .:
-':z ;".: , ·. i ; ,'. ·. · ··'
1130 SCOPE LOOP PROGRAMS
0 (; CJ () () 0 0 0 0 0 0 0
IPART NO. 22439~2
PAGE . '
'· ;9
rBM '·MA'lNTENANC:B.' DIAGNUS:r:rc; PROGRAM FOR. THE 1130 SYSTEM
: ·i '·' !. ~·
; ~-. ;: ·.: :~~· <·
:·,:
1130 SCOPE LOOP PROGRAMS
0 ()
0
,--···,
I
·,
'"-._)
!;P,A!U NO. 224391~~·
:PAGf
rn·· ;;,'~~.
' .: ~ ~·;
'' ., :?
6:.·o:-r 141t? Ri=ADER
. A. PRflOAO SWS
P. LOADING C. WAITS
4 6
O. RFSTART
F. COMMENTS
0000
0000 0 601F 0001 0 DOFF
0002 0 0006
0003 0 003A 0004 0 OGOl
0005 0 0012
0006 0 6020 0007 0 fHlUI 0008 I) OOOF
0009 0 ?808 OOOA 0 0000 0008 0 1)000 oooc 0 OOOF
0000 0 OOFF OO()f 0 0001
OOOF 0 .oooo .
0010 0 08F5 OOll () 00F9
0012 () 4850 0013 Q 7024
: \::'1;
**********************************.**.*************** 3AOldl90
*.,.. ,. 3A01'0200'
* .: C., THE PROGRAM· READS A COllJMN- OF' DATA FROM
3A-Ol0210
* ,·. ,:! 'THE CARO ANO COMPARES IT ·WITH 'THE. lllT SWS.
3AOld2'20'
*; ·2~ AN·bPTION IS AVAILABLE TO ~ET UP A VARIABLE 3A010230
~· · DELAY BETWEEN XIO READ EXECUTIONS.
3A010240
*' 3. AN OPTION IS AVAILABLE TO BYPASS WAIT 6 *. ON COMPARE FRRORS. .
3AO t'0250· 3A010260
** 1. IF OFLAY lS flESIRED, SET DEL~Y CO~TROL * VALUE JN HIT SWITCHES l THRU 13~
3AO 10270' 3A010280' 3AOl0290
*
*NOTE* SWS l THRU 13 ALL ON, MAX DELAY.
3A010300
*
SWS l THRU 13 ALL OFF, NO DELAY.
3A010310
*· 2. IF RYPASS COMPARF ERROR WAIT 6 DPTION IS DESIRED, TURN ON All SWITCH 15.
·
* LOAD IPL FROM CARO 01~ PAPER TAPE.
3A010320 3A010330
3A010340 3A010350
*· SET BIT SWITCHES 0 THRU 11 TO. EXPECTED COLUMN * DATA AND SET BITS 12 THRU 15 OFF.
* LOAci PREPUNCHFD CARDS INTO READER AND MAKE ROY.
3A010360 3A010370
3A010380 3A010390
* QFPRF.SS START.
3A010400
*· NO I~TERRUPi ~ENERATED AFTFR XIO READ. * COMMANO WAS GIVEN. SEE COM'MENTS.
3A010410 3A010420 lAO 10430
* 3A010440 COMPARE FRROR. ACCUMULATOR CONTAINS RITS READ. 3AO l0450
** IF ACClJMIJLATflR CONTAINS /OOFF, COLUMN READ WAS 3A010460
NbT STOREO INTO READ/IN AREA.
3A010470
** DFPRESS START TO READ NEXT CARD. TO BYPASS COMPARE ERROR WAIT, SEE PRELOAD.
3A0104BO 3A010490
* * * * *
1. TO RESTART PROGRAM OR RESET INITIAL PRELOAO SWITCH SETTINGS, DfPRESS IMMEDIATE STOP ANO RFSET PUSH BUTTONS.
?. SEl OESIRFD PRELOAd RIT SWITCH SETTINGS.
3AOl0500 3A010510 3A010520 3A010530 3A010540
* 3. OEPRE$S START.
** 1. LAST DSW SENSED IS DISPLAYED IN THE Q REG.
3AOI'0550 3A010560 3A010570
** 2. TO RUN PRIJGRAM WITH INTFRRUPT DELAY SW ON
.3AO 10580
OR TO BYPASS THE INTERRUPT WAIT, LOAD /6010 3A010590
·
INTO LOCATION /6037 AND on A PROGRAM RESTART. 3A010600
** 3. TO SFT I.JP LnOP TO FXfCIJTE xrn. LOAD /6010 INTO LOCATION /00.'H AND LOAD /1000 INTO
3A010610 34010620
*
.LOCATION /003A AND DO A PROGRAM RESTART.
3A010630
·*.· **** ****** **** ***** ************************ ******
3A010640 3A010650
ORG
0
3A010660
ROl\GN LOX
Rf)RLU *A* to /6020 lDX RDRST
3A010670
ROAR A oc
/OOH.
RF.AO IN AREA
3A010680
RDRSW oc
Rl1f)SW
BIT SW SAVE AREA
3A010690
oc RD'lRD DC
/!J03A *A* TO /'JAGO RD RIT WSW
ROAR A
REA fl IN AREA AODR
3Ao10100 .3A010710
DC RDOSW, LOX
DC
RORGfJ DC ;. DC.
ROER.I\ oc
1rnosv DncC
RDOFF DC ROD NE UC,
ROl04 DC XI f)
10f)12 RORST
/ABlB
Rll 104 /28Q8
**_-:**·.
RD I 0:4 /OOFF
I
*;_* RDDSW
*A* TO /1200 XIO READ (',IT SW SAVE AREA
*A* TO 11703 x'ro SF.NSF INTERRUPT AOOR
*.A* TO /1404 XTO START LAS.T RDR COMPARE FRR LAST DSW SENSF.D INTERRUPT AODR CONSTANT /OOFF CONSTANT 1. I NTFRRUPT ENTRY
SENSE ANO SAVE DSW
3AO 1072.0 3AOI0730 3AOl0740 3A010750
3A010760 3AO 10770 3A0107SO 3A010790 3A010800 3A010810 3A010!)20 ".J/\010830
STD ROSC MOX
RfJl)SV RJ>Cnr
* CK FOR RO RESPONSF NO, CK OP COMPLETE
3i\01oa40
3AO 10850 3A010860
0014 0 08FF 0015 0 COFO 0016 o. 1804 . 0017 0 1004 0018 0 FOES 0019 0 4818 OCHA 0 701C
ooia 0 COE5
OOlC 0 DOED 0010 0 6802 OOlF 0 7018 OOIF 0 COE:\ 0020 0 1008 0021 0 DOEl 0022 0 COE4 0023 0 1803 0024 0 OOE2 0025 0 COF3 0026 0 1801 00?7 0 DOEl 0028 0 CODC 0029 0 1008 002/\ 0 DODA 002B 0 CODA ooze 0 0003 0020 0 0804 002E 0 corn 002F 0 DOEF 0030 0 3001 0031 0 COOB 0032 0 DOCE 0033 0 1010 0014 () DOEB 0035 0 08CC 0036 0 OflDl 0037 0 3004 0038 0 1004 00'.J') 0 48'50 003A 0 7005 003B 0 C8CE 003C 0 COE2 0030 0 1801 003E 0 90CF 003F 0 4810 0040 0 70FD 0041 0 conE 0042. 0 4818 0043 0 70Efl 0044 0 CODA 0045 0 lOOF 0046 0 4820 0047 0 70ED 0048 0 C8Cl 0049 0 3006 004A' 0 70E6
0048 d 0040 004C 0 9000
oo4D 0 2000
oo4F 0 2ooo 004F 0 0004
XIO
RDRRD
YESr.READ COLUMN
3A010870
LD
RDDSW
CK IF COMPARE TO SWS
3A0.10880
SRA
4
SLA
4
EOR
RD ARA
BSC
&-
MDX
RO I.NT
* **Y*ES, .WAIT NXT INTRPT
3A010890 3A010900 3A010910 3A010920 3A01·09.30.
LO
RD ARA
NO,SAVE COL READ
3A010.940
STD
RO ERR
STX
ROE SW
*SET ERR SW
3A010950 3A010960
MOX
RD INT
WAIT FD~ NXT INTRPT
3A0109.70
ROBLD LO
RDBSW&l BUILD IOCCS ANO
3A010980
ROESW SLA
8
* RESET/START BRANCH
3.A010990
·STD LO SRA STO LO SRA
STD
LD SLA STD LO STD RORST XIO LO
RDBSW&l RDDSW&l
3
RODSW&l RO-RGO&l
l RDRGO& 1
RDR~D&l
8
RORRD&l RDDSW ROBGN RDBSW ROD SW
* * * * * * * * * * * *
*REASDAVESWSDEDLEALYA/OYP/OTPIOTN
3A011000 3A011010 3A011020
3A011030 3A0ll040 3A01 l050 .
3A011060 3A011070
3A011080 3A011090 3A011100
3AO 11110 3A011120 3A011130
STD WAIT
RDBLD
1
*SET READ PATTfRN
3A0lll40 3AOlll50
LD
RD OFF
STD
ROAR A
SLA
16.
**INITIALIZE AND READ
3AOT1160 3A011170 3AOlll80
STO
ROE SW
* BIT SWS
3AOill.90
XIO
RDBSW
XIO
RDRGO
*START READER
.3A011200 3A011210
ROI NT WAIT 4
WAIT FOR INTERRUPT
3A011220
RQCOP SLA
4
CK FOR OP COMPLETE
3'A011230
flOSC MDX
RDI04&1
N* O, RESENSE DSW:
3A011240 3AOll250
LOO
RODSV-1
YES, LOAO DSW IN 'Q
3A011260
LI)
ROBLD
SET UP DELAY
3A011270
SRA ROLOP S
BSC MDX LO
1 RD ONE
RO LOP RDfSW.
* * * *
CK IF F.RR SW ON
3A011280 3A011290
3AOH300 3A011310 3A011320
BSC Mf)X
&RD RS T&4
*NO, RD NXT CARO
3A011330 3AO 11340
LD
RORLD
YES, CK If LOOP·
3A01l350
SLA
15
* ON ERRORIBI~ 151
BSC MOX
z
RDINT-2
*YES, RO BIT SWS
3A011360 3AOI1370 3A0'l1380
LQO
ROOSV-,1 NO, -DISPLAY RD ERR
3A'OH390
WA IT
6
* AND DSW AT ~AIT 6
3A011400
MOX
RDRST&4 RD NEXT CARD
3AOll41'0
**************.********~***.*********************** lA0.11420'
DC
/0040
THE LAST FIVE WORDS ARE 3A011430
nc
/9000
* USED ~OR PROG~AM
.3AOl 1440
DC
DC
/2060 /2000
** IDENTIFICATION~ THREE
3AOll.450
FOR THE PlD AND TWO FOR 3A011460
DC
/0004
* SEQUENCE~ .
3AO 11470
.' ·:. ~.. ;
flAH .. ·, EC NO.
l 5fFR68. 25JUL69 4204()3 571051'
PROG ID
PAGE
03AO-O
9
DATE FC·NO.
15FER61l 25JUt69 420403 571053
PROG IO PAGE'
03AO~o ;CIA
IBM MAINTFNANCF DIAGNOSTIC PROGRAM FOR THF 1130 SYSTEM 1130 SCOPF LOOP PROGRAMS
PART NO. 2243962
PAGE
10
*************************************************** 3A011490
* 6.0~ 2310.DISK SEEK * 1. THE PROGRAM ALLOWS THE HEAD TO ACCESS BACK
3AO 11500 3A011510
AND FORTH BETWEEN 2 CYLINDERS WHICH ARE
3AOll520
* CONTROLLED BY THE OPERATOR.
3A011530
* 2. AN OPTION IS AVAILABLE TO ALLOW A WAIT AFTER 3A011540
A. PRE.LOAD SWS
* *
*
*
* * ·
EACH SEEK OPERATION.· 3. THE PROGRAM CAN BE USED TO POSITION THE HEAD
BEFORE LOADING THF 2310 WRT/RD/COMPARE PROGRAM. 6.09
1. SET DESIRED DISK DRIVE AREA COOE IN BIT SWITCHES 0 THRU 7.
.3AOll 550 3A011560 3A011570
3A011580 3A011590 3AOll600 3A011610
B. LOADING
* *
* * *
·**·
DRIVE 0
20XX
3A011620
DRIVE l
88XX
3A011630
ORIVF 2
90XX
3AOll640
DRIVE 3
98XX
3A011650
DR IVE 4
AOXX
3A011660
2. IF WAIT AFTER FACH SEEK OPERATION IS DESIRED, 3A011670
SET BIT SWITCH 15 ON.
3AOll680
3AO 11690
LOAD IPL FROM CARD OR PAPER TAPE.
3A011700
C. WAITS
* *
· *
SET DESIRED HEX CYLINDER ADDRESS IN BIT SWITCHES 0 THRU 7. SEE PAGE 2A.
SET DESIRED HEX NUMBER OF CYLINDERS TO SEEK IN
·* BIT SWITCHES 8 THRU 15. DEPRESS START.
3AOll 7lO 3AO 11720 3A011730 3AOll 740 3A011750 3A011760
n. RF.START
6
* *
· * *
NO INTERRUPT GENF.RATFD AFTER INITIAL XIO SEEK HOME WAS EXECUTED. SEE COMMENTS
NO INTERRUPT GENF.RATED AFTER XIO SEEK WAS
3A011770 3A011780 3A011790 3A011800 3A011810
*** EXECUTED. SEE COMMENTS
3A011820 3A011830
1. TO RESTART PROGRAM OR RESET SWITCH SETTINGS, 3A0ll840
* DEPRESS IMMEDIATE STOP AND RESET PUSH BUTTONS.3A011850
* 2~ SFT DESIR~D PRELOAD BIT SWITCH SETTINGS.
3A011860
* 3. DEPRESS START.
3A011870
3A011880
E. COMMENTS
*
* ·
1. LAST DSW SENSED IS DISPLAYED IN THE Q REG. 2. TO RUN PROGRAM WITH INTERRUPT DELAY SW ON
ANO TO BYPASS THE INTERRUPT WAIT, LOAD /6012
3A011890 3AOll900 3A011910
· * *
INTO LOCATIONS /0039 ANO /0041. 00 A PROGRAM RESTART.
3A011920 3A011930 3A011940
*************************************************** 3A011950
0000
ORG
0
3A011960
0000 0 601B 0001 0 0000 0002 0 OOOE
OKBGN LOX DKENT DC DKBSW DC
DKBLO
*-*·
DKBIT
*A* TO /6020 LOX UKRST INTERRUPT ENTRY SW BIT SW SAVE
3A011970 3A011980 3AOll990
0003 0 OO'IA
DC
/003A *A* TO /3AOO RD BIT SWS
3A012000
0004 0 OOCA 0005 0 0000 0006 0 0000 0007 0 0000 0008 0 0000 0009 0 0000 OOOA 0 0011
DKHMF DC DC
OKSEK OC DC
DKOSW DC DC DC
202
*-*
*-*
*-*
*-*
*-*
DK I N2
MAX NUMBER OF SEEKS IOCC-S EEK HOME NUMBER OF SEEKS IOCC-SEEK AREA CODE/SW OPTIONS IOCC-SENSE RESET OSW INTERRUPT ADDRESS
3.A012010 3A012020 3A012030 3A012040 3A012050 3A012060 3A012070
0008 0 0000
DKDSV DC
*-*
LAST OSW
3A012080
oooc 0 0004
OK004 DC
/0004
CONSTANT 4
3A012090
0000 0 OOFF
DKOFF DC
/OOFF
CONSTANT ff
3A012100
OOOE 0 6020
OKBIT LOX
OKRST
RE SET VEC TER
3A012110
OOOF 0 7010
OKBDl iDC
/7010
OSW BUILD WORD
3A012120
0010 0 0808
DKB02 DC
/0808
SEEK BUILD WORD
3A012130
0011 0 0000
DKIN2 DC
*-*
OP COMPLETE INTRPT
3A012140
0012 0 ORF5
XIO
OKOSW
SENSE RESET OSW
3A012150.
0013 0 OOF7
STD
OKOSV
SAVE OSW
3A012160
DATE EC NO.
15FE.B68 25JUL69 420403 571053
PROG ID PAGE
03AO-O 10
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 1130 SCOPE LOOP PROGRAMS
PART NO. 2243962
PAGE
lOA
0014 0 1002 0015 0 4868 0016 0 6012 0017 0 COEq 0018 0 4820 0019 0 7020 OOlA 0 7027 OOlB 0 COFZ OOlC 0 DOF3 0010 0 COE5 OOH' 0 1008 001F 0 DOE3 0020 O 08Fl 0021 0 COEC 0022 0 DOE5 0023 0 1808 0024 0 1008 0025 0 DOES 0026 0 COE8 0027 0 1804 0028 0 E8E5 0029 0 000.F 002A 0 COE5 002f\ I) 1801 002C 0 EBEl 0020 0 0007 OOZE 0 0008 002f 0 3001 0030 0 0801 0031 0 cooc 0032 0 1808 0033 0 DOD2 0034 0 0803 0035 0 0005 0036 0 C8D3 0037 0 68C9 0038 0 08CB 0039 0 3005 003A 0 COCC 003B 0 FODO 003C 0 OOCA 0030 0 cscc 003E O 1010 003f O OOCl 0040 0 08CS 0041 0 3006
0042 o coca
0043 0 EOC9 0044 0 OOCl 0045 o·coc2
0046 0 4804 0047 0 3002 0048 0 70Fl
0049 0 0000 004A 0 0000 004B 0 0040 004C 0 9000 004D 0 2000 004E 0 2000 004f 0 0002
SLA
2
BOSC
El
*CK ROY, NOT BUSY
3A012170 3A012180
LOX
OKIN2El
NO, LOOP
3A012190
LO
DKENT
LO INTERRUPT ENTRY SW
3A012200
BSC
l
CHECK IF ON
3A012210
MDX
OKMOV
NO, SEEK HOME ENTRY
3A012220
MOX
DKCON
YES, SEEK ENTRY
3A012230
OKBLD LO
OKBIT
f\UILD RD BIT SW IOCC
3A012240
STO
OKBGN
* AND SET PROG RESET
3A012250
LO SLA
DKBSW&l 8
** AND START VECTER
3A012260 3A012270
STD
OKBSW&l
*
3A012280
DKRST XIO
DKBSW
RO AREA CODE ANO
3A012290
LO
OKBIT
* PROG OPTIONS
3A012300
STD
OKOSW
SAVE SWS
3A012310
SRA
11
SLA
11
SET UP AREA CODE
*
3A012320 3A012330
STD
OKBIT
SAVE AREA CODE
3A012340
LO
OKBOl
f\LJILO DSW ANO SFEK
3AOl2350
SRA
4
* IOCCS
3A012360
OR
DK BIT
*
3A012370
STO
OKOSW&l
*
3A012380
LD
OKBD2
*
3A012390
SRA
OR STO
1
OK BIT OKHME&l
* * *
3A012400 3A012410 3A012420
STD
DKSEK&l
*
3A012430
WAJT
1
SET STARTING CYL ·
3A012440
XIO
OKBSW
* ANO NUM Of CYLS.
3A0l2450
LD
OKBIT
* TO SEEK IN BIT SWS
3A012460
SRA
8
STO
OKS EK
XIO
OKOSW
*SET UP START CYL.
SE~SE DSW
3A012470 3A012480 3A012490
STD
DKOSV
SAVE DSW
3A012500
LDO
OKDSV-1
LOAD OSW IN Q REG
3A012510
STX
OKENT
TURN ON INTRPT ENTRY SW
3A012520
XIO
OKHME
SEEK HOME
3A012530
WAIT
5
WAIT FOR INTERRUPT
3A012540
DKMOV LO
DKSEK&l
SET UP SEEK
3A012550
EOR
OK004
* DIRECTION
3A012560
STD
OKSEK&l
*
3A012570
LOO
DKDSV-1
LOAD OSW IN Q REG
3A012580
SLA
16
TURN OFF INTERRUPT
3A012590
STO
OKENT
* ENTRY SW
3A012600
XIO
DK SEK
SEEK
3A012610
WAIT
6
WAIT FOR INTERRUPT
3A012620
OKCON LD
OKBIT
SET UP NUM OF SEEKS
3A012630
ANO
OK OFF
*
.3A012640
STO
OKS EK
*
3A012650
LO
OKDSW
CK FOR SEEK ANO WAIT
3A012660
BSC
E
*
3A012670
WAIT
2
YES, WAIT
3A012680
MOX
OKMOV
NO, GO SEEK
3A012690
*************************************************** 3A012700
DC
0
DC
0
*SPACE FILLER
3AOL2710 3A012720
DC DC
/0040 /9000
*THE LAST FIVE WORDS ARE USED FOR PROGRAM
3A012730 3A012740
DC
/2000
* IDENTIFICATION. THREE
3A012750
DC DC
/2000 /0002
** FOR THE PIO AND TWO FOR 3A012760
SEQUENCE.
3A012770
DATE EC NO.
15FEB6B 25JUL69
420403
571053
PROG IO
PAGE
03AO-O lOA
- - - - - - - - - - -"~-----
----------·----
u 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 FUR THE 1130 SYSTEM 1130 scbPE LOOP PROGRAMS
PART NO. ;>243962
PAGE
11
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 1130 SCOPE LOOP PROGRAMS
PART NO. 2243962
PAGE
llA ·
6.09 2310 WRITEREAO-COMPARE
A. PRELOAO SWS
B· .LOAOI NG
C. WAITS
1
2
3 4
-6
D. RESTART
f.. COMMENTS
.··oooo
,0000 0 .6020
·0001 0 oo:oo
· 0002 0 003A
.. 0003 0 0000
,,0004 0. 6000 0005- Oi 7010 0006 0 2820 0007 0 OOC3 0008 !) 0001.
·opo9 o 0000-
.. \0.00A 0 0008 ' 0008 0 0000
· ·. oooc ·..o 083F. ·oooo o 1001,
'OOpE. O· 1001
' ~'
': ·"
*************************************************** 3A012790
** 3A012800 THIS PROGRAM WRITES ON SECTOR O, A DATA PATTFRN JAO 12810
*** * * * *
WHICH WAS SET IN THE BIT SWS. THE DATA IS THFN 3A012820
READ ANO ,COMPARED TO THE BIT SWITCHES. THE HEAD 3A012B30
MAY BE POSITIONED WITH SCOPE LOOP 6.08. THIS
3AD12840
Will DESTROY THE SECTOR ADDRESS. IT MAY BE RE- 3AO 128.50
STORED BY PLACING THE SEC TOR NUMBER IN THE BIT 3A012860
SWITCHES ANO EXECUTING THE PROGRAM ONCE.
3A012870
THE PROGRAM Will HALT AT WAIT 2 AFTER EACH PASS. 3A012880
* * * * * * *
3A012890
SET THE AREA CODE IN 0-7 FOR THE DISC TO BE USED 3A012900
DRIVE 0
20XX
3A012910
DRIVE 1
88XX
3A012920
DRIVE 2
90XX
3A012930
DRIVE 3
98XX
3A012940
DRIVE 4
AOXX
3A012950
** LOAD .IPL FROM CARD OR PAPER TAPE.
31012960 3A012970
** SET DATA IS BE WRITTEN IN SWITCHES 0-15.
3A0129BO 3A012990
3A013000
** HALT AFTER ONE PASS. TO LOOP PROGRAM, LOAD /1000 3A013010
* INTO LOCATION /OOlE.
3A013020
** LOST WRITE INTERRUPT. SEE COMMENTS.·
3A013030 3A013040
** LOST READ INTERRUPT. SEE COMMENTS.
3A013050 3A013060
* * * *
COMPARE ERROR BETWEEN THE DATA RFAD AND THE BIT SWITCHES. THE BITS IN ERROR WILL BE ON IN THE ACCUMULATOR. TO LOOP ON ERROR, LOAD /1000 INTO
3A013070 3AOl3080 3A013090 3A013100
·* LOCATION /0017.
3A013110 3A013120
************
l. TO RESTART PROGRAM OR RESET SWITCH SETTINGS, 3A013130
DEPRESS IMMEDIATE STOP AND RESET PUSH BUTTONS 3A013140
2. SET DESIRED PRELOAD BIT SWITCH SETTINGS.
3A013150
3. DEPRESS START.
3A013160
r
3A013170
1. TO RUN THE PROG WITH INTERRUPT DELAY SWITCH 3A013l80
ON OR BYPASS THE INTERRUPT WAIT LOAD /600C
3A013190
INTO LOCATION /0047 ANO /004A ANO RESTART.
3A013200
3A013210
2. TO GET A FASTER LOOP THAN THE ABOVE PLACE
3A013220
/70FE IN THE NEXT LOCATION AFTER THF XIO. THE 3~013230
XIO WILL BE EXECUTED AFTER EACH BRANCH.
3A013240
* * * *
3. IF INTERRUPT IS LOST, B REG WILL CONTAIN DATA· WORD ANO ARITH REG WILL CONTAIN WAIT NUMBER /OOQ3 OR /0004.
JA013250 3A013260 3A013270 3A013280
** **************************************************
3A013290 3A013300
ORG
0
3AOl3310
DCBGN LOX
OCBlD
GO TO PROG
3A013320
DCSWS DC
*-*
SW READ IN AREA
3A013330
OCON5 DC DCXR3 DC OCONl DC
/003A
·-*
/6000
CONSTANT INDEX REG 3 CONSTANT
3A013340 3A013350 3A013360
DC
17010
CONSTANT
3A013370
OCON2 DC
/2820
CONSTANT
3A013380
DC
/OOC3
CONSTANT
3A013390
DCBSW DC
DC SWS
SW READ IN ADRS
3A013400
DC
oc·.
/0000 *A* DC
/3AOO READ BIT SWS 3A013410
OCI.NT
INTERRUPT AORS
3A013420
OCINT DC XID
o*c-o*sw
INTERRUPT ENTRY SENSE DSW
3A013430 3A013440
OCON3 SLA
1
ALSO A CONSTANT
3A013450
SLA
1
*
3A013460
PROG IO PAGE
03AO-O 11
OOOF 0 4868 0010 0 600C OOll 0 C03A 0012 0 4818 . 0013 0 7034 0014 0 0000 0015 0 FOEB 0016 0 4820 0017 0 3006 0018 0 COEA 0019 O 80EE001A 0 DOES OOlB 0 F02F OOlC 0 4820 0010 0 70F6 OOlE ·o 3002 OOlF 0 701C
0020 0 COEl 0021 0 1008' 0022 0 DOE6 0023 0 08E4 0024 0 CBDC 0025 0 18CG 0026 0 8800 0027 0 18C4 0028 0 0823 0029 0 1800 OOZA 0 COD9 0028 0 1808 002C 0 0821 0020 0 18CB OOZE 0 FOOS 002F 0 1805 0030 0 D81F 0031 0 C804 0032 0 1805 0033 0 D02C 0034 0 8018
0035 o.ooco
0036 0 0014 0037 O l8C8 0038 0 OOOB 0039 0 F003 003A 0 0003
003B 0 3001
003C 0 08CB
003D o cOC3
003E 0 0000 003F 0 COC3
0040 o 90C7
0041 O OOCl 0042 ·O FOOD 0043 0 4820 0044 0 70F8 0045 0 0006 0046 0 0809 0047 0 3003 0048 0 6803
0049 o 0804
004A.0 3004
0048 0 0040 004C 0 9000 0040 0 2000 004E 0 2000 004.F 0 0001 0050 0
BOSC LOX LO
&Z
DCINT&l OCOSW
IS DISK READY
* NO * YES
3A013470 3A013480 3A013490
BSC
&-
MOX
DC6
*WAS LAST-OP A READ NO
3A0l3500 3A0135.10
OC5 DC
/0000 *A* LO 3 1
3A013520
EOR
DCSWS
COMPARE SWS
3A013530
BSC WAIT LO A STO EOR
Z
6 OCXR3
OCBSW DCXR3 DC ENO
ANY ERRORS
* YES
ADJ I/~ ADRS
* * *
3A013540 3A013550 3A013560. 3A013570
3A013580 3A013590
BSC
Z
MDX
OCS
*REACHED LIMIT NO
3A013600 3A013610
WAIT
2
ONE PASS COMPLETE
3A013620
MOX
DC 1
START OVER
3A013630
*DCBLD LO
INITIALIZATION
OCON5
. GET. CONST ANT
3A013640 3A013650
SLA
8
3A013660
STO
OCBSW&l
READ BIT SW IOCC
3A013670
XIO
OCBSW
READ SWS
3A013680
LOO
ocsws
GET AREA CODE
3A013690
RTE
12
A- /OOOX Q- /OOOX
3A013700
AO
DCONl
A- /600X Q- /701X
3A013710
RTE
4
'A- /X600 Q- /X701
3A013720
STO
DCDSW
SET OSW IOCC
3A013730
RTE
16
A- /X701 Q- /X600
3A013740
LO
OCONl
A- /6000 Q- /X600
3A013750
SRA
8
A- /0060 Q- /X600
3A013760
STD
OCRO
SET READ IOCC
3A013770
RTE
11
A- /COOO Q- /OCOX
3A013780
EOR
OCONl
A- /AOOO Q- /OCOX
3A013790
RTE
21
A- /0060 Q- /X500
31013800
STD
DCWR
SET WRITE IOCC .
3A013810
LOO
DCON2
A- /2820 Q- /OOC3
3AO 13820
SRA
5
A- /0141 Q- /OOC3
3A013830
STD
/0060
SET WORD COUNT
3A013840
A
OCWR
A- /OlAl Q- /00C3
3A013850
STO
DCXR3
SET INDEX REG 3
3A013860
STO
OCENO
SF.T LIMIT CNTL
3A013870
RTE
8.
A- /C301 Q- /AlOO
3A013880
STD
OC5
SET LD
3 l
3A013890
EOR
OCON~
A- /0300 Q- /AlOO
3A013900
STO
DC3
SET STD 3 0
3A013910
WAIT
1
SET DATA PATTERN
3AO 13920
OCl XIO
OCBSW
READ BIT SWS
3A013930
LO OC3 DC
ocsws
GET _BIT SWS
/0000 *A* STD 3 0
3AO 13940. 3A013950
LO
DCXR3
ADJ 1/0 AORS
3A013960
s
DCB SW.
STO
DCXR3
EOR BSC
OzCWR
MDX
OC3-:l
STO
DCDSW
* *
REACHED LIMIT
** NO YES, CLEAR SW
3A013970 3A013980 3A013990 3AOl4000
JA0.14010 3A014020
XIO
· OCWR
WRITE A RECORD
3A014030
WAIT
3
WAIT FOR WRITE INTR
3A014040
DC6 STX
DCDSW
SET SWITCH
3A014050
XJO
OCRO
READ A RECORD
3A014060
WAIT
4·
WAIT FOT READ INTR
3A014070
*************************************************** 3A014080
DCEND DC OCDSW DC
DC OCRO DC
DC
/0040 /9000 /2000 /2000 /0001
THE NEXT FIVE WORDS ARE
* USEO FOR PROGRAM * IDENTIFICATION. THREE * FOR THF PIO ANO TWO FOR * SEQUENCE.
3A014090 3A014100 3A014ll0 3A014120 3A014130
OCWR EQU
DCRD&2
3A014140
DAtE EC '.NO.
15FEB68 2·5JUL69 4201t0il- 571053
PROG 10 PAGE
03AO-O llA
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTFM 1130 SCOPE LnoP PROGRAMS
PART NO. 2Z43962
PAGE
12
6.10 1627 PLOTTER
A. PRELOAO SWS
B. LOADING
C. WAITS
1
2 3
D. RESTART
E. COMMENTS
0000 0000 0 6012 0001 0 0001 0002 0 0006 0003 0 003A 0004 0 0006 0005 0 0029 0006 0 0000 0007 0 002F OOOA 0 601F 0009 0 0000 OOOA 0 0000 OOOB 0 OOOC oooc 0 0000 0000 0 OAF8 OOOE 0 DOFA OOOF 0 4850 001.0 0 70FC 0011 0 7023
*************************************************** 3A014160
** 1. THE PROGRAM EXECUTES ALTERNATE FUNCTIONS
3AOl4170 3A014180
*
WHICH HAVE BEEN SELECTED IN THE BIT SWS
3A014l90
* 2. AN OPTION IS AVAILABLE TO SET Op A VARIABLE 3A014200
*
DELAY BETWEEN XIO WRITE EXECUTIONS.
3AOl4210
* 3. AN OPTION IS AVAILABLE TO HALT THE PROGRAM
3A014220
* *
AFTER THE COMPLETION OF THE EXECUTION OF AN ALTERNATE XIO SEQUENCE.
3A014230 3A014Z40
** 1. IF DELAY IS DESIRED, SET DELAY CONTROL
3A014250 3A014260
*
VALUE ·JN BIT SWITCHES 1 THRU 13.
3A014270
*
*NOTE* SWS 1 THRU 13 All bN, MAX DELAY.
3A014280
* *
SWS 1 THAU 13 A(L OFF, NO DELAY.
2. IF A WAIT AFTER EACH PROGRAM PASS IS
3A014290 3A014300
*
DESIRED, TURN. ON BIT SWITCH 15.
3A014310
** LOAD IPL FROM CARD OR PAPER TAPE.
3A014320 3A014330
** SET DESIRED FUNCTION CODES IN BIT SWITCHES
* 0 ~HRU 15. SEE PAGE 2A FOR BIT SW CODES.
3A014340 3A014350 3A014360
*
lST FUNCTION CODE IN SWS 0 THRU 5.
3A014370
*
2NO FUNCTION CODE IN SWS 8 THAU 13.
3A014380
* TURN ON PLOTTER AND MAKE READY.
3AOH390
* DEPRESS START.
3A01't400
** NORMAL PROGRAM WAIT IF l PASS OPTION HAS BEEN
3A014410 3A014420
* SELEtTED. DEPRESS START TO MAKE ANOTHER PASS.
3A014430
** NO INTERRUPT GFNERATED AFTER XIO WRITE
3A014440 3A014450
* COMMAND WAS GIVEN. SEE COMMENTS.
3A014460
* 3A014470
* l. TO RESTART PROGRAM OR RESET INITIAL PRELOAO 3A014480
*
SWITCH SETTINGS, DEPRESS IMMEDIATE
3A014490
*
STOP AND RESET PUSH BUTTONS.
3A014500
* z. SET DESIRED PRELOAD BIT SWITCH SETTINGS.
3A014510
* 3. DEPRESS START.
3A014520
** I. LAST DSW SENSED IS DISPLAYED IN THE Q REGo
3A014530 3A014540
* 2. IF NO FUNCTION ENTERED IN ·BIT SWS, PROGRAM
3A014550
*
STOPS AT WAIT 1.
3A014560
* 3. TO RUN PROGRAM WITH INTERRUPT DELAY SW ON
3A014570
*
OR TO BYPASS THE INTERRUPT WAIT, LOAD /6000 3AOl4580
*
INTO LOCATION /0034 AND DO A PROGRAM RESTART. 3A014590
* 4. TO SET UP LOOP TO EXECUTE XIO, LOAD /6000
3A0l4600
*
INTO LOCATION /0034 AND LOAD /6035 INTO
3A014610
*
LOCATION /0010 AND no A PROGRAM RESTART.
3AOl4620
****************************************************
3A014630 3A014640
ORG
0
3A014650
PLAGN LOX
PLBLO *A* TO /601E LDX PLRDS
3A014660
Pl ONE DC
1
CONSTANT ONE
3A014670
PLBSW DC
PLDSW
BIT SW SAVE AREA
3A014680
DC
/003A *A* TO /3AOO RD BIT SWS
3A014690
PLOT DC
PLDSW
CHARACTER ADDRESS
3A014700
DC
/0029 *A* TO /2900 XIO WRITE
3AOl4710
PLDSW DC
*-*
BIT SW READIN AREA
3A0147ZO
DC
/002F *A* TO /2F01 XIO SENSE
3A014730
PLRST LOX PLDSV DC PL SET DC
DC
PL RDS
**--**
PLI N3
RESET START MOD
DSW SAVE AREA SW OPTION/DELAY SAVE INTERRUPT ADDRESS
3A014740 3A014750 3A014760 3A014770
PLIN3 DC
*-*
INTERRUPT LEVEL 3
3A014780
XIO
PLDSW
SENSE RESET OSW
3A014790
STD
PLDSV
SAVE DSW
3A014800
BOSC
RESET INT LEVEL
3A014810
MOX
Pll N3& l
RESENSE OSW
3A014820
MDX
PLRET
BRANCH TO DELAY
3A014830
DATE EC NO.
15FEA68 25JUL69
420403
571053
)
PROG ID PAGE
03AO-O 12
IBM MAINTENANCE DIAGNOSTIC PROG~AM FOR THE 1130 SYSTEM 1130 SCOPE LOOP PROGRAMS
PART NO. 2Z43962
PAGE
12A
0012 0 COF2 0013 0 1008 0014 0 DOFO 0015 0 COFl 0016 0 1008 0017 0 E8E9 0018 0 DOEE 0019 0 COE9
OOlA o 1000
OOlB 0 DOE7 OOlC 0 COEB 0010 0 DOEZ OOlE 0 08E3 OOlF 0 COE6 0020 0 DOE9 OOZl 0 3001
oozz 0 08DF
0023 0 COE2 OOZ4 0 180A OOZ5 0 4808 OOZ6 0 70FA 0027 0 CODE ooza 0 1008 OOZ9 0 180A OOZA 0 4808 002B 0 70F5
ooze 0 C8DB
0020 0 0808 OOZE 0 OODA OOZF 0 1004 0030 0 48Z8 0031 0 70FA 003Z 0 C8D5 0033 0 0800 0034 0 3003 0035 0 C8D2 0036 0 COD3 0037 0 1801 0038 0 90C8 0039 0 4810 003A 0 70FO 003B 0 COCA 003C 0 4804 003D 0 300Z 003F 0 l80Z 003F 0 4818 0040 0 70EO 0041 0 lOOA 004Z 0 DOC3 0043 0 COCF 0044 0 4820 0045 0 700Z 0046 0 68CC 0047 0 70DA 0048 0 1010 0049 0 ooc9 004A 0 70El
0048 0 0040 004C 0 9000 0040 0 2000 004E 0 1000 004F 0 ZOOO
PLBLD LO
PLOT&l
BUILD WRITE IOCC
311014840
PLCTL SLA
8
* 2NO CHAR SW
3A014850
STD LO SLA OR
PLOT&l PLDSW&l
8 PL ONE
··*BUILD SENSE RESET
STO LO
PLDSW&l PLBSW&l
*BUILD READ BIT SW
SLA
8
* IOCC
3AOl't860 3A01't870 3A014880 3A014890 3A0l't900 3AOH910 3A01't920
STO LO
PLBSW&l PLRST
*SET UP RESET ANO
.3A014930 3AOl4940
STD
PLBGN
* START BRANCH
3A014950
PLROS XIO
PLBSW
READ BIT SWS FOR
3A014960
LO STO WAIT
. PLOSW PL SET 1
·* PROG OPTS/DELAY
SET CHARS IN SWS
3A014970 3A014980 3A014990
PLSTR XIO
PLBSW
READ BIT SWS
3A015000
LO
PLO SW
CK FOR NO COMMAND
3A015010
SRA
10
BSC
&
* ENTERl;O
·
MOX LO
PL STR-1 PLOSW
·* NO, SENSE SWS
SLA SRA .BSC MDX
8 10 & Pl STR-1
* * *
* NO, SENSE SWS
3A015020 3A015030 3A015040 3A015050 3A015060 3A015070 3A015080 3A015090
PLSEN LDD
PLDSV-1
LOAD LAST DSW IN Q ·
3A015100
XIO
PLDSW
CHK DEVICE NOT BUSY
3A015110
STO
PLDSV
SAVE DSW
3A015120
SLA BSC MDX LOO
4
&Z
PL SEN
PLDSV-1
***LOAD LAST DSW IN Q ·
3A015130 3A015140 3A015150 3A015l60
XIO
PLOT
WRITE CHARACTER
3A015170
WAIT
3
WAIT FOR INTERUPT
3A015180
PLRET LOO
PLDSV-1
LOAD LAST OSW IN Q ·
3A015190
LO
PL SET
SET UP DELAY ANO
3A015200
SRA
1
* EXECUTE DELAY
3A015210
PLLOP S BSC MOX LO
PL ONE
Pl LOP PLDSW
"* *
L*O, SET UP 2ND CHAR
3A015220 3A015230 3A015240 3A015250
BSC
E
WAIT z
SRA
z
CHK IF WAIT REQUSTED YES NO, CHK 2NO CHAR OK·
3A015260 3A015270 3A015280
BSC MDX
&-
Pl STR-1
*NO, GO TO WAIT l
3A015290 3A015300
SLA
10
YES, SET UP 2ND CHAR
3A015310
STO
PLO SW
LD
PLC TL
BSC
z
*CHK IF ZND CHAR SW
* OFF
3A015320 3A015330 3A015340
MDX
PLAL T
NO, BRANCH
3A015350
STX
PLC TL
YES, SET 2NO CHAR SW
3A015360
MDX
PLSTR
GO LOOP PROGRAM
3A015370
PLALT SLA
16
CLR .ZND CHAR SW
3A015380
STO
PLC TL
MOX
PL SEN
*GO CHK IF PRINT BUSY
3A015390 3A015400
*************************************************** 3A015410
DC
/0040
THE LAST FIVE WORDS ARE
3A015420
DC
/9000
* USED FOR PROGRAM
3A015430
DC
/2000
* IDENTIFICATION. THREE
3A015440
DC
/1000
* FOR THE PIO ANO TWO FOR 3A015450
OC
/ZOOO
* SEQUENCE.
3A015460
DATE EC NO.
l 5FEB68 Z5JUL69
420403
571053
PROG ID PAGE
03AO-O l2A
0 0 (_) 0 0 0 0 ()
IBM MAINTFNANC~ DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 1130 SCOPF. LOOP PROGRAMS
() 0
l )(',
C-) /
0
PART NO. 27.43%2
PAGE
13
l_) 0 -o 0 0 0 0 0 0 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ------/ -'\
0
IBM MAINTENANCF DIAGNOSTIC PROGRAM F3R THF 1130 SYSTEM 1110 SCOPF LOOP PRnGRAMS
PART NO. 2243962
PAGE
l 3A
6.11 2501 READER
A. PRELOAD SWS
B. LOADING
C. WAITS
I
4 6
n. RESTART
E. COMMENTS
0000 0000 0 6035 0001 o ooor 0002 0 0004
0003 0 003A 0004 0 6030 0005 1)0027 0006 0 0036 0007 0 0027 0008 0 OOFF 0009 0 0000 OOOA 0 0000 OOOB 0 C027. OOOC 0 OOOE 0000 0 0005 OOOF. 0 0000 OOOF 0 ORF4 0010 0 OOF8 0011 0 1004 0012 0 4850 0013 0 70F8
*************************************************** 3A01548d
*
3A015490
* * * * * *
1. THE PROGRAM READS 80 COLUMNS Of DATA AND COMPARES EACH WORD WITH THE BIT SWITCHES.
2. AN OPTION IS AVAILABLE TO SET UP A VARIABLE DELAY BETWEEN XIO READ EXECUTIONS.
3. AN OPTION IS AVAILABLE TO BYPASS WAIT 6 ON COMPARE ERRORS.
* · · * * * * *
1. IF DFLAY IS DFSIRFD 1 SFT DELAY CONTROL VALUE IN BIT SWITCHES 1 THRU 13. *NOTE* SWS 1 THRU 13 All ON, MAX DELAY. SWS 1 THRU 13 ALL OFF, NO DELAY.
Z. IF BYPASS COMPARE ERROR WAIT 6 OPTION IS DESIRED, TURN ON BIT SWITCH 15.
* · LOAD IPL FROM CARO OR PAPER TAPE.
3AO 15500 3AOi5510
3A015520 3A015530 3A015540 3A015550 3A015560 3A015570 3A015580 3A015590 3A015600
3A015610 3A015620 3A015630 3A015640
* SET BIT SWS 0 THRU 11 TO EXPECTED COLUMN
·* DATA AND SET BITS 12 THRU 15 OFF.
3A015650 3A015660 3A015670
* * * * *
******************
LOAD PREPUNCHED CARDS INTO READER AND MAKE READY.3A015680
DEPRESS START.
3A015690
3A015700
NO INTERRUPT GENERATED AFTER XIO READ.
3A015710
COMMAND WAS GIVEN. SEF. COMMENTS.
3A015720
3A015730
COMPARE ERROR. ACCUMULATOR CONTAINS RITS READ. 3A015740
IF ACCUMULATOR CONTAINS tooca, COLUMN READ WAS 3A015750
NOT STOREO INTO READ/IN AREA.
3A015760
DEPRESS START TO COMPARE NEXT COLUMN.
3A015770
TO BYPASS COMPARE F.RROR WAIT, SEE PRELOAD.
3A015780
3A015790
l. TO RESTART PROGRAM OR RESET INITIAL PRELOAO 3A015800
SWITCH SETTINGS, DEPRESS IMMEDIATE
3A015810
STOP ANO RFSET PUSH BUTTONS.
_3A015B20
2. SET DESIRED PRELOAO BIT SWITCH SETTINGS.
3A0158JO
3. DEPRFSS START.
3A015840
3A015850
1. LAST DSW SENSEO TS DISPLAYED IN THE Q REG.
3A015860
2. TO RUN PROGRAM WITH INTERRUPT DELAY SW ON
3A015870
OR TO BYPASS THE INTERRUPT WAIT, LOAD /600F 3A015880
INTll LOCATION /002F ANO DO A PROGRAM RESTART. 3A015890
3. TO SET UP LOOP TO EXECUTE XJO, LOAD /600F
3A015900
INTO LOCATION /002F ANO LOAD /6027 INTO
3A015910
* *
LOCATION /0013 ANO DO A PROGRAM RESTART.
.3A015920 3A015930
*************************************************** 3A015940
ORG
0
3A015950
CRBGN LOX
CRBLO *A* TO /6030 LOX CRRST
3A015960
CRONE DC
1
CONSTANT l
3A015970
CRBSW DC
CRDSW
BIT SW SAVE AOOR
3A015980
DC
/003A
*A* TO /3AOO RO BIT SWS
3A015990
CROSW LOX
CRRST
RIT SW SAVE AREA
3AOl6000
DC
/0027 *A* TO /4F01 x~o SENSE osw
3A016010
CRRDR DC
CR ARA
CARD READ IN AODR
3A016020
DC
/0027 ·A· TO /4EOO XIO START RDR
3A016030
CR ERR DC
/OOFF
SAVE READ ERROR
3A016040
CRDSV DC
LAST DSW SENSED
3AOl6050
CR END DC CR SRA DC
*-*
*A* TO /OllA END OF RD AREA 3A016060
1co22
LO READ AREA
3A016070
DC CR080 DC CRIN4 DC
XIO
·-·CR JN4
/0005 CRDSW
INTERRUPT ADOR *A* TO /0050 CONSTANT 80
INTERRUPT ENTRY SENSE OSW
3A016080 3A016090 3A016100 3A016110
STD
CROSV
SAVE DSW
3A016120
SLA
4
CK FUR OP COMPLETE
3A016130
BOSC MOX
CR I N4& 1
*NO, RESENSE DSW
3A016140 3A016150
DATE EC NO.
l 5FEA6B 420403
I
?5JUL69 571053
PROG IO PAGE
03AO-O .13
0014 0 C.0?2 0015 0 OOF2
0016 o Fom
0017 0 4818 0018 0 7006 0019 0 COlB OOlA 0 lOOF OOlB 0 4828 OOlC 0 700A 0010 0 C8EA 001f.' 0 3006 OOlF 0 COF4 0020 0 80EO 00?1 0 OOF2 0022 0 90E7 002:'1 0 48?8 0024 0 70EF 0025 0 COF5 0026 0 OOED 00.?7 o ci:iF.o 0028 0 cooc 0029 0 1801 002A 0 9006 002B 0 4810 ooze 0 70FD 0020 0 0804 OOZE 0 08D7 002F 0 3004 0030 0 OBOl 1)031 0 COfl2 0032 0 0002 0033 0 3001 0034 O 70F8 0035 0 coco 0036 0 1008 0037 0 OOCB 00'18 0 COCB 0039 0 DOC6 003A 0 COCA 0038 0 1001 003C 0 E8C4 0030 0 1008 003E 0 E8C2 003F 0 OOC5 0040 0 COC6 0041 0 1009 0042 0 OOC4 0043 O COC9 0044 0 1004 0045 0 OOFO 0046 0 80(.4 0047 0 OOC2 0048 0 70E7
0049 0 0000 004A 0 0000 004B 0 0040 004C 0 9000 0040 0 2000 004E 0 1000 004F 0 1000
CRLD LO
CRARA&l
LOAO COLUMN READ
H016160
STIJ
CR ERR
SAVE BITS RFAO
3A016170
FOR
CRDSW
COMPARE WITH PATT WO
3A016180
BSC
&-
-CK FOR COMPARE ERR
3A016190
MOX
CR MOO
NO, SET UP NEXT CHK
3A016200
LO
CRBLO
YES, CK LOOP OPT
3A016210
SLA BSC MOX
15 &l CRLllP-3
* *LOOP ERR OPTION UN
3A016220 3A016230 3A016240
LDD
CRFRR
LO OSW ANO ERR BITS
3A016250
WAIT
6
COMPARE ERROR WAIT
3A016260
CRMOD LO
CRLD
SET UP NEXT COMPARE
3A016270
A
CRONE
STO
CRLU
s
CR END
**CK IF All COLUMNS
3A0162.80 3A016290" 3A016300
BSC
&Z
* CHECKED
3A016310
MOX
CRLD
NO, COMPARE NXT COL
3A016320
L 'J
CR SRA
SET UP FOR NXT CARO
3A016330
sTo
CRUl
LOO
CR ERR
*LOAD LAST OSW IN Q
3A016340 3A016350
LO
CRBLD
SET UP DELAY
3A016360
SRA CRLOP S
BSC MDX CRS TR XIO
1 CRONE
CRLOP CRBSW
****RD BIT SWS PATT WO
J_A016370
3A016380 3A016390 3A016400 3A016410
XJO
CRRDR
READ A CARD
3A016420
WAIT
4
WAIT FOR INTERRUPT
3A016430
CRRST XIO
CRBSW
RO SWS FOR DELAY/OPT
3A016440
LO
CROSW
SAVF DELAY/OPTIONS
3A016450
STO
WAIT
CRBLD 1
*SET PATTERN IN SWS
3A016460 3A016470
MDX
CRSTR
GO READ BIT SWS
3A0164BO
CRBLO LD
CRBSW&l
BUILD PROGRAM
3A016490
CRARA SLA
sro
8
*A* TO /0050 WO CNT AO
.CRASW&l *A* TO *-* READ/IN AREA
3A016500 3A016510
LO STCl LO SLA OR SLA OR STO LO SLA sTn
LJJ SLA
STO
A
STO
MOX
CROSW CRBGN CRDSW&l
1 CRONE
8
CRONE CRDSW&l CRROR&l
9
CRROR&l CR080
4 CR ARA CR SRA CRE!\JD CRRST
**** * * * * *******E*XECUTE PROGRAM
3Aol6520 3A016530
3A016540 3A016'550.
3A016560 3A016570
3A016580 3A016590 3AOl6600 3A01661Ci 3A016620
3A016630 3AOlb640 3A016650 3A016660
3A016670 3A016680
*************************************************** 3A016690
DC
0
DC
0
SPACE FILLER
*
3A016700 .3A016710
DC
/0040
THE LAST FIVE WORDS ARE
3A016720
DC DC
/9000 /2000
*-* USED FOR P~OGRAM IOE~TIFICATION. THREF
3A016730 3A016740
DC
/1000
* FOR THE PIO ANO TWO FOR · 3A016750
DC
/1000
* SEQUENCE.
3A016760
DATE EC ND.
15FEB68 7.5JUL6q
420403
571053
PROG ID PAGE
03AO-O 13A
IBM MA!NTFNANCF OlAGNOSTlC PROGRAM FOR THE 1130 SYSTEM 1130 SCOPF LOOP PROGRAMS
PART NO. 2243962
PAGE
14
6.12 1403 PRINTER
A. PRELOAO SWS
B. LOADING
C. WAIT
1
2
5
6
D. RESTART
E. COMMENTS
0000 0000 0 6033 0001 0 0000 . 0002 0. 0000 0003 0 FOlO 0004 0 9000
0005 0 cooo
·0006 0 0001 0007 0 003A 0008 0 0004 0009 0 9000 OOOA 0 0033 OOOB 0 OOOA OOOC 0 OOlE
OOOD 0 06F8 OOOE 0 COF2 OOOF 0 DOEE 0010 0 1803 0011 0 DOF2 0012 0 3001 0013 0 08F2 0014 0 COlD 0015 0 DOEC 0016 0 CO.EA 0017 0 OOD2 0018 0 COE9 0019 0 90EC OOlA 0 4820 OOlB 0 70F9 OOlC 0 08ED
*************************************************** 3A016780
*
3A016790
* THIS PROGRAM WILL PRlNT ANY CHARACTER ENTERED 3A016800
* IN THE BIT SWITCHES 1-7 AND 9-15. IF BIT 14 IS ON3A0168JO
* THE BIT SWS 1-12 WILL BE THE CHANNEL THAT THE 3A016820
* CARRIAGE Will SKIP TO AFTER PRINTING.
3A016830
*
3A016840
* BIT SW 15- HALT AFTER ONE PASS.
3A016850
*
14- CARR SKIP FUNCTION.
3A016860
* 1 THRU 12- CHANNEL NUMBER TO USE FOR SKIP.
3A016870
*
3A016880
* IPL MOOF FROM CARDS OR PAPER TAPE.
3A016890
*
3AOi6900
* SET CHARACTER TO PRINT, 1-7 ANO 9-15.
3A016910
*
3AOi6920
* ONE PASS COMPLETED, PRESS START TO CONTINUE.
3A016930
*
3A016940
* LOST PRINTER INTERRUPT.
3A016950
* * LOST CARRIAGE INTERRUPT.
3A016960 3A016970
*
3A016980
* PARITY ERROR FOUND IN THE OSW.
3A016990
*
3A017000
* PRESS IMMEDIATE STOP ANO RESET. PRELOADING
3A017010
* SWITCHES MAY BE SET AS DESIRED. PRESS START.
3A017020
****
l. TO RUN THE PROG WITH INTERRUPT DELAY SWITCH ON OR BYPASS THE INTERRUPT WAIT LOAD /60lF INTO LOCATION /0010 AND /0030 AND RESTART.
3A017030 3A017040 3A017050 3A017060
* * 2. TO GET A FASTER LOOP THAN THE ABOVE PLACE
3A017070 3A017080
* *
/70FE IN THE NFXT LOCATION AFTER THE XIO. THE 3A017090
XIO WILL BE EXECUTED AFTER EACH BRANCH.
3A017100
*
3A017110
*************************************************** 3A017120
ORG
0
3A017130
LOX
FPBLO *A* LOX FPSTR
3A017140
FPSWS OC
*-*
BIT SWITCH STG
3A017150
FPOSW DC
/0000 *A* WORD COUNTER
3A017160
DC
/FOlO *A* OC /AFOl
3A017170
FPCAR OC
/9000
CHANNEL BITS
3A017180
DC
/COOO *A* DC /ACOO CARR CNTL
3A017190
FPBSW DC
FPSWS
BIT SW STG ADRS & ONE
3A017200
DC
/003A *A* DC
/3AOO READ BIT SWS 3A017210
FPSKP DC
FPCAR
CARR CHAN ADRS
3A017220
DC
/9000 *A* DC /A900 SKIP IOCC 3A017230
FPPRT DC
FPOUT&l PRINT AREA AORS
3A017240
DC
/OOOA *A* OC /ADOO PRINT IOCC 3A017250
DC
FPINT
INTERRUPT AORS
3A017260
***FPS TR XIO
START AND RESTART OF PROGRAM
FPBSW
READ BIT SWITCHES
3A017270 3A017280 3A017290 3A017300
LO
FPSWS
GET SW SETTINGS
3A017310
STD
FPSWS-3 * ANO SAVE
3A017320
SRA.
3
3A017330
sTo
FPCAR
SET CHAN NUMBER
3A017340
WAIT
1
SET CONSOLE SWS
3A017350
FPI XIO
FPBSW
READ PRINTER CODE
3A017360
LO
FPOUT
GET WORD COUNT
3A017370
STO
FPO SW
LOAD XR 2
3A017380
LO
FPSWS
GET PRINT CODE
3A017390
FP2 DC
10002 *A* STO 2 FPOUT
3A017400
LO
FPDSW
s
FPBSW
BSC
z
MDX
FP2-2
XIO
FPPRT
GET COUNT ANO
* SUB ONE AREA FILLED
* NO
PRINT A LINF
3A017'tl0 3A017420 3A017430 3A017440 3A017450
DATE EC NO.
15FtB68 25JUL69 420403 571053
PROG ID PAGE
03AO-O l't
,
./
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 1130 SCOPE LOOP PROGRAMS
PART NO. 2243962
PAGE
14A
0010 0 3003 OOlE 0 0000 OOlF 0 08E2 0020 0 4844 0021 0 601F 0022 0 4828 0023 0 3006 0024 0 1002 0025 0 4810 0026 0 70EC 0027 0 C006 0028 0 4804 0029 0 3002
002A 0 lOOE
0028 0 4810
ooze o 1002
0020 0 08DA ·002E 0 7001 002F 0 0804 0030 0 3005
0031 0 0001 0032 0 003C
0033 0 COl3 0034 0 OOCB 0035 0 CB0.5 0036 0 BBCO 0037 0 l8C4 0038 0 DBCB 0039 0 OOCF
oo.3A o caDo
003B 0 88C6 003C 0 18C4 0030 0 DBC4 003E 0 OOCC 003F 0 COC1 0040 0 1008 0041 0 DOC5 0042 0 C004 0043 0 1008 0044 0 E8C5 0045 0 90EB 0046 0 DODO 0047 0 600D
0048 0 0000 0049 0 0000 004A 0 0000 004B 0 0040 004C 0 9000 0040 0 2000 004E 0 1000 004F 0 0800
WAIT FPINT OC
XIO
·-·3
FPOSW
WAIT FOR PRINT INTERRUPT INTERRUPT ENTRY
SENSE OSW
3A017460 3A017470 3A017480
BOSC LOX BSC WAIT SLA
.E
FP INT&l &l
6
2
*IS PRINTER READY NO PARITY ERROR
* YES * NO_
3A017490 lA017500
3A017510 3A017520 3A017530
BSC
MDX
FPl
*PRINT C.OMPLEH NO, CARR INTlt
lAOl7540 3A017550
LO
FPSWS-3 GET CONTROLS
3A017560
BSC WAIT SLA BSC
MDX XIO
E 2
14
FPS FPSKP
HALT ON
* YES * NO
CARR SKIP FUNC
* NO
SKIP TO CHAN .
3A017570
1A017580 3A017590 3A017600 3AOl7610 3A017620
MDX
FPB&l
GO WAIT INTERRUPT
3A017630
FPS XIO
FPCAR
* YES, SPACE
. 3A017640
·
WAIT
FPOOl DC
5 /0001
WAIT FOR CARR INTR CONSTANT
3A017650 3A017660 3A017670
FPOUT DC
60
WORD COUNT
3A017680
· * ·
THIS WILL BE THE PRINT AREA AFTER INITIALIZATION
3A017690 3A017700 3A017710
*FPBLD LO
STO
FPRES
0
* SET RESTART
3A017720 3A017730 3A017740
LOO
FPPRT+l * A- /OOOA Q- /OOOA
3A017750
AO
FPCAR
RTE
4
** A- /CODA Q- /900A A- /ACOO Q- /A900
3A017760 3A017770
STD
FPCAR
* CONTROL IOCC
3A017780
STo
LOO
FPSKP&l FPPRT+l
** SKIP IOCC A- /OOOA Q- /OOOA
3A017790 3A017800
AO
FPDSW
· A- /OOOA Q- /FOlA
3A017810
RTE
4
* A- /ADOO Q- /AFOl
3A017820
STD STD
FPDSW FPPRT£.l
** SENSE DSW IOCC PRINT IOCC
3A017S30 3A017840
LO SLA
FPBSW&l
8
* ·
STD
FPBSW&l * READ BIT SW IOCC
3A017850 3A017860 3A017870
LO
FP2
SLA
8
OR
FPPRT
s
FPOOl
· * *
ADJUST.DIS~LACEMENT
3A017880 3A017890 3A017900 3A017910
sTo
FP2
* BUILD STO 2 FPPRT
3A017920
FPRES LOX
FPS TR
GO TO PROGRAM
3A017930
**************************************************· 3A017940
DC
0
DC
0
DC
0
SPACE FILLER
* *
3A017950 3A017960
3A017970
DC
/0040
THE LAST FIVE WORDS ARE 3A017980
DC
/9000
* USED FOR PROGRAM
3A017990
DC
/2000
* IDENTIFICATION. THREE
3A018000
DC
/1000
* FOR THE PIO AND TWO FOR 3A018010
DC
/0800
* SEQUENCE.
3A018020
OATE EC NO.
15FEB68 25JUL69 420403 571053
PROG ID PAGE
)
OlA0-0 14A ,.
(~'
'--)
()
/~··-··
\___,
(
'--.___)
c
(,-·
~)
c)
---- ---·---
(_/ 0 /' '·,
\I _)'
·--------
r·-.1 ()
'....,__./·
(-\
\_____)
I . '"----/'
,,,.. .
(
\....._~;
,,,---.,
L)
(-',
\,,,___/I
()
u,--,,
c) () C: c·,-1 c; 0
,,.-·,,
I ' \.,____,·
..
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 1130 SCOPE LOOP PROGRAMS
PART NO. 2243962
PAGE
15
IBM MAINT~NANCF DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 1130 SCOPF LOOP PROGRAMS
PART NO. 2243962
PAGE
15A,,
6.13 1132 PRINTER
A. PRELOAO SWS
B. LOADING C. WAIT 2
3 5
D. RESTART
E. COMMENTS
0000 ' 0000 0 6017 0001 0 3005 0002 0 OOlA 0003 0 OOFF 0004 0 0018 0005 0 E8C8 0006 0 7013 0007 0 4803 0008 0 0020 0009 0 OOOA OOOA 0 0827
oooB o 00oc
oooc 0 4850
0000 0 7023 OOOE 0 C018 OOOF 0 4R20 0010 0 7018 0011 0 C039 0012 0 480B 0013 0 7027 0014 0 9034 0015 0 0035 0016 0 7023 0017 0 COF2 0018 0 DOE7
*************************************************** 3A018040
** THE CHARACTER ENTERED IN SWS 0-7 IS PRINTED IN
3A018050 3A011!0.60
* ALL PRINT POSITIONS.
3A018070
3A018080
* BIT SW 15--HALT AFTER EACH LINE PRINTED. SW 15 3A01B090
*
ALSO CAUSES ONE EXTRA IDLE SCAN CYCLE.3A01Bl00
* *
THIS HAS A NEGLIGIBLE AFFECT ON SPEE0.3A018110
8-15--PRINT SPEED CONTROL--ENTER THE
3A018120
*
DESIRED NUMBER OF IDLE SCAN CYCLES
3A018130
*
TO BE TAKEN BETWEEN PRINT CYCLES.
3A018140
*
0-7=VALIO CHARACTER--PRINT CHARACTER AS
3A018150
*
SHOWN ON PAGE 2.
3A01Bl60
*
0-7=1NVALIO CHARACTER--IDLE CONTINOUSLY.
3A018170
3A018180
* NOTE--PROGRAM ALWAYS TURNS ON BIT 10 TO PREVENT 3A018190
*
OPERATING AT EXCESSIVE SPEEDS. SPEED MAY 3A018200
*
BE INCREASED BY MANUALLY CHANGING CONSTANT 3A018210
*
AT CORE LOCATION 0008. USE CAUTION.
3A018220
** SWITCH SETTINGS MAY BE CHANGED AT ANY TIME.
3A018230 3A018240
3A018250
* IPL MOOE FROM CARDS OR PAPER TAPE
3A018260
** ONE PASS COMPLETED, PRESS START TO CONTINUE.
3A018270 3A0182BO
** 3A018290 NO EMITTER RESPONSE INTRPT, RESTART TO CONTINUE 3A018300
* 3A01B310
* NO SPACE RESPONSE INTERRUPT, RESTART TO CONTINUE 3A018320
-*
3A018330
* PRESS IMMEDIATE STOP AND RESET. PRELOADING
3A018340
* SWITCHES MAY BE SET AS DESIRED. PRESS START.
3A018350
** TO RUN WITHOUT INTERRUPTS ·· MANUALLY ENTER
3A018360 3A018370
* HEX 600B AT CORE LOCATIONS 0001 ANO 003A.
3A018380
** TO CHANGE POSITIONS PRINTED ·· MANUALLY ENTER
3A018390 3A018400
* DESIRED PATTERN IN CORE LOCATIONS OOlE ANO OOlF. 3A018410
* AT LEAST ONE BIT MUST BE ON IN SECOND WORD OOlF. 3A018420
* 3A018430
*************************************************** 3A018440
ORG
0
3A018450
PRGO LOX
PRDsw~1 *A* XIO
PRSPS SPACE PTR 3A018460
WAIT 5
WAIT FOR INTERRUPT
3A018470
*PRRDS DC
PRSWS
3A018480 3A018490
DC
/OOFF
/3A32 RO SWS
3A018500
PRRO DC
PRE MT
3A018510
DC
/E8C8 *A* DC
/3200 RO EMITTER 3A018520
DC
17013
3A018530
DC
/4803
3A018540
PRlOL DC
/0020
MINIMUM IDLE SCAN CYCLES 3A018550
DC
PR INT
INTERRUPT ADDRESS
3A018560
PR I NT DC
/0827
INTERRUPT ENTRY
3A018570
XIO
PRDSW
3A018580
BOSC
EMITTER RESPONSE
3A018590
MDX
PRSPR
* NO, TRY SPACE RESPONSE 3A018600
LO
PRSCN+7
BSC
z
SCAN FIELD ZERO
3A018610 3A018620
MDX
PRE NO
* NO, GO STOP PRINTER
3A018630
LD
PROLY
3A018640
BSC
+
LAST IDLE SCAN CYCLE
3A018650
MOX
PRPRT
s
PR
* YES, GO PRINT DECRE IDLE COUNT BY ONE
3A018660 3A018670
STD
PROLY
3A01B680
MDX
PRWT3
3A018690
L D
PR INT
3A018700
PROSW STD
PRGO
3A01B710
0019 0 C8EC
LOO
PRR0+2 *A* DC
/3701 SENSE osw
OOlA 0 l8C4
PRSTR RTE
4
OOlB 0 OOFO
STO
PROSW+l *A* DC
/3480 START PTR
OOlC 0 1800
PRSTP RTE
16
0010 0 OOFD
STD
PR STR+ l *A* DC
/3440 STOP PTR
OOlE 0 F02B
PRFLO EOR
PROL Y-1 *A* DC
/FFFF
OOlF 0 OOFD
STD
PRSTP+l *A* DC
/FFFF
0020 0 cai:2
PRSCN LDD
PRRDS+l
0021 0 lflC8
RTE
8
0022 0 ABEO
AO
PRROS+l
0023 0 DRFA
STD
PRFLD
0024 0 COF.O
LO
PRRO+l
0025 0 1802
0026 0 oooc
SRA
2
STD
PRROS+l
0027 0 1008
0028 0 oooc
SLA PRSPS STO
8 f>RRO+l
0029 0 COlC
LO
PR-3
*A* DC
/3401 SPACE PTR
002A 0 l 802
SRA
2
002B 0 DOFO
STD
PR SPS+l
002C 0 OBEF
PR ENO Xl_O
PRSTP
STOP PRINTER
0020 0 COFC
LO
PRSWS-
002E 0 4804
BSC
E
BIT SW 15 ON
002F 0 3002
WAIT
2
* YES, WAIT
0030 0 70CF
MOX
PRGO
OOlA 0
PRSWS EQU
PRSTR
0018 0
PRE MT EQU
PRDSW
0031 0 1002
PRSPR SLA
2
0032 0 4850
BOSC
SPACE RESPONSF
0033 0 .1001
MOX
PR I NT+ l
* NO, CHECK OSW AGAIN
0034 0 lOEO
SLC
32
0035 0 OBEA
STO
PR SCN
CLEAR
0036 0 DBF.B
STD
PRSCN+2
OR SET
0037 0 DBEC
STD
PR SCN+4
SCAN
0038 0 OBED
STD
PRSCN+6
FIELD
0039 0 OBEO
XIO
PRSTR
START PRINTER
003A 0 3003
PRWT3 WAIT
3
WAIT FOR INTERRUPT
003B 0 08C6
PRPRT XIO
PR ROS
READ BIT SWITCHES
003C 0 08C7
0030 0 cooc
XlO
PRRO
LO
PRSWS
READ EMITTER GET SWS
003E 0 EBC9
OR
PR IDL
OR MINIMUM IDLES
003F 0 18C8
RTE
8
0040 0 1008
SLA
8
ISOLATE CHARACTER
0041 0 4820 0042 0 F005 0043 0 4820
BSC
?.-
FOR
PRE MT
BSC
z
SKIP IF NO CHAR ENTERED COMPARE WITH EMITTER SKIP IF SAME CHAR
0044 0 70F5
MDX
PRWT3
0045 0 10C8
SLC
8
0046 0 0004
STD
PRDLY
SET IDLE COUNT
0047 0 C806
LOO
PRFLD
0048 0 70EC
Mf)X
PRSPR+4
0049 0 0001
004A 0 ooco
PR
DC
/0001
oc
/OOCO
****************************************~*****~***
004B 0 0040
PRDL Y DC
/0040
THE LAST FIVE WORDS ARE
004C 0 9000
DC
/9000
* USED FOR PROGRAM
004D 0 2000
DC
/2000
* IDENTIFICATION. THREE
004F 0 1000 004F 0 0040
DC
/1000
* FOR THE PIO ANO TWO FOR
DC
/0040
* SEQUENCE.
0050 0000
ENO
0
NfJ STATEMENTS FLAGG"D IN THE ABOVE ASSEMBLY
34018720 3A018730 3Ml8740 3A018750 3A018760 3A018770 3A018780 3A018790
3A018800 3A0188l0 3A018820 3A018830 3AOl8840 3A01B850 3AOi8860 3A018870 3A018880
3A018890 3A01A900
3A018910 3A018920 3A018930 3A018940 3A018950 3A018960 3A018970 3A018980 3A018990
3A019000 3AOl90lO 3A019020 3A0l9030 JA019040 3A019050 3A0l9060
3A019070 3A019080 3A019090 3AOL9100 3A019110
3A019120 3A019130 3A019140 3A019150 3A019160 3A019170 3A0l'H80 3A019190
3A019200 3A019210 3A019220 3A019230 3A019240 3A019250 3A019260 3A019270 3A0192.80
3A019290 3A019300
'DATE EC NO.
15FEB6B 25JUL69
420403
571053
PROG ID PAGE
03AO-O 15
DATE EC NO.
15FEB6!l 25JUL69
420403
571053
PROG IO
,PA~E
03AQ-,O 15A
18H MAINTENANCE OIAGNOSTit PROGRAM FOR THE 1130 SYSTEM 1130 SCOPE LOOP. PROGRAMS
CPALT CPBGN CPBLO CPBSW CPCTL
CPDSV CPD SW CPIN4 · CPLOP CPONE CPROS CPRET CPS EN CPSET CPWRT CRARA
-CR8GN CRBLO CRBSW CROSV. CROSW CR ENO CR ERR CRIN4 CRLO CRLOP CR MOD CRONE CRRDR CRRST CRSIU CRSTR CR080
OCBGN OC8l0 OCBSW OCDSW OCENO DCINT DCONl
OCONZ DCON3 DCON5 DCRD ·ocsws
O.CWR OCXR3 OCl OC3 OC5 OC6 OKRDl OKBOZ OK8GN OKBIT OKBLO DK8SW OKCON DKOSV DKOSW OKENT DKHME OKIN2 DKMOV OKRST
OKSF.K DK OFF OK004
0000 oo3:E 004Z
0000 OOlC
0012
oooz
ooo:b 001~8 OOlA 0010 0021
0009 oooe· 0006 002C 0036
OOOf 0018 003C 003F 002:~ OOZ4 0028 002E OOZF 003Z
oocte 0004 0015 0017 OOlE 0023 0020 0039 0038 ooclt 0031
003:~
0001 0039
0010 0009
0032 0028
OOZ2 OOOF 0011 OOZ7 0043
0008 OOlF 0033 0040
0004 0012 0014 0029
0036 0006 0014 0045
0000 0039
0035 0000 0019 0028 0032
0002 002.0 0030 0035 0037.
0009·· 0010
0004 0002 OOOF 0016 0031 0038 003A 003F
OOOA 0022 0047
0008 0015 0010 0027
OOOE oooc 0013
0014 OOlF 0021 0024 0026
002A OOlC ooze
OOlF 0018
0001 0020 002A 003C 003E
0006 OOZE 0040 004Z
0030 0004 0048
0008 OOZ5 0046
0020 0034
0000 0043
0000
0020 0000
0008 0019 oozz OOZ3 003C 0040
004C oooc 0011 00Z8 0045 0048
0048 0018 0036
0008 OOOA 0010
0004 OOZ6 002A 00.2E
0006 0031
0000 0039
oooz oozo
004E ooze 0049
0001 0008 0015 OOZ4 0030
0050 0030 0034 004Z 0046
0003 0018 OOlA 0035 003F 0041
003C OOlF
OO~E 003A 0044
0014 0010 0038
0048 0013
OOOF 0026
0010 002A
0000 OOlC
OOOE oooz OOlB OOZl OOZ5 0028 ooze 0031 0042
0018 0000
0002 0010 OOlF 0020 0030
004Z OOlA
OOOB 0013 0035 0036 0030
0008 OOlZ OOZ2 OOZ9 0034 0045
0001 0017 0037 003F
0004 0020 0038
0011 OOGA 0016
003A 0019 0048
0020 OOOE
0006 002E 0033 003A 003C 0040 0044
0000 0041
oooc 0038
DATE EC NO.
1'5FES68 25JUL69
4Z0403
571053
/) /...._)
.. \
-.,.\
I
\..__
-----
... · /
,..-·--.. ,
'·,__ ..) i
j
'.._/
_ ...................
-,_)
CJ ...,
...___,;)
~:)
PART NO. 2243962
PAGE
16
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 1130 SCOPE. LOOP PROGRAMS
PART NO. 2243962
PAGE
l6A .
FPBLO 0033
FPRSW 0006
FPCAR 0004
FPOSW 0002
FPINT OOIE
FPOUT 0032
FPPRT OOOA
FPRES 0047
FPS KP 0008
FPS TR 0000
FPSWS 0001
FPOOl oo:n
FPl
0013
Fpz
0017
FP8
OOZF
KYBGN 0000
KY8LO OOZ4
KY8SW 0002
KYOCH . 0000
KYOSP 0022
KYDSV 0008
KYOSW 0004
KYIN4 0011
KY KEY OOOA
KY ONE 0001
KYRO 0006
KYROW OOlC
KYREQ 0019
KYRST 003Z
KYSEL 0006
KY SET 0036
PHBLO 0037
PHRSW 0004
PHCTR oooz
PHO SW OOOA
PHFED 0000
PHINT 0011
PHK50 OOOE
PHPCH 0006
PHPST 0008
PHRES 004A
PHSTK oooc
PHSWS 0003
PHl
OOOF
PH2
0030
PH4 0020
PH6
0022
PHS
0033
PLALT 0048
PLBGN 0000
PLRLO 0012
PLBSW 0002
PLC TL 0013
PLDSV 0009
PLO SW 0006
PLIN3 oooc
PLLOP 0038
PL ONE 0001
PLOT 0004
PL ROS OOIE
PLRFT 0035
PLR.ST 0008
PLSF.:N ooze
PL SET OOOA
PLSTR 0022
PR
0049
PR.DLY 0048
PROSW 0018
0000 0000 '0013 0019 003F 0041 0008 0011 OOZF 0036 0038 0015 0018 OOlF 0036 0030 oooc OOZl OOOA 0014 OOlC 0035 003A 003E 0044 0033 oozo 0039 0047 0006 OOOE OOOF 0016 0027 0045
0026 OOlB 0042 0046 ooze OOZE 0031 . 0000 OOlZ 0024 0026 0036 0021 0010 0014 oooz 0013 OOlE 0027 OOZ9 0030 0037 oooc 003A 0030 0008 0000 OOOF OOZ2 0035 0038
OOlC 0020 002F 0018 0017 0004 0010 002A ooze 0033 0018 OOZ3 0000 0016 0018 OOZ7 003E 0040 0017 0019 OOZ6 OOlZ OOlF. 0041 0043 0030 003C 0030 0008 oooc 0024 OOlA 0020·0044 0046 0031 003q 003B 0037 0033 0047 0049 0006 0010 OOlF OOZ8 0034 004A 0010 0036 OOlC 0015 0020 0045 0010 0000 0019 OOlR OOlE 0022 0043 0046 0049
OOOE ooze 002F. 0032 0035
0002 0004 0000 ()015 0018 OOlF 0023 0027 oozo 0036 004Z OOOR 0010 003A
0017 0038 0012 0014 0033 00013 0011
OOlC 0031 004A 0020 0036 0026 002B 0040 0047 0014 0029 0011 0015 OOlE 0046 0000 0008 0018
PROG IO PAGE
03AO-O 16
"J '\ (.-··-....,
j
I
) '- .. /
....- -,
''.._____,I
~-)
·.. /
DATE J.:C NO.
l 5FF.B68 420403
Z5JlJL69 571053
·-,
-- \
-·)
.,__
-~-)
,---)
·,...._ ___,./
i.-,_-_-_-,',\}
.. ~ .........
i,__)
CJ·-....
I~ ...
) _
/') ) .:' r_:)
'-·
"-----
PROG IO PAGE
03AO-O 16A
.
,,
,.,-·--\,
)...
', ''...._,/
,_
,)
..-· .......
)
' - ...-"'
'""'\ ( I
\..__/
0
0
0
0
c) 0
0
0
0
·----·--·-------··
- - - - · - - - · - ----~--
C"1 0 0 0 CJ () 0
0
··----·-
0 c) 0 ,------,
l_)
0
0
c) C! 0
0
---·---
u G 0 ,,.--.,
(_) 0
0
C:i
11'1_, MfllNTFNANCF 01/\C;NUSTIC PROGRAM FnR THr. 1 L rn SYSTEM
1130 SCflPF LOnP Pl{O\.RAMS
PART NO. 22't3962
PAGE
17
IBM MAINTFNANCE DIAGNDSTTC PROGRAM FOR THF ll 30 SY<)Tf'1 1130 SCOPE LOOP PROGRAMS
PART NO. 22439',7
PAGf
l 7fl o·
...
PRPH 0018 PRF"lfl Oo;>C PRFLO OOlE PRGU ·1000 PR IOL 0008 PR TNT OOOA PRPRT 0038 PRRO 0004 PR RDS 0002 PRSCN 0020 PRSPR 0031 PRSPS 002P. PRSTP OOlC PRSTR OOlA PRSWS OOlA PRWT3 003A ROAR A 0001 ROBGN 0000 ROB LO QOlF ROFISW 0002 RDCOP 0038 RODSV OOOR Rl10SW 0006 ROE RR OOOA ROE SW 0020 ROINT 0037 ROl04 OOOF ROlOP 003E RDONE OOOE .RDRGO 0008 RO~RD 0004 RDRST 0020 ROOfF 0000 STGBO 003F STGCR 0004
STGHL 0005 :iTGLC 0002 STGPG 003E STGPN 0003 STGRD 0006 STGRS 0048 STGSP 0049 STGST 0009 STGSW 0001 STGXX 0008 STGO 0023 STGl 0025 STGlO 003A STG2 0026 STG3 002A STG7 OOZl TPALT 0028 'TP8GN 0000 TP8LO 0000
TPBSW oooz
TPCTL 0009 TPOSV 0008 TPDSW 0006 TPIN4 0033 TPLOP 003C TPNOT 0046 . TPONE 0001 TPPAT 0028 TPRDS OOlC TPREl OOJA TPSEN 0020. TPSET 0008 TPWRT. 0004
0004 0042 0010 0023 0047 0018 0030 003E oooq 0017 0031 0013 0019 0024 00?8 003C 0020 0022 0026 0038 OOOE 0035 0036 0037 0038 0000 0048 002B 00.lF 002C 0010 0039 0002 0020 0030 0016 0044 0004 0018 0018 0032 002C 0000 002F 001C 0044 OOlF 0021 0020 0035 0013 0011 0038 0048 0002 0010 0015 0022 OOZ4 002R OOZE OOlC 0010 0034 0041 OOlA OOlE 0047
OOOA oooc 003A
0040 003E 0025 OOZ1 0036 0014 OOZl3 002A 0006 0043 004A 0031 0009 0015 0022 0023 0011 OOlA 0030 003A 0024 0034 0036 0037 003E OOOE OOlF 0025 0020
OOOF 0014 0017 0029 ooze 0035 0041 0043
003F 0000 0040 0048 0049 0010 OOlR 0008 0000 0049 .0020 0030 0039 0033 001t4 0046 OOH 0010 0045 0018 0000 0014 0016 OOlC 0026 OOlA 002C 003F 0046 OOZE 002f 0034 0036 0002 0004 0010 0013 OOlD 0021 OOZ8 002A OOZO 0035 0042 0044
oooc 0039
00.3E
oou
00-12 0017 003C 0025 0009 004A
oon
0027 OOIE 0022 003A 0047 0000 OOOF 0030
TPlOO OOOA 001q OO?q TRAOV OOOA 002q 002C 0041 TRALT 003F 0047 004A TRARA Of.124 0008 OOOE 0018 OOlA TR8GN 0000 002E TRF\LO 0021 0000 0015 0018 0031 0035 TRBSW 0010 0021 0023 002F 0039 TRCTL 0026 003A 0030 0044 TRDSV 002.5 0003 TROSW oooc 0002 0010 0024 0026 TRIN4 0001 0006 0020 TR14A 0012 oooq TR LOP 0010 0014 0017 OOlF TR NOT 0043 003C TR PAT 0048 0038 TRRO OOOE 0007 0028 TRRST 002F 0001 TRSBW 0023 0010 0012 0030 0034 003E 0040 0045 0048 TRSTR 0035 0020 TRlOO 0022 0028 0049
__________E_N_O__O.F:___A_S_SE_M__B_L_Y_____________________ LAST PAGE ---------------------------------------------
·..~
~
nATF
re NO.
l 5FFl368 4204il3
25JlJL69 5710'>3
PROG to. PAGE
03AO-O 17
OATE
F.e NO.
15FER6fl 25JUL69
470403
571053
PROG IO PAGE
03AO-O 17A
ol~~
\
"-----
''----
~
I _._':- _.,,/
"
0 I
IBM MAINTENANCE OIAGNOSflC P~OGRAK FOR THE 1130 SYSTEM CURE STCPAGE FUNCTION TEST
0
PART NO. 2191210
PACE
l
0
0
TABLf OF CONTENTS
')
PAR6GRAPH
1. PURPOSE·
· PREREQUISITES. · ·
3. USE PRUCl:C1JRE.
·
· ·
· . .
.
.
. .
.
....· · ·
3.l 3.2
3.3 3.4
3.5
PPC~RA~ LOADIN~
UOfRATING PQOCF.CUqf
Tf~~INATING PRUCE~URE Nn~~Al ~AITS
fDRCR WAITS
.
. .
. .
. .
.
. . .
. .
. .
. . .
. . .
PAGE OlA OIA CilA
4. PRINTOUT~ (NO~EJ
5. cc~~ENTS · ~ · · · · · · · · · · · · · · · · · · · · · · · · · · OZA
5.1 5.1.1 5.1.2 5.l.3 5.l.4 5.1.5 5.1.6 5.1.1
s.2.1 5.2.2 5.2.3 5.2.4 5.2.5 5.2.6 5.2.7 5.3
5.3.l 5.3.2
5. 3. 3
s. 3.4
5.3.5
5. 3. b
DFSCRIPTIO~ or HIGl~CORE TEST l~ITIAlllAlto~s CPSKOSJ IU'AC/WRltE-T"l-MEMURY AND ADORE~SING TESf CRSA61J e1T-ISCLAT1r~ TEST IRSABRJ Wf'RST-CASE-PAf TtRN TEST IRSACJt Cl'WMO'l-Pr.11co Al' /l'kOGRAM-END ROUTINE I ~SASAt ERR~R RCUTl~t TO SCRVICE NON-l~T(RRUPT ERRORS IRSDDOJ ,._f'R~AL C01iu1Tlt.:N UF SWITCHES
D"SCR lPT (Qi~ 01' to·u TEST 'c Ti1ROUGH 9 CDRESJ
l~lTIALIZA1IChS CRSSTl) L"AJ-ZEROS-f~-cu~ES TEST IRSROlt LOAC-0,.,ES-l~-CORES TEST IRSR02t
AnCRESSING TEST (RSR03t BTl-ISOLATI~~ TEST IRSR04J P~UGRA~-EN~ ROUllNE (RSPtRt EDRCR ROllT 11'.lE I RSEORt DFSCRIPTICN OF LUW-CORE TEST
l~ITIALIZATtONS l~SOKSt
RFAC/WH. ITf-1'1-MEMORY ADDRESSING TEST (RSABI t BtT-ISCLATJr~ TEST wnRST-CASE-PATTERN TEST (RSACJI cn~~ON-PR8GDAM/PRUGRAM-ENC RUUTINE CRSAOAI E~RCR RCUTl~E TO SERVICc NON-lNTERRUPT ERRoqs IRSDOOJ
APPENCIX INONEI
LIST Of TABLES
. . . . . . . . . . TABLE
l. PROGRA~ nPTlo ... s · · ·
PAGE · · · · · · · · · · 02
IBM MAtNTElltA~'CE OIAGt:OSTJ!. OROGRAM FOR THE 1130 SYSTEM CORE srnqA<.E FUNCTIOn TEST
PART NO. 2191210
PAGE
U
l. PURPOSE
THE CORE TEST TlSTS THE CURES, CORE READ'WRITE ClRtUITRY, AND THE cnRE-AODRESC:lNG CIRCUITRY OF TttE 1131 CElllJRAL PKOCESSING UNIT ICPU.
THE TEST LC~~ISTS OF lHREE PARTS, W~ICH A?E LOADED ANO EXECUTED IN
THC FOLLOWING ORDER,
A ·
HIGH-CORE Tl'ST. TESTS MEMORY LOCATIONS ABOVE 2048.
B.
O-TtiROUG!-l-9-TEST, Tl:'iTS TllE THfi.EE HIGHEST LOCATIONS OF
Cf'RE IFll Al·DUION TO LOCATIONS C-9 I~ ORDER TO TEST THE WRAP-AROUND
Fl=ATURE OF CORE.
c.
Lrw-CORE TE'iT. TES TS CORE Lil CA fl U'iS 9 THROUGH 204 7.
2. PREflEQUl SITES
THE CORE TEST D[CK MUST ~E F~ECEDED BY JHE llJO BASIC DIAGNOSTIC LCACER IN ORDER TU Bf LOADED. EQUIP~E'iT R~QUtRtD C0~51STS UF THE 1442 C~RC READ/~INCH OR PAPfR TAPE READE~, AND llll CPU.
3. USE P~OCHURE
3.l PRCGRAM LOAOING
1. rLACt CAR~S/PAPER TAPE IN READER. 2. ~AKI' R~AOcR READY.
3. PRF~S THE 1131 RE5ET KEY. 4. pqf~S THE 1131 PROGRAM LOAD KEY. 5. IF PRCGRAl'I FAILS TU LOAD OR STUl'S AT A WAIT BELOW LOCAHO~
Ol2Ct REFER TO BASIC LOACER oocu~ENlATIUN SfCT. 3.2.
3.2 OPERATION pr.ocEDURE
A. Hl6H CORE TEST Will LOAD A~D RUN FOR ABOUT 2 TO tO MINUTES, OEPENOiNG ON CORE SIZE. IF NO E'RORS GCCU~, ANO CONSOLE ENTRY SiHTC:tES 13, 14 A,_.D 15 AllE OFF, THC NO'T TEST SfCTION Will BE AUTU~ATICALLY LOADED.
B. 0-9 CO~I' TFST WTLL LOADo A~D RU~ 8~1EFLY. IF NO ERRORS OCCUR, AND CONSOLE ENTP.Y SWJTCHE5 l3t 14 ~~O l~ AP.E Off, THE NEXT TEST SE~TION WILL BE AUJLMATICALLY LUAOEO.
t. LO CORE TEST Will LOAD ANO RUN ABOUT 1 Ml,..UTE, THEN STOP AT END OF TEST WAIT, 3CFF1 WITH C'9CD IN l'ISTRUCTICN AQnRESS REGISTER.
D. ERRORS 6RE IFllDICATED BY EK~UR WAITS. SEE PARAGRAPH 3.5
E. PRUGRi~ OPTIONS ~AY B~ ENTERED IN CONSOLE fNTRY SWITCHES AT ANY TIME~ SfE TABLE le
DATE EC NO.
02JAN66 4 l 5490
PROG ll> )3A2-0
PACE
l
DATE EC NO.
02JAN66 415490
i,.·
PROG ID 03A2-0
PAGE
u
I
\.___ ..
~.··
I '
"
l·BM MA INTENA~'CE DIAGNO'\TIC PROGRAM FOR THE ll30 SYSTEM CORE STORAGE FUNCTIUN TEST
PART NO. 2191210
PAGE
2
TABLE l. PROGR~M OPTIONS
DATA tNTRY HIGH 0-9 LOW
SWITCHFS CORE CORE coqt
Sw 15 ON X
X
WAIT AT ENO OF TEST SECTION. TO RERUN SECTION PUSH PROG START.
S~ 15 PFF X
X
LOAD ANO EXECUTE NEXi TEST SFCTION.
SW 14 O~
X
X
X LOUP TEST SECTIUN NOW RUNNINC.
SW 13 ON x
x
x LOOP ROUTINE NOW RUNNING.
SW 12 flN
x
x
BYPASS ERROR WAIT.
SW 11 f'N x
x
LOOP ON A PARTICULAR ADDRESS. USED FOR SCOPIN~
I AR 0319 OlFC 09CC 3.5
PROGRA~ rERMINATIUN
IN ~OR~AL OPERATION, T~E PRO~RAM WILL TERMINATE AFTFR All THREE PARTS HAVE BEEN EXECUTED, UNLESS CllNSOLE ENTRY SWITCH 130 UR lit IS ON (LOOP
ROUTH!E, tonp PKOGRAMI. TU:lN UFF SWITCH TO ALLOW PRnGRAM To TERMl~ATE.
NnRl'AL WJllTS
A"Cil. SBR
l'IEArHNG
0318
01FIS
3r'OO '} WAIT AT ENO OF TEST SECTION - SW 15 ON. 30(,0
30FF [NO uf PROGRAM WAIT - ALL SECTIONS COMPLETE.
EqROR WAITS
I !R SSR
MEANING
o~c;2 3000 ERROR IN IHCH-CORE TEST·
A. THE ACCUM~LATOR WILL DISPLAY THE SA~E INFORMATION AS IT UID WHEN THE ERROR WAS DETECTED.
6. THE ACCUMULATOR EXTENSION WlLL DISPLAY THE CONTENTS OF TrlE INSTRUCTION ADDRESS REGISTER AT THE TIME THE
ERROR WAS OETECTEU. C. THE STATUS OF CARRY ANO UVERFLOW Will BE RESTORED.
O. INDEX REC.ISTER XRl WILL CONTAIN THE ADDRESS THAT
FAILEU UNDER TEST. E. l~OEX REGISTER XR2 Will CONTAIN THE CORRECT BIT
P~TTERN, IF THlS WAS AN ERROR-3 CONOITION.
0210 JXXX ERRGR IN 0-9 TEST.
4. THE ACCUMULATOR WILL 01 SPLAY THE SAME INFORMATION AS IT DID WHEN THE ERROR WAS DETECTED.
e. THE ACCUMULATOK EXTENSION Will DISPLAY THE ADDRESS OF THE esl L RS(OR INSTRUCTION THAT TRANSFERRED THE
PRUGR~~ TO TH~ EP.ROR ROUTINE. C. THE STATUS Of CARRY ANO OVERFLOW HAVE NO SIGNIFICANCE
r.. THE 11 LEAST SIGNIFICANT ~ITS OF THF VALUE OF THE
'OCRESS UNDER TEST WILL dE STORED IN THE 11 LEAST SIGNIFICANT BIT POSITIO~S OF THE ERROR WAIT. THIS Will CE DISPLAYED lN THE STORAGE BUFFER REGISTER.
DATE EC NU.
02JAN66
41 <;490
PROG ID OlAZ-0
PAGE
2
.....
I
-.
~
-
I
.· ... . -
' ··
IBM MAl~TENANCE OIAG~OSTlr PRUCRAM FOR lHE 1130 SYSTEM CCRE STORAGE FUhCTION TES~
PART NOo 2191210
PAGE
2A
OA46 3000 fKKOR IN LOk-CORc TEST.
A. TH[ ACCUMULATOR Wll~ ~ISPLAY THE SA~E INFURMlTIDN AS IT UIC WHEN THE ERKOR WAS DETECTED.
B. THC ACC~MULATOR EXTENSION WILL DISPLAY THE CONTENTS OF TH£ INSTP.UCJl~N ADDRESS REulSTER AT THE TIME THE ER~OR WAS DETECTED.
C. TH~ Sl,TUS OF C'~~y A~O OVERFLOW Will RE RESTORED. O. l~DEX REGISTER XRl WILL CUNTAI~ THE ADDRESS THAT
FAILED UNOE~ TEST. ~. INnEX REGISTER XR2 WILL CONTAIN THE CORRECT BIT
PATTE~N, IF fHIS ftAS AN ERROR-3 CONOITION.
IF PR0GRA~ FAILS TO LOAD, OR IF ER~OR WAITS OCCUR AT LOCATIONS BFLO~ Ol2C, SEE 8~SIC LOADER OOCL'M[~TATJON.
4. PRl~TOUTS CNO~EJ
5. CCl",.tNTS
5.1
DFSCRIPTIUN Or HIGH-CORE ~EMORY TEST
5.1.l 5.1.2
INITJALIZATTONS IRSDKSJ
T~E INITl~LIZAT&U~ ROUTINE ESTABLl~HES THC BUOTSTRA" BRANCH, DETER~INES ~A~HINE TYPE, DETERMINES ME~IJRY SIZE, AN" ESTABLISHES AREA CCCES.
RFAC/WRITE-IN-ME~OKY ANO ACORtSSING TEST IRSA~I)
T~E READ/WRIT~-IN-MEMORY ANO ADDRESSING TEST LnADS EACll CuKE PUSITIGN WITH ITS CWN ADDRESS. THE TEST
WE~ COl"PAR"'S THE C!.llHENTS ur cAC~: CORE POSIHCN WITH THE
M'IGKESS l:Hf't<KIJCATEO TO ASSURE THAT THE CORES CAN B~
cnRRECTlY A~C~ES~EO.
5.1.3 8IT-ISOLATION TESI CRSABRJ
THE BIT-ISOLATION TEST IS IN T~O PARTS. ThE FIRST nA~T
CHcCKS THE ABILITY TO ~EAO ANO WRIJE ZEROS IN ~EMORY.
A FAILURE rn REAC OR WRITE ZEROS Will RESULT IN AN fRROR
WAIT.
THE SECOND PART IS A ~IT-ISOLATION TEST. THIS
JFST DETERMINES THE ABILITY OF MEMORY TO OISTINGUIS~ EACH
ONE G~ T~t 1& BITS IN A STORCD WORC. THE PATTERN R~AO
l~TO MEMORY HAS FIFTEEN 0 BITS AND. A SINGLE 1 BIT IN EACH
WORC~ ~l~ST fHf 1 'BIT IS PLACED I~ POSITION O. THF SIT 15
THEN MOVCO TC ThE RIGHT O~E PUSITION PER PA~S FOR A TOTAL
l~ TIMES UNTIL lHE ENTIRE CUR( WORD HAS BEEN TESTED.
~.1.4 wnRST-CASE-PATTERN TES! IRSACJJ
THE WORST-CASF-PATTER~ TEST ESTABLISHES A WORSTCASE PATTER~ CO~SISTINC OF BLOCKS OF WORDS CONTAIN'~G EITHFR All U~tS OR ALL ZEROS. THIS PATTERN IS KEAO ANO STORED INTO MEMURY ANO IS THEN COMrltMENTEO A~D STORED Ar.AIN. IF ANY f>ITS JIRE OMITTED UR ADDEO, BEC~CSE OF THIS WORST-CASEl~AXl~UM NOISEI EXERCISE, AN ~RROR Will OCCUR.
5.1.5 C~l'l'GN-PR~GRAM/PR~GR~M-ENC ROUTINE IRSADAJ
THI~ ROUTINF CO~JAINS THE PROGRAM-PASS fOUNTER AND THE INST~UCTIONS NECESSARY TO SENSE ~ONSOLE FNTRY SWITCHES 14 ANO 15. WITH SWITCH 15 ONt A WAIT-AT-RSQAS INSTRUCTION
SIGNIFIES PROGRAM ENO.
DATE
EC NO.
02JAN66 4145490
PROG 10 03A2-0
PAGE
2A
/ I
\'---- ,.
c
L
l_
\I , __
IUM ~AINTENA~CE OIAG~OS11C PROGRAM FOR THE 1130 SYSTEM CURE STURAGE FUNCTION TEST
PART NO. 2191210
PAGE
3
5.1.6 ERRCR ROUTJN~ TU ~ERVICE NON-l~TE~RUPT ERRORS IRSOOD)
THIS ROUTIN~ PROtrss~~ AND JCENTIFICS THE ERRORS THAT ARE DETECTED BY THE P:tCGRMl 1 S TE!>T ROUTll-4ES. At- ERROR WAIT JS EXECUTED. SEE SECTION 3.5, [RRO~ WAITS.
5.1·7 PPCPER CO~OITJON UF SWITCHES
W1TH tC~SOLF ENTRY SWITCH 12 GFF INOR~~Llt EACH ROUTINE IS EXECUTED f-OUR f J~ES "ER tACt! PKUGRA11 PASS1 !\.. O THE PROGRAM IS REPEATED THREE
TT~ES. THI! RESULTS IN A RU~ ll~E O~ BETWEEN 1 AND 10 MINUTES DFPENuJNG UN ~f~URY SPEED AND CORE SIZE.
5.2
DFSCRIPTIGN OF ~EMORY TEST 10 t..itOU~H 9 CORES)
s.2.1 J~lllAlllAll~~s IRSSTAI
THE INITIALll~TIONS D~TERMINf IHE ~-CHINE TYPE, ESTABLISH THE ME~ORY SIZE. ~NO ESTA~LISH PRUPER IOCC AREA-CODE MOOIFIERS.
5.2.2 LnAO-ZEROS-!~-CORES TEST IRSROll
THlS TEST T~STS THE ABILITY OF THE ME~ORY TU READ A~O WRITE Ail lEROS.
5.2.3 L"AD-QNES-1"1-CORES.resr IRSR021
THIS TtST rests THE AUILITY OF THE "EMORY TO READ AND WRITE ALL 0"4ES.
THIS TEST ATTEMPTS TO PLACE WITHIN fACH HE~URY WORD ITS OWN Af'CRE:S. TJ.IE MEMORY IS HIEN RUD TJ ASSURE THAT PROPER AnCRESSING HAS TAKFN PLACE.
5.2.5 SfT-ISOlATION TEST CRSROltJ
THIS TEST C~ECKS BIT ISOLATICN av RIPPLING A 1 BIT THROUGH EACH RIJ P(iC::ITIOP4 WITHIN THE ~El'IORY WORD. AT ANY TIME DURING THIS ROUTINco THE lolC·RO U~DER TEST SHuULD CONTAIN ND MnRE THAN LNE 1 SIT I~ ANY WORD.
5.2.o PRCGR~M-END ~CJTINE CRSPERt
TYIS KOUTl~F IN~R~HENTS THE PROGRA~ PASS COUNTER ANO INTER~OGATE' CONSOLE ENTRY SWITCHES lit AND 15.
5.2.7 ERROR ROUTl~E (KS[OR)
THE ERRCR q~UTINE IS USEC WHFNEYER AN ERROR OCCURS. THE ERROR ROUTINE EXECUTES A ~AIT-AT-RSERW INST~UCTION.
NOTE THIS PAr.T OF l~E JEST DOES ~OT HAYt THE BUOTSTRAP-BRANCH ~FATURE. THE EXtCUTIO~ TIME FOR THIS PART OF TriE TEST WILL BE lES~ THAN 10 ~ECONDS IF NO ERRORS ARE CETECTED.
5.3 DESCRIPTION OF LOW-CORE MEMURY T~ST
5.3.1 INITIALIZATIONS (RSDKSJ
THE JNITl~LfZATIONS DETERMINE MACHl~E TYPE AND ESTA8LISH AREA CODES.
DATE EC NO.
02JAN66 " l o;490
PRDG ID 03A2-0
PAGE
J
.
· J
I 1 ,, II
, I
- lI
-i
I
l
-!
, l
: .1
:. ri ~ ~
t
t
t 0 t 0 t I 0
'
I
".____...,.
(
f
:---/
1',
'-...__.,.
I
I
\~,
IBM MAINTENAl'ICE DIAGPIOSTIC PDOGRAM FOR THF 1130 SYSrEM CCRE STORAGE FUNCTION TEST
PART NO. 2191210
PAGE
3A
5.3.2 REAC/WRITE-IN-MtHORY ADDRESSING TF~T IRSABll
THIS TEST LOADS EACH CORE POSITION WITH ITS OWN ADDRESS AND C~MPARES THF CONTENTS OF EACH CURl PrSIT1GN WITH THF ADDRESS l~TEP.ROGATEn TO ASSU~E THAT THE CuRE~ CAN UE CORRECTLY ADDRESSED.
5.3.3
BIT-ISOLATir~ TEST
THIS TEST CETERMINES THE A~ILITY OF Mll'IURY ro CJ ST HlGU I SH
E!CH ONE OF THE 16 BITS IN A STUREu w~qo. FIRST THF 1 BIT I~ PLACED IN P0$1TlON ZERO. lHEN, fHE blf MOV[O 10 THE RIG~T ONE P~SITION PE~ FASS FUR A -TOTAL 15 PASSES UNTIL T~E ENTIR~ COKE wcqD HAS BEEN TEStEO.
5.3.4 ~nRS1-CASf-~A1TERN TEST CRSACJI
f"'E WO~ST-C~SE-PATTERN TEST ESTABLISHES A WORSJ-CASF PAJJEkH co~~ISTING UF BLOCKS CF WURGS CUNTAINl~G EITHtR ALL
a~Es OR tLL ZtRC~. THIS PAITERN JS kEAO hNO STORED INTO HF~ORY A~O rs THEN COMPLEMENTED AND STUREO AGAIN. IF ANY BITS ARE UROPrED uR ADDEO DURING THIS WJRST-CASF (MAXIHU~ Nr.rsrt [AERCISE, AN ERROR WAIT WILL OCCUR.
s.3.5 c~~~CN-PPCG~~M/PRCGRAM-ENC ROUTINE IRSAOA)
Tl-llS RCUTH,f I.GNU.INS JHE PR:::JGRAH-PASS COUNfE~ ANO INTERKf'CATES CD~!~OLE ENTRY SWITCH 14. A WAIT-AT-RSEXI l~STRUCTION SIGNIFIES PROGRAM E~O.
5.J.6 EDROR ROUTl~E TO SF.RVICE ~ON-INTERRUPT ERRORS (RSODnt
THIS R~UTJ~~ PROCESSES ANO IDENTIFIES THE ERRORS THAT A~E DETECTED BY T.. E PROGRA~·s TESTS. AN E~RUR wAIT INSTRUCTION IS EXECUTED.
NOTE AFTFR TlllS t>ART OF THt TEST HAS COMPLETED ITS INITIALllAJION ON THE fJR5T PASS, A BOOTSTRAP BRANCH IS ~VAILABLE FOR RESTARTING THE PROGRAM. THlC: BUOTSTKAP BRA1~CH IS INITIATED BY DEPRESSING THC: ~TOP. RESET, ANO START PUSHBUTTONS AND WILL ~ESULT IN A BRANCH TU T~E START OF THE PRUGRAH. CACH KOUTINE IS EXECUTED FuJR TIMES FOR EACH PRu~ltAM ?ASS ANO Tl-'E PROGR.'.14 IS REPEATED THR~E TIMES. THIS RESULTS IN A RUN TIME OF BEJWEfN O~~ AND TWC ~INUTES DEPENDING CN ~E~ORY SPE(~. TH( PROGRAM OESTROYS THE 113" BASIC DIAGNOSTIC LOADE~ 1 HAKl~G IT IMPOSSJ8LE TD CHAIN TO ANOJHER PROGRAM.
DATE EC ND.
02JAN66 ltl '54'10
·-~:
'
PROG ID 03A2-0
PAGE
3A
''"---
I"'-
I
\.__
·'---..
'---··
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM
CORE STOKAGE FUNCTION TEST HIGH CORE TEST
PART NO. 2191208
PAGE
1
02BC
012C 0 C839
0121 00 ocoooooo
012F 0 C834 ·0130 00 OC000004 0132 0 C015 0133 0 1890 0!34 0 C018 013~; 0 0013
0136 0 COll 0137 00 04000003 0139 00 6700FFFF
0138 00 C4000003 0130 00 4C200l41
013F 0 C007 0140 0 7001 0141 0 C004 0142 0 0007 0143 00 67000000 0145 0 7008
0146 0 0147 0
0148 0 0149 0 014A 0 Ol4B 0 014C 0 0140 0
0001 FFFE 01)00
0800 0000 0003 0000 0800
014E 0 COF9
Ol4F 00 04000000
0151 0 COF7 0152 0 DOOl
0153 00 04000149
0155 00 C4·~00UOO
0157 00 4Cl8015C
0159 0 90EC
015A 0 ODEE 0159 0 7015 015C 0 COEC 0150 0 1001 015E 0 ODEA 015F 0 70F2
01&0 0 "f003 0164! 0002 0164 00 4C00012F
0166 01) 4C00012F 0168 0 016E Olb9 0 3A40
· · · · *
MEMORY TEST-HIGH CORE
· ·
ABS
ORG
300
RSOKR LOO
RSAAN
STD L 0
RSDKS LOO
RSAAM
STD L 4
LO
RSAAE
CLEAR Q REGISTER
SRT
16
LO
RSFAC
INITIAL!ZE MEM SIZE
STO
11.SAAH
·* MACHINE DETERMINATION ROUTINE
·
LO
RSAAE
STO L 3 .LOX L3 /FFFF
LO L 3
SSC L RSAAB,Z
LO MOX
RSAAB LO STO LOX MDX
RSAAO x l
. RSAAC
RSAAK l3 /0000
RSAAF
CLEAR XR 3
** STORAGE AREAS FOR INITIALIZATIONS
·
RSAAC DC
1
1130 CONSTANT
RSI.AO DC
-2
1800 C01~STANT
RSAAE DC
RSAAH DC RSAAK DC RSFAA DC RSFAB DC
0
/08011
0 3 0
CONSTANT ZERO
MEMORY S llE
MACHINE TYPE NUMBER OF PROGRAM PA SES PROGRAM PASS BUFFEk
RSFAC DC
/0800
·* MEMORY SIZE ROUTINE
·
RSiAF LO
RSAAE
INITIALIZE MEM SIZE
STO L 0
LO
RSAAH
RSAAJ STO
RSAAG+l
RSAAG STO L RSA AH
LO L 0
SSC L RSAAI,+-
s
RSAAC
STO
RSAAH
MDX
RSA BA
RSAAI LO
RSAAH
SLA
1
STO
RSA AH
MOX
RSAAJ
·
· STORAGE AREAS PART 1
·
RSAAL MOX X 3
BSS E 2 RSAAM BSC L RSDKS
BOOTSTRAP BRANCH INST
RSAAN BSC L RSDKS
RSQAF DC
RSQAL
READ BIT SWITCH IOCC
RSQAO DC
/3A40
SECOND HALF IOCC-113
HCTOOOOO HCTOOOlO
HCT00020 HCT00030
HCT00040 HC"i00050 HCT00060 HCT00070 HCTOOOBO
HCT00090 HCTOOlOO
HCTOOllO HCT00120 HCT00130 HCT00140 HCT00150
HCT00160 HCT00170 HCT00180 HCT00190
HCT00200 HCT00210 HCT00220
HCT00230 HCTC0240 HCT00250 HCT00260 HCT00270 HCT00280 HCT0029!> HCT00300
HCT00310 HCT00320 HCT00330 HCT00340 HCT00350 HCT00360 HCT00370 HCT00380 HCT00390 HCT00400 HCT00410 HCT00420
HCT00430 HCT00440 HCT00450 HCT00460 HCT00470 HCT00480 HCT00490
HCT00500 HCT00510
HCT00520 HCT00530 HCT00540 HCT00550 HCT00560 HCT00570 HCT00580 HCT00590 HCT00600 HCT006l0 HCT00620 HCT00630 HCT00640
HCT00650 HCT00660
HCT00670
DATE EC NO.
01MAY66 415490B
PROG ID 03A2··1
PAGE
l
·~--<
(JI o
(l' (')
I)
;-·.
0
I I
J ·J
}
,
,-
i· J
r ·J J
J
·) j
IJ j
-··-v-,-.-,
\ ·'--.--
IBM MAINTENANCE DIAGNOSTIC PROGRAM FDR THE 1130 SYSTEM
CORE STORAGE FUNCTION TEST HIGH CORE TEST
PART NOo 2191208
PAGE
lA
Ol6A 0 Ol&B 0 Ol6C 0 0160 0
Ol6E 0 Ol6F 0 0170 0
04BO 0310 0000 0240 >
0000 OF03 0902
0171 0 COEE 0172 00 04000000 0174 0 CODS 0175 00 4C040182 0177 0 COF5 0178 0 DOFO 0179 O COFl 017A 00 04000008 Ol 7C 0 COF2 01 ·10 00 040003F7 017F 0 COF~ 0180 00 040003F9
0182 0 coca
0183 0 DOCS Cl84 0 6204 0185 00 6580016A 0187 0 69E4 OlSB 0 COE3 0189 00 D480016C 018B 0 FOBO 018C 00 4ClBOl90 OlBE 0 7101 018F 0 70F7 0190 00 6580016A 0192 0 6909 0193 00 C480016C 0195 0 FOD6 0196 00 4Cl801A5 0199 00 0400021F 019A 00 OC000168 019C 00 C400016E 019E 00 E400028C OlAO 00 4C200192 01A2 00 4400037E OlA4 0 FFFE 01A5 0 08C2 01A6 00 C400016E OlAB 00 E400028C OlAA 00 4C200192 OlAC 0 COBF OlAO 0 F09B OlAE 00 4Cl801BZ OlBO 0 7101 OlBl 0 70EO 01B2 0 72FF 01B3 0 7001 01B4 00 OC000168 0186 00 C400016E 0168 00 E400028A OlBA 00 4C200l84
RSQAC DC
RSEND+2
FND QF PROG~AM IN CORE
HCJ00680
RSQAO DC
RSCCA
INTERRUPT LEVEL ZERO VECT HCT00690
RSQl.E DC
0
WORK. AREA
HCT00700
RSQAP DC
10240
SECOND HALF IOC~-lBO
HCT00710
RSQAL DC
0
BIT SwlTCH BUFFER AREA
HCT00720
RSQAU DC
/OF03
2ND HALF IDCC-1800 D W HCT00730
RSQAV DC
/0902
2ND HALF-1800 TYiE
· * * ·
INITIALIZE MASKS ANO INTERRUPTS TO LEVEL ZERO lBOO ONLY
RSABA LO
RSA AL
STORE BOOTSTRAP BRAN H AT
HCT00740 HCT00750 HCT00760
HCT00770 HCT00780
HCT00790
STD L (I
LOCATION ZERO
HCTOOBOO
LO
RSAAK
HCT00810
BSC L RSABJ,E
IF 1130-GO TO FIRST ROUTJ HCT00820
LD
:?SQAP
CHANGE SECCND HALF I CC HCT00830
STO
RSQAO
FOR 1800 READ BIT SW
HCT00840
LO
RSQAO
INTERRUPT LEVEL ERRO VECT HCT00850
STO L 8
LD
RSQAU
osw 1800
HC100860 HCT00870
STO L TWSNS+l
PROl HCT00880
LO
RSQAV
XJO WRITE lSOO
HC100890
·
STO L TWWRT+l
FIRST ROUTINE-READ + WRITE IN MEMORY
·
RSABI LO
RS FAA
INITIALIZE PROGRAM
PROZ
HCT00900
HCT00910 HCT00920
HCT00930 HCTOQ<,.40
STO
RSFAB
PASS COUNTER
HCT00950
RSABH LOX xz 4
ADDRESSING PASSES
HCT00960
RSABB LOX 11 RSQAC
HCT00970
RSABC STX l RSQAE
HCT00980
LO
RSQAE
HCT00990
STD
RSQAE
HCTOlOOO
EOR
RSA AH
HCT01010
BSC L RSABD,+-
HCTOlOZC
MOX X! l
INCR TQ NEXT ADDRESS
HCT01030
MOX
RS ABC
HCT01040
RSABO LOX 11 RSQAC
HCTOlO!iO
RSA8E STX 1 RSQAE
HCT01060
LO I RSQAE
HCT01070
EOR
RSQAE
HCTOlOBO
BSC L RSABF,+- ERROR 1 DET:OCTEO
HCT01090
STO L RSQAN
STORE ACCUM FOR ERROR ROU HCTOllOO
XIO L RSQAF
HCTOlllO
LO L RSQAL
HCTOll20
AND L RSRAI
HCT01130
BSC L RSABE,Z
HCTOl-140
BSI L RSODO
HCTOll50
DC
/FFFE
ERROR l CONSTANT
HCT01160
RSABF XIO
RSQAF
READ BIT SWITCHES
HCTOll 70
LO L RSQAL
HCTOllBO
ANO L RSRAI
ISOLATE BIT SW 11
HCTOll90
BSC L RSABE;Z
IF BIT ~w 11 ON-REPEAT AD HCT01200
LO
RSQAE
HCT01210
EOR
RSAAH
HCT01220
BSC L RSABG,+-
HCTOl230
MDX Xl 1
INCn TO NEXT ADDRESS
HCT01240
MDX
RSABE
HCT01250
RSABG MDX xz -1
COUNT PASSES
HCT01260
MDX
RS ABB
HCT01270
XIO L RSQAF
REPEAT ROUTINE IF SW13 ON HCT01280
LO L RSQAL
HCT01290
AND L RSRAG
HCT01300
·
BSC L RSAE!H 1 Z
· SECOND ROUTINE
REPEAT ADDRESSING RO TINE P.:Tol310 HCT01320 HCT01330
·· BIT ISOLATION TEST-BIT BY BIT-AO~ESS BY ADDRESS HCT01340 HCT01350
DATE EC NO.
OlMAY66 4154908
PROG ID 03A2-l
PAGE
lA
/
L
I
\_
. \
'--./
I
' ·--..._..
·..
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM
CORE STORAGE FUNCTION TEST HIGH CORE TEST
PART NO. 2191208
PAGE
2
r.
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM
CORE STCRAGE FUNCTION TEST HIGH CORE TEST
l
PART NO. 2191208
PAGE
2A
·)
OlBC 0 6304
OlBD 00 C400016A 1llBF 0 fJ05A
c~ c0 00 6580021A
JlC2 0 C05B '1lc1 ()() "4'!0021!4
01C5 <l'l C4A00214
'.ll c7 00 4CP'11D6
01( 9 OC' 44000371=
rJ l CB r: Fl'Ff)
Jl cc ()0 f)400021F
01( F on OCOOOll'i'l
0 l On 00 C400016E
0102 oo F4()0n n1c
nl 'J4 on 4CZ001Cfl 01% oo or:ooot6fl
O l '1 'l on C4nOOl6IO
0 i '16 00 E41J002AC
')1')( on 4C2001CO 'll'1E 0 r.rnn
OlOF () '10 30 OHO 0 C03C 01"1 00 '1'+fl0'121A
OH3 on 6':> "I 00 ?11)
01~5 00 C4A0021A 011''7 0 FOl5
011' A Oil 4Clf'OH7
OlEA or 0400".l?l F
DIEC 00 OCOOOl"i'l
OlEF. on C4000lF.I: oic:=0 on 1:40002AC OlF2 on 4C21101EO OIF4 or 44000371'.
0\F6 0 FFFfl
01F7 00 OCOOOIM
01"'9 00 C400016E 01 I= P, 00 !=400021\C
01i:n oo 4C2001FO
OlFF 0 COlD 0200 0 4804 0201 0 7003
0202 0 1801 0203 0 0019 U204 0 700C 0205 0 C014 02 06 00 F4000149 0208 00 4Cl8020!) 020A 0 COOF 0208 0 fl012 020C 0 7082 0200 0: 73FF
020E 0 70AE 020F 00 OC000168 0211 00 C4C0016E 0213 00 E400028A
0215 00 4C2001BC 0217 0 7008
021t! 0 0219 0 021A O 021B 0 021C 0 0210 0 021E '1 021F 0
0004 0000 0000 0000
AOOO 0000 0001 0000
RSABR LOX X3 4
RSABP LD L RSQAC
RSABN STO
RSQAH
LOX 11 RSQAtJ
LD
RSQAI
STO I RSQAH
LO I RSQAH
ASC L RSAAJ,+-
BSI L RSODD
DC
/FFFD
!'iTO L RSOAN
XIO L RSQAF
LO L RSOAL
AN'l L RSRAI
SSC L RSAPN+l,Z
qSABJ XIO L RSQAF
LO L RSOAL
ANO L RSRAI
BSC L RSARN+l,Z
LO
RSOAJ
srn
RSQAK
qSABL LO
RSQAt<
qsAAQ srn I RSQAH
Ll)X 12 RSQAK
L fl I RSQAH
EOR
RSOllK
BSC L RSABK,+-
STD L RSQAN
XIO L RSOAF
LO L RSOAL
AlllD L RSRAI
BSC L RSABL,Z
BSI L RSDOO
DC
/FFFB
q<;ABK XIIJ L RSOAF
L IJ L RSOAL
AND L RSRAI
SSC L RSAPL,Z
LO
P.SQAK
BSC
E
MDX
RSA8M
SRA
l
STO
RSQAK
MDX
RSABQ
RSABM LD
RSQAH
EOR L RSAAH
BSC L RSA80,+-
LO
RSQAH
A
RSQAM
MOX
RSA 0 N
RSABO MDX X3 -1
MOX
RSABP
XIO L RSQAF
l.D L RSQAL
AND L RSRAG
SSC L RSABR,Z.
*· MDX
RSACJ
STORAGE AREAS PART 2
*RSQAQ DC
4
RSQAR DC
0
RSQAH DC
0
PSQAI DC RSQAJ DC
0 /8000
RSQAK DC
0
RSQAM DC
1
RSQAN DC
0
BIT ISOLATION PASSES
ERROR 2 OFTECTED ERRrJR 2 UlNSTANT STrJRF ACC FrJR ERROR nuTt
If BIT SW 11 O~ REPE T AO
';RROR 3 cn~STANT
ISOLATE sn 11
IF o?T SW 11 o~-REPE T Bl IF 0!:10-BIT 15 IS REA HEO BRAlllCH TO INCRE AOR ROUTI INCREMENT BIT POSITION BY ONE T~ST FOR MEMORY END INCREMENT TO TEST NE T MEMORY LOCATION COUNT PASSES
REPEAT AIT ISOLATION
WORST CASE PASSES WORST ~ASE PASS COUN WORK ARF.A-AOR CONST ZERO BIT ZFRO CONSTANT WORK AREA-BIT CONST 1 ~TORAGE FOR ACCUM
HCTOl360 HCTOl370 HCT01380 HCT01390 HCTG1400 HCHH410 HCT01420 HCT01430 HCT01440 HCT01441 HCT01450 HCT01460 HCT01470 HCT014RO HCT014q0 Hr:T01510 HCT01520 HCT01530 HCT01540 H'~ TO 15 50 HCT01560 HCT01570 HCT015RO HCT01590 HrT01600 HCTf'l610 Hr:T01620 HCT01630 HCTOl640 HCT01650 Hr.TO 1660 HCT016"10 HCT016RO HCT01690 HCT01700 HCT01710 HCT01720 HCT01730 HCT01740 HCT01750 HCT01760 HCT01770 HCTO 1780 HCT01790 HCT01800 HCT01810 HCT01820 HCT01830 HCT01840 HCT01850 HCT01860 HCT01870 HCT01880 HCT01890 HCT01900 HCT01910 HCT01q20 HCT01930 HCT01940 HCT01950 HCT01960 HCT01970 HCTOl980 HCT01990 HCT02000 HCT02010 HCT02020 HCT02030
()
* ESTABLISH WORST CASE PATTERN
·
0220 00 66000000
RSACJ LOX L2 /0000
HCT0?.040 HCT02050 HCT02060 HC T02070
J
0222 00 6700FFFF :)224 0 COF3
LOX l3 /FFFF
LO
RSQAQ
INITIALIZE WORST CAS
HCT02080 HCT02090
0225 0 OOF3
STD
RS OAP
PASS COUNTER
HCT02100
0226 00 74FF07.19
RSACK MDX L RSOAR,-1 COUNT ~OR~T CASE PAS ES
1KT02110
)
022 8 0 7001
MDX
RSACX
HCT02120
02?q 0 7053 022A 0 nAEF
MOX
RSACW
RS ACX STX 2 RSQAH
COMPLEMENT XR2
HCT02130 ,_.CT02140
022B 0 COEE
LO
RSQAH
Hc.T02150
022C 00 F4000287
EOR L RSRAC
HCT02160
022E 0 DOES 022F 00 668'.l021A
STO
RSQAH
LOX 12 RSQAri
HCT02l70
' I
HCT02180
1)231 0 6FlE8
STX 3 RSl.IAH
COMPLE"IENT XR3
HCT02190
0232 0 COE7
LO
RSQAH
HCT02200
0233 00 F40002R7
EOR L RSRAC
HCT02210
0235 0 DOE4
STO
RSQAH
HCT02220
0236 00 6780021A
LOX 13 RSOAH
HCT02230
0238 00 C400016A
LD L RSQAC
HCT02240
-,
023A 0 D04A 023B 0 C049
STO RSACB LO
RSRAA RS RA A
HCT02250
HCT02260
)
023C 0 1806
SRA
6
HCT02270
0230 0 0048
STO
RSRAB
HCT02280
023E 0 1802
SRA
2
HCT02290
.
023F 0 8046 0240 00 4C0402!t5 0242 00 6E P.00285
A
RSRAB
B'>C ·L RSACA,E
STX 12 RS RA A
I
0244 0 7002
MDX
RSACD
HC:T0230U HCT02310 HCT02320 HCT02330
0245 QI) 6F8002R5
RS AC A STX 13 RSRAA
HCT02340
~)
0247 0 C030 0248 00 1=4000149
RSACO LO
RSRAA
EOR l RSAAH
TEST FOR ME~ORY ENO
HCT02350 HC102360
024A 00 4Cl8024F
BSC L RSADB,+-
HCT02370
024C 00 74010285
MOX L RSRAA, l
ADR=ADR+l
HCT02380
024E 0 70EC
MDX
RSACB
HCT02390
** WORST CASE TEST LOAO AND STORE THEN
* COMPLEMENT ANO REPEAT
HCT02400 HCT02410 HCT02420
)
·
HCT02430
024F 00 6580016A
RSADB LOX 11 RSQAC
LOAD STARTl~G A~R IN XRl HCT02440
0251 0 6933
RSACL STX 1 RSRAA
HCT02450
C252 0 C03B
RSACH LO
RS RAJ
INITIALIZE COMPLEMENT CNTR HCT02460
0253 0 0038
STO
RSRAK
HCT02470
0254 00 C4800285
RSACG LO I RS RA A
HCT02480
0256 00 4C20025A
SSC l RSACE,z
HCT02490
0258 0 FOZE
FOR
RS RAC
HCT02500
0259 0 7010
MDX
RSACF
HCT02510
025A 0 F02C
RS ACE EOR
RS RAC
HCT02520
025B 00 4Cl8026A
BSC l RSACF,+- ERROR 4 DECTECTEO
HCT02530
0250 00 0400021F
STO L RSQAN
HCT02540
025F. 00 OC000168
XIO l RSQAF
HCT02550
0261 00 C400016E
LO L RSQAL
HCT02560
0263 00 F.40002RC
AND L RS RAJ
HCT02570
0265 00 4C200252
BSC L RSACH,Z
HCT02580
0267 00 4400037E
BSI L RSDDO
HCT02590
0269 I) Fr-F7
DC
/FFF7
ERROR 4 CONSTANT
HCT02600
026A 00 04800285
RS ACF STO I RSRAA
HCT02610
026C 00 74FE028F
MDX L RSRAK.,-2
HCT02620
026E 0 70E5
MOX
RSACG
3RANCH FOR COMPLEMEM PAS HCrD2630
026F 00 OC00016B
XIO L RSQAF
HCT02640
0271 00 C400016E
LO L RSQAL
HCT02650
0213 0 E018
AND
RSRAI
ISOLATE BIT SW 11
HCT02660
0274 00 4C200252
BSC L RSACH,Z
IF BIT SW 11 ON-REPE T AO HCT02670
0276 0 COOE
LO
RS RA A
HCT02680
0271 00 F4000149
EOR L RSAAH
TF.ST FOR MEMORY END
HCT0?690
0279 00 4Cl80226
BSC L RSACK 9 +-
HCT02700
0278 0 7101
MOX Xl l
MEM AllR=ADR+l
HCT02710
DATE EC NO.
OlMAY66 4154908
PROG ID 03A2-l
PAGE
2
DATE EC NO.
Ol~AY66
4154908
PROG ID 03A2-l
PAGE
2A
1
(') I)
/
l (
"--
\_~
~.
~
L
'-.
IBM MAINTENANCE DI AGNOSTIC PROGRAM FOR THE 1130 SYSTEM
CORE STORAGE FUNCTION TEST HIGH CORE TEST
PART NO. 2191208
PAGE
3
027C 0 70D4 0270 00 OCOOOlo8
02 7F co C4f)0016E
GZB l 0 !'OOA
02e2 00 4C200220
0284 0 700B
021!5 0
0286 0
0287 0 028!\ 0 02A9 0 028A 0
0288 0 02qc 0
0280 c
02ilE 0 029F 0
riooo
f)OOO FFFF
0000 0000 0004 11002 0010 0020 11003 0000
0290 00 C400014A 029Z 00 4C080296
0294 or 64000305
0296 0 6204 0297 00 C400016A 0299 0 DOEE 029A 0 !)008
0296 00 C400037~ 0290 00 'l400037l
029F 0 COE7 O?AO 00 04800288 O?A2 0 2C41 02A3 0 04BO 02A4 00 6580028q 02Ab 0 COE2 OZA7 00 1)480028'1 02A9 00 C4'10028'1 02AB 0 FODB O">AC 00 4ClB02BB
O~AE on ')400021F
0230 00 1C 000 1bfl 0282 0 tJ C400016E 0284 00 !':40002'1C
0285 on 4C2J029F
0288 00 <t400037E 02BA 0 FFEF 02BB 00 l'lCOOOlbB 021'\D 00 C4000lbE 02BF 0 EOCC 02CO 00 4C20029F
02C2 0 COC5 02C~ 00 84C0021E
02C5 0 DOC2 02C6 0 DOOC 02(.7 00 1'4000149 02C9 00 4C20029F
02CB 00 C4000372 02CD 00 04000371 02CF 00 C4000lbA
MDX
RSACL
RSACW XlO L RSQAF
LO L RSQAL
AND
RS RAG
LOOP ROUTINE IF SW 1 ON
BSC L RSACJ,Z
MDX
RSACV
** STORAGE ARE AS PART 3
*RSRAA DC
0
RSRAB DC
0
WORK AREA-ADDRESS BUFFER ARFA-WORST CASE PA
RSRAC DC
/FFFf
RSRAE DC
0
WORK AREA-AODRESS
RS RAF DC RSRAG DC RS RAH DC RSRAI DC RS RAX DC
0 /0004 /0002 /0010 /0020
CONST ZERO BIT 13 ! SOL AT ION CONST BIT 14 ISOLATION CON T BIT 11 lSOLATiON CONST BIT 10 ISOLATION CON TANT
RS RAJ DC
3
RS RAK DC
0
COMPLEMENT PASS COUN ER
** STORAGE P~OTECTJON TEST ROUTINES *RSACV LD L RSAAK
BSC L RSACU,+
·
LOX L RSAOA
N1T 1800 BRANCH TO E D
* WRITE ZEROS ON PROTECTED AREA OF ONES
*RSACU LOX X2 4
STORAGF PROTECT PASS S
RSACS LO L RSQAC
STO
RSRAE
STG
RSACO
LO L RSSAH
STD L RSSAF
RSACN LO
RSP.AC
INITIALIZE STS ADDRESS TELL INTERRUPT ROUTI E TO DISREGARD SP ERROR
ACC=/FFFF
STO
RSRAE
DC
RSACO oc
/2C41 RSEND+2
ADD SP BITS
LOX 11 RSRAE
LO
RSRAF
ACCUM=O
STO
RS RAE
STO SHOULD NOT OCCUR
LO
RS RAE
EOR
RSRAC
BSC L RSACM,+STO L RSQAN XIO L RSQAF
ERROR 5 DECTECTEO
LO L RSQAL
ANO L RSRAI
BSC L RS.'CN, Z
BSI L RS ODD
DC
/FFEF
ERROR 5 CO>.jSTANT
RSACM XIO L RS OAF
LO L RSQAL
AND
RS RA I
BSC L RSAc~.z
ISOLATE SIT SW 11 IF BIT SW 11 ON-REPE T AD
LO
RS RAE
A L RSQAM
STO
RSRAE
STO
RSACO
EOR L RSA AH
BSC L RSACN,Z
RETUR~ WITH ADR=ADR+
..* UN!> ROTE CT AND CLEAR MEMORY OF ONES
·
LO L RS SAG
SERVICE STORAGE PROT CT
STO L RSSAF
LO L RSQAC
HCT02720
HCT02730 HCT02740 HCT02750 HCT02760 HCT02770 HCT02780 HCT02790 HCT02800 HCT02810 HCT02820 HCT02830 HCT02840 HCT02850 HCT02860 HCT02870 HCT02880 HCT02890 HCT02900 HCT02910 HCT02920 HCT02930 HCT02940 HCT0?950 HCT02960 HCT02970 '1CT02980 HC.T02990 HCT03000 HCT03010 HCT03020 HCT03030 HCT03040 HCT03050 HCT03060 HCT03070 HCT03080 HCT03090 HCT03100 HCT03110 HCT03120 HCT03130 HCT03140 HCT03150 HCT03160 HCT03170 HCT03180 HCT03190 HCT03200 HCT03210 HCT03220 HCT03230 HCT03240 HCT03250 HCT03260 HCT03270 HCT03280 HCT03290 HCT03300 HCT03310 HCT03320 HCT03330 HCT03340 HCT03350 HCT03360 HCT03370 HCT03380 HCT03390
DATE EC NO.
01MAY66 4154906
PROG IO 03A2-l
PAGE
3
-·-----·--··-··-----··
!
~
,_···, 0 n 0 ,-, Q
C· a
.J
-
· l
.;
-I --,
-i
)
')
l
l
1
·; J
-
j
I
.....
''
..... J
~-l
J
n 1 n Q
__ -··--·-.... -- - .... ...__,_ --·~
_
..... .. '--- -~·
___
~--...:
____, ,
-~----~-. ·---~.,~--~--'-~;~~~..!::t.::.·~~-;;,;;;..,_~_-_:'.:_~~h-,,.__.,__,,.;~"U"..,,_._.,,;,..__..~--''-'"'--'"""----'--'-''~·:1"."'~·"-'~=".iNU'3'-'"-='--'··-.:..'-
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SVSTEM
CORE STOl{AGE FUN CT ION TEST HIGH CrJRE TEST
PART NO. 2191208
PAGE
3A
0201 0 OOB6 0202 0 0001 0203 0 2C40 0204 0 04BO 0205 00 651!002All 0207 0 COBl 0201! 00 04800288 02uA 00 C4800288 02DC 00 4Cl802EB 02DE 00 'l400021F 02EO 00 OC0001613 02E2 00 C4000lbE 02E4 00 !':400028C 02E6 00 4C200203 02E8 00 4400037E 02EA 0 FFDF 02EB 00 OC000168 02EO 00 C1t00016': 02EF 0 E09C 02FO 00 4C200203 02F2 0 C095 02F3 00 8400021E 02F5 0 [)092 02F6 0 0100 02F7 00 F4000149 02F9 00 4C200203 OZFB 0 72FF 02FC 0 709A 02FO 00 OC000168 02FF 00 C400016E 0301 00 E40002BA 0303 00 4C200296
0305 00 74FF014C 0307 0 7013 0308 00 OC000168 030A 00 C400016E 030C 00 E400028B 030E 00 4C200182 0310 00 OCOOOlb'I 0312 00 C4000l6E 0314 00 4C0403lt:I 0316 00 6400005('1
0318 a 3000
0319 00 640QIJ12F 0318 00 64000184
0310 0 0000 031E 0 r>04C 031F 0 ~847 0320 0 0840 0321 0 ')04E 0322 00 _.C400324 0324 00 '1C00016t:I 0326 00 C400016E 0328 0 ::052 0329 0 "'052 032A 00 4Cl80394 032C 0 C043 0320 0 E046 032f 00 4Cl80343 0330 0 C040 0331 00 4Cl0033F 0333 00 OC000168
STO
RS RAE
HCT03400
STO
RSACR
INITIALI ZF STS ADORE S
HCT03410
RSACQ DC
/2C40
CLEAR SP BITS
HCT03420
RSACR DC
RSENC:+2
HCT03430
LOX Jl RS RAE
HCT03440
LO
llSRAF
ACC=/0000
HCT03450
STD I RS RAE
HCT03460
LO I RSRAE
HCT034 70
BSC L RSACP,+- E~ROR b DECTECTEO
HCT03480
STO L RSQAN
HCT03490
XIO L RSQAF
HCT03500
LO L RSQAL
HCT03510
AND L RSRAI
HCT03520
BSC L RSACQ,Z
llCT03'530
BSI L RSDOO
HCT03540
DC
/FFDF
::RROR 6 ~'J!'JSTANT
HCT03550
RSACP XIO L RSQAF
REPEAT LCJP IF SW 11 ON
HCT03560
LO L RSQAL
HCT03570
ANO
RSRAI
HCT03580
BSC L RSACQ,Z
l\EP!'.AT ADJRESS
HCT03590
LO
RSRAE
HCT03600
A L RSQAM
HCT03610
STD
RSRAE
HCT03620
STO
RSACR
HCT03630
EOR l RSAAH
HCT03640
BSC L RSACQ,Z
3RANCH kiTH ADR=ADR+
HCT03f50
MOX X2 -1
HCT03660
MOX
RSACS
LOOP ROUT I "IE FOR 5 P SSES HCT03670
XIO L RSQAF
LOOP ROUTINE IF SW 13 ON HCT03680
LO l RSQAL
HCT03690
Al'\D L RSRl'.G
HCT03700
BSC L RSACU1Z
·
* COMMCN PROGRAM ENO *RSAOA MOX L RSfAB,-1
REPEAT SP R'lUTl~E
HCT03710 HCT03720 HCT03730 HCT03740 HCT0375C
MDX
RSCCO
HCT0376()
XIO L RSQAf
HCT03770
LO L RSQAL
HCT03780
AND L RS RAH
HCT03790
BSC L RSABI,z
l<EPEAT PR';G-SW 14 ON
HCT03800
RSEXI XIO l RSQAf
HCT03810
LO L RSQAL
HCT03820
BSC l RSQAS,E
INTERROGATE S~ 15
HCT03830
RSQAW LOX l /0050
LINK TO NEXT PROG
HCT03840
RSQAS WAIT LOX L RSDKS
P~OGRAM E~G-PRESS START
ro RE-RUh P~OGRAM
HCT03850 HCT03860
RSCCO LOX L RSABH
LOOP PROG~A'4
·· INTERRUPT LEVEL ERROR ROUTINE
*RSC CA DC
0
RETURl'4 AD1R TO "4AIN 'LINE
HCT038 70 HCT03880 HCT03890 HCT03900 HCT03910
STO
RS SAA
SAVE A
HC103920
STS
RSCCE
S TO~E STATUS CAqY+OFLO
HCT03930
XIO
RS SAC
SEN5E ILS~ FOR LEVEL ERROR HCTQ3q40
STO
RS SAO
HCT03950
BOSC l ~EXT
HCT03q60
NEXT XIO L RSQAF
TEST FOR HIE ILLEGAL
HCT03970
LO L RSQAL
S~ITCH cr.~BI~ATJ~N-S 10
HCT03980
AND
RS SAO
ON A!\10 SW 12 OFF
HCT03990
EOR
RS SAP
HCT04000
BSC L RSDDK,+- BRANCH IF ILLEGAL
HCT04010
LO
RS SAO
RESTORE STATUS OF IL W
HCT04020
AND
RS SAE
ISOLATE STGE PRT ERROR
HCT04030
BSC l RSCCB,+- TEST FOR STQRAGE PRO VIOL HCT04040
LO
RSSAF
HCT0 1> 0 5 0
BSC L RSCCG,-
BYPASS PRINTOUT IF I SP HCT04060
XIO L RS!;;Af
SW 10 TO BYPASS PRINTOUT HCT04070
DATE EC NO.
01MAY66 4154908
PROG ID 03A2-l
PAGE
3A
. C. L l
\
"----
0 0
,
(
,...,
IBM MAINTENANCE OIAGNOST:C PROGRAM FOR THE 1130 SYSTEM
CORE STORAGE FUNCTION TEST HIGH CORE TEST
PART Nil. 2191208
PAGE
4
0 ..,
'J
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 .SYSTEM
CORE STORAGE FUNCTION TEST HIGH CORE TEST
PART N1. 2191208
PAGE
4A
0335 00 C4000l6E 0337 00 E400028D 0339 00 4C20C359 033B 00 44000397 0330 0 1)473 OBE 0 7004 033F 0 C030 0340 0 F033 0341 GO 4C9~031D 0343 00 OC000168 0345 00 C400016E 0347 00 E400028D 0349 00 4C?00359 034B O C024 034C 0 E028 0340 00 4C180352 034F 00 44000397 03'>1 o 047F 0352 0 COlD 0353 0 !:022 0354 00 4Cl80359 0356 00 44000397 0358 0 0489 0359 00 OC000168 0358 00 C4000l6E 0350 0 !;019 035E 00 4C88031D 0360 0 COOF 0361 0 180C 0367 0 E817 0363 0 ')004 03&4 0 COBS 0365 0 1890 0306 0 C004 03&7 0 2000 0368 0 '1000 03&9 00 4C80031D
03bB 0 03oC 036E 0 035F 0 0370 0 0371 0 0372 0 0373 0 0374 0 0375 0 0376 0 0311 0 03711 0 0379 0 037A 0 0378 0 037C O 0370 0
0000 'J002 0000 0300 0000 FFFF FFFF 0002 2000 4000 8000 0008 OOOE 0001 3000 0028 0020 5555
037E 0 037F 0 0380 0 0381 0 0382 ') 0383 0 0384 0
0000 2'l 10 COFD 90F6 lfl90 COFA l!OF4
LO L RSQAL
HCT04080
AND L RS RAX
HCT04090
BSC L RSCCD,Z
BYPASS PRINTOUT IF B ANCH HCT04100
BS I L LOG
HCT04ll0
DC
MES03
ERROR INT-STORG PROT
HCT04120
MDX
RSCCB
HCT04130
RSCCG LD
RS SAD
IF IN SP ROUTINE AN P
HCT04140
EOR
RS SAE
ERROR ONLY THEN RETURN TO HCT04150
BSC 1 RSCCA,+- MAINLINE
HCT04l60
RSCCB XIO L RSOAF
SW 10 TO ~YPASS PRINTOUT HCT04170
LO L RSQAL
HCT04180
AND L RS RAX
HCT04190
BSC L RSCCD,Z
BYPASS PRINTOUT IF B ANCH HC.T04200
LO
RS SAO
LOAD ILS~ FOR ERROR INTRUP HCT04210
AND
RSSAI
ISOLATE PARITY ERROR
HCT04220
BSC L RSCCC,+-
HCT04230
BS I L LOG
HCT04240
DC
ME S04
ERROR INT-PARITY
HCT04250
RSCCC LO
RS SAD
TEST FOR INVALID OP ODE HCT04260
AND
RSSAJ
ISOLATE INV OP ERROR
HCT04270
BSC L RSCCD,+-
HCT04280
BS t L LOG
HCT04290
DC
MES05
ERROR INT-INV OP COO
HCT04300
RSCCD XIO L RSQAF
IF BIT SW 1~ ON THEN STOR HCT04310
LO L RSQAL
HCT04320
AND
RS SAK
ACCUM, INS CTR, STATUS
W.T04330
BSC
RSCCA,+
AND WAIT
HCT04340
LO
RS SAO
LOAD ILSW FOR ERROR
HCT04350
SRA
12
PLACE BITS 0-4 OF IL W IN HCT04360
OR
RS SAN
ll-15 ANL OR IN WAIT CP
HCT04370
STO
RSCCH
STORE IN WAIT
HCT04380
LO
RS CC A
LOAD INS CTR IN ACCUM
HCT04390
SRT
16
TRANSFER INS CTR TO
HCT04400
LO
RS SAA
RESTORE ACCUM CONTENTS
HCT04410
RSCCE LOS
0
RESTORE OFLO+CARRY I DICA HCT04420
RSCCH lo:AIT
HCT04430
BSC
RSCCA
RETURN TO MAINLINE
·
· STORAGE AREAS FOR ERROR ROUTINES
·
RSSAA DC
0
SAVED ACCUMULATOR BU FER
HCT04440 HCT04450 HCT04460 HCT04'+70 HCT04480
ass E 2
HCT04490
RSSAC OC
/0000
SENSE ILSW FOR
HCT04500
DC
/0300
LEVEL ZERO
HCT04510
RSSAD DC
0
STORAGE FOR ILSW
HCT04520
RS$AF DC
-1
IN SP ROUTINE -lNO, 2YES HCT04530
RSSAG DC
-1
NOT IN SP ROUTINE
HCT04540
RSSAH DC
2
IN STORAGE PROTECT RDUTIN HCT04550
RSSAE DC
/20'!0
HCT04560
RSSAI DC
/4000
HCT04570
RSSAJ DC
/8000
HCT04580
RSSAK DC
/0008
ISOLATE BIT SW 12
HCT04590
RSSAL DC
14
HCf04600
RSSAM DC
1
HCT04610
RSSAN DC
/3000
WAIT INSTRUCTION
HCT04620
RSSAD DC
/0028
HCT04630
RSSAP DC
/0020
HCT04640
F.SSAQ DC
/5555
· · ·
ERROR ROUTINE TO SERVICE NON-INTERRUPT ERRORS
II.SOOD DC
0
STORAGE FOR RETURN ADORES
HCT04650 HCT04660 HCT04670 HCT04680 HCT04690
STS
RSODJ
STORE STATUS OFLD+CA RY
HCT04700
RSDDX LO
RSDDD
HCT04710
s
RS SAL
CORRECT I REG
HCT04720
SRT
16
STORE I REG IN Q
HCT04730
LO
RSDDD
HCT04740
A
RS SAM
INCREMENT RETURN ADDRESS ftCT04750
OATF EC NO.
OlMAYob 415490B
PROG ID '>3A2-1
PAGE
4
·-
! :
,-
J
f. I
0 ' '
J
J
; \
J
·J
I)
1
("
·J
.~.
.' )
!)
n
() !)
0
03A5 0 OOFA 0380 00 OC000168 0388 00 C4000l6E 038A 00 E4000377 03AC 00 4CA0037E
038E 00 C400021F 039G 0 2000 0391 0 3000 0392 00 4C80037E 0394 0 COEB 0395 00 4C40012F
0397 0 0000 0398 0 6BlB 03q9 00 OC000168 039B 00 C4000l6E 0390 00 4Cl003B9
039F 00 C4800397 03Al 0 0052
03A2 0 ')840 03A3 00 4C0403A9. 03A5 0 1801 03A6 00 4CC403AB 03A8 0 7004
03A9 0 ·300A 03AA 0 70F7
03AB 0 300B C·3AC 0 70F5
03AO 0 084!>
03AE 0 03AF 0 03BO 0 03Bl 0 03B2 0
oq43
1002 4810 70FC 0830
03B3 00 ':>7000000 03B5 00 74010397
03B7 CO 4C800397
0389 0 1010 03BA 0 0032 03BB 0 0133A 03BC 0 1005 03BD 0 l~OF 03BE 00 4Cl803C2
03CO 0 300C 03Cl 0 70F'1
03C2 0 C028 03C3 0 D02A
03C4 0 0833
03C5 0 0830 03C6 ll 180B
SlO
RSDDD
BY 1 TO AVOID DC IN AINL
XIO L RS OAF
IF SW 12 O~-CORRECT CONSL
LO L RSQAL
ANO L RS SAK
INDICATOR LAMPS AND WAIT
PSC I Rsooo.z
LO L RSQAN
RELOAD A RfG AS PER E~ROR
RSDDJ LOS
0
SAVE C~RY+OFLO STATU
WAIT
BSC
RSDDD
RSDCK LO
RSSAQ
·····*······ BOSC L RSDKS
RESET INTE~-RETURN START
***"'** ·· ****** ····
·
LOG
ROUTINE **** *** ········*
·························~····················
LOG DC
0
SE
LOGfJ) STX 3 LDG06+l
SAVE IX 3
XIO L RSQAF
LO L RSQAL
BSC L TWRTR,-
BRANCH IF 1053 OUTPU
·
LO
LOG
GET MESSAGE ADDRESS
STD
·
LDG02 XID
PRWRT PR SNS
SET IN ICCC CHECK PRINTER READY
BSC L LOG03,E
BRANCH IF NOT READY
SRA
1
BSC L LOG04 1 E
BRANCI-' IF BUSY
MOX
·
LDG03 WAIT
L\JG05 10
READY AND NOT BUSY NOT READY
MDX
LDG02
CHECK AGAIN
*LOG04 WAIT
11
BUSY
MDX
·
LOGOS XIO
· XIO
LOG02 PRWRT PRSN
Cl-!ECK AGAIN OUTPUT MESSAGE CHECK FOR OP COMPLT
SLA
2
BSC MOi<
·-4
XID
· ·
*LOCO& LOX
PR SNS
RESET DSW
PRINTING COMPLETE
L3 0
RESTORE IX 3
·
MDX L LOG,l
BUMP RETURN
BSC
LOG
RETURN TO USER
SX
·
TWRTR SLA
16
STD
WROSW
XID
TWSNS
CHECK If TYPEWRITER
SLA
5
READY
SRA
15
·
BSC L TWROlt+-
WAIT
12
NOT READY
MDX
·
TWROl LO
TWRTR+2 TWRTO
CARRAIGE RETURN ANO
STD
IOARA
LINE SPACE TO JO ARA
*
·
XIO
TWWRT
XIO
TW5NS
CARG RETURN/LINE SP HANG TILL NOT BUSY
SRA
11
HCT04760 HCT04770 HCT04780 HCT04790 HCT04800 HCT04810 HCT04820 HCT04830 HCT04840 HCT04850 HCT04860 HCT04870 HCT04880 HCT04890 HCT04900 HCT04910 HCT04920 HCT04930 HCT04940 HCT04950 HCT04960 HCT04970 HCT04980 HCT04990 HCT05000 HCT05Ll0 HC105020 HCT05030 HCT05040 HCT05050 HCT05060 HCT05070 HCT05080 HCT05090 HCT05100 HCT05110 HCT0512C HCT05130 HCT05140 HC"!"05150 HCT05160 HCT05170 HCT05180 HCT05190 HCT05200 Hr:T05210 HCT05220 HCT05230 HCT05240 HCT05250 HCT05260 HCT05270 HC1"0528C' HCT05290 HCT05300 HCT05310 HCT05320 HCT05330 HCT05340 HCT05350 ftCT05360 HCT05370 HCT05380 HCT05390 HCT05400
HCT0~410
HCT05420 HCT05430
DATE EC NO.
OlMAY66 415490B
PROG ID 03A2-1
PAGE
4A
l
IHM MAINTENANCE DIAGNOSTIC PROGRAM· FOR THE 1130 SYSTEM
CORE STO~AGE FUNCTION TEST HIGH (r)RE TEST
PART NO. 2191208
PAGE
5
03C7 O 4804 03CR 0 70FC
03C9 0 ,C,301 03CA 00 C4800397 O'ICC 0 rJOOl
03CD 00 C70COOOO O'ICF 00 'l400042A 0301 0 FOlA 0302 00 4Cl803B3
03'l4 00 4<t0003FA
0306 00 C400042A o~-DA 0 'J015
0309 0 ORIE
03DA 0 03DB 0 03DC 0 0300 0
OAlB lAOB 4804 70FC
030~ 0 COOE 030F 0 4804 03EO O 7006
03El 0 COOC 03E2 0 1008 03E3 0 l)OOA 03E4 00 740103EO 03E6 0 70F2
03E7 0 7301 03E8 00 740l03Ef) 03EA 0 70E2
03EB 0 03EC 0 03EO 0 03fE 0
Al03 FFFF 0000 0000
03FO 0000
03FO 0 03Fl 0 03F2 0 03F3 0 03F4 0 03F5 0 03F6 0 03F7 0 03F8 0 03F9 J
0000 "3701
'.JOOO
3700 0000 3500 0000 OFOl 03EE 0900
BSC
MOX
*
LOX
LD STO
*TWR02 LO
STO EOR
BSC
E *-4
3 1 I LOG
TWR02+1
l3 0 L COOWO
TWRTl L LOG06,+-
BYPASS 1443 WORD COU T GET MESSAGE ADDRESS
GET WORD TO PRINT SET IN CONVERSION RT CHECK IF TERMINATOR BRANCH IF TERMINATOR
********************~************************
BS! L CODCV
GO CCNVERT 43 TO TW SRC
*******~*************************************
*
LO L CCDWO
STO
IOARA
*
* *XIOWR XIO
T;o WRT
OUTPUT A CHARACTER WRITE CHA~ACTER
*XIOSN XIO
SRA BSC MDX
TWSNS 11 E XIOSN
HANG ON BUSY BUSY
*
*
*
L'l
CHECK IF lST 1/2 WORD
WROSloi
GET 1/2 W~RD SWITCH
BSC
E
MDX
TWR03
GO SET UP NEXT WORD
* *
*
LO
SET UP FOR ZND 1/2 WORD I O ARA
SLA
8
POSITION ZND 1/2 WO
STD
IOARA
i-IDX L WROSW, l
BUMP WORD SWITCH
MDX
XIOWR
GO WRITE 2NO 1/2 WO
* T**WR03 MDX
MDX MDX
SET UP FOR NEXT WORD
3 L WROSW, l
TWR02
NEXT WORD I l\IDEX BUMP WORD SWITCH GO GET NEXT WORD
* * T*WRTO OC
HIRTl DC WRDSW DC IQARA CC
/8103 /FFFF
0
()
LOG
CO~SlANTS
LINE SP/CARRAIGE RTN TERMINATOR 112 WORD SW ITCH OUTPUT AREA
*
BSS E 0
*PRSNS DC
DC PRSN DC
DC PRWRT DC
DC 1WSNS DC
DC TWWRT DC
DC
/0000 /3701
0 /3700 /0000 /3500 /0000 /OFOl IOARA /0900
PRINTER SENSE JOCC
NON RESET SENSE
PRINTER WRITE IOCC
TYPEWTR SENSE IOCC
DSW RESET
PMOl
TYPEWTR WRITE JOCC
WR TYPEWRITER
PM02
*
HC"I05440 HCT05450 HCT05460 HCT05470 HCT054AO HCT05490 HCT05500 HCT05510 HCT05520 HCT05530 HCT05540 HCT05550 HCT05560 HCT05570 HCT05580 HCT05590 HCT05600 HCT05610 HCT05620 HCT05630 HCT056.ft0 HCT05650 HCT05660 HCT05670 HCT05680 HCT05690 hCT05700 HCT05710 HCT05720 HCT05730 HCT0!;740 HCT05750 HCT05760 HCT05770 HCT05780 HCT05790 HCT05800 HCT05810 HCT05820 HCT05830 HCT05840 HCT05850 HCT05860 HCT05870 HCTCJ5880 HCT05890 HCT05900 HCT05910 HCT05920 HCT05930 HCT05940 HCT05950 HCT05960 HCT05970 HCT05980 HCT05990 HCT06000 HCT06010 HCT06020 HCT06030 HCT06040 HCT06050 HCT06060 HCT06070 HCT06080 HCT06090 HCT06100
HCT06ll0
DATE . EC NO.
01MAY66 4154908
PROG ID 03A2-l
PAGE
5
0 0 0 0
0
r J
J J
J J
·J
}
·l 1
r;
}
.,
J 1
li I)
IB~ MAINTENANCE DIAG~OSTIC PROGRAM FOR THE 1130 SYSTEM
CORE STORAGE FUNCTION TEST HIGH CORE TEST
03FA 0 03Fll 0 03FC 0 03FD 0
0000 6927 6A28 6829
03FE 0 1010 03FF 0 D02B 0400 0 6300
0401 0 0402 0 0403 O 0404 0 0405 0
C028 1890 C027 4F!20 1088
0406 0 1010 0407 0 1084 0408 0 0023 0409 00 6~80042C
040B 0 1010 040C 0 1084 0400 0 OIJlE 040E 00 6680042C
0410 00 C500042F 0412 0 0001
0413 00 C6000000 0415 00 07000420
0417 0 C013
0418 00 4C20041E 041A 00 74010428
c Qi; l 0 7301
0410 0 7()E3
04IE O 041F 0 0420 0 0421 0
COOE 1008 E800 0008
0422 00 65000000 0424 00 66000000 0426 00 67000000
0428 00 4C8003FA
042A 0 04211 0 042C o 0420 0 042E 0
0000 0000 riooo 0000 0000
042F 0 0433 0430 0 043E
**********************C1O*4D*4E*3**CC*OO*DNE*V*E*TRO*S*IO*1N*9*1*R6*O/*1U*0T*5IN*3*E*****
*********************************************
*CODCV DC
0
SE
STX 1 COOC4+1
SAVE JNi)EX REGS
STX 2 CODC4+3
STX 3 CODC4+5
*
SLA
16
STD
i.HJND
LOX 3 0
Cl.EAR LEFT HALF WORD ·INDICATOR
C*ODCl LO
SRT LO SSC SL T
CO')WO
16 LHIND
z
8
GET WORD TO CONVERT SET IN Q
SKIP IF LEFT HALF PGSITJON ~JGHT HALF
*
SLA
16
SL T
4
STD
CODOO
LOX 11 COOOO
ZONE TO ACCUM
= IX 1 ZONE
*
SLA
16
SL T
4
STO
COOOO
LOX 12 (0000
DIGIT TO ACCUM
IX 2 = DIGIT
*
LO l l ZONE
GET ZCNE TA3LE ADDRS
STD
CODC2+1
SET JN CO~VERSION WO
C*OOC2 LO LZ 0
STD L3 COOOl
GET CONVERTED CODE
*
LO
LHINO
SSC L COOC3,Z
BRNCH IF ~IGHT HALF
MDX L LHINO,l
MOX 3 1
'10X
COOCl
GO CONVERT RIGHT HLF
C*ODC3 LO
COOOl
PACK CONvERTED CODES
SLA
8
OR
COD02
STD
CODWD
C*ODC4 LOX ll 0
LOX l2 0
RESTORE INDEX REGS
LOX L3 0
*
BSC
CODCV
RETURN TO USER
sx
··**
CODWO DC
0
LHIND DC
0
CODOC DC
0
CODOl DC
0
COD02 DC
0
CONSTANTS
WORD LOCATION L~FT HALF INDICATOR WORK AREA CONVERTED LH CHARACT CONVERTED RH CHARACT
* ·
***ZONE DC
DC
1443 TO 1816/1053 CODE CONVERSION TABLE~
ZONEN ZONEl
NO ZONE 0 ZONt
DATE EC NO.
01MAY66 4154908
PART NfJ. 2191208
PAGE
5A
HCT06120 HCT06130 HCTIJ6140 HCT06l50 HCT06160 HCT06170 HCT06180 HCT06190 HCT06200 HCT06210 HCT06220 HCT06230 HC106240 HCT06250 HCT06260 HCT06270 HCT06280 HCT06290 HCT06300 HCT06310 HCT06320 HCT06330 HCT06340 HCT06350 HCT06360 HCT<i6370 HCT06380 HCT06390 HCT06400 HCT06410 HCT06420 HCT06430 HCT06440 HC:T06450 HCT06460 HCT06470 t:CT06480 HCT06490 HCT06500 HCT06510 HCT06520 HCT06530 HCT06540 HCT06550 HCT06560 HCT06570 HCT06580 HCT06590 HCT06600
HCT06610 HCT0!.620 HCT06630 HCT06640 HCT06650 HCT06660 HCT06670 HCT06680 HC"i06690 HCT06700 HCT06710 HCT06720 HCT06730 HCT06740 HCT06750 HCT06760 HCTOo770 HCT(.'16780 HCT06790
PROG IO 03A2-l
PAGE
5A
,,,-·-.
L
l l
I
\_
I
"----·
\_
(__ \.
I
(
·1
0 I '-·-~' "-~·
-~---------
/
I
,..__,
·-
18-M MAINTENANCE 01 AGN"JST IC PROGRAM FOR THE 1130 SYSTEM
CORE STORAGE FUNCTION TEST HIGH CORE TEST
0431 0 0449 0432 0 0453
0433 0 0434 0
0435 0 0436 0
0437 0
0438 I)
0439 0
043A 0 0438 0 043C 0
0430 0 043E 0 043F 0 0440 0 0441 0 0442 0
0443 0 0444 0 0445 0 0446 0 0447 0 0441! 0 0449 0 044A 0 0446 0
G44C 0
044D 0 044[ 0 044F 0 0450 0
0451 0
0452 D
0453 0 0454 0
0455 0 0456 0 0457 0 0456 0 0459 0 045A 0 0458 0 04SC 0 0450 0 045E 0
0021 OOFC OODA OODC OOFG OOF4 OGDO 0004 OOE4 OOEO OOC4
nooo
0000 009A 009E 0082 OOB6 0092 0096 OOA6 OOA2 0021 0000 007E 005A 005E 0072 0076 0052 0056 0066 0062 0000 003E OOlA OOH' 0032 0036 0012 0016 0026 0022 0066 0000
045F 0 0460 0 0461 0 0462 0 0463 0 0464 0 0465 0 0466 0 0467 0 0468 0 0469 0 046 r, 0
OOOA 2435
~426
2918 0013 3512 1300 3'139 0033 2629 3500 FFFF
0468 0
046C 0 046D 0 046F 0 046F 0 0470 (J 0471 0
0006 7.7?9 2637 293 l 2400 3525 3400
DC
DC
*ZONEN DC
DC
DC
DC
DC
oc
DC
DC
DC
DC
DC
ZONEl DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
ZONE2 DC
DC
oc
DC
DC
DC
DC
DC
DC
DC
ZONE3 DC
oc oc
DC
DC
DC
DC
DC
DC
DC
DC
·
DC
'1ES01 DC
DC
DC
DC
DC
oc
DC
DC
DC
DC
DC
IJC
·
MES02 DC
DC
DC
DC
DC
DC
DC
ZONE2 ZONE3
/0021 /OOFC /0008 /OODC /OOFO /OOF4 /OODO /OOD4 /OOE4 /OOEO /OOC4 0 0 /009A /009E /0062 /0086 /0092 /0096 /OOA6 /OOA2 /0021 0 /007E /005A /005E /0072 /0076 /0052 /0056 /0066 /0062 0 /003E /OOlA /OOlE /0032 /0036 /0012 /0016 /0026 /0022 /0086 /0000
10 /2435 /2426 /2918 /0013 /3512 /1300 /3839 /0033 /2629 /3500 /FF Ff
6 /2729 /2637 /2931 /2400 /3525 /3400
11 ZONE 12 ZONE
SPACE 1 2 3 4 5 6 7 8 9 0
s
T
u
v
w x
y
z
SPACE
J
K
L
M
r::::--'
N
D
p
Q R
A
8
c
D
E F
G H
I 0 ERROR
PERIOD
WORD CT ME MO RY
T ES T HI
c
OR E TERM
WO CT PR
OG RA M FN
D
PART NO. 2191208
PAGE
6
HCT06800
HCT068l0 HCT06820 HCT06830 HCT061!40 HCT06850 HCT06860 HCT06870 HCT06880 HCT06890 HCT06900 HCT06910 HCT06920 HCT06930 HCT06940 HCT06950 HCT06960 HCT06970 HCT06980 HCT06990 HCT07000 HCT07010 HCT07020 HCT07030 HCT07040 HCT07050 HCT07060 HCT07070 HCT07080 HCT07090 HCT07100 HCT07110 HCT07120 HCT07130 HCT07140 HCT07150 HCT07160 HCT07170 HCT07180 HCT07190 HCT07200 HCT07210 HCT07220 HCT07230 HCT07240 HCT07250 HCT07260 HCT07270 HCT07280 HCT07290 HCT07300 HCT07310 HCT07320 HCT07330 HCT07340 HCT07350 HCT07360 HCT07370 HCT07380 HCT07390 HCT07400 HCT07410 HCT071t20 HCT071t30 HCT071t40 HCT07450 HCT07460 HCT07470
(1 0 G
fl 0
G
·..;
0
.)
Q
iJ
J
Q
J
-
I.
J
1
J
-.
· r·, _,
!- J
,...
I
J
!" ,.."..l
,,.. .
-J
'1 J
;-1
j
("\ 1
n 0
IBM MAINTENA~CE OIAG~3STIC PROGRAM FOR THE 1130 SYSTEM
CORE STOKAGE FUNCTION TEST HIGH CORE TEST
0472 0 FFFF
0473 0 0474 0 0475 0 0476 0 0477 0 0478 0 0479 0 047A 0
0476 0
047C 0 04?0 0 047E 0
0008 3529 2926 2900 3925 1300 1213 2629 3700 2729 2613 FFFF
047F 0 04110 0 0481 0 04112 0 0403 0 0484 0
0465 0 0486 0 0487 0 0468 0
0008 3529
2926 2900 3925 1300
2731 2939
131!! FFFF
0489 0 04oA 0 0488 0 046C 0 0480 0 0413E 0 048F 0 0490 0 0491 0 0492 0 0493 0 0494 0 0495 0
0008 3529 2926 2900 3925 1300 3925 l50D 2627 0033 2634 3500 FFFF
0496 0 0497 0 0498 0 Olt99 0
0002 3529 0001 FFFF
049A 0
0498 0 049C 0 0490 0
0002 3529 0002 FFFF
049E 0 049F 0 04AO 0 04Al 0
0002 3529
0003 FFFF
04A2 0 04A3 0 04A4 0 04A5 0
0002 3529 0004 FFFF
04Ab 0 04A7 0 04Al3 0 04A9 0
0002 3529 1)005 FFFF
04AA 0 0002 04A8 0 3529 04AC 0 0006
oc
·
MES03 DC DC DC !JC DC DC DC DC
oc
DC DC DC
*MES04 oc
DC DC DC DC
oc
DC DC DC DC
*M£S05 DC
DC DC DC DC DC DC
oc
DC !'.lC DC DC DC
*MES06 DC
DC DC DC
*MES07 DC
DC DC DC
·
MES08 DC DC DC DC
*MES09 DC
DC DC DC
·
"1ES10 DC DC DC DC
*MESll DC
DC
oc
/FFFF
11 /3529 12926 /2900 /3925 /1300 /1213 /2629 /3700 /2729 /2613 /FFFF
8 /3529 /2926 /2900 /3925 /1300 /2731 /2939 /1318 /FFFF
11 /3529 /2926 /2900 /3925 /1300 /3925 11500 /2627 /0033 /2634 /3500 /FFFF
2 /3529 /0001 /FFFF
2 /3529 /0002 /FFFF
2 /3529 /0003 /FFFF
2 /3529 /OOOlt /FFFF
2 /3529 10005 /FFFF
2 /3529 /0006
TERM
WO CT ER RO R JN T ST OR G PR OT TERM
WO CT ER RO R IN T PA RI TY TERM
WO CT ER RO R IN T JN
v
OP
c
OD E TERM
WO CT ER
1 TERM
WO CT ER
2 TERM
WO CT ER
3 TERM
WO CT ER
4 TERM
WO CT ER
5 TERM
WO CT ER
6
PART 1110. 2191208
PAGE
6A
HCT07480 HCT07490 HCT07'500 HCT07510 HCT07520 HCT07530 Hc.TC17540 Hfl07550 Htl07560 HCT07570 HCT075BO HCT07590 HCTC7600
HCT07610 HCT07620 HCT07630 HCT07640 HCT07650 HCT07660 HCT07670 HCT07680 HCT07690 HCT07700 HCT07710 HCT'H720 HCT07730 HCi07740 HCT07750 HCT077h0 HCT07770 HCT07780 HCT07790 HCT07800 HCT07810 HCTD7820 HCT07830 HCT07840 HCT07850 HCT07860 HCT07870 HCT07880 HCT07890 HCT07900 HCT07910 HCT07920 HCT07930 HCT07940 HCT07950 HCT07960
·ICT07970 HCT07980 HCT07990 HCT08000 HCTOl!OlO HCT08020 HCT08030 HCT08040 HCT08050 HCT08060 HCT08070 HCT08080 HCT08090 HCT08l00 HCT08110 HCT08120 HCT08130 HCTOill40 HCT08150
DATE tC NO.
Ol'1AY66 4154908
PROG ID 03A2-l
PAGE
6
n J
n l
DATE EC NO.
OlMAY66 4154908
PROG ID 03A2-l
PAGE
6A
n '
,/ r-··
'-----·
I
.-'·
.
-· ..\...__
.
,--.
(_
(
I
\........
\___ __
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM
CORE STORAGE FUNCTION TEST HIGH CORE TEST
RS AC A RSACB RSACD RS ACE RS ACF RSACG RSACH RSACJ RS ACK RSACL RS ACM RSACN RSACO RSACP RSACQ RSACR R$ACS RSACU RSACV RSACW RSACX RSA DA RSADB RSCCA RSCCB RSCCC RSCCO RSCCE RSC CG RSC CH RSCCQ RSD(IO
RSOOJ RSDDK RSOOX RSOKR RS OKS RS END RS EX I RS FAA PSFAB RSFAC RSQAC RSQAO RSQAE RSQAF
0245 0238 0247 025A 1)26A 0254 025Z 0220 0226 0251 0286 029F Oi?A3 1)2F.B 0203 0204. 0297 1)296 0290 0270 022A 0305 024F 0310 0343 0352 0359 0367 033F 0368 0318 037E
0390 03Cl4 0380 Ol2C 012F 04AE 0310 0148 Ol4C 0140 016A 0168 016C 0168
RSQAH
RSQAI RSQAJ RSQAK RSQAL
'JZlA
0218 021C 021 f) 016 E
RSQAM RSQ.'.N RSQAO RSQAP RSQAQ RSQAR RSQAS RSQAU RSQAV RSQAW RSRAA
OZIE OZlF 0169 0160 02HI 0219 1)318
Ol6F 0170 0316 0285
0240 024E 0244 0256 0259,0258 026E 0265,0274 0211,0202 0279 027C 02AC OZB6,02C0,02C9 029A 102C6 020C 02E6,02F0,02F9 0202,021=6 02Fr. 0292,0303 0284 0229 0228 0294 024A Ol6B 103411035E1036410369 032E,033E 0340 0339,034910354 031F 0331 0363 0307
OlA2 1 01C9 1 0lF4 1 0267,02B8102F.~,0380,038310385,038C,
0392 037F 032A
0481 0164,0166,0319,0395 Ol6A,02A3,02D4
0182 0183,0305 0134
01851~190,0lBD,02381024F,0297,02CF
0179
0187,018810189,0192,0193,01~5,0lAC
019A,OlA5,0lB4,0lCE,Ol06 101EC101F7,020F,025F,026F, 0210,02eo,02se,02E0,02EB,02FD,0308,031010324,0333, 0343,0359,0386,0399 Ol8F,OlC0101C3,ClC5,01El,OlE510205,020A1022A102281 022E,022F,0231,0232,0235,0236 01C2 OlOE OlDF10lE0101E3101E710lFF,0203 Ol68,0l9fr101A6 10186,0lOO,OlD8,0lEE,OlF9,021lt026lt
0271 1 027F,0282,02BO,C2E2,02E0,~2FF,030A10312,0326t
0335,0345,0358,0388,0398 0208, OZC3, O:?F 3 019R,01CC,01EA,025D,G2AE,020E,038E
0178 0177 0224
02~5,0226
0314 017C 017F
023A 1023B,D242,0245,0247,024C,025l,02541026A,0276
DATE EC ND.
01MAY66 4154908
PART Nf'I. 2191208
PAGE
8
PROG ID PAGE
'3A2-l 8
1.1
Q
(I
() J
( 0
r. ·,
J
! . .J
J
·'.J
f'·
:'j
:]
J
i 1
(",
J
J
J
(\
1
~ . ..... . .. ... . - . ..
. (....__,,
.,.
(\._
~._./
. \ ':---.___./
( ' "-.. ..~··
\
'·-
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM
CORE STORAGE FUNCTION TEST HIGH CORE TEST
RS RAB RS RAC RSRAE
RS RAF RSRl'.G 'RSRAH RSRAI
RS RAJ RSRAK RSRAX RS SAA RS SAC RS SAD RSSAE RSSAF RS SAG RSSAH RSSAI RSSAJ RS SAK RS SAL RS SAM RS SAN RS SAO RS:,AP RSSAQ TWRTR TWRTO TWRTl TWROl TWR02 TWR03 TWSNS TllWRT WRDSW XIOSN XIOWR ZONE ZONEN ZONEl ZONE2 ZONE3
02116 0287 0288
0289 028A 0288 020c
028E 028F 0280 0368 036E 0370 0374 0371 0372 0373 0375 0376 0377 0378 0379 037A 0378
\J37C
0370 0389 03E8 03EC 03C2 03CD d:iE7 03F6 03F8 03EO 030A 0309 042F 0433 043E 0449 0453
02 30,023F 022c,0233,oz50,02sA,029F,02A8
0299~02A0,02A4 1 02A7,02A9,0ZC2,02C5,0201,0Z05,02D8,
020A,02F2,02F5 02A6,0207 0188,021310281,0301 030C 019E,OlA8,0102,0lDAt01FO,OlFB,026310273,0284102BF, 02E4,02EF 0252 0253,026C 0337,0347 031E,0366 0320
0321,032C1033F~0348,0352,0360
0320,0340 0290,0ZC0,0330 02CB 0298 034C 0353 0350,038A 0381 0384 0362 0328 0329 0394 039D,03Cl 03C2 0301 03BE 03CC,03EA 03EO 0170,0388,03C5,03DA 0180,03C4,0309 03BA,03DE,03E4,03E8
03DD 03E6 0410 042F 0430 0431 0432
PART NO. 2191208.
PAGE
SA
-,
1
)
·)
·1 0 :")
0 (')
DATE EC NO.
OlMAY66 4154908
PROG ID 03A2-l
PAGE
8A
I (_
"---
. " . ··-_--..- .____... ~- .. -.·-···---· - -
(
(
(
'·.....__ .
'----
'-----
IBM MAINTENANCE DIAGNOSTIC PROGRAM F~R THE 1130 SYSTEM
CORE STORAGE FUNCTION TEST 0-9 CORE TEST
PART NO. 2191208
PAGE
9
02Bt 012C 0 C845 0120 00 llCOOOOOO Ol2F 00 C4000232 0131 00 04000231 0133 00 C400010C 0135 00 !)4000104
0137 00 C4000197 0139 00 04000003 o:3B 0 6300
one oo C4000003
Ol3E 00 4Cl8014E
0140 0 C02A 0141 00 IJ40C0227 0143 0 C029 0144 00 04000205 0146 0 C025 0147 00 ll40002B7 0149 0 C025 Ol4A 00 04000174 014C 00 040001EC
014E 0 COIF Ol4F 00 04000000 0151 00 C40001B4 0153 0 DOOi 0154 00 040001B4 0156 00 C4000000 0158 00 4Cl80165 015A 00 94000183 015C 00 :l40001B4 015E 00 ll4000IB5 0160 00 84000182 0162 00 '>4000IB9 01 !>4 0 700F 0165 00 C4000IB4 01&7 0 1001 01&8 00 '>40001B'· 016A 0 70E8
0166 0 0240 Ol6C 0 0902 0160 0 OF03 016E 0 01)00 Ol6F 0 3000 0170 0002 0172 00 4C00012F
0174 0 1000
** MEMORY TEST-0-9 CORES
* · ABS
ORG
300
RSSTB LDD
RSAAN
STD L 0
RSSTA LO L RSNPP
STD L RSPPC
LO L RSLAJ
STO L RS LAA
·* DETERMINE MACHINE TYPE ·
. LO L RSLAE
STO L 3
LOX X3 0
LO L 3
BSC L RSDMS,+-
** 1800 MODIFICATIONS
·
LO
RSR18
STD L RSRBS+l
LO
RSD18
STO L TWSNS+l
PROl
LD
RST18
STD L TWWRT+l
PR02
LO
WA ITO
STO L WAIT A
·* STO L WAITS MEMORY SIZE ROUTINE
·
RSDl'IS LO
RSZRO
STD L 0
LO L RS LAA
RSKBC STO
RSKBA+l
RSKBA STD L RS LAA
LD L 0 BSC L RSKBD,+-
s L RSLAB
STD L RS LAA
STD L RS LAC
A L RS LAO STD ·L RS LAG
MOX
WAIT A
RSKBD LO L RS LAA
SLA
l
STO L RS LAA
MDX
RS KBC
·
· STORAGE FOR INITIALIZATIONS
·
RSR18 DC
/0240
IBOO READ SWITCH
RST18 DC
/0902
lBOO TYPE
RSDl8 DC
/OF03
1800 TYPE OSW-RESET
RSZRO DC·
ICOOO
CONST ZERO
WAITO DC
/300J
WAIT INSTr.UtTION
BSS E 2
RSAAN BSC L RS STA
·
*· WAIT TO TURN DISABLE INTERRUPT SWITCH TO ON POSITION-1800 ONLY
·
·WAJTA SLA
0
DISABLE INTERRUPTS
0-CJOODOO 0-900010 0-900020
0-9000~0
0-900040 0-900050 0-900060 0-900070 0-900080 0-900090 0-900100. 0-900110 0-900120 0-900130 0-900140 0-900150 0-900160 0-900170 0-900180 0-900190 0-900200 0-900210 0-900220 0-900230 0-900240 0-900250 0-900260 0-900270 0-900280_ Q,-900290 0-900300 0-900310 0-900320 0-900330 0-900340 0-900350 0-900360 0-900310 0-900380 0-900390 0-900400 0-9(10410 0-900420 0-900430 0-900440 0-900450 0-900460 0-900470 0-900480 0-900490 0-900500 0-900510 0-900520 0-900530 0-900540 0-900550 0-900560 0-900570 0-900580 0-900590 0-900600 0-900610 0-900620 0-900(:30 0-900640 0-900650 0-900660 0-900670
DATE Et NO.
OIMAY66 4154908
PROG ID 03A2-1
PAGE
9
0 0
,, J
r:.. J
: .
·J
-.y '
'i
· J
·J
....
..
J
I -
J
..,
_.;
/)
J 0 ·')
··- .··"·--- -·"""·l-··-.:·-
,--
1
,,_,..--~~:--- ~-"~7-·
....____,,,/
" __,/
(,_
IBM MAINTE~A~CE OIA&NOSTIC PROGRAM - FOR THE 1130 SYSTEM
CORE STO!tAGE FUNCTION TEST 0-9 CORE TEST
PART NO. 2191208
PAGE
9A
Dl75 0 C040 0176 00 1)4800185 0178 00 C4800185 017A 00 4Cl8017F Ol 7C 00 44000202 017E 0 70F6 017F 00 44')00238
0181 0 C035 0182 00 04800165 0184 00 C48001B5 0186 0 F!)30 0187 00 4CIR018t 0189 00 44000202 0188 0 71JF5 OIBC 00 44000238
018E 0 C026 Olaf 00 1)4800185
0191 00 C48001B5
0193 0 F021 0194 00 4Cl80199 0196 00 '.44000202
0198 0 70F5 0199 00 4400023~
019B 0 COIF 019t 0 0018 0190 0 COIA 019E 00 04800IB5 OlAO 00 C48001B5 01A2 0 F015 OlA3 00 4Cl801A8 OlA5 00 44000202 OlA7 0 70F5 OlA8 0 COOF OlA9 0 1801 OlAA 0 1)000
OlA8 00 4Cl801AF OlAD 0 70EF OlAE 0 70Et OlAF 00 44000238
OlBI 0 7008
0182 0 OIB3 0 0184 0 0185 0 0166 0 0187 0 01B8 0 0189 0 OIBA 0 0188 0 OlBC 0
0000 0003
oqoo
0000 0000 FFFF 8000 0000 0001 8000 0800
·* MAIN ROUTINE
** LOAD ZEROS IN CORES
·
RSROI LO
RS LAO
ACC=/0000-
0-900680 .·
0-900690 - -
0-900700 0-900710
0~900720
o-qoo130
STO I RS LAC
0-900740
LO I RS LAC
est L RSQOlt+-
0-900750 0-900760.
BSI L RSEOR
0-900770
MDX
RSROI
0-900780
RSQOI BSI L RS LOP
- 0-900790
·*· LOAD ONES IN CORES
RSR02 LO
RSLAE
Att=/FFFF
0-900800 0-900810 0-900820 0-900830
STO I RS LAC
0-900840
LO I RS LAC
0-900850
EOR
RSLAE
est L RSQ02,+-
0-900860 0-900870
BSI L RSEOR
MDX
RSR02
0-900880 o_-900890
RSQ02 BSI L RS LOP
··* ADDRESSING ROUTINE
RSR03 LO
RS LAC
ACC=ADORESS
0~900900
0-900910 0-900920 0-900930 0-900940
STO
RS LAC
0-900950
LO
!tSLAC
0-900960
EOR
RS LAC
0-900970
BSC L RSQ03,+-
0-9C0980
BSI L RSEOR
0-900990
MOX
RSR03
0-901000
RSQ03 BSI L RS LOP
·* BIT ISOLATION ROUTINE
0-901010 0-901020 0-901030
*RSVBB LO
RSLAI
0-901040 0-901050
STJ
RSLAF
0-901060
RSR04 LO
RSLAF
AtC=BJT PATTERN
0-901070
STO I RS LAC
0-901080
LO I RS LAC
0-901090
EOll
_RSLAF
est L RSQ04,-
0-901100 0-901110
BSI L RSEOR
0-901120
MDX
RSR04
0-901130
RSQ04 LO
RSLAF
0-901140
SRA
I
STO
RSLAF
0-901150 0-901160 ·.
8SC L RSBIL,+-
0-901170
MDX
RSR04
0-901180
MOX
RSVBB
0-901190
RSBIL BSI L RS LOP
0-901200
MDX
RSSPT
·* STORAGE AREAS-1
0-901210 0-901220 0-901230
*llSLAQ DC
13
NU~BER OF CORES TO TEST
0-901240 0--901250
RSLAB DC
3
NUMBER OF CORES BELO 0
0-901260
RSLAA DC
/0800
LOWEST ADDRESS TO TEST=-3 0-901270
llSLAt DC
0
AOORESS UNDER TEST
0-901280
RSLAD DC
10000
0-901290
RSLAE DC
/FFFF
0-901300
ltSLAF DC
/8000
BIT PATTERN UNDER TEST
0-901310
RSLAG DC
0
HIGHEST ADOR TO TEST 9
0-901320
RSLAH DC
l
0-901330
RSLAI DC
/8000
INITIALIZE BIT PATTt N
0-901340
llSLAJ DC
/0800
INITIALIZE MEMORY SIZE
0-901350
DATE Et NO.
01MAY66 415490B
PROG ID 03A2-l
PAGE
9A
L.
/'
l.
,.
,.-
I
I
"-.___,
"---·
(
c
/
(__ __ .
_.._"'·:.: ...... '. ./._!:."':::.
····-··-·---- ·-·------ ______:..________
--~~~.·.-
"----·
l. / I \,~-·
\"·,___
'---·
. -- -· .. -- ....
'---·
;,......___,..,
IBM MAINTENANCE DIAGNOSTIC PROGRA"I FOR THE 1130 SYSTEM
CORF S TOI{ AGE FUNCTION 1EST 0-9 CORE Tl' ST
PART NO. 2191208
PAGE
JO
OlRO 00 C4r100UH DlBF 00 D40G0003 OlCl 0 1,300 01C2 00 C4000003 OlC4 00 4Cl8011:6 OlC6 0 COEF OlC 7 00 04'100165 OlC9 0 ~cc 1 OlCA 0 0165 OlCB 0 COEC OlCC 00 114800165 DICE 00 C48001B5 0100 00 4Cl80l05 'llD2 00 4400020l 0104 0 70Fl 01!)5 00 44000238 0107 0 7.CCO 0108 0 0185 0109 0 CODE Ol!)A 00 04800165 OlDC 00 C48001B5 OlDE 0 FOD9 OlOF 00 4Cl801F4 OlEl 00 44000202 OlE3 0 71JF3
01E4 co 4400023'!
01E6 C'O 74FF0231 OlEI! 0 70'!C OlE9 0 COlO OlEA 00 04000008
OlEC 0 1000
OlEO 0 OB3R
OlEE 0 C03A
OlEF 0 1'03F
OlFO 00 4C:>0012F
OlF2 0 C'J36
OlF3 0 E03C
01F4 00 4C:>001F'l
01F6 QI) 64000050
01F8
0000
OlFR 0 0000
OlF9 0 rnoo
OlFA 0 OlFE
OlFB 0 3000
OlFC 00 b400012F
OlFE 0 0000
OlFF 0 'l8Fl'l
0200 00 4C4001EO
0202 0 0000 0203 0 D02f0204 0 0821
0205 0 C023 020u 0 E025 0207 00 4Cl80208 0209 00 4(800202
·
~ STORAGE PROTFCT TEST
·
RSSPT LO L RSLAE
ACC=/FFFF
0-901360 0-901370 0-901380 0-901390
STD L 3
0-9014CO
LOX X3 0
0-901410
LO L 3
0-901420
BSC L RSPER,+-
0-901430
RSR05 LO
RS LAD
ACC=/0000
0-901440
STO
RS LAC
0-901450
DC
/2CC1
STO~AGE PRT-IA
0-901460
DC
RS LAC
0-901470
LO
RSLAF
ACC=/FFFF
0-901480
STO I RS LAC
0-901490
LO I RS LAC
0-901500
SSC L RSQ05,+-
0-901510
BSI L RSEOR
0-901520
MOX
RSR05
0-901530
RSQ05 BSI L RS LOP
0-901540
RSR06 DC
/2CCO
CLEAR SP-IA
0-901550
DC
RSLAC
0-901560
LO
RSLAF
ACC=/FFFF
0-901570
STO
RS LAC
0-9Cl580
LO
RSLAC
0-901590
EOR
RSLAF
0-901600
BSC L RSQ06,+-
0-901610
BS I L RSEOR
0-901620
MDX
RSR.06
0-901630
RSQ06 BSI L RSLOP
0-901640
*
·· PROGRAM END ROUTINE
RSPER MDX L RSPPC,-1
COUNT PRG"I PASSES
0-901650 0-901660 0-901670 0-901680
MDX
RSROl
0-901690
LO
RSRS'.(
0-901700
STO L /8
0-90!710
· * WAJT TO TURN DISABLE INTERRUPT SWITCH
·* TO OFF POSITION-1800 ONLY
WAI fB SLA,
0
ENABLE INTERRUPTS
0-901720 0-901730 0-901740 0-901750 0-901760
RSPF.S XIO
RSBSB
REPEAT PROG IF SW 14 ON
0-901770
LO
RSBSB
0-901780
t.ND
RSB14
0-901790
BSC L RSSTA,Z
0-901800
LO
RSBSB
0-901810
AND
RSB15
0-901820
BSC L RSHOP,Z
0-901830
RSFIN LOX i.. /0050
LINK TO NEXT PROG
0-901840
SSS E 0
0-901850
RSSIC DC
0
0-901860
DC
/0300
0-901870
RS RSX DC
RSRSI
0-901880
RSHOP WAIT
0-901890
RSBTB LOX L RS STA
0-901900
RSRSI DC
0
0-901910
x 111
RSSIC
0-901920
BCSC L RSPES
0-901930
*
* ERROR ROUTINE
*
RSEOR DC
/0000
RETURN ADDRESS FOR E ROR
0-901940 0-901950 0-901960 0-901970
ST:::J
RS ARB
0-901980
XIO
RS RBS
SENSE SW 11 FOR SCOP NG LO 0-901990
LO
RSBSB
0-902000
AND
RSBll
0-902010
SSC L RSSBT,+- CONTINUE IF 11 OFF
0-902020
SSC I RSEOR
0-902030
DATE EC NC.
OlMAY66 4154')08
PROG ID 03A2-l
PAGE
10
····-------------·-·
---.--·-··---·---··-'···- -- --· -
- -------·--· ··--·· ··-~-
\
.
~-
__ \,, ........ ·
I, '-....
'--·
\
·-~
..
---····--··-·······
/~--
I
'-
--·-····
'· .
'- /
/.
I
i
'·
C: 0
I) <]
;
...;
I -
')
-
-
.)
··
.!
-.; -
··
....,
-.
..,
...,
, ,
- ·'I
'
-)
r. 1
I"'\ !)
18"1 MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM
CORE STORAGE FUNCTION TEST 0-9 CORF TEST
PART NO. 2191208
PAGE
lOA
\l20B 0 COlO 020C 0 COlC 0200 0 EOlf 020E 00 4C080212 0210 00 4C8007.02 0212 1)0 C4000lf\5 0214 0 1;01 F 0215 0 F."110 0216 0 1)005 0217 0 C:OEA 0218 00 940001BA 021A 0 1890 0218 0 COOE 021C 0 3000 0210 00 4C800202 021F 0 CIJ17
0220 0 3000 0221 00 S400012F
0224 0226 0 0227 0 0228 0 0229 0 022A 0 0228 0
ozzc 0
0220 0 022E 0 022F 0 0230 0 02}1 0 0232 0 0233 0 0234 0 0235 0 023& 0 0237 0
'JOO<.>
0229 3A40 0000 0000 QOOO '.)1)20
0010 '.>008 0004 ')002 0001 '>000 0032 3000 f)FFF
002'! 0020 5555
0238 0 0000 0239 00 C40001B5 0230 00 F40001B9 0230 00 4C 180249 023F 00 C4000185 0241 00 1!40001RA 0243 00 04000165 0245 00 74FDOZ3B :>247 00 4C800238 0249 00 C:.+000184 0248 00 '.>4000165 0240 0 0'!08 024E 0 CODA 024F 0 EOOE 0250 00 4C9R023B 0252 00 74FD0238 0254 00 4C800238
0256 0 0000 0257 0 bBlB 0258 00 OC000226 025A 00 C4000229
RSSBT LO
RS8SB
SF.NSE SW 12 FOR HALT ON E 0-902040
LO
RSBSB
0-902050
ANO
RSB12
0-9020!>0
BSC L RSHOE,+
0-902070
BSC J RSEOR
0-902080
RSHOE LO L RSLAC
0-902090
ANO
RSCON
0-902100
OR
RS WAT
0-902110
STD
RSERW
0-902120
LO
RSEOR
s
L RS LAH
0-902130 0-902140
SRT
16
LOAD J IN Q
0-902150
LO
RSAl<B
0-902160
RSERW WAIT
0-902170
BSC
RSEOR
0-902180
RSILC LO
RSALT
0-902190
RSWSC WAIT
0-902200
LOX L RS STA
0-902210
* * STORAGE AREAS-2 *
BSS E 2
0-902220 0-902230 0-902240 0-902250
'::SRBS DC
RSBSB
0-902260
DC
/3A40
0-902270
l\S'3AB DC
0
0-902280
RSBSB DC
0
BIT SWITC!i BUFFER
0-902290
RS ARB DC
0
SAVE A REG '3UFFER
0-902300
RSBlO DC
/0020
0-902310
RSBll DC
/0010
0-9D2320
RSB12 DC
/0008
0-902330
RSB13 DC
/0004
0-902340
RSB14 DC
/0002
0-9023!:0
RSR15 DC
/0001
0-902360
RSPPC DC
0
0-902370
RSNPP DC
50
0-902380
RS WAT DC
13000
0-902300
RSCON DC
/OFFF
0-902400
RSKXA DC
/0028
0-902410
RSKXB DC
/0020
0-902420
RS ALT DC
/5555
0-902430
*
** CHECK SWITCH 13 TO LOOP ON 1WUTI NE
RSLO:> DC
0
0-902440 0-902450 0-902460 0-902470
LO L RS LAC
0-902480
EOR L RS LAG
0-902490
SSC L RSCSE,t-
0-902500
LO L RS LAC
0-902510
A L RS LAH
0-902520
STO L RSLAC
0-902530
Mnx L RSlOP,-3
0-902540
BSC I RS LOP
0-902550
RSC SE LO L RS LAA
LO An LOWESl ADDRESS
0-902560
STO L RSLAC
0-902570
XIO
RS RBS
REAO SW 13 TO LOOP R UTll'.. E 0-902580
LO
RSBSB
0-902590
ANO
RS813
0-902600
BSC I RSLOP,+-
0-902610
MOX L RSLOP,-3
0-902620
BSC I RS LOP
0-902630
· *********************************************
*
LOG ROUTINE
*********************************************
0-902640 0-902650 0-902660
*
LOG DC
0
0-902670
SE
0-902680
LOGOl STX 3 U1G06+1
SAVE IX 3
0-902690
XIO l RSRBS
0-902700
LO L RSBSB
0-902710
DATE EC NO.
OlMAY66 4154900
PROG ID 03A2-l
PAGE
lOA
y
,···.
I
. _~..\...\\··
.,'\._'_--
(__
I"- ..
I
·..... __ _
"
IBM ~AINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM
CORE STORAGE FUNCTION TEST 0-9 CO!lE TEST ·
PART NU. 2191208
PAGE
11
025C 00 4Cl0027fl
025E 00 C4800256 0260 0 1)051
0261 0 !')84C D262 00 4C040268
0264 0 1801 0265 00 4C0.,026A 0267 0 70C4
0268 0 300A 0269 0 70F7
026A 0 3ooe 026B 0 70F5
0~6C 0 0845
0260 0 026E 0 026F 0 0210 ·o
0271 0
01'!42
1002 4810 70FC
083C
0272 00 67000000 0274 00 74Ql02S6
07.76 00 4C8002Sb
0278 0 1010 0279 0 D032
027A 0 0839
027S 0 1005 027C 0 HI Of
0270 00 4Cl8028l
027F 0 300C 0280 0 70F9
0281 0 co2a 0282 0 002A
0283 0 0832
0284 0 028S 0 0286 0
0287 0
082F
lllOfl
4804 70FC
0288 0 6301 0289 00 C41100256 028B 0 0001
02t!C 00 C7000000 028E 00 040002E8
0290 0 FOlA 029! 00 4Cl80272
0293 00 44000258
029S 00 C40002E8 0297 0 0015
DATE EC NO.
OlMAY66 415490B
BSC L TWRTR,-
·
LO
LOG
STO
·
LOG02 XIO
PRWRT PR SNS
BSC L LOG03 1 E
SU
l
BSC L LOG04,E
MDX
LOGOS
BRANCH IF 1053 OUTPU
GET MESSA~E ADDRESS SET IN lOCC
CHECK PRINTER READY BRANCH IF NOT RtAOY
BRANCH IF BUSY READY AND NOT BUSY
*l.OG03 WAIT
MOX
·
LCIG04 WAIT MOX
10 LUG02
11
LOG02
NOT READY CHECK .GAIN
BUSY CHECK At;AIN
L*OGOS XIO
PRWRT
CUTPUT MESSAGE
*
XJO
PRSN
SLA
2
SSC MUX
·-4
XIO
PR SNS
CHECK FOR OP CO~PLT RESET OSW
* *
PRINTING COMPLETE
·LOG06 LOX "L3 0
RESTORE IX 3
MDX L LDG,l
BUMP RETURN
*
SSC I LOG
RETURN TO USER
sx
*TWRTR SLA
16
STD
WROSW
XID
TWSNS
SLA
5
SRA
15
SSC L TWRDl.+-
CHECK IF TYPEWRITER READY
*
WAIT
MOX
·
TWROl LO
STO
12 TWRTR+2
TWRTO IOARA
NOT READY
CARRAIGE RETURN AND LINE SPACE TO 10 ARA
*
XIO
TWWRT
·
XIO
TWSNS
SRA
11
SSC MOX
E·-4
CARG RETURNILINF SP HANG Till NOT BUSY
*
LOX
LO
STD
·
TWR02 LO
STD
EOR
BSC
3 1 I LOG
TWR02+1
L3 0 L CODWO
TWRTl L lDGOo,+-
BYPASS 1443 WORD COU T GET MESSAGE ADDRESS
GET WORD TO PRINT ~FT IN CONVERSION RT CHECK IF TERMINATOR BRANCH IF TERMINATOR
*·······B·S·I···l ···C·O·D·C·V······$G·O··C·O*NV·E·l!·T··4·3··T·O··T·W·· SRC
..*********'·~·································
LO L CODWO
STD
IOARA
*
0-902720
0-902730 0-902740 0-902750 0-902760
0-902770 . 0-902700
0-902790 0-902800 0-902810
0-902820· 0-9021130 0-902840
0-902850 0-902860 0-90?.87('
0-902880 o-qo2990
0-902900
0-902910 0-902920 0-902930 0-902940 0-902950 0-902960
0-902970 0-902980 0-902990 0-903000.
0-903010 0-903020 0-903030
0-903040 0-9030SO 0-90'3060 0-903070
0-90'3080 0-9C3090 0-903100 0-903110 0-903120 0-903130 0-903140
0-903150 0-903160 0-903170
0-903180 0-903190 0-903200
0-903210 0-903220 0-903230 0-903240 0.,-903250
0-903260 0-903270 0-903280 0-903290
0-903300 0-903310 0-903'320
0-903330 0-903340 0-9033SO
0-903360 0-903)70
0-903380 0-903390
PROG ID PAGE
03A2-1 11
0 0
c 0
f'
I )
)
J J J
-.
J -.
.J
1 (J
-~
0 J
/
i
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 ~YSTEM
CORE STORAGE FUNCTION TEST 0-9 C.ORE TEST
PART NO. 2191208
PAGE
llA
0298 0 0810
02911 0
029A 0 029B 0 029C 0
081A 180B 4804 70FC
t\290 0 COOE 0?.9E 0 4804
029F 0 7006
02AO 0 coot
02Al 0 1008 02A7 0 DOOA 02A3 00 740102AC 02A5 0 70F2
02A6 0 7301 02A7 00 74010?.~C 02A9 0 70F.2
02AA 0 11103 02A8 0 !=FFF
o;:Ac o 0000
02AD 0 0000
024E 0000
02AE 0 02AF 0
02BO 0 02B l 0 02B2 0 0283 0 0264 0 02B5 0 O~B6 0 02B7 0
0000 3701
000!> 3700 0000 3500 0000 OFOl 02AO 0900
02B8 0 0000 0289 0 692"7
028A 0 6A28 02BS 0 6B29
02BC O 1010 0280 0 0028 02BE 0 6300
02BF 0 02CO 0
02Cl 0 02C2 0
02C3 0
C028 1890
C027 4820
1088
*
OUTPUT A CHAR~CTER
·*XIOWR XJO
XIOSN XJO
TWWRT TWSNS
WRITE CHAii.AC TER HANG ON BUSY
SRA
11
SSC
E
MOX
XIOSN
BUSY
· · ·
CHECK IF lST 1/2 WORD
LO
WRDSW
GET 112 WORD SWITCH
BSC
E
...
MOX
· ·
LO
TWR03
GO SET UP NEXT WORD
SET UP FOR 2ND 112 WORD
IO ARA
SLA
8
POSITION 2ND 1/2 WD
STO
IO ARA
fl!OX l WROSWtl BUMP WORD SWITCH
MO.<
· · ·
TWR03 MOX
XIOWR
GO WRITE 2NO 1/2 WO
SET UP FOR NEXT WORD
3 1
NEXT WOltO INDEX
MOX L WRDSW. l
BU~P WORD SWITCH
· · ·
MOX
TWR10 DC
TWl\02 /810'3
GD GET NEXT WORD LOG CONSTANTS LINE SP/CAR~AIGE RTN
TWRTl DC
/FFFF
TERMINATOR
WROSW DC
0
l /2 lr'IJRD SWITCH
lOARA DC
0
OUTPUT AREA
*
·
BSS E 0
PRSNS DC
10000
PRINTER SENSE IOCC
DC
13701
PRSN DC
oc
0 13100
NON RESET SENSE
PRWRT DC
oc
!9000 /3SOO
PRINTER WRITE IOCC
TWSNS DC
10000
TYPEWTR SENSE IOCC
DC
/OFOl
DSW RESET
PMCl
TWWRT DC
IOARA
TYPEWTR WRITE IOCC
·
DC
/0900
WR TYPEWRITER
PMOZ
**···················C·1O4·O4·E3··CC·O·OD~NE·V·E·TRO·S·IO1·N·8·1R·6·O/1·U0·T5·IN·3E····**
·*********************************************
COOCV DC
0
SE
STX l CODC4+l SAVE 1-.0EX REGS
STX 2 CODC4+3
·
STX 3 COOC4+5
SLA
16
CLEAR LEFT HALF WORD
STD
LHIND
*INDICATOR
·
LOX
r:ooc1 LC
3 0 COD WO
GET WORD TO CONVERT
SRT
16
~ET IN Q
LO BSC
LzHIND
SKIP IF LEFT HALF
SLT
8
PO~ITION RIGHT HALF
0-903400
0-903410 0-903420 0-903430 0-903440
0-903450 0-903460 0-903470
0-903480 0-903490
0-903500 0-9035111 0-903520
0-903~'30
0-903540 0-903550
0-903560 0-903570 0-903580
0-903590 0-903600 0-903610 0-903620 0-903630 0-903640 0-903650
0-90'3660 o-903670
0-903680 0-903690 0-903700
0-903710 0-903720 0-903730
o-~03140
0-903750 0-903760 0-903770
0-903780 0-903790 0-903800 0-903810 0-903820 0-903830
0-903840 0-903850 o-·m3860 0-903870 0-903880 0-903890 0-903900 0-903910
0-903920 0-903930 0-903940 0-903950 0-903960 0-90'3970
0-903980 0-903990
0-904000
0-904010 0-90lt020 0-904030 0-904040
0-90..050 0-904060
0-904070
DATE EC ND.
OlMAY66 41S490B
PRDG ID 03&2-l
PAGE
lU
,,,.
. '----·/'
/
~~/' (_
C_
/---·· (
l_/ ~-)
(
'--. .. ·
(
"'--
\.__
\__ .
I
"--/
I
\...__.
\
..
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM
CORE STORAGE FUNCTION TEST 0-9 CORE TEST
02C4 0 1010 02C5 0 1084 02C6 0 0023 02C7 00 ~'>B002EA
02C9 D lOlD 02CA D 1084 02CB D ODIE 02CC C..D 668002FA
02CE 00 C50002ED 0200 0 DOOi
02Dl 00 C6000000 0203 00 o-,0002EB
0?05 0 C013 0206 00 4C2002DC 021)8 00 740102E9 02DA 0 7301 0208 0 70E3
02DC D 0200 0 02DE 0 020F 0
CODE 1008 E800 f)008
02EO 00 65000000 02E2 00 06000000 02E4 00 67000000
02F.6 oc 4C8002P.8
02E8 0 02E9 0 02EA 0 02ES 0
02EC 0
0000 0000 0000 0000 0000
02EO 0 02EE 0 02EF 0 02FO 0
02Fl 02FC 030"/ 0311
02Fl 0 02F2 0 02F3 0 02F4 0 02F5 0 02F6 0 02F7 0 02F8 0 02F9 0 02FA 0 G2FB 0 02FC 0 02FD 0 02FE 0 02FF 0
0300 0
0021 OOFC
0008
oooc
OOFO 01)F4
0000 0004 OOE4 OOFO OOC4 0000
0000 009A 009E
0062
· SLA
SL T STD
·
LOX
SLA
SL T STD
·
LOX
LO
·
STO
CODC2 LO
STO
·
LO
BSC
MDX
"DX
·
MDX
CODC3 LO
SLA
OR
·
STO
COOC4 LOX
LOX Ll')X
· SSC
· * · ·
coowo DC
LHINO DC coooo oc
CODOl DC
COD02
· · · · ·
DC
ZONE DC
DC
DC
DC
·
ZONEN DC
DC
DC
oc
DC DC
DC DC
DC DC
DC :ON El DC
DC
DC DC
DC
16 4 coooo 11 CODOO
16 4 CODOO 12 CODOO
l l ZONE CODC2+1
L2 0 l3 CODOl
LHIND L CODC3,Z L LHIND,l
3 l CODCI
CODOl 8 C0002 coowo
ll 0 L2 0 L3 0
I coocv
ZONE TO ACCUM IX 1 = ZONE
DIG IT TO ACCUM IX 2 = DIGIT GET ZONE TABLE ADDRS SET IN CONVERSION WO GET CONVERTED CODE
BRNCH IF RIGHT HALF
GO CONVERT RIGHT HLF PACK CONVERTED CODES
RESTORE INDEX REGS
RETURN TO USER
sx
CONSTANTS
0
WORD LOCATION
()
LEFT HALF INDICATOR
D
WORK AREA
0
CONVERTED LH CHAR ACT
0
CONVERTED RH CHAR ACT
1443 TO 1816/1053 CODE CONVERSION TABLES
ZONEN ZONEl zor-.::2 ZONE3
NO ZONE 0 ZONE 11 ZONE 12 ZONE
/0021 IOOFC /OOD8 /OOOC /OOFO /OOF4 /0000 /0004 /OOE4 /OOEO /OOC4 D 0 /009A /009E
10062
SPACE l 2 3 4 5 6 1 8 9 0
s
T
u
DATE EC NO.
01MAV66 4154908
PART NO. 2191208
PAGE
12
0-904080 0-904090 0-904100 0-904110 0-904120 0-'W4130 D-90414D 0-904l!;D 0-904l6D 0-901tl7D 0-904180 D-90419D .
0-904200 0-904210 0-904220 0-904230 0-9047.40 0-904250 0-90426D 0-904270 0-90428D 0-904290 0-904300 0-904310 0-904320 0-904330 0-904340 0-904350 0-904360 0-904370.
0-904380 0-904390 0-904400 0-90441D 0-904420 0-904430 0-904440 0-904450 0-904460 0-904470 0-904480 0-904490 0-90450D 0-904510 0-904520 0-904530 0-90454D 0-90455D 0-904560 0-904570 0-904580 0-904590 0-901,600 0-904610 0-9C4620 0-904630 0-904640 0-904650 0-9D4660 0-904670 0-904680 0-904690 0-904700 0-90471D 0-904720 0-904730 0-904740 0-904750
PROG ID 03A2-l
PAGE
12
\
-..'---'
\.~/
0 0
0 iJ
C· ·o c .J
.)
·~ J
. J
-,
-,
I
-,
-;
-l
I
-l
:
)
.,
-,
'
·1
;\
J
n I
,,
(i
0 ·1
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM
CORE STORAGE FUNCTION TEST 0-9 CORE TF.ST
0301 0 0302 0 0303 0 0304 0 0305 0 0306 0 D3D7 0
0308 0 D309 0 030A 0 030B 0 D30C 0 0300 0
030E D 030F 0 0310 0 0311 0 0312 0 0313 0 0314 0 0315 0 0316 0 0317 0 D318 0 0319 0
031A 0 0318 0 031C 0
0086 0092 0096 OOA6 OOA2 0021 0000 007E 005A 005E 0072 0076 0052 0056 0066 0062 0000 003E OOlA
OOlE 0032 0036 1)012 0016 0026 0022 0086 0000
0310 0 031E 0 031F 0
0320 0 0321 0 0322 0 0323 0 0324 0 0325 0 0326 0 0327 0
0328 0
OOOA 2435 2426 2918 OOOA 0013 3829 1400 0900 3326 2935 FFFF
0329 0
032A 0 D328 0 032C 0 032D D 032E 0 032F 0 0330 0 0331 0 0332 0
0333 0 0334 0 0335 0
01100 2729 2637 0035 2534 OOOA
0013 3829 1400 0900
3326 2935 FFFF
0336 0 0337 0 0338 D 0339 0 033A 0 033C
C003 3529 2926 2900 FFFF Ol2C
DC
DC
oc
DC
DC
DC
ZONE2 DC
DC
DC
oc
DC
DC
DC
DC
DC DC
ZONE3 DC
DC
DC
DC
DC
DC
DC
DC DC
DC
DC
DC
*MES12 DC
oc
oc
oc
DC
oc
DC
DC DC
DC
oc
·
DC
MES13 DC
DC
oc
DC
DC
DC
DC
oc
oc
DC
DC
DC
DC
·
ME'Sl4 DC
DC
DC
DC
DC
END
/0086 /0092 /0096 /OOA6 /OOA2 /0021 D /007E /005A /005E /OD72 /0076 /0052 /0056 /OD6b /0062 0 /003E /OOlA /ODIE /OD32 /0036 /0012 /0016 /DD26 /0022 /D086 10000
10 /2435 /2426 /2918 /OOOA /0013 /3829 /1400 /0900 /3326 /2935 /FFFF
11 12729 /2637 /0035 /2534 /OOOA /0013 /3829 /1400 /090D /3326 /2935 /FFFF
3 /3529 /2926 12900 /FFFF RSSTS
v w x
y
z
SPACE
J
K
L M N
0 p
Q
R
A
B
c
0
E F G H I 0 ERROR PERIOD
WO CT ME MO RY
0 T HR
u
9 co RE TERM
WO CT PR OG
E ND
0 T HR
u
9 co RE TERM
WO CT ER RO R TERM
DATE EC NO.
OlMAV66 4154908
,_
/ (
' '
PART NO. 2191208
PAGE
12A
0-904760 0-904770 0-904780 0-90<t790 0-904800 0-'W481D D-90482D 0-901t83D (l-904f40 0-9048'50 D-904860 0-904870 0-904880 0-904890
0-901t~OO
0-901t91D 0-904920 0-904930 0-90494D 0-904950 0-904960 0-904970 0-904980 0-904990 0-90500D 0-905Dl0 0-905020 0-90503D 0-905040 0-905050 . 0-905060 0-905070 0-905080 0-9C5090 0-905100 0-905110 0-905120 0-90513C 0-905140 0-9C5150 0-905160 0-905170 0-905180 0-<;05190 0-90520D 0-90521\l 0-905220 0-905230 0-905240 0-905250 0-905260 0-905270 0-905280 0-905291) 0-905300 0-905310 0-905320 0-905330 0-90534D 0-905350 0-9D5360 0-905370
PROG JD 03A2-l
PAGE
12A
I
I
'--.
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM
CORE STOR~GE FUNCTION TEST 0-9 CORE· TEST
CROSS PEFERENCE LISTING
SYMBOL coocv COOCl COOC2 CODC3 CODC4 COD\olD COD DO COOOl COD02 JO ARA LHINO LOG LOGOl LOG02 LnG03 LOG04 LOG05 LOG06 MES12 MES13 MES14 PRSN PR SNS PRWRT RSAAN ttSALT RS ARB RS BAB RSBIL RSBSB RSBTB RSBlO RSBll RSB12 RSB13 RSB14 RSB15 RSC ON RSC SE RSDMS RSD18
R~EOP
RSERW RSFJN RS HOE RS HOP RSI LC RSKBA RS KBC RSKBO RSKXA RSKXB RSLAA RSLAB RS LAC
VALUE 02Bfl 02BF '1201 02DC 02EO 02EB
O~EA
02EB 02EC 02AD 02E9 0256 0257 0261 0268 026A 026C 0272 0310 0329 0336 02Bt' 02AE 0282 0172 0237 022A 0228 OlAF 0229 OlFC 0228 022C 0220 022E 022F 0230 0234 0249 014E 0160 0202 021C 01F6 0212 OlFA 021F 0154 0153 0165 0235 0236 0164 OlA3 GlB5
RS LAD RSLAE RSL AF
RSLAG RSLAH
RSLAI RSLA .. RSLAQ
'1196 0187 0198 OlB<l OlBA OlBB OlAC 01B2
REFERENCES 0293,02E6 02DB 0200 0206 02B9,02BA,02BB 028E,0295,02BF,02DF 02C6,02C7,02CB,02CC 0203,02DC 02DE 0282,0297,02A0,02A2,0286 02so,02c1,0205,02os 025E,0274,0276 9 0289
0269,0268 0262 0265 0267 0257,0291
0260 0261,0271 0260,026C 012C 021F 0203,0218
OlAB c1Eo,01ee,01F2,0205,020B,020C,0226,024E,025A
0206 0200 024F OlEF Olf3 0214 0230 013E 0143 017C,Ol8<l,Ol96,0lA5,0lD2,0lEl,0209,0210,0217,021D 0216
020E 01F4
0153 016A 0158
Ol35,0l51,0154,0l5C,Ol65,0l68,0249 015A Ol5E,Ol76,0l78,0l82,0l84,0l8E,018F,Ol91,0193,0l9E, OlAO,OlC7,0lCA,OlCC,OlCE,OlD8,0lOA,OlOC,0212,0239, 023F,02"3,C24B 011·;,olC6 0137,0181,0186,0180 019C,Ol90,0lA2,0lA8,0lAA,OlCB,OlD9,0lOE 0162,0238 0218,0241 0198 0133 0160
DATE EC NO.
OlMAY66 4154908
PART NO. 2191208
PAGE
13
PROG ID 03A2-l
PAGE
13
,
0 0 0 0
I .
J
(
,_"',\
J J
t \
}
J
, I
n I)
n Q
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM
CORE STORAGE FUNCTION TEST 0-9 CORE TEST
PART NOo 2191208
PAGE
13A
RSLDP 023A
Ol7F,Ol8C,Ol99,0lAF,Ol05,ClE4,02~5,0247,0250,0252,
0254
RSNPP 0232
Ol2F
RSPER OlF.6
RSPES 01 r:o
OlC4 0200
RSPPC 0231
Ol31,0lE6
RSQOl Ol7F
017A
RSQ02 Ol8C
0187
RSQ03 0199
0194
RSQ04 OlAB
OlA3
RSQ05 0105
0100
RSQ06 OlE4
OlOF
RSRBS 0226
0141,0204,0240,0258
RSRSl Olf E
OlFA
RS RSX OlFA
01E9
RSROl 0175
Ol7E,OlE8
RSR02 01~1
0188
RSR03 Ol8E
1)198
RSR04 0190
01A7,0lAD
RSR05 OlC6
0104
RSR06 0107
OlE3
RSR18 0168
0140
RSSBT 0208
0207
RSS JC OlFB
OlFF
RSSPT 0180
0181
RSSTA 012F
0172,0lFO,OlFC,0221
RSSTB Ol2C
0338
RST18 Ol6C
01 '.6
RSVBB OBB
OlAE
RS WAT 0233
0215
RSWSC 0220
RSZRO Ol6E
Ol4E
·i
TWRTR 027A
025C,0280
TWRTO 02AA
0281
TWRTl 02AB
0290
TWlllOl 0281
0270
TWR02 028C
0288,02A9
TWR03 02A6
029F
TWSNS 0284
Ol44 9 027A,0284,0299
TWWRT 0286
0147,0283,0298
WAJTA 0174
Ol4A,Ol64
WAITS OlEC
Ol4C
WA ITO Ol6F
0149
WRDSW 02AC
0279,0290,02A3,02A7
XIOSN 0299
029C
XIOWR 0298
02A5
ZONE
02ED
02CE
ZONEN 02Fl
02ED
ZONEl O?FC
02EE
ZONE2 0307
02EF
. ~
ZONE3 0311
02FO
DATE EC NO.
Ol"1AY66 4154908
PROG ID 03A2-l
PAGE
UA
1:---..-;c--.--~·-·--:--···
---: ·--(_
l"---
1~
I
(
\....
\._ _.
"---
l8N MAINfENANCE DIAGNOSTIC PROGRAN FOR THE llJO SYSTEM
CORE sro~·GE FU...,CTION TEST LOW COl{E T,EST
PART NO. 21912011
PAGE
14
028C
OAOO 0 CltZI
0801 t'O ocoooooo
01103 0 C8lE
0804 00 'lCOOIJ004
0806 0 cou
080T 0 U90
0808 0 COll 0809 00 04000003 0808 00 I, TOOF FFF 0801) 00 C4000003 080F 00 4C200813 0811 0 COOT 0812 0 100. ORB 0 C004 ·0814 0 OOOT 0815 00 1>7000000 OAlT 0 7015
0818 0 0819 0
08lA 0 0810 0 ORlC 0 0810 0 JRlE 0
0001 FFFE
0000 OTFO 0000 0003 '.1000
OBlF 0 7003
0820
0002
0822 00 4C000803
0824 0 082A
0825 0 1A40
0826 0 0009
082T 0 0901
0828 0 0000
0629 () 0240
082A 0 0()00
0828 0 OF03
082C 0 0902
082('1 0 COFl 082f 00 04000000
0830 0 COER 0831 00 4C04083E 0833 0 COF5 OR34 0 !lOFO
0815 o COFl
0836 00 04000008 0838 0 COF2
· · · ·
··· MEMORY TEST-LOW COR~ ABS.
LCT00020 LCT00030 LCT00040 LCT00050 LCT00060 LCTOOOTO LCTOOOBO lCT00090
ORG
20~8
LCTOOlOO
RSOKR LOO
RSAAM
LCTOOllO
STO L 0
LCT00120
RSOKS LOO
RSAAM
LCT00130
STD L ~
LCTOOlltO
LO
RSAAE
CLEAR Q REGISTER
LCT00150
SRT
16
·
·· MACHINE DETERMINAf ION ROUTINE
LO
RSAAE
LCTOOl60 LCT00170 LCT00180 LCT00190 LCT00200
STO L 3
LCT00210
LO:C L3 IFFFF
LCT00220
LO L 3
LCT00230
SSC L RSAAB,Z
LCT00240
LO
RSAAO
MOX x l
LCT00250 LCT00260
RSAAB lO
RSAAC
LCT00270
s:ro
RSAAK
LCT00280
LOX L3 10000
CLEAR >i:R 3
LCT00290
MOX
··* STORAGE
RSAAC OC
RSA3A AREAS FCR
l
INITIALIZATIONS 1130 CONSTA".IT
LCT00300 LCT00310 LCT00320 LCT00330 LCT0031t0
RSAAO DC
-2
1800 CON5TANT
LCT00350
RSAAE DC
0
CONSTANT ZERO
LCT00360
R.SAAH DC
2045
HIGHEST AOR TO TEST
LCT00310
RSAAK DC
0
MACHINE TYPE
LCT00380
RSFAA DC
3
NUMBER OF P~OGRAM PA SES LCT00390
RSFAB DC
0
··* STORAGE AREAS PART l
·
RSAAL MOX X 3
PROGRAM PASS BUFFER
LCT00400 LCTOIJ41Ci LCT:.l0420 LCT00430 - LCT00440
LCT00450
BSS E 2
LCT00460
RSAAM BSC L RSDKS
BOOTSTRAP BRANCH INS
LCT004TO
RSQAF DC
RSQAL
REAO BIT SWITCH IOCC
LCT00480
RSQAO DC
/3A40
SECONO HALF IOCC-113
LCT004-90
RSQAC DC
9
LOWEST AOOqESS TO TEST
LCT00500
RSQAO DC
RSCCA
INTERRUPT LF.VEL ZERO VECT LCT00510
RSQAE DC
0
WORt< AqEA
LCT00520
RSQAP DC
/0240
SECOND H~LF IOCC-180
LCT00530
RSQAL DC
0
BIT SWITC~ BUFFER AREA
lCT00540
RSQAU DC
IOFOJ
2NO HALF IOCC-1600 C W
LCT00550
RSQAV DC
10902
2NO HALF rn:C-1800 TYPE
·
· INITIALIZE MASKS ANO INTERRU?TS TO LEVEL ZERO
LCT00560 LCT00570 LCT00580
· 1800 ONLY
·
RSABA LO
~SAAL
LCT00590 LCT00600
sTORE emn sTRAP BRAN H AT LCT00610
STO l 0
LOCATION ZERO
LCT00620
LO
RSAAK
LCT00630
BSC L RSABl 1 E
IF 1130-GO TO FIRST ROUTI LCT00640
LO
RSQAP
CHANGE SECONO HALF I CC
LCT00650
STO
RSQAO
FOR IROO READ BIT SW
LCT00660
LO
RSQAO
INTERRUPT LEVEL ERRO veer LCT006TO
STO L 8
LO
RSQAU
osw 1800
LCT00680 LCT00690
DATE EC NO.
Ol"'IAY66 4154<}08
PROG ID 03A2-l
PAGE
H
r,_, J
'~:
J
(
.~
·I
. .!
J
.. J
-,
.-
IBM MAINTE~ANCE DIAGNOSTIC PROGRAM FOR THE 1130,SYSTE"
CORl STORAGE FUNCTION TEST LOW CORE TEST
PART NO. 2191201
PAGE
l4A
0839 00 04000AA8 OF!38 0 COFO 083C 00 :l4000AAO
083E O CODE 083F 0 OOOE 0840 0 6204 0841 00 ~5800826 0843 0 69E4 0844 0 COE3 0845 00 04800828 084T 0 F003 084A 00 4Cl80A4C 084A 0 7101 M4B 0 TOFT 084C 00 65800826 084E 0 6909 084F 00 C4800828 0851 0 F006 0852 00 4Cl80861 0854 00 04000808 0856 00 OC000824 0858 00 C4000P.2A 085A 00 F.4000948 0A5C 00 4CZ0084E 085E 00 44000A32 0860 0 FFFE 0861 0 08C2 0862 00 C4000R2A 0864 00 E4000948 0866 00 4C20084E 0868 0 COBF 0869 0 FOBl 086A 00 4Cl801'J6E 086C 0 7101 0860 0 70EO 086E 0 77.FF 086F 0 TOOl 0870 00 OC000824 0872 00 C400082A 0874 00 F.4000~46 0876 00 4C200840
08T8 0 6304 08T9 00 C4000826 0878 0 005A 087C 00 65800806 08TE 0 C058 087F 00 04A00806 0881 00 C4800R06 0883 00 itCl80892 0885 00 44000A32 0887 0 FFFO 0888 00 fl41JOIJRO_, 088A 00 OCOOOR24 088C 00 C40008ZA 088E 00 E4000948 0890 00 4C200R7C 0892 00 OC000824 0894 00 C400082A 0896 01) E400094R 0898 :>O 4C2008 7C 089A 0 COJO
STO L TWSNS+l
PROl
LO
RSQAV
XIO WRITE 1800
·
STO L TWWRT+l
·· FIRST ROUTINE-READ + WRITE IN MEH~RY
RSABI LO
RS FAA
INITIALIZE ~RDGRAH
PR02
STO
RSFAB
PASS COUNTER
RSABH LOX X2 4
ADDRESSING ?ASSES
RSABB LOX 11 RSQAC
RSA8C STX l RSQAE
LO
RSQAE
STO
RSQAE
EOR
R~AAH
BSC L RSABD,+-
MOX Xl l
INCR TD NEXT ADDRESS
MOX
RS ABC
RSABO LOX 11 RSQAC
RSABE STX l RSQAE
LO I RSQAE
EOR
RSQAE
BSC l RSABF,+- ERROR 1 DETECTED
STO L RSQAN
STORE ACCUH FOR ERROR ROU
XIO L RSQAF
LO L RSQAL
ANO L RSRAI
BSC L R!:Aee,z
BSI L RSDDO
DC
IFFFE
ERROR l CONSTANT
RSABF XIL
RSQAF
READ RIT SWITCHES
LO l RSQAL
ANO L RSRAI
ISOLATE BIT SW 11
BSC L RSABE,Z
IF BIT SW 11 ON-REPEAT AD
LO
RSQAE
E:OR
RSAAH
SSC l RSABG,+-
MOX Xl l
INCR TO NEXT ADDRESS
MOX
RSA BE
RSABG MDX X2 -1
COUNT PASSES
MOX
RS ABB
XIO L RSQAF
REPEAT ROUTINE If SW13 ON
LO l RSQAL
ANO L RS RAG
·* BSC L RSABH,Z SECOND ROUTINE
REPEAT ADDRESSING RO TINE
·· BIT I SOLATl ON TEST-BIT BY !HT-AORESS ev ADDRESS
RSABR LOX X3 4
BIT ISOLATION PASSES
RSABP LO L RSQAC
RSABN STO
RSQAH
LOX 11 RSQAH
LO
RSQAI
STO I RSQAH
LO I RSQAH
SSC L RSABJo+- ERRCR 2 DETECTED
BSI L· RSOOD
DC
IFFFO .
ERROR 2 COlfi TANT
STO L RSQAN
STORE ACC FOR ERROR OUTI
XIO L RSQAF
LO L RSQAL
ANO L RSRAl
SSC L RSABN+ltZ
~SABJ XIO l RSQAF
IF BIT SW 11 ON REPE T AO
LO L RSQAL
ANO L itSRAI
BSC L RS.lBN+1,·z
LO
RSQAJ
LCT00700 LCT007l0 LCT0071.0 LCT00730 lCT00740 LCT00750 LCT00760 LCT00710 LCT00780 LCT00790 LCT00800 LCT00810 lCT00820 LCT00830 LCT00840 LCT00850 LCT008ft0 LCT008'10 LCT00880 LCT00890 LCT00900 LCT00910 LCT00920 LCT00930 LCT00940 LCT00950 LCT00960 LCT00970 LCT00980 LCT00990 LCTOlOOO LCTOlOlO LCT01020 LCTOlOlO ltTOlOltO LCT01050 LCT01060 LCT01070 LCT01080 LCT01090 LCTOUOO LCTOU 10 LCTOllZO LCTOU30 LCT01140 LCT01150 LCTOll60 LCTOllTO LCT01180 LCT01190 LCT01200 LCT01210. LCT01220 LCT01230 LCT01240 LCT01250 LCTOl260 LCT0126l LCT01270 LCT01280 LCT01290 LCT0\300 LCT01310 LCT013'40 LCTOl340 LCT01350 LCT01360 LCT01370
DATE EC NO.
Ol'4AY66 415490B
PROG ID OlA2-1
PAGE
14A
;.
'. i
5
·) ) )
) ) )
) )
)
I
\'-----
"---
IAM MAlNTENANCF DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM
CORE STORA~E FUNCTION TEST L~W COl{c TEST
PART NO. 2191208
PAGE
15
0898 0 O'l3D
089C O crnc
089D 00 04800BD6 089F 00 668008[)9 08Al 00 C4'lOO'lD6 OBA3 0 F035 OBA4 00 4Cl'!OBC\3
OBA6 00 04000'l0'3 OBAS 00 OCOOO'l24 OBAA 00 (400087.A OBAC 00 E4000948 08AE 00 4C201)'19C 0880 00 44000A32 088? 0 FFF8 08133 00 OCOOO'l24 0885 00 C400082A 0887 00 F400094f:l Of89 00 4C20089C
a ORB'\ COID
0813( 0 '· 'lll4 0880 I) 7003 088E 0 1qo1 08:11' 0 '1019
OSCO 0 700C
osc l 0 C014
OBC2 00 F4000'll'3 OBC4 00 4ClBOBC9 08(6 0 COOF 08C7 0 8012 08CB 0 7082 08(9 0 73FF 08CA 0 70AE
oscs 00 ocooo9;:4
08CD 00 C400082A OBCF 00 E4000946
OBDl 00 4C200878 0803 0 7008
OBQ4 O 0805 0 '18D6 0
0807 0 0808 0 0809 0 OBDA 0 OBOfl 0
0004 0000 '1000 0'100 ROOO O'lOO 0001 0000
08DC 00 /)':J 000')00 OBOE 00 6700FFFF 08EO 0 COF3 08E 1 0 DOF3 08E2 00 74FF0805 OBE4 0 7001 08E5 0 7053 08E6 0 "iAEF OBE7 0 COFE OBEB 00 F4000943 OBEA 0 DOFB OBFB 00 h68008D6 OBED 0 68E8
OBEE 0 COE7 OBEF 00 F4000943 CBF 1 J OOE4 08F2 00 67800806
STO
RSQAK
RSA8L LO
RSQAK
RSARQ STD I RSQAH
I. 0'( 12 RSQAK
LO I RSQAH
EOR
RSQAK
BSC L RSABK,+-
STO L RSQAN
XlJ L RSQAF
LO L RSQAL
ERROR 3 DETECTED
ANO L RSRAI
BSC L RSABLtZ
BS! L RSDOO
DC
/FFFB
RSABK Xlfl L RSQAF
LO L RSQAL
AND L RSRAI
SSC L RSABL,Z
LO
RSQAK
BSC
E
MDX
RS.ABM
SRA
1
Sl 0
RSQAK
ERROR 3 CONSTANT
ISOLATE BIT 11 IF BIT SW 11 ON-REPE T Bl
IF ODD-BIT 15 IS REA HED BRANCH TO l"ICRE ADR P.OUTI INCk~MENT ll!T POSll ION BY ONE
"IOX RSAB"I LO
RS ABO RSQAH
TEST FOR MEMORY ENO
EOR BSC LO A MOX RSABO MOX
L RSAAH L RSABO,+-
RSQAH RSQAM RSABN X3 -1
INCREMENT TO TEST NE T MEMORY LOCATION
COUNT PASSES
MOX
RSABP
XIO L RSQAF
LO L RSQAL
AND L RSRAG
BSC L RSABRrZ
MOX
RSACJ
REPEAT BIT ISOLATION
** STOPAGE AREAS PART 2
*RSQAQ OC
RSOAR DC RSQAH DC RSQAI DC RSQAJ DC RSQAK DC RSQA~ OC RSQA"l DC
4
0 0 0
/8000 0 l
0
WORST CASE PASSES WORST CASE PASS COUN WORK AREA-Af)R
CONST ZERO BIT ZERO CO"ISTANT WORK AREA-BIT CONST l STORAGE FOR ACCUM
** ESTABLISH WORSf CASE PATTERN
R*SACJ LOX L2 /0000
LDX L fl STC RSACK MOX
L3 /FFFF kSQAO RSO.AR
L RSOAR ,-1
INITIALIZE WORST CAS PASS COUNTER COUNT WORST CASE PAS ES
MOX
RS ACX
MOX
RSACW
RSACX STX 2 RSQAH
COMPLEMENT XR2
LO
RSQAH
FOR L RSRAC
STD
RSQAH
LOX I2 RSQAH
STX 3 RSQAH
COMPLEMENT XR3
LI)
RSOAH
EOR L RSRAC
STO
RSQAH
LOX I3 RSOAH
LCT01380 LCT01390 LCT01400 LCT01410 LCT01420 LCT01430 LC.101440 LCT01450 LCT01460 LCT01470 LCT01480 LCT01490 LCT01500 LCT01510 LCT01520 LCT01530 LCT01540 LCT01550 LCT01560 LCT01570 LCT01580 LCT01590 LCT0l600 LCT01610 LCT01620 LCT01630 LCT01640 LCT01650 LCT01660 LC.101670 LCT01680 LCT01690 LCT01700 LCT01710 LCTOl 720 LCT01730 LCT01740 LCT01750 LCT01760 LCT01770 LCT017BO LCT01790 LCT01800 LCT01810 LCT01820 LCT01830 LCT01840 LCT01850 LCT01860 LCT01870 LCT01880 LCT01890 LCT01900 LCT01910 LCT01920 LCT01930 LCT01940 LCT01950 LCT01960 LCT01970 LCT01980 LCT01990 LCT02000 LCT02010 LCT02020 LCT02030 LCT02040 LCT02050
DATF EC NO.
OlMAY66 4154908
PROG ID 03A2-l
PAGE
15
·"--··
0 0 0 n J
, .
.i
-, -,
-.
-, -,
-.
1 r, 1
n O
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEN
CORE STORAGE FUNCTION TEST LOW CORE TEST
PART NO. z.191208
PAGE
15l
08F4 00 C4000826 OBF6 0 004A 08F7 0 C049 OBF8 0 1"106 08F9 0 1)048 08FA 0 1802 08Fe 0 8046 OBFC 00 4C04090l 08FE 00 6E80094l 0900 0 7002 0901 00 6F80094l 0903 O C030 0904 00 F400081B 0906 00 4Cl8090B 0908 00 74010941 090A 0 70EC
0909 00 65800826 0900 0 6933 090E 0 C03B 090F 0 OC3B 0910 00 C't80094l 0912 00 4C200916 0914 0 F02E 09.i. s o -ro10 0916 0 F02C 0917 00 4Cl80926 0919 00 D40008De 091B 00 OCOOOB24 0910 00 C4000B2A 091F 00 E4000948 0921 00 4C20090E 0923 00 44000A32 0925 0 FFF7 0926 00 04800941 0928 00 74FE0949 092A 0 70E5 092B 00 OC000824 0920 00 C400082A 092.F 0 EOlR 0930 00 4C20090E 0932 0 COOE 0933 00 F400081B 093~ DO 4Cl80BE2 0937 0 7101 0~3A 0 701)4 0939 00 OCOOOB24 09~8 00 C400082A 0930 0 E008 093E 00 4C200BOC 0940 0 700B
0941 0 0942 0 0943 0 0944 0 0945 0 0946 0 0947 0 0948 0 0949 0 094A 0 094B 0
0000 0000 FFFF 0000 0000 0004 0002 0010 0020 0003 0000
LO L RSQAC
LCT02060
STO
RSRAA
LCT02070
RSACB LO
RSRAA
LCT02080
SRA
6
LCT02090
STO
RSRAB
LCT02100
SRA
2
LCT02110
A
RSRAB
LCT02120
BSC L RSACA,E
LCT02130
STX 12 RSRAA
LCT02140
MOX
RSACD
LCT02150
RSACA STX I3 RSRAA
LCf02160
RSACO LO
RSRAA
LCT02170
EOR L RSAAH
TEST FOR MEMORY ENO
LCT02180
BSC L RSADB,+-
LCT02190
MOX L RS~AA,l
AOR=AOR+l
LCT02200
MOX
RSACB
LCT02210
* * *
WORST CASE TEST LOAD ANO STORE COMPLEMENT ANO REPEAT
THEN
LCT02220 ! CT02230 LCT02240
*RSACB LOX 11 RSQAC
LOAD STARTI~G AOR IN XRl
lCT02250 LCT02260
RSACL STX 1 RSRAA
LCT02270
RSACH LO
RS RAJ
INITIALIZE COMPLEMENT CNTR LCT02280
STO
RS RAK
LCT02290
RSACG LO I RSRAA
LCT02300
BSC L RS ACE, Z
LCT02310
EOR
RS RAC
LCT02320
MOX
RS ACF
LCT02330
RS ACE EOR
RS RAC
LCT02340
BSC L RSACF,+- ERROR 4 OECTECTED
LCT02350
STO L RSQAN
LCT02360
XIO L RSQAF
LCT02370
LO L RSQAL
LC.T02380
AND l RS RA I
LC:T02390
BSC L RSACH,Z
LCT02400
BSI l RS ODD
LCT02410
DC
/FFF7
ERROR 4 CO~STANT
LCT02420
RS ACF STO I RSRAA
LCT02430
MDX L RSRAK,-2
LCT021t40
MOlC
RSACG
BRANCH FOR COMPLEMEM PAS ltT02450
XIO L RSQAF
LCT02460
LO L RSOAL
LCT021t70
AND
RSRAI
ISOLATE BIT SW 11
LCT02480
BSC L RSACH.Z
IF BIT SW 11 ON-REPE T A~ LCT02490
LO
RSRAA
LCT02500
EOR L RSAAH
TEST FOR MEMORY ENO
LCT02510
BSC L RSACK,+-
LCT02520
MDX Xl 1
MEM AOR=AOR+l
LCT02530
MOX
RSACL
LCT02540
RSACW XIO L RSQAF
LCT02550
LO L RSOAL
LCT02560
AND
RSRAG
LOOP ROUTINE IF SW l ON LCT02570
BSC l RSACJ,Z
LCT02580
MDX
RSACV
LCT02590
·** STORAGE AREAS PART 3
RSRAA DC
0
WORK AREA-ADDRESS
LCT02600 LCT02610 LCT02620 LC f02630
RSRAB DC
0
BUFFER AREA-WORST CASE PA LCT02640
RSRAC DC
/FFFF
LCT02650
RSRAE DC
0
WQRK AREA-A~ORESS
LCT02660
RSRAF DC
0
CONST ZERO
LCT02670
RSRAG DC
/0004
BIT 13 ISOLATION CONST
LCT0?.680
RSRAH DC
/0002
BIT 14 ISOLATION CON T
LCT026<m
RSRAI DC
/0010
BIT 11 ISOLATION CONST
LCT02700
RSRAlC DC
/0020
BIT 10 ISOLATION CON TANT LCT0~710
RSRAJ DC
3
LCT02720
RSRAK DC
D
COMPLEMENT PASS COUN ER
LCT02730
DATE EC NO.
01MAY66 41!>4908
PROG ID 03A2-l
PAGE
15A
...,
_)
)
I ' I
I
~ I
I
)
r-- -
r '-·· / -.
. ,,,.,.-·
\
(
'
( '
'----- "
,,,-·
~ /' \__
\"--
I
I I
'----
'---- r
\}
IBM M~INTENANCE DIAGNOSTIC PROGRAM FOR THE lllO SYSTEM CIJ"E STnRAGE FU"ICTION TE St
LOW CORF HS·T
PART NO. 2191201
PAGE
16
0'l4C 00 G4'lOOqlC 094E 00 '·COA0.)52 O'l50 00 640009Cl
0952 0 6204 0953 -00 C4000~26 O'l55 0 OOEE 0956 0 1)008 .· 09'>7 00 C4000A2l 0959 00 'l4000A25 0958 O COE7 095C 00 04800'l44
09:;e o 2C4l
09!>F 0 lll\62 0960 00 l'J5800944 0962 0 ·COE2 O'l'>3 00 04800'144 0%5 00 C4800944 0967 0 Fll08 0'168 00 4c·i 80977 096A oo 04000<tl)8 096C 00 OC000824 096E 00 C400082A 0970 00 1;4000948 0972 00 4C200958 0974 oc 44000432 0976 0 FFEF O'l77 00 llC00082~ 0979 00 C400082A 0978 0 EOCC 0'J7C 00 4C200958 097f 0 COC5 097F O~ q400090A 0981 0 OOC2
0982 0 oooc
0983 00 F4000918 0985 00 4C200~58
0987 00 C4000A26 0989 00 114000A25 098R 00 C4000826 0980 0 111)86 09BE ll 0001 098F 0 2C40 0990 0 M62 09'11 00 b5 800944 O'l93 0 CORl . 0994 00 ~~800944
09'l6 oo C4800944
0998 00 4Cl809A7 099A OC 1)4000808 099C 00 llC00087.4 09'lE 00 C400082A '09!.0 00 ~4000943 09A2 00 '·CZ 0098F 09A4 OC '·4000A32 09A6 0 FFOF 09A7 00 ')(000824 09A9 00 C400082A
O?AB u E09C
09AC 00 4C20098F
·
· STORAGE PROTECTION TEST ROUTINES
·
RSACV LO L RSAAK
BSC L RSACU1+
· LOX l. RSADA
NOT 1800 BRANCH TO E D
* WRITE ZEROS ON PROTECTED AREA OF ONES
·
RSACU LDIC X2 4
STORAGE PROTECT PASS S
RSACS LD L RSQAC
STO
RS RAE
STD
RSACO
INITIALIZE STS ADDRESS
LD L r..SSAH
TELL INTERRUPT ROUTI E TO
STO L RSSAF
DISREGARD SP ERROR
RSACN LD
RS RAC
ACC=/FFFF
STO l RS RAE
DC
/2C41
ADD SP BITS
RSACO DC
P.SEND+2
LDIC Il RSRAE
LO
RSRAF
l.CCUl~=O
STD I RSRAE
. STD SHOULD NOT OCCUR ~
LD I RS RAE
EOR
RS RAC
BSC L RSACM,+- ERROR 5 DECTECTED
STO L RSQAN
XIO L RSQAF
LO L RSQAL
ANO L RSRAI
BSC L RSACN1Z
BSI L .RS ODO
DC
/FFEF
FRROR 5 CONSTANT
RSACM XIO L RSQAF
LO L RSQAL
ANO
RSRAI .
ISOLATE BIT SW 11
BSC L RSACN,~
IF SIT SW 11 ON-REPE T AD
LD
RS RAE
A L RSQAM
STO
RSRAE
STO
RSACO
EOR L RSAAH
BSC L RSACN,Z RETURN WITH ADR=ADR+
* UNPROTECT AND CLEAR MEMORY OF O"IES
·
LO L RSSAG
SERVICE STORAGE PROT CT
STD L RSS.AF
LO L RSOAC
STD
RS!tAE
STD
RSA~R
INITIALIZE STS ADORE S
RSACQ DC
/2C40
CLEAR SP Birs
RSACR DC
RSEND+2
'LOX Il RSRAE
LO
RS RAF
ACC=/0000
STO I RSRAE
·LD I RSRAE
SSC l RSACP,+- ERROR 6 DECTECTED
ST'.'J L RSOAN
XIO L RSQAF
LO L RSQAL
ANO L RSRAI
BSC L RSACQ,l.
BSI L RSDDD
DC
/FFDF
ERROR 6 CONSTANT
RSACP XIO L RSQAF
REPEAT LOOP If SW 11 ON
LO L RSQAL
AND
RSRAI
BSC L RSACQ,Z REPEAT·AODRESS
LCT02740
LCT02750 LCT02760
LCT02770 LCT02780
LCT02790 LCT02800 LCTO.?SlO LCT02820 LCT021!30 LCT02840 LCT02850 LCT02860 LCT02870 LCT02880 LCT02890 LCT02900 LCT02910 LCT02<J20
LCT02930 LCT02940 LCT02950 LCT02960 LCT02970 LCT02980 LCT02990 LCT03000
LCT03010 LCT03020 LCT03030 LCT03040 LCT03050 LCT03060 LCT03070
LCT03080 LCT03090 LCT03100 LCTC3110 LCT03120 LCT03l30
LCT03140 LCT03150 LCT03160 LCT03170 LCl03180 LCT03l90 LCT03200 LCT03210 LCT03220 LCT03230 LCT03240 LCT03250 LCT032b0
LC:T03270 LCT03280
LCT03290 LCT03300 LCT03310 LCT03320 LCT03330 LCT03340
LCT03350 LCT03360
LCT03370 LCT03380 LCT033CJO LCT03400
LCT03410
DUE EC NO.
OlMAY66 4154908
PROG ID 03A2-l
PAGE
16
'·'
''
~
! ·
.}
(. J
~
J
( ·.
, I
-·.
.-.
-. -1
,·
'. \..___ /
I
I'..._,
.,I
\
, __ ,
IBH MAINTENANCE DIAGNOSTIC PROGRAM FDR THE 1130 SYSTE"
CORE STORAGE FU"ICTION TEST LOW CORE TEST
)
PART NO. Zl9l208
PAGE
161
.)
)
OCJAF 0 C095
LD
RS RAE
LCTOl420
09AF 00 84000~0A
A L RSQAM
LCT034JO
)
0981 0 1)092
STD
RSRAE
LCJ03440
0982 0 11)00
STO
RSACR
UT03450
0993 00 F40008l8
EOR L RSAAH
LCT03460
0985 00 4C.?0098F
BSC L RSACQ 1Z
BRANCH WITH Alm~ADR+
LCT03470
0987 0 72FF
MDX X2 -1
LCT03410
09RR 0 709A
MOX
RS ACS
LOOP R~UTINE FOR 5 P SSES LCT03490
)
0989 00 OC000824
XIO L RSQAF
LOOP ROUTINE IF SW 13 ON LCT03500
09BB 00 C400082A
LO L RSQAL
LCT03510
0980 00 E4000946
AND L RS RAG
LCT03520
09BF 00 4C200952
BSC L R.SACU1 l
REPEAT SP ROUTINE
LCT03530
··· COMMON PROGRAM ENO
LCT03540
LCT035'50
)
LCT03560
09Cl 00 74FFOA1E RS ADA MOX L RSFAB,-1
LCTOJ570
09C3 o 7008
MDX
RSCCQ
LCT03510
09C4 00 OCOOOA2/+
XIO L RSQAF
LCT03590
09C6 00 C4000&2A
LO L RSQAL
LCT03600
09C8 00 E4000947
ANO L RSRAH
LCT03610
)
09CA 00 4C20083E
BSC L RSABI.Z REPEAT PROG-SW 14 ON
LCT036ZO
09CC 0 3QFF
RS EX I WAIT -1
PROGRAM COMPLETED
LCT03630
09CO 00 64000803
LOX L RS OKS
PRESS START TO RE-RUN PROG LCT03640
09CF 00 64000840
RSCCQ LOX L RSABH
LOOP PROGRAM
··* INTERRUPT LEVEL ERROR ROUTINE
LCT03650 LCTD3660 LCT036l0 LCT03680
)
09U: 0 0000
RSCCA DC
0
RETURN ADDR TO MAtN INE LCT0.3690
0902 O 004C
STD
RS SAA
S'AVE A
LCT03l00
0903 0 2'347
STS
RSCCE
STORE .STATUS CARY+OF 0
LCT03710
0904 0 0'340
XIO
RS SAC
SENSE ILSW FOR LEVEL ERROR tCT03720
0905 O 004E
STO
RS SAO
LCT03730
")
0906 00 4C400908
BDSC L NEXT
LCT03740
0908 00 OCOOD824 NEXT XIO L RSQAF
TEST FOR THE ILLEGAL
LCT03l50
090A 00 C400082A
LO L RSQAL
SWITCH COMBINATION-SW 10 LCT03l60
)
09DC 0 E052
AND
RS SAO
ON AND SW 12 OFF
LCT03l70
0900 0 F052
EOR
RS SAP
LCT03180
09DE 00 4Cl80A48
BSC L RSDDK,+- BRANCH IF ILLEGAL
LCT03190
09EO 0 C043
LO
RSSAD
RESTORE STATUS OF ILSW
LCT03800'
09El 0 E046
ANC
RS SAE
ISOLATE STGE .PRT ERR. R
LCT03810
09E2 00 4Cl809F7
BSC L RSCCB,+- TEST FOR STORAGE PROT VIOL LCT031ZO
09E4 0 C040
LO
RSSAF
LCT038JO
09E5 00 4C1009F3
BSC L RSCCG,- BYPASS PRINTOUT IF IN SP LCTD3840
09E7 00 OC000824
XIO L RSQAF
. SW 10 TO BYPASS PRIN OUT .LC;TOl8'50
09E9 00 C40008.2A
LO L RSQAL
LCT03860
09EB 00 E4000949
AND l RSRAX ·.
LCT03870
09ED CO 4C200AOO
BSC L RSCCD1Z BYPASS PRINTOUT IF BRANCH LCT03880
09Ef 00 44000A48,
BSI L LOG.
LC103890 .
09Fl 0 0925
DC
MES17
ERROR INT-STORG PROT
LCT03900
09F2 0 7004
MDX
RSCCB
LCTOJ910
09F3 0 C030
RSCCG LO
RS SAD
IF IN SP ROUTINE AN SP
LCT03920
09F4 0 . C033
EOR
RS SAE
ERROR ONLY THEN RETU N TO LCT039JO
09F5 00 4C980901
. BSC I RSCCA,+...;. MAINLJNE
LCTOl940
)
09F7 00 OC000824 RSCCB XIO L RSQAF
SW 10 TO BYPASS PRIN OUT LCT03950
09F9 00 C400082A
LD L RSQAl
LCT03960
09F R 00 E4000949
AND L RS RAX
LCT03970
)
09FO 00 4C200AOI)
BSC L RSCCD1Z
BYPA~S PRINTOUT IF BRANCH LCT03980
09FF 0 C024
LO
RS SAD
LOAD ILSW FOR ERROR NTRUP LCT03990
OAOO 0 E028 OAOl 00 4ClAOA06
AND
RSSAI
ISOLATE PARITY ERROR
BSC L RSCCC,+-
LCT04000 LCT04010
1
OA03 00 ft4000A4B
BSI L LOG
LCT04020
OA05 0 .0831 OM6 0 COlO
DC RSCCC LO
MES18 RS SAD
ERROR INT-PARITY
LCT04030
TEST FOR INVALID OP CODE LCT04Q40
)
OA07 0 E022
AND
RSSAJ
ISOLATE INV OP ERROR
LCT04050
OAOA 00 4Cl80AOO OAOA 00 44000A48
BSC L RSCCD,+BSI L LOG
LCT04060 LCT04u70
1
OAOC I) 0838
DC
MESl9 .
ERROR JNT-INV OP CODE
· LCT04080
OAOO 00 OC000'324 RSCCD XIO L RSOAF
IF BIT sw· 12 ON THEN STOR LCT04090
)
DATE EC NO.
OlHAY66 4154908
;.
PROG ID 03A2-I
")
PAGE
l6A
1
-,
I)
·~1
.·1"
...
I,:---"---~--\...._ ...,.--\,_
· - - \__.
'
__,___\
\......
'
-·-·-· \._
-·
·1;-i---/ ~\
,~,.
'.-
m,>-£"":t..'"'11f'
I
\ .. _
'. -·-~,/
\,,
f. 0
18~ MAil\ITEl\IA~CE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM
PART NO. 2191208
PAGE
17
,j IBM MAINTENA~CE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM
PART NO. 2191208
PAGE
l7A
CORE STll~ AGE FUl\ICT HJl\I TEST LOW COP.E iEST
OAOF 00 C4000"'2A
LO L RSOAL
LCT04l00
OAll 0 F.Gl 9
AND
RS:.AK
ACCUM, INS CTR, STAT S
LCT04110
OA12 00 4Cl3809Dl
BSC
RSCCA,+ AND WAIT
LCT04120
0Al4 'l COOF
LO
RS SAD
LOAD ILSW FOR ERROR
LCT04l30
0Al5 0 lilOC
SRA
12
PLACE BITS 0-4 OF ILSW IN LCT04140
OAlb 0 E817
OR
RS SAN
11-15 AND OR IN WAIT OP LCT041SO
OA17 0 rJ'l04
STD
RSCCH
STORE IN WAIT
LCT04160
OA lfl 0 COil!!
LO
RSCCA
LOAD INS CTR IN ACCU
LtT04170
0Al9 0 lll90
SRT
16
TRANSFER INS CTR TO 0
LCT04l 80
OAlA 0 (004
LO
RS SAA
RESTORE ACCUM CONTEN S
LCT04190
OAlR 0 7000
RSCCE LOS
0
RESTaRE OFLO+CARRY INDICA LCT04200
OAlC 0 3000
RSCCH WAIT
LCT04210
OAlO 00 4C800901
BSC
RSCCA
RETURN TO MArnllNE
·* STORAGE AREAS FOR ERROR ROUTINES
LCT04220 LCT04230 LCT04240
OAlF 0 O'lOO
·
RSSAA DC
0
LCT04250 SAVED ACCUMULATOR BUFFER LCT04260
!'A20 0002
BSS E 2
LCT04270
CA22 0 0000
RSSAC DC
/0000
SENSE IL Slf FOR
LCT04280
OA23 0 0300
DC
/0300
LEVEL ZERO
LCT04290
OA24 0 0000
RSSAD DC
0
STORAGE FOR ILSW
LCT04300
OA25 0 FFFF
RSSAF DC
-1
IN SP ROUTINE -lNll; YES LCT04310
OA26 0 FFFF
RS.SAG CC
-1
NOT. ilN SP ROUTINE
LCT04320
O.A27 0 0002
RSSAH DC
2
IN STORAGE PROTECT R UTIN LCT04330
OA28 0 2001)
RSSAE DC ~ /2000
LCT04340
OA29 0 4000
RSSAJ DC
/4000
LCT04350
OA2A 0 !!000
RSSAJ DC
/BOOO
LCT04360
OA2B 0 0009
RSSAK DC
/0008
ISOLATE BIT SW 12
LCT04370
OA2C 0 OOOE
RSSAL CC
14
LCT04380
OAlll 0 'lOOl OA2E 0 3000
RSSAM RSSAN
DnCc
1 /3000
WAIT INSTRUCTION
LCT04390 LCT04400
OA2F 0 0028
RSSAO DC
/0028
LCT04410
OA30 0 0020
RSSAP DC
/0020
.LCT04420
OAH 0 5555
·RSSAO DC
/5555
* ERROR ROUTINE TCl SERVICE NON-INTERRUPT ERR RS
LCT04430 LCT04440 LCT04450
OA32 0 0000
·
RSCOO DC
0
LCT04460 STORAGE FOR RETURN A ORES LCT04470
OAB 0 ;>810
STS
RSOOJ
STORE STATUS OFLO+CARRY LCT044BO
OA3.4 0 COFO
RSDOX LO
RSDDD
LCT04490
OA.35 0 90F6
s
RS SAL
CORRECT I REG
LCT04500
OA36 0 lf!90
SRT
16
STORE I REG IN Q
LCT04510
OAH 0 COFA
LO
RSOOO
LCT04520
OA38 0 ROF4
A
RSSAH
INCREMENT RETURN ADD ESS LCTD4530
OA39 0 OOF8
STD
RSDOO
BY l TO AVOID DC IN MAINI.. LCT04540
OA3A 00 llCOOOl!24
XIO L RS OAF
IF SW 12 ON-CORRECT DNSL LCT04550
OA3C 00 C4000Fl2A
Lil L RSOAL
LCT04560
OA3E 00 F4000A213
AND L RSSAK
INDICATOR LI.MPS ANC AIT LCTOlt570
OA40 on 4CAOOA32
BSC J RSOOD,Z
LCT04580
OA42 00 C400080!l
LO L RS.JAN
RELOAD A REG AS PER RROR LCT04590
OA44 0 2000
RS[OJ LOS
0
SAVE CARY+DFLO STATUS
LCT04600
OA45 0 3000
WAIT
lCT04610
OA46 on 4CBOOA32
BSC I RSOOD
LCT04620
OA48 0 COEB
RSDOK LO
RS SAO
LCT04630
OA49 00 4C400803
BOSC l RSOKS
RESET INTER-RETURN S ART LCT04640
·····················*························ ·
*····················LO··G··R·O·U·T·IN·E················'*
LCT04650 LCT04660 LCT04670 lCl04680
i-
OA4Fl 0 ·)000
L*OG DC
0
LCT04690 SE LCT04700
I.
OA4C 0 MIR OA4-D 00 OCOOOR24
OA4F 00 C4000Fl2A
LOGOl STX 3 LOG06+1 XIO l RSOAF LO L RSOAL
SAVE IX 3
LCT04710 LCT04720LCT04730
OA51 00 4ClOOA60
·
. OA53 00 C4ROOA4B
BS£ l TWRTR,-
LD
LOG
BRANCH IF 1053 OUTPU GET MESSAGE ADDRESS
lCT04l40
LtT04T50 LCT04l60
OA55 0 0052
STD
PRWRT
SET IN IOCC
LCTO!tl70
(.i 0
j
,
! .
J
i
J
1 1
j
r,
CORE STORAGE FU~CTION TEST LOW CORE TEST
OA56 0 01140 OA57 00 4C040A50 OA59 0 1'301 OA5A 00 4C040A5F
0A5C 0 7004
OA5D 0 300A OA5E 0 70F7
OA5F 0 300B OA60 0 70F5
OA6l 0 0846
OA62 0 OA63 0 OA64 0 OA65 0 OA66 0
01143 1002 4810 70FC 0'330
0A67 00 67000000 0Ab9 00 74010A4B
OA6B 00 4C800A48
OA60 0 1010 0A6E 0 0032 OA6F 0 0113A OA70 0 1005 OA71 0 180F OA72 00 4Cl80A76
OA74 0 300C
o on~ 70Fq
OA76 0 C028 OA77 0 002A
OA78 0 0833
OA79 0 OA7A 0 OA7B 0 OA7C 0
0830
lFlOB 4804 70Ft
OA70 0 6301 OA7E 00 C4800A4B OA80 0 0001
OA8l 00 C7000000 OA83 00 04000AOE
OA85 0 FOlA 0A86 00 4Cl80A67
OA88 00 44000AAE
OA8A 00 C4000ADE OA8C 0 D015
OAEID 0 081E
·
LOG02 XIO
PR SNS
BSC L LOG03,E
CHECK PRINTER READY BRANCH IF NaT READY
SRA BSC L
MDX
·
LOG03 WAIT
1 LOG04,E LOGOS
10
BRANCH IF BUSY READY AND N~T 6USY
NOT READY
MDX
·
LDG04 WAIT
LOG02 11
CHECK AGAIN BUSY
MDX
·
·LOG05 XIO XIO
LOG02 PRWRT PRSN
· CHECK AGAIN OUTPUT MESSAGE CHECK FDR OP COHPLT
SLA
2
BSC
MOX
·-4
· · ·
XIO
U'G06 LOX
PR SNS
RESET OSW
PRINTING COMPLETE
l3 0
RESTORE IX 3
·
MOX L LOG,1
·
SSC I LOG
BUMP RETURN RETURN TO USER
SX
TWRTR SLA
16
STD
WRDSW
XIO
TWSNS
CHECK IF TYPEWRITER
SLA
-5
READY
SRA BSC l
· WAIT
MOX
·
TWROl 1.0 STD
15 TWROl,+-
12 TWRTR+2
TWRTO IOARA
NOT READY
CARRAIGE RETURN AND LINE SPACE TO ID ARA
*
·
XIO
TWWRT
XIO
TWSNS
CARG RETURN/LINE SP
HANG nu NOT BUSY
SRA
11
·
BSC MOX
·E-4
LOX 3 1
LO I LOG
BYPASS 1443 WOR~ COU T GET MESSAGF. ADDRESS
·
STD
TWR02 LO
STO
EOR
TWR02+1
l3 0 l CODWD
TWRTl
GET WORD lO PRINT SET IN CONVERSION RT
CHECK IF TERMINATOR
BSC L LOG06,+,- BRAtlCH IF TERMrnATCR
·
··················.co·························· ·······B·S·I···L··$CO·D·C·V·······G·O··C·O·N·V·E·R·T··4·3·-·T·O··T·W·· ::.RC
· LO L CDOWD
· ·
STO
JDARA
OUTPUT A CHARACTER
·*XIDWR XID
TWWRT
WRITE tHARACTER
LC104780
LCT04790 LCT04800 LCT04810
LCT04820 LCT04830 LCT04840 LCT04B50 LCT04860 LCT04870 LCT04880
. LCT04890 LCT04900 LCT04910 LCTD4920 LCTD4930 LCT04940 LCT04950 LCT04960 LCT04970 LCT04980 LCT04990 LCT05000
LCT05010 LCT05020
LCT05030 LCT0501t0 LCT05050 LCTD5060 LCT050l0 LCT05090 LCT05090 LCT05100 LCT05110 LCT05120 LCT05130 lCT05141)
LCT05150 LCT05160 LCT05170 LCT05190 LCT05190 LCT05200 LCT05210
LCTJ5220 LCT052 30
LCToc;; -.o
LCTO~;· ~,o
LCTO~; tC
LCT(IS,,<"JO
LCT0'521!0
LCT05290 LCT05300 LCT05310 LCT05320 LCT05330
LCT0531t0 LCT05350 LCT05360 LCT053l0 LCTD5380
LCT05390 LCT05400 LCT05410 LCT05420 LCT05430 LCT05440 LCT05450
DATE EC NO.
01MAY66 4.l 5490B
PROG ID 03A2-1
PAGE
17
r, 1
DATE EC NO.
OlMAY66 4154908
PROG ID 03A2-1
PAGE
17A
I,
'-- ·'
0
"-----'·
·-1
)
[BM M'INlENA~CE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM
PART NO. 2191208
PAGE
18
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM
)
PART NO. 2191208
PAGE
l8A
CORE STD~AGE FUNCTION TEST
CORE STORAGE FUNCTION TEST
LC'W CORE TEST
...
l1
J
LOW CORE TE ST
)
OAAF 0 Ofl l A OABF 0 1908 OA90 0 4'104
XIOSN XIO SRA BSC
TWSNS 11 E
HANG ON BUSY
LCT05460 LCT05470 LCT05480
0 J
OABu 00 65800AEO
·
OABF 0 1010
~ox 11 CDOOO
SLA
16
IX 1 = ZONE
LCT06140 LCT06150 LCT06160
l
OA91 'l 70FC
t-IDX
XIOSN
BUSY
LCT05490
OACO 0 1084
SL T
4
DIGIT TO ACCUH
LCT06170
OA92 0 COOE 01193 G 4'!04 OA94 0 7006
OA95 0 caoc
*
*
*
LO
CHECK IF lST 1/2 WORD
WRDSW
GET 1/2 WORD SWITCH
BSC
E
MDX
TWR03
GO SET UP NEXT WORD
*
*
*
LO
SET UP FOR 2ND 1/2 ~ORD IO ARA
LCT05500 LCT05510 LCT05520 LCT05530 LCT05540 LCT05550 LCT05560 LCT05570 LCT05580 LCTD5590
OACl 0 DOlE OAC2 00 66800AEO
OAC4 00 C5000AE3 OAC6 0 DOOl
OAC7 00 C6000000 OAC9 00 1)7000AE1
OACB 0 C013
STO LOX
· LO STD
·
COOC2 LO STO
· LO
CODOO
I2 coooo
L 1 ZONE COOC2+l
L2 0 L3 CODOl
LHiND
IX 2 = DIGIT
GET ZONE T'BLE ADDRS SET IN CONVERSION WO
GET CONVERTED CODE
LCT06180 LCT06190 LCT06200 LCT06210 LCT06220 LCT06230 LCT06240 LCT06250 LCT06260 LCT06270
OA96 0 1008 Ofl.97 0 Jno A OA'lfl r, 0 74010AA1 OA'H. 0 70F 2
01199 a no1
OA9C 00 74010AAI OA9E 0 70E2
SLA STO MOX MOX
* * T*WR03 MO::
MDX
~ox
8 IO ARA L WR DSW, l XIOWR
POSITION 2ND 1/2 WO
BUMP WORD SWITCH GO WRITE 2ND 1/2 WO
SET UP FDR NEXT WORD
3 L WRIJSW, l
TWR02
NEXT WORD INDEX BUMP WORD SWITCH GO GET NEXT WORD
LCT05600 LCT05610 LCT05620 LCT05630 LCT05640 LCT0565D LCT05660 LCT05670 LCT05680 LCT05690
OACC 00 4C200AD2
BSC L CODC3, Z
BRNCH IF RIGHT HALF
LCT06280
OACE 00 740lOAOF
MDX L LHIND,l
LCT06290
J
OAOO 0 7301 DAOl 0 70E3
~DX
MDX
3 1 COOCl
GO CO~VERT RIGHT HLF
LCT06300 LCT063l0
·
LCT06320
OAD2 0 CODE
CODC3 LO
CODOl
PACK CONVERTED CODES
LCT06330
OAD3 0 1008
SLA
8
LCT06340
OA04 0 !'.'BOD
OR
COD02
LCT06350
J
OA::>5 0 1)008
STD
CODWD
·
LCT06360
)
LCT06370
OA9F 0 OAAC 0 OAAl 0 Ot.A2 0
·ll 03 FFFF 0000 'JOOO
* * T*l-.'RTO DC
TwRTl DC WRDSW DC IOARA DC
/8103 /FFFF
0 0
LOG CONSTANTS
l!NE SP/CARRAIGE RTN TERMINATOR ~/2 WORD SWITCH OUTPUT AREA
LCT05700 LCT05710 LCT05720 LCT05730 LCT05740 LCT05750 LCT05760
OA06 00 650000CO DADS 00 6"'>000000 DADA 00 67000000
OAOC 00 4CBOOAAE
Cl'JDC4 LOX LOX LOX
· BSC
· ·
LI 0 L2 0 L3 0
coocv
RESTORE I~DEX REGS
RETURN TO USER
sx
LCT06380 LCT06390 LCT06400 LCT064l0 LCT061t20 LCT06430 L CT06440
OAA4 0000
OAA4 0 'J'JOO OA!S 0 >701
*
BSS E 0
*PRSNS DC
/0000
DC
/3701
PRINTER SENSE IOCC
LCT05770 LCT05780 LCT05790 LCT05800 LCT05810
· *
CONSTANTS
LCT06450
)
LCf06460
OADE 0 0000
COOWO DC
0
WORD LOCATION
LCT06470
OADF 0 0000
LHIND DC
0
LEFT HALF INDICATOR
LCT06480
)
OAECY 0 0000
cnDoo DC
0
WORK AREA
LCT06490
OA/16 0 0000
PRSN DC
0
NON RESET SENSE
LCT05820
OAEl 0 0000
CODOl DC
0
CONVERTED LH CHARACT
LCT06500
OA6.7 0 3700 OAAA 0 0000
DC PRWRT DC
13100 10000
PRINTER WRITE IOCC
LCT05830 LCT05840
OAE2 0 0000
COD02 DC
0
CONVERTED RH CHARACT
LCT06510
' I
·
LCT06520
OAA9 0 OAAA 0 OAhB 0 OAllC 0
3500 0000 OFOl OllA;>
DC hlSNS DC
DC HIWRT DC
/3500 10000 /OFOl. JO ARA
TYPEWTR SENSE IOCC
DSW RESET
PMOl
TYPEWTR WRITE IOCC
LCT05850 LCT05860 LCT05870 LCT05BBO
LCT06530
· · ·
1443 TO 1816/1053 CODE CONVERSION TABLES
LCT06540 LCTC6550 LCT06560
O.UD 0 0900
DC
/0900
WR TYPEWRITER
PM02 LCT05890
OAE3 0 OAE7
ZONE DC
ZONEN
NO ZONE
LCT06570
OAll!' 0 OJOO
****~***************************************** * * 1443 COOE TO 1816/1053 * * CODE CrNVERS!ON ROUTINE
******************~**************************
*
CCJ DC V DC
0
SE
LCT05900 LCT05910 LCT05920 LCT05930 LCT05940 LCT05950 LCT05960
OAE4 0 OAF2 OAE5 0 OAFO OAE6 0 0807
OAE7 0 0021 OAEB 0 OOFC OAE9 0 OODB
DC DC DC
·
lONEN DC DC DC
ZONEl ZONE2 ZONE3
/0021 /OOFC
IOODB
0 ZONE 11 ZONE 12 ZONE
SPACE 1, 2
LCT06580 LCT06590 LCT06600 LCT06610 LCT06620 LCT06o30 LCT06640
OAAF 0 6927
STX 1 COOC4+1
SAVE INDEX REGS
LCT05970
OAEA 0 OODC
DC
/OODC
3
LCT06650
OABO O 6A2fl
STX 2 CCDC4+3
LCT05980
OAEB 0 OOFG
DC
/OOFO
4
LCT06660
OABl 0 6"129
STX 3 CUDC4+5
LCT05990 LCT06000
OAEC 0 OOF4 OAED D 0!11)0
DC
/OOF4
5
DC
/0000
6
LCT06670 LCT06680
OAB2 0 1010
SL A
16
CLEAR LEFT HALF WG~O
LCT060l0
OAH 0 00')4
DC
/0004
7
LCT06690
1
OAB3 0 002'! OAB4 0 6300
STO
LHIND
LOX 3 0
*INDICATOR
LCT06020 LCT06030
OAEF 0 001:4 OAFO 0 OOEO
DC
/OOE4
8
DC
/OOEO
<;
LCl06700 LCT06710
OAB5 0 OAB6 0 OAS7 0 OAS8 0 OAS9 0
C'l2 8 1890 (027 4'l20
1088
OASA 0 1010 OABB 0 10114 OASC 0 0023
*CODC 1 LO
SRT LO BSC SLT
*
SLA
SLT
STIJ
CODWD 16 LHINO
z
8
16
4
coooo
GET WORD TO CONVERT SET IN Q
SKIP IF LEFT HALF POSITION RIGHT HALF
ZONE TO ACCUM
LCT06040 LCT06050 LCT06060 LCT06070 LCT06080 LCT06090 LCT06100 LCT06110 LCT06120 lCT06130
OAFl 0 OOC4
DC
/OOC4
0
OAF2 0 0000
ZONE 1 DC
0
OAF3 0 0000 OAF4 0 009A
DC
0
DC
/009A
s
OAFS 0 OAF6 0 OAF7 0
OAFS 0 OAF9 0
D09E 0082 0086
0092 0096
DC
/009E
T
DC
/0082
u
DC
/0086
v
DC
/0092
w
DC
/0096
x
J
OAFA 0 OOA6
DC
/OOA6
y
LCT06720
LCT06730
LCT06-f40
LCT06-f50
)
LCT06760
LCT06770
LCT06780
LCT06790
LCT06800
LCT06810
)
DATE EC NO.
01MAY66 4154908
PROG ID C A2-l
PAGE
18
'J
DATE EC NO.
OlMAY66 4154908
PROG IO 03A2-1
PAGE
18.l
1
)
··
IB~ MAINTENA~CE ~!AGNOSTIC PROGRAM FOR THE 1130 SYSTEM
CORE SlORAGE FUNCTION TEST LOW CORE TEST
OAF0 0 OAl'C 0 OAFD 0 OAFE 0 OAFF 0 OBOO 0 0801 0 000.2 0 oao3 I) 0004 0 0805 0 000n 0 0007 0 OG08 0 0009 0 OBOA 0 OBOB 0
oi::oc 0
Ol:IOD 0
OBOE 0 OBOF 0 0810 0 0811 0 0812 0
OOA2 ')021
0000 007E 005A 005E 0072 O'l76 0052 OG5t. 0066 0062 0000 003E OOlA OOlE 0032 0036 0012 0016 0026 0022 0086 0000
0813 0 OOOA 0814 0 2435 0815 0 2426 0816 0 2918
0817 0 0013 0818 0 3512
0819 0 1300 081A 0 . 2326 0818 0 1600
081C 0 3326 0810 0 2935 081E 0 l'FFF
OBIF 0 0820 0 0821 0 0822 0 OB23 0 0824 0
0()04
277.9 2637 0035 2534 FFFI'
0825 0 OR26 0 0827 0 0828 0 0829 0 002A 0 0828 0 082C 0 CiFl20 0 OB2E 0 082F 0 0830 0
OOOA 3529 2926
290" 3'125 1300 1213 2629 "HOO 2729 2613 FFFF
0831 0 0832 0 0833 0 0834 0 OR35 0 0836 0 0837 0 0838 0 0839 Q 083A 0
OOOB 35-29 2926 2900 '\'125
1300 2731 2939 1318 FFFF
DC
DC
ZONE2 DC
DC
oc
DC
DC
DC
DC
oc
DC
DC
ZONE3 DC
DC
DC
oc
DC
DC
DC
DC
DC
DC
DC.
·
DC
MES15 DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
·
DC
MES16 DC
DC
DC
DC
DC
DC
·
MES17 DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
·
DC
MES18 DC
oc
DC
DC
DC
DC
DC
DC
DC
oc.
/OOA2 /0021 0 /007E /005A /005E /0072 /0076 /0052 /0056 /0066 /0062 0 /003E /OOlA /OOlE /0032 /0036 /0012 /0016 /0026 /0022 /0086 /0000
10 /2435 /2426 /2918 /0013 /3512 /1300 12326 /1600 /3326 /2935 /FFFF
4 /2729 /2637 /0035 /2534 /FFFF
10 /3529 /2926 /2900 /3925 /1300 /1213 /2629 /3700 12729 /2613 /FFFF
8 /35-H /2926 /2900 /3925 /1300 /2731 /2939 /1318 /FFFF
z
SPACE
J
K l
M N
0 p
Q R
A 8
c
0 E F G H I 0 ERROR PERIOD
WO CT ME MO RY
T ES T LO
w co
RE TERM
WDCT PR
~G
e
NO TERM
WO CT ER RO R IN T Sl OR G PR OT TERM
WO CT ER RO R IN T PA
RI
TY TERM
DATE
--- O- -lM-A. Y66
0 ()
-···~--~- ~~~~/ =:..=('--· ~.-(
- - \.
~ ..
~,_,._.,.,.....,....,..,,..·
{,.,...~;'"
·"--
.·
--·-\
'··- ~"
PART NO. 2191208
PAGE
19
LCT06820 LCT06830 LCT06840 LCT06850 LCT06860 LCT06870 LCT06880 LCT06890 LCT06900 LCT069l0 LCT06920 LCT06930 LCT06940 LCT06950 LCT06960 LCT06970 LCT06980 LCT06990 LCT07000 LCT07010 LCT07020 LCT07030 LCT07040 LCT07050 LCT07060 LCT07070 LCT07080 LCT07090 LCT07100 LCT07110 LCT07120 LCT07130 LCT07140 LCT07150 LCT07160 LCT07170 LCT07180 LCT07190 LCT07200 LCT07210 LCT07220 LCT07230 LCT07240 LCT07250 LCT07260 LCT07270 LCT07280 LCT07290 LCT07300 LCT07310 LCT07320 tCT07330 LCT07340 LCT07350 LCT07360 LCT07370 LCT07380 LCT073.90 LCT07400 LCT07410 LCT07420 LCT07430 LCT07440 LCT07450 LCT07460 LCT07470 LCT07480 LCT07490
PROG ID 03A2-l
PAGE
19
a (
u
c !}
f1 0 ( 0
' I
..
-.
-"":
-
'
J 1
.. ·
i
.- j
j
-J
.-, ;
'"I
'J
-) }
""' J
r-. ')
r. 1
IBM MAINTENANCE DIAl,NOSTIC PROGRAM FOR THE 1130 SYSTEM
CORE STORAGE FUNCTION TEST LOW CORE TEST
0830 0 Ol\3C 0 OR30 0 003E 0 003F 0 004(\ 0 0841 0 0842 0 0843 0 0844 0 0045 I) 0046 0
0847 0
oooc 3529 2926 29GO 3925 1300 1925 1500 2627 003'3 2634 1500 l'FFF
0848 0 0349 0 OR4A 0 0848 0
0002
3529
0001 FFFF
OB4C 0 084D 0 OB4E 0 084F 0
0002 3529 0002 FFFF
0850 0 0851 0 08'.i2 0 0853 0
0002
~529
1')003 FFFF
0854 0 0855 0 0856 0 0857 0
0002 3529 0004 FFFF
08'58 0 08'59 0 OB5A 0 0858 0
0002
3529
0005 FFFF
08'5C 0 08'50 0 085E 0 085F 0
0002 3529 0006 FFFF
0860 0 0861 0 0862 0 0064
'JOOO 0000 0000 OBOO
·
MES19 DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
·
"IES20 DC
DC
DC
·
DC
MES21 DC
DC
DC
DC
·
MES72 DC
DC
DC
·
DC
MES23 DC
DC
oc
·
DC
MES24 DC
DC
DC
DC
·
MES25 DC
DC
DC
·
DC
RS END DC
DC
DC
END
12 /3529 /2Cl26 /2900 /3925 /1300 /3"125 11500 /2627 /0033 /2634 /3500 /FFFF
2 /3529 /0001 /FFFF
2 /3529 /0002 /FFFF
2 /3529 /0003 /FFFF
2 /352CJ /0004 /FFFF
2 /3529 /0005 /FFFF
2 /3529 /0006 /FFFF
0 0 0 RSOKR
WO CT ER RO R 1111 T 1111
v
OP c
OD E TERM
WO CT ER
l TERM
WO CT ER
2 TERM
WO C.T EA
3 TEF<M
WO CT ER
4 TERM
WO CT ER
5 TERM
WO CT ER
~
TERM
DATE EC NO.
01MAY66 41'>4908
PART 1110. 2191208
?AGE
l9A
LCTC7500 LCT07510 LCT07520 LCT07530 LCT07540 LCT07550 LCT07560 LCT07570 LCT07580 LCT07590 Lt:T07600 LCT07610 LCT07620 LCT07630 LCT076'+0 LCT07650 LCT07660 LCT07670 LCT07680 LCT07690 LCT07700 LCT07710 LCT07720 LCT07730 LCT07740 LCT07750 LCT07760 LCT07170 LCT07780 LCT07790 LCT07800 LCT07810 LCT07820 LCT07e30 LCT07840 LCT07850 LCT07860 LCT0787i> LCT07880 LCT07890 LCT07900 LC:T07910 LCT07920 LCl07930 LCT07940 LCT07950 LCT07960 LCT07970 LCT07980
PROG ID 03A2-l
PAGE
l9A
;
I
I
"----·
\._ '
IR"l MAINTE~ANCF. OIAGNOSTIC PROGRAM FOR THE 1130 SYSTE~
CORE STORAGE FUNCTION TESJ LOW CnRE Tl'ST
CROS~ RFFERFNCE LISTl~G
SY!.lflOL
cone v.
COllCl
cnoci
CO'.'JC3 COOC4
coowo conoo
COOOl C0002 IOARA
LHINO LOG LOGOI LOG02 to.>01 LOG04
LOG05 L1G06 MES15 MES16
MES17 MES18 MESlq
!lllES20 MES21 MES22 MES23 MES24 MES25 NEXT PRSN
P~SNS
PRWRT RSAAB RSAAC RSAAO RSAAE RSAAH RSAAK
RSA AL RSA AM
R.SAeA
RS ABB RS ABC RSA BO . RSABE
RSA BF
RSA BG RSABH RSA BI
RSABJ RSA BK
RSABL RSAS"l RSABN
RS ARO
~SABP
RSABQ RSA BR
RS AC A RSACB
RSACO RSACf RS ACF
RSACG
VALUE 'OAAF
OA85 OAC7 I) A02 OAD6 OAOf O.\FO OAEl OAE2
llAA2
OADF OA'e8 OA4C r,A56
OA5D OA5F
OA6l OA67
~'HJ
Olllf 0825
oin1
O!HB
0848 081tC 0850 0854 0858 085C 0908 OAA6
OAA'it
OAA8
0813
0131'1 oa1q.
J 1HA
G1HB 091C ·'.lB lF !)822 OA2D OS'el 0!!43 OA4C OA4E
0%1
()96f
0'140 OA3E (Hq2
1')883
01!9C O!!Cl 0878 OSC9
os1q
riq90
:J!l78
0901 O!!F7 0903 0916 0926 0910
REFERF.NCES OA88,0ADC OADl OAC6 OACC OAAF,OA80,0A8l OA83,0A8A,OA85oOAD5 OARC,OA8D,OACloOAC2 OACq,OAD2 OAD4
OA77~0A8C,OA95,0A97,0AAC
OA83,0A87 1 0ACB,OACE 09EF 1 0A03,0AOA,OA53,0A69,0A68,0A7E
0A5E,OA60 OA 51 OA5A OA5C OA'eC,OA86
OCJFl OA05 OAOC
0906 OA62 OA56,0A66 OA55,0A6l OllOF OIH3
0811
0806,0808 08471 086910RC2,0904,0933,09e3,0983 0814,0830,091tC ORZO 0800,0803 0817 086F 01148 01148 085C 0 0866 1 C860 0'152
086~
0876,09CF 083l,09CA
0~83
08A4 08AE,0889 0880 0890, 08.98, JAC 8 08(4 oqcA OdCO 01101 OAFC 09C'A 0900 0912 0915,0917 092A
OATE EC NOo
OlMAY66 4154908
\'-
PART NO. 2\ 912011
PAGE
20
·-
PROG JD 03A2-l
PAGE
20
0
\ ''
r
("
''
- !:
·..
·
.. ,-, ·
t . : ··
· ·
...
I
'"-
'\...__·
IB"l '4AINTENANCE DIAGNOSTIC PROGRA'4 FOR THE 1130 SYSTEM
CORF STORAGE FUNCTION TEST LOW CORE TEST
RSACH RSACJ RS ACK RSACL RS ACM RSACN RSA CO RSACP RSACQ RSACR RS ACS RSA CU RSACV RSACW RS ACX RS ADA RSAOR RSC CA RS CCR RSC CC RSC CD RSCCE RSCCG RSC CH RSCCQ RSODO
RSllDJ RSOOK RSOOX RSOU RS OKS RSENO RSEXI RSFAA RSFA8 RSQAC RSQAD RSQAE RSQAF
090E OllDC oqe2 0'100 0917 1)'1511 l)Q5F
09A7 098F 0990 0953 0952
OqltC
0"39 OllE6 09Cl OQ08
0901 OCJF7 OA06 OAOO OAlB 09f3 OAlC 09CF OU2
0Alt4 OA48
004 0800 01;03 0860 OCJCC 1)810
OlllE 0826 0827 O!l2R 01124
RSQAH
RSQAI RSQAJ RSQAK RSQAL
0806
0807 0'308 080Q O!l2A
RSOAM RSQAN RSQAO . RSQAP RSQAQ RSQAR RSQAU RSQAV RSRAA RSRAS RS RAC RS RAE
RSRAF RSRAG RSRAH RSRAI
O!!OA oqoR
0'!25 0829 0'301t OJ.i05 0828 082C oq41 0942 0943 0944
0945 0946 0947 0948
0921,0930
08031 093E
0935 0938 0968 OCJ72,097C 1 0985 0956,C982 09CJ8 09A2,09AC,0985 09AEo0982
09811 094Eo098F 091t0 OllE5 08E4 OQ50
0'106 0827,09F5,0A12,0Al8tOAlD oqe2,off2
OAOl OCJE0,09FO,OA08
0903 09E5 0Al1 09C3 085E t 0885, 0880,09Z3,0974,09A4,0A3·hOA3J,Ol19tOA40e
0Alt6 OA3J
ocme
0863 0822,09CDoOA49
095Fe0990
083E
0113F,09Cl
08411084C,0879,08F4,0908,0953,0988
0815
081t3,0R41t,0845,081tE,084F,0851,0R68
0A56,086ltC870,088A,0892,08A8,0883,08CB,0918,0928t
0919,096C,0977,099C,09A7,09b9,09Clt,0908w09E7t09F7,
OAOO,OA3A,OA4D
OA7S1087C1087F,088l,OR90,08Al,08Cl,08C6t08E6,08E7e
OAEA,08EB,08E0,08EE,f'8Fl,08F2
087E
.
089A
089B1089C,089F,08A3;08881088F
0'324,0858,C862,0872,088C,c894,0RAA,01185,08CO,oq10 ·
0920, 0939, 096E, 0979,.099E ,oqA9,09e0.oqc6,09DA,o9E9.,
09F9,0AOF,OA3C,OA4F
08C71097F,09AF
01154,0888,08A6,09l91096A,099A,OA42
0814
0833
OllEO
08El,OBE2
0838
01138
08F6,08F7,08FE,090l,0903 1 090S,0900,0910e0926,0932
08F9,08F8
OAE8,08EF,09l4,09l6,095B,0967
0955,095C,0960,0963,0965,097E,098l,OCJ80 9 099l 10994,
0996,09Aft09Bl
0%2,_(iq93
OA74908CF,0930,0980
09C8
085A,0864,088E,0896,CSAC,C8B7,091F,092F10970,097B,
09A0,.09AB
OAH
EC NO.
01MAY66 4154908
---··-·-·-- "· -'
PART N~. 2191201
PAGE
10l
-....
) I
l
) )
) )
· 1
) I
)
. .."'i
)
),
·>~·!
1 1
1
PROG ID 03A2-l
PAGE
2DA
1
-- _ _ I/
i
\___ - - \__ -
/
·"'
I
/"-
\,..__ - - \____/ ---'\____ --\_
,.
- ------\
!, -'-
'--
IBM MAJNT~NANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM
CORE STORAGE FUNCTION TEST LOW CORE TEST
RSRAJ RSRAK RSR AX
RS SAA RS SAC RS SAO RS SAE RSSAF RS SAG RSSAH
RSSAI RSSAJ RS SAK RS SAL RS SAM RS SAN RS SAO
RSSAP RSSAQ TWRlR TWRTO TWRTl TWROl TWR02 TWR03 Tio!SNS TWWRT kRDSW XJOSN XIOWR
ZONE ZONF.N ZONEl ZONEZZONE3
094A
fl94R
'N49
(}Al F
OA22 OA24 !'lA28 OA2'5 OA26 0!.27 'lAl9
OA?A OA2.3 OA2C: aA20 OA2E 'lA2F OA30 OA31 OA60 OA9F OAAO 'lA76 OA81 OA9B fl AAA 'lAAC OAAl OARE 0480 04E3 04E7
1}4F2
OAFO
0-807
090E
090F,0928 09EB,09FB 0902,0AlA 0904 090'5,09E0,09F3,09FF,OA06,0A14 09El,09F4 0959,0989,09E4
0987 0957 OAOO OA07 QA 11,0A3E OA35
OA38 OA16 090C 09no OA48
OA5l,OA75 OA76
OA85 OA72 OAllO,OA9E OA94 0839,0A6F,OA79,0A8E 083C,OA78,0A8D OA6E,OA92,0A98,0A9C
OA9l OA9A OAC4 OAE3 OAE4 OAE5 OAE6
PART NO. 2191208
PAGE
21
---"_/ 2';_,__,
\
'---
--,------- ( --(/
-\_
--, ---\ \ ...___ .
'\,__ _
..,_ J
1
:.,
J
fl
j-
ti
--( '---
-·\'.. ___/
/
- - - \'
,,____,,..
..... ___ _..
··-""'
.-
DATE EC NO.
OlMAY66 41'54908
: :
(
-,
PROG JD 03A2-l
!"\
PAGE
21
\ "-...___ _/
ISM HAINTENANCL DlAGNllSTIC PROGRAM FOP. THE 1130 SYSTEM METER TEST
PART ND. 2191250
PAGE
1
TABLE OF CONTENTS
. . l. P~RPPSE · · 9 · · · .;
2. PREREQUISITES. ~
. . . . . . .
···
. . . . . . Oll Oll
2.1 PRCGRAM
2.2
E~UJP~ENT
. . 3. USE PROCECURE. ·
· · · · · · · · · · · · · · · · · · · · · · OIA
3.1 3.2 3.2.1 3.2.2 3.2.3 3.2.4 3.2.5
3.3 3.4
LOADING
O"E~ATION
SYSTEll'S l/U CONFIGURATION l/C READY C.E. HETEM TEST C'JSTOHER !'lt:TER TEST
C~ll.TROL Cl~CUITRY
1111\IJS
rFRll'JNATIONS
4. P~INTOUTS lNONEJ
COll'll'ENTS (METHOD UF TESll 9 · 1 · · · · · · · · · · · · · · · · C2A
APPENDIX (11.0NEJ
I
\~
\_...--··
0 0
· Q
Q
-u 0
0 ()
0 .J
() 0
< I
()
,-, -,
-----------....,,---------------~-~-- ..-...-.> ,, . -.
I\..
.,.
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM METER TEST
PART NO. 2191250
PAGE
lA
lo PURPOSE
A.
TO CHECK lHF AC.C.URACY m ALL CF THE USE r-:HERS.
B.
WHEN THE 1111 USE METER IS SWITCHED TO C.E MuDE, ONLY THE c.E. METER
AO VANCE~.;
'I
2. PREREC\J IS IT&:S
PROGRAM
THIS PRObRA· noes NOT RU-. UNDER CO~TROL OF THE 1130 DIAGNOSTIC
~I
MONITOR. IT I~ SELF LOADl14G. lUSE'i THf. BASIC DIAGNOSTIC lUADERJ
2o2 EOUIPMENf
CUSTOMER EN~JNEER USE HETER KEY.
USE PROCEDURE
THE DPERATlriG PROCfDURE CONSlsrs Of fHE FOLLOWING STEPS.
1. RfCORD All flJETER READINGS 2. lnAD rHE PRnGRAM 3. ElllHR SYUEflJ 1/0 C014FIGURATIDU IN THE CO,,SOlE ENTRY S.,ITCHES.(WAIJll
4. SET TtlE r.;LJll'BER "F 72 ~ECOND LOOPS Ot'SIREO. CWAIT21
5. CHECK ME1ERC WHILE IN c.e. MOOE. (l~IS SEC1JON JS OPllONAL)
6. CHECK THE CUSTC~ER METERS 7. C~~PUTE THE ELAP~EC Tl~E.CBY HA~DI 8. CHECK Tt:E 14F.TER CONTROL CIRCUITS.
3.1
lOADl~G
lo RECUKD TliE READING.S ON All Of THE CUSTOMER METERS. THE CUSTOMER M
~UST ~E GIVEN CRE~JT FOR THIS lEST TIME. 2o PUT TllE 1111 ~ETER IN C.E.l'tODE. 3. PLACE C~R~S/PAPER TAPE IN READER.
4. PUT REA"['R 1:1 REAOY CONDIT ION 5. PRESS l~f llll RfSET KEY b. PRESS lHE 1131 PROGRAM LOAD KE·~
NOJE If THE PRUGRAK LOADED CORRECTLY, IT Will STOP AT WAIT le CLOC.;C2UBI
3.2 OPERATION
THE SYSTEM I/~ C.ONrlGURATION MUST NOW BE SET JN THE CONSOLE ENTRY SWITCHES. USE lHE FClLO~ING FORMAT.
BIT 13 r·~ · SYSTEM HAS ll32
BIT l~ ~N c SYSTEM HAS 1442 BIT 1~ r~ c SYSTEM HAS DISK STORAGE.
FOR EXAhPLE, If A SYS1EM HAS ALL THREE Of THE 1/0 DFVJCESe All THREE BfT SWITCHE~ WOULD tE TURNED ON. PRESS 1131 STARt BUTTON. PROGRAM WILL GO TO WAil 2. ClOC 02161
3.2.2 MAKE THE J/n UNITS RE~DYe
144l- PLACE A rEw CARDS IN THE FEED HOrPER AND PRESS THE 1442 START KEY. THE 144? RfADY LAMP SHQULD GLOW.
1131 - TURN CN THC PO.,ER SWITCH, AND PRESS THE 113? START KEY. THE 1132 READY LAMP SHOUL~ CLOW.
DATE
02HN66
;'
EC l'tO. 4llj490
'
PROG 10 03A4-0
I
PAGE
l
DATE EC NO.
02JAN·6 415490
PROG ID 03A4-0
PAGE
lA
l_. (' /
"---· \__ IBM MAINTENANCE Dl~GNO~TIC PROGRAM FOR THE llJO SYSTE~ METER TESl
~ t-
" (
(
(
"--. fi.· o"c-'' '---'.
PART NO. 2191250
-~ 0-
PAGE
2
0 0
3.2.3 1~ CHECK c.r. ~00[ ltHIS SECTlat. IS DPTIO~ALI
l. SET THE ~INSUlt fNTRY SWITCHFS TO INDICAJE THE NUMBER OF 72 S~CON~ LOOPS JHAJ YOU ~ISH tO MAKE. IF UNE LOOP IS DESIRED, TURN u~ qlT 15. IF TWO LCOPS A~E DESIKEO, TUKN ON BIT 14. ETC.
2. RtCOR~ ALL HETER READINGS. 3· PRES~ 1111 STAkT KEY.
NOTE
,0, 0 :-; I '( -
If TH~ PROGRAM STOPS AT. ~'All J (LOC.01251 TltE 1442 IS NOJ READY. ~AIT 4 (LOC.012A) T~E 1132 IS NOT RElDY. llAIT b (LOC.O.i!371 THc OISlt IS NOT RcAOY.
4. PRCG~~M WILL SJOP AT WAIT 5 fL0:.02451 WHE~ THE DESIRED DELAY IS CO~PL~rFD. ~EJEK ACCURACY SHOUL' BE PLUS OR Ml~US XX.
!>. C.c. ~ETLR SHOULD HAVE ADVANCED .02 HOURS FOR EACH LOOP RUN. THE
CUSTPMF~ ~EIERS SHUUlO NOT HAVE MOVED.
"· TU RFPEAT LllDP, PKESS START ~EY.
'. SWITU4 1111 ~fTER Off OF CE MOOE.
3.2.4 Jn CHEtK Ol~TOM[R METERS
'° l. SET me r.o~~lf E~tRY SWITCt::s
INDICATE THE NUMBER OF 72
SECCND tr.OPS JHAT YOU WISH to ~&1(£. IF O~E LOUP IS DESIRED,
fUR"! ON !.IH 15. If two LOOPS ME DESIRED. TURN ON BIT 14. ETC.
2. RECOPO All MEJER KEADINGS.
3· PKES~ 1131 START KEYe
NOTE
IF T·IS: PRUCRAN STO;tS AT· l~AIT J ILUC.02.?51 THE &4"2 IS NOT READY. ~~IT 4 ILOC.022A1 THE 1132 IS NOT READY. ~AIT 6 ILOC.02371 THE UISK IS NUT READY.
4. PROG~A~ ~Ill STOP AT WAIT S CL~:.024SI WHE~ T~E DESIRED DELAY IS C0, 0 lEJfD. HtfE~ ACCURACY SHOULD BE PLUS OR MINUS XX.
5. THE CUSTOMER ~ftE~S S~OULO HAVE ADVANCED .02 HOU~S fCR EACH LOOP PUN. TH~ c.e. MEIER SHOULD NOT HAVE MOVED.
6. ro REPr~1 LUUP, PRES\ START KEY.
3.2.5 cnNt~Ol c1qCJITRY CHECX
l. i.;HU RU~~&NG THF PROGRA" IN A 11 SECOND DELAY LOO'·
A. THE 1112 "4ETE1t SHOULD STOP IF THE 1132 CARRIAGE RESTORE OR CARRIA~E SPACt KEY IS PltfSSED.
8. THE 1442 :-~EfER ~HOULD STOP IF THE 1442 NPRO KEY IS PRESSED.
2. CHECK THU r.o Hf--:FMS ARE li'!OVING WHILE PROGRAM IS AT WAIT 5.
3. WHE~~VER T"!,E 1131 ~EfER IS tUR~FO ON, THERE IS A DELA\ CIRCUIT
THAT KEF.rS rHE Hl:TER R~NrllNG FOil A "'IN!MUM OF 41'0 MILLISECONDS.
--
TO fHECK THIS CIRLUIT, SET THE 1131 MLDE SWITCH TO SINGLE
!
INSTRUCTIO~tSI>. WHEN THE 1131 START KEY IS PRESSEDt THE RUl't
LA'P SH~ULC GLOW FOR AN INSTANT 1400M.S.I If JRl'IUBLE IS SUSPECTED
AN O~ClllOSCOPE SH~ULD BE USED.
.~,
'.-)
!)
DATE EC NO.
02JAN66 415490
PRDG ID OJA4-0
PAGE
Z
.~,
0
,,
~
0 t
!!
- ,,.~··"
I
'·
I
\
I\.___,
\'-....__,_,.
IRM MAl~TENA~CE OIAG~OSTIC PRCGRAH FOR THE 1110 SYSIEM
METER JEST
>
'
.
/ \
PART NO. 2191250
PAGE
2A
i \
'·
I
:I
3.J WAHS
WAIT l tLOC ~2~BI SET THE 1/0 CONFIGURATICN IN THE CONSOLE ENTRY SWITCHES.PRESS THE 1131 START BUTTON.
WAIT 2 ILOC 02lbl SET THE CONSOLE ENTRY SWITCHES TO INDICATE THE
NUMRER OF 72 SECONO (.02 HOURS! LOOPS DESIRFO. PRESS 1131 SIAqT eurro~ TO B~GIN TEST.
~AIT 3
lLOC.c2z;1 THE 1~42 IS NOT READY. TO RESTART, PUT 1442 IN REAOY srATus, ANO START TaE PROGRAM AT ·SENSE' tLOC 02111 fCCNSOLE ENTRY S~ITCHES SHOULD STILL HAVE MIMBER OF LOOPS DES IPEO I
WllT 4
lLOCJ22AJ THE 1132 IS NOT READY. TO RESTART, PUT 1132 IN REA~Y STATUS, 4ND START J~E PROGRAM AT 1 SfNSE' ILOC.02171.
ICC~30lc ENTRY SWITCHES SHOULD Still HAVE T~E NUMBER Of LOOPS Cl:.S IP.EO. t
WAIJ 5 «LOt 024~1 END OF TEST. PRESS 1131 START BUTTON TO REPEAT 1ESJ9
W'IT 6
CLCC 0237> THE VISK IS NOT ~F.AOY. TO RESTART, PUT THE DISK IN 'REl~Y' STAJUS, ANO START THE PROGRAM AT ·SENSE' (LOC.0217t ICC~~Olt ENTRY SWITCHES SHOULD STILL HAVE T~E NUMBER OF LOOPS
Cf:S lllEC. t
JfRI' INATIO..S
n·e PROGKU'' Wlll STIJP AT WAIT ~ ILOC.0245 IWHE!ll THE TEST IS COMPLETED.
TO KEPEAJ T£ST, PRESS 1131 STARJ BUTTON.
"· PRINTOUJS r:mrcEI
59 COl'l'ENJS
Tt1E TESTlt.G METhOO IS l.CC.OMPLISH[O Dr·E Of TWO WAYS.
1. IF TH~ SYSTEM IS EQ~IPPED WITH ~ISK STORAGE, 7.1 SECDNOS OF EACH 72 SECC~D DELAY LJGP ~Ill BE ~S~D TO ACCESS THE OISK CARRAIGE. ThlS =~fC~S lHE CIRCUITRY TO THE ·use MEJER 1 FRO~ THE 'SEEK· CIRCUITS. tHt REMAININ~ 64.8 SECOND DELAY IS ACCOMPLISHED BY AUD·?IC~ IN THf ACCUMULATUR. 7.2 SECONDS · ONE DIVISION ON THE ·USF ~fTEll' ·
z. If T~f SY~lE~ IS NOT EQUIPPED WITH DISK STORAGE, THE ENtlRE 72 SECOND ~ELAY IS AC~ON~LIShED IN THE ACCUMULATOR.
DATE EC NO.
02JAN66 41-;"90
i
'
PROG ID OJA4-0
PAGE
2A
'
~
(
(
\..._.
\........
I
\_.
··-... .-'
IBM MAINTF.NANCE DIAGNOSTIC PROGRAM FDR THE 1130 SYSTEM METER TEST
02BC
OlF4 00 6500025E OlF6 00 6D000009 01F8 00 65000263 OlFA 00 6DOOOOOA OlFC 00 65000268 OlFE 01'.' 6000CIOOC
0200 0 6220 0201 0 6107 0202 00 C4000270 0204 0 D200 0205 0 7201 0206 0 7!FF 0207 O 70FC 0208 00 C400026E 020A 0 0200
0208 0 020C 0 020D Cl 020E 0 020F 0
0210 0 0211 0 0212 0 0211 0 0214 0
0215 0
3001 0865 C078 D07A 1801
0076 1801 0075 C075 4804 7017
0216 0 3(102 0217 0 085A 021P 00 67800286 021A 0 C06C
021£: 0 4804 021C 0 7007 021D 0 C06A 021E 0 4804 021F 0 7009
0220 0 C068 0221 0 4l'04 0222 0 7.)25 0223 () 7018 0224 0 084F
0225 0 3003 0226 0 4804 0227 0 70FD 0228 0 1oc4 0229 0 OB4C OZ2A 0 3004
Al'S
ORG
500
··············································
····IN·T·E·R·R·U··PT···T·R·A·N·S·F·ER···V·E·C·T·O·R·S··················
BEGIN LOX Ll INTI
STX L1 /0009
LOX Ll INTZ
STX Ll /OOOA
LDX L1 INT4
STX Ll /OOOC
··············································
·· ··C·LE·A·R···1·1·3·2··SC·A·N···F·IE·L·O························
LOX Z 32
LOX 1 7
LO L DSWRl
SET ACC TO 0
CLEAR STO 2
SET PRINT AREA TO 0
MOX 2 l
MDX l -1
MOX
CLEAR
LO L HOME
·······ST·O·····2·············S·E·T··l.O··C··3·9··T·O··0·0·0·1··
*o READ THE CONSOLE ENTRY SWITCHES TO DETERMINE THE S~STEH CONFIGURATION
**················BBB·IIITTT···l1154·3&·s···D1H·1I4S·3K2·2···················
WAITl WAIT 1
ENTER SYS CONF.
XIO
CESWS
LO
COUNT
STD
OISKl
SRA
1
STD
SRPl
SU
l
STD
PRTR2
LO
DISKl
SSC
E
········M·D·X······D·IS·K····························
·*· ··RST·EAA·DR·T··TH·TH·EE··C·O1·N1·3S·O2·LE·A·N·OE·N·TT·RHY·E··S1·W4·4I·T2·C·HM·EE·ST·E·R·S·········
WAITZ WAIT 2
ENTER NO OF DLY LOOPS
SENSE XIO
CESWS
SENSE CON ENTRY SWS
LOX 13 COUNT
XR3· LOOP COUNT
LO
SR P l
BSC
E
MDX
SRP2
START 1442
SNSl LO
PRTR2
SSC
E
MDX
PRTRJ
START 1132
SNSZ LO
DISKl
BSC
E
MDX
TESTO
MOX
AODl
SRPZ XIO
SRP
START 1442.
WAIT3 WAIT 3
ND RESP. FROM 1442
BSC
E
IS 1442 READY
MOX
WAITJ
MDX
SNSl
PRTR3 XID
PRTR
START 1132.
WAIT4 WAIT 4
NO RESP. FROM 1132
DATE EC NJ.
C'2JAN66 415490
PART NO. 2191248
PAGE
l
UMTOOOOO
UMTOOOlO UMT00020 UMT00030
UMT00040 UHT00050
UMT00060 UHT00070 UMTOOOBO UMT00090 UHTOOlOO UMTOOUO CMT00120
U"'TOOlJO UMT00140 UMTOOlSO UMT00160 UMT00170 UHT00180 UMTOOl90 UMT00200 UMT002l0 UHTOOZZO UHT00230 UHT00240 UMT00250 UMTOOZ60 UHTOOZ70 UHTOOZ80 UHTOOZ90 UHT00300 UMT003l0 UHT003ZO UHT00330 UMT00340 UMT00350 UMT00360 UMT00370 UMT00380 UMT00390 UHT00400 UMT00410 UMT00420 UMT00olt30 UMT00440 UMTOOlt50 UMT00460 UMT00470 UMT00480 UMT00490 UMT00500 UMT00510 UMT00520 UMT00530 UMT00540 UMT00550 UMT00560 UMT00570 UMT00580 UMT00590 UMT00600 UMT006l0 UMT00620 UMT00630 UMT00640 UMT00650 UMT00660 UMT00670
PROG ID 03&4-0
PAGE
l
0 .i
I
Ii
·· ' '
0
0
.-,
j
0
,,.
. '
.
· ·
t I
. ·
)
I \
,
_
,
.(
\...__
\'-....
' \
'---'
IOH MAINTENANCE DIAGNOSTIC PROGRA~I FOR THE 1130 SYSTEM METER TEST
0228 O 084C 022C 0 70F3
OZZO 00 OCOOOZ10 OZ2F 0 lOOZ OZ30 00 4C280Z:7 023Z 0 lOOZ OZ33 00 4CZ80216 OZ35 00 OC00026E 0237 0 3006 02'38 0 1004 0239 0 4810 OZ3A 0 70fA OZ3B 0 70DA
OZ3C 0 6148 0230 0 C04C OZ3E 0 80ZF 023F 0 ltBZO '!240 0 70FD
0241 c 71FF
024Z 0 70FA 0243 0 73FF 0244 0 70F7 0245 0 3005 0246 00 4C0002l7
0248 0
021tca o
024A 0 0248 0 024C 0
0240 0 OZ4E 0 0Z4F 0
0250 0 0251 0 0252 0 0253 0 OZ54 0 0255 0 0256 0 0257 0 OZ58 0 0259 0 OZ5A 0 0258 0 OZ5C 0 0250 0
0831 3COO
0831 3000 082D 3000 0820 3000 OBZD 3000 08ZD 3000 COlB 6l3C 8017 48ZO 70FD 71FF 70F8 73FF
70E8 70E7
OZ5E 0001 OZ5F 00 OCOOOZ81t OZ61 00 4CC0025E
OZ63 0001 OZ6~ 00 OC000270
XID
PRTAl
STOP THE ll3Z INTR
·
MDX
SNSZ
·······SE··T·····D···IS··K····T··O····H··O··M··E·································~······················*
DISK XIO L DSWRl
IS DISK RDY
SLA
Z
BSC L WAIT6,+Z IF NOT RDY GO TD WT6
SLA
Z
esc L WAIT2,+Z IS CARR HOME
SEEK XIO L HOME
SEEK -1 CYL
WAIT~ WAIT
6
DISK NOT READY
SLA
It
BSC
IS CARR HC"'E
MDX
SEEK
MOX
WAITZ
·*··M·72·f:·iE·SRE·C·OT·NE·DS·T·D··EL·A·Y··U··S·IN·G···O~N·LY··l·H·E···C·PU··········
A··D·D·l··L·O·X··$··l ··7Z··········C·O·N··!IT·A·t·,iT··········~··
ADDZ LO
NUM
ADD3 A
HOME
AOD l TD &Cr.UH
SSC
l
MDX
.AD03
MOX l -l
MODI FY CONST ANT
MOX
AD02
~ox 3 -l
MODIFY LOOP COUNT
MDX
ADDI
WAITS WAIT 5
END Of TEST
SSC L SENSE
*·*···1MZ·E·T·ESR.·E·COT·NE·DS·T·D··EL·A·Y···U·S·IN·G···TH·E···~·H·S·K··I.N·O···T·H·E··C·P·U··
·TE·S·T·O···X·IO·······D·L·Y·l ········SE·E·K·~+Z·C··2··CY··L········
WAIT
XIO
DLY2
SEEK-202 C'IL
WAIT
XIO
DLYl
SEEK+202 CYL
WAIT
110
DLYZ
SEEIC-202 CYL
WAIT
XIO
OLY3
SEEK+76 CYL
WAIT
XIO
DLYlt
SEEK-76 CYL
WAIT
LO
DSWRl
CLEAR ACCUM
LOX l 60
CONSHNT
ADO A
HOME
ADD l TD ACCUM
BSC
l
MDX
ADO
MDX l -1
MODIFY CONSTANT
MDX
ADD
MDX :; -1
MODIFY LOOP COUNT
MOX
TESTO
·*······IN··T··E··R··MR··DUX··P··T······SU····WB··RA··DI··TU·5·J··IN··E··S···············································
INTL BSS
l
llJ2
XIO L DSWR3
SENSE DSW
BOSC I INTl
INTZ ass
1
DISK
XIO L DSWRl
SENSE DSW
DATE EC NO.
OZJAfl66 415490
PART NO. Zl91Z48
PAGE
lA
UMT00680
.UMT00690 UMTOOTOO
UMTOOllO UMT00720 UHT00730
UMT00740 UMT00750 UHT00760 UHT00770 UMT00780 UHT00790 UMTOOBOO UMT00810 Ul'IT00820
UMT00830 UHT00840 UMT00850 UMT00860 UHT00670 UHT00880 UMTOOB90 UKT00900 llHT00910 UMT009ZO UMTOC930 UMT00940 UHT00950 UMT00960 UMT00970 UMJ00980 UMT00990 UMT01000 UHTOlOlO UMTOlOZO UMT01030 UMT01040
UMTOl050 UMTOl060
UHT0l070 UMT01080 UMT01090 UMTOllOO UHTOlllO UHT01120
UMT01l30 UHT01140
UMT01150 UMT01160 UMT01170 UM101180 UMT01190 UMT01200 UMT01210 UHTOIZZO UMT01230 UHTOl240 UMTOl250 UHT01260 UHT01?70 UMT01Z80 UMTOl290 UMT01300 IJMT013l0 UMT013ZO UMTOl330 UMJ01140 UMTOl350
PRDG JD 03&4-0
PAGE
lA
_,,,
l __ l __
'--
~-
IBM MAINTENANCE DIAGNOSllC PROGRAM FOR THE 1130 SYSTEM METER TEST
rt) _
I \
'----
r
' '
-,
\
"
"" .., '"--~.- f ' :::-,.__ -·
'---
__I
\ ,
/
"-
· I
PART NO. 2191241
PAGE
2
t I
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM
· I
METER TEST
0266 00 4CCC0263
0268
0001
0269 I) I) ocono282
026B 00 4CC00268
026!' 026E 0 026F 0 0270 0
0271 0 0272 0 0273 0 0274 0 02 75 (' 0276 0 0277 0 0278 0 0279 0 027A 0 027B 0 027C (' 0270 0 027E 0 027F 0 0280 0 0281 0 0282 0
0283 0 0284 0 0285 0 02 81.> 0 0287 0 0288 0 0289 0 028A 0 02BC
0000 OCOl 2404 0000 2701 0281.> 3AOO
nr·oo
l '"'2 0000 3480 001)1) 3440 OOCA 2400 OOCA 2404 004C 2400 004C 2404 0000 1702 <10(10
3701 0000 0000 0000
ocoo
1340 Olf4
BOSC
INT2
. INT4 BSS
l
XIO L DSWR2
1442 SENSE DSW
········1··/0······CB··OO··~SC··T··R··O&··L····CI··NO··MT··M4··A··N··D··S····A··N··D····C··O··N··S··T··A··N··T··S···················
BSS E 0
HOME DC
/0001
IOCC TO SEEK HOME
DC
/2404
OSOiRl DC
/COOO
JOCC TO SENSE ANO
DC CESWS DC
/2701 COUNT
RESET DISK
IDCC TO RD CE sws
DC
Sl{P oc
/3AOO 10000
tOCC TO START 1442
DC
/1402
HETER
PRTR DC
/OCiOO
IOCC TO START 1132
DC
/3480
HETER
PRTll.l DC
/0000
IOCC TO STOP 1132
DC
/3440
EM IT I NTERKUl'TS
DLYl DC
/OOCA
IOCC SEEK TO 202
DC DLY2 DC
/2400 /OOCA
FRuM HOME
1oc: SEEK TO HOME
DC
/Z4C4
FROM 202
DLY3 DC
/004C
IOCC SEEK JO 076
DC
/2400
FRO.,; HOME
DLY4 DC
/004C
IOCC SEEK TO HOME
DC
/2404
FkOM 076
osw~? DC
oc
/0000 11702
IOCC TO SENSE ANO RESET 1442 OSlll
OSWR3 DC
/0000
IOCC TO SENSE ANO
DC
/37(11
RESET 1132 DSW
C'JUNT DC
SR Pl c;c
10000 ,0000
CON ENTRY SW SETTING ·SYSTEM HAS 1442
PRTR2 DC
0000
SYSTEM HAS 1132
0 I SKI DC
OOClO
SYSTEM HAS DISK
NUM DC
/1340
END
BEGIN
UMTOl360 UMTOl370 UHT01380 UMT01390 UMT01400 UMT01410 UMT01420 UHT'>l430 UMT01440 UHT01450 UHT01460 UHT01470 UHT01480 UHTOl490 UMT01500 UHT01510 Ul1T01520 Ul1i01530 Ul4T01540 Ul1T01550 UMT01560 UHT01570 UMT01580 UMT01590 U!4T01600 UMT01610 UMT01620 UMT01630 UMT01640 Ul1T01650 UMT01660 Ul1T01670 UMT01680 UMT01690 UMTOl 700 UHTOl 710 UMT01720 UMT01730 UMT01740
.... t
,)
· ·
CROSS REFERENCE LISTING
SYMBOL
ADD ADDl ADD2 AD03 BEGIN CESWS CLEAR COUNT DISK DI SKl DLYl DLY2
DLY3 DLY4 OSWRl DSWR2 DSWR3 HOME INTI INT2 lNT4 NUM PRTR PRTRl PRTR2 PRTR3 SEEK SENSE SNSl SNS2 SRP SR Pl
SRP2 TES TO
WAITl WAITZ WAIT3 WAIT4
WAITS WAIT6
VALUE 0256 023C 023D 023E Olf4 0272 0204 0286 0220 0289
027A 027C 027E
0280 0270 0282 0284 026E
025E 0263 OZ68 028A 0276 0278 0288 0229
0235 0217 0210 0220 0274 0287
0224 02.;9
(1208
0216 0225 022A 0245 0237
REFERENCES 0258,025.l 0223,0244 0242 0240 028B 02oc,0211 0207 0200,021a.0212 0215 020E ,0213,0220 0248,024£ 024A,024E 0250 0252 0202,0z2D.0254,0261t 0269 025F ozo8,0235,023Es0256 OlF4,0261 OlF 8,0266 OlFC,0268 0230 0229 0228 0212,0210 02lf 023A 0246 0228 022C 0224 0210,021A 021C 0222,02sc
0233,0238 0227
0250 0230
/---
( '
(
_/
PART NO. 2191241
PACE
2A
our
EC NO.
PROG ID 03A4'-0
PAGE
2
n
.
!
0
.. .r-'
!)
.._, i'\
DATE EC NO.
02JAN66 415490
PROG ID 03A4-0
PAGE
2A
c c- l__ L ~ I
'~
~\
\
'------''
!----..
\_____,.
,,,,----~,
(
'------''
c·
,,.-,_
L
L-./_.--"·,,
L
,-,
,( _____,
~
\ )_____
,~-
(
l BM 114AI NTENANCE DIAGNOSTIC P~OGRAM FOR THE: 1130 SYSTEM CORE ADJUSTMENT TEST
PART NO. 21912-+4
PAGE
1
02BC
012C 0 1010 0120 00 04000000 012F 0 COOA 0130 0 OOOA 0131 00 04800138 0133 00 74000000 0135 0 7006 0136 0 1001 0137 00 04000138 0139 0 70F7 013A 0 1000 0138 0 0000 013C 0 COFE 0130 00 4C280148 Ol3F 0 903C 0140 0 COOi 0141 00 66000000 0143 00 65000170 0145 00 4400014E 0147 0 72FF 0148 0' 70FC 0149 0 30FF 014A 0 70El
0148 00 66007E82 0140 0 70f5
014E 0 0000 014F 0 6925 0150 0 C024 0151 0 1003 0152 0 4828 0153 0 7018 01S4 0 · C020 0155 0 E020 0156 0 F020 0157 00 4Cl80160 0159 0 COlB OlSA 0 EOlO OlSB 0 FOlO OlSCOO 4Cl80l60 015E 0 1810 015F 00 04800175 0161 0 C013 0162 0 E017 0163 0 4818 01640 700S 0165 00 C4800l7S 0167 0 F013 0168 00 0490017S 016A 0 7101 0168 00 4C800l4E
0160 0 cooo
Cl6E 0 70FO
016F 0 coos
0170 0 EOOS 0171 0 F004 ·. 0172 00 4Cl8015E 0174 0 70F8 0175 0 0000 0176 0 OFOO 0111 0 0100 0178 0 OFBO 0179 0 01&0 Ol7A 0 0040
ABS
·
ORG
300
START SLA
16
FINO CORE SIZE
STO l 0
LO
KON
STC
SIZE
AA
STC I SIZE
MD~ L o,o
MOX
CONT
SLA
1
STO L SIZE
MOX
AA
KD'll DC
11000
SIZE DC
0
:o'llT LO
SIZE
BSC L NEGN,+Z
s
LAST
STO
SETX+ l
SETX LOlC L2 0
LOX l LOX l l FIRST
= S*ETPLAXC2E
NO. DATA
LOCS
TO
REPT BS I L PLACE
SET A PATTERN
"II) )C
2 -1
CK FOR DONE ALL CORE
MDX
REPT
NO
WAIT
-1
OONE ALL CORE, ENO PROG
MOX
START
·
NE:;N LOX L2 17FFF-FIRST
·
MOX
PLACE DC
LDXl 0
PLACE PATTERN SUBRT
STX 1 TLOC
LO
HOC
GET TEST LDC ADDR
SLA
3
BSC
+Z
SKIP IF X3 = 0
MOX
FU
LO
TLOC:
!\ND
CONl
EOR
CON2
BSC L LOlS,+-
CONl = /OFOO
= CONZ IOlOC
BRNH IF X4X5X6X7
0001
LO
TLOC
ANO
CON3
EOR
CON4
CON3 = IOF80
CON4 = ICJ180
BSC L LOIS,+-
BRNH IF X4X5X6X7XB =01111
LDZS SRA
16
STD
TLOC
LO
TLOC
ANO
CONS
CONS = 10040
~SC
+-
SKIP IF Y9 = 1
"IDX
DONE
LO
TLOC
EOR
CON6
= C0"16 /FFFF
STD I TLOC
DONE MOX 1 1
BSC I PLACE
lDlS LO
CON6
EXIT FRO"I SUBRT CON6 /Ff ff
"IDX
LOZS+l
FX3 LO AlllD EOR
TLOC CONl CONl
CONl CONl
= =
IOFOO IOFOO
BSC L LDZS,+-
BR IF X4X5X6X7 1111
MOX
TLJC oc
lOlS 0
CD'lll ')C
IOFOO
:D'll2 DC:
10100
CD"l3 DC
:D'll4 oc
IOF80 10780
t::IN 5 DC
/0040
ADJOOOOO AOJOOO!O ADJ00020 AOJ00030 AOJ00040 AOJ00050 ADJ00060 ADJ00070 AOJ00080 AOJ00090 ADJOOlOO
AOJOOllO ADJ00120 ADJ00130 AOJ00140 ADJ00150 ADJ00160 AOJ00170 ADJ00180 ADJ00190 ADJ00200 ADJ00210 AOJ00220
ADJ00230 AOJ00240 ADJ00250 ADJ00260 ADJ00270 ADJ00280 AOJ00290 ADJ00300 ADJ00310 ADJ00320 ADJ00330 ADJ00340 ADJ003SO ADJ00360 ADJ00370 ADJ00380 ADJ00390 ADJ00400 ADJ004l0 AOJ00420 AOJ00430 ADJ00440
ADJ00450 AOJ00460 ADJ00470 ADJ00480 ADJ00490 AOJOOSOO ADJ00510 AOJ00520 AOJ00530 ALtJOOS40 ADJ00550 ADJ00560
ADJ00570 ADJ00580 ADJ00590 Al'J00600 ADJ00610 ADJ00620 A'.)J00630 AOJ006'. 0
ADJ00650 AOJ00660
ADJ00670
DATE EC NO.
02JAN66 415490
l 5110V66 419643
P:lGG JO Cl3A6-0
PAGE
1
.. /'-· ... '" /,,.---
· C_./ \'-...__,/
1
· ·
l
J
J ··
J ·.
J I ·...
1 ·
l ..
·
.. I ..
-
I
I
..
,----
I
' \ ~
c,
/ / - ........ I \.,__./
(-
\.._,;
( _/
(,.-----.,
\.._,
~.
~/
/--,
( \, /
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM CORE ADJUSTMENT TEST
0178 0 017C 0 0170 0
017E
FFFF 0170 0000 012C
C:0'116 DC LAST DC FIUT DC
ENO
IFFFF FIRST 0 START
FIRST LDC OF PATTERN
L;i,.,,,,,---·--.
L),.----
PART r~o. 2191241t
PAGE
IA
AC>J00680 AOJ00690 AOJ00700 ADJ00710
·-
I
,,~--
~-
·L).
(
"~·
-.!
..
-
!
'
-·
~
·
..
DATE
02JAN66 15'110V66
EC NO.
41S490
419643
. ~
1 1 1
l
-,
I
-,
PROG JD 0346-0
PAGE
lA
'
'
·
IBM MAINTENANCE DIAG~DSTIC PROGRAM FOR THE 1130 SYSTEM
·
PART NO. 2191244
PAGE
2
~ORE ADJUSTMENT TEST
J
CROSS REFERENCE LISTIN~
J
SYMBOL VALUE
REFEltENCcS
AA CONT
0131
one
0139 0135
J
CDNl 0176
01551017010171
CONZ '0171
0156
cor.;3 0178
015A
J
CDN4 0179
0158
CON5 017A
0162
CON6 0178
016710160
J
DDNE Ol6A
0164
FIRST 0170
FX3
Ol6F
0143101481 o: 7C 0153
· ·
KON
013A
011F
LAST LDXl
OllC 0143
013F 0140
·
LDZS 015E
Ol6E10172
LDlS 016D NEGN . 0148
0151101sc10:11t 0130
·
PLACE Ol4E
0145, 0168
REPT 0145
0148
SETX 0141
0140
SIZE 0138
013010131101171013C
START 012C
014A1017E
.
TLOC 0175
014F 1 01501 0l5410159,0l5F10161,016510l6810l6F
'·'
-.
· ;
,-
r r .
. -
DATE EC NO.
02JAN66 15~DV66 415490 419641
PROG ID 03A6-0
PAGE
2
)
./
.:)
---,, ·,~
,,.. ·-~ .....
)
'-. ____/
,.)
...,
...,___)
------I
,___/
.- -....,
''-._/
/)
'·-._/
\ ,,_.,/
_,.,
. )
......_ . /
.. -,)
·,___/
.:J ,-) -~
,'-)
/')
·~
/,....--.",
0
_ ................
\
·J
--')
'-.___/
.. ,
\
...,____/
·'""'\ I
......../
\
<__)
"\
·J
----"
·J
--'\
I
"-_,/
-\
J
---\ ---....., ....___) , ...______.
:··) . ---, ·J
. )
----
/'"'.
·J
'\ ,...__)
......______, ··I'
I
! ..
I>
L I'------/
(
\.__
('---
(
'--
"'--"
1.
'----
''-...
.:1l'
"·---·-,
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130- SYSTEM CORE ADJU~TMENT TEST
PART NO. 2191244
PAGE
2
CROSS REFERENCE LISTING
SYMB'.JL AA CONT CONl CON2
CON3
CDN4
cm15
CON6
DONE FIRST
FX3
KON LAST LDXl LDZS LOIS NEGN
PLACE
REPT SETX SIZE
START
TLOC
VALUE
0131 013C 0176 0177 0178 0179
Ol7A
0178 016A 0170 016F 013A
017C 0143
Ol5E 0160 OlltB
OlltE 0145 0141 0138
012C 0175
REFERENCES
0139 0135 0155e0170e0171 0156
015A
0158 0162 0167e0160 0164 Ollt3e017C 0153 012F 013F.Ollt8 OlltD Ol6E,Ol72 Oi571015C 1 ClH 0130 0145,0168
0148 OlltO 0130.0l31.0l37.0IJC Ol4A,017E 014F.0150.0l54.0l5910ISF.0101.0165e0161e016F
..
J
(
'--
.1 '
·
u
tJ
I
(
·'-.__..
'--
(
.___,,, '
i
\
.....__,
DATE
EC NO.·
02JAN66 <tl 5490
..
~ ;
..
I
·
PROG ID OJA6-0
·
PAGE
Z
·
·
. .\
-------.......-·----···----
/
_,,..--
L- \___;' .. -(./'
-Cl
--L~--- L'--
II'· MAINTEN.lNCE DIAGNOSTIC PROGRAM FOk THE 1130 SYSJEft
llJO JNTERRU'T TEST
PART NO. 2191270
PAGE
0001
TABLE OF CONTENTS
0001
. . . . . . . . . . . . . l. PURPOSE · ··· · · · · · · · · · · · · · · · · · · · · · · · · ·
z. 'REREQU IS ITES. · · · · · .·
· · · ·
z.1 PROGRAft Pllf.REOUISJTES
..... ... .... ... z.z
E~UJPMENT 'llEllEQUJSITES
OPERATING 'RDCEDURES · · · · · ~
·.
3.1 PROGRAM LOADING 3.2 PROGRAM O,ERATIONS 3.3 WAITS AND LOOPS 3.lt c.E. SCOPE D'TIONS
It. PRINTOUTS INONEJ
5. PROGRAft PHILOSOPHY · · · · · · · · · · · · · · · · · · · · · · ·
6. APPENDIX INONEI
1. PURPOSE
THE 1130 INTERRUPT TEST PROGRAM IS DESIGNED TO-ISOLATE INTERRUPT FAILURES
WHICH COULD PREVENT THE LOADING OF OTHER PROGRAMS WITH THE BASIC .DIAGNOSTIC
LOADER IN THE 1 LOAD AND GO MOOE. 1 THE PROGRAM EXECUTES 2 BASIC TESTS OR AN
AUTOMATIC LEVEL RESET LOOP FOR SCOPING THE .CAUSE OF A l.EYEL NOT BEING RESET.
TEST 1 [S RUN ON ALL DEVICES ANO CHECKS THE BASIC OPERATION OF THE INTER-
RUPT FORCED BRANCH, THE PROPER EXECUTION OF A LEVEL 4 INTERRUPT, AND
ISOLATES INTERRUPT LEVE.LS WHICH ARE NOT BEING RESET.
-
TEST 2 IS RUN ON THE 1442 READER AND CHECKS THE PROPER EXECUTION OF A
LEVEL 4 INTERRUPT IN CONJUNCTION ~ITH A LEVEL O.INTERRUPT, .THE ARRIVAL OF
AN END OP EITHE-R TOO SOON OR TOO LATE IN' CONJUNCTION NlTH THE COLUMN
INTERRUPT, ANO PROPER EXECUTION OF A LEVEL 0 INTERRUPT. .
BOTH TESTS FROVIDE ERROR WAITS, ERROR LOOPS, AND. SCOPE LOOP ROUTINES TO
HELP DIAGNOSE THE FAILURE lNO t.ID IN A OUICK REPAIR.
, ' ' - .-
Lt:vn THE AuTOMATJc
RfsET Loop MODE _1s · F;o· scoPtNG THE R_EsET PaoeLEM AND A
WAIT INDICATE THE R~SETTING OF THE INTERRUP_Tt IF' IT OCCURS.
2. PREREQU JS ITES
2.1 PROGRAM PREREQUISITES 1130 BASIC DIAGNO$Tic LQ~oe·.
2.2 EQUIPMENT PREREQUISITES
CARD READER OR PAPEJt TA'E READER;.' - _-
J. OPERATING ,ROcEoURES
3.1 PROGRAM LOADING
l. THE 1130 INTERRUPT TE$T IS IOADED BY THE 1130 BASIC DIAGNOSTIC
·-DATE. OlMA\'66 l5APR67 EC NO. 1tU49o 1tl96oC)5
15JU116l 420311
PROG ID PAliE
03AI-· 0001
c \_ /
l I
. )
1
J
·' 1
1
)
)
)
)
)
) 1 l )
l
]
J )
l 1
,l 1
, 1 ,
",'
1
)
,,.
-I
\"-----'",
-c-------1
_/
·('~-
\___j
L:·'
, r·· ----- --L------~----l----
u )(
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEft 1130 INTERRUPT TEST
PART NO. 2191270
PACOi:
OOOlA
LOADER. 2. SET THE C. E. INTERRUPT DELAY SWITCH TO THE 1 0N 1 POSITION. 3. SEE BASIC DIAGNOSTIC LOADER DOC.UMENTATION FOR LOADING PROCEDURE. 3.2 PROGRAM OPERATION
·· AFTER THE PROGRAM IS LOADED, A WAIT Of WILL OCCUR. AT THIS TIME, THE 110 DEVICE av WHICH fHE PROGRAM WAS LOADED, AND THE PROGRAM MODE A~E TO BE SELECT~D VIA THE_ BIT SWITCHES. SEE TABLE At WAIT 1.
THE REASON THE DEVICE WHICH LOADED THE PROGRAM MUST BE SELECTED, IS THAT WITH THE c.E. INTERRUPT DELAY SWITCH IN THE ON POSITION, THE BASIC LOADER GENERATES A LEVEL 4 INTERRUPT WHICH CAN NOT BE SERVICED. WHEN THE C~E · .INTERRUPT DELAY SWITCH IS TURf~EO OFF· TH LEVEL 4 INTERRUPT MUST BE SERVICED BEFORE ANY OTHER INTERRUPT CAN BE EXECUTED·
2. IF THE PROGRAM DETECTS NO ERRORS, AND THE AUTOMATIC LOOP RESET 140DE IS NOT SELECTED, THE PROGRAM WILL H"LT AT WAIT It. IF A
i
RERUN OF lHE PROGRAM IS DESIRED, OEPilESS START.
1
3. Al.L OTHER WAITS AND LOOPS ARE EXPLAINED IN TABL_ES A, Bo ANO C
' '
OF 3.3.
1
It. TO GO INTO A SCOPE LOOP AFTER A FAILURE HAS BEEN DETECTED,
DEPRESS START. THE SCOPE LOOP IS SET UP FOR A 2 FEEl)/CYCLE PER
l
SECOND RATE, AND A WAIT AFTER 100 FEED CYtLES HAYE BEEN EXECUTED.
THE C.E. HAS AN OPTION TO CHANGE THESE VALVES. CSEE 3.4)
'l
3.3 WAITS AND LOOPS
l. TABl.E A - TEST 1 WAITS AND SCOPE .l.OOPS -
l
WAIT 0--0P CODE 0000. NO TRANSFER TOOK PLACE FROM 110 BUSS
1
·TO B REG. LOGIC KMZOl.
WAIT F-- 1 1NITIAL 1 DEVICE SELECTION AND PROGRAM MODE SELECTION.
A·. MAr.E PROGRAM READ IN DEVICE. READY.
l
B. SELECT PROGRAM READ IN DEVICE, USING BIT SWITCHES.
-' - - O, I, ,OR 2- ;_.S ·FOLLOWS·
)
l~ BIT 0-0N AND BITS l.AN0'2 OFF ·· 144.2 READER 2. BIT l-ON AND BITS 0 AND 2 OFF ·· P.T. READER 3.; BIT 2-0N AND BITS 0 ANO 1 OFF ·· 2501 READER
c;·' IF" AUTOMATIC RESET-· MODE 1s· DESIRED, SELECT
LEVEL INVOLVED, USING BIT SWITCHES It THROUGH
7 AS FOLLDHS.
-
··., /"
-· 1./·LEYEC o-an It
2. LEVEL 1-BJT 7
- 3. LEVEL 2~Bl~6
)
4. -LEVEL 3-BITS f> AND l
S. LEY~L 4-BIT 5
6. LEVEL 5-B ITS 5' ANO 7
l-. NO BHS SELECTED - LEVEL AUTOMATIC RESET MODE WAS NOT SELECTED.
:'·'.
D. DEPRESS START
DATE 'ECl1io.
WAIT 1-DEVICE SELECTION
01MA'Y66 l5APRf>T
415490 419605
lSJUNf>.l 420317
PROG 10 03A8-·
PAGE
OOOlA
llM MAINfENANCE DIAGltOSTIC PROGRAM FOR THE llJO SYSTEM 1130 INTERRUPT TEST
PART NO. 2191210
PA<iE
0002
A. MAKE DESIRED DEVICE READY.
B. ~ELECT DESIRED DE~JCE, USING BIT S.. lTChH o, lt OR 2
AS FOLLO..S. TURN OFF BIT S.. B, IF ON.
l. BIT 0-0N ANO BITS 1 ANO 2 OFF ·· 1442 READER 2. BIT 1-0N AND BITS 0 AND 2 OFF ·· P.T. READER 3. BIT 2-0N AND BITS 0 AND 1 OFF ·· 2!'>01 READER
c.
DEPRESS START
..AIT 2-DESIRED NUMBER OF FEED CYCLES DURING SCOPE LOOP, MAKE SUR THERE ARE ENOUGH CAROS OR TAPE TO MAKE ANOTHER PASS. PUSH START TO CONTINUE SCOPE LOOP.
WAIT 3~DEYICE WENT NOT READY. LOAD CAPOS OR TAPE AND PUSH START TO CONTINUE.
WAIT 4--DEVICE. TESTED, RAN SUCCESSFULLY. TO RERUN TEST, DEPRESS START.
..AIT 5-THE 1442 1.S THE DEVICE SELEtTED ON ..HltH THE TEST .. ILL BE RUN. IF SOME OTHER DEVICE IS DESIRED, AND THIS IS NOT THE INITIAL WAIT 5, MAKE NE .. SELECTION, USING CONSOLE ENTRY S.. ITCHES. ISEE WAIT l> TURN INTERRUPT
DELAY SW. OFF IF IT IS DNt ANO DEPRESS START IF PROG. DOES NOT START OPERATION BECAUSE OF A PENDING INTERRUPT.
WAIT 6-PAPER TAPE IS THE DEVICE SELECTED ON WHICH THE TEST .. ILL
BE RUN. IF SOME OTHER DEVICE IS DESIRED, AND THIS IS NOT THE INITIAL WAIT 6t MAKE NEW SELECTION, USING CONSOLE ENTRY SWITCHES. CSEE WAIT l> TURN INTERRUPT DELAY SW OFF IF IT IS ON, AND DEPRESS START IF PROG DOES NOT START OPERATING BECAUSE OF A PENDING INTERRUPT.
..AIT 7-THE 2501 IS THE DEVICE SELECTED ON WHICH THE TEST .. ILL BE RUN. IF SO.~E OTHER DEVICE IS DESIRED, ANO THIS IS NOT
THE INITIAL WAIT 7, MAKE NEW SELECTION, USING CONSOLE ENTRY SWITCHES. CSEE WAIT l> TURN INTERRUPT DELAYS.. OFF If IT IS ON, AND DEPRESS START IF PROG DOES NOT START OPERATING BECAUSE OF A PENDING INTERRUPT.
WAIT 8-NQ DEVICE WAS SELECTED. MAKE SELECTION USING CONSOLE ENTRY SWITCHES. CSEE WAIT l) DEPRESS START.
..All A-1442 WAS DEVICE SELECTED AND IT WAS FOUND NOT READY. MAKE 1442 READY, ANO DEPRESS START.
WAIT B--,PAPER. TAPE REA~ER MAS DEVICE SELEtTEO AND FOUND NOT READY. MAKE P.T. READER READYt AND DEPRESS START.
WAIT t-2~01 WAS DEVICE SELECTED AND IT WAS FOUND NOT READY. MAKE 2501 READYt AND DEPRESS START.
WAIT 11-KO INTERRUPTS GENERATED. PROGRAM IS CHECKING ABILITY TO SET RUN TRIGGER WITH INTERRUPT OCCURRING DURING A WAIT GP. TO FURTHER CHECK RUN TRIGGER WITH PROGRAM, PUSH
START.
WAIT 12-NO INTERRUPT GENERATED. RUN TRIGGER HAS BEEN ELIMINATED AS CAUSE OF FAILURE. TO GO INTO SCOPE LOOP, PUSH START. LOGIC Kl02l.
~AIT 13-DROPPED ACOR BIT 13 WHEN GATING INTERRUPT ADDRESS FROM 1/0 BUSS TO B REG DURING BSI 12 CYCLE. TO GO INTO SCOPE LOOP, PUSH START. LOGIC KM201.
WAIT 14-A LEVEL 1 INTERRUPT ADDRESS ..AS GENERATED. TO GO INTO
DATE OlMAY66 1501167 Et NO. 415490 419605
1SJUN67 420311
PROG ID PAGE
03A8-· 0002
--·""'
-~ ·--.....,
~/
__ /
'
-- -,
)
__/
- 'I
,_/
', I I
·,_/
)
-~"-/
-' )
-,
' I
j
, __/ '
,
)
1
)
I
) 1
)
")
1
1 -,
1
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 1130 INTERRUPT TEST
PART ND. 2191270
PAGE
0002A
SCOPE LOOP, PUSH START. LOGIC KM201.
WAIT 15-A LEVEL 2 INTERRUPT AOOkESS ~AS GENERATED~ TD GO INTO SCOPE LOOP, PUSH STAkT. LOC.&C. KM201.
WAIT 16-A LEVEL 3 INTERRUPT AOO~ESS WAS GENERATED. TO GO INTO SCOPE LOOP, PUSH START~ LOGIC KM20l.
WAIT 17-PJCK AOOR BIT 15 WHEN GATING INTERRUPT AOOR FROM 1/0 BUSS TD B REG DURING BSI 12 CYCLE. TO GO INTO SCOPE LOOP, PUSH START· LOGIC. KM20l ·
WAIT 18-DROPPEO ADDR BIT 12 WHEN GATING INTERRUPT AOOR FROM l/0 RUSS TO B REG DURING BSI 12 CYCLE. TO GO INTO SCOPE LOOP PUSH START. LOGIC KM201~
WAIT 19-PICKEO AOOR BIT 14 WHEN GATING INTERRUPT AODR FROM 1/0 BUSS TO B REG DURING BSl 12 CYCLE. TO GO INTO SCOPE LOOP PUSH START. LOGIC KM20l.
WAIT lA-NO INTERRUPT ADOR BITS GATED FROM J/O BUSS TO B REG DURING SS! 12 CYC.LE. TO GO INTO SCOPE LOOP, PUSH START· LOGIC KM20l.
WAIT IC-INTERRUPT OPERATION WAS NORMAL W~EN MASKING OUT WAIT OPo SUSPECT RUN TRIGGER IS NOT BEING SET. PUSHING START WILL CAUSE l FEE~ CYCLE EACH TIME IT IS PUSHED. LOGIC KAlOl.
LOOP LEVEL 0 ON-LEVEL 0 CANNOT BE RESET. AN AUTOMATIC ~coPE LOOP IS SET UP WITH THE PROG TRYING TO RESET IT. LOGIC KM201.
LOOP LEVEL 1 ON-LEVEL l CANNOT BE RESET. AN AUTOMATIC SCOPE LOOP IS SET UP WITH THE PROGRAM TRYING TO RESET IT. LOGIC KM20l.
LOOP LEVEL 2 ON-LEVEL 2 CANNOT BE RESET. AN AUTOMATIC SCOPE LOOP IS SET UP WITH THE PROGRAM TRYING TO RESET IT. LOGIC KM20l.
LOOP LEVEL 3 ON-LEVEL 3 CANNOT BE RESET. AN AUTO~ATIC SCOPE LOOP IS SET UP WITH THE PROGRAM TRYING TO RESET IT. LOGIC KM201.
LOOP LEVEL 5 ON-LEVEL 5 CANNOT BE RESET. AN AUTOMATIC SCOPE LOOP IS SET UP WITH PROGRAM TRYING TO RESET IT. LOGIC KM201 ·
2. TABLE B - TEST 2 ..AITS ANO StOPE LOOPS
WAIT 21-NO INTERRUPTS WERE GENERATED WITHIN 500 MSEC. AFTER A CARD IS FED. THIS SHOULD HAVE BEEN ENOUGH TIME TO RECEIV BO COLUMN INTERRUPTS AND AN ENO OF INTERRUPT. TO GO INTO SCOPE LOOP, PUSH START. IF AN INTERRUPT IS GENERATED DURING THE SCOPE LOOP, A WAIT Will -IOENHFY lT LOGIC KM30
WAIT 22-NO LEVEL 4 INTERRUPT WAS GENERATED AFTER AT LEAST l COLUMN INTERRUPT WAS RECEIVED. THE ACTUAL NUMBER OF COLUMN INTERRUPTS JS DISPLAYED IN THE A REG. POSSIBLE
CAUSE COl1LD BE LEVEL 0 NOT BErnG RESET. TO GO INTO SCOPE LOOP, PUSH START LOGIC KM321~
WAIT 23-MCRE THAN 80 COLUMN INTERRUPTS WERE RECEIVED WHEN END OP WAS GENERATED. THE ACTUAL NUMBER OF COLUMN INTERRUPTS
IS DISPLAYED IN THE A REG. POSSIBLE CAUSE C.OULO HE DEVICE EMITTER. TO GO INTO SCOPE LOOP, PUSH START.
WAIT 24-LESS THAN 80 COLUMN INTERRUPTS WERE RECEIVED WHEN ENO
DATE OlMAY66 15APR67 EC NO. 41!'>490 419605
15JUN67 420317
PROG ID PA<iE
03A8-· 0002A
,__/
'------·/
-,
'
,_/
-1 _./
,_/
- ' I - "\
~ /
' I
_/
·
) ) ) ; )
l l
)
l l
-
,.--~
)
,____/
- - - - - - · · · - -···-·-------
..
c, L: L. ,-.. r
/-.
~,:
-··--- ·-------- ·-
'··
,,--
,--,
---. L.' c c Ci \_,'
I
\___..·'
~.
,,---....
L: \_. L'
~
Ll
c·,) (-~
/-· I
() "'-/' Ci Ci ...__,...
,,..--,..., / )
~
_/
,---
("---"
('
\
"---"
/
\
"---"
r··.) C", .___..,.
.. /
(''- ,,.....-...,
·....__./ (___j)
~-
( :'
'-._...;'
(";
"-...../.
c) ( ) '._./
0
c
I 1
II" "AINfENANCE DIACONOSTIC PROGRAll FOR THE 1130 SYSTEll IJJO INTERRUPT TEST
PART NO. 2191270
PAGE
0003
J l J
1 l
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 1130 INTERRUPT TEST
l'All J HD. 2191270
PAGE
0003A
OP WAS GENERATED. THE ACTUAL NUMBEk OF COLUMN INTERRUPTS IS DISPLAYED IN THE A REG. POSSIBLE CAUSE COULD BE DEVICE EMITTER. TD GO INTO SCOPE LOOP 0 PUSH START.
WAIT ZS-INTERRUPT GENERATED CAUSE A LEVEL 1 AODkESS TO BE GENERATED. POSSIBLE CAUSE COULD BE THAT ADDRESS BIT 15 WAS PICKED WHEN TRANSFERRING INTERRUPT ADDRESS FROM l/O BUSS TO B REG DURING 12 CYCLE OF A LEVEL 0 INTERRUPT. COLUMN COUNT IS DISPLAYED IN A REG. TO GO INTO SCOPE LOOPo PUSH STAIT. LOGIC KM20l.
WAIT 26-INTERRUPT GENERATE CAUSE A LEVEL 2 ADDRESS TO BE GENERATE POSSIBLE CAUSE COULD BE THAT ADDRESS BIT 14 WAS PICKED WH TRaNSFERRING INTERRUPT ADDRESS FROM 1/0 BUSS TO B REG DURING 12 CYCLE OF A LEVEL 0 INTERRUPT. COLUMN COUNT IS DISPLAYED IN A REG. TO GO INTO SCOPE LOOP 0 PUSH START. LOGIC KM201.
WAIT 27-JNTERRUPT GENE~ATED CAUSED A LEVEL 3 ADDRESS TO BE GENERATED. POSSIBLE CAUSE COULD BE THAT ADDRESS BITS 14 AND l; WERE PICKED WHEN TRANSFERRING INTERRUPT ADDRESS FROOM 1/0 BUSS TO B REG DURING I2 CYtLE OF A LEVE 0 INTERRUPT. COLUMN COUNT IS DISPLAYED IN A REG. TO GO INTO StOPE LOOP· PUSH START. LOGIC KM201.
WAIT 2B-INTERRUPT GENERATED CAUSED A LEVEL 3 ADDRESS TO BE PICKED WHEN TRANSFERRING INTERRUPT ADDRESS FROM 1/0 BUSS TO B REC. DURING 12 CYCLE Of A LEVEL 0 INTERRUPT. COLUMN COUNT JS DISPLAYED IN A REG. TO GO INTO SCOPE LOOP 0 PUSH START. LOGIC KM201.
WAIT 29-BlT 12 WAS DROPPED WHEN TRANSFERRINb INTERRUPT ADDRESS FROM l/D BUSS TO 8 REG DURING 12 CYCLE OF A LEVEL 0 INTERRUPT. COLUMN COUNT IS DISPLAYED IN A REG. TO GO INTO SCOPE LOOPo PUSH START. LOGIC KM201
3. TABLE C - AUTOMATIC LOOP RESET MODE WAITS
WAI_T 3F - AUTOMATIC. LOOP RESET MODE SELECTED. TURN C.E. INTERRUPT DELAY.SWITCH OFF~ THIS SHOULD CAUSE AN AUTOMATIC RESET LOOP .FOR THE LEVEL SELECTED IN BIT SWITCHES 4 THROUGH 7 LOGIC KT311.
WAIT 30 .,. .LEVEL 0 WAS SELECTED JN AUTOMATIC RESET ·LOOP MODE ·. A RESET OF THIS LEVEL DID OCCUR· DEPRESS START TO GO TD ...All 1.
WAIT 31 - LEVEL 1 WAS SELECTED IN AUTOMATJC RESET LOOP MODE. A RESET OF THIS LEVEL DID QC.CUR. DEPRESS START TO GO TO llAIT 1.
li!AIT 32 - LEVEL 2 WAS .SELECTED IN AUTOMATIC RESET LOOP MODE. A ~ESET OF THIS LEVEL DID OCCUR. DEPRESS START TO GO TO WAIT 1.
WAIT 33 - LEVEL 3 WAS SELECTED IN AUTOMATIC RESET LOOP MOOE. A RESE,T OF. THIS LEV.H DID OCCUR. DEPRESS START .TO GO TO WA.IT. le
W~lT 34 - LEVEL 4 WAS SELECTED IN AUTOMATIC RESET LOOP MODE. A RESET.OF·THIS LEVEL DID OCCUR.·-OEPRESS START.TO GO TO
- WAIT le
'.
WAIT 35 - LEVEL S WAS SELECTED IN AUTOMATIC RESET LOOP MODE. A RESET OF THIS LEVEL DID OCCUR. DEPRESS START TO GO TO WAIT le
c.e. SCOPE LOOP OPTIONS
DATE. Ol ..AYl>6 l5APU7 EC NO. 415490 419605
l5.IUN67 420317
PRO!> ID _ OJAI-·
PAGE
0003
-. l
j '")
..
)
)
)
j
)
j
.
) "'
)
)
1
1
-.
~,
le THE FEED CYCLE RATE IS PROGRAMED FOR 2 CYCLE PER SECOND. THIS RATE CAN BE CHANGED BY THE c.E. THROUGH THE SETTING OF Bil SWITCHES Bo 9o 10 0 OR 11 AS FOLLOWS
1. BIT sw.8 ON - 4 CYCLES PER SECOND. 2. nil SW.9 ON - 8 CYCLES PER SECOND. 3. BIT SWlO ON - 16 CYCLES PER SECOND. 4. BIT SWll ON - MAX PROGRAMED SPEED. S. NO SWS ON - 2 CYCLES PER SECOND.
THESE SWITCHES HAY BE CHANGED AT ANY TIME DuRJNG SCOPE LOOP.
2. THE NUMBER OF FEED CYCLES BETWEEN WAIT TWOS ARE PROGRAMED FOR l~O. THIS NUMBER CAN BE CHANGED BY THE c.E. THROUGH THE SETTING OF BJT SWJTCllES 12, 13, 140 OR 15 AS FOLLOWS.
·:.:r11·
1. BIT 12 ON - 25000 FEED CYCLES 2. BIT 13 ON - 250 FEED CYCLES 3. BIT t4 ON - 50 FEED tYCLES 4. BIT 15 ON - lC FEED CYCLES 5. NO BITS ON - 100 FEED CYCLES
THE SWITCHES MAY BE CHANGED AT ANY TIME DURING THE SCOPE LOOP.
~· THE C.E. HAS THE OPTION TO TERMINATE THE SCOPE LOOP ANO RETURN TO WAIT 1 FOR ANY NEW SET UP BY TURNING ON tsH SWITCH 03.
4. PRINTOUTS CNDNEI 5. PROGRAM PHILOSOPHY
INTERRUPT TEST WILL @E RUN AFTER PKOBLfM~ a.RE ENCOUNTERED WHEN TRYING TD LOAD A PROGRAM WITH THE BASIC LOADER IN Th~ LOAD AND GO MODE. THE CE INTERRUPT DELAY SWITCH IS THEN PLACED IN THE ON POSITION ANO THE C.P.u. TEST JS THEN LOADED, AGAIN USIHG THE BASIC LOADER. THE SWITCH BEING ON, ALLOMS THE C.P.U. TEST TO BE LOADED WITHOUT THE JNTE~RUPT CIRCUITRY. IF THE c.P.u. TEST RUNS SUCCESSFULLY, THEN THE INTERRUPT CIRCUITRY WOULD BECOME THE PRIME AREA OF SUSPICION AS CAUSE OF THE LOADING PROBLEM. THE INTERRUPT TEST WOULD THEN BE RUN NEXT.
THE 1NTERRUPT TEST DOES NOT CHECK ON DATA TRANSFER, BUT DOES CHECK THE PROPER OPERATION OF THE INTERRUPT FORCED BRANCH INSTRUCTION ANO THE PROPER LEVEL INTERRUPT ADDRESS. IN MOST CASES, AFTER THE TEST LOCATES THE PROBLEM ANO JOENTJFJES IT WITH THE PROPER WAITo A SCOPING LOOP .CAN BE ENTERED BY DEPRESSING START. THE C.E. HAS 3 OPTIONS AT HIS CONTROL WHILE JN THE SCOPING LOOP. THESE ARE.
1. DELAY BETWEEN FEED CYCLES 2. NUMBER OF FEED CYCLES BETWEEN WAIT 2 3. AN OPTION TO SELECT ANOTHER DEVICE JF THERE IS ONE AVAILABLE
THE INTERRUPT TEST ALSO ALLOWS THE C.E. TO SELECT AN AUTO~ATIC LEVEL RESET LOOP MODE. THIS OPTION IS TO BE USED WHEN A LEVEL CANNOT BE RESET. IF . THIS wERE THE CASE, MOST OF THE PROGRAM'S TIME WOULD Bt SPENT TRYING TO SERVICE THE INTERRUPT LEVEL ANO PROGRAM OPERATION WOULD BE VERY ERRATIC. THEREFORE, THIS OPTION IS SET UP WITH A MINIMUM OF PRO~RAM STEPS AFT~R THE C.E. INTERRUPT DELAY SWITCH IS TURNED OFF. IF THE INTERRUPT LEYEL IS RESET. A WAIT WILL INDICATE SO.
THE INTERRUPT TEST AIDS IN LOCATING PROBLEMS IN 3 BASIC AREAS. THEY ARE.
l. LEVEL -4-- IENO OPJ OF THE READ IN DEVICES 2. LEVEL 0 ICOLUMN) OF THE 1442 3. LEVELS WHICH CANNOT BE RESET
DATE 01MAY66 15APR67 EC NO. 415490 419605
15.IUN67 420317
PROG JD PAGE
OJAI-· 0003A
!
)
)
1 1
·)
"l
l
i
i i'
i lj
i
l l
l
' I
l
)
)
)
)
l
I · lt~l~UNANCE DIAGNOSTIC PROGRA" FOR .THE 1130 SYSTEM lllO l·TERIUPT TEST
PART ND. 2191270
PAGE
0004
llVEL 4 - Al THE END OF A FEED OPERATION. THIS INTERRUPT IS GENERATED. THE
ll:Sl TRAPS SUCH FAILURES AS. ·NO JNH:RRUl'T C.ENERATED DURING A VAJT OP, NO
eINnlstUDURPTINTGEERNREURAPTTEDADVDHREILSES
PROCRAN IS RUNNING· ND TRANSFER OF BSI L BITS FRON l/O BU!.S TD B REG, DROPPING OR
INSTRUCTION PICKING
, 81T:i BETWEEN 1/0 BUSS AND B REGo ANO THE DHECTIDN OF AN INTERRUPT LEVEL NOT
BUNG RESET WHILE THIS TEST. JS, BEING RUN. ALL READ/JN DEVICES USE THIS PHASE
OF THE TEST AND THE WAITS ARE IDENTIFIED BY WAIT lX WHERE X JS THE PROBLEM
IDE·TJFJH.
LEVEL 0 - THE 1442 IS THE ONLY READ/IN DEVICE USING THIS PHASE OF THE TEST. THE TEST TRAPS PRDBLE"S AS. ND IN.TERRUPT .GENERATED, NO LEVEL 4 INTERRU,.T c;l:NERATED AFTER AT LEAST l LEVEL D INTERRUPT, PICKED DR DROPPED AD.DRESS
BITS ASSOCIATED WITH A LEVEL 0 INTERRUPT. LESS THAN 8D COLUMN INTERRUPTS BEFORE AN ENO OP, AND MORE THAN 80 COLUMNS BEFORE AN END OP. THE WAITS ASSOC.IATED WITH THIS PHASE .ARE-WAIT 2X, WHERE. X IDENTIFIES THE PROBLEM.
AUTOMATIC LEVEL RESET LOOP - ALLOW SCOPING OF LEVELS WHICH CANNOT BE RESET. THIS MODE IS IDENTIFIED BY WAIT 3F. IF THE LEVEL IS RESET WHILE LOOPING, THE PROGRAM WILL WAIT. THE WAITS ASSOCIATED WITH THIS PHASE ARE-WAIT 3X, ..HERE X IDENTIFIES THE LEVEL. DEPRESSING START WILL CAUSE .THE PRDGRA" TO GD TO
WAIT 1, WHERE A NEW SETUP CAN BE "ADE.
THE TEST IS DYNAMIC WHILE TESTING LEVEL 0 AND LEVEL 4 INTERRUPT OPERATION. IF AN INTERMITTENT FAILURE IS ENCOUNTERED, THE PROGRAM WILL INDICATE EACH FAJLURE. IF THE TEST IS IN A SCOPE LOOP AND THE TROUBLE DISAPPEARS, THE PROGRA" AUTOMATICALLY RECOVERS AND TRIES TO COMPLETE A SUCCESSFUL RUN OR TRAP ANY OTHER FAILURE THAT "IGHT OCCUR.
6e APPENDIX INONEt
·
\
J
J
j
) ;-
)
) )
1
j
1
)
DATE 01MAY66 15APR67 UJUN6T
EC lllDe' 415490 , 419605
:420:n1
PROG ID 0318-·.
PAGE
0004 ' ;
i
)
,J
.. , .. ..
. ------------ ·-·----------- -------
.. ......,
-./
· ·
I I I I I I I I
c c c c c
c c
I c
l r
r.
I .... llAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM JNTHllUPT TEST
OZBC 0500 0 1000
OSOl 0 300F
0502 00 65000734 0504 00 1>0000008 0506 OD 65000744 0508 00 60000009 050A 00 65000754 050C 00 6DOOOOOA 050E 00 65000764 0510 00 6000000B 0512 00 65000770 0514 00 6DOOOOOC 0516 00 650007BB 0518 DO 60000000 051& DO 6500070B 051C 00 60000004 051E 00 650007c7 0520 00 6000000E 0522 00 650007F3 0524 00 60000000
0526 0 7001
O!!ii2l 0 3001
oo 0521
6~ooaooo
052A 0 69fB
0528 00 OLOOOA66
0520 00 C'9000A77
052F 0 llOt
0530 00 04000A78
AIS
ORG
/500
·BEGJh NOP W···A·IT·F···W·A·I·T·····/·f······························
· ·
WAIT F
· ·
· IF PROGRAM IS BEING RUN BECAUSE AN INTRPT ·
· INDICATOR JS NOT BEING CLEAREDt SST COSOLE·
··ENTRY SWITCHES 4---7 TO IDENTIFY LEVEL AT··
· FAULT AND SELECT DEVICE TO BE USED JN TEST·
··MAKE DEVICE READY AND PUSH START..
·
·
· IF PROGRAM IS BEING RUN BECAUSE OF SOME ·
· OTHER REASON THAN STATED ABOVEt
·
. · A. SELECT DEVICE V!A CONSOLE SWITCHES ·
*·*
0--2. B. MAKE DEVICE READY.
· *
* * t. PRESS START.
·
NOTE INITIAL WAIT F t SELECi PROGRAM READ
···*·········IJNN···T···E···DR···ER···VU···IC···PET·········V···E···C···TO····R·····.···S···E···T···U···P···.······························································*
MAPIT LOX Ll VECOO
STX Ll /0008
LEVEL 0
LOX Ll VECOl
STi Ll /0009
LEVEL 1
LOX Ll VEC02
STX Ll /OOOA
LEVEL 2
LOX Ll VEC03
STX Ll /OOOB
LEVEL ~
LOX Ll VEC04
STX Ll /OOOC
LEVEL 4
LOX Ll VEC05
STX Ll /0000
LEVEL 5
LOX L1 BAD12
STX Ll /0004
BIT 12 DROPPED
LDX L1 BAD14
STX Ll /OOOE
BIT 14 PICKED
LOX Ll NOADR
·
STX Ll /0000
·
MDX
lllHICH
NO INTERRUPT ADDR
·W··*·A·I·T·l··W·A·IT······1······W·A·I·T··l······················
· A. SELECT DEVICE VIA CONSOLE SWITCHES ·
.···**·····tB·.. ··M0P·RA-·KE·ES2·S·.D·SE·TV·AI. C·M.E·T·.·R·E·A·D·Y·. ·······················
WHICH LOX SU
XJO
LO SRA STD
Ll /1000 1 WA JTl-1
L BITSW
L BITSl 12
L 8ITS2
READ RIT ~WITCHES LOAh AIT SWITCHES S~l U~ FOR D~VJCE
DATE EC NO.
O&MAY66 l!!iiNOV66 15JUN67
41~4901 419605
420)17
PART NO. 2191268
PAGE
I
3A800000
3A800010
3A800020 3AB00030
3A800040 3A800050
3A800060 3A800070
3A800080 3&800090 3A800100
3A800110 3AB00120 3A800130
3A800140 3AB00150
3ABOOl60 3UO'll70 3A800180
3A800l90
3A800200 3&800210
3A800220 3A800230 3AB00240
3A800250 3A800260 3A800270
3A800280
3A800290 3A800300
3AB00310 3A800320 3A800330 3A800340
3A800350 3Atl00360 3A800370 3A800380 3U:>0390
3A800400 3A800410 3A800420 3A800430 3A800440 3A800450
3A800460 3A800470 3A800480
3All0.0490
3&800500 3&800510 3Atl00520
3AB005SO 3A800540
3A800550
3A800560 3A800570 3&800580 3&800590 3'800600 3Atl00610
3A800620 3A800630 3'800640 3A800650 3Atl00660 3A800670
PROG ID 03Al-O
PAGE
l
·
·
·
· )
· )
· )
· )
)
, ,
,
J
, '
'
t
1 J
'
, '
'
l
,
)
, ) ,
J
o-·c
. / '\
\
,'
'-.._.,./
,,----....---r·-, -
{
\
_ ..
__
,.
(
'-.__.,·'
u-- ,,...-·; .
.,,~·-·.'
0
0
,--
L
IBM MAINTENANCE OJAGNOSTIC PROGRAM FOR THE 1130 SYSTEM INTERRUPT TEST
~ART ND. 2191261
PAGE
IA
0532 0 1801 0533 00 4C0405C8 0535 0 1801 0536 00 4C0405Cl 0536 0 1801 0539 00 4C040588
053B 0 3008 053C 00 4C000528 053E 00 OCOOOA66 0540 00 C4000A77 054t2 0 1808 0543 00 04000A79 0545 0 1803 054b 00 4C040580 0548 00 C4000A79 054A 00 4C040578 054C 0 1801. 054D 00 4C040590 054F 0 1801 0550 00 4C0405A4 0552 00 4COOD6AE
0554 00 65003030 0556 00 60000739 0558 00 65003031 055A 00 6D000749 055t 00 65003032 055E 00 6D000759 0560 00 65003033 0562 00 60000769 0564 00 65003035 0566 00 600007t0 0568 00 C4C0091E 056A 00 D400073F
056C uo D400074F
056E 00 0400075F 0570 00 D400076f 0572 00 D40007t6 0574 0 303F 0575 00 4C00052i 0571 0 70FD 05.78 0 1801 0579 00 4C04059A 0571:l 0 1801 057C 00 4C0405AE
SRA
l
BSC L WHAT31E CHECK FOR 25Ul
SRA
1
BSC L WHAT21E CHECK FOR PAP~R TAPE
SRA
l
·········B·SC····L··l·if·H·A·T·l·tE······C·H·E·U···FO·R···1·4·4·2·······
· ·
lllAIT 8
·
.·····M·NO·A·KD·E·E·SVE·lCL·EE·C··NT·IAO·SN··F·AO·NUD·~·D·P·TU·OS·S·B·E·S·TS·AE·LR·ET·C··T·E·D·.·········*· ,
WAITS WAIT B
NO DEVICE SELECTED
·
BSC L WHICH
CKLOP XIO L BITSW
SET UP TO CHK AGAIN READ BIT SWITCHES
LO L 8ITS1
LOAD BIT SWITCHES
SRA
8
LEVEL ON CHECK
STD l BITS3
LEVEL CHECK BITS
SRA
3
CHECK FOR LEVEL 0 ON
l\SC L VECT01E SET UP LEVEL 0 LOOP
LD L BITS3
LEVEL CHECK lllTS
BSC L CKBIT tE NUM OF LEVEL IS ODD
SRA
l
CHECK FOR LEVEL 2 ON
BSC L VECT21E. SET UP LEVEL 2 LOOP
SRA
1
CHECK FOR LEVEL 4 ON
Bsr L VECT4tE SET UP LEVEL 4 LOOP
········BS·C····L··C··L·R·IX········N·O··R·E·S·ET···L·O·O·P··S·E·L·.··
·
WAIT 3F
·
· LEVEL RESET LOOP OPTION HAS BEEN CHOSEN. ·
· ·
TURN C.E. INTERRUPT SWITCH SHOULD SET UP AN AUTOMATIC
- OFF. THIS RESET LOOP FOR
* ·
· DEVICE AND LEVEL SELECTEDtFOR SCOPE/WORK. ·
··· ············R··ES··T··O··R··E···~··L·E·V···E·L······R··E··SE··T······LO···O···P····W··A··I··T··S···················
GOLOP LOX Ll /3030
STX Ll MOD13
RESTORE WAIT 30
LDX l l /3031
STX Ll MOD14
:.ox Ll /3032
RESTORE WAIT 31
STX Ll MOD15
RESTORE NAIT 32
LDX l l /3033
STX Ll MOD16
RESTORE WAIT 33
LDX Ll 13035
·
STX Ll MDD17
RESTORE WAIT 35
LD L MOD12+1 SET UP WAIT 1 RETURN
STD L MOD13+6
STO L MOD14+6
STO L MOD15+6
...
STD 'L MOD16+6
STD L MDD17+6
LOOPS NAIT
BSC L . MDX
·
CKBIT $RA 8SC L SRA
esc L
/3F WAITl LOOPS+l
1
VECT31E 1 VECT5tE.
CHECK FOR LEVEL 3 ON SET UP. LEVEL 3 LOOP CHECK FOR LEVEL 5 SET UP LEVEL 5 LOOP
3A800b80
3All00~90
3A800700 3Atl00710 3A800720 3A800730 3'800740 3A800750
3'800760 3Atl00770
3Atl007tlO 3At10(\790 3At100800. 3Atl00810 3Atl0082D 3All00830
3A800840 3At100850 3All008b0 3A800870 3All00880 3A800890 3A800900 3A800910 3A800920
3All00930 3A800940 3A800950
3A800960 3A800970 3A800980 3A800990 3A80l000 3AB01010
3A801020 3A801030 3A801040 3All01050 3A801060 3A801070
3A801080 3A801090 3A80UOO
3A801110 3'801120 3A80ll30 3'801140 3A80ll 50 3A801160 3'801170 3A80ll80 3'801190 3'801200 3&801210 3A801220 3A801230
3A801240 3A801250
3A801260 3A8t'l270 3U01280 3Al:l01290 3A801300 3AB01310
3A801320 3At101330 3&801340 3A80135tt'
DATI:: EC NU.
OlMAY66 l5NOV66 15JUN67 4l5490B 419605 420317
PROG ID 03Al-O
.,.,
PAGE
IA
..
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM INTERRUPT TEST
057E 00 4C000586o
0580 00 65000731 0582 00 60000576 0584 00 4C000554
0586 00 65000741 OS88 00 6D000576o 058A 00 65000740 058C 00 6D000009 058E 00 4C000~54
0590 00 65000751 0592 00 600~0576 0594 00 65000751 0596 00 6000000A 0598 00 4C000554
059A 00 65000761 059C 00 6D000576 059E 00 65000760 05AO 00 6DOOOOOB 05A2 00 4C000554
05A4 00 6500081E 05A6 00 60000576 05A8 00 65000810 05AA 00 6000000C 05AC 00 4C000554
OSAE 00 65000788 OS80 00 60000576 0582 00 65000787 0584 00 60000000 0586 00 4C000554
0588 00 OCOOOA58 05BA 00 4C0405BE 05BC 00 4C0005D~
05BE 0 300A 05BF 00 4C000528
05Cl 00 OCOOOA5A 05C3 0 l80A 05C4 00 4C0405C8 05C6 00 4C00061E
05C8 0 3008 05C9 00 4C000528
05CB 00 OCOOOASC OSCO 00 4C040501 OSCF 00 4'000666
·
BSC
VECTO LOX
STX
BSC
·vi:cn LDX
STX
LOX
STX
·
BSC
VECT2 LDX
STX
LDX
STX
·
BSC
VECT3 LDX
STX
LOX
STX
·
BSC
YECT4 LDX
STX
LDX
STX
·
BSC
VECT5 LDX
STX
..
LDX
STX
BSt
L YECTl
Ll LOOPO+l l1 LOOPS+2 L GOLOP
Ll LDOPl+l Ll LDOPS+2 Ll LOOPl Ll /00.09 L GOLDP
Ll LDOP2+1 Ll LOOPS+2 Ll LOOP2+1 Ll /OOOA L GOLDP
Ll LOOP3+1 Ll LCOPS+2 L1 LOOP3 L1 /0008 L GOLOP
Ll ·LOOP4+1 Ll LOOPS+2 Ll LOOP4 L1 /OOOC · L GOLOP
Ll LOOP5+1
L1 LOOPS+2 L1 LOOPS Ll /OOOD
L GO LOP
SET UP LEVEL l LOOP
SET LEY LOOP vu; TO.R
SET UP,GO TO WA IT 3F SET LEV LOOP VECTOR SET UP1GO TO WAIT 3F SET LEV LOOP VECTOR SET UP1GO TO WAIT 3F SET LEV LOOP VECTOR SET UP1GO TO WAIT 3F SET LEV LOOP VECTOR SET UP1GO TO WAIT 3F SET LEV LOOP VECTOR SET UPtGO TO WAIT 3F
WHATl XID L SENSE
SENSE 1442 READY
BSC L NROYA1E CHK NOT READY
·*······B·SC····L···S·E·T·4·2··ll·A·IT·.··AS·E·T··U·P··1·4·4·2··P·R·O·G··v·~·*c
· 1442 SELECTED AND NOT READY. MAKE IT READY·
*$···OERN··TR·SYO·M··ESW··OI·TTH·CE·HR·E·S·D. ·E·PVU·IC·SH·E··SS·TE·AL·ER·CT·T.·IO··N··V·IA···C·O·N·S·O·L·E···.
NRDVA WAIT /A
SEL 1442/NDT READY
·
BSC L WHICH
llHAT2 XIO L UNPT
CHK DEVICE AGAIN SENSE P.T. READY
SRA
10
BSC L NRDYB1E CHK NOT READY
·······B·SC·····L···SE·T··P·T·······S·E·T··U·P··P·.·T·.··P·RO··G··V·E·C
·
WAIT B
*
· P. T· SELECTED AffO NOT. READY· MAKE IT READY·
* OR SOME OTHER DEVICE SELECTION VIA CONSOLE*
····EN··TR·Y···S·W·I·T·C·H·E·S·.··PU··SH···S·T·A·R·T·.················*
NRDYB WAIT /8
SEL P.T./NOT READY
·
BSC L WHICH
CHK DEVICE AGAIN
WHAT3 XJO. L SEN25
SENSE 2501 READY
BSC L .· NROYCtE
CHK NOT READY
·· ······B·SC····L···S·E·T·2·5··W·A·I·T··CS·E·T··U·P··2·5·0·1··P·RO·G···V·E·C*
· 2501 SELECTED ANO NOT READY. MAKE IT READY·
· DR SOME OTHER DEVICE SELECTION VIA CONSOLE·
DATE EC NO.
OIMAY66 15NOV66 15JUN6l 4154908 419605 420)11
PART ND. 2191268
PAGE
2
3A801360 3A801370 3A801380 3A801390
3A801400 3A801410 3A801420 3A801430 3A801440 3A801450 3'801460 3A801470 3A801480 3A801490 3A801500 3A801510 3A80152il 3A801530 3A801540 3A801550 3A801560 3A801570 3A80i580 3A801590 3A801600 3A801610 3A801620 3A801630 3A801640 3A801650 3A801&60 3A801670 3A&Ol680 3A801690
3A801700 3A801710 3A801720 3A801730 3A801740 3A80l750 3A801760 3AB01770 3A8017BO 3A80l790 3A801800 3A80l810 3A801820 3A80l830 3AB01840 3A801850 3A801860 3A801870 3A801880 3A801890 3A8019'JO 3A801910 3AllOl920 3AB01930 3A801940 3AB01950 3A801960 3A801970 3A801980 3AB01990 3A802000 3A802010 3A802020 3AB02030
PROG 10 03AB-O
PAGE
2
......
/
')
·, _/
··.
:J ')
·
·
·
· )
· )
1 I ) I J J
)
1
)
1
)
J
)
, )
' '
j
,
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM INTERRUPT TEST
05Dl 0 300C 05D2 00 4C0005Z8
0504 00 65000A58 05D6 00 6D00060C 05D8 00 6D0006EA OSDA 00 6D00072A OSDC 00 60000736 o5DE oo 60000746 05EO 00 6D000756 05E2 00 60000766 05E4 00 6DOObi72 05E6 00 60000780 05EB 00 600007C9 OSEA 00 600007DO 05EC 00 600007E9 05EE 00 6D0007F5 05FO 00 6D000802 05F2 00 6000080B
05F4 00 65800A8C 05F6 00 6D00060D
OSFB 00 65800A88 05FA 00 6Dqoo6EB 05FC 00 6D000803 05FE 00 6D00080C
0600 00 65000A6A 0602 00 6D0006EF
0604 00 65000A85 0606 00 600006FE 0608 00 60000723
060A 00 65000AB2 ObOC 00 6D0007A9
060E 00 65000829 0610 00 600007AB
0612 0 3005 0613 00 OCOOOA66 0615 00 C4000A77 0617 0 18\lC 0618 00 94000A78 061A 00 4Cl8053E 06IC 00 4C000528
06IE 00 65000A5A 0620 00 6000060C 0622 00 600006E& 0624 00 6D00072A 0626 00 6D000736 0628 00 60000746
·*··fN·T·R·Y···S·W·J·T·C·H·E·S·. ··PU··SH···S·T·A·R·T·. ·················
_NKOYC WAIT
/C.
S~L 2501/NOT REAOY
BSC L WHIC~
·
st-l42 LOX LI SENSE
CHK DEVICE AGAIN SET UP 1442 SENSE WO
STX l l BUSY+l
STX l l TE,ST1+3
STX l l WAITG+2
STX LI VEC00+2
STX l l VEC01+2
STX LI VEC02+2
STX l l VEC03+2
STX LI VEC04+2
STX Ll YEC05+2
STX LI CKDOK+2
s TJI: l l BA0l2+2
STX LI U.014+2
STX LI NOAOR+2
STX LI DSWCK+3
·
STX LI DSWCK+l2
LOX 11 SRAOl
SET UP 1442 BUSY CHK
·
STX l l BUSY+2
LC'IC 11 NOP IT
SET UP 1442 CONTROLS
STX Ll TEST1+4
STX l l DSWC!t+4
·
STX Ll OSWCK+l3
LOX l l FEED
SET UP 1442 XID
·
STX Ll TEST1+8
LOX LI KlOO
SET UP 1442 LOOP CNT
STX Ll NUMBR+l
STX Ll NUMCK+I
·
LOX LI KOlO
SET UP 1442 GOOD CNT
·
STX L1 FINSH+I
LOX LI SETUP
SET UP 1442 TEST VEC
···········ST·X····L·l··F·IN··S·H·+·W3·A·I·T··5······················
· 1442 WAS FOUND READY ANO NILL BE THE
·
* *
DEVICE USED IN THE IF INTERRUPT DELAY
TEST. SW ON,
TURN
OFF
· ·
* IF PROGRAM DOES NOT START RUNNING BECAUSE ·
* OF A PENDINC INTERRUPT, DEPRESS START. ·
···············································
WAIT
5
1442 SELECTED
XIO L 8ITSW
READ elT SWITCHES
LO L BITSl
LOAD BIT SWITCHES
SRA
12
S L BJTS2
LAST DEVICE SELECTEO
BSC L CKLOP,+- CHK FOR LEVEL LOOP
·
BSC L WHICH
SETPT LOX l1 SEt~PT
NEW DEVICE SELECTED SET U~ PT SENSE WO
STX l l BUSY+l
STX L l TEST1+3
STX LI WA ITG+2
STX LI VEC00+2
STX LI VEC01+2
DATE EC NO.
01MAY66 15NOV66 l5JUN67 4154908. 419605 420317
PART NO. 2191268
PAGE
2A
3A802040 3At102050 3Al!02060 3All02070 3Al:I02080 3Al!020'i0 3At10ll00 )At102 l I 0
3A80?.120 3Ab021JO 3Al:I02140 3Al!02 l 50 3All02160
3·802170 3Al!02180 3Al!02190 3A8:>2200 3Al:l02210 3Al:I02220 3A802230 3A1:102240 3Al!022 50
3A802260 3A802270 3A802280 3A802290
3A802300 3All02310
3A802320 3A802330 3A802340 3A80l!350 3A802360 3Al!02 370
3A8023BO 3A802390 3A802400 3A802410 3A802420 3A802430 3A802440 3A802450 3A802460 3A802470 3A802480 3A802490
3A802500 3A802510 3A802520 3A802530 3A802540 3AB02S50
3A802560 3AlllJ2 570 3AB02580 3AB02590 3A802600 3A80ibl0 3All02620 3A802630 3A802640 3Al!026SO 3All02660 3Al!02670 3A802680 3A802690 3A802700
3A8027l0
PROG 10 03A8-0
PAGE
2A
Ii. '
l 1 l
i
>I ! '
)
)·
j i
:') ' i
>
.J
j
'-.__/.
,-- "\
·'\
!
' ,/
c
(~·
laM MAINTENANCE DJA;NOSTIC PROGRAM FOl THE 1130 SYSTEM
IN1EHUP'f TEST
062A 00 60000756 062C 00 600007b6 062E 00 60000772 0630 00 60000780 0632 00 600007C9 0634 00 60000700 0636 00 600007E9 0638 00 600007F5 063A 00 60000802 063t 00 60000808
063E 00 65800A8E 0640 00 60000600
0642 00 65800A80 0644 00 600006EB 0646 00 60000803 0648 00 6000080C
064A 00 65000A72 064C 00 600006EF
064E 00 6SOOOA85 0650 00 6D0006FE Ob52 00 60000723 0654 00 600007A9
0656 00 65000912 0658 00 600007A8
065A 0 3006 0658 00 OCOOOA66 0650 00 C4000A77 065F 0 l80C 0660 00 94000A78 0662 00 4tl8053E 0664 00 4C000528
0666 00 65000A5C 0668 00 6000060C 06U 00 600006EA 066C 00 6000072A 066E 00 60000736 0670 00 60000746 0672 00 600007!>6 0674 00 60000766 0676 00 60000772 0678 00 60000780 067A 00 600007C9 067C 00 60000700 067E 00 600007E9 0680 00 600007F5 0682 00 60000802 0684 00 60000808
0686 00 65800A8C 0688 00 60000600
STll Ll VEC02+2
STX ll VE.C03+2 STll L1 VEC04+2 STX L l VEC05+2 STX Ll CIC.OOK+2 STX Ll 8AD12+2 STX Ll IUD14+2 STX L l HOADR+2 STX Ll OSWCIC.+3 STX Ll DSWCK+l2
LOX U SRAll
SET UP P.T. BUSY C.Hlt
STX Ll BUSY+2
·
LOX 11 Sl<AlO
SET UP P.T. MDV CHK
STX ll TESTl+4
STX Ll OSWCK+4
STX LI DSWCK+l3
LOX Ll CNTRL STX Ll TEST1+8
SET UP P.T. lliD
LOX L1 It 100
STX Ll NUl-lBR+l STX Ll NUMCK+l STX ll FINSH+l
LOX Ll lilAiTA SU Ll FINSH+J
SET UP P.T. TEST VEC
Ill
cecoooooooeooooooeo······ooeooooooooooooo····
·
0
·
WAIT 6
·
o PAPER TAPE WAS FOUND READY ANO WILL BE THE·
*o OEV!CE USED JN THE TEST. IF INTERRUPT DELAY SW ONt TURN OFF
o o
· IF PROGRA~ DOES NOT STA~T RUNNING BECAUSE ·
··o··O·F ··A··P·EN··D·IN·G···IN··T·E·R·R·U·P·T·,··D·E·P·R·E·S·S··S·T·A·R·T·.······o
WAIT
6
PAPER TAPE SELECTED
XIO L BITSW
LO L BITSl
SRA
12
READ BIT SWITCHES LOAD BIT SWITCHES
S
BSC
·
BSC
SET25 LOX
L BITS2 L CKLOP,+L WHICH
Ll SEN25
LAST DEVILE SELECTED CHK FOR LEVEL LOOP NEW DEVICE SELECTED
SET UP 2501 SENSE WO
STX Ll BUSY+l STX Ll TEST1+3 STX Ll lilAITG+2
STX Ll VEC00+2 STX Ll VEC01+2
STX Ll YEC02+2 STX Ll YEC03+2 STX Ll VEC04+2 STX Ll VEC05+2 STX Ll CKOOK+2 STX Ll 8AD12+2
STX Ll 8AD14+2
STX Ll NOAOR+2 STX Ll OSWCK+3
·
STX Ll OSllCK+l2
LOX 11 SRAOl
SET UP 250J BUSY CHK
STX L1 BUSY+2
DATE Et NO.
01MAY66 15HOV66 15JUN67 4154908 419605 420317
(''\
'--'
PART NO. 2191261
PA~E
J
3A802720 3A802730, 3All02740 3A802750 3A802760 3A802770 3A802780 3A802790 3All02800 3A8021110 !All0282'1 3AB02tl30 3A802840 3All02850 3A802860 3A802870 31\802880 3A802890 3A802900 3A802910 31\1102920 3A802930 3A802940
3All02.950 3A802960 34802970 3A802980 3A802990
3A803000 3A803010 3A803020 3A803030 3A8030lt0 3A803050 3A803060 . 3AB03<170 3A803080 3A803090 3A803100 3A803ll0 3A803120 3A803130 3A803140 3A803150 3All03l60 3'603170 3A803180 3A803190
~A803200
3A803210 3A80322C 3A803230 3U03240 3A803250 3A803260 3A803l70 3A.803280 3All03290 3A803300 3A803310 3A803320 3A803330 3A803340 3A803350
3A803360 3A803370 3A803380
3A803390
PROG ID 03A8-0
PAGE
J
· )
·
·
·
· ·
) ) )
)
)
l
'
)
J 1
)
1
'
....
,
' ) '
'
L.:
,,, ______ - - - - - - - - -
I
~.·'
I
.' \_ . - -·- - -----·
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOA THE 1130 SYSTEM INTERRUPT TEST
068A 00 65800A8B 068C 00 600006E8 068E 00 &0000803
0690 oo 6000080C
0692 00 65000A6C 0694 00 b00006EF
0696 uu 65000A85
0698 00 600006FE 069A 00 60000723 069C 00 600007A9
069E 00 65000912 06AO 00 600007A0
06A2 0 3007 06A3 00 OCOOOA66 06A5 00 C4000A77 0E>A7 0 180C 06A8 00 94000A78 06AA 00 4Cl8053E 06AC 00 4«:000528
06AE 0 6300 06AF 0 6200 0680 0 6100 Ot.81 00 65000770 0683 00 &DOOOOOC 0685 00 C4000727 0687 (\0 0400073F 0689 00 0400074F 0688 00 040007SF 0680 00 0400076F 068F 00 040007C6 06Cl 00 040007E6 06C3 00 040007F2 06C5 00 040007FE 06C7 00 65003013 06C9 00 60000739 06C8 00 65003014 06CO 00 60000749 Ot.CF 00 65003015 0601 00 60000759 0603 00 65003016 0605 00 60000769 0607 00 65003017 0609 00 600007CO
0608 00 OCOOOA58 0600 0 1801 O&OE 00 4C0406D8 O&EO 00 OCOOOA66 O&El 00 C4000A77 06E4 0 lllOC 06E5 00 4C040771
·
LOX 11 NOPIT
~ET UP 2501 CONTROLS
STX L1 TfST1+4
STX Ll OSWCK+4
S,TX ll OSWCK+l)
·
LOX Ll FEEDS
SET UP 2.501 XlO
STX Ll TESTl+B
LOX Ll KlOO
STX Ll NUMBR+l STX Ll NUMCK+l STX Ll Fll'.lSH+l
SET UP 2.501 CARO CNT
LOX U WAITA STX Ll FINSH+3
SET UP 2501 TEST VEC
·~·o·········································
·
0
* ldA IT 7
·* 2501 WAS FOUND READY ANO WILL BE THE
o ·
$
*DEVICE USED IN THE TEST.
·
c
* *
IF SOME OTHER DEVICE IS DESIRED. OtVJCE READY ANO MAKE NEW DEVICE VIA THE CONSOLE ENTRY SWITCHES.
MAKE THAT· SELECTION·
·············································
WAIT
7
2501 SELECTED
XIO l BITSW
READ BIT SWITCHES
LO L BiTSl
LOAD BIT SWITCHES
SIU\
12
S L 81TS2
LAST DEVICE SELECTED
BSC L CKLO~,+ CHK FOR LEVEL LOOP
BSC l WHICH
NEW DEVICE SELECTED
"CUU LO!t ! 0
LOX 2 0
LOX l 0
LDlt ll YEC04
STX ll /OOOC
LO L NUMCK+5 RESTORE LOOP CHK VEC
STO l M0013+6
STD L M0014+6
STD L 140015+6
STD l 140016+6
STD L 140017+6
STO L 140018+6
STO L M0019+6
STO l MODU+6
LOX Ll /3013
STX Ll MOD13
RESTORE WAIT 13
LOX Ll /3014
STX Ll M0014
RES TORE WAIT 14
LOX Ll 13015
STX Ll MGOl 5
RESTOl<E WAIT 15
LOX ll /3016
STX ll MOOl6
RESTORE WAIT 16
LOX Ll 13017
·
STX Ll M0017
BUSY XIO L SENSE
RESTORE WAIT l7 SENSE OSw
SRA
1
SET UP TO CHK BUSY
BSC L 8USY,E
CHECK FOR BU!>Y
XJO L BITSW
SENSE BiT SWITCHES
LO L BITSl
LOAD BIT SWITCHES
SRA
12
tHK FOR WAIT l OPT
BSC L VEC04+l,E SET UP FOR RESTORE
OATE
ft NO.
OlMAY66 15NOY66 15JUN67 4154908 419605 420317
PART NO. 2191268
PAGE
JA
3A803400 3A803410 3A803420 3A803430
3A8.03440 3Ab03450 3A110 3'-60 3A803470 3A803480 3U03490
3A803500 3A8Cl35l0 3All03520 3A803HO 3Ali03540 3A803550 3.fl.8-035b0 3"803570 3A803580 3A803590 3All03600 3A803610 3A803620 3A803630 3A803640
3A8036SO 3A803660 3A803670 3A803680
3A803690 3A803700 3A803710
3A803720 3A803730 3A803740 3A803750 3A803760 3A803770
3uonsJ
3A803790 3A803800 3"603810 3A803820 3A.ll03830 3A803840 3A803850
3A80386G 3A803870 3A803880 3A80389Q 3A803900 3A803910 3A803920 3A80393.0 34803940 36803950 3A803960 3A803970
3A803980 3A803990 3A804000 3AU0401.0 3A804020 3A804030
3004040 3AU04050
3A804060 34804070
PROG JD 03A8-0
PAGE
3A
C.
>
") t
i I
") l
., l
:1-
___ ··- ·-- ..... ··----
llN MAINTt..ANCE DIAG..OSTIC P·OGlAN FOi' THE 1130 SYSTEM lNUHUf'T TEST
06E7 00 67800A70 06f9 00 OCOOOASB ObE:8 0 1000
out 00 ltC0407FF
Obf:E 00 OCOOOA6A
06FO 0 3011 06Fl 0 70U 06F2 0 73FF 06F~ 0 70FE 06F4 0 6100 06FS 00 6DOOOA7A 06F7 00 C4000A7C 06f9 00 84000A7F 06FB 00 04000A7C 06FD 00 94000A8S 06FF 00 ltt100817
0701 0 3012 0702 00 65000770 0704 00 6DOOOOOC 0706 00 65001000 0708 O 69E7 0709 0 69E'1 070A 0 69F6 0708 D 7009 070C 00 65001000 070E 0 69El 070F 0 69El 0710 00 650007C7 0712 00 6COOOOOC 0711t 0 70C6
0715 0 6100 0716 00 6DOOOA7A 0718 00 ltC000998
07U 0 '13FF - 0718 0 70fE
071C 00 C4000A7C 071E 00 840UOA81 0720 00 01t000A7C. 0722 00 94000A8S 0724 00 lttl00728 0726 00 4C00071S
DATE
EC ..o.
·
TUll LOX 13 DELAY
XIO L SfNSE
NOP
8SC l OSWCK1E
· · · · · · · · ·
XIO l FEED
lUNC.K NAIT /11
MODll MOX
CK RUN
MOX 3 -1
MDX
MOOll+l
LOI l 0
STX Ll GDCNT
LO L LPCNT
A L ADDOl
STD L LPCNT
NUM&l S L KlOO
·
ISC L NAIT21-
UNOK WAIT /12
LDX Ll VEC04
STX Ll /OOOC
LOX Ll 11000
SU 1 RUNCK
STX 1 MOOll
STX l RUNOlt
· MDX
FDCYC
CKRUN LOX Ll /1000
SU 1 RUNCK
STX 1 MODll
LOX Ll CKDOlt
STX Ll /OOOC
·
MOX
FDCYC LOX
BUSY 1 0
STX Ll GDCNT
ISC L CNTCK
·
ERROR MOX 3 -1
MDX
ERROR
LD L LPCNT
A L KOOL
STO L LPCNT
NUMC.lt S L KlOO
8SC L WAITG·-
·
8SC L FDCYC.
lS"'OVH 419'05
SOO MSEC DELAY SENSE FOR READY
CHECK FOR READY FEED
····················
* *
NO
WAIT 11 INTERRUPTS
*
·
*· WERE GENERATED. · TO CKECK OUT RUN ·
·*· ··STT·RA·IGR·T·G·E·R·,··P·U·SH········
NO INTERRUPTS
SET UP RUN TRIG CHK
DECREMENT DELAY BY l
RESET GOOD PASS CNTR LOAD LOOP COUNT
ADD 1 TO LOOP COUNT STORE LOOP COUNT CHK FOR STOP LOOP
·*······W·A·I·T··1·2········
*· NO INTERRUPTS
* ·
WERE GENERATED. SETTING OF RUN
*·*
TRIGGER APPEARS o
~ NOT TO BE THE o
* · CAUSE OF THE
* ·
·
FAILURE. TO GO INTO
SCOPE *
· LOOP1 PUSH START.·
·NO···IN·T·-·R·U·N~··T·R·IG···C·K·EO·
SET UP LEVEL 4 Vet NOP SET UP SCOPE LOOP
8RAl\IC.H TO SCUPE LOOP SET UP RUN TRIG CHK
CHECK RUN TRIGGER
RESET GOOD PASS CNTR CHK COUNT OPTION
STE:P DOWN DELAY LOAO LOOP COUNT ADO l TO LOO~ CNT STORE LOOP CNT CHECK FOR STUP LOOP CHECK ~Ok WAIT 2 HED AGAI"'
PART ..o. 2191268
PAGf:
4
3Atl04080 3A804090 3A804l00 3A804ll0 3All04120 3A804130 3A80.. 140 3A804150 3A80.. lb0 3A804l 70 3A804l80 3A804190 3A804200 3A804210 3A801t220 3A804230 3&804240 3A80..250 3AB04260 3A804270 3A804280 3A804290 3A80.. 300 3A804310 3A804320 3A604330 3A80.. 340 3&804350 3A8043b0 3A804370 3A80.. 380 3A804390 3A804400 3A8041tl0 3A804..20 3A801t430 3A80..440 3A80lt450 3A804..60 3A804470
3'804480 3'804490 3A804500
3A804510 3&1104520 3&1104530 3A804540 3A804550 3A804560 3A804570 3A80.. 580 3A804590 3A804600
3A80lt610 3004620 3'804630 3AB04640 3A801t650 3A804660 3A801t670 3A804680 3A801t690 3A804700 3A804710 3'804720 3A80 ..730 3A804740 3U04750
.. PROG ID 03A8-0
PAGE
) )
)
) )
)
)
)
)
lbM MAINTENANCE DIAGNOSTIC PROGRAM fOR lHE 1130 SYSTEM
l"ilTE:kRUPT TEST
)
PART "'0· 2191268
PAGE
4A
)
)
)
)
) l
·····
·
·
··
·
·
··
·
·
··
·
·
··
·
·
········
WAIT 2
·
··
·
·
·
·4
·
·
··
·
·
··
····
3All04760
3All04770 3At1047110 3At104790
)
· NORMAL WAIT AFTFR DESIRED NUMBER OF LOOPS ·
3Atl04t100
)
· PASSES HAVE BEEN MAUE. PUSH STARi TU MAKE *
3A8048l0
· ANOTHER LOOP CYClf.
·
3Atl04820
,3 l )
0721:1 0 3002 0729 00 OC.OOOA58
··············································
WAITG WAIT 2
STOP SCOPE LOOP
XIO L SENSE
3'804830 3At10481t0 3Al!Olt850
3Atl01t860
) )
0728 0 6100
LOX 1 0
3A804870
s )
J )
072C. 00 6DOOOA7C 072E 00 4C000715
0730 0 0000 0731 00 OC.OOOASA 0733 0 1001
STX
·
BSC
LOOPO DC
XIO
·
MDX
L l LPCNT L FDtYC
0
L SENPT VECOO+l
RESET LOOP COUNT
··*····LL·EE··VV··EE··LL·····R0···E·S·AE··UT··T·O···L··O··O··P····**
3A801t880 3A804890
3A804900 3A804910
3A804920 3Atl04930 3At104940
)
)
1 )
073.. 0 0000
VECOO DC
0
· LEVEL 0 RESET ·
3AB04950
)
)
J ) 1 )
1 ,
0735 00 OCOOOA58 0737 00 1tC400739 0739 0 3030
XIO L BOSC L
· · · · · · · · · · ·
MOD13 WAIT
· · ·
SENSE MOD13
/30
*···SC·O··PE···LO·O··P·········
·*··IN·T·E·R·R·U··PT···0··L·E·V·E·L··
* *
WAIT 30 RESET DURING
*
AUTO·
· SCOPE LOOP.
·
· PUSH START TO GO ·
··· ····TO······W··A··IT······1··.·················
·
WAIT 13
·
· ·
DROPPED ADDR BIT 13. PUSH START
· *
·· ··FO·R···SC·O··PE···L·O·O·P·····
3Ab04960 3Atl04970
3Atl049110 3All04990
3A805000
3A805010
3A805020 3At105030 3A805040
3Atl05050
3A805060 3Atl05070
3At105080 3A805090
3A805100 3At105ll0 3A805120
) )
)
G73A 00 65800A90
LOX I! MOFYB
MDX ERROR
3A805130
')
073C 00 6D000739
STX Ll MOD13
3A805140
'
073E 00 4C000502
0740 0 0000 0741 00 OCOOOA62
8SC L MAP IT
·
LOOPl DC
0
XIO l PRINT
··· ··LE·V·E·L···l ··A·U·TO········*
3A805150
3A805160
3Al:l05170 3AB05180
)
'
'
1
'
'
)
)
')
0743 0 7001 0744 0 0000 0745 00 OCOOOA58 0747 00 4C400749
0749 0 3031
MOX
·VECOl DC
XIO L
· · · · · · · · · · ·
BOSC L
MOD14 WAIT
· · · · ·
VECOl+l 0 SENSE M0Dl4
/31
·· ··LE·V·E·L···R·E·SE·T···L·O·O·P··*
· LEVEL l RESET ·
·· ··SC·.·O·PE···L·O·O·P·········
·· ······W·A·IT···3·1·······*
· INTERRUPT l LEVEL·
· RESET DllRING AUTO·
· SCOPE LOOP.
·
···· ····PTUO··S··H··W··A··SITT··A··R··1T··.····T··O····G··O····*·
·
WAIT 14
·
· INTERRUPT CAUSED *
· A LEVEL I ADDR TO·
* BE GENERATED. *
* PUSH START FOR ·
·*··SC·.·O·PE···L·O·O·P·. ········
3A805190
3A805200 3A805210
3At105220 3Atl05230 3A805240 3At1052 50
3At105260 3A805270
3A805280 3&1105290 3A805300
3Atl05310 3At105320 3A80'>330 3At10531t0
3At105350 3At105360 3Ab0')370 3Als05380 3Al!05390
3All051t00
) )
)
07'A 00 65800A9l
LOX 11 MOFYC
MDX ERRQii.
3All05410
J7~C 00 6D000749
STX Ll MOD14
3All0'>4ZO
)
')
074E 00 4C000502
BSC L MAPIT
3All05430
)
)
DATE
OlMAY66 15NOV66 15JUN67
EC NO. 4154908 419605 42031'1
,., PROC. ID 03A8-0
PAGE
)
)
- '"\ I
.J
"\
,/
C, C, C: C'
c··
(_)
,,
"' ---' I
··--·------·-----------------------------------------..--
·
llN NA l ..Tf:NANCE. DIAGNOSTIC Pao~·.AN FOR THE 1130 SYSTEM IMTHllUPT HST
0750 0 0000 0751 00 OtOOOA5E 0753 0 7001 0754 0 0000 0755 00 OtOOOA58 0757 00 4'400759
0759 0 3032
075A 00 65800A92 075C 00 6D000759 075E 00 4'000502
0760 0 0000 0761 00 OCOOOA60 0763 0 1001 0764 0 0000 07b5 00 OtOOOA58 0161 00 4'400769
0169 0 3033
016A 00 65800A9J Ol6C 00 60000769 076E 00 4'000502 0710 0 0000 Olll 00 OtOOOA51 0713 0 6100 0714 00 6DOOOA7C 0776 00 65800A98 0778 00 600006Fl OllA 00 65003011 OllC 00 6D0006FO· 07lE 00 65003012 0710 00 6D000701 0712·00 65003013
· · · · · · · · ·
LOOP2 DC
0
XIO L DISK
·
MDX
VEC02 DC
VEC02+1 0
XJO L SENSE
BOSC L MODIS
· · ·
·····NODl5 WAIT
/32
LDX 11 MOFYD
STX LI NOD15
· · · · · · · · ·
ISC L NAPJT
LOOP3 DC
0
XJO L PLOT
·
MDX
VEC03 :>C
VEC03+1
0
XIO L SENSE
..···
BOSC L
··NODl6 WAIT
MOD16 /33
· · LDX
STX
·
BSC
VEC04 DC
XIO
LOX
STX
LDI
STX
lDX
STX
LDX
STX
LOX
II MOFYE Ll NOD16
L NAPJT
0 L SENSE
1 0 LI LPCNT II MOFYL ll MODll ll /3011 1.1 RUNCK ll 13012 LI RUNOK ll /3013
· ···················
·
WAIT 32
·
· INTEkRUPT 2 LEVEL·
· RESET DURING AUTO·
· SCOPE .LOOP.
·
· PUSH START TO GO ·
·····TO···W·A·I·T··I·.··········
· LEVEL 2 AUTO
·
·· ··LE·V·E·L···R·E·S·E·T··L·O·O·P···
· LEVEL 2 RESET ·
·· ··SC·O··PE···L·O·O·P·········
··**···BAINE·T·LEE~G'WRV·ER·ENALU·EIT·RP·AT2T·1~·CA5D·AD.·DU·RS·E·DT·D·****
··· ··SPUC·OS·H·PE··ST·LA·O·RO·TP·.·F·O·R·····*
MDX ERROR
·· ······W·A·I·T··3·3·······*
* ·*
INTERRUPT 3 LEVEL· RESET DURlNG AUTO*
· SCOPE LOOP.
· PUSH START TO GO ·
··· ··TO···W·A·I·T··1·.··········
· LEVEL 3 AUTO
·
*·· ··LLEE·VV··EELL···R3·E·RS·EE·TS·E·TL·O·O·P··*·
·· ··SC··O·PE···L·O·O·P·········
····················
·
WAIT 16
·
· INTERRUPT CAUSED ·
* · A LEVEL 3 ADDR TD*
· BE GENERATED.
· PUSH START FOR ·
·· ··SC·O··PE···L·O·O·P·.········
MDX ERROR
RESET LOOP COUNT MDX CK.RUN RESTORE MODU
RESTORE WAIT 11
RESTORE WAIT 12
PART NO. 219126·
;Ac;.e
'
3All05440
3A805450 3All05460 3AllO!l470
3All05480 3A80!1lt90
3All05500 3All05510 3A805520 3All05530
3AllOS540
3A805550 3All05560 3All05570
3All05580 3All05590 3A805600
3l805610 3A80S620 3A805630
3A805640 3A805650
3A805660
3A805e.70 3A805680 3A805690 3A80Sl00 3A805l10
3A805720 3ABOS730 3A805740
3'805150 3A805760 3A805l70 3A805780 3A805l90 3'805800
3A805810
3A805820 34805830 3A805840 3AIS05850
3A805860 3A80S870
3A805880 3A805890
3A805900
3A805910 3A805920 3A805930 3A80S94Q
3A805950·
3A8059t>O 3A805970
3A805980 3A805990
3A80b000 3'806010 3'806020
3A806030 3A806040
3A806050 3A806060 3A806070
3A80b080 3A806090
3'806100 3AllObl10
· · · ., · · ) · ) · 1
1 ) I
") )
, ,
1
)
, l
, ,
1
, 1 , 1
'
'
DATE Et HO.
OIMAY66 15NOV66 15JUN6l 4.15..901 419605 420H l
PROG ID 03A8-0
PAGE
5
'
0
c~\
c~ c·.
0 0 ()
o .. MAINTENANCE DIAGNOSTIC PROGRAM. fOR THE lUO SYSTEM
INll:llRUPT TEST
0784 00 60000739 078b 00 6S0030llt 07HH 00 60000749 078A 00 6~003015 078t 00 60000759 078t 00 6S003016 079() 00 6D000'169 0792 00 bS003017 0794 00 600007CO 0796 00 6!>003018 07911 00 600007£0 079A 00 65003019 079C 00 600007EC 079t 00 6!>00301A 07AO 00 600007F8 07A2 00 04000A7A 07A4 00 84000A81 07Ab 00 04000A7A 07A8 00 9ltOOOA82 07AA 00 ltt500S29 07At 00 OtOOOA66 07AE 00 t4000A77 0780 0 l80C 0781 00 4t440913 0783 00 4C4006AE
0785 00 4C00071A
'0 78.7 0 0000 0788 00 OCOOOA68 07BA 0 7001
07B8 0 0000 07&C 00 OCOOOA58 078E 00 4C4007CD
07CO 0 303S
07tl 00 6S800A94 07t3 00 600007t0 07t5 00 4C000502
07C7 O 0000 07t8 00 OCOOOA58 07tA 00 4C40.07tc
07CC 0 301C
07tD 00 65003011 07tF 00 6D0006FO 0701 00 65800A8F 0703 00 6D0006Fl 0705 00 65000770 0707 00 6DOOOOOC
STX ll M0013
LDX ll /301"
STX ll MOD14
LOX Ll /~01!>
STX Ll MOOlS
LOX ll /3016
STX LI M0Dl6
LOX Ll /30i7
STX ll M0017
LOX LI /3018
STX ll MOOlB
LDX Ll /3019
STX ll MOD19
LOX ll /3011
STX ll MODU
LD L GOC.NT
A l KOOl
STU l GOC.NT
FINSH S L KOlO
BOSt l SETUP,-
X.10 l BITSW
LD L RITSl
SRA
12
BOSC L WAITA+loE
BOSC l
· ·GAPIT BSC L
LOOPS DC
CLRIX ERROR 0
XIO L STOP
·
MOil
VEC05+1
VEC05 DC
0
XIO L Sf.'NSE
··M········ OOll
aosc
~AJT
L
M0017 /35
· · ·
LOX u MOFYF
STX ll MODll
·
BSC L NAPIT
CKOOK DC
0
XIO L SENSE
·
BOSC L WAITC
WAITC WAIT
· · · ·
/lC
LOX ll /3011
STX Ll RUNCK
LOX II MOFYA
STX ll MOOll
LOX LI VEC04
STX ll /OOOC
RESTORE WAIT 13
RESTORE WAIT 14
RHTORE WAIT 15
RESTORE WAIT 16
RESTOR.E WAIT 17
kESTORE WAIT 18
RESTORE WAIT 19
RESTORE WAIT lA RESET GQOD COUNT ADD l TO GODO tOUNT STORE GOOD tUUNT CHK FOR ENO TEST TEST 1 COMPLETE SENSE BIT SWITCHES LOAD BIT SWITCHES tHK FOR WAIT l OPT RESTORE/GO TO WAIT I
ALLOW LOOP
·*··L·EV··EL···5··A·U·T·O·······
· LEVEL RESET LOOP ·
LEVEL S RESET
·*······W·A·I·T··3·5········
· INTER~UPT S LEVEL·
· RESET DURING AUTO·
· SCOPE LOOP.
·
· PUSH START TO GO ·
··· ····TO······W··A··I··T····l··.·················
·
WAIT 17
·
· PICKED ADDR BIT ·
· 15. PUSH START ·
·· ··f·~·R··S·C·O·P·E··L·O·O·P·····
MDX ERROft .
····················
·
WAIT lt
·
· ·
RUN NOT
TRIGGER WILL SET DURING A
· *
·· ··W·A·IT···O·P·E·R·A·T·IO·N······
RESTORE WAIT OP
MDX BUSY ALLOW ERROR TRAP
RESTORE LEVEL It
.DATE Et NO.
01MAY66 15NOV66 15JUN67 1tl54908 1tl9605 420311
PART NO. 21912611
PA~t
SA
3All0bl20
3AllD6l30 3A80bllt0 3A80tll 5.0
3All06160 3All06170 3A806180 3A806190
3A8(i6200 3A&Ob210
3A80b220
3A80t>230
3A806240 3All06250
3All06260 3AllOb270
3AllOb280 3A806290 3A80b300
3AllOb310
3A806320 3AB06330
3All0631t0 3All063SO
3AllOb360 3At106370
3'806380 3Af:l06390
3A806400
3A806410 3All0b420 3A806430
3l806440 3A8064SO
3All06"60 3lll06470
3All06lt80 3All061t90 3A806500 3All06510
3All06520 3'806530 3AB06S40 3All06550
3A806S60 3All06570
31806SllO 3All06590 3&1106600
3All06tll0
3All06620 3All06630
3All06b40 3All06650 3All06660
3AllOH70
3All06680 3AllOb690
3All06700 3A806l10
3All06720 3AB06730 3UOtt7.4o
3A806750
3A8067t>O 3A806170 3A806780
3A806790
PRDG ID PAGE
03Ae~o
SA
l
) ) ) ) ) ) ) ) ) ) ) ) )
, )
,l I
) ,I,
) )
)
)
1
)
_ _ ___________ ···-··--·--"'-__:..._,.
.
. __________ ---·-··-------·---------··..·--- · - - - - - -
llM MAINTENANCE DIAGNOSTIC PIOGIAM ·FOR THE 1130 SYSTEM llllUH~PT THl
0709 00 ltt4006DI.
0708 0 0000 070C 00 OCOOOA51 07DE 00 4C~007EO 07EO 0 · 3018
07El oo· 65&ooA95
07E3 00 600007EO 07E5 00 4'000715 07E7 0 0000 07E8 00 OCOOOA58 07EA 00 4C4007EC 07Et 0 3019
07EO 00 65800A96 07EF 00 60C007EC 07Fl 00 4C000715
07'.f3 0 0000 07F~ 00 OtOOOASI OlF~ 00 4C4007F8 07FI 0 JOU
07F? 00.65800A97 07F8 00 6D0007F8 07FD 00 ·C000715
07FF 00 04000A7E 0801 00 OCOOOASI 0803 0 1000 0804 00 94000A7E 0806 00 4Cl8010A 0808 00 4C0006E9 080A 00 OCOOOA58
08DC o 1000
0800 0 6100 OBOE 00 6DOOOA7E 0810 00 4C040814 0812 00 4C0006EE 081<\ 0 3003
0815 00 4t0006E9
·
BOSC l
8AD12 DC
llO l
IUSY
0 SENSE
ERROR TRAP
····················
BUSC l MOD18
··MOOU WAIT ·
/18 '.
LOX 11 MOFYG
·
WAIT li
·
· DROPPED ADUR BIT ·
· 12. PUSH START ·
·· ··FO·R···SC·O··P·E··L·O·O·P·····
MOX ERROR
STX ll MOD18
·
asc L FDCYC
8A014 DC
0
110 l SENSE
SCOPE LOOP
....................
BOSC L M0019
·
WAIT 19
·
···MDD19 WAIT
/19
LOX 11 MOFYH
· PICKED ADDR BIT · · 14. PUSH START ·
····FD·R···SC··O·P·E··L·O·O·P······
MDX ERROR
STX (1 M0019
·
l'SC
NDADR DC
XID
L FOCYC
0 L SENSE
SCOPE LOOP
····················
BDSC L MODlA
·
WAIT U
·
···MDDU WAIT
/U
LOX 11 MOFYJ
· NO ADDR TRANSFER··
· PUSH START FOR ·
·· ··SC·O··PE····L·O·O·P·.········
MDX ERROR
STX Ll MODU
·········B·SC····L···FD··CY··C·······S·C·O·P·E··L·O·O·P··.········
· OP/CODE Oo'WAIT o.----NO READOUT OF BSI ·
·····O·R···IN·T·E·R·R·U··PT···A·D·D·R·E·S·S·.·······················
DSWCK STD L OSIH
STORE DSW
XIO L SENSE
SENSE FDR READY ·
NOP
s L OSWl
SUBTRACT'LAST DSW
BSC L OSWCK+ll,_
BSC L TEST1+2 DSW CHANGED
XIO L SENSE
CHECK ~OR READY
NOP
LOX 1 0
STX LI DSWl
RESET STORED OSW
BSC L WAIT3oE NOT READY
w··· un
BSC WAIT
L
..··
BSC L
· · · · · ·
TEST1+7
3
TEST1+2
R·E·A·D·Y················
*
WAIT 3
·
·· ··R·EA·D··ER···N·O·T··R·EA·D··Y···
READER·. READY···
·*······W·A·I·T··2·. ········
·, DESIRED NUMbER: OF·
· LOOP PASSES 1 WHILE·
* IN SCOPE LOOP. ·
· *
PUSH START TO ANOTHER SC~OE
· ·
· LOOP PASS.
·
DATE EC NO.
OlMA\'66 ··' 15NOY6'6. ' 15JUN67 . 4154908 419605 420317
PART NO. 2191268
PAGE
6
3&806800 3All068-10
3A806820 3&1106830
3A806840 3A806850 34806860'
3&806870 3All06880 3A806890.
3A806900 3A806910 3A80H20 3All0b930
3&806940 3Afl06950
3&806960
3&806970 3A80b980.
3A806990 3&807000 3A807010 3All07020
3A807.030 3A807040
3&807050 3A807060 3A807070
3A807080 3&807090 3H07l00
3&807110
3A807120 3A807130
3A807140 3&807150 3A807lf>O 3A807l70
3A807180 3&807190
3A807200
3&1107210 3A807220 3A807230 3A807240 3&1107250
3All07260 3A807270 3A807280 3AB07290
3&807300 3A807310
3A807l20 3A807330 3&807340 3AB07350 3A807360
3A8on10 3A807380
3A807390 3A807400 3A8074l0
3A80llt20 3AB07"30
3A807lt40 3AllO 1450 3A80746(1
3A807470
pP,i&toc,e; IO
03A8·-0 6
.. - ,
J '....._ _..../
' \
,_ ../
:~_) :J
.··.
)
· )
. . ·
0
) )
l I 1 ,
,) 1
)
, ) , ) , J , ,
1 s
t 1
t ,
1· 1 t J
t '
t ' t ' ' l
"').
,.,!
1··.·
. >
IB,M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM I NURRUPT TEST
0817 0 3002 0818 0 6100 0819 00 bOOOOA7C
081 s oc 4C0007U.
01110 0 0000 0.1111:: 00 OCOOOA58 oe20·00· OCOOOA64 0822 oo·ocoooA5A. 0824 00 4C400826
082b 0 3034 0827 00 4'000502
0829 0 6100 082A 00 6DOOOA7A 082C 00 1>5000897 0821:: oo 60000008 0830 oo· f.5000920 0832. 00 bD000009 0834 00 65000942 0831> 00 6DOOOOOA 0838. 00 65000957. 083A 00 60000008 083C 00 65000882 083E. 00 6UOOOOOC 0840 00 b500096C 0842 00 60000000 0844 00 65000981 084b 00 60000000
0848 0 blOO 084t; 0 6200
084A o .. 6300
0848 00 OCOOOA58 08~0 0 1801 . 084E 00 4C040848 01150 00 OCOOOA66 0852 O<i C4000A77 085.4 0 . l80C 0855 00 4C0408DA
0857 00 b7800A70 0859 00 OCOOOA58 0858 00 4C040B7F 0850 00 OCOOOA70
085F 0 73FF 0860 0 70FE
·
llAJTZ WAIT 2
LOX l 0 STX ll LPCNT
····················
STOP SCOPE LUUP RESEi Loop'cuuNT
· ·
BSC L
LOOP4 DC
XlO l
XIO L
XIO l
· · · · · · ·
MOD20
BOSC
w·Aif
L
FOCYC
0
SENSE CON SL SENPT M0020
/34
CONTINUE TEST
.. ·*··LE·V·E·L··4···A·U·TU········
* LEVEL RESET LOOP ·
~ ~
····················
·
WAIT 34
·
· INTERRUPT 4 LEI/El·
· RESET DURING AUTO·
· SCOPE LOOP.
·
· PUSH START TO. GO ·
·*··TO···W·A·.IT···l.··········
.···*.·.·IN.·T.·E.·R.·BR.S·C.U·.P·.T·.l·.·V.·E.C·M.T·A.O·P.R·I.T·.·S.·E.·T.·U.·P.·..·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.··.
SETUP LOX l 0
STX Ll GDCNT
RESET GODO PASS CNT
LOX Ll INTOO
STX Ll 100.08
LOX... Ll INT:ol STX' (1 /0009
LOX Ll INT02
STX Ll /OOoA
Li>X. LI lNTo3
STX Ll /oOOB
LOX LI lNTolt
STX Ll /oOOC LOX Ll 1NT05.
STX. Ll /0000.
LOX LI AQR12.
·
STX Ll /O~(h)
RESET LOX 1 0
LOX 2 0
·
LOX 3 0 ·
BUZY XIO L SENSE
SRA
l
BSC L BUZY,E
SENSE DSW SET UP TO CHK. BIT 14 CHECK. FOR BUSY
XIO LO
SRA BSC
·
START LOX
XIO BSC
· 1tio
LESSl MDX
L . BITSW L BlTSl
12 L CNTOKoE
13 DELAY L. SENSE L CK.Rl)Y,E L. RUTR.
3 -1 ...
SENSE BIT SWITCHES LOA_D BIT SlllTCHES CHK. FOR WAIT 1 OPT SET UP FOR RESTORE
SET UP DELAY SENSE FOR READY CHECH FOR .R.EAOY
·········M··OX·······L··E·S·S·l·llA··IT···21·······················
· NO INTERRUPTS WERE GEhERATEO WITHIN ~00 ·
* MSEC. AFTER A READS WAS GIVEN. THIS SHOULD*
DATE EC. NO~.
OlMAYb6 15NOl/66 15JUN67 41°54908 419605 . 420317
PAM 1. NO. 219121>11 .
PA~~
6A
,-- -
)1 ) )
3A110l41!0
3A8074~0
3At107~00
3At10Hlo.·
3Ali07~20
)
3All07~30
3All07540
3All07550.
)
3All07560
3All07570
3AllOJ5110
)
3A80759o
3A807b00
3All07610
)
3All07f.20
3A807630
3A807b40
3A807650.
3A807b60 .
3AB07b70.
3All076SO
3A807690
3&1101100·
3All07710 .
3A80772o
3A8077l0
)
3A807740
3All07750
3A807760
)
3All07770
3All0.77ilO
3A807790
)
3A807800
3A807810
3A807820 3A807830
3AB07840
, )
3A807850
3A807860
3All0"/870
3A807880 3A807890 3A807900
, >
3A807910
3A807920
3All07930
3Atl0l'940
)
3All07950
3All07960
3A807970
)
3A807980
3A&0.7990
3Atl08000
3A808.Ql0
3AllOll020
3AllOll030
3A.1108040
3At10.ti050
3Atl08060
3AllOti070
3Ali08080
3All08090
)
3AllOll100
3A8011110
3'808120
)
3AtSOll l 3(1
3AllOll140
3All08l50
)
~ROCi 10 03A8~0
)
PAGE
6A
·--------···- ··-··--··--· - - - - - - - - ---~
,..
)
·~
.. --.......,
\....___·./ I
1
·.. j
\
........ ...../
(--
I"---/
"----
L'
L'
IBM MAINTENAHtE DIAGNOSTIC PaOGRAM FDA THE li30 SYSTEM lltTflllUPT TUT
..._...
Olf>l 0 3021
0862 0 f>lOO 0863 00 f>DOOOA7A 0865 00 65001000 0867 00 60000861 0869 00 4C0009FO 086b 00 C4000A7C 0860 00 84000A81 086F 00 04000A7C 0871 00 94000A85 0873 00 4Cl0087f> 0875 0 7005 0876 00 C4000A78
0878 0 3002 0879 0 6200 087A 00 6EOOOA7C 087C 00 6EOOOA78 087E 0 70CC 087F 00 04000A7E 0881 00 OCOOOA58 0883 00 94000A7E 0685 00 4'180689 0887 00 4C000859 0889 00 OCOOOA58
0888 0 uoo
088C 00 60000A7E 088E 00 4C040892 0890 00 4'000850
0892 0 3003 0893 00 OCOOOA58 0895 00 4'000859
· HAVE BEEN ENOUGH TJME TO RECEIVE 80 COLUM...
· INTERRUPTS &NU AN ENO OP INTERRUPT.
·
··· ··PU·S·H···ST·A·R·T···FU·R···SC··O·PE···L·O·O·P·.·················· ··M··0·0·21··W··A·IT······/2·1·········N·O··L·E·V·.··0··O·R··4··IN··T·R·P·T·
· ·
SCOPE LOOP
· ·
· TO USE SCOPE LOOP, PRESS START. THIS WILL ·
· FEED CARDS AT A 2 CARO/SEC RATE WITH
·
· & HALT AFTER 100 CARDS.
·
· IF AN INTERRUPT IS GENERATED DURING THIS ·
** SCOPE LOOP, A WAIT WILL IDENTIFY IT.
·
MAKE SURE THERE IS A SUFFICIENT AMOUNT OF ·
··**··CBL·HA·EN·CK·K·I·NCA·G·R. D··S ··IN···R·EA··D·E·R··T·O··A·L·LO·W···F·U·R·T·H·E·R·······
CARDS LOX 1 0
STX Ll GDCNl
RESET GOOD PASS CNTR
LOX L1 /lOCO
NOP
STX L1 '40021
ALLOW LOOP
BSC L CNTJT
CHK COUNT OPTION
RETRN LD L LPCNT
LOOP CARD COUNTER
A L ltOOl
ADD l
STO L LPCNT
TOTAL S L KlOO
SUBTRACT 100
BSC L CHECK,- 100 CARDS FED
·
MOX
BUlY
CHECK FOR BU~Y
···C·H·E·C·K···LO·····L···C·LC·N··T··W·A·I·T··2L·O·A·D··C·O·LU·M··N··C·O·U·N·T······
· NORMAL WAIT AFTER DESIRED NUMBER OF CARDS ·
· HAVE BEEN READ. PRESS START TO READ THE ·
··· ··NU·M··B·ER··O·F···BL·A·N·K···C·A·R·D·S··D·E·S·IR·E·D················
·
WAIT 2
100 CARDS FED
LOX 2 0
STX L2 LPCNT
RESET LOOP COUNT
STX L2 CLCNT
RESET COLUMN COUNT
·
MOX
BUZY
CKRDY STO L DSWl
RESTART LOOP CHECK STORE DSW
XIO L SENSE
s L DSWl
SENSE FOR READY SUBTRACT LAST DSW
llSC L CKROY+lO,_
BSC L START+2
DSW CHANGED
XIO L SENSE
RE~ET ~SW
LOX l 0
STX L1 OSWl
RESET STORED OSW
BSC L NORDYoE
NOT READY
· · · · ·
BSC L
fllOROY WAIT
START+6 3
READY
····················
·
WAIT 3
·
·· ·~·E·A·D·E·R···N·O·T··R·EA·D··Y···
READER NOT READY
XIO l SENSE
SENSE + RESET
BSC L START·2 READER READY
DATE EC hO.
Cill'4AY66 lSNOVU l5JUN67 4154908 419605 420317
- - - - - -- -- ..:.._.. '______.- _:-..::_
-··:.:.._._ --
Li
(
I
,.
I
.......__ ___ ,
~·
PART NO. 219121>8
PA«OE
7
3&808160 3&808170 3A808180 3A808190 3&808200 3&808210 3&1:108220 3&b08230 3At108240 3A8082SO 3A8082f>O 3A808270 3"Af.08280 3"808290
3AllOt1300 3All08310 3A808320 3&808330 3&808340 3A808350 3A808360 3A808l70
3A808380 3A808390 3A808400 3A8084l0 3A808420 3A808430 3A808440 3A808450 3&808460 3&808470 3&806480 3A808490 3Ab08500 3A808510 3A808520
3A808530 3A808S40 3A808550 3A808560-
3A808570 3A808580 3A808590
3A808600 3A808610 3A808620 3A808630 3A808640 3A8086SO 3A808660 3A808670 3A808680 3A808690 3A808700 3A8087l0 3A808720 3A808730 3&808740 3&808750 3All08760 3&808770 3&808780 3&1108790
3At108800 3A8088l0 3Ab08B2o
3A808830
PROCi 10 03A8-0
PA6E
7
· ·
, I
1
) J
)
1 )
)
)
)
)
1 ) 1
) 1
, 1
)
) t ) t ) t
1
1
,,,---- .
' \
(
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THt 1130 SYSTE" INTERRUPT TEST
0897 0 0000 0898 00 OCOOOA58 0119A 00 74010A78 089C 00 65000882 089~ 00 bOOOOOOC OffAO 00 66800A9A 08A2 0 6A8E 08A3 00 4C4008A5
08A5 00 OC000&74 08A7 00 4C00085F
08A9 0 3022
08AA 00 65000001 08AC 00 600008A9 08AE 0 6100 08&F 00 60000A7B 0881 0 7080
0882 0 0000 0883 00 OCOOOA58 0885 00 74010A7& 0887 00 65003021 0889 00 60000861 0~88 00 65003022 0880 00 600008A9 088f 00 C4000A78 08Cl 00 94000A84 08C3 00 4C58080A oacs oo 4C680921 08C7 00 4C1t008C9 08C9 00 Clt000A78
08C8 0 3023
oecc o 6100
O&CD 00 6DOOOA7B 08CF 00 66800A9B O&Ol 00 6EOCl08CB 0803 00 4Clt00862
0605 0 6100 0806 00 bOOOOA78 0808 00 4C00085f
080& 00 65003021 OBOC 00 60000861
oa~E oo 65003022.
·
INTOO DC
0
XIO L SENSE MDX_ L CLCNTo+l &OD l TO COLUMN CNT
LOX Ll I NTOlt
RESTORE LEVEL 4 VEC.
STX L1 /OOOC
LOX 12 MDFY3
MOX WAIT 22
STX 2 M002l
·
eosc L COL GO
COLGO XJD L READ
CHECK FOR LEVEL 4 RESET LEVEL 0
··········B·SC····L··.L·E··S·S·l·W·A·I·T··2·2······················
· AT LEAST l COLUMN INTERRUPT W_AS GENtRATED ·
* * * AND NO ENO OP GENERATED fOR LAST CAKD.
·
THE NUMBER OF COLUMNS READ IS DISPLAYED
* IN THE A REG.
-
*
·· ··PU··SH···ST·A·R·T···FO·R···SC·O··PE···L·O·O·P·.·················*
MOD22 WAIT
/22
NO LEVEL 4 RECIEVEO
······················SC·O·P·E···LO·O·P···········~····*
·····~········································
LOX L1 /0001
ttOP
STX L1 "0022
ALLOW LOOP
LOX l 0
RESET COLUMN COUNT
STX l l CLCNT
·
"ox
M002l+l
INT04 DC
0
BRANCH TO LOUP
XIO L SENSE
MOX L GDCNT1+l .ADO l TO GOOO PASS
LOX Ll /3021
STX L1 M0021
RESTORE WAIT 21
LOX Ll /3022.
STX - Ll MOD22
RESTORE llAJT 22
LO L CLCNT
LOAD COLUMN COUNT
S L KOSO ease L. CNTOK,+eosc L M0024tZ+
CHECK FOR 80 COLUMNS CHECKED OK &RANCH LESS THAN 80
BOSC L CL ERR CLERR LO L CLCNT
LOAD COLUMN COUNT
····$·················W·A·IT·~·2·3····················*
· MORE THAN eo COLUMN INTERRUPTS RECEIVED ·
* WHEN END OP INTERRUPT WAS GENERATED.NUMBER·
* OF CULU~N INTERRUPTS IS DISPLAYED IN & REG·
·*··PU··SH···ST·A·R·T···FO·R···SC··O·PE···L·O·O·P·.··················
M0023 WAlT
/23
MORE THAN 60 COLUMNS
LOX 1 0
RESET COLUMN COUNT
STX Ll CLCNT
LOX 12 MDFY4
STX L2 M0023
ALLOW LOOP
·
BOSC L CARDS
HOPIT LOX 1 0
&RANCH TO LOUP
STX Ll CLCNT
RESET COLUMN COUNT
·
BSC L LESSl
CNTOK sLOuX·
L1 /3021 l l MOD2l
RESTORE WAIT 21
LOX. Ll /3022
DATE EC .NO.
OlMAY66 15NOV66 15JUN67
1tl5.49.0B 419605
420317
PART NO. 2191261
PAGE
7A
3A808840 3&808850 3&808860 3&1108870 3Ab08880 3A808890 3All0&900 3A808910 3AB08920 3A808930 3&8011940 3&808950 3A808960 3A808970
3A808980 3&808990 3A809000 3&809010 3&1109020 3A809030 3A809040 3A8090SO 3A809060 3Ab09070 3A809080 3A809090
3A809100 3At109ll0
3A809120 3A809130 3&809140 3A809150 3A809l60 3A809l70 3A809180 3A809190 3A809200 3A809210 3A809220 3A&09230
3A8092it0 3Ab09250 3&809260 3A809270
3A809280 3A809290 3A809300 3&1109310 3A809320 3A809330 3A809340 3A8093SO 3A809360 3Ab09370 3A809380
3A809.390 3A809400 3A809410
3A809420 3A8091t30
3A809"0 3&809'-50 3A809460 3Ab09470 3A809480 3&809490 3&809500 3&11095.10
PRUG 10 03A8-0
f'AliE
7A
' -
)j
I
II
. I
} I
r
) )
l
)
.. · o~~o--=..:.cc.·.=·o·'°'=.'--....-----····-···----··--·-··-·--··-···-··----··-·--·--·-·-····--··--··-·----·=--------··----··--· - - - · - - ·-·-·-·-·-·-·-··-·--·-···--·--·-~----------···_--::::--_-_-_···-----····-··--····---.,.·,,...----··--··----··--·----···-····--·--··---···-···~·--··...;..-·_····-·-----··-···--·-·---·~···------·---·----··--··-····-··-··--··-----_··--··-··-··-----··_·--··-·----···--·--------·--·-·-·--·----·_·---····--·--·..:....·. :. . · _·..:....··-..:....·_:-...=·····:.._:····...=·-::.:::·---··___.....;.··_;_··.:.:_···..:....-···...:_··:..:;··~··.....:.;__:.;,;..::,.
18" "AINTENANCE DIAGNOSTIC PROGRAM FDR THE 1130 SYSTEM
INTURUPl TEST
PART NO. 2191261
PA'E
I
I
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THt 1130 SYSTEM
INTi:RRUPT. THT
I
PART f<IO. 21912611
'AGE
IA
i
)
)
08EO 00 600008A9
STX Ll M0022
RES TORE WAIT 22
3A809520
0932 00 66000920
LDX l2 INTOl
3A810200
~8E2 00 65003023 08E4 00 600008C8 08~b 00 65003024 08E8 00 60000923 08f A 00 65003025 OBEC 00 60000938 08EE 00 65003026 08FO 00 60000940 08F2 00 65003027 08F4 00 60000962 08F6 00 65003028
LDll l l 13023
s Tll Ll M0023
LOX l l /3024 STX Ll M0024+2 LOX LI /3025 STX Ll M0025 LOX LI /3026
STX Ll M00?.6 LDX LI /3U27
STX Ll M0027 LOX LI /3028
RES TORE WAIT 23 RES TOllE WAIT 24 RESTORE WAIT 25 RESTORE WAIT 26 RESTORE WAIT 27
3A809530 3A809540 3A809550 3A809560 3A809570 3A809580' 3A809590 3Atl09600 3AB09610
3A809620 3A809630
J
,) J
)
, )
0934 OQ bfOOOOOC Oq36 00 4C4009~8
0938 0 302.5
STX L2 /OOOC
. ···"······BO··SC···L···M·0·0·2·5·W·A·I·T··2·5···················*·
· INTERRUPT GENERATEO,tAUSEO A LEVEL l
·
* ·
ADDRESS TO PUSH ST ART
BE GENEkATEO. FOR SCOPE LOOP·
* ·
M··O·D·25··W··A·IT·····/·2·5·······~··LE·Y··0···P·IC·K·E·D···8·JT···1·5·
3Atll0210 3Alil0220 3Atll02 30
3Atll0240 3A010250 3A810260 3Atll0270 3Alll02t10 3Atll0290 3A810300 3Alll0310
08F8 00 60000977 08FA 00 65003029
STX Ll M0028 LOX Ll /3029
RESTORE WAIT 28.
3A809640 3A809650
)
0939 0 6100
· LOX l 0
RESET COLUMN COUNT
3A810320 3010330
08FC 00 6000098C
STX Ll M0029
RESTORE WAIT 29
3A809660
093A 00 60000A7B
STX l l CLCNT
3-'8103...0
OIJFE 00 C4000A7A 0~00 00 94000A82
LO L GOCNT
s L KOlO
LOAD CARD COUNT SUBTRACT 10
3All09670 3A809680
)
)
093C 00 66800A9D 093E 00 6E000938
LOX 12 MOFY6 STX L2 M0025
ALLOW LOOP ALLOW LOOP
3A810350 3A810360
0902 00 4Cl00912 0904 0 6100 . 0905 00 6DOOOA78
BSC L WAJTA,LOX 1 0 STX Ll CLCNT
CHK NUMBER OF PASSES RESET COLUMN COUNT
3A809690 3A809700 3A809710
1 )
0940 00 4C000862 0942 0 0000
·
BSC L CARDS
INT02 DC
0
8RANC.H TO LOOP INTERRUPT 2
3A810370 3Atil0380 3AIH0390
0907 00 60000A7C
STX l l LPCNT
RESET LOOP CARO CNT
3A809720
0943 00 OtOOOA5B
XJO L SENSE
3A810400
0909 00 OCOOOA66
XJO L 81TSW
SENSE BIT SWITCHES
3A809730
0945 00 Cit000A78
LO L CLCt<tT
LOAD COLUMN COUNT
3AIH0410
0908 00 C4000A77
LO L BITSl
LOAD BIT SWITCHES
3At109740
0947 00 66000942
LOX L2 INT02
3A810420
0900 0 l80C
SRA
12
CHK FOR WAIT l OPT
3At109750
0949 00 6EOOOOOC
STX L2 /OOOC
3Atil0430
090E 00 4C040913 0910 00 4C00082C
0912 0 3004
0913 0 6100 0914 00 6DOOOA78 0916 00 6DOOOA7A
BSC L WAITA+ltE RESTORE/GO TO WAIT 1
· · ·
BSC L SETUP+3
NOT 10 PASSES
·*······W·A·I·T··4·········
···W·A·IT·A···W·A·I·T·····4 ············*··DR·AE·NV·I·CS·EU·C·TC·EE·SS·TS·EF·DU·,L·.····*·
····· ··TD···RE·R·U·N···PR·O·G·R·A·M···RP·ERR·EU·SN·S··S·T·A·R·T·.··················
LOX 1 0
STX Ll CLCNT
RESET COLUMN COUNT
STX Ll GOCNT
RESET CARO COUNT
3AB09760 3A809770 3At109780 3A809790 3A809800 3A809810 lA809820 3A809830 3A809840 3A809850
3A809B60 3Ali09870 3A809880 3A809890 3A809900 3A809910 3Atl09920
,
, , ) , 1
)
094B 00 4C400940
09...0 0 3026 091tE 0 6100 094F 00 60000A78 0951 00 6680DA9E 0953 00 6E000940 0955 00 4C000862
·······IN·T·E·R·BRO·U·SC·PT··L·G·E·NM·E0·R0·A2·T6·EW·DA·oIC·TA··U2·6S·ED···A··L·E·V·E·L··2········*·· *·· ·A·PU·DS·DH·R·ES·STS·A·R·TTO··F·BOE·R··G·SEC·NO·E·PRE·A·T·LE·OD·O.·P·.·················**
MOD26 WAIT
/26
·
LEV 0 PICKED BIT 14
LOX l 0
RESET COLUMN COUNT
STX l l CLCNT
LOX 12 MDFY7
ALLOW LOOP
STX L2 Mu026
BSC L CARDS
·
BRANCH TO LOOP
3AB10440 3A8l0450
3A810460 3A810470
3A810480 3A810490 3Atil0500 3A810510 3Atll0520 3A810530
3Atil0540 3A810550 3A810560
3A810570 3A810580 3Atll0590
3A810600
l
)
l
)
1
0918 00 OCOOOA66
XIO L BITSW
3A809930
0957 0 0000
JNT03 DC
0
INTERRUPT 3
3Alll0610
09U 00 C4000A77 091C 0 180C
LO L BITSl
SRA
12
3AB09940 3Atl09950
) 1
0958 00 OCOOOA58 095A 00 C4000A78
XJO L SENSE LO L CLCNT
LOAD COLUMN COUNT
3Alil0620 3Atll0630
0910 00 4(.040502 M0012 BSC L MAPITtE
3AB09960
095(. 00 66000957
LOX L2 JNT03
3Alll061t0
09lf 00 4COOOOAE 0921 00 C4000A78
·
BSC L CLRIX
RERUN PROGRAM
····M·0·0·2·4··LO·····L···C·L·C·N·T·W·A·I·T··2·4L·O·A·D··C·O·LU·M··N··C·O·U·N·T······
3At109970
3A809980 3A809990 3A810000 3A810010 3A810020 3010030
J 1
)
095E 00 6EOOOOOC 0960 00 4C400962
STX L2 /OOOC
·······B·O·S·C···L···M·0·0·2·7···························
· * ·
WAIT 27
INTERRUPT GENERA~EOoCAUSED A LEVEL 3
· ·
·
3Atil0650 3A810660 3Afll0b70 3A810680 3Atil0690
3AIH0700 3Atll0710
) )
0923 0 3024
· LESS THAN 80 COLUMN INTERRUPTS RECEIVED ·
· WHEN ENO OP INTERRUPT WAS GENERATED.NUMBER·
··· ··OPU·FS·!·C-!O·L·SU·TMA·N·R·T·IN·F·TOE·RK··RS·CU·OP·TP·ES··LI·SO·O·DP·I.S·P·L·A·Y··E·D··J·N··A··R·E·G·*·
WAIT
/24
·
3A810040 3A810050 3A810060 3AB10070 3A8.10080 3Atll0090
3010100
1 1 1
0902 0 3027
0963 0 6100 0964 00 60000A78
*·· ·A·PU·DS·DH·R·ES·STS·A·R·TOT···BFOE·R··G·SEC·NO·E·PRE·A·T·LE·OD·O.·P·.·················*·
·M0027 WAIT
/27
LEV 0 PICKED 14+15
LOX 1 0
RESET COLUMN COUNT
STX LI CLCNT
3Atll0720 3Atll0730 3A810740 3A8l0750 3u10100 3A810770
3Alll0780
) ) )
092'1> 0 6100
LOX l 0
RESET COLUMN COUNT
3A810110
0966 00 66800A9F
LOX 12 MOFYB
ALLOW LOOP
3A810790
0925 00 60000A78
STX Ll CLCNT
3A81Cl20
0968 00 6E000962
STX L2 MOD27
3AIH.0800
0927 00 66800A9C
LOX 12 MOFY5
0929 00 6E00092l
. STX. L2M0024
092B 00 4C000862
·
BSC L CARDS
ALLOW LOOP BRANCH TO LOOP
3A810130 3A8.10140 3A8l0150 3Atll0160
)
1
096A DO ~C000862
096C O 0000 096D 00 OCOOOA58
·
BSC L CARDS
JNT05DC
0
.XJO L SENS.E
BRANCH TO LOOP INTERRUPT 5
3Atll0810 3AIH0820 3All10830
3A8J0840
) )
0920 0 0000
JNTOl DC
0
INTERRUPT l
3At110170
096F 00 C4000A7B
LO L CLCNT
LOAD COLUMN COUNT
.3A8108~0
092E 00 OCOOOA58
XJO L SENSE
3A810ltl0
0971 00 6600096C
LOX L2 INT05
3Alll0860
0930 00 C4000A78
LO L CLCNT
LOAD. COLUMN COUNT
3A810190
1
0973 00 6EOOOOOC
STX L2 /OOOC
3Atil0870
)
DATE EC 1110.
OlMAY66 15NOV66 l5JUN67 4154908 419605 420317
PRJG ID 03A8-0
· PA'E
8
t
DATE
01MAY66 l5NOV66 15JUN67
Et NO.
4154908 419605 420317
'
PkOG JO 03A8-0
)
'AGE
8A
··,,
I
.. /
""""' I
I '
~ ../
.--·-......
.. ·---...
,_)
/
".____/)
\
I
/
"'.._../
"·
'i """"\
. "\ I
I ·.__./
j
c:/ c: LI
l/, C, C' c~:;
L. '
·'
IBM MAJNTENANtE DIAGNOSTIC PROGRAM FDR THE 1130 SYSTEM INTERRUPT TEST
097S 00 4C".40041l'1
0977 0 3028
0978 0 6100 0979 00 60000A78 0978. CO 6o800AAO 0970 00 6E000977 097f 00 ltC.000862
0981 0 0000 0982 00 OC.OOOA58 0984 00 C"OOOA78 0986 00 6b00098l 0988 00 6E:OOOOOC 098A 00 4t40098t
098C 0 3029
09.80 0 1»100 098E CO f»DOOOA7B 0990 00 f»6800A99 0992 00 6E0009BC 0994 00 4C000862
0996 00 4C000805
0998 00 OC.OOOA66 099A 00 C4000A77 099C 00 4CO"o~as; 099E 0 1801 099f 00 4C~'J' 09Al 0 1801 09A2 00 "C.0"09Bf 09A4 0 1801 09A5 00 4C0409C7 09A7 00 65000A85 09A9 00 6DD006FE 09A8 00 05000723 09AD 00 4C0009Cf
09Af·OO 65000A82 09Bl 00 6DOOObfE 0983 00 05000723 09B5 00 4C.0009CF
0987 00 65000A83 0989 00 60000bf E: 098& 00 05000723 0980 00 4C0009CF
098f 00 65000l86 09tl 00 f»OOOOtff
llOSC L MOD28
·············································
· · ·
WAIT 28
· · ·
· IHlfRRUPT GENERATED,CAUSED A LEVEL ~
·
· AUORE:SS TO BE GENERATED.
·
.· ..PU.!.>.H..S.TA..R.T..FO.R...S.C.O.PE...L.O.O.P...................· '
.M0028 WAIT
/28
·
LDX l 0
LEY 0 PICKED 13+15 RESf.T COLUMN COUNT
STX Ll CLtNT
:LDX 12 MDFY9
ALLOW LOOP
STX L2 MOD28
·
BSC L CARDS
ADR12 DC
0
BRANCH TO LOUP
XIO L . SENSE
. LO L CLCHT
LDX L2 ADR12
STX L2 /OOOC
········BD··SC···L··1·1·0·0·2·9···························
Iii
WAIT 29
·
····· ··0BP·UI·TWSH·A·S1·2S·GU·WER·NAT·SE·R·DFA·ORT·ROE·DP·SP.·CE·DO·P·EW·H·LE·NO·O·IP·N.·T·E·R·R·U·P·T··L·E·V·E·L········
MOD29 WAIT
/29
INT 0 DROPPED BIT 12
·
LOX 1 0
RESET COLUMN COUNT
STX Ll CLCNT
LOX 12 MDFY2
ALLOW LOOP
STX L2 MOD29
·
BSC L CARDS
JUllP BSC L HOPIT
·
CNTCK XIO L BITSW
BRANCH TD LOOP READ BIT SWITCHES
LD L BITSl
LOAD BIT SWITCHES
BSC L KNTOloE
SELECT COUNT Of 10
SRA
1
CHK COUNT Of 50
&SC L KNT02,E
SELECT COUNT Of 50
SRA
l
CHK COUNT Of 250
BSC L KNT03,E
SELECT COUNT Of 250
SRA
1
CHK COUNT Of 25000
BSC L KNT04tE
SEL COUNT OF 25000
LOX ll KlOO
STX ll NUMBR+l
SET UP CNT OF 100
STD ll NUMCK+l
SET UP LOOP COUNT
·
BSC L . tKOYR
UiTOl LOX ll KOlO
STX ll NU148R+l
SET UP CNT Of 10
STD ll NUl'CK+l
SET UP LOOP COUNT
BSC L CKOVR
·
KNT02 LOX Ll KOSO
STX ll NU148R+l
SET UP CNT OF 50
STD ll NUMCK+l
SET UP LOOP COUNT
·
BSC L CKOYR
KNT03 LOX ll K250
STX ll NUMBR+l
SET UP CNT OF 250
DATE EC NO.
Ol14AY66 15NOV6b l5JUN67
4154908 419605
420317
PART NO. 2191268
PAGE
9
3A810880 3AIH0890
3A810900 3A810910 3Alll0920 3Alll0930 3A810940 3A810950 3A810960 3A810970
3A810980 3A810990 3Alll1000 3Allll010 3A811020 3A8l 1030 3A81101t0 3AIH 1050 3AIH1060 3Alll 1070 3Allll0f0 3A811090
3A811100 3Allllll0 3A811120 3A8111.30 3Allll 140 3A811150 3Al: 11160 3Atllll0 3A81ll80 3A811190 3A811ZOO 3A8ll210
3A811220 3A811230 3A811240 3A811250 3A8ll260 3A811270 3A811280
3A811290 3A811300 3A811310 3AIH1320 3Allll330
3A811340 3A811350 3A811360 3A811370 3A811380 3A811390 3A811400 3A811410 3A811420
3A811"30 3A811440
3A811"50 3A8114b0 3A811470 3A811480
3Abll"9'J 3Aflll 500 3Alll1510
3Allll 5ZO 3A81 l530 3Alll l 540 3Alll l 550
PROG ID 03A8-0
PA<iE
9
l_.)r· \"-.__,/ . · ) 1 · · ) J · l · l · 2 I 1 1 1 ' J t 1 1 J t , t i, I 2 I 2 I 1 I 1 I t I 1 I J
I '
t '
' '
')
")
1 ;
1
(~\
I
\
(.'--",'
c·
( ) c) '-..._../
·-'
18" ~AINTENANCE DIAGNOSTIC PROGRAM fOR THE 1130 SYSTEM INTERRUPT TEST
PART NO. 2191266
f'AGE:
. 9A
09C3 00 05000723
STO L l NllMCK+ l
!>ET UP LOOP COUNT
3Abll5b0
09CS 00 4C0009CF
BSC L CKOVR
3lbll570
·
3Allll560
09C7 00 b5000A87
KNl04 LOX l I KMAX
3Ai!ll 590
09C9 00 b00006FE
s lX ll NllM8R+ 1
SET UP CNT Of 25000
3lllll600
09Cb 00 05000723 09CD 00 4C0009CF
·
!>TO l l lftJHCK+l 8SC l CKOVR
SET UP LOOP COUNT
3Allll610 3Atll lo20 3A811630
I
09CF 00 OCOOOA6b 0901 00 C4000A77
09D3 0 1804
CKOYR XIO l !HTSW
LO L 81TS.l
SRA
4
READ BIT SWITCHES LUAO BIT SWITCHES DELAY CHANGE
3A8llb40 3Alll1650 3Allll660
I
i
0904 00 ltC0409E5
BSC L lfUOLY,E
NO DELAY SELtCTE
3A811670
0906 0 1801
SRA
l
CHECK FOR DELAY
3A8ll680
0907 00 4C01t09EB
BSC L DLYOltE
SELECTED DELAY
3A81lt.90
09D9 Q 1801 090A 00 4C0409Fl
SRA
l
8SC L OLY02tE
CHECK FOR DELAY SE-LECTEO DELAY
3Al:lll 700 3Al:ll\ 710
09DC 0 1801
SRA
l
CHECK FOR DELAY
3A811720
0900 00 ltC0409F7
BSC L OLY03,E
SELECTED DELAY
3Afll l 730
09DF 00 65000A70
LOX ll DELAY
SET DELAY FOK .5 SEC
3A8ll740
09El 00 6D0006E8
STX ll TESTl+l
SE:T UP DELAY
3A8ll 750
09E3 00 4C.0006DB 09E5 00 65000A80
·
BSC L BUSY
NODLY LOX Ll KOOO
LOAD ZERO
3A811760 3A811770 3Alll1780
G9E7 00 600006E:8 09E9 00 4C0006DB
09Eb 00 65000A88 09EO 00 60000bEB 09EF 00 4COOObDB
09fl 00 b5000A89 09f3 00 600006E8
STX
·
BSC
OLYOl LOX
STX
·
BSC
DLY02 LOX
STX
ll TESTl+l L BUSY
ll TIMEl Ll TESTl+l L BUSY
Ll TIME2 ll TESTl+l
SET UP NO DELAY SET UP DELAY SET UP DELAY
3Allll 790 3A81 l800 3Al:ll1810 3A811820 3ABll8JO· 3AB11840 3A811850 3Ull860
3ABllb70
I
I
l
09f5 00 4'000608 09f7 00 65000ABA
·
BSC L BUSY
DLY03 LOX ll TIME3
3A811880 3A811890 3ABll900
09F9 00 600006E8
STX Ll TESTl+l
SET UP DELAY
3A811910
09Fa 00 4C.00060B
·
BSC L BUSY
3A811920 3A811930
09FO 00 OCOOOA66 CNTIT XIO L BITSW
READ BIT SWITCHES
3A811940
09ff 00 Clt000A77
LD L BITSl
LOAD BIT SWITCHES
3A811950
OAOl 00 lt{;040Al2
BSC L CNTOl,E
SEL CARO CNT Of 10
3A811960
OA03 0 1801
SRA
1
CHK CARO CNT OF 50
3Alll1970
OAO" 00 ltC040Al8
esc l CNT02,E
SEL CARO CNT OF 50
3A811980
OA06 0 1801
SRA
I
CHK CARO CNT OF 250
3A811990
OA07 00 4C040AlE
BSC L CNT03,E
SEL CARD CNT OF 250
3A812000
OA09 0 1801
SRA
l
CHK CARD CNT OF 25K
3A8l20l0
OAOA 00 "C040AZlt
BSC L CNTOlt,E
SEL CARO CNT Of 25K
3A812020
OAOC 00 65000A82
LOX ll KOlO
3Alll2030
OAOE (JO 60000872
STX Ll TOTAL+l
SET UP CNT OF 10
3A812040
OAlO 00 4COOOA2A OA12 00 b5000A82
BSC L ENOCK
·
CNTOl LOX ll KOlO
3A812050 3Alll2060 3AB12070
0Al4 00 60000872
STX Ll TOTAL+l
SET UP CNT Of 10
3A812080
0Al6 00 4COOOA2A OA18 00 65000A83
·
BSC L ENOCK
CMTOZ LOX Ll KOSO
3A812090 3Alll2100 3A812 ll0
OAlA 00 60000872
STX ll TOTAL+l
SET UP CNT Of 50
3A612120
OAlC 00 4COOOA2A
·
8SC l. ENOCK
3AIH2130 3A812140
OAlE 00 65000A8b CMT03 LDX Ll K250
3A81Zl 50
OA20 00 b0000872
STIC ll TOTAL+l
SET U~ CNT Of 250
3A812160
OA22 00 4COOOA2A OA24 00 b5000A87
·
BSC L EMDCK
CNT04 LOX Ll KMAX
3A&lZ170 3A812l80 3A812190
OA26 00 60000872
STX ll TOTAL+l
SET UP CNT OF 25000
3A812200
OA28 00 4COOOA2A OA2A 00 OCOOOA66
·
BSC L ENOCK
ENOCK XJO L 81TSW
READ BIT SNITCHES
3A812210 3A812220 3A812230
DATE EC NO.
Oll4AYb6 15NOV6b 15JUN67
4154908 '-19605
420317
PRDG 10 OJAB-0
PAGE
9A
IGM MAl ..TUANCE DIAGNOSTIC PROGR·M FOil THE 1130 SYSTEM INTERRUPT TESJ
OA2C 00 C400DA17
OA2E 0 1804 0A2F 00 4C040A40 OA3l 0 1801 OA32 00 4C040A46 OA34 0 1801 0A35 00 4C040A4C OA37 0 1801 OA3:\ 00 4C040A52 0A3A 00 65000A7D
OA3C 00 60000858 OA3E 00 4'000868
OA40 00 6!>000A80
0A42 00 60000858 OA44 00 4'000868
0A46 00 65000A88
OA48 00 6D000858 OA4A 00 4C000868
OA4C. 00 65000A89 0A4E 00 60000858 OA50 00 4'000868
OA52 00 65000A8A
OA54 OG 60000858 OA56 00 4'000868
OA58 0A58 0 OA59 0 0A5A 0 0A58 0 0A5C 0
OASD 0
OA5E 0 OA5f 0 OA60 0 OA61 0
0A62 0 0A63 0 0A64 0 0A65 0 OA66 0 0A67 0 OA61 0 OA69 0 OA6A 0 0A68 0 OA6C 0 OA60 0
0A6E 0 OA6f 0 OA70 0 OAll 0 OA72 0 OA73 0 OA74 0 OA75 0 OA76
OA77 0
0A'18 0 OA79 0 OA7A 0 OA78 0 OATC 0
OA70 0
0000 0000 1703 0000 lfOl 0000 4f 03 0000 2701 0000 2F01
0000 3701 0000
OFOl OA77 3AOO 0000 3F01 0000 1402 OA6E 4EOO
0001 0000 0000 1404
0000 lCOO OA76 1200 0001 0000 0000 0000
ooc.o
0000 0000 FlOO
LO SU
L
.l..lTSI
BSC L DLYNO.E
SRA
1-
BSC L DLAYl.E
SRA
l
BSC L DLAY2,E
SRA
l
BSC l 0LAY3oE
LLX . Ll DELAY
STX Ll SlAAT+l
·
BSC L RETRN
OLYNO LOX Ll KOOO
STX Ll SlART+l
·
BSC L RETRN
OLAY I LOX Ll TIMEl
STX Ll START+l
·
BSC L RETRN
OLAY2 LOX Ll TIME2
STX l l START+l
·
ISC L RETR..
OLAY3 LOX Ll TlME3
STX Ll START+l
·
BSC
ass
SENSE oc
L RETRN
E 0
0
DC
SEN PT oc oc
SEN25 oc
/1703
0 /lFOl
0
DC
DISK oc
/4F03 0
DC
/2701
PLOT DC
0
DC
/2F01
PRINT DC
0
DC
13701
CONSL DC
0
DC.
/OFOl
BJTSW DC
eJTSl
DC
STOP oc
/3AOO 0
DC
/JFOl
FEED DC
oc FEEDS oc
0
/1402 TAILE
DC
/4EOO
TABLE DC
oc RES TR oc
oc tNTRL oc
l 0 0 /1404
0
DC
READ oc
/lCOO RARE A
CIC
11200
RARE A BSS
1
BJTSl DC
0
8JTS2 oc
0
8JTS3 DC
0
GOCNT DC
0
tt.Cln DC
0
LPCNT DC
0
DELAY DC
/F700
DATE
EC NO.
OlMAY66 lS-.OVU 15Jl.*·7
415..908 419605
420)17
>OAO e:T SWITCHES DHAY CHANGE NO DELAY SEltCTED CHECK FOl"t DELAY HLECTED DELAY C.HE.CK ':QR DELAY HlECT ~D DELAY lHECK FOR DELAY HLEC.TEO DELAY HT DELAY FOK .5 SEC SET UP DELAY LOAD ZERO SET UP NO DELAY
SET UP DELAY
SET Ut> DELAY
HT UP DELAY
AESET OSW
SENSE 2501 DSW
READER START ADVANCE TAPE
BIT SWITCH SETTINGS LAST DEVICE SELECTED LEVEl ON BITS GODO PASS COUNT COLUMN COUNT LOOP COUNT SCOPE LOOP 1ELAY
PART NO. 2191268
PAGE
10
3Al:ll2240
3Ul2250 3A8122b0 3A812270
31\812280 3481.2290 3AIH2 300 31.612310 3A812320 3A812330
3A812340 3Adl2350 3A812360 3A812370 3012380 3A812390
3A812400 3A8124l0 31812420 3A812430 34812440 3A812450 3A812460 3A812470 3A8121t80 3A812490
31812500 3A812510 3A812520 3A812530 3A812540 3Acil2550
3A812560 3A812570
3A812580 3A812590
34812600 3A812610 348126,0 34812630 34812640 3A812650 34812660 34812670 3A812680 34812690 34812700 34812710 34812720 3A812730 3A812740
3A8~2750
3481<!760 34812770 3A812780 34812790 3A812800 3A812810 3A812820 34812830 3A812840 3A812850 3A812860 3A812870 3A812880 34812890 34812900 3A812910
PROG ID 0348-0
PAGE
10
)
.. __ /
I
·
·
· )
) J
) J
)
)
)
)
)
)
)
)
)
)
)
)
)
)
J }
l
)
' ") ' ) '
l
l
l
)
') )
') ")
j
")
I
)
)
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM INTERRUPT TEST
OA7E 0
OA7F 0
OA80 0
OAIH 0
OA82 0
OA83 0
OA84 0
OA85 0
OA86 OA87
,o0
OA88 0
OA89 0
OA8A 0
OA8B 0
OA8C. 0
OA80 0
OA8t: 0
OA8F 0
OA90 0
OA9l 0
OA92 0
OA93 0
OA94 0
OA95 0
OA96 0
OA97 0
OA98 0
0A99 0
OA9A 0
OA98 0
OA9C 0
OA90 0
OA9E 0
OA9f 0
OAAO 0
OAA2
0000 0001 0000 0001 OOOA
0032 0050 0064
OOFA 61A8
ODEO lEEO 30C.O 1000 1801 180A
1808 70E9 7078 7068
7058 7048 70F4 7004 70C8 708C 701A 7009
101t1 7009
7083 709C 7087 7033
701E 0500
DSWI DC
ADDO I oc
KOOO DC KOOi DC
KOlO DC
K050 DC KOSO DC KlOO DC
K250 DC. K·UX DC
T IMEl DC T IME2 DC. TIME3 DC NOPIT DC SRAOl DC Sl'AlO DC SRAll DC MOfYA MOX M0r'Y8 MOX MOFYC MOX
MOFYD MOX MO FYE MOX MOFYF MOX MOFYG MOX MOFYH llDX MOFYJ MOX
MOFYL MOX MOFY2 MOX
MOFY3 MOX MDFY4 MOX
MOFY5 MOX MOFY6 MOX MOFY7 MOX MOFY8 MDX
MOFY9 MOX
ENO
0
1
0
CONSTANT ZERO
l
CONSTANT l
10
CONSTANT 10
50
CON~TANT 50
80
CONSTANT 80
100
CONS TANT 100
250 /6lA8
CONSTANT 250 CONSTANT 25000
/OOrn
OE LAY - 62.5 MSEC
/lFE:O
DELAY - 125 MSEC
/ 30C.0
DELAY - 250 MSEC.
/1000
/1801
/180A
/1808
x 8USY-M0Dll-l x GAP IT-MOOl3-l x GAP IT-M0014-l x GAPIT-M0015-l x GAPIT-M0016-l x GAP IT-M0017-l x GAP IT-MOC 18-l x GAPIT-MOD19-l x GAP I T-MOOU-l x CKRUN-MODll-1 x JUMP-M0029-l
)t MOD22-M0021-l
x HOP IT-MOD2 3-l x HOPIT-M0024-l x HOPIT'-M0025-t x HOPIT-M0026-l x JUMP-M0027-l x JUM!>-M0028-l
BEGIN
DATE EC NU.
01MAY66 15NOV66 15JUN6'1
4154908 419605
420317
PART NO. 21912611
PAGE
lOA
3A812920 3Alll2930 3AIH2940 3A812950 3Al:il29b0 3AIH2970 3A8l298u 3A&l2990
3A8l 3000 3A813010
3A813020 3A813030 3A813040 34813050 3A813060 3Alll3070 3Alll 3080 3A813090 31813100 3A813110 3Al:il 3120 3Alll3130 3A8l3140 3Alll3l 50 3Abl 3160 3Abl3!70
3Al:il 3180 3A8l:;l90
3A8l 3200 3Abl32l0 3A813220 3A813230 3A813240 3A813250
3Alll3260 3A8132'10
., )I
)\
)i
)\
)II I ")
) ) ) )
J 1
'
~-)
)
PitOG ID PAGE
0348-0 lOA
) ·-------- --~ - . __ )
'
\ ________ /
/
~../
---.
~./
·--.
..__
\
'-
I
'1
_/
' ./
.,
' )
)
.... _/
./
~
" \ I
'-....__,/
t IBM MAINTEN'11CE OIAGNOSTlt 'ROGRAM FOR THE 1130 SYSTEM
INTERRU!tT TEST
' (
"
.PMlT HO. 2191268
. PAGE
11
tMOSS REFERENCE LISTING
SYMROL AO()Ol
AIJR12
IA012 llAOl ..
Bl:GIN
8JTSw
VALUE OUF
0981 0708 07E7 0500
01i166
llTSl
ensz
BITS3 BUSY
OA77
OA78 0"79 0608
8UlY CARDS C:HEtlt CK8 IT CKOOK CKLOP CKOYR CKROY CK RUN CLCNT
0848 0862
· 0876 0578 -07C7 053E C9CF 087F 070C OA7B
CLE RR CLRIX CNTCK CNTIT CNTOK CNTRL CHTOl CHT02 CHTU C:NT04 COL GO COHSL DELAY DISK DLAYl DUY2 DLAY3 DLYNO DLYOl DLY02 DLY03 DS111CK
051111 ENOCK ERROR FOCYC
FHD
FEEDS FINSH GAPIT GOCNT GOLOP HOPIT INTOO INTOl INT02 1NT03 INTO" JNT05
08C9 06AE 0998 09FD 08DA 0"72 OA12 OAll OAlE 0&24
OBAS OA64 OA70 OA5E OA46 OA4C 0152
oa .. o
091:8 09Fl 09F7 07FF
OUE OA2A 071A 0715 OA6A OA6C 07A8 ·01115 OUA 055 .. 08D5 0&07 0920 0942 0957 08S2 096C
ltEFERENc;fS 06F9
084400986
051Aw05EAw0634o067C
051Eo05EC,0636 0 067E OUl
0528o053Eo0613o065Bo06A3o06EOt07AC,0850,0909,0918o 0998o09CFo09FDo0A2A 052D,0540o06l5,065Do06A5o06E2o07AE,0852o090Bo091Ao
099A,09Dlw09FfoOA2CoOA66
OS30w0~18o0660o06A8
,
0543,0548
,
05D6o05F6,0620,0640,0668o0688o060Eo0714,0709o09E3o 09E9o09EFo09F5,09fBoOA8F
084E,0875,087E
0803,0928o0940,Q955o096Ao097fo0994
0873 054A
05E8o0632o067Ao0710 061A,0662o06AA
09A0o09P5,09B0,09<:5o09CO 0858,0885
06Fl,OA98
Oa76,087C,089A,08AF 0 088Fo08C9o08C0,08060 0905 0 09140 092lo0925o0930o093Ao0945o094fo095Ao0964,096fo0979, 0984,09BE
08C7
0552,01n,091f
0718
0869
0855,08C3 Ob4A
OAOl OA04
OA07 OAOA
08A3 0820
06E7,0857o090foOA3A
0751 ,,,.)2
0Al5
OA38 OA2f
0907 090A
0900 05F0,05f2o05FC,05FE,063Ao063Co0646o0648,0682,0684,
068Eo0690o06ECo0806 07FF,0804,080Eo087Fo0883o088C
0AlO,OA16oOAlCoOA22oOA28 0718,0785
0708,0726,072E,07E5,07Flo07f~~0818
0600,06EE
0692 060C,0610,0654o0658o069C,06AO
OA90,0A9loOA92,0A93,0A94oOA95oOA96oOA97
06F5,0716,07A2,~7A6,082A,0863,0885o08FE,0916
0584,058Eo0598,05A2o05ACo0580996,0Ai8,0A9C,OA9DoOA9E
082C 0830,0932
0834,0947
0838,095C 083C,089c:
0840,0971
01MAY66 1SNOY66 1SJUN67
4154908 419605
420317
PROG 10 03&8-0
PAGE
11
(
--'\-- _,., __
·
·
· · )
· ) · )
· )
) I
) I
)
1
)
1
) )
) 1 J 1
, J
'
t
J 1
j
, J , '
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM INTERRUPT TEST
JUMP KMAX KNTOl KNT02 KNT03 KNT04 KOOO KOOl KOlO KOSO KOSO KlOO K250 LESSl LOOPS LOOPO LOOPl LOOP2 LOOP3 LOOP4 LOOPS LPCNT
MAPIT MOFY2 MOFY3 MOFY4 MOFY5 MDFY6 MOFY7 MOFYB MDFY9 l'OOlA MODll ptQ012
MUD13 M00l4 MOD15 M0016 M0017 MOOlll M00l9 MOD20 HOD21 M0022 MOD23 M0024 MOD25 MUD26 MlJD27 MOD28 MCJ029 MOFYA MOFYll MUl'YC MOFYO MO FYE MOFYF MOFYG MOFYH MOFYJ MOFYL hOAOR NODLY NOF'IT NOROY NRDYA t.iROYb
0996 0Ab7 09AF 0987 O'ilBF 09C7 OA80 OA81 OA82 OA83 OA84 OA85 OA86 085F 0574 0730 0741)
0750 0760 OBlD 07117 OA7C
05(,2 OA99 OA9A OA98 OA9C OA90 OA9E OA9F OAAO U7F8 06Fl 0910 0739 'J749 0759 0769 07CO 07EO 07EC 01126 0861 08A9 08C.B 0921 0938 0940
0962 0977 098C OA8F OA90 OA91 OA92 OA93 OA94 OA95 OA96 OA97 OA98 07f 3 09(:5
OA8B 0892 0511E 05:;9
OA99,0A9F,OAAO
09C7,0A24 099C 099f 09A2 09AS 09E5,0A40 07lE o07A4,0860 060A,07A8,0900o09AFoOAOCoOA12 OY87oOA18
OBCl 0604,064E,0696o06F0,0722t087lo09A7 098F,OA1E 0860,08A7,0808
0577,0582,0588,0592 0 059Co05A6,0580 0580 0586,058A 0590,0594 059A,059E 05A4,05A8 05AE,0582 06F7,06F8,071C.o720,012c,0111t,08l9,0868,086F,o87A, 0907 073E,074E,075E,076Eo07C5o0827,0910 0990 OBAO 08Cf 0927 093C 0951 0966 0978 06C.5,07A0,07F6 0 07F8 0 0A97 06F3,0709,070F,0778,0703oOA8F 0 0A98 05&8 0556,05&A,Ob87,06C9,0737,073C,0784o0A9G
0~5Ao056C,0689,06C0,0747,074C.o0788o0A91
055E,056E,0688,06Dl,0757o075CoC78C,OA92 0562,0570,06B0,0605,07o7o07&Ct0790,0A93 0566,0572,068F,06D9,0794,078E,07C3,0A94
06Cl,0798,070E,07E3oOA95 06C3,079C,07EA,07Eft0A96 0824
0867,08A2,088l,0889 0 080C 0 0A9A o8At,oaso,oeEo.oA9A 080lo0BE4,0A98 08C5,0BE8,0929,0A9C O&EC,0936o093E,OA90 08F0,0948o0953 0 0A9E
08F4,0960,0968oOA9f 08F8,0975,097DoOAAO 08FC,098Ao0992oOA99 0701 073A 074A
075A 076A 07C.l
07El 07ED 07f9
0776 0522,05EE,0638o0680 0904 05F8,068A 08BE 058A 05C4
DATE EC NU.
01MAY66 15NOY66 15JUN67
4154908 419605
420317
PAMl NO. 21912611
~A~E
llA
PROG 10 PAGE
03A8-0 llA
, ·'
) .
l l
) ) ) ) )
l
) )
) )
) }
l
·)
JIM MAIHTENA..CE DIAGNOSTIC ·RDGRAM FOR THE 1130 SYSTEM INTUltUPT 1HT
)
PART ND. 219l2H
PAGE
12
, l
NROYC - 0501
OSCO
NUMllR NUMCK PLOT PRINT RAJtEA
06FD
0722 OA60 OA62 OA76
0606o065010698o09A910981109119109Clo09C9
·Ob08, 0657., Ob9A oOf>B 5109A8 · OC/8 3, 0988, 09C3,09C8 0761
074f
OA74
' -·
REAO OA74
08"5
Rl:SET 0841
J
RES TR ouo
0850
RETRN 0&68
OA3E,OA44oOA4A,OA50oOA56
RUNC.K 06FO
C708o070E,077Co07tf
I
RUNCJlt J70l
070Ao0780
stNPT OA5A
05Cl1061Eo073lo0822
SENSE OAS8
05BR,0504,060B,Of>E9o07291073510745o0755,0765o0771 0
J
01ec,01ca,01oc,01ee,01F4,oeo1,oeoA,oe1e,oe~a,oes9,
088lo0889,0893o0898108B31092E1094~1095B1096D,0982
. !.EN.25· OA5C
05CBo06b6
1
SET PT ll61E
05C6
SETUP 0829
060Eo07AA,0910
SET25 SET42 SRAOl
SRAlO
0666 ·0504 OA8t OABD
OSCF -05BC 05F4,0616 0642
1 ,
SRAll OA8E
063E
START 0857
0887 ..0890o0895oOA3CoOAlt2tOA48,0A4E,OA54
-STOP OA61
·0188
l
TABLE OA6E
OA6C
TESTI 06E7
0508,05FA,0602o0622t0644o064Co066Ao068Co0694,0808,
OB12o0815,09Elo09E7o09EDo09F3o09F9
)
TIMEl OA88
09E8oOA46
T1ME2 0Ae9
09FltOA4C
TIME3 OABA
09F70 0A52
')
TOTAL 0871
OAOEoCA14oOA1AoOAZOtOA26
VECTO- 0580
0546
VtCTl 0586 VECTZ O:i90 · VEtTJ - 059A VECT4 05A4
051E 0540
0579 0550
, )
YECTS -o~AE
057C
vecoo 0134
oso2,osoc,06Z6o066Eo07JJ
VEtOl VECOZ VEC03
0744
0754 0764
-oso6,05DE,0628o0670o074J OSOA,05E0;06ZAo0672,075,3.
osoe,o5e2,062t.0674,076~
'
VEC04 0770
os12;05E4o062Eo0676oObBlo06E5o0702o0705
I
VECO!» 07&8
0516o05E6t0630o0671o07BA
WAITA 09U
0656o069Et07Blt0902t090E
WAITC WAITF llA ITG
07CC 0501 0728
07CA ·osoA,0624,066C,0724
'
llAITl 0527 llAITZ · 0817 llAIT3 0814
D52Ao0575 06FF 0110
'
llAIT8 0531 WHATl · 0588 WHAT2 05Cl
0539 0536
'
WHA T3 05CB WHICH 0528
0533
05261053C,05BF~05C9t05D2106ltt0664o06AC
'
'
)
)
1
DATE ·1c ffO.
01MAY66 15NCV66 UJU.7 4154908 419605 420317
- --.... )
/
. -.... \ I
.._____/
,.-·--...... ' I
'__/
,-,
.,
_,---.__
I
"
I
_/
. _/
-,
-----....
,
PROCO ID 03A8-0
PAGE
12
- -·--·-------··-··
.. ----- ..
..... --...,..,
--\
,,--...,
_.,-- ......\
------..
.,__,.)
I
·-----/
I
'-- __/
)
--__/
-,
,...-.....
\
__ /
-/
)
-_ )
·'-
·.'
;,..·-,
--~
,, ..........
\
I -._______/
-·-.., ......
-'-.___./
-- , .... .....
I
/
/
I ~_./
..,
·-~--------· _.,,.._______ . ·-·- . ·---~~....----.··· -- ·-. ··--------·----~-:___:_----~---
"!
/ __
_)
)
.. --)
"·----
·~·
,-· (
\
'--'
·......__ __
'-'
(
'--·
/
/
\
(
'-... . .
I \ '-......
(
,,.. ...
(
(
I
\.__
"'----·
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM CE UTILITY PROGRAMS
PART NO. 2243957
PAGE
1
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM CE UTILITY PROGRAMS
PART NO. 2243957
PAGE
lA
1130 ON LINE DISK ADJUSTMENT PROGRAM
1130 ON LINE DISK ADJUSTMENT PROGRAM
1. PURPOSE
*~************************************************* 30A00020
* 30A00030
* THE 1130 DISK ACCESS PROGRAM WAS DESIGNED TO BE 30A00040
* USED WITH THE ACCESS ADJUSTMENT PROCEDURE FOUND 30A00050
* IN THE SDS MAINTENANCE MANUAL.
30A00060
**THE PROGRAM WILL MOVE THE CARRIAGE BETWEEN
30A00070 30A00080
* TRACKS 2 AND 200, AND COMPARE SECTOR ZERQ
30A00090
* ADDRESSES AT THOSE TRACKS.
30A00100
* 30A00110
* THE SEEK OPERATION CAN BE SELECTED IN EITHER 10 30A00120
* OR 20 MILL MODE.
30A00130
2. REQUIREMENTS
****************************************************
30A00140 30A00150
** THE C.E. MUST HAVE A 1130 SYSTEM WITH CARD
30A00160 30A00170
* READER OR PAPER TAPE INPtiT.
30A00180
** THE CARD READER PROGRAM CONSISTS OF 4 CARDS.
30A00190 30A00200
* THE lST CARO IS AN IPL LOADER, THE OTHER 3
30A00210
* ARE PUNCHED IN B/B FORMAT AND CONTAINS THE
30A00220
* MAIN PORTION OF THE PROGRAM.
30A00230
3.
USE PROCEDURE
****************************************************
30A00240 30A00250
* 3.1 SETUP AND * A. LOAD PROGRAM IN READER AND MAKE READER
30A00260 '.30A00270
START
*
READY. ADD A BLANK CARD.
30A00280
** B. DEPRESS RESET AND PROGRAM LOAD PUSH
30A00290 30A00300
*
BUTTONS. PROGRAM WILL STOP AT WAIT O.
30A00310
** C. AT WAIT o, ENTER DISK DRIVE AREA CODE OF
30A00320 30A00330
*
DESIRED DRIVE IN CONSOLE BIT SWITCHES
30A00340
*
0 THRU 4 AND CLEAR BITS 5 THRU 15.
30A00350
* * * * ***** D.
DRIVE
BIT SW SETTING
0 ················· 12000
1 ················· /8800
2 ··· ~·············/9000 3 ················· /9800
4·················/AOOO
DEPRESS START PUSH BUTTON.
30A00360
30A00370 30A00380 30A00390
30A00400 30A00410 30A00420
30A00430 30A00440
3.2 OPERATION
* 30A00450
*************************************************** 30AOO'J-60
** THE PROGRAM WILL START OUT IN 20 MILL MODE.
30A00470 30A00480
**THE CARRIAGE WILL SEEK HOME, GO TO TRACK 2,
30A00490 30A00500
* READ SECTOR ZERO AND COMPARE FOR TRACK ADDR. 2 30A00510
** A GOOD COMPARE CAUSES THE CARRIAGE TO GO TO
30A00520 30A00530
* TRACK 200, WHERE SECTOR ZERO IS READ AND
30A00540
* COMPARED FOR TRACK ADDR. 200
30A00550
** A GOOD COMPARE WILL CAUSE THE CARRIAGE TO GO
30A00560 30A00570
* BACK TO TRACK 2 AND REPEAT ABOVE OPERATION.
30A00580
** IF A COMPARE ERROR IS DETECTED, A~iRROR WAIT
30A00590 30A00600
* ENCOUNTERED. SEE ERROR WAITS ···· 13.31.
30A00610
, ...
** TO STOP PROGRAM, DEPRESS IMMEDIATE. STOP.
30A00620 30A00630
'f
** TO START PROGRAM, DEPRESS START.
30A00640 30A00650
** TO CHANGE FROM 20 MILL MODE OPERATION TO 10
30A00660 30.A00670
* MILL OPER~TION, OR FROM 10 MILL OPERATION TO·
30A00680
* 20 MILL OPERATION, A. DEP~ESS IMMEDIATE STOP.
30A00690
*
B. DEPRESS PROGRAM RESET.
30A00700
*
C. DEPRESS START.
30A00710
*
30A00720
3.3 WAITS
*************************************************** 30A00730
*
30A00740
/3000 * ENTER DISK DRIVE AREA CODE. I SEE 3.1 C I
.30A00750
*
30A00760
ERROR WAITS *************************************************** 30A00770
/30Fl
* * THE ADDRESS OF TRACK 2, SECTOR ZERO WAS READ
30A00780 30.A00790
· AND FOUND INVALID.
30A00800
*
30A00810
* CHECK IF CARRIAGE IS SETTING AT DETENT 2.
30A00820
*
30A00830
* IF CARRIAGE IS 1 NOT 1 IN CORRECT DETENT,
30A00840
* DEPRESS START TD CONTINUE ADJUSTMENT.
30A00850
*
30A00860
* IF CARRIAGE IS IN CORRECT DETENT, DO A SECTOR
30A00870
* REWRITE. ************************************* 30A00880
*
*************** CAUTION ************* 30A00890
*
*
* ************************************* 30A00900
*
30A00910
*
* ONLY USE TRACK 2 REWRITE OPTION * 30A00920
*
* WHEN SETTING AT WAIT /30Fl.
* 30A00930
*
*
* 30A00940
*
* REWRITE OPTION WILL DESTROY
* 30A00950
*
* ORIGINAL SECTOR DATA.
* 30A00960
*
*
* 30A00970
*
************************************* 30A00980
*
30A00990
*
A. LOAD I REG TO /0043.
30A01000
*
B. PLACE CONSOLE SW IN RUN.
30A01010
*
C. DEPRESS START.
30A01020
*
30A01030
*************************************************** 30A01040
/30F2
* * THE ADDRESS OF. TRACK 200, SECTOR ZERO WAS READ
30A01050 30A01060
* AND FOUND INVALID.
30A01070
* * CHECK IF CARRIAGE IS SETTING AT DETENT 200.
30A01080 30A01090
'' * IF CARRIAGE IS 1 NOT 1 IN CORRECT DETENT,
30A01100 30A0111Q
* DEPRESS START TO CONTINUE ADJUSTMENT.
30A01120
*
30A01130
* IF CARRIAGE IS IN CORRECT DETENT, DO A SECTOR
30A01140
* REWRITE. ************************************* 30A01150
*
*************** CAUTION ************* 30A01160
*
************************************* 30A01170
*
*
* 30A01180
*
* ONLY USE TRACK 200 REWRITE OPTION * 30A01190
*
* WHEN SETTING AT WAIT /30F2:
* 30A01200
*
*
* 30A01210
*
* REWRITE OPTION WILL DESTROY
* 30A01220
*
* ORIGINAL SECTOR DATA.
* 30A01230
*
*
* 30A01240
*
************************************* 30A01250
*
30A01260
*
A. LOAD I REG TO /0046.
30A01270
*
B. PLACE CONSOLE SW IN RUN.
30A012.80
*
C. DEPRESS START.
30A01290
*
30A01300
*************************************************** 30A01310
/30F3
*
.
* LOST INERRUPT WHIL£ READING IN PROGRAM.
30A01320 30A01330
*
30A01340
3.4 TERMINATION *************************************************** 30A01350
* * TO TERMINATE PROGRAM_;D~fRESS IMMEDIATE STOP.
30A01360 30AOll70.
15DEC67 420400
PROG ID PAGE
030A-* 1
DATE EC NO.
15DEC67 420400
PROG ID PAGE
030A-* lA
_,.. r;
t
· '
'
"'-------
(_____ _
(
\ . _______
n·
( (
"-----
I
'
(
'"'\ J
L
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM CE UTILITY PROGRAMS 1130 ON LINE DISK ADJUST~ENT PROGRAM
PART NO. 2243957
PAGE
2
4 PRINTOUTS
5 COMMENTS
0000
0000 0 603B
0001 0 0000 0002 0 0000 0003 0 BB18 0004 0 0000 0005 0 4800 0006 0 0001 0007 0 0004 0008 0 OOOE 0009 0 2808 OOOA 0 003D OOOB 0 0003 OOOC 0 OOOE OOOD 0 0034
OOOE 0 0000 OOOF 0 08F2 0010 0 4850 OOH 0 7001 0012 0 7005 0013 0 4848 0014 0 0000 0015 0 7011 0016 0 08Fl
0017 0 30F3 0018 0 OBEB 0019 0 COEA OOlA 0 FOEB OOlB 0 DOES OOlC 0 4820 OOlD 0 70F9 OOlE 0 COEl OOlF 0 1808 0020 0 FOEO
0021 0 OOD4 0022 0 003B 0023 0 COFE 0024 0 80El 0025 0 DOFC 0026 0 70FO
0027 0 COE3 0028 0 90DD 0029 0 DOEl 002A 0 4808
*
30A01380
*************************************************** 30A01390
** NONE
30A01400 30A01410
* 30A01420
*************************************************** 30A01430
* 30A01440
* TO RERUN PROGRAM ON ANOTHER DRIVE, PROGRAM MUST 30A01450
* BE RELOADED.
30AOl460
** **************************************************
30A01470 30A01480
ABS
30A01490
ORG
0
30A01500
** ********************************************
30A01510 30A01520
* *
3 CARD LOADER PROGRAM
** ********************************************
30A01530 30A01540
30A01550 30A01560
*BGN LDX
BUILD
GO BU I LD IOCCS
30A01570 30A01580
* oc
LDX
PROGM IF P.T.
CARD RD IN AREA
30A01590 30A01600
DSW DC
oc
RDIN DC
DC
·-·/B818
/4800
IOCC-SENSE/RESET DSW COL RD IN ADDR IOCC-READ COLUMN
30A01610 30A01620 30A01630
30A01640
ONE DC
1
CONSTANT 1
30AOl650
FOUR DC
4
CONSTANT 4
30A01660
RDCRD DC
INT
RDR INTERRUPT ADDR
30A01670
DC
/2808
IOCC-START READER
30A01680
DC
INT2
DISK INTERRUPT ADDR
30A01690
LAST DC
3
LOADER CARD COUNT
30A01700
DC
INT
oc
INT5
READER INTERRUPT ADD PROG STOP INTERRUPT
30A01710 30A01720
*INT DC
READER INTERRUPT
30A01730 30A01740
XIO
DSW
* SERVICE ROUTINE
30A01750
BOSC MDX
INTl
*BR IF NOT RESPONSE
30A01760 30A01770
MDX
WAITI&l
BR IF RESPONSE
30A01780
INTl BOSC
&
RESET OP COMPLETE
30A01790
DC
30A01800
MDX
ENCRD
BR, END OF CARD
30A01810
XIO
RDCRD
START READER
30A01820
*WAIT! WAIT
-ID
WAIT FOR INTERRUPT
30A01830 30A01840
XIO
RDIN
RD COL. ONE-HALF WD
30A01850
LD
RDIN
EOR
ONE
*SW READ/IN AREA, EVN
30A01860 30A01870
STD
RDIN
BSC
z
* COLS. IN o, ODD IN 1
CHK BOTH HALVES IN
30A01880 30A01890
MDX
WAIT I
NO, WAIT 2ND HALF
30A01900
LD
BGN
YES, PACK BOTH HAVES
30A01910
SRA EOR
S*TORE DC
8 BGN&l
/OOD4
* *
lST WORD OF STD L
30A01920 30A01930
30A01940 30A01950
DC
BUILD
2ND WORD OF STO L
30A01960
LD
STORE&l
SET UP NEXT STORE
30A01970
A
ONE
* ADDRESS
30A01980
STD MDX
STORE&l WA ITI
*GD WAIT FOR NEXT COL
30A01990 30A02000
*ENCRO LD
s
LAST ONE
CHK FOR LAST CARD LOADED
30A02010 -30A02020 30A02030
STD
LAST
30A02040
B_SC
&
*
30A02050
DAT£ EC NO.
15DEC67 420400 "
PROG ID PAGE
030A-*
2
!BM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM
CE UTILITY PROGRAMS
1130 ON LINE DISK ADJUSTMENT PROGRAM
002B 0 6030
ooze o COF5
0020 0 9009 OOZE 0 DOF3 OOZF 0 70E6
0030 0 C83F 0031 0 D8CE 0032 0 3000 0033 0 7019
0034 0 0000 0035 0 083C 0036 0 603 8 0037 0 0000 0038 0 0000 0039 0 0000 003A 0 0000
0038 0 COC7 003C 0 1803 0030 0 DOC5 003E 0 COCA 003F 0 1801 0040 0 DOC8 0041 0 COC3 0042 0 1802 0043 0 DOC! 0044 0 CODC 0045 0 1008 0046 0 DODA 0047 0 6016
0048
003B 0 4CCO 0034
003D 0 0000 003E 0 0835 003F 0 4C40 008C
0041 0 0000 0042 0 0000
0043 0 0832 0044 0 4045 0045 0 7002
0046 0 0831 0047 0 4042
0048 0 0833 0049 0 4040 004A 0 0833 0048 0 403E 004C 0 7048
004D 0 6210 004E 0 0835 004F 0 C273 0050 0 EBFl
LOX
PROGM
YES, BRANCH TO PROG
*
LO
s
STORE&! FOUR
NO, SET UP NEXT READ * IN AREA
STD MD)(
STORE&l WAITl-1
G*O READ NEXT CARD
PROGM LOO
RESRT
* SET AREA CODE IN
STD
BGN
DC
/3000
''* BIT SW ITCHES
MDX
AGANl-2
*I NT 5 DC
XIO
SPDSW
*** PROGRAM STOP
LOX
INT5A
DC
* INTERRUPT ROUTINE
DC
DC
DC
*BUILD LO
SRA STD LO SRA STD LO SRA
STD
DSW&l 3 DSW&l RDCRD&l
1 RDCRD&l RDIN&l
z
RDIN&l
BUILD SENSE DSW
********************
*
NOTE
*
* INSTRUCTIONS FROM*
* BUILD THRU INT5A *
* DO NOT APPEAR ON *
* PAPER TAPE
*
********************
LO
STORE
SLA STD LOX
8 STORE
WAITI-1
*G*O START READER
*********************************************
*
ORG
BUILD
*********************************************
* * *
DISK ADJUSTMENT PROGRAM
,**,
*********************************************
*I NT 5A BOSC
INT5
EXIT TO RETURN
*
INT2 DC X IO
*-*
SNDSW
*** DISK INTERRUPT
BOSC L TES T&Z
~ ROUTINE
T*OGGL DC
,,AREA DC
MODE TOGGLE CURRENT AREA CODE
WTTWO XIO BS I MDX
*WTHND XIO
BSI
WRTOZ TEST SKHME
WRT20 TEST
* WRITE ADDRESS AT * TRACK Z
*
* WRITE ADDRESS AT * TRACK ZOO
SKHME X!O
BSI
XIO
BS!
MDX
*
LOX
XIO
AGANl LD
OR
HOME TEST TRK2 TEST CHCKZ
2 16 RDS PS
Z SNDSW-1 AREA
* GO HOME
*** GO TO TRACK
** 2 *
*
***'' ** SET AREA CODE
DATE_ EC NO.
15DEC67 420400
PART NO. 2243957
PAGE
2A
30A02060
30A02070 30A02080 30A02090 30A02100 30A02110 30AOZ120 30AOZ130
30AOZ140 30AOZ150 30AOZ160
30AOZ170 30AOZ180 30A02190
30A02200 30A02210 30A02220 30A02230 30A02240 30A02250
30A02260 30A02270 30A02280
30A02290 30AOZ300 30A02310
30A02320 30A02330 30A02340
30A02350 30A02360 30A02370
30A02380 30A02390 30A02400 30A02410 30A02420 30A02430
30A02440 30A02450 30A02460 30A02470 30A02480 30A02490
30A02500 30A02510 30A02520 30A02530 30A02540
30A02550 30A02560 30A02570 30A025BO 30A02590 30A02600 30A02610
30A02620 30A02630 30A02640 30A02650 30A02660 30A02670
30A02680 30A02690 30A02700
30A02710 30A02720 30A02730
PROG ID PAGE
030A-* ZA
I \....__.
·':-·
·.I
\ ,______
(
''--
(
''-·"
(
'--·
'"-..·
(
"-..-·
'-'
(
.I
"-----'
··. (
'-.... ___,,/
(
"----'
. ··--------------·-----·
·'-·
(
\
'--··
'-.
(
(
"----'
"---
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM
CE UTILITY PROGRAMS
1130 ON LINE DISK ADJUST~ENT PROGRAM
0051 0 D273 0052 0 72FE 0053 0 70FB 0054 0 70F3
0055 0 COEB 0056 O 4C20 005E 0058 0 COlB 0059 0 D026 005A 0 0027 005B 0 6201 005C 0 6301 0050 0 7006 005E O 6201 005F 0 6A20 0060 0 6A21 0061 0 C012 0062 0 009F 0063 0 009F
0064 0 081B 0065 0 4024 0066 0 72FF 0067 0 70FC 0068 0 0811 0069 0 4020 006A 0 C037 006B 0 FOlD 006C O 4Cl8 0091 006E 0 30F2 006F 0 70D8
0070 0000 0070 0 4COO 009D 0072 0 0000 0073 0 3F01
0074 0 ooc6
0075 0 0701 0076 0 0086 0077 0 0500 0078 0 0088 0079 0 0500 007A 0 OOAl 007B 0 0600 007C O OOCA 0070 0 0404 007E O 0002 007F 0 0400 0080 0 0000 0081 0 0400 0082 0 0000 0083 0 0404 0084 0 0042 0085 0 3AOO 0086 0 0001 0087 0 0010 0088 0 0001 0089 0 0640
. 008A 0 0000 008B 0 08E8
oo8c o 180D
0080 0 4804 008E 0 70FC 008F 0 4C80 008A
0091 0 08FO 0092 0 40F7
STO
MDX
MDX
MDX
*ONWDO LO
BSC
LD
STO
sio
LDX
LDX
MDX
ONWDl LDX
STX
STX
LD
STO
STO
*CMNDl XIO
BSI
MDX
MDX
XIO
BSI
LD
EOR
BSC
DC
MDX
*
BSS
RESRT .BSC
SPDSW DC
DC
SNDSW DC
DC
WRT02 DC
DC
WRT20 DC
DC
READ DC
DC
HOME DC
DC
TRK2. DC
DC
TWHND DC
DC
TWO DC
DC
RDSPS DC
DC
OUT02 DC
DC
OUT20 DC
DC
*TEST DC
XIO
SRA
BSC
MDX
BSC
*CMND2 XIO
BSI
2 SNDSW-1 2 -2
AGAN! SKHME
TOGGL L ONWDl, Z
SNDSW TWHND TWO 2 1 3 1 CMNDl 2 l 2 TWHND 2 TWO SNDSW BGN&2 BGN&3
TWHND TEST 2 -1 CMNDl READ TEST INPUT&l DUT20&1 L CMND2,&/30F2 SKHME
E L RSTRT
/3FOl 198 /0701 OUT02 /0500 OUT20 /0500 INPUT /0600 202 /0404 2 /0400
/0400
*-*
/0404 AREA /3AOO l /0010 1 /0640
*-*
SNOSW 13 E TEST&l TEST
TWO TEST
* * INTO IOCC * * ***
*** BR IF 10 MIL MODE
* *
* * * * *
*****
SET PROPER MODE
**********
*** GO TO TRACK 200 ·
***************
READ/COMPARE ADDR AT TRK 200
ERROR, DID NOT COMPARE
MODE CHANGE SET/UP
!DCC-SENSE RESET (5) CONSTANT 198 !DCC-SENSE/RESET DSW
!DCC-WRITE TRACK 2
!DCC-WRITE TRACK 200
IOCC-READ ADDRESS
IOCC-SEEK HOME
IOCC-GO TO TRK 2
IOCC-GO TO TRK 200
!DCC-BACK TO TRK 2
!DCC-READ BIT SWS WRT TRK 2 TABLE
*WRT TRK 200 TABLE *
*
**** CHECK FOR FILE * * READY ** * ** GO TO TRACK 2
DATE EC NO.
150EC67 420400
PART NU. 2243957
PAGE
3
30A02740
30A02750 30A02760 30A02770 30A02780 30A02790 30A02800 30A02810 30A02820 30A02830 30A02840 30A02850 30A02860 30A02870 30A02880 30A02890 30A02900 30A02910 30A02920 30A02930 30A02940 30A02950 30A02960 30A02970 30A02980 30A02990 30A03000 30A03010 30A03020 30A03030 30A03040 30A03050 30A03060 30A03070 30A03080 30A03090 30A03100 30A03110 30A03120 30A03130 30A03140 30A03150 30A03160 30A03170 30A03180 30A03190 30A03200 30A03210 30A03220 30A03230 30A03240 30A03250 30A03260 30A03270 30A03280 30A03290 30A03300 30A03310 30A03320 30A03330 30A03340 30A03350 30A03360 30A03370 30A03380 30A03390 30A03400 30A03410
PRUG ID PAGE
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM
CE UTILITY PROGRAMS 1130 ON LINE DISK ADJUSTMENT PROGRAM
0093 0 73FF 0094 0 70FC 0095 O 08E4
MDX MDX CHCK2 XIO
3 -1 CMND2 READ
* *
0096 0 40F3 0097 0 COOA
0098 0 FOEE 0099 O 4C 18 0055 009B 0 30Fl 009C 0 70AB
BSI
TEST
LD
INPUT&l
EOR
OUT02&1
BSC L ONWD0,&-
DC
/30Fl
MDX
SKHME
** * * READ/COMPARE * * ADDR AT TRK 2 ** ERROR, DID NOT * COMPARE
*
009D 0 COA3 009E 0 FOE7
RSTRT LD EOR
TOGGL OUT02
*** CHANGE MODE
009F 0 DOAl OOAO 0 70A7
OOAl 0 0002
STD MDX
*INPUT DC
TOGGL SKHME
2
***
INPUT AREA
OOA2 0002 .OOA4 0000
BSS
2
END
BGN
*
NO STATEMENTS FLAGGED IN THE ABOVE ASSEMBLY
PART NU. 2243957
PAGE
3A
30A03420
30A03430 30A03440 30A03450 30A03460 30A03470 30A03480 30A03490 30A03500 30A03510 30A03520 30A03530 30A03540 30A03550 30A03560 30A03570 30A03580
30A03590
DATE EC NO.
15DEC67 420400
PROG ID PAGE
030A-* 3A
I
\__
(..___ .
\ ........ -
'\ " -
(
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM CE UTILITY PROGRAMS
PART NU. 2243957
PAGE
4
j
1 I......_,
l r
I
.~.
c
1130 ON LINE DISK ADJUSTMENT PROGRAM
C R 0 s s R E F E RE NC E
NAME VALUE REFERENCES AGANl 004F 0033,0053
AREA 0042 0050,0084
BGN 0000 001E,0020,0031,0062,0063,00A4
BUILD 003B 0000,0022
CHCK2 0095 004C CMNDl 0064 0050,0067
CMND2 0091 006C,0094
DSW
0002 OOOF,0038,0030
ENCRD 0027 0015
FOUR 0007 002D
HOME 007C 0048 INPUT OOAl 006A,007A,0097
INT OOOE 0008,oooc
INTI 0013 OOll
INT2 003D OOOA
INT5 0034 oooD,oo3B
INT5A 003B 0036
LAST OOOB 0027,0029
ONE
0006 OOlA,0024,0028
ONWDO 0055 0099
ONWDl 005.E 0056
OUT02 OOB6 0076,0098,009E
BUT20 0088 0068,0078
PROGM 0030 0028
RDCRD 0008 0016,003E,0040
RDIN 0004 0018,0019,0018,0041,0043
RDS PS 0084. 004E
READ 007A 0068,0095
RESRT 0070 0030
RSTRT 009D 0070
SKHME 0048 0045,0054,006F,009C,OOAO
SNDSW 0074 003E,004F,0051,0058,006lt0088 SPDSW 0072 0035
STORE 0021 0023,0025,002C,002E,0044,0046
TEST 008A 003F,0044,0047,0049,004B,0065,0069,008E,008F,0092,0096
TOGGL 0041 0055,0090,009F
TRK2 007E 004A
TWHND 0080 0059,005f,0064
TWO 0082 005A,0060,0091
WAIT! 0017 0012t001D,0026,002F,0047
WRT02 0076 0043
WRT20 0078 0046
WTHND 0046
WTTWO 0043
'_)
END OF ASSEMBLY
--~~------------~---------------------- LAST PAGE ---------------------------------------------
'-"
I \.J
I 0
v
\.J
DATE EC NO.
'-..-/
150EC67 420400
'--..:__/·
.. . J '
PROG ID PAGE
030A-* 4
... .. -··-··· ..
(_
(
'~-
I, '-----·
I
(
\ '----"'
'--.
(
(
(
'---
'-.
'-
( --
c. (_
(
'----
(
'---·
/
\. '-.._.,.-
Acrobat 11.0.23 Paper Capture Plug-in