IBM 2025 Maintenance Manual page 199

r-~---7------7---------------,-----------------------------,
I
Addr
I
Word
I
Statement
I
Cemment
I
r-----+------+---------------t-----------------------------1
I
0010
I
3210
I
SET
~MSK
K=81
I
Eleck all trafs
I
r-----+------+---------------+-----------------------------~
I
0012
I
2610
I
SE~
BC K=Ol
I
Set logout latch
I
r------+------+---------------+-----------------------------1
I
0014
I
2C07
I
PO=O
I
Zero handload flag register
I
r-----+--~---+---------------+-----------------------------i
I
0016
I
2413
I
G0=0$K01
I
Euild high half CS addr 01001
r-~---+------+---------------4-----------------------------i
I
0018
I
80AC
I
ER
I
BR to OOAC
I
r-~~-+------+---------------+-----------------------------1
I
OOAC
I
240E
I
SET ~CDE K=70
I
Put in rrod/20, 2560 mode
I
r-----+------+---------------+-----------------------------i
I
OOAE
I
2F04
I
SET
~FA
K=20
I
Select sec. feed (Note 1)
I
r------+------+---------------+-----------------------------1
I
OOBO
I
2507
I
Gl=O
I
Lew half
cs
addr G=OlOO
I
r-----+------+---------------t-----------------------------1
I
OOB4
I
DABS
I
BR IF
~FT5=0
I
ER to OOE8 if NPRO req.
I
r------+------+---------------+-----------------------------i
I
OOB6
I
FD33
I
ER IF P12=1
I
BR
i f
not ready
I
r------+------+---------------+-----------------------------i
I
OOB8
I
2F10
I
SE~ MFA K=Ol
I
Set read ex.
I
r-~---+------+---------------+-----------------------------~
I
OOBA
I
DAC6
I
BR IF
~FT5=0
I
Check NPRO
I
r-~---+------+---------------4-----------------------------i
I
OOBC
I
CAB9
I
BR IF MFT4=1
I
BR on no data available
I
r-~---+------+---------------+-----------------------------i
I
OOBE
I
58FF
I
Hl=~FRl
I
Read 1/2 byte
I
r------+------+---------------+-----------------------------i
I
OOC
I
SAEF
I
HO=~FR2
I
Read the other 1/2
I
r--~-+------+---------------+---~------------------------i
I
OOC2
I
4EF3
I
Hl=HOXH-HlL
I
Put two 1/2 bytes together
I
r------+------+---------------t-----------------------------1
I
OOC4
I
6F48
I
STB Hl
cs,
G+ll Stere theff
I
r-~---+------+---------------+-----------------------------i
I
00C6
I
2B14
I
SE~ MFC K=21
I
Rst NPRO, and rd. e:x.
I
r---~-+------+---------------+-----------------------------1
I
OOC8
I
OSSD
I
Z=G1 K50
I
Check fer 80 l:ytes
I
r------+------+---------------+-----------------------------i
I
OOCA
I
C4B4
I
BR IF ZNZ
I
If not 80, go to OOB4
I
r-----+------+---------------4-----------------------------i
I
OOCC
I
8100
I
BR
I
BR to bootstrap addr 0100
I
r-~---~------i
_______________ i-----------------------------1
I
Note 1: To use the primary feed, rer:lace this word with
I
l2F80. The start key rrust be fressed at the end to complete!
lthe CSL (last card).
I
l-----------------------------------------------------------J
Figure 2-23. Handload Routine for 2560
2-50 (7/69)