SR25 5402 0__25_Microprogram_Listing_System_360_E60_Mar70 0 25 Microprogram Listing System 360 E60 Mar70

SR25-5402-0__25_Microprogram_Listing_System_360_E60_Mar70 SR25-5402-0__25_Microprogram_Listing_System_360_E60_Mar70

User Manual: SR25-5402-0__25_Microprogram_Listing_System_360_E60_Mar70

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

Download
Open PDF In Browser	View PDF

Field Engineering Education
Supplementary Course Material

Model 25.Microprogram Listing
System/360 Emulator - *E60

PREFACE

This publication contains a listing of the System/
360 emulator microprogram, *Engineering change
level and features present do not relate to any
specific system, limiting the use of this listing
to the classroom.
The listing shown is actual and has not been altered in content in any way.
Routines are in alphabetical sequence as shown
in the listing index.

*And is meant for use in the System/360 Model
25 DPS Course 13233 and 53232.

(March 1970)
Address any comments concerning the contents of this publication to:
IBM, Field Engineering Education Media Development Center Dept 927
Rochester, Minnesota 55901.
"

@) Copyright International Business Machines Corporation 1969

Preliminary Edition
THIS PUBLICATION IS IN A PRELIMINARY STATE OF
DEVELOPMENT. ANY CORRECTION OR SUGGESTIONS THAT YOU CAN OFFER FOR THE FORMAL
PUBLICATION WILL BE APPRECIATED.

4ACHINE TYPE

MODH

CORE LOAD

MES/FCSI

*E60

PAGE III
SERIAL 11

II

MACHINE STATUS

MASTEl( CONTRDl
EC #

128211

SUM CHECK II 4501

**

SEE *E60 BCHK

**

DATE PREPARED 11/08/68

FEATURES P'X

PAGE

e

*

.-----------------*-----------------------------*

K3-8E- STATUS/ACTIVE BYTE FOR 2311 OR CHANNEL 1
K4-98- 2311 NEXT CCW ADDRESS
K5-9A- 2311 SENSE OR PREVIOUS OP AND MASK

5X

K6-9C- 2311 SENSE OR FILE ADDRESS
bX
K7-9E- DIAGNOSTICS. ALTER/DISPLAY BAl BACKUP
7X
K8-A8- SYSTEM MASK
K9-AA- EXECUTE
BACKUP

9X
AX

INSTRUCTION COUNTER ---I REGISTER

KA-AC- U REGISTER BACKUP Q FLTPT SAVE
DURING INSTRUCTIONS

BX

ex
ox

KB-AE- G REGISTER

BACKUP

KC-B8- P REGISTER

BACKUP

KD-BA- CHANNEL 0 INTERRUPT BUFFER
EX
KE-BC- ADDRESS OF STRAIGHT MULT/DVD
2540 REGS BACKUP

FX * G.P. REG F * E * N * M * G *
1052 UCW
* FX
****************************************************************
o
1
2
3
456
7
8
9
ABC
D
E
F

A----1403 UNIT ADDRESS
d----KEADER UNIT ADDRESS
C----PuNCH UNIT ADDRESS
D----I052 UNIT ADDRESS
E----Hl SAVE
F----1403 PCCl
(;----1052 S E:N SE:
N----2311 ADDRESS

-A9- CPU KEY AND AMWP

8X

H----MULJ/DVD TABLE (XII AND
AlT/DIS REGS BACKUP
J----MULT/DVD TABLE IX4) AND
ALJ/DIS BACKUP + FLPT SAVE
K----MULJ/DVD TABLE IX16)
L----MULJ/DVD TABLE IX641,flPT SAVE
M----NATIVE KEY KKKKOOOO
P----COMMU. Q-EXIT POINTER
R----BURST CHANNEL BUfFERED
DEVICE ADDRESSES.

Kf-BE- ADDRESS OF SKEWED HUlT/DVD
KEY. 2540 REGS BACKUP

,FLPT SAVE
,FLTPT SAVE OR CAW

********** STANDARD DEVICE ADDRESSES ******.********
BURST CHANNEL
LOC*
*
NATIVE
lOC *
* 1403------ Of
84
•
1443 OR 1445------08
84 *
* 2540 RDR---OC
B5
*
2540 RDR-----------OC
85 *
* 2540 PCH---OD B6 * 2540 PCH-----------OD 86 *
* 1052-------1F
B7
*
1 403---------------0 E
87 *
1404 OR 2ND 1403---0F
94 *
* 2311-------9X F5
2520---------------15
95 *
*

*

•*

*

THE TEXT PRECEEDING THE -BCPL- ROUTINE CONTAINS
* INFORMATION ON PUNCHING CARDS TO RECONftGURATE THE
* SYSTEM TO OTHER THAN THE STANDARD ASSIGNMENTS

**
*
*

CLOAD=*E60, EC LE VEL=ll8211

AUXILIARY

o

C

S

4

STORAGE

4

ASSIGNMENTS

F

••••••••••••••••••••• ***.* •••••*****.*** ••••• ****.

MODULE

•

o •

••

PAGE

CPU AREA

•

•

0

MODULE

0

DEFINED IN

MODULE

1

C AND 0 NOTED IN TABLE ARE DEfiNED
IN COMMENTS PREC~EDING THE EROR
ROUTINE.
C AT lOFO D AT 10Ft
8, E, AND A NOTED IN TABLe ARE DEFINED
IN TEXT PRECEEDING THE EPCH ROUTINE.
8 AT lOFl, E AT 10F4. A AT lOF5

MODULE

2

DEFINED IN FE MAINTENANCE MANUAL

MODULE

3

DEFINED AT END OF THE

MODUl E

4

WORKING AREA

MUDULE

5

1052 TRANSLATE TABLE DEFINED AT END
OF THE DYPE ROUTINE.

MODULE

6

DEFINED AT END OF fHE EPXF ROUTINE.
PUNCH TRANSLATE fOR l4K IN MODULE 8.

MODULE

1

DEFINED AT END OF THE OPTC ROUTINE.
PRINTER TRANSLATE TABLE FOR 24K IN
MODULE 9.

AAA8

ROUTINE

uf- .• - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - .•- - •

PUNCrl

IMAGE

ROW

(LXOO-IX77'

•

•
---------------------------*•
.-------------------••
*•
PFR ROW IMAGE
(lX78-1XEfJ

*-------------------.---------------------------.
0 B
EA.
READ ERROR lOGOUT
*
.-------------------*-------------o •
•*
•
MPX UCwS

1

F .C

f-

o ,..

•

•

F

2

,..
*
*-----------------------------------------------*--READER TRANSLATE

TABLE

•
3
•
*
.-----------------------------------------------*---

o ••

•

.------------------------------------------------.
*
READER ROW I MAGE (4XAO-5 Xl 7)
•

·

F .- -

-

-

-- -

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

4

.---

o •

•

*

--------------------------•

---------------------------.
*-------------------*•
•
READER READOUT (5X1S-5X81t

5

.
----------------------.
•-----------------------*---------------------*-•*-------------------1052 TRANSLATE TAStE

•

F •
(J

(,XB8-5XF51

*

PUNCH ERROR LOGOUT

*•

•

*

•

ROUTINE.

••

PUNCH CHECK (4XOC-4X84~
PFR READ «4XOo-4X9F J

*

ERCX

PUNCH TRANSLATE TABLE
•
•
6
•
*
.----------------------------------------------*--o •
*
f

•

F

PR INTER TRANSLATE TA8LE

*

••• *•• **.** •• *** •• *••• ******.*.**.**.***.*••••••••••

1

CLOAD=*E60, EC LEVEl=128211

" AAAC *

360

MODE

LOCAL

STORAGE

ZONES AND ASSIGNMENTS

PAGE

5

*

AAAC

****************************************************************************************************************************
*
*
*
lONE 0
**
lONE 1
**
ZONE 4
**
lONE 5
**
ZONE 6
**
ZONE 7
*
CPU
**
2311
**
BACK -UPS ** COMMUNICATIONS **
2540
**
CHANNEL
*
* A~/BS * NAME *
* fiELD *
*
**
**
**
**
**
*
****************************************************************************************************************************
*
*
*
**
**
**
** READER ROW
**
*
* 0000 * UO
* 1 Sf QPERAND
**
**
lEVEl 1
** LCW ADOR HIGH ** FORM
**
COUNT
*
*-------*-------*
**
**
**---------------**
BUFFER
*$----------------*
* 0001 * Ul
*
STORAGE ADOR. **
**
BACK-UP
** lCW AOOR lOW
**
ADDRESS
**
COUNT
*
*-------*-------*-----------------**
**---------------**----------------**----------------**------~---------*
* 0010 * VO
* 2ND OPERAND
**
**
lEVEL 2
** CHAR POINT HI ** PUNCH IMAGE
** DATA ADDRESS *
*-------*-------*
**
**
**----------------** BUFFER
**----------------*
* UOl1 * Vi * STORAGE AD DR **
**
BACK-UP
** CHAR POiNT LOW **
AODRESS
** DATA ADORESS *
*-------*-------*-----------------**
**---------------**----------------**----------------**----------------*
* 0100 * GO
*
OP CODE
**
**
LEVEL 3
** lCW
** PCH TRAP COUNT ** C!-IA NNEL STATUS *
*-------*-------*-----------------**
**
**----------------**----------------**----------------*
* 0101 * Gl * 2ND BYTE INST. **
**
BACK-UP
** lCW+l
** WORKING REG
** OP fLAG BYTE
*
*-------*-------*-----------------**
**---------------**----------------**----------------**----------------*
* OllO * DO
* DATA
**
** MACHINE CHECK** LCW+2
** INDICATORS
** CHANNEL IDENT. *
*-------*-------*-----------------**
**
**----------------**----------------**----------------*
* 0111 * 01
* HIGH 8 Of 24 BIT**
**
BACK-UP
** lCW+3
** RDR TRAP COUNT **
NOTE 1
*
*-------*-------* 2ND OPERAND ADDR**
**---------------**----------------**----------------**---------------*
****************************************************** lONE 4 THRU 7 **
******************************************************--------------**
* 1000 * 10
* INSf CrR HIGH ** CCW COUNT HIGH ** CPU BAl
**.
NOTE 1-- fOR BURST CHANNEL, THIS
*-------*-------*-----------------**----------------**
**
* luOl * 11
* INSf CTR LOW
** CCW COUNT LOW **
BACK-UP
**
REGISTER CONTAINS THE
*-------*-------*-----------------**----------------**---------------**
UNIT ADORE SSe
* 1010 * TO
*
** DATA ADDR HIGH **
SPARE
**
FOR BYTE CHANNEL, THIS
*-------*-------*-----------------**-------------**--------------**
* 1011 * Tl
* GP REG ADDRESS ** DATA ADDR LOW **
~PARE
**
REGISTER CONTAINS THE
THIS AREA Of
*-------*-------*----------------**---------------**---------------**
UCW ADDRESS.
* 1100 * PO
* CONDI fION CODE ** GEN. PURPOSE
** LEVEL 1
**
ZONE 4 IS
COMMON TO ZONE S
*-------*-------$-----------------**----------------**
**
* 1101 * P 1
* PROG MASK, AMWP ** GEN. PURPOSE
** \'lORK ING AREA **
5,6. AND 1.
*------*-------*----------------**---------------**---------------**
* 1110 * HO
* DATA
** CCW AODR HIGH ** LEVEL 1
**
*-------*-------*-----------------**---------------**
**
* 1111 * H1
*HIGH 8 OF 24 BIT ** CCW ADDR LOW
** WORKING AREA **
*-------*-------* INST eTR OR 1ST **---------------**--------------**.
*
*
* OPERAND ADOR.
**
**
**
***********************************************************************

*

CLOAD=*E60, EC LEVEl=128211

EXTERNAL
MI';<
OllO= BC FACILITY
ALL MODES *
LOCAL STORAGE
*
*
*
*
*
1000=
OR REGISTER
All
MODES
*
*
*
*
'"
0000= U REGIST ER
*
*
*
*
*
FACILITY 2540 MODE *
0010= V REG I STER
*
*
* 1001= RPD
*
DIAB FACILITY 23Ll MODE *
0100=
REGISTER
*
1
Oll
=
G
*
*
'"
FACI LI TY 2540 MODE *
0110= 0 REGISTER
* 1011= R
*
*
*
GA
FACILITY CHNL MODE
1000= I REGISTER
*
*
*
** 1011=
*
llOO= DIAC FACI U TV 2311 MODE *
1010= T REGISTER
*
*
*
FAUll TY 1403 MODE *
1100= P REG 1STER
* 11 01= PRA
*
*
'"
FACIliTY 2311 MODE *
IHO= H REGISTER
*
* 1101= FIA
*
**
FACILITY 2540 MODE *
* 1101= RP
*
*
* LI01= CSErF FACILITY COMM MODE * WHEN USED AS THE K FIELD
*
*
*
FACILITY CHNl MODE *
* It 01 = GB
*
*
FACIliTY 2311 MODE * BIT 8 = K LOW BIT 0
* 1110= FIB
*
*
*
FACIU TY CPU MODE * BIT 9 = K LOW BIT 1
* 1111= CPF
*
*
*
FACILl TV 1403 MODE * BIT 10= K lOW BIT 2
* 1111= PRB
*
*
"
FAClll TY 1052 MODE * BIT 11= K LOW BIT 3
* 1111= TA
*
*
"
FIC
FACI Ll TY 2311 MODE *
*
*
*
*'* 1111=
P
FACI
LI TV 2540 MODE *
1111=
*
*
*
CCTRl FACI LITY COHM MODE *
*
*
** 1111:
*
FACILITY CHNL MODE *
1111= GC
*
*
"*
*
*
*
*
*
*
*'
*
*
"
*
"
IoiHEN THI: MMSK REGISTER IS ADDRESSED BY THE SET/RSJ SOURCE FIELD, CONTROL
*
"
WORD BIT 11=0 INDICATES A liNK OR RETURN FUNCTION, Bn 11= 1 INDICATES NO
*
"
LI NK OK RETURN FUN( TI ON.
*
"
*
**********'**********************************************************************************************************************'*

..

~

"

BIT

SIGNIFICANCE CHART FOR THE SET/RST WORD (WORD TYPE 0)

ClOAD;*E60. EC lE VE l:1282 11

.
..*
*

.*

*
*

BIT

SIGNIFICANCE CHART FOR THE ARITH CONSTANT WORD

(WORD TYPE

1)

000 001
010 011
100
101 110III -

-

I=A + Kl
Z;A,A-.Kl
Z=A,A-.KH
Z=A,A-,KK
I=A + KH
Z=A,OE.Kl
Z=A.OE,KH
I=A,OE,KK

PAGE

10

*

..*
*
*

*
*.

CLOAO=*E60, EC lEVEl:128211

BIT
II

0
1
0
1

BITS
2.3
01
01
11
11

MEANING

READ AUXILIARY
READ PROGRAM
STORE AUXILIARY
STORE PROGRAM

FOR DIRECT ADDRESSING

*
*
*
*
*
*

*

*
*

*

PAGE

11

ClOAD=*E~O,

EC lEVEl=128211

PAGE

12

*********************************************************************************************************************************
¥
wORD
* FUNC liON
*
*
*
FUNCTION
* WORD *
*
nf>E
*
OECODE
*
A SOURCE FielD
*
8 SOURCE FIELD
*
DECODE
* TYPE *
*********************************************************************************************************************************
* 0
1 *
2
3
*
4
5
6
1
*
8
9
10
11
*
12
13
14
* 15 *
*********************************************************************************************************************************

*
*
*

*

1

*
*
*

*
*
0
*
•
0
*
*
0
*
* 0
0
*
*
0
0
*
•
0
0
*
*---------------*
•
0
1
*
*
0
1
*
*
0
1
*
*
0
1
*
*
0
1
*
*
0
1
*
*
0
1
*
*
0
1
*
*---------------*

*
*
*
*
*

*

"

0
0

0
0
0
0
0

*

0000
0001::
0010
0011
0100 '"
0101
0110 =
Ollt
1000
1001
1010
lOll
1100
1101
1110

UO·
U1
VO
VI
GO

**

*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*

0000
0001
0010
0011
0100
0101
0110
Olll
1000
1001
1010
1011
1100
1I0l
1110
1111

*

*

*

*
*
*

*

*
*
*

*
000
*
1
*
*
001 - B::AXH • Bl
*
*
..
*
010 - 6=AXl.OR,6H
*
•
..
*
011 *
*
=
*
100 - 8=A • B
*
*
..
*
Gl
Gl
*
101 - B=AH + 8t
*
*
*
00
DO
*
110 - B=AL + BH
*
*
..
01
01
*
111 - EXT=B
*
*
*
10
to
*-------------------*
*
*
11
I1
*
000 - B=AX
*
*
*
TO
TO
*
001
B=AXH
*
*
*
Tl
Tl
*
010
B=AXl
*
*
*
PO
= PO
*
011
B=O (STOP)
*
*
*
Pl
'" PI
*
100
6=A
*
*
HO
HO
*
101
B=AH
*
*
*
*
1111
= Hi
'"
Hi
*
ltO
B=Al
*
*
*
*
111
B=EXT
*
*
*-------------------------*
*
THE FUNCTION DECODE IS A COMBINATION OF CONTROL WORD
000 - A::A,OE,B
*
1
0
*
*
BITS 2,3.12.13, AND 14.
001
A=A + B
1
0
*
*
010
A=A.OR,6
1
0
*
*
*
*
IF
THE
FUNCT
ION
DECODE
IS
EQUAL
TO
00111,
THE
A-SOURCE
FIEtD
*
011
A=A,A,B
1
0
* ADDRESSES AN EXTERNAL FACILITY.
*
*
100
AC=A
•
B+l
1
0
*
If THE FUNCTION DECODE IS EQUAL TO 01111, THE A-SOURCE FIELD *
101
AC=A • B
1
0
*
*
ADDRESSES AN EXTERNAL FACIlITV.
*
110
AC=A + B.C
*
1
0
*
*
AC=Al
+
B+C
111
1
0
"*
*---------------*
THE SYMBOL -A- USED IN THE FUNCTION OECODE FORMULAS, REFERS
*-----------------------*
*
*
*
1
1
* TO ANY OF THE LOCAL STORAGE SYMBOLS UNDER THE A-SOURCE FIELD.
*
000 - A=A - B+1
*
*
1
1
*
THE SYMBOL -8- US ED IN THE FUNCT ION DECODE FORM UlA S, REFER S
*
001 - A=A - 8
*
*
*
*
1
1
* TO ANV OF THE lOCAL STORAGE SYMBOlS UNDER THE B-SOURCE FIELD.
*
010
*
*
*
*
1
1
*
011 *
*
1
1
*
THE SYMBOL -C- REFERS TO THE ADDER CARRV (S3 lATCH)
*
100 - AC=A - B.C
*
*
*
*
1
1
*
*
101
AC=O - B +C
*
*
*
* 1
1
110 - A=A +~ B+C
*
*
1
1
*
*
111 - AC=A,D+-.8+C
*
*
*.*******************************************************************************************************************************
0

UO

'"
=

Ul
VO
VI
GO

*

*

*

*

*
*
*

*

*

*

*
*
*
*

*

*

*

*

*

*

*

*

BIT

SIGNIFICANCE CHART FOR THE MOVE/ARITHMETIC

WORD

(WORD TYPE

3)

CLOAD=*E60, EC LEVEL=12B211

PAGE

13

*********************************************************************************************************************************
* WORD
*
*
*
*
" TYPE
* REPLACEMENT BilS FOR niE MG-REGISTER
*
REPLACEMENT BITS FOR
THE MI-REGISTER
*
*
****************************************************************************************.****.***.**.*******.****.*****.*********
* 0 1 * 2
:3
4
5
(:,
1
* B
9
10
11
12
13
14
* 15 *
¥*******************************************************************.********************.*** •• *.**********************.*********
"*
"
*

*

"
"
"*
*
"
*

1

0

**
*
*

•

*
*
*

*
**

BITS 2 THRU 1 OF THIS CONTROL WORD CONTAIN
THE VALUES THAT ARE GATED TO BITS 2 THRU 7 OF
THE MO-REGISTER WHEN THIS WORD IS EXECUTED.
WhEN THIS wORD IS GATED INTC THE CONTROL
REGISTER, BIT 5 OF THE CONTROL REGISTER IS
FORCED TO A 1. THE REPLACEMENT VALUE FOR THE
Mo-kEGISTER BIT 5 POSITION IS GATED FROM THE
STORAGE DATA BUS BIT 5 POSITION.

*

**

*

*

•
•

BITS 8 THRU 14 CONTAIN THE VALUES THAT ARE GATED TO
BITS
THRU 6 OF THE HI-REGISTER WHEN THIS WORD IS
EXECUTED.

°

**
*
*

•
•*

*
*
*
*
*

•
*

•
•

*

*

0

*
*
*
*
*
*
*

*
*
*
*
*
*

..
*
WHEN THIS WORD IS EXECUTED, THE ADDRESS Of THE NEXT SEQUENTIAL
*
CONTROl.. WORD IS STORED IN THE I-REGISTER Df LOCAL STORAGE ZONE 4.
*
*
*
*
**************************************************************.******************* •• *********************************************
BIT

SIGNIFICANCE CHAR FOR THE BRANCH UNCONDITIONAL WORD

(WORD TYPE 41

ClOAD=*E60, EC lEVEL=128211

PAGE

14

******************************************************************************************************************************~**

'" wORD
*
BRANCH
*
*
* REPLACEMENT Bl TS FOR * REPLACEMENT BI TS FOR
* WORD *
.". TYPE
*
CONTROL
*
A SOURCE FIELD
*
*
Ml-REGISTER
*
Mo-REGISTER.
* TYPE *
*****.****************.*.****.*.***.**************************.*****.**.*****************************************************.***
.". 0
1 *
2
3"
4
5
6
7.
8
*
9
10
11
*
12
13
14
* 15 '"
******.************************.****.******************* •••• ******** •• ** •• ************.*.*.* •• **.**********************.*********
*
* BIT 9 CONTAINS THE
•
BITS 12, 13, AND 1 4 .
*
* 1
0 • 00= 4WAV BR. *
BIT 5=0 MEANS STRAIGHT * O=LS
* REPLACEMENT VALUE FOR * CONTAIN THE REPLACEMENT* 1
*
'i'
* 01= 8 WAY BR *
A-REG GATING.
* I=EXT * BIT 1 OF THE
* VALUES FOR BITS 5, 6, *
*
*
* 10= l WAY BR *
BIT 5=1 MEANS CROSS
*
* MI-REGISTER.
* AND 1 OF THE MO REG.
*
*
'A
SOURCE
*
A-REG
OUTPUT
*
*
*
*
*
*
*
NOT lERO) *
---------------------------- *
* BIT 10 CONTAINS THE *
*
*
"
Ll= 16 wAY BR *
WHEN THIS CONTROL WORD 15 READ *
* REPLACEMENT VALUE FOR *
*
"'i'
* INTO THE CONTROL REGISTER. BIT 5 *
* BIT 2 OF THE Ml
*
*
*
* IS FORCEO TO 1. THIS RESTRICTS *
* REGISTER.
*
*
*
*
* THE FACILITIES THAT CAN BE
• •
*
'"
*
* ADDRESSED BY THE A-SOURCE FIELD *
• BIT 11 CONTAINS THE *
*
*
* TO THOSE THAT HAVE AT LEAST BIT *
* REPLACEMENT VALUE FOR *
*
* 5=1 IN THEIR A-SOURCE DECODES.
*
• BIT a OF THE Ml
*
*
*
*
BECAUSE BIT 5 IS FORCED IN THE *
• REGISTER
*
*
*
* CONTROL REG! srER, THE TRUE ST A T U S * .
*
*
*
* OF BIT 5 IS TAKEN FRCM THE
*
*
•
*
*
STORAGE
OATA
BUS
OUT,
FOR
A-REG
*
*
*
*
*
* GATING.
*
*
*
*
*
*
*
*
*
LOCAL
EITHER DECODE
*
*
*
STORAGE
IN CONTROL
*
*
*
*
REGISTER
*
* STORAGE.
*
*
*
*
*
*
GO
*
*
* 0000 OR OlOO
"
.".
Gl
*
*
* 0001 OR 0101
DO
0010 OR 0110
*
*
*
'"
01
*
*
* 0011 OR 0111
'"
PO
1000 OR 1100
*
*
*>I<
PI
*
* 1001 OR 1101
.".
HO
*
* 1010 OR 1110
**
.".
Hl
* 1011 OR 1111
.".
*
* EXTERNAL FACILITIES HAVE THE *
*
'."."
*
*
* SAME ADORESSING RESTRICTIONS.
*
*

*..
..
..

'"
'"

•

*

*

•

.".

*

*

*

****************************************************** •• ***********.**.**.********************.****.*.***********.* •• ***.**.*****
BIT

SIGNIFICANCE CHART FOR BRANCH ON MASK WORD

(WORD TYPE 5)

ClOAD=*E60, EC LEVEL=128211

PAGE

15

*********************************************************************************************************************************
• wORD
*
BIT
*
*
*
* WORD *
• TYPE
*
CO~TROl
*
A-SOURCE FIELD
*
*
REPLACEMENT BITS FOR THE MI-REGISTER
* TYPE *
*********************************************************************************************************************************
" a
1 *
2
3
*
4
5
6
7
*
8
*
9
10
11
12
13
14
* 15 *
*********************************************************************************************************************************

*
*
*
*
*
*
*
*
*
**
*'

"

*

"
*
*
*

*

"*
*
*
*

*

*

*
*
*
*
*

*

BIT 5=0 MEANS STRAIGHT

00= BIT U OR 4 *
01= BIT 1 OR 5 *
10= BIT 2 OR /:; *
11= BIT 3 OR 7
*

A-REG GATiNG.
Bll 5=1 MEANS CROSS
A--REG OUTPUT.

'"

**
*
*
*

BITS 9--14 CON TAl N THE REPLACE ME NT VALUES
FOK BITS 1--6 OF THE MI-REGISTER.

WHEN THIS CONTROL WORD IS READ **
INTO THE CONT ROt REGISTER, BIT 5 *
I S fORCED TO 1 • THIS RESTRICTS *
THE FACILITIES THAT CAN BE
*
ADDRESSED BY THE A-S OURCE FIELD *
TO THOSE THAT HAVE AT LEAST BIT *
5=1 IN H1E!R A-SOURCE DECODES.
*
BECAUSE BIT 5 IS FORCED IN THE *
CONTROL REGISTER, THE TRUE STATUS*
OF BIT 5 IS TAKEN FROM 'THE
*
S fORAGE DATA BUS OUT, FOR A-REG *
GATING.
*
*
EITHER DECODE
LOCAL
*
IN CONTROL
STORAGE
*
STORAGE
REGISTER
*
--------------------,--~-----

*
*

*
*
*
*
*
*
*
*
*

*

*
*
*
*

*

0000
0001
0010
0011
1000

UR
OR
OR
OR
OR
1001 OR
1010 OR
1011 OR

0100
0101
OHO
0111

GO
Gl
00
01
PO
PI
HO
Hi

**

*

'"
'*"

TEST *'"
FOR *

0
* TEST *'"
* FOR *
* 0
*
*------*
1

* 1
*------*
*

'"

'*"

*
*
*
*

*
*
*
*
*
*
*
*
*
*

*

*
*
*
*
**
*
*'
HOO
*
**
llOI
*
**
1110
*
*
*'
1111
*
*
*
*'
*
*
*
*
EXTERNAL FACILITIES HAVE THE *
*
*
*
*
*
* SAME ADDRESSING RESTRICTIONS.
*
*
*
*
****"'*****"'**********************************************************************************************************************

"
"

*
*

*
* O=lS
* I=EXT
*
*

"

81 r

SIGNIFICANCE CHART FOR BRANCH llN

CO~OtTION

WORD

(WORD TYPE 6 OR

7)

CLOAD=*E60, EC LEVEL=128211

PAGE

16

ALDP -- CCNSOLE PRINTER-KEYBOARD ALTER/DISPLAY
AODITIONAL INFORMATION REFERENCE -FEMDM DIAGRAMS 5-11 THROUGH 5-79

DESCRIPTION CONTINUED

iJ!:: ~CR 1 P TlON

THIS ROUTINE ALLOWS MANUAL 1052 ALTER OR DISPLAY OF
AUXILIARY STORAGE, CONTROL STORAGE. AND PROGRAM STORAGE.
ANY NUMBER OF BYTES CAN BE ALTERED. DISPLAYING, HOWEVER.
IS ALWAYS IN MULTIPLES OF EIGHT BYTES.
WhEN THE 'PROCEED' LIGHT COMES ON AFTER PRESSING THE
PR-KB ALTER UISPLAY BUTTON, TYPE THE FIRST TWO CHARACTERS
AS FOllOwS -1ST CHARACTER -- A OR 0
A : AL fER
o = DISPLAY
2NO CHARACTER -- A, C. OR P
A
AUXILIARY STORAGE
C
CONTROL STORAGE -- CE MODE ONLY
P
PROGRAM STORAGE
AFTER THE FIRST TwO CHARACTERS, TYPE A FOUR-HEX-DIGIT
AJORESS. THE ROl,JHNE THEN FORCES A LINE FEEC. IF THE
OPERATION IS ALTER, THE ROUTINE WAITS FOR THE OPERATOR
TO lYPE IN THE DATA TO BE ALTERED. If THE OPERATION IS
DISPLAY, THE ROUTINE STARTS RIGHT AFTER THE LINE fEED,
TYPING OUT THE FIRST EIGHT BYTES OF DATA THEN COMING TO
A HALT. IF lHE DISPLAY OF MORE DATA IS DESIRED, THE
OPERATOR CAN PRESS THE 'SPACE' BAR, AND THE NEXT EIGHT
SE~UENTIAL BYTES WILL BE DISPLAYED.
EITHER OPERATION,
ALTER OR DISPLAY, SHOULD BE TERMINATED BY AN EOB.

ADDR

WORD

LABEL

SEQUENCE NO.
ALDP
ALDP
ALDP
AlDP
ALDP
AlOP
AlOP
AtOP
ALOP
ALDP
ALOP
AlOP
ALDP

001
002
003
004
005
OOb

007
008
009
010

all

012
013

T
*
*

*
*
*
*
*
*

NEXTSEQ

NEXT lABel

AT ANY POINT DURING THE PROCESS, THE OPERATOR CAN PRESS
THE 'CANCEL' KEY TO TERMINATE THE OPERATION EXCEPT WHILE.
DATA IS BEING TYPED FOR A DISPLAY OPERATION IN WHICH CASE
THE KEY80ARD IS LOCKED. WHEN A 'CANCel' IS ENCOUNTERED,
THE OPERATION RETURNS TO THE BEGINNING OF THE ROUTINE
GIVING THE OPERATOR A CHANCE TO TRY AGAIN.
EXCEPT THE FIRST TWO CHARACTERS, ALL THE OTHERS SHOULD
BE HEX DIGITS ONLY. BOTH UPPER OR LOWER CASE ARE ALLOWED
FOR ALPHABETICAL CHARACTERS. THE FOLLOWING C'ONDlTIONS
ARE RECOGNIZED AS ERRORS.
1. A NON-~EX DIGIT TYPED ON THE KEYBOARD.
2. FIRST CHARACTER OTHER THAN A OR C.
3. SECOND CHARACTER OTHER THAN A. C. OR P. THE C IS
VALID ONLY IN CE MODE.
4. INVALID STORAGE ADDRESS.
THE ROUTINE SENDS A MESSAGE OF 'INVALID CHAR' OR
'INVALID ADDR', THEN RETURNS TO THE BEGINNI NG TO GIVE
THE OPERATOR ANOTHER TRY.
THIS ROUTINE PROVIDES OFFSETTING WHEN THE ADDRESS IS
000.

WHEN ONE PASS OF THE OPERATION IS COMPLETED, THE
ROUTINE ALwAYS GOES 8ACK TO THE BEGINNING. THUS, THE
OPERATOR CAN 00 ADDITIONAL ALTER OR 01 SPLAY OPERATI ONS
WITHOUT PRESSING THE ALTER-DISPLAY BUTTON AGAIN, OR
CAN PRESS THE 'START' BUTTON ON THE CONSOLE IF HE WISHES
TO GO BACK TO THE INTERRUPTED CPU PROCESS.

STATEMENT

1052 DOCUMENT AKY ALTER DISPLAY
R. C. HUANG
10/24/61
THE WORD LABELED AS 'DOlT' IN BCPL ROUTINE WITH FIXED CONTROL STORAGE
ADDRESS OF 03BC VARIES ACCORDING TO THE TYPE OF ALDP OPERATION AA
AL T ER AUX.
STS HI AS,U+I
7F08
AL T ER CONTROL
STS Hl CS.U+l
AC
bF08
AP
AL T ER PROGRAM
STB HI U+1
7Fl8
DA
DISPLAY AUX.
ROH H AS,U+2
5E08
DC
DISPLAY CONTROL
RDH H CSt U+2
4E08
OP
DIS PLAY PROGRAM
RDH H U+2
5E 18

*

*
*

*

COMMENTS

THE REGISTER USAGES IN THIS ROUTINE ARE lJO,Ul - ADDRESS

t

-'CDR.

16lC
161 E

1620
1622
1624
1&26
1628
162A
102C
it> 2E
1630
1632
1634
1036
1638

163A
103e.
1b3f:

1040
1042
1:>44
1046
1648

WURD

3C43
0430

ALOP
ALOP
ALOP
ALOP
ALOP
AlOP
AlCP
All]P
ALUP
ALOP
AlOP
ALOP
AlOP
ALDP

E Oe. 3

AU)P

bDC

AlUP
AlUI'
ALGP
AlOP
ALIJP

26AJ

2783
d13C

ti744

2483
2577
534A
814E
0131

014

015
016

017
018
019

020
021
022
023
024
025
026
027
028
029
030
031
032
033

ALOP 035

7543
F530
24F 3
F330

AlOP 03b

<;b38

0448
FOCF
0418

104C

lb4E

8746

1050

3645

LABEL

ALeI'
ALOP
AlLJP
ALOP
AlOP
ALOP
ALOP
AlOP
AlOP
ALOP
AlOP
ALOP
AlOP
ALOP
ALOP
ALDP
ALDP
ALOP
ALOP
ALOP
ALOP
ALOP
ALOP
ALOP
ALOP
AlOP
AlOP
AUI'
AlOP
AlOP

037
038
039
040
041
042
043
044
045
046
047
0't8
049
050
051
052
053
054
055
056
057
058
059
ObO

061
062
063
064
065
066

NEXTSEQ

NEXT LABEL

*
*
*

*

*
*
*
ASEQ

BADCHR
BADADR

-

GO
Gl
00.01
HO,Hl

-

182
187

LI NEFD

041
182

IS3X
llNEfO

193
022

TY PCHR
ROM ORE
ST ART

032

ROMORE

032
036

RDMORE
CHGROw

047

AORD

029

BAOCHR

188

READCH

REDCHl

032
CHGR!JW

I S3X

*
*
*
*
*
*
*
*
*

*
*
*
*
*
*
*
*
*

ClOAD=*E60. EC LEVEl=128211
COMMENTS

COUNTER OF NUM8ER OF HALF WORDS
OUTPUT DATA
INPUT DATA
COLUMN COUNTER
CUNTROL WORD AND FLAGS
DATA

AL07=lC

RDMURE

AORO

STATEMENT

VO
VI

STAI<. T

AlLlP 034

OOlD

f OAA
3625
3613

1:>4A

SEQUENCE NO.

DO=O$KOA
01=OSK08
BAL
BAL
00=OOSK04
l=GOIlK30
BR IF Hl=O
BAL
GO=OSKOB
Gl=OSK77
ROB VI AS,G-l
BAl
BR I F G1 BIT 5= 1
BR IF GO BIT5=l
Gl=Gl-GO
BR If Gl BIT3=O
GO=OSKOf
BR If 01 BIT1=O
BR
l=GOIlK04
BR If ll=O
l=GOIlKO 1
BR IF LlNl
DO=DOSK20
OO=OOSKOI
f3AL
DO=OOSK40

SET ALLOW START KEY FLAG
OEflNE ADOR TO BE IN U REG' 5
LINE FEED
READ 1ST CHARACTER
o I SABLE STAR T KE Y
MA SK 3X IN PIT CODE
BR If 1ST CH. IS 3X
INVALID CHARACTER MESSAGE
NEGATIVE GO"F4
SET G=OB71 TO ADOR MESSAGE
READ OUT MESSAGE fROM AUX. 0
TYPE MESSAGE OUT
BR If NOT TO CHANGE ROW
BR IF ~ESSAGE COMPLETED
CHANGE ROW BY ADDING F4 OR FO
BR If TO PRINT 2ND OR loTH ROW
NEGATIVE GO=FO, & SET DONE FLAG
BR IF TO PRINT 'CHAR"
GO TO SUBTRACT ONE ROW
MASK fOR "0' - DISPLAY
BR IF 1 ST CH. IS" 0 '
MASK FOR 'A' - ALTER
BR IF 1 S T CH. I S NO T 'A'
MAKE UP CONTROL WORD FOR ALTER
OO=2f
READ 2ND CHARACTER
00=4E FOR OSPLY, DO=6F FOR ALTER

D REG'S ARE USED HERE TO SET UP THE VARIABLE CONTROL wORD. THEY
ARE ALSO USED IN THIS ROUTINE AS FLAGS. THE USAGE OF EACH FLAG
BIT IS AS FOLLOWS 00 BIT 0 - EXPECTING EOB IN 'REAOCH' BAL ROUTINE
1 - CHAR. READ REQUIRES PACKING IN 'READCH' BAL ROUTINE
2 - OPERATION IS ALTER
3 - OPERATION IS IN AUX OR PROGRAM STORAGE - NOT CONTROL
4 - NOT FROM 'REAOCH' BAL ROUTINE
5 - DISABLE 'START' KEY IN THE SOFT STOP LOOP - BSWI
6 - VALID CHARACTER IN 'READCH' BAL ROUTINE
7 - NOT USED. 1 FOR ALTER. 0 FOR DISPLAY
01 BIT 0 - ODD ADDRESS
1 - LOOPING CONTROL 1
2 - LOOPING CONTROL 2
3 - OPERATION IS IN PROGRAM STORAGE
4 - THE OPERATION IS NOT fROM 'BSTP' ROUTINE fOR
INSTRUCTION ADDRESS TYPE OUT NOR lOG-OUT

PAGE

17

CLOAO=*E60~

.'\UDR

1652
16!J4
1656
1656
165A
lbSC
loSE
1660
1062

1t,64
1066
11>68
166A
looC
l6bE
1670
1672
1074
1676
1078
1674

Iv 7e
1611:
1680
lotl2
1.>84
1086
1688

108A
168e
108E
10'10
ibn
1b94

1096
1698
169A
169C
109E
loAD
16A2
10A4
16A6
10A8
IbAA
IbAC
10AE
16BO
16B2

WORD

0420
Eooe
3715
047B
S668
043f
EOU
fOE6
E66C
C9ED
041B
fOAA
3015
6662
874C
8746
5403
E746
440[)
8746
5413
8746
4410
8HC
FOCA
874C
874C
17AG
2243
2515
FB7
F61B
00C9
F49A
3713
<;62C
368,
El:3A
8746
54f3
8146
44FO
1720
839C
E70F
S74C
25fF
C48E
li73e

SHIUENCE NO.
AlOP
AlOP
AlDP
ALDP
AlOP
AlUP
Alu?
AlOP
AlOI'
AlOP
AlDP
AlDP
AlDP
ALOP
AlOP
AlOP
AlDP
AlOP
AlOP
AlDP
AtOP
AlDP
AlOP
ALDP
AlOP
AlOP
ALOP
ALOP
AlOP
ALDP
ALDP
AlDP
All)P
AlDP
AlOP
ALOP
ALDP
ALOP
AlDP
ALDP
AtOP
AlOP
AloP
AlDP
AlOP
AlOP
AlDP
AtOP
ALOP
AlDP
ALDP
AlDP
AlDP

067
068
069
070
071
072
013
014
015
076
077
078
019
080
081
082
083
084
085
086
087
088
089
090
091
092
093
094
095
096
097
098
099.
100
104
108
ll2
114

115
116
117
118

LA8El

5 b -

7 -

016

HINOT2

082

BR8AD

029
081
084
084

BADCHR
POSAUX
AUSH
All SET

029

BADCHR

192
IB8

SPACE
REAOCH

188

REAOCH

188

READCH

188

REAOCH

182
099
192
192

LINEfO
HWOCNT
SPACE
SPACE

148
ll1

PROGRM
EX PED8

117

EXPEOB

030

BADAOR

152
188

DISPLY
REAOCH

188

READCH

HINOl2

POSAUX
BRBAD
Allser

HWDCNT
COLCNT
ONEMOR

AODRCK
AIlRCHK
CXPEOB

GOSPeE
OECONT

ST AlEMENT

NEXTlA8EL

*
*
*
*

119
120
121
122
123
124
125
126
121
128
129

HEXrSEQ

BCHK 104
104
192
104
182

oon
ONEMOR
SPACE
ONEMOR
I I NEfD

EC LEVEl=128211

COMMENTS

10TH CHARACTER
lOG OUT F~R MACHINE CK OR CE TRAP
TO PRINT THE MESSAGE OF 'INVAL 10 AOOR"

l=GOaK20
BR IF HZNZ
Ol=DUKIO
Z=GOaK07

8R
Z=GOaK33
BR I f HZNl
8R I f LZNl
BR IF DO 81T2=O
BR 1FT 0 8 IT 4= 1
Z=GoaKOl
BR IF lINl
OO=OO$KIO
SfH 0 OC,9C
BAL
BAl
UO=GOXH
BAl
UO=GOl+UOH
BAl
Ul=GOXH
BAL
Ul=GOL+UIH
BAl
BR I f GO B1T1.. 0
BAl
BAL
01=DlaKAO
VO=0$K04
Gl=0$KI0
BR I f 01 BIT 3= L
BR IF DO BIT}:l
Z=UO+KCO
BR IF AC=O
OL=OUKOI
BR
DO=OOSK80
BR I F DO 8 IT 2= 0
BAl
Hl=GOXH
BAL
Hl=GOl+HlH
01=DlaK20
BAl
BR I f 01 BIT 2= 1
BAL
Gl=Gl+KFf
8R I f lNl
8Al.

**

MASK 2ND CHAR FOR 2X I N PH CODE
BR IF NOT 2X
SET CONTROL WORD FOR PROG. STORE
MASK FOR 'P" - 27
GO TO CHECK ON '1 '
MASK 2ND CH. FOR e(33' OR A(31)
BR If NOT 3X - INVALID 2ND CHAR
BR IF POSSIBLE AUX STORAGE
2ND CHAR IS 'C', BR IF DSPY CTRl
Al fER CTRl, 8R IF IN CE MODE
MASK fOR A131) - AUX STORAGE
BR I f 2ND CH. NOT P(21) OR A(31)
SE T C TR!. WORD fOR AUX OR PROG
STORE THE C TRl WO IN 'DOl Te. 039C I
fORCE A SPACE
RE AD THE 1ST ADOR HEX DIGIT
PUT IT IN UO HIGH
READ THE 2ND ADOR HEX DIGIT
PUT IT IN UO lOW
RE AD THE 3RD AODR HEX DIGIT .
PUT IT IN Ul HIGH
READ THE 4TH AODR HEX DIGIT
PUT IT IN Ul lOW
fORCE A ll~E FEED
8R I f AOOR IS EVEN
ADOR ISO DO. Off SE T 8Y
ONE BYTE
flIP LOOP CTRl & 000 ADOR flAGS
SET COUNTER TO 4 HW'S
SET COLUMN COUNT TO 16
BR IF PROG STORAGE
48K, BR I f AUX, ALL MODULE VALID
MASK FOR AOOR HIGHER THAN 3fFF
BR IF ADDR VAliD
TO TYPE 'IN VAll 0 ADDR'
ADOR OUT Of BOUNDARY
SET 'EXPECTING EOB' fLAG
BR If DISPLAY
AL TER, READ 1ST HEX
PUT IT IN HI HIGH
READ 2ND HEX
PUT IT IN Hi lQ\!j
INVERT LOOPING CONTROL fLAG
STORE THE 8YTE
BR If NO SPACING REQUIRED
fORCE A SPACE
DECREMENT COLUMN COUNT BY ONE
BR If NOT 16 COLUMNS YET
END Of ONE lINE, fORCE lINE fEED

PAGE

18

.:\uOK

WORD

IIJB4
1"B6
lub8
1 ,) uA

')ee

S68C
0049
9694
tl39C
164')
C744
1785
5FE9
51:35
23FO
0361
F400
2318

16Ci::

23CO

1 "DO
1>02

16EA
lbEC
16EE
l()FO
16F 2

874E
0755
51: 30
1160
<;6C 6
174D
E743
22FF
C4AC
3743
874E
1743
C36F
873C
8752
2243
ti744
"bAE

073C
073E
0740
0142

2315
3353
3FOO
C4CE

0744
0746
0748
074A

2F20
3F02
1683
C400

I t}f:li.:

!t.,B E
loC 0
loCZ
1l,C 4
loC6
It,C 8
loCA
i

10j)4

luU6
1008
100A
16DC
16CE
IDEO

161:2
1()i:':4
10E6
IbE8

074C
074E
0750
0752
0754
0756
0758
071A
071C
071E

2345
2fOA
EEA2
IF2A
£:31A
FA9B
Be02
2400
AAAF
0610

SEI.lUENCE NO •
ALOP
HOP
AlLlP
ALOP
AlOP
AL LlP
ALep
ALOP
ALUP
ALUP
ALtlP
ALOP
ALOP
ALOP
ALOP
AlOP
AlOP
AL UP
Al DP
AlOP
ALOP
ALOP
ALOP
UOP
AlOP
ALDP
AlOP
AltlP
ALUP
AlOP
ALOP
ALOP
ALOP
AlOP
AlOP
ALOP
ALOP
ALDP
AlOP
ALOP
AlOP
ALOP
AlDP
AlOP
ALOP
ALDP
ALDP
ALOP
AlOP
AlOP
ALDP
ALoP
ALOP

130
148
1'0
152
153
154

LA8EL

NEXTSEQ

NEXTlA8EL

REOCHl
OECONT

TYPCHR

Vl=O$KlO
Vl=V UK05
SET TA K=80
BR IF ZNZ

1 NTVCK

SET T A K= 02
SET T A K=90
OO=DO*-K08
BR IF INI

COLeNT

114
BCHK i04

AOORCK
DOlT

i57

ENTRY

163

DONUPK

193
168

TY PCHR
OONEI

158

SECHEX

156

SCBnE

126

GOSPCE

193

TY PCHR

lId

NOBSH'
LI NEFO
NOGO

155

156
157
158
159
160
161

SC 8 YTE
ENTRY
SECHEX

162

163
164
165

OONUPK

16b

167
168
169

DONE 1

170

111

112
173
174
175
176

182
195

177

178
179

NOB STP
liH
121

180

181
182
183
184
185
186
187
188
189
190
191
192

193
194
195
196
197
198
199
200
201

AENO
UNEFD
193
REDCHl
REAOCH
194
SPACE
TY?CHR
I NTVCK
NOGO

203
199
199
BCHK 064

ADDEO
202

CLOAO=*E60, EC LEVEL-=128Z11
COMMENTS

GO TO RE STORE COL. COUNTER
BR
Z=lJO+K40
**48K, MASK FOR PROG AoDR HIGHER THAN B
BR
READ HAlFWORD
BAl
ALLOW AN¥ CHAR FOR • SPACE'
DO-=DO*-K40
BR IF ADDR 1 SEVEN
BR IF Dl BITO=O
ODD ADDR, ~ST ODD ADDR FLAG
Dl=Dl*-K80
MOVE IN THE OTHER (000) BYTE
HO=Hl
MOVE HIGH HEX DIGIT INTO VI
Vi=HOXL
UNPACK HEX TO EBEDI C, ADD FO
Vl=Vl+KFO
TEST FGR DIGIT HIGHER THAN 9
Z=V l+K06
BR IF DIGIT ISO THRU q
BR IF A(=O
01 EIT I S A THRU F, CHANGE
Vl=Vl+K07
Vl=V l+KCO
IT TO C1 THRU C 6
TYPE IT OUT
BAl
BR IF ~ONE ONE BYTE,LOOPING CTRl
BR IF 01 BIT 1= 1
MOVE IN lOW (2ND OR 4 TH J HE X DIG I T
Vl=HOL
Ol=01oK60
INVERT LOOPING CONTROL BITS
BR
GO T¥PE THE 2ND OR 4 TH HE X 0 I GI T
INVERT LOOPING CONTROL 1
Dl=DloK40
BR IF JUST FINISHED 1ST BYTE
BR IF 01 BIT 2: 1
VO=VO+KFF
DECREMENT THE 4 HW COUNT BY 1
BR IF COUNTER NOl ZERO YET
BR IF INZ
01=01$K04
SE T 16 TH CHAR FLAG
GO TO TYPE OUT THE LAST CHAR
BAl
RST THE 16TH CHAR FLAG
Dl=Dl*-K04
BR IF 01 BIT4:1
BR IF NOT 8STP NOR LOGOUT
BAl
FORCE ALINE FEED
DONE INSf. STEP OR lOG OUT
BR
RESTORE HW COUNTER TO 4
VO=0$K04
BAl
**OONE 8 BYTES, GO GET EOB OR ANY CHAR
NOT EOB, DISPLAY 8 MORE BYTES
BR

100
PKOGRM
DISPL¥

ST ATEMENT

V1=0$K40
SET T A K=50
STRADR
BR IF TT BIT 2=0
RST T A K=D2
BR IF 01 BIT6=O
ADDEO
ADDED
BR IF n BIT 7= 1
ENTRY
BR
SET MODE K=OO
NOMCK N BR IF ,",C=Nl
RST BC K=Ol

LINE FEED SUBROUTINE
SET VI TO LINE FEED CHARACTER
ALLOW KEyBOARD RESTORE
UNCONDITIONAL BR
STRING BREAKER
INITIALIZE PRINTER
SET READ LATCH, & ALDP AC TI VE
SET READ CHAR SUBRO UTI NE FLAG
UNCONDITIONAL BR
STRING BREAKER
SPACE SUBROUTINE, Vl=BLANK
TYPE CHAR ROUTINE, SET WRI TE UH
BR IF NO INTERVENTION REQUlRED
RST RO, WT, ACTI VE I: SHARE
BR IF NORMAL ALOP
BR IF LOGOUT LATCH ON
CK SUM LOGOUT DONE
SE T CPU MOOE TO BR ON MC REG
BR IF LOGOUT TO BE DONE YET
RST LOGOUT LATCH

PAGE

19

II[)OK

.. OR 0

d720
072.2
0724
J726

AAA2
3BE9
76AA
72AA
74AA
70AO
2B20
7EAO
2440
7872
2400
E33B
l6CO
AAA2
3BE 9
5MA
52AA
54AA
42Af
C2l8
0349
4F 3F
2440
5872
2404
50AO
2B2D
5tAO
LF28
128E
5A4F
3683
CAAf
14C5
DAB2
04AB
C4Af
lC23
045B
C4B2
C632
tf28
<;61C
Bl7A
E20l
962A
0648
01'1'0
E095
lFCD
EC8f
lF4D
EOB6

J7 ~8
J72A
vUC
O(2E
OHO

() 732
0734
0736
u138
u73A
26B8
268A
26B("
26BE
2pCO
20C2
i6(;4
26C6
26(;8
2bCA
2bCC
20CE
~6DO

2602
~604

2606
2098
209A
?bYC
Lo9E
/.oAO
20A2
2&A4
20A6
,'6A8
2pAA
2&AC
26AE
20BO
<'bB2
2684
<'6B6
26BO
2682
2684
2686
26B8
208A
268C

SEQUENCE NO.
AlOP
ALOP
ALOP
ALOP
ALOP
ALL)P
AlDP
ALOP
ALOP
ALOP
ALOP
ALOP
ALOP
ALDP
ALOP
ALOP
ALOP
All)P
AlOP
ALOP
AlOP
AlDP
ALOP
ALOP
ALDP
ALDP
ALOP
ALOP
ALDP
AlDP
AlDP
ALDP
ALOP
ALOP
ALOP
ALOP
ALOP
ALDP
AlDP
ALDP
ALOP
ALDP
ALDP
ALDP
ALDP
AlDP
ALDP
ALOP
ALDP
AlDP
AlDP
ALDP
ALDP

202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
2.31
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254

LABEL

NEX TSEQ

NOMCK 0
STRADR

8SWI

NEXTLABEL

066

RESTRH

215

GOBSW I

BSWI 006

RESJRH

232
224

RDCHRT
BAKMOD

243

RSTLCH

245

NOEOBC

243

RS TlCH

245
245

NOEOBC
NOEOBC

022
OYPE 231
248
029
224

START
STTRSl
NOIVLO
BADCHR
BAKMOD

258

DONPCK

255

ALPHA

247

GOBAO

RESE T

G08SWI
RrTYP

8AKMOO

ROCHRT

R S TLCH
NOEOBC
GOBAO
NOI VlD

STATEMENT

CLOAO=*E60, EC lE VEl=l28211
COMMENTS

BR
GO TO SOFT STOP
Tl=O-KEO
T=OOlf
STORE {l( C TRL WORD OR FLAGSIIE-1f
S THO AS, T-2
VtHw COUNT & WRITE DATAIIN lC-10
STH V AS,T-2
STORE G (COLLUMN COUNTI IN lA-IB
STH G AS,T-2
STORE U(AOOR REG'SI IN 0018-0019
STH U AS, T +0
T=C039
Tl=T1+K20
STORE HIOATA REG'S) IN 0038-0039
STH HAS, T+O
SE T TO BACK UP ZONE
SET MODE K=04
STORE THE SAL RETURN ADOR IN K-7
S TH I DA,9E
SET TO CPU MODE & lONE
SET MODE K=OO
BR If FROM 'BMCK'ROUTINE
BR I f 01 BIT6=l
SE T SOF T STOP LA TCH
RST 8C K=BO
GO TO SOFT STOP
BR
Tl=O-KEO
T=OOlF
RESTORE DICTRL WORD OR FLAGS)
RDH 0 AS,T-2
URESTORE VI HW COUNTER & WRITE DATAl
ROH V AS, T-2
RE STORE G(CQl. COUNTJ
RDH GAS, T-2
D I SABLE STORAGE PROTEC T
SfPO=TO
BR IF IT WA S fROM 'READCH'
BR IF DO BIT4=O
BR If IT WA S THE 16TH CHAR
BR IF 01 BlT'>=1
SEND CHAR TO BUS OUT
TE:V 1
SE T TO BACK UP MODE
SET MODE K=04
RESTORE BAL RETUR"I 4DDR
RDH I DA,9E
SE T BACK TO 1052 MODE
SET MODE K=20
RE STORE UtADDR REG'S I
ROH U AS, T +0
T= C039
T I=T 1+K20
RESTORE H(DATA REG'S)
RDH H AS,T+O
RST READ, WRITE LATCH, SHARE REQ
RST T A K=C2
RTN
GET CHAR. FROM BUS IN
GO=T I
DO=DO$K08
RST 'RE40CH' BAL ROUTINE flAG
BR I f KEY SOARD CK
BR I f TT S1f4=l
AlLOW BOTH UPPER & LOWER CASES
GO=GO*-KCO
8R I f NOT ALTERNATE CODE
BR If TT 81T5=0
lolA SK fOR 'CANCEL'
l=GOaKOA
SR If 'CANCEl'
BR If l=O
SET INVALID CHAR. FLAG
00=DO*-K02
MASK FOR EOB
l=GOaK05
BR If NOT EOB
BR If ZNZ
BR If DO B no=o
BR IF NOT EXPECTING EOB
RS TREAD, WRI TE LATCH, SHARE REQ
RST T A K=C2
RESTART ANOTHER P4SS
BR
GO TO X'LATE CHAR I N HI
BAL
BR I f INVALID CH. fLAG I S NOT ON
BR IF DO BiT6=1
CHAR. TYPED IS INVALID
BR
BR IF PACKING I S NOT REQUIRED
8R If DO BIT 1=0
MASK FOR NUMERIC
Z=HlaKFO
BR If Hl=O
BR IF CH. I S NUMERIC
Hl=HlIlKCO
l"lVERT HIGH TWO BITS
BR If ex
BR If Hl=O
MA SK FOR 8X
Hl=HlaK40
BR IF HlNl
BR IF CHAR I S NOT C X NOR 8X

PAGE

20

AOOR.

WORD

'>081:

fOBl
2F9B
EOBo
5F40
A6C8

2090
2692

20<;4
2&96
0J44

D<;C4

,)054

D9C 1

J064

40(.4

0074

C10

LABEL

SEQUENCE NO.
ALOP
AlO?
AlOP
AlOP
AlOP
AlOP
AlLJP
AlOP
AlOP
AlDP
AlOP
ALOP
AlGP
ALDP
ALDP
ALep
ALDP

255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271

NEXTSEQ

ALPHA

NEXT lABEL

241

GOBAO

247

GOBAO

OONPCK
ATABLE
C
AENO
ATABLE
C
AEND
ATABlE
C
AENO
ArABLE

224
ADDR=0044

BAKMOO

ClOAO=*E60. EC lEVEl=128211
COMMENTS

STATEMENT
BR IF LZ=O
Hl=Hl+K09
BR If HZNZ
GO=H1l
BR

BR If CHAR IS CO OR 80 - INVALID
ADJUST
BR IF CH. IS NOT A THRU F
DONE PACKING

CAUX' ROOA'
ADDR=OO54
CAUX'RAHC'
AOOR=0064
CAUX' Oil'
AOOR=0074
CAUX' AVN I'

C

AENO
**********************************
* CROSS REfERENCE FOR CSECT AlOP *
**********************************

,kCP
ALOP
AL OJ>
Al DP
ALOP
AL OP
AlDP
AlDP
l\lDP
ALOP
AL DP
AlOP
AlOP
ALOP
AlDP
Al DP
AlDP
AlDP
AlOP
ALDP
Al DP
ALOP
AlOP
ALOP
ALDP
ALOP
AlOP
AlOP
AL DP
Al CP
;\LOP
ilL OP
AlOP

022
029

030
032
036
041
041
016
0131
082
Ol:l4
099
100
104
114
111
126
127
148
1:.2
156
1:'7

158
163
168
178

182
11:l1

188
192

193
194
195

AlOP
AlOP
AlDP
AlOP
AlOP
AlDP
AlDP
AlDP
AlOP
AlOP
AlDP
AlOP
AlDP
AlOP
AlOP
AlOP
ALDP
AlDP
AlDP
AlOP
AlDP
AlDP
AlOP
AlOP
AlOP
AlDP
AlOP
AlDP
ALOP
AlOP
AlOP
AlDP
AlOP

035
044
110
034
040
028
042
012

ALD? 244
ALOP 071

OYPE 019
AlOP 082

AlOP 037

AlOP 039

AlOP 247

078

C15
079
0<;5
130
125
150
1C8
171
180
104

AlOP
BCHK
BMCK
AlDP

080
063
OB8
12B

AlDP 114

118

169
154
167

BSTP 019

160

164
115
024
025
041

oe5

033
190
171

AlOP
AlOP
AlOP
AlDP
ALO?

029
119

ALOP 094

ALOP 129

AlOP 116

BMCK OB7

086

AlDP 088
ALOP 091
AlOP 173

ALOP 090
AlDP 126
AlOP 185

AlOP 092

AlOP 119

096
163

AlOP 121

PAGE

21

CLOAO=*E60. EC lEVEl=128211

AlOP
AlOP
AlOP
AlOP
AlDP
;\lOP
AlOP
AlOP
AlOP
AlOP
Al UP
AlDP
,\lDP
AI. OP

199
202
203
212
215
216
224
232
243
245
241
248
255
258

AlOP 1<;6
AlOP 200
AlOP 194
B Sitl 125
AlOP 213
OYPE 020
ALOP 222
ALOP 221
ALOP 234
AlOP 236
AlOP 254
AlOP 246
AlOP 252
HOP 250

**********************************
* CROSS REFERENCE FOR CSEcr AlDP *
*************************.********

AtOP 197

AlOP 248

ALOP 259

AlOP 238
AlOP 2~1
AlOP 255

AlOP 242
AlOP 257

PAGE

22

CLOAO=*E60. EC LEVEL=128211

BCHK

DESCRIPTIVE

ThE CHECK SUM ROUTINE -8CHK-, 15 ENTERED UPON COMPLET [ON
ThE R1:5IDENT CPU MICROOlAGNOSnC -801 A-. THESE ROUT HIES
ARt EXECUTED wHENEVER THE CSL, SYSTEM RESET, OR LOAD KEYS
ARE PRESSED.
THE CHECK SUM ROUTINE PERFORMS AN EXCLUSIVE OR ON THE
CUNTENTS JF CONTROL STORAGE WITH THE EXCEPTION OF LOCATIONS
0002-0000 AND ClBO-OlBf.
LOCATIONS 0002-0000 CONTAIN THE HANOLOADEO CHECK SUM
vALUES OF THE HWI ViDUAL CORE LOADS. WHEN A CSL OPERAT [ON
IS PERFORMED, THE CHECK SUM VALUE IS SELECTED fPOM THIS
AREA AND PLACED IN LOCATION OEC4, WHERE IT BECOMES PART OF
THE AREA THAT IS SUBJECTED TO THE EXCLUSIVE OR. THIS
CHECK SUM VALUE SHOULD CAUSE THE EXCLUSIVE OR RESULT TO BE
HRD.
THE HANOLDAOED AREAS ARE Al)uRESS
CHECK SUM VALUE fOR
OOOl
*E601*E61 (MODEL 25 MODEJ
C004
*E62
C006
*E63
C008
*E40 t 1401/1460 MODE)
OOOA
*E50 (1440 MODEl
COOC
*E20 (MODEL 20 MODE)
Tht CHECK SUM ROUTINE IS EXECUTED IN THE FOLLOWING
SHWl::NCE-

,024

l404

~u2b

4t32
6662
FA82
21t 5
20E3
6004
4208
2AC7

3018

J02A
.i02C
302E
jJ 30
303l

3034

SeQUENCE NO.
BCHK
BCt-!K
BtHK
BCHK
I3CHK
8CHK
BCHK
BCHK
I3CHK
BCHK
BtH
BCHK
BCHK

001
002
003
004
005
045
046
047
048
049
050
051
052

LABEl
T

NEXTSEQ

NEXTLABEl

* 3 * TEST lOGOUT- *ON *

A CSL OPERATION HAD BEEN
PERfORMED. SET UP THE LOGOUT AREA
WITH CHECK SUM INFORMATION.
OECO
EC LEVEL
OEC2
LABEL Of CORE LOAD
BEING USED.
OEC4
VALUE FROM HANDLOAD
AREA.
OEC6
CORRECTION FACTOR,
ALWAYS ZERO ON
INITIAL LOGOUT.
GO fa -ALDP- ROUTINE TO LOGOUT
THiS INFORMATION. RETURN IS MADE
TO -BCHK- AT LABEL * ENTRY *.
LOGOUT *Off*
ENTRY WAS MADE AFTER A
SYSTEM RESET OR LOAD OPERATION
HAD BEEN PERfORMED.
GO TO -BCHKLABEL * ENTRY *.
* 4 * PERFORM EXCLUSIVE OR OF CONTROL STORAGE. SKIP
LOCATIONS 0002-0000 AND 0280-02Bf.
* 5 * CHECK SUM OK - BRANCH TO -BSYS- LABEl * SYSRST *
CHECK SUM BAD -SET UP ADDRESS OF CORRECTION FACTOR
PRIOR TO CE KEY TEST. GO TO STEP 6.
* 6 * CE KEY ON -

* 1 * ENTRY IS MADE FROM THE BOlA ROUTINE TO LABEL -START* 2 * SET 1052 MODE AND INITIALIZE CERTAIN DIRECT
AUORESSABlE CON~ROL STORAGE LOCATIONS.

wORD

STATEMENT

CE KEY Off-

STORE E XC LUSI VE OR RE SUl T AS
CORRECTION fACTOR INTO ADDRESS OEC6.
BRANCH TO LOGOUT CHECK SUM AREA AND
PERFORM AN EXCLUSIVE OR AGAIN. THIS
SHOULD RESULT IN A GOOD CHECK SUM.
TURN ON CSl CHECK LIGHT AND
** STOP **.IHARD STOP LATCH ON)

COMMENTS

CHECK SUM

**
*

START
064
AGAIN

ENTRY

23

TEXT

UF

... lJDR

PAGE

SET MODE K= 20
RDH 0 DC.BE
STH DOC, 9C
BR If TT7=0
lJl~O$KCO

lJO-=O$KOE
U=Ur2
RDH V CS,U+2
TO=O

SET 1052 MODE
SET T TO 4E08
STORE 4E08 INTO '001" WORD
fALL THRU IF LOGOUT ONtCSL ONLY)
SUllO ADDRESS OF CORE
LOAD NAME JUST LOADED
U-REGISTER = OEC2
READ OUT THE NAME

AUOR

wORD

3036
3038
}03A
303C

53BO
(;4BC
2B 1B
6BB 3
42AO
6208
0610
5118
2723
20CO
<;68A
4252
4C26
4ACO

~03E

3040
3042

30H
3046
3048
304A
3002
3004
3006
3u08
300A
300C
.300E
3010
3012

3014
J016
3U 18

(
.' .

lOEB

8F2C
6CC4
OCOA
42A6
C481
2CE3
20C 5
3Dd

.___--~~~J
JOIE

8F2C

,020

DF 32

6ACO
B02C
A 16C
eC2B
C486
e08D
(;4B6

tl~34

2040

~H;36

42CO
6A21
ttl3l
128E

~d22

JUDO
lF2C
l~2E
u~30

OF38
,)F3A
uf3C

utC4

,H 88

J398

J3'JC

COOO

07FF

GOC8

4Ee8

SEQUENCE NO.
BCHK
BCHK
BCHK
BCHK
BCHK
BCHK
BCHK
BCHK
BCHK
BCHK
BCHK
BCHK
BCHK
BCHK
BCrlK
BC HK
BC HK
BCHK
BCHK
BCHK
BCHK
BCHK
BCHK
I3C HK
BCHK
BCHK
BCHK
8CHK
8CHK
BCHK
BCHK
BCHK
BCHK
BCHK
BCHK
BCHK
BCHK
BCHK
BCHK
BCHK
BCHK
BCHK
BC HK
BCHK
BCHK
BCH!(
BCHK
BCHK
BCHK
BCHK
BCHK
BCHK
BCHK

0'J3
054
055
056
057
058
059
060
061
062
063
064
065
066
067
068
069
070
071
012
073
014
015
076
077
078
079
080
081
082
083
084
OS'J
086
087
088
089
090
091
092
093
094
095
09{)

997
098
099
100
101
102
103
104
105

LABEL

NEXTSEQ

NEXTlABEl

056

CALARE

ALDP 099

HW DCNT

083

DOfUNC

068

MORE

082

OKSUM

079

OBOY

083

DOfUNC

048
BS VS 002

AGAI N
SY SRS T

CALARE

ENTRY

MORE

*OdOY
OKSUM
DOFUNC

088

NOTCE

088

NOTCE

NOTCE

CLOAD=*E60, EC tEVEl=12821l
COMMENTS

STATEMENT
T l=V I I
BR IF ZNZ
T l=T l+KOl
Tl=fl+Tl
RDH V CS, T
STH V CS,U+2
RST BC K=Ol
Ul-=UIH
D1=OSK02
SET S K=OC
BR
RDH V DC,9A
P=V
ROH T CS,P
P1=P1+KOE
BAl
P=P+2
BR IF POl=O
V=T
BR IF Z=O
PO=OSKOE
PL=OSKCO
Pl=PlSK06
...-;;,"',.'-"'''''"''".,,',....
... """''')
(13R I f TJ?~.J"yl
sTr-TIR K=02/

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

BAL
STH T CStP
BR
BR
I=POcK02
BR IF ZNZ
Z=PIIlK80
BR I f ZNZ
PI=P1+K40
RDH V CS, P
TO=TOIlV.o
T l=TlIlV 1
RTN

fI NO OUT WHAT
THE CSL NAME IS
ADD
1 TO lOW DIGIT OF NAME
DOUBLE THE LOW DIGIT OF NAME
** USE UPDATED NAME TO READ HANDLOAD
STORE HANDLOAD CHECK SUM IN OEC4
RESET LOGOUT LATCH
U-REG=OECO
SET UP FLAGS
SET S4 AND S5
8R ANC H TO LOGOUT OEC ()-- OEC6
ZERO V-REGI STER
ZERO P-REGISTER
READ OUT CS LOCATION 0000
SKIP HANDLOAD INfORMATION
BR TO START E XClUSI VE OR
INCREMENT CS ADDRESS
BR IF CS NOT DONE
MOVE LAST EX OR RESUlT TO
V
BR IF EX OR RESULT ZERO
SET UP
CORRECTION
FACTOR ADDRESS
BRANCH IF CE KEY ON
TURN ON CHECK SUM lIGHT AND THE
HARD STOP LATCH.
GO GENERATE CORRECTION FACTOR
STORE CORRECTION FACTOR IN OEC6
GO SETUP fOR CORRECTION LOGOUT
BR ANCH TO S YS TEM RE SE T
BYPASS
CE
TRAP
AREA
READ FROM CONTROL STORAGE
PERFORM THE
E XCl US I VE OR

RESERVE 0280lHRU 02BE
RESERVE OECO THRU OEC2
ADOA=OEC4
A TABLE
XCTl' 00000000'

C
AENO
A TABLE

AODR-=0388
XCTl'07FFC48A88004E08'

C
AEND
ATABLE

ADDR-=0398
XCTL' 00(800aO'

C
AEND
A TABLE
COOIT
AEND

ADDR=039C
XCTL' 4E08128E'

PAGE

24

AIJOR

SEQUENCE NO.

WORD

BCHK
BCHK
BCHK
BCHK
BCHK
BCHK

aeoo
2fF 1

106
108
121
122
123
124

LABEL
ArABLE

NEX TSEQ

CLOAO=*E60, EC LEVEl:128211
COMMENTS

STATEMENT

ADDR=03A8
XCTl'OOOOOOOOOOOOOOOO'

C

AEND
ATABLE
C
AEND

NEXT LABEL

AOOR=03BS
XCTL'2FF72FIBC4BCOF01'

**********************************

* CRCSS REFERENCE FOR CSECT BCHK
L>C HK \JOS
rlCHK 048
rlCHK 0:'6
tl(.. I-tK 064
L>CHK 068
dCHK 079
rlCHK 082
BLHK 083
BCHK 088
r3CHK 104

BDIA
8CHK
BCHK
AlDP
deHK
BCHK
8CHK
BCHK
flCHK

432
OEI

054
ISS

BCHK 047

070

076
072

068
084
AlDP 124

*

**********************************

8CHK 079
8CHK 086
ALOP 152

PAGE

25

CLOAD=.E60, EC LEVEl=128211

PAGE

26

SCPL DESCRIPTIVE TEXT
THE BePL ROUTINE IS NORMAllY RESIDENT IN CONTROL STORAGE,
AND IS LSED TO LOAD THE INITIAL RECORD OF EITHER THE CHANNEL
OR NATIVE BOOTSTRAP ROUTINES.
IF THE BCPL ROUTINE HAS BEEN ALTERED, THE APPROPRIATE
HANDLOAD INFOKMATION· MUST BE ENTERED TO BE SURE OF CORRECT
C SL UPE:RA nON.

*** SwITCH SETTINGS fOR CSt ***
SWI TCHS
A,B
CC
CSL fROM CHANNEL
A,B
DO
CSl fROM NATIVE 2560
A,B = EE
CSL fROM NATIVE 2540
A,B = f-F
CSL FROM NATI VE 2311
SWITCHES C,D

SET TO ACTUAL UNIT ADDRESS

PROCEDURE

FOR

PUNCHING CSL CARDS

COLUMNS
1-2

CONTAIN STAR rING ADDRESS TO BE LOADED
CONTAINS CODE INfORMATION
HEX 80 = DATA I S FOR PROGRAM STORAGE
...EX 40 = LAST CSl CARD Of DECK
HEX 20= DATA IS fOR .AUXIUARY STORAGE
HEX 10 .. DATA IS FOR CONTROL STORAGE
4
CONTAINS THE NUMBER Of HALf WORDS TO BE LOADED
5-68
CONTAIN THE DATA
69-72
OPTIONAL, CAN BE USED FOR ANY INFORMATION.
13-71
*NNN9 WHERE N I S THE CORE LOAD 10.
78-80
XXX 3 DIGIT NUMBER INDICATING SEQ. Of PATCHES.
*•• WARNING- DO NOT PUNCH CARDS TO LOAD INTO AUX MODULE 1,3,4
3

***************************.**** •• *****************************************.**********.*.**.****.***** •• ************************
RESTRICTIONS WHEN PUNCHING CSl CARDS
COLS 1-2

CUL
CUl

3
4

ALL ADDRESSES SHOULD BE EVEN.
ceNTRaL STORAGE - THESE ADDRESSES SHOULD BE IN
THE RANGE OF 0000-3FFE ONLY.
AUXiLIARY STORAGE- THE 2ND HEX CHARACTER IN
COLUMN 1 SHOULD BE A ZERO.
PROGRAM STORAGE - THE ADDRESS MUST BE IN THE
RANGE OF THE SYSTEM.
COOED INFORMATION
COUNT FlELD - If A COUNT Of 0 IS INDICATED. 257
HAlFWORDS WILL BE LOADED.

COLS 5-68 DATA fiELD
- CAN BE ANYTHING
COLS 69-80 SEE ABOVE.
NOT USED BY THE CSt.
••• WHEN LOADING A FULL DECK WITH REPLACE CARDS. THE
REPLACE CARDS SHOUlD GO JUST BEFORE THE END CARD.
•• * WHEN LOADING ONLY REPLACE CARDS. IT IS NECESSARY TO
PUT THE CONTROL STORAGE CARDS (NORMALLY 4' fOR
MODUlE 01XX IN THE DECK.
URDER Of THE CARDS IS - BOOTSTRAP CARDS. CONTROL
STORAGE CARDS fOR MODULE 0IXX, REPLACE CARDS, END CARD.

*******.*** ••• **.** •• ***** •••••••• *••••••••••• *••••• ** ••• *•• *••• ***.** ••• ***.* ••• ***.** •• *.******.***** •• *****.* •••••• *********.**

.* EXAMPLE

Of PUNCHING AND LOADING A REPLACE CARD

ASSUME THAT THE DEVICE ADDRESS FOR THE 1403 ON THE
BURST CHANNEL NEEDED TO 8E CHANGED TO -OA-.
THE STANDARD ADDRESS fOR THE 1403 ON THE BURST CHANNEL
IS -OE- AND IS LOCATED IN AUXILIARY STORAGE MODULE O. AT
ADDRESS -87-.
THE CARD TO CHANGE THIS WOULD BE PUNCHED IN THE
FOLLOWING MANNER-COL 1
(HEX 00.
THIS ADDRESSES MODULE o.
COL 2
(HEX 86J ALTHOUGH THE CHANGE IS fOR ADDRESS
87, THE HEX ADDRESS REPRESENTED BY
COLUMN 2 MUST BE EVEN.
[HEX 20!
THIS INDICATES INFORMATION IS FOR
COL 3
AUXILIARY STORAGE.
COL 4
(HEX Oll THIS INDICATES ONE HALf WORD TO BE
LOADED.

COL 5

*.

THIS REPRESENTS THE DEVICE ADDRESS
OF THE 2540 PUNCH THAT MUST BE
RELOADED BECAUSE OF THE ADDRESSING
RE STR IC TI ON IMPOSED BY COLUMN 2.
COL 6
( HE X OA)
THIS REPRESENTS THE DEVICE ADDRESS
COL 69-12 10086.
TO INDICATE START ADOR OF PATCH.
COL 73-77 '.E6091
INDICATES PATCH IS FOR .E60 CORE LD.
COL 78-80 (OOlt
INDICATES 1ST PATCH TO DECK
REPLACING THE STANDARD ADDRESS FOR
THE 1403 ON THE BURST CHANNEL.
A CSL MUST BE PERFORMED TO LOAD THIS RECONFfGURATION CARD
INTO THE SYSTEM. THE RECONflGURATION CARD MUST PRECEED THE
END CARD, AND MUST BE PRESENT IN THAT POSITION FOR ALL
CSLS USING THAT PAR TlCULAR CORE LOAD DECK.
EACH TIME A NEW fC LEVEL DECK IS RECIEVED, ALL RECONFIGURATION CARDS IN THE DECK BEING REPLACED MUST BE REMOVED
AND INSERTED IN THE NEW DECK IN FRONT OF THE END CARD.

*..

(HEX 00)

ClOAD=*E60, EC lEVEL=IZ8Z11

PUNCHED

dtX
()U

j

1

e1 2
'Y3

U4
<)'j
,)b

1]7
1)8

U9

JA
08
oC
00
01::

UF
10
11
12
13
14
15
16
17
18
19

LA
18
lC
1D

It.
iF
20
i 1
22
L3
24

PUNCHES
T-0-9-8-1
f-9-1
T-9-2
T-9-3
1-9-4
1-9-5
T-9-6
T-9-7
T-9-8
T-9- 8-1
T-9- 8- 2
T-9-8-3
T-9-8-4
T-9-8-5
f-9-8-6
J-9-8-1
T-E-9-8-1
E-9-1
E-9-2
E-9-3
E-'J- 4
t-9-5
E-9-6
E-9-1
E-9- 8
E-9-B-l
E-9- 8-2
E-9- 8- 3
E-9- 8-4
E-9-8-5
E-9- 8-6
E-9-8-7
E-D- 9- 8-1
0-9-1
0-9-2
D-9-3
0-9-4

···
·· 21
··
···
··
···
·· 33
··
··
··
··
··
···
···
···
··

HEX PUNCHE S
25
0-9-5
26
0-9-0
0-9-1
28 0-9-8
29 0-9-8-1
0-9-8-2
2A
0-9-S-3
2B
0-9-8-4
2C
0-9-8-5
2D
2E
D-9-8-6
2F
0-9-8-1
30 T-E-0-9-8-1
31
9-1
32
9-2
9-3
34 9-4
35 9-5
36 9-6
31 9-1
38 9-8
39 9-8-1
3A
9-8-2
9-8-3
3B
9-8-4
3C
3D 9-8-5
9-8-6
3E
3F
9-8-1
40 NONE
T-0-9-L
41
T-D-9-2
42
T-0-9-3
43
T-D-9-4
44
T-0-9-5
45
T-D-9-6
40
T-0-9-1
41
48 T-0-9-S
T-8-1
49

··
··
··
··
···
···
··
·

··
···
··
···
··
···

···
··
·

HEX
PUNCHES
4A T-8-2
T-8-3
4S
T-8-4
4C
40 T-8-5
T-8-0
4E
T-8-1
4F
50
l
T-E-9-1
51
T-E-9-2
52
T-E-9-3
53
T-E-9-4
54
T-E-9-5
55
T-E-9-6
56
T-E-9-1
51
T-E-9-8
58
59
E-8-1
E-S-2
5A
E-8-3
58
E-8-4
5e
50 E-8-5
E-8-0
5E
51'
E-8-1
00 E
61
0-1
E-0-9-2
62
E-O-9-3
03
E-0-9-4
04
E-O-9-5
65
E-0-9-6
66
E-0-9-1
61
68 E-0-9-8
0-8-1
69
oA T-E
0-8-3
6S
0-8-4
6e
60 0-8-5
0-8-6
6E

HEX
·· 6f
10

··
···

··
···
··
·
··
··
···
···
··
·
···
··
··
··
·

1l
72
73
14
75
16
11
78
19
7A
1B
7C
1D
1E
1f
SO
81
82
83
84
85
80
81
88
89
8A
8S
8e
80
8E
8F
90
91
92
93

CARD

PUNCHES
0-8-1
T-E-O
T-E-0-9-1
T-E-0-9-2
f-E-0-9-3
T-E-0-9-4
T -E-0-9-5
T-E-0-9-6
T-E-0-9-7
T-E-0-9-8
8-1
S-2
8-3
8-4
8-5
8-6
8-1
T-0-8-1
T-O-l
T-0-2
T-0-3
1"-0-4
T-0-5
T-O-b
T-0-1
1"-0-8
T-0-9
T-0-8-2
T-0-8-3
T-0-8-4
T-0-8-5
T-0-8-6
T-0-8-1
T -E-8-1
T-E-1
T-E-2
T-E-3

PAGE

21

CODES

···
··
···
··
···
·
~

··
··

··
···
··
··
·

·
~

··
··
··
·

HEX
94
95
96
97
98
99
9A
.S
9C
90
9E
9F
AO
Al
A2
A3
A4
A5
A6
A1
A8
A9
AA
AS
AC
AD
AE
AF
80
81
S2
83
S4
B5
66
S7
68

PUNCHES
T-E-4
T-E- 5
T-E-6
T-E-1
T-E-8
T-E- <;
T-E- 8-2
T-E- 8-3
T-E- 8-4
f-E-8-5
T-E- 8-0
T-E- 8-7
E-o- 8-1
E-D-l
E-D-Z
E-0-3
E-D-4
E-D- 5
E-0-6
E-D-1
E-0-8
E-0-9
E-D- 8-2
E-0-8-3
E-O- 8-4
E-D-8-5
E-D- 8-6
E-0-8-7
T-E-0-8-1
l-E-o-l
T-E-Q-2
T-E-0-3
T-E-0-4
T-E-0-5
T-E-0-6
T-E-0-1
T-E-0-8

···
···
··
···
···
···
·

··
·

HEX
89
SA
SS
SC
BD
BE
SF
CO
C1
C2
C3
C4
C5
C6
C1
C8
C9
eA
C6
ee

·· CO
···
··
··
·

··
··

··
·

CE
CF
00
Dl
D2
D3
U4
05
D6
D1
08
09

04
DB
DC
DO

PUNCHE S
T-E-O-9
T-E-0-8-2
T-E-0-8-3
T-E-0-8-4
T-E-0-8-5
T-E-0-8-0
T-E-o-S-7
T-O
T-l
T-2
T-3
T-4
1"-5
T-6
T-1
l-8
T-9
1-0-9-8-2
;-D-9-8-3
T-D-9-S-4
1"-0-9-8-5
T-0-9-8-0
T-0-9-8-1
E-O
E-l
E-2
E-3
E-4
E-5
E-6
E-1
E-8
E-9
T-E-9-S-2
T-E-9-8-3
T-E-9-B-4
T-E-9-8-5

···
·· El
··
···
···
··
···
··
···
··
··
·

··
·

··
··

PUNCHES
HEX
T-E-9-8-6
DE
T -E-9-8-1
OF
EO 0-8-2
E-Q-9-1
0-2
E2
0-3
E3
E4 0-4
0-5
E5
E6 0-6
0-1
E7
0-8
E8
E9 0-9
E-0-9-S-2
EA
EB E-0-9-S-3
E-0-9-8-4
EC
ED E-0-9-8-5
E-0-9-8-6
EE
E-0-9-8-1
Ef
FO 0
1
fl
F2 Z
F3 3
F4
4
F5
5
F6 &
f7
1
F8 8
F9
9
FA T -E-0-9-8-2
FS T-E-0-9-S-3
T-E-0-9-8-4
Fe
FD T-E-O-9-8-5
T-E-0-9-8-0
FE
FF
T-E-0-9-8-1

···
···

CLOAD=*E60. EC LEVEl=128211

*••

HANOLOAD

ROUT1NE FOR NATIVE 2540
STATEMENT

•••
COMMENT

ADDR

WORD

0010
0012
0014
0010
0018

3210
2010
2C07
2413
80t:2

SE T MMSK K=81
SET BC K=Ol
PO=O
GO=05K01
BR

BLOCK TRAPS
SET LOGOUT LATCH
ZERO OUT SW ITCH
START SETUP OF ADDR 0100
BRANCH TO LOCATION 0062

0062
0064
0066
0068
006A
006e
OObE
0010
0072
0074
0076
0018
C07A
007C
007E

2406
2617
2783
3175
2507
4066
5EEF
DE6E
5B3F
634B
736A

SE T MODE K=30
DO=OSKII
Dl=OSKG8
01=01$K10
G1=0
U=D
HO:RPS
BR IF HOl=O
VI=RPI
STB VI C).G+l
HB \/1 AS.O-l
SR IF LZNZ
DO=OOaKOl
BR IF LZ=O
BR

SET 2540 MODE
8UIl.D AUXllI ARY
STORAGE ADDRESS
fOR COMPARING
FINISH SETUP OF ADDR 0100
SAVE COMPARE ADDRESS
READ 2540 STATUS
BACK ONE WORD IF NO DATA
GET READ BRUSH I DATA
PUT DATA IN CONTROL STOR
PUT OAT A IN COMP TABLE
GO WAf T FOR MORE DATA
INVERT FIRST TIME SWITCH
BRANCH BACK IF FIRST TIME
BRANCH TO BOOTSTRAP

FOEE

1618

FOt: 7
8100

ADDR

.*.

HANDLOAD ROUTINE FOR CHANNEL
WORD

STATEMENT

PAGE

28

*••
COMMENT

0010
0012
0014
0016
0018
OOlA

3210
2610
2C07
21tl3
5lAf
802C

SET MM5K K=81
SET BC K=Ol
PO=O
GO=OSKOI
TO=SWCD
BR

BLOCK TRAPS
SET LOGOUT LATCH
ZERO OUT SWITCH
START SETUP OF ADDR 0100
SWCD EQUAL DEVICE ADDR.
BRANCH TO LOCATION 002C

002C
G02E

0046
0048

2486
2507
2808
C983
4FAF
2804
2B44
C9BA
2B40
CD BE
2823
4f8F
2B42
FOC6
5FBF

OO~A

C~A

004(
OOItE
0050
0052
0054
GOS6
0058
005A
005C
005E
0060

2848
FOCF
EOCE
5FFF
F05B
7f48
F05C
6F48
0550
CltCC
BI00

SET MODE K=38
. Gl=O
SE T GA K=40
8R ~F GT4=l
GBIllUT=TO
SET GA K=20
SET GA K=24
8R IF GT4=0
SET GA K=04
BR IF .G10=0
n=OSJ(02
GB/OUT=Tl
SET GA K=U
BR IF GT3=O
fl=G8/1N
BR IF ZNZ
SET GA K=~4
BR IF GT3=1
BR IF GT2=0
Hl=GBIIN
SR IF G07:1
STB HI A5.G+1
8R If G07::0
SfB HI CS.G+1
Z=GlaK50
BR IF lNZ
8R

SET CHANNEl MODE, CPU ZONE
FINISH SETUP OF ADDR 0100
SET SERVI CE- OUT
BRANCH ON OP IN
SE NO DE VI CE ADDRESS OUT
RAISE ADDRESS OUT
AND SEl EC TOUT
WAIT FOR OP 1 N
RESET ADDRESS OUT
WAIT FOR ADDRESS IN
BUILD READ COMMAND
SEND OUT READ COMMAND
RAISE COMMAND OUT
WAIT HERE fOR STATUS
READ STATUS
lOOP HERE IF INVALID StAT
SET SERVICE OUT
WAIT FOR
DATA
GEl DATA 8YTE
BR IF 800TSTRAP READING
NOT BOOT INFO.STOR IN AUX
UNCONDITIONAL BRANCH
PUT BOOT IN CNTRl STORAGE
CHECK IF All DATA IN,
IF NOT, GET MORE.
BRANCH TO BOOTSTRAP

0030

0032
0034
0036
0038
003A
003C
003E
0040
OO~2
OO~4

CLOAO:*E60~

HANOLOAO

***

ROUTINE FOR

ADOR

wORD

0010
0012
0(J14
(Jul6

2610
2C C 7

po=o

8070

13R

2490
2813
2907
4A86
2F 15
2EX5
2D23
4D9F
OE08
OE114
49EF
4EDF
4BFF
2EO
3E 15
4FEf
2E4.3
E598
4EH
4BFF
31)00
E5Al

SE T MODE K=09
! O=OSKOI
11=0
T=l
Hl=O$KlO
HO=05KX(J
Pl=05K02
FFO=ll
RST FIB K=40
Rsr FIB K=20
MS=HO
FBO=Pl
TGRO=Hl
HO=OSK06
HO=H OSKI 0
FOP=HO
HO=CSK04
BR IF OASI2=0
FBO:HO
TGRO=H1
SET FIA K=80
BR If OA SI 2=1
RST FlA K=80
HO=TGRI
BR iF H04=1
BR IF OASI4:1
BR TO OIOA

0070
0078
007A
007C
001E
0080
0082

0084
(J086
0088
OOtiA
a08e
008E
C090
0092
0094
0091>
0098
009A
009C
009E
(JOAO
OOA2
00A4
00A6
OOAS
OOAA

WOO

*

***
COMMENT

SET MMSK K=81
SET Be K=Ol

50Ef
eA25
CIA9
810A
NUTE

***

STA TEME NT

3210

*

2311

BLOCK TRAPS
SET LOGOUT LATCH
ZERO OUT SWITCH
BRANCH TO LOCATION 0076
SET 2311 MODE
SET [-REG
TO 0100
MOVE OLOO TO T-REGISTER
SET UP MODULE SELECT * NOTE *
SET UP RETURN BIT (BIT 6f
SEND ZERO TO FILE FLAGS OUT
iSSUE INITIAL RESET
ISSUE COLO-START RESET
LOAD MODULE SELECT REGISTER
SEND RETURN TO FILE BUS OUT
MOVE CONTROL BIT TO TAG REG
SET UP FILE OP, COUNT
OF ONE, OAT A READ
MOVE OP TO FILE OP REGISTER
SET UP SELECT hEAD
BR TO I TSELF IF NO GATED ATT.
MOVE 04 TO FILE BUS OUT
MOVE CNTRL BIT TO TAG REG OUT
SET GO LATCH
BR TO ITSELF IF GATED ATTEN.
RESET TRAP LATCH
GET TAG REGISTER IN
BR BACK ONE WORO IF NO TRAP
LOOP ON IT S Elf I F ERROR
SR TO BOOTSTRAP

THE X IN THE CONTROL WORD HAS THE
FULLOwiNG SlGNIF1CANCEX=8
X:4
X=2
X=l

SELECT
SELEC T
SELECT
SELECT

DRIVE
DRI VE
DRIVE
DRIVE

NUMBER
NUMBER
NUMBER
NUMBER

0
L
2
3

HANDLOAD ROUTINE FOR
WORD

0010
0012
0014
0016
0018

3210

ooce

2560

2610
2e07
2413
80AC
240E

2F04
2507
5fDf
DAS8
E033

2flO
DAC6
CAS9
58Ff
5AEf
4Ef3

6f48
2B14
055D
C4B4
8100
NOTE 2 -

*

29

***

SET MMSK K=81
SET Be K-=Ol
PO=O
GO=O$KOI
BR

BLOCK ALL TRAPS
seT LOGOUT LATCH
ZERO HANDLOAD FLAG REGISTER
BUILD HIGH HALf CS ADDR. 0100
8R TO OOAC

SE T MODE K=70
SET MFA K=20
G1=0
p l=Mfl) 8
BR If MF T5=0
BR IF P12=1
SET MFA K=Ol
BR If Mf T5=0
BR IF MfT4-=1
Hl=MFR 1
HO=MfR2
Hl=HOXH+HlL
SIB HI CS,G+l
SET MFC K=21
I=GlaK50
8R IF INI
BR

PUT IN MOD/20. 2560 MODE
SELECT SEC FEED
(NOTE 2)
LOW HAlf CS ADDR. G=OlOO
8R TO OOB8 IF NPRO REQ
BR IF NOT READY
SET READ EX.
CHECK NPRO
BR ON NO DATA AVAil
READ 112 BYTE
READ THE OTHER 1/2
PUT TWO 112 BYTES TOGETHER
STORE THEM
RST NPRO, AND RD. EX.
CHECK fOR 80 BYTES
I F NOT 80, GO TO 0084
BR TO BOOTSTRAP ADDR 0100

IN OROER TO USE THE PRI MARY FEED f
REPLACE THIS WORD WITH 2f80. THE START
KEY MUST BE PRESSED AT THE END TO
COMPLETE THE CSL ILAST CARO J.

*************************

**
*
*

PAGE

COMMENT

SJA TEMENT

ADOR

OOAe
OOAE
OOBO
00B2
0084
00B6
00B8
008A
OOBe
OOBE
OOCO
00e2
00C4
00C6
00C8
OOCA

EC LEVEl:1282l1

FOR BOOTSTRAP
INFORMATION. REFER
TO THE AKXXX LOGIC
PAGES.

**

*
*
*

*************************

-

wu,w

,WOO
{jBAD
8CA(.

3210
26IC
50CF
:olAf
2413
OCCF
C4AD
OCDf
C48F
OCEf
C4E3
OCFF
C4A8
80DE
2486
25(1
213(8
(, 9B3
4FAF
28V.
21344
C 9BA
2840
COBE
21:l23

4fBF
21:142
fOC6
5FBF
C4CA
21348
f LJCF
EOCE
~fFF

f 05B

7F 48

~8

f- 05C

J.J':>A
lhJ '>C
OU 5E
0060
O\l62
0064
0066
U068

bF48
0550
C4CC
8100
2406
2617
2783
3775

UJ

LABEL

Sb.lUlNCE NU.
BCPL
BCPL
BCPL
BCPL
BCPL
BCPL
BePl
BCPL
BCPl
BCPl
BCPL
BCPL
BCPl
BCPL
BCPL
BC PL
BC Pl
BCpL
BCPl
BCPl
BCpl
BCPL
BCPL
BCPl
BCPl
tiCPl
BCpL
depl
BCPl
BCPL
BCPl
BCPL
BCpL
BCPl
bCPl
BePL
BCPl
BCPL
BCPL
Bepl
BCPl
BCPl
BC Pl
BCPl
BePl
BCPl
BCPl
BCpl
8CPl
BePl
BCPL
BCPL
BePl

001
a02
003
004
OO~

006
007
OOB
009
010

Oll
012
013
014
015
016
017
018
019
020
021
022
023
024
025
02/)
021
028
029
030
031
032
033
034
035
036
037
031:1
039
040
041
042
043
044
045
04'6
047
048
049
050
051
052
053

NEXTSEQ

NEXTlABEL

STATEMENT

CLOAO:·E60, EC LEVEL=128211
COMMENTS

CSL
RESIDENT ROUTINE
T
AODR=OOOO
AUBLE
LOCKeN
BR
003
LOCKON
XCTL'OBADOBADOBADOBACOBAOOBAD'
C
BR
RD2560
087
N2560
THE fOLLOWING WORD
15 THE FIRS T WORD
OF THE CSL TRAP
Bl.OCK ALL TRAPS
SET MMSK K=81
SET lOG OUT LATCH
SET BC K::Ol
pO=SWAB
READ
SWI TCHE S
TO=SWCD
SET UP C S ADDRESS
GO=OSKOI
Z=POcKCC
CHECK fOR
BR IF Z:O
Cf"ANNEl
CHANEl
023
l:: pOcKDD
CHECK fOR
2560
BR I f 1=0
N2560
005
Z = POll KEE
CHECK fOR
2~40
BR IF Z=O
N2540
050
l=pOcKff
CrECK fOR
2311
BR I f INZ
SWIERR
SIojIERR
021
BR
FILE
106
pur I N CHANNEl MODE
CHAN
SET MODE K= 38
CHANEl
CHAN
CS ADDRESS
Gl=O
AGAIN
CHAN
SET GA K=40
BR ON 01> IN
CHAN
OPIN
BR IF GT4= 1
OPIN
026
CHAN
SEND OUT DEVICE ADDRESS
GB/OUT=TO
RA I SE ADDR.
CHAN
SET GA K= 20
CHAN
AND SEl OUT
SET GA K=24
WA I T fOR OP IN
OPI NOT
BR I f GT4=O
CHAN
030
OPINOl
SET GA K=04
CHAN
RESET ADDR. OUT
CHAN
lolA IT FOR ADDR IN
AOOIN
BR I f GTO=O
032
ADOIN
Tl=OSK02
CHAN
BUIlD READ CMNO
CHAN
SEND OUT THE CMND
GB/OUT=Tl
CHAN RAI SE COMMAND OUT
SET GA K= 14
WAIT FOR STATUS
CHAN
sr ATUS
BR I f GT 3=0
036
STATUS
Tl",GBI IN
READ STATUS
CHAN
CHAN
LOOP INVALID I NI HAL STATS
ERRORA
BR If INI
038
ERRORA
CHAN
SE r SER VICE OUT
SET GA K=44
S TA rc
BR I f GT3=1
CHAN
STA rus LOOP
STATB
040
STATB
BR If GT 2::0
CHAN
SER VICE lOOP
040
ST ATB
Hl::GB/IN
CHAN
GET DATA
CHAN
fIRST TIME
BOOTSTRAP
FIRSTC
BR IF G07= 1
046
ST B HI AS, G+ 1
CHAN
NOT 1ST PUT IN AUX
BR I f G07=0
CHAN
UNCOND I T BRANCH
041
DEC REM
CHAN
ST B Hl CS, G+ 1
1ST TIME PUT IN C S
FIRSTC
I=GlcK50
CHAN
CHECK I f All
DECREM
BYTE S XfERED
BR IF INZ
ST ATC
CHAN
039
XCTL'8100·
CHAN
GO TO BOOTSTRAP
C
2540 pur IN 2540 MODE
SET MODE K::30
N2540
DO=OSKII
2540 BUlLO COMPARE
Dl=OSK08
2540
ADDRESS WHERE CARD
CYCLE
Dl=DlSK70
254C
IMAGE IS STORED

•
*'
*'

PAGE

30

ADLR

WORD

U()6A
006C
JObE
u070
0072
0074
d010
0078
007A
007C
J07E
OOSO
(J082
00154
00S6
uv88
VU8A
J08C
JU8E
OJ90
00'f;.1
0094
u09b
J09tj
ui.i9A

25(7

\l0ge

Ju9E
,)\)AO
JJA2
JOA4
JOA6
QUAB
JOAA
OOAC
OuAE
OOBO
00B2
OJB4
OUB6
(JOBS
OUBA
OOSC
OOBE
ODCO
(JOC2
00C4
00C6
JUCB
OUCA
OOCC
OOCE
OODe
000e:

4066
5EEf
DE6E
5B3F
6348
B6A
FOEE
161B
FUE7
8100
bEE3
6EE3
HE3
01:08
OEC4
49EF
4EDF
4BFF
2Ee3
3E15
4HF
2E43
E5'18
4EEF
4BFF
JDCO
E5Al
1000
50EF
CA25
C1A9
810A
240E
25C7
2F04
':lFDF
DAB8
ED33
2flC
DACb
CAB9
58FF
5AEF
4Ef3
bF48
2B14
0550
C4B4
tjlOO

FFFF
FFFF
2807

SEQUENCE NO.
BCPL
BCPL
BCn
BCPL
BCPl
BCPL
BePl
BePL
BCPL
BCPl
BCPL
BCPL
BePL
BCPL
BCPL

tH.PL
BePL
BCPt
BCPL
sePl
BCPL
BePl
SCPL
SCPL
SCPL
BePL
BCPt
SCPL
BCPL
BC Pl
BCPL
BePL
BCPL
BePL
BCPl
Bept
BePL
BCf'l
BCPL
BCPL
BCPt
BCPl
BePL
BCPt
BCPL
BCPl
BePl
BePL
BCPt
BCPL
BCPl
BCPL
BePL

LABEl

054
055
056
057
058
059

NEXTSEQ

NEXT LABEl

DA TA I N
056

DATAIN

056

OAT AIN

052

CYCLE

WA I TF L

017

WAlTFL

wAlENA

081

WAIENA

OB3
085

WAIENB
ER

093
090

FEED
K5RDY

100
093

NDIl
FEED

091

K6NPO

ObO

061
062
063
064
065
066
067
068
069
070
071
012
013
074
075
076
077
078
019
080
OB1
082
08.3
084
085
086
087
088
089
090
091
092
093
094
095
096
097
098
099
100
101
102
103
104
105
106

C
MOO
MOO
MOD
MOD

0

1
2
3

wAIENB
ER
C
RDl560

K5RDY
K6NPO
FEED

NOI T

C

C
C

fILE

STAT EMENT

ClOAD=*E60. EC lE VEL = 12 8211
COMMENTS

ZERO REG FOR CONTROL ADDR.
Gl=O
2540
SAVE COMPARE ADDRESS
2540
u=o
HO=RPS
2540
WAIT FOR
DATA AVAI LIBlE
BR I f HOl=O
2540
Vl=RPI.
2540 READ 1ST BRUSH DATA
2540 -STORE IN CONTROL STORE
STB Vl CS.G+1
ST B VI AS,o- 1
2540 -STORE IN AUX COMPARE TBLE
STAY IN DATA LOOP fOR 1 CD
BR I f L ZNZ
2540
DO=DOaKOl
2540
INVERT flAG
BR IF lZ=O
2540
CHECK FOR 2ND TRAP C YC LE
XCTL'SlOO'
2540
GO TO BOOTSTRAP
HO:HO+HO
2311
BUILD
HO=HO+HO
MODULE
2311
HO=HO+HO
2311
NUMBER
RST FIB K=40
COLD STAiH RE SET
2311
RST fIB K=20
2311
COLD STAR T RE SE T
MS=HO
2311
SELEC T MODULE
FBO:Pl
SET RETURN TO ZERO Pl=02
2311
fGRO=Hl
SET CONTROL
H1=lO
2311
HO=OSK06
SE TREAD
2311
HO=HO$KIO
2311
FOP=HO
DA fA OP
2311
H()=0$K04
START HEAD SELEC T
2311
SR IF DASI2=0
WAIT FOR END
FBO=HO
2311
HEAD
T GRO= Hl
2311
SEL EC T
SET FIA K=80
2311
GO
BR IF DAS 12= 1
WAIT FOR
2311
RST FIA K=80
2311 RESET TRAP REQ
HO=TGRI
WAIT FOR FILE
2311
TRAP REQUEST
2311
BR If H04= 1
ERROR LOOP
BR I f OASI4=1
2311
GO TO BOOTSTRAP
2311
XCTl' 810A'
SET MODE K=10
2560 PUT IN 20,2560 MODE
2560
G1=0
SET MfA K=lO
2560
SELEC T SEC fEED
Pl:MFD8
25(;0
CALL IN FOR RDY CHK
BR IF NPRO REQ
2560
BR IF MFT 5=0
2560
BR IF NOT ROY
BR IF P12=1
25(:0
SET READ EXECUT
SET MFA K=Ol
BR I f MH5=0
2560
BRANCH IF NPRO
BRANCH If "lO DATA
2560
BR I f MFT4=1
READ 1 I 2 BYTE
Hl=MFRl
HO=MFR2
READ OTHER HALF
Hl=HOXH+H iL
PUT THEM TOGETHER
25{:O STORE OA TA INC S
SfB H1 CS,G+1
25tO
RST RO EX AND NPRO
SET MFC K:21
2560
Z=GlaK50
25(:0 NOT DONE BRANCH
BR IF ZNZ
2560 GO TO BOOTSTRAP
XCTL'8100'
XCTl'FFfFffFFFFFfFfFfFfFFfFFFFFFF'
XCTL' FfFft
2311
CORREC T PARITY
Tl=O

PAGE

31

AGDK

\iUI{O

001:0

6A02
2490
2813
2907
4A86
4C02
2F15
5fE9

001:2
OOi:4
uOEb
UOi:8
00l:A
00EC
OuEE

OOh)
00F2
30 .. 4
00F6
OUFS

lO23

00FA

FA 76

00fC
00H

06GS
88FE

SEQUI:NCE NU.

4D9F
8811
54E 8
6488

BCPL
BCPl
SCPL
SCPL
BCPL
BCPL
BCPL
BCPL
BCPL
SCPl
BePL
fiCPL
BePL
8e PL
BCPl
BePl
BCPl

LABEL

NEXTSEQ

NEXT LABEL

107
108
109
110

III
112
113
114
U5
116

117
118
119
120
121
122
123

065

MOD

OVRLAY
118
C
AEND

OVRlAY

N

CLOAD= *E60, EC LE VE L= 12 82 11
COMMENTS

STATEMENT
STH T DC.88
SET MODE K=09
10=O$KOI
11=0
T= I
KDH P DC,88
Hl=O$K 10
HO=H1
Pl=0$K02
HO= 11
N=PO BI TS67
RDH G AS.H+2
STH G CS,I+2
SR IF H01=0
RST BC K=40
XCTL' 88FE'

2311
2311
2311
2311
2311
2311
2311
2311
2311
2311
2311
END
END
END
END
END

**********************************
* CROSS REFERENCE FOR CSECT 8ePl *
**********************************
dePl
'dePl
sePl
t3CPL
dePl
sePL
tlePl
tlCPL
'3CPl
"U'l
fl~PL

fl~PL

'lCPl
tlCPl
bCPl
tICf'L
JePL
ijCPL
sePL
BePL
llCPL
SCPL
t3ePL
bCPl
dCPt
dCPl
'l("Pl
,)CPt

U03
005
021
023
026
030
032
036
038
039
040
046
047
U50
052
056
065
077
081

083
085
087
090
091
093

100
106
118

SCPl
BePl
SCPl
·SCPL
SCPl
SCPL
SCPL
8CPL
SCPl
SCPl
sePl
sePL
SCPL
BePl
SCPl
8CPL
SCPt
BCPl
HCPl
8CPl
sePl
SCPl
BePl
sePl
BCPL
BCPL
SePL
Bept

GO
U17
021
015
026
030
Cij2
036
038
048
040
043
045
019
00
057

BCPl 041

sePl 061

111

077
081
OH
OE5
005
092
1(2
091
094
022
120

sePl 095

SAVE MODULE
SET FILE MODE lONE
SUlLO COUNT AND
CONTROL STORAGE
ADORE SS
RETRIEVE MODULE
CONSTANTS FOR
SElEC HON

OVERLAY AUX 1000
INTO CONTROL
OlOO
RESET C SL LIGHT
BRANCH TO OSfE

PAGE

32

CLOAD=*E60. EC LE VEL=1282 11

BOlA

DESCRIPTIVE

ThE RESIDENT MICRODIAGNUSTIC -BDIA- IS ENTERED WHEN
1. THE SYSTEM RESET KEY IS I{ELEASED
(TkAP TO ADDRESS 0240'
2. THE LUAD KEY IS RELEASED
(TKAP TO ADDRESS 0240)
3. THE C8NTROL STORAGE LOAD ROUTINE -BCPL- 15
FINISHED LOADING A CSL DECK.
{~RANCH TO LABEL * VERSON * I

fluOR

doH

0240

WlJR 0

tl£'40

2810

BOlA
BOlA
BOlA
BOlA
BOlA
BUIA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BDIA
BO [A
BOlA
BOlA
BOlA
BOlA
BOlA
ADIA
BOlA

001
002
008
012
013
014
015
016
011

LABEL

T
ATABLE AODR=08H
VERSON
018
AEND
ATABLE ADDR=D240

**
**

OL8

019
020
021
022

023
024
025
02b

021
028
029

NEXTSEQ

*
*
*
*
*
*
*
*
*
*
*

NEXTlABEL

A STuP "ORO IMOVE/ARITH-WORD TYPE 3} CAUSES THE CLOCK
TO STOP, THE CLOCK STOP LIGHT IS ON, THE SYSTEM LIGHT IS
OFF, THE MANUAL LIGHT IS ON, AND THE ADDRESS DISPLAYED IS
THE ADDRESS OF THE CONTROL WORD FOLLOWING THE STOP WORD.
A BRANCb TEST STOP FAILURE IS CAUSED BY A BRANCH ON
CONDITION WORD OR RETURN WORD FAILING TO REACH A WORD THAT
SETS THE OR-REGISTER. DR BIT 1 IS SET PRIOR TO EACH
OF THE BRANCH TESTS. AND THE BRANCH OR RETURN MUST POINT
TO A SET OF THE DR-REGISTER. THE FAILURE IS INDICATED
BY THE CLGCK OFF, THE CLOCK STOP LIGHT IS ON. SYSTEM LIGHT
OFF. MANUAL LIGHT ON. AND. THE ADDRESS OF THE NEXT
SEJUENTIAL WORD FOLLOWING THE WORD REACHED IN ERROR,
DISPLAYED IN THE CONSOLE LIGHTS.

STATEMENT

BOlA
START

TExT

A ONE WORD BRANCH LOOP IS IDENTIFIED BY THE SYSTEM
LIGHT ON AND THE MANUAL LIGHT OFF. THE CLOCK WILL RUN BUT
THE MICROPROGRAM DOES NOT PROGRESS.

T~STS PERFORMED BY THE
-BDIA- ROUTINE ARE HkANCHING TEST
ALU TEST
~ODE REGISTER SETfRST TEST
STORAGE lEST
x LINE ADDRESSING TEST
LOCAL STURAGE SET/R~r TEST
ALU ERROR DETECTION TEST
STORAGE DATA. CONTROL WORD. STORAGE ADDRESS TEST
A AND B ReGISTER PARITY DETECTION TEST

SEQUENCl:: NO.

COMMENTS

BASIC DIAGNOST IC
BR

SlART KESIDENT DIAG.
DEPRESSION Of THE SYSTEM RESET
BlJTTON OR LOAD BUTTON WILL CAUSE
A HARDWARE TRAP TO ADDRESS 0240.

START

33

ERRORS ARE INDICATED BV
1. A ONE WORD BRANCH LOOP
2. A STOP WORD
3. A BRANCH TEST STOP FAILURE

THf -BUIA- RUUTINE TESTS THE CPU HARDWARE NEEDED TO
PERfURM A CONTRUL STORAGE LOAD OPERATION. NO 110 DEVICE
OR AIIACHMENT CIRCUITS ARE TESTED.

THL

PAGE

SET DR K=01

SET DR-1. OR 1 I S USED IN
Cl-ECKING THE BRANCHING FUNCTIONS
OF THE MOD 25. A DUG BR LATCH
IS SET EVERYTIME A MOO 25 BRANCH
OR RETURN FUNC nON I S EXECUTED
IF THE NE)(l
AND DR 1 I SON.
MICROINSTRUCTION AFfER THE BR
OR RETURN DOES NOT ISSUE A SET
TO THE DR REG, A HARD STOP WIll
OCCUR AT THE COMPLETION OF THAT
MAC HI NE CYC LE •

MWK

wORD

Jc' 42

3210

0244

2400

0246
u248

F8CS
B7C9

024A
024C

2810
25f3

BOl4
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
SOIA
BOlA
tiD IA

BOlA
BOlA
BOlA
BOlA

024E
0250

0252
0254

C54F
2810

0553

2810

0256

1:'53C

023C

2810

023E

F56C

LABEl

SEQU!:NCf: NO.

BOIA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BO IA
BOlA
SOU
SO 14
BOlA
BOlA
BOlA
B014
BOlA
BOIA
BOlA
BOIA
BOlA
BOlA

030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
04'
046
047
048
049
050
051
052
053
054
055
056
057
058
059
060
061
062
063
064
06~

066
067
06d
069
070
071

012
073
014
075
016
077
078
079
080
081
082

NEXTSEQ

NEXTlABEL

STATEMENT
SET MMSK K=81

*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*

SET MODE K=OO

BCDR7

*

•*

BCGION

*
*
*
*
*

.

*

SET SYSTEM RESET PRIORITY
8ITIMMSK-8).
THE FIRST WORD OF THE TRAP SETS
T I-E OIAG BR LATCH TO I NSURE A
MACHINE STOP IF AN ERRONEOUS
SRANCH STATEMENT IS EXECUTED
TrE SECOND WORD OF THE TRAP SETS
MMSK 8 TO PREVENT FURTHER TRAPS
FOR THE SAME SYSf RST/LOAD TRAP
REQUEST. AS A RESULT OF THE
DELA YEO SE TlING OF MMSK 8, THE
TRAP WltL OCCUR TWICE FOR EACH
SYSTEM RST/LOAO TRAP REQUEST.
THEREFORE, THE FIRST TWO WORDS
WILL BE EXECUTED TWICE BEFORE
THE FOllOWING WORD I S EXECUTED.

*
*
*
*
*

C[OAO=*E60. EC lE VEL=128211
COMMENTS

BCGllN

STORAGE ZONE 4.
*********************************************************************
BRANCHING TEST.
*********************************************************************
BR TO 024A IF OR-7 IS ON
056 SCOR7
BR IF OR BIT 7= 1
DR 7 SHOUlD BE ON. BRANCH ON
122 OR70FF N N:: BAH
BA HIGH FOR BETTER RESOLUTION.
SET DR K=Ol
SET DR-7 TO CONTINUE BR TESTS.
Gl=OSKOF
ATTEMPT TO SET Gl REG = 00001111
IF A STOP OCCURS AT THE ADDRESS
OF THE NEXT WORO, Gl WAS SET
WRONG OR THE BRANCH TEST FAILED.
061 SCGION
BR If Gl BITO=l
GIO=O SHOULD NOT BRANCH.
SET OR K=Ol
SET OR-7 TO CONTINUE BR TESTS.
IF A STOP OCCURS AT THE ADDRESS
OF THE NEXT WORO, Gl WAS SET
WRONG OR THE BRANCH TEST FAILED.
BR IF Gl BITI=1
GIl=O SHOULD NOT BRANCH
066 BeGllN
SET DR K=OI
SET OR-7 TO CONTINUE BR TESTS.
IF A STOP OCCURS AT THE NEXT
SEQUENTIAL WORD FOLLOWING THIS
BRANCH, Gl WAS SET WRONG OR THE
BRANCH TEST FAILED.
075 BCG12Y
BR IF Gl BIT2=O
G12=0 SHOULD BRANCH TO AOR 023C

AEND
ATABLE AOOR=023C
BCGI2Y
*
*
*
*
083
AEND
ATABLE ADOR=026C

SET OR K=Ol

BCG13Y

BR IF Gl BIT3=O

SET DR-7 TO CONTINUE BR TESTS.
I F A STOP DC CUR SAT TH E NE XT
SEQUEN T IAl WORD FOLLOWING THIS
BRANCH, Gl WAS SET WRONG OR THE
BRANCH TEST FAILED.
G13=0 SHOULD BRANCH TO AOR 026C

PAGE

34

\ e,eR

wURO

6C
0<'6E

2810
9FFC

,)~

iF FC
lFFE

2810
D57F

2000
2002

2810
25F5

2u04
LOO6

/u08
Z()OA

1::5C4
2810

,'voe

F5C8
2810
A040

1)40

2810

1042

C5:>t'-

t:tl5E

2810

"060

O:>7F

0440

50C7

LJ7E

2800

2u80
to 82
2J 84

3E09
C483
fC85
E08l
F489

2\.186

t088

SEQUI::NCt ND.
tiOIA
BOlA
BOlA
BlHA
tiOIA
tiDIA
I:WIA
BOlA
BOlA
BOlA
BOlA
8DIA
BUIA
BOlA
BOlA

BOlA
BOlA
BOlA
BOlA
tiDIA
BOlA
BOlA
BOlA
BOIA
BOlA
80lA
BOlA
BD IA
60lA
BOlA
BOlA
80!A
BOlA
BOlA
BOlA
BOlA
BOlA
tiOIA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOIA
BOlA
BOlA
BOlA
BD lA
BOlA
BOlA
BDIA
BOlA

LA8EL

113

114
115
116

117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135

NEXT LABEL

BCG 13 Y

03i

084
085
086
C81
088
089
090
091
092
093
094
095
096
097
098
099
100
101
102
103
1C4
105
106
107
108
109
110
111
112

NEXTSEQ
081

UBl FFC

AEND
ATABLE ADOR=lFFC
UBIFFC
HC TRL
AEND
ATABLE AOOR=20QO
*
*
*
*
*
*

ST AT EMENT

CLOAO=*E60. EC LEVEL=128211
COMMENTS

SET OR K=Ol
BR

SE T OR-1 TO CONTINUE BR IE S TS.
UNCONOI TlONAL BRANCH TO AOR lFFC

SET DR K=Q 1
BR If Gl BlT 1=1

SET DR-1 TO CONTINUE BR TESTS.
NO BR ANCH

SET OR K=O 1
Gl=OHfO

SET OR-7 TO CONTINUE BR TE S TS.
ATTEMPT TO SE T G 1 REG = 11110000
I F A STlJP OCCURS AT THE ADORE 5S
OF THE NEXT WORD, Gl WAS SET
WRONG OR THE BRANCH TEST FAI LEO.
Gl2-=l SHOULD NOT BRANCH
SET OR-7 TO CONTINUE BR TE SIS.
IF A STOP OCCURS AT THE ADDRESS
OF THE NEXT WORD. Gl WAS SET
WRONG DR THE BRANCH TEST FA! LED.
Gl3= 1 SHOULD NOT BRANCH
SE T OR-7 TO CONTINUE BR TE SIS.
UN CON 01 TI ON Al BRANCH TO AOR 2040

BCG12N

096

BCG12N

BR If Gl BIT2=0
SET DR K=O 1

BCG13N

101

BCG13N

BR IF G1 BIT 3=0
SET DR K=Ol
BR

106 UB2040
AENO
ATABLE AOOR=2040
SET OR-7 TO CONTINUE BR TESTS.
SET OR K=Ol
UB2040
I F A STOP OCCURS AT THE NEXT
*
SEQUENTIAL WORD fOLLOWING THI S
*
BRANCH, G1 WAS SET WRONG OR THE
*
BRANCH TEST fAILED.
*
GI0:l SHOULD BRANCH TO AOR 205E
BR IF G1 BITO= 1
114 BCG10Y
ACNO
ATABLE ADOR=205E
SET OR-1 TO CONTINUE BR TE S TS.
BCGlllY
SET DR K=Ol
IF A STOP OCCURS AT THE NEXT
*
SEQUENTIAL WORD FOLlOWI NG TH IS
*
BRANCH, G1 WAS SET WRONG OR THE
*
BRANCH TEST FAILED.
*
SHOULD BRANCH TO AOR 207E
BR [F Gl BIT 1= 1
GIl=l
125 BCGll Y
AEND
ATABLE AOOR=0440
CP l; MODE AND DR 7 Off.
STOP
OR10FF 0
AENO
ATABLE ADDR=207E
THIS COMPLETES BOlA BRANCHI NG
SET DR K=OO
BCGll Y
TESTS.
*
*********************************************************************
*
ALU TEST -MANY OF T HE WORDS IN THIS 1 EST CAUSE ALU ERRORS IF THE CKT
*
BEING TESTED FAILS AND THEREFORE DO NOT HAVE TO BE TE STED BY BR WDS
*
*********************************************************************
*
HO=O-KOO
**ff=OO-OO WITH NO CARRY
CHK FOR OYN BIT o BEl NG OFF.
OCOER
BR IF l=O
DC OER
132
BR If Ll=O
C i"K FOR OYN BIT 7 BEING OFF.
133 DOER
DC 7ER
C HK FOR DYN BIT 6 BEING OFF.
BR [f Hl=O
134 OC6ER
OC6ER
BR IF AC= 1
CHK fOR DYN BIT 3 BEING OFF
ACONER
135
ACONER

PAGE

35

:'0 OK

wORD

208A
.:.JtlC
<,J8E

6EE5
ACOA
2EOD

,J,),;Z

ACOA
7EEI

2.194
2u96
2u9B
L(J 9A
20 <;C
209£
bJAO
2oA2
20A4
2oA6
NAB
;OAA
<'JAC
2uAE
2ubO
2u82
1004
UB6
10B8
L'Ot3A
L.JI:lC

F494
nEl
6E1:3
2t ~f
6H3
HE 9
OE 5F
C4A2
2E87
3E 27
2EEF
2£77
IE B 7
lE.B 7
2H7
Gtl1
FOB4
E 0116
lEf'B
A 01:.2
lEH

iU <;0

2',) B E:
"uco

LuC2
"dC"

A OEl
311 ?

AOU
3t:CU

!JC6
bJC8
IUCA

2E:lO
2fF5
AODA

!Jec

OFf 0

!JCt

C4CE

SEQUENCE NO.
BOlA
BOLA
BOLA
BOlA
BOlA
BOlA
BOlA
SOU
BOlA
tWIA
80lA
BOlA
tlOIA
BOlA
BOlA
Sll lA
BOlA
dOlA
bO IA
tlOIA
BOlA
BOlA
BOlA
BOlA
BDIA
BUIA
BOlA
tlOIA
BlllA
BDIA
1101A
i3DIA
llOIA
BOlA
BlllA
BOlA
tlOIA
BOlA
80 IA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
tWlA
BOlA
BOlA

136
137
13M
139
140

141
142
143
144
145
146
147
14M
149
150
151
1 ~2
153
154

LABEL

NEXTSEQ

NEXTlABEL

195

CK4Ff

195

CK4FF

•
•

•

•

NOACER

loBE Rl

154

WT3ER1

OC 7ERR
OC6Et{R

163
164

OC7ERR
OC6ERR

201

CK4fO

201

CK4FO

BAl
HO=HO$K10

201

CK4FO

BAl
HO=HO-KOO

166

*
*

113

*
*
*

*
*
*

L81
182
183
1B4
185
186
187
lB8

BR IF AC=O
H0=HO-HO+l
HO=HO+HO
HO=HO+K55
HO= HO +HO
HOC= HO+HO+ 1
Z=HoaK55
BR IF ZNZ
HO=O$K88
HO=HOSK22
HO=HOt-KEE
HO=OSK17
HO=HO*-K88
HO=HO*-KBB
HO=OSKFF
l=HO+KO 1
BR IF l ZN Z
BR IF HZNl
HO=HOaKOF
BAL
HO=HO*-KOF

*

1 12
174
115
176
117
178
179
IBO

BAL
Hu=HO-HO+1

147

156
15.,
158
159
160
161
162
163
164
165

170
171

HO:HOSHO
BAL
HO:HO+KOO

•
•NOACER

15~

107
168
169

ST ATEMENT

195

CK4FF

188

AlUER2

HO=HO+KlO
Hl=O$KFO
BAl
l=H1aKfO

*

*
*

AlUER2

BR

IF

lNZ

CLOAD=*E60, EC LE IJEl=1282 11
COMMENTS
**FF=FF$FF
**BRANCH 10 CHECK HO FOR FF
**FF:FF+OO
IF A STOP OCCURS AT THE ADDRESS
OF THE WORD BELOW, THE CHECK FOR
FF HAS FAILED.
**00=FF-FF+1 WITH A CARRY
I F A STOP OCCURS AT THE ADDRESS
OF THE WORD BElOW, THE CHECK FOR
Ff HAS FAIt.ED.
**SHOUlO HAVE DYN 3 BIT ON
.*00=00-0C+1
**OO=OO+OC
**55=00+55
**AA=55+55
**55=AA+AA+1
**00=55a55
**HO SHOULD BE 55 AND DYN BITO=1
**88=00S88
**AA= 88$2 2
**98=AA+EE
**77:00$77
**77=77*-88
**44=77*-8B
**FF=OOSFF
**OO=fF+O I
CI-;014 232

!l16
2118

2FE7

dO IA 2B

6fE8

BOlA 234

illA

6FEA

2l1C

441:8

BOlA 235
BOlA 236

noo

BOlA 228

111:

2F13

BOlA 237

/iZL)

048F

BOlA 238
BOlA 239

~

/1n

EOA2

!l24

fOA4

1126

257F

*CK4fF
ANOTFO
Z I SOK

*
*C K4fO
*
*
* MORTST

BOlA 210
BOlA 211

BOlA 212
BOlA 213
BOlA 214
BOlA 215
BOlA 216
BOlA 217
BOlA 218
BOlA 219
BOlA 220
BOlA 221
BOlA 222
BolA 223
BUlA 224
BUIA 225
BOlA 226

C487

AlUER3

BOlA 192
BOlA 193

BOlA 205
8014 206

20E8
bJ EA

LABEL

BOlA 240
BOlA 241

MOSTHI
MD S TlO

MDR THI
MORTlO

*
*

*

DCRIER
DCR2ER
DCKOER

OCR3ER
oCR4ER

NEXTSEQ

NEXTlA8El

STATEMENT

GlOAD=*E60. EC i.E VE l=1282 11
COMMENTS

Hl=Hl*-KFO
**OO=fO*-FO
**Hl SHOULD 8E ZERO AND DYN 8IT 0=1
BR If ZNZ
HO:O$KFO
uFO=OOHO
**8R TO CHECK HO FOR fO
8AL
201
CK4FO
**8R TO MODE REG SET/RESET TEST
207
MORTST
BR
***********************************************************************
Z=HOaKFF
HO SHOULD BE Ff
BR IF Z=O
AND oYN 81 T 0=1.
198
ZISCK
SET DR K=Ol
SET DR 7 AND 00 A RTN WHICH
RTN
WILL CAUSE A STOP WI TH THE
ADDRESS OF THE 8AL TO
THIS SU8ROUTINE + 4.
HO SHOULD BE FO
Z=HOaKFO
AND oYN BIT 0=1.
197
ANOTFO
BR IF ZNZ
RTN
*********************************************************************
TEST MeDE REG FOR SET/RESET
*********************************************************************
SET MODE K=3F **SET LS AND EXT MODE TO 7
IO=BA
** GO=Xlll XIII
IO=IO*-K88
** GO:17
Z=IOaK71
MDS T HI
BR IF HZNZ
lOOP IF MODE REG 2-4 NOT All ON
211
lOOP If MODE REG 5-7 NOT AU... ON
MDSTlO
BR If LZNZ
212
SET MODE K=OO **SET LS AND EXT MODE TO ZERO
GO:8A
**GO= XOOO )1000
Z=GO*-K88
**Z=OO
lOOP IF MODE REG 2-~ NOT ALL OFF
MORTH I
BR IF HZNZ
216
lOOP If MODE REG 5-7 NOT ALL OFF
MORTLO
8R IF lZNZ
217
*********************************************************************
BEGIN STORAGE TEST
*********************************************************************
HO=O$KFF
Hl=O$KFF
**H=FFFf
**CTRL ADDR 0388=fFFF
5TH H DC,88
HO=O$KOO
Hl=O$KOO
**H=OOOO
**READ GIRL STOR 0088 INTO H REG
RDH H OC.88
Z=HlaKFF
**OO=ffaFf
8R If HZNZ
LOOP IF HI HIGH IS NOT F
228 oCRlER
8R IF LZNZ
LOOP IF HI lOW IS NOT f
229 DCR2ER
HO=HOaKFF
**OO=FfcFF
H=OOfF
**SHOULO ~AVE READ FF IN TO HO
DCROER
BR If ZNZ
231
HO:O$K03
Hl=O$KB8
** H=0388
ST8 Hi CS. H+l ** CTRl ACDR 0388=88FF H=0389
STB HI CS,H-l ** CTRl AODR 0388= 8889 H=0388
RDH G CS.H+2 ** G=8889 H= 038A
Hl=O$KOl
** H=0301
Z=GOcK88
**00= 88088
BR IF HZNZ
lOOP IF HI HIGH IS NOT 8
239 oCR3 ER
LOOP IF HI LOW IS NOT 8
240 OCR4ER
8R IF LZNZ
Gl=G 1 +K 71
**00=89+77
190

AlUER3

PAGE

31

AllOR

WOke

,'128

C4Atl
2Ee5
55EA
C4AE

212A
212C
2l2E
2130
2132

2E4~

3FE'l

2134
2 Db

2'::JF7
7'::J1:0

2138
L13A

2'::JC5
55EA

2l3C
2l3E
n40
2142
2144
n4b

05FF
CloSE
FB34
44E6
0440
C4Cb

2148

7 '::JF I

214A
214C

C4CA
eC60
SSEe

214E

OtlEC
OtlEE
OtlFO
OtlF2
Ll8F4
08f6
OtlF8
08FA
OtlFC

vaoo
0802
Od04
0tl06
Jd08
(ldOA

GlEO

EIEF
21:87
2F05
bEl2
bE22

3EE9
2F77
88C.1
4[02
2EIB
2fl0
CAOO
6E02
8388

SEQUENCE NO.
BOlA
BO IA
BO IA
BOlA
BOlA
BOlA
BOlA
SOIA
BUIA
BOlA
BO IA
BOlA
BOlA
8DIA
BOlA
BOlA
BOlA
BOlA
BOIA
BOlA
BOlA
BOlA
BO IA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BO 14
BOlA
BOlA
801A
BOIA
BOlA
SOIA
BOlA
SOlA
SOIA
SOIA
BOlA
BOlA
BOlA
BO IA
SOIA
SO IA
BOlA
BOlA
80IA
80lA

242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
2~9

260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
2713
279

280
281
282
.183
284
285
286
287
288
289
290
291
292
293
294

LABEL

NEXTSEQ

NEXTLABEl

CSRIER

242

CSiUER

SMOOER

245

BMOOER

AUXERR

255
248

AUXERR
AUXSTT

OBMERO

259

DBMERO

OBMEk.l

261

DBMERI

269

lSADDR

Auxsn

*
*

CLOAD=*E60t EC lEVEL:1282I1
COMMENTS

STATEMENT
BR IF ZNZ
HO=OSKOO
ROB Gl AS,H-l
BR If INI
HO=0$K40
HI-O-KEO
Gl:O$KFf
srB Gl AStH

**SHOUlO HAVE READ 89 IN TO Gl
** H=OOOI
**H= 0000
**ARITH MODIFIER OFF B REG FAILED If BR
** H=4000
** H:401F
**G=88FF
**IST PASS AUX AODR 401E=XXFf H=401f
**2ND PASS AUX ADOR 401E=ffFF H=401E
Gl=OSKOO
**6=8800
ROB Gl AS ,H-l **G=88FF AFTER 1ST PASS, H=401E
**
AFTER 2ND PASS, H-401D
Z=GloKFF
**OO=fFoFF
BR IF ZNZ
**SHOULD HAVE READ FF IN TO Gl
BR IF Hi BIT1=0
G=H
** G=4010 H=4010 DBl BYTE MOD TE ST
Z=GOoK40
** 00=40040
BR IF ZNZ
** SHOULD HAVE MOVED 40 FROM HO TO GO.
Gl=Gl-Hl+l
** 00= 10- 10+1
BR IF INZ
** SHOULD HAVE MOVED 10 FROM Hl TO Gl
RE SET S5 ANO S6 .•
RST S K=06
**BR TO X LINE ADDRESSING TEST
BR

AENO
*********************************************************************
x LINE ADDRESSING
*********************************************************************
AODR=08EC
NO BR. CHECK S5 Off.
BR IF S 5= 1
lSAOOR
269 lSADOR
NO SR. CHECK S6 OFF.
BR IF S6= 1
270 CKS60f
CKS60f
XX~K ADDRESSABLE 8A AND 8C
HO=OSK88
X
SET TO 8800 WHICH IS
HI=OSKOO
X
BR TO 0800
STH HOC, 8A
X
STH HOC, 8C
0000 H SET TO IF71. THIS IS THE
HO=O-KEO
o
INIT VALE REQ"D FOR A=OSKK
Hl=OSK71
BR TO 0802
BR
281 BEGMOO
AENO
ArABLE AODR=0800
XX)X MODIFY CTRL WO AT K8B.
ROH H OC,88
MOOCWD
X
HO=HO+KO 1
BEGMOD
X
Hl=Hl+KlO
X BR AFTER 8TH PASS ••
BR IF HO BIT4=l
302 CKPASS
STH H OC,88
X
BR TO K ADOR 88 AT AODR 0388.
XCTl' 8388'
c
FU~CTION PERFORMED BY CTRL WORDS IN KACOR. CTRL STORAGE
*
THIRD PASS
fOURTH PASS
FIRST PASS
SECOND PASS
*
88 OXXF I=AOKK
88 2XX1 A-OSKK
B8 OXXF Z=AaKK 88 4XX3 B=AXH+BL

*

*
* TABLE
A

*
*
*

*

*
*
*

2087
2197
22A1
23B1
24Cl

UO=O$K88
Ul=0$K99
VO=OSKAA
Vl=O$KBB
GO=OSKCC

008F
019F
02Af
03BF
04CF

I=U0088
I=Ula99

I=YOaAA
Z=V 10BB
I=GoaCC

4003
4113
4223
4333
4443

UO=UOXH+UOL
Ul=UIXH+Ull
VO=VOXH+YOl
Vl=VlXH+VlL
GO=GOXH+GOL

008F
019F
02AF
03BF
04CF

I =UOa88

I=Ul a99
l=yOaAA
I -VI aBB
I:GOaCC

PAGE

38

Ai) OK

WORD

SEQUENCE NO.
BOU 295

BOlA 296
BOlA 297
BOlA 298

BOlA 299
080C
080E
Jdl0
0812
0el14
0816
0818
OellA
OBIC
U81E
;)820
Od22
U1l24
,)026
0026
082A
0t12C
0Cl2E
IJi 30
,)832
Od 34
0836
0838

EIA3
2020
E190
2EC5
3E43
2f85
3fA3
6H2

2EF7
3F89
8802
0020
ElA5
IHAC
0040
8308
2040
OlAE
4E22
6E 12
31:C9
5Efl
8802

BOlA 300
BOlA 301
BOlA 302
BOlA 303
BOlA 304
BOlA 305
BOlA 306
BOlA 301
BOlA 308
BOlA 309
BOlA 310
SO IA 3ll
BOlA 312
BO lA 313
BOlA 314
BOlA 315
BOlA 316
SO LA 317
BOlA 318

BOlA 319

OlEA
031:C
u3EE
03FO

03CO

4812
3935
292B
68E2
2A25
2BF5
3B13
2C25

2U 15
30B3
2E05

2F 13
8300

C4CO

*

*
*
*
*
*

*CKPASS
CKS6E 1

PASS24
CKS6EO

NOH TH
CKS5El

B [) I A 320
SUIA 321

BOlA 322
BOIA 323
BDIA 324
BOlA 325
BOlA 326
BOlA 327
SOIA 328
SOU 329
BOlA 330

iH08
030A
(HOC
030E
03EO
o 3E2
03E4
03E6
03E8

LABEL

BOlA 331
BOIA 332
BOlA 333
SOIA 334
BOlA 335
BO IA 336
BOlA 337
SOIA 338
BOlA 339
SO IA 340
SOIA 341
BOlA 342
BOlA 343
BOlA 344
SOIA 345
BOIA 346
SOlA 347

NEXTSEQ

NEXTLABEL

CLOAO=*E60. EC LEVEL=128211
COMMENTS

STATEMENT

2507 G1=OSKDO
050F l=GlaDD
4553 Gl=GlXH+GlL
050F Z=GlaOO
26E7 OO=OSKEE
06Ef Z=OOaEE
4663 DO=OOXH+DOl
06EF l=DOaEE
27f7 Ol=O$KFF
07FF Z=OlaFF
4173 Ol=OlXH+DlL
07fF l=DlaFF
8A BR
8A BR 1f INI
8A BR
8A BR IF INZ
TO MODCWO. TO 03BA.
TO MuOC WD
TO 038 A
8C BR
8C BR
8C BR
8C BR
TO MODCWO.
TO MODCWD
TO MO OC WD
TO MODC WD
313
PASS24
BR IF S6= 1
CHECK PASS. BR AFTER 2ND OR 4TH.
SET S6
S6=1 TO SAY NEXT PASS IS 2 OR 4.
304 CKS6El
BR If S6=0
CHECK SET OF S6
HO=O$KCO
XXXX SET 8A TO C48A WHICH IS
HO=HO$K04
X
BR IF ZNZ TO 038A
Hl=0$K80
X
Hl=Hl$KOA
X
ST H H DC, SA
X
HO=OSKFF
0000 H SET TO FF7F. THIS IS THE
Hl=O-KBO
o
INIT VALUE REQ'O FOR l=ADKK
281
BEGMOn
BR
BR TO BEGIN MOOIFfC OF CTRl WOo
RST S6
PASS 2 OR 4 JUST FINISHED. RESET
BR IF 56= 1
314 CKS6EO
S6 TO INDICATE NEXT PASS IS 3RO.
318
NOT4TH
BRIF S5=0
S5:1 INOICATES 4TH PASS CaMP.
R5T 55
331 lSSET
BR
BR TO LOCAL STOR SET/RESET TEST
SET 55
NEXT PASS IS THIRD
319 CK55E1
BR IF S5=0
CK SET OF S5.
ROH HOC, 8C
XXXX RESTORE 8A TO BR TO 0800
STH H DC.8A
X
HO=O-KCO
0000 H SET TO 3FF3. THIS IS IN[T
Hl=HOX
a
VALUE REQ'O FOR B=AXH+Bl
281
BEGMOD
BR
BR TO BEGIN MOOIFIC OF CTRL WD.

AEND

*

*
*
*TABLE
A

***********************************************************************
*
LOCAL STORAGE SET/RESET ROUTINE ••••• lONE ZERO
***********************************************************************

ADOR=03D8

LSSEr

355

STNWCW

ROH I DC.8A
11= Il$K30
1l=1l.K02
STH I DC. BC
TO=OSK20
Tl=OSKFO
Tl=TUK07
PO=OSK20
P1:0SKIO
Pl=Pl$KOB
HO=OSKOO
Hl=O$KOl
BR

A TABLE AODR=03CO
NOTRST
347

NOTRST

BR IF INZ

*
AEND

I=C4BA XXX K-AODR BC I S SET fO
I=C4BA X
C4BC WHICH I S A
I=C4BC X
BR IF INl
X
TO ITSELF.
XXXX T SET TO 20F7 WHICH IS
X
UO=OSKFF
X

0000
a

o

P SET TO 201B WHICH IS
UO=UO+KOI

XXXX H SET TO 0001 WHICH IS
X
I=UO+KOO
BR TO STORE THE THREE CONTROL
WORDS JUST BUILT IN T, P, AND H.
CK T HAT ALL B ITS WERE RE SE T.

PAGE

39

wORD

SEQU~NCE

uJC2

4AC2

u3G~

J3C6

4CI)2
4EF2

03G8

2A1B

03CA
ll3CC

2(, IB

2ElB
EOt-2
6AC2

BOlA
BOlA
BOlA
BOlA
BOlA
BO IA
BOlA
8UIA

6C02
6HZ

SO IA

ADOR

lUC[

d300
0.302
J3D~

0306

d3tj8

BOlA
BOlA
BOlA

NO.

348

353

354
355
350
351
3513
359

309

BOlA 311
JUIA 312
Jlfb

J3fd

J68
JlltA
Jd6C
J1l6E:
Jtl7C
Otl72
JH 74
H 76
')b 7d

SEi./UENCE NU.
BUIA
tlDIA
BDlA
BOlA
BO lA
BO 1A
tlOlA
ROlli.
BOlA
tlDIA
tlOIA
BU lA
BOlA
tlOIA
tlOlA
BOlA
BOlA
BOlA
BOlA
tlOlA
tlOIA
BOlA
tlO!A
BO lA
BOlA
BOlA
ROlli.
BOlA
BOLA
BOlA

Of-lF

FE: E: 6
4E80
6redO
OZtZ
Ie ttl 0

3804
be 80

CAF4
,800
U tHe

tl '-1f::
iLl2
':>trf

dF 1 (

JF-20
n-12

C4A4
IdeO

JF 24
IF 2b
JF 28
lr 2A

,,020

tlJ.c4

401
402
4U3
404

LABEL

NE XT SEQ

NEXT lABEL

ROCRCE

402

ROCRCE

NOBPC

405

NOBPC

NOAPC

407

NOAPC

415

CKS T PC

411

RICRCE

418

NOSOPC

421
422
423
424
42'
426
42-7
428
432-

AE ND
ATABLE ADOR=OFIE
NOSfAC
423

NOST AC

438

AEND

40,

406
407
408
409
410
4U
412
413
414
415
416
417
418
419

RICRCE

C KSTPC
NOSDPC

420

Z=HOIJK 33
BR iF MC3=O
RDH H CS.I
S r H H CS, I
BR IF MC7=0
Z=HOOK33
BR IF MC6=()
RS f MMSK K=9l
BAl
Z=HltJKll
BR IF MCl=O
ROH H CS,1
S T H H CS, I
RTN H MMSKl=O
RDH H CS,I
SET DR K=AO
5TH H CS,I
BR IF MC4=0
SET DR K=SO
RTN

**THlS AUOR CONTAINS OE3f
**SHOULO rAVE RO CTRl WORO PARITY CHECK
UH;OE3F WITH EVEN PARITY IN HO
**RESTORE CHECK DATA WITH GOOD PARITY
**SHOUlO rAVE SET B REG PARITY CK LATCH
**SET A REG PARITY CK LT & RST DC3,6&7
**SHOULO rAVE SET A REG PARHY CK LATCH
**RESET MC REG
**STORE ADDR Of CHECK OATA TO BE READ
**THIS AOOR CONTAINS OFIF
**SHOUlD HAVE Rl CTRl WORD PARITY CHECK
UH=OFIF \llTH EVEN PARITY IN HI
**RESTORE CHECK DATA WITH GOOD PARITY
**CAUSE SIOR ADDR CK--Hl=lF wITH P BIT
**lST lOOP H=OE3F.ON 2ND lOOP H=OFIF
**DISABLE STOP ON ERROR AND FORCE
** STORE BITS PO AND Pi TO MEMORY
.*SHOULD HAVE SET STOR DATA PARITY LT
**RST fORCING OF STORE BITS PO AHO PI
**RTN fOR ADDITIONAL TESTING & 2ND lOOP

BR If MC2=0
MMSK K=91
Hl=MC
BR IF ZNl
SET DR K=OO
SET S6
BR

**SHOULO rAVE SET STORAGE ADDRESS CHECK
uRESET MC REG
**CHECK RESET Of MC REG
**MC REG SHOULD HAVE BEEN RE SET
**AlLOw SlOP ON ERROR

RST

MCRS 11:

426
BCHK 005

t"CRSfE
Sf ART

ClOAD=*E60, EC lEVEL=12B211
COMMENTS

STATEMENT

**********************************
* CROSS RefERENCE FOR CSECT BOlA *
**********************************
,>01 A OU:I

lOlA
",0 I A
"OIA
,,0 I A
',o I A
dDIA
,\l) I A
,I,) III
"ulA
ILl lA

056

061
066
075

OtlJ
087
096
101
106

114

\)IA

122
I A 125
,,)Ill. U2
,I) I A 133
-i i)

134
') IA 13?
HJ 1 A 14 I
ilJIA 1,4
; ,) 1 A 16 "3
ellA

bOlA
BOlA
tiD iA
tlOIA
BOlA
BO lA
tl 0 lA
BOlA
t3D IA
BOlA
BOlA
BO IA
BOlA
BOlA
tlOIA
tl 0 IA
tlOIA
tlOIA
BOlA
BOlA

OC8
053
061
Olob

012
080
084
OS6

lel
1 C3
ill

0,4
119
132
133

134
135

147
154
ll:3

PAGE

41

ClOAD=*E60. EC lEVEL=128Z11

**********************************

*

CROSS REFERENCE FORCSEer BOLA

*

**********************************
»0' A 164
oOIA 188
SO lA 190
[,DlA 195
BOlA 197
.ID I A 198
BOlA 201
LIDIA 207
dD14 211
BOlA 212
jO lA 216
llLl IA 217
-lOlA 228
clOIA 229
>:10 lA 231

BtJIA 239
llO IA 240
3tJlA 242
tltJIA 245
")IA 248
1LJI.'l 255
"OIA 259
ItJ I A 261
\I.) I A 269
,ilIA 270
"..;IA 281
c),) I A 302
dtJrA 304
JOIA 313
tlulA 314
oOIA 31B
BOlA 319
tlOIA 331
8014 347
BOlA 355
jOlA 373
BtJlA 374
tlOIA 381
!:lOlA 3B5
tlOIA 386
BOIA 391
!:lOlA 402
BOlA 405
BOlA 407
BOlA 411
!:lOlA 415
ROIA 418
BLllA 423
tHJIA 426

BOlA
BOlA
BOlA
BOlA
BOlA
BOLA
BOlA
BOlA
BD lA
BOIA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
8u lA
BOlA
BOlA
dDIA
AUlA
BOlA
BOlA
BOlA
BO lA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOIA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BO IA
BOlA
BOlA

lC4
lE8
ISO
137

BOlA 142

BOlA 183

BOlA 171

BOlA 116

202

IS6
ito

IS3
211
212

216
217
228
229

2::n

239

240

242
245
256
255
259
261
20

BOlA 269

270

277
283

BOlA 312

304

302
314
315
319
317
347
343
354
376
315
394
382
391
4C2
4(5

4(7
411
4CO
418
423
tWIA 426

BOlA 409

BOlA 324

BOlA 192

PAGE

42

CLOAD=*E60, EC LEVEL=128211

BMCK

DESCRIPTIVE

PAGE

43

TEXT
SINCE THE LOGOUT LATCH IS SET IN THIS ROUTINE, NO CPU
INSTRUCTION WILL 8E EXECUTED UNTIL THE PRINTOUT OF THE
LOGOUT AREA IS COMPLETED. ANY PREVIOUS PR-KB OPERATION
I N PROCESS, SUCH AS AL TERIOI SPLAY. INSTRUCTlOII; STEP ADDRESS
TYPE- OUT, OR NORMAL PR-KB FUNCTIONS WILL 8E fORCED TO
TERMINATE. THE PRINT OUT OF THE LOGOUT AREA STARTS AfTER
A CARRIAGE RETURN WITHOUT ANY HEADER INFORMATION.

WHtN A MACHINE ERROR OCCURS (SEE -MC- REGISTER), A
MACHINE CHECK TRAP IS TAKEN IF MMSK 8 AND 9 NOT ON
MACHINE CHECK MASK LATCH ON tMW BIT 51
IF MMSK 8 OR 9 ARE ON AND A MACHINE ERROR OCCURS, THE
HARD STOP LATCH IS SET AND THE SYSTEM STOPS.

THE -BCHK- ROUTINE LOADS THE LOGOUT AREA IN PROGRAM
STORAGE, LOCATIONS 0080 - 0085. WITH THE INFORMATION LISTED
BElOw. THE -ALDP- ROUTINE HANDLES THE PRI~TOUT OF THIS
LOGOUT AREA eN THE PR-KB.

IF THE MACHINE CHECK TRAP IS ALLOWED THE TRAP ADDRESS
0220 IS FORCED ON THE SAR LINES AND THE -BMCK- ROUTINE IS
ENTERED AT LABEL * TRAPWD *.
MMSK BilS 0-0 AkE TESrcD AND If' ANY ARE ON t INDICHES
THAT AN 110 TRAP OPERATION WAS IN PROGRESS WHEN THE MACHINE
CHECK OCCURED1, THE 1/0 OPERATION WILL BE TERMINATED, AND
AN ATTEMPT TO CAL5E AN 110 INTERRUPT IS MADE. iF MMSK BITS
0-6 ARE NOT ON, A MACHINE CHECK INTERRUPT TAKES PLACE.

MACHINE CHECK LOGOUT AREA

**********************************************************************************************************************************
LOC case
LOC
0083
LOC 0084-0085
lOC 0082
LOC 0081
T~AP

PRIOKITY REGISTER
{MMSK)

BRANCH CONDITION REGISTER
[ BAI

3lT
0- CHANNEL HIGH PRIOKITY TRAP.
1~-

34-

)67-

AODR

uno
0222

uCAb
OCA8
OCAA
oeAC
LlLAE
uc. BO

L311 DISK CONTROL TRAP
CHANNEL LOW PRIORITY TRAP
2540 READER TRAP
2540 PUNCH TRAP
COMM. BIT SERVICE TRAP
COMM. CHAR. SERVICE TRAP
LEVEL 1 PRIORITY HOLD
WUkD

3262
eCA6
1612
56bF
571F
7672
2010

A2CF

SEQUENCE NO.
BMCK
BMCK
BMCK
BMCK
BMCK
BMCK
BMCK
BMCK
SMCK
BMCK
8MCK

001
002
003
004
005
006
001
OOB
009

LASEl

BIT
0- CHANNEL a INTERRUPT LATCH
l- MODE BIT 0
2- MODE BIT l
3- MODE BIT 2
4- IPl LATCH
5- LS lONE BIT 0
6- LS lONE BIT 1
1- lS lONE BIT 2
NEX TSEQ

T
ATABLE AOOR=0220
TRAPWD
006
AENO
GETOUT

010

Oll

028

NEXT LABEL

MACHINE CHECK REGISTER
(MC)
BIT
0- fILE CONTROL CHECK
1- SrORAGE PROTECT PARITY CHECK
2- STORAGE ADDRESS PARITY CHECK
3- CONTROL WORD PARiTY CHECK
4- STORAGE DATA PARITY CHECK
5- AlU ERROR CHECK
6- A-REG PARITY CHECK
1- B-REGPARITY CHECK

STATEMENT

ERROR COUNT

COMMENTS

MACHINE CHECK TRAP ROUTINE
GETOUT

LINK 0 MMSK9=1
BR

STH 0 OA,8A
OO;MMSK
01=BA
STH 0 DA.9E
SET BC K=Ol
I NT RAP N BR IF MMSK=N l

SAVE AODR+2 Of FAILING MICRO 1010
GET OUT Of TRAP AREA
TEMP STORE o REG FOR CHNL
MOVE MMSK I TRAP PRIORITYI REG
MOVE BA(BRANCH CONDITIONl REG
SAVE MMSK & BA REGS IN AUX K-l
SET LOGOUT LATCH
BR If ANY MMSK 81 T

BACKUP AOORESSADDRESS OF THE
CONTROL WORD IN
OPERATION WHEN
THE MACHINE CHECK
OCCURRED.

AUUK

,kB2
84
JL.B6
uf-40
uF 42
Jf- 44

,K

wORD
2400
213 5

"8FA
C603

o 6Ll5
E6D~

Ftu7

,jF 4t>
JI- 48
Jf 4A

UDB

0~4C

U[1

ul-4t
,Jr 50

021 E
8Cll2

ut- '; <'

8 ~8 C
94AC

df-

54

U2DF

<'D02

) f' 5(>
U F :H

8t-F6

5A

<'[)40

,J F 5("

8Ff- 2
OdA

)~

,j

F 5[:

JF6U

onc

dt- 62

lUOO

b4

8F4f:
2(C7
2400
';t 3F

')1'

131A

I He
lHi:
lHlll

'- 4A 7

1382

1212

SI:WUf:NCf: NO.
BMLK
tlMCK
BMCK
BMCK
dMCK
BMCK
tlMeK
tlMeK
BMOK
aMCK
BMOK
aMCK
I:iMCK
dMCK
BMCK
LlMLK
tlt',CK
tlt-lCK

t.lMCK
BMCK
dMCK
dMCK

tlMCK
BMCK
uMCK
aMCK
BMCK
BMCK
BMCK

li8 ..

5t12

13tl6

'::440

138t!

7672
24(0

138A

lJ8C
13tlf:
1390
U92

1394
1396
1398
1 ~9A

139C
139f:
1 ~AO

2185

420F
7618
7318
5He

271B
7718
5672
1bC 5
17U

6666

L:lA<'

H18

13A4

A7FA

lH6

2404

1~A8

2233
IF2E

UAA

dMCK
dMCK
aMCK
BMCK
BMCK
aMCK
BMCK
BMCK
BMCK
tlMCK
BMCK
dMCK
aMCK
BMCK
BMCK
BMCK
BMCK
BMCK
BMCK
tlMCK
BMCK
BMCK
tlMCK
BMCK

LABE L

012

NEXTSEQ

NEXT LABEL

NOTRAP

018

CSTS 095

019
028
ll29
030
031
032
033
034
035
036
037
038
039
lJ4ll
v41
04'::
043
044
04:C46
047
Vlt8

I NTRAP 0

037
038

031
039
041
043
044

PICKUP
CHNLCK
DSKCHN
CHNLCK
RORTRP
PCHT Rf>
COMBIT
COMBYT

RSTK7
CHNLCK
DSKCHN
RDRTRP

NOTRAP

012
DCLR 196
F.llf 075

cccxxx

ETTR 043

KQUEST

€TRP 066

INtK

MCHCHK

PCHTRP
CLJMBIT
COMBYT
035

RSTK7

LOGOUT

049

050
051
052
053
0:>4
055
056
057
058
059
060
061
062
063
064
065
066
061
06B
069
070

075

*
*
*
*

*

NOTMC

SET MODE K= 00
Ul=OSK30
BR
BR IF MMSKO= 1
BR IF MMSKl= 1
BR IF MMSK2= 1
BR IF M,",SK3= 1
BR IF MMSK4= 1
BR IF MMSK5= 1
BR IF MMSK6=1
RST MMSK K=71
BR
BR
BR
SET RP K= 10
BR
SET RP K=04
BR
Rsr MMSK K=51
RST MMSK K=bl
RST CSElF K=80
BR
Uo=o
SET MODE K=OO
Vl=MC
BR IF l=O
RST MMSK K=91

*

SET TO CPU MODE & ZONE
MACHINE CHECK OLD PSW AOOR
GO TO STORE & LOAD MC PSW
BR IF IN CHNl HI PRIORITY TRAP
BR IF IN DISK CHAINING TRAP
BR IF IN CHNL LO PRIORITY TRAP
BR If IN READER TRAP
BR IF IN PUNCH TRAP
BR If IN COMM. Bf' SVC TRAP
BR If IN COMM. CHAR SVC TRAP
RSI LEVEL 1 PRIORITY
LEVEL 1 PRIORITY, NOT IN TRAP
CHANNEL TRAPS
SET READER MACHINE CK LATCH
GO BACK TO RDR TRAP ROUTINE
SET PUNCH MACHINE CK LATCH
GO BACK TO PCH TRAP ROUTINE
RSI BIT SERVICE TRAP
RSI GENERAL ICA TRAP
leA RESET
SET CPU MODE TO SR ON MC REG
MOVE MC REG
BR iF NOT MACHINE CK LOGOUT
RST MACHINE CHECK PRIORITY

RD SAVED MMSK & SA FROM AUX K-1
BACK UP ZONE
XfER MC BACKUP ADOR TO AUX K-7
SET TO CPU MODE & ZONE
SET UP ADDR Of LOGOUT AREA
DISABLE STORAGE PROTECT
STORE MMSK, SA (N LOCATION 80,8l
STORE MACHINE CK REG IN 82
READ LAST ERROR COUNT FROM 83
ADD 1 TO ERROR COUNT
STORE UPDATED ERROR COUNT IN 83
READ BACKUP MICRO ADDR INTO 0
STRIP BITS 0,1 - HZ,LZ
STRIP BIT 15 - AlU CARRY
MICRO ADDR POINTS AT FAILING WO
0=0-2
STH 0 U+2
MICRO wD ADDR Of fAILURE IN 8~,5
BAL
RESTORE THE CPU KEY
SET BACK TO 1052 MODE
SET MODE K=20
VO=OSK03
Hill COUNT EQUALS 3
RST TA K=F2 **RST RD, wT, M-FORCE. ALDP, SHARE IF ON

RDH 0 DA,9E
SET MODE K=04
STH 0 DA,9E
SET MODE K=OO
Ul=OSK80
S TPO=UO
STH D U+2
STB Vl U+t
RDB 01 U+O
01=01+KOI
STB 01 U+l
ROH 0 OA,9E
DO=DO*-KCO
D1-Dl*-KOl
CCOM 181
NOTMC

Cl.OAD=*E60, EC LEVEL=l28211
COMMENTS

fROM THIS POINT ON, A SECOND MACHINE CHECK WOUlD CAUSE A RETURN TO THE
TRAP ADDRESS 0220. If THE SECOND MACHINE CHECK OCCURRED PRIOR TO THE
LAST INSTRUCTION, THE CPU WIll STOP WITH THE CLOCK OfF. THE LAST
INSTRUCTION AtSu RESETS THE MC REGISTER.

OH

072
073
074
075
076
017

STATEMENT

RSTRKY

PAGE

44

ADCR

WORD

13AC
13AE
UBa
13B2
13B4
13B6
13B8
i3BA
13BC
l3BE
13eo

2171
2B07
7ACO
4t32
261D
271D
6<;;62
17AB
2185
873C
<;68C

LlMCK
t3MCK
BelCK
"", OK
riMe",

aMCK
tlMCK
dMCr<.
3MCK
dMCII.
riMCr<.
"MeK
dMCK

003
006
OIL
028
035
037
038
039
041
u4i
044
047
075

SEQUENCE NO.
BMCK
BMCK
BMCK
BMCK
BMCK
BMCK
BMCK
BMCK
8MCK
BMCK
BMCK

FlL T
BMCK
BMCK
BMCK
SMCK
BMCK
oMCK
SMCK
BMCK
BMCK
dMCK
DYPE
dMCK

LABEL

078
079
080
081
082
083
084
085
086
087
088

014
OC4

036
011

046
028
029
031
032
033
034
021
o~o

BMCK 030

NEXTSEQ

AlOP 182
AlOP 100

NEXTLABEL

STATEMENT

ClOAO=*E60, EC lEVEL=128211
COMMENTS

U=COF8 - PRKBlI0521 UCW AOOR
Ul=0-K07
T 1=0
STH T AS,U+O
RSJ 1ST HW OF 1052 UC W
READ OUT CONSTANT OF 4E08
RDH 0 DC,8E
SET D TO 5E 18 FOR
00= 00 +K 10
Dl=Dl+KlO
'RDH H U+2'
STH D DC.9C
STORE 'OOIT' WO FOR AlOP ROUT! NE
SET FLAGS FOR Me CK OR CE TRAP
01= DlcKOA
SET UP ADDR
U1=OSK80
FOR A LINE FEED
1I NEflJ
BAl
GO TO PRINT OUT LOG AREA
COlCNT
BR
**********************************
* CROSS REFERENCE FOR CSECT BMCK *
**********************************

PAGE

45

ClOAD=*E60, EC LEVEl=128211

BPSW

PAGE

46

DESCRIPTIVE TEXT

ENTRY POINTS TO THE BPSW ROUTINE
PKOG

PROGA

ENTKYB

WHEN A PROGRAM INTERRUPTION IS DETECTED DURING
INSTRUCTION PROCESSING THE BPSW ROUTINE IS ENTERED
HERE. THE CUKRENT PSW, ALONG WITH THE INTERRUPTION
CODE, IS STORED IN THE PROGRAM OLD PSW LOCATION AND
THE PROGRAM NEW PSW IS READ OUT AND PLACED IN
CDNTRUL.
ENTKY IS MADE HERE IF A PROTECTION ERROR OR AN
EXECUTE INSTRUCTION I S DETECTED. PSW HANDLING IS
THE SAME AS fOR PROG ENTRY.

ENTRY

A SUPERVISOR CALL OR MACHINE CHECK TRAP CAUSES
ENTRY AT THIS LABEL.

LPSW

ENTRY HERE I S TO COMPLETE THE 360 LOAD PSW
INSTRUCTION OR TO lOAf} THE IPl PSW.

INTBR

ENTRY HERE [S fROM CONDITIONAL BRANCH INSTRUCTIONS
TO CHECK FOR ADDRESSING OR SPECIfiCATION ERRORS.

INTXA
NINTXA

ENTRY IS MADE HERE FOR EXTERNAL INTERRUPT,
CHANNEL
INTERRUPT, OR CHANNEL
INITIAL SELECTION.
HIGH ORDER HEX DIGIT fOR PROPER PSW ADDRESS IS SET
PRIOR TO ENTRY HERE.

WAIT

ENTRY TO EITHER Of THESE LABELS IS fROM THE
ROUTINE WHEN THE SOFT STOP lOOP IS EXITED.

THIS LABEL IS BRANCHED TO WHEN THE WAIT BtT IS
TESTED AND FOUND TO BE ON.

PROGRAM STATUS WORD AND THE LOCATION Of THE CURRENT PSW

o
7 8
11 12
15 16
31 32 H 34 35 36 39 40
47 48
63
*****************************************************************************************************************************
*
*
*
*
*
*
* PROG *
*
*
* SYSJEM MASK * KEY * AMw? * INTERRUPTION CODE
* IlC * CC * MASK *
* INSTRUCTION ADDRESS
*
*
*
*
*
*
*
*
*
*
*
*****************************************************************************************************************************
AUX
A8
•0

AUX.

AUX

A9

A9

7.0

3.4

PSW

LS • lS
GO • PO
1.

18

20
28
30

38

••...•...••

LS
.Pl

....... .

3.0
~

AUX
3•

AA

HEX
INITIAL PROGRA~ LOADING PSW
EXTERNAL OLD PSW
SUPERVISOR CALL OLD PSW
PROGRAM OLD PSW
MACHINE-CHECK OLD PSW
INPUT/OUTPUT OLD PSW

58
60

68
10
18

AS

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

ADDRESS ASSIGNMENTS

HEX
00

.0

BSWI

EXTERNAL NE W PSW
SUPERVISOR CALL NEW PSW
PROGRAN NEW PSW
MACHINE-CHECK NEW PSW
INPUT/OUTPUT NEW PSW

AlJDI{

lC70
1C72
1C14
lC76
lC 78
lC 7A
1C 7C
lC7E
lC80
lC82
IC 84
lC 8b
1CBS
11:. SA
lC8C
lC8E
lC90
1C92
lC9ft
lC96
1C98
lC9A
lC9C
lC9E
leAO
leA2
lCA4
l(Ab
lCA8
lCAA
lCAC
lCAf
lCBO
1C82
lCB4
lCBb
1C B8
leBA
1CBe
leBE
lceo
lCCl
leC4
lcce
lCCf
lCOO
LeC6
leC8
1LCA
IBOO
1802

WORD

2F07
2125
llES

20G7
420F
5eEB
3E45
4DE5
E 181
5892
SCSC
C40A
21:40
040E
2E4D
7S1A
7E lA
7A1A
5E82
7EIO
214D
5C 18
44CF
42DF
1e82
6004
5E18
5810
4ED3
SECB
lCC 5
FC32
3C45
2AG7
7CC2
4FDF
E947
2020
FlCA
AB07
09E3
Foce
A9A6
2407
2B63
9B04
0004
flC1
81CA
2405
2653

LABEL

SEQUENCE NO.
BP SW
BP SW
BPSw
BP SW
BP SW
BP SW
8PSw
BP :'1'1
BP SW
BPSW
BP SW
BPSw
BP SII
BP sw
BP SW
BP SW
BP SW
BP SW
BPS.,
BPSw
BP :,W
BPSW
BP SW
BPSW
BP SW
BPSW
BP SW
BPSw
BPSw
BPSW
BPSw
BP SW
BPSw
BPSW
BPSw
BP sw
BPSW
BP sw
BP SW
BPSW
BPSW
BPS ..
BPSW
BP SW
BPS;;
BPS;;
BP SW
BPSw
BPSW
BPS ..
BPS ..
BPS ..
BPSIi

001
002
003
004
005
006
OC7
OOS
009
010
011

PROG
PROGA
ENTRYB
ENJRY
ENTRYA

014

012

013
014
015
alb
011
018

NOTE XC

017
Olb

wow

018

EXECA
EXEC

019

020
021
022
023
024
025
027
029
030
031
032
033
034

LPSW

035

036
0.37
038
039
040
041
053
054
055
056
057
05B
05'1

NEXT LABEL

STATEMENT

PSW LOAD AND STORING

T

*

NEXTSEQ

038
NOT
I NTXB
I NTBR

062

I NTXA

BPSW Ob5

Ob4

059
CICY 008
SPEC

ObO

067

061
Ob2

WAI T

063
064
065
066

INTX
ADORER 0

062
6SWI 008

Hl=O
Ul=0$K20
Ul=Ul.KOE
UO=O
STPO=UO
HO=POH
HO=HO$K40
HO=PIXLSHOH
BR If Sb= 1
NOT EXC
RDH I OAf AA
BR
EXECA
BR If GOO:O
wow
HO=HO.K40
BR If GOl=O
EX EC
HO=HO.K40
STH I U-2
STH H U-2
STH T U-2
RDH H OA.A8
STH H U
Ul=U 1.KftO
RDH P U.2
SM=PO
STPO=PL
STH P OA.A8
U=U.2
RDH H U.2
RDH I U
Pl=HOXH.PlL
PO=HOH
PO: PO*-K CO
BR [ f P03=0
NOT
PO=POSK40
TO=O
STH P OA.88
MW=Pl
BR If P16=1
WAIT
SET Sb
I NT X
BR IF S7=0
ADORER N BR If Hl=NZ
Z= ll*-KOE
BR If llNZ
SPEC
1ST ART 3 BR
GO:O
Tl=OSKOb
BR
PROGI
RST S2
6R If S1=1
WAlT
BR
CHECKE
GO=OSKOO
Tl=OSK05

CLOAD=*E60. EC LEVEl=128211
COMMENTS
001
CL EAR IN VAll D ADD.
CREATE
PROG. PSW
ADDRESS
STaR PROT DISABLE
PLACE THE 4 8IT CC INTO HO HIGH
AS SURE ILC = 1
PLACE PROG MASK INTO HO LOW
TEST FOR EXECUTE
READ OUT EXECUTE INST. COUNTER

"

JEST OPCOOE FORMAT FOR LENGTH
ADD 1 TO LENGTH CODE I LC = 2
TEST OPCODE fORMAT fOR lENGTH
ADD 1 TO LENGTH CODE ILC:2 OR 3
S TORE INS TR UC TI ON ADORE SS
STORE ILC. CC. AND PROG. MA SK
STORE INTERRUPT CODE
READOUT SYS MASK, KE Y. AMWP
STORE INTO OLD P sw
ADJUST TO NEW PSW ADDRESS
START NEw PSW READ
SEl SYSTEM MASK
SET PROTECT KEY
STORE SYS MASK. KEY. AND AMWP
POINT TO 3RO HALFWORO OF PSW
PLACE 3RO HALF WORD PSW IN H-REG
PLACE 4TH HALFWORO PSW IN (-REG
PLACE PROG MASK AND AMwP INTD PI
PLACE ILC AND CC INTO PO HIGH
ZERO OUT ILC
BRANCH If CC ISO OR 2
MAKE 4 BIT CC = TO 5 OR 1
SAVE PO-1
SET WAIT ~ MACHINE eK BITS
BRANCH IF WAIT BIT ON
SET EXECUTE INDICATOR Off
BRANCH IF EXCEPTIONAL CONDITION
BRANCH IF 24 BIT ADDRESS
TEST LOW ADDRESS BYTE
BRANCH IF 000 ADDRESS
BRANCH TO lCYCLES fOR INST. READ
ZERO OP CODE REGISTER
SET BITS TO IDENTIFY SPEC. CHECK
BRANCH TO INCREMENT INST. ADOR •.
lolA IT LOOP
**
LEAVE WA[T LOOP ON INTERRUPT
**
8RANCH TO DETERMINE INTERRUPT
ZERO OP CODE REGISTER
SET BITS TO IDENTIfY ADDR. ERROR

PAGE

47

ADOR

WORD

SEQUENCE NO.

LABEL

IB04
1B06

6884
9C72

BPSW 067
BPSw 068

PROGI

NEXTSEQ

NEXTLABEL

BPSW 004

PROGA

CLOAll=*E60, EC LEVEL=128211
COMMENTS

STATEMENT
I: I +2

BR

PAGE

INCREMENT INSTRUCTION ADDRESS
BRANCH TO STORE INTERRUPT CODE

**.**.****************************

*

BPSW
BPSW
BPSW
BPSW
tlPSW
i3P SW
l3PSW
I3PSW
8PSW
BPSW
BPSW
SP SW
BPSW
HPSW
BPSW
SP Sw
'3" Sw

003
004

005
006
014
016

017
018
024

038
053
055

059
062
064
065
067

CCOM
BPS'"
BS\d
C)f S
BPSW
tlP SW
'WSW
BPSW
BSYS
BP Sw
CSRC
BSwl
BPSW
BPSW
BPSW
BP SW
BPSW

072

068
090
OS7

COMO 061
BWRP 069
DCHN 016

CFAD 132
CBRC 063

CFHA 037

SSWI 049

SSWI 139

011

014
013
016
128

C:'>TS a01

036

BSYS 131

016

135
057
041

054
055
Ott

BPSW 063

CROSS REFERENCE FOR CSECT BPSW

*

********************.*************
CICY 046

CICY 060

CICY 061

CICY 069

(LST 015

CNVR 121

CSAS 130

48

ClOAD=*E60. EC lEVEl=128211

BSTP

DESCRIPTIVE

lNTMY TU THE -BSTP- ROUTINE IS MADE FROM THE -BSWIRUurIN[ ,HEN AN INSTRUCTION STEP OPERATION OR A SET IC
UPEKATION IS PERFORMED. THE ENTRY IS MADE TO TEST THE 1052
AND DETERMINE IF THE INSTRUCTION COUNTER CAN BE TYPED OUT.

ADLK

wUK C

uF06
Of OS
dfOA
dFOC
OFOE
vF 10
JF12
vF 14

2404
CFBf
DF8F
CE90
AAA2
B2Hl
4E€6
26C 3
2"(07

OFl6
JF1R
uF 1A

'.) TjJ 002
:',., TI' uJ6
I'I$TP 007

2213

'16C4

SEQUENCE NO.
8 SIP
85 TP
8 S IP
BS TP
8 S TP
BSIP
BS TP
BS lP
BSIP

001

OOL
003
004
005
00t>
001
008
016
B S TP 011
BSTI' 018
BSTP 019

SId 118
BSTP OC3
BStp OC5

LABEL

NEXTSEQ

T
TYPADD

BUSY
OK

006
00&
001
BSWI 066
CCOM 113

ABC

fi

SSTI' 004

AlOP 157

NEXT LABEL

PAGE

49

TEXT

IF THE 1052 [S NOT BUSY, THE -ALDP- ROUTINE IS BRANCHED
TO, AND THE INSTRUCTION COUNTER IS TYPED OUT.
[F THE 1052 IS BUSY, THE INSTRUCTION COUNTER IS NOT TYPED
OUT. THE -SSW 1- ROUTINE I S BRANCHED TO. THE CPU KEY, P-REG,
AND I-REG ARE RESTORED AND THE -CICY- ROUTINE IS BRANCHED TO.

STATEMENT

COMMENTS

INSTRUCT IO"I TYPEOUT
SET MODE K=20
BUSY
BR IF TUO= 1
CHECK AND BRANCH IF READ LATCH
BUSY
BR IF TU 1= 1
CHECK AND BRANCH IF WRT LATCH
OK
8R IF TTO=O
CHECK AND BRACH IF NO AHEN
8R
REST RH
NO TYPE OUT WILL OCCUR
SAVE Hl
STORH1
BAL
H= I
PUT IC IN H REG
Du=O$KOC
BUILD
FLAGS
01=0
VO=OHO 1
SET UP COUNT
ENTRY
BR
GO 01 SPLAY
**********************************
* CkOSS REFERENCE FOR CSECT BSTP
**********************************

.

ClOAD:*EbO. Ee lEVEl=128211

\~W

PAGE

50

I LlESCKIPTIVE TEXT
OESCRIPTION -- CONTINUED

tHKY POINTS
CHECKB - FROM I-CYCLES WHEN EXCEPTIONAL CONDITION, S7=0, IS
~ECOGNIlED.
THE CONTROL WORD AT THIS ENTRY CREATES
A VAlli.) NEXT INSTRUCTION ADDRESS BY ENSURING THAT
THE HIGH-ORDER BYTE IS CLEAR.
(HECKE - FROM LOAD PSW ROUTINE AFTER LOADING A PSW OR AFTER
AN EFFEC T1 VE BRANCH I NSIRUC HON. I F THE MODE SW IS
IN THE INSN STEP POSITION, THE CONTROL WORD AT THIS
ENTRY TlRNS UN THE INSN STEP LATCH. BB BIT 5. BB5
IS TURNED OFF BY THE START KEY.

THE FOLLOWING NOT S7 BRANCH CONDITIONS CAUSE ENTRY TO THE BSW!
ROUTINE. THESE CONDITIONS ARE LISTED ACCORDING TO PRIORITY OF
TESTING. EXCEPT FOR SOFT STOP, THE MICROPROGRAM BRANCHES TO
THE APPROPRIATE ROUTINE FOR HANDLING THE CURRE~T CONDITION.
1.

2.
3.

4.
5.
6.

RESTRH - FROM ALTER/DISPLAY AND INTEGRATED I/O ROUTINES.
THIS ENTRY RESTORES CPU MODE/lONE, PROTECT KEY, AND
L.S. KEGISTERS BEFORE TESTING FUR THE NEXT INTERRUPT
OK REUUEST. WHEN THE MICROPROGRAM EXITS FROM BSWI
TO HANLlLE A REQUEST, A RETURN IS MADE TO THIS ENTRY
AFTER ThE REQUEST IS PROCESSED.
.It: SCR I PT ION
~~rER ENTRY AT EITHER
-CHECKB- UR -CHECKE-. THE TIMER
fUNCTION IS HANDLEU. WHEN THE T1MER fEATURE IS PRESENT, THE
1 lMER IN PROGRAM STURAGE IS UPDATED If THERE IS A VALUE IN THE
-rIM- CUUNTER. THE -TIM- COUNTER IS THE INVERSE OF THE
'IAROWARE TIMING COUNTER THAT IS STEPPED BY POWER SUPPLY PULSES.
~rlEN THE TIMER VALUE IN PROGRAM STORAGE IS REDUCED THROUGH
LERO, AN EXTERNAL INTERRUPT IS INITIATED BY SETTING SC BIT 1.

AI) OJ{

01C8
01CA
07CC
01CE
0100
0702

0104
010b

WORD

2FC7
3600

B2F8
5AEf
lEFf
C4F7
5E09
bEE3

SEQUENCE NO.
BSI.1
BS 1\1
BSld
BSW I
BSWI
BSill
BSld
BSiliI
BSW I
BSI\I
BSwl
BSOIl
BSWI
8SWI

001
002
003
004
005
006
007
008
009
011
012

013
020
021

LABEL
T

*
*
*
*
*CHECKS
CHECKE

NEX TSEQ

NEXTLABEL

STATEMENT

7.
8.

INTEGRATED I/O REQUEST
EXTERNAL INTERRUPT MASKED
CHANNEL 1 IN 'ERR UP T MA SKED
COMMUN leA liONS CHANNEl INTERRUPT PENDI NG
MASKED CHANNEL 0 INTERRUPT
INSTRUCTION STEP LATCH
SET Ie LATCH
SOFT STOP LA TCH

SBl
B83
BB6
BB7
BB2
BS5
BB4
BBO

1

0
0

0
0
1
1

0

THE SOFT STOP LATCH IS SET BY ANY ONE OF THE FOLLOWING
INSN STEP LATCH. SET IC LATCH, ADDR MATCH, STOP SW, OR BY
SETTING BCO. IF THE SOfT STOP LATCH IS ON WHEN TESTED, THE
MICROPROGRAM lOOPS ON THE TESTS FOR INTEGRATED I/O REQUEST
AND SET IC. EXIT fROM THE SOFT STOP LOOP OCCURS WHEN ONE OF
THESE TESTS IS SUCCESSFUL OR WHEN THE SOFT STOP LATCH IS
TURNED OFf. THE SOfT STOP LATCH IS TURNED OFF BY PRESSING THF
START KEY. LOAD KEY. OR CSl KEY.

COMMENTS

EXCEPTIONAL CONDITION ROJTINE
D. L. SM ITH
REGISTERS NOT TO BE DESTROYED ARE
PO - CONDITION CODE
PI - PROG MASK AMWP BITS
HI - HI ORDER B BITS OF A 24 BIT BRANCh ADORE SS
101- INSTRUCTION COUNTER
Hl=O
CREATE VALID BRANCH ADDRESS
SET BC K=80
CONDITION INSTR STEP
BAl
STORE Hi IN AUX 00f4
CCOM 173 STORHI
HO=TIM
READ TIMER VALUE
HO=HOaKFF
IN 'JER T VAL UE
SR IF l=O
BR IF NO VALUE IN 11 MER
047 GOINA
UO=HO
CALCULA TE
HO=HOt-HO
VALUE

40DK

WLlRD

dlDB
0704

bEt: 3
bt03
2855
SOB8
52BA
20C2
72E9
7149
70A9
42AF
70B8
72BA
A7FA
F5F9
2608
AA84
ES16
9CC6

·~lLlt:

u701:

u7EO
07EZ
071:4
,,7Eb
J7EB
u7l:A
')7H.
01EE
U7FO
u7F2
J7f4
07f6
u7f8
u7fA
2A84
2A86
2AS8
2A6A
2A8C
2A8E
lA90
2A91.
lA94
2A96
2A98
2A9A
lA9C
iA9E
I.AAO
2AAZ

2AA4
I.AAb
iAA8
2AAA
I.AAC
2AAE
I.AE2
2AE4
2AI:'6
ZAE8
2AtA
2AfC
2AEE
lAFO
I.Af2
?ABO
2ABl
2AB4
2A86

DH8
2040
2C80
24C6
E990
'1EBA

l402
E8'>6
<;rEA
2404
EA9C

"FLO
2482
fAA2
"DOA
2400
2A07
A 7fA
ElAD
9258
C It:3
8183
B354
OlBE
C040
FFBI
59BF
IBFF
OHO
2115
'1C74
1:::885
A2FA
F8B9
5001

SEQUENCE NU.
BSW!
B S III
B Sv-l
BSwI
B SwI
B Sill
BSIII
BSkl
8 Sill
B SIoI
SSIoI
asw!
8 Sill
B Sill
B SIoI
8Sid
8SWI
8 SI-II
8 Sv-l
8SII1
B Sill
BSIII
B Sill
B Swl
BSIII
8 Swl
8 Swl
8 Swl
B 5wI
B S III
B5111
8S~1

B SI\I
BSwl
B Sill
8 SII(
BSld
BSIII
B S III
BSkl
BSld
BSwl
B SIoI
BSI<.I
B S VII
B SkI
B Swl
B SWI
B Sv-I
B SWI
8 Ski
B SIoI
BSv-l

LA8EL

NEX TSEQ

NEXTlABEl

022
023
030
O.H
032
033
034
035
036

038
040
041

043
045

CCOM 181
04B

RSTRKY
CKWAIT

046

047
048

GOINA
CK,WAI T

049
051

INA

051
047
BPSW 062
018

INA
GOINA
WAIT
INS

052
053
054

INH
TSTRDR

0~5

056
057
058

060
ERRQ 016

TSfTWR
peHST

063
DYPE 002

TSTPTR
TWRREQ

066

RESTRH
PTRREQ

RDsr

TSTTWR

TSTPTR
DPTQ 006
RESTRH

on

NOTPI

074
015

NOTSIO

076
071
078
082
083
088
C89
090
091
093
099
100

TS T PCH

rSTPCH

059
060
061
062
063
064
065
066
067
06'1
071
072

057
ERRQ 029

I NB

INC
I NE

ceeM 181
013
eCOM 066
075
CICY 005
CCOM 186
105
091

RSTRKY
NOTPI
lRSTRB
NOTS 10
I START N
RESTRH

11'40
INC

ENTRY8
BPSW 005
099
INE
INTENT
DClT 041
INf
101
GINT******INTCOH

ST AT EMENT

CLOAO=*E60, Ee LE VEL=128211
COMMENTS

FOR 60
HO=HO+HO
HO=HO.UO
CYCLE
T 1=0$K50
READ OUT
ROH U T+2
CURRENT
RDH V f-2
VALUE
SET CARR Y LATCH
SET S 3
VOC=VO-HO+C
00
ARITH
UIC=U I-TO.C
UOC=UO-fO+C
FUNCTION ON TIMER
5TPO=TO
DISABLE STORAGE PROTECT
STH U T+2
STORE
STH V T-2
RE SUl T
RESTORE CPU KEY
BAl
8R IF S3=1
8R IF ~OT THRU 0
TURN ON TIMER INT
SET 8e K=40
8R
MAKE ADDRESSA8LE
BR IF NOT IN WAIT STATE
BR I F P 1 B IT 6= 0
8R
TO AVOID RUNNING METER IN WAIT
BR IF BB 1=0
BR IF NO NATIVE REQUEST
SET S5
SET S4
SET MODE K=30
**SET MOOE=110 FOR RDR
BR IF RS 81T6=0
8R IF NO RDOR REQ
BR
"GO TO RDR ROUTINE
SET MOOE=OlO FOR PCH
SET MODE K=lO
GO TO peH ROUTINE
BR IF PS B1T6=0
BR
**GO TO peH ROUTINE
SET MODE K=20
**SET MOOE=100 FOR 1052
BR IF IT BlT6=O **BR IF NO 1052 REQUE ST
BR
**GO TO 1052 ROUTI NE
SET MODE K=18
SET 1403 PR INTER MODE
BR IF PRS BlT7=0
8R If NO PTR REQ
BR
SET CPU MODE AND ZONE
SET MODE K=OO
RST TO FOR NATIVES
TO=O
RESTORE CPU KEY
BAl
BR If P, I NO J STORED
8R IF S6= 1
RESTORE p. I
BAl
BR IF FROM REQ AND NOT SIO
8R IF S4=1
RTN TO I CYCLES
N=S 8lTS67
RESTORE CPU BYTE HI
BAL
BR IF S5=0
RST S5
BR IF NO EXTERNAL INT.
BR IF B83=1
T 1=X INT
READ INTERRUPT REG FOR INT CODE
Tl=TlaKFF
IN VER TIT
RST Be K=04
Ul=O$KlO
INTERRUPT
BR
fUNCTION
I NJR.
BR IF NO CHAN 1
BR IF BB6=1
BR
GO TO CHANNEL 1
BR IF NO COMMUN. CHNl INTERRUPT
BR IF BB7= 1
BR
GO TO COMMUNICATIONS

PAGE

51

ADM

WOKD

2AH8
2ABA
2A8C
2ASE
2ACO
2A(2
2A(4
2ACb
LAC8
lAC A
2Ace
2ACE
2AOO
2A02
2A04
2A06
2A08
2AOA
2AOC
2ACE
i'AEO
2A 82

EfiiU
A3f2
OBCB
Of89
CBCC
2F01
508F
519F
C602
8F06
craE
2404
HOC
38E9
50U
D2SA
8134
1F2A
2400
E903
9C8E
<;CC6

St~UcNCE

NO.

BSIII 101
BSIII 102
BSiiI 104
BS .. ' 105
8Swi 113
BSiil 114
B5111 115
BSIII 116
BSIII 111
BSlll 118
BSIII 119
8Skl 120
BSIII 121
8Skl 122
SSlIl 123
BSIII 124
8SIII'125
SSwl 126
BSIII 121
8Siil 128
BSIlI 135
BSIII 139

LABEL

NEXfSEQ

NEXTlA8El

I NF
ING
I NO
INZ

104
DCHN 031
118
053
119

ING
ENTRY
INJ
INH
INI

I NJ
I NI

8STP 002
105

TYPADO
INO

127

INK

126
ALOP 212

STAROK
RESET

139
BPSW 055
BPSW 062

I I'll
lNTXA
WAIT

STAROK
INK
INL

ClOAO=.E60. EC LEVEl=128211
COMMENTS

STArEMENT

BR IF NO CHAN 0 INTR.
BR IF B62= 1
GO TO BURST CH OINT ROUTINE
BR
BR IF INSTR. STEP
8R If BBS=l
BR IF NATIVE REQUEST
BR IF BSl=l
NO 1 SET IC
BR IF B84=0
GET
Hl=O
NEW
10=SWAB
INSTR.
11=SWCO
AOOR
Rsr [,C K= lO
BR TO TYPE THE INSf COUNTER
BR
CI"ECK fOR E XlT
BR IF BBO=O
IN 1052 MODE
SET MODE K= 20
AlT 101 SP ACTl VE CHEC,K
BR If TU3=0
r"'OOlf, ALDP BACKUP AREA
Tl=O-KEO
READ OUT AlDP FLAG HALF WORD
ROH 0 AS,T-2
BR IF ALDP READY TO 'START'
BR IF 00 BHS=O
GO TO SE T SOF T SlOP & MODE
8R
RST fA K=02 •• RSf RO, WR, ALDP ACTIVE LATCHES,SH.REQ.
SH MODE K=OO
WAIT STATE CHECK
BR IF P16=1
GO CHECK ADDRESS
Btl.
BR
GO TO WAIT

pur

••••••••••••••••••••••••••••••••••
• CROSS REfERENCE fOR CSECT BSWI •
••••••••••••••••••••••••••••• *••••

t'SI; I 007
~SWI 008
135111 041
I",S"I 048
":.Wl 051
,,:ik I 053
,,:;10 I 057
"':.111 060
n:)w I 063
n:)wl

Gbb

3SWI
0:..1
as"I
flSW(

013
015
018
091
099
101
104
105
118
119
126
121
139

H:)W 1

dSWl
tiSW I
oSWl
~S.d

[lSi'll
[lSWI
d:.W 1
tl 5W I

CICY
BP S..
BSWl
6SWI
BSWI
BSwt
SSWI
SSW(
BSiil
ALOP
BSW(
BSWl
aswl
BSW(
BSWl
SSWI
8Siil
aswl
BSWI
SSWI
8 S~I
aswi
B S1oI1

OC7

~(CY

015

BS~I

048

0t:4
013
045
041
le5
055
058
Oft
202
071
013
051
078
OSl
CS9
101
016
104
113
124
121
128

AlDP 215

BSld 119

aSTP 006

8SWI 064

OPTQ 021

OYPE 018

DYPE 052

OYPE 081

OYPE 124

EXFR 107

PAGE

52

CLOAD=*EbO, EC lEVEL=128211

BSYS

DESCRIPllVE

THE SYSTEM RESET ROLTINE IS ENTERED AT LABEL * SYSRST *
FROM T~E CHECK SUM ROUTINE -8CHK-, TO INITIALIZE CERTAIN
110 LATCHES AND AUXILIARY STORAGE lOCATIONS.
T~I) ENTRY IS MADE AFTER EITHER THE SYSTEM RESET, LOAD,
UR CUNTROL STU RAGE LOAD KEYS ARE PRESSED.

1
2
3
4

WHEN THE LOAD KEy IS PRESSED, THE FOLLOWING STEPS TAKE
PLACE PRIQR TO ENTRY AT LABEL * SYSRST * 1
2
3
4
5
6

WORD

~EQUENCE

nbC

3210
2460
26G1

BS'1 S
BS'fS
BS'fS
B SY:;

n6E

2110
2112
2l 74
21 71:
21 78
21 1".
Ll7C
2l7E
2lilO
21B2
21 il4
2180
!lee

24F6

B~'fS

4052

BS'yS
fI S YS
I:l S'tS
BS'rS
BS YS
BS'!'S
B SYS
B S'!'S
BS'fS
BS'tS
i3SYS

420b

440b

21BC
neE

4606
2DG8
2490
AHA
8224
49Cf
E 581
2Ee8
24tl2
4A':>2
4E42

n90
,? 192

5EEb
57E8

21 '14

4S7F
2400
6EE4

Li8A

2190
d98

B~YS

BS'TS
BS 'rS
BS'1S
BSYS
BSYS
BS 'fS
BSYS

LABEL

NU.

001
002
004
005
018
019
020
021
022
026
028
029
030
031
032
033
037
039
040
042
043
044
04':>
046

NEXTSEQ

NEXT LABEL

fILE 280
FILE 319

SYSTEM RES ET
SET MMSK K=81
SET MODE K=06
00=0
SET MODE K= 3f
RDH U DC,9A
V=U
G=U
D=U
SET GB K=40
SET MODE K=09
BAL
SETDA
RST AfT
BAL
MS"'PO
GOBAL
BR IF OAS Il= 1
SET fiB K=40
SET MODE K= Ie
RDH T DC,9A
RDH H DC,98
H=H-l
ROB 01 AS, H+ 1
PCCl=Ol
SET MODE K=OO
H=H+2

T

SYSRST

GOBAl

029

A HARDWARE RESET IS PERFORMED.
TbE RESIDENT DIAGNOSTIC -8DIA- IS EXECUTED.
THE CHECK SUM ROUTINE -8CHK- IS EXECUTED.
-BSYS- IS ENTERED AT LABEL * SYSRST *.
THE -DCLL- ROUTINE IS BRANCHED TO FOR IPL START.
WbEN IPL IS COMPLETED, A BRANCH TO -BSYS- AT
LABEL * RETURN *.
BRANCH TO -BPSW- TO LOAD THE INITIAL PSW.

WHEN THE CSL KEY IS PRESSED, THE FOLLOWING STEPS TAKE
PLACE PRIOR TO ENTRY AT LABEL * SYSRST * -

A HAROWARE RESET IS PERFORMED.
THE RESIDENT DIAGNOSTIC -BDIA- IS EXECUTEO.
THE CHECK SUM ROUTINE -BCHK- IS EXECUTED.
-BSYS- IS ENTERED AT LABEL * SYSRST *.

AI;DR

53

TEXT

7
WHEN THE SYSTEM RESEl KEY IS PRESSED, THE FOLLOWING STEPS
TAKE PLACE PRIOR TU ENTRY AT LABEL * SYSRST * -

PAGE

1
2
3
4
5

A HARDWARE RESET (S PERfORMED.
T~E -BCPL- ROUTINE IS EXECUTED.
T~E RESIDENT DIAGNOSTIC -BDIA- IS EXECUTED.
THE CHECK SUM ROUTINE -8CHK- IS EXECUTED.
-BSYS- IS ENTERED AT LABEL * SYSRST *.

STATEMENT

COMMENTS
SET
SET
RST
SET
RST

SYS RST PRIORI TY,BlOCK TRAPS
2540 ZJNE
2540 flAG REG
CHNL MODE AND lONE
U

RS{ MULTIPLEX LATCH
SE T TO 2311 MODE AND ZONE
SET DEVICE AOOR I; SELECT MODULE
GO Rsr GA TED ATTENTION
RESET MODULE SElECT
BR If ANY MORE GATED ATTENTION
RST FILE FLAG REG.
SET 1403 MODE
SET T=OOOO
SET H"=ooce
H: COC 1
GET PCCL CONSTANT
SET PCCL LA rCH FOR 1403
SE T CPU MO[)E AND lONE
H= OOCA

'\" ilK

WORD

SEQUtNCE NO.
B S~S 047
t3S~S 048
B SVS 049
BS~S 050
B S)'S 051
BS)'S 053
B S VS 054
BSvS 05')
B S'r'5 OS6
BSYS 057
BSVS 059
BSVS ObO
B S YS 061
BS),S 062
BSYS (;64
B S rS 06b
BS),S 067
B S)'S 118
S SYS 119
B S'tS 120
BS)'S 121
B S VS 122
BSVS 123
B SYS 124
BS'!S 12 ~
BS)'S 126
BS)'S 127
B S'I'S 128
B SVS 129
BS)'S 130
BSVS 131
BS'tS 132
BSVS 133
BS'rS 134
BSVS 135
BSYS 136
BSYS 137
BSVS 138
BSYS 140
BS)'S 148
BSYS 149
BSVS 151
BS),S 155

:' 1 '1J\

,)6EO

i14C

26G1

" 1 'H:
, i Au
'I Ac
) 1 A',
!lAb
nAil
dAA
!lAC
LlAE
?l SU
!tB2
dS4
nSb
! l 88
!lBA

577i)

17B3
7bEA
1AEO
2F 10
F4A4
2F91
1AEA
2E: 15
1AEA
2FF5
1AE:O
7A 32
7A 52
7A62

iUK

40Ab

dSE:

3.212
1210
20AO
UC8
A50A
E8D2
C62C
1212
4052
SC SA
l62e
1212
5C 82
44CF
42UF

nco
!lU
/lC4
?let
ilC8
)leA
IiCC

!let::
(lOll

dU2
2llJ4

?l Db
! l 08
) lOA

noc

48~2

211.E
21 EO

5eC2
2F G 1
SCB2

llE:2
dQB4

OEOC

OUF4

0090

LASE L

NEXTSEQ

NEX HABEL

LOOPI
053

SYSTEM
RETURN

LOOPI

124
DCll 002
129

SYSTEM
IPL
RESPSW

BPSW 024

LPSW

RESPSw

A TABLE
C
AEND
AUBlE:
C
AENO

BPSW 038
ADDR=OOB4

NOT

STATEMENT

GE T UNI T STATUS AND SENSE BYTE
RDH o AS,H+O
RST UNIT STATUS
00=0
R S T SEN SE BYTE LOW
Dl=DIL
D1=Dl*-KOB
REEEN BLOCK DATA CHECK
STH 0 AS, H-2
CLEAR 1403 SENSE
ST H T AS,H+O
ZERO OUT 1 S T HALF WORD OF THE
NATIVE DEVICES' UCW
Hl=Hl+K 10
( IN OOC 8, 0008, O0E8 t OOF8)
BR IF AC=O
Hl=0-K09
H= COF6
STH T AS, H-2
CLEAR 1052 SENSE SYTE
H= 10F4
HO=OSKIO
STH T AS, H-2
RST PCH INDICATORS & SENSE BYTE
Hl=OSKfO
H= 10F 0
RS T RDR INDICATORS & SENSE BYTE
STH T AS, H+O
STH T OA,8E
**RST S TA TL 51 AC T BYTE FOR CHNl 1 OR 23ll
RS T 2311 SENSE HALF WORD 1
STH T DA,9A
RST 2311 SENSE HALF WORD 2
STH T DA,9C
U=T
SET MCH CK TRAP BIT, STOP IF ERR
SET MMSK K=91
RST SYS RST BIT TO AllOw TRAPS
RST MMSK K=81
SET S K=OA
BR IF BA4=0
Bil IF Nor IPl
BR
BR IF NOT PSW RE STAR T
BR IF DRo'"O
Rsr BC K=62
RST MMSK K=91
RDH U DC,9A
ZERO OUT U REG
Bil
RST BC K=E2
SE T STOP,Rsr CSl,RST SYS.RST IPl
Rsr MMSK K=91
RST TRAP
RDH P DA,A8
LOAO
SM=PO
UP
STPO=Pl
THE
RDH I DC,9A
lAST
RDH P DA,B8
PSW
H1=O
ZERO HIGH ORDER ADDR
BR
XAUX' OEOCODlf'

ADDR=OOF4
XAUX'OO90'
**********************************
* CROSS REFERENCE FOR CSECT BSYS *
**********************************

1))'1'5
rl5YS
[3S YS
asys
tiS YS
JSVS

002
029
053
124
125
129

BCHK
BSYS
BSVS
BSYS
DCLl
BSYS

082
032
055
122
041
124

CLOAD=*E60. EC lEVEl=128211
CUMMENTS

PAGE

54

CLOAD=*E60. EC LEVEL=128211

JWRf> DE SCR I P TI VE IE XT
t:NTRY POINT
THIS ROUTINE IS ENTERED WHEN A TRAP ADDRESS Of 0210 IS
f-Ot{CED BY -1. STORAGE PROTEC1 VIOLATION.
PROTECT KEYS DO NOT MATCH.
2. STORAGE WRAP VIOLATION.
THIS OCCURS WHEN A PRDGRAM STORAGE
ADDRESS THAT EXCEEDS THE SYSTEM SIZE IS ENCOUNTERED.
SYS1EM SIZE

PROG STOR
0000
0000
0000
0000

10K

L4K
32K
48K

ThE UNCONDITIONAL 8RANCH WORD AT THE SJART OF THE ROUTINE
STORES HtE ADDRESS +2 Of THE TRAPPED WORD IN BITS 2-6 Of THE
I-REG BACKUP. I.E •• ZONE 4. BIT 7 Of THE I-REG BACKUP IS SET
FROM DYN 81T 3. IF THE TRAP OCCURS DURING INSTRUCTION READOUT
IN I-CYCLES. THE ADDRESS STORED IN THE BACKUP I-REG IS THE
ADDRESS Of THE TRAPPED ~ORD +3 BECAUSE DYN BIT 3 IS SET TO 1
LATER IN THE ROUTINE • .THIS 8ACKUP ADDRESS IS DECREMENTED 8Y
1 TO POINT TO THE CONTROL WORD THAT fOLLOWS THE TRAPPED WORD.
ThiS CONTROL WORD IS USED TO DETERMINE WHICH HALf WORD OF THE
INSTRUCTION WAS BEING READ WHEN THE TRAP OCCURRED. THIS IS
DONE IN ORDER TO SET UP THE NECESSARY REGISTERS fOR THE
PENDING INTERRUPT.

i)210
Uti1C
Oti7t:

OA80
vA82
OA84
OA86
DA88

WORD

ea7C
D4fA
97<;5
f790
94B4
835E
9210
9210

SEiolUENCE NO.
8WRP
BWRP
8WRP
BWKP
8WRP
BWRP
8WRP
BWRP
BWRP
8liRP
BWRP
BwRP
BWRP
8WRP
BWRP
BWRP

001
002
003
004
005
006
007
008
009
010

all

012
013
014
015
016

NEXTSEQ

LABEL

r

AfTER THE UNCONDITIONAL BRANCH. DYN BIT 1 IS TESTED. THIS
BIT IS SET TO 1 fOR A STORAGE WRAP VIOLATION.
IF DYNl = 0, A
STORAGE PROTECT VIOLATION HAS OCCURRED. FOR EITHER VIOLATION,
THE ROUTINE DETERMINES THE MODE BY rESTING BA BITS 1.2. AND 3.
fOR FILE, COMMUNICATIONS. OR CHANNEL MODES. THE MICROPROGRAM
BRANCHES TO THE APPROPRIATE ROUTINE TO ATTE~PT THE INTERRUPT.
FOR THE INTEGRATED 110 UNITS REMAINING, EITHER PROTECTION
CHECK OR PROGRAM CHECK IS SET IN THE CHANNEL STATUS OF THE
APPROPRIATE UCW. THEN THE INTERRUPT IS ATTEMPTED.

NEXT LABEL

WHEN A STORAGE WRAP VIOLATION IN CPU MODE OCCURS, TESIS ARE
MADE TO DETERMINE IF THE WRAP OCCURRED DURING INSJRUCTION
READOUT, AS PREVIOUSLY STATED. FOR ANY SJORAGE WRAP VIOLATION
IN CPU MODE, THE ROUTINE EXITS TO fLAG THE ADDRESS ERROR AND
IN ITIATE THE INTERRUPT.

STATEMENT

WRAP TRAP AND STORAGE

COMMENTS
D. L. SMITH

*
*
*
*

*

ATABLE

ADDR=0210
010

UNO
NXTADR
STRG
STRG
STRG
STRG
STRG

0
1

2

,.
3

020
012
031
flU 019
090
071
017

55

WHEN A STORAGE PROTECT VIOLATION IN CPU MODE OCCURS. THE
PROTECTION ERROR IS FLAGGED, AND THE PROGRAM INTERRUPT IS
IN IT UTED.

ADDR RANGE
- 3FFF
- 5FfF
- 1Fff
- BfFF

LlESCRIPTION

AiJOK

PAGE

NXTADR

BR

BR IF DYN1=0
PROTeK
STRG
N N=BA BITS 123
BR If BA3=O
ADDRCK
WRAP
BR
BR
PUNRP
WRAP
BR
BR
WRAP

SAllE BACKUP ADOR If IN CPU MODE
BR If STORAGE PROTECT
FIND THE MODE CAUSING WRAP TRAP
2311 MODE
2540 PUNCH WRAP
1403 MODE
10~2 MODE

AueR

wORD

0AbA
uAbC
')A !lE:
Jd 7A
,)A60
(jAb2
uA64

5007
926E
f;476
97E 5
'7018
9480
92t!l
9UA
92t:A
~OC 7

)1\60
J~td

).:I6A
,)AcC

9~b8

c),\ bE

9614

u4'10

I:'l AE

dA
BWRj>
BWRP
8wftP
BWKP
BWRP
BWRP
BWkP
BWKP
BwRP
BWRP
BWRi>
BWRP
BWKP
BWKI'
BWRP
BWkj>
SWRP
BWRP
SwkP
BWRP
BWRi>
BWRP
BWKP
BWRP
SWRP
BWRP
BWKP
BWRP
BWRP

sr.,,!>

BWRP
BWkP
BwRP
BWKP
aWRP
!3WKP
BWRP
BWRP
BWRP
BWRP
BWKP
BWRP
BWRP
BwRP
BWf(j>
BWRP

017
018
019
020
021
022
023
024
025
026
027
028
037
040
O"!l
049
050
051
052
053
054
055
056
051
058
059
060
ObI
062
063
064
065
066
067
068
069
C70
071
072
073
074
075
076
071
078

NE XTSEQ

LABEl
STRG
STRG
STRG
PROTC K
PRT
PRT
PRT
PRJ
PIH
PRJ
PRT
PR T
AODRCK

5
6

1
0
1

2
3
4

5
6
7

064

ObI

CICY 045
060
059

NXTO
CICY 045
CPUPRT
BPSW 004
*
*
*

RDPU
PRUlEC
078
RDORPU
WRAP
WRORPR

079

080
081
082
083 .
084
085
OB6

WHICHN 0

OB6
DPTQ 019

STATEMENT

CLOAD=*EbO, EC LEVEL=128211
COMMENl S

COMMUN ICA TI ONS
BR
2540 READER WRAP
BR
CHANNEL
BR
FINO THE MODE CAUSING THE PROT.
N= BA BITS 123
CPU MOUE
BR
2311 MODE
BR
2540 PUNCH PROTECT CK
BR
14C) MODE
BR
10!2 MODE
BR
COMMU"l ICA TI ONS
BR
2540 READER PROTECT CK
BR
CHANNEL
BR
IF EXECUTE ON ADDR. OK
BR IF S6=0
CHECK FAILURE
Z= [oaK CO
DURING IN S IR uc nON
BR IF ZNl
NXTD
READOUT
Z= I loK02
BR IF lNl
NXlD
PUT IN BACKUP ZONE
SET MODE K=04
SAVE ADORE 5S STORED
STH I DA.BE
PUT SACK IN CPU ZONE
SET MODE K=OO
GET ADDRESS IN TO WORK ON
RDH 0 DA,BE
DO=DO*-KCO
Dl=Dl-K02
READ CONTROL WORD FOLLOWING
ROH 0 CS,D
1ST HAlFWORD TRAPPED BR NO
NXl A
SR IF DO 1= 1
RESET Ile CODE
GO=O
AJDERR 0 BK
BR IF THIRD READOUT fAI LEO
SR IF 006= 1
NXTB
BUILD IT AS AN
1= 1-2
RR OP FLAGGED
SR
NXTe
TO=O
ADDERK 0 BR
FLAG
TO=O
PROTECTION
Tl"0$K04
ERROR
Hl=O
BR
PROGA
**********************************************
NAT IVE 1/0 WRAP AND PROTECT
******************.************************
Fl)( 00 FO 2540
00=0
SET PROTEC T AND SEC.
HO=0$K90
UNC BR
WRCR PR
BR IF ZNl
FIX 00 FO 2540
00=0
SET PRGM. CHECK AND SEC.
HO=O$KAO
01=XXX8
Dl=DL*-K01
READ CHANNEl. 5TA TUS
RDH G AS,O+O
OR IN PRGM. CHECK OR PROT. CHK
GO=GO$HO
RESET CHAINING--KEEP ACTIVE ON
Gl=0$K04
SET CH END DEV END UNIT STATUS
HO=O$KOC
0= XXXB CHAN STATUS AND fLAGS
5T H G AS, D--2
5 JH H AS, 0-2
O=XXXA UNIT STATUS
BREAK OUT NAT! VE S
WHICHN N N=Ol BlfS23
• TR Y
14C3
TAKEIN
BR

GAN3******COMWRP
07b RDORPU
DCLR lab WRAP
N
021 PRT
CPUPRT
Obb
FlU 077 PRTCHK
013 RDPU
014 PROTEC
014 PKOTEC
GAN3******PSUEDO
013 ROPU
DCLR 108 PRorCH
064 NXJD
064

NXTC
NxrB
NXTA

NEXTLABEL

PAGE

5f»

AUDR

WORD

1262
1164
1266
B5E

BC9E
BC9E
'>FlO
A062
4270

HbO

lhlRP
BviRP
8WRP
BwRP
dviRP
tlwRP
ilWRP
HWRP
tl.-JRP

OlD
012
020
021
037
059
060
061
064

:~vlRP

Ob6

013
014
dwRP 076
tlwRP 011
l5WRP 078
BtiRP OB6
rlviRP 090
;~WkP

~.jKP

SEQUENCE NO.
BWRP
BWRP
BWRP
BWRP
BwRP

BWRP
BwRP
BWRP
BwRP
BWRP
BwRP
BWRP
BWRP
BWRP
BWRP
B WRP
BWRP
BllH
RDrl I AS. T +2
' INDEX IN IV
RDH V AS, T-2
T 1=GIXH
GET
ROH 0 AS, r +2
INCREMENT
FROM R3
ROH P AS. T-2
ADO
PIC=Pl+Vl
POC=PO+VO+C
INDEX
INTO
CIC=DIH 1+C
INCREMENT
DOC= DO +10 +C
Tl=Tl$KIO
RDH I AS,T+2
GET
COMPARANO
RDH V AS,T-2
Tl=GlH
SET Rl ADDRESS
STH 0 AS,T+2
STORE
STH P AS,T-2
SUM
Rsr S 2
SET S K=90
COMPARE
PIC=PUV 1+C
CGMPARANO
POC=PO%VQ+C
01C=D1% I 1+C
TO THE
DOC=00%10+C
SUM
LRSTRS
RE STORE I, P
SAL
eCCM 066
BR IF OVFL
BR IF OVERFLOW
118
OVERfl
BR IF S 2= 1
119
SiGN
EQUAL FIRST La 2ND
121
GOBR
SR IF GO BIT7:1
IS r ART N N=S BITS61
CICY 005
DO=DODK80
OVERflOW INVER T SIGN
BR IF DO BIT 0= 1
116 LHCHEK
BR IF GO BIT7= 1
SUM I S HI GH
111 N08R
3
BR
015
LEG

PAGE

63

ClOAO:*EbO. EC LEVEl=128211

***.*******************.***.*.*.*.

*
ldKC
CdRC
ldRC
laRC
CoRC
I.dKC
,jkC

L-lkC
CoKC
(dRC
u3RC
CJRC
CtlKC
CdkC
(tiRe

CtlRC
CBRC
CdRC
ldRC
CdRC
C.dRC
C.BRC
caRC
(dRC
CdRC
CdRC

005

CICY
C IC 't
CBRC
CdkC
C8RC
C ICY
C ICV
CdRC
CBRC
CBRC
CBRC
CICY

H8
025
0-45
035
03-4
It7

1)62

Ci3RG

050

Ob4

CdKC
CdRC
GIC\'
C IC Y
CBRC
CBRC
CBRC
C ICY
CBRC
CBRC
CBRC

0-49
056
128
H9
069

011

012
013
015
023
031
032
036
037
044
047
Ob5
067
013
074
085
0116
090
1.16
117
11B
119
121

CROSS REFERENCE FOR CSECT CSRC

*

**********************************

129
170

011
OC6
012

CBRC 014
caRC 017

In

0106
OE4

201
119

120
114
((IRe 115
C!3RC 116

CIC Y 202

CdRC 019

caRC 042

CBRC 087

CBRC 121

PAGE

64

ADDK

WORD

,WAS
20AA
2UAC
20AE
2DBO
<'DB2
2084
20Bo
,WBS
lOBA
2UBC
mBE
2UCO
mA2
ZOA4
ZOAb

A853
CiE:3
FOA6
5ElO
CE23
2305
5329
40E6
55BB
56A8
5EAA
100E
128E
23F 1
e4B4
AE98

OHC
JHf
u380
J382
0384
0386

55B j
56A8
5EAA
55BB
CCC8
128E

llA 70
llA12
OA 74
OA76
0A18
0A 1A
0A 1C
OA7E

55133
52A8
50AA
55BB
56A8
5EAA
lOOE
128E

2.170
2772

5218
5010
55BB
56A8
5EAA
100E
128E

2174
2.176

<'718
217A
277C

LABEL

SEQUENCE NOa
CCOM
eeOM
CCOM
eeOM
eCOM
ceOM
eeOM
CCCM
ceCM
eeOM
CCOM
CCOM
CCOM
eCOM
CCOM
ceOM
ceOM
ceOM
eeOM
ceOM
ceOM
eCCM
CCCM
eeOM
eeOM
eeOM
eeOM
CCOM
eeOM
ceOM
eCOM
CeOM
CCOM
ceOM
eeCM
CC.OM
CeCM
eCOM
eeOM
eCOM
CCOM
eCOM
CeOM
CeOM
eCOM
CeOM
eeOM
CCOM
CCOM
eCOM
CeOM
ceOM
CCOM

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017

036

037
038
039
040
041
042
043
044
045
046
041
048
049
050
051
052
053

NEXTU8El

r

CLOAD=*E60, EC t.E VE L=128211
COMMENTS

STATEMENT
**** COMMON ROUTINES

*
*
*
*
*

*****

*

*
*
*
*

**THE fallING ROUTINES**
UARE OPERAND FETCHE s**

**
**

,

eXGETH

CICY 045

ADDERR N

027

eXSPEC

025

eXNEG

CCSIGN

018

019
020
021
022
023
024
025
026
021
028
029
030
031
032
033
034
035

NEXTSEQ

GETRI

CXNEG
C XSPEC
*
lGET

*CRGET

*CXGET

*
*

018
CICY 059

eCSIGN
SPEeHK

** LINKED GET HALf ROUTINE **
BR IF Hl=NI
CHECK FOR VALlD ADDRESS
I=Ul*-KOE
BR If LlNl
CHECK BOUNDARY
RDH H U+O
BR If HO 8lTO=l
CHECK SIGN
V l=OSKOO
EXTEND PLUS SIGN
VO .. Vl
U=H
T l=GIH
RDH D AS,T+2
ROH H AS,T-2
RST S K=fO
RESET S BITS 0,1,2,3
RTN
Vl=O$Kff
BR If lNl
UNC BR ON lNl
BR
** OPERAND fElCH fOR lOADS **
T l=GIXH
RDH 0 AS, T +2
RDH H AS,T-2
SET DESTINATION ADDR
Tl=G1H
RESET lNZ
STAT
RST SI
RTN
** RR OPERAND fETCH **
T1=G1XH
RDH V AS. T+2
2ND OPERAND
RDH U AS. T-2
T l=GIH
1ST OPERAND
RDH 0 AS.T+2
RDH H AS,T-2
RST S K=FO
RESET S BITS 0,1.2,3
RTN
** RX OPERAND fETCH **
RDH V U+2
2ND OPERAND
RDH U U+O
T l=G1H \
RDH D AS,T+2
1ST OPERAND
ROH HAS, T-2
RESET S BITS 0.1.2,3
RST
S K=fO
RTN

PAGE

65

L\UDR

WORD

[JUCO
vuC2
OUC't
vUC6
uLlC8
ODCA
OUCC

70A2
7462
7CC2
flCC
7892
0020
128E

1254
1256

50A2
5462
5CC2

U58

125A
USC
USE

307C

~892

2020
128E

307E

2673
9C 70

llAEO
OAE2
OA E4
OAE6
OAft!
OAEA
OAEC

3002
7fFB
7EEB
777B
766B
100A
128E

0174
0176
0118
0174

Olle
OllE

200E
2010
L012
2014
2016
2018
201A
20 Ie

3002
7FID
7EOD
7730
7C2D
128E

26C1
517B
3163
5860
586B
2701

fOA5
4E52

SEQUENCE NO.
CCOM
CCOM
CCOM
CCOM
CCOM
CCOM
CCUM
CCOM
CCOM
CCOM
CCOM
CCOM
CCOM
CCOM
CCOM
CCUM
CCO"l
CCOM
CCOM
CCOM
CCOM
CCOM
CCOM
CCUM
CCOM
CCOM
CCOM
CCOM
CCOM
CCOM
CCUM
CCOM
CCOM
CCUM
eCOM
CCOM
eeOM
CCOM
CCOM
CCOM
eCOM
CCOM
CCUM
CCOM
eCOM
CCOM
CCOM
CCOM
CCOM
CCOM
CCOM
eeOM
eCOM

054
055
056
051
058
059
060
061
062
063
064
065
066
067
068
069
070
071
072
073
014
015
076
077
018
079
080
081
082
08.3
084
085
086
OS7
088
089
090
091
092
093
094
095
096
091
110
114

LASEl

NEXTSEQ

NEXTLA6El

•
•LSAVE:
LSAVEA
l SAVES
062

LSAVE:C

LSAVEC

•LRSTR

lRSTRA
LRSTRC

*

F LGDE X

•*

8PSIt/ 003

PROG

*

••
•CSLOOP

***

•

*

futeS\oi

HElP
127
CLEAR

*

LOCAL
•• RESTORERESTORE

STORE

.*

U

G

P
(

••

flAG DATA
E)(ECPTION
LINKED COMPLIMENT ROUTINE

*.

SET COMPLIMENT,CARRY

RESET ZNZ,CARRY,COMP

*.

COMMON AOO,SU8TRACT,COMPARE ROUTINE

**

SET COMPLl HEN T,CARRY

•• *••• *.****** ••• **** •••••••••• **** •• *•• *•• *.*.*** ••••• 8*.*••• ·*

115

116
117
118
120
121
122

Tl=OSK07
8R

••

•• LOCAL STORE SAVE
SAVE U
G
SAVE P
TEST EXECUTE-BR IF YES
I

SET S K=90
HIC=Hl:CU1+C
Hoe=HO:CUO+C
olC=DltV 1 +C
DOC=oo:cvo+e
RTN

C XLOOP

•
••

U DA,AC
G CA,AE
P OA,68
I OA,AA
S6

SET S K=90
HIC=O-Hl+C
HOC=O-HO+C
0IC=0-Dl+C
OOC=O-OO+C
RST S K=DO
RTN

COMPL

*

STH U DA,AC
STH G DA,AE
STH P DA t BB
BR IF S6=0
STH I OA, AA
RS T S6
RTN
ROH
ROH
RDH
RDH
SET
RTN

LR STR6

CLOAO=.E60, EC lEVEl=128211
CDMMENTS

STATEMENT

CSlt/ADR

CSW STORE ROUTINE •••• *•• *

00=0
Dl=01H
Dl=DUK06
ROB T 1 4S.0+0
DO=T IH
01=0
BR IF ll=O
RDH H DC.9A

ADJUST ucw AOOR TO NAT KEY LOC
O=UCW AODR-OOX6 ANY NATIVE
GET NATIVE KEY Tl=KKKKOOOO
DO=KKKKOOOO-NATI VE i020
,>u22
2024
2026
2028
Zu2A
zo2C
202E
2030
2032
2034
LV 36
2038
203A
2030
203E

4626
4026
2645
42AF
76B8
72B8
6AA4
7080
2647
42AF
HBO
5282
423F
e5BE
128E
ADF4

3362
3364

2400
A80C

2DF4
2DF6
2DF8

24CO
2C55
81B3

2C74
2C 76
2C78

2400
2e25
81B3

2AF4
2AF6
2Af8

2400
2C 75
81B3

32F8
32FA
32fC

27FA

26Bl
7FAO
128E:

5682

LABEL

SEQUI:NCE NO.
CCOM
CCOM
eCOM
eCOM
CCOM
eCOM
CCOM
CCOM
CCOM
CCOM
eCOM
CCOM
eeOM
CCOM
cceM
eCOM
CCOM
ceOM
eCCM
CCOM
ceCM
eeOM
CCOM
eeOM
eeOM
CCOM
CCOM
eCOM
CCOM
eCOM
eCOM
eeOM
CCCM
CCOM
CCOM
eCOM
eCOM
CCOM
eCOM
CCOM
CCOM
CCOM
eCCM
CCOM
CCOM
eCOM
eeOM
eCOM
CCOM
ceCM
CCOM
eCOM
ceOM

123
124
125
126
127
129

NEXTSEQ

NEXTLABEl

RDH V [)C,9A

STATOS
*

131

132
133

STATUS

137

139
141
142
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
1£>3
164
165
166
167
168

169
170
171
172

NORTN

L57

eelB

01 ~ABLE CPU KEY
KEY AND 0, S
NEXT CCW AODR
RE S COUNT
EN TR Y FOR STA IUS ONL V
Dl XABLE CPU KEV
STATUS=UNIT,eHAN.
GE T CPU KEV
PUT CPU KEY BACK IN Q
SO= 1 FOR RTN FROM THIS ROUTINE

fUN

NORTN
*
*
*
*
*
*
*
*

*

*

GO Rsr MODE ,SET eCl

BR

****COMMON CONDITION CODE: SET****
SET MOOE K=OO
BR

eCOB
elCY 003

CHECKX

CICY 005

SET MODE K=OO
PO=0$K50
ISTART N N=S BITS67

SET ee2

CICY 005

I START

SET MODE K=OO
PO=0$K20
N=S BlTS67

SET ce 3

clev 005

SET MODE K=OO
PO=O$K 70
ISTART N N=S BITS67

CetB
CCIC
ce2B
eC2e
CC3B
ce3e

*
*
*
*
*

173

17't
L75
116
177
118
119
180
181

146

** ENTRY FOR STAr STORE-ZERO RE ST OF esw
READ ZERO CONSTANT INTO V

D=V
U=V
T1=0$K40
S T1'0= TO
STH 0 T+2
ST H V T +2
T=T+2
S TH U T+0
Tl=O$K44
SfPO=TO
STH H T+O
ROH V DA,A8
STPO=Vl
6R IF 50= 0

CSWADR

134
135

CLOAD=*E60, Ee LEVEL=128211
COMMENTS

STATEMENT

*
*
*
*
*

N

SEl CCI-BITS2.3=eONO CODE

****************************************************************
**
STORHI

STORE HI ROUTINE

**

Tl=O-KOB
Sf B HI AS, T+0
RTN
****************************************************************
**

RSTRKY

RESTORE CPU KEY ROUT INE

ROH o DA,A8

**

GEl CPU KEY

PAGE

67

AOOR

WOKO

27fC
27fE

427F
128E

3354
3356
3358

2BB 1
5fAO
12BE

SEQUENCE NO.
eCOM
CCOM
eCOM
eCOM
eCOM
CCOM
CCOM

182
183
184
185
186
187
188

LABEL

NEXTSEQ

NEXTlABEl

CLOAD=.f60, EC lE VEL=12$1l1
COMMENTS

STATEMENT
ST PO=D1
RTN

RESTORE CPU KEY INTO Q

Tl=O-KOB
ROB HI AS, T+O
RTN

T=00F4

PA~E

68

.*************** •••••••••• ** ••••••••••••••
*** RESTORE HI ROUTINE •• *

•*

RESTRH

**********.* •• *.* •••• *.***.** •••• *
*********.***••••••••••••••••••***•
• CROSS REFERENCE FOR eSECT CCOM

eeOM
eeOM
eeOM
eCOM
eeOM
eCOM
eCOM
ceOM
CCOM
ceOM
eeOM
eCOM
ecOM
eeOM
eeDM
eCOM
ceOM
LCOM
(COM
CLOM
CCOM
(t..OM
t..COM
t..eOM
CCOM
CLOM
CCOM
CCOM
CCOM
CCOM
CCOM
CCOM

012
018
020
025
027
029
036
045
05b

057
058
062
064
065
066
067
011
016
086
087
110
123
127
135
146
154
157
161
165
113
181
186

CBIN
ceOM
CNVR
eCOM
eCOM
CUIIO
CBIN
CBIN
COMO
COIID
eSRC
eCOM
COMO
eOllo
B Sftl
CFAO
e,)MO
eOllo
CBIN
eBIN
DCHN
DCHN
ceeM
DClA
CCOM
DCtA
CCOM
OClA
DCle
BSTP
BMCK
BSWi

022
026
013
016
014
OC4
005
OC8
OC9
011
090
05'1
054
086
072
121
055
018
eC9
031
072
090
120
227
144
041
146

060
031
0(7
nIL.
075

CBIN 038

CBIN 051

CMU 014

CLST
CBIN
CBIN
EROR
eFC Y
OPTS

005
026
030
067
016
045

CLSf 018
CBIN 042
CBIN 046

CLST 030
CBIN 055
C81 N 059

CLST 040
CBIN 016
caIN 080

CLOG 036
CLOG 039

CLOG 069
CLOG 013

CFCY 036
OYPE 004

CMU 015
OYPE 113

CNVR 009
OYPE 226

ERRQ 021

ERRQ 066

CDMI.)
CDIIO
eBRe
CFCY
eNIiR
elSI
eBIN
CBIN
DPn
DelC
DCll
DeLe

059
098
113
068
073
001
04 i
060

COMO
eMLl
CFAO
eFHA
eSAS
Cl S T

OPTR 010

OPTS 078

OYPE 154

oeLA
OClA
OCLA
OYPE
BSWI
B SWI
OeLT

139
010
012
033
025
032
CBIN 081

eNIiR
CNVR
CFlS
(TRT
CLST
CLOG

051
040
168

DPH Ol5
FILE 018
OClR Oll

OPTT 054
FINT 009
OPTS 079

fILE 118

FINT 041

OPTT 068

F il E 128

FILX 431

228
042
285
215
009
043
041

Dele 065

OCLH 021

DPTT 011

OYPE 202

ERRQ 011

DCtB 005

DelT 008

CPTT 025

FILE 020

SSWI 069

CSTS 053

111
047
042
085
042
040

CLOG 110
CLOG 114

CLOG 140
CLOG 144

CMLl all
CMLl 001t

FILE 094

FIlX 1.89

EROR 010

CNVR 017

Oi,l

fILE 030

FllX 328

fllX H5

CLOAD=*E60, EC LEVEL=128Zl1

COMO --

J~CIMAL

MULTIPLY-DIVIDE ROUTINES

tNTKY POINT

69

DESCRIPTION CONTINUED
MULT IPl Y OP

SSUPFC - THIS IS THE COMMON ENTRY POINT FOR BOTH MULTIPLY
CECIMAL AND DIVID~ DECIMAL.

1.

2.

• MULT JECIMAL • FC • Ll L2 • B1 01 • 01 01 • B2 02 • 02 D2 •
• DIV DECIMAL • Fa • L1 L2 • Bl Dl • Dl D1 • B2 02 • 02 02 •
3.

L.ldJECTIVES
MULTIPLY - THE PRODUCT OF THE MULTIPLIER ANO THE
M~LTIPLICAND REPLACES THE MULTIPLICAND IN THE
1ST OPERAND LOCAtION.
THE MULTIPLIER SIZE IS LIMITED TO 15 DIGITS
AND SIGN -- LENGTH CODE OF 7 IN L2.
ALSO, L2
MOST NUT BE LARGER THAN OR EQUAL TO Ll.
, THE MOLTI PLlCAN() MUST HAVE HIGH-OR()ER lEKO
BYlES EQUAL (0 OR GREATER THAN THE NUMBER OF
BYTES IN THE MULTIPLIER FIEL().
THE MAXIMUM PRODUCT SlZE IS 31 DIGITS. AT
LEAST ONE HIGH-OKDER DIGIT OF THE PRODUCT
FIELD IS ZERO.
- THE DIVI()END IS DIVIDED BY THE DIVISOR. THE
QUOTIENT AND THE REMAINDER REPLACE THE DIVIDEND
IN THE 1ST OPERAND LOCATION.
THE QUOTIENT FIELD IS PLACED IN THE LEFT
PURTION OF THE DIVIDEND FIELD. THE KtMAINDER
IS THE SAME SIZE AS THE DIVISOR AND OCCUPIES
THE LOW-ORDER BYTES OF THE DIVIDEND FIELD.
THE DIVISOR SIZE IS LIMITED TO 15 DIGITS AND
SIGN -- LENGTH CODE OF 1 IN L2. ALSO, LZ MUST
NUT BE LARGER THAN OR EQUAL TO Lt.

DIVIDE

PAGE

OESCR I PT ION

4.

DIVIDE OP

1.

2.

3.

THE ROUTINE CHECKS OPERAND SIlE AND SETS THE SIGN VALUE.
THEN, TWO COPltS OF THE MULTIPLIER OR OIVISCR ARE STORED.
4.

STRAIGHT COpy
SKbo/f:D CUPY

AUX STORAGE
FI ELO
0018-00lF
0038-00BF

POINTEK FOR
lOW-ORlJEM lHT E
aOBC
OOBE

TEST FOR ENOUGH ZEROES IN MULTIPLICAND FIELD.
SHIFT THE MOST SIGNIFICANT BYTE AND THE FOLLOWING
BYTES OF THE MULTIPLICAND TO THE HIGH-ORDER POSITIONS
OF THE MULTIPLICAND FIELD.
SUPPLY ZEROES FOR THt
VACAIED BYTES, REMUVE SIGN •
STARTING WITH THE LOW-ORDER, TEST EACH DIGIT OF
MULTIPLICAND.
TRUE ADf) IF UNDER 5, SUBTRACT IF OVER
4.
ENTER CALCULATE LOOP FOR EACH DIGIT. FOK THE 1ST
DIGIT, fHE STKAIGHT MULTIPLIER WITH 90 AS THE HIGHORDER BYTE IS TIC ADDED TO THE PRODUCT FIELD. THE 9
IS IN ALIGNMENT WITH THE TESTED MULTIPLlClIND DIGIT.
TIC ADD CYCLES ARIC CONTINUED UNTIL TEST DIGIT IS 0
FOR ADD OR 9 FOR SUBTRACT.
ALTERNlITE MULTIPLICAND DIGITS USE THE SKEI'IED MULTIPLIER WITH 09 AS THE HIGH-ORDER BYTE UNLESS THE TtST
DIGIT GOES TO 0 FOR ADD OR 9 FOR SUBTRACT. FOR THIS
CASE, THE i-lULTIPllER ISNOT SWITCHED.
()O SPECIAL SKEWED ADD IF NECESSARY, INSERT SIGN, AND
END THE OPERATION.

5.

DU A TRIAL SUBTRACT TO DETERMINE IF THE QUOTIENT AND
REMAINDER CAN BE CONTAINED IN THE DIVIDEND FIELD.
SKEi'lED DIVISOR IS USED. A CARRY OUT OF THE HIGH-ORDER
POSITION INDICATES A DIVIDE CHECK. IF DIVIDt CHECK
OCCURS, SKEWED DIVISOR IS ADDED BACK TO RESTORE TH~
DIVIDEND AND ROUTINE EXITS TO TAKE PROGRAM INTERRUPT.
FOR 1ST CALCULATE CYCLE, STRAIGHT DIVISOR WITH 90 AS
THE HIGH-ORDER BYTE IS ADDED TO THE DIVIDtNO. THE 90
IS IN ALIGNMENT WITH THE HIGH-DRDER DIVIDEND BYTE.
THE ADD CYCLES CONTINUE UNTIL DIGIT TO THE RIGHT OF
THE 9 GOES TO ZERO.
SKEWED DIVISOR WITH 09 AS THE H1GH-ORDER BYTE IS
SUBTRACTED FROM THE PREVIOUS RESULT WITH ALIGNMENT
SHIFTEC ONE DIGIT. SUBTRACT CYCLES CONTINUE UNTIL
DIGIT TO THE RIGHT OF THE 9 GOES TO NINE
ALTERNATE STRAIGHT AND SKEWED CYCLES ARE TAKEN WITH
DIVISOR SHIFTING ONE DIGIT FOR EACH CHANGE.
OPERATION ENDS WHEN THE CYCLE THAT INCLUDES THE
LEFTMOST POSITION OF THE DIVIDEND IS COMPLETE.
QUOTIENT SIGN IS INSERTED INTO lOW-ORDER 4 BITS OF
QUOTIENT. SIGN OF REMAINDER IS INSERTED INTO lOWORDER 4 BITS OF REMAiNDER.

ADDR

wORD

2582
2:.84
2586
2588
258A
2':>8C
258E
2590
2592
2594
2590
2598
2594
259C
259E
2.:>AO
25A2
25A4
hA6
2:.A8
2'JAA
2'JAC
2'JAE
2'.>80
2'.>82
25B4

Ela1
1445
CI0A
AE98
5515

2')C8
25CA
2,)(C
25CE
2500
2502
2504

71E3
EC/38
8DCO
5130
A4Et
5710
3415
A4EC
10CE
5580
3B83
3B15
7AE2
4CA6
3825
7Af2
5F3A
5fFB
7FAF
7FCA
5FF I
C946
573A
47F3
77Af
IFAA
17CA
51f5
C'139
IFAA
55E5
55FO
7EF 1
2002
llE9
70A"I
4206

2506
2508
2580

FOOL
8B82
A51C

25Bb

25BH
2'JBA
25BC
25BE
2':1CO
2':1C2
25C4
25Cb

25lC
25IE

'7AEE
C lA4

LABEl

SEQUENCE NO.
COMO
COMO
COMO
COMO
COMO
COMO
CDMD
CDMO
Cl)MO
COMO
COMO
COMO
COMO
CDMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMD
COMO
COMO
COMO
CDMO
CJMI)
C)MO
COMO
COMO
COMD
COMO
COMO
COMO
COMO
COMO
COMO
CDMO
COMO
CDMO
COMO
COMD
COMO
COMO
COMO
COMO
COMO
COMO
COMO

DOl
002
003
004
005
006
007
008
009
010

T
SSOPFC
NOFIlC
fLGEIlR
LENCHK

all

012
013
014
015
016
011
018

019
020
Oll
022
023
024
025
026
021
028

SMORE

029
030
031
032

on

034
035
036

SSKEW

037

038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053

*
SOUl
*
*
*
*

01 VIDE

NEXTSEQ

NEXTlABEl

STATEMENT

DEC I MAL MUll I PLY DIV I DE ROUT INES
BR IF So= 1
004 NOFILC
GO=GO*-K40
006 lEIliCHK
BR IF GI4=O
Bt<.
CICY 059 SPECHK
Ol=GIXL
Dl= DI-HO
BR IF HZNZ
005 flGERR
BAL
CCCM 056 LSAVE
ROB 01 V
BAL
203 SINS ET
ROB 01 U
GO=GOSK 10
BAL
203 SINSH
RS T S K=fC
r l=GIL
T l=T UK08
Tl=Tl$KlO
STH T OA,BC
P=T
T l=T UK20
STH T DA,BE
ROB HI V-I
Hl=HIH
HIC=Hl@TO+C
S TB H1 AS, P- I
HI=HIX
BR IF P14=0
036 SSKEW
RDB Dl V-I
Hl=DlXH+HIL
OIC=Ol@TO+C
STB HI AS, T-l
ST8 01 AS, P-l
Hl=OlXL
029 SMORE
BR IF P 14= 1
ST B HI AS, T-l
HO=GIXl
Hl=GlL
HO=HO-Hl+1
SET S3
UlC=U l'-HO +C
UOC=UO-TO+C
V=U

CLOAO=*E60, EC LEVEl=128211
COMMENTS

fIX ILC FOR EXECUTE
LENGTH CHECK OVER 7
CHECK IF
L2 LARGER
THAN Ll
READ 2NO OPRAND
GO SET THE SIGN VALUE
RE AD 1ST OPRAND
START WITH REMAINDER SIGN +
GO SET THE SIGN VALUE
RE SET S REG 0.1,2,),4,5
-BUILD THE
STRAIGHT AND SKEWED ADDRESSES
AND PUT THEM IN AUX
OOBC-S TRA IGH T
OOEE- SKE WED
-THIS STORES THE DIVISOR
?lIER IN AUX STRAIGHT AND
SKEWED
TAKE THIS BR IF 1 POSe FIELD

STORE LAS T SKE WED CHAR.
-THIS ADJUSTS THE ADDRESS 1 ST OP
TO THE lEFT MOST pas.

BREAK OUT
047 SOUT
BR If G01= 1
THE OP
BR
CODES
100 ~ULT PY
BR
052 DIVIDE
AT TH.1 S POI NT THE OIV IDE OPERATION
IS STARTED IT GOES BACK TO A COMMON
POINT WITH MULTIPLY TO SET THE RESUL T SIGN
213
056

DVLOOP
VAll OA

BAL
BR IF S4=0

GO SEE IF ANS. WILL FIT

PAGE

70

ADCR

wORD

2'>20

9254
BOIC
f5BO
1002
'iAFO
9254
2BB3
SCI0
56A2
5010
500B
1010
2993
5981
5004
1042
56E2
SAf2
5030
10Bf
F081
1030
A53E
7030
7E:A3
C4CF
9AEE
OO'W
ECBE
2040
5030
5D78
10SF
470B
7030
0186
A53C
CIAI
SCC2
2FC3
C958
IF6B
E450
3fl3
5730
67F5
7130
6443

<':ilL

2:>24
2526
2'>28
252A
z,,2C
L'>2E
2530
2532
2:>34
2536
2':>38
253A
253C
253E
2540
2:>42
2':>44
2':>4&
2':>48
254A
2':>4C
2'>00
2502
2504
b06
2508
250A
2':>OC
2'50E
2::>10
2512
2':> 14
2'516
2518
2::>LA
254E
2':>50
2':>52
2554
2556
2558
255A
255C
2S5E
2560
2562
2564

0882

BBCl

51lA

SEQUENCE NO.
COMD
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMD
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
CDMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO

054
055
056
057
058
059
060
061
062
063
064
065
066
061
068
069
010
071
012
013
014
075
016
011
018
019
080
OBI
082
083
OB4
085
OB6
OBl

LABEl

NEXTSEQ

NEXTLABH

OATEX?

CCOM 064
eeOM 011
062

LRST R
flGOEX
VAll Fl

214
CCOM 064

OVLOPB
lRSfR

BPSW 003

PROG

VALIDA

VALIFl

ENTYA
ENlYB
215

OVlOPC

077

OTHlOP

069

ENTYB

091
213

CHECK
OVlOOP

084

ARON

OBO
06B
054

CTAlOP
ENTY A
OAT EX I'

096

ARONB

09B

ARONC

OTHlOP
OJAlOP

ARON

OBB

OB9
090
091
092
093
094
095
096
091
098
099
100
101
102
103
104
105
106

CHECK

ARONB
ARONC

13B

MEND

Sf AT EMENT
BAl
BR
BR IF S 3=0
RST 5 K=90
BAl
BAL
Tl=OSKOB
BR
RDH 0 OA, AC
ROB PI 0
Pl=PlH
ST BPI 0
Il=OSK09
10= liX
U=U·l
RST S K=94
RDH 0 OAf BC
BAl
ROB PI V
PIC=PIGlIO+C
SR IF lZ=O
SfB PI V
BR
STB PI V
HO=HO-TO
BR IF l=O
BAl
I=PIllK90
BR IF HZNZ
SET S 5
ROB PI V
01=PIH
PIC=P liilll-tC
Pl=OlH+P lL
SfB PI V
BR IF 55:0
BR
BR IF S4= 1
ROH I' OA,B8
Hl=O$KOC
BR IF P14=O
Hl=HloK06
BR If G02: 1
Hl:Hl$KOl
ROB 01 V
Dl:OUHl
SfB 01 V
GO=GO+GO
BR

CLOAO=*E60. EC LE VfL=12B211
COMMENTS
THIS RESTORES LOCAL STORAGE AND
fLAGS A DATA EXCEPTION I NTERUPT
IF 53=1 A DIVIDE EXCEPTION EXIST
ADO BACK IN
THE VALUE
SUB
AND FLAG
OIV. E XC EP. IN TE R.
GE J
RID
Of
SIGN

RESET 5 REG 0,3,5
GET THE STRAIGHT ADDRESS

THIS
SETS
THE
QUO

SIGN

*
*

. MULTPY

ROB 01 U-l

CHECK

PAGE

71

ADOK

WORD

OB84
OB86
OB88
088A
OB8C
OB8E
OB90
0892
01394
013 <;6
01398
OB9A
Od9C
OB9E
OBAO
OBA2
08A4
013A6
OBA8
OBAA
OBAC
OBAE
OSBO
OBB2
OB84
ObB6
OBB8
OSBA
OBBC
OSBE
OBeo
OBC2
OBC4
OdCo
OBC8
OdeA
OBCC
OBCE
OBOO
01302
OB04
OB06
OBD8
OB80
316'
31BE
31CO
31C2
3lC4

4317
2FFF
f483
5004
5224
5EF9
2807
E5'i1
2040
0004
l1AF
5130
01A 1
711B
783B
2fFf
C498
5006
?226
01C3
5776
1110
77AF
CISI
E5C2
B lI:~C
OB90
EOC2
4086
1002
9AFO
54F9
9254
27(3
C94C
1766
Ef51
3113
5f 10
6F15
7flO
2A07
A80E
A520
2040
4820
51B9
C5C6
CB9f
oe8E
OlOA
EOEE
7SlA

31Cb

31CS
ECA
31CC

SEQUENCE NO.
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COHO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMu
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO

LABEL

107
108
109
110

NEXTlABEL

STATEMENT

150

EREXCP N

106

MULT p'f

116

MNZERO

BR If 01=NZ
Hl=H1"KfF
BR If AC=l
U=U+1
V=V"l
H1=HO
Tl=O
8R If S2= 1
SET S5
RST S2
0IC=01@TO+C
ROB 01 V
BRIFS5=l
STB 01 U"1
STB Tl V.. 1
H1=H1t-KFF
BR IF ZNl
U=U-l
V=V-l
BR If 55= 1
OL=OlH
STB 01 U
0IC=OUTO+C
BR If S4=1
BR If S2-=0
6R
Z=T lcK90
BR IF HZNl
U= I
RST S K=90
BAL
Hl=GO
BAl
01=OSKOC
BR IF P14:0
01:0icK06
BR IF H12= 1
Ol=Ol$KOI
ROB HI U
Hl=HUOl
Sf A HI U
TO=O
BR
BR
SET S5
I=V
T1=01
Bf< IF 50=0
l=T IIJK99
RSr S K=78
BR IF 55=0
Bf< IF HlN Z
5 T ~ T 1 U-1

NEXTSEQ

III
112
113

114
115
116
H7
118
119
120
121
122
123
124
125
126
127
128
129
130

HNIERO
MlUPA
HZER

117

MLUPA

138

MEND

150
13B
151

EREXCP 0
MENO
MST ART

DB

MEND

214

OVlOPB

HZER

131
132

133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
15.3
154
155
156
157
158
159

121

ENOl NG

MENO

MA SCI

CCOM 064

lRSTR

143

/oIASCI

145

"PLUS

MPLUS

EREXCP 0
MSTART
MS6
MSJKA

CICY 004
054

CHECK
OATEXP

156

MSA

114
166

MSLOW
MSC

MSA
MSHI
MSSTOR

CLOAO=*E60, EC LE Vel = 128211
COMMENTS
fiELD FOR
ENOUGH ZERO S

STORE THE
1ST
OP
SHifTED
TO
LEFT

RID OG
SIGN

SET THE
SIGN
fOR
REMAIN
ANO
PROOUC T

THIS
DOES
lHE
AC TUAl
MUl TIPL Y
SO I-SUB
0- AOO
S5 G-lOW HAlf

PAGE

72

AODR

IIIORD

31CE
31. DO
3102

5886
5710
0040
2EFF
C4CO

31 D4

3106
3108
3lE:E
31FO
31F2
31F4
31Fb
31F8
3lFA
31fC
31DA
310C
"j lDE
31EO
3H2
HE4
3lEb
31E8
3lEA
3lEC
274A
214C
2/4E
2750
27 ':>2
2754
2756
2758
nSA
LI5C

775E
2760
2762
1.,64

2766
27b8

27M

216C
n6E

24EC
24H
24FO
24F2
24f4
24Fb

24F8
24fA
24fC

8l:lB8

2040
2A <; 5
,)bE2
57C9
10ec
CBB9
F4EB
A74C
fOCB
5BBD
2A93
5bF 2

57C9
lOCO
CBB 1
EOED
3002
A14C
5C 79
4286
5030
5FbA
7UFF
703A
C34F
7BAF
oe02
C5E2
GB9F
2002
DIE8
to eCA
B1CC
FOCA
5710
47BB
B1C2
5113
0169
f4F5
A520
f17C
C719
F4FO
1430
128E

SEQUENCE NU.
COMO
COMO
COMO
CDMD
COMO
COMO
COMO
CO'lO
COMO
COMO
COMO
COM!)
COMO
COMU
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMD
COMO
CDMD
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
CDMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO

LABEL

NEXTSEQ

NEXTLAI:lEl

160

161
162
163
164
165

153
133

MSB
ENDING

182
185
158

SUBCYC
CALLOP
MSHI

183

ADDCYC

185

CALLOP

MSC

16b

167
168
169
170
171

172
173

174
17')
176
177
176

MSlOW

179

180
181
182
183
184
185
186
187

SUBC YC
AODC YC
MSJJ(
CALLOP
MSClOP

188

189
190
191

18b

MSClOP

196

MSJA

199
184
159
184

MSKY
MSJK
MSSTOI{
MSJK

154

MSJKA

192

193
194
195
196
197
198
199
200
201
202
203
204
20':>
206
207
208
209
210
211
212

MSJA
MSKY

SINSEl

SIGVAl

EXIT
*

207
0':>4
211

SIGVAl
OATEXP
EXIT

211

EX IT

STAT EMENT
1=1-1
ROB 01 U
RS T S5
HO=HOi-KFF
BR IF lNl
BI<.
SET S5
TO=OSK90
ROH 0 OA,BC
PO=Ol
RST SO
Z=T I.KBO
BR IF AC= 1
BI{
BR IF lZ=O
T l=T II
TO=OSK09
RDH 0 DA,BE
PO=Dl
RST SO
l=T 1i-KOB
BR IF HZ:O
SET S K=90
BR
Ol=PO
V= I
ROB Pl V
ROB HI AS,O-l
P 1 C= P l@ Hli-C
STB PI V-I
BR IF 014= 1
T IC=T l@TO+C
RST S3
BR IF 50=0
Z=T lcK99
SET S3
BR IF S5=0
BR If HINZ
BR
I:lR I F LIN Z
ROB 01 U
T l=OlHi-r Il
BR
Ol=OlXH
Z=OUK60
BR IF AC= 1
BR
BR IF 013=0
Z= Oli-KlO
BR If AC= 1
GO=GOcK30
RTN

CLOAO=*E60, EC LEVEl=128211
COMMENTS
I-HI HALF
HO=NUMBER OF BYTE S

CAlCUlA TE
lOOP

SIGN CHECK AND SET ROU
GO I S USED TO PUT THE SIGNS
BRANCH TO DATA EXCEPTION
1l01-MINUS
1010- PLUS
1011- MINUS
IliD-PlUS
llll-PlUS
1100- PLUS
GO BIT 2 O=ANS MINUS I-PLS
GO B.OT 3 O=REM NEG I-PlUS

PAGE

73

AlJ UK

WOKO

lA EE
lA fO

30()2
56F2
4206
5030
5f6A
70FF
703A
C375
128E

1M2

lA F4
lAf6
lAf tl
lllfA
1l\FC
lAFI:

CUMO
COMO
COMD
COMO
CUMO
COMO
COMO
COMO
CUMO
COMO
COMO
CUMO
COMO
COMO
COMO
COMO
COMO
COMO
COMO
CUMO
COMD
COMO
COMO
COMO
COMO
COMO
COMD
COMO
COMO
COMO
COMO
CDMO
COMO
COMO
CDHO
COHO
COMO
COMO
COMO
COMO
COMO

002
004
005
006
029
036
047
052
054
056
062
068
069
077

080
084
091
096
098
106
116
117
121
133

138
143
145

150
151
153
154
156
158
159
166
174
l82
183
184
185

186

SE:QUI:NCl NO.
COMO
COMO
C[)MO
COMO
COMO
CDMO
COMO
CUMU
COMO

CICY
COMO
CJMO
CuMO
COMO
COMO
COMO
C)MO
COMO
COMO
C )MD
CtlMO
COMO
COMO
CJMO
COMO
COMO
CJMO
COMO
COMO
CIJMO
COMO
COMO
COMO
COMO
CuMO
CUMO
COMO
COMO
CUMO
C')MO
CtlMO
CIJMO
COHO
CDMO
CDMO
COMO
COMO
COMO
COMO
COMO

253
oe2
008
OC4
035
028
045
047
0<;1
053
0,6
0'10
016
014
069

213
214
215
216
217

LABEL

NEXTSEQ

V=U

218

216

COMO 206

oel
079
0<;4
0<;6
046
114
U3
119
it5
lel
141
143
1(7
132
164
2C2
154
174
1'18
158
157
172
lEi
1 <; 7
173

190

COMO 109

COMO 126
COMO 130

COMO 199
COHO 183

COMO 131

SET S 0.3 FOR SUB CYCLE
GE T THE SKI: WI: 0 ADORE SS
SET UP V FOR lOOP
AC TUAl lOOP
FOR DOING
THE ADO OR
SUB FUNC liON

ROB P 1 V
ROB HI AS.O-l
PI C= P lal H1 +C
S T B PI V-I
BR IF 014.: 1
AlGOP
RTN
**********************************
* CROSS REFERENCE FOR (SECT COMO *
**********************************

CICY 254

COMO 150

ClOAO,.*E60, EC lEVEl:128211
COMMENTS

STATEMENT
SET S K=90
ROH o OA,BE

OVlOOP
OVlOPB
OVlOPC
AlOOP

219
220
221

NEXT LABEl

COMO 134

PAGE

74

CLOAO=*E60, EC LEVEl=128211

COMO
COM 0
COMO
COMO
COMO
COMO
COMO
COMO
COMO

196
199

203
207
211
213
214
215
216

COMO
COMO
CUMO
CDMO
COMO
COMO
COMO
COMO
COMD

1 <;3
196
011
205
2eT
052
058
071
220

***********************************
CROSS REFERENCE FOR CSECT COMO *
**********************************
COMO 014
COMO 209
COMO 080
COMO 131

CNVR 070

PAGE

75

CLOAO=*E60, EC LEVEL=128211

CDV 0

**

**

**

**

**

**

ENT~Y
UPERATION
BYTE 1
BYTE 2
BYTE j
BYTE 4
¥--------*------------------*--------*--------*--------*--------*
" 1'<-«'1'10 * BINARY DIvIDE
*
10
* Rl R2 *
*
*
~ k(OP5D * BINARY DIviDE
*
50
* Rl X2 * B2 02 *
D2
*
0**9*************************************************************

!Jt3JECllVES
THE DIVIDEND ( 1 S T OPERANDI IS DIVIDED BY THE
DIVISOR ( 2ND OPERAND). THE QUOTIENT AND
REMAINDER ARE PLACED IN THE FIRST OPERAND LOCAr ION.
lHt DIVIOENU I S A 64 BIT SI GNED I N1EGER THAT MUST
BE LOCATEll IN AN l::: VE N-Oi>D PAIR OF GENERAL PURPOSE
REG I SfER S. THE D I VI SOR IS A 32 BIT SIGNED INTEGER.
H'E QUOTIt:NT SIGN 1 S DETERMiNED BY THE RULES OF
ALGEBRA.
4uDK

wURD

1 'Iftl
1 'i r,'\

t 1 F l)

1'I FC
19H:
2.:::1 H

nLA
ille

l! It
2u'0

2!2l
n24
1.226

2228
nZA

222C
,U2t,

2.::30
2232
2234
2236
2238
ZZ3A
223C

3485
H37C
A21E
5tJli.l
5£:1 0
S?BB
F :22

AE::S8
SUC2
54A 8
5HAA
3d15
52A8
50AA
Ct34
8AEO
31313
C43A
<;1U 8
3B23
4C86
30e2

SEQUENCE Nt....
COVJ
COIID
CD Vl)
ell VO
CO'vO
covo
CiJ "lJ

ell vLl

001
002
OC3
004
005
V06
001

LABEL
T
I<

ROPIO

W'

~LAB

KXlJP5D

NEXT LABel

MEff
(i C(

MEETA

Oll

,..Hf A

th'J

:,PlCHt<
L:, AV E A

CC(;M 0':>7

BR
bR

IF

COMMENTS

READ
OUT

01 V

G 13=0

BAt

kDH G AS,T .2
RDti I AS,T-2

013
011.

015
01b

011

iJ~0

018
Ol9
020
021

CCOM 016

I'L E. 'I

,

COMPL

T l=T aKlO
RDrl V AS,T+2
KDH lJ AS, T- 2
tlR If 000=0

BAL
T l=T l$KOl

MEETB

022

023
024

READOUT THE DIVISOR
CHECI< FOR EVEN DIVIDEND ADDRESS
IF ODD ADDRESS, FLAG SPECIFICATION EXCEPTION
IN ClCY ROUTINE AND GO STORE INTERRUPT CODE
IN PSW.
READOUT THE DIVIDEND
IF DIVIDEND MINUS. COMPLEMENT IT.
IF DIVISOR MINUS, COMPLEMENT IT.
00 A TRIAL SUBTRACT
If QUOTIENT Will FIT, DO THE DIVIDE.
IF QUOTlENT TOO LARGE, FLAG A DIVIDE fXCEPTION
AND GO TO STORE INTERRUPT CODE IN PSW.
DO THE SUBTRACl
THE QUOTIENT AND REMAINDER ARE PLACED IN THE
fIRST OPERAND LOCATION.

ft=G1H

CUIll) 010

Oll
012

EXECUT ION

STATEMENT

B!r\AKY DIViDE RUUT INES
004
I,E .. t AB
13K If Sb=1
G()=GO$KflO
CCOM 029 h'ET
BAt
00')
MEET
BR
RDH [) U+2
RDH H U

OOti

Ct)IJi) 00'1
ClJliD
CD Vi)
CUIID
CD \if)
CD VD
COIIO
CO liD
CDVU
CDvD
CDIIU
COVD
CDvO
COIIO
CDIID

NEX TSEQ

MEEW

023
0813

MEtT [)
CDMDVD

16

Ut S CRIP T J VET EXT

*****************************************************************

**

PAGE

BR IF GOO=O
SAL
T l=f UK02
p= I

SET S

1<=90

READ
OUT
THE
DVD
MINUS
DIV
MINUS
0110

Sf lUP
AND 00

ADDR

IiORD

223E
2240
2242
2244
2246
2248
224A
224C
224E
2250

7DFD
7CED
4C46
1070
7C60
F5CC
AEFC
4C52
1 DC E
A6F8
e25A
A6F6
3002
7 'if- D
18ED

U52
0258
02SA
025C
025E
0260
0262
0264
026b
0268
026A
26F 6
2bFB
2bFA
20fC
2bFE

2700
n02
270 ..
2106
270S
nOA

noc
270E

271Q
n12
2714
2116
271B
271A
271C
271E
2720
2122
2124
2726
2728
212A
212C
27 2E
2130
2132
213't

7510
7460
F5D9
A6F6
1002
1l25C
2C IB
6110
60GO
6BO
622D
ECOD
69<;0
b880
6550
6440
128E
C418
1002
7 256
AB62

tID8

l-'DA
l1DC
l7DE
l7EO
l7E2
l7H
11E6
tIES
l1EA
2EfC
2EFE

17EC
tIEE
l7fO
l7f2
l7Ftt
l7F6
l7F8
l1FA
l7fC

covo
COVO
CDVO
COVO
COVO
COVO
COVD
COVO
CDVO
COVO
COVO
COVO
COVO
CDVD
COVO
COVO
(OVO
CDVO
COVO

SEQUENCE NO.

2(;02

F5E3
0008

3002
7lIB
700B
1338
722B
128E

002
004
006
009
011
020
023

032
036
037
038
046
047
057
063
069
070
072
073

CICY
COVO
CICY
COVO
COVO
COVO
COVO
COVO
covo
COVO
covo
COVO
COVO
COVO
COVO
COVO
COVO
Cf)VO
COVO

COVO
COVO
covo
covo
COVO
CUIIO
COVO
COVO
CO liD
CO 110
COIIO
covo
COVO
CUVO
covo
COVO
CDVD
COVO
COVO
COVO
covo
COVO
COVO
COVO
COVO
COVO
COVO
CO\/O
COVO
COVO
COVO

018
019
080
081
082

LABEL
NXTB
NXTF
F I NI SH

083

085
086

CCOM 065
CICY 004

087

OB8

COMOVO

089

090
091
092

093
09tt
095
096
091
098
099
100
101
102
103

CMOVA

Dl VCHK

079
0t:5
070
018

CCOM 065
CNVR 120

COMR
393
COMQUO

104

105
106
107
108

030

057

013
069

084

HO
002
1 '>2
OCS
OC9
017
020

042
035
045
036
034
051

NEXTSEQ

COVO 043

NHT LABEl

STAT EMENT

CLOAO:*E60. EC LEVEl=128211
COMMENTS

BR If P07=i
BR IF PIO=l
Tl=TlH
STH V AS, T +2
STH U AS.T-l
Tl=Tl*-KIO
STH G AS.T+l
5TH 1 AS,T-2
BAl
lRSTRA
BR
CHECK
COMP
SET 5 K=lO
U1C-=0-U1+C
OVO
UOC=O-UO+C
V1C=0-V l+C
voc-=O-VO+C
11 C:O-11+C
10C=0-10+C
GIC=O-Gl+C
GOC=O-GO+C
RTN
LKSTRA
BAl
GO FLAG 0.1 VIDE CHEC K AND I NTRPT
BR
LABl4
SET S K= 10
BR IF S 3= 1
CMOVA
RST S 1
SET S K=90
U1C=0-U1+C
UOC=O-UO+C
VlC=O-V I+C
VOC=O-VO+C
RTN
*************.*.******************
* CROSS REfERENCE FOR CSECT COVO *
**********************************
NXTC
LABElQ

PAGE

78

ClO.<\O=*E60, EC LEVEl=128211

**********************************

*
078
079
080
088
093
cova 098
CDVa 100
CUV(} 102
C[)VJ
COVO
COVtJ
C1)VD
COVO

COVO
COVO
C)VO
COVO
CJVD
CJVO

cova

Ott>

COVO 068

012
0"15

021
101
031
at7

COVO 073

COVO 076

COVO 069
Cl)VO 071

CRUSS KtFERENCE FOR CSECT COVO

*

**********************************

COVO 077

PAGE

79

CLOAD=*E60. EC LEVEL=1282 11

CfAD

DeSCRIPTIVE

OBJECTIVES

*************************************.**.*****.*******************
*
UP CODE TYPE
* BYTE 1 . BYTE 2 * BYTE 3 . BYTE 4 •
****.**********************.**.***** •• ** •• ****.**.*.** •• * •••• *.* ••
* RR COMPARE (LONG)
*
29
• Rl
R2 *
*
*
*------------------------*---------*---------*---------*---------.
* RK AOD NURM. (LUNG) * 2A
* Rl
R2 *
*
*
$------------------------*---------*---------*---------*---------*
* RR SUB. NORM. 'LDNG)
*
2B
* Rl
R2 *
*
*
*------------------------.---------*---------*---------*---------*
* RR ADO UNORf-\. (LONG'
*
2E
* Rl
R2 *
*
*
*------------------------*---------*---------*---------*---------*
* RR SUB UNOI'M. (UJNGI * 2F
Rl
R2
*
*
*------------------------*---------*---------*---------*---------*
• RR COMPARE (SHORT)
*
39
* Rl
R2 *
*
•
*------------------------*---------*---------*---------*---------*
* RR ADO NORM. «SHORf)
*
3A
* Rl
R2 *
*
*
.------------------------*---------.---------*---------.---------*
* RR SUB NORM. (SHORTl
•
38
* Rl
R2 *
•
*
*------------------------*---------*---------*---------*---------*
* RR AOO UNORM. (SHORH *
3E
* Rl
R2 *
*
*
*------------------------*---------.---------*---------*---------*
* RR SUB UNURM. t SHORT).
3F
* Rl
R2 *
*
*
*------------------------*---------.---------*---------*---------*
* RX CCMPARE (LONG)
*
69
• Rl
X2 * B2
02 *
02
*
*------------------------*---------.--------*--------*---------*
* RX AOD NORM. /lUNG)
*
bA
* Rl
X2 * B2
D2 *
02
•
*------------------------*--------*-------*---------*---------.
* HX SUB NURM. {UJNGJ * 6B
• Rl
X2 * 82
D2 *
02
•
*------------------------.---------.---------*---------*---------.
* RX ADD UNORM. (LONG)
*
bE
• Rl
X2 * B2
D2 *
02
•
*------------------------*---------*---------*---------*---------.
* RX SUB UNOKM. (LONG)
•
6F
• Rl
X2 * B2
02 *
02
*
1<--_______ *______

*

*________________________ *_________
*

RX COMPARE (SHORTt

*

79

._* __ -----.

* RL

X2 * 82

Dl *

02

•

*------------------------.---------.---------.---------*---------.
* RX AUD NORM. !SHORT)
*
7A
• R2
X2 * Bl
02 *
02
*
*------------------------*---------$---------*---------*---------*
* RX SUB NORM. (SHORT)
•
7B
* R2
X2 * B2
02 *
02
*
*------------------------.---------.---------.---------*---------*
* KX AUD UNOIHoI. (SHORTI.
1E
* Rl
X2 * B2
02 *
02
•
*------------------------*---------*---------*---------*---------*
* RX SUd UNORM. 'SHORf.) * 7f
* Rl
X2 * B2
02
02
*
*------------------------*---------*---------*---------*---------*

*

80

TEXT

ENTKY IS MADE TO THE -CfAD- ROUTINE FRO~ fLOATING
POINT I-CYCLES -CFCY-. THE NORMALIZED AND UNNORMALIZED
ADD OR SUBTRACT, AND COMPARE OP CODES LISTED BELOW ARE
HANDLEO BY THIS ROUTINE.

*

PAGE

COMPARE UPS THE fiRST OPERAND IS COMPARED WITH
THE SECOND OPERAND. THE CONDITION CODE
IS SET TO INDICATE THE RESULT OF THE
COMPARE. COMPARISON TAKES INTO ACCOUNT
THE SIGN, FRACTION, AND EXPONENT DF
EACH OPERAND.
ADO

OP S

THE SECOND OPERAND IS ADDEO TO THE
FIRST OPERAND, AND THE SUM IS PLACED
IN THE FIRST OPERAND LOCATION. FOR
SHORT OP FORMATS, THE LOW ORDER HALVES
OF THE FLOATING POINT REGISTERS ARE
NOT USED.
CHARACTERISTICS ARE AlIGNfD BEFORE
ADDITION TAKES PLACE.

SUBTRACT OPS- THE SECOND OPERAND IS SUBTRACTED
FROM THE FIRST OPERAND, AND THE
DIFFERENCE IS PLACED IN THE fiRST
OPERAND LOCATION. FOR SHCRT OP FORMATS
THE LOW ORDER HALVES OF THE FLOATING
POINT REGISTERS ARE NOT USED.
CHARACTERISTICS ARE ALIGNED BEFORE
SUBTRACTION TAKES PLACE.
CONOI TlON CODES
COMPARE

O=OPERANDS ARE EQUAL
l=fIRST OPERAND IS lOW
2=FIRST OPERAND IS HIGH

ADO
AND
SUB TRAC T

O=RESULT
l=RESUlT
2=RESUlT
3=RESULT

FRACTION IS ZERO
IS lESS THAN ZERO
IS GREATER THAN ZERO
EXPONENT OVERflOWS

ADOK

WORD

0912
0914
0976
097B
0'l7A
091C
097E
0980
0982
0984

3B35
'lADO
5E:H
5AE:2
8212
2COl
5E69
5E09
2040
7671

0986
0988
098A
i.J98C
09BE
0990

E48E
F491
56C9
8<;<;6
F48B
0040

0992
0994
0996
0998
099A
099C
i.J99E
U9AO
09A2
09A4
09Ab
09A8
09AA
OQAC
09AE
09BO
J9B2
\)9B4
09B6
0968
096A
096C
09BE
09CO
09C2
09C4
09C6
09C8
09CA

57E'i
7C61
FOIA
lC80
CClE
3002
IC e5
ECA5
2CF3
fOBf
DIB6
3B35
8212
A656
9ADO
5AE2
8212
89CO
1ES5
C03C
3E85
A656
0040
3B35
0008

DICB
75AD
8<:iCE
C5C6

SEQUENCE NO.
CFAD
CFAD
CFAD
CFAD
CFAD
CFAD
CFAD
CFAD
CFAD
CFAD
CFAD
CFAD
CFAD
CFAll
CFAD
CFAD
CfAD
CFA!)
CFAD
CFAD
CFAD
CFAD
CFAD
CFAD
CFAD
CFA!)
CFAD
CFAD
CFAD
CfAD
CFAD
CFAD
CFAO
CFAD
CFAD
CFAD
CfAD
CFAD
CFAD
CFAD
CFAD
CFAO
CFAD
CFAD
CFAD
CFAD
CfAD
CFAD
CFAD
CFAD
CFAD
CFAD
CFAO

001
002
003
004
005
006
007
OOB
009
010
Oll
012
013
014
015
016
017
018
019
020
02l
022
023
024
025
026
021
028
029
030
O:H

on

033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053

LABEL
T
*
*
*
*
ASEQ
SCAD

NEXTSEQ

NEXTlABEL

AOD,SUBJRACr,COMPARE

AL01=12
CFca 078

STOKE2

CFCO 090

RDOPER

022
023

NOTOVF
NOTI Be

021
020

TCCTRL
HAVlSC

TCC TRl

029

THISAD

THISAO

031

TRUE

034

SPEEDY

047
043

NOSHIF
SHIFRI

CFCO 090
CFCO 001
CFCO 018

ROOPER
SHlfR4
STORE2

CFCO 090
048

ROOPER
ADO

046

DES ADD

CfCO 001

SHIFR4

053

R2GUAR

0.55
051

CHKNOR
R2TRUE

*
HAViBC
NOroVF
NOTIBC
*

TRUE
SPEED Y

SHI FRI
OESADD
NOSHlf
ADD
R2TRUE
R2GUAR

STATEMENT

ClOAD:*E60, EC lEVEL=128211
COMMENTS
FLOATING POINT

Tl=Tl$K30 ** T=ADD OF SAVE AREA-38 OR 78 IN AUX
SAL
SA VE 2ND OPERAND
Dl;HO
SAVE R2 EXPONENT
GET R 1 ADDRESS
RDH T CA,BC
GE r R 1 OPERAND
BAL
PO=O
DO:HO
SAVE Rl EXP
SAVE Rl EXP FOR ORIG SIGN
Pl=HO
SET S5 ** S5 WIll 8E Rsr IF Rl MUST BE RIGHT SHIFT
SUBTRACT R1EXP-R2EXP
00=00-01 +1
NO lSC IND. Rl MUST SHifT DO HAS COUNT
BR If NOVFL
BR IF AC= 1
OVFL I S ON
PO=DO ** SHIFT COUNT TRUE FORM TO PO
BR
BR IF AC= 1
RST S5 ** NO ISC R 1 IS SMALL-MUST SHIFT
R2 IS RES EXP MOVE R2 EXP TO Rl OPERAND
HO=Dl
PO:PO-OO+l ** SHIFT COUNT IS IN COMP. MUST RECOMP
BR IF G01=0
BR IF ADD COMP CTRL IS OK
SUB,COMP-HUsr INVERT TIC BI T
PO=POaK80
BR IF TRUE
BR IF POO=O
SET S K=90
** SET COMP CTRl AND CARRY
REMOVE SIGN FROM SHIFT COUNT
PO:PO*-K80
BR IF HZ:O
BR IF NO HI COUNT ALIGNMENT
USE COUNT Of 15 TO ZERO OUT REG
PO=OSKOF
BR IF LZ=O
BR IF EXPONENTS ARE EQUAL
BR I f S5=0
BR IF R1 MUST SHIF T
T= R2 SAVE
T l=T UK30
GET R2
BAl
BAl
PUT SHIFTED R2 BACK I N SAVE
BAL
RDH T DA,BC
GET Rl ADO T:OOXB
BAL
BR
MAKE RESULT SIGN +
HO=HO*-K80
BR If PIO=O
BR If DRIG SIGN + SIGN IS OK
HO=HOSK80
ORIG WAS - MAKE RES GO SHIFT Rl RIGHT
BAL
RST S5 ** NO SHlfT RSI S5 FOR GUARD DIGIT CTRl
Tl=Tl$K30
T= 38 OR 78 =R2 SAVE
FOR GUARD SIGNlf. TEST
RST S 1
6R IF S5= 1
SR I F GUARD I S R2
GIC=GUTO+C
DO stG TEST ON Rl
BR
BR IF SO=O
0
TRUE ADO

PAGE

81

MH;R

WURD

O~CC

7556
0052
OOOd
A104
5AE2
C5EE
F5DE
0002
89EE
lE8D
E070
0008
2002
755B
006C
00C8
93t:4
E07F
9258
05F"

1)9CE
09DO
0902
0904
0906
0908
090A
090C
J9UE
09EO
09E2
09E4
09E6
09ES
09EA
09EC
09EE
09FO
J9F2
09f4
u9f6

ABDC

09F8
09FA
,NfC
09fE

CE70
ACA4
A914
F5A9

OAOO
OA02
vA04
OA06
OA08
OAOA
OAOC

5(C2
D5CA
0043
OFf 3
C4C2
AIE4
2EFF
E496
F499
2501
8A06
F493
ED iF

DADE

OA 10
OA12
OAl4
0A16
OAlS

f~f9

OAlA
OAlC
OAIE
OA20
OA22
OA24
OA26
OA28

2C07
B260
2080
lE8D
2703
25(7
8AC6
2A13

OA2A

2e13

LABE: L

SEQUENCE NU.
CFAD
CfAU
CFAD
CFAu
CfAD
CfAD
CfAD
CFAD
CFAO
CfAD
CFAD
CfAO
CfAD
CFAO
CfAD
(fAD
CfAO
(fAD
CFAD
CFAD
CFAD
CFAD
CF AD
CFAO
CfAD
CFAO
CfAD
CFAO
CFAD
CFAD
CFAD
CFAD
CFAO
CFAO
CFAU
CFAD
CFAD
CFAD
CFAD
CFAD
CFAD
CFAD
CFAD
CFAO
CFAD
CFAD
CFAD
CFAO
eFAO
CFAO
eFAD
(FAD
CFAD

NEXTSEQ

054
CHKNOR

05~

056
057
058
059
060
061
062
063
064
065
066
067
068
069
070
071
072
073
074
075
076
017
016
079
080
081
082
083
084
085
086
087
088
089
090
091
092
093
094
095
096
097
098
099
100
101
102
103
104
105
106

NORM

057

NEXTlABEl
NORM

CFCO 120

COMPUT

011
063

TCOMPU
NOCARY

071

TCCMPU

072

ePfIN

070

SAVSU;

CFCO 103
080
ceOM 066
017
077
CICY 003

RECOMP
NOTCP
lRSTRB
COI'INI
COMNI
CHECKX

079
CLOG 052
CLOG 082
104

COMPNE
OP95A
SETNI
FRACOV

123

FRAClO
UNOREN

NoeAR Y

SAVSIG
TCOMPU
CPFI N

*COMNI
COMPNE
NOTCP
*

118

CONOKM
CFCO 034

UNOREN
SHIFl4

093
094

NOOVER
UNOERF

085
091
099

CGNORM
HAIBe
TAKE I N

118

HA1BC
NOOVER
UNDERF
*

*
CFHA 029

01 VNOI

085

CONORM

TAKEIN

FRAeov

*

STATEMENT

ClOAO=*E60, EC lEVEl=128211
COMMENTS

R2 GUARD COMP
GIC=0-G1+C
BR IF G05=0
NOT TESTED FOR SIGNlfl.
RST S 1
** UNORMALllED-GUARD
GO AOO,S,C RUR2
BAL
GET Rl ADDRESS
RDH T OA,SC
BR IF TRUE COMPUTE
DR IF SO=O
CUMPLIMENT -CHECK CARRY
BR IF S3=0
RST S3
ALL OK RESUll (S TRUE FORM
BR
INV SIGN-eOMP OP -MUST RECOMP
HO=HOllK80
BR IF COMPARE
BR IF G06",0
RST S1 FOR RES CHECK OF COMP
RST S 1
COMP GUARD
SET S3
GlC=O-Gl+C
BR IF G05:0
BR IF NORMAL. SA VE GUARD SIGNIF.
UNaRM. RST SIG. TEST BIT
RST S 1
BAl
BR IF G06=1
BR IF ADO OR SUB
BAL
SET
BR If S 1= 1
BR IF OVERFLOW ON CMP.--NOT-O
BR IF S3= 1
COND
BR
** RES =0
CODE
BR IF NEG
BR If HOO= 1
SET CC 2
BR
SE T CC 1
BR
BR IF CARR RE S NDT 0
BR IF S 3"'1
FRACTION MUST SHIFf RIGHT 4
RE STORE P
ROH P DA t S8
GO CHECK SIG MASK
BR IF S 1=0
BR IF G05= 1
creCK HI DIGI T FOR NORMALlII NG
I=Hl*-KOF
BR IF NO NORMAl·1 ZE REQUIREO
BR IF INZ
BAl
DECREMENT EXPONENT
HO=HO+KFF
BR IF NOVFL
BR If AC= 1
Gl=O ** ZERO GUARD-HAilE ISC NO UNDERFLOW
BR
BR IF AC= 1
EXPONENT HAS UNDERFlOWED
BR IF P12=1
IF UNDF IS MASKED RESUlT [S 0'0 OUT
IF NOT MASKED CONT NORM. BUT TAKE INTER.
SET CCO
PO=O
UNDERFLOW BUT NO INT,GO STORE O,RESf I,GO ICye
BR
REMEMBER INT
SET **
S4
INlltRT SIGN
HO=HOllK80
UNDERFLOW INT CODE
Dl=OSKOD
ZERO OUT GUARD
Gl=O
CONTINUE NORMALIZING
BR
FRAC.HAS OVERF. INSER T 01 FOR
rO=OSKOl
RIGHT SHIFT
SET SHIFT COUNT =1
PO=OSK01

PAGE

82

ADOR

wORD

OA2G
0A2E
JUO
0A32
OA 34
OA36
OA 38
OA3A
OA 3C
lJA3E
0A40
0A42
JA44
0A46
OA48

A656
5CC2
2A07
2E1B
E4BB
F4BD
8A42
f4B9
11':80

21C3
2e80
2C25
CE48
Ie 7D

B266

OA4A
OA4C
OA4E
OA50
llA52
OA54
OA56
OA58
vA5A
OA5C

CFAD
CfAO
CFAD
CfAD
CFAD
CFAD
CFAD
CFAD
CFAD
CFAD
CFAD
CFAD
CFAD
CFAD
CFAD
CFAD
CFAD
CFAD
CFAD
CfAD
CFAD
CFAD
CFAD

fDltF
2EOl
lEa 5
9ADO
925A
2C()1
F05B
A80E
lBE3
9C10

007
020
022
023
027
029
031
034
043
046
047
048
051
053
055
057
063
070
011
012
017
079
080

SEQUENCE NO.
CfAJ
GfAD
CfAO
GfAD
CfAD
CFAD
CFAD
CfAD
GFAD
CFAD
CfAD
CFAD
CFAD
CFAD
CFAD
CFAD
CFAD
CFAD
CFAD
CFAD
CfAD
CFAD
CFAD
CFAD
CFAD
CFAD
CFAD

CFCY
CfAD
CFAD
CfAD
CFAD
(FAD
CFAD
CFAD
CfAD
CFAD
CFAD
CfAD
CFAD
CfAD
CFAD
CFAD
CFAD
CfAD
CFAD
CFAD
CFAD
CFAD
CfAD

Otl

LABEL

107
108
109
110
III
112
113
114

0t:4
013
011
071

NEXT lABEl.

CFCD 007

SHIFR4

114
118
113

ACBRAN
EXPOII
UNOREN
NOl BC

121

FIN

115

NOIBC
ACBRAN
E XPOII

115

116
111
120
121
122
123

FIN
*

CFHA 032

STORE1

125

S I GI NT

CfCO 078
CCOM 067

STORE2
LRSTRC

131
tlCY 004

TSIGIN
CHECK

BPSW 003

PROG

fRACIO

114

125
126
127
128
129
130
131
132
133

ST AT EMENT

SIGINT

ISIGIN

BAl
RESTORE P
RDH P OA,B8
TO=O
INC EXPONENT
HO=HO+KOl
Ct-ECK
BR IF OVfL
FOR EXPONENT OVERFl.OW
BR IF AC= 1
BR ** NO IBC-NO OVERFLOW-GO SET CC+STORE RESULT
BR IF AC= 1
INVERT SIGN
HO=HOaK80
SET OVERf INT CODE
Dl=O'KOC
REMEMBER INT TO BE TAKEN
SET S4
PO:OSKlO
SE 1 CC 2
IF POS CC IS CORREC T
BR If HOO=O
RES - CORRECT CC = 1
PO=POaK70
STORE RESULT.RESTORE I • GO TO
BR
I CYCLES OR INTER. If S4=1
BR If SIG INT NOT MASKED
BR If P13=1
ZERO OUT EXP -NO INT
HO=O
MAKE TRUE lERO
HO=HO*-K80
STORE 0 RES
BAL
RESTORE I
BAl
PO=O
C C 0
BR IF P13= 1
BR
T l=O$KOE
8R

AENO

Cfe Y 062

CfAD 062
CFAD 074

CLOAD=*E60, EC lE VEL=1282 11
CDMMENTS

..

UN!1REN

118
119

022
018
019
021
021
029
032
035
044
034
042
053
050
052
055
0(;0
068
059

NEXTSEQ

CFey 063

**********************************
* CROSS REFERENCE fOR CSECT CfAO *
**********************************
cFey 066 CFCY 061

PAGE

83

CLOAD=*EbO, EC lEVEl=128211

**********************************
* CROSS REfERENCE FOR CSECT CfAD *
CFAD
CFAD
CfAD
CfAD
CFAD
CFAD
CfAD
CFA!)
CfAD
(fAD
(FAD
CFAD
(fAD
CfAD

085
091
093
094
099
104
113
114
115

118
121
123
125
131

CFAD
CfAD
CfAD
(fAD
(fAD
(fAD
CfAD
CfAD
(fAD
(fAD
CfAD
CFAD
CfAD
CfAD

0<;2

**********************************

(fAD 103

OB

oe9
090
0<;4
(lEO
114
111
112
0f4
119
OE]

123
129

(FAD 086

CfAD 113

PAGE

84

ADDR

~056

2058
L05A
265C
LoSE
2060
1662

2064
l666

2068
26bA
266C
2bE:E
2670
l07l

2674
1.616

2678
~o7A

It> 7C

267E

2lE4
21 Eb
2lE8
2lEA
nEC
nEE
(lfO
lH2
21F4
21F6
2lf8
2lfA
LIfC
LifE
2200
2102

2204
2206

WUKD

F4,e
4953
f46f
4153
5115
4013
5UC5
4303
5335
4233
5225
4923
5'195
4893
5885
4f83
5FF 5
4AF3
2CFF
C4D6
128£

5fF 3
48F 5
5883
49ES
5993
F414
4595
128E
4295
5223
4.325
5333
4035
5003
4105
':>113
4515
128E

SEQUENCE NU.
efeD
CFCO
eFCD
CFeo
eFeD
eFeo
CFeO
eFeD
CfCD
Cfeo
CfCD
CFeo
CFeo
CfeD
CFCD
efeo
CFeD
CFeD
CFeD
efeD
eFCO
CFeD
CFeu
CFCU
CFCD
CFeD
Cfeu
eFeD
CFeu
eFeD
CfeD
CFCD
Cfeu
CfCO
CFCO
CFCD
CFCO
CfCD
Cfeo
CfCD
CfeD
CFCO
CfeD
CFeu
CFCD
CfCD
CfeD
CfCO
CFCO
CFCD
CFCO
eFCO
CFCD

001
002
003
004
005
00&

007
008
009
010
all
012
013

LABEL

NEXTSEQ

NEXTlABEl

***

T

*
*

•

••SHIFR4

***
010

KLONG

019

RSHORT

007

SHIFR4

RLONG

014

015
016
0L7
018
019
020

RSHOR T

021
022

023
024
02,

026
021
028
029
030
031
032
033
034
035

*
*
*
SHIFl4

036
037

038
042

039
040

041
042
043
044
045
046
041
048

LONGl

049

050
051
052

053

*
*

LDNGL

COMMON FLOATING PO INT ROUTINES ...
SHI FT RIGHT 4

BR If G03=0
Gl= I lXHf-GiL
BR IF G03= 1
Gl=UlXH+GlL
Ul=U1XL
Ul=LJOXH+UlL
UO=IJOXL
IJQ=V lXH+IJOL
Vl=VlXL
Vl=VOXH+V1L
VO=VOXL
vo= IIXH+VOL
ll=IlXL
Il=lOXH+IIL
10=IOXL
IO;HIXH+IOl
Hl=HlXL
Hl=TOXH+HlL
PO=PO+KfF
BR IF lNZ
RTN

***

*
**

elOAD=·E60, EC LEVEL=128211
COMMENTS

STATEMENT

SHI FT LEFT 4

Hl=HlXH
Hl=IOXL$HlH
(0= IOXH
IO=IIXL$[OH
11=IlXH
BR IF G03=0
Il=G1Xl$1IH
RTN
11=VOXL$11H
VO=VOXI-'
VO:V1XLSIJOH
Vl=VlXH
Vl=UOXUV1H
UO=UOXH
UO"'UIXUUOH
Ul=UlXH
U l:GIXLSU IH
RTN

**.
BR IF LONG

UNC BRANCH TO SHORT OP
SAVE GUARD LONG

DEC SHIFTCDUN T

***

BR If lONG
SH 1FT IN GUARD

SH 1FT IN LONG GUARD

PAGE

85

AU DR

OIiDA
OBOC
OBOE
uSEO
OBE2
08H
OBE6

WORe

0008
6Ff'5
4886
f461
4226
4006
128E

0136

4E52

0138
013A
013C
013E

48E6
42E6
.OE6
128E

lAOO
1402
lA04

lEA8
18A8
F458
12A8
70AO
1813
128E

lA06

1A08
IAOA
lADC

0212
0214
0216
0218
02lA
Ollt

02lE

5EA8
58A8
F41D
52A8
50AO
IB73

128E

1364
1366
1368

f46f
111B
100B

136A

733B

LABEL

SE!.lutNCE NU.
CFCO
eFCO
eFea
efCO
efca
eFea
eFea
eFCO
Cfca
CFea
CfCD
efca
eFeD
eFea
Cfea
eFeo
efeD
efca
eFea
CFca
CFeD
CfCO
efeD
efeD
efea
CFca
CFCD
CFCO
efCD
Cfca
eFca
CFca
eFca
efca
Cfea
CFCll
CfCO
CfeD
CFca
eFca
CFca
CFea
CFCO
CFeo
CFCD
eFea
eFeD
CfeD
CFeo
efea
CfCO
.CFea
Cfea

054
055
056
051
058
059
060
061
062
063
064
065
066
067
06B
069
010
011
012

NEXT SeQ

NEXTlASEl

•

062

ZSHORT

Z SHORT

*
*.
*
*
•*

*.*

ZERO
ROH H OC,9A

ZEROUT

•

088

089
090
091
092
093
094
095
096
091
098
099

100
101
102
103
104
105
106

OUT

.**
~OVE

THRU llU -SET S1 If NZ

8R If SHORT

RESULT
READ ZERO CONSTANT INTO H

***

I=H
V=H
U:H
RTN

•

•*STORf;2

*••

.*.

083

SHCRTS

STORE ROUTINE
5TH H AS, f+2
STH 1 AS, T +2
tlR IF SHORf
BR IF GO 3= 1
STH V AS,T+2
STH U AS,f+O
RS T T TO 0l)X8
T I=T 1.-K07
RTN

SHaRTR

READ REGI§TER
ROH H AS, 1+.2
ROH I AS,T+2
BR IF SHORT
8R IF GO 3.. 1
ROH V AS,T+2
ROH UAS, T+O
Tl=X8
Tl:TI*-K07
RTN

SHORTS

083

084
085
086
081

ZfRO TEST
RST S 1
Hl=HUHl
1= I
BR IF G03=1
V=V
U:U
RTN

***

*lTESr

073

014
015
016
017
018
079
080
081
082

ClOAD=.E 60. Et If Vel = 128211
COMMENTS

ST ATH4ENT

*
*
*
*
*ROOPER

•••

•••

095
SHORTR
*

•••

•••

•

'.

RECOMP

108

SHORTe

COMPLIMENT aOUTlN f

BR IF G03=1
UIC=O-Ul+C
UOc=o-uo+e
VIC=O-lIl+C

8R

.*-

IF SMaRT

PAGE

86

AUOR

WORD

lHC

1228
7<;98
1888
7FfB

1361::
1370
1372

1314
13 76

EC19

0002
128E

1378

2104
2106
2708
270A
21 De
nDE

38E3
F45C
IB43
F469
56AA

27EO

7060
56AA

711D

2H2
nE4
27E6
27E8
27EA
nEC
21EE
27fO
27F2
21F4
21F6
27F8

737D

7260
56AA
1970
1860
56AO
1FlD
ClF7
121:1E
lE60

5E18
5818
F47F
5218
5010
128E

007
010
019

034
042
056
efta 062
efeD 069

CFCD
CFCO
CFCD
CFCD
CFCD
CFca
eFCD
CFCD
CFCD
CFCD
CFCD
CFCD
CFCD
CFCD
CFCD
(FCO
CFCD
CFCD

CFAD
CfCD
CFCO
CfAD
CFCD
CFOII
CFeD
eFHA

LASE L

107
108

038
oe1
009
087
039
048
059
030

NEXT lABel

SHDR TC

ltO
111

11.3

COMPAR

III

113
114
US

116
U1
118
119

120
121

COMPAR
*
*
*
*
*
*

COMPUl
124

LaCaMP

130

SHCCMP

140
141
142
143
144
145
146
141
148

LOCDMP

SHCOHP

137

DIVCOM

OIIiCOM
*
*
*
*

CLDAD=*EbO, EC LE VEl= 128211
COMMENTS

STATEMENT
voe=o-vo+c
I1C=0-11+(
10C=0-10+C
HIC=0-H1+C
BR IF GOb:l
R5T 53
RTN

***

122

123
124
erco 125
CfeU 120
CFCD 121
CFCO 128
Cf-LD 129
CFCD 130
CFCU 131
CFCU 132
CFCD 133
CFeo 134
CFeo 135
CFCO 136

Cfeo
CFeu
CFCD
CFeU
CFCD
CFeu
CFCD
CfCO
CFCO
CFCD
CFCD

NEXTSEQ

109

CFLU 131
138
139

128E

2514
2516
2578
251A
251C
251E

Cfca
efeo
CFeo
CFCO
CFCD
CfCD

SEQUENCE NO.

ADD AND DIV IDE

T1=T1$KOE
BR IF G03:0
Tl=Tl*-K04
BR IF GO 3= 1
RDH 0 A:"T-2
UIC=U 1%01+C
UOC=UO%OO+C
ROH D AS,T-2
VIC=V I%Ol+C
vOC=VO%OO+C
RDH 0 AS.l-2
11C= I 1':1:D1+<:
I OC= 10% 00 +C
ROH D AS, T+O
H1C=Hl:!;Dl+C
8R IF S4= 1
RTN
HOC-= HO:!;OO +C
IUN
***

BR IF NDT COMPAKI:: DP

RX OPERAND

CDMUTE

SET T TO LOW HALF OOXE
BR IF LDNG
T 1 = OOXA FOR SHOll. T lOW
UNC BRANCH
T= OOXE
T I 5 SE T
TO 38 DR 18
"HICH I S A
SAVE AREA
T= OOXC
FDR R2 OP
T= OOXA
T= 00X8
BR IF DIVIDE
A, SfC

FETCH

CFAD 046

CFAD 107

RDH H U+2
ROH I U+2
BR IF GO 3= .1
148 XSHORT
RDH II U+2
RDH U U+O
RTN
**********************************
* CROSS REFERENCE FOR CSECT CFCD *
**********************************
CFCO 026 CFDV 016 CFHA 010

CFHA 016

CFMD 030

CFMU 046

CflS 025

CFMO 010

CFHU 051

RXOPER

XSHORT

RI-R2 ***

***

PAGE

81

efeo
CfCO
CfCD
eFeo
CFCO
eFca
CFca
CFca
eFCO
CFca
CFCO
eFCo
CFCO

078
083
090
095
103
108
113
120
124
130
137
143
148

CFAD
CFca
CfAD
CFeo
CfAD
CFca
CFca
CFAD
CFCO
Cfeo
CfCO
GFCY
CFCO

••••••••••••••••••••••••••••••••••
• CPOSS REfERENCE FOR CSECT CfeD •
••••••••••••••••••••••••••••••••••
032 CFHO 037 eFHO 051

OC8

CFAO 039

CFAO 126

CFHA

all

CFAO 037

CfAD 041

CFCY 019

CFOV 001

CfOV 026

oeo

0"2
010
lC3

III
0!:>7
121
123
135
044
145

CFOVQ09

CFOV 041

CFlS 036

CLOAO=.E60iEC LEVEL=1282U

CFMO 039

eFHO 060

CFHO 068

PAGE

88

CLOAO=*E60, EC LEVEL=12B2ll

CfCY

DESCRIPTIVE

THE fLOATING POINT I-CYCLES ROUTINE -CFCY- IS ENTERED
AT LABELS -RROP- OR -RXOP- fROM THE MAIN I-CYCLES ROUTINE
-{CYC-.
THE ChECK fOR CORRECT OPERAND ADDRESS BOUNDRIES AND THE
CHECK fOR VALID FLOATING POINT REGISTER ADDRESSES IS MADE.
ADDR

2844
2846
284B
284A
284C
284E
2850
2B52
2B54
2856
2858
285A
285C

2820
2822
2824
2826
2828
282A
Z82C
282E
2830
2832
2834
2836

283B

WORD

E lC 9
3485
0561
('4C2
8DC2
55t\3

3B 83
8212
458~

25C7
7AI:2
IOCE
8CC1

AF4E
2883
8DC2
0565
i:OC2
AB53
F43F
0183
Foe2
(;038
A5H
A854
04F5

SEQUENCE NO.
CFeY
CfCY
Cfey
CFCY
CFCY
CFCY
Cfey
CFCY
CFCY
CFC¥
CFC¥
CFCY
CFCY
CFCY
CFCY
CH.Y
CFCY
CFeY
CFC Y
CFey
CFeY
CfCY
CfCY
CFeY
CFe Y
CFCY
CFCY
eFey
CFCY
CFe¥
CFey
CFCY
CFCY
CFCV
CfCY
eFCY
CFey
eFCY

001
003
004
005
006
007
OOB
012
013.
014
O~ 5
016
017
01B
019
020
021
022
023
024
025
026
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046

LA8EL

All
2ND

*
*

1ST

RROP

014

NOEXEC
051
CCOM 057
CFCD 090
*

R10PER

052
*
*
*
*

NEXT LABEL

TEXT
THE SECOND OPERAND IS FETCHED AND THE FIRST OPERAND
ADDRESS IS DEVELOPED BEfORE A BRANCH IS TAKEN TO THE
INDIVIDUAL FLOATING POINT OPERATION ROUTINES.

STATEMENT

COMMENTS

I CYCl E DECODE RR AND RX
*
OPS EXCEPT STORE BEGIN ALIKE AS fOLLOWS
(SHOR Tt
OPERAND IS IN LS HO, HI IO,Il,Gl
HO,Hl,IO,.H,VO,Vl.,UO,Ul,Gl (LUNG )
OPERAND-NORM. OR UNNOR. IS IN Rl LOCATION
*** RR I CYCLES Fl TPT ***
CHK EXECUTE STAT BR IF NOT
BR IF S6= 1
NOEX EC
REMEMBER EXECUTE
GO=GO$KBO
CHEC FOR ODD REG=SPEC CHECK
l=G1*-K66
SPEC
BR IF ZNl
SAVE P,I,G
lS AV EA
BAL
R2 ADDRESS
T l=GIXH
Tl=Tl$KOB
GET 2ND OP- HOHIIOll t SHORT)
RDOPER
BAL
HOHU OllVOVlUOUl (LONG
R 1 ADORE SS= Tl X8
T l=GIH+T lL
Gl=O
SAVE Rl OPER ADO IN AUX
STH T DA,ac
RST S K=FC
FLQAT N N=GOl
SEP. OPS
*********************
*** RX I CYCL ES f l TPT ***
flOAT ING PO {NT

T
*
*
*
*

NEXTSEQ

RXOP

CICY 081
ceOM 057
051
C[CY 045
049

lOCKLD
STORCK

051
046
CFeD 143
021

SAL
Tl=0$K08
LS.AV EA
SAL
Z=Gl*-K60
SPEC
BR IF HlNZ
ADDERR N BR IF Hl=NZ
BR IF G03: 1
SHORT
l=U1*-K08
SPEC
BR IF lZNZ
STORCK
BR IF G04=0
RXOPER
SAL
RIOPER
BR
l=GO*-KFO
BASEl

PAGE

GET REST OF OP
SAVE P,I,G
CHK IF R2 NOT 0,2,4,6
CHK 2ND OPER ADO TOO URGE
BR IF SHORT OP
CHK FOR DOUBLE BOUNDARY

LOOK FOR 60 OR 70 OP

B9

AODR

WORD

ZS3A
283C
2S3E
2840
2842
2800
2802
2804
2806
2808
280A
280'
280E
2810

fC8A
8D6C
OlC 3
FOB3
AE'lI8
B384
A150
Al54
A152
623E
B316
B376
B376
B266
8e; 12
ae; 12
ae; 72
<;080
S01E
ae; 72
ae; 72
925A
A05A

2812

2d14
2!Ii. 6
2818
20lA
2alC

281E
3376

3118

SEQUENCE NU.
CfC'!'
Cfey
CFCY
CfCY
CfCY
CFCY
CFCY
Cfey
CFCY
CfCY
CFCY
CfC Y
CFCY
CfCY
CfC'!'
eFCY
CFCY
CFCY
(fCY
Cfey
CfCY
CfCY
CfCY

047
048
049
050
051
052
053
054
055
056
051
058
059
060
06l
062
063
064
065
066
061
068

LABEl

NEXTSEQ

NEXT LABel

057
eftS 034

FLOAT
STORE

SHORT
SPEC
flOAT
FLOAT
FLOAT
fLOAT
FLOAT
FLOAT
flOAT
fLOAT
FLOAT
FLOAT
flOAT
FLOAT
FLOAT
FLOAT
flOAT
FLOAT
NOGOOD

069

0
1

2
3
4
5

elCY
CFlS
'FLS
CFLS
eFLS
CFHA

b

043
059
007
014
022
021
006
068
068
068
032
007
007
001
010
009
001
007

1
8 CFHA
9 'FAD
A tFAD
6 CFAD
C CFMD
0 CFHO
E CFAO
F CfAD
ceOM 061
CICY 066

LOOKLD
SPECHK
LOAD?
LOAON
LOAOT
LOADC
HALVE
NOGOOD
NOGOOO
NOGOOD
STOREI
SCAD
SCAD
SCAD
MULPRE
OIVPRE
SCAD
SCAO
lRSfRC
OPERR

5

ClOAD=.EbO, EC lE ve l=1282 11
COMMENTS

STATEMENT
BR IF LINZ
BR
Z=Ul·-KOC
BR IF LZ=O
8R
8R
BR
BR
SR
BR
6R
BR
BR
BR
BR
6R
6R
6R
BR
BR
BR
BAl
BR

OPER NOT STORE OP
CHK WORD BOUNDAR Y
LOAD PI) S
LOAD NEG
LOAD AND TEST
lOAD COMPLIMENT
HALVE
OP ERROR
OP ERROR
OP ERROR
LOAD
COMPARE-LONG,SHORT-RR OR RX
ADD NORMALIZEO LONG OR SHORT
SUeTRACT NORM LONG OR SHORT
MULTIPLY
LONG OR SHORT
01 VIDE
tONG OR SHORT
AOD UNORMAlIIEO LONG OR SHORT
SUBTRACT UNORMALIZED lON~ OR SH
RE STORE I

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

• CROSS REFERENCE FOR CSECT Cfe y •
Cfey
(FCY
Cfey
CFe'(
Cf-CV
CFCY
CFCV
CfCY
Cfey
CfCY
CFey

012
014
021
034
043
046
049
051
052
051
068

C Ie y 018

CfCY
CFC Y
C ICY
CFC '!'
Cfey
CFe Y
efC Y
CFCY
CfCY
CFey

012
045
022
0';0
043
040
015
025
041
051

CIey 019
CICY 023

eFC Y 038

CFCY 042

CfCY 058

CFCY 059

PAGE

90

CLOAD=.E60, EC LEVEl=128Z11

CFOV

DESCRIPTIVE

THE fLUATING POINT DIVIDE INSTRUCTIONS ARE FIRST
HANDLED dV THE -CFMO- ROUTINE. THERE THE ZERO FRACTION
JEST, PRENURMALIlATION, AND SUBTRACTION OF EXPONENTS
I S MADE.
THE -CFDV- ROUTINE HANDLES THE COMPUTATION OF THE
QUOTENT AND THE STORING Of THE RESULTS. THE -CFCOROUTINE IS USED FOR ACTUAL COMPUTATION. RIGHT SHIfTING.
AND ZERO TESTING OF THE RESULT. THE -CFHA- ROUTINE
HANDLES LEFT SHIfTING. INTERRUPT CHECKING, AND THE
DIVIDE EXIT TO EITHER THE INTERRUPT OR I-CYCLES ROUTlNE.

IF 84

86
IF 88
If-8A
IFSC
lFSE
IF90
If92
IFq.
lf96
lF98
lF9A
lF9C
lF9E
IFAO
lfA2
lFA4
IFA6
lFA8
lFAA
IFAC
IFAC
I~

\lORD

3082
A704
5AE2
8212
46A6
3B35
311.3
16F2
F5A4
2C13
A656
5CA2
2C18
C4A2
lOll
7CA2
A608
3002
0040
2013
A704
F5FO

SEQUENCE NO.
CFDV
CFOV
CFDV
CFDV
CfDV
CfOV
CFOV
CFOV
CFDV
CFoV
CFOV
CFOV
CFOII
GFOV
CFOV
CFOV
CFDV
GFOV
CFDV
CFOV
CfDV
CFOV
CFOV
CFOV
CfOV
CfOV
CfDV

001
002
003
001t
005
006.

LABH

NEXTLA8El

OP CODES HANDLED BY THE -CFOV- ROUTINE

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
OP CODE TYPE
• BYTE 1 . BYTE 2 . BYTE 3 • BYTE 4 *

•

••••••••••••••••••****.****** ••••••• *.* ••••••••••••••••••••••••••
..

RR DIVIDE

(LONG t

•*
*•
01 'dOE

FIXUND
NCNOSH

eFeD 120

eOMPUl

CFCO 09G

ROOPER

022

NCNOSH

eFCa 007

SHIFR4

021

FIXUNO

CFHA 044

OIVIOt

CFtD 120
034

COMPUI
DOAOo

LOOPI
lOOP

•

20

• Rl

R2.

•

•

.._----------------------.---------*--------.---------.--------.
• RR DIVIDE (SHORT)
•
3D
• Rl
R2.
•
•

.---------------------.---------*---------.---------.--------.
RX DIVIDE (tONG)
* 60
• Rl
X2. 82 02 •
02
•

•

•------------------------ *--------*---------.--- ------_._---*
• tlX DIVIDE (SIiORTt
•
70
• Rl
X2. B2 02 •
02
•
•••••• *.****** •••••••••••••••••••••••• *•••••••••••••••••••••• ** ••

STATEMENT

THE FIRST OPERAND IS DIVIDED BY THE
SECOND OPERAND. THE QUOTIENT REPLACES
THE FIRST OPERAND.
COMMENTS

flOAT ING PO (NT DIV I DE

T

001

008
009
010
all
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027

NEXT SEQ

91

TEXT

o BJ EC TI VE --

AOOR

PAGE

SET S K=98
BAl.
ROH T OA, Be
BAL
D=T
Tl=TUK30
Ol=OUKOl
STH 0 oA, BE
BR IF S 3=0
PO=OSKOI
BAL
ROH P OA, At
PO=PO.KOI
BR IF ZNZ
PL-PL·-KGl
SIH P DAf At
BAl
SET S K-90
RST S5
Pl ..O$KOl
BAl
BR IF S3.. 0

SE T SO. S3, Sit
00 TR I Al SUB TRAC ,
GET Rl
Ta R2 SAVE 0038 DR 0078
D=QU(HIENT ADD OOR19
SAVE QUOT ADO
Rl MUST SHIFT RIGHT ONE DIGIT
GET RESUlT EXPONENT
INC EXP
CHK FDR PREW.UNDERFLOW
UNOERFLOW-~ORREC'ED RST IND.
PUT ADJ. RES. EXPONENT BACK
SHIFT LEFT 1
SET SO.S3
SET QUOTIENT FLAG
SUB VISOR fROM oEND
IF ND CARRf - 00 AN ADD

CLOAD=*E60, EC lEVEL=128211

**********************************

*

CROSS REFERENCE FOR CSECT CFDV

*

**********************************

CFDV 061
CFDV 063

CFDV 059
CFDV 058

PAGE

93

CLOAO=*E60, EC LEVEt..=128211

CFHA
THE -CFHA- ROUTINE HANDLES THE
RROP
RXOP

34
24

FOLlO~ING

TEXT

DESCRIPTIVE

THE -~FHA- ROUTINE PERFORMS THE EXIT TO I-CYCLES OR
THE INTERKUPT ROUTINE FOR THE fLOATING POINT LOAD OPS.
AND CERTAIN CASES FOR FLOATING DIVIDE, MULTIPLY, AND
ADO OPS.
THE -CFHA- ROUTINE ALSO PERFORMS THE LEFT SHIFT OF
THE ~UOTIENT FOR THE FLOATING DIVIDE OPERATION.

CP CODES-

( SHOR T OPE RAND S I
(LONG OPERANDS)

THE -CFHA- ROUTINE PERfURMS THE FLOATING POINT HALVE
OPERATION. THIS IS DONE BY SHifTING THE SECOND OPERANU
FRACTION LEFT 3 BITS THEN RIGHT 4 BITS. rHE RESULT
IS NORMALIZED AND STORED IN THE FIRST CPERAND LUCATION.
AUOR

313E
1240
3242
3244
1246
3248
324A
124C
324E
3250
il52
J2!l4
3256
3258
3254
325C
J272

327ft
3276
3218
327A
327C
3Z5E
3260
3262
3264
3266
-3268
326A
32cC

WORD

2C 13
A6DC
AbDC
AbOC
A656
5CC2
D5E4
2A07
OFF3
C4E6
A1E4
2507
2EFf
E4f2
F4F5
B24E
F40D
ED62
1ESO
2703
2(80
824E
E067
0080
8136
2H7

9AOO
925A
CLEF

A8DE

SEQUENCE NO.
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFrlA
CFHA

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035

LA8EL

NEXTSEQ

NEXTlABEL

COMMENTS

STATEMENT
***

T

*
*
*HALVE

HALVE

OP

***

FLOATING POINT

*

PO=O$K01
046
046
046
CFCO 007

lEfll

BAl

t.EfTI
LEffl
SHIFR't

BAl

031

FRACOO

032
CFCO 034

SfOREl
SHIFl4

HNORM

OKlSC
NOVFlH
HAUNO

UNOCHK
OIVNOI
HZER
FRACOO
SroREl
OIVOVF

022
023
Ol4
021
030

NOVfLH
HAUNO

014
032

HNORM
STOREl

eFCO 069

ZEROUT

CfCO 078
CCOM 067
03b
CICY 004

STORE2
LRSTRC
HTAKE
CHECK

HNO~M

OK1BC
HZER

PAGE

BAl

BAl
RDH P OA,B8
BR IF 51=0
TO=O
Z=H1*-KOf
BR IF ZNZ
BAl

Gl=O
HO=HO+KFF
BR If NOVFl
BR If AC=1
BR
BR I f AC= 1
BR If P12=O
HO=HOaK80
Dl=OSKOD
SET 54
BR
BR IF PI2=1
RST 54
8AL
HO=O
BAl

SAL
BR IF 54=1
SR

SET RIGHT SHIFT COUNT
SHIFT
LEfT
ONE THREE T1t.1ES
RIGHT 1 = LEFl 3 THEN RIGHT 4
BK IF

2ND OPER WAS 0

CHECK HI DIGIT
GO NORMALIZE
ZERO OUT GUARD
DEC EXPONENT
C t-ECK
IBC
FOR
UNDERflOW NO IBC=UNOERF
BR IF NO INT. TO BE TAKEN
INVERT THE SIGN BIT
II'tT CODE SAVE
REME!4BER INT
BR IF INT TO BE TAKEN
ZERO OUT EXPONENT

94

ADDR

wOl{D

32 bE

57B9
9C 70

J210

CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
(FHA
CFHA
CFHA
eFHA
(FHA
CFHA
CFHA
CFHA
CFHA
C.F I1A

CFHA
CFHA
CFHA
CFhA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA

6001)
655B
F467
6110
60CD

21:>08

26DA
26De
26DE
26EO
26E2
26E4
26E6
26E8
26EA
26Ee
26EE
26FO
26f2
26F4

633D

6220
69<;0

6880
6FFD
CIF3
6AAD
128E
6EEO
128E

006
014
021
022
023
028
029
030
031
032
033
036
0~4

046
051
057

LABEL

SEQUENCE NO.

CFCY
CFHA
CFHA
CFHA
CFHA
CFOV
CFAO
CFHA
CFHA
CFAD
CFDV
CfHA
CfDV
CFHA
CFHA
CFHA

056
021
022

036
037
038
039
040
041
042
043
044
045
046
041
04B
049

NEXTSEQ

N!:XTlABEl

BPSW 003

PROG

HTAKE
*
*
*
*
*
*

lEfn

051

050

051
052
053
054
055
056
057
058

Tl=Dl
BR
**

01 ViOL

HSHORT
057
OIV

CLOAO=*EbO, EC lEVEL-=128211
COMMENTS

STAT EMENT

LEFT ONE

SHIFT QUOTIENT FOR DIVIDE
PIC=PH·PI+C
SH 1FT 01 VIDE GUARD
GIC=Gl+G1
BR IF SHORT
BR IF G03=l
HSHORT
UIC=Ul+Ul+C
UOC=UO+UO"C
1/1C=V1+V1+C
VOC=I/O+VO+C
11 C-= 11" I 1 +C
IOC= 10+IO+C
H1C=Hl+Hl+C
BR IF S4= 1
DIV
HALVE
rOC=TO+TO+C
ONLY
RTN
DIVIDE
HOC=HO+HO+C
ONL Y
RTN
**********************************
* CPOSS REFERENCE FOR CSECT CFHA *
**********************************

CFHA 027

/

CFMU 061
CFDV 050

CFMO 020

CFMU 053

CFe y 060
eFMO 015

CFHA 015

CFHA 028

CFDV 028
CFHA 008

CFDV 034
(FHA 009

C19

020
Oe5
0.,8
023
012
121
Oe2
034
022
OC7
046
054

FOR 01 VIDE AND HALVE **

CftS 028

CfMU Ob5

PAGE

95

CLOAD=*E60. EC LE VEl=lZ8Z11

CFLS

DESCRIPTIVE

ThE -CFLS- ROUTINE HANDLES THE fOLLOWING OP CODESLOAD POSITIVE -ZD-.-30-.'SHORTI AND (LONG)
LOAD NEGATIVE -Zl-,-31-.(SHORT) AND (LONG)
LOAD AND TEST -2Z-,-32-.(SHORT) AND (LONG)
LOAD COMPLEMENT -23-,-33-.(SHORTI AND (LONG)
STURE
-60-,-10-, (SHORT) AND {LONG)

ADDR

WORLJ

LOAD NEGATIVE

THE SECUND OPERAND IS PLACED IN THE FIRST
OPERAND LOCATION WITH THE SIGN fORCED
NEGA H VE.

LOAD COMPLEMENT

THE SECOND OPERAND IS PLACED IN THE FIRST
OPERAND LOCATION WITH THE SIGN INVERTED.

LOAD AND TEST

THE SECOND OPERAND IS PLACED IN THE fIRST
OPERAND LOCATION AND THE CONDITION CODE
IS SET TO INDICATE THE RESULT STATUS.
CC=O RESULT FRACTION IS ZERO
CC=l RESULT IS LESS THAN ZERO
eC=2 RESULT IS GREATER THAN ZERO

STORE

THE fIRST OPERAND IS STORED AT THE
SECUND OPERAND LOCATION.

H84

1E85

338b

A154

£150

2152
2154
2156
2158
2l5A

2l5C
U5E
2160

lEe5

lE8D
2(25
CE5A
1(70
8BDA
U5El
2C07
8266

THE SECOND OPERAND IS PLACED IN THE FIRST
UPERANO LOCATION WITH THE SIGN FORCED
POSl TI VE.

SEQUENCE NO.
CFtS
CFLS
CFLS
CFlS
CFLS
CFLS
CFlS
CfLS
Cf LS
CFtS
CfLS
cHS
CHS
CFLS
CFLS
CFLS
eftS
eFlS
CFtS
CfLS
CFlS
CFLS
CFtS
CHS
CFLS
CFlS
CFlS
CFLS

001
002
003
004
005
006
001
008
009
010
011
012
013
014
015
016
011
018
019
020
Oll
022

023
024
025
026
021
028

LABEL

NEXTSEQ

NEXTlABEL

r

ST AT EMENT
LOAD AND

*
*
*

"LOADP
022

lOA IlT

"*

STORE

DPS

HO=HO*-K80
BR
*"* LOAD NEGAT IVE

**

"LOAON

HO=HO*-K80

*
*
*
**"

"*
*

COMMENTS
FLOATING POINT

*** LOAD POSITIVE **

..

LOADC
LOADT
025

OKS OF A

OKSOfA

(fCD 05t>
028

lTEST
CODCOR

COOCOR

CFHA 032

STCRE!

MAKE SIGN ..

"""
MAKE THE SIGN PLUS
FALL THROUGH TO COMPLIMENT

LOAD COMPLIMEN r

HO=HOI3K80
PO=OSK20
BR IF HOO=O
PO=POoK70
BAl
BR IF S 1= 1
po=o
BR

96

TEXT

OBJECTIVESLOAD PO SI Tl VE

PAGE

INVERT SIGN
SET ..
NO T .. CHANGE CC TO - 0101 CC=1
GO TEsr FRACTION FOR a
BR IF FRAC NOT 0 CC [5 SE T
SET CC=O FRAC=O
GO LOAD R2 TO Rl,RE ST I,GO I CYC

ADDK

WORD

SEQUlNCE NO.
CFlS
CFlS
CFlS
CFlS
CFLS

006C
J06E

4606
4588

029
030
031
032
033

Cfl S 034
CfL 5 035

0070

8212

CfL S 036

0072
0074
0076

7E7a
7878

Cf'LS 031
CHS 038

F470
7218
7070

CH 5 039
CFlS 040
CFLS 041

925A
A8DE

Cf'L 5 042
Of LS 043

0078
007A
OU7C
007E

LABEL

NEXTSEQ

NEXT lABEL

*
*

***

*

dlS 007

CFLS 021
L.FL S 022
C Fl 5 025
CFL :) 02b
CFlS 034

CFl::' 042

STORE

OP

***

*

•STORE

D=U
Tl=GlHH1l

CFCO 090
042
END STU

CCCM 067
CICY 004

RlJOPER
ENDSTO
lRS T RC
CHECK

BAl
STH H
STH I
BR If
STH V
5TH U
BAL
BR

MOVE DESTINATION AlJORESS
Rl OPERAND AOOR
GEl R 1 OPER

0+2
0+2
G03;1

BA IF SHOR T

0+2
0+0

RE STORE

**********************************

*
GFlS 014

OLOAD=*E60, EC lEVEl-=128211
COMMENTS

STATEMENT

CFCY
CFC Y
OfC Y
OFCY
CFlS
CFlS
OFev
CFtS

0:2
0~3

05')
054
023
026
048

039

CROSS REFERENCE FOR (SECT CFlS

*

**********************************

CFtS 008

PAGE

97

tlOAD=*E60. EC lEVEl.=128211

CfMO

DESCRIPTIVE

THE -CfMO- ROUTINf IS ENTERED fROM THt flOATI~G POINT
I-CYCLES ROUTINE -Cfey- TO PREPARE fOR THE EXECUTION Of
THr fOLLOWING OP CODES MULTI PL
DIVIDE
RROP 3C
RROP 30
RROP 2C
RROP 20
RXOP 7C
RXOP 70
RXOP be
RXOP 00

ADDR

wORD

10IE
1080
1082
1084
1086
1088
108A
108C
108E

3082
8BOA
0595
0180
Fooe
27F3
8268
FOll
1415

LD90
LD92
1094
1096
1098
109A
ID9C
109E
10AO
10A2

5eC2
B260
D19C
5E6q
3E:85
90A2

lDA~

C~AC

lDA6
10A8
10A4
lOAC
lOAE
lOBO

Al£:4
2EFF
90A2
01BF
3B35
5E09

5E19

lE85
2E~0

OFf3

LABEL

SEQUENCE NO.
CFMD
CHID
CFMD
'FMD
CfMD
CFMD
CfMD
CFMO
CfMD
CF~O

CFMD
CFMO
CHID
CFMO
CFMO
CFMD
CFMO
CFMO
CFMO
CFMD
CFMO
CFHO
CFHO

001
002
003
OO~

NEXT LABel

017

,..

01 IIPRE
MUlPRE

R1 I SO
DONE
FNOTZ

CFCO 056
021
016
016

lTEST
FNOTZ
KllSO
RlISO

CFHA 033
019

OIVOVF

CFHA 029
025

OIVNO.I
R2

OO~E

022

023
024
CHID 025
CFMO 026
CfMO 027
CFMO 028
CFMD 029
CHID 030
CFMO 031
CHID 032
CFMO 033
CfMO 034
CFMD 035

028

CF~O

NORM

R2
NORM
033
tfCO 034
fNORM

PRIOR TO BRANCHING TO THE PROPER EXECUTE ROUTINE, THE
-CfMD- ROUTINE DOES THE fOllOWING-1. TE ST HUl TI PU: ER OR 01 VI SOR FOR ZERO.
2. PRENORMALIZE OPERANDS
3. COMPUTE INTERMEDIATE EXPONENT AND SIGN
OF THE RE SUl T.
~. PREPARE OPERANDS, (FOR FP MUlTIPLY)
, TO
SHARf: THE 81NARY I4UUIPiI..Y COMPUTE W(jP IN
ROUTINE -CML T-.
COMMENTS

STATEMENT

DIVIDE PRENORMALIZE -FLOATING POINT

2ND QP IS PRENOR. fIRST AND PUT IN A SAVE AREA
1ST OP IS THEN PRENOR. AND PUT BACK IN R1 AND
RETAINED IN LS H.I.II,U

*

*
*
*
*

028
042

FNORM
SHIFl4
NORM
RlD

98

TEXT

MULTIPLY

T

••

005
006
007
008
009
010
011
012
013
014
015
016
018
019
020
021

NEXTSEQ

PAGE

SET S K:98
BAL
BR IF S 1= 1
SR IF S5= 1
SR IF G01=0
Ol=O$KOf
SR
SR IF G01=l
GO=GO*-KI0
RDH P OA,B8
8R
BR IF S5=0
OO=HO
HO=HO$K80
BR
Ol=HO
HO=HO*-K80
HO=HO+K40
l=Hl*-KOf
BR IF lNl
BAl
HO=HO+KFF
BR
BR If 55=1
TI=T l$K30
P1=HO

SET SO,S3,S4 FOR DIVIDE
CHECK fRACTION fOR 0
BR IF PllER OR DIVISOR IS NOT 0
BR IF R 1= 0
R2 IS 0 8R IF MUl T
IT IS 01 VIUE E XCE PH ON
GO TAKE [NT AND STOR 0 ,RE ST
BR IF DIVIO£:
MUll TURN OFF SHOR T
FUll 0 STORE FOR MULT.
RESTORE P
BR If USING R2
USING Rl SAllE ORIG EXP
MAKE EXCESS 192
SAvE R2 ORIG EXP
REMOVE SIGN
MAKE E XCE SS 128
ChECK HI DIGI T FOR 0
BR IF NORMALllED
DEC

EXP

DOING R2 SE l' T TO SAVE AREA ADD
SAvE NORM R2 EXP

AODR.

WUKD

10B2
lDB4
10B6
lUB8
lllBA
10BC
lOBE
lilCO
10C2
lOC4
10C6
IDC8
lDeA
lOCC
luCE
lODO
1002
lDD4
1006

<:EC1
9AOO
5AE2
8212
2040
SOBO
5EC<;
2EC7
6161
17F3
7CDO
5709
F5Cf3D 13
7CA2
9AOO
3B35
F058
SF84
10CE
2080
f46E
42E6
4086
8212
2BO
46E6
4E86
48A6
8312
4C26
460&
8212
4A86
48E6
4EC6
4066
4626
42C6
8312

W08

lUOA
lODC
lODE
tOEa
lDE2
lOE4
IDE6
WEB
tOEA
10EC
WEE
lOFO
10F2
lDF4
IOF6
lOF8
ll>FA
lOFC

lUff
lEOO

CFMD
CFMD
CFHD
CFMO
CFHD
CFMD
CFHD
CFHO
CFHD
CFHO

009
010
016
019
021
025
028
033
042
050

SEQUL;-,jCE NO.

CFCY
CFCY
CFMD
CFMO
CFMD
CFMD
CFHD
CFMD
CFHO
CFHD

CFMu
CFMD
Cf/'r>
CFMD
CFMD
CFMO
CFMO
CEMu
CFMO
CFMD
CHID
CFMD
CFMD
CFMO
CFMD
CFMD
CFMu
CFMD
CFt-'D
CFMu
CFMO
CFMO
CFMD
CFMD
CFMO
CFMO
CFMD
CFMD
CFMD
CFMD
CHD
CFMD
CFMD
CFMO
CHI[)
CfMD
CFMD
CFMD
CfMD
CFMO

LABEL

036
037
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
057
058
059
060
061
062
063
064
06,
066
067
068
069
070
071
072
073
074
015

0~3

048

CFCO OH

STORE2

CfCO 090

RDOPER

010

MULPRE

050

NOUND

RiD

NOUND
CfCO 078

STORE2

055
CFDV 006

NDIV
DIVIDE

NDI V
066

LONG,..

CFCD 090

RDOPER

CMlT 027

FlTMUl

CFCD 090

RDePER

LONGM

CFMD 041
CFHD 013

all
02l
024
C29

NEXT lABEl

038

Ot5

0(;4
012
016

NEX TSEQ

CFHD 032

CMU 027

STATEMENT
HO=O
BAl
RDH T OA,BC
BAL
SET S5
BR
PO=HO
HO=O
Dl=DlIJOO
Ol=Ol*-KOF
POC=PO%P1+e
Pl=Dl
BR IF S 3= 1
Pl=Pl$KOl
STH P CA,AC
BAL
Tl=TlH30
8R IF G01=0
BR
RST S K=FC
SET S4
BR IF G03=O
V=H
U=I
BAL
T1=0
D=H
H= I
I=T
Bf<
P=V
D=U
BAl
T=I
I=H
H=U
U=D
D=V

ClOAD=*E60, FC LEVEl=128211
COMMENTS
SAVE NORM R2
T= OOXB
GE T RiOI'
DOING Rl.SAVE NOR"l R1 EXP
ZERO OUT OPERAND EXPO
COMPUTE RES SIGN 000 BIT
ZERO OUT D1 LOW FOR FLAGS
COMP IF DIV,TRUE IF MUL T
SAVE RES SIGN
SET UNDERFLOW FLAG
SAVE RES EXP,SlGN AND FLAGS
PUT NORMALIZED Rl BACK IN Rl
T=R2 SAVE 0038 OR C078
BR IF MUL r
CONTINUE MUl T PREP.
fOR B INAR Y MUL T
SAVE
SHOR T CAN!) R 1
GET PLlER R2
SHIfT
DATA
TO SHARE
BINARY
BR TO SHARE BINARY MUL T
SAVE
LOW CAND LONG R1
GET LONG PUER R2
SHIFT
DATA
TO

SHARE
B I/\jAR Y
v=p
MUl T
BR ro SHARE 8INARY HUL T
BR
flTMU 1
**********************************
* CROSS REfERENCE FOR CSECT CFHD *
**********************************

PAGF

99

CLOAO-*E60, EC lEVEL=128211

CFMD 055
LFMLJ 066

CFHD

053

CFMO

057

**********************************
* CRess REFERENCE FOR CSECT CfMO *
**********************************

PAGE 100

CLUAD=*E60, EC LEVEl=128211

CfMU
FLOA T ING MUL Tl PL Y
RROP
RROP
RXOP
R XOP

DESCRIPT IV E

OP CODE S
3C
2C
7C
6C

ADDK

1';)f6
bf8
15fA
l:;fC
15fE
loCO

1602
1004
1006
1608
11>0A
100C
100E
11>10
1012
l'jAA
15AC
l'jAE

WORe

5C82
FC2A
44C6
1415
5CA2
5C79

SHe;

51F9
5189
5299
5329
5E39
2101
2507
HI
OPHI
OPHI
OPHI
OPHI
OPHI
OPHI
SSF X

NEXTlABEL

SSWI 001
122
141
CfCY 012
CfCV 012
053
055
(fCY 034
CfCY 034
047
051
065
065
064
062
064
032
100

044
241
045
BPSW 003
070
050
195
(SfT 014
070
203
081

PD=O
ISTART N N=S BITS61
EXCHKA
BR
EXCHK
8R
CHECKB
8R
RDH G 1+2
OPHI
N N=GOH
RDH I DA,AA
SET S6
ISTART 3 BR
ROH I DA,AA
SET S6
BR
CHECKB
OPOX
N N= GOl.
OP1X
N N=GOL
RROP
BR
BR
RROP
OPH14
BR
BR
OPHI5
RXOP
BR
BR
RXOP
BR
OPHI8
8R
OPHI9
BR
RSINV
BR
RS INV
BR
SSINV
OPHID
BR
BR
SSINV
SSFX
BR
BASE3
SAL
HO=GIXL
UIC=U1+HO
UOC=UD+TO+C
HIC=Hl+TO+C
HO=G1L
VlC=V l+HO
VOC=VO+TO+C
0IC=01+TO+C
Hl=HUDl
AOERR N BR IF Hl=NI
OPFX
N N=GOL
AllDERR 0 BR
fl:OSK05
BR
PROG
BAL
BASEL
8R If G04= 1
AllSHI
OP8X
N N=GO BITS 567
SHIFT
BR
BAl
BASEl
OP9X
N N=GOl
BAL
BASE2

001
SET CC TO EQUAL
TE ST FOR EXECUTE OR INTERRUPT
EX ECUTE AND IN T
EXECUTE NOT INT
INl NUT EXECUTE
READ FIRST TWO INST. BYTES
TEST HIGH OP CODE DIGIT
READ SAVED ADDRESS
TURN OFF EXEC UTE
READ SAVED ADORESS
TURN OFF EXECUTE
GO TO EXCEPTIONAL ROUTINE
RR OP
CODE BREAKDOWN
FLOATING POINT OPS
FLOATING POINT OPS
RX OP
CODE BASE CALCULATE
FLOATING POINT OPS
FLOATING POINT OPS
RS OPS
SlOPS
INVALID
OP
CODES
SS OP S
INVALIO OPS
DE CIMAl OPS
CALCULA IE
RIGHT MOST
ADORE SS
ADO IN LENGTH CODES fO
POINT fa LOW BYTE
OF OPERANDS

SS FXOP BREAKOUT
FLAG ADDRESS ERR
MAKE ADDRESSABLE
FLAG ADDRESS ERROR
GO lAKE INTER UP T
RS OP CODE 8X
SHIFT UPS
8X ()PS LOW OIGI f TEST
SHIFT OPS EXIT
RS Of> CODE 9X
BREAKOUT
RX GO TO BA SE + INDEX

PAGE 104

AOOK

WOKU

080C
ll:90
2.f.92
2E94
2.E96
2E9S
2E9A
2f. 8E
08D6
0808
LO 56
.2058
205A
lO5C
335A
H5C
lA6A
lAbC
lA6E
lA70
lA 72
lA 74
lA16
lA7a
lA7A
1Ab6
lA 68
lF4E
2F 50
2F52
2F 54
2F5b
2F 58
IF 5A
2F5C
2f5E
2F60
2H2
2F64
2F66
2F68
2F6A
2f6C
2F6t
<'f10

BOlD
AF4E
AB53
01C3
FCBF
ZBO
SC70
BC71
814C
B03B
61:84
6£:84
2B 13
9C70
2623
':IC70
50<;8
50BB
C4E 7
5EA8
56AO
617B
c06F
6fAO

014C
ui4E
J1.50
0152
0154
,)156
u158

5098
50BB
C4C5
5EA8
5040
617B
60bf

128E
HC1
128E
50<;8

50BB
C41:F
5EAt!
56AO
611B

bCbF
6FAD
55B 3
C4t:D
52A8
56AO

b118

6ebD
6F30
128E
2F07
C4DF

SEi,/UENCE NO.
C I C\'
C ICY
CICY
(ICV
CICY
CICY
CICY
CICY
ClCY
CICY
CICY
CICY
CICY
CICY
CICV
CILY
CICY
CICY
CICY
CICY
CILY
ClCY
CICY
CICY
CICY
C ICY
C [C V
CICV
CICY
GIC Y
CICV
C IcY
CICY
CIC't
CICY
CICY
C I Vt
CICY
CICY
CICY
CICY
CICY
CICY
CICY
CICY

(ICY
CICY

CICY
CICY
CICY
CICY
C IC Y
CICY

054
055
056
057
058
059
060
061
062
063
064
065
066
067
068
069
070
071
072
073
074
015
0/6
017
018
079
080
081
OB2
083
084
OB5
086
081
088
C89
090
091
092
093
094
095
096
091
098
099
100
101
102
103
104
105
106

LABEl

OPHI5

NEXTSEQ

NEXTlABEL

163
081
045

OP4X
N
BASE2
AiJOERR N

061

o PH 15 A

SPECHK
OPH!5A
OPHID

BPSW 003
179
100
225

PKOG
OP5X
BASE3
OPDX

BPSW 003

PRCG

BPSW 003

PROG

079

OUT!

SSINV
RSINV
OPERR
PRIVOP
BASEl

Qun
BASE2
097

BASE2 A

096

BASE2C

089

BASE2S

BASE2B

BA SE2C
BASE2A

BASE3
118

BAS E3 A

N
N

STATEMENT

CLOAD=*EbO, EC LEVEL=128211
COMMENTS

N=GOl
BAL
BK IF Hl=NI
I=Ul*-KOC
BR IF LZ=O
Tl=OSKOb
BK
N=GOL
BAL
N=GOL
I = I f-2
I=If-2
Tl=OSKOl
BR
Tl=OSK02
BR
ROH U 1+2
T l=UOH
BR IF z=o
ROH H AS,T.2
RDH 0 AS, T
U lC=U 1+0 1
UQC=UOlf-DO+C
H 1C= H 1 +T 0 .C
RTN
Hl=O
RTN
RDH U 1+2
T l=UOH
BI{ IF z=o
RDH HAS, fj·2
RDH D AS,T
UlC=Ul+01
UOC=UOl+DO+C
HI C= H 1 +T 0 +C
T l=GIXH
BI{ IF Z=O
RDH V AS,T+2
ROH 0 AS,T
UIC=U 1+01
UO C=UO +00 +C
HIC=HUVl+C
RTN
Hl=O
BR IF Z=O

8KEAKOUT
RX GO TO BA SE AND INDEX
CHECK fOR ADDRESS ERROR
TEST FOR
SPECIFICATION CHECK
FLAG SPEC CHECK
BRANCH TO STORE INTERRUPT CODE
RX 5XOP BREAKOUT
SS DXOP
BREAKOUT
INCREMENT
INSTR ADDRESS
AND FLAG ERROR
BR ANC H TO STORE INTERRUPT CODE
FLAG flRIV OP
BRANCH TO STORE INTERRUPT CODE
READ 2ND 2 INST BYTES
AND PUT IN REG. ADD.
ERANCH IF NO BASE
GET BASE DATA
AND
CALCUlA TE
EFfEC fiVE
ADORE SS

RDH U 1f-2
T l=UOH
BR IF
RDH H AS,T+2
ROH 0 AS,T
UIC=Ul+Dl
UO(=UOL f-OO+C

READ 2ND 2 IN ST. BYTES
GET BASE ADDRESS
BR ANCH IF NO SA SE 1
GET
BASE OA TA
CALCULA TE
1 Sf

z=o

INDICATE ZERO BASE
READ 2ND 2 INST. BYTES
NO BASE
BR
GE T
REGISTER DATA
CALCULATE
BASE
VAL UE
GET INDEX REG.
NO INDEX BR
GET
R EGI STER OA TA
CAlCULA TE
INDEX
VALUE
INDICATE ZERO riA SE
UNCONDlT IONAl BRANCH

PAGE 105

ill/OJ(

WORD

) I ':lA

6FAD
., 2 'HI
':l2Bd
C4C9
6AA4
56AA
637B
626F

ul'lC
() 1 ?E

0160
ulb2
\)104

ul66
Glb8
d16A
:) l6C
016E
0144
()146
>1148

dl4A
296U
2962
2964
2966
2968
29M
296C
296E
2970

2'H 2
"'174
2916
297 !l

297A
!91C
n1E
.'940
'}942
?944
2946
!F8
B380
836E
A014
A<;'i6
HBt!
AEOC
AC'>6
A89C

SE:QUENCf: NO.
CICY
C IC V
C 1C V
C IC V
C ICY
CICY
CICY
CICY
CICY
CICY
CICY
CICV
CICV
CICY
CICY
CICV
CICV
C ICY
CICY
CICY
CICY
CICY
CICY
CICY
CICY
CICY
GlCY
CICY
elCY
CICY
CiCV
CICY
elC V
GICY
C IC y
CICY
CICY
C ICY
CiCY
C Ie Y
CICv
C IC V
CICY
Cicv
CICV
ClCY
C IC Y
C IC V
CiCY
CiCY
CICY
C ICY
CICV

107
lOB
109
110

NEXTSEQ

LABE:l

NI:XTlABEl

SA SOB
120

BAS DC

111

112
113
li4
115

116
111

liB

BASBA

119

120
121

BASE3C

122

OPOX
OPOX
OPOX
OPOX
OPOX

123
U4
125
126
127

apox

128
129
130
131
132

OPOX
OPOX
01' OX
OPOX
UPOX
OPOX
QPOX
OPOX
OPOX
OPOX
OP1X
OPIX
OPlX
OPIX
OP1X
OPIX
OPIX
OPIX
OP1X
OPIX
OPIX
OP1X
OPIX
OPIX
OPIX
OPIX
OP4X
UP4X
OP4X
OP4X
OP4X
OP4X

133

142
143
144
145
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162

163
164
165
166
161
168

0
1

2
3
4
5
6
7
8
9
A

(STS
CBRC
CBRC
CBRC
CST S
CSTS
CSIS

B
C
0

E
F
0

eLST
1 ClST
2 CLSi
CLST
3
4 CLOG
5 CLOG
6
CLOG
1 CLOG
8 CLST
9 CBIN
A CBIN
B
CBIN
C CMU
D CDVO
E CBIN
F CBIN
0 CLST
1
CLOG
2 CLOG
3
CLOG
4 CBRC
5 CSRC

108

BAS E3 B

066
066
066
066
082
023
061
005
039
039
093
066
066
066
066
066
005
030
018
040
069
036
llO
140
046
005
026
042
007
002
055
076
055
19B
190
182
041
031

OPtKR
OPERR
OPERR
OPERR
RKOP04
KROP05
RROP06
RROP07
RROP08
RROl>08
RROPO A
OPERR
OPERR
OPERR
OPERR
OPERR
RROPI0
RROPll
RROPl.2
RRCP 13
RROP 14
RROP15
RROP16
RROP 17
RROP18
RROP19
RROPIA
RRCP1B
RROPIC
RROPID
RROPIE
RROP1F
RXOP40
RXOP41
RX OP4Z
RXOP43
RXOP44
RXOP45

CLOAD=*E60. EC LE VEl:12B211
COMr-lENTS

STATEME:NT
HIC;Hl+TO+C
RDH V 1+2
fl=VOH
BR IF l=O
T-=T+2
ROH 0 AS, T-2
VIC=Vl+Dl
VOC=VOL +UO+C
RDH 0 AS,r
DIC=Ol+TO+C
RrN
Hl=O
BR IF l=u
01=0
RTN
BR
BR
SR
SR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
SR
SR
BR
SR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
uR
BR

OPf:RAND
I

CICY 008
ClCY 010
ClCY 013
~ICY 016
ClC'f 032
(lCY 044
CICY 045
"IC Y
CICY
CICY
CICY
l.!CY

047
050
05l
053
055

SHIUf:NCE NO.
ClCY
C IC Y
CICY
CICY
CICY
CICY
CICY
CICY
CICY
CICY
CICY
CICY
CICY
CICY
C IC Y
CICY
CICY
CICY
CICY
CICY
CICY
CICY
CICY
CICY
CICV
CICY
CICY
CICY
C ICY

CCOM
COMO
BSIoI
CuRC
CLOG
ClSI"
CTRT
BPS>;
CICY
C IC Y
CBRC
C IC Y
C ICY
BkRP
CLOG
Cl. ST
C IC Y
CICY
C IC y
C IC Y
CICY

155
1 4'1
074
Ob5
0':>5
062
016
058

228
229
230
231
232
233
234
235

236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
2':>6

CFAD
CDVO
CBIN
CtiRC
CLD0
CLSr

NEXTSEQ

LABEL
OPox
OPDX
OPDX
OPDX
OPDX
OPDX
OPU X
OPOX
OPDX
OPDX
OPOX
OPOX
OPDX
OPFX
OPFX
OPF X
OPF X
OPF J{
OPfX
OPF X
OPF X
OPF J{
OPf X
OPFX
OPF X
OPF J{
OPf X
OPF X
OPFJ{

015
OiH

014
117
083
083

CBRC 065

3
4
5
6
7
8
9
A
B

C
0

E
F
0
1
2
3
4
5
6
7
8
9
A
B
C
0

CLOG
CLOG
CLOG
CLOG
CLOG

026
098
058
l28
158
066
066
066
066
CTRl 003
C TRI 003
CIRT 033
CIRT 033
066
CMPU 003
CMPU OLl
CMPU 008
066
066
O~6

CSAS
CSAS
CSAS
CSAS
CDMO
COMO

E
F

C SAS
CFAD
CBIN
CCOM
CLOG
CLST

099
130
017
159
092
091

066
006
061
001
060
002
002
066
066

CSfT
CFHA
CBIN
CCOM
CLOG
CMPU

NEXILABEL

CLOAD:*E60, EC LEVEl=128l11
COMMENTS

Sf AT EMENT

BR
MOVE lONES
5oSCP03
BR
AND
5050P04
5oSOPD5
BR
COMPARE LOGICAL
BK
5oSOPD6
OR
SSGPD7
BR
ExCLUSIVE OR
OPERR
BK
*
BR
OPERR
* INVAL 10 OP CODE S
BR
OPERR
*
OPERR
BR
*
BR
TRANSLA TE
SSCPDC
SSCPDC
BR
IR ANSl.ATE AND IE ST
BR
EO IT
SSGPDE
EDIT At~[) MARK
BR
SSOPOE
8R
INVALID 01' CODE
CPERR
BR
MOVE WITH OFFSET
5S0Pfl
PACK
SSOPF2
BR
SR
UNPACK
S50Pf3
OPERR
BR
(PERR
BR
INVALID OP CJOE S
OPERR
SR
OPERR
BR
Btl.
ZERO AND ADD
SSOPF8
SSCPF9
BR
COMPARE DEC I MAL
ADO DECIMAL
SSOPFA
BR
BR
SUBTRACT DEC IMAL
SSOPFB
BR
MULTIPLY OECIMAL
S50PfC
SR
DIVIDE DECIMAL
SSOPfC
OPERR
BR
*
CPERR
BR
INVALID OP CODE S
** .... ***.***** .. * •• *** ... ****** ... ***
* CR055 REHRENC£: FOR eSECT C ICY *
** ..... **.*******.*************.***
084 CTRT 021 CTRT 060
035 CFlS 043 CMU 019 CSAS 128 CSFT Obb CSTS 065
019 CSIN 066 CBIN 069 CBIN 071 CBIN 013 CBRC 013
163 CCOM 167 CICY 004 CLOG 006 CLOG 014 CLOG 024
09':> CLOG 117 CLOG 119 CLOG 181 CLOG 195 CLOG 202
018 CMPU 019 CNVR 056 CNVR 122 CSTS 016 (STS 054

PAGE 108

•

•.

.

•

.

C SfS
CBRC
CLOG
CLSI
CSTS

108
018
034
013
017

CS TS
ceRC
CLOG
CLST
CSTS

111
020
051
021
079

OCHN
CBRC
CLOG
CLST

csrs

096
043
053
052
090

CICY 012

OC6

OC5
OC!
031
042
060
059
110
024
048
025
020
021

ClC y 009
BWRP Ob5
CLOG 080
CNVR 005

CSRe; 041
CLOG 099
CSTS 003

CCOM 012
CLOG 122
CSTS Oll

CFCY 039
CLOG 129
CSTS 042

CICY 044
Cl.OG 152
CSIS 011

C ICY 056
CLOG 159
(TRT 003

CLOG 004
CLOG 170
crR f 010

CLOG 009
CLOG 182
C IR T 033

CLOG 011
CLOG 190
CTRT 066

CLOG 021
CL sr 055

CLOG 045
CLST 06",

ClOAO=*E60, EC lEVEl-=128211

PAGE 109

**********************************

*

(lCY
CICY
CICY
(ICY
CICY
CI CY

059
061
062
()64
065
U66

C ICY
CICY
CICY
CICY
C IcY
CiCY
C ICY
CICY
CICY
CICY
(1(.. Y
CICY
ClCY
CiCY
CICY
CICY
CICY
.. I(.Y
..: ICY

068
070
079
081
089
096
097
100
108
IH!

120
122
147
163
119
195
203
225
241

CBRC
CICY
C Ie Y
CICY
CICY
CFe Y
CICY
CICY
CSIS
CICY
CICY
CFCY
CICY
CICY
CICY
CICY
CICY
ClC Y
CICY
CICY
CICY
(.IC Y
CICY
C IC y
C IC 'y
C IC Y
C IC Y

Ot4
05B
029
028
026
069
1b1
24':>
020
047
072
034

Gsa

OSO
OU
032
11.9
102
110
016
017
OS4
OCl
049
0~2

Ot)
0<'3

(COM 027
CICY
C IC Y
CICY
C IC Y
C ICY
CSIS
C IC 'y

CRess REFERENCE FOR CSECT CICY

*

**********************************

CDMD 005

CDVU 010

CFCY 051

CLST 063

CMlT 006

CNVR 008

CSFT 023

CSTS 009

CICY
CICY
CICY
OClA

CICY 124
CICY 217
CICY 248

CICY 125
CICY 219
ClCY 255

CICY 133
CICY 220
CICY 256

CICY 142
CICY 225

CICY 143
ClCY 233

C IC Y 144
C IC Y 234

CICY 145
C ICY 235

030
021

122
182
246
118
051

CICY 053

C IC Y 062

123
196
247
004

C ICY 055

CICY 176
CICY 236

CICY 1.,0
CICY 241

CLOAD=*E60, EC LE VEL=128211

PAGE 110

CLUG -- LOGICAL OPERATIONS

. *---------------------------------------------------------------*
INSTRUCTION fORMAT
*
~ ENTRY
OPERA lION
• BYTE 1 • BYTE 2 • BYTE 3 • BYTE 4 *
*--------.------------------.--------.--------.--------.--------$
*

*
"
"
*
*

*
*
*
*
**
*

kROP l4
RI~OP 15
RKOP16
RROP11
RXOP41
RXOP42
I<.XOP43
KXOP54
RXOP55
R XOP56
R)(01"51
KSOP91
I{SOP92
RSOP94
RSOP95
RSOP96
RSOP91

COMPARE
·· OR
AND

·· EXCLUSI VE OR
ADURESS
·· LOAD
STORE CHARACTER
INSERT CHARACTER .
·· AND
·· ORCOMPARE LOGICAL

14
15

16
11

41
42
43
54
55
56

·· Rl

···
··
··
··

Rl R2
Rl R2
R2
lil R2
Rl X2
Rl X2
Rl X2
Rl X2
Rl X2
Rl X2
R1 X2
12
12
12
12
12
12

*

·· 132B2
·· B2
·· 6262
·· B2B1
·· BlB1
· Bl

DZ
02
02
02
02
02
02
01
ul

02

D2
B2 02
D2
02
02
02
01
01

*
*
*
*
*

*

**
**
*

vE OR
51
·· EXCLUSI
TEST UNDER MASK
91
MOVE
92
·
01
AND
01
94
*
**
·
COMPARE
LOGICAL
95
01
01
*
*
01
96
*
*
··· OREXCLUSI vE OR
· BlB1 Dl01
91
01
*
*
·
* --------------------------------------------------------------*
5S fORMAT INS TRl;C T IONS

*-----------------------------------------------------*
* 01" CODE. Ll L2. B1 Dl. 01 01. B2 02. 02 02 *

*-----------------------------------------------------*
ENTRY POINTS
OPERATION
SSOPD 1
SSOPD2
SSOPD3
SSOPD4
SSOPD5
SSOPD6
SSOPD1
ADDR

Z93A

293C
293E
2EU
2EAC

WORD

A653
1510
81B3
of15

A653

MOVE NUMER IC
MOVE
MCVE lONES
Ai\lD
CCMPARE LOGICAL

OBJECTIVES
AND, OR,

EXCLLSIVE OR
THE LOGIC fUNCTION IS PERfORMED WITH CORRESPONDING BITS
IN THE 1ST AND 2ND OPERANDS. THE RESUlf RE PLACES THE
lST DPlRAND. IN THE SI fORMAT, 12 lS THE 2ND OPERAND
AND IS ONE BYTE LONG.

COMPARE
COMPARE 1ST OPERAND TO THE 2ND OPERAND.
TREATED AS UNSIGNED BINARY QUANTITIES.

STORE CHAKAC TER
MOVE BYTE 3 Of Rl TO PROGRAM STORAGE ADDRESSED BY 2ND
OPERAND.
MOVE
THE 2ND OPERAND IS PLACED IN THE 1ST OPERAND LOCATION.
IN MOVE iMMED[ATE~ 12 IS THE 2ND OPERAND.
MOVE NUMERIC
SAME AS MOVE, EXCEPT ONLY THE LOW-ORDER 4 BITS ARE MOVED.
MOVE lONES
SAME AS MOVE, EXCEPT ONLY THE HIGH-ORDER 4 BITS ARE MOVED.
TEST UNDE;{ t"ASK
THE IMMEDIATE DATA IN BYTE 2 OF INSTRUCTION IS TESTED
BIT FOR BII AGAINST THE LST OPERAND.
LOAD ADDRESS
SET THE EfFECTIVE ADDRESS OF THE 2ND OPERAND INTO THE
lOW 24 BITS Of Rl.

OR

E XCLUSl VE OR

SEQUENCE NO.
CLOG
CLGG
CLUG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG

001
002
003

LABEL
T

*
*

RSOP92

OOft

005
000
007
008
009

*

OPERANDS ARE

NEXTSEQ

NEXT LABEl

STATEMENT

COMMENTS

LOGICAL OPERATIONS
MOVE IMMEDIATE
CICY 045 ADOERR N
CICY 005 I Sf ART N
MOVE CHARACTERS

SSOP02
CICY 045

ALlDERR N

5R If Hl"'NI
ST B Gl U
N=S BITSb7

MOVE
IMMEDIA TE
EXECUTION

Hl=HUDl
BR IF Hl=Nl

MOvE
ChARACTERS

AUOK

WORD

LEAE
2Ei:lO
Z!:i:l2
2EB4
ZEB6

5738
1718
25FF
F4AF
8 IB 3

2E 48
2E4A
2E4C
2E4E
ZE50
2E 52
2E54
2E56
2E58

H15
A853
5738
5FlO
4F1B
7718
25FF
F4CO
8 1B 3

2E5A
ZE5C
ZOE
2EbO
2H2
ZE64
ZE6e.
ZE68
ZEOA

6f15
AB53
5738
5F10
4F 70

33M

336C

8A 70
AC9C

2C9A
2C9C
2C9E
2CAO
ZCA2

A110
8114
05A8
f5A5
AC84

2C1A
2C1C
2C 1E
2C80
2C82
2C84
2e86
2eA4
2CA6
2eAS
2CU

A853
5F 10
1F51
C4A9
F4A5
2C55
81B3
2C25
8lB3
2C01
81B3

2C88
2C8A
2C8C
2C8E
2C90

7718

25FF
F4DF
81B3

6F15
AB53
5738
5F18
1Fll

SEQUeNCE NU.
CLOG
ClUG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLl]!.>
CLOG
CLUG
CLOG
CLOG
CLOG
CLOG
CLOG
CLUG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG

010
011
012
013
014
015
016
011
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
03e.
031
038
039
040
041
042
043
044
045
046
041
048
049
050
051
052
053
054
055
056
051
058
0.59
060
061
062

*

SfATEMENT

NEXTSEQ

OP02

ROB 01 V+l
STB 01 U+1
Gl=Gl +KFF
BR IF AC= 1
010 01'02
CICY 005 {STARf N N=S BITS61
MOVE NUMERICS
HI=Hl$OI
CICY 045 ADOERR N BR IF H1=N1
RDB D1 V+1
ROB HI U
Dl=rllH+D1l
STB Dl U+l
Gl=G1+KFF
BR IF AC= 1
018 OPDl
CICY 005 ISTART N N=S BITS67
MOVE ZONES
Hl=HUDl
CICY 045 AOOERR N BR IF Hl=Nl
ROB 01 V+1
RDB HI U
Ol=H1L+DIH
STB 01 U+l
G1=GI+KFF
028 OP03
BR IF AC= 1
CICY 005 I ST ART N N=S BITS61
COMPARE lOGICAL RR
CCOM 036 CRGET
BAl
BR
040 CXCOMl
COMPARE LOGICAL RX
BAl
CCOM 045 CXGET
BAL
CCOM 086 CSlOOP
BR IF S 1=0
054 OP95B
BR IF S3=1
052 OP95A
BR
050 OP95C
COMPARE lOGICAL RS
CICY 045 ADO ERR N BR IF Hl=NZ
ROB HI U
Hl=Hl-GlH
BR IF 1=0
054 OP95B
BR IF AC= 1
052 OP95A
PO=0$K50
CICY 005 I ST ART N N:S BITS61
PO=0$K20
CICY 005 I ST ART N N=S BITS61
PO=O
CICY 005 I Sf ART N N=S BITS61

SSOPOI
OP01

*SSOPD3
OP03

*RROP15
*RXOP55
C XCOMl

*RSOP95
OP950
OP95C
OP95A

OP95B
*
*

NEXTLABEl

LABE L

SSOP05
OP05

COMPARE LOGICAL CHARACTERS
H1=Hl$Ol
CICY 045 ADO ERR N BR If Hl=Nl
ROB 01 V+1
ROB Hi U+1
Hl=Hl-Ol+l

ClOAD=*E60, EC lEVEl=128211
CO"lMENTS
E>cECUTION

MOVE
NUMER Ie s
EXECUTION

MOVE
ZONES
EXEC UT I ON

COMPARE
LOGICAL
INSTRUCTIONS
EXEC UTI ON
GO SE T CC 0
GO SET CC2
GO SET CC 1

PAGE 111

ADDK

wORD

~E:QUE:NCE:

2C92
2C94

C482
25FF
F48D
ACA8

CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLeG
CLOG
CLOG
CLOG
CLUG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
ClCG
CLOG
CLOG
CLOG
ClO':;
CLOG
CLOG
CLOG
CLUG
CL OG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
ClUG
CLOG
CLOG
CLOli
ClUG
CLOG
CLOG
CLOG
CLOG
CLOG
ClUG
ClOli
elCG
CLOG
CLOG

2[90

2C98
291E
292()

8A 70
A90A

2908
L90A
290C
2'lOE
2910
2911
2914
2916

A770

2ns

1tA!3
IEAA
E59B
ACA!3

29lA

2C~5

291C

13 IB 3

? f:22

AB53
5FtO
6F57
C4tH
7f 10
2e55
8un
7F 10
ZC 0 I
8183

~E24

~E2b

2E28
2i: 2A
2E2C
2 ELI:

Zt 30
ZE32
.:' 04

6F11
bEGl
tH1
6t21

29AA
29AC
.:'9AE
2<) tlO
2<)B2
29B4
29B6
nB8
298A
Z9BC

tfl5
AB53
laCE
:.138
5HO
6 7F 7
7118
25FF
f4Bl
A916

.n 72

8A70
B338

33 74
333b
3338

A770
6f15

NU.

063
064
065
066
067
068
06<:1
010
071

012
013
014
075
076
017
0713
079
OBO
081
082
0133
C84
085
086
087
088
C89
090
091
0<:12
093
094
095
096
097
098
099
100
101
102
103
104
105
lab
107
108
109
110
111
112
113
114
ll~

LABEL

*
*

NEXrSEQ

NEXT LABEl

049

OP9~O

060
054

OP05
OP95B

RROP14

RR
AND
CCOM 036 CRGET
074 CXAND

*RXOP54

RX
AND
CCOM 045 CXGET

*
CXAND

CClOST
52CHK

082
054

5ETNZ
OP95B

51: TNl

•*

RSOP94

OP94A

CICY 005

ISTART N

RS
ANO
CICY 045 ADOERR N
093

CP948

CICY 005

I Sf ART N

C ICY 005

1ST ART N

OP94B

**

AND

AiJUERR N

OP04

•*

RROP16

*
*

RXOP56
CXOR

101
080

UP04
S2CHK

RR
OR
CCOM 03b CRGET
115 CXOR
OR
RX
CCOM 045 CXGET

CLOAO=*E60, EC lEVEL:128211
COMMENTS

BR IF lNZ
Gl=Gl+KFF
BR IF AC= 1
BR
BAl
BR
BAl
Hl=Hl*Ul
HO=HO*UO
Dl=Dl*Vl
DO=DO·VO
5T H 0 AS, T +2
STH H AS,T-2
8R 1 F S 2= 1
BR
PO=0$K50
N=5 BIT S6 7
BR IF Hl=Nl
ROB Hl U
tH=Hl*GI
8R IF z=o
ST 8 HI U
PO=0$K50
N=S BlTS67
srB Hl U
P()=o
N=5 81TS61

SS

SSOP04
CICY 045

5T ATEMENT

Hl=HUOl
8R IF Hl=NZ
RS r 5 K=FC
ROB 01 VH
ROB HI U
Ol=OI·Hl
STB 01 U+l
Gl=Gl+KFF
BR IF AC= 1
BR
8Al
BR
BAL
Hl=Hl$U 1

ANO
E XECUTlON

PAGE 112

ADOR

WORD

333A
333C
333E
3340

6EC5
6735
6625
A912

28F6
2Bf8
2IH·A
ZIHC
2Df-A
2DfC
2DfE
2EGO

2EOl
2E04
2E06
2EOS
2EOA
2EOC
337A
337C
332A
332C
332E
3330
3332
3334
2D12
2LJ14

2U76
2D7S
20EO
ZOEZ
2DE4
20ft:
20tS
ZUEA
20EC
20EE
20fO
ZDFZ

AB53
5FI0
6fS5
AE28
6f75
ASS3
lOGE
5738
5F 10
67f5
7718
25fF
F481
A916
8A10
B32C
A770
of 11
6EG1
6731
6621
A912
AB5)
5FI0
6f 51
AE28
6F15
AB53
10CE
5138
5F10
6 7F 1
7118
25fF
f4E7
A916

SEQUENCE NO.
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
ClUG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG

116
117
U8
l19
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
15t»

157
158
159
1.60
161
162
163
164
165
166
167
16S

lABEL

NEXTSEQ

078
*
*
RSOP96

CCLOST

OR
RS
AJDERR N
CICY 045
089

*
*

NEXTlABEL

OR

OP94A

CICY 045

AODERR N

OPD6

131
080
*

*
*

RXOP57
CXXOR

*RSOP97

XOR
RX
CCOM 045
CXGET

CCLOST

XOR
RS
AOOERR N
CICY 045
089

*
*

OPD6
S2CHK

XOR
RR
CCOM 036
CRGET
145 CXXOR

078
*

XOR

OP94A

HO=HO$UO
01=01$V 1
OO=OO$VO
BR
BR IF H1=NI
ROB HI U
Hl=HUGl
BR

CICY 045

AOOERR N

OP07

161
G80

Hl=HU01
BR If H1=NZ
RST S K=FC
ROB 01 V+1
ROB HI U
01=Ol$Hl
STB 01 U+l
Gl:Gl +K FF
BR IF AC=1
BR
BAl
BR
BAl
H l=H leU 1
HO:::HOaUO
Dl= Dlev 1
DO=Doevo
BR
SR IF Hl:NZ
ROB HI U
Hl=HlaGl
BR

5S

S50P01

*

CtOAO=*E60, EC lEVEl=l28211
COMMENTS

SS

SSOPD6

* RROP17

STATEMENT

OP07
S2CHK

Hl=Hl$Ol
BR IF HL=NZ
RST S K=FC
ROB 01 V+1
ROB HI U
01: Ole H1
STS 01 U+l
Gl=Glf-KFF
BR If AC= 1
BR

XOR
EXEC UTION

PAGE 113

AODR

WORD

2LBO
2CB2
2[B4
2lB6
2CBt!
2lBA
ZCBC
2C8f.:
2CAC
2eAE

AB5]
5FIO
6F51
C4A9
6F51
C4AD
2C55
!lIB 3
2C15
81B3

2EDC
2EDE
ZEEO
ZEE2
2EE4
2 Et:6

AB53
55BB
283B
5110
77AO
81B3

2EB8
2EBA
ZEBC
2ESE
2f.:CO
21::U

A853
5588
2B3B
57AC
7710
81B3

2996

556B
2Ee7
7EA8
70AO
8183

2~9t1

299A
299C
299E

CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLUG

004
008
010
016
018
026
028
036
039
040
045
049
050
052
054
058

LABEL

SEQUENCE NO.
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
ClUG
CLOG
CLOG
CLOG
CLOG
CLOG
CltJG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG

C IC Y
CICY
CLOG
CICY
CLOG
CICY

169
110
111
172
113
114
115
116
171
l78
119
180
181
182
1 B3
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
ZOI
Z02

*

RSOP91

OP91B
*
*

*
*

RXOP43

RXOP42

NEXTSEQ

CLOAD=*E60. EC LE VEl=128211
COMMENTS

STATEMENT

TEST UNDER MASK
CICY 045 ADD ERR N BR IF Hl=NZ
ROB HI U
Hl=Hl*Gl
BR IF Z=O
054 OP95B
Hl=H1aGl
BR IF Z=O
118 OP91 B
PO=0$K50
CICY 005 ISTART N N=S BITS67
PO=0$K10
CICY 005 I START N N=S 8ITS61
INSERT CHARACTER
CICY 045 ADDERR N BR IF Hl=NZ
Tl=GlH
T 1=Tl+K03
ROB 01 U
STS 01 AS,T
CICY 005 I Sf ART N N=S BITS61
STORE CHARACTER
CICY 045 ADOERR N

CICY 005
*
*

NEXT LABEl

BR IF Hl=NZ
Tl=GlH
Tl=Tl+KO] ,
ROB 01 AS,T
STB 01 U
1ST ART N N=S BITS61

LOAD ADDRESS
R XOP41

(ICY 005

Tl=G1H
HO=O
STH H AS,T+Z
STH U AS, T
1ST ART N N=S SITS67
**********************************
* CROSS REFERENCE FOR CSECT CLOG *
**********************************

2C5
221

013
226
023
228
ClOG 033
CICY 1:2
CICY 1E4
CLOG 037
CICY 2(8
CLOG Ot3
CLOG 043
CFAO 018
CLOG 041
CICY 230

CSAS 103
CLOG 042
CLOG 048

C TRT 032
CLOG 049
CLOG 066

CTRT 06Z
eSAS 102
CLOG 081

CSFT 085
CLOG 113

eTRT 031

CTRT 063

PAGE 114

CLOAO=*EbO, EC LEVEL=128211

CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG

060
069
073
014
018
080
082
086
089
093
098
101
110
11 It
115
122
128
131
140
11t4
11t5
152
1.58
161
110
178
182
190
198

CLOG
C ICY
C IC '{
CLOG
CLOG
CLOG
CFAD
CICY
CLOG
CLOG
CICY
CLOG
CICY
CIC Y
CLOG
CIC Y
CICY
CLOG
CICY
ClCY
CLOG
CICY
CIC Y
CLOG
CICY
CLOG
CICY
CICY
C ICV

***********************************
CROSS REFERENCE FOR CSECT CLOG *
**********************************
Ot5
151
183
070
119

lCl
019
2C7
125
089
229
lC6
153

lE5
111
209
231
136
154
186
141
210
232
H6
204
175
166
165
164

CLOG 149
CLOG 131
CLOG 080
CLOG 155

CLOG 161
CSFT 016

PAGE 115

CLOAD=*E60, EC LEVEL:ll8211

PAGE lIb

CLST -- LOAD AND STORE INSTRUCTIONS

*---------------------------------------------------------------.
fORMAT
* EcNIKY
•
BYTE 2
OPERA HUN
. BYTE 1 ·INSTRUCTION
· BYTE 3 '. BYTE 4 ',."
10
LOAD PO!lITlVE
10
* RROP
·· RlRl R2R2
RROPll · LOAD NEGATIVE
11
•
*' RROP 12 · LUAO AND TE ST
Rl R2
12
* RROP 13 · LOAD COMPLEMENT
·
,.
'
"
13
Rl
R2
* RROP 18 · lJAD
·
Rl
R2
18
*
'"
· STORE MLLlIPLE
·· Rl R3 · B2 D2
90
02
* RR:iOP90
'
"
98
Rl R3
82 02
D2
5lJP98 · LOAD MULTIPLE
· Rl X2 · B2 D2
''""
40
K)(OP40 · STORE HALFWORO
02
* RXOP48
· Rl X2 ·· B2 02
· STORE HALF WORD
48
02
* RXOP50 · LOAD
'"
·
Rl X2
50
B2 02
02
*' RXOP 58 · LOAD
·
R1 X2 · B2 02
58
02
''""
·
·
·
*--------_._-----:-------------------------------------------*

OBJECTIVES CONTINUED

>;<

LOAD AND TEST

- THE 2ND OPERAND IS PLACED IN THE 1ST
OPERAND LOCATION, AND THE SIGN AND THE
MAGNITUDE Of THE 2ND OPERAND DETERMINE
THE CONDITION CODE.

LOAD HALf WORD

- PLACE THE HAlf WORD 2ND OPERAND INTO THE
1ST OPERAND LOCATION. EXTEND THE SIGN
INTO THE HIGH-ORDER Ib BITS OF THE 1ST
OPERAND.

LOAD MULTIPLE

- THE INfORMATION AT THE EffECTIVE 2ND
OPERAND AODRESS IS LOADED INTO GENERAL
REGISTER STARTING WITH THE ONE
SPECIFIED BY Rl AND ENDING WITH THE
ONE SPECIFIED BY R3.

STORE MULTIPLE

- THE INFORMATION IN THE GENERAL REGISTER
STARTING WITH THE REGISTER SPECIfiED BY
Rl AND ANO ENOING WITH THE REGISTER
SPECIFIED BY R3 IS STORED AT THE
LOCATIONS DESIGNATED BY THE EffECTIVE
2ND OPERAND ADDRESS.

STORE HALf WORD

- MOVE THE Ib lOW-ORDER BYTES OF THE 1ST
OPERAND TO PROGRAM STORAGE ADORESSED
BY THE 2ND OPERAND.

STORE

- THE 1ST OPERAND IS MOVED TO PROGRAM
STORAGE AT THE EfFECT IVE AODRESS OF
THE 2ND OPERAND.

>;<

>;<

OBJE<..T IVES
LOAD PO S IT I VE

THE TRUE VALUE Of THE 2ND OPERAND IS
PLACED IN THE 1ST OPERAND LOCATION.

lOAU NEGATIVE

- THE TWOS COMPLIMENT OF THE TRUE VALUE
OF THE 2ND OPERAND IS PLACED IN THE
lSI OPERAND LOCATION.

LOAD COMPLEMENT - THE TWOS COMPLEMENT OF THE 2ND DPERANO
IS PLACED IN THE 1ST OPERAND LOCATION.
- PLACE THE 2ND OPERANO INTO THE 1ST
OPERAND LOCATION.

LOAD

AUOR

2C 34

ZC 36
ZC 38
2UA

2C3C
ZC 3E

2C40
2C42

"ORO

e37C

(610
8AEO
C610
76A8
lEAA
2C 7 5
CDC9

SEUUENCE NU.
CL Sf
CLST
CLST
CL 5T
CL ST
CLSI
CL 5T
CLST
CLSI
CL ST
CL sr
CLST

001
002
003
004
0\)5

006
007
008
009
010
011
012

LABEL
1

,.•
*RROPIO
PCOMPl

NEXfSEQ

NEXT LABEL

STATEMENT

COMMENTS

lOAO AND STORE INSTRUCT IONS
lOAD POSITIVE
Ce.O,", 029 LGET
020 O(HECK
CCOM 076 COMPl
020 DCHECK

O\/CHEK
SHf TOV
014

TAKEOV

BAL
BR If 000=0
BAL
BR IF 000=0
STH 0 AS. T+2
STH H AS,T-2
PO=OSK70
8R IF PIO= 1

SET CC:3-QVERFLOW

ADOR

WORD

2C44
2C08
2COA

81B3
21:383
'1C 70

2COC
LCOE
2C 10
LCl2
2C 14
2C 16
2e46
2C48
2C4A
lC4C
2C28
Le2A
2C2C
2C2E
2C30
2C 32
2e 24
2C26
2COO
2eOl
2C04
2e06
2Ege
2E9E
2EAO
2t:A2
2EA4
2EA6
2EA8
2014
2D16
2D18
201A
2D1C
2UIE
2D20
2022
2024

a37C
C625
4H6

4666
05C 7
AC30
2e25
l6AS
7EAA
8183
837C
C625
8AEO
C625
2C07
AC48
2C55
AC48
831C
C63<1

8AEO
ACOE
55B3
56A8
5EAA
55B8

76A8
7EAA
81B3
A853
OLE 3
fGA4
55BB
2B2B
52AO
1210
81B3
AE
036
037
038

NEXTSEQ

*

*

STATEMENT

BAl
BR .IF 000= 1
H=H
0=0
BR IF S 1-= 1
BR
PO=OSK20
STH 0 AS,T+2
STH H AS,T-2
N=S BITS67
BAL
BR If 000= 1
BAL
BR IF 000=1
po=o
BR
PO=OSK50
8R
BAL
BR IF 000= 1
BAl
BR

RR
Tl=GlXH
ROH D AS. T+2
RDH H AS,T-2
Tl=GlH
STH 0 AS,T+2
STH H AS,T-2
[START N N=S BHS67

STORE HALf WORD
ClCV 045 ADDERR N BR IF Hl=NI
Z=Ul*-KOE
BR If LZNZ
063 SPEC
Tl=GlH
Tl=Tl+K02
RDH V AS,1+0
STH V U+O
CICY 005 I START N N=S BlTS67
CICY 059 SPECHK
BR
LOAD HALF WORD

CLOAD-=*E60. EC LE VEL=128211
COMMENTS

PAGE 117

ADDR

IiORD

SEQUENCE NO.

LOOO
2D02
ZD04
2006
2.108
ZDOA
ZOOC
ZOOE
2DLO
2012

A853
OlE3
FOA4

CLSI 06b

55B~

5E10
2107
CElO

21F7
5769
AC48

2E:DO
2ED2
2ED4
ZED6
21008
2EDA

1E:l0
81B3

2E:C4
LEG6
2EC8
21:CA
lECC
ZtCE

5568
5618
5UO
7eA8
7E:AO
81tH

2EE8
ZUA
ZtEC
2EH
2UO
2H2
2EF4

AD20
52A8
7218
52AO
7218
AD30
AEEA

lABO
LABZ
lAB4
lASe
LA S8
lABA
lABC
2026
2028
202A

2DZC
2UZE
2030
2D32
2034
2D36

55B8
56A8
5EAA

1618

AD26
5218
72A8
5218
72AO
AD30
9AB2
AS53
01C 3
FOA4
55BB
128E
5531
B51
C4A3
2510

CL SI
CLSr
CLSI
CLSr
Cl S r
Cl SI
CL sr
CLST
Cl S T
CLSI
CLST
CLSI
ClSI
CL ST
CL S 1
CL S1
CL SI
CLSI
CLSr
CL SI
CLST
CLSr
Cl SI
CLST
CL SI
ClSl
CL ST
CLSI
CLSI
CLST
CLSr
CLS1
CLSI
CLSI
CLsr
CLSI
CLST
CL ST
CLsr
CL SI
CLST
CLSI
CLSr
CL ST
CLST
CLST
CLST
CLST
Cl ST
CL ST
CLsr
CL ST

LABEL

NEXT SEQ

NEXTLA8El

STATEMENT

RXOP48

CICY 045

ADDERR N

BR IF Hl=NZ
I-=U1*-KOE
BR. IF LINZ
T1:GIH
ROH H U

061
008
069
070

063

SPEC

014

EXT

025

DST ORE

O}:O

071
072

BR IF HOO:O
01:0$KFF
DO=Dl
BR

013
074
015
076
077
078
079
080
081
082
083
084
085
086
081
088
G89
090
091
092
093
094
095
096
097
098
099
100
101
102
103
104
105
106
101
108
109
110

EXT
*
*

STORE

CICY 005

*

*

OP

RX

RXOP50

ISTART N
RX

LOAD OP

RXOP58

elC Y 005

**

RSOP90
RS90A

*

*RSOP98

1ST ART N

LOAD MULT I PLE
liD RS9XA

115
095

RS9X6
RS90A

RS98A

RS9XA

104
CICY 045

RS9XB
RS98A

ADDERR

III
112

063

SPEC

062

RSEND

113
114
115

RS9XB

116
117
118

f1=G1H
RDH D U+2
ROH H U
STH 0 AS,T+2
STH H AS, T
N=S BIT S67

BAL
RDH
STH
RDH
STH
BAl
BR

STORE MULTIPLE
RS9XA
lIO

115

T l=GIH
RDH 0 AS, T+2
RDH H AS,T-2
STrl D U+2
STH H U
N-=S B ITS67

N

V
V
V
V

AS, T+2
U+2
AS,T
U+2

BAL
RDH V U+2
STH V AS.I+2
RDH V U+2
STH V AS,T
BAL
BR
BR IF Hl=NI
I=Ul*-KOC
BR IF LINZ
Tl=GIH
RTN
Vl=G1X
Vl=VlaGl
BR IF Z:O
Gl=Gl+K10

CLOAD=*E60, EC lEVEL:128211
COMMENT S

PAGE 118

AIJOR

WORD

SEQUENCE NO.

2038
L03A

55B8

CLSf 119
CL Sf 120

128E

LABEL

NEXfSEQ

NEXT LABEL

CLOAD=*E60, EC LEVEL=128211
COMMENTS

STATEMENT
T l=GIH

RIN

**********************************

*
Cl ST
Cl ST
CLSI
CLSI
Cl ST
CLSI
CLSI
CL sr
CLSr
CL Sf
Cl SI
CLSI
CL Sf
CL SI
CL SI
CLST
CLSf
CL Sf
CL Sf
CL SI
CLST
CL Sf
CLSf
CLSr
CL Sf
CL Sf
CLST
CL Sf

005
007
009
all
014
018
019
020
024
025
010
034
036
040
046

055
062
063
066
074
078
086
094

095
101
104
110

115

C ICY
CLSI
CBIN
C;)FI
CLSI
CICY
CLSI
CLST
CBIN
CLSI
CICY
CBIN
CB IN
CICY
CICY
CICY
ClST
CL Sf
CICY
CLST
CICY
C ICY
CiCY
CLSI
CICY
CLSI
CLSI
CLST

141
041
032
014
012
149

043

oeb
035
035
14B
033

034
150

CLSI 008
CLST 022
CLSI 037

CLSI 075

CLSr 023
CLSf 019

CLST 031

CLST 068

ClST 112

155

It3
117
051

171
012
179

1 E1
203
100
211
lC9
O~4

099

CROSS REfERENCE fOR CSECT CLST

*

**********************************

CLST 103
CLST 108

CLST 033

PAGE 119

ClOAD=*E60. EC LEVEL=128211

CMLT -- MULTIPLY BINARY ROUTINE

DESCRIPTION

*---------------------------------------------------------------*
*
INSTRUCTION FORMAT
*
* tNTRV
OPERATION
• BYTE I • BYTE 2 • BYTE 3 • BYTE 4 *
*--------.------------------.--------.--------.--------.--------*
* RROPIC • MULTIPLY
IC
• Rl R2
*
* RXOP4C • MULTIPLY HALf WORD. 4C • Rl X2 • B2 02
02
*

* RXUP5C • MULTIPLY FULLWORD. 5C • Rl X2 • B2 02
02
*
*---------------------------------------------------------------*
OI3Jt:CTIVES
1.

2.

FETCH BOTH OPERANDS. FOR FUlLWORD MULTIPLY, THE
MULTIPLICAND IS fOUND IN THE ODD REGISTER FOLLOWING
THE EVEN REGISTER SPECIFIED BY RI. FOR MULTIPLY
HALF~ORD, Rl SPECIFIES THE LOCATION OF THE
MULTiPlICAND. THE MULTlPllER IS FOUND IN Rl OR AT
THE EffECTIVE MAIN STORAGE ADDRESS.
CREATE A TABLE OF MULTIPLICAND VALUES IN AUX STORAGE
-- MULTIPLICAND TIMES I, X4, X16, AND X64.

3.

RtAD EACH HEXADECIMAL MULTIPLIER DIGIT, STARTING AT
THE LOW-ORDER. CREATE PRODUCT B.. AWING APPROPRIATE
TABLE VALUES OR COMBINATION OF VALUES AS DETERMINED
BY THE MULTIPLIER DIGIT. THE PRODUCT IS SHIFTED
AFTER ADDING THE TABLE VALUES FOR BOTH tHE HIGH AND
LOW DiGiTS OF EACH MULTIPLIER BYTE.

4.

SJORE THE PRODUCT IN THE LOCATION THAT ORIGINALLY
CONTAINED THE MULTIPLICAND.

ADDK.

WORD

0184
0786

F5C3
3515
A770
82FA
AE98
E191
3485
F503

0/88
0-/8A

OHJZ

olBC
018£
0790

LABEL

SEQUENCE NO.
CMLT
CMU
CMU
CMU
CMLT
CMU
CMU
CMU
CMU

001
002
003
004

T

RXOP5C

OO~

006
001
008
009

ERRORA
RROP1C
NEQLA6

PAGE 120

NEXTSEQ

NEXT LABEL

THE ROUTI~E FETCHES THE OPERANDS, THEN PERFORMS SIGN
ANALYSIS. THIS RESULT IS STORED FOR USE AT THE END OF THE
ROUTINE.
THE MULTIPLY TABLE IS STORED IN AUX STORAGE. TO BUILD
THE TABLE. HE ROUTINE MAKES 4 PASSES THROUGH A LOOP.
IN
THE LOOP, THE MULTIPLICAND IS STORED, THEN DOUBLED AND
REDOUBLED. THEREFORE, THE VALUES STORED IN THE TABLE ARE
MULTIPLICAND TIMES I, 4, 16, AND 64. SEE AUX STORAGE MAP
IN SECTION AAAB FOR LOCATION.
MULTIPLICATION IS DONE ON A BYTE BASIS. FOR THE LOW DIGIT
OF THE MULTIPLIER BYTE, THE TABLE ADDRESS IS INITIALIZED
FOR Xl. FOR THE HIGH DIGIT, THE TABLE ADORESS IS SET fOR
X16. THEN, A 16-WAY BRANCH ON THE ACTUAL MULTIPLIER DIGIT
OCCURS. THE BRANCH DIRECTS THE MICROROUTINE TO THE PROPER
COMPUTE ROUTINE FOR THE CURRENT MULTIPLIER DIGIT. THE
COMPUTE RilUTINfS CHANGE THE MULTIPLY-TABLE ADDRESS IFAX4
OR A X64 TABLE VALUE 1 S NEEDED. ALSO, COMPLE MENT ADO IS
SET IF A SUBTRACT IS NEEDED. THEN THE MICROROUTINE IS
DIRECTED TO ADO EITHER ONCE OR TWICE DEPENDING ON THE
COMPUTE ROUTINE FOR THE CURRENT DIGIT. NOTE THAT FOR SOME
DIGITS. ADDS FROM TWO DIFFERENT TABLE ADDRESSES ARE
NECESSARY.
SHIFTING OCCURS AFTER BOTH THE HIGH AND LOW DIGITS FOR
EACH MULTIPLIER BYTE ARE PROCESSED. THE CURRENTLY COMPLETED
PRODUCT BYTE IS SHIFTED OUT OF THE PRODUCT-BUILDING AREA AND
INTO THE REGISTERS FORMERLY OCCUPIED BY THE MULTIPLIER.
A COUNTER DETERMINES THE LAST MULTIPLIER DIGIT. AFTER
THIS LAST DIGIT IS PROCESSED, A CARRY TEST IS MADE. A FINAL
Xl VALUE FROM THE TABLE IS COMPLEMENT-ADDED TO THE PRODUCT
IF THE NEED IS INDICATED BY THE SIGN AND MULTIPLIER-LOW
DIGIT CARRY.
TO COMPLETE THE MUlTIPLY OPERATION, THE MICROPROGRAM
RESTORES THE SAVED REGISTERS, AND THE HALFWORO OR FULLWORD
PRODUCT IS STORED AT THE 1ST OPERAND ADDRESS. THEN, THE
MICROPROGRAM RETURNS TO I-CYCLES.

STATEMENT

MULTIPLY BINARY OP CODES
006 ERRORA
BR If G13=1
Gl=Gl$K10
eCOM 045 CXGET
BAL
BR
015 ST ART
BR
CICY 059 SPECHK
BR If S6= 1
009 NHLAB
GO=GO$K80
BR If G13= 1
006 ERRORA

COMMENTS
D. L. SMITH

ADDR

WORD

0792

3515
8A70
82fA

073
BI<. IF P 10= 1
srH I AS,P+2
STH T AS, P+2
STH 0 AS, P +2
STH H AS,P+2
BAL
SAL
BR
Pl=O
1= P
T=P
G=P
D=P

CHKlO4
NXY

049
059

lOCHK
C VCLE

U53

054
055
056
057
058
059
060
061
Ub2

STATEMENT

130
059
056
059

HICHK
130
ADJLSJ
FLTMU2
AlMOSA

081
046
064

H=U
U=P
PO=OSKO 1
LOCHK
BR IF so=o
Hl=Hl+KOl
ADJUST
BR IF AC= 1
P i=OSK 10
RST S K=90
DIG
N N=HIL
ADJUST
BR If P 11= 1
tlR IF SO=O
HICHK
Hl=H1+KI0
BR IF AC= 1
ADJUSr
Pl=OSK50
RST S K=90
DIG
N N=HIH
PO=PO+K02
ROT A
BAl
CHKL04
BR IF P04=0
ALMOST
BR IF 54=0

ClOAD=*E60. EC LE VEL=128211
COMMENTS

PAGE 121

I\U[;K

WOIUJ

I;, '>A
03 ':>C
u15E
0j60
ld62
0364
0366

95f6
54F2
C 5E9
E068
3CC2
2015
9C02
9256
2AC7
55Bti
12A8
7EAA
F47A
IB 15
HAS
70AA
A8UI::

0~68

03M
036(;,
I)j6E

uHO
UH2
0314
O:l76
tH78
OHA
146d
146A
146C
146E
1470
1472
1474
1416
147d
147A
147C
141E
i480
1482
1.:.84
1486
1488
148A
148C
O'i6E
U'J10

0,12
0'74
0')76
0578
1)57A
057C
057E
1\;02
lC04
1CD6
ICoS
ICoA
ICDC
lCDE

5Ef9
53E9
523<>
5129
501Q
5709
5679
5B69
5A89
55A9
5459
24C7
C50C
058f
H8A
C 10C
C58C
24F7
121lE
6fFS
bEED
6710
6660
6BBo
6AAO
6990
6880
128E
lCfB

30n
58CA
7190
1080
SatA
779fJ

SI::QUE:NCI:: NO.
CMU
CMU
CMll
CMU
CMl T
CMlT
CMU
CMU
CMLl
CMLl
CMll
CMLT
CMLl
CMll
CMLl
CMLl
CMU
CMll
CMU
CMLl
CMLT
CMLl
CMU
CMll
CMLT
CMLT
CMU
CMU
CMLl
CMlT
CMU
CMl T
CMlT
CMLT
CMLl
CMt T
CMll
CMLl
CMU
CMLI
CMl T
CMU
CMlf
CMll
CML J
CMU
CMU
CMU
CMU
CMLl
CMll
CMlT
CMll

063
064
065

LABEL

NEXTUBEl

CfMU 009

/AULT

ALMOST

1)66

067
068
069
070
071
072
073
074
075
016
077
C78
079
080
081
C82
083
084
085
C86
087
088
089
090
091
092
093
094
095
096
097
098
099
100
101
102
103
104
105
106
101
108
109
110
111
112
113
114
115

NEXTSEQ

ANSWER

070
070

ANSWER
ANSWER

109
ceOM 065

ACOl
lRST RA

079

DONE
AEND
ROTA

FLOf I X
NOFLOw
DOUBLE

AOol
AooROU

CICY 004

DONE

CHECK

099

NOHOW

098
099
099

FLGf IX
NOHOw
NOHOW

STATEMENT
BR
ROH G DA,BE
BR If 50= 1
BR IF G06=0
SET 5 K=90
P1-=O$KIO
BAL
BAL
TO-=O
Tl:GIH
STH V AS.T+2
5TH H AS.T-2
BR IF G03:0
T I=T 1.-KiO
5TH 0 AS,1+2
STH U AS,T-2
BR
H 1-= HO
HO=Vl
Vl=VO
VO=Ul .
Ul=UO
UO=Ol
01=00
DO=T 1
Tl=TO
TO=Gl
Gl=GO
GO=O
BR IF GI0=0
I=GIDK88
BR IF HZNZ
BR IF G14=0
BR IF SO=O
GO=OSKFf
RTN
HIC-= H I+H 1
HOC=HO+HO+C
GIC=oHol+C
oOc=oo+oo+e
l lC=T I+T 1+(
TOC=TO+TO+C
HC= 11+I1+C
lOC= 10 + 10 +C
RTN
PO=POaKOF
Pl=PUKOE
RDH I AS,P-2
U lC=U U; 11+e
UOC=UOUO+C
RDH I AS, P-2
DlC=DIU l+e

CLOAO=.E60, EC LEVEl=128211
COMMENTS
EX IT TO FLOAT PT MULT

PAGE 122

AUOK

wURD

IC EO
I l E2
lCE4
lCEb
lC f8
IlEA
IC EC
ICEE
lC FO
ICf2
lL.F4
ICF&
lCf 8
IC FA
02CO
02C2
02C4
02C6
02C8
02CA
02CC
02CE
0200
0202
0204
020&
0208
()2DA
02DC

7680
58CA
7B90
7A8D
58CA
7590
1480
lCFB
0002
F87B
C5D4
2002
C5U5
128E
6344
82EO
BC78
BOEE
BOF4
SOFO
88E2
B070
BC16
B34E
A36E
8390
81FC
8392
A316
3002
9C02
8344
3002
ge02
1002
3025
9C02
8344
3025
9CD2
1025
9C04
8344
3002
9C02
1002
3025
9CD4
8344
9C02
3002
B076
3002

O~DE

02EO
02E2
30EE
30fO
30F2
30f4
30F6
30F8
08E2
OdE4
08E&
08E8
08EA
3070
3012
3074
3076
3078
301A
334E
3350
3352
23 bE:

SEQUENCE NO.
CMU
CMLT
CMlT
CMLl
CMU
CMll
CMLl
CMLl
CMl T
CMl T
CMLl
CMLT
eMLT
CMLl
CMLT
CMll
CMll
CMLl
CMll
CMll
CMU
CMLl
CMLl
CMll
CMlT
CMLT
CMll
CMU
CMLT
CMLT
CMU
CMLl
CMLl
CMLT
CMLl
CMU
CMLl
CMU
CMll
CMlT
CMU
CMLl
eMU
CMll
CMLT
CMLl
eMll
CMll
CMLT
CMLl
CMll
CML T
CMU

LABEL

NE X TSEQ

NEXH.ABEL

OOC:OO~IO+C

116
ill
U8

119
120

121
122
123
124
125
12&
127
1.28
129
130
131
132
133

134
135
13&
137
13B
139
140
141
142
14.3
144
145
146
147
148
149
150
151
152

DUTOUT
lHG
DIG
DIG
DIG
DIG
DIG
DIG
DIG
DIG
DIG
DIG
DIG
DIG
DIG
DIG
DIG
PUTE1
Pl.TE3
PUlE5

0

1
2
3
4
5
6
7
8
9
A
B
C

D
E
F

129
110

OUT OUT
ADDROU

110

ADDROU

052
14&
163
148
151
149
154
159
1&2
1&5
168
177
175
178
172

CYCLE
PUT El
PUTE2
PUTE3
PUTE4
PUTE5
PUTE&
PUTE7
PUTE8
PUlE9
PUTEA
PUrEB
PUTEe
PUTED
PUTEE

109
052

ADCl
CYCLE

109

ADDl

109
052

AODl
CYCLE

109

ADOl

110
052

AODROU
CYCLE

109

ADOI

110
052
109

ADOROU
CYCLE
ADDl

1&2

PUTE8

PUTE4

153
154
155
156
157
158
159
160
161
162
L&3
164
165
16&
161
168

C LOAD=*EbO, EC lEVEL=128211
COMMENT S

STATEMENT

PUTE6

PUTE7

PUTE8
PUTE2
PUTE9

PUTEA

RDH I AS, P- 2
T lC=l 1~ 11+C
TOC=TOUO+C
RDH I AS,P-2
GIC:GU 11+C
GOC=GO:l:IO+C
PO=POIlKOF
RS T S 3
BR IF P07= 1
BR IF SO=O
SET S 3
BR IF SO= 1
tUN
t3R
BR
BR
BR
BR
SR
BR
BR
BR
BR
BR
BR
BR
BR
BR
SET S K=90
BAL
BR
SET S K=90
BAL
RST S K=90
P1=Pl$K20
BAL
BR
P1=PUK20
BAl
Pl=Pl*-K20
SAL
BR
SET S K=90
BAL
RST S K=90
P1=Pl$K20
BAL
BR
BAl
SET S K=90
BR
SET S K=90

0

+U: OR 1
&32 OR 2

+4e OR 3
+&4 OR 4
+80 OR 5
+9 & OR 6
+112 OR 7
+128 OR 8
-112 OR 7
-<;6 OR 6
-80 OR 5
-64 OR 4
-48 OR 3
-32 OR 2
-16 OR 1

PAGE 123

SE\.lUENCE NO •

AGOR

.. ORO

2310
2312
2374
2376
2H8
231A
07fC
07FE
\.H90
OJ42
u.i94
u396

3025
C;C02
1025
3CG2
9C04
8344
3002
BOf4
3C02
<;C02
3C02
BCF4

CMU
CMU
CMU
CMLT
CMU
CMLT
CMU
CMLT
CMU
CMU
CMU
CMU

169
110
111
172
173
L74
175
116
177
178
179
180

LABEL

NEXTSEQ

NEXTLA8EL

109

A001

110
052

ADOROU
CYCLE

151

PUTE4

109

Aoel

PLfEE
PUlEC
PUlEB
PUTEO

151

PUlE4

CLOAD=.E60, EC LEVEl-=128211
COMMENTS

STATEMENT
Pl=Pl$K20
BAl
Pl-=Pl*-K20
SET S K=90
BAL
BR
SET S K=90
BR
SET S K=90
BAl
SET S K=90
BR

**.** •• *.***.*.***** •••• ** ••• *****
• CROSS REFERENCE FOR CSECT CMlT

*

**** ••• **.***.******* •• **********.
eMU 002
C,"IL T 006
CI',L T OC7
C'1l T C09
Ci"\L f 014
('~l T 015
('Il T 020
CMLT 023
(-Il T 027
U'\ L I 028
l.:''il T u38
C 'It T 046
C-IlT 049
c,-I l T 052
CH T 056
(,'Ill e59
("'L T 061
U-Ill 064
CMLl 010
UlT 079
CMU

081

C'~L

098
099
100
109
110
129
130
146
148

r
l.AL T
Ci~L r
UH T
l.~IL

T

U·U.I
("It T

(''Il T
CMU
CML T 149
C,"Il T 151
C~LT 154
CML T L59
C~l T 162
U-1l f 163
C,~l T Itl5
eMU 168

CICY
CMU
CICV
CMlT
C ICY
CMU
CMU
CMU
CFMO
eMU
CMU
CMU
CMlT
CMU
CMLT
CMU
CFMU
CML T
GMLT
CMLT
CMU
GML T
GMU
CMU
eMU
CI'ILl
eMU
CMU
CMU
CMLl
CMU
CMl T
CMU
CMU
eMU
CMU
CMU
eMLT

1<:1

OC2
159
OC 7
175
0(5
017
021
00
031
030

CMlT 009

CMU all
CFMD 075

Otl
046
130
053
048
032

OU
Ot5

GMU 147

CMLT 153

CMLT 052

eMU 055

CMU 158

CMLT 164

CMU 174

eMU 152
eMll 163

CMU 155
CMll 173

eMU 160

eMU 066

075

OtO
095
0<;3
035
069
126
125
051
131
133
135
134
136
137
131)
132

139
140

eMU 096

CMU 097

eMU 036
CMU 146
CMl T 128

CMU 149
CMU 157

CMLT 058

CMU 176
CMU 167

CMll 180

eMU 165

CMU 170

CMLT 178

PAGE 124

CLOAO=*E()O, EC lEVEl=128211

**********************************

*

CROSS REFERENCE FOR CSECT CMlT

*

**********************************

CMlT
C'Ill
U1LT
CML T

172
175
177
178

CMU 144
CMlT 142
CMlT 141
CMLl 143

PAGE 125

CLOAD=*E60, EC lEVEl=128211

CMPU
LABEL •• SSOPf 1

PAGE 126

DESCRIPTIVE TEXT

MOVE WITH GFFSET

MOVE WITH OfFSET

EXAMPLE

STEP
l •• READ lOW SOURCE BYTE
2 •• MOVE lOW 4 BITS OF SOURCE BYTE TO HIGH 4 BITS OF THE lOW
DESTINATION BYTE. THE LOW 4 BllS OF THE DESTINATION BYTE
REMAIN UNCHANGED.
3 •• CHECK TO SEE WHAT FIELD HAS ENDED,

DESTINATION
BEfORE

79

56 87 84 3C

SOURCE

64 72 63 75 91 85 29 76

A. If DESTINATION OR BOTH ENDED, RETURN TO I-CYCLES.
B.

SOURCE HAS ENDED, STORE THE HiGH 4 BITS OF THE
SOURCE BYTE IN THE lOW 4 BITS Of THE NEXT DESTINATION
BYTE. fill DESTINATION REMAINDER WITH ZEROES, RETURN
TO I-CYCLES.
IF

C. If NEITHER HAS ENDED, READOUT NEXT SOURCE BYTE, STORE
THE HIGH 4 BITS Of PREVIOUS SOURCE BYTE AS lOW 4 BITS
IN DESTINATION BYTE. STORE lOW 4 BITS Of NEW SOURCE
BYTE AS HIGH 4 BITS IN DESTINATION BYTE.
RETURN TO STEP 3.

DESTINATION AFTER 59 18 52 97 6C

---------------------------------------------------------------------------------------------------------------------------------LABEl •• SSOPF2

PACK

PACK

EXAMPLE

STEP
S()URCE
lOW SOURCE BYTE. CROSS DIGITS AND STORE AT lOW
DESTINATION ADDRESS.

F6 f7 f2 f4 F9 C3

l •• READOUT

2 •• CHECK TO SEE WHAT fiELD HAS ENDED.

co

DESTINATION BEfORE

00

00 00 00

DESTINATION AFTER

00 06 72 49 3C

A. IF DeSTINATION OR BOTH ENDED, RETURN TO I-CYCLES.
B. If SOURCE HAS ENDED, FIll REMAINING DESTINATION WITH
ZEROES.
C. If NEITHER HAS ENDED, READOUT NEXT SOURCE BYTE. IF THIS
BYTE ENDS SOURCE fiELD, fILL REMAINING DESTINATION WITH
lERuES, AFTER STORiNG lOW 4 SOURCE BITS. IF SOURCE DID
Nor END, READOUT NEXT SOURCE BYTE, COMBI~E lOW ORDER
SOURCE DIGITS AND STORE AT NEXT HIGHER DESTINATION
ADDRESS. RETURN TO SrEP 2.
lABEl •• SSOPf3

UNPACK

THE UNPACK INSTRLCTION IS ALMOST THE REVERSE OF PACK. PROPER
LONES ARE IN SER TED IN DESTINATION BYTES fOR ALL SOURCE DIGITS.
IONES ARE INSERTED WITH lEROES WHEN fIllI~G IN DESTINATION FIELD
WHEN SOURCE HAS ENDED.

UNPACK

EXAMPLE
SOURCE

64 92 5C

DES T (NAT ION BEfORE

00 00 00 00 00 00

DEST INAT ION .AFTER

fO f6 F4 F9 F2 C5

AOOR

01B6
01B8
OlBA
I) LBC
OlBE
2E 7E
2EtlO
ZE82
2ES4
2ES6
2E8S
2E8A
2E8C
2900
2902
2904
2906
2922
2924
2926
2928
292A
292C
292E
2930
2932
2934
2936
2938
01A6
OlA8
01AA

alAe
alAE
2H2
2E 14
2E16
2El8

2E lA
LElG
2EIE
2E20
2EOE
2ElO

CMPU 003
CMPU 008
CMPU all
CMPU 013

WORD

SEQUENCE NO.

5B3A
SF 10
4BF3
5B75
AE88
21F 5
C904
2755
5B3A
58F-l
7F LA
5559
8083
8023
A<;32
81B3
81B3
81A6
AEl2
5B3A
4B7D
771A
3510
EO!l7
4B75
171A
SHB
25FD
8G83
5B3A
4873
771A
5B75
AElE
5F3A
25FF
FC8F
5B 3A
4BF3
7FlA
3510
8083
5F7D
A<132

C ICY
CICY
CICY
CMPU

CMPU
CMPU
CMPU
CMf'U
CMf'U
CMPU
CMPU
CMPU
CMPU
CMPLJ
CMPU
CMPU
CMPU
CMPL
CMPU
CMPU
CMPL
CMPU
CMPU
CMPU
CMPU
CMPU
CMPU
CMPU
eMPU
CMPU
CMPU
CMPU
CMPU
eMPlJ
CMPU
CMPU
CMP\.;
eMpu
CMPU
CMPU
CMPU
CMPU
CMPU
CMPU
CMPU
CMPU
CMPU
CMPU
CMPU
CMPU

242
244
243
OC7

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
OL6
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046

Nl:XTSEQ

LABEL

013
011

SSOPF2

016
020
028
CICY 005
CICY 005
032
031

HlllBR
DP
STDEST
ISTART
1ST ART
MIo/OS
PACK

SSOPF2
STBYTE

01'

OP

0
1
2
3
1
2
3

N
N
N

N

01 =O$KFO
BR IF PI BIT 4=0
Dl=OSK50
ROB T 1 V-1
Hl=T IX
Sf B H L U-l
Gl=G1
N=DYN BlTS61
N=GO B ITS67
BR
N=S BlTS67
N=S BITS67
BR
BR
ROB Tl V-I
Dl=T1L+DlH
S T B D 1 U-l
G1=GI-K 10
8R If HZ=O
Dl=TlXUDlH
ST B 01 U-1
Ul=OlH
Gl=Gl +KFO
N=DYN BITS67
RDBTIV-l
D1=T IXH+D1L
ST B 01 U-l
D1=T lXl
BR
ROB HI V-I
Gl=G1 +KFf
BR IF Ll=O
ROB Tl V-I
Hl=T lXH+HlL
STB HI U-l
GI=GI-K 10
N=DYN B ITS67
Ol=HIL
8R

UNPACK, SET UP FOR EBCDIC MODE
BR ON NO T A SC I I MODE
SET UP FOR ASCII MODE
PACK, READ SIGN BYTE
CROSS SIGN BYTE
STORE SIGN BYTE
PUT LENGTH BYTE ON l-BUSS
BR ON Hl,LZ - ZERO LENG TH
BR ON OP'S
SO URC E ENDE 0
DESTINATION ENDED
BOTH ENDED
MOVE WITH OFFSET
PACK
UNPACK, READ SOURCE
UNPACK LO HALF BYTE
STORE FIRST BYTE
SUBTRAC T HI, LO COUNT BY
BR IF DESTINATION END
UNPACK HI HALF BYTE
STORE DESTINATION BYTE
lERO OUT NUMERIC
SUBTRACT DEST COUNT
BR ON t-ll,Ll COUNT
READ SOURCE
SET UP THE BYTE
STORE DEsrINATION
SA VE HI HALF BYTE FOR NEXT CYCLE
GO TO SU8 T HI, La COUNT
READ FIR ST SOURCE BYTE
SUBTRAC T LOW COUNT BY I
BR IF SOURCE ENDED
READ SECOND SOURCE BYTE
PACK THE TWO BYTES
STORE IT
SUBT HI, LO COUNT BY 1
BR ON HZ, LZ COUNT
SOURCE ENDED, ZERO OUT HI HALf
GO TO STORE I:. 8R HZ

HILIBR 3

016

HZllBR N

043

HILoeT

045

SOUEND

Olb

HZLlBR N

028

STDEST
**********************************
* CROSS REfERENCE FOR CSECT CMPU *
**********************************

S TOE ST

MWOS

PACK

HILDe T

CMPU 009

R. C. HUANG

MOVE OFFSET. READ SOURCE SIGN
READ DESTINATION SIGN BYTE
SET UP THE SIGN BYTE
SAVE HI HALF BYTE OF SOURCE

019

SOUEND

12115/66

BR

S r BYT E

SSOPF3

HlllBR
HlLlBR
HlLlBR
HILIBR
OP

AND MOV E Io/lTH OFfSET

KOBTIV-l
ROB HI U+O
Hl=TlXH+HlL
Dl=TlXL

SSOPF 1

CLOAO=*E60, EC LE VEl=1282 11
COMMENTS

STATEMENT

PACK,UNPACK,

T
*

NEXTlABEL

PAGE 127

ClOAD=*E60, EC lE VEl=128211

**********************************
* CROSS REFERENCE FOR CSECT CMPU *

CMP\J
CMPU
CMPU
CMPU

CMPU
CMPU
CMPU
CMPU

016
019
020
028
032
037
043
045

CMPU
CMPU
CMPU
CMPU
CMPU
CMPU
CHPU
CHPU

015
026
016
017
020
021
036
039

CMPU 031
CMPU 046

CMPU 044

**********************************

PA.GE 128

CLOAD=*EbO, EC LEVEl-128211

CNVR

DESCRIPT IV E TEXT

*---------------------------------------------------------------*
*
INSTRUCTION FORMAT
*
*
* OPERATION
* BYTE 1 * BYTE 2 * BYTE 3 * BYTE 4 *
"eNTRY *
*--------*------------------*--------*--------*--------*--------*
* RXOP4E * CONVERT TO DEC. * 4E
* Rl X2 * B2 02 * D2 *
# RXOP4E * CONVERT TO BIN. *
~f
* Rl X2 * B2 02 *
02
*
#--------*------------------*--------*------*-------*--------*

OBJECTIVES

PRIOR TO ENTRY TO THIS ROUTINE. THE EffECTIVE ADDRESS
FOR THE SECOND OPERANO HAS BEEN CALCULATED IN THE CICY
ROUTINE.

AuOR

29C4
2'JCb

29C8
29CA

uce

?9CE
2900

29D2
2904

2906
2908

290A
29DC
29DE
29EO
29E2
29E4
29E6
29ES
29EA
29EC
24EE
29FO
29f2
29f4
2tJ3C

wORD

ABS3
0183
fOCO
AE98
8DC2
10CE
FC'J4
AAFA
ACBS
2B07
7A 18
C660
8AEO
2040
42A6
44Ab
48A6
2013
~66F

A04E
CbbA
AD3C
C66f
A03E
A9FO
3915

SE(JUENCE NO.
CNVR
CNVR
CNVR
CNVR
CNVR
CNVR
CNVR
(!';VR
CNVR
CNVt{
CNVR
C!,;VR
CNVR
CNVR
CNVR
CNVR
CNVR
CNVR
CNVR
CN\lR
CNVR
CNVR
CNVR
CNVR
CNVR
CNVR
CNVR
CNVR
CN IIR
CNVR

001
002
003
004
005

LABEL
1
*
*
*

RXOP4E

OKAY

RX4EA

RX4EB

L4EA
L4EB
L4Ee

029

030

NEXTLABEl

CONVERT TO BINARY -

THE SECOND OPERAND IS CHANGED FROM A
PACKED DECIMAL NUMBER TO A BINARY
NUMBER AND PLACED IN THE GENERAL
PURPOSE REGISTER SPECIFIED BY RI.
THE SECOND OPERAND IS CHECKED FOR
VALID SIGN AND DIGIT CODES.

CONVERT TO CECIMAl - THE FIRST OPERAND IS CHANGED FROM A
SIGNED BINARY NUMBER TO A PACKED
DECIMAL NUMBER AND PLACED IN THE
SECOND OPERAND LOCATION.

ST ATEMENT

COMMENTS

CONVERT TO DECIMAL AND BINARY ROUTINES

OOb

007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028

NEXTSEQ

RX4EAA

PAGE 129

ceNVERT TO DECIMAL
CICY 045 ADDERR N BR IF Hl=NI
I=U 1*-KG8
009 OKAY
BR If LZ=()
CICY 059 SPECHK
BR
eeOM 057 LS AV EA
BAl
RST S K=FC
013 RX4EA
BR IF G07=0
BR
058 RXOP4F
CCOM 020 GETRI
BAL
Tl=O
STH 1 U.2
019 RX4EB
BR IF DOO=O
CCOM 076 CO,",PL
BAl
SET S5
V=T
G=T
1=1
Pl=OSKOl
026 l4EB
BR IF 000=1
039
DOBBIN
BAl
024 l4EA
BR IF 000=0
030 RX4EAA
BAl
026 L4EB
BR IF DOO=1
RX4EAB
BAL
031
BR
027 l4EC
11= I UK 10

STORE FIRST
TwO ANS. BYTES
SET MINUS

AOOR

WORD

2u3E
2040
2D42
<'044
2046
204!!
ZD4A
ZD4C
Z04E
2050
20 ':>2
Z054
Z056
2G58
2u?A
205C
205E
2060
2D62
ZD64
2066
2D68
206A
2DoC
LU6E
2uI0

E050
C002
799f
788F
7'55F
744F
733f
722F
oFFB
oEEO
6770
6660
1:05D
201B
12BE
4686
9258
27CB
C<;66
1168
OlEA

ZAfA
2AfC
2AfE
,'1300
<'802
ZB04
2tl06
<'b08
,'I>OA
2dOC
2ROE
2810
Z812
2tl14
21H6
ZtH8

2B83
3B15
4EA6
5718
77EF
E5S9
5AE4
77E8
OHB
Feso
5710
573B
A4EC
13Af
C 19A
Be7C
73EO
5556

2Ll1A
ZtllC
2B IE
2820
2822
<'B24
2B26
282S
hl2A
Ztl2C

3113
1~18

7418
7618
81B 3

3~33

10CE
E426
3002
2407
29(1
C040
4EA6

SEQUENCE NO.
CNIIR
CNIIR
CN IIR
CN\i/{
CN \iR
CNIIR
CNVR
CNVR
CNVR
CNVR
CN \dO{
CNVR
CNliR
CNIIR
CNVR
CNVR
CNliR
CNVR
CNIIR
CNVR
CNVR
CNVR
CN \I/(
CN \lR
CN 11K
CN\lR
CNIIK
CN\iR
CNIIR
CNliR
CN\lR
CN 11K
CN 11K
CN\lR
CN\lR
CN\lR
CN IIR
CN ~/{
CN IIR
CNVR
CNVR
CN\lR
CNVR
CN\lR
CNVR
CNVR
CN\lR
CN\lR
CNIIR
CN\lR
CNVR
CNliR
CN\lR

031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
051
058

RX4EAB

BR If P12=1
RS T S3
11C= IldiI I+C
10C= 10,iHO+C
GIC:Glcil Gl+C
GOC=GOdlGO+C
V lC:V liilV I+C
VOC=VOdlVO+C
HIC=Hl+Hl
HOC=HO+HO+C
0IC=01+01+C
OOC=OO+OO+C
BR IF P12= 1
046
END
P 1= P 1 +KO 1
RTN
0= I
lRSTRB
BAl
CCOM 066
Ol:Ol+KOC
BR IF P14:0
NEXTCK
051
01= 01ttK06
BR I f S 5=0
FINAL
053
01=Ol$KOI
STH V U+2.
STH G U+2
STH 0 U+2
I START N N: S BlfS61
CICY 005
CONVERT TO BINARY
Tl=OSK08
Tl=T l$KIO
H=T
ROB 01 U+1
D1C=OliilHO+C
BR I f S2= 1
NOTSAV
065
T=Hi-1
S T B 01 AS, H+ 1
Z=HlttKOf
BR I f L lNZ
LOG PAX
061
ROB 01 U
Vl=OlH
BAL
SI NSET
COMO 203
VIC=Vl4lTO+C
BR IF S4=0
OKfLO
074
6R
FlGDEX
CCOM 071
ST B V 1 AS, H
Gl=GlH
Gl=Gl$K03
RST S K=FC
BR I f G02=0
PlSNUM
080
SET S K=90
GO=O
11=0
RST S5
H=T

E: NO

NEXTCK
FI NAl

RXOP4f

G59

060
061
062
063
064
065
066
067
068
069
070
01l
072
013
014

LOOPAX

NOT SA V

OKFlO

075
016

071
018

079
080
081
082
OS3

STATEMENT

NEXTSEQ

DOBBIN

*

NEXTLABEl

LABEL

PLSNUM
CONrUE

046

ClOAO=*E60, EC tE VEl=1282 11
COMMENTS

END

SE T NOT ASCII
SE T A SC I I

PLUS

PLUS

MAKE SIGN MINUS
STORE
RESUl T

STORE
TIiE
DECIMAL
fIELD
TN
AUX
STORAGE
AND
fIND
1ST
SIG
DIGET
GO CHECK SIGN

GO fLAG DATA EXCEP
BU IlD
ANS
REG ADDRESS
BR I f PLUS

IN IT I AlIlE ZERO flAG

PAGE 130

ADOR

wORD

2B2E
21330
2t;32
21334
21336
2B38
2d3A
2133C
283£:
2840
2842
2b44
21H6
21348
2d4A
2134C
2B68
211bA
206e
2d6E
21370

02.74

22C7
5DE:0
50C5
8270
527B
OHB
FOE8
77EO
14FF
C4CA
4203
7%0
794A
C 14F
5200
ABl8
SDCO
8270
4275
DIF5
C4F8
5AA4
77E8
AB30
2040
AS74
59F9
9256
C50A
E50C
CF6l
AB5C
CFb3
47BB
OBFB
C4El
2B93
9C 70
81S3
5220
6223
5239

0216

6223

02.78

6223
6233
62C3
128E

287l

21374
21376
ZlI78
2d7A
2tl4t:
21350
21352
2HS4
2Ll56
2i:l58
2B5A
2B5e
265E
Zi:l60
2B62
2B64
2B66
u270
0272

021A

onc
027E

SEQUENCE NO.
CN'vR
CNIiK
CNVK
CNliR
CN\iR
CN VR
CNVR
CN\iR
CN VK
CNVR
CNVR
CNVR
CNVR
CNVR
CNVR
CNVR
CNVR
CNVR
CNVR
CNVR
CNVR
CNVR
CN IiR
CNVR
CNVR
CNVR
CNVR
CNVR
CNVR
CNVR
CNVR
CNVR
CNVR
CNVR
CNVR
CNVR
CNVR
CNVR
CNVR
CNVR
CNVR
CNliR
CNliR
CNVR
CN VH.
CNVR
CNVR

084
085
086
087
088
089
090
091
092
093
094
095
e96
097
098
099
100
101
102
103
104
105
106
101
108
109
110

LABE L

NEXTSEQ

NEXTlABEl

ROBPIH
121

XIOPLS

100

LAB6

098

LA139

110

OONENO

081

CONTUE

123

X10PLS

106
108

LAB7
LAWOPS

085

RDBPIH

l06

LAB1

LAB9
UB6

UB7

LAWOPS
OONENO

III

CCOM 065

112

116

113
114

117
120
117
120

LRSTRA
lABl2
LABU
LASH
LABU
LASH

122

LABll

ll5
116

111
118

LAB12
LABU

119

120
121

LASl4

122

LASII
XlOPlS

121
124
12')
ll6

127
128
129
UO

SPSW 003
CICY 005

PROG
t START

CLOAD=*E60. EC LEVEl=128211
COMMENTS

STAT EMENT

VO=O
ROB PI AS,H
PO=PIXL
BAL
OI=VOH
Z=HlcKOF
BR IF LINZ
ST 13 01 AS. H
GO=GOcKFF
BR IF ZNl
UO=VOXH+UOl
11C=I1%UO+C
STB 11 AS, G-l
BR IF G14:1
UO=VOL
BR
PO=PIL
I3AL
01=VOXLSOIH
BR IF S5= 1
BR IF ZNZ
T:T+l
STB 01 AS, H+l
BR
SET S5
BR
HI= 11
SAL
SR IF SO=O
BR IF S2=0
BR IF HIO:O
BR
SR IF HlO= 1
T l=OlH+T lL
Z=TlcKOF
BR IF l=O
TI-=0$K09
BR
N N=S SITSb7
VO=VOl
vo=VO.VO
Vl=VO
VO=VO+VO
Vo=vo.VO
VO=VO+Vl
vo=vo +PO
RTN

BR IF NZ RE SUT SO FAR
SE T NO T ZERO FLAG

X2
X4
X8
XIC
PLUS ADOATIVE

PAGE 131

ClOAD=*E60. EC lE VEl=128211

CNVR 005
CNVR 009
CNVi{. 013
C~VR 019
(.NVR 024
CNVR 026
CNVR 027
CNVj< 030
CNVR 031
CNVR 039
CI~VR 046
CNVR 051
CI~VR 053
(I'-lVR 058
CNVR 061
CI~ VI{ 065
Ci, VR 074
U.. VR 080
CNVK 081
(.\jVR 085
CNVR 098
CNVR 100
CNVR 106
C,~ VI{
108
CNVR 110
CNVR lt6
C'~VR 117
(>~VR 120
122
CNVR 123

C~VK

CIC Y
CNVR
CNVR
CNVt!.
CNVR
CNVR
CNVR
CNVR
CNVR
CNVR
CNVR
CNVR
CNVR
CNVR
CNVR
CNVR
CNVR
CN\lR
CNVR
CNVR
CN\lR
CNVR
CNVR
CNVR
CNVR
CNVR
CN\lR
COVD
CNVR
CNVR

177

OC7
011
016
025
023
029
026
028
024
031
049
051
012
Ot:7
00
012
078
0'19
lC7
093
0'10
103
104
as 7
ilL
lU

099

CICY l1li

CNVR 027

CNVR 043

CNVR 109

CNVR 115
CNVR 114

119

01:'7

**********************************
* CROSS REFERENCE FOR (SECr CNVR *
**********************************

CNVR 101

CNVR 116

PAGE 132

CLOAD=*E60. EC LE VEL=128211

PAGE 133

CSAS -- DECIMAL ROUTINES
EN TR I ES
1.
SSOPFS
2.
SSOPF9
3.
SSOPFA
4.
SSOPFB

DESCRIPTION CONTINUED

lE:RO AND ADO
COMPARE DECIMAL
ADO DECIMAL
SUB TRAC T DEC (MAL

6.
7.

OBJECT IVES

S.

DECIMAL ADD UR SUBTRACT
THE 2"JD OPERAND, CALLED THE SOURCE FlElD, IS EIrHER TRUE
AODE:D OR COMPLEMENT ADDEO TO THE 1ST OPERAND, WHICH IS
CALLED THE DESTINATION FIELD. THE OPERAND SIGNS AND OP
CODE DETERMINE WHETHER TRUE OR COMPLEMENT ADD IS PERFORMED
AS FOllOwS.

********************************************************
*
SIGN
TRUE OR COr-PlEMENT
*

*---------------------------.---------------------*
* 1ST OPERAND. 2ND OPERAND. ADD OP • SUBTRACT OP *

*-------------.-------------.------------.-------------*
*
PLUS
PLUS. TRUE
• COMPLEMENT *
*
MINLS
PLUS. COMPLEMENT • TRUE
*
*
*

MINUS
PLLS

MINuS. TRUE
• COMPLEMENT
MINUS. COMPLEMENT • TRUE

*

*

********************************************************
ZERO AND ADD
THE: 2ND OPERAND IS ADDEO TO A VALUE Of lERO AND PLACED
IN THE 1ST OPERAND LOCATION.
COMPARE DECIMAL
THE 2ND OPERAND IS COMPARED WITH THE 1ST OPERAND, ANC THE
RESULT Of THE COMPARISON IS INDICATED BY THE CONDITION
CODE. COMPARISON IS RIGHT fO LEFT.

9.
10.

READ NEXT SOURCE: BYTE FROM 2ND OPERAND.
READ NEXT DESTINATION BYTE FROM 1ST OPERAND.
IF ZERO AND ADD, DESTINATION FIELD IS SET TO lERO.
ADD OR COMPLEMENT ADD THE TWO BYTES.
STORE RESULT AT 1ST OPERAND DESTINATION FIELD, AND
STEP TO NEXT DESTINATION BYTE. RESULT IS NOT STORED
IF COMPARE OP.
DECREMENT LENGTH.
REPEAT STEPS 6 THROUGH 9 UNTIL EITHER DESTINATION OR
SOURCE FIELD ENDS.

SOURCE FIELD ENDS BEFORE DESTINATION FIELD
SUPPLY ZEROES AS SOURCE DIGITS AND CONTINUE UNTIL
DEST INATION fiELD ENOS •
DESTINATION FIELD ENOS BEFORE SOURCE FIELD
READ OUT REMAINING SOURCE DIGITS. ADD THEM TO ZERO
AFTER CHECKING TRUE/COMPLEMENT STATUS AND THE CARRY fROM
LAST ADD AS fOLLOWS.
1. COMPLEMENT ADD AND CARRY. If LAST ADD BEfORE
DESTINATION FIELD ENDED WAS ZERO, FURTHER RESULTS
MUST BE ZERO. OR AN OVERfLOW (S INDICATED.
IF PREVIOUS RESULT WAS NOT lERO, FURTHER RESULTS
MUST BE NINES.
2. COMPLEMENT ADD AND NO CARRY. RESULTS MUST BE NINES.
OR AN OVERfLOW IS INDICATED.
3. TRUE ADD AND CARRY. INDICATE OVERflOW.
4. TRUE ADD AND NO CARRY. INDICATE OVERFLOW IF FURTHER
RESULTS ARE NOT ZERO.
BOTH SOURCE AND DESTINATION fIELD ENDED

DESCR (PTION
THE ROUTINE PERFORMS THE DECIMAL OPERATION AS fOLLOWS
1. FOR ADD OR lERO AND ADO. SET TRUE ADO.
FOR SUBTRACT OR COMPARE. SET COMPLEMENT ADD.
2. READ LOW-ORDER BYTE OF 2ND OPERAND. TEST SIGN. If
SIGN IS INVALID, INITIATE PROGRAM INTERRUPT.
3. LOOP BACK AND TEST SIGN Of 1ST OPERAND. THIS STEP
IS NOT PERFORMED FOR ZERO AND ADO.
4. ADD OR COMPLEMENT ADD 1ST DIGIT.
5. SET PROPER SIGN. STORE 1ST BYTE AT 1ST OPERAND,
DESTINATION FIELD, THEN STEP TO NEXT DESTINATION
BYTE. RESULT I S NOT STORED IF COMPARE OPe

1.
2.

3.

If INVALID DATA, INITIATE PROGRAM INTERRUPT.
RECOMPLEMENT RESULT If THE FOLLOWING CONDITIONS ARE
PRESENT WHEN fIELDS END.
A. COMPLEMENT ADD, NO CARRY, AND NOT A COMPARE OPe
B. TRUE ADO. NO CARRY, AlU ZERO. MINUS SIGN STATUS,
AND NOT A COMPARE OPe
RESULT IS RECOMPlEMENTED. STARTING AT LOW-ORDER BYTE.
SIGN OF RESULT IS INVERTED.
SET CONDITION CODES AND RETURN TO I-CYCLES.

AllOR

114C
114E
1150
lIS.!
11S4

115b
1158
USA
U5C
lISE
1160
1162
1164
1166
li6B
116A
HbC
H6E

1110
1112
1114
1176
1178
11 7A
Il1C
lilf:
lUlU
1182
1184
1186
il88
ll8A
U8C
USE
1190
li92
1194
1196
1198
1.194

119C
119E
lLAO
l1A2
UA4
llA6
llA8
llAA

WORD

3443
1082
2EI5
513A
5760
0661
EOf3
00C4
F366
01fB
FeE 1
C5F5
3042
C07C
0018
1488
57FB
5710
<;154
BC7C
1002
2040
QU:6
1002
5178
17fF
(905
212B
0188
211B
21AB
F035
171A
5589
EOEB
FOA6
27Cl
2Ef3
D02A
2FCl
91AC
IF 1A
15E3
EOES
FO<;;5
573A
001B
SHO

LABEL

SEQUENCE NO.
CSAS
CSAS
CSAS
CSAS
CSAS
C SAS
CSAS
C SAS
CSAS
CSAS
C SAS
C SAS
C SAS
C SAS
C SAS
CSAS
C SAS
CSAS
CSAS
CSAS
CSAS
C SAS
CSAS
CSAS
C SAS
CSAS
C SA S
C SAS
CSAS
C SAS
CSA5
C SAS
CSAS
C SAS
C SAS
C SAS
C SAS
C SAS
CSAS
CSAS
CSAS
C SAS
CSAS
C SAS
CSAS
CSAS
CSAS
CSAS
C SAS
CSAS
C SAS
C SAS
CSAS

001
002
003
004
005
006
001
008

NEXTSEQ

NEXTlABEL

DEC [MAL ADD, SUBTRACT,

T
*
*

*
ASEQ

OPERAND 1 ADDRESS
OPERAND 2 ADDRESS

TSTSGN

017
018
019
020
021
022
023
024

025
026
021
028
029
030

ISPLUS

NOSIGN
I SCOMP

025

NOSIGN

019

I SPLUS

019
026

ISPlUS
ISCOMP

030
029

ENDSGN
ZAPFST

010
CCCM 071

TSTSGN
FLGOEX

019

I SPlUS

ZAPFST
ENDSGN

031
032

034

15 AS C I

036

OSPlUS

058

OI;CC MP

085
051

OESTNO
MORSOR

053

ROOEST

054

COM PUT

085
042

DESTNO
ENOSOR

045

lRoosr

033

034

I SA SC I

035
036

DSPlUS

037
038
OH
040
041
042
043
044
045

TSTlG T

EN050R

ZROOST

046
041
048

STOREO
DEClG T

049
050
051

MORSOR

052
053

ROOEST

IS
IS

COMPARE, AND ZERO AND ADD

IN U
IN V

HI IS ZERO
01 IS ZERO

TO IS ZERO

AlO7=4C

SSOPf8
SSOPfA
STUPDC

009
010
011
012
013
014
015
016

CLOAD=*E60, EC lEVEl=128211
COMMENTS

STATEMENT

GO=GOSK04
RS T S K=98
HO=OS K 10
ROB 01 V-I
DO=Oll
Z=DO+K06
BR IF HZ=O
RST S K=2C
BR IF 01 B1T1=0
Z:DlaKOf
BR IF DYN BIT1=l
BR If 50= 1
SET 5 K=94
BR I f GO B IT 4= 0
BR IF GO BIT5= 1
GO=GOaK08
Hl=DlH
ROB Dt U+O
BR
BR
RST S K=90
SET S5
BR
RST S K=90
Ol=OlH
OlC=Ol
076
077
078
079
080
081
082
083
084
085
086
087
088
089
090
091
092
093
094
095
096
097
098
099
100
101
102
103
104
105
106

NEXTSEQ

COMPGD

MYBEOK

STLOKA
TRUCAR
NOOSIN
OESTNO
MOROST

OVFLAA
OK50fA
ALtEND
ALE NOH
ALENDE
ALENOJ
ALENOA
AlENOC
AlENOO
AlENDB
RECOMP

STATEMENT
HI C= H 1 iil 0 1 +C
BR IF GO BIT1=0
U=U-l
BR
U=U-1
BR
GO=GO-KOl
SET S K=90
BR
ROB 01 V-l
BR IF S 3= 1
T OC=TOiil 01 +C
TO=TOllK99
BR I f z=o
RST 53
GO=GO*-K 10
TO=O
BR
BR IF S2= 1
TOC=TO1=00
OO=Hl
Hl=HO
HO=TO
RTN
HO=HOaTO
BR If INZ
BR IF S5=0
BR IF HIO=1
SET SO
BR IF H10=0
SET SO
HO=Hl
Hl=DO
00=01
BR IF G05= 1
01=0
kIN
01=110
VO=V1
Yl=UO
UO""UI
U 1=0
RIN

R IGHf AND LEFT
***
BR If LEf T SHIF T
THIS IS RIGHT8
S l-IF r
RIGHT
ONE
BYTE
SH IF T
CHECK HI

8 BITS FOR SI GN CHANGE

ORIG SIGN-BR IF NEW SIGNOR IG SIGN-NEW SI GN+-REMBER OIlF
BR IF NEW SIGN BIT +
REMEMBER OVERFLOW
St-RESS IN Tl
RDH H AS,T.Z
ADOERR N BR IF Hl=Nl
CICY 045
ROH U AS. T-Z
GET BLOCK ADORE SS
Ul=UlaKOO
CHECK FOR SPEC ERROR
BR IF LlNl
009
OP82A
GET R 1
H=GIH
T 1=T l$K03
T l=XXXXOOll
BR IF INSER T KEY
BR IF G01= 1
055
1 NSERT
THIS IS SET KEY-KEY IS IN DIH
ROB 01 AS,T.O
01=KKKOOOO
Ol=Ol*-KOF
STPO=Ol
SSK STPI UH
RSTRKY
BAL
RESTORE CPU KEY
CCOM lSI
ISTART N N=S. BITS61
CICY 005
ISK S fPO U.2
READ KEY
01=STPO
Dl=Ol*-KOf
STORE KEY IN 81 TS 24-27 OF Rl
Sf 8 01 AS,T.O
DONE
BR
GO TO RESTORE CPU KEY
053
ADDR=OA04
066
CICY 004

RDSWCH

ISTART N

BR

RDSWCH
CHECK

BAl
STH U 1.2
BR
UO=SWAB

READ

PAGE 144

ADDK.

WORD

SEQUENCt

OADC
\.lADE

511F
12BE

C SIS
CST S
CS1S
C SIS
CS1S
C S IS
CST 5
CST S
C S 15
CST 5
CSf S
CST 5
CST S
C5TS
CST S
C SIS
C SIS
CSTS
C STS
C SIS
CST 5
CST S
CS1S
C SIS
C SIS
CSTS
C SIS
C 5 T5
CSTS
C 515
CST S
CS1S
CSIS
C SIS
CSIS
C5IS
C S rS
C 51)
(SIS
CSI5
C SIS
CS1S
C!> IS
C SIS
CSTS
C 5 IS
C 5 IS
CSIS

2EbC
t'E6E
ZE 70
ZE72
L E {'t
LE16
LE78
Lc7A
ZE1C

AIl,3
2FF 7

5710
7F 10
C77A
2C 55
8UH
2eGS
8113 3

l.E36
LU8
ZEJA
ZE3C
l.E3E
2E40
LE42
2E44
2E4b

55BB
5EAO
4ED3
5ECS
lCC 5
F(44
3C45
7C(2
81B3

18f6
lSf8
18 f- A
ItlfC

5589
2125
2fC7
217B

t8Ft

9C 76

BOlO
Hi\.l

f901
:'310
495f
473F
A8Dt
f9Gl
495F
3fOO

n12

CCS2

3314
i316

S8SF

33U2
J304

1306
Hu8
HOA

j30C

3H8
BIA

BiC
BOO

11'00
15H
7510
A8DE
B35A

LABEL

NO.

067
06i:l
069
070
071
072
073
074
(,75
076
u77
078
(79
080
081
082
083
084
085
086
087
CB8
G89
090
091
092
093
094
0'15
056
097
098
099
104

NEXTSEQ

NEXTlABEL

Ul=SWCD
kTN

*RSOP93

TEST AND SET
CICY 045
ADDERR N

07B

OP93A

CICY 005

15fART

N

CICY 005

IS TART

N

OP53A

*
*RROP04

EC lEVEl=l28211

SWITCHE S
ROUTINE

08,}

OP04A

OP04A
elCY 005

**

BR IF Hl=NZ
H1=OS K FF
ROB 01 U
5 T 8 HI U
BR IF 010=0
PO=OSK 50
N=S BITS67
PO=OSKOO
N=5 8IfS67

IE ST
AND
SET
EXECUTION

Tl=GlH
ROH H A5,T
Pl=HOXH+P1L
PO= HO H
PO=PO*-KCO
8R IF PO]=O
PO=POSK40
STH P DA,B8
N=S BITS61

SET
PROG
MASK
EXECUTLJN

T1=Gl
Ul=OSK20
Hl=O
U 1=U It-KO 1
SR

SUPERVISOR
CALL
EXECUT ION

SET PROGRAM MASK

ISJART

N

SUPERVISOR CAll

RROPOA
5 VC
PICKUP
BP5W 006

**

ENTRY
*
DIRECT
*PRIVOP

RSOPi:l4

1I8

RSOPi:l5

CICY 004
118

CHECK
PRIVOP

HOLDIN

112

HOlOIN

PRIVOP

CICY 004
CICY 068

CHECK
PRIVOP

116
111
118

CLOAD=*E60,
COMMENTS

AEND

L 0:'

106
LOT
lOB
LO'1
110
111
112
113
114
115

STATEMENT

CONT Kat.. OP5
BR IF PI BIT 7= 1
ROB VI U
JA=Gl
JD=Vl
BR
BR If PI BIT 1= 1
JA=Gl
SET CPF K=80
BR IF OYN BIT 4=0
Gl=J I
Rsr CPF K=80
Gl=GlcKFF
STB Gl U
BR
BR

WR 1fE: DIREDT OPERA lION
GEl DATA TO SEND
SET SIGNAL OUT
SEND DATA TO BUSS OUT
RETURN TO NEXT INSTRUCTION
READ DIRECT OPRRATION
SE T SIGNAL OUT
SET READ ENABLE
wA IT FOR HOLD INfO fALL
READ DATA FROM BUSS IN
RESET READ ENABLE
iN VER r DA TA
STORE DATA
RETURN TO NEXT INSTRUCTINN
GO TO PH 1 VALEGE OP INTERRUPT

PAGE 145

GlOAD=*E60, EC LEVEl=128211

**********************************

*
~srs

003

l.STS 009
1.5TS 011

CSTS
(STS
(5T5
C5T5
CST5
CSTS
C5TS
(STS
[SIS
(STS
(:;T5
(5TS
CSTS
(51S
('5J5
(515

019
020
029
039
053
055
066
071
07B

082
089

093
095
104
109

112

(STS 118

(ICY
C SlS
CICY
CICY
CSf 5
C51 5
CICY
C51 5
C5 I S
CS1 5
CICY
CSI S
CICY
C5 IS
( IC 'I'

191
OC6
IS5
198
OC4
OL9
130
059

048
00
2(6
015

CSf S 045
CSIS 012

DClL 015

126
087
1~2

199

2eo
112
104

CSTS 039

CICV 131

BM(K 019

CICY
C IC 'I'
(SIS
(S 15

CROSS

REFE~ENCE

FOR eSECT csrs

*

**********************************

CSTS lC9

DCll 037

PAGE 146

CLOAO=*E60, E.C LEVEL=128211

CTKT --

PAGE 141

TRANSLATE, TRANSLATE AND TEST, EDIT, EDIT AND MARK

ENTRIES

EDIT

SSUPDC
SSOPDE

TRANSLATE, TRANSLATE AND TEST
EDIT, EDIT ANO MARK

OBJECTIVI:S
TRANSLATE
THE BYTES OF THE 1ST OPERAND ARE USED AS ARGUMENTS TO
REfERENCE THE LIST DESIGNATED BY THE 2ND OPERAND ADDRESS.
EACH FUNCTION BYTE SELECTED FROM THE lIST REPLACES THE
CURRESPONDING ARGUMENT IN THE 1ST OPERAND.
I~E HYTES OF THE 1ST OPERAND ARE SELECTED ONE BY ONE
FOR TRANSLATION, PROCEEDING LEFT TO RIGHT, UNTIL THE 1ST
OPERAND fIELD IS EXHAUSTE!).

THE FORMAT OF THE SOURCE, 2ND OPERAND, IS CHANGED FROM
PACKED TO ZONED AND IS MODIFIED UNDER CONTROL OF THE
PATTERN IN THE 2ND OPERA~D.
DURING THE EDITING PROCESS, EACH CHARACTER OF THE
PATTERN IS AFFECTED AS FOLLOWS.
1. IT IS LEFT UNCHANGED.
2. IT IS REPLACED BY THE 1ST CHARACTER IN THE PATTERN
CALLED ThE FILL CHARACTER.
3. IT IS REPLACED ~Y A SOURCE DIGIT EXPANDED TO ZONEDFORMAT.
WHICH ACTION TAKES PLACE IS DETERMINED BY -- THE TYPE
OF PATTERN CHARACTER, THE SIGNIFICANCE INDICATOR, AND
WHETHER THE SOURCE DIGIT IS ZERO.
PATTERN CHARACTERS

TRANSLATE AND TEST
0010 0000
THI: BYTES OF THE 1ST OPERAND ARE USED AS ARGUMENTS TO
REfERENCE THE LIST DESIGNATED BY THE 2ND OPERAND ADDRESS.
EACH FUNCTION BYTE THUS SELECTED fROM THE LIST DETERMINES
THE CONTINUATION Of THE OPERATION. wHEN THE FUNCTION
BYTE IS ZERO, THE OPERATION PROCEEDS BY FETCHING AND
TRANSLATING THE NEXT ARGUMENT BYTE. WHEN THE fUNCTION
BYTE IS NONZERO, THE OPERATION IS COMPLETED BY INSERTING
THE RELATED ARGUMENT ADDRESS IN THE LOW-ORDER 24 BITS OF
GENERAL REGISTER I, AND BY INSERTING THE fUNCTION BVTE IN
THE LOw-ORDEK BYTE Of GENERAL REGISTER 2.

DIGIT SELECTOR. FILL CHARACTER OR lONED DIGIT
REPLACES THE SOURCE DIGIT DEPENDING ON SOURCE
DIGIT AND SIGNIFICANCE INDICATOR.
0010 0001 SIGNIFICANCE STARTER. SAME AS DIGIT SELECTOR,
EXCEPT a CAN START SIGNIfiCANCE.
0010 0010 FIELD SEPARATOR. FILL CHARACTER REPLACES
SOURCE DIGIT, AND SIGNIFICANCE INDICATOR IS
TURNED OFF.
OTHER -- MESSAGE CHARACTER. THESE CHARACTERS REMAIN
UNCHANGED OR ARE REPLACED BY THE FILL
CHARACTER DEPENDING ON SIGNIFICANCE INDICATOR.
EDIT AND MARK
SAME AS EDIT. IN ADDITION, THE ADDRESS OF THE 1ST
SIGNIFICANT RESULT DIGIT IS INSERTED IN BITS B-31 Of
GENERAL REGISTER 1.

ADDR

WORD

2D7C
2D7E
2080
2082

ABS3
2607
2Et1

2084

6F38
6E2D

2086
2088

5F10
6670

SEQUl:NCE NU.

LABEL

CiR T 001

T
*
S SOPDt

CTRT
CTRT
CTRl
CTRT
C TRT
CTRT
C TRT
CfRT

002
003
004
005
006
007
008
009

NXTCHR

NEXTSEQ

NEXTLABEl

TRANSLATE
CICY 045

ST AT EMENf

AND TRANSLATE AND TEST

ADDERR N

BR IF Hl=NI
00=0
HO=O
ROB HI U
H1C= H1+V 1
HOC= HO +VO +C
00C=00+01 +C

COMMENTS
C.V.PERKINS
HR IF INVAU D ADDER
READ ARGUMENT BYTE
CALCULATE
SECOND
OPEkAND

ADUR

WORD

S£:I;; UENCE NO.

lD8A
2U8C
208E
2090
2t.l92
2t.l94

A253

C TRT 010
C TRT 011
C TR T 012
cnn 013
C TRT 014
C TkT 015
CTRT 016
C TR T 017
C IR J 018
CTRT 019
C TRT 020
C TRT on
C TkT 022
CTkT 023
C Tk T 024
CTRT 025
C TRT 026
C IR I 021
CTRT 028
C TR T 029
CTkT 030
C lR 1 031
C IRT 032
CTK! 033
CTRT 034
CIKI 035
CIRl 036
CTK T 031
C TR T 038
CTRT 039
C Tf< 1 04U
ClkT 041
C TR T 042
C TRT 043
C IRI 044
C lkT 045
C lR 1 046
CTkT 041
CIRT 048
C II< I 049
G1RT 050
C TI<. T 051
CTRT 052
C TRT 053
elR J 054
CTl3
UClB
DelB
DClB
DelB
DClB
DClB
DClB
DCLS
DClB
DClB
DelS
DClS
DCLS
DClB
DCLB
DClS
DClB
DClB
DelB
DClB
DClB
DeLB
UClB
DClB
DCLB
DCLB
DCLB
DClB
DCLB
DClB
UClB
DClB
DClB

030
031
033
034
035
039
040
041
042
043
044
045
046
054
056
057
058
059
\l60
061

*
*
*

READ OUT NE XT CCII ADR
RDH V DA,8A
BR
RDHlll
10 AND BYTE MODE CHANNEL CHAIN EN TR Y
TO fETCH A NEW CCW UPON DATA OR CCMMANO CHAINING. DOID1 CONUCW ADDRESS, Gl CONTAINS FLAG AND OP B ITS OF PREVIOUS ucw.
OO=DO*-K08
SE T CAME FRM CHAINING FlAG
DO=DO$KOI
SE T D 1 TO UC W BYTE 7
Dl=DUK07
READ NEXT CCW ADR
RDH V AS,D+O
BR If NO COMMU.STAT MOD
BR IF 005=0
054 RDHW1X
TURN OFf INCR CCW+d BIT
OO=DO*-K04
INCREMENT CCII
Vl-=V l$K06
ADR BY 8
V=V+2
Z=VO+K40
BR IF CCW ADR OVER MEMORY
BR IF AC= 1
106 PRGERC
READ FIRST CCW HW
RDH U V+2
Z,=UOoK08
BR If f\J0 TIC
BR IF UNI
080 NOlIC
CO,",MAND CODE IS TIC. CHECK AND EXECUTE •
Ul=Ul
SR If CCW BYTE l=NI
BR If INI
107 PRGERB
READ CCW SECOND HW
RDH U Vt-O
I=UO+K40
SR IF OATA ADR OVER MEMORY
BR IF AC: i
107 PRGERB
I=Ul*-K08
CHK fOR VAL ID TIC ADR
BR If LlNZ
107 PRGERB
V:U
READ FIRST CCW HW
RDH U Vt-2
Z=UOoK08
CHK fOR VALID Tl
BR If Ll= 0
107 PRGERB
Ul=Ul
BR IF TIC CC W BYTE l=Nl
SR If lNl
107 PRGERB
MOVE COMMAND TO GO
GO=UO
INCREMENT cew ADR
V=V+2
READ CCW THIRD HW
RDH U V+2
CHK FOR VAL ID flAG
I=UO*-K08
CHK FOR VALID flAGS
BR If LINl
093 PRGERA
CHK FOR DATA CHAIN
BR IF Gl 81T0= 1
114 eDABR
Gl=OOOOXI00
G1=Gl*-K33
DECODING OF
BR If GO BIT7=l
110 OUTe MD
THE ccw
SR IF GO BlT6=1
III INfCMD
COMMAND
SR IF GO BIT 4=1
112 INBCMD
BYTE
BR I f GO BITS=l
I NfCMD
111
INCR V TO CORREC T NXT ecw ADR
V=V+2
BR IF BUR ST CHNl
BR If DO BIT 1= 1
103 BSTPER
SE T D TO UC W HWD 3
Dl=DUK06
STORE NE XT CCW ADR
STH V AS,D+O
BR
DCLR 002 PRGERR
STORE UPDATED NXT CCW ADR
STH V DA,8A
BR
DCLR 002 PRGERR
UPDATE V
V=V+2
V:V+2
TO CORRECT
NEXT CCW ADR
V=V+2
071
NA TI VE
ENTRY
TAINS

CHAIN
CC WCJA
CDACOM

SKIP
RDH WI X

*

071

RDHWI
NOlIC

089

A8CO

090
091
092
093
095
096
100

PRGERA
PRGERR

101

ClOAD-=*E60, EC lE VEl=128211
COMMENTS

BSTCC

002

103
104
106
107
108

STATEMENT

NEXTSEQ

063
073
074
075
076
017
078
079
080
081
082
083
084
085
086
087
088

NEXTLA8EL

lABE l

PRGERX
BSTPER
PRGERC
PRGERB

PAGE 158

AD DR

WORD

13(8
1430
1432
1434
1436
141E
1420
1422
1424
1426
1428
142A
1.42C
142E
143C
143E
1440

9414
153B
l51S
Q420
2405
15F 5
(:505
5038
40(6
C497
D(:3D
726A
'i43E
7212
6226
1343

1442

5230

1444
1446
1448
144A
1.44C
144E
1450
14')2
1454
1456
14,)E
1460

1462
1464

1458
145A
14')C
1040
1020
1022
1024

1~3B

01:59
C54A
1565
17(:3

756A
6666

F25F
5FF2
7F60
Q460
5F60
6664
42FF
8121

A041
!DOD

0244
SAH
9CFC
S812
<;812

SEQUENCE NO.
DClB
DClB
DClB
DClB
DClt!
DClt!
DCl.t!
OClB
DClB
DelB
OClB
DClB
DCLB
DClB
DClB
DClB
DClB
DClB
DClB
DClB
DClS
DC lB
DClB
DClB
DCLB
DCLB
DClB
DClS
DClB
DClB
OClB
OClS
DClB
DClB
DClS
OClB
DClB
OClB
DClB
DClB
DClB
DClB
DClB
DClB
DClB
DClB
DClB
DClB
DClB
DClB
DClB
DClB
DClB

lASEl
OUTCMD
I NFC MO
I NBCMD
CDABR
FLAGOR
CHKflG

UB

131

132
133
134

135
136
137
138
139
140
142
144
145
165
166
174
175
176

STBURS
DECV

*

*
*
*

*
*
*
*
*
*
NOTNAT

177

11d
l1Q

180
181
183
184
185
186
190
191
195
199
201
209
211
212

CHAKEY
SETKEY

*
*
*CHCCW
BSTCDA
NOTCiJA 0

*NATSIO

0
NAYSIO 1
NATSIO 2

NEXTlABEl
PRGERA

STATEMENT

CLOAD=*E60, EC lEVEL=lZ8211
COMMENTS

BR
SET OP BiTS TO OUTPUT
Gl-=GloK03
SET OP BllS TO INP FW
G1=G1oKO 1
SET OP BITS TO INPBKW
Gl=GloK03
BR
115 flAGOR
SET CD INDICATION
GO=OSKOO
CLEAR HIGH FLAGS
Gl=G1*-KFO
OR THE OLD AND NEW FLAGS
Gl=Gl$UO
READ CCW FOUl{ TH H'n
RDH U V+2
U=U
BR IF Z=O
BR If CCW COUNT=OOOO
095 PRGERR
BR If 00 BIT1=1
BR If BURSTCH
126 STBURS
STH V AS.o-Z
STORE NEXT cew ADR
BR
XXXXXXXXXXMAKE ADDRESSABLE
128 DECV
STH V DA,8A
STORE NEXT CCW ADR
V=V-2
DECREMENT V TO HWD 1
Vl=V1*-K04
OF CURRENT ecw
LAST TO BE fETCHED IS THE DATA ADDRESS fIELD OF THE NEW CCW.
RDH V V+O
READ CCW SECOND HW
CCW IS NOW ALL fETCHED, READY TO BE TURNED OVER TO USING 1-0 ROUTINE.
CCW DATA DISTIBUTED AS FOLLOWS-GO CONTAINS COMMAND CODE (=0 IF DATA CHAINED TO PRESENT CCWl,
Gl CONTAINS FLAG/OP BVTE FOR NEW UCW.
VO/Vl CONTAINS INITIAL DATA ADDRESS.
UO/Ul CONTAINS INITIAL COUNT,
00/01 CONTAINS UCW ADDRESS+Z.
DO BIT 7=1 IF CURRENT CCW IS Nor FIRST IN CURRENT CHAIN. AND
NEXT (CW ADDRESS [S IN AUX STORAGE.
BR IF BURST
190 CHCCW
BR [ f DO 1=1
BR IF NO CDA FLAG
165 NOT NAT
BR IF Gl BlTO=O
ZERO OUT CG AND SlI FLAGS
Gl=Gl*-KbO
D1=Dl*-K06
STORE UCW fLAGS,OP
STB Gl AS.o-l
D=D-2
BR IF FROM CHAIN
BR IF 001=1
119 CHAKEY
GET SAVED CAW KEy-srART ItO
ROB HI OAt BE
STORE KEY IN UCW 00X6
STB HI AStD
BR
180 SETKEY
GET ASSIGNED KEY FROM UCW
ROB HI AS.O
0=0+2
STPO=Hl
SET KEY FOR NATIVE
209 NATSIO N N=Dl BITSH
BR TO DIF NAT 10 SlIO
IF CHANNEL START 1-0, GO ON TO INITIAL SELECTION.
IF CHANNEL CMD CHAIN, GO ON TO INITIAL SELECTION. THEN RTN FROM TRAP.
IF CHANNEL DATA CHAIN, OR NATIVE eMD OR DATA CHAIN, RETURN FROM TRAP.
199 NOTCDA N BR If GO=NZ
BR IF CMD IS NZ (IF NOT CDAI
RST GB K=80
RST CDA REQ lTCH
RTN G MMSK2=0
RETURN FROM TRAP
BR
Exn TO INITIAL SElECTION
DClC 014 ENTRY
IF NATIVE ST ART 1-0, BRANCH TO INDIVIDUAL ROUTINES.
BR
PRINTER START I/O SEC BIT=O
OPTS 042 PRSIO
BR
RDR START 10. SEC BIT=O
ERDR 053 NRDR
BR
PCH START 10,SEC BIT=O
ERDR 053 NRDR
093

109
110
111
112
113
114
115
116
111
119
121
123
124
126
128
129
130

NEXTSEQ

PAGE 159

ADDR

WORD

1026

A4A2

SE~UENCE

NO.

DClB 214
DClS 215

LASEL

NEXTSEQ

NEXTlASEl

NAISIO 3

OYPE 113

TWOFF7

*

ac.ts

uCltl
DCl B
UCl i3
JClS

004
006
021
029
030
C39
045
054
017
080
093
095
103
lC6
107
110
111

112
114
115

126
128

165
179
180
190
1'1l
199
209

aClA
DGlB
UClB
DCLB
UClB
UPTQ
DCLe
UCLB
DCLA
DClB
DCLB
DClB
DGlB
DClB
DClB
Deu:!
DClB
DCLB
DCLB
DClS
DClB
DClS
DClS
OCLB
DClB
DClB
DClR
UClB
DClB

CROSS REFERENCE FOR CSEcr OClB

DCLS 026

0.23
028

037
148
043
2t:l

059
OEt»

119
OS5
050
06L
089
0<;0
Ost
Od7
113

121
124
144
115
178
142
047
l'1()
Ie3

Tw.START IO.SEC BIT=O

*

**********************************

109
OC4
OL4

BR

*********
END OF aCHB (CCW FETCH ROUTINE).
**********************************

*

DClB
DClS
UClS
OCll3
UCl B
OCL6
uCll3
UClS
ilCL S
OCLB
DeLB
DClS
UCLB
OClB
uCl B
OCLt3
0l.l8
DLl B
l)Cl B
DClS
OCUI
JClS
DCl Ii
UClB

ClOAD=*E60. EC lE VEL=128211
COMMENTS

STATEMENT

DYPE 155

ECOl 070

149
031
026
109

DelE 023

DelE 025
DCLB 073

DGlB 075

DCle
DClB
DClE
DClS

DClB 092

DClB 079

DCl B 081

**********

PAGE 160

CLOAD=*E60, EC lEVEl=128211

DClC

PAGE 161

DESCRIPTIVE TEXT

CHANNEL INITIAL SELECTION
1H1S kUUTINE PKUVIDES THE INITIAL SELECTION SEQUENCE FOR
CEVICES ATTACHED TO THE STANDARD INTERFACE. THE ROUT INE IS
VtR~lONEO ACCORDING TO THE CHANNEL FEATURE, EITHER BYTE
CHANNEl-O, OK BURST CHANNEl-l.
BURST CHANNEL ENTRY POINTS

BYTE CHANNEL ENTRY POINTS

EN TRY

INITIAL SELECTION ENTRY, OR RESELECTION ENTRY
IF CHAINING, FOR START 1/0 OR IPl AFTER
COMPLETING CCW fETCH IN -DClB- KCUTINE.

ENTRY

INITIAL SELECTION ENTRY, OR RESElECTION ENTRY
IF CHAINING~ fOR START 110 OR IPL AfTER
COMPLETING CCW FETCH IN -DCLB- ROUTINE.

NUPCIB

ENTRY FOR 1/0 INlEKRUPT DR INACTIVE TEST
I/U TO GET DEVICE ON THE INTERfACE.

BEGIN

ENTRY TO SELECT THE DEVICE FOR HALT 1/0, 1/0
INTERRUPT, OR WHEN A CHANNEL ERROR IS DETECTED.

HL TEN T

INACTIVE HALT
INTERFACE.

NOCHE

ENTRY FROM LOW-PRIORITY-TRAP STATUS ROUTINE
-DClE- TO EITHER COMMAND CHAIN OR SET UP FOR
INTERRUPT.

1/0

ENTRY TO GET DEVICE ON THE

ADRABC -- FRUM CHANNEL lCw-PRIORITY-TRAP STATUS ROUTINE
-DClE- TO CONTINUE TESTING STATUS. FROM THIS
POINT, THE ROUTINE CAN EITHER COMMAND CHAIN,
TR~ TU lOAD THE INTERRUPT BUfFER. OR STORE THE

IPlCHK
ST ATUS

ENTRY FROM -DClEFOR INTERRUPT.

STATUS ROUTINE TO SET UP

C Sw.

CSWFRM
ADR 11A

fRLM -DCLE- STATUS ROUTI~E TO TRY lOADING
THE INTERRUPT BUFfER OR TO STORE THE CSW.

lRYIBS

FRCM -DClE- STATUS ROUTINE TO TRY LOADING
fHt: INTERRUPT BUFFER.
ENTRY TO DO A TIMEOUT ON FAll Of OPERATIONAL-IN.
THEN EITHER RETURN FROM TRAP OR GO TO I-CYCLES.

ADK22A

"GDR

GAff

WOKD

CU6

SEQUENCE NO.
DelC
DelC
DClC
OClC
DClC
DCLC
DCLC
DClC
DCLC
DCle
DClC
DCle
DClC

001
003
004
005
006
001
008
009
010
011
012
013

014

lABEL
T
*

*
**

*

*
*

*

*

*
ASEQ
ENTRY

NEXTSEC

NEXT lABEL

STATEMENT

FROM INTERRUPT ROUTINE OR TEST lID ROUTINE TO
PUT TOGETHER C SII.

ACfPCI -- FROM INTERRUPT ROUTINE TO STORE STATUS IN THE
CSW FOR ACTIVE PCI.

COMMENTS

360 CHANNEL INITIAL SELECT ION
H.E.BERKEBILE
COUNT FIE lO, H1GHORDERBYTE;UO
COUNT FIELD, LOW ORDER BYTE=Ul
DAT A ADDRESS. HIGH ORDER BYRE=VO
DATA ADDRESS. lOW ORDER BYTE =Vl
I CMDJ=GO
flAGS AND OP BYTE =Gl
TIMEOUT COUNTER =00
DEVICE ADDRESS =01
Gl=OOOl 0000---1/0 INTERRUPT
Gl=OOOO OOOO---TESJ 1/0
AL07:6E
BR IF Gl BIT4=O
018 NOPCIB
BR If NO PC I BIT

lIoOR

WORD

dAFU
llAF2
JAf4

7(:02
2040
8AFe
0040
.2B80
4F 7F
2BE4
2BC4
C90D
FOAl
262B
E600
05C3
FC94
F 514
2323
2207
8B3A
DD9F
2BOO
f'21F
UCB
AAF4
A254
?f-4F
FC9F
2B84
E61F
FDAE
2628
f-CA 7
2880
F21f
E14'l
f149
5"29
2307
72A2
2BOO
2400
SEA2
2A07
AOlE
AF44
C3U8
875A
F537
5449
C4B6
2BOO
B 362
2B 84
2307

UUb

OAF8
OAFA
OAfC
JA F E
JllOO
Od 02
JI> 04
Od06
Jtl08
UllOA
dllOC
,):30E
chILO

U812
0:314
u 1116
\iLl 1tl
\JIll A
lid Ie
,)d 1E
u320
uUL2
,)ll24
llti 26
Ud28
Otl2A
Otl2C
'Jll2E
uti 30
Od 32
llt,34
OU36
Od38
Otl3A
Otne
013 3E
OB40
0842
Oll44
01346
dll48
084A
dtl4C
OB4E:
Otl50
Oti5.!

0854
Of! 56
ud58

SE(JUENCE NO.
OClC
DClC
OClC
OCLC
DClC
DClC
Dele
DClC
DClC
DelC
OClC
DClC
DClC
DClC
DClC
DClC
DClC
OClC
DClC
DClC
uClC
OClC
OClC
DClC
DClC
DClC
DClC
DClC
DCle
DClC
DClC
DCle
DClC
DClC
DClC
DClC
DClC
DClC
DClC
DClC
DClC
DClC
DClC
DClC
OClC
DCle
DClC
DClC
DClC
DCle
DelC
DClC
DClC

015
016
017
018
019
020
021
022
023
024
025
026
021
02 B
029
030
031
032
033
034
035
036
037
038
039
040
041
042
OB
044
045
046
047
048
049
050
051
052

LABEL

NEXTSEQ

019

NEXTlA8El

ENTRY2

NOPCI B
ENlrRY2
HlJENT

ADRl

069
039

OPINUP
CUBUSY

023

ADRl

0.33
OB

AOR28
AOR28

052
038

ADR33C
I NFCHK

0.38
060
CCOM 165
DClR 111

INFCHK
IPL002
CC3B
INFCHK

038

I NfCHK

038
046

I NfCHK
ADR9

042

ADRI0

038
059
059

INFCHK
STRTlO
STRTIO

SLI N

ADR28
ADR29

AOR30
I NFCHK
C U8USY

ADRlO

ADR9

ADR33
ADR33B
ADR33C

053
054
055
056
051
058
059
060
061
062
063
064
065
066
067

ADR34

S TR TI 0
I PlO02
AOR32

CCOM 123
DClT 041
067
DCll 021
050
050

ADRBA
HAl Tl 0
ADREBR

CCOM 154

STATOS
I NT RT X
ADREBR
IPlSTP
ADR.33
ADR33
CCOB

ClOAD.: *E6 0, EC lEVEl-=l28211
COMMENTS

STATEMENT
STH o OA,88
SET GB K=04
BR
RST GB K=04
SET GA K=08
GB/DUT=Dt
SET GA K=28
SET GA K::2C
8R [F GT BIT 4= 1
BR IF GT 8IT3=l
DO=DO+K02
BR IF DO BIT 2=0
Z=Gl*-KOC
BR If lZNZ
BR IF Gl BIT 3=0
Vl=O$K02
VO=O
BR
BR IF GT BITl=1
SET GA K=OO
BR IF DO BIT 1= 1
BR If BA B1f4= 1
BR
BR
GO=GBI IN
BR If GS BIT 3=1
SET GA K= 28
BR If DO BIT 2= 1
BR IF GT BiT 3= ()
DO=DO +K02
BR If GT BIT 3= 1
SET GA K=08
BR I f DO BIT 7= 1
BR I f Gl BlTo=l
BR IF Gl B IJ7= 1
VO=GO
Vl=O
STH V DAtAC
SET GA K=OO
SET MODE K=OO
ROH H DA,AC
TO=O
SAL
BR
Bt{ [F BA B1T4=0
BR
BR IF Gl BIT 3= 1
GO=GO
8R I f ZNZ
SET GA K=OO
BR
SET GA K=28
Vl=O

STORE UNIT WENT I N I NT BUFFER
SE T INT BUFFER LATCH
RESET 18 l TCH
SET INl SELECT lATCH
PUT ADR ON BUS OUT
SE T ADDR-OUT
SET SEL-D AND ADR-O
8R IF OP IN UP
8R IF STA-IN UP
INCREMENT COUNTER
BR IF NO TIMEOUT
MASK Gl B nS6 AND 7
BR IF START 110
BR IF lEST 1/0
SE T INTfCE CTRl CHECK
SET 00 UNIT STATUS
BR If
RESET
BR IF
BR IF

SEt IN DOWN
ALL TAGS our
CHAINED-TO Ccw
IPl

BUSS IN TO GO
BR IF PAR lTY ERROR
DROP SEt-OUT,KEEP ADR-O&INl SEl
BR IF T I MEO U r
BR IF STA-IN DOWN
IN CR EMENT COON TE R
BR IF STA-IN STI I I UP
DROP ADR-OUT ,KEEP INl SEt ON
BR IF CHAINED-TO CCW
BR If
STAR T liD
MOvE UNIT STATUS TO VO
SET 00 CHANNEl STATUS
SAVE STATUS
DROP All TAGS OUT
RESTORE CHANNel STA TUS
TO R THE TO STORE C SW
BAl
RTN fROM BAl fOR I/O IN T ONLY
BR IF NOT IPl
GO TO IPl STOP
BR IF 110 INTERRUPT
IF STA Nl
RE SE T INl SEL
SE T CON CODE 0 1:. R TN TO Ie YC
RAlSE ADR-Q AND DROPSEl-O
CHNl STATUS = 0
BR

PAGE 162

AllOR

wORD

0B5A
ut:l5C
Ud5E
UB60
OB62
OB64
0866
OBb8
OBcA
OiibC
UBbE
0370
0872

A78A
2bCO
0010
E61F
CDE9
262B
CDEO
4F4F
5F4F
FC9F
6471
C49E
054B
C4D7
2B(;2
<:iE06

0674

OiHb
OB78
I.E06
lEoa
lEOA
lEOC
lEOE
It 10
lE 12
lU4
iE 16
It 18
lElA
lEtG
iE iE
lE20
lEn
lE24
H26
IE 28
lE2A
lt2G
IE 21:
iE 30
1E32
1E34
IE 36
IEl8
IDA

lE04
lDC
lE3E
lE40
lE42
lE 44
iE 46
lE48
iE4A

E605
fD8F
262B
FDS6
5F4F
FCE5
El23
f 123
2688
E6C5
C9AO
262B
C9<;9
BB4C
C4BE
F233
20(4
3685
7632
1685
0134
2002
1543
2B48
1635
C3BD
Ano
A254
8ADO
COSO
F451
2D04
D14A
1543
2002
2285

SEQUt:NCE NO.
DClC
OClC
DClC
DCLC
DCle
DClC
OCLC
DelC
OCLC
DClC
DC lC
DGlC
DClC
DGlC
DGlC
DClC
DCLC
DClC
DClC
DClC
DClC
DClC
DClC
OClC
OClC
OClC
DClC
OClC
DClC
OClC
OClC
DC lC
DClC
OClC
DClC
DGlC
DClC
DClC
DCLC
DClC
DCLC
DCLC
DGlC
DCLC
DGlC
DClC
DClC
DCle
DCle
DClC
OGlC
OGlC
OGle

LABEL

068
069
070

OPINUP

071
072

ADR2

on

074
075
076
017
078
019
080
081
082
083
084
085
086
081
088
089
090
091
092
093
094

113

114
115
116
li1
118
ll9
120

NEXTLABEl

154

ADRE

038
075

INFCHK
ADl NUP

071

ADR2

038

INfCHK

038

1 NFCHK

006

HALT 10

085

ADR3

112
089

INFCKK
STINUP

085

ADR3

112
099
099

I NFCKK
NOTTST
NOTTST

112
098

INFCKK
ADR32B

094
061
114
107

ADR31
ADR32
NlST A
NOBUfF

108

NOT BUF

113
189
DCLR 117
DCll 019
123
123

IPlOOl
ADR24
INFCHK
IPLWTl
NOCHE
NOCHE

ADINUP

AEND
AOR3

STINUP

TSH S
ADR31

09~

096
091
0'18
099
100
101
102
103
104
105
106
101
108
109
110
111
112

NEXTSEQ

AOR32B
NOfTST
lEROST

NOBUFF
NOTBUF
IPLBR
I NFCKK
[PLOOl
NISTA

120
NTBF X

NTBfX

STAT EMENT

ClOAO=*E60, EC lE VE l= 128211
COMMENTS

BR
SET GA K=OC
RS T GB K=O 1
BR If DO BIT 2= 1
BR If GT BIT 0= 1
DO=DO+K02
BR If GT BITO=O
GB/OUT=GO
GO=GBIIN
BR IF GS BIT 3= 1
GO=GO[]Dl
BR IF ZNZ
l=G1[]K04
BR IF l=O
SET GA K= IC
BR

GO SEf I/U IN TERR UP T
RESET AUR-O
RST SUPR OUT
BR IF TIMEOUT
BR IF ADR-IN UP
INCREMENT COONTER
BR IF ADR-IN NOT UP Y
PUT eMD ON BUSS OUT
PIT DEvICE AOR IN G()
BR IF PAR lTV ERROR
COMPARE ADORE SS
BR IFADR MISMATCH
TEST FOR HALT I/O
BR IF HL T 1/0
SET CMD-O

BR IF DO BIl2= 1
BR IF GT BIT3=l
DO:DO+K02
BR IF GT a IT 3=0
GO=GBI IN
BR IF GS BIT3=l
BR IF G1 BU6=i
BR If Gl BIT 1= 1
SET GA K=4B
BR IF DO BIT 2= 1
BR IF GT BIT4=O
DO=DO+K02
BR (F GT BIT 4= 1
BR
BR IF lNl
BR IF 001= 1
SET GB K=20
D()=DO$K80
STH 0 DA,8E
00=DO*-K80
BR IF G1 aIT5=0
SET GB K= 10
Gl=Gl*-K04
SET GA K=44
DO=DO*-K30
BR IF 8A BIT4=1
BR
BR
BR
BR IF GO SIT4=0
BR If GO BIT 3= 1
SET GB K= 20
BR IF Gl BIT 5=0
Gl=G1*-K04
SET GB K= 10
VO=OSK80

BR IF TIMEOUT
BR If STA-IN UP
INCREMENT COONTER
BR IF STA-IN NOT UP YE T
GO=STATUS ON BUSS-IN
BR If PARITY ERROR
BR IF
START 110
SET SRV-iJUT,INlSELUP
BR IF TIMEOUT
BR IF OP-IN DOWN
INCREMENT TMOUT CNTR
BR IF OP-IN STH.l UP
BR IF Nl UNl T STA TUS
BR IF CHAINED TO CC \oj
TURN ON BURST LATCH
TURN ON BURSTCH/fIlE AC TI VE BIT
STORE STATS
RESTORE DO TO ORIGINAL VALUE
BR IF NOT BUffERED DEVICE
TN ON BUF DEV lTCH
RE SET BUffERED DEV INDICATOR
SE T SR v-o UT &KEEP SH.-OUT UP
RST 2 HI BI IS OF TMOUl GNTR
BR IF I Pl

BR IF NO CH.E. BIT
BR IF BSY B IT IN STAT
TURN ON BURST LATCH
BR IF NOT BUFfERED DEVICE
RESET BUFFERED DEVICE INDICATOR
SET BUffERED DEVICE LATCH
TURN ON BURSTCH/fIlE ACTIVE BIT

PAGE 163

ADDR

wORD

H4C
lE4E
lE50
11: ')2
11:54
1E56
IE 58
lE5A
IE 5C
iE 5E
IE60
lE62
IE 7A
IE7C
1E1E
IE 80
lE82
IE64
lEoo

23C7
7232
2301
C561
0562
04C1
C4E2
C 463
0065
ce78
15C5
A782
2010
2tl48
2405
1573
<;E38
2010
2B88
E6G5
C9FO
262B
C9E9
2645

lE08

lE6A
lE6C
1£:61::
1E 70
lE72
IE 14
IE 16
IE 78
lEOl
2182
2784
nB6
n88

21fiA
278C
Z1dE:

Z790
2792
27<;4
2796
2798
119A
lTgC
71 'IE:

27AO
17A2
2144
21A6
21AA
nAC
l.7AE
21BO
27B2

3613

5212
0402
9306
930A
C.386
8760
f22B
2B88
51,29

CllO
'B8?
7222
2800
2eC"1
1032
0004
E629
C9A2
2626
C'19B
2400
5E22
A030
51,29

5349
ECC5
08C4
A1B4

SEQUENCE NO.
OClC
DClC
DClC
DClC
DCle
DCLC
DCLC
DClC
DClC
DClC
DClC
DClC
oelC
OClC
OClC
DelC
DClC
DCle
DCLe
DCle
OCle
OCle
OClC
DClC
OClC
DClC
DelC
DClC
DClC
DC lC
OClC
OCle
OClC
OClC
DClC
DClC
OClC
OClC
DClC
OClC
DClC
DClC
DClC
DelC
OClC
DClC
DeLe
oelC
DClC
OClC
OClC
DCle
DClC

121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
IH
158
159
160
161
162
163
164
165
166
167
168
169
110
lH
172

173

LABEL

NEXTSEQ

NOCHE
ADRABC

eCFLON
AORll
AOR12

NEXTlABEL

131
132

CCFLON
ADRll

132
132
138
133

AORll
AORII
DECHTP
ADR12

150

ADRll A

1I0

I PLBR

112
144

I NfCKK
ADRl't

140

AORl5

DECHTP
AORIS

AOR14

NOI NCR
ADRllA
NTl

Pl2

149
DClB 045
oelB 054
152
DCt.l 024
169

""01 NCR
SKIP
ROHWIX
NTlPl2
1 PlST B
Nlsrec

AORE
151

AOR16

114
Lb6

[NfCKX
AORl1

162

ADRI8

ADR16

AORlB

ADR11
eCOM 135

ST ATUS

Nl srce

175
TRYIBS

175

183

AOR20
ADRlO
AOR22

STATEMENT

ClOAO-=*E60, EC LEVEL=128211
COMMENTS

Vl=O
STH V OA,8E
STORE STATS
V1'=0
CHNL STA TUS = 0
BR IF Gl 8ITO=l
BR IF CDA FlG ON
BR IF CCFLG =0
BR IF Gl BIT 1-=0
l=GO*-KCC
BR IF 8AO S TA TUS
BR IF ZNZ
8R If BAD STATUS
BR If GO BITO-=l
BR If GO BIrS=l
BR IF DEVICE END
BR IF CHNL END
BR IF GO BIT4=1
Gl=Gl*-KCO
COA FLG ON - BRK CHA INI NG
uTO NOT CHAINING OR BAD STATUS RTNE
BR
SET GB K=Ol
SET SUPR OUT
SET GA K=1t1t
SET SER VICE OUT
GO .. O$KOO
GO-=OO CHNl STATUS
RST CODED OP 8ITS
Gl=Gl*-K07
BR
SET GB K=OI
SET SUPR OUT
SET GA K=48
SET SRV-OUT
BR IF DO BlT2=1
BR IF TIMEOUT
BR If OP IN DOWN
BR IF GT BIT 4=0
INCREMENT TMOUT CNTR
DO=00+K02
BR IF GT BIT 4= 1
BR IF OP-IN STIll UP
DO=0$K40
RESET TMOUT CNTR AND SET
DO=DO$KOI
UP DO TO CHAiN
RDH V OA,8A
RO OUT NXT CCIli ADR
BR IF GO BIT 1=0
BR If NO STATUS MODIFIER
BR
GO INCR cew ADR+8 BEFORE CHAI N
BR
NO CCW INCR NECESSARY-DO CHAIN
Bit IF NOr IPl
8R If BA B1T4=0
Bil
BR TO IPl sa RTNE
BR IF CHAINED-TO cew
BR IF DO B1l7=1
SET GA K=48
SEND SR v-a
VO:GO
PUT UNIT STA IN VO
BR If Gl BIT4=O
BR IF PC I FlG OFF
PUT pel BIT IN CH STA
Vl=V l$K80
TEMP STORE STA TUS
STH V OA,8C
SET GA K=OO
RESET INl SELEC T
UO=O
STH U DA,8E
AUX008E -= 0000 --RST STATS
RST GB K=20
RESET BURST LATCH
BR If HMEOUT
BR IF DO BlT2=1
BR If OP-IN DOWN
BR IF GT BIT 4=0
DO=OO+K02
INCREMENT TMOUT COUNTER
8R If GT BIT4=l
BR IF OP-IN STIll UP
SET MODE K=OO
ROH H DA,8C
RD OUT UNIT &CHNl STATUS
BR TO STORE CSW ROUTINE
8R
XFER STATUS TO VO
VO=GO
GO=V 1
GO '= CHNl STATUS
BR If GS BIT l= 1
BR IF BUR ST l TCH ON
BR IF GS B1T5=0
8R IF IBlTCH=O
BR

PAGE 164

ADDR

WOKD

21A8
27C4
27C6
21C8
27CA
27CC
nCE
2100
2102
21B4
2166
2788
218A
216C
278E
27CO
27C2

A254
1635

DCLC
DCLC
DCLC
DCLC
DCLC
OCLC
DClC
DClC
OCLC
OCLC
DC LC
OClC
OCLC
OCLC
DClC
OCle
DClC
DClC
DCLC
DCLC
oelC
DCLC
OCLC
DCLC
UClC

7602

3413
2040
ECB4
2B08
3413
A1B8
2B02
1635
E629
C9CO
2628
C9B9
E680
0244

2160

A162

0084

OBOC

0094

OF15

OClC
OClC
UClC
OCLC
DelC
OClC
UUC
DCLC
oeLC
UCLC
DClC
DGlC
DCle
DCle
OLlC
DCLC
DClC
DClC
DelC
UClC
DCLC
DClC
JelC
JeLC
DCLC

SEQUENCE NO.

014

018
019
020
023
033
038
039
042
046
050
052
059
060
061
066
061
069
071
075
085
089
094
098
099

DClB
DClC
DClC
DClH
DClC
OClC
OCU:;
DCLC
DCLC
DClC
DClC
DCLe
OCLe
DeLC
DCLC
OClC
OClC
OClC
DCLC
DCLC
OCLC
DClC
OClC

174
115
176
117
178
179
180
181
t82
183
184
185

lABEL

NEXT SEQ

NEXTlABEl

1 NFCKX
ADR20

DClR 117

INFCHK

AOR22
ADR22A
ADR23

18b

181
188
189
190

191
192
193
194
195
196
191
1'18

ADR24
ADR,25
*
ArABLE
C
AEND
ATABLE
C

L83

ADR22

185

ADR23

174
189

I NfCKX

185
19L

ADR23
ADR25

DCHN 092

AOR24

MODRST

ClOAO=*E60. EC LEVEL=128211
COMMENTS

STATEMENT
BR
DO:DO*-K30
STH 0 DA.88
GO=GO$KOI
SET GB K=04
BR IF GS BIT 2:0
SET GA K=40
GO=GO$KOI
BR
SET GA K= 10
DO=00*-K30
13 R I F DO B IT 2= 1
BR IF GT BIT 4=0
00=00 "K02
BR IF GT BIT 4=1
BR IF MMSK 2= 0
RTN G MMSK2=0
BR

BR IF TIMEOUT
BR IF OP IN DOWN
INCREMENT TMOUT COUNTER
BR IF OP-IN STILL UP
BR IF NOT IN TRAP
RE TURN FROM TRAP
RTN TO I CYCLES

XAUX' OBOCOOOE"

BUFFERED DEVICE STANDARD ADDRESS

XAUX' OF1518Ff'

BUfFERED DEVICE STANDARD ADDRESS

STORE UNIT IDENT HWD IN IB
TURN ON STATUS REeD B
TURN ON I B LA TCH
BR IF BRST LTCH OFF
SRV-O---ACCEPT STATUS
TURN ON STA RECD BIT
CMO-O---QUE STA TUS

ADDR:=0084
ADDR=0094

AENO

**********************************
* CROSS REFERENCE fOR CSECT DClC *
**********************************
1~9

014
017
014
026

DCLH 015

028

Dele 029
DCLe 035

033
024
045
043
0(;1
032
048
036
0<;8
081
059
023
014
072
00
oe6
0.,1
Dell:; aS5
DClC 0<;1

DCLC 063
DClC 049

DCLC 088

DClC 092

OCle 040

oelC 042

DCLC 041

DClC 011

DelC 071

DCle 019

PAGE 165

elOAD=*E60, EC lEVEl=128211

UCLC
UCLC
OCle
OClC
DClC
DCLe
UCLC
oCtC
OClC
OClC
UClC
OClC
DClC
DeLe
DCle
DClC
DClC
DClC
DClC
DCte
DClC
OCle
OClC
DCle
Ull e
UCLC
LJC lC
oCle
oCtc
DCle
UCLC

107
108
110
112
113
114

120
123
125
131

132
133
138
140

144
149
150
152
l54
157
162
166
169
172
174
IH

18]
184
185
189
191

Dele
DClC
OClC
Dele
DelC
DClC
DClC
DCle
DCLE
DClC
DClC
DelC
DClC
Dele
Dele
OCle
DClC
DClC
DCl(:
DCle
DClC
DClC
DClC
DelE
oelC
DelC
DCle
OClR
OCle
DClC
oelC

100
105
137
085
110

**********************************
* CROSS REfERENCE fOR CSECT DClC *
***.**.*.**************.**********
Dele 090

DClC 094

0'19

111
114

DClC 115

013
124
125

DClC 127

130
129

143
141

141
132
150
068
155
H5

DClE 070

ttl

152
055
162

111
173
056

182
111
te9

oelC l85
DClC 172
DelC 119
DCte 188
DCle 186

DelC 128

DClC 140

PAGE 166

ClOAO=*E60, EC lEVEl=128211

OClO

DESCRIPTIVE TEXT

CHANNEL DATA lOOP

BYTE CHANNEL ENTRY POINTS

THIS ROUTINE PROVIDES THE DATA lOOP fOR EITHER THE BYTE
CHANNEl-O OR BURST CHANNEl-l, DEPENDI NG ON WHICH CHANNEL
OPTION IS LUAOEO IN CONTROL STORAGE.

BURST CHANNEL
0170

~NTRY

POINTS

-DClE-

OECCNT -- FROM -DClR- ROUTlNE AFTER CHANNEL STATUS lS
SET FOR PROTECTION CHECK OR STORAGE WRAP CHECK.
PURPOSE OF ENTRY IS TO DECREMENT COUNT, THEN
RETURN fROM TRAP OR GO TO I-CYCLES.
WORD

0170
0172

2240
El53

OlCO
01C2
01C4
01C6
OlC8
OLCA
OlCC
OICE
0100
OL02
0104
0106
0108
OIDA
010C
OLOE
OLEO

81EC
81DC
f554
F551
7f3E
5006
C4E3
0240
2B48
8lCA
7F3C
5006
C4E3
0240
SF3C
5006
C40A

ENTRY

COMMON ENTRY INTO A lOOP THAT CHECKS FOR THE
RISE OF SERVICE-IN. STATUS-IN, OR THE FALL OF
OPERATIO~AL-fN.
THIS ENTRY INITIALIZES THE
llMEOUT COUNTER.

lOOP

SAME AS -ENTRYNOT INITIALIZED.

RESET

fROM lOW-PRIORITY-TRAP ROUTINE -OCLE- OR
CHANNEL ERROR ROUTINE -OCLR- TO RESET TAGSOUT, THEN EITHER RETURN fROM TRAP OR GO TO
I-CYCLES.

SERV

fROM -OClE- STATUS ROUTINE WHEN THE DEVICE
REQUESTS SERVICE.

TRAP ENfRY fOR DATA SERVICE ON NON-SUFFERED
DEVICE.

OPBRCH -- ENTRY FROM lOW-PRIORITY-TRAP ROUTINE
FOR BUFFERED DEVICES.

AODR

SEQUENCE NO.
DClO
OCLD
OClO
oeLD
DClD
DCLD
OClD
DClO
OClD
[)ClD
DClO
DClD
DCLO
OCLD
OCLO
DCLO
DClD
OCLO
OClO
DClO
OClO
OCl[)

PAGE 167

001
009
010
011
012

on

014
015
016

LABEL

NEXTSEQ

r

NEXTlABEl

STATEMENT

COMMENTS
H.E.BERKEBllE

AODR=0110

0

I
2
3

013

OP

035
027
023
021

EXPST A
OUTPUT
RDFWO
SKIP

030

CHERO

018

DEceNT

all

018
019
020
Oll
022
023
024
025
026
027
028
029

OECREM -- FROM -OClR- CHANNEL ERROR ROUTINE AFTER
CHANNEL STATUS IS SET FOR PROTECTION CHECK OR
STORAGE WRAP CHECK. PURPOSE OF ENTRY IS TO
DECREMENT COUNT. THEN RETURN FROM TRAP.

CHANNEl DATA lOOP

ATABLE
LABEL
OPBRCH
AENO
OP
OP
OP
OP

EXCEPT TlMEOUf COUNTER IS

DECCNT
SKIP
ROFWO
030

CTZERO

026

CTNZ

C TNZ
OUTPUT

N

LINK G MMSKO= 1
N=G1 B lTS67

FIRST WOR[) OF TRAP
BR ON OP

BR
BR
BR IF G1 BlT3=O
BR IF Gl BIT3=1
STB GBI IN V-I
U=U-l
BR IF Z=O
RTN G MMSKO=O
SET GA K=44
BR
STB GB/IN V+I
U=U-1
8R IF Z=O
RTN G MMSKO= 0
ROB GB/OUT V+l
U=U-l
BR IF ZNZ

COUNT=O AND STATUS EXPECTED
OUTPUT COMMAND
BR IF SKIP FLAG IS 0
BR If SKIP FLAG IS I
STORE BUS IN.AOR -1
COUNT FiElD -1
BR IF COUNT = 0
RETURN FORM TRAP
SET SRV-OUT
STORE BUS IN,AOR +1
DECREMENT COUNT BY 1
BR IF COUNT HAS GONE ro ZERO
RETURN FORM TRAP
RO OUT TO BUS-O.ADR+1
COUNT -1
BR IF COUNT I S NOT YET ZERO

ADDR

ilORO

alE2

C5~9

01Elt

1513
0240
3000
0240
2B42

OlEo
OlES
OlEA
OlEC
OlEE
OlfO
01F2

011
013
018
021
023
026
DeL 0 021
OClO 030
DClO 033
DClO 035

UClD
uClO
OClO
DCLo
DCLO
Del 0

SEQUENCE NO.
OCLO
OCtO
OCLO
OCll)
oCLO
OCLO
oClO
OClO
OCLD

0169

3543
0240

DClE
OClO
OClO
OClo
OCLO
uCLO
DCLO
OClO
OCLO
DClO

031
011
022
016
015
029
014
019
030
013

0.30
031
032
033
034
035
036
037
038

LABEL
CTZERO

NEXTSEQ

NEXT lABEL

033

CTeDA

033

CTCDA

C TCOA
E XPSTA

OClR 112

OCtO 025
OCLD 036

CLOAO=.E60, EC lEVEL=1282ll
COMMENTS

STATEMENT
BR If Gl BITO=l
Gl=Gl·-K07
RTN G MMSKO=O
SET GB K=80
RTN G MMSKO=O
SET GA K= 14
BR IF Gl BITS:l
Gl=Gl$K04
RTN G MMSKO=O

BR If CD FLAG
SET CT=O INDICATION
RETURN FORM TRAP
SET COA REQ
RE TURN FORM TRAP
SET CMo OUT
BR IF CMO 0 SET PREV
Gl 81T5:1 CMO-O GIVE
RETURN FORM TRAP

••••••••••••••••••••••••••••••••••
• CROSS REfERENCE fOR (SECT DClO •
••••••••••••••••••••••••••••••••••

PAGE 168

CLOAD=*E60, EC lEVEl=12B211

DelE

PAGE 169

DESCRIPTIVE TEXT

CHANNEL lOW PRIURITY TRAP STATUS ROUTINES
BYTE CHANNEL

BURST CHANNEL

THE BYTE CHANNEL OPTION IS LOADED IN CONTROL STORAGE,
THIS ROUTINE HANDLES ALL TRAPS -- EITHER DATA SERVICE OR
STATUS.

WHEN THE BURST CHANNEL OPTION IS lOADED IN CONTROL STORAGE,
THIS ROUTINE HANDLES TRAPS fOR EI THER -I. DATA SERVICE - BUFfERED DEVICE, OR
2. STATUS - AN¥ DEVICE.

~HEN

BYTE CHANNEL ENTRY POINTS
BURST CHANNEL ENTRY POINTS
OlBO

LO~-PRIORIT¥

TRAP-ADDRESS fOR DATA OR STATUS.

STATU S

FROM ENTRY lOOP OF -OCLD- WHEN STATUS-IN
RISES. THIS PORTION OF -DClE- HANDLES
STA TLS.

01BO

ADDR

0180
0182

0184
0186
0188
Ol8A
OlBe
Ol8E
0190
0192
0194
0196
0198
019A
019C
019E
01AO
OlA2
OlA4
lA34
1A3b
lA30
lA32
lA38
lA3A
lAlC

WORD

2244
3613
CCA4
0123
5212
5038
008B
FOAO
5119
C4ge
5230
0383
FC9C
93F4
5212
93e2
93FA
A254
9A34
EOBO
8112
FOB8
929E
2B40
2b4~

3l:13

SEQUENCE NO.
BClE
DClE
DClE
DClE
DClE
OClE
DeLE
DCLE
DClE
OClE
DCLE
DeLE
DeLE
DClE
DCLE
DeLE
DCLE
DelE
OCLE
DeLE
DelE
OCLE
DClE
DelE
DClE
oeLE
DCLE
DCLE
DelE

001
0<;l9
010
011
012
Oll
014
015
Olb
017
OlB
019
020
021
022
023
024
025
026
027
02B
029
030
031
032
033
034
035
036

LABEL
T
ATABlE

NEXTSEQ

NEXTlABEl

ADR40A
NTSHN

COMMENTS

CHANNEL LOW PR I ORIlY TRAP STATUS RO UTINES

H.E.BERKEBIlE

ADDR=OlBO
028
027

ADR40
ADR41

02b

NOTle

024

PRGERD

024
DCLB 017

PRGERD
RDHWl

OCLB lOb
OCLB OBO
OCLR 117
030

PRGERC
NOTIC
INFCHK
AOR40B

032
oelD 011
034
058

AOR40A
OPBRCH
NTSTIN
CHEST A

PRGERO
Nonc
AOR41
AOR40
AENO
AOR40B

STATEMENT

-- lOW-PRIORITY TRAP-ADDRESS AS DESCRIBED ABOVE.

lINK G MMSK2.: 1
DO.: OO$KO 1
BR IF GS B no.:o
BR IF Gl B1T5:l
ROH V OA, BA
RDH U V+2
Z=UODKOB
BR If llNZ
Ul=U 1
BR IF ZNZ
ROH V V+O
Z=V 1*-K08
8R IF llNZ
BR
RDH V OA, BA
BR
BR
BR
BR
BR If GT BU2=O
BR
BR IF GT BlT3=0
BR
SET GA K=04
00=0$K40
OO=OO$KO 1

TRAP WORD-SET PRIORTY
SET SOURCE Of ENTRY INDICATOR
BR IF COA REQ=O
BR IF ICC DETEe TED
READ OUT NEXT CCW AOR
READ cew HWD 1
TE ST COMMAND fOR TIC
BR IF NOT A TIC
BR IF TIC ADOR TOO BIG
RD OUT NEW CCW AODR
CHECK FOR DOUBLE WORD BOUNDARY
READ OUT NEXT ecw ADR
INCR CCW ADR IN DeLB GBR TO DClR
BR TO OClB &. CONTINUE CCW FETCH
BR TO INTfCE CTRl CHECK RTNE
BR IF NO SRV-IN
BR IF STA-IN=O
STATUS IS CHANNEL END TYPE
SET SEl OUT
SET 00
TO 4t

ADLJI{

wORD

lA 3E
2 BIS
UBA
l2BC
12BE

nBS
C089
262B
C089
E638
0090
2BOO
0244
A254
5f7F
fC9D
2007
4FOF
2BC2

i

ileo

12C2
12C4
129C
1288
128A
128e
128E
1290
1192
1294
1.296
1298
lZ9A
129E
12AO
1.2A2
12A4
I2Ab
llAB
l2AA
12AC
12AE
1280
1282
12B4
12B6
1282
1284
1286

OeLE
OCLE
DeLE
DCLE
DeLE
DelE
DeLE
DeLE
DeLE
OGlE
DeLE

EblO

fD9B
262B
FD92
A7BO
FCA4
ODC2
34S3
5439
C52A
1565
5F4f
fC9D
E503
,0583
Fee3
3345
A782
0313
e4B6
62f
n1E
5C3f

U5A

7222

22,C
22 5t
2160

5D2F
5E3F

2.2.6l
2264

2206
12 68
22M
220C

2610
24C7
25E5
3573

It 5A
725A

5350

noE

231B

2210

33C.5

22.12

5622
5729
125A
577f

2274
2276
2278
l27A
227C
22.1E

2280
2282

2264
2290
2292

2294

1(:50
3573
5e50
E690
2BOO
A294

24f6
2B80
2501

NO.

039

041
042
043
044
045
046
041
048
049
050
051
052

BUR ST
ADRXYl

DClB
PRGECC

HI PR TP
WRAP

109

107
108
109

WRPPRT

PROTCH
WRPPRT

11 a
III

DClR 110
DClR
DClR
DClR
LlClK
DClR
DClR
DClR
DelR
DClR
DClo{
DClR
DClR
UClR
DCLR
DClR
OClR
DC lR
DClR
DClR
DClR
DCll{
DC lR
DC LR
DCLR
DC LR
DClR
DClR
DClR

LABE l

117
118
119
ill
L25
126

IPUCC
I NfCHK

OClD 018
DCll 021

DECCNT
I PlS T P

ADRI02

127
L28
129

130

131
132

133
134
13 ')
137
l41
142

143
144
145
146
150

151
152
i 53

AUR100

154
L55

ADRIOl

153

ADRIOO

155

ADRIOl

STATEMENT
BR
** TRY fOR INT.
GO=O$K20
HO=GO
Gl=G1*-KCO
G1=G1*-K01
8R IF GS 131TO=O
SET GA K=OO
BR
RST GB K=Ol
GO=GO$K01
VO=O$KOO
STH 0 OA,88
SET GB K=04
BR I f MMSKO= I
BR I f MMSK2= 1
SET GA K=OO

Bt<.
RTN G MMSKO= 0
GO=GO$K20
BR
GO=GO$K10
Gl= Gl*-KCO
Gl=G1*-K03
BR
BR
VO=MMSK
SET MMSK K=71
Vl=GS
STHV DA,8C
VO=GT
V1=GO
SET GA K=Ol
GO=O
Gl=0$K80
Gl=GUKOl
STH 0 G-2
STH V G-2
ROB V 1 G+O
V1=Vl+KOl
V 1=V l$KCO
RDH 0 DA,8C
VO=01
STH V G-2
Dl=BA
STH 0 G
Gl=GLSK07
ROH 0 G
BR IF MMSK 2= 0
SET GA K=OO
BR
SET MODE K=3f
SET GA K=08
Gl=O

ClOAO=*E60,
COMMENTS

EC LE VEl=128211

fOR 1403,2540.------GO TO SFT STP
SET PROGRAM CHECK
MOVE CHANNEL STATUS
RSl CDA &. CC flAGS
RST
COOED OP BITS
BR IF COA flAG OFF
DROP All TAGS our
8R TO DCLB TO RTN FROM TRAP
RESET SUPR-O
SET STATUS RECEIVED INDICATOR
SET 00 UNIT STATUS
STORE UN IT IDENT HWO IN 113
SET [NT BUFFER LATCH
BR IF CHNL HI PRIORI TY TRAP
BR IF CHNl LO TRP PRIORITY
RST TAGS OUT
BR TO SET CMD-O &.TMOUT ON OPI OW
RTN FROM TRAP
SET PROGRAM CHECK-MEMORY WRAP
SET PROTECTION CHEC K
RST COA £. CC FLAGS
RST COOED COMMAND BITS
SR TO IPL STOP WORD
SA VE MM SK REG
SET PRIORITY HOLD LATCH
SA VE GS REG
TEMP STORE MMSK/GS
SAVE GT EXTERNAL CONS
SA VE GO EXTERNAL CONS
SET STP TRAP INHIBIT LATCH

G= CC87
STORE UNIT IOENT HWD IN MS 0086
STORE GT/GO IN MS0084
READ OUT E:RROR COUNT I NTO VI
INCREMENT ERROR COUNT
SET
'lGOUT WAS CHNl ICC' BIT
READ OUT MMSK/GS
MOVE GS TO VO REG
STORE GS/ERROR COUNT IN MS0082
MOVE BA TO 01 REG
STORE MM5K/BA IN MS0080
BUILD 0087 ADDRESS
RESTORE UNIT IDENT HWO IN 0
BR If ~WT IN TRAP
R S T CHNL TAGS

SET INL SELECT LATCH
ZERO OUT G 1

PAGE

177

AUDit

wOMD

Z2'i6
22'1S
Z29A

021t:
2323
0002

U9C

08F

n9E
!.ZAO

2680
C98d
2B84
22C7
C961:1
2216
F4A6
2010
38S0
2218
C988
F4BO
0010

Z2A2

!.ZA4
nA6
22AI:I
22AA
22AC
22AE
22BO
22BZ
US.
U~6

22B8
12BA

C61:17

22C~

E6f:7
F207
7222
2800
2400
5E22
1000

aCd

~CC8

nl:l6

228A

5349
3613
1000

22SC

BCA6

01BO
0382
iJ3S4
0366

2343
5612
3613
A29C

22BC

22BE

aco
2lC2

22C4

nss

UeLK 002
OUR 004
DClR OOS
DClR 010
DCLI{ 013
OClR 031
uClR 035
UClR 03S
uClR 041
DCLR 043
DCLR 048
DClt{ 057
DClR 106
UClR 108
DClK 109

SEQUENCE NO.

UClB
DClR
DCLA
DClR
DClR
DCLR
OCLR
BRRP
OCLR
DClR
DClH
DClR
BWRP
8WRP
OCLI(

DCll{
OClR
DClK
DClR
OClR
DClM
OCll{
(JCll<.
DClR
DClK
DClR
DClR
DClR
DClR
DClR
DClR
DClR
OClR
OClR
DClR
DClR
DClR
DCll{
DClR
DClR
DCli!.
OClk
DClR
DeLR
DClR
DClR
DClR
DClR
DClR
DClR

101

LABEL

NEX rShl

NEXTlA8El

116

IPllCC

174

OPIDWN

174

(JPIDWN

164

ADROOI

174
169

OPIDWN
WTOPI2

187
187
lS7

CHAING
CHAING
CHAING

010

AOROOJ

RST MMSK K=71
Vl..:OSK02
RST GB K= 10
BR If SA B1T4=1
SET GA K=08
SR If GT BlT4=O
SET GA K=28
VO=O
BR If GT BlT4=0
VO-=VO .. KO 1
SR If AC=O
SET G8 K=Ol
SET GA K=88
VO=VO+KOI
BR IF GT BIT4=O
BR If AC=O
Rsr GB K=Ol
BR IF MMSKO= 1
BR IF MMSK2= 1
BR IF- DO BIr7=l
STH V oA, SC
SET GA K=OO
SET MODE K=OO
RDH H DA,SC
RST SO
BR

ADRXYZ

00= DaSKO 1
RSf GB K=80
8R

l?o
157
158

159
160
161
162
163
164
165
166
167
168
169
170

IPllCK

ADROOI

ftTOPI2

171

172
174
175
179
11:10
181
182
lS3
184
185
187
188
189
190

GPIDWN

197
198
199
200

GO=V 1

CHAING
043

CCCXXX

196

*

DeLB 104

0('0

BIORP 088
DClR 045
DClR 054

DClR 035

CLOAD=*E60. EC lEVEl=128211
COMMENTS
SET INTERFACE CONTROL CHECK
RESET PARITY ERROR LATCH
SR If IPl
SET INL SELECT LATCH
SR IF OP-IN IS ALREADY DOWN
SET ADI~-OUT AND INl SEl LTCHES
INITIALIZE TIMEOUT COUNTER
8R IF OP-IN DOWN
INCREMENT TMOUT COUNTER
6R If NO TIMEOUT
SET SUPR-OUT
DROP OP-OUT
INCR~MENT TIMEOUT COUNTER
BR If OP-IN DOWN
SR IF NO TIMEOUT
R ST SUPR-OUT
BR IF CHNL HI TRP PRIORITY
BR IF CHNL La TRP PRIORITY
6R If ENTRY WAS VIA CHAINING
TEMP STORE UNIT & CHNl STATUS
DROP All TAGS OUT
SET CPU MODE & ZUNE
READ OUT UNIT/CHNl STATUS
RST RETURN flAG IF ON
BR TO STORE CSW (STATUS ONLY)
MOVE CHNl STATUS
SET SOURCE OF ENTRY WAS CHAIN
RESET COA REQ lTCH

SET CHNl CONTROL CHECK
RD OUT UNIT lDENT HWO
RDH 0 DA,8A
SET SOURCE OF ENTRY WAS CHAI N
DO=DOSKOI
BR
159 IPlICK
**********
*********
END OF DClR (CHANNel ERROR)
**********************************
* CROSS REfERENCE FOR CSECT DCLR *
**********************************
Vl=OSK04

002
068
1E5
029
033
Otl1
013
1"0
029
053
019
028
le7

STATEMENT

DeLR 0.3b

PAGE 178

ClOAO=*E60. EC lEVEl=128211

**********************************

*

llCLR
LJCLR
OCLO{
uCl!?
JClK

Ho
111

153
155
159
iJCL~. 164
I)C LR 16'1
DCLI<. 114

OClR 181
OCLR 196

DClR
DCLC
DCLR
DClR
DUR
DClK
DCLR
l)CLR
DClR
BMCK

l'.lg

038
150
152

DelC 112

DCLC 114

DCLR 164
DClR 175

DClR 170
OCLR 119

1<;9

It6
111
Itl
114

031

CROSS REFERENCE FOR CSECT DClR

*

**********************************

DClE 021

DClE 045

PAGE 119

CLOAD=*EbO, EC LEVEl=128211

DCll
L~ANNEL

TEST

DESCRIPTIVE TEXT

110 AND 1/0 INTERRUPT
BYTE CHANNEL

BURST CHANNEL ENTRY POINTS
TESTlO

fROM
-DClA1/0 INSTRUCTIONS ROUTINE WHEN A
TEST 110 INSTRUCTION IS DECODED.

INTRIX -- fROM
-DCLCTO RESTORE
Of THE H-REGISTER BEfORE
RETURNS TO I-CYCLES.
INH:NT

AQDR

WORD

2 F02
2F04
H06

C6(9
2007
A344

2FOO
2F08
2FOA
2FOC
2FOE
2FIO
2H2
2F 14
('Fib
2Fl8
<'HA
lC
hiE
?f20
2F2Z
21'-24
2F26
2f' 213
2f2A
2F 2C
2F 2E
2F 30
('f- 32
2fH
2F.36
2F38

AC74
24f6
EC80
FOOO
2400
5202

"r-

b~1l

C480
24F 6
C llC
3,<85

70U
~"19
~2()'1

4452
7432
CUC4
70E2
OD40
021E
2400
4t~2

2B til
52AC
52bf
5668

PAGE 180

FROM

-8Swl-

Dell OUl
DCLl 003
DClI 004
DCLl 005
DC Ll 006
UC L J 007
Dell 008
DCLl 009
Dell 010
DCtT Oll
DCl r~012
Dell 013
DCL T 014
DCLl 015
DCll 016
lIC LT 017
DCll 01H
DCLJ 019
DC L J 020
uC l T
DCl T 022
DCLl 023
DCLT 024
DCLI 02~
JCLJ 02b
DCLT Orl
DCLl 028
OCll 029
GCLT 031
DCLl 032
OCLr 033
DCll 034

WHEN AN I/O INTERRUPT

LABEL

SEQUENCE NO.

THE PREVIOUS CONTENTS
THE MICKoPROGRAM

T
TESTIO

•*

AURO
ACH '.IE

ADt{l
SKIP

on

REcDUC
SAVE 1

NEXTSEQ

ENTRYI

ENTRY POINTS
FROM -DClAI/O INSTRUCTIONS ROUTINE WHEN
AN ACTIVE TEST 110 IS DECODED.

ENTRY2 -- FROM -DClADECODED.

WHEN AN INACTIVE TEST

IS DETECTED.

NEXT LABEl

SfATEMEi~T

COMMENTS

H.E.BERKEBILE
CHAf\NH TEST 1/0 AND 110 INTERRUP T
009
BR IF AC Tl '.IE BIT ON
ACT I VE
BR If 00 BITO=1
SET UO FOR TE ST I/O
ADRO
BR
GO SET UP MODE A NO ZONE
DClH 006
RETREIVE STA TUS fROM
UNIT
8R TO CC2 SET
BR
eC2B
eeOM 161
SET MODE K=3F
SET CHANNEL MODE-lONE
ADRO
BR IF GS2=0
BR I F f IL E IS AC TI '.IE-NOT CHANNEL
008
008
BR IF GO Bl T7::0
BR IF NO STATUS RECEIVED
ADRO
SW ITCH BACK TO CPU MODE & ZONE
SET MODE K=OO
READ INT BUFFER
RDH V OA,88
ADDRESS MATCH
Vl=VlaU1
BR I f lNl
BR IF NO MA TCH
008
AORO
SET BACK TO CHNl r>10DE & ZONE
SET MODE K=3F
BR I f G14=O
BR If NO PC I
019
SKIP
GO=GO$K80
SET PCI
SAVE COUNT
STH U DA,BE
U 1 :GO
MOVE STATUS
UO=VO
UN IT STA rus
READ ZERO CONSTANT INTO G
RDH G DC,9A
ZERO OUT UN IT ADORE SS
STH G CA.,8E
RS T BUR Sf LA TeH
RSf GB K= 20
STORE STATUS
5.1 H U DA, BC
R Sf IN T
RST GB K=04
RST MMSK K=71
ALLOW TRAP S
SET MODE K=OO
READ ZERO CON STANT INTO 0
KDH 0 DC.9A
Tl=O$K88
GE l
I SK S T PO AS, T +2
PROTECT
DO=ST PO
KEY
00-= DO H

uo=o

*.

110 IS

ADDR

WORD

SEQUENCE NO.

2F3A
2F3C
2f3E
2F40
2F42
2F44
2F46
if48
2f4A
2F4C

5212
50F2
5EE2
Ifl3
A024
B354
5A22
2A13
2400

DCLI 036
Dell 037
DCLI 038
DelT 039
DCl T 040
DCLT 041
DCl T 042
DC LT 043
Del T 044
Dell 045
DCLI 046
DClT 047
DClI 048
DCLT 049
DClT 050
DCL T 051
DClT 052
DCl T 053
DClT 054
DClI 055
DCLl 056
DCLl 057
DCl r 058
DCLT 059
DCl T 060
OCl T 061
DCLl 062
DClT 063
Del I 064
DelT 065
DCLl 066
DClT 067
DCll 068
DCLl 06<.1
Dell 070
DCl T 011
DClI 012
DCl I 073
Dell 014
DC II 075
DCLT 016
DCLl 071
DCll 078
DCl T 019

A~3E

3-000
2480
5432
e407
ES8A
A5FC

22fA
22fC
UFE
2300

2102
2304

0<.185
e985
5A02
2A15
7A22
2A13
04,<6
2AG1
2413
24f6
221E
f056
1413
Af18
1583
feDC
3483
0040
2470
74A2
70F2
2400
5BA2
3B85
7AE2
AF2C

2306
2308

230A
230C
230E
2310
2312
2314
2316
2318
2314

231C
21lE
2320
2J56

Ll58
235A
235C
235E
2360

2362
iJ64
2366

d68
236A
236C

Dell
OCl T
OCll
DOLT
OCl T
Del T

003
008

009
017
019
027

DCLA
DCll
DCll
Dell
DCll
DCll

110
010
{)C3
061
017
019

LABEL

INTRTX

NEXTSEQ

eeOM 121
ceOM 186

INTRTN
DCHN 015

*INTENT
054
056
FINT 002

FINT

*4C rON

052
052

I NACHl

OClH 007

068
017

AC TPCI
071

NOCDI

DClI 011

021

oelT 015

NEXTlABEL

STATEMENT

CLOAD=*E60, EC lEVEL=128211
COMMENTS

RDH V DA,BA
CCW ADDRESS
RDH U OA, BE
COUNT
RDH H DA, BC
STATUS
RST INT. 8IT
Hl=H1*-KO 1
BAl
STORE CSW SO=lFOR INT.RTN
eSWADR
RESTORE CPU HI
RESTRH
BAl
RDH T DA, BC
UNIT ADDRESS FOR INT.
FIX CHANNEL ADDRESS
TO=OSKOI
SET MODE K=OO
GO TAKE INTERRUPT
BR
USEeOM
*************.***************************
SET SO
SET THE RETURN FLAG
SET MODE K=08
fILE MODE
RDH G OA,8E
ACTON
BR IF GO BITO= 1
BR If fF 16=0
INACHl
I NTRPT
BR
*****************************************
fINT
BR If fFI5=1
F {NT
BR IF PCI LATCH IS ON
BR IF ff14=1
RDH T DA,8B
RD UNIT 1DENT HWO fROM IB
SET TO TO TEST 110 INDICATOR
TO=OSKI0
TEMP STORE UNIT ADDRESS
STHT OA,8C
SET TO TO CHNL ADDRESS
TO=OSKO 1
BR IF NOT AC TI liE
AORO A
BR IF GO BITO=O
TO=O
SET GO FOR INTERRUPT
GO=OSKOI
SET eHNL MODE & lONE
SET MODE K=3F
SET PRIORITY HOLD
SET MMSK K=11
BR IF NOT FROM INT
ACTPCI
BR If GO BIT7=O
RESET GO Bl T7
GO=GO*-KO 1
BR TO e SW STORE
ADRl
BR
I URN Off PC I IN OPFlG
G1=G1*-K08
8R If NO PARITY ERROR
BR IF GS3=0
NOCOI
5 ET DATA CHECK
GO=GOSK08
RST [NT. LATCH
RSf GB K=04
SET CHANNEL lONE-CPU MODE
5 ET MODE K=O 7
STH G DA,AC
STORE STATUS
STORE COUNT
5TH U OA,8E
SET MODE K=OO
RDBTIDA,AC
GET CHAN SfA TUS
SE T PC I
Tl=TUKBO
STORE STATUS WITH PCl
STH T OA.Be
BR
S AVE1
**********************************
* CROSS REFERENCE FOR CSECT DClT *
**********************************

PAGE 181

ClOAO=*E60. EC lEVEl:128211

**********************************

*
1)(, LT

CROSS REFERENCE FOR CSECT DClI

*

**********************************

041

DelC 058

,JCl T 047

SSwI 093

del T
oeLT
dCLT
del T

Dell 054
OeLT 050

052
054
056
068
CCLT 071

Dell

051

Dell 065
Dell 0l:9

DCl T 055

PAGE 182

CLOAO=*E60, EC LEVEl=12821l

PAGE 183

OCOM -- COMMON 1/0 ROtTINES
IF THE I.B. IS AVAILABLE, AN INTERRUPT IS
INITIATED AS FOllOWS.
1. SET CHANNEL 0 INTERRUPT LATCH, S1.
2. SET I.B. BIT IN CHANNEl-STATUS REG.
~.
STORE UCW ADDRESS IN INTERRUPT BUFFER.
4. STORE pel-ALONE BIT IN I.B. IF THIS BIT WAS
TURNED ON AT -PCIBR- ENTRY.
AFTER THE INTERRUPT"IS INITIATED, THE MICROPROGRAM RETURNS TO THE LI NK ADORE SSe

THESE COMMON ROUTINES ARE EMPLOYED BY THE 110 ROUTINES fOR
THE NATIVE DEVICES -- PRINTER, READER-PUNCH, AND PR-KB.
ENTRIES
PCIBR

USED TO TRY fOR A PROGRA~CONTROLLED INTERRUPT.
If THE PCI FLAG IS OfF, THE MICROPROGRAM RETURNS
TO THE LINK ADDRESS. If THE PCI fLAG IS ON.
THE PCI-ALONE INDICATOR BlT IS SET FOR THE
INTERRUPT BUffER. fROM TH.(S POINT, PCI IS
HANDLED THE SAME AS THE NORMAL INTERRUPT.

CHANOK
REOSTR

INTRPT -- NORMAL INTERRUPT ENTRY. I.E •• WHEN CHANNEL-END
AND/OR DEVICE-END STATUS IS READY. If THE
INTERRUPT IN I.B. BIT IS ON. THE DEVICE ALREADY
HAS CONTROL OF THE I.B. OTHERwISE, THE ROUTINE
MUST TEST TO SEE IF THE I.B. IS AVAILABLE. IF
THE I.B. IS Nor AVAILABLE, THE INTERRUPT IS
STACKED AND ANOTHER REQUEST WILL OCCUM WHEN THE
I.B. IS AVAILABLE.
ADDR

3106
3108
nOA
HOC
HOE
3110
3112
3114

3116
3118
31lA
3llC
HIE
H2O
3126
3128
3I2A
3122
3124

WORD

C140
2683
F011
221E
C7B5
2010
021E
3413
7602
1683
F727
E123
0008
128E
H2O
OB20
l28E
Of20
12aE

SEQUENCE NO.
DCeM
DCCM
DCOM
DCOM
DCOM
DCOM
OCOM
OeOM
DCOM
OCOM
OCOM
OCOM
DCOM
DCOM
DCOM
OCOM
OCOM
DCOM
OCOM
OCOM
DCOM
OCOM
DCOM
OCOM

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024

LABEL
T

NEXTSEQ

COMMENTS

THIS ROUTINE TRIES TO PUT THE NATIVE DEVICE INTO THE INTERRUPT
BUFFER fOR PCI OR STATUS.

PCIBR

035

RETURN

I NTRPT

014

ITSME

029

I BT AKN

RSTREQ

020
023

ROTWI
PCHI

ROllil

025

TlU

I TSME

PCHl

ST4TEMENT

COMMON 110 ROUTINES

*
*

*
*

NEXTLABEL

lSED TO UPDATE THE UCW. CHANNEL STATUS,
FLAGSIOP, UNIT STATUS, AND COUNT ARE STORED
IN THE UCW. If COMMAND CHAINING, AND DEVICEEND IS SET, ENTRY IS TO -CHANOK- TO CLEAR
THE UNIT STATUS REGISTER.

BR IF G14=O
OO=O$K08
BR IF G07=l
SET MMSK K= 71
BR IF BA BITO=1
SET S1
RST MMSK K=11
GO=GO$KOl
STH 0 DA,BA
00=OO*-K08
BR IF D1 BIT 3= 1
BR IF 01 B1l2:1
RST PRA K=40
RTN
BR IF 01 BH2=1
RST R K=02
RTN
RST P K=02
RTN

BR If NO PCI
SET PC I ALONE
eR IF SAME IN I NT BUFFER
BLOCK TRAPS
BR IF IB FULL
TAKE IT
ALLOW TRAPS
SET IB BIT
S TORE ADDRESS IN IB
R S T REQ UE ST. BR If RDR OR TW
BR If PCH
RST PTR REQUEST
BM IF TW
R ST MOR REQUEST
RS T PCH REQUE ST

AoOR

WORD

SE QUt:NCE NO.

H2C
312E
3UO
3132
3134
3L36
3138
H3A
313e
313E
3l't0
3146
3148
314A
3142
3144
3100
3102
3104

Of24
C832
lC83
128E
021E
1683
0541
f141

E743
2088
128E
E70l
2B30
128E
2F30
128E
C804
2F04
128E

2EOl
1468
lE68
7060
e513
2ACl
128E

2566
2568
256A
256e
256E
2510
2572

DCOM
oCOM
DCOM
DCOM
DCOM
DeOM
OCOM
DeOM
oeOM
DCOM
DCOM
DCOM
DeOM
OCOM
DC OM
DeOM
DCOM
OCOM
DeOM
DC OM
oeOM
oeOM
oeOM
DeOM
DeOM
oeOM
OCOM
oeOM
DeOM
oemt

025
026
027
028
029
030

LABel

NEXTSEQ

TId

028

TY REXT

TYREXl
IBTAKN

031

032
033
034
035
036
037
038
039
040
041
042
043
044
04'>
046
047
048
049
050
051
052
053
054

NEXTlASEL

RETURN
ROTW2

035
036
039

RETURN
RDTW2
PCH2

041

TW2

PCH2
rW2

043

TWREXT·

TWREXT

••
•

RST T A K=22
BR If P04=O
PO=PO.-K08
RTN
RST MMSK K=71
DO=DO·-K08
BR If Gil= 1
BR IF 01 BIT 3= 1
BR IF 01 BIT 2=1
SET PRA K=48
RTN
BR IF 01 BIT2=l
SET R K=03
RTN
SET P K=03
RTN
BR IF P04=0
SET T A K=20
RTN

RST SHARE MICRO FORCE
RST END STAT
SCMEONE EL SE IN IB RST MMSK
RST PC I AlONE
DONT QUE PCI CMNO CHAIN
SET QUE AND REQ •• R IF RDR OR TW
BR IF PCH
SET PTR REQUEST AND QUE
BR IF TW
SET ROR REQUEST AND QUE
SET PCH REQUEST AND QUE
SET 1052 ,ueRO FORCE

THIS ROUTINE STORES THE CHNl STATlS, FLAGS. UNIT STATUS AND
THE COUNT OF THE NATIVE DEVICE IN TO ITS LC W.

•eHANOK
REDSTR
054

RErUN

ClOAO=.E60, EC lEVEl=1282 11
COMMENTS

ST ATEMENT

RETUN

HO=O
STH G
STH H
STH U
BR IF
TO=O
RTN

AS, 0+2
AS, 0+2
AS,O+O
G1 BITO=1

STORE COUNT
8R IF CDA
RST TO

*••••*** •••••••••••••• *•••••••••••
•••••••*•••••••••••••••••••••*••••

• CROSS REfERENCE FOR eSECT oeOM •
OCOM
DCOM
OCOI4
DeOM
DCOM
DeOM

DCOM
DeOM
DeOM
DeOM
DeOM
DeOM
DCOM
DeOM

oeOM

DeOM
DCOM

OOb

008
014
016
020
023
025
028
G29
035
036
039
041
043
048
049
054

OPJR
DPTQ
DeOM
ERRQ
DCOM
DC OM
DeOM
DC OM
DeOM
DeOM
DeOM
DeOM
DeOM
DCOM
OPTQ
DPlQ
DeOM

061
019
OC8
036
016
017
020
026
010
006
032
033
036
041
036
020
052

YPE 040
OYPE 012

l)

OYPE 085

ERRQ 050

DeOM 031

DYPE 153
OPTS 072

DYPE 221

ERRQ 046

PAGE lB.4

AOOR

2F84
2F86
2f88
2f8A
2f8C
2f78
2f1A
2flC
2flE
2f80
2F82

2F8E
2f90
2F92
2F94
2F96
2F98
2f9A
2F9C
2F9E
2FAO
2fA2
2FA4
2FA6
2FA8
2FAA
2fAC
2FAE
2fBO
2FB2
2FB4
2FS6

lFB8
2FBA
2fBC
2fBE
2FCO
2FC2
2fe4

j2BC
32BE

WORD

52A2
6003
0016
2fF5
AfBO
2ES5
14E2
7EF2
2flO
EBOF
8612

2013
72A2
2427
25A3
4F48
5Fe9
4826
69fB
F5A2
281B
5B38
5198
2C IB
oB 11
C484
OCfO
C4A2
490f
27fF
7060
52A2

2C 75
21F7
71C8
E83C
2105
11CO
B2e6

5038
3E43

SEQUENCE NO.
OMCS
DMCS
OMCS
OMes
OMes
DMCS
OMes
OMCS
OMes
OMC S
OMes
OMe S
OMes
DMCS
OMCS
OMes
OMes
OMes
OMes
DMes
OMes
OMCS
OMes
OMes
DMes
OMes
OMCS
OMCS
OMCS
OMe S
OMCS
DMeS
OMes
OMCS
OMCS
OMCS
DMes
OMes
OMes
OMCS
OMC S
OMes
DMCS
OMCS
OMCS
DMCS
OMC S
OMCS
OMCS
OMCS
DMes
OMe S
DMes

001
002
003
004
005
006
001
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
021
028
029
030
031
032
033
034
035
036
037
038
039
040
041
043
041
048
049
050
051
052
053
054
055
056
057

LABEL
T
*

NEXTSEQ

NEXT LABel

MCS lOAO ROUTINE
NOlLEN
022

TRYlEN

035

SETHOW

lOAOOK
CMOREJ

HO=0$K80
ST H GOA, Be
STH H DA, BE
SET PRB K=01
BR IF HI B1T6=1
BR

HeSRTN

018
OPTC 024

*
*
*lOAOOK

RESTORE DATA ADDRESS
UPDATE peCL CONSTANT
BR IF CONSTANT NOT lENGTH 240
SET CHAIN LENGTH TO 240
GO SET peel fOR LENGTH 240
SET NO fOLDING SWITCH
SAVE GREG
SAVE H REG
SET DIAGNOSTIC MODE 4
BR I f GA TE LOAD WAS ON
GATE LOAD WAS NOT ON REJ MCS eMO
OETERM I NE

TRYl..EN

028

COMPAR

003

NallEN

028

COMPAR

eOMPAR

SETHDW

**
*

Pl"'OSKOl
ST H V DA,AC
GO=0$K22
Gl=O$KOA
ROB HI eS,G+l
PO:Hl
I=V
BC: II+H1
BR I f S3=0
10= 10 .KO 1
ROB T1 V+1
ROB Ul 1+1
PO=PO.KOI
T I=T lau 1
BR IF INZ
I=POaKfO
BR IF INZ
PceL=Pl
Dl=Ol+Kff
S T BPI AS, 0
ROH V CA, At

04B

CLEAR

061

ST ZERO

PO=0$K10
Dl=O$KfF
ST B 01 AS, P + 1
BR If PO BIT6=O
Ul=OSKOO
sr B Ul AS,P
BR

LENGTH

ROVJI NE

MCS

TABLE

ROUTI NE

BU lLO Me S XLA TE TABle ADORE SS
BUILD CLEAR CHARACTER OF FF
CL EAR TRANSLA TE
TABLE TO fF
BUILD 00 CHARACTER
STORE 00 IN POS 00 XLATE TABLE
GO STORE 00 IN POS 40 XUTE TBl
LOAD

ROB PI V+1
HO=HO$K04

eHA IN

BU ILO INITIAL peeL CONSTANT
SAVE INITIAL DATA ADORESS
BU IlO ADORE SS OF THE
TABLE OF CHAIN LENGTHS
READ CHAIN LENGTH fROM TABLE
SET COUNTER TO CHAIN LENGTH
BUILD ADDRESS
EQUAL TO
DATA ADORE SS
PLUS CHAIN LENGTH
READ DATA BYTE 1
READ DATA BYTE 2
INCREMENT COUNTER
COMPARE DATA BYTES
BRANCH IF DATA BYTES NOT EQUAL
TEST FOR LAST COMPARE
GO BACK IF NOT LAST COMPARE
seT HOWR LATCH TO CHAIN LENGTH
SE TOTO Pcel SAVE ADDRESS OF e7
STORE HOWR BYTE fOR SYSTEM RESET
RESTORE INITIAL DATA ADDRESS
CLEAR

CLEAR

*
*
*ROLODP

KREPPEl
RDH II DA,Ae
P1=P1+P1
BR If P 1 BIT 1=0
Hl=O$KfO
BR

*MCSNOF

CLOAO=*EoO, EC lEIIEl=128211
COMMENTS

ST ATEMENT

MCS

TABLE

ROUTINE

READ CHAIN IMAGE BYTE
TURN ON NEW CHARACTER SWI TCH

PAGE 185

AllOR

WORO

.12eO
32(2
';2C4
32(6
~2e 8
12(A

211B
7leo
CE4D
2040
2640
f4C2
CBE?
eFo7
DA6e

32((

i2(E

UDO

32U2
32D4
3206
32D8
":l2DA
';20e
320E
32EO
32E2
HE4

C167
4948
6901
e4D6
Fl63
6446
4D40
B2C2

321:6
32E8
HEA

tBFl
C4Be

SEQUENCE NO.

lE43
2515

51B9

12f(

541::2

,2tE

5H2

32fO
32F 2
32F4

4642
2105
2E43

32f6

802E
1028

OMCS
OMes
OMes
OMCS
OMCS
OMes
OMCS
OMes
OMes
OMes
OMCS

003
009
010
018
022

028
035
048
056
059

061

OMCS
OPTC
OPTC
OMes
OMCS
OMCS
DMCS
OMCS
OMCS
OMCS
DMCS

OMCS
OMes
OMC S
DMes
OMCS
OMCS
OMC S
OMC S
OMes
DMCS
OMes
OMes
OMes
DMC S
OMCS
OMCS
OMCS
DMC S
OMCS
OMCS
OMCS
OMCS
DMCS
OMCS
OMes
OMes
OMCS
OMes
OMes
UMC S
OMes
OMCS
OMes
OMCS
OMCS
O"l(S
OMes
OMCS
OMC S

032
060
()41
013
005
026
0C7
049
083
Ot3
052

058
059
060
061
062
063
064
065
066
067
068
()69
070
011
072
073
C14
075
076
077
078
079
080
081

082
083
084
085
086
C87
088
089
090

LABEL

NEXTSEQ

srLOOP
064

NOFOlD

059
081
081

snoop

SHERO
NOFOLO

081

CKlAsr
CKLAsr
CKLAsr

*
*
*
RDLIST

Ul=UlHOl
ST B Ul AS,P
BR IF HO BUO:l
Pl=Pl+K40
OO=DO+K40
BR If DYN BIT3=O
BR If PRO BIT4=l
BR IF HI BIT 0= 1
BR IF HO BlT5=O

081

CKLAsr

072
018

ROLIST
ADOROK

059

STLOOP

HO=HO*-K04
Gl=OSKlO
8R IF Gl BIT1:1
ROB 11 CS,G+!
11= IlDPl
BR If ZNZ
8 R If G1 BIT 7= 1
G=G-2
ROB PI CS,G
BR

RDLOOP

Tl=Ul
T l=T loHI
BR IF INI

AOOROK

*CKUST
050

*

OPTR 054

*
ArABLE
AEND

DMes 034

OMes 079

INCREMENT PRINT POSITION COUNTER
STORE PRINT POS NUMBER IN TABLE
BR AROUND FOLD ROUTINE If ON
Pl~S 40 HEX TO ADDRESS fOR FOLD
ADD 40 TO NUMBER Of fOLDS CTR
STAY IN LOOP 4 TIMES
BRANCH If NOT DUAlING
BR AROUND ~UAL RTN If 240 CHAR
BR If NEW CHARAC TER SWI reH OFf
ROUTINE

RESET NEW CHARACTER SWITCH
SET REG TO OUALED PAIR 1I ST
BR WHEN REG POINTS PAST LIST
GET ONE Of THE DUALEO CHARACTERS
COMPARE TO CHAIN I MAGE CHARACTER
BR IF NOT EQUAL
BR If MATCH WAS fiRST Of PAIR
SET AODR TO CHAR TO BE OUALED
GET TABLE ADOR OF DUAlEO CHAR
GO STORE PRINT POSITION NUM8ER
IN DUAL CHARACTER POSITION
TEST FOR
LAS' CHARAC fER
BRANCH If NOT LAsr CHARACTER
END HOU SEK EEP ING

*
*

C

ClOAD=*E60, EC lEVEt=128211
COMMENTS

STATEMENT

OUALING

091

092
093
094
095
096

NEXT LABEL

AOOR=220A

CHEND

ROH G CA, BC
RDH H DA,BE
ROH 0 DC,98
Ul=OSKOO
HO=OSK04
BR

RESTORE GREG
RE STORE H REG
0=COC8---1403 UCW ADDRESS
ZERO COUNT
SET DEVICE END
GO TO CHANNEL END ROUTINE

XCTL'102B303C50784C506C401C70187E'

**********************************
* CROSS REfERENCE FOR eSECT OMCS *
**********************************

PAGE 186

ClOAO=*E60. EC lEVEL=128211

OMCS 064

OMes 012
OMes 018
OMes 081

**********************************
* CROSS REfERENCE fOR (SECr DMCS *
**********************************

DMes 060
OMes 075
OMes 076
OMCS 064

DMCS 065

OMes 066

OMes 072

PAGE 187

CLOAD-*E60, EC LEVEL=128211

DPTC

DESCRIPTIVE

PAG~

188

TEXT

ENTRY POINTS
NOOP

ENfRY IS HADE TO THIS LABEL TO SET CHANNEL
END AND DEVICE END FOR ANY OF THE NO-OP
COMMANDS ISSUED FOR THE PRINTER OR REAOERPUNCH.

CMDREJ -

COMHI X -

AlJUR

WOKlJ

060e
OoOE
0610

F213
3F23
S6lC

0604
0606
0608
060A

EB09
F2U
IF43
B6lC

0616
OblS
06lA

EBlB
F2U
3f43

061C
061E
0612
0614

21::(;3
80.5S
3F85
9D3A

lAOO
1A02
1A04
lA06
lA08
lAOA
lAOC
LAOE

CS2E
'1S35
8612
8612
8612
t612
8612

lAlO

C80C

'1042

SEQUENCE

OPTC
DPTC
OPTC
DPIC
OPIC
OPIC
DPIC
DPIC
OPTC
OP TC
OPTC
OPTC
DP IC
DP IC
DP IC
DPTC
DPIC
OPTC
DPTC
DPTC
DPTC
DPIC
OPTC
DPTC
DPTC
DPTC
DPIC
OPTC
DP TC
DP IC
DP IC
DP TC
DPTC
OPTC

LABEL

NO.

001
002
003
004
OOb

001
008
009
010
011

T
*
*
*
*
GUELD
*

ADATCK

012

ou

014
015
016
011
018
020
02i
022
024
025
026
021
028
029
030
031
032
033
034
035
036
031

FIRST
*

BOATCK
I SFI RS

*

NOOP

CMOREJ
*
*
*
CCMHI 0
CaMHI 1
COMHI 2
CaMHI 3
COMHI 4
COMHI 5
COMHI .6
CCMHI 1
CaMHI S

NEX TSEQ

NEXT LABEL

STATEMENT

WHEN A LOAD MCS AND FOLD, OR A LOAD MCS
AND NO FOLD COMMAND, IS NOT PRECEEDED BY A
GATE LOAD COMMAND, ENTRY IS MADE TO THIS
LABEL TO REJECT THE COMMAND.
ENTRY IS MADE TO THIS BRANCH SET FROM THE
-DPTS- ROUTINE TO DECODE THE PRINTER
COMMAND.
COMMENTS

1403 COMMAND DECODE AND CHECK READ

GATE LOAD COMMAND
024 CMOREJ
BR IF DO BIT1=1**BR IF lAST COMMAND CHAI NO
HI-HlSK02
**SET GATE LOAD TAG
021 NOOP
BR
**BR TO NO-OP
ALLOW DATA CHECK COMMAND
013 FIRST
BR IF H16=1
BR IF GATE LOAD IS ON
BR IF 007= 1
BR IF NOT FIRST IN CHAIN
024 CMDREJ
Hl=Hl*-K04
RST BLOCK DATA CHK
GO UPDATE SENSE BYTE
021 NOOP
eR
BLOCK DATA CHECK COMMAND
0181SFIRS
BR IF H16= 1
BR IF GATE LOAD IS ON
BR IF 001=1
BR IF NOT FIRST IN CHAIN
024 CMDREJ
H1=HUK04
SET BLOCK DATA CHECK
NO-OP CCMMAND
HO=OSKOC
SET CH END, DEV END
DPTR OSO IMMEDI
BR
Hl=HlSKSO
SE T COMMMAND REJ
OPTS 064 ISLCHK
BR
**BR TO INITIAL SElCTN CHK
*****************************************
***1403 COMMAND DECODE ***
*****************************************
065 COMLOS
BR IF P04=O
083 COMLoe N N= PO BITS 561
BR
INVALID
024 CMOREJ
BR
COMMAND
024 CMOREJ
BR
GO TO
024 CMDREJ
BR
024 CMDREJ
COMMAND
BR
024 CMOREJ
REJEC T
BR
061 OCCMl
CaMHI 6 BR If P04=O
035
SEPERATE LOW INVALID

AuCR

\;URO

12
lA 14

IAn
lAL4
lA 26
LA 28
lA2A
1A2C


l02C
7042

0025
lE:lF
18CO
2627

11\

lHo

lA 18
lA lA
lA lC
lA IE
LA~lJ

ecoc

H12
8D54
8612
E612
8612
bH2
€tll

8COC
8612
E61C
EF 66
8612
Eb12
8612

SEQUENCE NO.
DPTC
OP TC
OPTC
DPTC
OPTC
OPTC
OP TC
DP IC
OP lC
DP TC
DPTC
DP IC
OP TC
OPTC
OPTC
OP TC
uP TC
OPTC
OPIC
DP TC
Df'lC
DPIC
DP TC
DPTC
DPTC
OPIC
OP TC
DP TC
DP TC
DP TC
DPTC
DPTC
DPTC
OPTC
DPTC
OP Ie
OP IC
DPIC
DP IC
DPIC
DP IC
UPTC
OP IC
DPTC
UPIC
DPTC
DP 1(;
OPTC
DPTC
OP Te
UP IC
DP Te
DP TC

038
039
040
041
042
043
C44
045
047
051
052
053
055
060
064
065
006
Ub7
068
070
074

o7~)

077
081
082
083
084
08,
086

081
C88
089

090
091

on

093
094
095
096
097

098
099
100
101
102
103
104
105
101
III
112
113

114

NEXTSEQ

LABEL

083
083
083
083
083
042

COMLCB
COMLOB
COMLOB
COHOB
COr-LOB
COMHI

STATEMENT

CLOA [).= *E 6 0 •
COMMENT S

EC

LEVEL=128211

N N=PO BITS 567
N N=PO BITS 567
N N=PO BITS567
N N=PO BITS567
[)
N N=PO SITS567
E
0
BR IF P04=0
F
Z= POo KO 3
LOOK
BR IF llNl
051 SCHECK
FUR UCB F3.FB
DMCS 010 MCSRTN
Bil.
BR TO LOAD UCB FOLD
BCHEC K
Z= POOK.O B
035 COMHI 6 BR IF L lNZ
BR IF NOT F 3 OR Ffl
060
LDLlCB
BR IF P03= 1
COMM IS XB
007 GAT ELD
BR
CJMM I S LOAD *Efl*
DMCS 009 MCSNOF
BR
LOUCB
**FB** GO LOAD NO FOLD
COMMAND Of:COO!:: 01 fHRU Of
*
COMLOS
091 LOBRS N N=PO BIT:>567
COMMAND CECUD!:: ,73 AND 78
*
DCUMl
l=POoK03
074 CHHAL
SR IF Lva
BI{
BDATCK
016
BL OCK DATA CHECK CDMM
CHECAL
Z=POoKOB
BADceM
BR IF L ZNl
081
ADArCK
BR
ALLO\; DATA CHECK
011
BAOCOM
024 CMOREJ
BR
REJEC T
CO I" 1". A1\0
DECODE
*
COMLUB 0
024 CMDREJ
BR
INVAL ID
COMLOB 1 DPTR 006 WR I T E
BR
WRHE WITH VALID MOD
024 CMDREJ
COMLOB 2
BR
iNVALID
COMLOB 3 OPTR 017 CARCTL
BR
CARRIAGE CTRL
COMLOB 4
024 CMDREJ
BR
INVALID
COMLOB 5
024 CMDREJ
BR
INVAl ID
COMLOB 6
024 CMDRf:J
BR
IN VAL I D
COMLOB 7
024 CMOREJ
BR
INVAL 10
024 CMDREJ
BR
lOBRS 0
INVALID
BR
LOBKS 1 DPTR 006 WR ITE
WRIlE WiiH VALID MOD
LOBRS 2
Ol4 CMDRf:J
BR
IN VAL 10
LOBRS 3
02l
NOGP
BR
NO OP
tOSRS 4 DPTS 083 SENSE!
BR
SENSE
024 CMOREJ
BR
IN VAL li)
LOBR S 5
BR
tOBRS b
024 CMDREJ
INVALID
lOBKS 1
024 CMDREJ
BR
INVALID
*******************************************
*
********************************************************************
*
*** PRINT CHHACTER CTRL LENGTH ***
*
ATABLE ADDR=00C6
HAUX
AEND
1403 TRANSLATE TABLE IN AUX STORAGE **************
*
ArABLE ADDR=7000
XAUX'OOZ5262128292AZ62C202E2F30182EOOlb191AlBlClD'
C
XAUX'lEIF20212223243000C0220DOEOFIOll12l314151611'
C
XAUX· 180017000AOI0203040506070B090AOBOCOCOBOOOO25'
C
XAUX'262728292A2B2C202E2F30l82EOOlb191AlBlClD1ElF'
C
COMHI
COMHI
COMHI
COMHI
caMHI
COMHI
COMHI

9
A
B
C

NEXT LABEL

PAGE 189

ADDK

wORD

SEQUENCE:

~

£021
17CO
2829
2223
OAOl
2A28
2430
0203

DP TC
OPIC
OPTC
DPTC
OPTC
DP TC
DPTC
DP TC
DPTC

TlJS

TLlbt:

(LI 84
lu9A
TUBO
70Cb

70DC
70Fl

NO.

ll5

116
117
118
119
120
121
122
123

LABEL

NEXTSEQ

NEXTlA8EL

ClOAO-=*E60, EC lEVEl=128211
COMMENTS

STATEMENT

PAGE 190

XAUX' 202122232430000022 CDOEOF 10111213141516111800'
X AUX' 17000AO 102030405060708090A08 DC DC 08001625262 7'
XAUX'28292A2B2C2D2E2F30182E0022191A181CIDIEIF2021'
X AUX' 22232430000000000E OF 1'01112131415161718001700'
X AUX' OAO 102030405060 108 C90A080COC OB001625262 72829'
XAUX'ZA2B2C2D2E2F30182E0022191AIBICIOIEIF20212223'
X AUX' 2430000000 OOOEOF 10111213141516111 BO 01 7000AO 1 •
XAUX'0203040506070B090AOBOCOCOBOO'

C

,,
,
C

C

C
C
AENO

**********************************
CR(]SS REFERENCE FOR CSECT UPTC *
**********************************

*
IJPrC
OPTC
OHC
OPT,
OPTC
OPTC
DPTC

007
011
013
016
018
021
024

OPTC
UP TC
UPTC
OPTC
OPTC
DI'TC
l)l'TC
OP Te
Dr IC
l)PTC
DPTC

029
035
042
O~l

(J60
0/:>5
067
074
081
083
091

OP TC
UPTC
OPTC
DPTC
OPTC
OPTC
OMC S
IJPTC
OPTS
OP IC
DPTC
up Te
DPTC
OP Ie
Df> re
DPTC
OPTC
OPTC
OPTC

055
077

011
070
016
009
014
087
057
037
043

OPTC 014
DPTC 001
OPTC 088

OPTC 094
DPTC 012
DPTC 089

lROR 087
OPTC 017
DPTC 090

DPTC 031
DPTC 091

OPTC 032
DPTC 093

OPTC 039

DPTC 040

OPTC 041

OPTC 042

DP1C 052

04~

053
029
036
068
075
030
()(:5

OPTC 038

OPTC 0.33
OPTC 096

OPTC 034
OPTC 097

OPTC 0.35
OPTC 098

OPTC 081

OPTC 083

OPTC 085

ClOAD=*E60. EC LE VEl=1282 11

DPlQ

DESCRIPTIVE

PAGE 191

TEXT

!:NTRY POINTS
PTRREQ -

TAKEIN -

AODR

wORD

ENTRY IS MADE AT THIS LABlE fRUM THE -BSWiROUTINE. BIT 7 OF THE EXTERNAL tPRSI HAD
B!:EN TESTED AND FOUND Te BE ON. THIS
INDICATES THAT A PRINT REQUEST HAS BEEN
GENERA TED.

4642

1072

A072
0149
C44F
CAf7

1070
1014

3423

1016
1018
lU7A

If45
3485

lD7C

9052
CE09
OA14
BlOA
A568
AAA2

lO'tE

lD50

1D52
1054
1D56
lD48
W4A
104C

2E43

C474

1058

CE09
SDcO
S14C

lD5A

DEC 3

ID5C
105E

F OE:l
1545

1060

0565

1062

90.52

1064
1060

OA45
lE01

ID68

PTQ 006
Opfl;l 011
01' TQ 012
OI'TQ 016
iJj> TIj 019
L>PTQ 020
DPTQ 023
DI'JQ 026
UPT" 030
JPTQ 032
L>PJQ 03b

B SWI

DI'TQ
OP1Q
DP1Q
BWRP
DPTQ
DPlQ
OPlc)
OPTQ
OP1Q
DPTQ

0l!5
011
010
oe9
086
034
008
Olb

025

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

OPTQ 023
DCLR 039
DPTR 073

DPTQ 015
ERDR 013

DPTQ 031
EXFR 142

DPTR 071

ERRQ 038

DPTC) 024
OPTQ 028

0.30

032

UPTR 043

DPTR 012

OPTS 069

ERRQ 063

PAGE 192

CLOAO=*E60, EC lEVEL=128211

DPTR

OESCRIPT IVI:

PAGE 193

TEXT

ENTRY POINTS
WRITE

ADDR

WXFER3 -

ENTRY IS MADE HERE FROM THE -DPTSWHEN DATA CHAINING IS IN EffECT.

CHEND

ENTRY IS MADE AT THIS LABEL fROM THE -DMCSROUTINE TO SET CHANNEL END AT THE COMPLETION
OF AN MCS LOAD OPERATION.

INClEN -

WHEN A SENSE COMMAND IS ISSUED TO THE
PRINTER AND DATA CHAINING HAD BEEN SPECIFIED,
ENTRY IS MADE AT THIS LABEL fRCM THE -DPTSROUTINL TO TEST THE Sll FLAG AND TO SET
CHANNEL END.

WORD

0COC.
OCDE

EB60

,)C f:0
JC El
0CE4

4DCf
2813

OCEfl
0C E8
nCEA
OC EC
,)\.. EE
Jl.FQ
OCFl

OCF4
OCF6
Ol.F8
0CFA
0CFC

AFTER A 1403 WRITE COMMAND HAS BEEN DECODEO,
ENTRY IS MADE TO THIS LABEL fROM THE -DPTCROUTINE. CARRIAGE DATA IS LOADED, AND THE
PRINT LINE BUffER IS LOADED IN SUB-SCAN
SEQUENCE. POSITIONS Of THE PRINT lINE BUFFER
FROM wHICH NO PRINTING IS DESIRED ARE SET TO
ZERO. WHEN THE PLB COUNT AND THE UCW COUNT
BOTH REACH ZERO, CHANNEL END IS SET.

lD20

l.,65

294B
lA25
lACB
2C75
50'38
5BCO
4F8f
2004
OSff
C4fC
3F83
4BBf

SE~UENCE

DPTK
DPIR
()PTR
OP Tk
DP IR
ilPTR
DPTR
DP 1R
DPIR
DP TR
DPTR
OPT/{
OP IR
DP lR
OPTR
DPTR
OP TR
DPTR
DPTR
DPTR
DP TR

NO.

001
003
004
005
006
007
008
009
010

LABEL
T

*
*

* WRI IE
GLOAO
RilBAl

all

012
013
015
019
020
021
022
023
024
025
026

WXfERl

\iXFER2

NEXTSEQ

NEXT lABEL

ENOJK

THIS IS THE NORMAL EN1RY FOR SETTING CHANNEL
END FOR A StNSE COMMAND. ENTER FROM THE
-DPTS- ROUTINE.

CCBR

ENTRY IS MADE HERE FROM THE -EXFR- ROUTINE
TO ATTEMPT A CHANNEL END INTERRUPT

CAReTL -

wHEN A CARRIAGE CONTROL OPERATION IS DECODED
IN THE 1403 COMMAND DECODE ROUTINE -DPTC-,
ENTRY IS MADE HERE TO SET THE CARRIAGE
CONTROL REGISTER AND SE1 CHANNFl END.

IMMEDI -

A 1403 NO-OP COMMAND fROM -DPTC-, OR A
READER COMMAND IMMEDIATE fROM -EXFR-, ENTER
AT THIS LABEL TO SET THE SECONDARY BIT AND
CHANNEL END.

ROUTINE

STATEMENT

COMMENTS

1403 WRITE-CHANNEL END,AND CARRIAGE CTRl ROUTINE
********************************************************************
***
WRITE COMMANDS ***
********************************************************************
008 GlCAD
BR If H 16=0
BR IF NOT GATE LOAD
SET PRA K=02
BLOCK TWO HOME PULSES
PRe=PO
lOAD CARR IAGE OA TA
10=OSKOI
SET PlBAR COUNT 01 SET DE
II=OSK80
11= 11f-K04
**SET Pld COUNT 84 DEC 132
rO=OSK20
TO=TO+KOC
**SET PlEAR CONsr 2C DEC ~4
PO=OSK70
PLA TABLE ADDR FOR NOT l4K
ROB PI VH
**READ CrAR FROM DATA ADDR
RDB Tl AS,P+O **READ C~AR FROM TABLE
PR= 10
**LOAD PlBAR
SET PRA K=20
SET READ CONTROL
Z=TICKFF
SR iF ZNZ
**BRANCH IF CHAR NOT Ff
026 WXFER2
Hl=Hl$K08
**SET bATA CHECK
PRO=T 1
**LOAD PlB

AUDR

wORD

uLfE

5006

Ui)UO
vu02
0004
JU06
vuoa
duUA
O;)OC
ul)OE
0010
(1)12
OD14

C486
29FF
C49F
82E4
8CEE
C~6B

ODlC
006A
OD1E
0020
0022
0024
01>26
0028
OD2A
\J02e

29FF
C4A 1
3"45
82E4
4F8F
2D04
2B05
4BBF
8DOC
90"4
3445
EAA8
JE23
3F 1.5
1545
DB2C
IF83
3002

OOZE
0030
0032
003.
OD36
0038
003A
003C
UD3E
0040
0042
0044
00"6
0048
004A
U04C
\J04E
UD50
0052

IF23
0440
C538
40Cb
C4CO
E53E
1445
8040
1545
3E 83
3485
0550
BI06
IE83
OA52
9258
9044
9052
9054

OU16

Ou18
aDlA

OU54
0056
01)58
005A
(JD5C

40Cf
2D02
C55C
15E5
3485

SEQUENCE NO.
DPfR
DPTR
DP TR
DPTR
DPTR
DPTR
DP Tf<
DPTR
DPTR
DP TR
DPTR
DPTR
DPIR
DP IR
OPTR
OPTR
OPTR
OPTR
DPTR
DPTR
OPTR
OP TR
OPTR
DPTR
OPTR
DPTR
DPTR
01' TR
OPTR
OPTR
OP1R
OPTR
01' TR
DPTR
DPIR
OP lR
DP TR
DPTR
DPTK.
DPfR
OP TR
DPTR
OPTR
DP1R
DPTR
DP lR
JPIR
OPTR
DPIR
OPTR
DP TR
OPTR
OP TR

021
028
029
030
031
032
033
034
035
036
031
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
O~3

0')4
055
056
057
058
060
061

LABE: L

WXfER3

UCNTOW
WXfER4

XfRBl

GOCHN
WRGLEN
XfREND

NPCHKl
CHKENO

••

CHEND

I NClEN

016

071
078
080
081
082

NOSll
HmOK
CCBR
CMOCHN

STUCW3
NtHAI N

..CARC TL

*

1MMEOI
OKCHAI

NEXT LABEL

STATEMENT

ClOAD=*E60, EC LEVEL=128211
COMMENTS

U:U-l
BR IF l=O
**BR IF UCW COUNT 0
**PlB COUNT MINUS 1
11= Il+Kff
*.BR IF PLB COUNT a
BR IF Z:O
044 WRGLEN
GO ADJUST PlBAR ADURESS
BAL
093 CNT89
.*BR fa NEXT BYTE
BR
019 WXFER1
BR If Gl BIT 0= 1**BR If DATA CHAIN flAG
043 GOCHN
*.PlB COUNT MINUS 1
11=Il+Kff
*.BR If PlB COUNT=O
BR If l=O
045 XfREND
*.SET INCORRECT LENGTH
GO=GO$K40
GO ADJUST PLBAR ADDRESS
BAL
093 CNT89
**LOAD PlBAR
PR= 10
SET READ CONTROL
SET PRA K=20
Sf:T PLB CHAR TO 00
fl=O$KOO
**lOAOPLB
PRO=T 1
BR
**BR TO NEXT BYTE
034 WXfER4
BR
OPTQ 036 CHAIOK
*.SH INCORRECT LENGTH
GO=GO$K40
BR IF NO PARITY CHECK
BR If PRS BIT 6=0
049 NPCHK1
HO=HO$K02
**SH UNIT CHECK
*.SET EQUIP CHECK
Hl=HUK 10
.*RESET COMMAND CHA IN flAG
G1=G1*-K40
BR IF HI BIT5=0**BR IF NO BLOCK DATA CHECK
051 CHKENO
H1=Hl*-K08
**RESET DATA CHECK
SET PRINT GATE ANO BUSY
SET PRA 1(=90
**.************.*********.*.** •• ***************.**** •• ***.*****.*.**
CHANNEL END ROUTINE
RST GATE LOAD
H1=Hl*-K02
SR If GO BIT l=O*.BR IF NO INCORRECT LENGTH
064 ENOCK
BR IF G10:0
BR IF NO OA TA CHAIN
060 I NCLEN
U=U
BR IF CCW COUNT NOT ZERO
BR IF ZNZ
064 ENDCK
BR IF G1 BIT 2:.0**BR IFNC SLI FLAG
063 NOSLI
**RESET INCORRECT LENGTH
GO=GO*-K40
SR
064 ENDOK
*.RESET COMMAND CHAIN fLAG
Gl=Gl*-K40
"SET CHANNEL END
HO=HOSK08
GO=GO$K80
"SET SECONOAR Y BIT
BR IF Gll=O ** 8R IF NO CHAIN--TRYfOR tHAN. END INT
012 ::'TueW3
BAl **CHAIN IS ON ,GO CHCK PClfLAG,TRYfOR PCI I NT
DeOM 006 PC I BR
RST CH. END----fOR CHAINING
HO:HO*-KOB
BR IF NO OEV END YET
8R If H05=0
NCHAIN
013
BAL
**BR & LINK TO RESTORE lS
tCOM 066 LRSTR8
BR
OPTQ 036 CHAlOK
SR TO INTERRUPT ROUTINE
BR
OPTQ 019 TAKEIN
BR **
OPTQ 020 STI NST
*******.* ••• ******.***.******** •••••• *.***********.***.**** ••• ***.**
CARRIAGE CONTROL COMMANO
.*LOAD CARRIAGE OATA
PRC'" PO
SE] PRINT BUSY LATCH
SET PRA K=10
BR If NOT CHAIN DATA
BR If G10=0
082 OKeHAI
RST CC,CO.SLI
Gl=Gl·-KEO
SET SECONOAR Y BIT
GO=GO$K80
033

062

063
064
065
066
061
068
069
070
071
072
013
015

NEXTSEQ

UCNTOW

PAGE 194

"UDR

WURO

OOSE
JU bO
J002
0064
0066
OUbS

3E 8 3
C547
f251
DA68
1485
903C

02E4
02E6
02E8
02EA
alEC
02EE
02FO
02F2
02F4
02F6

HP TR
OPTR
DPTR
DPJR
OPTR
OPTR
DPTR
01' TR
OP TR
OP TR
OPTR
OP TR
DPTR
OI>TR
OP TR
UP fR
OPTK
OPTR
DPTR
DPTR
OP IR
OPTR
UP TR
OPTR
OP TR
UPTR

2CA5
30S3
2BA5
3873
6883
F4F5
68A3
128E
b8D3
128E

006
008
019
02b

029
033
034
043
044
045
049
05l
054
060
063
064
066
067
072
073
017

080
082
088
093
101

LABEL

SEQUENCE NO.
OP TR
DP TR
DPTR
OPTk
OPIR
OP fR
DPTR
DP IR
OPTK
DPTR
DPIR
OP TR
DPJR
DP TR
DPTR
DPTR
OPTR
OP TR
DPTR
DPTK

OPTC
DPTR
DPTR
OPTR
DPTS
OPTR
DPTR
OPTR
DPTR
DPTR
OPTR
OPTR
DMC S
OPTR
DP TR
DPTR
EXFR
OPTR
OPTR
DPTR
OPTC
OPTC
OPTR
DPTR
DPTR
OPTI<.

083
084
085
086
087
088
090
091
092
093
094
095
096
097
098
099
100
101
102
103

NEXTSEQ

*

*
*CNT89

GREA89

*

084

DP TC 092

OCb
032
024
01':3
028
042
033
030
035
045
049
0<;2
0';6
01':0
055
144
OE4
066
069
C86
022
080
086
031
0<;8

OPTS 094
DPTR 058
OPIR 085
EXFR 131
OPIR 037

STATEMENT

ClOAO=*E60, EC LEVEl=128211
COMMENT S

HO=HOSK08
**SET CHANNEL END
BR IF Gl Blfl=l**SR IF IH~S COMMAND CHAIND
BR IF DO BIT7=1**BR IF LAST COMMAND CHAINO
072
SR If H05=0
BR IF NO Dc
088
GO-GO*-K80
RSl SECONDARY BIT
OPTS 066 PCENTR
BR
********************************************************************
********************************************************************
********************************************************************
Pl=OSKAO
SET UP
Pl=PlSK09
CONSTANT Of 169
Tl=O$KAO
PUT CONSTANT OF
Tl=Tl$K07
167 IN Tl
Tl=Tl+10
ADO 167 TO PlBAR AND
101 GREAS9
8R IF AC.l
BR IF PLBAR=89 OR GREATER
10=10+10
NOT 89 YET ADO 44
RTN
RETURN TO READ OR WRITE
IO=IO+Pl
ADO 169 TO PlBAR
RTN
RETUkN TO READ OR WRITE
***************.****************************************************
**********************************
* CROSS REFERENCE FOR CSECT DPTR *
**********************************
067

NOTNOP

NEXTlASEL

OPTR 062

CMDCHN
STUCW3
NOTNOP

OPTS 095

PAGE 195

CLOAD=*E60, EC LEVEl-128211

OPTS

DESCRIPTIVE

PAGE 196

TEXT

ENTRY POINTS
PRSIO

ENTRY TO THIS LABEL IS MADE FR(M THt -DCLBROUTINE. THE CCW HAS BEEN FETCHED AND A
PRINTER START 110 IS DETECTED.

PCENTR CONTINUED
ENTRY MAY ALSO BE MADE TO THIS LABel FROM
THE -EROR- ROUTINE TO STORE CHANNEL STATUS,
UNIT STATUS, AND FLAGS IN THE UCW WHEN A
READER OR PUNCH COMMAND REJECT IS DETECTED.

ISLCHK -

A 1403 COMMAND REJECT ENTERS AT THIS LABEL
FROM THE -DPTC- ROUTINE TO PERFORM AN
INITIAL SELECTION CHECK.

NOPCIF -

ENTRY IS MADE AT THIS LABEL fROM THE -OYPEROUTINE TO HANDLE STATUS FOR A PR-KB NO-OP
OR NOT READY CONDITION.

SENSE

ENTRY IS MADE AT THIS LABEL FROM THE -OYPEROUTINE TO HANDLE A SENSE COMMAND FOR THE
PR-KB.

PCENTR -

AllOR

WORD

IF A DEVICE END HAS NOT OCCURRED FOR A
CARRIAGE OPERATION, ENTRY IS MADE TO THIS
LABEL FROM THE -OPTR- ROUTINE TO STURE
CHANNEL STATUS, UNIT STATUS, AND FLAGS IN
THE UC II.

LABEL

ShlUENCE NU.
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS
OP IS
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS
1)PTS
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS

001
003
004
OO~

006
007
008
009
010
011
012

013
014
015
016
017
OlB
019
020
021
022
023
024
02~

026
027
028
029
030

T
*
*
*
*
*
*
*
*

NEXTSEQ

NEXTlABEL

STATEMENT

COMMENTS

1403 PRINTER START 110 AND SENSE
1403 START 10 ACTIVE 0 SECONDARY 0

COUNT
DATA ADDRESS
COMMAND BYTE
FLAGS AND OP
CHANNEL STATlS
UCIol ADDRESS 0
UCW SfATUS BYTE
UCW SENSE BYTE

*

U
V
GO
Gl
HO
OXC 8
OXCA
OXCS

*

•*
•*

•
•
*
*
*
*

****************************************
NATIVE 1403 UCW fDR~AT
******.*.********.*********************.*
CA
CC
CE
C8
*-------------------------------------------------------------_._-*

*

*

..

*UNIT
. .*

• CilANNEl* CHANNEL. UNIT *
* STATUS. FLAGS * STATUS *

SE~SE

RESIDUAL
CDUNT

*

*

*
*

NEXT CCW
ADDRESS

**
*

*

**----------* ----------------------------------*
..
*
..
*
---------------_._--.

*
*
*
*
*
*

CH STAT-C8
O-SEC
1-1 NC lENGT H
2-PROG CHECK

•

CHANNEL FLAGS-C9
a-CHAIN OAT A
l-COMM CHAIN
2-SL I

UNIT

01-

2-

STAT-CA

UNI T SENSE-CB
o-COMM REJ
1-1 NTERV REQ

z-

AUOt{.

lC Fe
lCfE
lDOO
1002
1004
100b
1008
100A
lDOC
lUOE
1010
IJ12
. W14

101b
10t8
lOlA
101C
lU iE
1020
1022

1036
1038
103A
103C
lO3E
1040
1D42
1024
1026
lU28
lO2A
102C
102E
1030
1032
1034

UF66
uF6S
0FbA

WORD

2482
5449
C481
8DC4
54C9
A078
oc. 4B
C491
OC 3B
C4<;7
lDOO
IFF')
IF'i3
2E05
DI::SC
I:IC05

3F45
celts
C4BA
8F68
5460
8Ge2
21023
1541
F224
3~43

9052

5E29
2EC7
A568
52E9
CUI
1485
54F9
9258
A030

If45
f513
5F89

SEQUENCE NO.
OPTS
OPTS
DPTS
DPTS
OPTS
OPTS
DPTS
OPTS
DPTS
OPTS
OPTS
OPTS
OP1S
OPTS
OP1S
DPTS
OPTS
OPTS
OPTS
OPTS
OPTS
OP1S
OPlS
Of> 1 S
OP1S
OPTS
OPTS
OP1S
DPTS
OP1S
OP1S
OP1S
OP1S
OPTS
OPTS
OPTS
01' 1 5
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS
DPTS
DPIS
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS

031
032
033

034
035
036
037

038
039
040
041
042
043
044
045
046
041
048
049
0')0
051
052
053
054
055
056
057
05B

LABEL
*
*
*
*
*
*
*
*
*
*
*

NEXTSEQ

3-PROT CHECK
4-CH OAT A CHK
5-CH CTRl CHK
a-I NTFCE CHK
7-1 NT IN BUFFER

PRSIO
062
CCOM 058
ERRQ 083
055
055

REAOY
058
OPrC 029
NOJROY
064
084
CHDATA
OPTR 029
I SlCHK
PCENTR
070
OPTQ 019
NOll NT
OeGM 049
011
NO PC If
CCOM 066
CCOM 135
*
*
*

STATEMENT
3-SKIP
4-PC I
5-ACT IVE
a-INPUT
1-0UTPUT

CLOAO=*E60, EC LEVEl=128211
COMMENTS
3-BUSY
4-CH END
5-0EV END
6-UNIT CHK
1-UN IT EXEC

3-EQUIf> CHK
4-DA1A CHK
5-BLOK OAT CHK
6-GATE LOAD
1-CHAN 9

****************************************
START [/0 ACT IVE-O SECCNDARY-O
*****************************************

059

060
061
062
063
064
066
067
068
069
070
011
072
013
014
015
077
018
079
080
081
082
083
084
085

NEXT LABEL

SENSE
SENSEl
SENSE

089

SET MODE K::18
**SET 140.3 MODE
GO=GO
CHDAT A
BR If Z=O
**BR 1FDA TA CHA IN
LSAVEB
BAL
**BR & LINK TO LS SAVE
PO-= GO
MOVE COMMAND TO PO
ROCHsr
BAL
** GO GET CHAN. AND UNIT STATUS IN G,H
l-= POnKO 4
LOOK fOR SENSE
RUDY
BR IF Z=O
BR IF SEN SE
l=POaK03
LOOK F[JR NO-OP
READY
BR IF Z=O
BR IF NO-OP
RST PRA K=80
Rsr EXT SENSE LA TCH
H1=Hl*-KFO
**CLEAR UNl T SENSE
Hl=Hl*-KOg
**REGEN BLOCK DATA CHECK AND GA. LOAD
HO=O$KOO
**C1EAR UNIT STATUS
NDTROY
BR IF PRS BIT 1=0
BR IF NOT READY
COMHI N N=POH
Hl=Hl$K40
**SET INTERVENTION REQUIRED
l= POaK04
BR If ZNZ
ISLCHK
**BR IF NO SEN SE COMMAND
BR
SENSE
ROH GAS, 0.0
GE T CHANEL STATS AND FLAGS
WXfER3
BR
HO=O$K02
CL EAR UNI T STATUS, SET UC
Gl=Gl*-K44
**RESET COMMANO CHAIN FLAG
NOT INT
BR If 00 B{T7=O ** LAST COMM NOT CHAINED
G1=GUK04
TURN ON ACTIVE IF CHAINED
TAKEIN
BR
**GO TO IMMEO INTERRUPT
SAVE UN ITS TA TUS
VO=HO
HO=O
NO UNIT STATUS IN DCW
REDSTR
BAl
** STORE CH. Sf ,FLAGS AND UNI T ST.IN UCW
HO=VO
RE STORE UNIT STATUS
NOPCIF
BR If G14= 1
BR IF PC I fLAG I S ON
RSJ SECONDARY BIT
GO=GO*-K80
H1-=GO
"MOVE CHANNEL STATUS
LRSTRB
BAl
GET I' AND I
STATUS
BR
**BR TO STORE C SW HW.3
*****************************************
COMMAND
*****************************************
RST INTERVENTION REQ.
Hl==Hl*-K40
SNSRTN
BR IF G13= 1
BR IF SKIP FLAG ON
T 1=Hl
**MOVE SEN SI:: BYlE

PAGE 191

A[)DR

WORD

OF6C
OHE
OF 70
OF72
OfH
OF76
OF7S
OF7A
OF7C
Of7E

E27t
1663
1638
2E43

OPTS
OPTS
OPTS
OPTS
OP TS
OP TS
:)i> TS
01' TS
ill' r S
OP TS
!)P J S
'-JPTS

SEQUENCE NO.

!lOOb

C51B
C4FF
3445
8038
8040

042
055
058
062
064
066
070
077

083
084
088
089
,wrs 093
uf'T S 095

OCLB
OPTS
OPTS
DPlS
OPTC
DPIR
OPTS
OPTS
OPTC
DPTS
OPTS
OPTS
OPTS
OPTS

OPTS
OPTS
UPTS
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS

2(9
049
056
044
025
088
067
074

086
087
088
089
090
091

LASEl

088
OVER
SNSRTN
093
095

092

093
094
095

FORGET
SNSEND

OPTS 051
OPTS 060
ERDR 145
OYPE 150

0~5

Oel
086
0f4
0«;1
0<;2

NEXTSEQ

OYPE 166

DPTR 060
OPTR 064

NEXT LABEL

Sf ATEMENT

CLOAD=*E60, EC LE VEL=128211
COMMENTS

BR IF 006= 1
SK IP NXT WORD IF 2540 SHARE
Tl=Tl*-K06
**STRIP SENSE BYTE
SIB Tl '0'+1
**STORE SEN SE BHE
HO=OSK04
CLEAR UNIT STATUS, SET DE:
U=U-I
**UCW COUNT MINUS 1
BR IF DATA CHAIN-StT WlR BIT
FORGET
BR IF GLO= 1
BR IF l=O
SNSEND
**SR IF UCW CUUNT 0
GO=GOSK40
**SET INCORRECT LENGTH
BR
I NCLEN
**BR TO CHECK Sll FLAG
6R
ENDGK
**********************************
* CROSS REFERENCE FOR CSECT OPTS *
**********************************
OVER

PAGE 198

CLOAD:*E60, EC LE VEl=128211

DPTT

DESCRIPT IVE

PAGE 199

TEXT

ENTRY POINTS
TESTOO

UCENT

AFTER A TEST 110 OR A
DECODED IN THE -DCLAMADE AT THIS LABEL TO
AND SECONDARY BITS TO
OPERA II ON.

START 110 HAS BEEN
ROUTINE, ENTRY IS
TEST THE ACTIVE
DETERMINE FURTHER

WHEN A NOT READY CONDITION IS DETECTED
FOR THE PRINTER, READER-PUNCH, OR PR-KB,
ENTRY IS MADE AT THIS LABEL TO SET UNIT
CHECK AND ZERO OUT THE CHANNEL STATUS.

RESTES

THE 2540 REQUEST AND TEST 110 ROUTINE
-ERRQ-, OR THE 1052 REQUEST ROUTINE
-DVPE-, ENTER AT THIS LABEL TO CLEAR A
CHANNEL END OR A CHANNEL END-DEVICE END
CONOl HON.

SHARE

DEVE

SENCHK
RESINB

ADDR

WORD

SEQUENCE NO.
OP TT 001
003
DPTT 004
OP TT 005
OPTT 006
DP TT 007
DP Tl 008
DPTT 009
DP TT 010
DPTl 011
DPH 013
OPTT 014
OPTT 015
DPTT 016
DPTT 017
OPlT 018
OPTT 020
OP TJ 021
OPTT 023
DPTT 024
OPTT 025
UP TT

0948
094A
094C
094E
0950
0952
0954
0956
0958

2482
A078
Dl5B
C421

DED4
B3,62
2E23
2F07
AC lE

095.\
095C
095E
0960

0008
5FB9
E401
AA03

0962

ACH

LABEL
T

*
*
*TESTOO

UCENT

*
*
* TESTU
RESTE S

NEXTSEQ

NEXTLABEL

STATEMENT

ENTRY IS MADE AT THIS LABEL FROM -ERRQ-,
DEVICE END IS TESTEDIF DE ON IF INTERRUPT HAS BEEN
INITIATED, RESET
INTERRUPT LATCH, AND
STORE STATUS IN CSW.
IF DE OFF - STATUS WITH BUSY SET
IS STORED IN THE CSW.
ENTRY IS MADE AT THIS LABEL FROM -DYPfBECAUSE THE SECONDARY BI TIS ON AND THE
ATTENTION BIT IS ON DURING INITIAL
SELECTION FOR START liD OR TEST 110.
RESET INTERRUPT IF ON, AND STORE STATUS
IN CSW.
THE 1403 INTERRUPT REQUEST ROUTINE -DPTQENTERS AT THIS LABEL TO CHECK THE PRINT
SENSE DATA.
THE CHANNEL 0 INTERRUPT ROUTINE -OCHNENTERS AT THIS LABEL TO RESET INTERRUPT,
SECONDARY BIT, AND S7. RETURN TO -OCHNTO STORE STATUS.

OR -DYPE-.

COMMENTS

1403 TEST I/Q---START 110 WITH SEC.ON
********************************************************************
TEST 1/0 ACTIVE=O SECONDARY=O
********************************************************************
SET MODE K=18
SET 1403 MODE
SAL
** GO GET CHAN. AND UNIT STATUS IN G.H
ERRQ 083 RDCHST
SR IF GlS=l
BR IF ACTIVE TEOT 100
020 TESTll
BR IF GOO=1
BR ON SEC TO START OR TEST NO A
046 STTEOl
BR IF PRS1=0
BR If NOT READY
UCENT
013
BR ** GO TO COHM MODE RST,CC 0 SET
ceOM 154 CCOB
HO=0$K02
SET UNIT CHECK IN STA
Hl=O
ZERO OUT CHANNEL STATUS
BR ** STORE O'S IN CSW wITH NEW STATUS
CCOM 123 STATOS
******************************************************************
TEST 1/0 ACTIVE.:1 SECONDARY=l
******************************************************************
RST PRA K:40
RST PRINT REQUEST
Tl=Hl
SAllE SENSE BYTE
BR IF PROGRAM ERROR
026 PROGF o BR IF G02=l
BR IF NO STA TUS
026 PROGF N BR If HO=NZ
BR
GO SE T BUSY
CCOM l6l ce2B

AODR

WORD

0<,100
0902
0904
0906
090.B
090A
090C
090E
0910
0912
O'Hft
0916
J'i1B
09iA
091C
091E

1548
8HE
DAoF
CAOE
EftOf
2eS5
8910
2007
7068
C1l6
3485
54f9
1A68
5068
5260
AOOE

v920
J'J22
0924
0920

5E29

J-IlM

092A

unc

092t:

0930
u932

09JIt
0936
0938
J93A
091C

093E
0940
0942
0944
0946
314C
31ltE
H~O

3152
315ft
3156
3158
3l5A

315<:
315t:

.J160
.Ho2
Hb4

CE81
DA39
2E15
54F9

IFe~

f246
A01E
B 14C
5F39
6664
726A
B31E
7460
5ftf9
E2lt3
oD08
f22F
3E15
A030
FEDO
3El3
EE06
3E23
3F 13
CB5A
3£:23
5E3f
1393
FeE5
3E23
3F15
3Eft3

SEQUENCE NO.
DPH
CPU
DPTT
DPTT
OP TT
OPlT
DP IT
CP TT
DP TT
OPTT
DP TT
DPTT
DP TT
DPTT
DPTT
DP II
OPTT
DP TT
DPTT
DPTT
DP TT
DPlT
DPTT
DP TT
OP TT
OP 1l
DPTT
DPTT
DPll
OPlT
DPTT
DPTT
DPlT
DPTT
DPlT
OPTT
DPTT
DPH
DP 1T
DPH
DPH
OPH

026
021
028
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
046
047
049
050
051
053
054
056
057
058
059
061
062
063
064
065
066
067
068
069
071
072

QPU
DP IT
DPTT
DPTT
DPTY
DPTT
DPlT
OPlT
DP IT
OP 11
OPTl

073
074
075
076
077
078
079
080
081
082
083

LABEL
PKOGF

NEXTSEQ

NEXTlA8El

0
088
033
033
033

RSTINT
ZSECON
lSECOIII
ZSECCN

034

UCWSTR

031

OONTCH

CCOH 110

FULCSW

l SECON
UCIISTR

OONTCH

CALlH

·

STATEMENT

ClOAD=.E60, EC lEVEL=128211
COMMENTS

G1=GlaKOft
RESET AC Tl VE 81T
8AL
GO RST S7,IIIIT 8UFF BIT.SEC.
8R If H05=l
BR IF DE
BR IF H04=0
BR IF 1110 CHENO OR 1110 OEV.EIIIO
BR IF G02=1
8R IF PRGRAM CHK-OONT SET SEC
UO=OSK80
STORE SEC FOR CHE ALONE-UCW
BR
UO=O
OE,CHE STAT-CLEAR CH STAT IN UCI!
5TH U AS,O+2
UPDATE UCW CH STAT AND FLAGS
BR IF Gl~O
8R IF NO pel FLAG
GO=GOSK80
SET PC I IN CHAN STAT
Hl=GO
HOVE CHANNEL STUUS
STH T AS,Ot-2
D=CoeC
RDH U AS.0+2
UCI! eOUNT=U
ROH v AS,Ot-O
celli AOORESS"'V
8R •• STORE CSW RST MODE, SET cel

•
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
TEST OR START 110 ACT IVE=O SECONOARY= 1
SHEOl

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

'

VO=HO
MO VE UNIT S TA TUS
8R If PRSO=l
8R IF EXT OE
BR IF HO BIT 5= 1
BR IF DE.
HO=OSKlO
SET 8USY
Hl=GO
MOVE CHANNEL STA TUS
H1=Hl.-K80
RST SECONOARY
0&8
OEllC
8R IF 001=0
8R If START-STORE STATUS ONLY
ceOH 123 STATOS
8R
THIS I S TEST STORE STAl ANO 0,5
071
SENCHK
8AL
GO CHECK SENSE
V1:Hl
PUT UPDATED SENSE IN Vl
0=0+2
UPDATE UCW ADO TO STATUS-CA
STH V AS, 0-2
STORE UNl T STAT
08BRSJlNT
8Al •• GO RST S1,INT 8UFF. BIl AND SEC.81 T
STH GAS, 0+0
UCW CH STATUS
Hl=GO
MOVE CH ST&TUS
066
NOTPTRBR IF D06= 1
6R I f NOT PRINTER
RST PRA K=40
RST PRINTER REQUEST
054
GOSTOR
BR I f 007= 1
BR If TEST 110
HO=HOSKIO
SET 8USY
CCOM 135
STATUS
BR
STORE STATUS
056
061

EXTOE
OEVE

073

CHAN9

CHAN9

076

OAT ACH

DATACH

07B

HAMMER

083

SETOE

SHARE

0~2

GOSTOR
EXfOE

DEVE

NOTPTR
OEllC

•SENCHK

HAMMER

SETDE

•••••••••••••••••••••••••••••••••••••••••
8R IF NO CHANNEL 12

8R If PRS3=0
HO=HOSKOl
BR If PRS2=0
HO-=HOSK02
Hl=HlSKOl
8R If H14=0
HO=HOSK02
V1=PRS
Vl=Vl.-K09
8R IF LZ=O
HO=HOSK02
HI-H1SKIO
HO:HQSK04

S£:T UNIT EXCEPTION
8R IF NO CHANIIIEl 9
SET UNI T CHECK
SET CHANNEL 9 IN SEIIISE
BR IF NO DATA CHECK
SET UNIT CHECK
MOVE SENSE
LOOK flJR PARI TV OR HAMMER CHECK
8R If NO ERROR
SET UNI T CHECK
SET EQUIPMENT CHK IN SENSE
SET DEVICE END

PAGE 200

ADOR

WORD

Hbb

3168

()DOA
128E

33lE
H2O
3322
3324
3326
3328

fC24
1413
0010
4046
1485
128E

DPTT
DPTT
DPTT
OPTT
UPTT
l)PTT
DPTT

OOb
013
020
023
02b

033
034
OP IT 037
l)PTT 04b
OPTT 049
uP TT 054
OPTT 056
OPTT 001
JPTT 066
OPTT 068
OPTT 071
OPTT 073
UP TT 076
DPTT 078
OPTT 083
OPTJ 088
OPTT C89
upn 091

SEQUENCE NO.

OClA
OPTT
DPTT
DYPE
UPTT
DPTT
OPlT
OPTT
DPTT
OYPE
UPTT
OPTT
DPTT
OPlT
OPTl
DPTQ
OPTT
OPTT
DPTT
DPlT
OPlT
DCHN
DPTT

OP IT
OPTl
OPTT
OPTT
OP IT
OPTT
OP11
OPTT
OPH
OPTT

3C3
010
OC8
204
023
028
032
035
OC9
2C7
Obo
047
049
0(;4
053
026
011
073
076

084
085
087
088
089
090
091
092
093
094

LABEL

NEXTlA8EL

STATEMENT

Rsr PRA K:50

•RSTINT
RESINB
OEVENO

•
ERRQ 014

ERRQ 052
OPTT 024
OPII 029

DPTT 030

ERRQ 053
DYPE 208
DPTT 056

OPTT 061

091

OEVENO

CLOAO=.E60. EC lEVEL:128211
COMMENTS

RTN

RST BUSY ANO REQUEST
GO BACK TO TEST 110 OR REQ

BR If G07-0
GO=GQ.-KOl
RST S7
U-G
GO=GO*-K80
RTN

BR If NO INT IN BUFf
RESET INT INOICATOR
RESET INT LATCH
MOVE CHAN STAT+flAGS
RST SEC fOR CSW STORE

.********.***** ••• **.* •• *.* ••**.* •••• ****

****** •• ** ••••••• *.* •• ***.** •• ****
.*.**.* •• ** ••• ** ••• *•• ** •• ***.* •• *
• CROSS REFERENCE FOR CSECT OPTT *
•• **••••••• ** ••• *.*** •• **.********

OYPE 203

OtO
027
045
088

NEXTSEQ

PAGE 201

CLOAD=*E60, EC LEVEL=128211

DYPE

DESCRIPT IVE

PAGE 202

TEXT

ADDITIONAL INFORMATION REFERENCE
2025 PROCESSING UNIT. F.E. THEORY OF OPERATION MANUAL
1052 UCW
AUX STORAGE
ADOI-tESS---- OXF1
***********

**

SENSE
* BYTE

*

*
*

*

************
l.S. REG--- PI
:>ENSE BYTE

O){fC
OXFA
OXFO
OXFB
OXFE
OXff
OXf9
OXf8
******************************************************************************************
*
*
*
DATA ADDRESS
*
*
*
* CHANNEL * fLAGS
************************
COUNT fIELD
* NEXT CCW ADDRESS
*
* STATUS * AND OP
*
UNIT
*
*
*
*
*
*
*
ST ATUS *
*
*
*
******************************************************************************************
GO
Gl
HO STATUS ADDRESS
Uo-Ul
Va-VI DATA
CHANNEL STATUS

O=COMMAND REJECT
1= INTEI(VENHON REQUIRED
2=00E5 NOT APPLY
3=EQUIPMENT CHECK
4=oOES NOT APPLY
5=00ES NOT APPLY
6=00ES NOT APPLY
7=DOES NUT APPLY

FLAGS AND OP

UNIT STATUS

O=CHAIN DATA (CDJ fLAG
O=SECONOARY ill T
l"'CHAIN COMMAND tCCI fLAG
l"'INCORRECT LENGTH
2=SUPPRESS LENGTH INDICATION (SLI) fLAG
2"'PROGRAM CHECK
3=SKIP flAG
3=PROTECTION CHECK
4=PROGRAM CONTROLLED INTERRUPT (PCI) fLAG
4=0 COUNT BIT
5=ACT IVE BIT
5=CHAN CONTROL CHECK
6-1=DP -- Ol=WRITE
6=INTERfACE CHECK
10=READ OR SENSE
1=PR-KB INTERRUPT IN
ll=WRITE WITH ACR
INTERRUPT BUFfER

O;A HE NTI ON
l=DOE S NOT APPLY
2=OOES NOT APPLV
3=BUSY
4=CHA NNEl-E NO
5=OEVICE-END
6=UNI T-CHECK
1=UNIT EXCEPTION

DVPE ENTRY POINTS
IwRREQ -- FROM -BSWI- TO HANDLE A SHARE REQUEST FOR ONE
OF THE FOllOWING.
1.
ATTENTION
5. NOT READY TO READY
2. READ SHARE REQUEST
6. LOGOUT
3. WRITE SHARE REQUEST 7. ALTER/DISPlAY
4. INTERRUPT STKO REQ
THE FOLLOwiNG BITS ARE TESTED AS NECESSARY TO
DETERMINE THE STATUS OF THE CURRENT OPERATION.
G1 BIT 5
ACTIVE BIT
GO BIT 0 -- SECONDARY BIT
PO BIT 4 -- ENDING STATUS BIT

GOCAl

fROM 2540 ROUTINE TO SHARE WORD THAT MOVES
SENSE REG. AfTER THE WORD IS EXECUTED, THE
-DYPE- ROUTINE BRANCHES TO -DPTS- TO DO THE
SENSE OPERATION FOR EITHER THE 1052 OR 2540.

TWSEC1

FROM 1/0 INSTRUCTIONS ROUTINE -DCLA- FOR THE
fOLLOWING CONDITIONS.
START 110 -- ACT BIT=O. SEC BIT=l
TEST I/O ACT BIT:l. SEC BlT=lf CC FlAG=O
TEST 1/0 -- ACT BIT=O
OUTSTANDING STATUS IS STORED IN THE CSW.

NOATEN

HlTTW

hALT 110 ENTRY fROM 1/0 INSTRUCTIONS ROUTINE,
-DC lA- • THE AC TI VE AND SECONDARY BITS ARE
TESTED f[) DETERMI NE THE NECESSARY ACTION AND
CONDI HON CODE SETTING.

fROM WRAP TRAP ROUTINE.
TRV fOR AN INTERRUPT.

THIS ENTRY IS uSED TO

TWOFF7 -- START 110 ENTRY. cew FETCH HAS JUST BEEN
COMPLETED IN -OCLB-. READY IS TESTED. THEN
THE ROUTINE INITIALIZES FOR THE CURRENT COMMAND.

STTRSL -- TRANSlATE SUBROUTINE ENTRY. TRANSLATES
KEYBOARD CODE CHARACTERS TO EBCDIC. USED BY
ALTER/DISPLAY ROUTINE, AS WELL AS DURING A
READ REQUEST CYCLE.

CLOAD=*E60, EC lEVEL:128211
ADOR

WORD

iF 10
IH2
iF 14

H8f

tH6

IF18
lFIA
IFIC
IF IE
11'20
lF22
IF24
lF26
IF28
IF2A

FA80
80C4
SC2R
C832
CEAO
JES5
OHO
1f28

3C8.3
BlCA
CEAA
2F04
9A90

IF2C
IFZE
iF 30
IFOE
I FOC
IFJ2
IFJ4
IF 36
IF38

CE39
ZEit]
C421

IF 3A
IF3C
IF3E
lF40
IF42
IF44
IF46
IF48

2485
DEAL
2ECl
CE90
FEBl
3423
9F20
C47D

IF4A
IF4C
IF4E
IF 50
IF 52
iF 54

2EOl
EED2
3045

FEBI
AAA2


lZE4
24A2.
24A4
24A6
24A8
24AA
24AC

24AE
24BO
24B2
24B4
24Bb

24B8
24BA
24BC
24BE

1545
9F6C
BOCC
<;f6A
80C4
54F9
6664
<;A98
<;028
1485
lC83

"An

2EOl
5FF9
C4SA
AAA2
1045
IF28
HC2

24C4

3045
OF4S
C4E5

24e6

HOO

24CB
24CA

Of3B
C499

24ce
24CE

20C7

24CO
24(2

2400
2402
2404
2406
2408
240A
240C
240E
241::0

24E2

OF 1B
C495
CF98
C493
OFAB
C48B
3085
2E23
15C 5

F200
<;F80

2480

1541

2482
2484

9A90

2486
2488
2498

249A
249C
249E

24AO
2492

C H)8

3485
9030

2EC3
0560
A566
<;258

93CA

2496

3523
2F08
.. f6b

248A

3F20

2494

SEQUENCE NO.
OYPE
OYI'E
OYPE
OYPE
OYPE
[)YPE
DYPE
DYPE
[)YPE
DYPE
OYPE
[) YPE
OYPE
OYPE
OYPE
DYPE
[)YPE
OYPE
DYPE
OYPE
lJYPE
DYPE
DYPE
OYPE
[)YPE
OYPE
OYPE
DYPE
DYPE
[)YPE
DYPE
OYPE
OYPE
OYI'E
DYPE
DYPE
DVPE
DYPE
DYPE
OYPE
OYPE
DYPE
OYPE
DYPE
DYPE
OYPE
OYPE
OYPE
DYPE
OYPE
OYPE
OYPE
[)YPE

LA8EL

101
108
109

RQNOf

110
111

Ext TS

liZ
113
114
115

AOlMA

*HIOfF1
TWOFF8

116
111
118
119

120
ill

122
123

124
125
126
121
128
129
1.30

CONTUE

NONRDV

IlL
132
133

134
135
136
137
138
139
140
141

142

NOTROY

143
144

NOTCCS

145
146

NOTCCA

141
148
149

150
l51
152
153
154

ARPCI
NOOPRA
KKKKKK

155

156
151

WRTACR
WRI T

158
159

REAOOP

NEXTSEQ

NEXTtA8EL

STATEMENT

Gl=Gl*-K40
ADI MA
8R IF G04= 1
054 AOIM
8R
011 CRLF
BR
053 WROBIT
BR
START I/O ACTIVE 0 SECONDARY 0
ceOM 058 LSAVEB
SAL
Hl=GO
0=0"2
184 PUTUCA
BAL
168 GETUCW
BAl
GO=GO*-K80
PO=PO*-K08
181 PUTUC14
BAL
HO=O
Hl=H1
BR ( f ZNZ
125 CONTUE
SSWI 066 RESTRH
BR
Pl=Pl*-K40
RST TA K=C2
129 NONROY
BR IF TT2=0
Pl=Pl$K40
Z=HIOK04
163
SENSE
BR IF Z=O
142 NOTRDY
BR IF TT 2= 1
l=HIDKO 3
151 NOOPRA
BR IF l=O
1'1=0
Z=HlaKO 1
151 WRIT
BR IF l=O
l=HloK09
156 WRJACR
BR IF l=O
l=HICKOA
159 RE,600P
BR IF l=O
Pl=Pl$K80
HO=OSK02
Gl=Gl*-KCO
146 NOlCCA
BR If 001=0
064 QFLI P
BR
Gl=Gl*-K44
180 PUTUCS
BAL
150 ARPCI
BR IF G14=0
GO-=GO$K80
DPTS 071 NOPCIF
BR
HO=OSKOC
144 NOTCCB
BR IF Gll=O
DCDM 048 CHANOK
BAL
CCOM 066 LRSTRB
BAL
OClB 039 CHAIN
BR
Gl=Gl$K02
SET T A K=40
BR
051 MORE
SET TA K=82
110

CLOAO=*E60. EC lEVEl-=128211
COMMENTS
RE SET CC FLAG
BR IF o-CDUNT BI TIS SE T

SAVE P ANO I
MOVE COMMAND CODE
ADJUST UCW ADR REG TO DATA ADR
STORE DATA AOR AND COUNT IN UCW
GE T UCW, SENSE BYTE, SET MODE
RESET SECONOARY BIT
RESET ENOING STATUS BIT
STOR E UC W E xc EP T UN ITS TA TUS
CLEAR UNIT STATUS REG
BR IF NOT CHAIN DATA
GO RESTORE CPU MODE
RESET INTERVENTION REQUIRED BIT
RST REAO, WRITE, ANO SHARE REQ
BR IF READY
SET INTERVENTION REQUIRED
BR IF SEN SE COMMAND
BR IF NOT REAOY
BR IF NO-OP COMMAND
CLEAR SENSE REG
BR IF WRITE COMMAND
BR IF WRITE ACR COMMAND
BR IF READ COMMAND
SET COMMAND REJECT IN SENSE REG
SET UNIT CHECK IN V-SfATUS REG
RESET CC, CD IN FLAGS/OP REG
BR NOT CHAINED FROM PRIOR CCW
GO SET SEC BIT, TRY FOR INTRPT
RESET CC FLAG AND ACTIVE BIT
GET NEW UNIT STATUS, STORE UCW
BR IF NO pel FLAG
SET SEC BIT IN CH STATUS REG
GO MOVE STATUS AND STORE IN CSW
SET CHANNEL END. DEVICE END
BR IF NO CC flAG
STORE UCW, RESTORE P I, CHAIN
GO RESTORE P [, THEN CHAIN
GO GET NEXT CCW fOR CHAINING
SET BIT 6 FLAGS/OP REG
SE T WR I TE LArCH
GO STORE UCW. RESTORE CPU MOOE
SET READ, INITIAL PRTR LATCHES

PAGE 205

ADOk

WORD

L4t1C
24SE
2490
24E4
24E6
24E8
24EA

EB90
4FfF
E 211
DYPE 212

PUTUC.W

PUTUCA

*
*
*TkSEC7

TNRCNT
ZAI SI
ZAOSI

ZA TEN

*HlTTW

BR I f TU6-0
TE-HI
BR
PO=PO$K08
BAl
H1=Pl
BR

BR I f INITIAL PRfR NOT SET
SEND CHARACTER TO 1052 DATA REG
GO STORE UCW. RESTORE CPU MODE
SET ENDING STATUS BIT
STORE UCW EXCEPT UNIT STATUS
140 VE SEN SE REG
GO SHARE PR INTER SENSE ROUJI NE

DI-0-K09
DO-DOL
OO-DO*-KOE
SET MODE K- 20
RDH P AS.0+2
RDH G AS,D+2
ROH V AS,0+2
RDH U AS, 0+2
HO-=VO
Dt-0-K07
RTN

SE T AUX STORAGE
ADDRESS
OXF6
SET PR-KB MODE
GET PROTECT KEY. SENSE BYTE
READ CHNl STATUS. FLAGS/a?
DATA ADDRESS/UNIT STATUS
COUNT fiElD
MOllE UNIT STATUS
RESTORE UCW ADDRESS TO F8
UCW STORE
MOVE UNIT STATUS
SET ADORE SS TO OXF6
STORE SENSE 8YTE
CHANNEL STATUS, FlAGS/OP
OATA ADDRESS/UN .. T STATUS
COUNT F I EtO
RESTORE UCW ADDRESS TO F8

VO=HO
Dt=o-K09
STH PAS. 0+2
STH GAS. 0+2
STH V AS,D+2
STH U AS.0+2
01-0-KOl
RTN

Ol=0-K09
ROB Tt AS,O
T I-T IH
ST8 Tl AS,O
0=0+2
SET MODE K=20
BAl.
RST T A K=20
8R I f G15a 1
BR IF GOO=l
BR I f TT2=1
BR
8R
BR
DO-OO$K02
8R IF HOO: 1
8R
BR

STAR T 110 ACT-O, SEC:l ( 007:0)
TEST I/O AC T= 1, SEC-I. CC FlAG-O
TEST 110 ACTIVE=O
SET ADORE SS TO OXf 6
READ SENSE BYTE
RESET SENSE BITS 4-7
STORE SENSE BYTE
INCREMEN T UC W ADORE SS TO FS
SET PR-KB MODE
GO READ CHANNEL AND UNIT STATUS
RESET MICROfORCE LATCH
BR IF ACTIVE BIT IS ON
BR IF SECONDARY 81T IS ON
BR I f INTERVENTION REQUIRED
GO SET CPU MODE, COND CODE 0
GO SET UNIT CHECK, STORE CSW
GO TE ST UNI T STA TUS
SET 00 6 FOR PTR RTN TO BR ON
BR I f ATTENTION BIT IS ON
SHARE PTR R TN, THE N STORE C SW
GO RESET I.B., THEN STORE C SW

BAl
SET MODE K- 20
BR IF GOO-l

GO READ CHANNEL AND UNI T STATUS
SET PR-KB "WOE
BR I f SECor-WARY BIT IS SE T

*
*
*

192
193
194
195
196
197
198
199
200
20t
202
203
204
205
206
207
208
209
210

ClOAD:*E60, EC LEVEL-128211
COMMENTS

STATEMENT

ERRQ 083

RDCHST

204
205
203
eCOM 154
DPTY 013
OPTT 023

ZAlSI
ZAOSI
TNReNT
CCOB
UCENT
RESTES

ZATEN
208
SHARE
DPTT 049
DEVE
DPTT 061
HAlT 10
RDCHST
ERRQ 083

221

ZHACTV

PAGE 206

AVDR

WORD

OEB2
OEB4
OEB6
OEAO
OEB8
OEBA
OEBC
OEBE
OEAl
OEA4
OEA6
OEA8
OEU
03AO
03A2
03A4
03A6

D139
EEAO
AAF4
88AC
If 00
2f08
3483
8800
D52A
3E83
6664
1E6A
8aCE
8DC4
A508
9028
9f20

311A
3I7C
H1E
3180
3182
3184
j 186
3188
318A
318C
3l8E
3190
3192
3194
3196
3198
319A
319C
319E
3lAO
31A2
HA4
3lA6
3lAA
HAC

5AfF
5F 19
IIC 5
CflO
2055
21BD
218B
5fOO
4fFF
OF20
I28E
C483
FC98
llCB
C482
EOB1
C820
DB03
EB20
Ollf
C4A9
iFBO
C48A
lF70
C48A
lllB

31AE
31BO
31B2
31B4
HB6
31B8
31BA

C482
CB34
EB39
IFFD
C48A
114B
C482

HAS

SEQUENCE NO.
OYPE
DYPE
OYPE
DYPE
DYPE
DYPE
DYPE
DYPE
OYPE
OYPE
DYPE
DYPE
OVPE
DYPE
DYPE
DYPE
DYPE
DYPE
DYPE
DYPE
OYPE
DYPE
DYPE
DYPE
DYPE
DYPE
O~PE

OVPE
OYPE
OYPE
OYPE
DYPE
DYPE
DYPE
DYPE
DYPE
DYPE
DYPE
DYPE
DYPE
DYPE
OYPE
DYPE
DYPE
DYPE
DYPE
DYPE
DYPE
OYPE
DYPE
OYPE
DYPE
DYPE

LABEL

213

214
215
216
217
218
219
220
221
222

ZHAO
ZHTERM

NEXTSEQ

DC LA

223

224
225
226
221
228
229
230
231
232
213
234
235
230
237
238
239
240
241
242
243
244
245
24&
241
248
249
250
251
252
253
254
255
250
251
258
259
260
261
262
263
264
265

IHERE
PRGCHK

* SHRSL
BACK

lOWEQ
LOWCSE

LOWAQ

LOWBQ

LOWDQ
LOWCQ

*
LOWFQ

DClA
eeOM
DCOM

STATEMENT

BR If GI5:I
BR IF TT 2=0
BR
BR
RST T A K=80
SET TA K=40
GO=GO$K08
BR
220 HOHO
BR If Gll=O
225 ZHERE
HO=HO$K08
0=0+2
STH HAS, 0-2
BR
219 DYPADD
BAL
058 LSAVEB
BAl
049 REOSTR
BAL
168 GETUCW
BR
010 NOAT EN
NEW TRANSLATE ROUTINE
Hl=f I
Ul=Hl
U1=U1*-KCO
BR If HI0=0
242 LOWCSE
UO=O$K50
Ul=U 1 +KBO
UI=Ul+K08
ROB HI AS,U
TE=H1
RST fA K=02
RTN
BR If I=O
235 BACK
BR IF LINI
24& LClWAQ
U1=UloKOC
BR If ZNZ
235 BACK
8R If HZ=O
259 LOWfQ
BR IF H14=O
250 LOWBQ
BR If Hi5= 1
235 BACK
BR IF H16=1
256 LOWC~
Z=U 10K 11
BR IF Z=O
254 LOWDQ
H1=HloKBO
BR If ZNZ
239 lOWEQ
Hl=HloK70
BR If INZ
239 lOWEQ
Ul=UloKOl

217
216
CCOM 165
OelA 226

ZHACTV

NEXTLABH.
ZHTERM
ZHAO
CC3B
STORO

235
261
263

BACK
LOWGQ
LOWHQ

239

LOWEQ

235

BACK

LOWGQ
LOWHQ

BR IF INI
BR If H14=O
BR If Hl6= 1
Hl=H1oKFO
BR If ZNZ
Ul=UlaK04
BR If ZNZ

ClOAD=*E60, EC lE VEl=128211
COMMENTS
BR If ACTIVE BIT IS SET
BR If NO INTERVENTION REQUIRED
GO SET CPU MODE, CO NO CODE 3
GO ZERO STATUS, STORE Csw
RESET READ LATCH
SET WRITE LATCH
SET o-COUNT BIT
GO RST ce, co FLAGS, STORE CSW
BR IF ~O ce fLAG
SET CHANNEL END
SET UCW ADDRESS TO UNIT STATUS
STORE UNIT STATUS IN UCW
GO TEST CC flAG
GO SAVE P, I
GO STORE LCW
GET UCW, SENSE BYTE, SE T MODE
GO TO ENDING ROUTINE
GET KEYBOARD CHARAC TER
MOVE CHAR TO WORK REG
RESET CASE BITS -- 0,1
BR IF LOWER CASE
SET MOOLE AODR Of TABLE 50XX
ADD XXB 8
TO BI AS THE TA SLE ADORE SS
GET EBCOIC CHAR fROM TABLE
SEND CHAR TO 1052 OATA REG
SHARE RESET TO ALLOW 1052 CYCLE
RETURN TO LINK AODRESS
BR If CHAR IS A BLANK
BR IF NOT OA SH, AT. AMPERSAND
MODIfY TABLE ADDR
UNCONDI TlONAL BRANCH
BR IF NUMERIC OR POUND SIGN
BR IF NOT KB 8 BIT
BR If KB 4 BIT
BR IF KB 2 BIT
BR If SLA SH
TRANSLATE ALPHA CHAR TO EBCDI C
TRANSLATE CHAR TO EBCDIC SLASH
MODIFY TABLE AODR FOR COMMA,
DOLLAR SIGN, OR PERIOD
BR IF NOT KB 8 BIT
BR If KB 2 BIT
TRANSLATE NUMERIC TO EBCOIC
MOO TABLE ADDR FOR 0 OR POUND

PAGE 207

ADDR

WORD

SEQUENCE NO.
DYPE
OYPE
OYPE
DYPE
OYPE
DYPE

4C7E
E6E7
6015

5uB8
50CE
~UE4

266
267
268
269
270
271

lABEL
*
ATABlE
C
C
C
AEND

NEXTSEQ

NEXTlABEl

ClOAD=*E60. Ee lEVEl=128211
COMMENTS

STATEMENT

FOLLOWING IS THE 1052 XlATE TABlE
ADDR=50B8
XAUX' 401E4C5E7A6C 706E5C ItO 50 7FOOOOF 0784A6FE2E3E4E5'
XAUX' E6E1E8E96B4F7C2 500C06DDlO2D3Dlt0506D7D8D9565A'
XAUX' 60 I516004ECIC2C3CltC5C6C1C 8C 9ltB5F 5005'

*******.** •••• ********.****.**.***

* CROSS REFERENCE FOR eSECT OYPE *

•• ******.******.**.****.*** •••••••
GYPE
OYPE
DYPE
OYPE
OYPE
OYPE
OYPE
OYPE
OYPE
DYPE
OYPE
DYPE
LlYPE
DYPE
DYPE
DYPE
DYPE
OYPE
DYPE
OYPE
OYPE
GYPE
DYPE
OYPE
OYPE
GYPE
DYPE
DYPE
DYPE
DYPE
DYPE
DYPE
OYPE
DYPE
LlYPE
DYPE
GYPE
OYPE
DYPE
GYPE
DYPE
DYPE
OYPE
JYPE

002
008
010
015
019
020
021
022
025
034
039
040
041
051
053
054
057
062
064
066
061
011

083
086
oa9
093
094
101
102
lOa
110
III
113

125
129
11e2

144
146
150
151
154
156
157

159

BS wi
DYPE
BwRP
LlYPE
DYPE
DYPE
DYPE
DYPE
OYPE
GYPE
DYPE
OYPE
GYPE
DYPE
GYPE
DYPE
D'rPE
GYPE
DYPE
DYPE
OYPE
DYPE
DYPE
DYPE
DYPE
GYPE
GYPE
DYPt:
DYPE
DYPE
DYPE
DYPE
DClS
GYPE
IH'PE
DYPE
DYPE
DYPE
GYPE
OYPE
GYPE
DYPE
OYPE
OYPE

OU
030
089
Oll
017
002
00
ce6
023
022
051
031
lCl
04!:!
043
lC':I
054
034
145
041
049
039

oeo

083
066
lC5
0<;2
059
0<;1
le3
lC8

0<;4
214
123
121
131

L52
144
148
l33
070
138
136
140

DYPE 001

OYPE 025

O't'PE all

OVPE 158
OYPE III

o YPE 059
DYPE 062
DYPE 110

OYPE 162

OYPE 028

OYPE 033

DYPE 065

DYPE 229

PACE 208

CLOAD=*E60. EC lEVEl=128211

UYPE
DYPE
DYPE
DYPE
DYPE
DYPE
DYPE
DYPE
DYPE
OYPE
DYPE
DYPE
OYPE
OYPE
OYPE
DYPE
IJYPE
OYPE
OYPE
OYPE
DYPE
DYPE
DYPE
DYPE
DYPE
OYPE
UYPE
DYPE
OYPE

162
163
165
168
180
181
184
191
203
204
205
208
210

no

217
221
£25
226
231
235
219
242
246
250
2~4

256
259
261
263

DYPE
DYPE
ERDR
DVPE
DYPE
DYPE
DVPE
UCLA
DYPE
DYPE
DYPE
OYPE
DCLA
DYPE
DYPE
OYPE
DYPE
OClR
AlOP
DYPE
OYPE
DYPE
UYPE
OYPE
DYPE
OYPE
DYPE
DYPE
DYPE

*************************.**.*****
* CROSS REFERENCE FOR CSECT DYPE *
*******.**** •••• *****.** •• ********

HO
130
lC4
005
015
051
116
3(8
2Cl
1'79
200
2C6
218
214
213
212
221
037
245
242
253
234
243
247
2~1

249
246
259
2eO

DYPE 117
DYPE 068
DYPE 120

OVPE 228
OYPE 086
DVPE 164

DYPE 096
DYPE 245
DYPE 255

DYPE 248
OYPE 262

DYPE 147

OYPE 258

DYPE 264

PAGE 209

CLOAO:*E60, EC LEVF-L=128211

ECOL

DESCRIPTIVE

PAGE 210

TEXT

ENTRY POINTS
MASK

AODR

194A
194C
194E
1950
1952
1954
1956
1958
195A
195C
195f
1960
1962
1964
1966
1968
196A
196C
196E
1924

ENTRY IS HADE TO THIS LABEL fROM THE EPCH
ROUTINE WHEN A COLUMN BINARY OPERATION
NEEDS A MASK TO START. THE PUNCH ROW IMAGE
BUffER HAS BEEN fILLED WITH ONES, THE DATA
ADDRESS AND COUNT HAVE BEEN STORED. 2540
MODE AND CPU lONE HAVE BEEN SET.

WLR

ENTRY IS MADE TO THIS LABEL FRCM THE EPXf
ROUTINE WHEN A WRONG LENGTH RECORD HAS BEEN
DETECTED. THE WLR BIT IS SET AND STORED
IN THE INDICATOR BYTE IN AUXILIARY STORAGE.
THE RESIDUAL COUNT IS STORED AND THE ERRQ
ROUTINE IS BRANCHED TO fOR A UCW READOUT.

MOVWLR

ENTRY IS MADE fROM THE EPXf ROUTINE AfTER
THE PUNCH DATA HAS BEEN TRANSLATED TO ROW
IMAGE. THE RESIDUAL COUNT .IS STORED AND
THE ERRQ ROUTINE IS BRANCHED TO FOR A UCW
READOUT.

WORD

241:5
2Af7
5AB9
4EA6
5B<;9
5659
OlE3
fOEl
211B
0861

311B
E824
261B
F4A4
2DA 1
5Eeo
3E 1.3
7ECO
997C
5138

SEQUENCE NO.
fCOL
EcaL
fCOL
ECOL
fCOl
ECOl
fCOL
EcaL
EGOL
ECOL
EcaL
ECOl
ECOL
ECOL
ECOL
ECOL
ECOL
ECOl
ECOL
ECOl
EeOL
ECOL

001
002
003
004
005
006
007
OC8
009
010
Oil
012

LA8EL
T
*
MASK

NEXTSEQ

NEXTLABEl

ENTRY IS MADE FROM THE ERCX ROUTINE AFTER
THE CCW COUNT IS ZERO fOR A DATA CHAINING
OPERATION. A BRANCH TO OCLB IS MADE TO
PICK UP THE NEXT CCW.

CNTLRG

ENTRY IS FROM THE EPCH ROUTINE DURING A
DATA CHAINING OPERATION TO DETERMINE IF THE
LAST CCW RESULTED IN AN 8 COLUMN GROUP
BEING SET INTO THE PUNCH IMAGE BUFfER. IF
AN 8 COLUMN GROUP WAS NOT COMPLETED BY THE
LAST CCWf THE INFORMATION IS READ BACK FROM
THE BUffER, COMPLETED, AND STORED BACK INTO
THE BUffER.

NEWMSK N

ENTR Y I S MADE TO THI S BRANCH SET FROM THE
EPXf ROUTINE TO FETCH A NEW COLUMN MASK
AS INDICATED BY THE CONTROL REGISTER -10-.

Sf 4TEMENf

COMMENTS

PUNCH COLUMN BINARY AND DATA CHAIN ING
GO=OSK80
TO=OSKff
T 1=TO

fIRST MA SK
RST ALL REG'S

H==l

AGAIN

014

ClEVEN

014

CTEVEN

022

RDCATA

022

ROOAT A

059

HAlf

013

014
015
016
017
018
019
020
021
022

GOCHAN

C 'EVEN
Wl.R

RODATA

Il=T1
G1=Tl
MASK FOR ODD cr
Z=Ul*-KOE
BR If ll=O
BR If CCW C T EVEN
Ul=U If-KO 1
MAKE CT EVEN
BR If PO BIT 5=1
BR IF TOTAL CT EVEN
Ul=Ul-KOl **TOTAL CT ODD, TAKE 1 COL lE 5S
SR If PO BH6=0
BR If LOwER HALF
DO=OO+KOI
Wl R CTR f- 1
BR If AC=O
BR IF NOT WLR
Pl=O-KOA
WLR, P=10f5
RDH H AS,P+O
RO INO BYTE
HO=HOSKOl
WLR INDICATOR
STH H AS,P+O
BR
ROB 01 V+l
READ OA TA

AOOR

WORD

1926
1928
192A
192e
192E
1930
1932
1934
1936
1938
193A
193C
193E
1940
i'H2
194ft
1946
1948
190C
190E
1'910
1912
1914
1'116
1918
191A
191C
191E
1920
1922
1'l10
1972
1974
1976
1918
I97A
191C
197E
1980
1982
1984
1986
1988
198A
198e
198E
1990

E12A
6541
F72E
6B41
C332
6F41
0336
6941
E33A
6A41
F33E
6E41
5224
282B
311B
C480
5819
6345
75eo
20AB
7BCO
2DAB
7FCO
lClB
fb71
5959
5AB9
5EF9
2oA6
'l90e
2DCD
2DFB
5119
C4fD
08AD
EaeA
lC28
E814
562<;
7lA2
5e99
A062
A044
2Ee7
C538
f831
5209
93eA
1525
3485
5fAO
7CA8
9Fal

1992
1986
1988
198.A
198e
19BE

SEQUENCE NO.
ECOL
ECOl
EeOL
EeOl
EeOl
EeOl
EeOl
ECOl
ECOL
EeOL
EeOL
ECOL
EeOL
EeOL
ECOl
ECOl
EeOl
EeGl
ECOl
EeOL
EeOL
ECOl
ECOL
ECOL
EeOl
ECOL
ECOL
ECOl
EeOL
ECOL
ECOL
ECOL
EeOl
EeOl
ECOL
ECOL
ECOL
ECOL
ECOL
ECOl
EeOl
ECOL
EeOl
ECOL
EeOl
EeOL
EeOl
EeOl
ECOL
ECOL
ECOl
EeOl
EeOl

023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
057
058
059
060
061
062
063
064
065
066
067
068
069
070

011
012
080
081
082

LABEL

NEXTSEQ

NEXTLABEl

025

N

N

027

NE

NE

029

NEX

NEX

031

NEXT

NE XT

033

NEXTB

NEXTB

035

NEXT BT

041

STORE

124

NEWMSK N

053

oON2ND

041

STORE

059

HALf

003

MASK

092

lOHALF

ERRQ 087
ERRQ 092

RPHUCW
RDIND

012
071

NOCO
OVERCT

NEXTBT

TEMPRY
STORE

DON2NO

HAlf
MOIIWlR

GOCHAN
OClB 039

CHAIN

OVERet
Noeo
STKOlO
STKNEW
083

STKSEl N

STATEMENT

elOAD=*E60. EC lEVEL=128211
COMMENTS

BR IF 01 BIT 2=0
G1=Gl!lGO
BR IF 01 BIT 3=0
T l:T ItlGO
BR I f 01 BlT4=O
Hl=HltlGO
BR I f 01 BIT 5=0
11= IltlGO
BR I f 01 B1T6=0
TO=TOIlGO
BR IF 01 BU7=0
HO=HOtlGO
EVERY OTHER B VTE
V=V+l
CONTROL REG + 2
10=10+K02
CCV. COUNT - 2
Ul=UI-KOl
8R I f 1=0
6R I f CT=O
01=10
BREAK FOR NEW MASK
N=Oll
STORE INTO PCH IMAGE
STB Gl AS.P+O
BUfFER
P1=Pl+KOA
ST 6 T 1 AS. P + 0
P1=Pl+KOA
STB HI AS,P+O
PO=POtlKO 1
**INVERT 1ST 3 OR 2ND 3 I NO
BR I f STORE 2ND 3
BR If PO BIl7=1
MOVE 2ND 3 BYTES
Gl= 11
T l=TO
Hl=HO
Pl=Pl+KOA
BR
GO TO STORE 2ND 3
Pl=Pl+KCO
POINT TO NE XT 6 COL'S
P l=P 1 +KOF
Ul=Ul
BR IF z=o
BR I f CCW C T=O
l= 10aKAO
fORCE LOWER TO STOP
IN CASE Of WLR
BR I f HINI
INVERT UPPER OR LOWER HALf BIT
PO=POIlK02
BR I f lOWER HALF
BR I f PO BlT6=0
MOVE WLR CTR
VO=OO
STORE RESIDUE COUNT
ST B UL DA,AC
STORE LX REG
Il=PO
READ PUNCH UCW
BAL
READ INDICATOR AND SENE
BAL
ZERO UNII STATUS
HO=O
BR IF NOT CoA
BR IF Gl B ITO=O
BR IF WlR - OVER COUNT
BR I f PO BlT7= 1
COA, STORE WlR CTR IN PL
P1=VO
GO CHAIN
BR
SUPPRESS SL I
Gl=Gl*-K20
SECONDARY BIT
GO=GO$K80
GET OLD STACKER INFO
ROB Hi AS,I+a
STORE NEW SIrAeKER INfO
S T H PAS. T+2
Nc::Hl BITS 123

PAGE 211

AOOlt

WORD

1800
1802
1004
1806
1808
180A
180e
l80t:
1810
1994
1996
1998
t99A
19ge
199E
19AO
19A2
19M
19Ab
19A8
l'lAA
19AC
19AE
19BO
19B2
1984
19CO
1ge2
19C4
1ge6
19C8
1geA
19ce
1geE

2FC8
98CA
2FOe
saOA
2fOA
221B
f491
3C13
9llA
5C89
51A2

19VO

1'102
1904
1906
1908
190A
190e
1A 40
1A42
1A44
1A46
lA48
lA4A
lA4C
LA4E
LA 50
1A52
LA 54
U56

~2E2

D8lE
5224
OlE3
FOAB

21FF
0829
212B
lC4B
5805
2ueB
2030
5E89
FOCO
994A
2030
202B
5Feo
309B
58eo
3D9B
55eo
lelB
FeS4
9946
5fE9
5BAS
5599
309B
99C4
C862
<;90e
2445
9AS£:
2425
"ASE
2415
9ASE
2483
9ASE
2443
SA5E

SEQUENCE NO.
ECOL
ECOl
ECOl
EeOL
EeOl
EeOl
ECOl
EeOL
EeOl
EeOl
EeOl
EeOL
EeOl
ECOl
EeOl
EeOl
EeOl
ECOl
ECOL
ECOL
EUll
ECOl
ECOL
ECOl
ECOl
feOL
EeOl
EeOl
EeOl
teOl
EeOl
teal
teOl
EeOl'
EeOl
ECOl
ECOl
EeOl
feOl
EeOl
feOl
EeOL
feOl
EeOl
EeOl
EeOl
ECOl
EeOl
EeOl
EeOl
ECOl
EeOl
ECOl

083
084
085
086
087
088
089
090
091
092
093
094
095
096
097
098
099
100
101
102
103
104
105
106
101
108
109
110
lil

NEXTSEQ

LABEL

NEXTlABEl

STKSEl 0
088

COUNT

088

COUNT

091

NOUNCT

SfKSEl 2
STKSEl 0\
COUNT

NOUNCl
lOHAlf

eXfR 122

WlRBR

OKeT

103

EVENCT

102

OODNOT

109
003

eo MULE
MASK

119
039

SECOND
TEMPRY

111
141
041

READ
NOTPOl
STORE

139

BRNeH

139

BRNCH

139

BRNCH

139

BRNCH

BR

BRNeH

GO'-=0$K04
Bf{

OOONOT
EVENeT

eNTlRG

eOMOLE
READ

112
113
114
115
116
U8
119
120
121
122
123
124
125
126
127
128
129
130

SECOND

NEwMSK 0
NEWMSK 2
NEWMSK 0\
NEWMSK 6

HI
132
133
134
135

NE~MSK

8

NE WMSK A
139

CLOAD=*E60, EC LEVEL=l28211
COMMENTS

POCKET PllRU0311
SET P K=40
BR
SET P K=bO
POCKET P21RU3l&0251
BR
SET P K=50
POCKET RP3(RU31E025·'
VO=VO+KOl
INCREMENT WLR crR
BR If NO UNDER COUNT
BR If Ae= 1
UNDER COUNT,SET WlR INDICATOR
PO=PO$K01
INIERAGATE CHAINING AND SLI
BR
RE STORE CONTROL CTR
10=UO
~ESTORE eew ADJUSTED COUNT
ROB U1 OA,Ae
RESTORE DATA ADOR
RDH V DA,Be
BR IF TOTAL e TO~~
BR IF PO BIT5=0
TOTAL (1 EVEN
V=V+l
MASK FOR ODD COUNT
I=Ul*-KOE
BR iF ll=O
BR IF EVEN CT
MAKE IT EVEN
Ul=Ul+KfF
BR IF TOTAL eT EVEN
BR If PO BIT5=1
U 1=UI+K02 **TOT AL CT ODD, MAKE 1 COL MORE
PO=POoK04
**000 CT, flIP TOTAL ODD CT BIr
**RECOVER per IMAGE BUFFER ADOR
PI=IOXL
Pl=Pl+KOC
PI= PI +K 30
10=10
BR IF LIN l
BR
Pl=Pl+K30
**eo STARTED FROM THE MIOOlE OF
Pl=P1+K02
**ROW FORM BYTES, CHANGE AOOR
TO READ THEM OUT BACKWARDS
ROB HI AS,P+O
Pl=Pl-K09
ROB T 1 AS. P+O
Pl=Pl-K09
ROB Gl AS,P+O
PO=POIlKOl
**INVERT 1ST 3 OR 2ND 3 I NO
BR IF ftD 1ST 3 BYTE S
BR iF PO BIT1=O
RD All 6 BYTE S, GO
BR
MOVE THE LOWER 3 BYrE
HO=Hl
TO=Tl
11=Gl
P1=PI-K09
SUBr OA ONCE MORE
BR
**GO READ THE UPPER 3 BYTES
BR IF PO BIT 4=0
BR IF FROM EP XF
BR
**DONE 8 COLUMN,GO STORE THEM
GO=0$K40
BR
GO=O$ K20
BR
GO=O$K 10
BR
GO=O$KOB

097
OKeT

il1

STATEMENT

PAGE 212

ADDR

WORD

lA58
lA 5A
lA5C
tA 5E
tAbO
1A62
lAb4

2423
SASE
2413
C864
<)956
9530
9566

SEQUENCE NO.
ECOl
ECOl
ECUl
tCOl
ECOl
ECOL
ECOL

136

lABEL

NEXTSEQ

NEIIMSK C
139

1.17

138
139
140
141
142

NEWMSK E
BRNCH
NOTPOl
POtNOT

142
009
EPXF 069
EPXf 016

NEXT lABEL

ClOAD=*E60. EC lEVEl=128211
COMMENTS

STATEMENT

GO=0$K02
BR
GO=O$KO 1
BR IF PO BIT4=O
POlNOT
BR IF FROM EP XF
AGAIN
BR
STORE
BR
**GOT NEW MASK BACK TO PXFR
UPCAT E
BR
**GOT NEW MASK BACK TO PXFR
**********************************
* CROSS REFERENCE FOR eSECT ECOL
**********************************
8RNCH

*

EeOL
EeOL
LeOl
[e.UL
[COL
FC iJl
tCOL
tCOl
fLOL
[COL
tCOl
t:C Ol
teOl
tCOl
teOl
I:::('Ol
tCOl
lCOl
I:COl
tCOL
t.:eOl
FCUl
tOCOl
lCOl
teUl
[eOL
tCOL
fCOl
teOl
l:::eOl
l::eOl
ECOL
ECOl
£COL

003
009
014
017
022
025
027
029
031
033
035
039
041
053
059
061
069
07l
012
083
088
091
092
097
102
103
106
109
111
119
124
139
141
142

EeOl
HOl
ECOl
EPXF
ECOl
EeOl
ECOl
ECOl
ECOl
ECOl
ECOL
EeOl
EeOl
ECOL
ECOl
EPXFt'RCX
ECOl
t::COl
EeOl
ECOl
EeOl
ECOl
ECOl
EeOL
fCOl
EPCH
EeOL
ECOl
t::COl
ECUL
ECOl
ECOl
fCOl

058
140
010
019
014
023
025

ECOl 108

EPCH 103

HOl 012
ECOL 016

on

029

031
033
118
038
047
021
OE2
03'1

EeOl 052

ECOL 125

ECOl 056

Ot8

061
OE2
OE4

ECOl 086

089 .

060
CS5

lCO
0<)8
01:6
107
123
117
040
127
124
139

EP XF 040
ECOl 129

ECO~

131

EeOl 133

EeOl 135

EeOl 137

PAGE 213

ClOAO=*E60, EC lEVEt=ll8211

EPCH

DESCRIPTIVE

PAGE 214

TEXT

ENTRY POINTS
ENTRY IS MADE HERE FROM THE ERDR ROUTINE
DURING A PUNCH WRITE START 110 OR A PFR.
THE INDICATOR AND SENSE BYTES ARE SET UP
AND SAVED IN LOCAL STO~AGE.

NPLH

HIGHeT

ENTRY IS MADE FROM THE ERDR ROUTINE WITH
A NEW CCW BYTE COUNT. TO DETERMINE IF AN
EXCESS COUNT HAS BEEN GIVEN. IF THERE IS
AN EXCESS COUNT, THE EXCESS IS STORED IN
AUX OXBE.

PICKUP

ENTRY IS MADE FROM THE ERDM ROUTINE TO
TEST FOR UNUSUAL COMMAND SEQUENCE. THE
READ INDICATOR AND WLR COUNTER ARE SET, ANY
EXCESS BYTE COUNT IS STORED IN AUX OXBE.
**********************************************************************************************************************************
NATI~E

INDICATORS AND SENSE BYTE

2540 PUNCH UCW FORMAT AND AUX LOCATIONS

OOEB
OOE9
COEA
DOEC-ED
OOEE-FF
***************************************************************

..*

*

*

*

*

*

lOft.
10F5
10F2
*******************************-*************

.. ** INDICATOR ** SENSE BYTE ** OLD STACKER **
*
*
*
*
*********************************************

CHANNEL * CHANNEL" UNIT * NOT * RESIOUAl * NEXT CCW
*
* STATUS * FLAGS * STATLS * USED * COUNT
* ADDRESS
*
..
*
*
*
*
*
*
***********************.***************************************
ChANNEL
STAI\JS

CHANNEL
FLAGS

UNIT
STATUS

0= SI::CON DAR Y
l=WLR
2=PROG CHK
3=PKOT CHK
4=NOT USED
~:NOT LSED
6: INTFCE CHK
7= [NT IN BFR

O=CHAI N DA TA
l=CHAIN CMD
2=Sll
3=SKJ P
4=PC I

O=NOT USED
l=NOT USED
2=NOT USED
3=BUSY
4=CH END
5=DEV END
6:UNH CHK
7=UNIT EXCEPT

AODR

WORD

~=ACTIVE:

6-=NOT USED
7=NOT USED

SEQUENCE NO.
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH

001
002
003
004
005
006
007
008

UBEL
T
*
*
*
*
*
*
*

NEXTSEQ
PUNCH

NEXflABEl

AND AUX lOCATI ONS

INDICATOR

SENSE BVTE

OLD STACKER

O=CHAlN DATA
l=STK SEL
2=STK SEL
3=0
4=PFR READ
5=COUNT STOR
6=PFR COUNT
7=WlR

O=CMD REJ
l=NOT ROY
2=NOT USED
3=EQUIP CHK
4:VAUDITY CHK
5=NOT USED
6=UNUSUAl tMD
7=NOT USED

O=II/OT
1 =STK
2=STK
3=0
4=NOT
5=NOT
6=NOT
7:NOT

STATEMENT

COMMENTS

sto

CMD DECODE & CHAINING
FOLLOWING INFORMATION-U
V
GO
Gl
HO

REG
REG
REG
REG
REG

CONTAINS
CONTAINS
CONTAWS
CONTAINS
CONTAINS

-

COUNT
DATA ADDRESS
CHANNEl. Sf ArUS
flAG
COMMAND BYTE

USEO
S EL
SEL
USED
USED
USEO
USED

AOCR

WORD

1204
1208
12CA
12 DC
12 DE
IlEO
12E2
UE4
12E6
12E8
UtA
12 EC

IFOO
FA14
6CF7
I:A53
CEe2
DE53
3C45
0[:66
3C.25
E853
CA48
3C23
2F40

UEE

i.462

UFO
12F2

1643
.. 2ec
<;8B4
2462
3643
2402
lC83
930C
EA52
DA53
01:'49
F4D2
EE53
EF84
2CC7

U06

1202

12e8
12CA
l"2CC
12CE
1200
12f1t
12F6
12F8
12FA
l2FC
12fE

1300
1302
1304
1306
1308

130A

noc

130E
1310

1.312
1314
1316
1318
131A
IllC
lHE
1320
1.322
1324
1326
1328
B2A
132C
l32E

S!H30

C8C8
2023
3CB3
lC23
3659
50C9
C4A3
3C53
4A06
2001
21A5
2e02
1B 19
7A09.
7AF2
8S64

llA2
72E2
F72C
98C4
C82B
(C42

SEQUENCE NU.
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCrl
EPCrl
EPCH
EPCH
EPCrl
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
tPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
CPCH
EPCH
EPCti
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH

009
010

LABEL

NEXTSEQ

NEXT LABEL

* NPCH

014
016

043

READ

017

032
021
032

COMREJ
STK1 BT
COMREJ

STKIBT

023

SSDONE

SSDONE

032
0:)4

COMREJ
NOTPFR

036
ERDR 138

MODE
CMDREJ

056
032
032

SHCTR
CLIMREJ
COMREJ

032
032
052

COMREJ
COMREJ
PI CKUP

ERDI-( 133
054

UEXPfK
SETP4

018
019
020
021

022
023
024
026
027
028
029
030
032
034
035
036

COMREJ
NOTPFR
MODE

031

041
043
044
045
046
047
048
049
050
052
053
054
055
051>
057
058
059
060
061
062
063
064
065
066
061
068
069
070
071
073
074

READ

PICKUP
SETP4
SETCTR
HI GHC T

Ob1

HICTO

HIC TO

ERRQ L02

STIND

GOBACK
SlAV

073
ERDR 146
011
087

ST AV
BACK
GOBAC¥.
(CSIO

STATEMENT
RST P K=80
BR IF HO BIT7=0
P()=PO*Hl
BR IF HO BIT 6: 1
BR IF HO BITO=O
BR IF HO BIT 1= 1
PO=PO$K40
BR IF HO BIT 1=0
PO=PO$K20
BR IF PO B1T6= 1
BR IF HO BlT4=O
PO=PO$K02
SET P K=04
SET MODE K= 16
DO=DO*-K04
BR
BR
SET MODE K= 16
DO=OO$K04
SET MODE K= 10
PO=PO*-K08
BR
BR IF HO BtT6=0
BR If HO BIT5:1
Z=HO+K40
BR If AC=O
BR IF HO SIT 2= 1
BR IF PS BIT 2=0
PO=O
BR
BR IF PO BIT 4=0
Pl=OSK02
PO=POSK08
PO=PO*-K02
DO=O-K50
UO=UO
BR IF l=O
PO= PO$K05
T=U
UO-=O
U1=OSKAO
SET S3
T LC=T 1-U l+e
TOC=TO-UO+C
STH T OA, BE
BAL
STB Ul D4,AC
SfH V OAt Be
BR IF 01 BIT 3=0
BR
BR IF PO BIT 4= 1
BR IF PO BlTO=O

CLOAO=*E60, EC LEVEL=128211
COMMENTS
tHO=OO IF DATA CHAINING)
RSI PCH & VAL CHKSIRU031~
BR TO CHECK IF READ COMMAND
CL EAI-( STKR
BR If 7,6 COMBINATION
BR IF STKR PI OR P2
BR IF 0&1 BITS IN COMMAND
RP 3
P2
BR iF PREVIOUS PFR WRI TE
BR IF THIS CMD NOT PFR
PFR WI-(ITE CMO,SET INDICATOP
SET PFR RESTARTtRU0251
PUNCH MODE AND ZONE
PFR INDICATOR fOR PCH TRAPI ETRPI
PChMODE AND ZONE
SET NOT PFR INDICATOR
SET feEl) INDICATOR!RST PFR READ)
BR IF 5-6 BIT COMBINATION
BR IF 0&1 B ITS NOT ON
BR If COL BIN
BR IF NOT UNIT EXCEPTION
PFR UNIT EXCEPTION,ALLOW FEED
SHARE UNIT EXCEPTION READER
BR IF PREVIOUS CMO I S A FEED
PREV A READ,SET UNUSUAL CMD BIT
SET READ INDICATOR
RST feED OR PFR WRI TE INDICATOR
SET WLR OO=AF
BR IF NO EXCESS COUNT
EXESS COUNT & WLR INDICATORS
MOVE COUNT TO T REG
GEl
E)(CESS COUNT
AND
STORE
IT
STORE
STORE ADJUSTED COUNT
STORE DATA ADDRE 5S
BR If PUNCH
READER,GO TO ERDR ROUT[ NE
BR If PFR READ! CC OR SIOI
BR IF NOT COA

PAGE 215

ADDR

WORD

1330

5CD9
59(;9
C8SE
58(9
D83F
5224
282B
5805
9960
2B(7
2C45
2DC3
28F7
5899
54AO
78A8
74C8
CD4C
D94C
5884
3CE9
20G7
EE63
1CB
<)B54
994A

1332
1334
1336
1338

133A
inC
133E
1340

1342
1344
134&
1348
134A
IHC

134E
1150
U5l
1354
USb
1358

135A
USC

135E
1360
13bl

EPCH
EPCH
EPCH
EPCH
EPCH
EPC ...
EPCH
EPCH
[:PCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPC'"
cf'CH
FPCH
EreH
lOP (,.H

010
021
023
032
034

036
043
052
054
056
057
C67

071
U73

085
087

092
10 1
103

SEQUENCE NO.
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH

ERDR
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
tPCH
EROR
EPCH
EPCH
tPCH
EPCH
EPCH
EPCH
EPCH
EPCH

018
019
080
081
082
083
084
085
086
087
088
089
090
091
092
093
094
095

LABEL

NEXTSEQ

101

GOEPXF

085

TOTEVN

EeOL 106

CNH.RG

TO TE VN
CCSI0

lOOP
092
092

090.

091
098
099
100
101
102
103

NEXTlABEL

103
GOEPXF
GOECOL

EPXF 003
ECOl 003

095
U18

ClOAD=*E&O, EC lE VEl= 128211
COMMENTS

STATEMENT
Pl:PO
PO: 11
BR IF PO SIT4=O
UO=IO
BR IF PO BIT 5= 1
V:V+l
10=IO+K02
Pl=IOXl

MOllE [NO TO PI TO SAVE CDA I NO
CDA,RESTORE PO
eDA FOR NO COL
STORE CONTROL REG
BR [F lOTAl COUNT EVEN
LA Sf TOTAL COUNT
wAS ODD
RECOVER BUfFER ADDRESS

SR

T 1:0
ec OR 510, T=lOOO
PO-=0$K40
P1=O$KOC
P=400C
IO=O$KFF
1= FFFF
Il=IO
XfER PCH [MAGE AREAtlOOO) TO
RDH G AS, T +0
PCH CHK AREA { 400e) AND STORE
5TH 1 AS. T+2
Ff BACK INTO PCH IMAGEIlOOO.
STH G AS,P+2
lOCP
BR IF PI BIT 0=0
BR IF NOT DONE
LOCP
BR IF NOT OONE
BR IF PI BIT 5-=0
1=1+1
00 NE. 1-= 0, P·=4084
PO=O-KEO
Pl=O
P= lFOO
GoECo!.
BR IF HO BIT 2=1
P= 15XX, DATA MODE lWRI TE
PO=PO*-KOA
PXFR
SIC, CC OR CDA
BR
MASK
8R
COL BIN,SIO,CC
*********************************.
* CROSS REFERENCE FOR eSECT EPCH *
**********************************

021

017 . EPCH 019
024
030
014
EKDR 130
04!l
052
041
059
058
073
Ulu

OEl
U14

oc;,

(Jeo
lCO

EPCH 096

EPCH 023

EPCH 043

EPCH 044

EPCH 04&

EPCH 047

PAGE 216

CLOAD=*E60, EC LEVEL=128211

EPXF

PAGE 217

DESCRIPT IV E TEXT

ENTRY POINTS
. P XFR.

ENTRY IS MADE HERE FROM THE EPCH ROUTINE
TO SET UP THE WORK AREA AND COUNTER. THE
DATA TO BE PUNCHED IS TRANSfERED AND SET
INTO THE ROW IMAGE BUFFER IN
COMPLEMENT FORM. SEE FEMDM DIAGRAM 5-114.

UPLlATE:

4[,; DR.

lB54
1856
IB 58
113 SA
IB5C
IB 5E
1860
IB62
IB64
1866
IB68
1S6A
IBcC
1B4e
18.4E
1B.50
1852
1B6E
1870
1B12
1t114

1B76
187d
iB 1A
1B Ie
1d 7E
1380

WORD

51G9
2A(;5
C06F
21f7
5119
51F9
51E9
5199
2485
261B
F4ce
5019
<;966
5B38
55AO
157B
9115
5805
588"1

FaDS
SICa
20AB
57CO
2DAB
5geo
2050
,)FCO

STORE

ENTRY IS MADE HERE FROM THE ECOl ROUTINE
TO STORE THE 12, 11,0,8, AND 9 ROW WORK
REGISTERS INTO THE ROW IMAGE BUFFER.
IF THE CCW COUNT IS NOW ZERO, A BRANCH
IS TAKEN TO THE ECOl ROUHNE. IF THE
COUNT IS NOT ZERO, A NEW COLUMN MASK IS
SET UP AND THE BUILDING OF THE PUNCH ROW
IMAGE CONn NUES.

ENTRY IS MADE HERE FROM THE ECOl ROUTINE
TO INCREMENT THE wLR COUNTER AfTE~ A NEW
COLUMN MASK HAS BEEN SET.
IF THE WlR
COUNTER OVERFLOWS, THE EceL RCUTINE IS
BRANCHED TO AND THE WLR BIT IS SET.

SEQUENCE NO.
EPXF
EPXF
EP XF
EP )IF
EP XF
EP XF
EP XF
EP XF
EP lCF
EP XF
EP )(F
EP Xf
EP lCF
EPXF
EPlCf
EP XF
EP XF
EP)lF
EP XF
EP )(F
EP XF
EP XF
lOP XF
I:P XF
EPxf
EP XF
EP XF
EPXf
EP XF
EP XF

001
() 02
003
{)07
009
010

LABEL
T
*
PXFR

NEXTLABEl

024

COA

020

READ

UPDATE
ECOL 017

wlR

READ
041

BIT421

010

CLEAR

eDA
*

STATEMENT

PUNCH TRANSFERtEBCDIC TO ROW FORM)

CLEAR

all

012
013
.014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034

NEXTSEQ

~

COMMENTS
f.

CHAINING

UO=U1
MOVE CCW Cf
TO=O$K60
X' LA TE TABLE ADDR FOR NOT 24K
BR IF PI BIT 0= 1
BR IF OA TA CHAI N
Ul=O$KFF
CLEAR
ALL THE
Dl=U 1
Hl=Ul
ACCUMULATING
HO=Ul
REGI STERS
Il=lJl
GO=O$ K80
FIRST MASK
DO=DO~KO 1
INCREMENT WLR eTR
BR If AC=O
Ul=UO
BR
ROB T 1 V+-l
READ FROM MAIN STORE
ROB G1 AS.T~O
Xl ATE TO CONDENSED
Gl=GlIlK07
INVERTS BITS 4,2,1
N=Gl BITS567
P 1= 10Xl
**CHAIN lNG, RECOVER BUFFER ADR
10= 10
BR IF Ll=O **BR If LAST CHAIN ENDED AT 8
SHES BOUNDARY
ROB U1 AS,P+O
LAST eHAINIOR SIOI
Pl=Pl+KOA
ENDED IN THE MIDDLE
ROB 01 AS,P+O
OF A 8 BYTES BOUNPl=P1+KOA
OARY, READ THE 12,
ROB 11 AS,P+O
11, 0, B, f. 9TH
Pl=Pl+K50
BYTES OUT
ROB HI AS,P+O

ADDK

"OKO

1.IH!L

20AB
5?CO
55E9

liHl4
1 f3 86
lIHHl
188A
ISBe
1480
lAS2
lA84
lA86
lA88
lA8A
lASC
lA8E:
1808
IBOA
IBOC
1I:10E
11-110
1812
li; 14
Idl6
U~18

181A
UHC
11.J 11:
il:l20

IB22
11324
L826
1b 28
1;32A
1t! 2C
lel2E

uno

1 B 32
Ifl34
Ifl 36
1fl38
183A
1!33C
Itl)E
11:140
Itl42
lS44
1B46
1848
1B4A

6000

Olllb
60lC

5805
5859
B145
2DAS
20AB
2DAS
2DAB
.2DAB
20AB
SBCS
9B14
2010
20E8
5BCO
t:S41
7BCO
5805
C5Ul
6141
051C
6741
1:520
6941
F~24

6f41
C128
6E41
28213
2 OFF
C4B 1
<;t38A
7lCO
2DAS
77CO
2DAS
79CO
205U
7Feo
lDAS
5EF9
7fCO
5805
5019
C40A
<;980

B9S9
41:4f
JC3D

SEQUENCE NO.
EPXF
EPXf
EPXf
EP xF
EPXF
EP)(F
EP Xf
EP XF
EPXF
EP XF
EP xf
EPXF
EP XF
EP XF
EP XF
EP Xf
EP XF
EP Xf
EPXf
EPXf
EP XF
EP )IF
EP XF
EP XF
EP XF
EPXF
EP )If
EP )IF
EP XF
E!'XF
I:PXF
EP Xf
EP xF
EP xF
EP Xf
EP XF
EP XF
EP Xf
EP XF
EPXF
EP XF
EP Xf
EP XF
EP XF
EP xf
EP xf
EP Xf
EP Xf
EPXf
EPXF
EP XF
EP Xf
EP Xf

035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
057
058
059
060
061
062
063
064
065
066
061
068
069
010
011
072
073

NEXTSEQ

LABEl

NEXTLABEl

TEMPRY
ECOl 124
Bl H21
BIT421
BIT421
BIT421
BI H2l
BlT421
BI T421
B 1 H2l
ADDIE

NEWMSK

0

1
2
3
4

5
049
055

ADDIE
BYTES

BYTES

051

N

N

059

NE

NE

061

NEX

NEX

063

NEXT

NEXT

065

DONE

069
039

STORE
TEMPRY

010
ECOL 061

CLEAR
MOVWlR
NATIVE

6

1

DONE

STORE

074
015
076
071
018
019
080
081
082
083
085
089
090
091

*
AIA8lE
C
C
C

STAT EMENT

ClOAD=*E60. EC lEVH.=llSlll
COMMENTS

Pl=Pl+KOA
ROB Gl AS t P+O
HO=Gl
RECOVER BUFfER ADOR
Pl=IOXl
Gl=IO
GO GET NEW MASK
N N=Gll
ADD 60( 90) - 1 PUNCH
Pl=Pl+KOA
Aoe SOt 80) - 6 PUNCH
Pl=Pl+KOA
ADD 46( 701 - 5 PUNCH
Pl=Pl+KOA
Aoe 3e( 60) - 4 PUNCH
Pl=Pl+KOA
ADO 3l( 50) - 3 PUNCH
Pl=Pl+KOA
ADO 28! 40) - 2 PUNCH
Pl=Pl+KOA
GO ADD IE(301-1 PUNCH
BR
NO .PUNCH IN I THRU 1
BR
ADD IE TO BUFFER AODR
Pl=Pl +K 10
Pl=Pl+KOE
STORE
RDB T 1 AS,P+O
1 THRU 1
T l=TlcGO
PUNCH
SIB Tl AS,P+O
RECOVER PCH BFR ADDR
Pl= IOXl
BR I f G1 BIT 0=0
12TH PUNCH
Ul=UlcGO
BR IF Gl SIT 1=0
11 TN PUNCH
01=0111GO
BR IF Gl SIT 2=0
OTH PUNCH
11= IlcGO
BR I f Gl BIT 3=0
SU· PUNCH
Hl:HlIlGO
BR IF Gl BIT 4=0
9TH PUNCH
HO=HOcGO
ADO 2 TO CONTROL eTR
10: 10 +K02
DECREMEN T CC W C T
UO=UO+KfF
BR I f
NOT DONE, GET NEW MASK
SR
STORE 12TH BYTE
Sf B U 1 AS,P+O
Pl=Pl+KOA
STORE 11 TH BYTE
STB 01 AS,P+O
P 1=P 1 +KOA
STORE OTH B VTE
ST B 11 AS, P+O
Pl=Pl+K50
STORE 8TH BYTE
STB HI AS,P+O
Pl=P1+KOA
H1=HO
STORE 9TH B VTE
STB HI AS,P+O
RESTORE BfR AODR
P1=10Xl
Ul=UO
8R IF eTR NOT ZERO
BR IF INI
FINISHED
8R
2540 PUNCH TRANSLATE TABLE

z=o

ADOR=6000
X AUX' B989SA8BSC80SE 8F9S999A989C 909E9F09494A4B4C40'
XAUX' 4E4F58595A585C 505E ~F1~292A2S2CIOZE2F383q3A38'
XAUX' 3C)D3E3FF9090AOBOC 000E0F1819lAIB lC 10 lEIFQOA9'

PAGE lIS

AODR

"ORO

0042
",058
b06E
6084
009A
oOBO
00C6
allDC
6llf2

AAAS
0851
3637
A4A5
0203

SEQUf\lCE NO.

flU

8687
aCOG
0203

EPXF
EP XF
EPXF
EPXF
EPXF
EPXF
EP XF
EPXf
EP XF
£:P XF

092

09.3
094
09.5
096
097
098
099
100
101

LABEL

NEXrSEQ

NEXTLABEL

STATEMENT

XAUX'AAABACAOAEAFB891929394959697BOC9CACBCCCDCECf"
XAUX' 085152535455565740 216A 6B 6C 60 6E6f 7831C 03 3343 5'
XAUX' 3637EOE9EAEBECfDEEEfF811121314151617BIAIA2A3'
XAUX I A4A5A6A 7BOA8B2B3B4B5B6B 70 lC lC2C3C4C 5C6C 700C 8'
XAUX'02D3D405060771616263646566677068727374757677'
XAUX' FIE 1 E2 E3E4E5E6E 7FO E8F 2F 3F 4F SF 6f 7A08182838485 I
XAUX'86879088BABBBCBOBEBF604142434445464750480ADS'
XAUX' DC 0) CEDF3269222324 252627302 87A 7B 7C 1D7E7f200 l'
XAUX'0203040506071008FAfBFCFOfEFF'

C
C
C

C
C
C
C
C
C
AEND

**********************************

*

EPXF
EP XF
Ef' XF
EP XF
EPXF
EP xF
EPXf
EP XF
EPXF
EPXF
EP Xf
Etl XF
EPXF
EPXF
EP XF

003

010
016
020
024
039
041

049
055
057
059
061
063
065
069

EPCH
EPXF
ECOL
EPXF
EP XF
EP XF
EPXF
EP Xf
EPXF
EPXF
EPXF
EPXF
Ef' XF
EPXF
ECOl

102
026
142
011
009
068
023
047

048
055
051
05'1
Ot!

00
141

CROSS REFERENCE FOR CSECT EPXF *

**********************************
EP XF 081

EP XF 067

CLOAO=*E60, EC LEVEL=128211
COMMENTS

PAGE 219

CLOAD=*E60, EC lEVEl"128211

ERCX

DtSCRIPTIVE

PAGE 220

TEXT

ENTRY POINJS
ENTRY I S MADE FROM THE
EROR
ROUTINE TO
START REAUER COLUMN IMAGE TO STORAGE
TRANSFER.
SEe FEMOM DIAGRAM 5-105.
wLR SET

AUDR

wORD

Itl94
lu96
Id98
189A
Idge
Id9E
IBAO
18A2
IdA4
IdA6
IdA8
ltlAA
ItlAC
ItlAE
Its so
1KB2
ll:l Bit
IHDA
ILIDC

5E88
bFF3
6FF3
5F83
bSE5
1813
5FF9
£:OA6
SA73
CE83
F-OB4
3843
CF31
SF 73
OFS5
EOOF

hIDE
It:lEO
Id E2
ItlE4
16E6
16E8
lSEA
IdEC
IB EE
IBFO
1BB6
1HB8
IbBA

C;~EE

3B23
3B 13
5FAO
1F 38
21FF
C4B9
261B
f4B7
E41'.
;f88
7F38
9BE2
3e13
5629
2607

ENTRY IS MADE HERE FRO~ THE
ERDR ROUTINE
TO SEI THE WLR INDICATOR WHEN THE WlR
COUNTER HAS OVERFLOWED DURING A READ OR
SENSE COMMAND WITH IHE SKIP FLAG ON.

SEIoiUENCE NO.
ERCX
ERex
ERCX
ERex
ERex
ERex
ERe x
ERex
. ERex
ERCX
ERex
ERex
ERe. x
ERCX
ERCX
ERCX
ERex
ERex
ERCX
ERex
ERex
ERe x
EKCX
ERex
ERex
ERCX
ERe. x
ERCX
ERex
ERex
ERex
ERex
ERCX

ENTRY IS FROM THE
ERDR ROUTINE IIlHEN THE
SKIP OPERATI ON OF A .REAO OR PfR READ IS
COMPLE TEO, (CCIII COUNr=o~. IF NOT OAT A
CHAINING, CONTINUe WITH THE NORMAlENO.JNG
PROCEDURE.
IF DATA CHAINING PREPARF TO
FE·TCH A NEW CC w.

CDFLAG

001
002
003
004
005
006
001
008
009
010
011
012
013
014
015
016
011
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
013

LABEL
T
READ

NEXTSEQ
XfER

011
057
NOHI
018
016
0;7
B I TItON
GOVOTY
OR! NZ
ORINI
XUfE

021
061

DCRC T
032
START
031
002

023
wLRSEr
CDFlG

NEXT LASEl

STATEMENT

COMMENTS

FReM COLUMN FORM SU FFER (ROJ TO CCW ADDR
RDH HAS, 1+2
- Hl=HltoHl
Hl=Hl+Hl
Tl=HlXH
T I=T 1 $HO
Tl=Tl*-K07
Hl=Hl
NOHI
BR I f HlNZ
CHECK N I\I=HO BlTS567
Z=HO*-K08
GOVDTY
8R IF lZNl
Tl=TUK04
BR IF HI BlTO=l
BIHON
CHECK N N=Hl BHS123
Z=Hl*-K80
Xl ATE
BR IF HZ=O
CHECK 7 BR
T l=T l$K02
Tl=TUKOl
ROB HI AS, T+O
ST8 HI V+1
Ul"Ul+KFF
COFLG
SR IF l=O
00.= DO +KO 1:
BR If- AC= 1
wlRSET
READ
BR If GO BIT2=O
ROB HI AS.I+1
STS HI V+l
OCReT
BR
PU=POSKOI
VO=DO
00=0

RD 2 8YTES
SH.lfT 8,9 TWICE
Tl=8,9
Tl=8,9,12,11,0,1,2,3
Tl=8,9,12,11,0
Hl:4,5,6,7,8.9
BR IF 4.5,6,7 NO SIT
MASK ON BITS 1,2,3
BI1S 1,2,3
BR If' ANY [N 1,2.3
AT LEASE 4
BR IF BIT 4
MASK ON BITS ;,6,7
4 BIT ON
BR IF'NO OTHER BIT
OR IN 2BfT
OR IN 1 BlT
XUTE TABLE LOOK UP
SEND TO MAIN STORE
DECREMENT CCW CT
WlR C TR to 1
BR IF WlR
8R If NOT COL BIN
COL BIN
HOVE TO MAIN STORE
W.lR IND (CATOR
MOVE WLR eTR
RSl DO

AOOK

WORD

18 BC
l£l BE
lBCO
111C2
IBC4
10C6
It3C8
IdCA
ItleC
WC E:
IBOO

54E9
5460
C548
1525
f84F
S990
221B
f4CF
3C 13
HA2
F70F
CB06
3D83
CD80

ltl LJ2

!tW4

ItlDb
10D8
Itl bE

'1112

eS(:4
1460
S88e
3823
9S0E
<;BOA
<;SOE
99EE
SBoe
9
055
115
114
121
110
128
050
032
089
131
143
071
141:l
154
146
099
164
171
174
126

EROR 094

EROR 106

ERRQ 069

EROR 109

EROR 177

*

**********************************

EROR 111

EROR 112

EROR 116

EROR 127

PAGE 227

ERRQ

OESCRIPTIVE

TEXT

ENTRY POINJS
REUUC

ENTRY IS FROM THE DCLA ROUTINE WHEN A
START 110 OR TEST 110 IS DECODED (FOR
READER OR PUNCH), AND DEVICE END HAS BEEN
CLEARED.

PCHST

ENTRY IS FROM THE BSWI ROUTINE WHEN A
PUNCH STATUS REQUEST HAS BEEN DETECTED.
READOUT THE UCW BYTES INTO LOCAL STORAGE,
RESET READER STATUS AND DEVICE END.

ADDR

It:AA
lEAC
lEAE
lFBO
leSl
lE64
lE B6
lEBS
lE92
11094

lE96
1t:EA
IHe
1 HE

lEfO
lEF2
lEf4
IH6
LEf8
lEfA
It-FC
lEFE
If 00
11'0l

WORD

A06E
;623
CE83
9836
F712
(430
00.,6

8362
C460
CfB9
E954
AOe2
OB'>8
. OF 10
C446
f-fC8
80C4
lD15
5CCD
S9l:4

7CAO·
1545
3E23
9EC8

ROCONT
RDCHST
RPHUCW
RDINO
STIND
GUESS

ENTRY IS FROM THE 8SWI ROUTINE WHEN A
READER STATUS REQUEST HAS BEE~ DETECTED.
READOUT THE U(W 8YTES INTO lOCAL STORAGE,
RESET READER STATUS AND DEVICE END.

RDST

SEQUENCE NO.
ERRQ
ERRQ
ERRQ
ERRQ
ERf(Q
ERRIJ
ERRQ
ERRIJ
ERKQ
-ERR'-/
ERRQ
ERRQ
ERRQ
ERR(J
ERlhl
ERRQ
ERk(J
I::RRQ
ERR,-/
ERRQ
ERRQ
ERRQ
ERRQ
ERRQ
ERR'-/
ERR'-/
ERRQ

001
002
004
005
006
007
008
009
010
011

012
013
014
015
016
017
018
019
020
Oll

022
023
Ol4

UBEL
T
*
REOUC

AVABLE
ROY
PCHI

NEXTSEQ

017
008
ERDR 071
012
030
Ollt
CCOM 154
017

011
OPTT 013

PICKUP

087
054
035
036
CCOM 058
t02

025
026
027

028

STATEMENT

25,.0 REQUEST

NOfROY

•PCHST

NEXTLABEL

036

&

- THESE ARE COMMON ENTRY POINTS BRANCHED
TOBY BRANCH AND LINt<. WORDS TO P·ERfORM
SOME OF THE BASIC FUNCTIONS FOR THE l5,..0 ..

COMMENTS

TEST 110 ROUTINE

BAL
DO=00$K02
BR IF RPS BITO= 1
AVABlE
BR
AVANOT
PCHl
BR If 01 BIT 3=0
BR If GO BITO: 1
PCKUPD
NOT ROY
BR If RS BIT 1:0
BR
CCOB
BR If GO BlTO: 1
PICKUP
BR IF PS BITO=1
ROY
UCENT
BR
25ltO REQUEST
RPHUCW
BAl
.*PCH
BR [f PS BIT5=0
NODE
RST P K=01
BR I f GO BITO=O
SETSEC
BR If PS BIT.3=0
CeBR
BAL
lSAVEB
Pl=O$KIO
PO=POL
BAl
STIND
STH P AS,I+0
Gl=Gl*-t<.,.O
HO=HOSt<.02
BR
CCBR
RDUCW

ENTR Y I S FROM THE DClR ROUHNE WHEN A
CHANNel ERROR I S DETECTED DURI NG. AN I PL.
ENTR Y I S FROM THE EROR ROUTI NE. WHEN THE
25ltO IS NOT AVAILABLE FOR IPt., NOT REAUY,
IPL FROM PUNCH ATTEMPTED, IP L COMMAND
REJECT, OR A UNIT EXCEPTION DeTECHD.

STOP

READ CH.STAT, FLAGS, & UNlT STAr
SET DO 6 BI T TO BE BR ON LATER
BR If AVABlEI SX04U
NOT AVAILABLE
BR IF PCH
BR If SECONDARY ON, RDR
BR If RDR NOT ROYI SXO~l a
BR 10 SET CONDo CODE a
BR IF SECONDARY ON, PCH
SR IF PCH ROY(SX04I)
NO T READY
REQ. RD CH.ST,FlAG,UNIT STAT, Cl
SR If NO PCH HWOEISX0431
RSl PCH HWOE(RU0151
BR If NOT-READY TO READY
BR IF NO PCH CHK (SX04l'l
PC ... eK, SAVE P, I
EQUIPMENT CK IN SENse
RETAIN PFR RO & PFR WRINDlCAIOR
STORE INDICATORS & SENse
STORE FORCED STKR SEt IN 10Fl
BREAK CC
UN IT CK, DE IN UNIT STAT

ADDR

wORD

lE8A
lEBC
ltBE
ItCO
lEC2
1l:C4
lEe£)
lEC8
lECA
IEce
lECE
It02
11::04
lE06
lE08
lEOA
lEDC
lEOE
li:EO
lfE2
lEE4
IH6
lEE8
lE84
1E98
lE9A

A06A
2466
1:607
24C6
0998
OB 10
3485
8llA
054E
<;044
3E43
1:263
F728
C3A8
D461
EA61
4452
A568
8716
50C7
2A07
BllA
0104
895£0
8924
E2t:3
C.3C9

lE9C
1E9E
lEAO
lEA2
lEA4
lEA6
lEA8
lE86
lE88
lE8A
H:SC
lEBE
lE90

C424
D129
CA25
DA29
3423
15C5
9052
2406
OB30
eOC4
A044
2004
<;I89E

11:00

20bA
206C
206E
2010
2072
21J 1'4

2016
2078
l07A

,

4642
3715

F166
24C6
3743
5060
1743
5468
5EbA

lABEL

SEQUENCE NO.
ERRQ
ERRQ
ERRQ
ERRol
ERRQ
ERRQ
ERRQ
ERko)
ERRQ
ERRQ
ERK.,J
ERRQ
ERkQ
ERKQ
ERRQ
ERRQ
ERRQ
ERRQ
ERkiJ
ERJ{iJ
ERRQ
ERKQ
ERRQ
ERRQ
ERRQ
ERRQ
ERRQ
ERki.l
ERRIoI
ERRQ
ERRQ
ERRQ
Eli I{Q
ERRQ
ERRQ
ERRQ
ERRQ
ERRQ
ERRQ
ERRQ
ERRQ
ERkQ
ERRQ
ERRQ
ERRQ
ERRQ
ERtl.Q
ERRQ
ERRQ
ERRQ
ERRQ
ERRQ
ERRQ

029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
051
058
059
060
061
062
063
064
065
066
061
068
069
011
072
013
075
076
077
078
080
081
082
083
084

RDST
PCKUPD

NEXTSEQ
015
064
054

SE TSEC
CC8R

DCOM 016
039
DPTQ 036

NOCC
049
063
063
048
048
DCDM 049
Dell 036
STOP

no

NOACT
NODE

*

DCOM 016
053
OPTT 023
DPTT 049
049
036
061
063
061
063

INffCK
GOINT
CPUXFR

OPTQ 019
eCOM 058
092
EROR 123

NEXTlABEl

ClOAD-=*E60. EC lE VE V= 128211
COMMENTS

ST ATEMENT

BAl
**ROR REQ. RD CH.ST,FlAG,UNIT STAT, CT
SET MODE K=36
RDR MODE, 2540 LONE
CPUXFR
BR IF DO BIT 2=1
BR IF RUN-IN CPU XFER
SET MODE K=30
SET BACK fIRST TO ROR MODE
NODE
BR IF RS BIT 5=0
BR IF NO ROR HWDEtSX0431
RST R K=Ol
RSf RDR HWDE
GO=GO$K80
**SET SECONOARY IN CASE OF QUE HWDE-REAOY
RSTREQ
kS T RDR OR PCH REQUEST
BAl
Noce
BR If G1 BIT 1=0
BR IF NO CMD CHAIN
CHi\IOK
8R
GO TO CHAIN
HO=HO$K04
DE IN UNIT STAT
BR IF DO BIT 6= 1
TID
BR If FROM TIO OR SID
GOI NT
BR IF 01 BIT 3-=0
BR IF PCH
GOINT
BR IF BA BIT 4:0
BR IF NOT IPl
[Pl, BR IF WlR IN CH. STAT
STOP
BR IF GO BIT 1-= 1
STOP
8R IF HO BIT 6= 1
8R IF UNIT CHECK
ROH G OC,9A
G= 0000, Rsr AC II VE, SECONOARY
REOSTR
BAl
STORE ucw
PICKUP
BR
IPl DONE
STOP
NA TI VE 2540 IPl STOP
ro=o
RS' TO
RSTREQ
RST READER,PCH REQUEST
BAl
NOACT
BR If Gl BIT 5=0
BR I F NO AC T I VE BIT
RESTES
BR
TID OR SID, ACT, SEC =11
SHARE
BR
T lOt Ae T, SEC=01
TID
BR If DO BlT6= 1
BR If TlO OR SID
BR IF 8A BH4=1
BR If IPl
eC8R
INTERfACE CHECK OR UNQUEUED
BR IF NO SECONDARV
I NTFeK
BR If GO BlTO=O
GOINT
BR If Gl BIT 5=1
BR If ACTIVE
I NTfCK
BR IF HO BIT4=1
NOT ACTIVE, BR IF NO CHE
GOI NT
BR If HO BIT5=l
BR IF DE
INTERFACE CI<. IN CHNl STAT
GO-=GO$K02
BREAK CHAIN
Gl=Gl*-KCO
GO FOR (B, STORE UCW, GO SSWI
TAKEIN
BR
SET MODE K=30
RDR MODE. CPU ZONE
RST ROR REQUEST I: HWOEfRU015l
RST R K=03
SA \IE P, 1
lS AV EB
BAl
BAl
READ INDICATORS & SENSE
ROINO
SET READ COMMAND {NTLK
SET RP K=20
Btl.
SS DONE
GO TO XFER BUFR
RRDUCW

*
*

BRANCH AND LINK ROUTINES

*RROUCW
RDuew
ROCDNT
RDCHST

089

PHUCW

ROH 0 OC.98
01=01$1<10
BR IF 013=0
SET MOOE K=30
01=OUK04
ROH U AS,O+O
Dl=01*-K04
ROH G AS,0+2
ROH HAS. 0-2

READ CONSTANT Of 00C8
0=0008
BR If PUNCH
SET REAOER MODE
D= (XXC
READ COUNT iNTO U
0= OXX8
READ CHAN STAT flAGS
READ UNIT STAT

PAGE 229

ADOR

wO~D

SEQUENCE

207C
2062
2064
2066

128E
4642

2068

C4fZ

2044
2046

2A15
f75C

2048

2406

204A
204E

2Bf5
5CAA
128E

2050
2052
2,)54

2BB 1
C4ce

ERi:<

RDR

ATTENTION LITE WILL COME ON AND THE fOLLOWING AREAS MAY BE DISPLAYED -

--READER CHECK lOGOUT AREA--10f9
10FA
10fB
10FC
10fD
lOF6
10F8
10FE
10FF
10F1
*----------*----------*-----------*----------*----------*----------*----------*----------*----------*----------*
BITS * 01234561 * 01234567 * 01234567 * 01234567 * 012]4567 '" 01234567 * 01234567 * 01234567 * 01234567 * 01234567 '"
*
*
*
*
*
*
*
*
*
*
*
COLS * 1 THRU 8 '" 9 THRU 16*l7 THRU 24*25 THRU 32*33 THRU 40*41 THRU 48*49 THRU 56*57 THRU 64*65 THRU 72*73 THRU 80*
*----------*----------*----------*----------*----------*----------$----------*----------*----------*----------*
AUX

*

*
*
*
*
*
*
*
*
*
*
*

*
*
*
*
A BIT BEING ON IN THE lOGOUT ~RE~ SiGNIfIES
*
AN ERROR FOR THAT COLUMN.
*
*
THIS AREA MUST BE LOADED WITH BLANKS AfTER
*
*
EVERY ERROR FOR SUBSEQUENT ERROR ANALYSIS.
*
*
* ---COLUMN FORM AREA--**
---ROW FORM AREA--AUX LOCATIONS 4FAO - 5017
AUX LOCATIONS 5018 - 50B7
*
*
A BIT BEING A ZERO INDICATES A HOLE IN THE
A BIT BEING ON INDICATES A HOLE IN THE CARD THAT
*
CARD THAT IS BETWEEN THE FIRST AND SECOND READ *
1 S NOW I N THE PRE STACKER STUION.
THIS IS A
*
RESULT OF THE FIRST READ STATION TRAPS.
S fA TIONS.
*
5018
5019
** fORMAT
*
ROW
AUX ADDRESS
AUX ADDRESS
ROW
BIT ROW COL
*
'"
fORMAT IS THE
o X
o X
*
*
SAME fOR EACH
9
4FAO - 4fA9
4FDC - 4fE5
3
X
1
X
1
*
*
8
4FAA - 4fB3
4fEF
CARD COLUMN.
2
4FE&
4
2 12
2
*
*
-l4fB4
4FBO
4FFO
4FF9
3 11 -1AUX
501A-501B
7
5
1
3
*
'.."
fOR COL 2, AUX
6
4FFA - 5003
0
4
4fBE - 4FC7
4
0
6
*
5
4FC 8 - 4FDl
5004 - 500
50lC-501D fOR
11
1
5
1
5
*
*
4FD2 - 4FD8
500E
5017
4
COL 3, ETC.
12
6
8
6
2
*
*
7
3
1
*
****************************************************************************************************************************

WORD

AOOR

ETTR
ETTR
ETTR
EfTR
ETlR
ETTR
ETTR
ETTR
ETTR
ETTR
E TTR
ETTR
ETTR
E TTR
ETTR
ETTR
ETTR
ETTR
ETTR
E TTR
ETTR
ETTR
ETTR
ETTR
ETTR
E TTR
ETTR
ETTR
EllR
ETTR
ETTR
E TTR
ETTR
ET TR
ETTR
E TTR
ETTR
EllR
ET TR
ETTR
ETTR
ETTR
EfTR
El TR
EllR
E TTR

2206
5ACF

01BO
lllB2
0184

BEec

OEeC
OEeE

EAFC
5BOF
5FOO
7D08
bCF 1
C4E9
COE9
3BOO
2EI5
51Ft)
2fFD

1l1:00
01:02
01:04
1l1:0b
OE08
OEOA
lJECe

Ot:OE
OHO
OH2

SOEO

OEEft

bOC5
7DEO
271B

OEE6
0f:E8
:Jt:EA
OEtC

FOFO

OEEE

EOF3

OEFO

0206
COC9
00F8

276B

OEf2
OEF4
OEF6

2B20

Ji::F a

0004

OHA

8EfE
3625
8Ef6
5BOF
30B9
2lA5
2745
8EEC

OEC8

Qt:CA
Of:FC
OEft:

OFOO
iJF 02

OF04

leT fR
ETTR
ETTR
ETTK

SEQUENCE NO.

022
036

038
040

ETTR
ETTR
E TTR
E TTR

020
027
052
037

001
002
009
OLO
011
012
013
014
015
016
011
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052

LABEL
T

AUBLE

NEXTSEQ

NEXTLA8EL

STATEMENT

CLOAO=*E60, EC LEVEL:128211
COMMENTS

NATIVE READER TRAP ROUTINE
ADDR::O 1 BO

*

*
*
*
*
*

THE REGISTERS IN

DO BIT2=l
XFER ROW TO COL
01 REG-TRAP COUNT
U REG-ROw ADDRESS

*
*

*

AEND
START

022

START

048

SETUP

03b

036
RDRCHK

NOEROR
040
OlA006
041
RE TURN
DONE

046
044

RQUE ST
INLK
049
XFER
043
SE TUP
SURe

ETTR 028

THIS ROUTINE ARE USED AS FOLLOWS

038

LINK U MMSK3=1
PO=RP2
BR

GET READ 2 INFO

SR IF SET-UPISX0441
BR IF RPS BIT6::0
GET READ 1 INFOI STAR T SHI F T REGt
Pl=RPl
READ OLD DATA
ROB HI AS,U"O
STORE NEW DATA
STB PI AS,U+l
CHECK OLD REAO 1 WITH NEW READ 2
PO=POcHl
BR IF NO ERROR
NOEROR
BR IF 1=0
BR IF NOT GATE RD CMPLTEISX041i
BR IF RS BlTO=1
NOEROR
SET ERROR LAT (RU0211
SET R K=80
SE T H TO AODRESS READ CHECK
HO=O$KIO
LOG OUT AREA IN AUX STORAGE
Hl=DlL
POSITION 10Ft. THRU 10FF
Hl=Hl+KFO
READ OLD ERROR BYTE
ROB PI AS,H+O
OR NEW ERROR
P1=Pl$PO
STORE ORED RESULTS
STB PI AS.H+O
UPCATE TRAP COUNT
01= 01 +KO 1
RETURN
BR IF LINZ
CORRECT Ot LOW TO X6
Dl=01+KOb
BR IF FINISHED
BR IF HZ=O
DONE
RTN U MMSK3=O
BR IF NOT GATE RD CMPlrE{SX041~
BR IF RS BlTO;1
XFER
8R IF NOT REAOY(SX041t
BR IF RS B111=0
INLK
SET RDR STATUS REQUESHRU015)
SET R K=02
RST CMU INlK {RU0211
RST RP K=20
MAKE SURE ADDR SITTING RIGHT
BR
SURE
SE T XFER BU
oO=oO$K20
BR
RQUEST
GET READ 1 INFO{START SHIFT REG)
Pl=RPl
UO=O-KBO
U=4FAO
U l=O$KAO
Dl=0$K40
GO MAKE 01=46
01 ADD6
BR
**********************************
* CROSS REFERENCE FOR CSECT ETTR *
**********************************

PAGE 236

CLOAD=*E60. EC lEVEl=128211

**********************************

*

El TR 041

LfTR 043
lOUR 044
[1 TR 046
tTTR 048
t 1 1K

049

ETTR 039
BMCK 040
ETTR 042
ETTR 041
ETTR 022
ETTR 045

CROSS REFERENCE FOR CSECT ETTR

*

**********************************

ETTR 041

PAGE 231

CLOAD=*EbO, EC LEVEL=12B211

EXFM

DESCRIPTIVE

PAGE 238

TEXT

ENTRY POINTS
XFE,{

ENTRY IS MADE HERE FROM THE ERDR ROUTINE
TO SET UP THE ADDRESSES OF THE COLUMN AND
RUw IMAGE BUFFERS, AND START THE TRANSFER
OF ROk IMAGE TO COLUMN BINARY FORM.

SYTECT

ENTRY IS MADE HERE FROM THE ERDR ROUTINE
AFTER THE ADDRESSES FOR PFR ROW IMAGE AND
PFR CULUMN IMAGE BUFFERS HAVE BEEN SET UP.
THE TRANSFER Of PFR ROW IMAGE TO PFR COLUMN
IMAGE BEGINS HERE.

CHKCHK

,\tJCK

1\) ')0
1,) 52
ill !:i4
1050
IJ 58
105A
lO5C
IJ 5E
lUoO
IJ62
1064
Ill66
1068

lUM
lO6e
IJ6E
1070
1072
1074
1076
1078
107A

v.OKD

2455
2515
35<;3
2045
21A 5
22A3
2363

4852
4AE6
4CI:6
4E86
2613
57eo
C76F
6<;05
1)773
b865
U77
6D65

f77B
6F65
C 37F

ENTRY IS MADE HERE FROM THE ERDR ROUTINE
WHEN A READ-~o-FEED OPERATION IS DETECTED.
A CHECK IS MADE FOR READ AND VALIDITY
ERRORS. If NO ERRORS DETECTED, GO TU STORE
INDICATOR AND SENSE BYTES IN AUXILIARY
STORAGE.

SEWUtNCE NO.
EXFR
EXFR
E XFR
E XFR
EXFR
E XFR
E XFR
E XFR
E XFR
t XFR
EXFR
EXFR
EXFR
EXFR
E XFR
E XFR
EXfR
EXfR
EXfR
E XFR
E XFR
EXFR
EXFR
EXFR

U01
005
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
02b

027
028

LABEL

NEXTSEQ

NEXT LABEl

STAT EMENT

COMBIN

ENTRY IS FROM THE ERCX ROUTINE WHEN A
VALIDITY CHECK (S OETECTEO DURING A PFR
OPERATION. UNIT CHECK BIT IS SET, COMMAND
CHAINING IS BROKEN. AND THE INDICATOR AND
SENSE BYTES ARE STORED IN AUXltl ARY STORAGE.

WlRBR

ENTRY IS FRUM THE ECOl ROUTINE. THE WLR
INDICATOR BIT HAD BEEN SET IF AN INCORRECT
COUNT WAS DETECTED IN THE ECOl ROUTINE.
THE ENTRY HERE IS TO rEST FOR SlI AND
CHAINING, PRIOR TO STORING THE INDICATOR
AND SENSE BYTES IN AUXILIARY STORAGE.

COMMENTS

READER XFER OF ROW IMAGE TO COLUMN BINARY fORM
AL07 =50
GO=0$K50
SEr G TO 2ND BYTe OF
COL BUFfeR
Gl=OSK 10
ADDR 5019
Gl=GUK09
SE T U TO ROW IMAGE ADDRESS
UO=OSK40
40AO
Ul=OSKAO
BYTEC T
VO=O$KOA
10 GROUPS OF 8 BYTE S CNTR
BITe T
V1=0$K06
6 BIT PER BYTE CNlR
RDH [ OC,9A
1=0000
Cl EAR
T= I
WORK
P= I
H= [
REGISTERS
OO=i)$KOl
SET MASK FOR COL 1
ROBnE
ROB Dl AS,U
READ BYTE FROM I MAGE
022 N
BR IF Dl B ITO: 1
BllS ARE COMPLIMENT
11= 11$00
OR BIT IN COL 1
N
024 NE
BR IF 01 BIT 1=1
COL 2
Ti"'TlSOO
NE
026
NEX
BR IF 01 BH2=1
Pl=Pl$OO
COL 3
Nt: )(
028 NEXT
BR IF 01 BIT3=l
Hl:Hl$DO
COL 4
NEXl
030
NEXT 8
BR IF 01 B1f4=l

T
ASEQ
XFER

;\ u:;;{

"ORO

101C
1 d 7E
Id 80
IlJ82
lu 84
1086
1088
[U 8A
lu8e
108E
1090
lu 92
1094
lUS6
IU98
lu <,A
lu9C
ll,9E

6etS
0303
tAt 5
C3C7
6C65
F30B
6f65
H63
23FF
C49f
f41A
2lAb
f-4S8
2010
<,068
31 ':IB
9C68
7940
6444
7B40
0444
7040
6444
7F40
6444
144B
D03C
58S9
5AB9
5C09
5EF9
<;CSE
22FF
C4CF
f44A
3130
C048
20FD
lEDIATE, RESTORE DO BIT 7
RESTORE RESIDUE COUNT
HIGH COUNT EQUALS ZERO
BR IF NO EXCESS COUNT STORED
READ EXCESS COUNT
ADD 8ACK THE
EJlCESS COUNT
8R IF FEED
NO FEED, SET DE
BR IF NOT IPl
IPl,SET RDR REQUESTIRUOlS)
STORE UCW, GO TO B SWI
NQ INTERRUPT FOR IPl
IN T, OR GO CC,STORE UCW, GO B SWI

PAGE 2.0

ClOAD=*E60, EC lE VEl=128211

LXFK
tXFR
EXFR
EXFR
EXFR
EXFR
LXFR
tXFR
tXFR
tXfR
EXFR
tXFR
tXFR
EXFR
tXFR
t::XFR
t:XFR
eX FK
txFR
EXFR
tXFR
LX FR
EXfR
tXFR
EXFR
tXFR
tXFR
EXFR
EXFR
eX FR
tX FR
tXFR
tXFR
tXFR

007
012

013
019
022
024

026
028

030
032
034

036
045
047

050
065
073
075
078

087
090
100
108
114
116

us

122

125
126
129
132
138

142
143

ERDR
EKOR
EXfR
EXFR
EXfR
EXfR
EXFR
EXfR
EXfR
EXFR
EXFR
E XFR
EXFR
EXfR
E XFR
EXFR
EXFR
EXFR
EXFR
EXFR
EXFR
EXFR
EXFR
ERDR
EXFR
ERCX
ECOl
EXfR
EXFR
t: XFR
EXFR
EXfR
EXfR
EXFR

181
153
013
045
020
022

EROR
EXfR
E XFR
E XFR

183
085
076
048

024
026

028
030
032
034
043
040
038

E XFR 064

059
071

068
066
081
019
0'10
lC4
119
ll4
049
OS 1
120
122
127
129
134
143
138

E XFR 112
E XfR 116

EXFR 123

E XFR 140

ERDR 185
EXFR 089

**********************************
* CROSS REFERENCE FOR CSECT EXFR *
**********************************

PAGE 241

CLOAD=*EoO, EC lE VEl=128211

FILE

DESCRIPTIVE
2311

TEXT

UCW

AUlI OX8E-OX8F
ZCNE 1 T-REG
ZONE 1 I-REG
AUX OXC;~O)(99
************************************************************************************
*
*
*
*
*
*
* STATUS-I/O ADR * fLAGS AND OP * DATA ADDRESS
* COUNT FIELD
* NEXT CCW AODR *
*
* IFFI.
(FOP)*
*
*
*
************************************************************************************
STATUS-liD AOR

FLAGS AND OP

O=ACTIVE
l=CAME FROM START 110
2=KETURN TO ICYCLES
3=PERFORMED HALT 1/0
4-15=F ILE 1/0 ADDRESS

O=CHAIN DATA
l=CC OR CD AND NOT UNIT CHECK
2~CC OR CD AND NOT UNIT CHECK
3-=SKIP
4=PCI
5=SET INTERRUPT LATCH (STATUS
IN INTERRUPT BUFFERJ.
o=ANY 1 NTERRUPT CONDTlON
7=SLI

TSTec

..

2311 AUX MODULE 0 USAGE
********************************.***
ADDRESS

•...

'"
'"
'"

04 AND 05 - OEVICE ADDRESS fOR
CONTINGENT CONNECTION*
*
06 AND 07 - INTERRUPT BUFFER
*
*
14 AND 15 - ERROR STATUS tCE)
*
*
10 AND 17 - ERROR NEXT CCW ADDR *
*
8E AND SF - STATUS AND CHANNEL *
DEVICE ADDRESS.
*
*
*
*
* 98 ANO 99 - NEXT CCW ADDRESS
*
*
*
BYTES o AND 1 *
** 9A AND 9B - SENSE
OR PREVIOUS OP AND *
MASK.
*
**
*
9C
AND 90 - SENSE BYTES 0 AND 1 *
*
OR F[ lE ADDRESS
*
*
*
*
- CONTROL UNIT ADDRESS*
* F5
**************************.***********
*
*
*
*
*
*
*
*
*

•

ENTRY POINTS
ENTRY

PAGE 242

THIS IS THE NORMAL ENTRY FOR A PROGRAMMED
INSTRuCTION. THIS ROUTINE DETERMINESSTART I/O, TEST I/O, fEST CHANNEL, OR
HALf 1/0 AND BRANCHES FOR REQUIRED PROCESS.
THE START 1/0 SEQUENSE TESTS THE AVAILABILITY OF THE FilE, AND DETERMINES THE
FILE READY CONDITION. THE fILE CONTROLS ARE
TESTED FOR OPERATION.

SNSSTA

THIS I S A BAL ENTRY TO .SET AN EQUIPMENT
CHECK AND SELECTED STATUS INDICATIONS IN
THE SENSE SYTES.

SElOA

THIS IS A BAl ENTRY USED TO seT THE DEVICE
ADDRESS FROM AN UNSElECTED GATED ATTENT ION.
AFTER DEVELOPING THE DEVICE ADDRESS, THE
INDICATED MODULE IS SEl.ECTED.

THIS ENTRY ALLOWS THE USE OF THE CYCLIC-CODE
AND OPERATIONAL TEST ROUTINE AfTER CONTROL
AND SENSE OPERATIONS 8EfORE PROCEEDING WITH
OPERATING COMMANDS.

RSTATT

THIS IS A BAL ENTRY USED TO RESET THE FILE
GATED ATTENTION. THE READ-GATE IS RAISED
MOMENTARILY FOR THE RESET AND THEN THE
MODULE IS DESELECTED •

.
AlJOR

047A
047C
047E
0480
0482
0484
0486
0488
u-'t8A
1148C
048f:
0490
u492
0494
lh96

()498
()49A
049C
049E:
04AO
04A2
04A4
04A6
04A8
04AA
04AC
114AE
04BO
0482
04B4
0486
0488
048A
04BC
04BE
04CO
04C2
04C4
04C6
04C.8
04CA
u4CC
04CE
0400
0402
0404

CLOAO=*E60~

WORD

1CC2
2480
C628
fOll
FOIE
09'>E
6711
C49E
7032
8420
A024
?CBF
1bC?
09Al
3210
2004
4DBF
1210
AC14
f5BB
2E07
D9BE
B362
3065
7032
E021
F5BB
EICI
F054
OBFO
8702
DBFC
2E55
~002

854E
oeCA
8702
OBBB
2E43
4FEF
2E25
F05t
2E 35
0002
854E
7242

SEQUtNCf NO.
FILE
FILE
FILE
fIlE
FILE
FILE
FILE
fILE
FILE
FILE
FILE
FILE
FILE
FILE
FILE
FILE
FILE
FILE
FiLE
fiLE
fILE
FILE
FILE
FILE
FILE
FILE
FILE
FILE
fiLE
FILE
fiLE
fILE
FILE
FILE
fILE
FILE
FILE
f lLE
FILE
FILE
FILE
FILE
FILE
FILE
FILE
FILE
fILE
FILE
fILE
F HE
FILE
FILE
FILE

001
002
003
004
005
006
001
008
009
010

lABEL

NEXT LABEL

STATEMENT

EC LEVEL=128211

COMMENT S

2311 FEATURE COMMON ENTRY FOR START lO,TEST IO,HALT 10
***********************************************************************
**
fILE TID - SIO - HID COMMON
**

T

*
*
*

*
*ASEQ

*
*
**
*
***********************************************************************

AL07=7A

ENTRY

02b
02b

AVAIL
HALT 10
SETCC2
SETce2

026

SETCC2

F I NT 052
CCOM 127

S ETCSW
CSwADR

021

SETHIO

CCOM 161
040

CC2B
SETCUB

042
CCOM 154

HTS
CCOB

031
019

Oll

012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
021
028
029
030
031
032
033
034
035
036
037
038
0.39
040
041
042
043
044
045
046
047
048
049
050
051
052
053

NEXTSEQ

HALTIO

SE TeC2
SE THI 0

AVAIL
027
040
043
053
013
250
073

SETHIO
SETCUB
TSTCUE
SID
GElDS
TSTADR
GETDS

114

048
250
040

SlOT I 0
CUE
TSJADR
SETCUB

051

RSTCUE

114

S I aT 10

SETCUB
HTS
TSTCUE

CUE
RSTCUE
SIO

STH P DA t B8
SET MODE K=08
BR IF DO BlTO=O
BR I F GO BIT 6= 1
BR IF GO BIT7=0
BR IF FF 15=0
Dl=DlIlU 1
BR IF lNl
STHU DA,8E
BAL
BR
T l=fFO
Tl=Tl*-KCO
BR IF fF15=1
SET MMSK K=81
SEf flA K=20
FFO=T 1
RST MMSK K=81
BI{

BR If DASI3=1
HO=O
BR IF FF 15=0
BR
UO=UOSK60
ST H U OA,8E
BR 1 F GO BIT 6= 1
BR IF DAS 13= 1
BR IF DAS[6=1
BR (F GO BIT 7= 0
BR IF FOP5= 1
8AL
BR IF FOP5=0
HO=OSK50
SET FIA K=10
BR
BR IF FOP5=O
BAL
BR If FOP5= 1
HO=OSK04
FOP=HO
HO=OSK20
BR I F GO BIT 1= 1
HO=OSK30
RST FIA K=lO
BR
ST H V OA,98

STORE CPU P REG
SEJ FilE MODE & CPU ZONE
BR IF CHANNEL AVAILABLE
BR IF HALT 10
BR IF NOT TEST 10
BR IF INTURRUPT LATCH NOT ON
COMPARE IDA
BR IF IDA NOT SAME
SAVE IDA wITH RESET STATS
SET REGS TO USE CPU CSW STORE
GE 1 ccw FLAGS
STRIP CC AND DC FLAGS
BR IF INTURRUPT LATCH IS ON
SET PRIORITY
SET CCW COUNT 000
RESTORE CCW FLAGS WITHOUT CHAIN
RE SET PRIOR lTY
BR TO SET CC2
BR IFERASING
ZERO DEVICE STATUS
BR IF NOT INTURRUPT LATCH
BR TO SET CC 0
SET FROM SIO&RTN TO I CYC STATS
STORE STATS AND liD ADDRESS
BR IF HALT 1/0
BR IF ERASING
BR IF CUE
BR IF SIO
BR IF CaNTIN CONNECT CLEAR
TEST FOR CONTINGENT CONNECTION
BR IF NOT CONTIN CONNECT
SET CUB SrA TUS
SET CUB lATCH
BR IF NO CaNTIN CONNECT
TSI FOR CONTIN CONNECT
BR IF CONTIN CONNECT
SET CONTINGENT
CONNECTION CLEAR INDICATOR
SE T CUE FOR STATUS
BR IF TE ST I 10
SET CUE & BUSY STATUS
RESET CUB LATCH
SAVE CCW ADDRESS

PAGE 243

ADDR

wORD

0400
iJ4DIi
04DA
04DC
04DE
u4EO

5Af2
42Af
5A30
OA4B
C4E4
AFC6
8C92
UBEB
8102
OBBB
OA3B
C4FU
CAlO
ECf6
CA7B
FOFD
0133
fOFO
85CC
5ECf
C481
2C43
94<;;0
854A
AFC6
EE93
DE91
8114
2A45
8548
lCS5
85C2
2EI5
fAA9
CEBC
E5B5
F023
dSE8
49AF
5CC2
B3£:2
8114
CA3B
FOC4
OAlD
EOC4
8C92
B224"
2E43
F03D
3Et5
8230
FOS1

04El
041:4
u4E6
04E8
04fA
u4EC
04EE
u28
0~2A

0.,2C
u52E'
O~30

u53l
u')34
0;36
u~38

u53A
0~3C

u5;E

~

SEQUENCE NO.
FILE
FILE
FILE
fiLE
FILE
fiLE
FILE
FILE
FILE
fILE
filE
fILE
FILE
FILE
fiLE
FlLE
FILE
FILE
FILE
fILE
FILE
FILE
FILE
FilE
fILE
FILE
filE
fILE
FILE
FILE
FILE
FILE
FilE
FILE
FILE
FILE
FilE
FILE
fILE
FILE
FILE
FILE
fILE
fiLE
FILE
FilE
FILE
fIlE
FilE
FILE
fiLE
FILE
FILE

054
055
050
057
058
059
060
061
062
063
064
005
066
067
068
069
070
071
012
073
014
015
076
011
078
079
080
081
082
083
084
085
086
087
088
089
090
091
092
093
094
095
096
091
098
099
100
101
102
103
104
105
106

LABEL

NOTSNS

NEX TSEQ

NEXTlABEL

061
296
222
064
250
040

NOTSNS.
MODSEl
EXCUTE
TSTNOP
TST AOR
SETCUB

013

GElDS

070

TSTIOA

013

GElDS

013
081

GElDS
SET IVR

018

BALMS

265
112
296
084
086
336

SNSS T B
STR04
MOOSEl
UNSAFE
TSTOS1
ZRGSEN

III

CONCaN

016

STRSEN

095
105
101
092

SKINC
BRANCH
ATNRST

TID

131

CCTEST

CCOM 154
336

CCOB
ZRCSEN

109

RST UN

109
222
319

RSTATN
EXCUT E
RST AfT

105

BRANCH

325

RSTMOD
MODE

TSTNOP

T SrI OA

GETDS

STRSEN
BALMS

SEn VR

UNSAfE
IS roS1

TlO

SKI NC

ATNRST

BRANCH

115

ClOAO=*E60, EC LEVEL=128211
COMMENTS

SfATEMENT
RDH T CA,BE
STPO=TO
RDH T V+O
Z=TOIlK04
BR I f ZNZ
BAL
BR
BR IF FOP5= 1
BAl
BR If fOP5= 1
Z=TOIlK03
BR IF Z=O
Z=TOcKI0
BR I f HZNZ
Z=TOIlK07
BR IF LZ=O
Z=Ul*-K03
BR I f lZ=O
BR
PO=OS
BR IF Z=O
PO=0$K04
BAl
BR
8AL
BR I f OS 2= 1
BR IF OS 1=1
BAL
TO=0$K40
BR
PO=0$K80
BR
HO=OSKIO
BR IF DS1= 1
BR IF DSO=O
BR IF OAS 12= 1
BR IF GO B IT 1: 1
BR
MS=TO
RDH P DAtBS
BR
BAl
Z=TOcK03
BR I f LZNZ
Z=TOaK 10
BR I f HZi'll
BR
BAl
HO=OSK04
BR IF GO BIT1=1
HO=HOSK 10
BAl
BR If GO B1T1.::1

GE T S TOR PRO TEC T KEY
SET PROTECT KEY
GE T CCW COMMAND
MASK FOR SENSE OP
BR IF NOT SENSE
SELECT MODULE fOR SENSE
BR IF CONTIN CONEeT CLEAR
TST FOR CONTINGENT CONNECTION
BR IF CONTIN CONECT
MA SK FOR NO OP
BR IF NO OP
MASK fOR HI BI T Of RESTORE
BR I f NO T RES TOR E
MASK FOR lO BITS OF RESTORE
BR IF RESTORE
MASK FOR VALID DEVICE AODR
BR IF OA VALID
GET DISK STATUS
BR IF NO UNSELEC TED STATUS
SET UNSELECTED STATUS BIT
STORE SENSE
BAl TO MOO SElEC T
BR IF UNSAFE
BR IF ON LINE
ZERO SENSE BYTES. INVALID 2311
SET INT REQO
BR TO SET CONTINGENT CON
SET UNSAfe FOf SENSE
PRESET BUSY STATUS
BR IF SEEK INCOMPtE TE
BR IF NOT READY
BR If SHEC rED GATED ATTENTION
BR If T 10
BR TO CC TE ST OF SIO ROUTINE
DESELEC T FILE
RESTORE CPU P REG
SE T CC 0
MASK FOR LO BITS Of RECAl
BR I f NOT RECAl
MA SK FOR HI BITS RECAl
BR IF NOT RECAlIBRATE
BAl TO RESET GATED ATTN
SET DE BIT
BR I f TEST I/O
OR IN BUSY STATUS FOR SIO
BR

IF TEST 10

PAGE 244

AGDR

WORD

O~40

1:114
855A
8224
2A 13
'1496
2B43
70AO
F058
2400
5CC2
2FC7
AOIE

42
u;,44
0:;46
i.l~

J~48

()j4A
O;,4C
0:;4E
u':>'O
0552
0554
0'>56
0;,58
0':> 5A
J:' 5C
<)55E
0'>60
0:>62
\.h64

0:>66
0508
0~6A

O?6C

t063

234B
5t30

2F 85
C365
2FC7
2A07
C3ED
2400
A030
50C7

Oaf8
Oi3EA
OJ EC
OJ EE
OJFC
uM:Z

8114
3EOO
2490
GEC8
2302

0l~F4

3110
3029
4fDF
43DF
B344
5FCF
lCFF
C4FE
4FCF
5FCF
C4FE
8CCA
5BCF
B346
5ECF
C4FE
2310

uClf-6
Ot3F8
OtlFA
Ot3FC
Od FE
J('OO
Ol.OZ
0(,04
,)C 06
0e08
oeOA
0COC
OCOE
OC 10
JC12
OC14

2304

SEQUENCE Nil.
FILE
FlU
FILE
FILE
FILE
FlLE
FILE
FILE
FILE
FILE
FILE
FILE
FILE
FILE
FILE
FILE
FILE
FILl:
FILE
FILE
FILE
F {i.E
FILE
FILE
FILE
FILE
FILE
FILE
FILE
FILE
FILE
FILE
FILE
FlU:
FILE
fiLE
fILE
FILE
fIlE
fILE
fILE
FILE
FILE
fILE
FILE
FILE
FILE
FILE
FILE
fILE
F [LE
FILE
FILE

107
108
109
ltO
111

112

LABEL

NEXTSEQ

NEXT LADEL

336
120
319

lROS E"l
TS T PC I
RS TAfT

CONe ON
SfR04

268

SNSSTC

SIOliO
MODE

119

TSTHIO

CCOM 123
124

STATOS
lERCHN

RSTATN

113

114
115
li6
117
118
119
120

TSfHIO
TSfPCI

121

122
123

124
125
126

In

l28
l29
130
131
132
133
134
135
136
13 7

138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
15b

157
158
159

1.25

lERT

129

BAON

LERCHN
lERT

STATEMENT
SAL
BR
BAL
TO=O$KO 1
SAL
Tl=O$K04
S TH U AS, T+O
BR IF GO BIT 7=0
SET MODE K=OO
RDH P DA,B8
Hl=O
tiR
BR IF GO BIT 6= 1
V1=Vl+K04
RDH 0 V+O
H1=0$K80
BR IF 01 BIT 4=1
Hl=O
TO=O
BR IF BA4= 1
SET MODE K::OO
BR
STOP

CLOAD-=*EbO,
COMMENTS

EC

LEVEL=128211

BAl TO lERO SEN SE BYTE S
SAL TO RE SE T GA TEO AfTN
SE T SEEK CHECK SENSE 0-7
STORE SENSE
BR IF NOT TID
SET CPU MODE AND lONE
RE STORE CPU P REG
BR IF HID
ADD 4 TO CCW AODR
SE T PC I BIT FOR CHNL STATUS
PC I IN CURRENT CCIt
l ERa CHANNEl STATUS
ZERO HI ADDR BYTE
BR IF IPL
SET CPU MOOE AND lONE
BR TO STORE SRATUS AND SE T CC 1

BR IF

CCOM 135 Sf ATUS
BAON
AEND
***********************************************************************
*
**
*
*
CYCLIC CODE HARDWAR E TEST
**
*
*
**
*
*
***********************************************************************
*
ASEQ
AL07=68
CLEAR THE SENSE BUFFER
BAL
CCTEST
336 lRCSEN
SET NTO LATCH
SET FIB K=80
SET FILE MODE AND lONE
SET MODE K=09
INITiAL RESET
RST FIB K=40
SET DIAGNOSTIC MODE
SET DIAC K=lO
SET DIAG INDEX
SET OlAe K=20
SET DIAG ADDR 0
SET DIAS K=81
SCT CONSTANT OF
Pl=0-K20
FOP=P1
LOAD OP REG
LOAD WRITE BUFFER
FEBO=P1
TEST FOR CORRECT BITS I N VIR BUFF
243 PEDS
BAL
PO=FOP
GET OP REG BITS
PO=POoKFF
MASK FOR CORRECT OP REG BITS
BR IF lNl
BR IF or REG ERROR
212 ALUCHK
RESET OP REG
FOP=PO
PO=FOP
GET OP REG BITS
BR IF lNl
BR IF OP REG NOT RESET
212 ALUCHK
ADvANCE B IT RING
BAL
233 SHIFT8
GE l READ BUFF BITS
PO=SDI
BAL
TS T XFER OF WR TO RO BUFF
244 XOR
PO=DS
BR IF lNl
BR IF WR BUff NOT RESET
212 ALUCHK
AOV TO lONE 1
SH OIAC K=Ol

PAGE 245

ALOR

WORD

OC16
OC 18
OClA
OClC
OCIE

23<;0
2013
4fOf
2025
430F
3110
SC06
2035
2018

UL20
OC 22

OC24
0(,26

0C28
UC 2A
UC 2C

OUE
u.c. 30
0(,32
0~34

0(. 36
JC 38
dC JA
Ut,3C
JL-

3E

0(40

OC 42
UC44
(,L-46

UC48
OG4A

UC4C
OC4E

4FDF
SCCE

5BCF
2085

3023
B346
3073
8342
3114
8C,)2
20A3
8342

1000
CAFF
23S0
3114
8C02

2045
JOt]
8342

DC 50
D" 52

1000

uC 54
UC 56
UC 58

3114

23<;0
23G8

OC5A

2015
3CA3

OC5C

B342

(JeSE
UC60
OC62

1000
3114
2380

UC64

2308

OC66

2035
3DA3

OL68
OC6A
DC6C
OC6E

OC 10
OC12
OC74

B342

1000
3114
2308
2055
3DB3

OC1C

B342
lOOO
2480
8C8C

tK 7E

2100

OC76
UC78

UC 1A

SEQUENCE NO.
fiLE
fILE
fILE
fiLE
fiLE
FILE
FILE
fILE
fILE
FILE
FILE
FILE
fILE
FILE
fILE
FILE
FILE
F [LE
FILE
FILE
FILE
F {LE
FILE
FILE
FILE
FILE
fILE
FILE
FILE
FILE
FILE
FILE
FILE
fiLE
FILE
FILE
FILE
FILE
FILE
FILE
fiLE

FILE
FILE
FILE
FILE
FILE
FILE
FILE
FILE
FILE
FILE
FILE
FILE

LABEL

NEXTSEQ

NEXTLABEL

160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
116
177
17d
119
180
181

239

SHIFT 2

235

SHIFT6

244

XOR

242

SEH

237

SHlFT4

242

SED

182

212

AlUCHK

IB3
184
185
IB6
181

237

SHIfT4

188

242

SEH

242

SET 3

242

SEn

242

SET3

219

ceNDER

189
190
191
192
193
194
195
196
197
198
199

200

201
202
203

204
205

206
207
208
209
210
2Ll
212

ALUCHK

ClOAD=*E60, EC LEVEl=128211
COMMENTS

STATEMENT
SET OIAC K=09
Pl=OSKOl
FOP=Pl
Pl=OSK20
FEB():::Pl
SET DIAB K=81
BAL
Pl=O$K30
P 1= P 1 \S=T 1
DESELECT MOD
RTN
***********************************************************************
*
**
*
SET DEVICE ADDRESS
- SUBROUTINE
**
*
FOK GATED ATTENTION
**
***********************************************************************
Pl=OSK90
SET DEVICE ADOR 0
RST FIB K=40
GIVE INlTl RESET TO RST CHN END
SET DlAB K=OO
301 MODO
BR IF FGAO=1
BR IF MOD 0 GATED ATT
Pl=Pl+KOI
305 MODI
BR IF FGAl=l
BR IF MOD
GATED ATTN
Pl=Pl+KOI
303 M002
BR IF FGA2=1
BR IF MOD 2 GATED ATTN
Pl=P1+KOI
301 MOD3
BR IF FGA3=1
BR IF MOO 3 GATED ATTN
RTN
***********************************************************************
*
**
*
MJOUlE SELECT
- SUBROUTINE
**
.*
**
***********************************************************************
HO=O
RDH P CA,8E
GET I/G AODR
GIVE 1NI Tl RE SET TO RST CriN END
RSTFIBK=40
BR [I' PI BIT4:I
BR I I' DR I VE I S 8 OR HIGHER
ENDS El
311
BR If DRIVE IS 4 OR HIGHER
BR IF P 1 BIT 5= 1
311
ENDSEl
PO=OSK80
BR If PI BITo.=O
304 TEST2
PD=OSK20
BR IF PI BIT1=0
30B SELECT
PO-OS K40
BR IF PI BIT6:0
30B SelECT
PO=OSK10
HO=O
RESET TAG REG
TGRO=HO
MODULE SELECT
MS=PO
RESET FILE BUS OUT
FBO=HO
RESET CCW FILE FLAGS
FFO=HO
RTN
***********************************************************************
*
**
*
KESET GATED ATTENTION
- SUBROUTINE
**

*

**

***********************************************************************

PAGE 248

ALDR

wORD

0224

2CG7
4BCF
2U45
4EUF
2015
4E\Of
20e7
4BOF
4EiJF
4FUF
490F
128E

0226
0n~

anA
022C
0221:
0230
t)<' 32
u<'34
0<'36
0<'38

unA

U1l4
0116

0118
011A
OliC
aIlE

FILE 008
FilE 019
FilE 026
F II E 027
FILE 031
FILE 040
FILE 042
FilE 043
l-ilE 048
FlU: 051
F Il E 053
t-ll E· ObI
FilE 064
FILE 070
FILE 073
F Il E 076
FILE 078
HlE 081
F I LE 084
HU 086
FILE 092
F I L E 095
f Il E 101
F Il E 105
fILE 109
FILE 111
FILE li2

SEIo/UI:NCE NO.
F [lE
FilE
FILE
FILE
FILE
FILE
FILE
FILE
FILE
FILE
FILE
FilE
FILE
FILE
FILE
FILE
FILE
filE
FilE
fILE
FILE
FILE
fiLE

2CG7
2D13
7C52
20C7
7Ct2

128E

DClA
FILE
FILE
FIlE:
FILE
FlU
fiLE
FILE
FILE
FILE
FILE
FILE
FILE
FILE
FILE
FILE
fILE
FILE
FILE
filE
FILE

113
011
012

on

010
027
029
035
043
049
036
058
OH
Oel
037
OS5
074
012
079

319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341

LABEL

*
*
*
*
*

ZROSEN

oel

oe9
088
0<;;1
00
017

ClOAO=*E60, EC lE VEl=128211
COMMENTS

STATEMENT
PO=O
T GRO= PO
Pl=0$K40
FBO=Pl
Pl=O$KIO
TGRO=Pl
Pl=O
TGRO=P1
FBO=Pl
fOP=Pl
MS=P 1
KTN

RSTMOO

RESET GATED ATTENTION SUBR
RESET CONTROL
FilE BUS OUT=IBIT
RAISE CONTROL
RE SE T CONTROL
RE!)ET FilE BUS
RESET FILE OP REG
DE SEl EC T MOD

***********************************************************************
**
**
ZERO SENSE BYTES
- SUBROUTINE
**
*
**
***********************************************************************
PO=O
Pl=O$KOl
STH P DA.9A
Pl=O
STH P OA,9C
RTN

ZI:R(J SENSE BYTES 0,1
ZERO SENSE BYTES 2,3

**********************************
* CRess R~FERENCE FOR CSECT FILE *
**********************************
FILE 013
FILE 033

FilE 015

fILE 034

fiLE 045

FILE Ob3

FILE 039
FilE 218

fILE 065

filE 069

0<;;0

FILE
FILE
filE
FILE
FILE

NEXTlABEl

RSTAH

oeo

flLE

NEXTSEQ

FILE 103
fILE 099

FilE 071

PAGE 249

ClOAD=*E60. EC lEVEl=128211

114
115
119
120
124
125
129
FILE 131
FILE 212
fiLE 219
HU: 222
t Il E .233
<'ILt 23~
FI Lt: 231
f Il E 239
HLE 242
i-ILE 243
F I LE 244
HLE 241
HlE 250
F Il E .260
filE 264
FILE 265
F Il I:: 268
FILE 280
·FILE 296
fILE 301
F IL E 303
FILE 304
r I LE 305
f-ILE 307
f- Il I:: 308
f- Il E 311
FiLl:: 319
fILE: 325
riLE 336
FILE
FILl::
t' 1LI:
l-ILI:
i-I LE
F Il E
FILE

FilE
FilE
FILE
fILE
FilE
fiLE
FILE
fILE
FILE
FILE
FILE
FILE
FILE
FilE
FilE
FilE
FILE
FilE
FILE
FILE
FILE
FINT
fILE
FILE
BSYS
FILE
FIll:
FilE
fiLE
F liE
FilE
FilE
FILE
BSYS
FILE
FILE

**********************************
* CROSS REfERENCE fOR CSECT FILE *
**********************************

042
l06
114
IC8
119
123
126
0'11
1.50
211

FILE 052

FilE 153

FI lE 158

ObO

FILE 100

FilE 221

fUE 182

filE 246

FILE 195

FILE 202

FINT 035

1~4

170
178

FILE

18~

166

IH

FilE 180

147
1 ?6
245

f-lU 114

038

2?1
025
016

III
029
059
283
20

FILE 044
FILE 252

filE 188

FilE 062
F It.E 258

FINT 036
FINT 021
FilE 018

302

2c5
289
304
2'19
030

fILE 306
FILE 300
FILE 101

FILE 109

FINT 033

FilE 095

fIlE 107

FILE 131

105

081

FilE 208

PAGE 250

CLOAD:*E60. EC LEVEL:12821l

FlU

DESCRIPTIVE

PAGE 251

TEXT

ENTRY POINTS
(0140)

THIS IS THE ASSIGNED ADDRESS fOR TRAP ENTRY
THE OPERATION BRANCHES ON THE CHAINING,
STATLS MODIfIER, AND UNUSUAL CCNOITION
INDICATORS. THe ROUTINE EITHER READS IN
THE NEXT CCW OR BRANCHES TO THE ENDING
SEQUENCE.

GETOP

ALJDR

MCHCHK

THIS IS A RETURN ENTRY TO THE ROUTINE USED
AFTER BRANCHING TO THE MACHINE CHECK TRAP
RDUTl NE.

PTRCHK

THI S EN TRY IS F ROM THE BWR PROUT! NE TO SET
THE PROTECTION CHECK STATUS BIT.

... ORO

ul40
0142

2222
!lDAD

0620
0622
0624
0626
002!l
Gb2A
Ob2C
Ob2E
0630
0032
0634
U636
0638
063A

94A4
94A4
B62A
2f1B
5EE4
1000
5CFtl
A96D
OC8S
FOC2
5EFO
Of83

Ob3C

063E
0040
0642

THIS IS THE NORMAL ENTRY fOR THE INITIAL
SEQUENCE TO OBTAIN THE fiRST CCW. THE CCW
I S IE STED FOR VALID FLAGS A~D CCUNT BEFORE
BRANCHING FOR A COMMAND DECODE.

FOEE

5CF8
A96D
CC 8S
C4El
CDC9

SEQUENCE NO.
F ILJ 001
FIll 002
FlU 003
Fill 009
FIll 010
FIll Ou.
FIll 012
FlU 013
fill 014
Fill 015
FIll 016
Fill 017
FIll 018
fill 019
fill 020
FIll 021
FIll 022
FIll 023
fIll 024
fill 025
f Ilf 026
F ILT 021
FIll 028

NEXTSEQ

LA8EL

T
ATABlE
AEND
TRAP
TRAP
TRAP
TRAP

STATEMENT
2311 FEATURE

THIS ENTRY IS FROM THE BWRP ROUTINE TO SET
THE PROGRAM CHECK STATUS aIT~

IPl

THIS ENTRY IS MADE DURING THE IPl OPERATION.
THE OPERATION lOOPS ON THE FIRST COMMAND
UNTIL THE DE TRAP FOR THE RECALIBRATE CLEARS
THE lOOP CONDITION. THE OPERATION CONTINUES
wiTH THE READ DATA SEQUENCE FOR THE INITIAL
24 BYTES.

SEl S TA

THIS ENTRY IS USED TO SET THE EQUIPMENT
SENSE BIT WHEN AN OP REGISTER FAILURE IS
DETECTED.

COMMENTS
TRAP ROUTINE fOR FllES

ADDR:0140
011

TRAP

0

071

1

011
016

NOT CHN
NOTCHN
FRST BT

2
3

FRSTST
060
028
061
GETOP
060
NOTTIC

NEXT LABEL

WRAP

060
031

LINK V MMSKl=l
N N:: FFIB IT S 23

BR
BR
BR
HI:: H1 +KO 1
H=H+l
RST FIA K=80
RDH P H+2
PROCHK N SR IF Pl:NI
I=POllK08
NOH I C
eR If llNI
RDH H H+O
I=H1*-K08
BR If llNI
TICCHK
RDH P H+2
PROCHK N SR IF Pl=NI
Z= POaKOS
PROCHK 0 BR If 1=0
BR IF fflO=l
coeR

SET filE PRIORITY-STORE BACK UP
UNlSUAL CONDITION OR NO CHAINING
STAT MOO AND UNUS COND OR NO CHN
CMND OR DATA CHAI N-NO UNUS COND
STATUS MOD AND CMND OR DATA CHN
AOD 8 TO CCW ADDRESS
RESET THE TRAP LATCH
GET CCW SYTES 0&1
SR If 2ND BYTE INVALID
MASK FOR TIC
BR If NOT TIC
GET NEW CCW ADDRESS
MASK fOR DOUBLE WORD BOUNDRY
BR If INVALID ADDRESS
GET OP

BR IF DATA CHAIN

Al.JDR

WORD

SEQUENCE NO.

v644

4FCF
FOEl
5AF8
5CF8
58F8
eC83
FOE6
4886
C4E7
1f:42
CDf5
4DCF
5(, 52
BB9a
4UCF
2C07
2035
3043

Fill 029
fIL T 030
Fill 031
Fill 032
FILl 033
Fill 034
Fill 035
Fill 036
FIlT031
FIll 038
FUT 039
fIll 040
FIll 041
flLT 042
fill 043
FILT 044
FILT 045
FIll 046
FILl 047
Fill 048
Fill 049
FILT 050
fIlT 051
FILl 052
fill 053
flU 054
fIll 055
F lL T 056
FILT 057
Fill 058
FIll 059
F.I U 060
Flll 061
flU 062
F I LT 063
fIll 064
fIll 065
flU 066
flU 061
fll T 068
Fill 069
fIll 070
Flll 071

Ob46

vo.48
vb4A

064e
v64E
J6~O

0652
uo~4

vl>~6

Ob58

U65A
I)65e
u(,?E
uo74
Uti "16

0618
vblA
v07C

U67E
0120
0122
vll4
0126
v128

OI2A
012C
U12E

aBO
u132

~ECO

8BA3

9152
8132
8132
FFAE
DSAO
5(,52
BlH

OSAO
CBAO
5E42

OB4

86F6

Ull60

6EE4

J6b2
06b4

bH4

J672

6Ef4
7E:42
2F25
2EC7
8E3A
5E4Z
6EE4
6660

l'tA4
l'tA6

50Ff
FeBD

hAS
14AA
14AC
14AE
14BO
1482
14B4

DBlE

06b6

vob8
1.16bA
066C
Ob6E

0670

1486

l4tl8

8220
2F43
EB32
2f15
fB36
2f25
C680
2EC3

060

NEXTLABEl

063

PROCHK

063

PRO('HK

043

DATCHN

FlU 007

DECODE:

OAICHN

0
1
2
3

TST5
ROWR
PROCHK
PROCHK
PROCHK
PROCHK

FOP= PO
BR If LZ=O
RDH T H+2
RDH P H+2
RDH I H+2
l=PO*-K08
BR IF LZNZ
3
1= I
3 BR IF l=O
5TH H DA,98
BR IF fF 10= 1
FFlJ=PO
RDH P DA,9A
N N=FOPL
FFO=PO
po=o
Pl=OSK30
Pl=PUK04
RDH H AS,P+O
N=FlJP aITS67
N

058
056
049

CDRTN
LASTST
RDWR
RDWR
TSl5
CDRrN 0

FlLX 088
049
049

FMRETN
CORTN 0
CDRTN 0

FILX 184

CDEND

049
CORTN
CDRTN
CORTN
CDRIN

F I LX 233
058

0
1
2
3
FllX 412

ZRCSN2

TlCCHK
060
ASEQ
AL01=24
NOTCHN

MCHCHK
TSTPR T
PRTCHK
JSrWRP
WRAP
RSTBC

DEIISTA

STATEMENT

PRCCHK 0

CDBR

FIll 012
fIll 013
flL I 014

Fill 015
FILl 076
fill 011
fill 018
FILl 079
fILl 080
f I l l 081

NEXTSEQ

LABEL

PRCCHK 0

083
016
BMCK 003

NOCPUE
TSTPRT
TIUPWO

018

TSTWRP

080

RSTBC

~R

BR
BR
BR IF fOP3=0
BR If FOP5:0
RDH P OA,9A
BR
BR IF FOP5=O
BR IF FOP4=O
RDH H OA,98
BR
H=H+2
H=H+2
H=H+2
STH H OA,98
Hl=OSK20
HO=O
BR
ROH H DA,98
H=H"2
BR
H1=TGRI
BR IF Ll=O
BR IF Hi BIT5"'O
8R
Hl=OSK04
BR IF Hl SIT6=0
Hl=OSKIO
BR IF HI BIT 7.. 0
Hl=O$K20
RST Be K=08
HO=O$KOe

CLOAD=*E60. EC lEVEl=128211
COMMENTS
LOAD THE OP REG
BR IF INVALID OP
GET DATA ADDR FROM CCW
GET CCW BYTES 6&7
MA SK FOR VAll 0 FLAG
BR If INVALID FLAG-BITS 567 NZ
TEST FOR VALID CCW COUNT
BR IF INVALID COUNT-COUNT=OOOO
SA liE CC W AODR
BR If DATA CHAIN
SET CCW FLAGS IN HARDWARE
GET PREVIOUS OP AND FILE MASK
BR TO DECODE THE OP
SEI FLAGS IN HDWR
SET
AUX ADDRESS
0034
GET ADOR Of NEXT RYTE-SK SNS DC
SENSE OP

TEST fOR LAST BYTE

CTL OSt-BR I F SEE K
BR If SEEK
GET FILE MA SK BYTE
RETURN TO SET FILE MASK
GET CCW AODR
CORRECT THE CCW ADDRESS
CORRECT THE CCW ADDRESS
CORRECT THE CCW ADORESS
SAVE THE CCw ADDRESS
SET PROGRA~ CHECK FOR STATUS
ZERO OEVICF STATUS
Gel CCW ADDR
UP DA TE ce W ADDR
GEl CPU DETEcrEO ERRORS
8R IF NO CPU DETECTED fiLE ERRO~
8R If NOT MACHINE CHECK
STORE lOG our AND REf URN
SET CHAN CTL CHK FOR STATUS
BR IF NOT STORAGE PROTECT
SET PROTECTION CHK FOR STATUS
8R If NOT STORAGE WRAP
SET PROGRAM CHK FOR srATUS
RST CPU ERROR LATCHES fOR FILE
SET CE+DE FOR STATUS

PAGE 252

ADDR.

1.0RD

SEQUI::NCE

14BA
14BC
14 BE
I'tCO
14C2
14C4
14G6
14CB
14CA
14CC
14CE
1400
1402
14Ult
1406
1408
140A
14DC
140E
l'tEO
1'+E2
141::4
1.4Eb
14E:8
l4EA
1't EC
14Et:
14FO
1'+ F2
14f4
14F6
1 'tf B
14f-A
14fC
14FE
lSOO
1::> 0 Z
1:)04
1':>00
1:>08

951A
lFC1
C 188
E5fE
2045
4EDF
2EtS
4BEf
2Elt3
4Bff
1000
4Hf
fB06
B2.36
C3FD
FDS9
5E42
aH6
6H6
5CFB
40Cf2et3
4fCf
,C 52
2C01
f8EC
7C52
OE04
3DOO
2C 15
4BCf
6EE4
C3FB
0222
CAB6
OFtl7
4BFf
A37E
5AUF
C4lK
5C62
CA9F
CSBC
5BCF
6CDI
FOSS
BEOC

Fill
Fl LT
Fill
Fill
FI LT
fIll
fIll
fIll
Fill
F ILT
fiLl
fIll
Fill
FIll
FIll
Fill
FILl
F I LT
Fill
F I LT
F I LT
F I LT

l~OA

150C
1JOE
1:; 10
1~12

1')14
1:.>16
1518
1 ':llA
lSlC
151E
1520
152Z

20C1
2C 13
956A
5E52
EB3l
C032

fill
Fill
F I LT
Fill
FlL T
FIll
F I LT
FILl
Fill
Fill
Fill
F I Lr
Fill
FIll
Fill
fI LT
Fill
f 1 LT
FIll
FILT
FIll
FllT
FiLl

FIll

NO.

OB2
083
084
085
OB6
OB1
aBB
089
090
09l
092
093
094
095
096
097
09B
099
100
101
10Z
10.3
104
105
lOb
107
108
l09

LABEL

NEXTSEQ

NEXT LABEL

US

TSTSM

081
116

OEvSTA
NOTGAT

096

NOCPUE

TSTBA
IPL

U5
097

TSTBA
NTORST
RTNWD
I PL

IHEI NO

101

WTEINO

"'TEBA
RTNWD
NOTGAT

114

WTEBA

120
120

TSTTe
TSHC

FILX

113

110
111
112
113
114
115
116

III
118
119
120
121

flU 295

TRPRTN

147

ERRTsr

132
147

SWUHO
ERRTST

129
flLX 389

NOCOMP
SETcn

TSTTC

122
123
L24
125
126
127
12 B
129
130
131
132

F I LT
FIll
F ILT
f I LT
FIll
FIll 133
FI LT 134

NOCOMP
SKCHK
110

CHANZ

141
142

FIPRO
NOS EEK

SWI THO

STATEMENT
BR
Hl=O
8R IF ~AS 14= 0
BR IF OASI2=0
Pl=0$K40
FBO=Pl
HO=0$KI0
T GRO= HO
HO=0$K04
T GRO= HI
RST FIA K=80
FBO=HO
BR IF FOP1=O
BR
BR IF BA4: 1
BR IF PI BIT 3= 1
RDH H OA,9B
H= 1+-2
H=H-2
RDH P H+ 2
FFO=PO
PO=O$K06
FOP=PO
RDH P OA,9A
PO=O
BR IF FGAl=O
ST H P CA,9A
RST fIB K=20
SET FIA K=80
PO=0$KI0
TGRO=PO
H=H+2
BR If BAlt: 1
fUN V MMSK1=0
BR If OS4=0
BR If fOPl= 1
TGRO=HI
BR
Pl=TC
BR IF lNZ
ROH P DA.9C
BR IF DS4= 1
BR IF DASIO=O
PO=SDI
PO= POn P 1
BR IF L ZNZ
BR
Pl=O
PO=0$K01
BR
RDH H OA,9A
BR IF HI BITo=l
BR IF PI BITO=O

CLOAO=*E60, EC LEVEl.=l2B211
COMMENTS

BR IF NO UNUSUAL CONDITIONS
BR IF NOT SEL GATED ATTENTION
SET READ GATE BIT
PUT RD GATE ON BUSS TO fiLE
SET C TL TAG BIT
I S SUE C TL P UL SE
SET SELECT HEAD BIT
RE SET TAGS
RE SET TRAP LATCH
PUT HD SEL ON BUSS
BR IF FROM IPL
GET NEXT CCW
BR If IPL LATCH 1 S ON
WAIT FOR DEVICE END FROM RECAl
GE T CCW ADDR
DECREMENT CCW ADDR
TO FLAG BHE
GET FLAGS
SET FLAGS IN FLAG REG
SET READ DATA BITS
SET READ DATA IN OP REG
GE T PREVIOUS OP IND
SET PREY OP
WA IT FOR INDE X
STORE PREViOUS OP
COLD STAR T RE SET
ISSUE GO PULSE
SET CONTROL BIT
SET C TL JAG
RESTORE CCW AODR
IF IPL LA TCH ON WA IT HERE
RETURN FROM TRAP
BR IF NOT TRAP GATE
BR IF MULTI-TRACK BIT ON
RE SET TAG REG
GET TERMINATING CONDITIONS
BR IF ANY ERRORS
GE T B UFfERE D SEEK DATA
BR IF HEAD SWITCH TI ME
BR IF NOT COMPARE HA
GEl HA FROM READ BUFFER
COMPARE HEAD NUMBERS
BR IF A T WRONG HEAD
ZERO SENSE BYTE 1
SET SEEK CHK FOR SENSE
GEl FILE MASK ALG
BR IF FILE PROTECTED
BR IF NO PRE V SEEK

PAGE 253

ADD/{

WORD

1,24
IJ20
1')28
b2A
152C
b2E
1')30
I? 32
1534
1;;'36
[538
1,3A
1'> 3C
I? :.JE

2018
1C62
50f9
OOAB
FOB5
8DD4
A3DS
C69C
2025
2C C7
2FC7
956A
2DC 7
2C45
DEEA
21::65
EED9
FA9B
5ACF
C4DC
1Ct2
2EC3
Daf5
C8f7
20C1
2E 15
2C 15
40

1'>42
1'>44
1')46
1')48
b4A
1,4C
1,4E
15')0
1552
15')4
1':>')6
1'>58
1~~A

1':>5C
1':> ':>E

1')60
1562
156~

1?66
1?08
1':>64
1 ':lbC
1,)6E
bl0
1572
1574
1576
1':> 78
1'J 7A
h7e
I? 7t

1580
15B2

1584
15Bb
1588

1,8A
15BC

1t62

2EE3
3C25
DSF6
3E 13

1C52
2FC7
FOfE
3£045
C9S2
3F85
1004
CS8D
F'i8F
4886
C48F
3F45

SEQUI::NCE NO.
f ILT
FI LT
F ILT
fIll
FlU
FlU
f lLT
F I LT
F I LT
FILT
f I LT
FILT
F I LT
FlU
FllT
fllT
FILT
Fill
F lLT
fill
FILl
fIll
F 1 LT
F ILT
f l LT
FILl
FILT
fill
FIll
FILT
FIll
FIll
FIll
F I LT
FilT
f I LT
FILT
FIll
F II T
FILT
F 1 LT
F I LT
FIlT
fIll
F I LT
F 1 LT
FIll
F I LT
Fill
F I LT
F I LT
F Il T
FIll

LABEL

135
136
137
138
139
140
141

142
143
144

fIPRO
NOSEE K
HDSEOC

NE XTSEQ

143
FILX 361
FllX 334
flLX 139

NEXTlABH

HDS EUC
GETCYl
PROTEC
INVSEQ

145

170

CHANZ

149

110

CHANZ

150
151
152

161
130

EQUCHK
SKCHK

163

SETSNS

115
116

SETUEX
STR9A

146
147
148

ERRTST

153

154
155
156
151
158
i5~

160
161
162
163
164
165
166
167

SHSTA
EQUCHK
111

STR9C

161

rSTMAM

169

STRIP

116

STR9A

TSTSM

180

TST pel

TS TPC I

182

RS TTRP

181
188

SETICL
ZERT

188

ZEI8A
u'J Be
0:>8E
0,90

9114
8F9D
EFce
EFD6
86AC
8fBO
EfC8
EFD6
8bAC
BFDD
EfCE
Ef91
Df9l
5E32
ffF2
3EOO
C02C
B69C
OE2D
f5AB
Ee31
2C 33
4FCF
5DDD
3DB5
5E42
86EA
lE45
1E32
2ee1
HE 1
f8B4
B228

05'12

U?'i4
'.J'J'i6
J:>9d

l)? '1A
OS9C
059E
u5AO
J'JA2
0'.lA4
J,A6
ll':lAB
U'JAA
o':lf-2

u'Jf4
0':lF6
ll'Jf8
O':lfA
05ft

O'JfE
U600
U602

O'JAC
()'jAE
05BO
0582

J:>B4
0,B6

u'.>138

ffCB

u':ltlA
O,BC

DF91
CDU
3EOO
f 5C 1
2Cb5
4DCF
A39A
ff90
80fA
E851
f84A
ffCB

U::>t3E:

O?CO
05C2
O?C4
O?Cb

05C8
U5CA
05ce
lJ'>CE
0'JOQ
J,lJ2
0:'04

FlU
F ILX
FILX
fIlX
F I LX

FIlX
FIlX
flLX
F I LX
FIlX
F ILX
FIlX
FILX
fllX
fIlX
Fllx
FllX
FIlX
fllX
FILX
FLlX
fILX
FIlX
fllX
fIlX
FIlX
FILX
FILX
FIlX
FILX
F ILX
FILX
F I LX
F ILX
FllX
FllX
F I LX
FILX
F I LX
F ILX
f ILX
FIlX
FllX
f lLX
FllX
F lU(

flLX
FIlX
FIlX
F ILX

F ILX

01('A

F {LX

8694

FllX

011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
u.53
054
055
056
057
058
059
060
061
062
063

NEXTSEQ

lABEL

SEQUENCE NO.

DECODE
DECODE
DECODE
DECODE
DECODE
DECODE:
DECODE
DECODE
DECOUE
DECODE
DECODE
DECODE

SEQ
SPACE

RMvSID
PIND
SCINDX
*
*
*
*
*

I PlRC T

I PlRO

RDHA
SETPO
RDDARO
ROCKD
SMTST

4
5
6
7
B

9
A
B
C
0

E
F

NEXTLABEl

STATEMENT

ClOAD=*E60. EC lEVEl=128211
COMMENTS

BR
SENSE OP
N:FOP BITS23
WRITE DATA OR RO
READ DATA OR RO
BR IF FOP2=0
SE EK OR RES TORE
BR IF FOP 2=0
IN vALID CMNC
BR
WR HE HA OR SEARCH KEY
N N= FOP BITS23
READ HA
BR IF FOP2=0
BR If FOP2=0
SE EK CYl OR SEEK HC
BR
INvALID CMND
WR ITE KEY &DATA OR SCAN
N N= FOP BITS23
READ COUNT KEY DATA
BR If FOP2=0
SET FILE MA SK OR SPACE COUNT
8 BR IF fOP 2=1
BR IF INVAL 10 COMMAND
8 BR IF FOP 1= 1
RDH H DA,8E
GE f STA TS
BR If fOP 3=0
BR If SPACE COUNT OP
029 SPACE
SET NON TIME ORIENTED
SET fiB K=80
BR IF SET FILE MASK ALLOWED
038 RMVSIO
BR If PI BlfO=O
BR
139 INVSEQ
BR (f FIRST OP IN CHAIH
038 RMVSIO
BR IF HO BIT 1=1
BR IF ERA SE GA TE ON
BR IF DAS13=1
028 SEQ
BR If PO BIT 2= 1
BR IF CHND fRM SNS.CTl
040 PIND
PO=0$K03
FOP=PO
STRIP KEY&DATA BITS FROM OP REG
SA liE SEEK MA SK
Pl=Pll
Pl=PI$KBO ,
SET MASK TO INH All WR( IE S
RDH H DA.98
GET CCW ADOR
RSPOGO
SET PREll OP AND GO PULSE
BR
178
STRIP CAME fROM SIO STAr
HO=HO*-K40
STH H DA.8E
STORE STA TS
SET PREVIOUS OP
PO=O
BR IF FOP3= 1
BR IF SET FilE MASK OP
079 SETFM
WA IT FOR INDEX
BR IF FGA1=0
042 SCINOX
GO srORE PREV OP AND END
BR
106 STRFM
***********************************************************************
**
*
I PL OR READ COUNT
**
*
**
*
****************************************************** *****************
BR IF READ COUNT OP
13R IF FOP3= 1
058 SErpo
BR If INVALID CMNO
015 DECODE 8 BR If FOP 1= 1
BR If PREVIOUS SET FILE MASK IPl
015 DECOOE 8 BR If PI BIT 0= 1
SET FIB K=80
SET NON TIME ORI ENTEO
BR IF DAS 13= 1
BR IF ERASE GATE ON
053 IPLRD
PO=OSK60
TURN ON CC AND SLI
fFO=PO
SE I CNND CHN IN FLAG REG
BR
GO EXECUTE RECAlIBRATE
315 RECAL
BR If INVALID CMND
015 DECODE 8 BR If FOP3=O
BR
178 RS POGO
BR IF PREIlIOUS SEARCH
BR IF PO BIT6=l
061 SMTsr
BR If PO BIT1=O
BR IF NO PRE II SEARCH
058 SETPO
BR IF fOP3=l
BR IF READ RO OR READ eKO
058 SErPO
BR If DASI5=O
SErPO
BR IF NO STATUS MODIFIER
058
BR
135 SET04
195
125
059
069
147
141
057
069
141
151
060
015
015

SENSE
WRDARO
RDDARO
eTLOP
INVCMN
WRHA
RDHA
CT LOP
INVCMN
WRKD
ROCKD
DECODE
DECODE

N

PAGE 258

ADOR

0506
US08
USDA
O,DC
OSOE

05EO
05E2

WORD

OF91
3EOO
2C25
7C52
A384

SEQUENCE NO.
fIlX 064
FILX 065
fllX 066
fllX 067
FILX 068
fllX 069
FlU 010
FIlXOll
fH.X072
FIlX013
FllX 074
FIlX 015
FllX 076
FILX 011
FIlX 078
fH.X 079
FIlX 080
FILX 081
FIlX 082

05E4
05Ee

50B8
COE9
5886
BIH
5886
C'tE6
7C52

OSEE

SE42

05F()
31fE
3200
3202

FlU 086

862A
0081
fCI!4

3204

91A6
30ll
2C.25

FILX 087
FIlX 088
flLX 089
F ILX 090
FllX 091
FILl 092
FIlX 093
FILX 094
F.ILX 095
FIlX 096
FIlX 097
FIlX 098
FILX 099
FllX 100
FILX 101
FIlX 102
FILX 103
FIlX L04
FlU 105
FILX 106
F ILX 101
F ILX 108
F I lX 109
FILX HO
FlLX 111
FllX 112
F IlX 113
FILX 114
FILX 115
FILX 116

OSH
05E6
05E8

320e
320E

3210
3212
3214

3216
3218
32lA
321C
J21E

3220
3222
3224
3226

eooc

C916

FDIC
30f3
f01C
3003
1015
C025
30115
0028
lOFO
0029
30A5

3230
3232
3234

1C.52
2F45
C089.
F9B5
4886
C488
0086

3236
3238
Jl3A

CE04
5E42

323(

862A

3228
3224

322C
322E

2Ee8

flU 083
FlU 084

lABel

•

•
••

•cnop

NEXTSEQ

•
*•
SETfM

STATEMENT

CTlS

SET fiB K=80
PO=OSK20
STH P DA,9A
BR

083

DelOEC

ROB PI T+1
BR IF FFIO=l

088

FMRETN

BR

082

IGNROC

Fill 016

FRSTBT

091

INVFM
NONSNS
CHNSET

BR IF INI
STH P oA,9A
ROH H OA.98
BR
Z=Pl*-KOB
BR IF LZNZ
BR IF PI 8112=0
BR
Pl=PUKOl
PO=OSK20
BR If Pl BIT4=O
BR IF PI BIT3=O
P1=Pl$KOF
BR IF PI B1l3=0
Pl=Pl$KOD
Pl=Pl*-K10
BR IF P1 BITO=l
Pl=PUK80
BR IF PI BIT 1=0
Pl=P1aKF()
BR ( F P 1 B IT 1= 1
Pl=Pl$KAO
sr H P OA,9A
HI=OSKItO
BR IF HIO=l
BR IF FFI7= 1
1= I
BR IF ZNZ
BR IF FFIl=O
SET FIB K=40
Rsr FIB K=20
RDH H OA.98
8R

1=1-1

FILX 085
CCWAOR
FMRETN
092

I NVFM

273

NONSNS
100

r51B3
TS1BO

TSl83

100

TSTBO

TST80

104

TSTB1

106

STRFM

lOb

STRFM

118
112

STASH
CORLEN

118
117

STASET
CEAOE

flLT 016

FRSTBT

097

TSTBl
STRFM
COMENO

CORlEN
NTORST
CLORsr

SET NON TIME ORIENTED LATCH
SET PREV OP INO
STORE PREV 01'

**********************************.************************************
**
*
SET FILE MASK
**
*
•***********************************************************************
**
1= 1-1

IGNRDC
OCIOEC

elOAO=*E60, EC LEVEL:12821l
COMMENTS

****** •• ** ••• ** •• ***.******.*.*** ••**.*********************************
**
•
CONTROL OPS (NTO RESETI
**
**
**
************.*****************.****************************************
015 OECOOE 8 BR IF FOP1=1
BR If INVALID CMNO
298

*•

NEXT LABEL

GET fILE MASK BYTE
BR IF DATA CHAIN
DECREMENT CCW COUNT
CONTINUE WITH SET FILE MASK
DECREMENT CCW COUNT
BR IF COUNT NOT ZERO
SAVE FilE MASK BYTE
RESTORE CCW ADDRESS IN H
GET NEXT CCW fOR DATA CHAIN
TEST FOR VALID MASK LO
BR IF MASK INVALID
8R IF VALID MASK HI

SET NONSENSE STORED BIT
SET PREVIOUS OP
8R IF INH All $Al.LOW Al.l SEe KS
MASK ALLOWS ALL SEEKS 1ST WRITES
SET ALG TO INH ALL SEEKS
BR IF ALLOW ALL SEEKS
SET ALG TO INH SEEKtSEEK CYl
REMOVE BIT 3 OF ALGORITHM
BR IF ALLOW ALlSINH Ro-HA-CKD
SET ALG TO INH SET FILE MASK
BR .If ALGOR I THM COMPLETE
SETS ALG TO INHIBIT ALL WRITES
BR IF ALG IS COMPLETE
SET AlG TO INH WR HA-RO-CKD
STORE FILE MASK AND PREV OP ALGS
PRESET INCORRECT LENGTH BIT
BR If DATA CHAIN
BR If SLI ON
TEST FOR CCW COUNT 0
BR IF INCORRECT LEGNTH
BR If NOT COMMAND CHAIN
SER FLAG BllS TO ZERO
COLO START RESET
GET CCW ADOR
GET NEW CCW

PAGE 259

AODR

WORD

~206

2f07
2EC3
8E3A

1208
320A

Ob!;o
vo8l
0684
0686
v6ilB
ub8A
ObllC
v68E
ub90
06'1l

0694
0696
0698
J69A
Jb9C

u69E
(JuAO
u6A2
06A4
lJ&A6
J6AB
u6AA
ubAC
(JuAE
\loBll
ilbB2
obB4
ll6B6
(j6B8
06BA
06BC
06BE
ll6CO
01>e2
06C4
06C6
06C8
uoCA
ubce
J6CE
d6DO
0602
,)oU4

JbD6
elIJDH

OF88
DF8E
!l6AC
f6AC
2010
E833
869C
C81B
FC IC
0036
3000
2e43
86H
1)193
2F 15
~bB/:!

86AC
8608
2C23
FH8
2C83
CFEe
2f-O 1
86B8
F81C
Dl9C
fD6A
2F43
It:A5
7E 52
2E23
8E3/:!
OFSO
DFC8
EfEB
86AC
E89D
ES53
DBIC
EO lit
86B6
2010

DICF
869C
DfAO

SEQUENCE NO.
FILX
F I LX
FlLX
FlLX
FILX
FlLX
F ILX
fILX
FILX
FILX
FIlx
F ILX
FILX
flLX
f ILX
FILX
FIlX
FllX
F {LX
FILX
FILX
FILX
FllX
FILX
F lLX
FILX
FILX
F ILX
FILX
FILX
FILX
FILX
FILX
F ILX
FIlX
f ILX
FILX
FIl.X
FllX
FILX
FIlX
FILX
FllX
F ILX
FILX
FILX
FlLX
FltX
FILX
FILX
FILX
FILX
FILX

117
118

119
120
121
122
123
124
125
126
127
128
129
130

NEXTSEQ

LABEL

WRDARO
WRDARO
wRDARO
WROARO
WRDATA

0
1

2
3

131

132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169

WRROOP
PI TE ST
SET04
TDASI
I N"SE Q
WRHA
WRHA
WRHA
WRHA

0
1
2
3

I ~VCMN
WRKDOP
DASI5
FIPROT
COMRE J
SETSEIII
WRKD
WRKD
WRKD
WRKO
WRCKD
P2TE Sf
SETCKO
WRHAOP

STATEMENT
Hl;O
HO=O$KOC

CEADE
STASE T
*
*
*
*
*

NEXTLABEL

0
1
2
3

CLOAD=*E60. EC LEVEl=128211
COMMENTS
ZERO CHAN STATUS
SET CHAN END AND DEViCE END

B~
't12 ZROS N2
***********************************************************************
**
*
WRITE DATA OR RO (05 OR 151
**
*
**
*
***********************************************************************
BR IF WRITE DATA OP
129 WRCATA
BR If FOP 1'"'0
WRROOP
BR IF FOP 1=0
Bft IF WRITE RO OP
132
147 I NVCMN
BR
INvALID COMMAND DECODED
INVALID COMMAND DECODED
141 INVCMN
Bft
SET FlA K=01
SET READ CLOCK CONTROL
BR IF PO 8IT6;1
BR IF PREVIOUS SEARCH 10 OR KEY
150 DAS 15
INVALID SEQUENCE
139 INVSEi,l
BR
HR If PO BIT4::1
BR If PREVIOUS SEARCH HA
138 TOASI
139
I NVSEQ
BR IF PO BIT3=0
6ft IF NOT PREY WRITE HA
BR If PI BIT 1=0
BR IF fILE PROTECTED
152 FIPROT
SET F IA K=80
ISSUE GO PULSE
PO=0$K04
SET PREVIOUS OP
180 STPO
BR
134 PI lEST
BR IF OAS 15= 1
6R IF STATUS MOD&NOT SHORT SCH
SET INVALID SEQ BIT fOR SENSE
Hl=OSK10
153 COMREJ
BR
147 INVCMN
BR
169 WRHAOP
BR
WRITE HOME ADDRESS
PR ESET SEARCH KE Y ALGOR ITHM
PO=OSK02
BR If SEARC H KEY OP
BR IF FOP3=0
177 TSfOP
PRESET SEARCH HA ALGORITHM
PO=OSK08
BR IF SCH HA EQUAL
119 OAT AOP
BR IF FOPO=O
ZERO SENSE BYTe 1
Hl=O
BR
153 COMREJ
BR IF NO PREY SEARCH
139 INVSEQ
BR IF PO BI T7=O
BR IF NO STA TUS MOD
139 I NVSEQ
BR IF OASI5=0
BR If NO FILE PROTECT
118 RSPOGO
BR IF PI BlT3=O
SET FilE PROTEC T FOR SENSE
Hl=OSK04
SET CMIIIO REJ&CONTIIliGENT CONN SNS
HO=OSKAO
STH H DA,9A
STORE SENSE BYTES 0&1
SET UNIT CHECK FOR STATUS
HO=OSK02
411
lROST A
BR
BR IF FOPl=O
BR IF WRITE KEY DATA OP
149 WRKDOP
BR IF FOPl=O
BR IF WRITE COUNT KEY DATA OP
161 WRCKD
BR IF FQPZ=l
BR IF SCAN OP
178 RSPOGO
BR
147 INVCMN
BR If FGA6=l
BR IF ON DEFECTIVE TRACK
L39 INVSEQ
BR IF PO BlTtFl
BR If PREY SCH 10 OR KEY
166 SETCKD
BR IF PO BIT5=O
BR IF NOT PREY WRITE CKD
139 INVSEQ
BR IF PI BIT2=O
BR If NOT FILE PROTECT
135 SET04
BR
152 FI PROT
SET flA K=Ol
SET READ CLOCK CONTROL
BR If ~AS 15= 1
BR IF STATUS MOD&NOT SHORT SCH
164 P2TEST
BR
139 I NVSEQ
BR IF FOP1=1
BR [F INVALID COMMAND
147 INVCMN

PAGE 260

ALJDR

WOR [)

uveA
llbOC
daDE
0bEO
061::2
061::4
\)6E6
06E8
06EA
OOl:C
J6tE
06FO
ObF2
06F4
Oilf6
0OF8
J6fA
0bFC
06H
0100

2C 1,
DD60
86B6
86AC
DFC8
86AC
2C33
CFEC
2CCl
3000
7C 52
2C 15
4BCF
1000
5C32
EC 10
0222
2C 85
7C 32
B362

1.114
1716
l718
I.71A
175C
115E
1760
1762
1764
116b

1168
116A
i1bC

1 '76E
1770
1112
1726
11213
112A
172C
1721:
1730
1'132
1134

1136
1738
173A
113C

3ECO
~FFF

EOOD
€6AC
1C25
7C52
5E32
lE45

lE32
2E07
2F25
3F~3

FBA6
50B8
701::8
974E
f92E
2C01
2DC7
7C62
7CE8
~C62

5EDF
10A3
llD3A
3083
1CEO
2Cn

SEQUENCE NO.
FILX
F ILX
FILX
F I LX
F ILX
F (LX
F1LX
F 1 LX
FlLX
FIlX
FILX
FILX
FILX
FI LX
F I LX
FIlX
FILX
FILX
FllX
FllX
FIlX
FILX
FILX
F ILX
F ILX
FILX
FILX
FlLX
FILX
F I LX
FILX
FIlX
FILX
F lLX
FILX
FILX
FILX
FllX
F ILX
FlLX
FILX
F 1 LX
FllX
FIlX
FILX
FlLX
FIlX
FllX
FILX
FllX
FILX
F ILX
FIlX

LABEL

110
111
112
173
174
115
116
177
118
L79
180
181
182
183
184
185
186
181
188
189
190

191
192
1.93
194
195
196
191
198
199
200
201
202
203
204
205
206
201
208
209
210
211
212
213
214
21.~

21.6
21.7
2113
219
220
221
222

NEXT SEQ

GE T8E
COENO
RTNIC
*

•*
*

...

SENSE

SNSEX
SKSNS

SKRD
SNSRD

S TROl

OUMPSN

0
1
2

3

S TAl EMENT

ClOAD=*E60, EC lEVEL=128211
COMMENTS

PO:O$K 10
SET WRITE HA ALGORITHM
BR IF PI BIT 1= 1
BR IF NOT FILE PROTEC T
BR
152
8R
INVALID COMMANO***wRITE SPEC IAL
147
BR IF FOP 1=0
BR IF WR I TE COUNT KEY DATA OP
161
BR
INVALID COMMAND DECODED
141
SET SEARCH 10 ALGORITHM
PO=0$K03
179
OATAOP
BR IF FOPO=O
BR IF SEARCH EQUAL
SET PREVIOUS OP ALG
PO=O
I S SuE GO P UL SE
SET FIA K=80
STH P DA,9A
STORE PREVIOUS OP AlG
PO=O$K 10
SET CONTROL BIT
T GRO= PO
RA (SE CONTROL TAG
RST F IA K=80
RESET TRAP LATCH
RDH P OA,8E
GET STATS
BR IF PO BU2~1
187 RT NI C
BR IF RE TURN TO I CYCLE S
RT'II V MMSK1=0
RETURN FROM TRAP
PO=0$K80
SE T AC TI VE STA T
SHi P DA,8E
STORE STATS
CCOM 154 CCOB
BR
SET CC 0
*.*********************************************************************
**
*
S ENS E I: SEEK-SENSE COMMON
**
*
**
*
***********************************************************************
SET FIB K:80
SET NON TIME ORI ENTEO
Hl=FOP
GE T OP
199 SNSEX
BR IF HZ=O
BR IF VALID OP
147 INVCMN
BR
PO: PO*-K20
STRIP CONTINGENT CONNECTION BIT
STH P DA,9A
SAVE AL TERED SENSE
RDH H DA,8E
GET STATS
HO= HO*-K40
REMOVE CAME FROM S10 STAT
STH H DA,8E
SAVE STATS
HO=O
SE T
Hl=0$K20
AUX ADDRESS
Hl=HUK04
0024
BR IF FOP7=0
BR IF SENSE OP
211 SNSRD
ROB PI T+1
GET A BYTE OF SEEK DATA
STB PI AS, H+ 1
SAVE BYTE IN AUX
BR
231 SKIPON
BR IF PI BH1=0
BR IF SENSE IS STORED
215 STROl
ZERO
PO=O
Pl=O
SENSE
STH P DA.9C
BYTES
STH P AS, H+2
STORE SNS BYTES O&l IN AUX
RDH P OA,9C
GET SNS BYTE 2
SET SENSE BHE 3
P l=DS
P1:Pl*-KOA
STRIP BITS 4,6
BR IF NOT ON LINE
BR IF PI BlTl=O
221 DUMPSN
Pl=Pl$K08
OR IN ON LINE BIT
STH P AS, H+O
ZERO SENSE
PO=O
179

ERASE
ERASE
ERASE
ERASE
TSTOP
RSPOGO
DArAOP
STPO

NEXTLABEl
DAT ADP
F I PR OT
INVCMN
WRCKO
I NVCMN

PAGE 261

A" DR

WORD

SEQUENCE

1 73E

20(7
3fl5
7CEA
1 F 10
FBEF
'l0E8
D5CF
7088

F Il X
FIlX
FlLX
F ILX
FIlX
F lLX
FILX
FIlX
F I LX
F lLX
FIlX
F ILX
FILX
F ILX
Fll)
FILX
FIlX
FILX
FILX
fILX

J (40

1142
1 144
1746

tH8
114A
114C

IT4£:

~886

1150
1752

C4FO
CB46
IFEB
FF44
FSA5
S22A
S78E
COgB
Cb06

11'l4
USb

US8
1f ':lA
1(24
I77C
177E
lf80

FfC6

1182
1184
1786

FB8F
B22A
2F45

1188

fBC9

178A
118C

F985
B208
2COl
2035
3043

inA
i1lC
UlE
lUO
i 722
1 Ie 8

1 7LA
11CC
lICt:

17DO
lID2
1 J l) 4

1106
U8E
1790
1192

1794
1796
1198
1.19A

119C
179E:
17AO
17A2
t/A4
UA6
17A8
11 AA

lEe lJ

a5H
2C 13
f9CE
2fCl

3CA5
20C1
lC 52
2EE 3

H:3A
2A07
2B25
3tl43
~CA8

4C(6
C4A4
5CAO
3B 15

5EAA

F I LX

FILX
FllX
F ILX
FlLX
FIlX
F! LX
F JlX
FllX
FIlX
FlLX
F lLX
FILX
FlIX
F I LX
F (LX

NO~

223
224
225
226
227

AORINK
TSTFOP

229

no

231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246

NExfLABEl

20B

SKRO

231

SKIPON

239
227

TSTCTR
TSTFOP

226
238
107
26l
248
244
244
261
107

AORlt\K
SKX
COMEND
SEEKOP
SET ADR
SHORT
SHORT
SEEKOP
(mol END

253
243
118

SKERR
SLIISN
5 TASH

086

CCWADR

256

CMREJ

412

lRCSN2

SKIPON
LASTsr

SKX
TSTC TR

SU I SN
SHOR r

247

248

SE TADR

24'1

250
251

252
25.:1

254
255
256
257
258
F I LX 259
fIlX 260
F ILX 261

SKi:'KR
CHNlER
CMREJ

SEEKOP

F fLX
FILX
FIlX
FIlX
FItx

262
263
264
265
266
f l U 267
FILX 268
filX 269

bEe ')

flU, 210

FILX 271
flu, lU
f I L)(

NEXTSEQ

228

C4AF
2C 13
21-45
CDC 7
I- '1(2

LABEL

2H

F I LX 214
I-IU n~

272

SKCHK

280

SAVCYl

279
211

ILON
ISH

~l'.UiK

CtiNSEI

CLOAD.:.E 6 O. EC lE VEl= 128211
COMMENTS

STATEMENT
Pl=O
H1-=Hl$K 10
5TH P AS, H-2
Hl=HloK 10
BR IF FOP7= 1
ROB PI AS,Ht-l
BR If OASIl=1
STS PI T+l
1=1-1
BR IF z=o
SR If Hl BIT4=:O
Hl=HlIJKOE
BR If HI BIT 3=0
BR If FOP 1= 1
BR
BR
BR IF FFIO=l
SR IF Hl SH4;0
BR If H1 8IT 3=0
SR IF FOP 1= 1
BR
Hl=OSK40
BR IF FOP7= l
BR IF fF 17= 1
BR
PO=Q
Pl:0$K30
P1=Pl$K04
SfH H AS.P+O
BR
PO=OSKOI
SR IF FF17",0
Hl=O
PO"'PO$KAO
Pl=O
5TH P DA,9A
HO=OSKOE
SR

ro",o

T 1=OS1<.20
T 1=T l$KG4
ROH P AS,1+2
P= P
BK IF ZNZ
RDH P AS. T+O
Tl=TUKlO
ROH H AS,T-2
HO=HOSPO
BR IF Z=O
P()=O$KOI
Hl=O$K40
13K IF FF {O'" I
i3R IF FF [1=0

B VTE S 4&5
SE I AUX AODR 0034
STORE BVTES 4&5 IN AUX
SET AUX ADDR FOR NEXT BYTE
BR IF SEEK OP
GE J AS SENSE BYTE
BR IF SK If> I S ON
STORE A SENSE BYTE
DECREMENT Ccw COUNT
BR IF COUNT AT ZERO
SR IF NOT LA ST BYTE
RE STORE LO AUX ADDR
BR IF NOT LAST BYTE
BR IF SEEK
BR IF
IF
BR IF
BR IF

8R

DATA CHAIN
NOT LAST BVTE
NOT LAST BYTE
SEEK

PRESETN INCOREC T LENGNTH
SR IF SEEK 01'
BR IF SLI
SET AUX
ADORE SS
0034
STORE NEXT BYTE AODR FOR DATA CH
SET SEEK CHECK FOR SNS
BR If NOT SlI
ZERO CHAN sa fUS
SET CMNO REJECT&CONrIN CONN BITS
ZERO SN S BYTE 1
STORE SNS
SET C Et.DE SlJC
SE T AUX
ADDRESS
0024
GET BYTES 0&1 OF SEEK DATA
BR IF BVlES ARE NON ZERO
GET BYTES 2&3 OF SEEK DATA
SET AUX AOOR 36
GE T BYTES 4&5 Of SEEK DATA
MA SK BYTE S 2&4 FOR ZERO
BR IF BYTES 2&4 ARE VALID
SE 1 SEEK CHECK FOR SENSE
SET WlR
BR IF OAIA CHAIN
6R 1F NOT Sli

PAGE 262

ADDR

wORD

17AC

97CC
48E6
C4AD
g1CE
5DE9

11(,2

17(,4
17C6
17AE
17BO

3B13

1782
17B4
17B6
llB8

bBE3
F4BA
OEFF
C4A4
2eA3
1CF3
F4A4
EDCE

11M

lIBC
UBE
17CO

ZJ7E

2380
n82

2384
238b

2381:1
Z;8A
238C
238E
23E4
2:H6
23E8
2.HA
2HC
23EE
2390
2392
2394
2396
2J98

239A
239C
239E
23AO
23A2
23A4
nA6
BAB
23AA
HAC
23AE
23BO
23B2
23B4

1000
E964
5C52
F590
2D23
3015
1000
4BDF
C222
CDE9
F9EB
8E24
DD8F
lE83
8U8
FFDF
CBD7
DBl:lA
C959
FFE2
2007
4BDF
2()23
4EDF
2D1B
fOA2
4BDF
5E32
1000
EEOE
2ES5
1E32
(;387
B362

LABEL

SEQUENCE NO.
F lLX
F lLX
FILX
F ILX
F IU
FllX
FlU
F XU
FILX
FILX
FILX
FILX
FIlX
FlU
FllX
FlU
FILX
FILX
F lLX
F ILX
F I LX
FILX
FILX
F I l)(
FILX
F I LX
F lLX
FI LX
FI LX
FI LX
F I LX
F I LX
F I LX
F {LX
F I LX
F ILX
F I LX
FILX
F ILX
F I LX
F ILX
F I LX
FILX
F ILX
FIlX
F ILX
FILX
F ILX
FILX
F I LX
FILX
FlU
FllX

NOll
T STl

276

277
218

(LON
SAVCYL

219

280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
291
298
299
300
301
302
303
304
305
30b

301
308
309
31 C
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
321
328

T STHD

*

'*
*
'*
'* TRPR TN
ellS
R STWD
H. TNWD

CEl I ME
wLRSET
NOwLR
E XC TLS
P4TST
RECAl

TMREC

NEX TSEQ
255

NEXT LABEL
CHt\LER

STATEMENT
BR

CLOAO=*E60. EC LEVEl-=l2821l
COMMENTS

MA SK FOR CC W COUNT ZERO
BR IF COUNT ZERO
BR If Z:Q
BR
SA \iE CYL NO
HO=Pl
SET CONSTANT 35
T 1=Tl$KOl
MASK FOR VALID cn NO
Tl=Tl+HQ
BR IF VALID CYL
BR If AC=O
286 TSTHD
Z:HOaKFF
MA SK FOR CYL 255
BR IF INVALID CYL
BR IF ZNZ
272 SKCHK
SET CONSTANT
PO=O$KOA
MA SK FOR VALID HD
PO= PO-H 1
BR IF INVALID HD
BR IF AC=O
272 SKCHK
BR
358 FWUSET
***********************************************************************
**
*
*'*
*
RECALIBRATE OR SEEK, AFTER ERASE IS FINISHED
'**
'*
*******'************************************************************'****
RE: SE T TRAP LA ICH
RST FIA K=8Q
BR IF CHANNEL END TIME FOE RECAL
BR IF P1 8IT 6:0
304 CET I ME
GET FILE MASK ALGORITHM
RDH P DA,9A
BR IF NOT ERASE GATE
8R IF DAS 13=0
310 EXCTlS
SET TRAP GATE BIT
P1=0$K02
SE T CONTROL BIT
Pl=Pl$KlO
RESE r TRAP LA ICH
RS r F IA K=80
SET TRAP GATE
TGRO=P1
RETURN FROM TRAP
RTN V MMSK 1=0
BR IF DATA CHAIN
BR IF FF 10= 1
306 WLRSET
BR IF Sll
BR IF FF 17= 1
307 NOWlR
BR
401 ICl
oQ IF FF 11= 1
BR IF COMMAND CHAIN
303 RTNWD
SET CHANNEL END FOR STATUS
riO=0$K08
BR
ZROSTA
411
BR IF RECAl RE STORE OR SEEK HD
BR IF FOP3= 1
330 TST OP4
BR IF SEEK eYL
.333 P5TST
BR IF FOP'·", 1
BR IF NO OP
BR IF FOt 7-=0
338 NOOP
FULL SEEK OR RECAL-TST FILE PROT
BR IF PI SIf4:l
334 PROTEe
BR IF FULL SEEK
BR IF FOP 3=0
332 SKEX
Pl=O
ZERO TAG REG
T GRO=Pl
SET RTN TO 000 BIT
Pl=Q$K02
SET RTN TO 000 ON BUSS
FBO=Pl
AOD TO GET TIME OUT
Pl=P l+KO 1
BR IF NOT TIMED OUT
BR IF LlNZ
319 THREC
SET CONTROL TAG
TGRO=Pl
GEl STATS
RDH H DA,8e
RESET TRAP LATCH
RST FIA K=80
BR IF CAME FROM TRAP
BR IF HO BIT 2=0
303 RTNWD
SET ACTIVE STAT
HO=0$K80
STORE STATS
STH H DA,8E
BR IF IPL LA TCH ON
BR IF BA4= 1
329 IPlOP
SET ceo
BR
ceOM 154 ceOB
1= I

276
256

NOlL
CMREJ

PAGE 263

ADOR

WORO

2386
230E
23E0
23E2
23G6

9408
CBBS
E959

2.~O8

.DOA
230C
2388

23BA
HBC
23BE
23(0
23C2
23(4
.!3C 6
23C8
23CE
2300
2302
2J04
nCA

ncc

GUCt:
O()oo

OD02

0004
GO!)/)

0008
ODOA
GDOC
llDDE
ODEO
JLlE2
JDE4
ODt6
OOE8
ODtA
OGEe
uUH

OOFO
ouF 2
OOF4
\)DF6
ODF8
OUFA
OUFC

'1760

0<;62
2E25
2F43
e6BA
OB96
5E32
lE45
FfCE
F9CA
COCB
ODCA
lE32

B238
F5C 1
COCO

oon

B2e6
7E32
B22A

3F85
7H2
H06
51EF
51CF
20C 7
4BOF
2015
7CE3
F4E8
2C IB
lCFF
5FFO
4EDF
4BDF
2DC7
4BDF
4EEF
2E45
4BEF
4BOf
41:FF
2E25
4BEF

SEQUENCE NO.
FIlX
F XLX
FllX
F I LX
F ILX
FIlX
FIlX
F ILX
FllX
F ILX
FILX
FIlX
FIlX
F I LX
FIlX
F I LX
FlU
F I LX
F ILX
F I LX
FILl(
F lLX
F ILX
F ILX
fllX
F I LX
FllX
F ILX
F ILX
FIlX
FlLX
F ILX
F ILX
F ILX
FIlX
F ILX
F-llX
FIlX
F ILX
F I LX
FIlX
FI LX
FIlX
F ILX
FllX
F ILX
FILX
F ILX
F I LX
F I LX
FIlX
F IlX
F ILX

329
330
331
332
333
334
335

LABEL
IPlOP
TSTOP4
SKEX
P5T ST
PROTEC

336

331
338

r 5 TOP5
NDOP

339
340

341
342
343

NOP Sll

3410

STRNOP

345
346
341
348
349
350
351
352
353
3510

355
356
357
358
359

I SNOOP

-r S TOP3
DCll
*
*
*
*
*
ASEQ
F .. DSE l

360

361
362
363
364
365
366
367
368
369
370

GE re YL
GE TCAR

371

RSTHD

372
373
374
375
376
371
378
319

380
381

NEXTSEQ

NEXT lABEL

STATEMENT

ClOAO=*E60. EC lE VEl-=ll82 11
COMMENTS

BR
GO TO IPl WAI T lOOP
BR IF FOP4=0
eR IF RECAl OR RE STORE
SEEK HO TEST FOR fILE PROTECT
BR IF PI BIT 6= 1
BR
SEEK CYL TEST FOR FILE PROTEC T
BR IF P1 BlT5:0
HO =0$ K20
SET CONTINGENT CONNECTION BIT
Hl=OSK04
SET FILE PROTEC T BIT FOR SNS
BR
154 SETSEN
BR IF RECALIBRATE
BR IF FOP5:0
313 P4TST
RDH H OA.8E
GE 1 STATS
STRIP S10 INO
HO=HO*-K40
BR IF FOP3=0
BR IF ND Of>
346 IS NOOP
BR IF fF I 1=0
BR IF NOT SlI
350 TS TOP3
BR IF DA TA CHAIN
BR IF FF (()= 1
350 lSTOP3
BR IF FFll=O
BR IF NOT CMND eHAIN
350 TSTOP3
STORE STATS
STH H OA,8E
BR
BR TO GET NEXT eel<
114 ClORST
BR IF ERASING
341 NOPSLI
BR IF DAS 13= 1
BR IF HIO=1
BR IF OATA CHAIN
35t DC Il
BR IF FF 11= 1
BR IF COMMA NO CHAIN
344 STRNOP
BR
117 CUOE
STORE STATS
5TH H OA,8E
BR
107 COMEND
***********************************************************************
**
*
**
*
S Et:K EXECUT E
**
************************************************************************
AL07;4E
SET FOR WARD INDICATOR
Hl=HUK80
SAVE SEEK DATA
5TH H DA,9C
BR IF NOT HEAD SEEK
BR IF FOP3=O
362 GETCAR
SEI eYl NUMBER FOR HD SEEK
HO=FB I
GE J CYl ADDR TO COMPUTE OIH
PO=FBI
Pt=O
RESET TAG REG
T GRO= PI
Pl=O$KlO
CONTROL TAG &oR ST I-IEAD BIT
PO:PO-HO
COMPUTE DIFFERENCE
BR IF AC=O
BR IF DIR FWD-NO RECOMP NEEDED
RS THO
3H
PO: PO+KO 1
ADD CARR Y
RECOMPlIMENT
PO= POIJKFF
REMOVE FORWARD BIT
Hl=Hll
PUT RESET HD ON BUSS
FBO= PI
TGRO:Pl
SET CONTROL TAG
Pl=O
TGRO=Pl
RE SET TAG REG
PU T C Yl NO ON BUSS
FBO=HO
SET THE SET CYl BIT
HO=OSK40
r GRO=HO
PU J SET C Yl IN TAG REG
TGR()=Pl
RE ~ET TAG REG
PUT HD NO ON BUSS
F BO=Hl
HO=OSK20
SE T THE SET HD BIT
T GRO= HO
RA ISE SET HD TAG
FI LT 097
337
334
201
332

IPl
rSTOP5
PROTEC
SKSNS
SKEX

PAGE 264

ADDR

WORD

OUFE
01:00
OE02
01:04

4BDF
OCFF
C496
2F43
4E.FF
2EC 3
UfA6
2D 15
4BOF
5E42
1000
0222
4ECF
2H5
4BFF
4BOf
4E1::F
2013
4BDF
2EB3
2F45
CDBB
F9B 1
48B6
C4BA
DOB8
DA36
8236
86f4
2fCl
lACl
2B07
1A62
lEOO
1000
2EC8
5C32
C30C
OEC3
fOOl
5007
Of85
C4CE
2e01
7C32
0212

01:01:1

01:08
OEOA
OEoe
OI:OE
VUO
OE12
OE14
lll:16
Ot itl
OElA
OElC
odE
0t:20
II E:2 2
0l:24
DE26
Jt:28
llt:2A
01:2C
Of::2E
v!:30
0E32
OE34
0E36
vE38
OUA
QUC
OUE
OE40
'Jf42
,)1:44
LlE46
JI:48
Ol:4A
vt4C
01:4E
OE50
OE52
0E54
Oi:56
JE58
u£5A
vE 5C
llE5E
Ot60
'01:62
OE64
01:66

8176

2B43
7CA8
De6E
7A32
C9EA
3F85

SEQUENCE NO.
F I LX
F I LX
F ILX
flLX
F ILX
FIlX
F ILX
F ILX
F ILX
FIlX
F ILX
F I LX
FllX
FILX
FILX
f ILX
F ILX
FllX
FILX
FILX
F 1 LX
FILX
fILX
fllX
F I LX
F ILX
F ILX
FIlX
FIlX
FILX
FlU
F ILX
FlLX
f ILX
FILX
f ILX
f lLX
FILX
f ILX
f lLX
FlLX
FIlX
FILX
F ILX
fILl<
FlLX
flU
f I LX
f I LX
F ILX
FILX
f lLX
F ILX

382
383
384
385
386
387
388
389
390
391
392
39.3
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
4lL
412
413
414
415
416
417
41B
419
420
421
422
423
424
425
426
427
42B
429
430
431
432
433
434

LABEl

NEXTSEQ

NEXTLABEL

394

MOTICN

402

ISSEEK

412
407

ZROSN2
SLION

412
411
410
11.3
183

ZROSN2
ZRCSTA
SETA
NTCRST
GET8E

SE TC Tl

MOTI ON

ICL
I SSEE K

SLI ON
SETA
lROSTA
ZROSN2
CHNEND

429

NOIPL

423

CHANTS

422

STOP

STOP
CHANTS

DCLL 036

PICKUP

438

STRINT

436

NOPCI

NOIPL

STATEMENT
T GRO= P 1
Z= POll KFf
BR If ZNZ
Hl=OSK04
FBG= HI
HO=OSKOC
BR IF FOP1=0
Pl=OSKlO
TGRO= P 1
RUH H DA,98
RST f I A K=80
RTN V MMSK1=0
FBO= PO
Hl=OSKBO
TGRO=Hl
T GRO: PI
FBG= HO
Pl=OSKOl
T GRO= P 1
HO=OSK08
Hl=OSK40
BR IF FF 10= 1
BR IF Ff I1= 1
I=I
8R IF ZNZ
BR IF Ff I 1=0
BR IF HO BI T5= 0
BR
BR
Hl=O
TO=O
T 1=0
STH T DA,9C
RST fIB K=BO
RST FIA /(=80
SET FIB 1(=40
RDH P OA,BE
BR IF BA4=0
Z=HO*-KOC
kR IF LZ=O
STOP
Z=H1*-KBO
BR If ZNl
PO=O
STH P CA,BE
RST MMSK K= 11
BR
Tl=0$K04
S TH P AS,T+2
BR IF PO BIT 1=0
STH T DA,BE
BR IF FfI4=O
H1=Hl$K80

ClOAD=*E60, EC LE VEl=128211
COMMENTS
RE SET TAG REG
MASK fOR ZERO DIFF
BR If DIFf NOT ZERO-MOTION SEEK
SE1 SELECT HD BIT
PUT SELECT HO ON BUSS
SET CE+DE FOR DEVICE STATUS
8R IF NOT FROM HO SSITCH ROUTINE
SET CONTROL BIl
RA ISE CONTROL TAG
GET CCW ADDR
RE SET TRAP LA TCH
RETURN FROM TRAP
pur DIFFERENCE ON BUSS
SETV THE SE T 01 FF BIT
RASSE SET DIFF TAG
RESET TAG REG
PUT SEEK STAR T ON BUSS
SET C TL PUL SE BIT
ISSUE CONTROL PULSE
SET CHANNEL END FOR STATUS
PRESET INCORREC T LEN STATUS
BR IF DATA CHAIN
BR IF SLl 1 S ON
TST FOR CCW COUNT 0
BR IF ICl
BR IF NOT CMNO CHAIN
BR IF SEEK HAD MOTION
GET NE XT CC W
ZERO CHAN STATUD
ZERO SENSE BYTE 2
CHAIN END RESET
RE SET TRAP LATCH
RESET FLAG BITS 6,7
GET STATS
BR If NOY I Pl
MASK fOR CORRECT DEVICE STATUS
BR IF DEVICE STATUA OK
IPL STOP wORD
MASK fOR GOOD CHAN STATUS
BR IF CHAN STATUA BAD
REMOVE ACTIVE STAT
RESET PRIORI TY
BR TO LOAD PSW
SET AUX ADOR 0004
STORE I/O ADDR fOR CONT CONN
BR IF NOT FROM S(O
RESET SlATS
BR IF PCI OFF
SE 1 PC I IN ST&TUS

PAGE 265

AUDR

WORD

Jt:68
01:6A
<)E6C
OE6E
<)E 10

0004
2410
A030
7EAO
2008
4DAf
4FAF
I::e 7E
2C E.5
7C32
B362
0222

dE12

UU4
0E:76
OU8
0t1A
01::1e

OUE

FIl X
F IL X
F Il x
F I Lx
F IL X
F Il X
fllX
FllX

F Il X
F It X
F It X
Fit x
F It X
F I LX
f-Il X
F lLX
F Il X
F Il X
F Il X
F IL x
FILX
F Il X
flLX
f' IL X
FILX
F IL X
f-ll X
HlX
F ILX
FILX
F Il x
flLX
F IlX
HlX
FlU
F IL X
FHX

007
015
028
029
038
040
042
049
053
057
058
059
060
061
C69

079
082
083
086
088
091
092
091
100
104
106
107
112

113
114
117
H8
125
129
132
134
135

SEQUENCE NO.
flLX
F I LX
f ILX
flLX
FlLX
FiLX
F lLX
F ILX
FlLX
F lLX
F ILX
F I LX
F I LX

Fill 042
F Ilx 022
F lLX 030
FllX 025
F ILX 021
FllX 031
FIlX 042
F H.X CC9
F ILX 053
F Il X 017
F lLX 049
F Il X 013
FILX 021
FILX 059
F Il X Olll
F IL)c 041
F ILX U4
FllX OEO
F It X 252
FIlT {J55
F ILX OE9
F IL X 090
F ILX 0<;4
F Il X OS5
FIlX lCO
FlU 043
FllX 237
FllX 1(9
flU aS5
F ILX 34'1
FIlX 112
F (LX lC8
FILX 012
FlLX 125
FltX 126
F Il X 138
FllX 063

/

435
436
437
438
439
440
441
442
443
444
445
446
441

LABEL

NE XrSEQ

NEXTlABEL

NUPCl
eeOM 135

STATUS

SfRI NT

446
CCOM 154
NORIC
AEND

NORIe
eCOB

CLOAD=*E60, EC lEVEl=128211
COMMENTS

STATEMENT
RST FIA K=20
SET MOOE K=O 1
BR
S T H H AS. Ti-O
SET FIA K-40
FFO=TO
FOP-TO
BR IF PO BIT 2=0
PLI=0$K80
STH P OA,8E
BR
RTN V MMSKl=O

RESET PCl lAfCH
SET CPU MODE filE lONE
SET ec I
STORE SfA TUS IN INTERRUPT BUFF
Sf:1 INTERUPT LATCH
RESET FLAG REG
RESET OP REG
BR IF NOT RETURN TO I CYCLES
SET ACTIVE STAT
STORE STA TS
SET ceo
RETURN FROM TRAP

***********************************
CROSS REFERENCE fOR CSECT FIlX *
**********************************

FILX 023

FILX 050

FILX 051

FILX 060

fllX 061

flLX 062

FILX 014

FIlX {J18

FlLX 029

FHX 082

F (LX Q91
FI LX 102
FllX 243

FlLX 104
FllX 351

FllX 409
FI LX 349
flU i l l

FILX 164

FIlX 241

FILX 057

FILX 069

PAGE 266

ClOAD:*E60, EC lEVEl=128211
**********************************
* CROSS REFERENCE FOR CSECT FIlX *
**********************************
fll X
f-Il X
l-llX
fllX
FllX
F llX
F Il X
FllX
F Il X
FlLX
FlLX
FlLX
f-Il X
FllX
FILX
F IlX
F Il X
FIlX
f1LX
flU
F1lX
FllX
F Il X
flLX
F ILX
F Il X
FILX
F ILX
F ILX
FIlX
FHX
F ILX
FILX
FlU
F Il X
FILX
F Il X
FIlX
F Il X
FIlX
F Il X
FILX
F Il X
FILX
FIlX
FIlX
!-Il X
fllX
F Il X
FlU

138
139
141
141
149
150
152
153
154
151
161
164
166

169
113
117
118
179
180
183
184
187
195
199
201
208
211
215
221
226
221
231
233
238
239
243
244
248
253
255
256
261
272
213
216
211
279
280
286
295

F Il X 132
Fill 142
FllX 016
FIL)< 015
F [LX 151
FIlX 130
FILX 134
FILX 140
FIlX 336
FILX 020
F ILX 158
F Il X 1(;7
F ILX 162
FILX 142
FlU aC8
F ILX 144
F (LX 031
F Il X 146
FILX 131
Fllll 410
FUl 0'::9
FILX IS5
F ILX 011
FIlX I'H
FllX 332
fllX 227
FllX 2(1
f ILX 211
fllX 219
FILX 235
F Il X 233
fllX 210
FIll 049
FllX 236
F IlX 232
F IL II 246
FILX 240
FIlX 239
F (LX 245
F Il X 216
FlLX 254
FllX 238
FllX 266
FIlX OSI
FllX 278
FllX 275
FIlX 274
FIlX 271
F ILX 283
F Il T 119

FllX 028

FILX 131

FIlX 133

FlU 149

FILX 150

FIlX 161

FILX 163

Fil X 168

FILX 019

FIlX 121

FIlX 128

FllX 141

FlU 160

FIl X 169

FIlX 173

FIlX 175

FILX 165
FlU 148

F I lX 112

FU.. X 174

FIlx 058
FlU 111

FlLX 151
F ILX 111

FlLX 229

FlU 241

F ILX 279
FIlX 242
FllX 285

FllX 288

fllX 159

FlU 198

PAGE 261

ClOAO=*E60, EC lEVEl=128211

F IlX
flLX
F IL X
f ILX
fILX
f lLX
F!l X
F! L X
HLX
F Il X
F IlX
f ILX
F IL X
FILX
F IL X
F Il X
F IL X
rILX
F Il X
F Il X
F IlX
FiLX
F ILX
F ILX
F lLX
HLX
FILX
F ILX
FILX
HLX
FI LX
FILX
HLX
flU

f1LX
FlLX
~ I LX
f-ILX
fILX
I'! LX

298
303
304
306
307
310
313
315
319
329
330
312
.333

334
331
338
341
344
346
350
351
358
361
362
311
389
394
401
402
407
410
4il
412
415
422
423
429
436
438
446

FlLX
fILX
FIU<
FllX
FILX
fllX
flLX
FILX
FILX
FIlX
f ILX
F [LX
F Il X
fIll
FllX
FlU
FH.X
FllX
F (LX
FJLX
FILX
F ILX
FlU
F ILX
F ILX
fill
F Il X
F ILX
F Il X
fIlX
FlLX
f ILX
fill
FILl
F (lX
fIlX
fIlX
F ILX
FIlX
F IL X

073
3C7
2<;6
304
3(5
2<; 8
331
056
320
327
310
314
311
141
330
312
346
348
340
341
341
289
140
360
367
128
384
3(6
388
4C4
4(8
156
066
1<;1

424
421
419
433
431
442

**********************************
* CROSS REFERENCE FOR CSECT fllX *
**********************************
FIlX 324

flLX 333

FllX 313

fIlX 331

FILX 342

flLX 343

fILX 309
fIlX 119

FllX 407
fIlX 260

FllX 403

FllX 406

PAGE 268

CLOAD=*EoO, EC LE VEl=12B211

FINT

DESCRIPTIVE

PAGE 26q

TEXT

ENTRY POINTS
THIS IS THE NORMAL ENTRY INTO THE ROUTINE
WHEN A FILE INTERRUPT [S DETECTED iN THE
BSWI ROUTINE. THIS ROUTINE TESTS FOR
fiLE CONDITIONS BEFORE SETTING THE CSW
INFORMATION INTO THE APPROPRIATE REGISTERS
FOR THE eCOM ROUTINE.

INTRPf

ADOR

wORD

25H

7CC2

2':lfE

':If-':l9

2600

OS8E
5A32
2A 13
1A32
8420
A024
A64C
C996
2EG7
8428

2602
2604

2006
2608

260A
200C

260E
2610
2012
2614

A60A

2618

2B43
4FBF

26lA

':lAAO

261C

2A13
1A32
HAS

2616

26 IE
2620

0002
2E25

2622
2624
2626
2628

A644
E5AF

262A

948E

2&2C

A644
AfEA

262E
2630

5000

21.>32
2634

586B
6805

2636

1A32

2038

fABf

263A

8224
A642
8224

263C
263E

SEQUENCE NO.
FINT
FINT
FINT
fiNT
FINJ
FIN'
FINl
F I NT
FINT
FINT
F I NT
FINT
FINT
FINT
FINT
fINT
FINT
FiNT
FINT
FINT
FINT
FINT
FlNl
FINT
FINT
FINT
FINT
FINT
FIN!"
FINT
flNT
FINT
FINT
FINT
FINT

001

002
003
004
005
006
007
008
009
010

011
012
013
014
015

LABEL

NEXTSEQ

T

INTRPT
all

STUFCS

052
eCOM 127
042

T S TPC I

015
056

009

SETIOA

016

017

018
019

024

020
021
022
023

024
025
026
021

038

TSIDE

027

FILE 264
038

R STDE

fiLE 280

028

029
030

031
032

035

033

FI lE 319

034
035

031

SEKINC

FILE 319

NEXT LABEL

STATEMENT

SHC SW

THIS IS A BAL ENTRY TO SE:T THE CSW
INFORMATION INTO THE CPU REGISTERS FOR
STORING BY THE CCOM ROUTINE.

COMMENTS

2311 FEATURE
INTERUPT ROUTINE FOR FILES
STH P DA, BB
SAVE CPU P REG
Gl= HI
SAVE CPU Hi REG
TSTPCl
BR IF FF15=0
BR If NOT INETRUPT LATCH
RDH lOA, 8E
GET STATS AND lOA
RESET STA TS
TO=OSKOl
STH T OAt 8E
STORE STATS AND lOA
SETCS..J
SET REGS FOR CPU CSW STORE
BAl
CSwADR
BAL
STORE C SW
GEHOA
BR
SETIOA
BR IF FF 1'F0
BR If NOT PCI
HO=O
SET DEVICE STATUS
Pc( CSIol
BAL
SET CHAN STATUS PCI INFO
STUFCS
BR
Tl=OSK04
SET AUX ADDR 0004
FOP=T 1
SET CONTIN CONECT CLEAR IND
RDH T AS, T+O
GET BUfFERED 10 ADDR FROM 0004
RE SET STATS
TO=OSKOl
STH T OA,8E
STORE STATS&I/O ADDR
TSlOE
BR IF OAS (0=0
BR IF NOT CUE
RE SET CUB LATCH
RST FIA K=10
SET CUE fOR STATUS
HO=OSK20
STOSTA
BR
RST DE
BR IF GATTED ATTENTlON
BR IF OASI2= 1
SNSST A
ERROR-NO REASON FOR INT-SET SNS
BAL
STOST A
BR
BAL
SET DEV ADDR&SELECT MODULE
SETOA
Pl=Pll
BUILD
DEVICE ADORE SS
T1=TlH
AND
T1=TUPl
STH T OA,8E
STORE 1 T IN AUX
BR iF SEEK INCOMPLETE
SEK I NC
BR IF DS7=1
RESET GATED ATTN
RST ArT
BAL
SETDE
BR
RESET GATED ATTN
RSTATT
8Al

I\UUR

wORD

2640
2642

'14S6
3E43
2F01
2400
2AC1
AOIE
5A32

2iJ44

2646
2648
21>4A
204C
204E
2650
2652
2654

2A 13

1000
5CC2
A43C

0420
0422
0424
0426
()42B
042A
042C
042E
0430
u432
0434
;)436
J438
J43A
J43C
,j43E

rINT
tINT
f-lN T
r INT
I'INT
FIN r
FINf
FINT
FINT
FINT
f-lNT
FINT
FINT

2AC1
2863
5EAO
0008
526F
5668
2701
C982
3F85
2490
18A2
0004
2400
50A2
5242
128E

002
009
011
015
021t
021
035
031
038
042
052
05f1
061

LABEL

SEQUENCE NO.

Dell
FINl
FlNT
FINJ
FINT
FINl
FINT
FIN'
FINT
FIN'
FILE
FINJ
FINT

FINT
FINl
FINT
FINT
FINT
FINT
FINT
FINT
FINT
FINT
FINT
f-INT
FINT
FINT
FINT
FINT
FINT
FINT
FINT
FPa
FINT
flNT
FINJ
FIN!
FINT
FINT
FINT
FINT
FINT
FINT
FINT
FINT

036
031
03B
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
051
058
059
060
061
062
063
064
065
066
061

SETOE
STaSH
MODE
GETlOA

*
*
*

...

*

SE TC SW

PCIC SW

NOPCI

0~2

014
OC4
Oll
020
024
032
034
023

FlNT 026

010

017
013
059

FINT 008

NEXrSEQ

NEXT LABEL

fILE 268

SNSSTC

Sf ATEMENf

ClOAD=*E60. EC LEVEL=128211
COMMENTS

8AL
SET SEEK CHECK SNS
HO=HO$K04
SET DE FOR STATUS
ZERO CHAN STA TUS
H1=0
SET MODE K=OO
SET CPU ZONE&MODE
TO=O
CCOM 123 ST ATOS
BAL
ZERO CSW THEN STORE STATUS
ROH J DA,8E
GET 110 ADDRESS
TO=OSKOl
SET CHAN 1
RST SO
ROH P DA t 8S
RESTORE P REG
BK
DCHN 014 FRMFIL
***********************************************************************
**
*
SET CSW
- SUBROUT! NE
**
*
...
**
***********************************************************************
TO=O
Tl=0$K06
SET AUX ADOR 0006
ROH H AS,T+O
GET BUFFERED STATUS
RST F IA K=40
RESET INTURRUPT LATCH
OO=STPO
GET PROTECT KEY
DO=DOH
01=0
NOPCI
BR IF FF 14=0
BR IF NOT PCI tNT
061
Hl=HUK80
SE T PC I IN STA TUS
SET MODE K=09
SET FilE MODE,FILE ZONE
STH 1 DA,AC
BUfFER RESIDUAL COUNT
RST fIA K=20
RESET pel LATCH
SET MODE K=OO
SET CPU MODE AND ZONE
ROH U DA,AC
GET BUFFERED RESIO COUNT
RDH V DA,98
GEl CCW NEXT ADDR
RTN
**********************************
* CROSS ReFERENCE FOR CSECT FINT *
**********************************

PAGE 270

ADDRESS LIST
CONTKOL ADDRESS

0

DATE
2

4

6

8

11/08/68

A

ClQAD=*E60, EC LEVEl=128211
00--

C

E

-OOCO-

aePl 003
8000

BCPL 004
OBAO

BCPL 004
OBAD

BCPL 004
08AO

8CPl 004
OBAD

BCPt 004
OBAD

BCPl 004
OBAD

BCPl 005
80AC

-OOOD-

-0010-

aCH 009
3210

BCPL 010
2610

aePL Oll
50eF

BCPL 012
51AF

BCPl 011
2413

BCPl 014
oeCF

BePl 015
C4AO

BCPl 016
OCOF

-00[0-

-002D-

BCPl 017
C48F

BCPL 018
OCEF

BCPL 019
C4E3

BePl 020
OCFF

BCPl 021
C4A8

BCPt 022
800E

BCPl 023
2486

8CPl 024
2501

-0020-

-0030-

BCPL 025
2B08

BCPL 026
C983

BCPt 027
4FAF

BCPL 028
2B04

BCPL 029
2B44

BCPl 030
C9BA

BCPL 031
2B40

BCPL 032
COBE

-003D-

-0040-

aCPl 033
2B23

8CH 034
ItFBf

BCPt 035
2B42

BCPl 036
FDC6

BCPL 031
5FBF

BCPL 038
C4CA

BCPl 039
2B48

BCPL 040
FOCF

-0040-

-0050-

BCPL 041
EOCE

BCPt 042
SFFf

BCPL 043
F05B

BCPL 044
7F48

BCPL 045
F05C

BCPl 046
6F48

BCPL 041
0550

BC Pl 048
C4CC

-OOSD-

-0060-

BCPL 049
8100

BCPL 050
2406

BCPt 051
2611

BCPL 052
2783

BCPL 053
3775

BePL 054
2507

BCPl 055
4066

BCPl OS6
5EEf

-0060-

- 0070-

BePL OS1
DEbE

BCPl 058
5B3F

BC Pl 059
b31t8

BePL 060
136A

BePl Obl
FOEE

BCPt 062
16113

BCPl 063
FOE1

BCPl Obit
8100

-0010-

008-0080-

BCPL 065
6EE3

BCPL 066
6EE3

BCPl 067
6EE3

BCPl 068
OE08

BCPL 069
OE04

BCPl 010
49EF

BCPl 071
4EDF

BCPl 012
4BFF

-0080-

-0090-

BCPL 013
2E63

BCPl 014
3E15

Be PL 015
4FEF

BCPL 016
2E43

BCPt 011
E598

BCPL 078
4EEF

Bcn 019
4BFf

BCPl 080
3000

-009D-

-OOAD-

BCPL 081
E5Al

BCPL 082
1000

BCPl 083
50Ef

BCPL 084
CA25

BCPL 085
CIA9

BCPL 086
810A

BCPL 081
240E

BCPL 088
2501

-OOAO-

-OOBD-

BCPL 089
2F04

BCPL 090
5fOF

BCPl 091
DABS

BePl 092
EOH

BCPl 09.3
2fl0

BCPl 094
OAC6

BCPl 095
CAB9

aCPl 096
58ff

-OOBD-

-OOCO-

BCPL 091
5AEF

BCPl 098
4Ef3

BCPl 099
6f48

BCPl 100
2B14

BCPl 101
0550

Ben·102
C4B4

BCPl 103
8100

BCPl 104
fFFF

-OOCO-

-0000-

BCPL 104
fFfF

sePl 104
FFFF

aCPl 104
fFFF

BCPl 104
ffFF

BCPl 104
FfFf

BtPL 104
FfFF

BCPl 105

BCPl 106
2BOl

-OOOD-

fFfF

-OOED-

BCPL 101
6A02

SCPl 108
2490

BCPL 109
2813

BCPl 110
2901

BCPl 111
4A86

BCPl 112
4C02

BCPL 113
2flS

BCPL 114
5FE9

-ODED-

-OOFO-

BePL 115
2023

BCPl 116
4D9F

BCPl 117
8811

BCPL 118
54E8

BCPl 119
6488

BCPl 120
FA7b

BCPl 121
Ob08

Bcn 122
88fE

-OOfo-

CONTROL AOlJRESS

00-

,PAGE 271

DATE

ADORE S S LI ST
CDNTKOl ADDRESS

0

2

4

6

8

ClOAO-=*E60, EC lEVEl=128211
01-

11/08/68

A

C

E

-0100-

DClA 109
846C

DClA 110
AF02

DCLA 111
A340

CICY 051
9A6A

CICY 052
B009

CBIN 046
AHO

CBIN 047
8174

CBIN 048
ACIC

-0100-

- 011 u-

tTRP 020

EfRP 021
8FA4

FILE 336
2e07

FILE 337
2013

FILE 336
7C52

FILE 339
2007

FILE 340
7C62

FILE 341
128E

-0110-

f I l l 049
9752

f I l T 050

FIll 051
8132

FILT 052
FFAE

FILT 053
DBAO

FIl T 054
5C52

FIl T 055
BIff

FILl 056
DBAO

-0120-

8132

-0130-

f i l l 057
CBAO

FIll 05B
SE4Z

FILT 059
86F6

CFca 069
'tE5Z

CFCo 071
't8E6

CFCO 072
42Et.

CFeD 073
40E6

CFCO 074
lZ8E

-0130-

-0140-

f l l l 003
2222

FILl 009
SDAD

CICY U8
2F07

CICY 119

ClCY 120
2707

CICY 121
128E

CICY 100
5098

CICY 101
50BB

-0 litO-

C4DD

-0150-

C1 C '¥ 102
C4C5

CICY 103
5EA8

CICY 104
50AO

CICY 105
617B

CICY 106
606F

CICY 107
6FAD

CICY L08
5298

CIC Y 109
52B8

-0150-

- 01.60-

CiCY 110
C4C9

CICY I I I
6AA4

CICY 112
56AA

CfCY 113
637B

CICY 114
626F

CICY 115
56AO

CICY 116
67AD

CICY 117
128E

-OlbO-

-017v-

OCLO 010
2240

DClO 011
8153

CCO/'l 086
3002

CCOM 087
7FID

CCOM 088
7EOO

CCoM OB9
1730

CCOM 090
7620

CCOM 091
128E

-0170-

noa

-0120-

018- 0 1 3v--

OClE all
3613

DelE 012
CCA4

OClE 013
0123

OCLE 014
5212

DCl E 015
5038

OClE 016
008B

DCLE 017
FOAO

-0180-

2244
-0190-

OCLE 018
5119

DCLE 019
C49C

DelE 020
5230

OClE 021
03B3

DClE 022
F09C

DeLE 023
93F4

DClE 024
5212

DClE 025
93C2

-0190-

-(HAO-

OCU: 026
93FA

DClE 027
A254

OClE 028
9A34

CMPU 032
583A

CMPU 033
4613

CMPU 034
771A

CMPU 035
5B75

CMPU 036
AEIE

-OlAO-

-0160-

ETTR 01B
2206

E TTR 019
.5ACF

ETTR 020
8ECC

CMPU 003
563A

CMPU 004
SHO

CMPU 005
4BF 3

CMPU 006
5615

CMPU 007
AE88

-OlBO.,..

-OlCO-

OClD 013
81EC

DClO 014
8l0C

DClD 015
F554

DCL 0 016
F551

OClD 011
7F.3E

OClD 018
5006

OClO 019
C4E3

OClO 020
0240

-OlCO-

-0100-

OClO 021
2648

OClO 022
8lCA

OClO 023
7F3C

OClD 024
5006

OClD025
C4E3

OClO 026
0240

OClO 027
5F3C

DClO 028
5006

-0100-

-OltO-

OClD 029
C4DA

DClO 030
C569

DClD 031
1573

OClD 032
0240

DClD 033
3000

OClO 034
0240

DClO 035
2B42

OClO 036
0169

-OlEO-

-OlFO-

OClD 037
3543

DClD 038
0240

CBIN 042
8A70

CBIN 043
810C

DClA 310
52FF

OClA 311
526C

DClA 312
52EF

OClA 313
5lF2

-OlFO-

CONTROL ADORESS

OCLE 010

01--

,PAGE 272

ADDRESS Ll Sf
CONTROL ADDRESS

0

DATE
2

4

8

6

ClDAD=*E60, EC lE VEL=1282 11
02--

11/08/68

A

C

E

-0200-

OClA H 7
C606

OClA 319
41E5

OClA 323
e609

DClA 325
41EB

DClA 326
42Ef

DClA 327
536C

DClA 328
42Ff

DClA 329
128E

-0200-

-0210-

BwRP 008
887C

CfCD 090
5EA8

efeD 091
58A8

efeD 092
F410

CFCD 093
52A8

CFeD 094
50AO

CFca 095
1B13

CFCD 096
128E

-0210-

-0220-

8MCK 003
3262

BMCK 004
8CA6

FILE 319
2C07

FILE 320
4BCf

fILE .321
2045

fILE 322
4EOF

fILE 323
2D15

F HE 324
4BOF

-0220-

-0230-

fILE 325
2007

FILE 326
4S0f

filE 321
4EOf

fILE 328
4FOF

filE 329
490F

fILE 330
128E

BOlA 015
2810

BOIA 080
f56C

-0230-

-0240-

BOIA OlB
2810

BOIA 030
3210

801 A 048
2400

BOlA 053
f8eB

BOlA 054
B7C9

BOlA 056
2810

BOlA 057
25F3

BOlA 061
C54F

-0240-

-0250-

BOlA 062
2810

BOlA 066
D553

BOIA 067
2810

BOlA 072
E53C

COVO 036
A6f6

COVO 037
3002

COVO 038
79fO

CD VD 039
78EO

-0250-

-0260-

COVO 040
7570

COvo 041
7460

COVO 042
f509

COif 0 043
A6f6

COVO 044
1002

COVO 045
825C

BOlA 083
2810

SO IA 084
9fFC

-0260-

-0270-

CNVR 123
5220

CNVR 124
6223

CNlfR 125
5239

CNIIR 126
6223

CNVR 121
6223

CNIIR 128
6233

CNVR 129
62C3

CNIIR 130
128E

-0270-

028-0280-

-0280-

-0290-

-0290-

-02AO-

-02AO-

-02Bo-

-02BO-

-02CO-

CMU 130
8344

CMLT 131
82EO

CMlT 132
B078

GMU 133
BOH

CMU 134
BOF4

CMlT 135
BOfO

CMl T 136
88E2

GMl T 137
B070

-02Co-

-0200-

CMU 138
B076

CMlf 139
B34E

CMt! 140
A36E

CMU 141
8390

CMU 142
87FC

CMl T 143
8392

GMt T 144
A376

CMl T 145
3002

-0200-

-02Eo-

CMl T 146
9C02

CMLT 147
8344

OPTR 093
20A5

OPTR 094
3093

DPTR 095
2BA5

OPTR 096

OPTR 097
6B83

OPTR 098
F4f5

-02EO-

3673

DPTR 099
68A3

DPTR 100
128E

OPTR 101
6803

OPTR 102
128E

CMlT 014
AOA8

CMU 015
8DC2

CMl T 016
2Q07

CMl T 017
C604

-02FO-

-02FoCONTROL ADDRESS

02--

,PAGE 273

CONTRUl ADDRESS

0

CLOAO=*EbO, EC LE VH.=1282 11
03--

DATE 11108/68

ADDRESS LI Sf
2

4

8

6

A

C

E

-0300-

CMLT 018
29F7

CMU 019
2C13

CMlT 020
0275

CMU 021
E08S

CMU 022
3C23

CMlT 023
5989

CMLT 024
4A8b

CMLT 025
OOCO

-0300-

-0310-

CMU 02b
7CF2

CMU 027
4C52

CMU 028
2010

CMU 029
208S

CMLT 030
C029

CMU 031
78C8

CML T 032
1AC8

CMU 033
76C8

-0310-

-0320-

CMLT 034
7EC8

CMU 035
856E

CMLT 036
856E

CMU 037
8314

CMLT 038
2007

CMl T 039
48C6

CMLT 040
4AC6

CML T 041
44C6

-0320-

-0330-

CMll 042
46C6

CMLl 043
4E06

CMLT 044
40C6

CMU 045
2C13

CMU 046
e5SE

CMLT 041
2F1B

CMl T 048
F403

CMLT 049
2015

-0330-

-0340-

CMLT 050
1002

CMU 051
BB55

(MLT 052
0053

CMLT 053
C5CC

CMLT 054
2FI0

(MLl 055
F403

CMLT 056
2055

CML l 057
1002

-031.0-

-0350-

CMU 058
BF55

CMLT 059
2C2B

CMU 060
9468

CMLT 061
C838

CMLT 062
C10C

CMLT 063
95F6

CML T 064
54F2

CMll 065
C5E9

-0350-

-0360-

CMLT 066
E068

(MlT Ob7
3002

CMU 068
2015

CMLT 069
9C02

eMU 070
9256

CMl T 011
2A07

CML T 072
55BB

CMU 073
12A8

-0360-

-0370-

CMlT 074
7EU

eMLT 075
F41A

CMU 076
1 B15

CMU 077
76A8

CMlT 078
10AA

CMl T 079
A80E

ceOM 029
55B3

eCOM 030
56A8

-0370-

038-03So-

ceOM 031
5EAA

CCOM 032
55BB

CCOM 033
0008

CCOM 034
128E

BeHK 098
07H

BCHK 098
C48A

BeHK 098
8800

BCHK 098
4E08

-0380-

-0390-

CMl T 177
3002

CMU 118
9C02

CMU 179
3002

eMU 180
BOF4

BCHK LOI
00C8

BCHK 101
0000

BCHK 104
4E08

BCHK 104
128E

-0390-

-03Ao-

OYPE 226
80C4

OVPE 227
A568

OYPE 228
9028

OYPE 229
9f20

BCHK 108
0000

BeHK 108
0000

BCHK 108
0000

BCHK 108
0000

-03AO-

-03BO-

OClR 196
2343

OClR 197
5612

DelR 198
3613

OClR 199
A29C

BCHK 123
2Ff7

BCHK 123
2flB

BCHK 123
C4BC

BCHK 123
OFOI

-03Bo-

-03CO-

BOlA 347
C4CO

BOlA 348
4AC2

BOlA 349
4C02

BOlA 350
4H2

BOlA 351
2AIB

BOIA ·352
2C1B

BOlA 353
2El8

BOlA 354
EOf2

-03CO-

-0300-

BOlA 355
6AC2

BOlA 356
6C02

BOlA 357
6Ef2

BOlA 358
83B8

BOlA 331
4812

BOlA 332
3935

BOlA 333
292B

BOlA 334
68E2

-0300-

-03Eo-

BOlA 335
2A25

801A 336
2BF5

BOlA 337
3B73

BDIA 338
2C25

BOlA 339
2015

BOlA 340
3083

BOlA 341
2E05

BOlA 342
2Fl3

-03EO-

-03FO-

BOlA 343
8300

BOlA 313
2505

BOlA 314
251B

BOlA 375
F4FO

BOIA 316
C4f4

BOlA 377
5007

BOlA 381
2413

BOlA 382
883C

-03Fo-

CONTROL ADDRESS

03--

,PAGE 274

ADDRESS LI ST
CONTROL ADDRESS

0

DATE 11/08/68
2

4

6

8

A

ClOAO=*E60. EC lE VEl=128211 ,PAGE 275
04-

C

E

-04CO-

CICY 203
AEEB

CICY 204
ACBO

ClCV 205
A93A

CICY 206
AE6C

Clev 207
AE22

CICY 208
ACIA

CICY 209
ABF6

CICY 210
A072

-0400-

-0410-

CICY 211
9ABO

CICY 217
A05A

CICV 219
A05A

CICY 220
A05A

C ICY 221
8CB8

CICY 222
8CB8

ClCY 223
8CB 8

ClCY 224
8CB8

-0410-

-0420-

FINT 052
2AOl

fiNJ 053

f [NT 054
5EAO

FINT 055
0008

FINT 056
526F

FINT 051
566B

FINT 058
2707

FINT 059
CGS2

-0420-

28b3

-0430-

FINT 060
3F85

FINT 061
2490

FINT 062
18A2

FINT 063
0004

flNT 064
2400

fINT 065
SOA2

FINT 066
5242

FINT 067
128E

-0430-

-0440-

BOlA 122
5007

DClS 006
2045

DClB 007
7022

oCl8 009
2625

OClB 010
2187

OCl8 all
81f8

OClB 013
2486

DClS 014
2B80

-0440-

-0450-

DClB 015
7212

DeLB 016
24F6

DCLB 017
5622

DeLB 018
2407

DCLB 019
2585

DClB 020
3543

OClB 021
5148

OGlB 022
6171

-0450-

-0460-

OClB 023
C4f 1

DClS 024
C15C

DClS 025
25CB

OClS 026
F55D

DClB 021
2501

OClB 028
8472

DGlB 004
C642

DClB 005
AC74

-0460-

-0470-

OClB 029
5651

OClB 030
5212

DCLS 031
93F4

OClR 106
3425

oClR 101
9616

FILE 008
7CC2

FILE 009
2480

FILE 010
C628

-0470-

048-0480-

FILE 011
EOll

FILE Ol2
FOlE

fILE 013
099E

filE 014
6711

filE 015
C49E

fiLE 016
7032

FILE 011
8420

FILE 018
A024

-0480-

-0490-

FilE 019
50BF

FilE 020
IBC5

fiLE 021
D9A1

fiLE 022
3210

filE 023
2004

fiLE 024
40SF

fiLE 025
1210

FILE 026
AC74

-0490-

-04Ao-

FILE 027
F5BB

FilE 028
2E01

F[LE 029
09BE

FilE 030
B362

FILE 031
3065

FILE 032
7032

FILE 033
E021

FILE 034
F5BB

-04Ao-

-04Bo-

fILE 035
EICI

FilE 036
F054

FILE 031
oBfO

FILE 038
8702

filE 039
OBFC

FILE 040
2ESS

FILE 041
2002

FILE 042
854E

-04BO-

-04(,0-

FilE 043
OBCA

FILE 044
8102

FILE 045
o8BB

filE 046
2E43

FilE 047
4FEF

FilE 048
2E25

filE 049
F051

FilE 050
2E35

-04CO-

-0400-

FILE 051
0002

FILE 052
854E

fiLE 053
1242

FILE 054
5AF2

FILE 055
42AF

FILE 056
5A30

FilE 0.51
OA4B

fiLE 058
C4E4

-0400-

-04EO-

fiLE 059
AfC6

FILE 060
8C92

FILE 06L
DBEB

FILE 062
8102

FIl E 063
DaBS

FILE 064
OA3B

FlLE 065
C4fO

FILE 066
OAID

-04EO-

-04Fo- ·FILE 067
EOF6
CONTROL ADDRESS

fllE 068
OA7S

fILE 069
FOFD

FILE 070
0133

FILE 071
FOFO

fILE 072
850C

FilE 073
5ECF

fiLE 074
C481

-04FO04-

CONTROL ADDRESS

0

ClOAD=*E60, EC lEVEL=128211
05-

DATE 11/08/68

ADDRESS 1I ST
2

4

6

8

A

C

E

-o~ca-

FilE 075
2C43

FilE 076
9490

filE 077
854A

filE 078
AfC6

FilE 079
EE93

fILE 080
DE91

fILE 081
8114

filE 082
2A45

-0500-

-0510-

fILE 083
8548

filE 084
2C85

fILE 085
8502

filE 086
2ElS

fILE 087
fAA9

FilE 088
CEBC

fILE 089
E5B5

filE 090
f023

-0510-

-0520-

FILE 091
8BES

FilE 092
49Af

FILE 093
5CC2

FILE 094
B362

fILE 095
8114

FILE 096
OA38

fILE 097
FOC4

FILE 098
OA10

-0520-

-0530-

filE 099
EOC4

filE 100
8C92

fILE 101
8224

fILE 102
ZE43

FILE 103
F03D

filE 104
3U5

FILE 105
8230

FI LE 106
f05t

-0530-

-0540-

FilE 101
8U4

filE 108
855A

FlLE 109
8224

FILE 110
2A13

FilE 111
9496

filE 112
2B43

fiLE 113
70AO

FILE 114
F058

-0540-

-0550-

fllE 11.5
2400

filE 116
5ce2

FilE 111
2f01

FILE 118
AOIE

FILE Ll9
EG63

fILE 120
2348

FILE 121
5630

FILE 122
2F85

-0550-

-0560-

flU 123
C365

FilE 124
2F07

fILE 125
2A01

filE 126
C3ED

FILE 127
2400

filE 128
A030

FILE 129
5007

CMlT 100
6FfB

-0560-

-0510-

CMU 101
6EED

CML r 102
6770

CMlT 103

CMU 104
bSBO

CMU 105
bUD

eMU 106
6990

CMl T 107
6880

CMlT 108
12SE

-0570-

6b6D

058-05€0-

fllX 007
9554

fllX 008
8fFD

flU 009
EF88

FlLX 010
EFD6

flLX 011
9714

FllX 012
8f90

F IL X 013
Hec

fllX 014
Ef06

-0580-

-0590-

fllX 015
86AC

FllX 016
8F8D

fIlX 011
EfC8

FILX 018
EF06

flU 019
86AC

flLX 020
8fDO

FIlX 021
EFeE

fllX 022
EF91

-0590-

-05AO-

FILX 023
OF'll

flU 024
5E32

fllX 025
FFfl

FlLX 026
3EOO

f ILX 017
C02C

flLX 018
869C

flL X 038
IE45

fllX 039
7E31

-05AO-

-0580-

FllX 040
2e07

FILX 041
HE!

FllX 0~2
f864

F ILX 043
6228

FllX 049
FfCB

FILX 050
Of'll

f IL X 051
C011

FIlX 052
3EOO

-05So-

-05CO-

fllX 053
f5C1

fllX 054
2C65

fllX 055

FILX 056
A39A

fIlX 057
Ff90

FILX 058
SoEA

f Il X 059
E851

fllX 060
F84A

-05Co-

~OCF

-05DO-

flLX 061
ffe8

flU 002
OleA

FIlX 063
8694

FILX 069
Df91

FIlX 010
3EOO

FllX 071
2(25

FllX 012
7C52

FllX 073
A384

-0500-

-05Eo-

FIlX 079
5068

FllX 080
CDE9

flLX 081
5886

FIlX 082
BIFE

FILX 083
5886

flLX 084
C4E6

FllX 085
7C52

fllX 086
5E42

-05Eo-

-05FO-

fllX 087
862A

fllX 019

fllX 030
f5A6

fllX 031

FIlX 032
2(33

fIlX 033
4fCF

FIlX 034
500D

F IlX 035
3085

-05fO-

CONTROL ADDRESS

DElD

E~31

05--

,PAGE 276

ADDRESS LI ST
CONTROL ADORE SS

0

CLOAD=*E60, EC lEVEl=128211
06--

DAlE 11108/68
2

4

6

8

A

C

E

-0600-

fllX 036
5E42

f IlX 037
86EA

OPle 011
E809

DPIC 012
f213

DPTC 013
IF43

DPIC 014
861C

OPIC 007
F 213

DP IC 008
3F23

-0600-

-0610-

DPIC CG9
861C

DPTC 024
3F85

DPTC 025
9D3A

DPIC 016
EBIB

DPTC 011
F213

DPTC 018
3f43

OPIC 021
2EC3

DPIC 022
8058

-0610-

-0620-

Fill 011
94A4

Fill 012
94A4

fIll 013
862A

fill 014
2F78

fill 015
5EE4

FIll 016
1000

fiLT 017
5Cf 8

FIlT 018
A960

-0620-

-0630-

fIll 019
OC88

fill 020
fOC2

fIll 021
5HO

FIll J22
OF83

Fill 023
FOEE

FIll 024
5CF8

fILT 025
A96D

F I LT 026
OC88

-0630-

-0640-

FIl T 027
C4El

fIll 028
CDC9

FIll 029
4fCF

Fill 030
FOEl

FIll 031
5AF8

fill 032
5CF8

fiL T 033
58f 8

FILT 034
OC83

-0640-

-0650-

fIll 035
FOE6

flU 036
4886

FIll 031
C4E7

FIll 038
7E42

FIll 039
CDf5

flLT 040
40CF

fILl 041
5C52

F I L T 042
889B

-0650-

-0660-

FILT 060
6EE4

FIll 061
6EE4

FIll 062
6EE4

fILl 063
7E42

F ItT 064
2f25

fiLl 065
2E01

FIll 066
8ElA

fIll 067
5H2

-0660-

-0670-

FIll 068
6EE4

fIll 069
8660

FILl 043
4DCF

FIll 044
2C07

FIll 045
2035

FllT 046
3043

F IL T 047
5ECO

FILT 048
BBA3

-0670-

068-0680-

fILX 125
Of88

flLX 126
DfSE

flU 127
B6AC

FILX 128
B6AC

F ILX 129
2010

flLX 130
EB33

fILX 131
869C

FIlX 132
C BIB

-0680-

-06<;0-

FILX 133
fCIC

FlLX 134
0036

fllX 135
3000

fllX 136
2C43

fILX 131
86EE

fllX 138
0193

F ILX 139
2Fl5

fIlX 140
86BB

-0690-

-06Ao-

fILX 141
86AC

FlU 142
8608

fIt-X 143
2C23

FlU 144
FFE8

fllX 145
2C83

flU 146
CFEC

fILX 147
2F07

fIlX 148
86B8

-06AO-

-06BD-

flLX 149
F81C

flLX 150
D19C

FILX 151
fD6A

fILX 152
2F43

FlU 153
2EA5

fIlX 154
7E52

FIlX 155
2E23

FILX 156
8E38

-06BO-

-06Co-

flU 151
OFBO

FILX 158
DfC8

flU 159
EFEB

flLX 160
86AC

FILX 161
E890

FIlX 1.62
E853

FllX 163
081C

FILX 164
E014

-06Co-

-0600-

FIlX 165
86B6

FllX 166
2010

flLX 167
OlCf

flLX 168
869C

FlU 169
DfAO

flU

170
2C15

fILX 111
0060

flLX 112
86B6

-06Do-

-ObEO-

fU.X 113
86AC

FILX 174
DfC8

FH.X 175
86AC

FllX 176
2C33

FlU 177
CFEC

FILX 178
2C07

FILX 179
3000

FILX 180
1C52

-06EO-

-06fo-

FllX 181
2C15

fllX 182
4BCF

FlU 183
1000

FllX 184
5C32

FlU 185
EC70

fllX 186
0222

FILX 181
2C 8.5

FILX 188
7C32

-06FO-

CONTROL ADDRESS

06-

,PAGE 277

CONTRuL ADDRESS

0

ClOAO=*E60. EC LEVEl=128211
07--

DATE 11/C8/68

ADDRESS LIST
2

4

6

8

A

C

E

flU 189
B362

fILE 250
5C52

FILE 251

fiLE 252
EC16

FILE 253
2C07

filE 254
2043

fILE 255
5ECO

FILE 256
4FCF

-0700-

F911

-0710-

fiLE 257
6Fll

flU 258
C497

f Il.E 259
4fDf

filE 260
5CC2

fiLE 2bl
128E

ALOP 199
2400

ALDP 200
AAAF

AlDP 201
OblO

-0710-

-0720-

AlOP 202
AAA2

AlOP 203
3BE9

AlOP 204
76AA

ALOP 205
72AA

ALOP 206
74AA

ALDP 207
70AO

ALDP 208
2B20

AlOP 209
7EAO

-0720-

-0730-

AlOP 210
2440

AlDP 211
7872

ALDP 212
2400

ALDP 213
EBB

ALDP 214
1600

AlOP 215
AAA2

AlDP 182
2315

AlDP 183
3353

-0730-

-0740-

AlOP 1B4
3fOO

AlOP 185
C4Cf

AlDP 181
2F20

AlOP 188
3f02

AlOP 189
1683

AlOP 190
C400

AlOP 192
2345

AlDP 193
2FOA

-0740-

-0750-

AlOP 194
EEA2

ALOP 195
IF2A

AtoP 196
E31A

AlOP 197
FA9B

AlOP 198
B002

DCll 021
3BOO

OCLl 022
5007

DCll 023
875C

-0750-

-0760-

DCll 024
0313

DCll 025
C4DA

DCll 027
04C3

DCll 028
C4DA

OCll 029
055B

DCLl 030
0004

OCll 031
2407

DCll 032
7432

-0760-

-0770-

DCll 033
2B08

Dell 034
C9F3

OCll 035
0214

DCll 036
2400

DCLL 037
SADA

DCLL 038
10F5

DCll 039
2B23

DCll 040
70BO

-0770-

-07eo-

078-07tJo-

Dell 041
AICA

eMl T OOb
AE98

eMLT 002
F503

CMLT 003
3515

CMLT 004
A770

CMU 005
82FA

CMlT 007
E191

CML T 008
3485

-0780-

- 07':10-

CMlT 009
F503

CMl T 010
3515

CMU 011
8A70

CMLT 012
82FA

DClA Ob3
5ES8

DClA 065
7EF2

DClA 066
OEF5

DClA 067
FOA}

-0790-

-07Ao-

DCLA 068
BOC4

DClA 069
AB3F

DClA 075
52BA

DCLA 083
0249

DClA 085
F4Al

DClA 086
0383

DClA 087
F OAO

aCLA 089
5009

-07Ao-

-07BO-

DClA 090
C484

DClA 091
8888

OCLA 093
001B

DClA 094

DCtA 099
5632

DClA 101
2SA 1

DClA 102
5FAA

DClA 103
6Fll

-0780-

C4Cb

-07CO-

aClA 104
fOC5

DClA 108
8003

DClA 113
847 A

DClA 116
BOfA

BSWt 001
2F07

8SW1 008
3600

B SWI 009
B2F8

SSWI 011
5AEF

-07CO-

-0700-

B SWI 012
lEFF

BSWI 013
C4F7

BSWI 020
5E09

8SWI 021

BSWI 022

bEE3

851011 023
6E03

SSIH 030
2655

SSWI 031
50B8

-0700-

bEE3

-07E0-

BSWI 032
528A

B 51011 033
2002

8SWl 034
12E9

851011 0.35
7lA9

BSW 1 036
70A9

8SWI 038
42Af

B SWI 040
70B8

8SWI 04l
72BA

-07EO-

-07f0-

B SWI 043
A7fA

B SWI 045
f5F9

BSWI 046
2608

BSWI 047
AA84

BSW 1 048
E976

BSWI 049

CMt r l75
3002

CMl T 176
BOF4

-01FO-

CONTROL ADDRESS

9CCb

07-

,PAGE 278

ADORE SS LIST
CONTROL AoOKESS

DATE 11108/68

ClOAO=*E60. EC lE VEL=12821l. .PAGE 279
08--

0

2

4

6

8

-08(0-

BOlA 280
4E02

BOlA 281
2ElS

BOlA 282
2flO

BDIA 283
CAOO

BOlA 284
bE02

BOlA 285
8388

BOlA 302
EtA3

80lA 303
2020

-0800-

-0810-

BOIA 304
El90

BOlA 305
2EC5

BOlA 30b
3E43

BOlA 307
2F85

BOlA 308
3FA3

BO IA 309
6El2

BOlA 310
2EF7

BOlA 311
3F89

-0810-

-0820-

BOlA 3L2
8802

BOlA 313
0020

BOlA 314
HA5

BOlA 315
OlAC

BOlA 316
0040

BOlA 317
8308

BOlA 318
2040

BOlA 319

-0820-

-083D-

BOIA 320
4E22

BOlA 321
6El2

BOlA 322
.3EC9

BOlA 323
5Efl

BOlA 324
8802

BOlA 385
6443

BOlA 386
2505

BOlA 387
1543

-0830-

-0840-

BOlA 388
3808

BOIA 389
0500

BDI A 390
3800

BOI A 391
OAC6

BOIA392
1212

SOIA 393
2800

BOlA 394
C43A

BOlA 399
2440

-0840-

-0850-

BOlA 400
886E

BOlA 401
OE.3F

BOlA 402
FE04

BOlA 403
4E80

BOlA 404
bE80

BOlA 405
FAOA

SOlA 406
OE3f

SOIA 401
EAOE

-085D-

-0860-

BOlA 408
1212

SOIA 409
B86E

BOlA 410
OflF

BOI A 411
FEE6

BOlA 412
4E80

SOIA 413
bE80

BOIA 414
02E2

BOlA 415
4E80

-0860-

-0870-

BOIA 416
3804

BOlA 411
6E80

BOlA 418
CAF4

BOlA 419
3800

BOlA 420
128E

BWRP 020
97E5

SWRP 010
04FA

BWRP 011
9795

-0870-

A

C

E

OlAE

088-0880-

DClA 303
8948

OClA 305
9EAA

OClA 306
'lEAA

DClA 308
96F4

OClA 124
2543

OClA 125
4E66

OClA 126
IFCB

OCLA 121
2110

-08SD-

-0890-

OCtA 128
5BES

OCtA 129
6811

OClA 130
e49B

OCLA 131
D80F

OClA 134
SOFA

OCtA 201
5E60

OClA 202
E032

OClA 215
A078

-0890-

-08AO-

DeLA 216
07FO

OCLl 211
EOCE

OClA 218
8EAC

DelA 223
C42C

oelA 224
0131

OClA 225
OA.31

oell 226
4E52

OCll 227
A030

-08Ao-

-0880-

OClA 228
8362

OClA 21.2
F045

OClA 243
0843

DClA 252
CEttD

DClA 256
5669

OClA 257
EOBf

DCLA 258
81F8

Dell 259
3173

-0880-

-08CO-

OClA 261
93F4

OCLl 285
AC74

DClA 277
OS4A

DClA 281
CE42

OClA 282
Of43

DelA 283
J6n

oelA 284
8711

oeu 219
0526

-oseo-

-0800-

OCll 220
15C5

OClA 221
1460

OCL A 222
88AC

CICY Ob2
814C

CICY 063
B03B

CICY 053
AF4E

C ICY 054
BOlO

OCLA L83
889A

-0800-

-08ED-

C IC Y 044
A9CO

CMU 154
3025

CMLT 155
9C02

CMLT 156
1025

CMLT 151
9C04

eMLT

158
8344

BOlA 269
OLEO

BOlA 270
EIEF

-08ED-

-08FD-

BOlA 211
ZE87

BOlA 272
2F05

SOIA Z73
6Ell

801 A 274
6E22

BOlA 215
3EE9

BOlA 276
2F71

BOlA 271
8802

BOIA 008
8240

-OBFO-

CONTROL ADDRESS

08--

CONTROL ADDRESS

0

ClOAO=*E60, EC lEVEl=IZ8211
09--

DATE 11/08/68

ADDRESS LIST
2

4

6

8

A

C

E

-0900-

DPTT 026
1548

DPTT 021
831E

DPTT 028
OAOF

DPU 029
CAOE

DPTT 030
E40f

OPTT 031
2085

DPTT 032
8910

DPTT 033
2007

-0900-

-0910-

DPTT 0.34
7068

DPTT 035
C116

DPTT 036
3485

DPU 037
54F9

DPTT 038
7A68

DPTT 039
5068

DPTT 040
5260

DPTT 041
ACOE

-0910-

-0920-

DPTT 046
5E29

DPTT Oft 7
CE61

OPH 049
DA39

OPTT 050
2El5

DPTT 051
54F9

DPU 052
1F85

DPTT 053
F246

DPfT 054
AOIE

-0920-

-0930-

DPTT {)56
6HC

DPTT 051
5F39

DPTT 058
6664

DPTT 059
126A

DPTT 061
8HE

DPTT 062
1460

DPTT 063
54F9

DPTT 064
E243

-0930-

-0940-

DPTT 065
0008

DPTr 066
F22F

DPTT 061
3El5

DPTT 068
A030

DPTT 006
2482

DPTT 007
A078

OPTT 008
0158

DPTT 009
C421

-0940-

-0950-

DPTT 010
DED4

DPTT all
6362

DPU 013
2E23

DPTT 014
2F07

OPTT 015
AOlE

DPTT 020
0008

DPTT 021
5F69

DPH 023
E401

-0950-

-0960-

DPU 024
AA03

DPTT 025
AC14

ERRQ 102
2A15

ERRQ 103
F76E

ERRQ 104
2BF5

ERRQ 105
7CAA

ERRQ 106
128E

ERRQ 107
2681

-0960-

-0970-

ERRQ 108
C4EA

CFAD 001
3635

CfAO 008
9 ADO

CFAO 009
5EH

CFAD 010
5AE2

CFAD all
8212

CFAO 012
2C01

CFAD 013
5E69

-0970-

098-0980-

CfAO 014
5E09

CFAD 015
2040

CfAD 016
1611

CfAD 018
E48E

CfAD 019
f49l

CFAO 020
56C9

CfAD 021
8996

CFAO 022
F48B

-098G-

-0990-

CFAO 023
001t0

CFAD 025
51E9

CFAD 026.
7<:61

CfAO 027
FOlA

CfAO 028
lC8D

CfAD 029
ce1E

CFAO 030
3002

CfAD 011
lC85

-0990-

-09AO-

CFAD 0.32
EOA5

CfAO 033
2CF3

CfAD 034
f08f

CfAO 035
Ol86

CFAD 036
3835

CFAD 031
8212

CFAD 038
A656

CHO 039
9AOO

-09AG-

-09Bo-

CfAD 040
5AE2

CFAO 041
8212

CfAO 042
89CO

CFAD Olt3
lE85

CFAD Olt4
CD3C

CfAO alt5
3ESS

CFAO 046
A656

CFAD 041
0040

-0960-

-0geo-

CfAD 048
3835

CFAO 049
0008

CfAO 050
OleB

CfAD 051
75AO

CfAO 052
B'JCE

CfAO 053
C5(6

CFAO 054
1558

CFAD OS5
0052

-0geo-

-0900-

CfAD 056
0008

CFAO 057
A704

CfAD 058
5AE2

CfAO 059
C5EE

CFAO 060
F5DE

eFAO 061
0002

CFAO 062
89EE

CFAO 063
lE80

-0900-

-09Eo-

CFAD 064
E070

CFAO 065
0008

CfAO 066
2002

CFAD 067
755B

CFAD 068
006C

CFAD 009
0008

CFAO 010
9364

CfAO 011
E07F

-09EO-

-09FO-

CFAD 012
9258

CfAD 073
D5F9

eFAD 074
f5F9

CfAO 075
ABOC

CFAD 017
CE7D

CFAD 078
ACA4

CFAD 079
A9lA

CFAO 080
F5A9

-09fo-

CONTROL ADDRESS

09--

,PAGE 280

ADDRESS LIST
CONTROL ADDRESS

0

ClOAD=*E60, EC lEVEl=128211 ,PAGE 281
OA-

DATE 11/08/68
2

4

6

8

A

C

E

-OAOo-

CFAD 082
5CC2

CFAD 083
D5CA

CFAD 084
0043

CFAD 085
OFF3

CFAD 086
C4C2

CFAD 087
AIE4

CFAD 088
2EFF

CFAD 089
E496

-OAOO-

-OAI0-

CFAD 090
F499

CFAD 091
2501

CFAD 092
8A06

CfAD 093
F493

CFAD 094
EOIF

CFAD 097
2C01

CFAD 098
B260

CFAD 099
2080

-OAI0-

-OA20-

CFAD 100
1E8D

CFAD 101
2103

CFAD 102
2501

CFAD 103
8A06

CFAD 104
2A13

CFAD 106
2C 13

CFAD 107
A656

CfAD 108
5CC2

-OA20-

-OA30-

CFAD 109
2A07

CFAD 110
2ElS

CFAD ill
E4BB

GFAD 112
f48D

CFAD 113
8A42

GfAD 114
f489

GfAD 115
1E8D

GfAD 116
21G3

-OA30-

-OA40-

eFAD 11.1
2080

CfAD 118
2C25

CfAD 119
CE48

CFAD 120
lC1D

CFAD 121
B266

CfAD 123
FD4F

GFAD 124
2E01

CFAD 125
iE 85

-OA40-

-OA50-

CFAD 126
9AOO

CFAD 121
925A

CFAD 128
2C07

CFAD 129
fD58

CFAD 130
A8DE

CfAD 131
28E3

CFAD 132
'Ie 70

5007

-OA60-

BWRP 021
9018

BWRP 022
94BO

BWRP 023
9268

BWRP 024
926A

BWRP 025
926A

BWRP 026
5007

BWRP 027
9268

BWRP 028
9614

-OA60-

-OA 70-

CCOI4 036
55B3

CCOM 031
52A8

CCOM 038
50AA

CCOM 039
556B

CCOM 040
56A8

CCOM 041
5EAA

eCOM 042
100E

CCOM 043
128E

-0A70-

-OA50-

OA8-OA80-

BwRP 012
f790

BWRP 013
94B4

BWRP 014
B35E

BWRP 015
9210

6WRP 016
9210

BWRP 017
5007

BWRP 018
926E

BWRP 019
8476

-OA80-

-OA90-

BWRP 037
ElAE

BWRP 040
08CD

BWRP 048
C4AE

BWRP 049
092B

BWRP 050
C4AE

BWRP 051
2440

BWRP 052
78F2

BWRP 053
2400

-04'10-

-OAAO-

BwRP 054
56f2

BWRP 055
1&C5

BWRP 056
372B

BWRP 057
4660

BWRP 058
0633

BWRP 059
2401

BWRP 060
A9CO

BWRP 064
2A07

-OAAO-

-OA60-

BWRP 065
A9CO

BWRP ObI
E22D

BWRP 062
6886

BWRP 063
8AAA

CICY 032
814C

CICY 033
55E5

GICY 034
61EB

CICY 035
60AD

-OABo-

-OACO-

e 10 036
bfAD

CICY 031
55ED

CICY 038
63EB

CICY 039
62AD

CIGY 040
6740

CICY 041
bf15

CICY 042
AB7l

CICY 04.3
BOIB

-OACO-

-OADo-

DCll 019
0214

DCll 020
8A02

CSIS 063
8ADA

eSIS 064
1098

eSTS 065
A8DE

eSTS 066
500f

C SIS 061
511f

eSTS 068
128E

-OAOO-

-OAEe-

CCOM 016
3002

CCOM 071
7HB

eCOM 018
1EEB

eCOM 019
177B

CCOM 080
7666

CCOM 081
lOOA

eeOM 082
128E

OClC 014
C116

-OAEO-

-OAFO-

DClC 015
7602

DClC 016
2040

DClC 011
8AF8

OCle 018
0040

DCle 019
2880

DCle 020
4f1F

DClC 021
2B84

DGle 022
2BC4

-OAFO-

CONTROL ADDRESS

OA--

ADORE SS
CONTROL ADDRESS

0

u: Sf

elDAO=*E60. EC LE VEl=128211
08--

DATE 11/08/68
2

4

8

6

A

C

E

-0600-

DClC 023
e9DO

DCle 024
FOAl

DelC 025
2626

Dele 026
E6GO

DCLe 027
05e3

OCLC 028
F094

DeLe 029
F 514

OCLe 030
2323

-0800-

-0610-

Dele 031
2201

DClC 032
883A

DeLe 033
009F

DCLC 034
2BOO

DClC 035
F21F

DeLC 036
C3CB

OCle 037
A4F4

OCle 038
4254

-OB10-

-OB20-

DCle 039
.SF4F

DClC OltO
FC9F

Dele 041
2884

oelC 042
EolF

DClC 043
FDAE

Dele 044
2628

DClC 045
FDA7

DelC 046
2B80

-0820-

-0630-

Dele 041
f21f

OCl.e 048
El49

Dele Olt9
f149

OCle 050
5429

Dele 051
2307

OCle 052
12A2

DClC 053
2800

OCle OS4
2400

-0830-

-0840-

OCle 055
5EA2

DClC OS6
2A01

DCle 051
AOlE

DCle 058
Af44

DeLe 059
e308

OCle 060
815A

Dele 061
f537

DCl.e 062
5449

-0840-

-OB50-

Dele 063
C466

DeLe 064
2800

DCLe 065
6362

DeLe 066
2B84

OClC 061
2307

Dele 068
A18A

oelC 069
28CO

DCle 070
0010

-OB50-

-0660-

DClC 071
E61F

OClC 072
(OE9

OCLe 013
2628

DeLe 014
eOEO

Dele 075
4F4F

oelC 016
5F4f

Dele 077
fC9F

DClC 018
6471

-OB60-

-OB 10-

Dele 019
C49E

oelC 080
054B

Dele 08i
C4D7

Dele 082
28C2

DCLC 083
9E06

clev 013
5892

CICV 014
2020

C Ie y 015
87C8

-0610-

088-0880-

COMD ISO
A520

COMO 106
57lA

COMO 107
A311

eOMD 108
2FfF

COMO 109
F483

COMO 110
5004

eDMD i l l
5224

CDMO 112
5Ef9

-OB80-

-08<;0-

CDMO 113
2B01

COMO 114
E597

COMO 115
2040

CDMO 11b
0004

COMO 117
17Af

COMil 118

COMO 119
DLAI

COMD 120
7118

-0890-

5730

-06Ao-

COMO 121
7B38

COMD 122
2fFF

COMO 123
C498

COMO 124
5006

CDMD 125
5226

CDMO 126
01e3

CDMD 121
5778

COMO 128
7110

-OBAG-

-06BO-

COMO 129
71AF

COMO 130
ClSl

COMO 131
ESCl

CDMO 132
8lBe

CDMO 133
OB90

COMO 134
Eoe2

COMO 135
4086

CDMO 136
1002

-OB80-

-OBCo-

COMO 137
9AFO

COMO 138
S4F9

COMD 139
92S4

COMO 140
27C3

eDMO 141
e94e

CDMO 142
1768

COMO 143
EfSl

COMO 144
3713

-08Co-

-0800-

COMO 145
5flO

COMO 146
6F15

CDMO 147
7FlO

COMD 148
2AOI

COMD 149
A80E

eFCO 056
0008

CftO 057
6FfS

CFeo 058
4886

-OBOO-

-08Eo-

CFCO 059
F461

CFeD ObO
4226

CFca 061
4006

CFea 062
128E

FILE 137
8114

F Il E 138
3EOO

FlU 139

FILE 140
OE08

-OBEo-

2490

fIlE 141
2302

fILE 142
2304

FILE 143
HIO

FILE 144
3029

filE 145
4FOf

fILE 146
430f

fItE Hl

FIlE: 148

-OBFO-

sn4

5FCf

-08foCONTROL ADDRESS

OB-

,PAGE 282

ADDRESS LIST
CONTROL ADDRESS

0

ClOAO=*E60. EC lEVEl=128211 ,PAGE 283
OC--

DATE H/08/68
2

4

6

8

A

C

E

-OCOO-

filE llt9
lCFF

FILE 150
C4FE

FILE 151
ltFCF

FILE 152
5FCF

fILE 153
C4FE

FILE 154
8CCA

FILE 155
56CF

FILE 156
8346

-OCOO-

-OC10-

FILE 157
5ECF

FILE 158
C4FE

FllE 159
2310

FILE 160
2390

FILE 161
2013

FILE 162
4FOF

FILE 163
2025

FilE 164
430F

-OCtO-

-OC20-

FILE 165
3110

FILE 166
8C06

FilE 161
2035

FILE 168
2016

FILE 169
4FOF

FILE 170
8CCE

FILE 171
58CF

fILE 172
2D85

-OC20-

-OC 30-

FILE 113
3023

FILE LI4
B346

FI LE 175
3073

FilE 176
B342

FilE 177
3114

FILE 118
8C02

FILE 179
20A3

FILE 180
B342

-OC30-

-Oe40-

FILE 181
LOOO

FILE 182
CAFF

FilE 183
2380

FILE 184
3114

FILE 185
8e02

FILE 186
2045

FILE 181
30E3

FILE 188
6342

-Oe40-

-OCSo-

FILE 189
1000

filE 190
2390

FILE 191
3114

FILE 192
2308

FILE 193
2075

FILE 194
30A3

FILE 195
8342

FILE 196
1000

-OC50-

-Oe60-

FilE 191
3114

FILE 198
2380

FILE 199
2308

FILE 200
2035

FILE 201
3043

FILE 202
8342

FILE 203
1000

FILE 204
311lt

-OC60-

-OC 70-

FILE 205
2308

filE 206
2055

FILE 207
3063

FILE 208
6342

FILE 209
1000

FilE 210
2480

FILE 211
8C8e

FilE 212
2100

-OC10-

Oe8-OC80-

FilE 213
1EOO

FILE 214
OE08

fILE 215
1210

FilE 216
2480

FILE 217
3e83

FILE 218
8502

FILE 219
2100

FILE 220
3EOO

-OC80-

-OC90-

FILE 221
8e92

FILE 222
OE08

fILE 223
OE04

FILE 224
L210

FILE 225
2043

FilE 226
4EOF

FILE 227
5ce2

FILE 228
2A01

-OC90-

-OCAo-

FILE 229
2490

FilE 230
5E42

FILE 231
863A

BMCK 006
1612

BMCK 001
566F

BMeK 008
571F

BMCK 009
1612

BMeK 010
2610

-OCAO-

-oeBO-

BMCK 011
A2CF

BMeK 012
2400

8MCK Ol8
2135

BMCK 019
98FA

OCl" 002
10CE

OClA 003
f93E

OClA 004
635A

OCtA 005
2C01

-0(60-

-oceo-

OClA 006
28ft5

DClA 001
3B83

OClA 008
46A6

DClA 009
17FD

oelA 010
801F

FILE 233
2308

FilE 234
2308

FILE 235
2308

-oe(o-

-ocoo-

FilE 236
230S

fILE 237
2308

FILE 238
2308

FilE 239
2308

FILE 240
2308

FILE 241
128E

OPTR 006
E660

OPTR 007
2020

-oeoo-

-OCEo-

OPTR 008
40Cf

OPTR 009
2813

OPJR 010
2985

DPJR 011
2948

OPTR 012
2A25

OPU 013
2AC8

OPTR 015
2C15

OPTR 019
5038

-oeEO-

-OCFO-

DPTR 020
58CO

DPTR 021
4FBF

OPJR 022
2004

DPTR 023
OBFF

DPTR 024
e4FC

OPTR 025
3F8.3

OPTR 026
488F

OPTR 027
5006

-OCFo-

CONTROL ADDRESS

OC-

CONTROL ADDRESS

/

0

CLOAO=*E60, EC LEVEl=128211
DO--

DATE 11/08/68

ADDRESS LIST
2

4

6

8

A

C

E

-01)00-

OPTR 028
C488

OPTR 029
29FF

OPTR 030
C49F

OPTR 031
82E4

OPTR 032
8CEE

OPlR 033
C568

OPTR 034
29FF

OPTR 035
CItAl

-0000-

-0010-

OPTR 036
3445

OPTR 031
82E4

OPTR 038
4F8F

OPfR 039
2004

OPTR 040
2B05

OPTR 041
4BBF

OP TR 042
SDOC

OPTR 044
3445

-0010-

-0020-

OPTR'045
EAA8

DPTR 046
3E23

OPTR 047
lFl5

DPTR 048
1545

DPTR 049
OB2C

OPTR 050
lF83

OprR 051
3002

OPTR 054

-0020-

-0030-

OPTR 055
0440

OPTR 056
C538

OPTR 057
4006

OPTR 058
C4CO

OPTR 060
E53E

DPTR 061
1445

DPTR 062
8040

OPTR 063
1545

-0030-

-0040-

OPTR 064
3E83

OPTR 065
3485

OPTR 066
0550

OPTR 067
B106

OPTR 068
IE83

OPTR 069
OA52

OPTR 070
9258

OPTR 011
9044

-0040-

-0050-

OPTR 072
9052

OPTR 073
9054

OPTR 077
40CF

OPTR 078
2002

OPTR 080
C55C

DPTR 081
15E5

OPTR 082
3485

OPTR 083
3E83

-0050-

-0060-

OPTR 084
0547

OPTR '085
F251

OPTR 086
OA68

OPTfl 087
1485

OPTR 088
903C

OPTR 043
9044

CFtS 034
4606

CFtS 035
45BB

-0060-

-0070-

CFLS 036
8212

CFLS 037
7E78

CFlS 038
7878

CFtS 039
F410

CfLS 040
1278

CFLS 041
1010

CFlS 042
925A

CFlS 043
A80E

-0070-

lF23

008-0080-

CICV 241
A05A

CICY 242
81B6

CICY 243
AE84

CICY 244
AE1E

C ICY 245
A05A

CICV 246
A05A

CICY 247
A05A

CICY 248
A05A

-0080-

-0090-

CICV 249
914(

CICY 250
91BA

CICV 251
914E

CICY 252
91B8

CICV 253
A582

CICY 254
A582

CICY 255
A05A

CICY 256
A05A

-0090-

-OOAO-

e IC Y225
A05A

CICY 226
AE48

CICY 227
AEAA

CICY 228
AE5A

CICY 229
A9AA

CICV 230
AC88

C IC Y 231
AOFA

CICY 232
ACEO

-OOAo-

-OOBO-

ClCY 233
A05A

CICY 234
A05A

CICY 235
A05A

CICY 236
A05A

CICY 237
A07C

CICY 236
AD1C

CICY 239
A9f8

CICY 240
A9F8

-OOSO-

-OOCO-

CCOM 056
70A2

ceOM 051
HB2

CCOM 058
7C('2

CCOM 059
flCC

CCOM 060
7892

CCOM 061
0020

eCOM 062
128E

FIlX 358
3F85

-ODCO-

-0000-

f l U 359
1E62

FILX 360
FF06

FlLX 361
51Er

FllX 362
51CF

F.ILX 363
2007

F (LX 364
4BOF

FIlX 365
2015

FllX 366
7eE3

-0000-

-OOEo-

fllX 361
F4E8

FILX 368
2CIB

flLX 369

FILX 310
5fFO

FILX 371
4EOF

FllX 372
4BOF

F I l X 373
2001

FILX 374
480F

-OOEO-

lCFF

FIlX 315
4EEF

FllX 376
2E45

FIt.X 311
4BEF

fllX 318
4BOf

FlU 379
4EFF

FllX 380
2E25

F IL X 381
48EF

FILX 382
4BOf

-ODFo-

-OOfoCONTROL ADDRESS

00-

,PAGE 284

ADORE SS 1I ST
CONTROL ADDRESS

-0[00-

0

2

4

6

8

ClOAD=*E60, EC lEVEL=128211 ,PAGE 285
OE--

11/08/68

A

C

E

FIlX 384
C496

FILX 385
2F43

FILX 386
4EFF

F lLX 387
2EC3

FIlX 388
OFA6

FILX 389
2015

FI LX 390
4BOF

-OEOO-

OCFF
-OElO-

FllX 391
5E42

FILX 392
1000

flLX 393
0222

FILX 394
4ECF

FILX 395
2F85

FIlX 396
4BfF

FILX 397
4BOF

FlLX 398
4EEF

-OElO-

-OE20-

FIlX 399
2013

FILX 400
4BOf

FILX 401
2E83

FlLX 40.2
2F45

F IlX 403
COBB

FILX 404
F9B 1

f IL X 405
4886

FILX 406
C4BA

-OE20-

-OUo-

FILX 407
DoB8

FILX 408
OA36

FIlX 409
B236

FILX 410
86F4

FilX 411
2FOl

FIlX 412
2A07

F I l X 413
2B07

FILX 414
H62

-0E30-

-OE40-

FILX 415
lEOO

FIlX 410
1000

fIlX 417
2E08

FILX 418
5C32

FIlX 419
C30C

fILX 420
OEC3

FIlX 421
FOOL

FIlX 422
5007

-OE40-

-OE50-

FIlX 423
Of85

f l U 424
C4CE

FIlX 425
2C07

FIlX 426
lC32

FILX 421
0212

F ILX 428
8716

FILX 429
2843

F ILX 430
lCA8

-OE50-

-OE60-

fILX 431
DC6E

fllX 432

flLX 433
C9EA

FllX 434
3f85

Fllx 435
0004

FIlX 436
2410

FILX 431
A030

FllX 438
lEAO

-OE60-

1A32

FllX 439
2008

FILX 440
40Af

fILX 441
4FAF

FILX 442
EC7E

F ILX 443
2C85

FIlX 444
7C32

F IL X 445
B 362

fIlX 446
0222

-0E70-

-OE 70-

FILX 383

DATE

OE8-OE80-

CICY 163
A014

CICY 164
A996

CICY 165
AEB8

CICV 166
AEDC

CICY 161
AC56

CICY 168
A89C

CICY 169
AB08

CICY 170
A8C2

-OE80-

-OE
5F20

ETRP 031
60F1

-OFBO-

-OFCD-

ETRP 038
1020

ErRP 039
23CS

HRP 040
2230

EIRP 044
5f20

ETRP 045
6CFl

ETRP 046
C400

URP 047
CAoe

ETRP 048
3F40

-Of CO-

-OFOD-

ETRP 049
2E55

ErRP 050
54FO

ETRP 051
3FF5

ETRP 052
50EO

ETRP 053
60C5

ErRP 054
70EO

E1RP 055
2215

ETRP 056
241S

-OfOa-

-OF EO-

ETRP 057
FOEA

ETRP 058
F260

HRP 059
1613

ETR? 060
2468

ETRP ObI
EOED

HRP 062
0208

ETR? Ob3
DfF2

ETRP 064
CFf2

-OFEa-

-OFFa-

ETRP 065
2F20

ErRP Ob6
0080

ErRP 061
2215

HRP 068
2307

ETRP 069
5F2C

ETRP 010
3613

EIR? OJ 1

ElRP 072
8FE6

-OfFO-

CONTROL ADDRESS

2415

Of--

ADDRESS LI ST
CONTROL ADDRESS

0

ClOAO=*E60, EC LE VE L=128211
10--

DATE 11 J08/68
2

4

6

8

4

C

E

-10eo-

CICY 195
ABC2

CICY 196
A05A

CICY 197
AB7E

CICY 198
A88A

CICY 199
8302

CICY 200
B30C

ClCY 201
ACC8

CICY 202
ACC8

-1000-

-1010-

CICY 050
9BF4

CICY 047
9A6A

CICY 048

CICY 049
9001

BWRP 066
21407

BWRP 067
2B43

BWRP 068
2F07

BWRP 069
9C72

-1010-

COIl

-1020-

DeLB 209
9CFC

OClB 211
9812

oelB 212
9B12

OClB 214
A4A2

OYPE 168
2791

OYPE 169
5660

DYPE 170
16E3

OYPE 171
2404

-1020-

-1030-

DYPE 172
5C68

DYPE 173
5468

OYPE 114
526B

DYPE 175
5068

DYPE 176
52E9

OYPE 177
2711

DYPE 178
128E

5001

DCl8 199

OPTC 061
OC3B

OPTC 068
FOCA

OPTC 070
8616

DPTC 081
8612

OPTC 014
OCBB

OPTC 075
FOC8

OPTC 071
8604

-1040-

8AEE
-1050-

EXfR 007
2455

EXfR 008
2515

EXFR 009
3593

EXFR 010
2045

EXfR OLl
21A5

EXfR 012
22A3

EXFR 013
B63

EXFR 014
4852

-1050-

-1060-

EXFR 015
4A86

EXfR 016
4C86

EXfR 011
4E86

EXFR 018
2613

EXfR 019
5700

EXfR 020
C76F

EXfR 021
6965

E XfR 022
0113

-1060-

-1070-

EXFR 023
6B65

EXFR 024
E111

EXfR 025
6065

EXFR 026
fHB

EXFR 027
6F65

EXfR 028
C31F

EXFR 029
6865

EXFR 030
0303

-1010-

-1040-

-1030-

108-1080-

EXfR 031
6A65

EXFR 032
E.307

EXFR 033
6C65

EXFR 034
F30B

EXFR 035
6E65

EXFR 036
6663

EXfR 031
23FF

EXFR 038
C49f

-1080-

-1090-

EXfR 040
F41A

EXFR 042
2iAB

EXfR 043
F498

EXfR 044
2010

EXfR 045
9068

EXfR 047
319B

EXFR 048
9068

EXFR 050
1940

-1090-

-10Ao-

EXfR 051
6444

EXfR 052
7840

EXFR 053
6444

EXfR 054
7040

EXFR 055
6444

EXFR 056
1F40

EXFR 057
6444

EXfR 05B
1448

-10AO-

-lOBO-

EXFR 059
003C

EXFR 060
5899

EXFR 061
5469

EXfR 062
5C09

EXFR 063
5EF9

EXFR 064
909E

E XFR 065
22FF

EXFR 066
C4Cf

-10BO-

-10CO-

EXFR 068
F44A

EXFR 010
3130

EXFR 011
C048

EXFR 072
20fO

EXFR 013
905e

EXFR 075
213F

EXFR 076
90se

E XFR 078
1488

-10CO-

-1000-

EXFR 079
C060

EXFR 081
F45A

EXFR 083
211B

EXfR 084
35AO

EXFR OB5
905A

EXfR 081
21A 7

EXfR 088
2501

EXfR 089
905A

-1000-

-10EO-

E XFR 090
f415

EXfR 091
52E2

EXFR 092
A062

EXfR 093
51A2

EXFR 094
A044

EXfR 095
54B2

E XfR 096
3659

EXFR 097
2845

-10EO-

-10FO-

E XFR 098
2907

EXFR 099
980E

EXFR 100
2466

EXFR 104
Eb7E

EXFR 105
1625

EXFR 106
2400

EXfR 101
AAA2

EXFR 108

-10FO-

CONTROL ADDRESS

240b
10--

,PAGE 287

ADDRESS LIST

ClOAO=*E60, EC LEVEt=12821l
11--

DATE 11/08/68

A

E

0

2

4

6

8

-llOO-

EXFR l0.9
A06A

EXFR 110
A044

HFR 111
5FB2

EXFR 112
FBOA

EXFR 113
2643

EXFR 114
fD8E

EXFR 115
3015

EXFR 116
C
3363

OeLB 046
6224

OClS 054
0249

DClS 056
F4C3

DCLB 057
5038

-1300-

-13Eo-

DCl8 058
008B

DClB 059
FOFA

OClB 061
5119

DClS 062
C4(4

ael8 063
5030

OClB 011
0049

DU.B 013
F4C5

oelS 074
0183

-13EO-

-13fo-

DeLS 075
foe4

DelB 016
4206

DClB 017
5038

OClS 018
0088

DCl B 079
foe5

DClS 080
5119

0(.l8 ,HI!
C't\.4

aCt8 082
5049

-13fO-

CONTROL ADDRESS

13--

.PAGE 290

ADORE SS LIST
CONTROL ADDRESS
-1400-

0

ClOAO=*E60. EC lE VEl=1282 11 .PAGE 291
14-

DATE 11/08/68
2

4

6

8

A

C

E

OCl8 08.3
6224

DCL8 084

DCl8 085
0083

DCl B 086
F094

DCl B 087
e51F

Oel8 088
1531

OClB 089
F03l

OClS 090
EOB

-1400-

5038

-1410-

OCLB 091
e035

Oel8 092
0033

OCLB 093
6224

DCl8 095
0639

DClB 096
3163

Del8 100
1260

DClS 101
S082

OClS 114
2405

-1410-

-1420-

OCl8 115
15F5

oelB 116
6505

OClS ll7
5038

DCl B 118
4006

nClB 119
C497

OClB 121
0630

DCl8 123
726A

oeLS 124
943E

-1420-

-1430-

OCL8 110
1538

oel8 111
1518

OClS 112
153S

OClB 113
9420

DCl8 103
7212

DelS 104
8082

DClS 126
1212

DClS 128
6226

-1430-

-1440-

OClS 129
1343

DClB 131
5230

DClS 142
0659

OClB 144
C54A

OClB 145
1565

OClS 165
1763

OClS 166
75ioA

OClS 174
6666

-1440-

-1450-

DCl8 115
F25F

DelS 176
5FF2

DClS 111
1F60

OeLB 118
9460

OClS 190
A041

OClS 191
1000

OClS 195
0244

OClB 179
5F60

-1450-

-1460-

DClS 180
6664

OClS 181
42Ff

oCl8 183
8121

CMU 081
5EF9

CMlT 082
53E9

CMl T 083
5239

CMl Y 084
5129

-1460-

5007

eMlT 085
5019

CMll OB6
5109

eMU 081
5619

CMU 088
5B69

CMlT 089
5AB9

CMlT 090
55A9

CHl T 091
5459

CHl T 092
2401

-1410-

-1410-

148-1480-

CMl T 093
C50C

CMll 094
058F

eMU 095
E08A

CHl l 096
ClOC

CMll 097
C58C

CMlT 098
24F7

CMl 1 099
128E

FILE 264
2C15

-1480-

-1490-

FilE 265
2007

filE 266
7C62

filE 261
2A15

F (i.E 268
3A25

fILE 269
2807

fILE 270
7A52

FILE 271
2AOl

FilE 272
2E23

-1490-

-14AO-

filE 213
498F

FILE 214
128E

Fill 011
50FF

FlU 072
FOBO

flU 073
OB2E

FILl 014
8220

fill 015
2f43

FllT 076
EB32

-14AO-

-1480-

FIll 077
2Fl5

flU 078
FB36

FlU 079
2F25

FIll 080
0680

F ItT 081
2Ee3

Fill 082
9514

FIll 083
2F01

FllT 084
ClB8

-14Bo-

-14eo-

Fill OB5
E5FE

FIll 086
2045

Fill 087
4EOF

FIll 088
2El5

FIll 089
4BEF

FIlT 090
2E43

F Il T 091
4BFF

FILl 092
1000

-14C0-

-14Do-

filT 093
4EEf

fill 094
FB06

FILT 095
B236

FIll 096
C3fD

FllT 097
F059

Fill 098
5E42

FIl l 099
6EE6

Fill 100
6EE6

-1400-

-14Eo-

Fill 101
5Cf8

FILT 102
40CF

Flll 103
2e63

Fill 104
4FCF

FlU 105
5C52

FIll 106
2C01

FllT 107
F8EC

Fill 108
7C52

-l4EO-

-14Fo-

FllT 109
OE04

FIll liO
3000

FlU 111
2e15

fiLl li2
4BCf

FIll 113

FIll 114
C3FB

fIll 115
0222

FlLl 116
CA86

-14Fo-

CONTROL ADDRESS

6EE4

14-

DATE 11/08/68

ADDRESS UST

A

CLOAO=*E60. EC lEVEt=128211 ,PAGE 29-2
IS--

C

E

0

2

4

6

8

-1500-

Fill 111
DF87

FlU 118
4BfF

Fill 119
A37E

FlU 120
5AOf

FlU 121
C48C

fill 122
SC62

fIll 123
CA9f

fIll 124
CSSC

-IS00-

-1510-

FIL T 125
SBCF

Fill 126
6eDI

flU 127
f098

Fill 128
8EOe

fill 129
2007

fIll 130
2C13

fill 131
956A

fit T 132
5£52

-ISI0-

-1520-

fill 133
E83l

FlLT 134
C032

fIll 135
201S

fill 136
7C62

flU 137
50f9

Fit T 138
OOAS

fill 139
fOSS

f Il T 140
8004

-IS20-

-1530-

Fill 141
A308

Fill 142
869C

FllT 143
2025

FlU 11.4
2COl

fill 14S
2f07

fIll 146
956A

Fll T lit7
2001

FIll 148
2C45

-1530-

-IS40-

fill 149
DEE A

fll T 150
2E8S

flU 151
EE09

fIll 152
FA9S

fIll 153
5ACf

Fill 154
e40C

Fll 1 155
1(62

FIll 156
2EC3

-1540-

-1550-

fll T 157
D8F5

FlU 158
C8f7

FlU 159
2001

flU 160
2ElS

FlU 161
2ClS

flU 162
956C

Fll T 163
5C08

Fll I 164
lCFS

-15S0-

-IS60-

flU 16S
E064

Fill 166
3083

Fill 167
f068

fIll 168
3023

fill 169
1035

FIl T 170
2E07

FIll 171
lE62

FIlT 172
2EE3

-1560-

-1570-

fllT 173
3<:25

flU 174
08F6

fIll 175
3El3

fill 176
1C52

FlU 111
2FOl

FILT 118
FOFE

fIl T 179
lE45

Fill 180
C982

-1570-

CONTROL ADDRESS

158FIll 181
3f85

flU 182
1004

flU 183
C880

flU 184
f98F

FlU 185
4386

Fill 186
C48F

FIl T 187
3F45

F I '- T 188
2AOl

-1580-

-1590-· Fill 189
Of83

Fill 190
C496

FlU 191
EA20

Fill 192
2843

FIll 193
3B15

FIll 194
5C42

Fill 1
nOCA

FIlX 344
1El2

FIlX 345
B238

fILX 350
1E32

FIlX 351
822A

FlU 346
F5e 1

-23eo-

-2300-

FllX 347

FlLX 348
DDC1

flLX 34-9
Bl06

f ILX 333

flLX 334
2E25

FIlX 335
2f43

FIlX 336
868A

F IlX 3.30
C888

-2300-

0962

33l
9760

f tl..X 304

Fl LX 305
F9EB

fllX 306
8E24

FILX 301
D08f

fllX 308
2E83

fllX 309
BE38

-23EO-

(DE9

U(HN 031
5602

filHN 032
I1B

O(HN 031
SIBS

BeliN 038
1883

OCHN 039
3885

oeHN 040
58AO

OCHN 043
5468

-23FO-

-23Eo-

coco

FlLX HI
E959

-23Fo5001
CONTROL ADDRESS

fH.X

23-

ADORES S LI ST
CONTROL ADDRESS

-24Co-

0

DATE 11/08/68
2

4

6

8

A

ClOAO=*E60, EC lEVEl=128211
24-

C

E

DCHN 044
C251

OCHN 045
B320

DCHN 046
4052

DCHN 041
4206

DCHN 048
D14b

OCHN 049

OCHN 050
3485

DCHN 051
1583

-2400-

CllO

DCHN 052
556A

DCHN 053

DCHN 054
C118

DCHN 055
3085

DCHN 056
5666

DCHN 051
7068

DCHN 058
1160

OCHN 059
116B

-2410-

0119

-2420-

DCHN 060
5068

OCHN 061
5260

OCHN 062
02lE

DCHN 063
0080

DCHN 064
55E9

DCHN 065
5F59

DCHN 066
54F9

DCHN 061
5849

-2420-

-2430-

DCHN 068
0235

DCHN 069
3000

OCHN 070
2400

OCHN 011
CI0

DCHN 072
AOOE

OCHN 073
54B9

DCHN 014
55F9

OCHN 075
2135

-2430-

-2440-

DCHN 076
9C74

DCHN 090
AOIE

DCHN 091
A43A

OCHN 077
5560

DCHN 078
116A

DCHN 079
1060

DCHN 080
2080

OCHN 081
A428

-2440-

-2450-

OCHN 082
5666

DCHN 083
0010

DCHN 084
1.583

DCHN 085
1413

DCHN 086
7468

DCHN 087
2485

DCHN 088
2505

DCHN 089
A41E

-H50-

-2460-

CSFT 087
0002

CSFT 088
006t

CSFT 089
611B

CSFT 090
6000

CSFT 091
6330

CSFT 092
6220

C SFT 093
6770

CSFT 094
6660

-2460-

-2470-

CSFT 095
6FFD

CSFT 096
6EED

CSFT 097
E4F8

CSFT 098
3000

CSFT 099
6AAD

CSfT 100
20FB

CSFT 101
FOEO

C SFT 102
128E

-2410-

-2410-

248-2480-

DYPE 146
1547

OYPE 141
9A90

OYPE 148
CI08

OYPE 149
3485

OVPE 150
9030

DYPE 159
3F20

OYPE 160
EB90

O'tPE l6t
4FFF

-2480-

-2490-

OYPE 162
9F66

DYPE 156
3523

DYPE 157
2f08

DypE 158
9F66

DYPE 151
2EO

OYPE 152
0560

OYPE 153
A566

OYPE 154
9258

-2490-

-24Ao-

DYPE 155
93CA

OYPE 113
80C4

DYPE 114
54F9

DYPE 115
6664

OYPE 116
9A98

DYPE 117
9028

DypE 118
H85

DYPE 119
lC83

-24AO-

-24Bo-

DYPE 120
9A92

DypE 121
2E07

DYPE 122
5Ff9

OYPE 123
C4BA

OYPE 124
AAA2

DYPE 125
1045

DYPE 126
1F28

DYPE 127
EEtl

-24BO-

-24Co-

DYPE 128
3045

OYPE 129
Of48

OYPE 130
C4E5

DYpE 131
EEOD

DYPE 132
OF3B

OYPE 133
(499

DYpE 134
2001

DYPE 135
OFlB

-24Co-

-2400-

DYPE 136
C495

DYPE 137
OF98

DYPE 138
C493

OYpE 139
OfA8

OypE l40
C488

OYPE 141
3085

OYPE 142
2E23

OypE H3
15t5

-HOo-

-24Eo-

OYPE 144
f200

OYPE 145
9F80

DYPE 163
3C83

OYPE 164
9A92

OYPE 165
5DF9

DYPE 166
8F68

COMO 203
5773

COMO 204
0769

-24EG-

-24fo-

COMO 205
f4F5

COMO 206
A520

COMO 207
F77C

COMO 208
0719

COMD 209
F4fD

CDMD 210
1430

COMO 211
128E

5001

CONTROL ADDRESS

-24FG-

l4-

• PAGE 307

CONTROL ADDRESS

0

ClOAO=*E60. EC lEVEl=128211 ,PAGE 308
25--

DATE U/081b8

AOORE S S LI ST
2

4

6

8

A

C

E

COMO 017
1030

COMO 018
1EA3

COMO 079
C4CF

COMO 080

COMO 081
0090

COMO 082
E08E

COMO 083
2040

COMO 084
5030

-2500-

9AEE

-2510-

COMO 085
5076

COMO 086
709F

COMO 087
4106

COMO 088
1030

COMO 089
0186

COMO 090
A53C

COMO 052
9AEE

COMD 053
CtA4

-2510-

-2520-

COMO 054
9254

COHO 055
801e

COMO 056
F5BO

COMO 057
1002

COMO 058
9AFO

COMO 059
9254

COMO 060
2663

COMO 061
9C70

-2520-

-2530-

COHO 0&2
56A2

COMO 063
5010

COHO 064
5008

COMO Ot.5
7070

COMO 066
2993

COHO 067
5981

COHO 068
5004

COMO 069
1042

-2530-

-2540-

COMO 070
56E2

COMO 071
9AF2

COHO 012
5030

CDMO 073
708F

COMO 074
F08l

COMO 015
7030

COMO 016
A53E

COMO 091
CIAI

-2540-

-2550-

COMO 092
5eC2

COMO 093
2FC3

COMO 094
C958

COMO 095
IF6B

COMO 096
E450

COMO 097
3Fl3

COMO 098
5730

COMO 099
61F5

-2550-

-25(:0-

COMO 100
7730

COMD 101
6443

COMO 102
88(,2

OCOM 048
2E07

OCOM 049
7468

DCOM 050
lE68

OCOM 051
7060

OCOM 052
C573

-2560-

-2570-

OCOM 053
2A07

OCOM 054
128E

CFea 143
5H8

CFCO 144
5818

Cfeo l45
F47F

CFCD 146
5218

CFca l47
5010

CFca 148
t28E

-2570-

-2500-

258-25EO-

COMO 047
ASIC

COMU 002
flS7

COMO 003
1'-45

COMO 004
ClOA

COMO 005
AE98

COMO 006
5575

COMO 007
17E3

COMO 008
E088

-2580-

-2590-

COMO 009
80CO

COMO 010

COMD 011
A4EC

COMO 012
5710

COMO 013
3415

COMO 014
A4EC

COMO 015
10CE

COMO 016
55BO

-2590-

~no

-25AO-

COMO 011
3683

CDMO 016
3615

COMO 019
1AE2

COMO 020
4CA6

COMO 021
3625

COMO 022
7AF2

COMO 023
5F3A

COMO 024
SfFB

-25AO-

-25So-

COMO 025
IFAF

COMO 026
IFCA

COMO 021
5ffl

COMD 02B
(946

COMO 029
573A

COMO 030
47Fl

COMO 031
17AF

COMO 032
1FAA

-2580-

-25Co-

COMO 033
77CA

COMO 034
51f5

CDHO 035
C939

COMO 036
IfAA

COMO 037
55E5

COMO 038
55FO

COMO 039
lEFl

COMO 040
2002

-25CO-

-2500-

COMO 041
7lE9

COMO 042
70A9

COMO 043
4206

COMO 045
fOO 1

COMO 046
B882

DeLL 002
42A6

Dell 003

OCll OOIt
2423

-2500-

44A6

-25EO-

OCLL 005
7488

OCll 006
7068

Dell 007
2465

OCll 008
7488

OCll 009
2115

OCll 010
3183

OCLL 011
1088

OCll 012
3845

-25Eo-

-25fo-

OCll 013
46A6

Dell Ol4
UFO

Oetl 015
8ADA

OCll 016
lOF5

Dell 017
24C3

DCll 018
87AE

F INT 002
7ce2

FINT 003
5F59

-25Fo-

CONTROL ADDRESS

25-

CONTROL ADDRESS

0

CLOAD=*EbO. EC LE VEL"'1282 II ,PAGE 309
20--

DATE 11/C8/68

ADDRESS I I ST
2

4

&

8

A

C

E

-2600-

FINT 004
098E

FINT 005
5A32

FlNT 006
2A13

FlNT 007
7 A32

F INT 008
8420

FINT 009
A024

FINT 010
A64C

FINT 011
C996

-2600-

-2610-

FINT 012
2E07

FINT 0[3
8428

FINT 014
AoOA

F INT 015
2B43

FINT 016
4FBF

FINT 017
5AAO

FINT 018
2AB

FINT 019
7A32

-2610-

-2620-

FINl 020
HAS

FINT 021
0002

FlNT 022
2E25

FINT 023
A644

FINT 024
E5AF

FINT 025
948E

FINT 026
A644

FINT 027
AFEA

-2620-

-2630-

FINI 028
5000

FINT 029
5BB8

FINf 030
0805

FINT 031
7 A32

FINT 032
FABF

FINT 033
8224

FlNT 034
A6't2

FINT 035
8224

-2630-

-2640-

FINT 036
9496

FINT 031
3E43

FINT 038
2F07

FINT 039
2400

FINT 040
2A01

FINT 041
AOIE

FINT 042
5A32

FINT 043
2Al3

-2640-

-2650-

FINT 0't4
1000

FlNT 045
5ee2

flNT 046
A43e

CFeO 007
fl.5e

eFCD 008
4953

eFCO 009
F46f

eFCD 010

CFeo 011
5115

-2650-

4153

-2660-

eFeD 012
4013

eFea 013
5005

eFCO 014
4303

eFeo 015
5.335

eFeD 01&
4233

CFeD 011
5225

eFeD 018
4923

eFCD 019
5995

-2660-

-2b70-

eFeo 020
4893

eFeD 021
5885

efCO 022
4f83

CFCO 023
5fF5

eFCO 024
4AF3

eFCO 025
2CFF

eFeo 026
e4D6

eFCO 021
128E

-2670-

268-2680-

AlOP 248
0648

AlOP 249
OFFD

AlOP 250
E095

AlDP 251
IFCO

ALDP 252
E08F

ALOP 253
IF40

AtOP 254
E086

AlDP 255
F081

-2680-

-2690-

AlDP 256
2F9B

AlDP 251
EOB6

AtOP 258
5f40

AlDP 259
A6C8

AlDP 232
5A4F

AlDP 233
3683

ALOP 234
eAAF

AlOP 235
14C5

-2690-

-26Ao-

AlDP 21&
GAB2

ALOP 237
04A8

AlDP 2.38
C4AF

ALOP 239

AlDP 240
0458

ALOP 241
C482

AlOP 242
C632

AlDP 243
lF28

-26AO-

1623

-2680-

ALDP 244
961C

ALDP 245
Bl1A

AlOP 246
E201

AlOP 241
962A

ALOP 216
3BE9

ALDP 217
56AA

ALOP 218
52AA

ALoP 219
54AA

-2680-

-26Co-

Alop 220
42AF

AlOP 221
e218

ALOP 222
0349

AL OP 223
4f3f

ALOP 224
2440

AlDP 225
5872

ALOP 226
2404

ALOP 227
50AO

-26CO-

-26Do-

ALOP 228
2820

AlOP 229
5EAO

AloP 210
1F28

ALDP 231
128E

CFHA 044
6000

CFHA 045
6558

CFHA 046
F461

CFHA 047
6110

-2600-

-2bEo-

CFHA 048
6000

(FHA 049
6330

CFHA 050
6220

(FHA 051
&990

CFHA 052
6880

CFHA 053
6FFO

CFHA 054
C IF3

CFHA 055
6AAD

-26EO-

-2&F 0-

CFHA 056
128E

CFHA 051
6EEO

CFHA 058
128E

CDVO 046
2C18

CoVD 047
6110

eovo 048
6000

COVO 049
6330

COVO 050
6220

-26FO-

CUNTROL ADDRESS

26-

DATE 11/08/68

ADDRESS LIST
CDNTRDl ADDRESS

0

2

~

8

6

A

ClOAO=*E60, EC lE VEl=1282 11 ,PAGE 310
21--

C

E

-21Co-

COVO 051
ECOO

eovo 052
6990

CoVD 053
6880

COVD 054
6550

COVD 055
6440

eovo 056
128E

eovo 051
C418

eovo 058
1002

-2100-

-2710-

CDVo 059
79FO

eovo 060
18EO

eovo 061
7570

COVO 062

COVO 0&3
5BC9

COVO 064
5209

eovo 065
E827

eovo 066
C436

-2110-

1~60

-2720-

COVO 067
97EC

CoVO 068
C436

eovo 069
AEFC

COVO 070
C42B

COVO 011
97EC

COVO 072
F839

eovo 073
97FO

COVO 07ft.
5209

-2120-

-2730-

COVO 075
OSBA

COVO 016
C03B

COVO 017
AEFC

eovo 078
Fa20

COVO 019
C025

COVO 080
SBBS

CoVO 081

COVO 082
70U.

-2130-

12AB

-2740-

COVO 083
lBl5

COVO 084
HAS

COVO 085
18AA

COVO 086
9256

COVO 081
A80E

COMO 18ft.
5C19

COMO 185
4286

COMO 186
5030

-21ft.0-

-2750-

COMO 187
5f6A

COMO 188
70FF

COMO 189
103A

COMO 190
C34F

COMO 191
18Af

COMO 192
0002

COMO 193
e5E2

coroto 19ft.
089F

-2150-

-2160-

COMO 195
2002

COMO 196
01E8

COHO 191
EOCA

COMO 198
B1CC

COMO 199
FOCA

COMO 200
5110

COMO 201
4788

COMO 202
81e2

-2160-

-2170-

CCOM 045
5218

CCOM Oft.6
5010

CCOM 047
5588

CCOM 048
56A8

ccaM 049
5EAA

CCOM 050
100E

ceOM 051
128E

5007

-2710-

278-2180-

OClC 191
Al&2

OCLe 150
e386

oelC 151
8160

oelC 152
F228

OCle 153
2888

OClC 154
5429

OCle 155
ellO

oelC 156
3385

-2180-

-2790-

oele 157
7222

Dele 158
2BOO

OCle 159
2001

OCle 160
1032

OCle 161
0004

OCle 162
E62<)

Dele 163
C9A2

Dele 16ft.
2628

-2790-

-21Ao-

Dele 165
C99B

OCle 166
2400

OCle 161
5E22

OCle 168
A030

Dele 114
A25ft.

OClC 169
5it29

OCle 170
5349

DCle 111
Eee5

-27AO-

-27Bo-

Dele 172
08C4

DCle 113
A184

oelC 183
2802

Dele 184
1635

DeLe 185
E629

DeLe 186
egeo

Dele 181
2628

Dele 188
C'lS9

-2780-

-21Co-

Dele 189
E680

Dele 190
0244

DCle 175
1635

Dele 176
1&02

DelC 177
3413

OCle 118
2040

DCle 179
ECh

OCle 180
2808

-27eo-

-2700-

OClC 181
3413

oelC 182
A1B8

eFeD 120
3BB

CfCO 121
F45C

efeo 122
1843

CFta 123
f469

CFCO 124
56AA

eFeo 125
1170

-2700-

-21EO-

CFeD 126
7060

CFeD 121
56AA

CFeo 128
7370

eFeo 129
7260

eFCD 130
56AA

efeo 131
7970

CFea 132
7860

CFtO 133
56AO

-21Eo-

-21Fo-

CFeD 134
1F1D

CFeD 135
Clf7

eFea l.36
128E

eFea 131

efea 138
128E

ceOM 181
5682

eeoM 182
1t27F

ceOM 183
128E

-27fo-

CONTROL ADDRESS

1EoD

21-

ADDRESS LIST
CONTROL ADDRESS

0

DATE 11/08/68
2

4

6

8

A

ClOAO=*E60. EC lE VEl=128211 .PAGE 311
28-

C

E

-2800-

CFCY 052
6384

CFCY 053
ALSO

CFCY 054
A154

CFCY 055
A152

CFCY 056
623E

CFCY 051
6376

CFCY 058
6316

CFC Y 059
8316

-2800-

-2810-

CFCY 060
6266

CFCY 061
8912

CFCY 062
8912

CFCY 063
8972

CFCY 064
9080

CfCY 065
907E

CFCY 066
8972

CFCY 061
8912

-28LO-

-2820-

CFCY 034
AF4E

CfCY 035
2683

CfCY 036
aDC2

CfCY 031
0565

CFCY 038
Eoe2

CFCY 039
AB53

CFey 040
F43F

CFCY 041
0183

-2820-

-2830-

CFey 042
FOC2

CfCY 043
C038

CFCY 044
ASH

CFCY 045
A854

CFCY 046
04f5

CfCY 041
f08A

CfCY 048
806C

CFCY 049
01C3

-2830-

-2840-

CFCY 050
FOB3

CfCY 051
AE98

CfCY 012
EIC9

CFCY 013
3485

CfCY 014
0567

CfCY 015
C4C2

CFCY 016
80C2

CFC Y 017
5583

-2840-

-2850-

CFCY 018
3883

CfCY 019
8212

CFCY 021
4566

CFCY 022
2507

CFCY 023
7AE2

CFCY 024
10CE

CFCY 025
BOOI

5001

-2860-

CICY 016
B063

CICY 017
B043

CICY Ol8
A844

CICY 019
A844

CICY 020
880A

CICY 021
AE90

CICY 022
A820

CICY 023
A820

-2860-

-2810-

CICY 024
9012

CICY 025
8106

CICY 026
A058

CICY 027
A058

CICY 028
.\056

CICY 029
8806

CICY 030
A056

CICY 031
8AB8

-2870-

-2850-

288-2880-

CBRC 012
C501

CBRC 013
81B3

CBRC 014
E502

CBRC 015
4806

CBRC 016
9CBA

CBRC 017
0507

CBRC 018
8163

CBRC 019
FSOl

-2880-

-2890-

CBRC 020
8183

C6RC 023
0040

CBRC 024
S5B3

CBRC 025
C49F

CBRC 026
5EA8

CBRC 021
.SOAO

CBRC 031
2040

CBRC 032
5C28

-2890-

-28Ao-

C6RC 033
3245

CBRC 034
ElB6

CBRC 035
0428

CBRC 036
2240

CBRC 037
4D25

CBRC 038

CBRC 039
55BB

CBRC 040
12A8

-28AO-

2307

-28Bo-

CBRC 041
78AO

CBRC 042
0187

CBRC 043
81B3

CBRC 044
5892

CBRC 045
A8A6

CBRC 005
55B3

CBRC 006
C483

CBRC 007
5EA8

-28Bo-

-28CO-

CBRC 008
SOAO

CBRC 011
9C11

CBIN OL8
2C55

CBIN 019
81B3

CBIN 008
A710

CBIN 009
8174

CBIN 010
E400

CBIN 011
1680

-28Co-

-2800-

CBIN 012
E501

CBIN 013
2C01

CSI N 014
8lB3

CSIN 01.5
C645

CBIN 016
2C25

CBIN 017
81B3

CICY 003
2C01

CICY 004
81B3

-2800-

-28Eo-

CICY 119
AEOO

CICY 180
A05A

CICY L81
A05A

CICY 182
AD5A

CICY 183
A908

CICY 184
AC9A

CICY l85
B336

C ICY 186
B32A

-28Eo-

-28Fo-

CICY l81
AEC4

CICY 188
A8C8

CICY 189
AC18

CICY 190
810A

CICY L91
8784

CICY 192
A218

CICY 193
AOC6

CICY 194
AF72

-28FO-

CONTROL AODRE S S

28-

DATE 11/08/68

ADORE SS LIST
CONTROL ADDRESS

0

2

4

6

8

A

CLOAD=*E60, EC lEVEL=128211 ,PAGE ~12
29--

C

E

-2900-

CMPU 016
8023

CMPU 011
;\932

CHPU 018
81Bl

CMPU 019
81B3

CLOG 073
A110

CLOG 014
6F17

CLOG 015
6E01

CLOG 016
6131

-2900-

-2910-

CLOG 077
6627

CLOG 078
76A8

CLOG 079
7EAA

CLOG 080
E598

CLOG 081
ACA8

ClJG 082
2C55

CLOG 083
81Bl

CLOG 069
8A70

-2910-

-2920-

CLOG 070
A90A

CMPU 020
8lA6

CMPU 021
AEl2

CMPU 022
5B3A

CMPU 023
4610

CMPU 024
111A

CMPU 025
.3510

CMPU 026
E087

-2920-

-2930-

CMPU 027
4675

CHPU 028
T7lA

CMPU 029
5116

CMPU 030
25FO

CMPU 031
8083

CLOG 004
AB53

CLOG 005
1510

CLOG 006
81B3

-2930-

-2940-

CICY 147
AC34

CICY 148
AC28

CICY 149
ACOC

CICY 150
ACOO

CICY 151
A91E

CICY 152
B36A

CICY 153
6372

CICY 154
B37A

-2940-

-2950-

CICY 155
AE9C

CICY 156
9148

CICY 157
6366

CICY 158
81f4

CICY 159
878C

CICY 160
99F8

CICY 1&1
6380

CICY 162
B36E

-2950-

-29to-

CICY 122
A05A

CICY 123
A05A

CICY 124
A05A

CICY 125
A05A

CICY 126
AE36

CICY 127
A892

CICY 12B
ABCE

CICY 129
A8BA

-2960-

-2970-

CICY 130
ABBE

CICY 131
AB8E

CICY 132
98F6

CICY 133
A05A

CICY 142
A05A

CICY lIt3
A05A

C IC Y H4
A05A

CICY 145
A05A

-2970-

298-2980-

CTRT 022
2B33

CTRT 023
2B20

CTRT 024
7FAO

CTRT 025
2BFD

CTRT 026
70AA

CTRT 027
2707

C TR T 028
11AO

CTRT 029
25FF

-2980-

-2990-

C TRT 030
f495

CTRT 031
ACAIt

CTRT 032
AC84

CLOG 198
5568

CLOG 199
2E01

CLOG 200
7EA8

CLOG 201
70AO

CLOG 202
8183

-2990-

-29Ao-

CICY 005
8B7A

CIC Y 006
AEf6

CICY 001
87C8

CICY 008
5498

CICY 009
B461

CLOG 098
6F75

CLOG 099
A853

CLOG 100
lOGE

-29Ao-

-2960- ·ClOG 101
5738

CLOG 102
5FlO

Ct.OG 103
61F1

CLOG 104
7118

CLOG 105
25FF

CLOG 106
F4Bl

CLOG 101
A916

5007

-29Co-

CIC Y 045
2853

CICY 046
9C70

CNVR 005
A853

CNVR 006
0183

CNVR 007
FOCO

CNYR 008
AE98

CNVR 009
80C2

CNVR 010
laCE

-29CO-

-2900-

CNVR Oll
F054

CNVR 012
AAfA

CNVR 013
ADB8

CNVR 014
2801

CNVR 015
lA18

CNVR 016
C660

CNVR 017
8AEO

CNVR 018
2040

-2900-

-291:0-

CNVR 019
42A6

CNVR 020
44A6

CNVR 021
48A6

CNVR 022
2013

CNVR 023
C66F

CNVR 024
A04E

CNVR 025
C66;\

CNVR 026
AD3e

-29Eo-

-29Fo-

CNVR 027
C66f

CNVR 028
A03E

CNVR 029
A9fO

CTRT 033
A853

CTRT 034
14A3

CTRT 035
5569

C TRT 036
25F5

-29f0-

5007

CONTROL ADDRESS

-2980-

29-

CONTROL ADDRESS

0

ClOAD=*E60. EC lEVEl=128211
2A--

DATE 11108/68

ADDRE SS LI ST
2

4

6

8

A

C

E

-2AOO-

C TRT 037
C904

CfRY 038
2555

CTRT 039
5610

CTRT 040
56F9

CTRT 041
OF2D

CTRT 042
E096

C TR T 043
FOB9

C TRT 044
OHS

-2AOO-

-2AlO-

CTRT 045
FOB1

C TRT 046
OF2B

CTRT 047
FOBI

CIRT 048
EOIB

CTRT 049
7B10

CTRT 050
5004

CTRT 051
26Ff

CTRT 052
F4A4

-2AIO-

-2A20-

C TRT 053
5FIO

G TRT 054
AA08

CTRT 058
E02D

CTRT 059
H2B

CTRT 060
A8DC

GTRT 063
ACA4

C TR T 061
E428

C TR T 062
AC84

-2A2a-

-2A 3a-

CTIO 055
L427

CIRT 056
3443

CIRT 057
AA18

CTRT 064
1443

CTRT 065
COlF

CTRT 066
A353

C TR T 067
5738

G TRT 068
4755

-2A30-

-2A40-

G TRT 069
FOE3

CTRT 070
0769

CTRT 071
F4El

CTRT 072
E05B

CTRT 073
f05A

CTRT 074
7H2

CTln 075
5SE9

CrRT 016
2fOl

-2A40-

-2ASe-

CTRT 017
2B17

CTRT a18
7FA8

CIRT 079
70AO

CfRT 080
5EB9

CTRT 081
5EE2

CTRT 082
3421

GTRT 083
7518

C TRT 084
AA6A

-2A50-

-2Alla-

C TRT 085
B01C

CTRT 086
E050

CTRT 087
7B18

CTRT 088
0068

CTRT 089
3463

CTR f 090
5713

C TRT 091
0769

C TRT 092
F4F5

-2A6a-

-2A 70-

C TR T 093
1488

CfRT 094
AA1C

CTRT 095
F71A

CTRT 096
07FO

CTRT 097
C4FC

CTRT 098
1423

C TRT 099
2707

CTRT 100
3443

-2A10-

2A8-2A8e-

C TR T 101
AAIC

8SWI 139
9CC6

SSWl 051
DFE8

BSWl 052
2040

BSWI 053
2080

BSW I 054
2406

BSWI 055
E990

SSWI 056
9ESA

-2A80-

- 2A 90-

8SWI 057
2402

SSWI 058
EB96

SSW[ 059
9EEA

SSW[ 060
2404

SSWl 061
EA9C

8SWI 062
9FlO

SSWI 063
2482

SSW( 064
FAA2

-2A90-

-2AAO-

8 SWI 065
9D6A

SSWI 066
2400

SSWI 067
2A07

8SW I 069
A7FA

BSW I 071
ElAD

BSWl 072
9258

BSW I 013
elE3

SSWI 074
81B3

-2AAO-

-2ABO-

SSWI 091
EBBS

SSWI 093
A2FA

8SWI 099
FBB9

SSWI 100
5007

BSW I 10 l
EFSD

BSWI 102
A3f2

SSWl 104
OSCS

S SWI 105
OFB9

-2ABO-

-2ACO-

BSWI 113
CBCC

SSWI H4
2FOl

BSWl 115
508f

SSWI 116
519f

SSWl il7
0602

BSW I U8
8f06

BSWl 119
CFSE

BSWI 120
2404

-2ACa-

-2AOa-

SSWI 121
FFOC

SSWI 122
3SE9

SSWI 123
56AA

SSWI 124
025A

BSWI 125
8734

SSWI 126
If2A

SSWI 127
2400

SSWI 128
E903

-2AOO-

-2AEa-

BSWI 135
9CSE

BSWI 075
8354

SSWI 016
OlBE

BSW [ 077
0040

BSW I 078
FFS1

SSW I 082
59BF·

BSWI 083
lBFF

BSWI 08B
0640

-2AEO-

-2AFa-

BSWI 089
2115

SSWI 090
9C14

ceOM 165
2400

CCOM 166
2C75

CCOM 167
81B3

CNVR 058
2883

CNVR 059
3B15

CNVR 060
4EA6

-2AFa-

CONTROL ADDRESS

2A--

,PAGE 313

OATE 11/08/68

ADDRESS Ll ST
CONTROL ADDRESS

2

0

4

6

Ii

A

CLOAO=*E60, EC LE VEt= 128211
28--

C

E

-2800-

CNVR 061
5118

CNVR 062
71EF

CNVR 063
E589

CNVR 064
5AE4

CNVR 065
11E8

CNVR 066
OFFB

CNVR 061
F080

CNVR 068
5710

-2800-

-21Ho-

CNVR 069
5738

CNVR 010
AItEC

CNVR 011
13AF

CNVR 012
CI9A

CNVR 073
801C

CNVR 014
13EO

CNVR 015
5558

CNVR 016
3533

-2810-

-2820-

(NVR 011
10CE

CNVR 078
E426

CNVR 019
3002

CNVR 080
2401

CNVR 081
2901

CNVR 082
0040

CNVR 083
4EA6

CNVR 084
2201

-2820-

-2630-

CNVR 085
50EO

CNVR 086
50C5

CNVR 081
8210

CNVR 088
5218

CNVR 089
OH8

CNVR 090
FOE8

CNVR 091
11EO

CNVR 092
14FF

-2830-

-2840-

CNVR 093
C4CA

CNVR 094
4203

CNVR 095
7900

CNVR 096
194A

CNVR 097
ClitF

CNVR 098
5200

CNVR 099
AB28

CNVR ltO
59F9

-2840-

-2850-

CNVR 111
9256

CNVR liZ
C50A

CNVR 113
E50C

CNVR 114
CF62

CNVR 115
A85C

CNVR 116
(F63

CNVR 111
4188

CNVR 118
08F8

-2850-

-28to-

CNVR 119
C4El

CNVR 120
2893

CIWR 121
9C70

CNVR 122
8183

CNVR 100
5DCO

CNVR 101
8270

CNVR 102
4275

CNVR 103
01F5

-2860-

-2870-

CNVR 104
C4F8

CNVR 105
5U4

CNVR 106
77E8

CNVR 101
A830

CNVR l08
2040

CNVR 109
A8H

CSTS 003
A853

-2870-

5007

288--2880-

CSTS 004
F900

CSTS 005
0183

csrs 006
FOS8

CSTS 001
9C9A

CSTS 009
AE98

CSTS 019
F938

C STS 020
835A

CSTS 039
F90D

-2880-

-2690-

CSTS 040
5583

(STS 041
5EA8

CSIS 042
AB5)

csrs 043
50AA

CSTS 044
1100

CSTS Olt5
F088

CSTS Olt6
55B8

CSTS 047
3833

-2890-

-2BAo-

CSTS 048
f02F

CSTS 049
57AO

CSTS 050
17f3

CSTS 051
427F

CSTS 052
531C

CSTS 053
A1FA

(STS 054
8183

CSTS 055
52lC

-28AO-

-2BBo-

CSTS 056
527F

e.STS 057
l1F3

CSIS 058
HAO

CSTS 059
AeAA

CSTS 029
70E2

CSTS 031

(SrS '032
58EZ

CSTS 033
2400

-ZBBo-

2~40

-2BCo-

C srs 034
128E

C~TS

011
ABH

(S1'S 012
F900

CSTS 013
5110

CSTS 014
441F

eSTS OI5
7182

CSTS 016
8183

C8RC 067
0040

-28eo-

-2BOO-

C8Re 068
5583

CBRC 069
C408

e.BRC 070
5EA8

CBRC 071
50AO

C8RC 073
2040

C8RC 074
5588

C8RC 015
56A8

-C8RC 016
52AA

-2800-

-28Eo-

CBRC 011
OOOA

(,8RC 018

C8RC 079
7ZA9

CBRe. 080
77A9

C8RC 081
76A9

C8RC 082
16A8

CBRC 083
72AA

C8RC 084
D5F]

-2BEo-

CBRC 085
8183

CBiU. 08b

CURC GSl
A886

CLOG 122
A85]

CLOG 1.23
5FlO

CLOG 124
6F55

CLOG 125
AE28

5007

-2BFoe.ONTROl ADDRESS

13.0\9

DIFO

-28FO2B-

,PAGE 314

ADDRESS LIST
CONTROL ADDRESS

0

DATE 11/08/68
2

4

8

6

A

CLOAD=*E60. EC LE VEL=128211 ,PAGE 315
2C--

C

E

-2COO-

CLST 040
837C

CLST 041
C039

CLST 042
8AEO

CLST 043
ACOE

CLST 014
2883

CL ST 015
9CI0

CLST 018
831C

CLST 019
C625

-2COO-

- 2C 10-

CLST 020
4EE6

CLST 021
4066

CLST 022
05C1

CLSr 023
AC30

CBIN 030
A110

CBIN 031
8176

CBIN 032
E4BO

CBIN 033
E5BO

-2CIo-

-2C20-

CBIN 034
C625

CBIN 035
AC46

CLST 036
2C55

CLST 037
AC48

CLST 0.30
831C

CLST 031
C625

CLST 032
8AEO

CLST 033
C625

-2C20-

-2C30-

CLST 034
2e01

CLST 035
AC48

CLSr 005
837C

CLST 006
C610

CLSr 001
8AEO

CLST 008
C610

CLsr 009
16A8

CLST 010
7EAA

-2C30-

-2C40-

CLST 011
2C75

CLsr 012
COO9

CLsr 013
81B3

CLsr 024
2C25

CLST 025
16A8

CLST 026
lEU

CLST 027
81B3

CBRC 065
A9A6

-2C40-

-2C50-

CBRC 062
2633

C8RC 063
9C72

CBRC 064
AE98

CBRC 047
AB53

CBRC 048
OlE3

CBRC 049
FOO4

CBRC 050
ElOO

CBRC 051
1CC2

-2C50-

-2C60-

CBRC 052
1892

CBRC 053
4806

CBRC 054
0020

CBRC 055
556B

CBRC 056
C4Cf

CBRC 057
5498

CBRC 058
2838

CBRC 059
53AO

-2C60-

-2C 70-

CBRC 060
6535

CBRC 061
B461

CCOM 161
2400

CCOM 162
2C25

CCOM 163
81B3

CLOG 045
AS53

CLOG 046
5fl0

CLOG 047
7f51

-2C10-

2C8CLOG 048
C4A9

CLOG 049
F4A5

CLOG 050
2C55

CLOG 051

CLOG 058
6F75

CLOG 059
A853

CLOG 060
5138

CLOG 061
5fl8

-2C80-

81B3

-2C 90-

CLOG 062
IF71

CLOG 063
C482

CLOG 064
25Ff

CLOG 065
F480

CLOG 066
ACA8

tLOG 039
A110

CLOG 040
8174

CLOG 041
05A8

-2C90-

-2CAo-

CLOG 042
F5A5

CLOG 043
ACS4

CLOG 052
2C25

CLOG 053
8183

CLOG 054
2COl

CLOG 055
818.3

CLOG 118
2(75

CLOG 119
8183

-2CAD-

-2CBO-

CLOG 110
AB53

CLOG 171
5FlO

CLOG 172
6F51

CLOG 113
C4A9

CLOG 114
6F51

CLOG 115
(4AD

CLOG 116
2C55

CLOG 111
8183

-2C80-

-2CCo-

CBRC 118
1680

CBRC 119
(610

CBRC 120
F07F

CBRC 121
A886

CBRC 090
80C4

CB~C

091
558B

CBRC 092
58A8

CBRC 093
52AA

-2C(0-

-2COO-

CBRC 094
55B3

CBRC 095
56A8

CBRC 096
5CAA

CBRC 091
603B

CBRC 098
6C20

CBRC 099
679D

CBRC 100
6680

C8RC 101
3815

-2eOD-

-2CEo-

C6RC 102
58A8

CBRC 103
52AA

CBRC 104
55BB

CBRC 105
16A8

CSRC 106
lCAA

CBRC 107
0004

CBRC 108
3002

CBRC 109
1030

-2CEo-

-2Cfo-

C8RC 110
7C20

CBRC III
7790

C8RC 112
7680

CBRC Il3
9258

caRC 114
E4Cl

CBRC 115
E5C3

CBRC 116
F041

C8Rt 111
BIB3

-2CFo-

-2CSo-

CONTROL ADORE SS

2C--

OATE 11/08/68

ADORESS llST
CONTROL ADDRESS

4

2

0

6

8

A

ClOAD=*E60, EC lE VEL=128211
20--

C

E

-2000-

CLSI 066
AS53

(lST 067
01E3

CLST 068
fOA4

(lST 069
5588

CLST 070
5EIO

CLST 071
2101

ClST 072
CEIO

CLST 013
27fl

-2000-

-2010-

(LST 074
5169

CLST 015
AC48

(LSI 055
A853

CLST 056
0lE3

(LSI 057
FOA4

CLST 058
558S

CLSJ 059
2828

CLST 060
52AO

-2010-

-20lo-

CLST 061
1210

Cl.ST 062
8183

Cl.ST 063
AE98

CLSr 110
A853

CLSI III
01C3

CLST III
FOA4

ClST 113
558B

ClST 114
128E

-2020-

-2030-

CLSI 115
5531

CLSI 116
6351

CLSr 117
C4A3

CLST 118
2510

Clsr 119

CLSI 120
128E

CNVR 030
3915

CNVR 03l
ED50

-2030-

55BB

-2040-

CNVR 032
0002

CNIIR 033
199f

CNVR 034
188f

CNVR 035
155F

CNVR 036
144F

CNVR 037
733f

CNVR 038
722F

CNVR 039
6FF8

-2040-

-20 !:O-

CNVR 040
6EEO

CNVR 041
itnD

CNIIR 042
0060

CNVR 043
E050

CNVR 044
201S

CNIIR 045
128E

CNVR 046
4686

CNVR 047
9258

-2050-

-2060-

CNVR 048
21CS

CNVR 049
C966

CNVR 050
1768

CNVR 05[
OlEA

CNVR 052
3713

CNVR 053
1218

CNVR 054
7418

CNVR 055
7618

-2060-

-2070-

CNVR 056
81B3

CLOG 152
A853

CLOG 153
5HO

CLOG 154
oF51

CLOG 155
AE28

C TRT 003
AS53

CTRT 004
2601

-2070-

5001

208-2080-

C TRT 005
2EOl

(nu

C TRY 013
lFl8

006

CIRr 007
6F3S

CTRf 008
oE20

CTRY 009
6&70

CIRT 010
A253

CfR r all
5FFO

CTRT OIl
F019

-2080-

CHn 014
25ff

C 'CRT 015

CIRT 01&
81B3

CTRT 011
A813

CTRT Ol8
5004

CTRT 019
25fF

CTRT 020
f481

-2090-

C TRT 021
A8D!:

CCOM UlS

(LGM 026

C484

CCOM 021
AE98

eCOM 012
A853

CCOM 013
OlE3

CCOM 014
FOA6

CCOM 015
5HO

-20AO-

23F7

,ceOM 016
CE23

CCUM Oil

(COM 018
H29

CCQr-4 019
40E6

CCOM 020
5588

CCOM 021
56A8

CCOM 022
5EAA

CCOM 023
lOOE

-20So-

210~

-20CO-

eCOM 024
128E

CBIN 010
205

CBIN 071
8183

CSIN 059
A170

CBIN 060
8116

CBIN 06l
16A8

C81N 062
7EAA

CBIN 063
E50B

-20CO-

-lOOO-

CBIN 064
f507

CBIN 065
2eOl

CBIN 0&6
81B3

CBIN 012
2C25

CBIN 073
81B3

CSIN 061
F5C3

CBIN 068
2C55

CSIN 069
81B3

-2000-

-lOEo-

CLOG 158
oF15

CLOG "59
AS53

CLOG 160
laCE

CLOG 161
5738

CLOG 162
5HO

CLOG 1(:3
67F1

CLOG 164
7118

CLOG 165
25Ff

-20EO-

-2DFO-

CLOG 166
F4E7

CLOG
A916

it,'

(COM 157

CCOM 158
2C55

CCOM 159
8183

CLOG 128
6F15

CLOG 129
A853

CLOG 130
lOCE

-20FO-

-2090-

-lOAO-

-20So-

CONTROL ADOKESS

5FlO

Hal

2400

20--

,PAGE 316

CONTROL ADDRESS

0

ClOAD=*E60. EC LEVEl=128211 .PAGE 311
2E--

DATE 11/08/68

ADORE S S LIST
2

4

6

8

A

C

E

-2ECo-

CLOG 131
5738

CLOG 132
5F10

CLOG 113
67F5

CLOG 134
1718

CLOG 135
25FF

CLOG 136
F481

CLOG 131
A9l6

CMPU 045
5F7D

-2EOO-

-ZI::: 10-

CMPU 04.
A932

CMPU 031
5F3A

CMPU 038
25FF

CMPU 039
F08F

CMPU 040
583A

CMPU 041
4BFl

CMPU 042
1F lA

CMPU 043
3510

-2EIO-

-2EZo-

CMPU 044
8083

CLOG 086
AB53

CLOG 081
5F10

CLOG 088
bf57

CLOG 089
C461

CLOG 090
7flO

CLOG 091
2C55

CLOG 092
8163

-2E20-

-ZE30-

CLOG 093
7FIO

CLOG 094
2C01

CLOG 095
8lB3

CSTS 082
55B8

CSTS 083
5EAO

CSTS 084
41:03

C STS 085
5ECB

CSTS 086
ICC 5

-2E30-

-ZE40-

CSfS 081
fC44

CSTS 088
3C45

CSTS 089
7CCZ

CSTS 090
81B3

ClUG 016
6F75

CLOG 017
A653

CLOG 018
5738

CLOG 019
5F 10

-2E40-

-2E50-

CLOG 020
4F1B

CLOG 021
7718

CLOG 022
25FF

CLOG 023
F4CD

CLOG 024
81B3

CLOG 02b
6F75

CLOG 021
AB53

CLOG 028
5738

-2E50-

-2E 60-

CLOG 029
5FlO

CLOG 030
4F1D

CLOG 031
1718

CLOG 032
Z5ff

CLOG 033
f40F

CLOG 034
8163

CSTS 071
AB53

CSTS 012
2fF1

-2E60-

-2E 70-

CSTS 073
5710

CSIS 014
7FlO

CSTS 015
C17A

CSTS 016
2C55

CSTS 077
81B3

CSIS 078
2C05

CSTS 019
81B3

CMPU 008
27f5

-2E10-

2E8-2E SO-

CMPU 009
C904

CMPU 010
2155

CMPU all
5B3A

CMPU 012
5BF 1

CMPU 013
1FIA

CMPU 014
5559

CMPU 015
8083

C IC Y 061
B07l

-2E80-

-2E9D-

CICY 055
AF4E

CICY 056
AB53

CICY 057
OlC3

CICY 058
F08F

CICY 059
2863

CICY 060
9C70

CLST 046
5563

CLST 041
56A8

-2E90-

-2EAo-

CLST 048
5EAA

CLST 049
5588

CLSI 050
16A8

CLST 051
1EAA

CLST 05Z
81B3

CLOG 008
6F75

CLOG 009
A853

CLOG 010
5738

-2EAO-

-2EBD-

CLOG 011
1118

Cl.OG 01Z
25FF

CLOG 013
F4AF

CLOG 014
8183

CLOG 190
AB53

CLOG 191
5588

CLOG 192
2838

CLOG 193
57AO

-2EBO-

-2ECo-

CLOG 194
71L0

CLOG 195
8183

CLST 086
5588

CLSI 087
5618

CLST 088
5ElO

CLST 089
16A8

CLST 090
7EAO

ClST 091
8183

-2ECe-

-2EOD-

CLSI 018
5586

CLST 079
5bA8

CLSI 080
5EAA

CLST 081
1618

CLST 082
7ElO

CLSI 083
8183

CLOG 182
A853

CLOG 183
5588

-2EOO-

-2HO-

CLOG 184
21B8

CLOG 185
5110

CLOG 186
77AO

CLOG 187
8183

CLST 094
A026

CLSI 095
5ZA8

CLST 096
7218

ClSJ 091
52AO

-2EEO-

-2EFo-

ClST 098
1218

CLST 099
A030

CLsr 100
AEEA

CICY 010
5892

CICY 011
2020

CICY 012
A9A6

COVO 098
9256

COVO 099
A662

-2EFO-

CONTROL AOORESS

2E--

ADDRESS LIST
CONTROL ADDRESS

0

DATE 11/08/68
2

4

6

8

A

CLOAO=*E60, Ee lE VEL=128211 ,PAGE 31'8
2f-

e

E

-2FOO-

DCl T 008
Ae74

DClT 003
e609

DelT 004
2007

DClT 005
A344

OCl T 009
24F6

OClI 010
EC80

Del T 011
FOOO

Del T 012
2400

-2FOo-

-2F 10-

Dell 013
5202

DelT 014
6311

DeLT 015
e480

Delf 016
24F6

oelT 017
Clle

oelT 018
3485

OCl. T 019
10F2

Del. T 020
5419

-2FIo-

-2F20-

DeLl 021
5209

Del.T 022
4452

Dell 023
1432

OCLl 024
0004

oeLT 025
10E2

OCLf 026
0040

Delr 021
021E

OCLf 028
2400

-2F20-

-2F 30-

oelT 029
4652

OCll' 031
2881

OCLT 032
52AC

oelT 033
526F

DClT 034
5668

OClI 036
5212

Del T 031
50F2

Del. T 038
5EE2

-2F30-

-2f40- . OClT 039
IF13

OCLT 040
A024

DClT 041
8354

OCLT 042
5A22

oeLT 043
2A13

OClI 044
2400

OCl T 045
A43E

eley 081
5098

-2F40-

-2F 50-

CICV 082
5088

Cley 083
C4Ef

eICY 084
5EA8

CICY 085
56AO

CICY 086
6178

CICY 087
606F

CICY 088
6fAD

CICY 089
5583

-2F50-

-2F60-

CICY 090
C4EO

Cley 091
52A8

CICY 092
56AO

CICY 093
611B

eICY 094
6060

CIey 095
6F30

CICY 096
128E

CICY 091
2F01

-2F60-

-lF10-

CICY 098
C40F

CBIN 080
A770

C81N 081
8174

eBIN 08l
AOtA

OMes 009
lE85

OMCS 010
74E2

OMCS 011
7EF2

OMeS 012
2FlO

-2F70-

2F8-2F SO-

OMeS 013
EBOF

DMCS 014
8612

OMeS 003
52Al

DMCS 004
6003

OMCS 005
0016

OMes 006
2FF5

OMeS 007
AF80

DMeS 018
2013

-2F8G-

-2FSo-

OMeS 019
72A2

OMes 020
21t27

DMCS 021
25A3

OMCS 022
4F48

OMes 023
5Fe9

DMes 024
4826

OMes 025
69FB

OMeS 026
F5A2

-2F9D-

-2FAo-

DMes 027
2818

OMeS 028
5838

OMes 029
5198

OMCS 030
2e18

OMes 031
6811

OMes 032
C484

DMC S 033
DCFD

OMes on
C4A2

-2FAo-

-2fBO-

OMes 035
49DF

OMe.s 036
21Ff

OMes 031
7060

OMes 038
52A2

OMes 043
2C15

OMes 047
27Fl

OMes 048

DMeS 049
E83e

-2F80-

I1t8

DMes 050
2105

OMes 051

nco

DMCS 052
B2C6

filE 296
2E07

FILE 297
5e32

FilE 298
OEOS

fILE 299
C965

FILE 300
0965

-2FCo-

-2fOO-

filE 101
2e85

fiLE 302
E956

filE 303
2C25

fILE 304
F95E

FILE 305
2C't5

FILE 306
E95E

FILE 301
2C 15

FILE 308
2EOl

-2FDo-

-2fEo-

fILE 309
't8EF

FILE 310
49CF

FILE 311
4EEf

FILE 3L2
ItDEF

FILE 313
12SE

FILE 280
2095

FILE 281
OE08

FILE 282
2100

-2FEo-

-2FFo-

FilE 283
CCOl

FILE 284
2018

fILE 285
oeD9

fILE 286
2018

FilE 287
EC05

FILE 288
2018

FILE 289
Feoo

FILE 290
128E

-2FfO-

-2f(;0-

CONTROL ADDRESS

2F-

ADDRESS 1I ST
CONTROL ADDRESS

0

DATE
2

4

6

8

11/08/68

A

CllJAO=*E60, EC lEVEl=l28211
30-

C

-30CO-

BCHK 082
Al6C

BCHK 064
4252

BCHK 065
4C26

BCHK 066
4ACO

BCHK 067
20EB

8CHK 068
8F2C

-3010-

BCHK 071
42A6

BCHK 012
C481

8CHK 073
2Cn

BCHK 074
20C5

BCHK 075
3063

-3020-

BCHK 080
6ACO

BCHK 081
B02C

8CHK 005
2404

BCHK 045
4632

-303()-

BCHK 050
6004

BCHK 051
4208

8CHK 052
2A01

-3040-

BCHK 058
6208

BCHK 059
0610

-3050-

CSFT 109
4013

-3060-

-3070-

E

BCHK 069
6CC4

BCHK 070
OCOA

-3000-

BCHK 077
2820

BCHK 079
8F2C

-3010-

-/ C99"'/

BCHK 046
6662

8CHK 047
FA82

BCHK 048
21C 5

8CHK 049
20E3

-3020-

BCHK 053
53Bo

BCHK 054
C4BC

BCHK 055· BCHK 056
281B
6B83

BCHK 051
42AO

-3030-

8CHK 060
5H8

8CHK 061
2723

BCHK 062
20CO

BCHK 063
968A

C SFT 107
D05E

CSFT lOB
5115

-3040-

C SFT liO
5005

CSfT 111
4303

CSFT 112
5335

CSFT 113
4233

CSfT 114
5225

CSFT 115
4723

CSFT 116
5115

-3050-

CSFT 117
4673

CSFT 118
5665

CSFT 119
4F63

CSFT 120
5fF5

CSFT 121
4EF3

CSFT 122
5EE5

CSFT 123
4AE3

CSFT 124
128E

-3060-

CMLT 159
3002

CMU 160
9C02

CMU 161
1002

CMU 162
3025

CMLT 16.3
9C04

CMLT 164
8344

CCOM 071
2813

CCOM 072
9(70

-3070-

E)~-;~6
~-·-···~i},t}

$IE

308-3080-

DCLR 057
0240

DCLR 002
C3C2

DCLR 003
875A

OCLR 013
0623

DCLR 011
1173

DCLR 028
A078

DClR 029
C510

DClR 030
2EC3

-3080-

-3090-

OCLR 031
15C5

OCLR 032
34A5

OCLR 033
C398

OClR 034
9EEO

DClR 035
E7lE

OClR 036
F11E

OClR 037
83AO

OClR 038
B16A

-3090-

-30AD-

DCLR 039
90.52

DCLR 041
2425

OClR 042
54E9

OClR 043
15C5

OClR 044
1513

OClR 045
CC80

OCLR 046
2800

OCLR 047
945A

-30AQ-

-30Bo-

DCLR 048
0010

OClR 049

DCLR 050
2205

OCLR 051
7602

OClR 052
2040

DClR 053
C681

OClR 054
E681

OCLR 055
2800

-3080-

3413

-30CO-

OClR 056
A786

OClR 004
F207

OCLR 008
2400

OClR 009
2F25

OClR 010
2E05

OClR 011
A030

OYPE 071
2F53

OYPE 072
lF15

-30Co-

-3000-

OYPE 013
IFOO

DYPE 074
2f08

OYPE 075
4FfF

OYPE 076
OF20

OYPE 077
3485

OYPE 078
1483

DYPE 079
5009

DYPE 080
C4E5

-3000-

-30EG-

OYPE 081
3E23

DYPE 082
15C5

OYPE 083
0568

OY PE 084

OYPE 085
810A

OYPE 086
9A90

OYPE 087
AAA2

CMl T 148
3002

-30Eo-

3EB3

CMU 149
9C02

CMU 150
1002

CMU 151
3025

CMLT 152
9C02

eMLT 153
8344

OCHN 091
2400

DCHN 098
2C75

OCHN 099
Alb4

-30FO-

-30FGCONTROL ADDRESS

30-

,PAGE 319

CONTROL ADDRESS

0

ClOAD=*E60, EC lEVEl=128211 ,PAGE 320
31-

DArE 11/08/68

ADORE S S LIST
2

4

6

8

A

C

E

-3100-

OCOM 041
C804

DCOM 0~2
2fOit

DCOM 043
128E

DCOM OOb
C140

DCOM 007
2683

OCOM 008
fOn

DCOM 009
221E

DCOM 010
e185

-3100-

-3110-

DCOM 011
2010

OCOM 012
021E

DCOM 013
3413

DC OM Ol4
7602

DCOM 015
Ib83

OCOM Olb
F727

OCOM 017
E723

oCOM 018
0008

-3110-

-3120-

OCOM 019
128E

oCOM 023
Of20

DeOM 024
128E

OCOM 020
E120

OCOM 021
0820

OCOM 022
128E

OCOM 025
Of24

oCOM 026
C832

-3120-

-3130-

DCOM 027
lC83

OCOM 028
128E

oeOM 029
021E

DCOM 030
1683

DCOM 031
0541

DCOM 032
f747

DCOM 033
1:743

DCOM 034
2088

-3130-

-3140-

OCOM 035
128E

DCOM 039
2f30

OCOM 040
128E

OCOM 036
E70l

DCOM 037
2B30

OCOM 038
128E

DPTT 071
fEOO

OPTT 072
3El3

-3140-

-3150-

OPTT 073
H06

DPU 014
3E23

oPTT 015
3f13

DPTT 076
CB5A

OPTT 017
3E23

OPTT 018
5E3f

OPTT 079
1393

OPTT 080
FOES

-3150-

-3100-

OPTT 081
3E23

OPTT 082
3F 15

OPTT 083
3E43

OPTf 084
OOOA

OPTT 085
128E

ERRQ 110
F712

ERRQ 111
0271

ERRQ 112
0004

-.3160-

-3110-

ERRQ 113
128E

ERRQ Itt.
0080

ERRQ 115
128E

CBIN 051
AOA8

CBIN 052
810C

OYPE 231
5AFF

OYPE 232
5f19

OYPE 233
11(5

-3170-

318-3180-

OYPE 234
CflO

OYPE 235
2055

OYPE 236
2180

OY PE 237
2188

OYPE 238
5fOO

oYPE 239
4FfF

OYPE 240
Of20

oYPE 2U
128E

-3180-

-3190-

OYPE 242
C483

OYPE 243
F098

oYPE 244
llCB

oYPE 245
C482

oVPE 246
E081

oYPE 247
CB20

OYPE 248
OB03

OYPE 249
EB20

-3190-

-31A0-

OYPE 250
Ollf

OVPE 251
C449

OVPE 252
1FBD

OVPE 253
C48A

OYPE 254
lF70

OYPE 255
C48A

OVPE 256
111B

OYPE 258
C482

-3 1A0-

-31So-

DVPE 259
(;B34

DYPE 260
EB39

OYPE 261
lfFO

OYPE 262
C48A

OYPE 263
1148

OVPE 264
C482

COHO 151
2040

COMO 152
4826

-31BO-

-31Co-

COMO 153
57B9

COMO 154
C5C6

COMO 155
OB9F

COMO 156
008E

COMO 157
010A

COMO 158
EOEE

COMO 159
1B1A

COMO 160
5886

-31CO-

-3100-

COMO 161
5110

COMO 162
0040

COMO 163
2EfF

COMO 164
C4CO

COMO Ib5
8BB8

COMO 174
FOCB

COMO 115
5880

COMO 176
2A93

-3100-

-31Eo-

C;OMO 117
56F2

COMO 178
57C9

COMO 179
1000

COMO 180
OBBl

COMO 181
EOEO

COMO 182
3002

COMO 183
A14C

COMO 166
2040

-31EO-

-3lfo-

COMO 167
2A95

COMO 168
56E2

COMO 169
57C9

COMO 170

COMO 171
OBB9

COMO 172
f4EB

COMO 173
A74C

FILX 088
0083

-31FO-

CONTROL ADORE SS

1000

31-

CONTROL ADDRESS

0

ClOAD=*E60, EC LE VEl-=128211
32--

DATE 11/08/68

ADDRESS LIST
2

4

6

8

A

e

E

-32CO-

FILX OS9
F084

FlU 090
Eoae

FILX 091
97A6

FILX 117
2F07

FlU 11S
2EO

FILX 119
BE3A

F IL X 092
3013

FIlX 093
2C25

-3200-

-3210-

Fill( 094
C916

F IlX 095
FDIC

FllX 096
JOF3

FILX 091
FDIC

F IlX 09S
3003

FILX 099
1015

FIlX 100
CD25

FIlX 101
30B5

-3210-

-3220-

flLX 102
D02S

FILX 103
IDFO

FILX 104
0029

FIlX 105
3DA5

FIlX 106
1(52

Fil X 107
2F45

FILX 108
CD89

H LX 109
F9B5

-3220-

-3230-

FILX 110
4886

filX 111
C488

F I LX 112
DDB6

fILX 113
2EOS

FIlX 114
OE(l4

FILX 115
5E42

fllX 116
S62A

CFHA 006
2C13

-3230-

-3240-

CFHA 001
AloDC

(FHA 008
AloDC

CFHA 009
A60C

CFHA 010
A656

(FHA a 11
5CC2

CFHA 012
D5E4

(FHA 013
2A01

CFHA 014
OfF 3

-3240-

-3250-

CFHA 015
C'tE6

CFHA 016
AIE4

(FHA 017
2501

CFHA 018
2EFF

(FHA 019
E4F2

CFHA 020
F4F5

CFHA 021
B24E

CFHA 028
ED61

-3250-

-.3260-

(FHA 029
0080

(FHA 030
S136

(FHA 031
2E01

CFHA 032
9ADO

CFHA 033
925A

CFHA 034
Clef

eFHA 035
A8DE

CFHA 036
5189

-3260-

-3210-

CFHA 037
9C10

eFHA 022
F400

CFHA 023
ED62

(FHA 024
1ESD

eFHA 025

2103

(FHA 026
2080

CFHA 027
B24E

5001

-3210-

328-3280-

e Sf' 140
bEAl

CSfT lltl
C48C

CSfT 142
018A

eSfT 143
CFOF

eSfT 144
3000

eSFT 145
(FOE

e SFT H6
3000

eSfT 141
5fE9

-3280-

-3290-

CSfT 148
56F9

(SFT 149
5169

eSFT 150
D03l

eSfT 151
2101

CSfT 152
128E

eSFT 129
FOOL

C SFT 130
0026

CSF' 131
5019

-3290-

-32Ao-

C SfT 132
5309

CSFT 133
5239

eSfT 134
5129

CSfT 135
5679

CSFT 136
5F69

eSFT 131
5EF9

CSFT 138
5AE9

CSFT 139
12SE

-32AO-

-3260-

C SFT 153
5219

eSfTl54
5329

eSfT 155
5039

CSFT 156
5109

eSH 151
2101

CSFT 158
12BE

DMes 056
5D38

OMes 051
3E43

-32BO-

-32eo-

OMeS 058
2118

OMes 059
11eo

OMCS 060
CE40

OMCS 061
2D40

OMCS 062
2640

OMCS 063
f4C2

OMC S 064
CBE1

OMCS 065
CF61

-32CO-

-3200-

OMCS 066
DA66

OMCS 010
lE43

DMCS 011
2515

DMCS 072
C167

OMes 013
4948

OMes 014
6901

OMCS 075
C406

ONes 016
fl63

-3200-

-32Eo-

OMC S 071
6446

DMCS 018
4040

D.Mes 079
82C2

DMCS 081
51B9

OMes 082
6BH

DMCS OS3
C4BC

OMes 081
54E2

OMC S 088
5EF2

-32EO-

-32Fo-

DMCS 089
4642

OMCS 090
2105

OMCS 091
2E43

OMes 092
81J2E

CCOM 173
2BBl

ceOM 114
7FAO

eeOM 175
128E

5007

CONTROL ADDRESS

-32FO32-

,PAGE 321

ADDRESS LIST
CONTROL ADDRESS

0

ClOAD=*E60. EC lEVEl.=128211
33-

DATE 11/08/68
2

4

8

6

A

C

E

-3300-

CSIS 118
B35A

csrs 104
F901

csrs 105
5310

CSTS 106
495F

CSTS 107
473F

CSTS 108
A8DE

CSTS 109
F901

C srs 110
495F

-3300-

-3310-

CSTS 111
3FOO

CSTS 112
C092

CSTS 113
585f

CSTS 114
I f 00

csrs

115
15FF

CSTS 116
1510

CSTS 117
A8DE

DPTT 088
F024

-3310-

-3320-

OPTT 089
1413

OPH 090
0010

DPTT 091
4046

DPTT 092
1485

DPTT 093
1Z8E

CLOG 144
A170

CLOG 145
6Fll

CLOG 146
bEOt

-3320-

-3330-

CLOG 141
6131

CLOG 148
6621

CLOG 149
A912

CLOG 114
A710

CLOG 115
6Fl5

CLOG 116
bE05

CLOG 111
6135

CLOG U8
6625

-3330-

-3340-

CLOG 119
A912

filE 242
2112

fILE 243
5ECF

filE 244

FILE 245
C4CO

FIl.E 246
8CIE

FILE 247
l28E

CMl T 165
9CD2

-3340-

bCDl

-3350-

CMU 166
3002

CMU -161
B016

CCOM 186
2BB1

CCOM 187
5FAO

CCOM 188
128E

CICY 068
2B23

CICY 069
9C70

BWRP 090
A062

-33.50-

-3360-

BWRP 091
9270

CCOM 154
2400

CCOM 155
A80C

CBIN 026
8A70

CBIN 021
ACtA

CLOG 036
8A70

CLOG 011
AC9C

CBIN 016
8A70

-3360-

-3370-

CBIN 017
AF74

CLOG 110
8AI0

CLOG 111
8338

Cfey Oba
925A

CFey O()9
A05A

CLOG 140
8AI0

CLOG 141
B32e

5001

CBIN 022
ADA8

CBIN 023
A8CA

5001

5007

-3310-

338-3360-

CBIN 055
8AI0

CBIN 056
ADC8

eflS 001
lE85

CFlS 008
A154

-3380-

,PAGE 322

DATE 11/08/68

ADORE SS LI ST
AUX STORAGE

0

2

4

S

6

A

C

ClOAO=*E60, EC lEVEl""128211 ,PAGE 323
00-E

-0000-

-0000-

-0010-

-0010-

-0020-

-0020-

-0030-

-0030-

AlOI' 261
C4C1

-0040-

D9C1.

-0050-

AlOP 264
09C1

ALDP 264
CSO

-0050-

-0060-

AtOP 267
40C4

ALDP 267
C9D3

-0060-

-0070-

AlDI' 270
CIE5

ALDP 270
05C9

-0010-

-0040-

ALDP 261

008--0080-

DelC 194
OSOC

DCLC 194
OOOE

-0080-

-0090-

OCLe 191
OFl5

oeLC 191
18FF

-0090-OOAO-

-OOAo-OOSO-

SSVS 140
OEOC

-OOCO-

SSYS 140
OOIF

-OOBO-

DPTC 103
0004

-OOco-

-0000-

-0000-

-001::0-

-OOEO-

-OOfoAUX STORAGE

SSYS 151
0090

-OOFO00--

AUX SroRAGE

0

CLOAD"'*E60, Ee lEVEl-=128211
30-

DATE 11/08/68

ADORE S S LIST
2

4

6

8

A

e

E

-3000-

ERe l( 075
40Fl

ERex 075
F2F3

ERex 015
F4F5

ERex 015
f6F7

ERex 015
FObl

ERex 015
E2E3

ERex 015
E4E 5

ERe x 075
E6E7

-3000-

- 30 1 0-

ERe)( 075
6001

ERex 075
0203

ERex 015
0405

ERex 076
0607

ERex 076
DOAl

ERex 016
A2A3

ERe x 076
A4A5

ERe x 076
A6A1

-3010-

-3020-

ERel( 076
50el

ERex 076
e2e3

ERex 076
e4e5

ERex 076
e6e7

ERex 016
e081

ERex 076
8283

ERe x 071
8485

ERex 017
8687

-.3020-

-3030-

ERex 071
6A91

ERex 077
9293

ERex 071
9495

ERex 017
9697

ERex 077
70B1

ERex 071
8283

ERCX 071
B485

ERex 077
8681

-3030-

-3040-

ERex 071
F931

ERe x 018
3233

ERex 078
3435'

ERex 018
3637

ERex 078
E921

ERex 018
2223

ERex 078
2425

ERe x 018
2627

-3040-

-3050-

ERex 078
D9H

ERex 018
1213

ERex 078
1415

ERex 018
1617

ERex 079
A9El

ERex 019
6263

ERe x 079
6465

ERex 079
6661

-3050-

-3060-

ERex 019
e901

ERex 079
0203

ERex 019
0405

ERex 079
0601

ERex 079
8941

ERex 019
4243

ERex 079
4445

ERex 080
4647

-3060-

-3070-

ERex 080
9951

ERex 080
5253

ERex 080
5455

ERex 080
5651

ERex 080
8971

ERex 080
7213

ERe x 080
1415

ERex 080
7611

-3010-

308-30eo-

ERex 080
F819

ERex 080
1A18

ERex 081
7e70

ERex 081
7E7F

ERex 081
E869

ERex 081
E06S

ERex 081
6e60

ERe x 081
6E6f

-3080-

-30'10-

ERell 081
0859

ERex 081
5A58

ERex 081
5e50

ERex 081
5E5F

ERex 081
A8AO

ERe x 082
AAAB

ERex 082
AeAD

ERex 082
AEAF

-.3090-

-30AO-

ERex 082
e849

ERex 082
4A48

ERex 082
4e40

ERex 082
4E4F

ERe x 082
8880

ERex 082
8A8B

ERex 082
8e80

ERex 082
BE8F

-30AO-

-3080-

ERex 083
9890

ERex 083
9A9B

ERex 083
ge90

ERex 083
9E9F

ERex 083
B8BO

ERex 083
BABB

ERex 083
BeBD

ERex 083
BEBf

-30Bo-

-30eo-

eRC x 083
3839

ERex 083

ERex 083
3C30

ERex 084
3E3F

ERCX 084
2829

ERex 084
2A2B

ERex 084
2e20

ERe x 084
2E2F

-30eo-

)A3B

-3000-

ERex 084
1819

ERex 084
lA1B

ERex 084
lelO

ERCX 084
lElF

ERex 084
6820

ERex 084
EAEB

ERe x 085
ECEO

ERe x 085
EEEF

-3000-

-30EO-

ERex 085
0809

ERex 085
OAOB

ERex 085
oeoo

ERex 085
OEOF

ERex 085
4800

ERex 085
eACB

ERex 085
ceCD

ERex 085
eEeF

-30EO-

-30fo-

ERex 085
5810

ERex 086
DADB

ERex 086
oeDO

ERex 086
DEDf

ERex 086
7830

ERex 086
fAFB

ERex 086
fCfD

ERe x 086

-30FO-

AUX STORAGe

fEFF
30--

,PAGE 324

CLOAO=*E60, EC LEVEL=128211
DATE 11/08/68

ADORE SS LI ST
AUX Srol-lAGE

o

2

4

6

8

A

50--

c

E

-5000-

-5000-

-5010-

-5010-

-5020-

-5020-

- 5030-

-5030-

-5040-

-5040-

-5()50-

-5050-

-5060-

-5060-

-5070-

-S010-

S08-5080-

-5080-

-SO<;o-

-S090-

-50AO-

-SOAO-

-SOBo-

DYP E 268
407E

OYPE 268
4CSE

OYPE 268
7AbC

OYPE 268
706E

-SOBo-

-soeo-

OYPE 268
5C40

DYPE 268
S07F

OYPE 268
0000

OYPE 268
F07B

DY PE 26B
4A6F

OYPE 268
E2E3

DYPE 268
E4E5

OYPE 269
E6E7

-SOCO-

-SODo-

OYPE 269
E8E9

OYPE 269
6B4f

OYPE 269
1C2S

OYPE 269
0000

OYPE 269
6001

DYPE 269
0203

DYPE 269
040S

OYPE 269
0607

-SOOO-

-50EO-

DYPE 269

DYPE 269
5B5A

OYPE 210
6015

DYPE 210
1600

DYPE 210
4ECl

DYPE 270
C2C3

DYPE 270
C4CS

OYPE 270
C6Cl

-50Eo-

0809
DYPE 210
C8C9

OYPE 210
4B5f

OYPE 210
5005

-50foAUX STORAGE

-50Fo50--

,PAGE 325

DATE 11/08/68

ADDRESS LIST
AUX STORAGE

0

2

4

6

8

A

ClOAO=*E60. Ee lE VEl.:1282 U
60--

e

E

-6000-

EPXf 089
6989

EPXF 089
8A88

EPXf 089
8C80

EPXF 089
8E8F

EPXf 089
9899

EPXf 089
9A96

EPXf 089
9C90

EPXF 089
9E9F

-6000-

-6010-

EPXF 089
D949

EPXF 089
4A4B

EPXF 089
4C40

EPXF 090
4E4F

EPXF 090
5859

EPXf 090
5A5B

EPXF 090
5e50

EPXf 090
5E5F

-6010-

-6020-

EPXF 090
7929

EPXF 090
2A28

EPXf 090
2e20

EPXF 090
2E2f

EPXF 090
3839

EPXF 090
3A3B

EPXF 091
3C30

EPXF 091
3E3F

-6020-

-6030-

EPXF 091
f909

EPXF 091
OAOB

EPXF 091
oeoo

EPXF 091
OEOF

EPXf 091
1819

EPXf 091
lAl8

EPXF 091
lelO

EPXf 091
lEU

-6030-

-6040-

EPXf 091
00A9

EPXf 092
AAAB

EPXf 092
AeAD

EPXF 092
AEAf

EPXF 092
BB91

EPXF 092
9293

EPXF 092
9495

EPXf 092
9697

-6040-

-6050-

EP Xf 092
80C9

EPXF 092
CACB

EPXF 092
CCCO

EPXf 092
eEef

EPXF 093

EPXF 093
5253

EP XF 093
5455

EP XF 093
5651

-6050-

0851

EPXF 093
4021

EPXF 093
6AbB

EPXf 093

EPXf 093
6E6F

EPXF 093
1831

EP XF 093
e033

EPXF 093
3435

EPXF 094
3631

-6060-

6ebD

EPXF 094
EOE9

EPXf 094
EAE8

EPXf 094
ECEO

EPXF 094
EEEF

EPXf 094
F8ll

EPXf 094
1213

EPXf 094
1415

EPXf 094
1611

-6070-

-6060-

-6070-

608-608G-

EPXF 094
SlAl

EPXF 094
A2A3

EPXF 095
A4A5

EPXf 095
A6A1

EPXF 095
BOA8

EPXF 095
6283

EPXF 095
B4B5

EPXF 095
B681

-6080-

-60'10-

EPXf 095
DICI

EPXF 095
C2e3

EPXF 095
e4e5

EPXf 095
. C6e1

EPXf 095
00C8

EPXf 096
0203

EPXF 096
0405

EPXF .09b
0601

-6090-

- 60AG-

EPXF 096
1161

EPXF 096
6263

EPXF 096
6465

EPXF096
6661

EPXF 096
1068

EPXF 096

EPXf 096
7475

EPXF 0'6
1671

-60AO-

1213

-60BO-

EPXF 091
HEl

EPXf 097
E2E3

EPXF 097
E4E5

EPXF 097
E6E?

EPXF 097
FOE8

EPXF 091
f2Fl

EPXF 091
F4f5

EPXf 097
f6fl

-6080-

-60eo-

EPXF 097
A081

EPXF 091
8283

EPXF 0'11
8485

EPXf 098
8681

EPXF 098
9088

EPXF 098
BABB

EPXf 098
6CBD

EPXF 098
BESF

-60eo-

-60Do-

EP XF 098
6041

EPXF 098
4243

EPXf 098
4445

EPXF 098
4647

EPXf 098
5048

EPXF 098
DADa

EP XF 099
oeoo

EPXF 099
DEDF

-6000-

-60EO-

EPXF 099
3269

EPXF 099
2223

EPXf 099
2425

EPXF 099
2621

EPXF 099
3028

EPXF 099
1"78

EPXf 099
1C 1D

EPXF 099
lE1F

-60EO-

-60FG-

EPXF 099
2001

EPXF 100
0203

EPXF 100
0405

EPXF 100
0601

EPXF 100
11108

EPXf 100
FAf8

EPXF lOO
FeFO

EPXf 100
FEFF

-60FO-

AUX STORAGE

60-

.PAGE 326

ADORE S S LlST
AUX STORAGI:

0

DATE 11/08/68
2

4

6

6

A

ClOAO=*E60, EC LE VEL=1282 11 ,PAGE 327
70--

C

E

-10CO-

OPTC 111
0025

OPTC 111
2627

OPTC 111
2829

OPTC 111
2A2B

OPTC 111
2C20

OPTC Hl
2E2F

OPTC III
3018

DPTC III
2EOO

-1000-

-7010-

OPTC III
1619

OPTC 111
1AlB

OPTC 111
lClD

DPTC 112
lElF

DPTC 112
2021

OPTC 112
2223

DPTC 112
2430

OPTC 112
0000

-7010-

-1020-

OPTC 112
2200

DPTC 112
OEOF

DPTC 112
1011

OPTC 112
1213

DPTC 112
1415

OPTC 112
1617

DPTC 113
1600

DPTC 113

-1020-

-7030-

DPTC 113
OAOI

DPTC 113
0203

OPTC 113
0405

OPTC 113
0607

OPTC 113
0809

OPTC 113
OAOS

DPTC 113
OCOC

DPTC 113
OBOO

-1030-

-1040-

UPTC 113
0025

DPTC 1 U.
2621

OPTC 114
2829

DPTC 114
2A2B

DPTC 114
2C2D

OPTC 114
2E2f

OPTC lL4
3018

DPTC 114
2EOO

-7040-

-1050-

OPTC 114
1619

OPTC 114
lA1S

OPTC 114
lClD

DPTC 114
!Elf

DPTC ll5
2021

DPTC 115
2223

DPTC 115
2430

DPTC 115
0000

-1050-

-7060-

DPTC 115
220D

DPTC 115
OEOF

OPTC 115
1011

DPTC 115
1213

OPTC 115
1415

OPTC 115
1611

OPTC 115
1800

OPTC 116
1100

-1060-

-1070-

DPTC 116
OAOl

DPTC 11b
0203

OPTC 116
0405

DPTC 116
0601

DPTC 116
0809

DPTC 116
OAOS

OPTC lib

ceoe

OP TC 116
OBOO

-1070-

1700

108-1080-

DPTC 116
1625

OPTC 116
2627

OPTC 117
2829

OPTC 117
2A2B

OPTC 111
2C20

OPTC 111
2E2F

DPTC 117
3018

DPTC 117
2EOO

-7080-

-7090-

DPTC 111
2219

OPTC 117
lAlB

DPTC 111
lClD

OPT C 117
lElF

DPTC 117
2021

DPTC ll8
2223

DPTC 118
2430

DPTC 118
0000

-7090-

-10AO-

OPTC 116
0000

OPTC 118
OEOF

OPTC 118
1011

OPTC 118
1213

DPTC 118
1415

OPTC 116
1611

OPTC 118
1800

OPTC 118
1100

-10Ao-

-70tJO-

OPTC 119
OAOl

OPTC 119
0203

OPTC 119
0405

OPTC 119
0607

DPTC 119
0809

OPTC 119
OAOS

OPTC 119

oeoc

OPTC 119
0800

-70BO-

-70Co-

OPTC 119
1625

OPTC 119
2027

OPTC 119
2829

OPTC 120
2A2B

OPTC 120
2C2D

OPTC 120
2E2F

OPTC 120
3018

OPTC 120
2EOO

-10CO-

-1000-

DPTC 120
2219

OPTC 120

OPTC 120
lClO

OPTC 120
lElF

OPTC 120
2021

OPTC 120
2221

OPTC 121
2430

OPTC 121
0000

-7000-

lAIS

-10t: 0-

DPTC 121
0000

DPTC 121
OEOF

OPTC 121
1011

OPTC 121
1213

DPTC 121
1415

OPlC 121
1611

DPTC 121
1800

DPTC 121
1100

-70Eo-

-70fo-

OPTC 121
OAOI

OPTC 122
0203

OPTC 122
0405

OPTC 122
0601

OPTC 122
0809

OPTC 122
OAOB

OPTC 122

OPTC 122
OBOO

-70Fo-

OCOC

**ERROR MESSAGES**
NU BOUNDARY ERRORS

NO STRING ceNTROL BLOCK ERRORS

lhEKE ARE NO UUPlJCATE ASSIGNMENTS IN THIS RUN.

MASI
MAS/MAS/MASI
MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/M1S/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MA S/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MASIMAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/~AS/MAS/MASJMAS/MAS/

MAS/MAS/MAS/MAS/MASI
MAS/MAS/MASI
MASI
MASI
MAS/MAS/MASI
HAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
~AS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/

MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/HAS/HAS/MAS/MAS/MA S/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/HAS/HAS/MAS/MAS/MAS/HAS/MAS/MAS/MAS/MAS/HAS/MAS/MAS/HAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/HAS/MAS/HAS/MAS/MAS/MAS/MAS/HAS/MAS/MASI
MAS/MAS/HAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/HAS/MAS/MAS/MAS/MAS/HAS/MAS/MAS/MAS/MAS/
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS1MAS/MAS/MAS/MAS/MAS/MAS/
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/HAS/MAS/MASIMAS/HAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/HAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/HAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
HAS/HAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/HAS/HAS/HAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/HAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/
MAS/MAS/MAS/HAS/HAS/MAS/MAS/MAS/MAS/HAS/MAS/HAS/MAS/HAS/MAS/MAS/MASI
HAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/HAS/HAS/MAS/MAS/MAS/MAS/HASI
MAS/MAS/MAS/MAS/HAS/MAS/MAS/MAS/MAS/MAS/MAS/HAS/MASI
HAS/MAS/MAS/MAS/HAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/HASI
MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/HAS/MAS/MAS/HAS/
HAS/MAS/MASI
MASI

SR25-5402-0

m•
~
CII
t:

"C
"C

Source Exif Data: 
File Type                       : PDF
File Type Extension             : pdf
MIME Type                       : application/pdf
PDF Version                     : 1.3
Linearized                      : No
XMP Toolkit                     : Adobe XMP Core 4.2.1-c043 52.372728, 2009/01/18-15:56:37
Create Date                     : 2012:11:29 11:45:33-08:00
Modify Date                     : 2012:11:29 17:25:52-08:00
Metadata Date                   : 2012:11:29 17:25:52-08:00
Producer                        : Adobe Acrobat 9.52 Paper Capture Plug-in
Format                          : application/pdf
Document ID                     : uuid:06945fe5-703a-474e-a3c7-313a7f48f22c
Instance ID                     : uuid:92d5438b-0bb6-428c-bf44-9f847348c0d1
Page Layout                     : SinglePage
Page Mode                       : UseNone
Page Count                      : 342

EXIF Metadata provided by EXIF.tools