E60_EC128266_Microcode_Listing E60 EC128266 Microcode Listing
E60_EC128266_Microcode_Listing E60_EC128266_Microcode_Listing
User Manual: E60_EC128266_Microcode_Listing
Open the PDF directly: View PDF 
.
Page Count: 311
| Download | |
| Open PDF In Browser | View PDF |
MACHINE TYPE 2025
MODEL 000
CORE LOAD 1952360 *E 60
.
ME S/FC SI #
SERIAL 1# 10302-
MASTER CONTROL
EC II 128266
MACHINE STATUS E
SUM CHECK It 63CC
**
SEE *E60 8CHK
**
EC II TAPE USED 128267
07/130 F2
DATE PREPARED 07/13111
FEATURES PRFSENT
_
p/-- - - - -
V
2542057
MEM48K / ' /
2539229
2539256
RURSTCH
0854031
TI"1E~ /
0854017
NA TV2 311
0854095
MULCHSET L/-
/--
FLT PT
0854021
STGPROT
0854019
NATV2540
V
L----
2539257
PFR
0854015
NATV1403
-------~-
FEATURES NOT PRESENT
2542054
MFM16K
_2_542056
MEM32K
2539255
8YTECH
0854023
DIRCTRL
2541('55
MEM24K
0854025
EXTINT
0854030
TI MER 150
2532200
COM8ASIC
2470709
2560EM40
2470710
C S1400
0882211
RPQM I I
0882424
RPQMSC
0882447
RPQHSC
0127736
RPQPR6
0882470
RPQSUM
0882469
R PQAAR
0882376
RPQHI-JL
0882377
RPQBUR
0882214
RPQFAF
0882219
RPQFAC
0882225
RPQGAM
L---
ADDR
WORD
SEQUENCE NO.
*E60
*E60
*E60
*F:60
*[60
001
005
006
008
0('9
*f60 010
*~6C 030
*EAO 044
*E60 046
*E60 050
*E60 051
*E60 n52
*£=60 053
*E60 054
*'=60 055
*1==60 056
*E60 057
*E60 058
*~60 059
*E60 1)60
*E60 061
*E60 061
*E60 064
*E6C 066
*E60 OAB
*E60 069
*F60 070
*E60 071
*E60 072
*E60 074
*E60 ':)75
*E60 076
*E60 077
*E60 078
*E6C 079
*E60 080
*1.:60 081
*E60 082
*E60 083
*~60 084
*E60 085
*1:60 1)86
*E60 088
*E60
*E60
*E60
*E60
090
091
OQ3
095
*c6) 096
*E60 098
*E60 100
*E60 102
LABEL
T
*
*
*
*
**
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
NEXT SEQ"
NEXTLABEL
STATEMENT
CLOAD=*E60, EC LEVEl=128266
COMMENTS
SYSTEM 360/25 EMULATOR
AAAB
AAAC
LOCAL STORAGE MAP CPU
AAAO
EXTERNAL MNEMONIC DEFINITIONS
AAAF
BIT SIGNIFICANCE CHARTS FOR CONTROL WORDS
AAAG
MPTF ENTRY SHEETS
ALDP
ALTER DISPLAY ROUTINE
BCHK
CHECK SUN
BCPL
RESIDENT CHANNEL CORE LOAD ROUTINE
BOlA
BASIC DIAGNOSTIC ••• RESIDENT CPU DIAGNOSTIC.
BMCK
MACHINE CK TRAP ROUTINE
BPSW
PSW STORE AND LOADING
BSTP
INSTRUCTION STEP TYPE OUT-INSTRUCTION ADDRESS
BSWI
EXCEPTIONAL CONDITION ROUTINE
RSY S
SYSTEM RESET ROUTINE
BWRP
WR~P TRAP ROUTINES
CBIN
BINARY ARITH.-ADD-SUB-COMPARE
CBRC
BRANCH INSTRUCTIONS
CCOM
CPU COMMON ROUTINES
COMO
DECIMAL MULT DIVD
CDVD
BINARY DIVIDE ROUTINE
CFAD
FLOATING POINT AOD,SUBTRACT,COMPARE
CFCO
FLOATING POINT COMMON ROUTINES
CFCY
FLOATING POINT INSTRUCTION CYCLES
CFDV
FLOATING POINT DEVIDE
CFHA
FLOATING POINT HAlVE
eFlS
FLOATING POINT LOADS AND STORE
CFMO
FLOATING POINT MULT DIV PREPARATION
CFMU
FLOATING POINT MULTIPLY
CICY
INSTRUCTION CYCLES
CLOG
LOGICAL OPERATIONS
(LST
LOAD AND STORE OPERATIONS
CMLT
BINARY MULTIPLY ROUTINE
CMPU
PACK UNPACK AND MOVE WITH OFFSET
CNVR
CONVERT TO DECIMAL AND BINARY
CSFT
SHIFT ROUTINES
DECIMAL ADD SUB COMPARE ZERO AND ADD
CSAS
CSTS
STATUS SWITCHING INSTRUCTIONS
CTRT
TRANSLATE TRANS TEST EDIT EDIT AND MARK
DCHN
CHANNEL 0 INTERRUPT ROUTINE----H.BERKEBILE
DCLA
1/0 INSTRUCTIONS
DCLB
CCW FETCH AND CHECK
CHANNEL INITIAL SELECTION
DCLC
OCLO
CHANNEL DATA LOOP
DCLE
CHANNEL lOW PRIORITY TRAP-STATUS ROUTINE
DClH
CHANNEL HALT 110
INITIAL PROGRAM LOAD
DClL
DCLR
CHANNEL ERROR ROUTINE
DClT
CHANNEL TEST 110 AND 110 INTERRUPT
DCOM
COMMON 110 ROUTINES
DMCS
1403 MULTIPLE CHARACTER SET ROUTINE
PAGE
1
ADOR
WORD
SEQUENC~
NO.
*E60 104
*E60 105
*E60 1()7
*f.60 1C8
*E60
*E60
*E60
*E60
lC9
112
114
116
*F60 117
*=A0 118
*E60
*E60
*F60
*1:60
*E6Q
*E6G
*F60
llq
120
122
123
124
126
IV;
*EAO 137
*E60 13q
*E60 140
*E60 257
LABEL
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
NEXTSEQ
CLOAD:*E60, EC LEVEL=128266
COMMENTS
NEXTLABEL
STATEMENT
DPTC
OPTQ
OPTR
OPTS
DPTT
DUMP
OYPE
EeOL
EPCH
EPXF
ERCX
ERDR
ERRQ
ETRPETTR
EXFR
FILE
F IL T
F IL X
FINT
OVLY
1403 BUFFER SCAN ROUTINE
1403 REQUEST AND INTERRUPT BUFFER ROUTINE
1403 READ AND WRITE-CHANNEL END AND CARR.CTRL
1403 START I/O-NO ACT-NO SEC+SENSE COMM
1403 TEST I/O,HALT I/O,START lID-SEC. ON
RESIDENT CORE DUMP ON NATIVE 1403
1052 TYPE ROUTINES
PUNCH COLU~N BINARY AND DATA CHAIN
PUNCH SIO CMD OECODe & CHAINING
PUNCH TRANSFER-EBCDIC TO ROW FORM -& CHAINING
XFER FROM COLUMN FORM BUFFER-RO-TO CCW ADDRESS
READER START 110 CO~~AND DECODE AND CHAINING
READER REQUEST MOOE AT 10
NATIVE PUNCH TRAP ROUTINE(PUNCH CHECK ANALYSIS)
NATIVE READER TRAP ROUTINE(READER CHECK ANALYSIS)
READER XFER OF ROW IMAGE TO COLUMN BINARY FORM
2311 FEAT., ENTRY FOR SID, TID, HID
2311 FEAT., TRAP ROUTINE
2~11 FEAT •• OP VERIVICATION & EXECUTION
2311 FEAT., INTERRUPT ROUTINE
CUSTOMER ROUTINE TO CORRECT BAD MODULE ZERO WORDS
PAGE
2
*
A.6AB
*
AUX
STJRAGE -- MODULE
ClOAD=*E60, EC lEVEL:128266
a
PAGE
*
3
AAAS
*
K-ADDRESSABLE AREA
ox
IX
2X
3X
4X
5X
6X
7X
8X
9X
AX
AX
CX
C
1
2
3
4
5
6
7
8
9
ABC
0
E
F
****************************************************************
* G.P. REG 0 *
* FLOATING POINT REG. 0
*
*------------------------------*
*
*
H
* G.P. REG I
2311
*
*
FLOATING POINT REG. 2
*
* G.P. REG 2 *
*
*
* G.P. REG 3 *
J
*
*******************------------------------------*
* G.P. REG 4 *
* FLOATING POINT REG. 4
*
1052
*
*
* G.p. REG 5 *
K
*
* ALT ER /0 IS PL AY
* FLOATING POINT REG. 6
*
* G.p. REG 6 *
>I<
MESSAGE
*
* G.P. REG 7 *
L
**************************************************
*
-R* KO * K1
* K2
* K3
*
* G.p. REG 8 *
*******************------*-------*-------*-------*
*
-RK4
K5
K6
K7
* G.P. REG 9 *
*******************------*-------*-------*-------*
*
K8 * K9
KA
KB
*
* G.P. REG A
*-----------------*------*-------*-------*-------*
*
KD
* KE
* KF
*
* G.P. REG B * A * B * C * 0 * KC
*-----------------********************************
*
P
* M*
*
1403 UC W
*
* G.P. REG C *
K1-8A- STANDARD INTERFACE, NEXT CCW ADDRESS
*
* IX
*------------------------------*
*
2X
*------------------------------*
*
* 3X
*
*------------------------------*
*
*
*------------------------------*
*------------------------------*
*
*
*
*
*
*
*
*
*
*
*
*
*
KO-88- CHANNEL 1 INTERRUPT BUFFER
ox
*-----------------*------------------------------*
*
*
K2-8C- CHANNEL UNIT ADDRESS BUFFER
K3-8E- STATUS/ACTIVE BYTE FOR 2311 OR CHANNEL 1
K4-QS- 2311 NEXT CCW ADDRESS
4X
K5-9A- 2311 SENSE OR PREVIOUS OP AND MASK
5X
K6-9C- 2311 SENSE OR FILE ADDRESS
6X
K7-9E- DIAGNOSTICS, ALTER/DISPLAY BAL BACKUP
7X
K8-A8- SYSTEM MASK
K9-AA- EXECUTE
BACKUP
9X
*
A----1403 UNIT ADDRESS
B----READER UNIT ADDRESS
C----PUNCH UNIT ADDRESS
0----1052 UNIT AOI)RESS
E----Hl SAVE
G----I052 SENSE
N----2311 AOO~ESS
INSTRUCTION COUNTER ---I REGISTER
KA-AC- U REGISTER
BACKUP Q FLTPT SAVE
DURING INSTRUCTIONS
AX
BX
Cx
OX * G.p. REG I) *
* * M*
2540 RDR UCW
OX
*-----------------*------------------------------*
*
EX * G.p. REG E
*
M*
2540 PCH UCW
* EX
*
*-----------------*------------------------------*
FX * G.P. ~EG F * E * N * ~ * G
1052 UCW
* FX
****************************************************************
o
1
2
3
4
5
6
7
8
9
ABC
0
E
F
*
-A9- CPU KEY AND AMWP
8X
BACKUP
KC-B8- P REGISTER
BACKUP
KD-BA- CHANNEL
*
*
H----MULT/DVD TABLE {Xl} AND
ALT/DIS REGS BACKUP
J----MULT/DVD TABLE (X4) AND
AlT/DIS BACKUP + FLPT SAVE
K----MULT/DVD TABLE (X16)
L----MUlT/DVD TABLE (X64),FLPT SAVE
M----NATIVE KEY KKKKOOOO
P----COMMU. Q-EXIT POINTER
P----BURST CHANNEL BUFFERED
DEVICE ADDRESSES.
KB-AE- G REGISTER
a
INTERRUPT 8UFFER
KE-BC- ADDRESS OF STRAIGHT MUlT/DVD
2540 REGS BACKUP
KF-BE- ADDRESS OF SKEWED MUlT/DVD
KEY. 2540 REGS BACKUP
,FlPT SAVE
,FLTPT SAVE OR CAW
********** STANDARD DEVICE ADDRESSES ***************
*
NA T I VE
lOC *
BURST CHANNEL
LOC*
* 1403-------0E
B4
*
1443 OR 1445-------0B
84 *
2540 RDR-----------OC
85 *
* 2540 RDR---OC
B5
* 2540 PCH---OD
86
*
2540 PCH-----------OD
86 *
* 1052-------1F
B7
*
1403---------------0E
87 *
F5
*
1404 OR 2ND 1403---0F
94 *
* 2311-------9X
2520---------------15
95 *
*
*
*
*
* THE TEXT PRECEEDING THE -BCPl- ROUTINE CONTAINS
* INFORMATION ON PUNCHING CARDS TO RECONFIGURATE THE
* SYSTEM TO OTHER THAN THE STANDARD ASSIGNMENTS
*
*
*
*
STORAGE
AUXILIA~Y
o
4
8
C
*
*
CPU APEA
PAGE
4
F
**************************************************
o
CLOAD=*E60, EC lEVEL=128266
ASSIGNMENTS
*
*
MODUL E
0
*
*
F *------------------------------------------------*---
0 * *
PUNCH ROW IMAGE (lXOO-IX71)
*
*
----------------------------*
*
*
*-------------------**
*
( IX18-1XEF)
PFR ROW IMAGE
*
MODULE
0
DEFINED IN
MODULE
1
C AND D NOTED IN TABLE ARE DEFINED
IN COMMENTS PRECEEDING THE ERDR
ROUTINE.
C AT IOFO D AT lOFl
s, E, AND A NOTED IN TABLE ARE DEFINED
IN TEXT PRECEEDING THE EPCH ROUTINE.
B AT lOF2, E AT lOF4, A AT lOF5
MODULE
2
DEFINED IN FE MAINTENANCE MANUAL
MODULE
3
DEFINED AT END OF THE
MODULE
4
WORKING AREA
MODULE
5
1052 TRANSLATE TABLE DEFINED AT END
OF THE DYPE ROUTINE.
MODULE
6
DEFINED AT END OF THE EPXF ROUTINE.
PUNCH TRANSLATE FOR 24K IN MODULE 8.
MOOULE
1
DEFINED AT END OF THE DPTR ROUTINE
FOR NO MCS FEATURE. PRINTER TRANSLATE
TABLE FOR 24K IN MODULE 9. peCL AND
BLOCK DATA CHK IN 7XOO OR 9XOO.
1
*-------------------*----------------------------*
E A
*
REAO ER~OR LOGOUT
*
*-------------------*----------------------------*---
AAAB
ROUTINE
F *C D B
o *
F
** 2
MPX UCWS
*
*
*
*------------------------------------------------*---
F
READER TRANSLATE TABLE
* 3
*
**------------------------------------------------*--*
0 * *
ERCX
ROUTINE.
0 * *
*
*
PUNCH C HE CK (4X OC-4 X84)
PFR READ (4XOO-4X9Fl
*
*
*------------------------------------------------*
ROW IMAGF (4XAO-5Xl1)
*
F *0 *
*
4
READE~
- - - - - - - - - - - - - - *------------------------------**
*-------------------* 5
*
READER READOUT (5X 18-5XBH
*
**-------------------- ----------------------------*
*
* 1052 TRANSLATE TABLE (5XB8-5XF5l
*
*-----------------------*
*
* PUNCH ERROR LOGOUT *
F *
*------------------------*-----------------------*--o*
*
PUNCH TRANSLATE TABLE
* 6
*
*
F *
*----------------------------------------~-------*--o *
*
PRINTER TRANSLATE TABLE
** 7
*
F ***************************************************
* AAAC *
360 MODE
LOCAL
STORAGE
IONES AND ASSIGNMENTS
CLOAD=*E60, EC lEVEl=128266
PAGE
*
5
AAAC
****************************************************************************************************************************
*
*
*
ZONE 0
**
lONE 1
**
lONE 4
**
lONE 5
**
ZONE 6
**
lONE 7
*
* AS/BS * NAME *
CPU
**
2311
**
BACK -UPS ** COMMUNICATIONS **
2540
**
CHANNEL
*
*
**
**
**
**
**
*
* FIELD *
****************************************************************************************************************************
*
*
*
**
*.
**
** READER ROW
**
*
* 1ST OPERAND
**
**
LEVEL 1
** lCW ADDR HIGH ** FORM
**
COUNT
*
* 0000 * UO
*-------*-------*
**
**
**----------------**
BUFFER
**----------------*
* 0001 * U1
*
STORAGE ADDR. **
**
BACK-UP
** LCW ADDR LOW
**
ADORE SS
**
COUNT
*
*-------*-------*-----------------**
**---------------**----------------**----------------**----------------*
* 0010 * VO
* 2ND OPERAND
**
**
LEVEL 2
** CHAR POINT HI ** PUNCH IMAGE
** DATA ADDRESS *
*-------*-------*
**
**
**----------------** BUFFER
**----------------*
* 0011 * VI
* STORAGE ADDR **
**
RACK-UP
** CHAR POINT LOW **
ADDRESS
** DATA ADDRESS *
*-------*-------*-----------------**
**---------------**----------------**----------------**----------------*
* 0100 * GO
*
OP CODE
**
**
LEVEL 3
** LCW
** PCH TRAP COUNT ** CHANNEL STATUS *
*-------*-------*-----------------**
**
**----------------**----------------**----------------*
* 0101 * Gl
* 2ND BVTE INST. **
**
BACK-UP
** LCW+1
** WORKING REG
** OP FLAG BYTE
*
*-------*-------*-----------------**
**---------------**----------------**----------------**----------------*
** MACHINE CHECK** LCW+2
** INDICATORS
** CHANNEL IDENT. *
* 0110 * DO
* DATA
**
*-_._----*-------*-----------------**
** .
**----------------**----------------**----------------*
* 0111 * 01
* HIGH 8 OF 24 RIT**
**
BACK-UP
** LCW+3
** RDR TRAP COUNT **
NOTE 1
*
*-------*-------* 2ND OPERAND ADDR**
**---------------**----------------**----------------**----------------*
****************************************************** lONE 4 THRU 1 **
******************************************************---------------**
* 1000 * Ie
* INST CTR HIGH ** CCW COUNT HIGH ** CPU RAL
**.
NOTE 1-- FOR BURST CHANNEL, THIS
*-------*-------*-----------------**----------------**
** •
REGISTER CONTAINS THE
* 1001 * 11
* INST CTR LOW
** CCW COUNT LOW **
BACK-UP
** •
UNIT
ADDRESS.
*-------*-------*-----------------**----------------**---------------**
•
* 1010 * TO *
** DATA ADDR HIGH **
SPARE
**
•
FOR BYTE CHANNEL, THIS
*-------*-------*-----------------**----------------**---------------**
•
CONTAINS THE
REGISTER
* 1011 * Tl
* GP REG AODRfSS ** DATA ADDR LOW **
SPARE
**
•
THIS
AREA
OF
UCW
ADORfSS.
*-------*-------*-------------~---**----------------**---------------**
• ••
ZONE 4 IS
* 1100 * PO
* CONDITION CODE ** GEN. PURPOSE
** LEVEL 1
**
•
COMMON
TO ZONES
*-------*-------*-----------------**----------------**
**
•
5,6,
AND
7.
* 1101 * PI
• PROG MASK, AMWP ** GEN. PURPOSE
** WOR1.JTER 1 LOW IN - DIAGNOSTIC
RE AD 0 IR EC T ENABLE
STAR T STOP/SYNC
DATA IN
DATA OUT
DISK ATT ACHMENT ST ATUS IN
01 AGNOST I C REG
DIAGNOSTIC REG
01 AL IN
f) I AL OUT
DIAGNOSTIC REGISTER
DISK STATUS
DYNAMIC CONDITION REGISTER
FILE BUS IN
FILE I3US OUT
FILE 1400 EMUlAT OR BUS OUT
FILE FLAGS IN
FILE FLAGS OUT
FlU: GATEO ATTENTION
FILE I NF ORMAT I O'J
FILE INFI]RMATION
FILE I NF Of<, MA T ION
FILE OUT BUS-DIAGNOSTIC
FILE OP REGISTER
CHANNFL SIGNALS
CHANNfl SIGNALS
CHANN'.:L BUS IN
CHANNEL BUS OUT
CHANNEL SIGNALS
CHANNfL OIAGNOSTIC REGISTER
CHA'\INEL BRANCH CONDITIONS
GFNERAl STATUS
CHANNEL ~RANCH CONDITIONS
DIRFCT CONTROl-2 TIMING
DIRECT CONTROL IN
DIRECT CONTROL-l
LINE ADAPTER CONDITIONS
lINE ADAPTER OIAG REGISTER
LINE AODRESS IN
LI '~r:: ADDRESS OUT
LINE ADAPTER S TA TUS
All MODES
CPU MO DE
ALL MODES
COMM MODE
COMM MODE
2311 MODE
2311 MOOE
CPU MODE
COMM MODE
COMM MODE
COMM MODE
2311 MODE
2311 MODE
2311 MODE
COMM MODE
cm-1M MODE
All MODES
2311 MODE
All MODE S
2311 MOOE
2311 MODE
2311 MODE
2311 MODE
2311 MODE
2311 MODE
2311 MODE
2311 MODE
2311 MODE
2311 MODE
2311 MODE
CHAN MODE
CHAN MODE
CHAN MODE
CHAN MODE
CHAN MODE
CHAN MODE
CHAN MODE
COMM MODE
CHAN MODE
CPU MODE
CPU MODE
CPU MODE
COMM MODE
COMM MODE
COMM MODE
COMM MODE
COMM MODE
EXT TO CPU
EXT TO CPU
YES
YES
SWITCH
C
CLOAD=*E60, EC lEVEl=128266
SWITCH
ACCESSED BY
SET/RESET
D
WORD ONLY
1
F
CPU
YES
CPU TO EXT
YES
EXT TO CPU
EXT TO CPU
YES
YES
2311
2311
8
9
YES
YES
EXT TO CPU
CPU TO EXT
EXT TO CPU
YES
COMM
A
YES
2311
5
YES
YES
EX T TO CPU
CPU TO EXT
EXT TO CPU
EXT
CPU
CPU
EXT
CPU
EXT
TO
TO
T(1
TO
TO
TO
CPU
EXT
EXT
CPU
EXT
CPU
YES
COMM
E
YES
YES
YES
YES
CPU
C
2311
E
4
2311
1
YES
2311
f)
YES
2311
C
NOTE 1
YES
YES
yES
EXT TO CPU
YFS
YES
2311
2311
3
F
yES
YES
EXT TO CPU
CPU TO EXT
YES
CHNL
F
TO
TO
TO
TO
TO
TO
TO
TO
TO
TO
TO
TO
YES
YES
YES
YES
CHNL
CHNl
COMM
CHNL
E
YES
CPU
YES
COMM
C
YES
COMM
B
YES
COMM
0
YES
EXT
EXT
EXT
EX T
CPU
EX T
CPU
EXT
CPU
EXT
CPU
EX T
CPU
CPU
CPU
CPU
EXT
CPU
EXT
CPU
EXT
CPU
'::XT
CPU
C
F
D
8
PAGE
*
6
AAAD
*
EXTERNAL
t.1NFMON Ie
MC
MMSK
MODE
MS
MW
P
PARCK
PCCL
PO
PR
PRA
PRB
PRe
PRD
PRJ
ORO
PRS
PRT
PS
R
RP
RP1
RP2
RPD
RP01
RPD2
RPS
RS
S
SOl
SM
STPO
STPl
SWAB
SWCD
TA
TC
TO
TE
TGRI
TGRO
TJ
TIM
TR
TT
TU
XINT
DISPLAYABLE
FACILITY
DEFINITION
ERR(lR REGISTER
CPU MODE EXT
MICROPROGRAM MASK REGISTER
ALL MODES
MODE RFG (LS AND EXT ADDR CTRL) ALL MODES
MODULE SELECT REGISTER
2311 MODE CPU
MACH CHK, WAtT STATF LATCHES CPU MODE CPU
PUNCH SIGNALS
2540 MODE
COMMUNICATIONS PARITY CHECK
COMM MODE CP U
PRINT CH4R COUNT ER LENGTH
1403 MODE CPU
PUNCH DATA OUT (READER)
2540 MODE CPU
1403 PLBAR DATA OUT
1403 MOOE CPU
PI<. INTER SIGNALS
1403 MODE
PRINTER SIGNALS
1403 MODE
14C3 CAR RI AGE OA TA OUT
1403 MODE CPU
1403 DIAGNOSTIC CONDITIONS
1403 MOOE EXT
1403 PLB DATA IN
1403 MODE EXT
14C3 Pl£l. DATA OUT
1403 MODE CP U
SEMSE/STATUS CONDITIONS
1403 MODE EXT
PLRAR DATA IN
1403 MODE FXT
PUNCH BRANCH CONDITIONS
2540 MODE EXT
RE AO ER SIGNALS
2540 MODE
2540 SIGNALS
2540 MODE
READER/PUNCH DATA IN 1
2540 MODE EXT
REAOER/PUNCH DAT A IN ?
2540 MODE EXT
1'540 SIGNALS DIAG
2540 MODE
DIAGNOSTIC R/P CaNOl T ION S 1
2540 t.10DE EXT
DIAGNOSTIC R/P CONDITIONS 2
2540 MODE EX T
READER/PUNCH BR CONDITIONS
2540 MODE EXT
REAl") FR BRANCH CONDITIONS
2540 MOD E EXT
STATIJS REGISTER
ALL MODE S
SERIALIZER/OESERIALIlER IN OIAG 2311 MODE EX T
SYSTEM M,ASK
CPU MODE CPU
STOR AGE PR'OTECT KEY
ALL MODE S
STORAGE PROTECT STACK
ALL MODE S (NOT
CONSOLE ADDRESS SWITCHES A-B
CPU MODE EXT
CONSOL E ADDRESS SWITCHES C-D
CPU MODE EXT
1052 SIGNA LS
1052 MODE
TERMINATING CONDITIONS
2311 MODE EX T
PRKB DIAGNOSTIC REGISTER
1052 MODE EX T
PRKB OAT A OUT
1052 MODE CPU
TAG REGISTFR IN
2311 MODE EX T
TAG REG 1 STEROUT
2311 MODE CPU
1052 OAT A IN
1052 MODE EXT
TIMER COUNT
CPU MODE EXT
1052 TIL T/ ROT ATE REGISTER
1052 MODE EX T
PRKB BRANCH CONDfTIONS
1052 MODE EXT
PRKB R~hNCH CONDITIONS
1052 MODE EX T
FXTE RN AL INTERRUPT
CPU MODE EXT
TO CPU
YES
YES (0-7)
SWITCH
C
CPU
CLOAD=*E60, EC LEVEL=128266
S WI TC H
ACCESSED BY
D
SET/RESET
WORD ONLY
E
6
NOTE 2
NOTE 3
TO EXT
TO EXT
YES
TO
TO
TO
TO
EXT
EXT
EXT
EXT
YES
YES
TO
TO
TO
TO
TO
TO
TO
EXT
CPU
CPU
EXT
CPU
CPU
CPU
YES
YES
1403
1403
F
YES
YES
YES
1403
1403
2540
E
A
F
B
YES
YES
TO CPt)
TO CPU
YES
YES
2540
2540
TO
TO
TO
TO
YES
YES
YES
YES
YES
YES
2540
2540
2540
2540
NOT 2311
2311
B
A
YES
CPU
CPU
CPU
CPU
TO CPU
TO EXT
2311)
TO CPU
TO CPU
YES
YES
8
q
E
D
5
B
SEE NOTE
SEE NOTE
NOTE
5
5
YES
TO
TO
TO
TO
TO
TO
TO
TO
TO
TO
TO
CPU
CPU
EXT
CPU
EXT
CPU
CPU
CPU
CPU
CPU
CPU
YES
YES
2311
PRKB
A
D
YES
2311
0
YES
YES
YES
YES
YES
YES
PRKB
CPU
PRKB
PRKB
PRKB
CPU
A
A
B
E
F
9
4
PAGE
*
7
AAAD
*
CLOAD=*E60, EC LEVEL=128266
NOTE 1
THE OR REGISTER IS SET
WORD. EXECUTION OF A
~ETURN WORD. WITH
OR
THE DIAGNOSTIC BRANCH
NOTE 2
THE MMSK REGISTER 0-9 IS SET OR RESET
BY THE SET/RESET WORD.
FOR OTHER WORD ACCESSES AND DISPLAY,
ONLY BITS 0-7 CAN BE ADDRESSED.
NOTE 3
THE MODE REGISTER IS SET BY THE
SLT/RESET WORD. THE ACTUAL BIT
STRUCTURE OF THE MODE REGISTER IS NOT
ALWAYS WHAT IS DISPLAYED IN THE CONSOLE
INDIC4TORS LABELED MODE/ZONE REG. THE
MODE 8IT DECaDE IS DISPLAYED IN BITS 2,
3,4, AND THE LS lONE BIT DECODE IS
DISPL4YED IN BITS 5,6,AND 7. THESE COULD
BE THE FORCED DECODES CAUSED BY AN MMSK
BIT BEING SET.
** REFER TO DIAGRAMS 4-14 AND 4-32
I~ THE
-FEMDM- FOR DISPLAY DETAILS.
NOTE
4
BY THE SET/RESET
BRANCH WORD OR A
BtT 7 ON. SETS
L4TCH.
THE S-REGISTER IS seT OR RESET BY THE
SET/RESET WORn. IT CAN ALSO BE ACCESSED
BY A BRANCH WORD.
BITS 0-6 CAN BE DISPLAYED DIRECTLY BUT
BIT 7 OF THE DISPLAY INDICATES THE STATUS
OF THE S7 BRA~CH CONDITION LINE. TO
DISPLAY THE ACTUAL CONDITION OF THE S7
LATCH, THE SA FACILITY MUST BE DISPLAYED
AND BIT 0 WILL INDICATE THE S1 LATCH
STATUS.
NOTE 5
PAGE
*
8
AAAD
TO DISPLAY STP1 FOR MPX OPERATION-I. SET CONSOLE SWITCHES A,B,C, AND D TO
THE AUXILIARY STORAGE ADDRESS OF THE
MPX UCW ASSOCIATED WITH THE I/O DEVICE.
2. SET MODE SWITCH TO AS DATA.
3. PRESS AND RELEASE THE DISPLAY KEY.
(M-REG SET TO ADDRESS IN Sw,S ABCD).
4. SET MODE SWITCH TO ALU/EXT.
5. SET CONSOLE SWITCHES C.D TO 03.
6. PRESS AND HOLD THE DISPLAY KEY.
THE ASSOCIATED 1/0 PROTECT KEY IS
DISPLAYED IN THE BYTE 1 INDICATORS.
TO DISPLAY STPI FOR SELECTOR CHANNEL KEY
1. SET CONSOLE SWITCHES A.B,C, AND 0 TO
AUX ADDRESS XX88. THE REST OF THE
DISPLAY PROCEEDURE IS THE SAME AS THE
MPX STP1.
TO DISPLAY STPl FOR CPU STORAGE KEY
1. SET CONSOLE SWITCHES A,B,C, AND 0 TO
A MAIN STORAGE ADDRESS ASSOCIATED WITH
A PARTICULAR STORAGE KEY.
2. SET MODE SWITCH TO MS DATA.
THE REST
OF THE DISPLAY PROCEEDURE IS THE SAME
AS THE MPX STPI.
TO
NOT
I.
2.
3.
DISPLAY THE FILE STORAGE KEY (WHICH [S
IN THE STPl STACK) 00 THE FOLLOWING-SET SWITCHES C,D TO 12.
SET MODE SWITCH TO ALU/EXT.
PRESS AND HOLD THE DISPLAY KEY.
THE FILE KEY IS DISPLAYED IN THE
BYTE 1 INDICATORS.
TO Of SPLAY STPO
1. seT SWITCH C TO MODE DESIRED-C=O=CPU MODE (Q REG)
C=1=2311 MODE (fQ REG)
C=5=COMM MODE (HQ REG)
C=7=CHAN MODE (GQ REG)
2. SET SWITCH D TO 2.
3. SET MODE SWITCH TO AlU/EXT.
4. PRESS AND HOLD THE DISPLAY KEY.
*
CLOAD=*E60, EC LEVEL=128266 PAGE
9
*********************************************************************************************************************************
* WORD
*
*
K
*
*
*
*
*
*
* HlGH *
SET/RST SOURCE FIELD
* R SOURCE OR K LOW FIELD
*
K HIGH FIELD
*
*
* TYPF
*********************************************************************************************************************************
* C
1 *
2
*
3
*
4
5
6
7
*
8
9
10
11
*
12
13
14
* 15 *
*********************************************************************************************************************************
*
*
*
*
*
*
*
*
* 0
0 * O=PST * K HIGH *
0000= S REGISTER
ALL MODES * WHEN MMSK ADDRESSED FOR A LINK *
* a
*
*
* l=SET * 0 BIT *
0010= MMSK REGISTER ALL MODES * OR RETURN FUNCTION, THE
* 1 BIT
2 BIT
3 BIT *
*
0100= MODE REGISTER ALL MODES * B SOURCE DECODES ARE FOR
*
*
*
*
*
*
*
*
*
*
*
0110= BC FACILITY
ALL MODES *
LOCAL STORAGE
*
*
*
*
1000= OR REGI STER
ALL MODES *
*
*
*
*
0000= U R~.GI STER
*
*
*
* 1001= RPD
FACILITY 2540 MODE *
0010= V REGISTER
*
*
0001= DIAB ~ACILITY 2311 MODE *
0100= G REGISTER
*
*
*
*
* 1011= R
FACILITY 2540 MODE *
0110= 0 REGISTER
*
*
FACILITY CHNL MODE *
1000= I REGISTER
*
*
* 1011= GA
*
* 0011= DTAC FACILITY 2311 MODE *
1010= T REGISTER
*
*
*
* 1101= PRA
FACILITY 1403 MODE *
1100= P REGISTER
*
*
*
* 1101= FtA FACILITY 2311 MODE *
1110= H REGISTER
* *
*
* 1101= RP
FACILITY 2'540 MODE *
*
*
*
* 1101= CSETF FACILITY COMM MODF * WHEN USED AS THE K FIELD
*
*
*
* 1101= GB
FACILITY CHNL MODE *
*
*
*
* 1110= FIB
FACILITY 2311 MODE * BIT 8 = K LOW BIT 0
*
*
*
* 1111= CPF FACILITY CPU MODE * BIT 9 = K LOW BIT 1
*
*
*
* 1111= PRB
fACILITY 1403 MODE * AIT 10= K LOW BIT 2
*
*
*
* 1111= TA
FACILITY 1052 MODE * BIT 11= K LOW BIT 3
*
*
*
* 1111= FIC
FACILITY 2311 MODE *
*
*
*
+: 1111= P
FACILITY 2540 MODE *
*
*
*
* 1111= CCTRL FACILITY COMM MODE *
*
*
* 1111= GC
FACILITY CHNL ~ODE *
*
*
*
*
*
*
*
*
*
*
*
*
WHEN THE MMSK REGISTER IS ADDRESSED BY THE SET/RST SOURCE FIELD, CONTROL
*
*
WORD
RIT 11:0 INDICATES A LINK OR RETURN FUNCTION, 8IT 11=1 INDICATES NO
*
*
LINK OR RETURN FUNCTION.
*
*
*
*
*********************************************************************************************************************************
*
*
*
*
*
~IT
*
*
SIGNIFICANCE CHART FOR THE SET/Rsr WORD (WORD TYPE 0)
CLOAD-=*E60, EC LEYEL-=128266 PAGE 10
*********************************************************************************************************************************
FUNCTION
*
* WORD *
* FUNCTION
*
*
* WORD
K
TYPE
FI
ELO
FIELD
DECODE
DECODE
A-SOURCE
*
*
*
*
* TYPE *
*
*********************************************************************************************************************************
4
7
9
13
14
5
6
8
10
12
1 *
2
3
11
*
*
* "15 *
* 0
*
*********************************************************************************************************************************
*
*
*
*
*
*
*
0
0000 = UO
0000
0
0
000 - Z=A + KL
1 *
* 0
*
*
*
*
*'
0001
0
JOOI = U1
001 - Z=A,A-,KL
a
*
*
*
*
*
*
*
Z=A,A-,KH
0010
VO
0010
010
0
0
-=
*
*
*
*
*
*
*
0
JOll = VI
0011
011 - ·Z-=A ,A-, KK
0
*
*
*
*
*
*
*'
0100
100
Z=A + KH
0100 = GO
0
0
*
*
*
*
*
*
*
0
0101
0
0101 -= G1
101 - Z=A,OE,KL
*
*
*
*
*
*
*
l=A,OE,KH
0
0
0110
DO
0110
110
-=
*
*
*
*
*
*
*
0111
0
0
0111 -= 01
III - Z-=A,OE,KK
*
*
*
*
*
*
*
1000 -= [0
1000
*----~-----------*
*-------------------------*
*
*
*
0
1001
000
1001
1
t
1
-=
*
*
*
*
*
*
*
TO
1010
A=A,A-,KL
0
001
1010
1
=
*
*
*
*
*
*
**
1011 -= T1
0
1011
010 - A-=A,A-,KH
1
*
*
*
*
*
*
0
A-=A,A-,KK
1
1100 -= PO
110e
011
*
*
*
*
*
*
*
(I
PI
100
1
1101
1101
=
*
*
*
*
*
*
*
A=A,OE,KL
1110
1110 = HO
0
1
101
*
*
*
*
*
*
*
1
1111 -= HI
110 - A=A,OE,KH
1111
0
*
*
*
*
*
*
*
A=A,OE,KK
111
0
1
*
*
*
*
*
*
*
*----------------*
*-------------------------*
*
*
Kl
0
000 - A=O
1
*
*
*
*
*
0
001 - A=O,OR,Kl
1
*
*
*
**
*
* 1
A=O,OR,KH
010
0
*
*
*
*
*
*
011 - A==O,OR,KK
1
0
*
*
*
*
*
**
A
THE
FUNC
TI
ON
DECODE
IS
100
0
1
*
*
*
*
*
COM BINA TI ON OF CONTROL WORD
101 - A=A + KL
0
1
*
*
*
*
*
*
2,
3,
12,
13,
AND
14.
110
A=A
+ KH
0
BITS
1
*
*
*
*
*
**
111 - A=A + KK
1
0
*
*
*
*
*
*----------------*
*-------------------------*
*
*
THE -A- SYMBOL IN THE
000
1
1
*
*
*
*
*
*
A-=A,OR,KL
FORMULAS UNDER COLUMNS 12, 13,
1
1
001
*
*
*
*
*
*
QF
A-=A,OR,KH
AND
ANY
THE
LOCAL
14
CAN
BE
010
1
1
*
*
*
*
*
**
A-=A,OR,KK
STORAGE BYTE SOURCES l [ST ED
011
1
1
*
*
*
*
*
UNDER THE A-SOURCE FI El D.
100 - A=O
KH
1
1
*
*
*
*
*
*
Kl
101
1
1
A-=A
*
*
*
*
*
**
110
1
A=A - KH
1
*
*
*
*
*
A-=A - KK
111
1
1
*
*
*
*
*
*
*********************************************************************************************************************************
-
-
-
-
-
--
BIT
SIGNIFICANCE CHART FOR THE ARITH CONSTANT WORD
(WORD TYPE 1)
-
BIT
BITS
11
2,3
0
01
01
11
1
0
1
11
MEANING
READ AUXILIARY
READ PROGRAM
STORE AUXILIARY
STORE PROGRAM
FOR DIRECT ADDRESSING
'*
**
*
**
*
*
*
*
BITS
V AuiE
2,3
00
01
1(,
11
+ OR + OR + OR -
2
2
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
***'******************************************************************************************************************************
SIGNIFICANCE CHART fOR THE STORAGE WORD
(WORD TYPE 2)
·
CLOAD=*E60, EC lEVEL:128266 PAGE 12
*********************************************************************************************************************************
* WORD
* FUNCT rON
*
*
*
FUNCTION
* WORD *
* TYPE
*
DECODE
*
A SOURCE FIELD
*
B SOURCE FIELD
*
OECOOE
* TYPE *
***************************************************************************************************.*****************************
* 0
1 *
2
3
*
4
5
6
7
*
8
9
10
11
*
12
13
14
* 15 *
*********************************************************************************************************************************
**
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
0
1
**
**
0
0
*
a
o.
*
0
0
*
*
0
0
*
0
0
*
*
*
0
0
*
C
0
*
*
*
0
0
*
*----------------*
*
0
1
*
*
0
1
*
*
a
1
*
*
~
1
*
*
0
1
*
*
0
1
*
* C
1
*
*
0
1
*
*----------------*
*
1
0
*
*
1
a
*
*
1
0
*
* 1
0
*
1
0
*
*
1
o.
* 1
0
*
*
1
0
'"
*----------------*
*
1
1
*
*
1
1
*
*
1
1
*
*
*
1
1
*
0000
0001
0010
0011
0100
C101
0110
0111
1000
1001
1010
1011
1100
1101
1110
1111
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
UO
U1
VO
VI
GO
Gl
DO
01
10
11
TO
Tl
PO
PI
HO
HI
**
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
0000
0001
0010
0011
0100
0101
0110
0111
1000
1001
1010
1011
1100
1101
1110
1111
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
Uo
Ul
VO
VI
GO
Gl
DO
01
10
11
TO
Tl
PO
PI
HO
HI
THE FUNCTION DECODE IS A COMBINATION OF CONTROL WORD
BITS 2,3,12,13, AND 14.
IF THE
ADDRESSES
IF THE
ADDRESSES
THE
TO ANY
THE
TO ANY
FUNCTION DECODE IS EQUAL TO
AN EXTERNAL FACILITY.
FUNCTION DECODE IS EQUAL TO
AN EXTERNAL FACILITY.
SYMBOL
OF THE
SYMBOL
OF THE
00111,
01111,
-A- USED IN THE FUNCTION DECODE
LOCAL STORAGE SYMBOLS UNDER THE
-B- USED IN THE FUNCTION DECODE
LOCAL STORAGE SY~BOLS UNDER THE
*
**
000
*
*
001 - B=AXH + Bl
*
*
010 - B=AXL,OR,BH
*
*
011
*
*
100 - B=A + B
*
*
101 - B=AH + Bl
*
*
110 - B=AL + BH
*
*
111 - EXT=B
*
*-------------------------*
*
000 - B=AX
*
* 001 B=AXH
*
*
010
B=AXl
*
*
011
B=O (STOP)
*
*
100
B=A
*
*
101
B=AH
*
*
110 - B=AL
*
*
111
B=E XT
*
*-------------------------*
*
000 - A=A,OE,B
*
*
001
A=A + B
*
*
010
A=A,OR,B
*
THE A-SOURCE FIELD *
011
A=A,A,B
*
*
100
AC=A + B+l
*
THE A-SOURCE FIELD *
1Cl
AC=A + B
*
*
110
AC=A + B+C
*
*
111
AC= AL + B+C
*
FORMULAS, REFERS
*-------------------------*
A-SOURCE FIELD.
*
000 - A=A - B+1
*
FORMULAS, REFERS
*
001 - A=A - B
*
B-SOURCE FIELD.
*
010
*
*
ell
*
1
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
1
1
*
THE SYMBOL -C- REFERS TO THE ADDER CARRY (S3 LATCH)
*
100 - AC=A - B+C
*
*
*
1
1
*
*
101 - AC= 0 - B+C
*
*
*
*
*
1
1
*
THE SYMBOL -~- REFERS TO A BINARY +- OPERATION UNDER SO CTRL. *
110 - A=A % B+C
*
*
1
1
*
THE SYMBOL -@- REFERS TO A DECIMAL +- OPERATION UNDER SO CTRL.*
111 - AC=A @ B+C
*
*
*
*********************************************************************************************************************************
*
BIT
SIGNIFICANCE CHART FOR THE
~OVE/ARITHMETIC
WORD
(WORD TYPE
3)
-
CLOAD=*E60, EC LEVEL=128266
PAGE
13
************************************************~********************************************************************************
*
**
WORD
*
**
*
TYPE
* REPLACEMENT BITS FOR THE MO-REGISTER
REPLACEMENT BITS FOR THE H1-REGISTER
*
*
*********************************************************************************************************************************
* 0
1 *
2
3
4
~
6
1
*
8
9
10
11
12
13
14
* 15 *
*********************************************************************************************************************************
lie
*
*
*
*
BITS 2 THRU 1 OF THIS CONTROL WORD CONTAIN
*
BITS 8 THRU 14 CONTAIN THE VALUES THAT ARE GATED TO
0
0
*
*
*
* 1
TYE
VALUES
THAT
ARE
GATED
TO
BITS
2
THRU
1
OF
*
BITS
0
THRU
6
OF
THE
M1-REGISTER
WHEN
THIS
WORD
IS
*
*
*
*
THE MO-REGISTER WHEN THIS WORD IS EXECUTED.
* EXECUTED.
*
*
*
*
*
*
*
*
WHEN THIS WORD IS GATED INTO THE CONTROL
**
*
*
*
*
REGiSTER, BIT 5 OF THE CONTROL REGISTER IS
*
*
*
*
*
FORCED TO A 1. THE REPLACEMENT VALUE FOR THE
*
*
*
*
*
MO-REGISTER
BIT
5
POSITION
IS
GATED
FROM
THE
*
*
*
*
*
STORAGE DATA BUS BIT 5 POSITION.
*
*
*
*
*
*
*
*
*
*
*
*
*
*
WHEN THIS WORD IS EXECUTED? THE ADDRESS
OF THE NEXT SEQUENTIAL
*
*
*
*
*
CONTROL WORD IS STORED IN THE I-REGISTER OF LOCAL STORAGE lONE 4.
*
*
*
*********************************************************************************************************************************
*
BIT
SIGNIFICANCE CHAR FOR THE BRANCH UNCONDITIONAL WORD
(WORD TYPE 4)
CLOAD=*E60, EC LEVEL=128266 PAGE 14
********************************************************************************************************************************.
* WORD
*
BRANCH
*
*
* REPLACEMENT BITS FOR * REPLACEMENT BITS FOR
* WORD *
* TYPE
*
CONTROL
*
A SOURCE FIELD
*
*
MI-REGISTER
*
MO-REGISTER.
* TYPE *
*********************************************************************************************************************************
* a
1 *
2
3
*
4
5
6
7
*
8
*
q
10
11
*
12
13
14
* 15 *
*********************************************************************************************************************************
*
*
*
*
* BIT q CONTAINS THE
*
BITS 12, 13, AND 14 *
*
* 1
0
* 00= 4 WAY BR. *
BIT 5=0 MEANS STRAIGHT * O=LS
* REPLACEMENT VALUE FOR * CONTAIN THE REPLACEMENT* 1
*
* 01= 8 WAY BR *
A-RE~ GATING.
* l=EXT
BIT 1 OF THE
* VALUES FOR BITS 5, 6, *
*
*
* 10= 2 WAY BR *
BIT 5=1 MEANS CROSS
*
* M1-REGISTER.
AND 7 OF THE MO REG.
*
*
*
(A
SOURCE
*
A-REG
OUTPUT
*
*
*
*
*
*
**
NOT ZERO) *
-------------------.--------- *
* BIT 10 CONTAINS THE *
*
*
*
WHEN THIS CONTROL WORD IS READ *
* REPLACEMENT VALUE FOR *
*
* 11= 16 WAY BR
*
INTO
THE
CONTROL
REGI
STER,
BI
T
5
*
* BIT 2 OF THE HI
*
*
*
* IS FORCED TO 1. THlS RESTRICTS *
* REGISTER.
*
*
*
*
* THE FACILITIES THAT CAN BE
*
*
*
*
*
*
* BIT 11 CONTAINS THE
* ADDRESSED BY THE A-SOURCE FIELD *
*
*
TO THOSE THAT HAVE AT LEAST BIT *
* REPLACEMENT VALUE FOR *
*
**
* 5=1 IN THEIR A-SOURCE DECODES.
*
* BIT 0 OF THE HI
*
*
*
BECAUSE BIT 5 IS FORCED IN THE *
* REGISTER
*
*
*
* CONTROL REGISTER, THE TRUE STATUS*
*
*
*
* OF BIT 5 IS TAKEN FROM THE
*
*
*
STORAGE DATA BUS OUT, FOR A-REG ~
*
*
*
* GATING.
*
*
*
*
*
*
* EITHER DECODE
*
LOCAL
*
*
*
STORAGE
* IN CONTROL
*
*
* STORAGE.
REGISTER
*
*
*
*
*
* 0000 OR 0100
GO
*
*
Gl
* 0001 OR 0101
*
*
*
*DO
* 0010 OR 0110
*
01
00 11 0 R 0 1 11
*
**
lie
PO
* 1000 0 R 11 00
lie
PI
* 100 lOR 1101
*
HO
1010 OR 1110
*
*
*HI
* 1011 OR 1111
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
**
*
*
**
**
*
EXTERNAL FACILITIES HAVE THE
*
* SAME ADDRESSING RESTRICTIONS. *
*
*
**********************************************************************************************************************************
*
*
*
BIT
SIGNIfiCANCE CHART FOR BRANCH ON MASK WORD
(WORD TYPE 5)
,
CLOAD=*E60, EC lEVEl=128266 PAGE 15
*********************************************************************************************************************************
*
WORO
**
1
*
BIT
*
*
*
*
WORD
*
* TVPE
*
CONTPOL
*
A-SOURCE FIELD
*
*
REPLACEMENT BITS FOR THE HI-REGISTER
* TYPE *
*********************************************************************************************************************************
* C
1 *
2
3
~
4
5
6
7
*
8
*
9
10
11
12
13
14
* 15 *
*********************************************************************************************************************************
*
*
**
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
1
**
**
00= ~IT 0 OR
Cl= RIT 1 OR
10= BIT 2 OR
* 11= BI T 1 OR
)I(
*
4 *
5 *
6 *
7 *
*
'"
>II:
*
*
*
*
'"
'"
'"
*
*
*
**
*
*
*
*
'*"
*
*
*
)I(
*
*
*
*
1(~
*
*
*
BIT 5=0 MEANS STRAI GHT
A-REG GAT ING.
BIT 5=1 MEANS CROSS
A-REG OUTPUT.
---------------------------WHEI\J THI S CONTROL WORD IS READ
*
*
*
*
*
O=LS
l=EXT
**
*
*
*
BITS 9--14 CONTAIN THE REPLACEMENT VALUES
FOR BITS 1--6 OF THE MI-REGISTER.
**
**
0
* TEST *
* FOR *
*
0
*
*------*
* 1
*
* T EST *
* FOR *
* 1
*
*------*
*
*
I NT 0 THE CON TRO l REG 1ST ER , BIT 5 *
IS FORCED TO 1. THIS RESTRICTS *
THE FAC [LITIES THAT CAN BE
*
ADDRESSED BY THE A-SOURCE FIELD *
TO THOSE THAT HAVE AT LEAST BIT *
5=1 IN THEIR A-SOURCE DECODES.
*
BECAUSE BIT 5 IS FORCED IN THE *
CONTROL REGISTER, THE TRUE STATUS*
OF BIT 5 IS TAKEN FROM THE
*
STORAGE DATA BUS OUT, FOR A-REG *
GATING.
*
*EITHER OECODE
LOCAL
*
STORAGE
IN CONTROL
*
REGI STER
STORAGE
*
*
0000 OR 0100
GO
*
Gl
0001 OR 0101
*
DO
0010 OR 0110
01
0011 OR 0111
*
PO
1000 OR 1100
*
PI
1001 OR 1101
*
HO
1010 OR 1110
*
lie
HI
1011 OR 1111
*
EXTERNAL FACILITIES HAVE THE *
SAME ADDRESSING RESTRICTIONS.
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
'"
*
*
*
*
**
*
'*"
****~,******************************************************************************************************************************
BIT
SIGNIFICANCE CHART FOR BRANCH ON CONDITION WORD
(WORD TVPE 6 OR 7»
MPT F NO.
EC lEVEL AFFECTED
MICROPROGRAM TEMPORARY FIX RECORD
PICKUP EC
ClOAD=*E60, EC lEVEl=128266
PAGE
16
RETEST PR.OCEDURE
PROBLEM DEFIFITION
*-----------------------------------------------------------------------------------------------------------------------------AODR * WORD * LABlE * BR
* STATEMENT
* COMMENTS
* SEQUENCE
*
*
*
*
*
*
*------*------*--------*-------*---------------------------*---------------------------------------------------*-------------*
*
*
*
*
*
*
*
*
*------*------*--------*-------*---------------------------*---------------------------------------------------*-------------*
*
*
*
*
*
*
*
*------*------*--------*-------*---------------------------*---------------------------------------------------*-------------*
*
*
*
*
*
*
*
*
*------lIe------*--------*-------*---------------------------*---------------------------------------------------*-------------*
*
*
*
*
lIe------lIe------*--------*-------*---------------------------*-----------.----------------------------------------*-------------*
*
*
*
*
*
*
*
*------*------*--------*-------*---------------------------*---------------_._----------------------------------*-------------*
*
*
*'
*
*
*
*
*
*------*------*--------*-------*---------------------------*---------------------------------------------------*-------------*
**------*------*--------*-------*---------------------------*---------------------------------------------------*-------------*
*
*
*
*
*
*
*
**------*------*--------*-------*---------------------------*--------------------------------~------------------*-------------*
*
*
*
*
*
*
*
*LABlE
lie
lie
lie
lie
:oX
lie
*
*
*
lie
*
*
lie
*
*------*------*--------*-------*---------------------------*---------------------------------------------------*-------------*
ORIGINAL
SUM
NEW CHECK SUM
CH~CK
NO. OF STOP WORDS REMOVED
RQUT.SEQ.*ORIG.WORD
WORDS OVERLAYED BY PATCH
ROUT.SEQ.*ORIG.WORD
*
---------lIe---------
*
---------lIe---------
*
---------*--------*
---------*---------
*
---------*-----------------*--------lie
ROUT.SEQ.*ORIG.WORD
*
---------*--------*
---------*--------*
---------*---------
MPTF NO.
RETEST PROCEDURE
EC LEVEL AFFECTED
MICROPROGRAM TEMPORARY FIX RECORD
PICKUP EC
CLOAD=*E60, EC lEVEL=128266
PAGE
11
--------------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------------------------------~---
PROBLEM DEFIFITION
*------------------------~---------------------------- --.----------------------------------------------------------------------COMMENTS
* BR * STATEMENT
* SEQUENCE NO.*
* ADDR ** WOR.D ** LABLE *LABLE
*
*
*
*
*
*------*------*--------*-------*---------------------------*---------------------------------------------------*-------------*
*
*
*
*
*
*
**------*------*--------*-------*---------------------------*---------------------------------------------------*-------------*
*
**------*------*--------*-------*---------------------------*---------------------------------------------------*-------------*
*
*
*
*
*
*
*
*
*
'"
*
*
*
*
*
*------*------*--------*-------*---------------------------*---------------------------------------------------*-------------*
'"
*
*
*
*
*
**------*------*--------*-------*---------------------------*---------------------------------------------------*-------------*
*
*
*
*
*
*
*
**------*------*-----_._-*-------*---------------------------*----------------------------------_._---------------*-------------*
*
**------*--_._--*--------*-------*-----------_._--------------*--------------------_._-----------------_._----------*-------------*
*
*
*
*
*
*
*
*
**------*------*_._------*._------*---------_._----------------*----------_._-----------------------------------_._--*-----_._------*
*
*
*
*
*
* ______ *________ *_______ *_____________________.______ *___________________________________________________ *_________.___ *
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*------*------*--------*-------*-------_._--_._--------------*-------_._--------------------------------_._--------*-------------*
liIc ______
ORIGINAL CHfCK SUM
NEW CHECK SUM
NO. OF STOP WORDS REMOVED
ROUT.SEQ.*ORIG.WORO
*
---------*--------*
---------*--------*
---------*---------
WORDS OVERLAYED BY PATCH
ROUT.SEQ.*ORIG.WORD
*
---------*--------*
---------*--------*
---------*---------
ROUT.SEQ.*ORIG.WORO
*
---------*---------
*
---------*--------*
---------*---------
MPTF NO.
RETEST PROCEOURE
EC LEVEL AFFECTED
MICROPROGRAM TEMPORARY FIX RECORD
PICKUP EC
CLOAD=*E6Q, EC LEVEL=128266
PAGE
18
PROBLEM DEFJF[TION
*-----------------------------------------------------------------------------------------------------------------------------* AOOR * WORD * LABLE * BR * STATEMENT
* COMMENTS
* SEQUENCE NO.*
*
*
>',(
*LABLE *
*
*
*------*----~-*--------*-------*---------------------------*---------------------------------------------------*-------------*
*
*
*
*
*
*
*
*
*------*------*--------*-------*---------------------------*---------------------------------------------------*-------------*
*
*
*
*
*
*
*
*
*------*------*--------*-------*---------------------------*---------------------------------------------------*-------------*
**------*------*--------*-------*---------------------------*---------------------------------------------------*-------------*
*
*
*
*
*
*
*
*
*
*
*
*
'I<
*
*
*------*------*--------*-------*---------------------------'1<---------------------------------------------------*-------------*
*
*
*
'I<
*
*
*
*
*------'1<------*--------*-------*---------------------------*---------------------------------------------------*-------------*
**------*------*--------*-------*---------------------------*---------------------------------------------------*-------------*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*------*------*--------*-------*---------------------------*---------------------------------------------------*-------------*
*
*
*
*
*
*
*
*
*------*------*--------*-------*---------------------------'1<---------------------------------------------------*-------------*
*
*
*
*
OqIGINAL CHE(K SUM
*
*
*
*
*------*---~--*--------*-------'I<---------------------------*---------------------------------------------------*-------------*
RnUT.SEQ.*ORI~.WORD
*
---------*--------*
---------*--------'I<
---------*---------
NEW CHECK SUM
NO. OF STOP WORDS REMOVED
WORDS OVERLAYED BY PATCH
ROUT.SEQ.*ORIG.WORD
*
---------*--------*
---------*--------'I<
---------'1<---------
ROUT.SEQ.'I63
330
NO.
320
321
322
323
324
325
326
327
328
329
110
311
332
B Ci-1I<: 334
RCHK 347
BCHK ~48
BeHK 349
RCI-!K 150
2FF7
03B8
BCHK
BCHK
BCHK
RCHK
BCHK
BCHK
BCHK
BCHK
Be HK
BCHK
BCHK
BCHK
8CHK
8CH\(
SEQUENCE
BOlA
BCHK
BCHK
AtOP
BCHK
BCHl<
BCHK
BCHK
BCHK
BCHK
8CHK
BCHK
BCHK
ALDP
LABEL
ATABLE
C
AENO
ATABLE
C
AEND
AT ABLE
C
AEND
ATABlE
CDOIT
AEND
ATABLE
C
AEND
ATABLE
C
AEND
BCHK 053
a83
OQ7
175
D91
1') ')
?10
131
073
21)8
178
NEXTL ABEL
STATEMENT
AOOR=OEC4
XCTL'OOOOOOOO'
AODR=0388
XCTL'07FFC4SAS8004EOS'
AODR=039S
XCTL'OOC80000'
ADDR=039C
XCTl'4E0812SE'
ADOR=03A8
XCTL'OOOOOOOOOOOOOOOO'
ADOR=03B8
XCTL'ZFF72FIBC4BCOF01'
**********************************
* CROSS REFERENCE FOR CSECT BCHK *
**********************************
432
102
06J
257
NEXTSEQ
BCHK 100
BCHK 260
ALDP 206
CLOAD=*E60, EC LEVEL=128266
COMMENTS
PAGE
28
CLOAD=*E60, EC LEVEL=128266
BCPL DESCRIPTIVE TEXT
THE BCPL ROUTINE IS NORMALLY RESIDENT IN CONTROL STORAGE,
AND IS USED TO LOAD THE INITIAL RECORD OF EITHER THE CHANNEL
OR NATIVE BOOTSTRAP ROUTINES.
IF THE BePL ROUTINE HAS BEEN ALTERED, THE APPROPRIATE
HANDLOAD INFJRMATION MUST BE ENTERED TO BE SURE OF CORRECT
CSL OPERATION.
PROC EDUR E
FOR
PAGE
29
PUNCHING CSL CARDS
COLUMNS
1-2
CONTAIN STARTING ADDRESS TO BE LOADED
CONTAINS CODE INFORMATION
HEX 80 = DATA IS FOR PROGRAM STORAGE
HEX 40 = LAST CSL CARD OF DECK
HEX 20 = DATA IS FOR AUXILIARY STORAGE
SWITCH
SETTINGS
FOR
CSL
***
***
HEX 10 = DATA IS FOR CONTROL STORAGE
SWITCHS
A,R ~ CC
4
CONTAINS THE NUMBER OF HALFWORDS TO BE LOADED -CSL FROM CHANNEL
5-68
CONTAIN THE OATA
A,S = 01)
CSL FROM NATIVE 2560
69-12
OPTIONAL, CAN BE USED FOR ANY INFORMATION.
CSL FRO~ NATIVE 2540
A,B = FE
13-11
*NNN9 WHERE N IS THE CORE LOAD 10.
A,f~ = FF
CSL FROM NATIVE 2311
1B-RO
XXX 3 DIGIT NUMBER INDICATING SEO. OF PATCHES.
SWITCHES C,D
SET TO ACTUAL UNIT ADDRESS
*** WARNING- DO NOT PUNCH CARDS TO LOAD INTO AUX MODULE 1,3,4
********************************************************************************************************************************
3
RESTRICTIONS WHEN PUNCHING CSL CARDS
COLS 5-68 DATA FIELD
- CAN BE ANYTHING
ALL ADDRESSES SHOULD BF EVEN.
COLS 69-BO SEE ABOVE.
CONTROL STORAGE - THESE ADDRESSES SHOULD BE IN
NOT USED BY THE CSL.
THE RANGE OF 0000-3FFE ONLY.
*** WHEN LOADING A FULL DECK WITH REPLACE CARDS, THE
AUXILIARY STOPAGE- THE 2ND HEX CHARACTER IN
REPLACE CARDS SHOULD GO JUST BEFORE THE END CARD.
COLUMN 1 SHOULD BE A ZERO.
PRnGRAM STORAGE - THE ADDRESS MUST BE IN THE
*** WHEN LOADING ONLY REPLACE CARDS, IT IS NECESSARY TO
PUT THE CONTROL STORAGE CARDS (NORMALLY 4) FOR
RANGE OF THE SYSTEM.
MODULE OlXX IN THE DECK.
COL 3
COOED INFORMATION
ORDER OF THE CARDS IS - BOOTSTRAP CARDS, CONTROL
COL 4
COUNT FIELD - IF A COUNT OF 0 IS INDICATED, 251
STORAGE CARDS FOR MODULE OlXX, REPLACE CARDS, END CARD.
HALFWORDS WILL BE LOADED.
**********************************************************************************************************************************
cnLS 1-2
** EXAMPLE OF PUNCHING AND LOADING A REPLACE CARD **
ASSUME THAT THE DEVICE ADDRESS FOR THE 1403 ON THE
BURST CHANNEL NEEDED TO BE CHANGEb TO -OA-.
THE STANf)ARf) ADDRESS FOR THE 1403 ON THE BURST CHANNEL
IS -OE- AND IS LOCATED IN AUXILIARY STORAGE MODULE 0, AT
A 0 DR E S S - 8 7 - •
TH~ CARD TO CHANGE THIS WOULD BE PUNCHED IN THE
FOLLOWING ~ANNER-
COL 1
(HEX 00) THIS ADDRESSES MODULE O.
COL 2
(HEX. R6)
ALTHOUGH THE CHANGE [S FOR ADDRESS
B1, THE HEX ADDRESS REPRESENTED BY
COLUMN 2 MUST BE EVEN.
THIS INDICATES INFORMATION IS FOR
COL 3
AUXILIARY STORAGE.
( HE X 01) THIS INDICATES ONE HALFWORD TO BE
COL 4
LOADED.
THIS REPRESENTS THE DEV[CE ADDRESS
OF THE 2540 PUNCH THAT MUST BE
RELOADED BECAUSE OF THE ADDRESSING
RESTRICTION IMPOSED BY COLUMN 2.
{HEX CAl
COL 6
THIS REPRESENTS THE DEVICE ADDRESS
TO INDICATE START ADDR OF PATCH.
COL 69-72 (00 86)
COL 13-11 <*E609)
INDICATES PATCH IS FOR *E60 CORE LD.
COL 18-80 (00l)
INDICATES 1ST PATCH TO DECK
REPLACING THE STANDARD ADDRESS FOR
THE 1403 ON THE BURST CHANNEL.
A CSL MUST BE PERFORMED TO LOAD THIS RECONFIGURATION CARD
INTO THE SYSTEM. THE RECONFIGURATION CARD MUST PRECEED THE
END CARD, AND MUST BE PRESENT IN THAT POSITION FOR ALL
CSLS USING THAT PARTICULAR CORE LOAD DECK.
*** EACH TIME A NEW EC LEVEL DECK IS RECIEVEO, ALL RECONFIGURATION CARDS IN THE DECK BEING REPLACED MUST BE REMOVED
AND INSERTED IN THE NEW DECK IN FRONT OF THE END CARD.
COL 5
(HEX 00)
PUNCHED
HEX
00
01
02
03
04
05
06
01
08
09
OA
OS
C'C
00
DF
0F
10
11
12
13
14
15
16
11
18
19
lA
IB
IC
10
lE
IF
20
21
22
23
24
PUNCHES
T-0-9-8-1
T-9-1
T-9-2
T-9-3
T-9-4
T-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
T-9-8-6
T-9- 8-7
T-F-9-R-l
E-9-1
E-9-2
1:-9-3
[-9-4
f-9-5
[-9-6
E-9-7
E-9-8
E-9- 8-1
E-9-8-2
F-9-8-3
F-9-R-4
F-9- R- 5
E-9- 8-6
E-9-8-7
F-O-9-8-1
0-9-1
0-9-2
0-9-'3
0-9-4
•
•
•
•
•
•
•
HFX
25
26
21
2R
29
'1A
·
··· 2F30
• 3}
2B
• 2C
• 20
2E
•
•
•
•
•
32
33
34
3')
3h
• 37
• 38
• 39
·• 3R
·· 3n'3r
• 3E
3A
•
3F
• 4C
• 41
• 4~
43
• 44
• 45
40
47
• 4R
• 49
·
··
PUNCHES
0-9-5
0-9-6
0-9-1
0-9-S
0-9-B-1
0-9-8-2
0-9-8-3
0-9-8-4
0-9- 8- 5
0-9-8- 6
0-9-8-7
T-E-O- 9-B-1
9-1
9-2
9-3
9-4
9-5
9-6
9-1
9-8
9-8-1
9-8-2
9-8-3
9-8-4
9-8-5
9-8-6
9-8-1
NONE
T-0-9-1
T-C-9-2
T-I)-9-3
T-0-9-4
T-I)-9-5
T-0-9-6
T-O-9-1
T-0-9- 8
T-8-1
~
•
•
•
•
•
•
•
•
•
•
·•
·•
•
·•
•
·•
•
•
•
•
·•
•
•
·•
•
•
•
·•
•
•
•
HEX
4A
4S
4C
40
4E
4F
50
51
52
53
54
55
56
51
58
59
5A
5B
5C
50
SE
5F
60
61
62
63
64
65
66
67
68
69
6A
6B
6C
60
6E
PUNCHES
T-8-2
T-8-3
T-8-4
T-8-5
T-8-6
T-8-1
T
T-E-9-1
T-E-9-2
T-E-9-3
T-E-9-4
T-E-9-5
T-E-9-6
T-E-9-1
T-E-9-S
E-8-1
E-8-2
E-8-3
E-B-4
E-8-5
E-8-6
E-8-7
E
0-1
E-0-9-2
E-0-9-3
E-0-9-4
E-0-9-5
E-0-9-6
E-O-9-7
E-0-9-8
0-8-1
T-E
0-8-3
0-8-4
0-8-5
0-8-6
• HEX
• 6F
• 10
• 71
• 12
• 13
• 14
• 15
• 16
• 77
• 78
• 79
• 711
• 7S
7C
70
•
• 7E
• 7F
• 80
• 81
• 82
• 83
• 84
• 85
• 86
• 81
• 88
• 89
• 8A
·
• 8B
• 8C
• 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
T-E-0-9-3
T-(;-0-9-4
T-I:-0-9-5
T-E-0-9-6
T-E-0-9-7
T-E-0-9-8
8-1
8-2
8-3
8-4
8-5
8-6
8-1
T-0-8-1
T-O-l
T-0-2
T-0-3
T-0-4
T-0-5
T-0-6
T-0-7
T-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-7
T-E-8-1
T-E-1
T-I:-2
T-E-3
ClOAD=*E60, EC lEVEL=128266
CODES
• HEX PUNCHES
• 94 T-E-4
• 95
• 96
• 91
• 98
• 99
• 9A
• .B
• 9C
90
9E
•
• 'IF
• AC
• Al
• A2
• A3
• A4
• A5
• A6
• A1
• A8
• A9
• AA
AB
• AC
AD
• AE
• AF
• BO
• 81
• B2
• 83
• B4
• B5
• B6
• B1
• 88
·
·
·
T-E-5
T-E-6
T-E-1
T-E-8
T-E-9
T-E-8-2
T-E-B-3
T-E-8-4
T-E-8-5
T-E-8-6
T-E-8-7
E-0-8-1
E-O-l
E-0-2
E-0-3
E-0-4
E-0-5
E-0-6
E-0-7
E-0-8
E-0-9
1=-0-8-2
E-0-8-3
E-0-8-4
1:-0-8-5
E-0-8-6
E-0-8-7
T-E-0-8-1
T-E-O-I
T-E-0-2
T-E-0-3
T-E-C-4
T-E-0-5
T-E-O-6
T-E-O-7
T-E-0-8
•
•
•
•
•
•
•
•
•
•
·•
•
•
•
•
•
•
·•
•
•
•
•
HEX PUNCHES
B9 T-E-O-9
SA
T-E-O-8-2
SS T-E-0-8-3
BC
T-E-0-8-4
SO
T-E-0-8-5
BE
T-E-0-8-6
SF
T-E-O- 8-1
CO T-O
T-l
Cl
T-2
C2
C3 T-3
C4 T-4
C5
T-5
C6 T-6
C7
T-1
T-8
C8
T-9
C9
T-0-9-8-2
CA
T-0-9-8-3
CB
CC
T-0-9-8-4
CO
T-0-9-8-5
CE
T-0-9-8-6
CF
T-0-9-8-7
·• noD1
•
•
•
•
··
02
D3
04
D5
06
07
• 08
• ')9
• OA
• OB
• DC
• 00
E-O
E-1
E-2
E-3
E-4
E-5
E-6
E-7
E-8
E-9
T-E-9-8-2
T-E-9-8-3
T-E-9-8-4
T-E-9-8-5
• HEX
• DE
• OF
• EO
• El
• E2
• E3
• E4
• E5
• E6
• E1
• E8
• E9
• EA
• EB
• EC
• EO
• EE
• EF
• FO
• Fl
• F2
• F3
• f4
• F5
• F6
• F1
• Fa
• F9
• FA
• FB
• FC
• FO
• FE
• FE
PAGE
PUNCHES
T-E-9-B-6
T-E-9-8-1
0-B-2
E-0-9-1
0-2
0-3
0-4
0-5
0-6
0-1
0-8
0-9
E-0-9-B-2
E-O-9-B-3
E-0-9-S-4
E-0-9-B-5
E-0-9-8-6
E-0-9-8-1
0
1
2
:3
4
5
6
1
8
9
T-E-0-9-8-2
T -E-0-9-8-3
T-E-O-9-8-4
T-E-C-9-8-5
T-E-C-9-8-6
T-E-0-9-8-7
30
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
***
HANDL040
ROUTI~E
FOR NATIVE 2540
STAT.EMENT
***
***
COMMENT
ADDR
WORD
0010
OC12
0014
0016
0018
3210
2610
2C07
2413
8062
SET MMSK K=81
SET BC K=Ol
PO=O
GO=OSKOI
AR
BLOCK TRAPS
SET LOGOU T LA TCH
ZER 0 OUT SW ITCH
START SETUP OF ADDR 0100
BRANCH TO LOC AT ION OC62
0062
0064
0066
0068
006A
006C
006E
0070
0072
0074
0076
0078
007A
007C
007E
2406
2617
2783
377'5
2507
4066
'5EEF
DEbE
5B3F
6348
736A
FOEE
161B
FOE7
AICO
SET MODE K=30
DO=OSK 11
Ol=OSK08
01=DlSK10
Gl=O
U=D
HC=RPS
BR IF H01=0
V1=RP1
STB VI CS,G+1
STB VI ~S,O-l
BR IF LZNZ
OO=DO
BDIA 217
RI)IA 218
BOlA 219
BDIA 220
BDIA 221
BOlA 222
BDI.4 223
BOlA 224
BOlA 225
BOI.A 226
BDIA 227
BOlA 228
BOlA 229
BOI A 230
BOlA 231
BOlA 232
BOlA 233
BOlA 234
BOlA 235
ROtA 236
BOlA 237
*
*
*
OCRIER
DCR2E~
DCROER
NEXTSEQ
NEXTLABEL
STATEMENT
CLOAO=*E60, EC LEVEL=128266
COMMENTS
FO HAS FAILED.
BR. IF ZNZ
**H1 SHOULD BE FO AND OYN BIT 0=1
H1=H1*-KFO
**OO=FO*-FO
190 ALUER 3
BR IF lNZ
**HI SHOULD BE ZERO AND DYN BIT 0=1
HO=OSKFO
**FO=OOSFO
201 CK4FO
BAL
**BR TO CHECK HO FOR FO
207 MORTST
BR
**BR TO MODE REG SET/RESET TEST
***********************************************************************
Z=HO.1CK
BMCK
BMCK
B"1CK
BMCK
BMCK
BMCK
B"1CK
BMCK
BMCK
BMCK
Btv1CK
BMCK
BMC K
8MCK
BMCK
BMCK
B\1C K
BMCK
BMCK
BMCK
BMCK
BMCK
B"1CK
LABEL
036
040
044
045
058
060
061
063
1')65
067
071
072
073
074
092
CHNLCK
DSKCHN
RDRTRP
NEXTSEQ
NEXTLABEL
067
065
071
073
DSKCHN
CHNLCK
RDRTR P
PCHTRP
012
DCLR 238
F IL T 091
NOTRAP
CCCXXX
MCHCHK
ETTR 043
RQUES T
ETRP 071
J NLK
PCHTRP
LOGOUT
093
094
095
096
091
098
099
100
1('1
102
103
104
105
a ~.,c K 106
BMCK 107
BMCK 1('8
BMCK 109
BMCK 110
BI'4CK 111
BMCK 112
B\1C K 113
BMCK 114
BMCK 115
BMCK 116
BMC l( 111
BMCK 118
BMCK 119
B"1CK 120
BMCK 121
BMCK 122
BMCK 123
BMCK 124
BMCK 125
BMCK 126
BMCK 127
BMCK 128
120
*
NOTMC
ST ATEMENT
BR IF MMSKl=l
BR IF MMSK2=1
BR IF MMSK3=1
BR IF MMSK4=1
RST MMSK K=51
RST MMSK K=61
RST MMSK K=71
BR
BR
BR
SET RP K=10
BR
SET RP K=04
BR
UO=O
SET MODE K=OO
Vl=MC
BR IF l=O
RST MMSK K=91
CLOAD=*E60, EC LEVEL=128266
COMMENTS
BR IF I N DIS K CHAI NI NG TRAP
BR IF IN CHNL LO PRIORITY TRAP
BR IF IN READER TRAP
BR IF IN PUNCH TRAP
NO ICA, RST MMSK 5 (B IT) IF ON
NO ICA,RST MMSK 6(GENERAL) IF ON
RST 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
SET CPU MODE TO BR ON Me REG
MOVE MC REG
BR IF NOT MACHINE CK LOGOUT
RST MACHINE CHECK PRIORITY
FROM THIS POINT ON, A SECOND MACHINE CHECK WOULD CAUSE A RETURN TO THE
TRAP ADDRESS 0220. IF THE SECOND MACHINE CHECK OC CURRED PRIOR TO THE
LAST INSTRUCT ION, THE CPU WILL STOP WITH THE CLOCK OFF. THE LAST
I NS TR UC TI ON ALSO RESETS THE MC REGISTER.
*
*
*
*
*
CCOM 182
NOTMC
RSTRK Y
ROH o OA,9E
RO SAVED MMSl( S BA FROM ALJX K-7
SET MODE K=04
BACK UP lONE
STH o OA,9E
XFER MC BACKUP ADOR TO AUX K-7
SET MODE K=OO
SET TO CPU MODE & lONE
Ul=O$KRO
SET UP ADOR OF LOGOUT AREA
STPO=UO
DISABLE STORAGE PROTECT
STOKE 'MMSK, BA IN LOCATION 80,81
STH o U+2
STORE MACHINE CK REG IN 82
S TB VI U+1
READ LAST ERROR COUNT FROM 83
ROB 01 U+O
ADD 1 TO ERROR COUNT
01=01+K01
STORE UPDATED ER ROR. COUNT IN 83
STB 01 U+1
RDH 0 OA,9E
READ BACKUP MICRO AOOR INTO 0
STRIP BITS 0,1 - Hl,LI
OO=OO*-KCO
STRIP BIT 15 - ALU CARRY
01=01*-K01
MICRO AOOR POINTS AT FAILING WD
0=0-2
MICRO WO AGOR OF FAILURE IN 84,5
STH o U+2
RESTORE THE CPU KEY
BAl
SET MODE K=20
SET BACK TG 1052 MODE
HW COUNT EQUAL S 3
VO=O$K03
RST TA K=F2 **RST RO, WT, M-FORCE, ALOP, SHARE IF ON
U1=O-K07
U=00F8 - PRKBt1052. UCW AOOR
Tl=O
STH T AS,U+O
RST 1ST HW OF 1052 ucw
ROH 0 DC,eE
READ OUT CONSTANT OF 4E08
DO=00+K10
SET 0 TO 5E18 FOR
01=01+K10
'ROH H U+2'
PAGE
48
ADOR
WORD
14B8
14BA
14BC
14BE
14CO
6662
17AB
S EQUE t\lC F. t\lO.
BMCK
BMCK
BMCK
BMCK
BMCK
2185
88Be
9A8E
LABEL
129
130
131
132
133
NEXTSEQ
ALOP 241
AlOP 146
NEX TLABEL
l INEF 0
COlCt\lT
CLOAO=*E60, EC LEVEl=128266
ST ATEMENT
STH 0 OC t 9C
01=01(KOA
U1=O$K80
BAL
BR
COMMENTS
STORE 'DOlT' WD FOR ALOP ROUTINE
SET FLAGS FOR MC CK OR CE TRAP
SET UP ADOR
FOR A LINE FEED
GO TO PRINT OUT LOG AREA
**********************************
*
BMCK
BMCK
BMCK
BMCK
BMCK
BMCK
BMCK
BMCK
BMCK
BMCK
003
006
012
032
065
067
071
073
092
120
FtlT
BMCK
AMCK
BMCK
RMCK
Bf.ilCK
BMCK
BMCK
DYPE
BMCK
09a
004
063
all
032
036
044
045
') 21
')95
CROSS REFERENCE FOR CSECT BMCK
*
****************** *****.** *********
BMCK 040
PAGE
49
BPSW
CLOAD=*E60, EC LEVEL=128266
DESCRIPTIVE TEXT
PAGE
50
ENTRY POINTS TO THE BPSW ROUTINE
PROG
PROGA
ENTRYB
WHEN A PROGRAM INTERRUPTION IS DETECTED DURING
INSTRUCTION PROCESSING THE BPSW ROUTINE IS ENTERED
HERE. THE CURRENT 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
CONTROL.
ENTRY IS MADE HERE IF A PROTECTION ERROR OR AN
EXECUTE INSTRUCTION IS 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 IS TO COMPLETE THE 360 LOAD PSW
INSTRUCTION OR TO LOAD THE IPl PSW.
INTBR
ENTRY HERE IS 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 [S FROM THE
ROUTINE WHEN THE SOFT STOP LOOP IS EXITED.
THIS LABEL IS BRANCHED TO WHEN THE WAIT BIT IS
TESTED AND FOUND TO BE ON.
PROGRAM STATUS WORD AND THE LOCATION OF THE CURRENT PSW
o
7 A
11 12
15 16
31 32 33 34 35 36 39 40
47 48
63
*****************************************************************************************************************************
*
*
*
*
*
*
* PROG *
*
*
* SYSTEM MASK * KEY * AMWP.*
INTERRUPTION CODE
* ILC * CC * MASK *
* INSTRUCTION ADDRESS
*
*
*
*
*
*
*
*
*
*
*
****************.************************************************************************************************************
•
•
•
•
•
•
•
•
•
•
AUX
•
AUX
AUX
AUX
LS
LS • LS •
•
•
•
•
•
•
•
Aq
•
PO
AA
A9
GO
Pl
AS
A8
•
•
•
•
•
•
•
•
•
.0
3.0
3.
7.0
3.4
7•
•0
•
•
•
••••••••••••••••• ••••••••••••••
• •••••••••••••••••••
• •••••••••••••••••••••••••••••
PSW
ADDRESS ASSIGNMENTS
HEX
HEX
INITIAL PROGRAM LOADING PSW
EXT ERNAL OLD PSW
SUPERVISOR CALL OLD P$W
PROGRAM OLD PSW
MACHINE-CHECK OLD PSW
INPUT/OUTPUT OLD PSW
00
18
20
28
30
38
ADDR
WORD
SEQUENCE NO.
BPSW 001
BPSW 002
LABEL
T
*
NEXTSEQ
NEXTLABEL
58
60
68
70
78
STATEMENT
PSW LOAD AND STORING
BSWI
EXTERNAL NEW PSW
SUPERVISOR CALL NEW PSW
PROGRAM NEW PSW
MACHINE-CHECK NEW PSW
INPUT/OUTPUT NEW PSW
COMMENTS
001
ADDR
WORD
09FC
09FE
OAOO
OA02
OA04
OA06
OA08
OAOA
OAOC
OAOE
OA10
OAl2
OA14
OA16
OA18
OAlA
OAlC
OAlE
OA20
OA22
OA24
OA26
OA28
OA2A
OA2C
OA2E
OA30
OA32
OA34
OA36
OA38
OA3A
OA3C
OA3E
OA40
OA42
OA44
OA46
OA48
OA4A
OA4C
OA4E
OA50
OA52
OA5A
OA5C
OA54
OA56
OA58
OBEO
08E2
2F07
2125
21EB
2007
420F
seES
3E45
4f)E 5
E193
5892
5482
C416
2 E4D
D41A
2E40
781A
7 El A
7A1A
5'=82
7EIO
2140
5ClS
44CF
4?DF
7C82
6004
5E18
5810
2020
41:03
5 ECB
lCC5
FC40
3C4'5
2A07
7CC2
4FDF
E955
2020
FID8
AS71
09E3
FODA
AA06
2B63
8BE2
0004
FlD5
8448
2B53
2407
SEQUENCE NO.
BPSW
BPSW
BPSW
SPSW
BPSW
p,PSW
BPSW
BPSW
BPSW
I3PSW
BPSW
BPSW
BPSW
BPSW
BPSW
BPSW
BPSW
BPSW
BPSW
BPSW
BPSW
BPSW
BPSW
BPSW
BPSW
BPSW
,)PSw
BPSW
BPSW
aosw
BPSW
BPSW
BPSW
BPSW
BPSW
BPSW
BPSW
BPSW
BPSW
BPSW
BPSW
BPSW
BPSW
BPSW
BPSW
BPSW
BPSW
BPSW
BPSW
BPSW
BPSW
003
004
005
006
007
008
009
010
011
012
LABEL
NEXTSEQ
NEXTLABEL
PROG
PROGA
ENTRYB
ENTRY
ENTRYA
014
NOTEXC
~OTEXC
016
WOW
wow
018
EXEC
013
014
015
016
017
018
019
020
021
022
023
024
025
027
')29
030
031
032
EXECA
EXEC
L psw
H1=O
Ul=0$K20
Ul=U1+KOE
UO=O
STPO=UO
HO=POH
HO=HO$K40
HO=PIXLSHOH
BR IF S6=1
RDH I DA,AA
RDH G DA,AE
B~ IF GOO=O
HO=HO+K40
BR IF G01=0
HO=HO+K40
STH I \1-2
5TH H U-2
STH T lJ-2
ROH H DA,A8
STH H U
Ul=U1+K40
RDH P U+2
S~=PO
033
034
035
036
037
038
039
040
1)41
042
054
055
059
061
062
063
064
065
066
067
068
069
070
STATEMENT
039
NOT
066
INTBR
068
I NTXA
069
064
CICY 008
SPEC
070
WAIT
I NTX
ADORER 0
PROG1
066
BSWI 008
STPO=Pl
STH P DA,A8
U=U+2
RDH H U+2
RDH I U
SET S6
P 1 =HO XH + P 1 L
PO=HOH
PO= PO*-KCO
NOT
BR IF P03=0
PO=PO$K40
TO=O
STH P DA,B8
MW=Pl
WAIT
BR IF P16=1
SET S6
INTX
BR IF S7=0
ADORER N BR IF Hl=NZ
1=ll*-KOE
SPEC
BR IF LZNZ
I START 3
BR
Tl=0$K06
PROG1
BR
RST S2
WAIT
BR IF S7=1
CHECKE
BR
Tl=O$K05
GO=O
CLOAD=*E60, EC LEVEl=128266
COMMENTS
CLEAR INVALID ADO.
CREATE
PROG. PSW
ADDRESS
STOR PROT DISABLE
PLACE THE 4 BIT CC INTO HO HIGH
ASSURE ILC = 1
PLACE PROG MASK INTO HO LOW
TEST FOR EXECUTE
READ OUT EXECUTE INST. COUNTER
RESTORE GREG
TEST OPCODE FORMAT FOR LENGTH
ADD 1 TO LENGTH CODE ILC = 2
TEST OPCODe FORMAT FOR LENGTH
ADD 1 TO LENGTH CODE ILC=2 OR 3
STORE INSTRUCTION ADDRESS
STORE ILC, CC, AND PROG. MASK
STORE INTERRUPT CODE
READOUT SYS MASK, KEY, AMWP
STORE INTO OLD PSW
ADJUST TO NE~ PSW ADDRESS
START NEW PSW READ
SET SYSTEM MASK
seT PROTECT KEY
STORE SYS MASK, KEY, AND AMWP
POINT TO 3RD HALFWORD OF PSW
PLACE 3RD HALF WORD PSW IN H-REG
PLACE 4TH HALF wORD PSW IN I-REG
SET EXECUTE IND. OFF
PLACE PROG MASK AND AMWP INTO PI
PLACE ILC AND CC INTO PO HIGH
ZERO OUT ILC
BRANCH IF CC IS 0 OR 2
MAKE 4 BIT CC = TO 5 OR 7
SAVE PO-l
SET WAIT & MACHINE CK BITS
BR IF WAIT BIT ON
SET EXECUTE INDICATOR OFF
BRANCH IF EXCEPTIONAL CONDITION
BR IF 24 BITS ADDRESS
TEST LOW ADDRESS BYTE
BRANCH IF ODD ADDRESS
BRANCH TO ICYCLES FOR (NST. READ
SET BITS TO IDENTIFY SPEC. CHECK
BRANCH TO INCREMENT INST. ADDR.
** WAIT LOOP
**
LEAVE WAIT LOOP ON INTERRUPT
BRANCH TO DETERMINE INTERRUPT
SET BITS TO IDENTIFY ADDR. ERROR
ZERO OP CODE REGISTER
PAGE
51
ADDR
WORD
SEQUENCE NO.
OAE4
08E6
6884
89FE
BPSW 071
BPSW 072
BPSW
BPSW
BPSW
BPSW
BPSW
BPSW
BPSW
BPSW
BPSW
BPSW
BPSW
BPSW
BPSW
BPSW
BPSW
BPSW
003
004
005
006
014
016
rns
024
C39
054
059
064
066
068
,
069
070
CCOM
BPSW
BSWI
CSTS
BPS,",
BPSW
BPSW
BSYS
BPSW
CBRC
BSW!
BPSW
BPSW
BPSW
BPSW
BPSW
LABEL
072
072
131
108
011
014
016
CDMo 061
BWRP 129
DCHN 106
183
CSTS 007
BSVS 192
037
016
184
062
')42
055
059
065
BPSW 067
NEXTSEQ
NEXTLABEL
STATEMENT
CLOAD=*E60, EC LEVEL=128266
COMMENTS
1=1+2
INCREMENT INSTRUCTION ADDRESS
PROGA
BR
BRANCH TO STORE INTERRUPT CODE
**********************************
* CROSS REFERENCE FOR CSECT BPSW *
**********************************
CFHA 037 CICY 057 CICY 071 CICY 078 CICY 080 CLST 015 CNVR 121
PAGE
004
CFAo 132
CBRC 064
BSW! 053
BSWI 188
CSAS 130
52
BSTP
DESCRIPTIVE
ENTRY TO THE -BSTP- ROUTINE IS MADE FROM THE -BSWIROUTINE,WHEN A~ INSTRUCTIO~ STEP JPERATION OR A SET IC
OPERATION IS PERFORMED. THE ENTRY IS MADE TO TEST THE 1052
AND DETERMINE IF THE INSTRUCTION COUNTER CAN BE TYPED OUT.
AODR
WORD
2E06
2EDA
2EDA
2EDC
2EDE
2EEC
2EE2
2EE4
2EE6
2EE8
2EEA
2404
CFDF
DFDF
CEEO
AB20
RIAA
4E86
26(3
2707
2213
9ACA
BSTP 002
BSTP 006
BSTP 007
SEQUENCE NO.
RSTP
BSTP
BSTP
9 STP
RSTP
!3STP
8 STP
BSTP
BSTP
B STP
BSTP
~
001
0('2
LABEL
T
TYPADO
003
004
0('5
006
007
BUSY
OK
006
006
007
SSWI 107
CCOM 174
J08
021
023
024
STP 025
BSWI 168
BSTP 003
BSTP ')05
NEXTSEQ
fiSTP 004
AtOP 211
NEXTLABEL
TEXT
ClOAD=*E60, EC LEVEl=128266
PAGE
53
IF THE 1052 IS NOT BUSY, THE -ALDP- ROUTINE IS BRANCHED
TO, AND THE INSTRUCTION COUNTER IS TYPED OUT.
IF THE 1052 IS BUSY, THE INSTRUCTION COUNTER IS NOT TYPED
OUT. THE -BSW[- ROUTINE [S BRANCHED TO. THE CPU KEY, P-REG,
AND I-REG ARE RESTORED AND THE -CICY- ROUTINE IS BRANCHED TO.
STATEMENT
COMMENTS
INSTRUCTION TYPEOUT
SET MODE K=20
BUSY
BR IF TUO=l
CHECK AND BRANCH IF READ LATCH
BR IF TUl=l
CHECK AND BRANCH IF WRT LATCH
BUSY
BR IF TTO=O
OK
CHECK AND BRACH IF NO ATTEN
RESTRH
BR
NO TYPE OUT WILL OCCUR
STORH 1
BAL
SAVE HI
PUT IC IN H REG
H=I
DO=O$KOC
BUILD
01=0
FLAGS
VO=O$KOl
SET UP COUNT
ENTRY
BR
GO 01 SPL AY
**********************************
* CROSS REFERENCE FOR (SECT BSTP *
**********************************
CLOAD=*E60, EC LEVEL=128266
BSWI DESCRIPTIVE TEXT
ENTRY POINTS
PAGE
54
DESCRIPTION -- CONTINUED
CHECKS - FROM I-CYCLES WHEN EXCEPTIONAL CONDITION, S7=0, IS
RECOGNIZED. THE CONTROL WORD AT THIS ENTRY CREATES
A VALID NEXT INSTRUCTION ADDRESS BY ENSURING THAT
THE HIGH-ORDER BYTE IS CLEAR.
THE FOLLOWING NOT S7 BRANCH CONDITIONS CAUSE ENTRV TO THE BSWI
ROUTINE. THESE CONDITIONS ARE LISTED ACCORDING TO PRIORITY OF
TESTING. EXCEPT FOR SOFT STOP, THE MICROPROGRAM 8RANCHES TO
THE APPROPRIATE ROUTINE FOR HANDLING THE CURRENT CONDITION.
CHECKE - FROM LOAD PSW ROUTINE AFTER LOADING A PSW OR AFTER
AN EFFECTIVE BRAN:H INSTRUCTION. IF THE MODE SW IS
IN THE INSN STEP POSITION, THE CONTROL WORD AT THIS
ENTRY TURNS ON THE INSN STEP LATCH, B8 BIT 5. BB5
IS TURNEn OFF BY THE START KEY.
1•
2.
3.
4.
5.
6.
7.
RESTRH - FROM ALTER/DISPLAV AND INTEGRATED I/O ROUTINES.
THIS ENTRY RESTORES CPU MODE/lONE, PROTECT KEY, AND
L.S. REGISTERS BEFORE TESTING FOR THE NEXT INTERRUPT
OR REQUEST. WHEN THE MICROPROGRAM EXITS FROM BSWI
TO HANDLE A REQUEST, A RETURN IS MADE TO THIS ENTRY
AFTER THE REQUEST IS PROCESSED.
DE SCR I PTI ON
AFTER ENTRY AT FITHFR -CHECKB- OR -CHECKE-, THE TIMER
FUNCTION IS HANDLED. WHEN THE TIMER FEATURE IS PRESENT, THE
TIMER IN PROGRAM STORAGE IS UPDATED IF THERE IS A VALUE IN THE
-TIM- COUNTER. THF -TIM- COUNTER IS THE INVERSE OF THE
HARDWARE TIMING COUNTER THAT IS STEPPED BY POWER SUPPLY PULSES.
WHEN THE TIMER VALUE IN PROGRAM STORAGE IS REDUCED THROUGH
ZERO, AN EXTERNAL INTERRUPT IS INITIATED BY SETTING BC BIT 1.
AD DR
WOP
D SEQUENCE NO.
B SW I 001
0446
0448
044A
044C
044E
0450
0452
0454
0456
0458
045A
045C
2F07
3600
OOCO
81AA
5AEF
1 EFF
C4F7
5E09
6EE3
6EE3
6E03
2B55
BSW! 002
B SWI 003
SSWI 004
BSWI 005
B 5W I 006
B SW I 007
SSWI 008
SSWI 009
BSWI 010
8SWI 012
B5WI 013
BSWI 014
BSWI 024
BSWI 025
BSWr 026
BSW! 021
BSWI 034
LABEL
T
*
*
*
*
*CHECKB
CHECKE
NEXTSEQ
NEXTLABEL
STATEMENT
8.
INTEGRATED 1/0 REQUEST
EXTERNAL INTERRUPT MASKED
CHANNEL 1 INTERRUPT MASKED
COMMUNICATIONS CHANNEL INTERRUPT PENDING
MASKED CHANNEL 0 INTERRUPT
INSTRUCTION STEP LATCH
SET IC LATCH
SOFT STOP LATCH
8B1 = 1
883 :: 0
886 :: 0
BB7 .- 0
B82 :: 0
BB5 :: I
884 = 1
BBO = 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 THE
START KEY, LOAD KEY, OR CSL KEY.
COMMENTS
EXCEPTIONAL CONDITION ROUTINE
D. L. SMITH
REG I STERS NOT TO BE DESTROYED ARE
PO - CONDITION CODE
Pl - PROG MASK AMWP BITS
Hl - HI ORDER 8 BITS OF A 24 BIT BRANCH ADDRESS
101- INSTRUCTION COUNTER
H1=O
CREATE VALID BRANCH ADORES S
SET BC K=80
CONDI T ION INSTR STEP
RST S K=OC
RST 54 AND 55
CCOM 174 S TORH 1
BAL
STORE HI IN AUX OOF4
HO=TIM
READ TIMER VALUE
HO=HO(KFF
INVERT VALUE
051 GOI NA
BR IF Z=O
BR IF NO VALUE IN TIMER
UO=HO
CALCULATE
HO=HO+HO
VALUE
HO=HO+HO
FOR 60
HO=HO+UO
CYCLE
Tl=O$K50
READ OUT
AD DR
WORD
045E
0460
0462
0464
0466
0468
046A
046C
046E
0470
0472
0474
0476
0478
047A
2B04
2B06
2B08
2BOA
2BOC
2BOE
2AI0
2812
2A14
2A16
2B18
2RIA
2B1C
2BIE
2A20
2B22
2824
2826
2F328
282A
2B2C
2860
2862
2864
2866
2B68
2B6A
2B6C
2B6E
2B70
2B2E
2B30
21332
2834
2B36
2838
50B8
52BA
2002
72E9
71A9
70A9
42AF
7088
7 ?BA
9248
F5F9
2608
AB04
E976
8A54
DFE6
2040
2080
2406
F990
9F36
ER94
9F68
2404
EA9A
8782
2482
FAAO
BOC4
2400
2 A07
9248
FlAB
Rl78
elE1
R18 5
8C7A
D1BC
0040
FFAF
'19BF
1 BFF
0640
2115
BACO
EBB3
A218
FB137
5007
EFBB
A3F2
SEQUENC E NO.
LABEL
B SW I
BSW I
BSW I
BSW I
BSW I
8 SW I
BSW I
BSW I
13 SW J
BSw I
035
036
037
038
039
040
042
()44
045
047
B SW I 049
BSW I 050
BSW I 051
BSWI 052
BSW I 053
BSW I 054
EI SW I 058
8SWr 059
B SW I 060
BSW I 062
BSWI 064
ASWI 068
Bsw r 070
ClSW{ 1)82
B Si./ I OR6
BSW r 088
BSWI 101)
BSWI 102
B SW I 103
FlSWI 107
BSWI lOB
B Sw I 110
B SW [ 112
BSW I 113
BSWI 114
FI SW I 115
B SW I 116
B SW I 117
B SW I 118
FI SW I 119
B SW T 123
BSW I 124
B SW I 129
'3 SW I 130
BSW I 131
BSW I 132
RSW I 134
BSW I 144
BSW I 14A
SSW I 150
B SW I 151
SOINA
CKWAIT
INA
NEXTSEQ
NEXTlABEL
CCOM 182
052
RSTRKY
CKWAIT
054
051
BPSW 066
INA
GOI NA
WAIT
INB
119
I NH
T ST PCH
068
EPRO 030
082
ERRQ 017
TSTTWR
100
OYPE 003
TSTPTR.
107
OPTQ 003
R ESTRH
NOTPI
~OTSIO
CCOt.1 182
114
CCOM 066
116
CICY 005
CCOM 187
153
I NB
132
INC
BPSW 005
144
DCL T 047
150
I NE
[NF
152
OCHN 041
TSTPCH
ROST
TSTTWR
PCHST
ST ATEMENT
ROH U T+2
RDH V T-2
SET S3
VOC=VO-HO+C
UIC=UI-TO+C
UOC=UO-TO+C
STPO=TO
STH U T+2
STH V T-2
BAL
BR IF S3=1
SET BC K=40
BR
BR IF P1 BIT6=0
BR
BR IF B81=0
SET S5
SET S4
SET MODE K=30
BR IF RS BIT6=0
B~
B~ IF PS BIT6=0
BR
SET MODE K=20
TST PT R
BR IF TT BIT6=0
TWR REQ
BR
SET MODE K=18
BR IF PRS BIT 7=0
RESTRH
PTRREQ
RR
SET MODE K=OO
TO=O
RSTRKY
BAL
NOTP I
BK IF S6=1
LRSTR.B
RAl
NOT SI 0
BR IF S4=1
1ST AR T N N=S BIT 567
RES T~H
BAL
B~ IF S5=0
IND
RST S5
B~ IF BA3=1
INC
Tl=XINT
T1=T1(KFF
RST BC K=04
U1=0$K10
ENTRYB
BR
BR IF 8B6=1
I NE
BR
I NT EN T
BR IF BB 7=1
INF
STOP
BR IF B82=1
I NG
BR
ENTRY
CLOAO=*E60, EC lEVEl=128266
CO~MENTS
CURR ENT
VALUE
SET CARRY LATCH
DO
ARITH
FUNCTION ON TI MER
DISABLE STOR AGE PROTEC T
STORf
RESUL T
RESTORE CPU KEY
RR IF NOT THRU 0
TURN ON TIMER INT
MAKE ADDRESSABLE
BR IF NOT IN WAIT STATE
TO AVOID RUNNING METER IN WAIT
BR IF NO NATIVE REQUEST
SET FIRST TI~E FLAG
FOR REQUEST FROM BSW I - NOT SIO
SET READER MODE
BR IF NO READER REQUES T
READER NATIVE REQUEST
BR IF NO PUNCH REQUEST
PUNCH NAT I VE REQUEST
SET 1052 MODE
BR IF NO 1052 REQUEST
1052 REQUEST
SET 1403 PRINTER MODE
BR IF NO PR I NT ER REQUEST
1403 PRINTER REQUEST
SET CPU MODE AND lONE
RST TO FOR NATIVES
RESTORE CPU KEY
BR IF P, I NOT STORED
RESTORE P, I
BR IF FROM REQ AND NOT SIO
RTN TO I CYC LE S
RESTORE CPU BYTE H1
BR IF NO EXTERNAL INT.
READ INTERRUPT REG FOR I NT CODE
INVERT IT
INTERRUPT
FUNC TION
BR IF NO CHAN 1 INTR.
GO TO CHANNEL 1
BR IF NO COMMUN.' CHNL INTERRUPT
COMMU INT WITH NO ICA INSTALLED
BR IF NO CHAN a INTR.
GO TO BURST CH 0 INT ROUTINE
PAGE
55
ADOR
WORD
2fBA
2B3C
2B3E
21340
2B42
2B44
2B46
2B48
2B4A
2B4C
2R4E
2850
2B52
2B54
21356
2B58
2B5A
2B5e
2A5E
2B02
OBC9
OF89
CACA
2F07
508F
519F
0602
AE06
CFBC
2404
FFOA
3BE9
56AA
0258
88B4
IF2A
2400
E901
8A4C
8A54
BSWI
aSWJ
SSwI
BSWI
BSWI
BSWI
BSWI
SSwI
BSWI
BSWI
SSWI
BSWI
BSWI
BSWI
BSWI
BSWI
BSWI
BSW!
SSWI
BSWI
BSWI
BSWI
BSWI
007
008
051
052
054
059
068
OA2
100
107
114
116
119
132
144
150
152
153
168
169
176
177
188
SEQUENCE NO.
B SW I
B SW I
B SW I
SSW I
B SW I
B SW I
B sw I
P. SW I
BSW I
BSW I
aswI
SSW I
B SW I
R SW I
BSWI
B SWI
BSW I
B SW [
ASWI
B SIN I
CICY
BPSW
SSWI
SSWI
BSWI
SSWI
SSWI
aSWI
BSWI
ALOP
SSWI
BSWI
BSWI
BSW!
SSWI
BSWI
BSWI
BSWI
BSWl
BSWI
Bswr
BSWI
BSWI
152
153
162
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
184
188
LABEL
NEXTSEQ
I NG
I NO
168
059
I NJ
169
I NI
BSTP 002
153
I NJ
[ NI
NEXTLABEL
PAGE
56
BR IF BB5=1
IF BB1=1
BR IF BB4=0
H1=0
10= SWAB
11= SWCO
RST BC K=10
INH
BR IF INSTR. STEP
BR IF NATIVE REQUEST
BR IF NOT SET IC
GET
NEW
INSTR.
AOOR
B~
BR TO TYPE THE INST COUNTER
BR IF BBO=O
CHECK FOP. EXIT
SET MODE K=20
PUT IN 1052 MODE
BR IF TU3=0
ALT/OISP ACTIVE CHECK
T1=O-KEO
T=OOlF, ALOP BACKUP AREA
RDH 0 AS,T-2
READ OUT ALOP FLAG HALF WORD
BR IF 00 BIT5=0
BR IF ALOP READY TO 'START'
BR
GO TO SET SOFT STOP & MODE
RST TA K=02 **RST RD, WR, AtOP ACTIVE LATCHES,SH.REQ.
SET MODE K=OO
BR IF P16=1
WAIT STATE CHECK
BR
GO CHECK AI10RESS
BR
GO TO WA IT
BR
TVPADD
I NO
177
INK
176
ALOP 211
STAROK
RESET
188
BPSW 059
BPSW 066
I NL
I NTXA
WAIT
STAROK
INK
I NL
CLOAD=*E60, EC lEVEL=128266
COMMENTS
STATEMENT
**********************************
* CROSS REFERENCE FOR CSECT 8SWI *
**********************************
007
068
014
049
BSW! 052
051
153
062
06R
086
261
112
114
054
119
132
144
150
117
152
162
174
171
178
ALOP 214
BSTP C06
BSWI 102
DPTQ 021
OPTR 017
DUMP 101
DYPE 052
OVPE 088
OVPE 125
ERRQ 062
EXFR 107
BSYS
OESCRIPTIVE
THE SYSTEM RESET ROUTINE IS ENTERED AT LABEL * SYSRST *
FROM THE CHECK SUM ROUTINE -BCHK-, TO INITIALIZE CERTAIN
1/0 LATCHES AND AUXILIARY STORAGE LOCATIONS.
THIS ENTRY IS MADE AFTER EITHER THE SYSTEM RESET, LOAD,
OR CONTROL STORAGE LOAD KEYS ARE PRESSED.
CLOAD=*E60, EC LEVEL=128266
TEXT
1
2
3
4
ADDR
WORD
1
2
3
4
5
6
228C
228E
22QO
2292
2294
2296
2298
229A
22QC
229E
22AO
22A2
22A4
22A6
22A8
22AA
22AC
22AE
22BO
22B2
22B4
22B6
22B8
22BA
22BC
22BE
22CO
4E42
2460
2607
24F6
4052
4206
4406
4606
4A06
2D08
2490
8F90
A044
49CF
E5A3
2EOa
1 EOO
2482
2705
2675
5760
497F
2FOO
2400
6EE4
7AEA
7AEO
BSVS
BSYS
BSVS
BSYS
R$YS
ASVS
ASVS
BSV S
BSVS
BSvS
BSYS
BSYS
ASYS
BSYS
BSVS
8SYS
BSYS
BSYS
BSYS
BSYS
8SYS
ASVS
BSYS
ASVS
ASYS
BSVS
BSYS
BSYS
001
002
LABEL
NEXTSEO
T
SVSRST
004
005
023
024
025
026
027
028
032
042
04'3
GOBAL
044
045
046
047
043
048
060
061
063
067
068
069
070
071
072
074
FILE 288
FILE 344
LOOP1
NEXTLABEL
A HARDWARE RESET IS PERFORMED.
THE RESIDENT. DIAGNOSTIC -BDIA- IS EXECUTED.
THE CHECK SUM ROUTINE -BCHK- IS EXECUTED.
-BSYS- IS ENTERED AT LABEL * SVSRST *.
THE -OCLL- ROUTINE IS BRANCHED TO FOR IPL START.
WHEN IPL IS COMPLETED, A BRANCH TO -BSVS- 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 EXECUTED.
THE CHECK SUM ROUTINE -BCHK- IS EXECUTED.
-BSYS- IS ENTERED AT LABEL * SYSRST *.
SEQUENCE NO.
57
WHEN THE LOAD KEY IS PRESSED, THE FOLLOWING STEPS TAKE
PLACE PRIOR TO ENTRY AT LABEL * SYSRST * -
7
WHEN THE SYSTEM RESET KEY IS PRESSED, THE FOLLOWING STEPS
TAKE PLACE PRIOR TO ENTRY AT LABEL * SYSRST * -
PAGE
ST ATEMENT
SYS TEM RESET
RDH H DC,98
SET MODE K=06
00=0
SET MODE K=3F
RDH U DC,9A
V=U
G=U
D=U
T=U
SET GB K=40
SET MODE K=09
SETDA
BAl
RSTATT
BAL
MS= PO
BR IF DASI2=1
GOBAL
SET FIB K=40
RST FIB K=80
SET MODE K=18
D1=0$KOO
DO=O$K70
RDB 01 AS,D+C
PCCl=Dl
SET PRB K=OO
SET MODE K=OO
H=H+2
5TH T AS ,H-2
5TH T AS,H+O
1
2
3
4
5
A HARDWARE RESET IS PERFORMED.
THE -BCPL- ROUTINE IS EXECUTED.
THE RESIDENT DIAGNOSTIC -BDIA- IS EXECUTED.
THE CHECK SUM ROUTINE -BCHK- IS EXECUTED.
-BSVS- IS ENTERED AT LABEL * SVSRST *.
COMMENTS
RD CONSTANT OOCR I~TO H REG
SET 2540 ZO~E
RST 2540 FLAG REG
SET CHNL MODE AND lONE
RST U
RST MULTIPLEX LATCH
SET TO 2311 MODE AND lONE
SET DEVICE ADDR & SELECT MODULE
GO RST GATED ATTENTION
RESET MODULE SELECT
BR IF ANY MORE GATED ATTENTION
RST FILE FLAG REG.
CHAIN END RESET
SET 1403 MODE
SET CONSTANT ADDR TO 7000 & 900
SET PCCl CONSTANT ADDR FOR N024K
GET PCCL CONSTANT
SET PCCL LATCH FOR 1403
RESET TO DIAGNOSTIC DECODE 1
SET CPU MODE AND ZONE
H=OOCA
CLEAR 1403 SENSE AND STATUS
ZERO OUT 1ST HALFWORD OF THE
AD DR
WORD
22C2
22C4
22C6
22C8
22CA
22CC
22CF
2200
2202
2204
2206
2208
22DA
22DC
22DE
22EO
22E2
22E4
22E6
22E8
22EA
22EC
22EE
22FO
22F2
22F4
22F6
22F8
22FA
22FC
22FE
2FID
F4CO
2F9I
7AEA
2El5
1AEA
7AEA
1 AEO
7A32
7 A52
7A62
40A6
3212
1210
20AO
C3E4
8390
E8EE
062C
1212
40r;2
8A26
162C
1212
5C82
44CF
420F
4852
5CC2
2F07
8A40
C'
00F4
0090
BSVS
BSYS
BSY$
BSVS
B$VS
BSVS
B $V S
BSVS
BSVS
BSVS
ASVS
BSVS
BSVS
BSVS
BSVS
BSVS
13SVS
ASVS
BSVS
BSVS
BSYS
BSVS
BSVS
BSV S
BSVS
BSVS
RSVS
BSVS
ASVS
RSVS
~
(;090
002
043
074
179
180
lS4
svs
BSVS
RSVS
B$V$
BSYS
BSVS
BSVS
ASV$
~ SV$
BSVS
BSVS
RSV$
BSV$
BSV$
BSVS
BSVS
En r:
00B4
0004
SEQUENCE NO.
BCHK
BSYS
BSVS
BSYS
DCll
BSVS
104
046
076
177
045
179
lABEL
075
076
071
078
093
094
095
096
115
117
NEXTSEQ
074
NEXTlABEl
lOOPI
118
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
196
206
207
ATABlE
C
AENO
ATABLE
~09
C
215
216
218
222
AENO
ATABLE
C
AENO
SYSTEM
RETURN
179
DCll 002
184
SYSTEM
I Pl
RESPSW
BPSW 024
lPSW
RESPSW
BPSW 039
AOOR=OOB4
NOT
STATEMENT
ClOAD=*E60, EC lEVE l= 12 8266
COMMENTS
Hl=Hl+K10
NAT I VE DEVICES' UCW
(IN 00C8, 0008, OOES, OOFS)
BR IF AC=O
HI=0-K09
H-=OOF6
STH T AS,H-2
CLEAR 1052 SENSE BVTE
HO=O$K10
H=10F4
STH T AS,H-2
RST PCH I NO I CATO RS S SENSE BVTE
STH T AS,H-2
RST PCH olO ST ACKER SELECT
RST RDR I NDI CA TORS S SENSE BVTE
STH T AS,H-+O
STH T OA,8E **RST STATUS/ACT BVTE FOR CHNl 1 OR 2311
STH T DA,9A
RST 2311 SENSE HALF WORD 1
RST 2311 SENSE HALF WORD 2
STH T DA,9C
U=T
SET MCH CK TRAP AIT, STOP IF ERR
SET MMSK K=91
RST SVS RST BIT TO AllOW TRAPS
RST MMSK K=81
SET S K=OA
BR IF NOT IPl
BR IF BA4=0
BR
BR IF NOT PSW RESTART
BR IF DR6=O
RST BC K=62
RST MMSK K=91
ZERO OUT U REG
RDH U DC,9A
BR
SET STOP,RST CSl ,R ST SVS,RST I Pl
PST BC K=E2
RST MMSK K=91
RST TRAP
RDH P DA,A8
LOAD
UP
SM=PO
THE
STPO=P1
RDH I DC,9A
lAST
ROH P OA,BS
PSW
ZERO HIGH ORDER t\ODR
H1=O
BR
XAUX'OEOCOO1F'
AODR=OOF4
XAUX'OO90'
AODR=OO04
XAUX'0090'
**********************************
CROSS REFERENCE FOR CSECT BSYS *
***********************************
PAGE
58
BWRP DESCRIPTIVE TEXT
ENTRY POINT
THIS ROUTINE IS ENTERED WHE~ A TRAP ADDRESS OF 0210 IS
FORCED BY -I. STORAGE PROTECT VIOLATIO~.
PROTECT KEYS DO NOT MATCH.
2. STORAGE WRAP VIOLATION. THIS OCCURS WHEN A PROGRAM STORAGE
ADDRESS THAT EXCEEDS THE SYSTEM SIZE IS ENCOUNTERED.
PROG STOR
0000
0000
0000
0000
SYSTEM SIZE
16K
24K
l2K
48K
ADDR RANGE
- 3FFF
- 5FFF
- 7FFF
- BFFF
WHEN A STORAGE PROTECT VIOLATION IN CPU MOOE OCCURS, THE
PROTECTION ERROR IS FLAGGED, AND THE PROGRAM INTERRUPT IS
INITIATED.
DESCRIPT ION
THE UNCONDITIONAL BRANCH WORD AT THE START OF THE ROUTINE
STORES THE ADDRESS +2 OF THE TRAPPED WORD IN BITS 2-6 OF THE
I-REG BACKUP, I.E., lONE 4. BIT 7 OF THE I-REG BACKUP IS SET
FROM OYN BIT 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 WORD +3 BECAUSE DYN BtT 3 IS SET TO 1
LATER IN THE ROUTINE, THIS BACKUP ADDRESS IS DECREMENTED BY
1 TO POINT TO THE CONTROL WORD THAT FOLLOWS THE TRAPPED WORD.
THIS CONTROL WORD IS USED TO DETERMINE WHICH HALFWORD 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.
AOOR
WOQO
0210
887C
087C
04FA
9790
F790
96B4
8F64
904A
904A
'5007
904A
8490
97F5
087E
OE8D
OE82
OE84
OE86
OESS
OE8A
OE8C
OE8E
087A
SFQUF.:fIICE
NO.
BWRP
8WRP
BWR P
BWR P
BWRP
BWR P
005
006
BW~P
007
001
002
003
1')(';4
BWRP 008
BWRP 0('19
BWRP ell
~WRP 012
BWRP 016
BWRP 018
BWRP 024
BWRP 030
BWPP 032
BWRP 040
BwRP 042
BWRP 046
BWRP 050
NEXTSEQ
LABEL
*
*
*
*ATABlE
ADDR=0210
011
AEND
NXTADR
S TRG
STRG
STRG
STRG
STRG
STRG
STRG
STRG
PROTCK
NEXTLABEL
ST.~TP1ENT
WRAP TRAP AND STORAGE
T
*
0
1
2
3
4
5
6
7
CLOAD=*E60, EC lEVEL=128266 PAGE 59
AFTER THE UNCONDITIONAL BRANCH, DYN BIT 1 IS TESTED. THIS
BIT IS SET TO 1 FOR A STORAGE WRAP VIOLATION. IF DYNI = 0, A
STORAGE PROTECT VIOLATION HAS OCCURRED. FOR EITHER VIOLATION,
THE ROUTINE DETERMINES THE MODE BY TESTING BA BITS 1,2. AND 3.
FOR FILE, COMMUNICATIONS, OR CHANNEL MODES, THE MICROPROGRAM
BRANCHES TO THE APPROPRIATE ROUTINE TO ATTEMPT THE INTERRUPT.
FOR THE INTEGRATED I/O UNITS REMAINING, EITHER PROTECTION
CHECK OR PROGRAM CHECK IS SET IN THE CHANNEL STATUS OF THE
APPROPRIATE UCW, THEN THE INTERRUPT IS ATTEMPTED.
WHEN A STORAGE WRAP VIOLATION IN CPU MODE OCCURS, TESTS ARE
MADE TO DETERMINE IF THE WRAP OCCURRED DURING INSTRUCTION
REAOOUT, AS PREVIOUSLY STATED. FOR ANY STORAGE WRAP VIOLATION
IN CPU MODE, THE ROUTINE EXITS TO FLAG THE ADDRESS ERROR AND
INITIATE THE INTERRUPT.
COMMENTS
.0. L. SMITH
NXTADR
BR
050
016
083
FIlT 095
ERRQ 086
140
140
PROTCK
N
5TRG
,aDDRCK
WRAP
RPHUCW
WRAP
WRAP
140
OClR 134
051
WRAP
WRAP
PRT
BR IF DYN1=0
BR IF STURAGE PROTECT
N=BA BIT5123
FIND THE MODE CAUSI NG WRAP TRAP
BR IF BA3=0
BR
2311 MODE
BAL
SET 0 TO 00E8
BR
1403 MODE
BR
1052 MODE
STOP
** WRAP IN ICA MODE WITH NO ICA INSTALLED
BR
2540 READER WRAP
CHANNEL
BR
N=BA BITS123
FIND THE MODE CAUSING THE PROT.
N
SAVE BACKUP ADDR IF IN CPU MODE
AODR
WORD
SEQUENCE NO.
OAf 0
OAE2
OAE4
OAE6
OAE8
OAEA
OAEC
OAEE
OE90
OE92
OE94
OE96
OE98
OE9A
OE9C
OE9E
OfAf)
OEA2
OEA4
OEA6
OEA8
OEAA
OEAC
OEAE
OEBn
OEB2
0EB4
OEB6
nEB8
OFBA
OEBe
OEBE
1074
1076
1D78
1117A
lO7C
I07E
9074
96BO
RlFC
RIFC
PIFC
5007
RIFC
~WRP 051
BWRP 053
B WRP 057
Ri.JR P ")61
BWRP f)65
31FC
3IFE
lO4A
lO4C
IG4E
1050
1052
1054
1056
1060
9~D6
2 AO 7
ElSC
2440
78F2
2400
56F 2
16C 5
371B
4660
C6BD
FOAC
C64B
FOAC
F 339
C' BCD
PRT
PRT
PRT
PRT
PRT
PRT
PRr
PRT
ADDRCK
8WRP 073
BHR P 07'5
RWRP 079
BWRP 083
~WRP 091
BWP, P 093
B \-lP P 094
~WRD 1)95
BWRP 096
~WRP 097
BWP P 098
RWRP 099
BWRP 1 C C'
0
1
2
3
4
5
6
1
WI<. P
BWRP
BWRP
R. WR P
BWP P
B\4RP
RWR P
~ WR r>
Bi-tR P
BWR P
A A2C
Rv4R P
8176
R. '..-lR P
AA20
RWRP
f1F9
8174
2A07
2B43
2F07
89FE
BWR P
Ii ""'P p
8WRP
BWRD
BWP P
SIMP P
RWRP
RWR P
R\i.JRP
BWRP
BWRP
RWRD
B It4R p
8WRP
RWRP
f3WR p
BWRP
BWRP
BWqp
NEXTSEQ
NEX TL AB EL
124
FILT 093
133
133
133
CPUPRT
PRTCHK
PRDTEC
PROTEC
PROTEC
BR
BR
BR
BR
BR
STOP
133
DCLR 136
PROTEC
PROTCH
RR
121
106
f3 v-/R P leI
P,
C4BA
C928
C4BA
E23B
6886
4452
2B95
904C
2 BA5
2607
BF78
64B5
2543
2EC3
8761
80n8
LABEL
lC2
le3
104
106
114
115
116
117
106
119
NJXB
120
120
120
118
119
120
111
122
124
125
126
127
12 B
I? 9
130
131
132
133
134
140
142
146
147
148
149
150
152
NXTC
NXTB
NXTO
CPUPRT
CICY 056
CCOM 065
CICY 056
126
CCOM 064
NOSAVE
BPSW 004
*
*'
*
PROTEC
142
WRAP
WRORPR
ERRQ 081
WHICHN 0
152
DPTR 075
ST ATEMENT
CLOAD=*E60, EC LEVEL=128266
COMMENTS
CPU MODE
2311 MODE
2540 PUNCH PRO TECT CK
1403 MODE
1052 MODE
PROT
CK
IN
ICA MODE WITH NO ICA I NST ALlED
**
2540 READER PROTECT CI<
CHANNEL
BR
TO=O
NXTD
BR IF S6-=0
SET MODE K-=04
PUT IN BACKUP lONE
STH I DA,BE
SAVE ADDRESS STORED
SET MUDE K-=OO
PUT BACK IN CPU ZONE
RDH D DA,BE
GET ADDRESS IN TO WORK ON
OO-=OO*-KCO
D1=01-KOl
RDH 0 CS,D
READ CONTROL WORD FOLLOWING
l=DOIe
*
*
*
****cm-1MON CONDITION CODE SET****
*
N
SET CC2
ISTAR.T N
SET MODE K=OO
PO=O$K20
N=S BITS67
SET CC3
1ST AR T N
SET MODE K=OO
PO=O$K70
N=S B ITS61
CC3B
CC3C
CICY 005
*
*
*
****************************************************************
*
*
SET CC1- BIT S2, 3= CO NO CODE
1ST AR T
SET MODE K=OO
Pv=O$K5C
N=S 81TS67
ce2B
CC2C
(ICY COS
*
SET MODE K=(,O
BR
CCIB
CCIC
(ICY 005
*
CHECKX
CCOB
CICY 003
15 R
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
NEXTSEQ
**
S TORHl
STORE HI ROUTINE
Tl=O-KOB
STB HI AS, T +0
**
PAGE
71
AODR
WORD
SEQUENCE NO.
OlAE
l2RE
176
eCOM 177
CCOM 178
CCOM 179
CCO~ 180
CCOM 181
(CO"'1 182
ceOM 183
eCJM 184
CCOM 185
CCOM 1 fl6
CCOM 187
Ccn M 188
ccn"'1 189
1248
124A
124C
(COM
CCOM
CCOM
CCOM
CCOM
CCOM
CCOM
CCOM
(COM
CCOM
CCOM
CCOM
CCOM
CCO"1
CCOM
(COM
CCOM
CeOM
CCOM
CCOM
ceOM
CCOM
CCOM
CCOM
2 BB 1
5FAO
128E
Ol?
1)18
020
025
027
029
036
045
056
057
058
n62
064
065
e66
067
071
(16
08A
087
110
123
127
135
CCo~~ 147
CCOM 155
CCOM 158
CCOM 162
CCOM 166
CCOM 174
(COM 182
CCOM 187
NEXTSEQ
NEXTLABEL
ccn~
56H2
427F
128E
OC7A
OC7C
OC7E
LABEL
CBIN
C([lM
CNVR
CCOM
CCOM
COVO
CB I "-I
CBIN
COMO
COVO
CBPC
CCOM
BWPP
BWRP
,J18
026
01,
016
014
004
00 S
C08
009
011
091
059
125
121
B SW I 113
CFAD 127
CDMG 0'55
COVD OlR
CRIN 0)9
CRIN 027
OCHN 10 ?
DCHN 120
CCOM 120
DCLA 286
CCOf.'! 145
OCLA 041
CCOM 147
DCLA 066
DCLC 037
BSTP 007
13MCK 119
BSWI 11b
CLOAO=*E60, EC LEVEL=128266
COMMENTS
STATEMENT
RTN
*
*
*
*
*
****************************************************************
**
RSTP.KY
*
*
QF.STRH
RESTORE CPU KEV ROUTINE
CBIN 047
CLST
CBIN
CBIN
DUI\1P
CFCY
OPTS
005
CLST
C811\l
CBIN
ERDR
CFCY
OYPE
018
038
042
067
036
005
CLST 030
CBI N 051
C8IN 055
CLST 040
C Bl N 012
C BI N 076
CLOG 047
CLOG 050
CLOG 078
CLOG 082
CML T 015
DYPE 114
CNVR 009
DVPE 237
ERRQ 022
ERRQ 066
COMO
COVO
CBRC
(FCY
CNVR
CLST
CBIN
CBIf\J
DPTT
DelC
DCLT
DCle
054
086
COMO
COV!)
CFAD
CFHA
CSAS
ClST
CBIN
059
098
072
033
025
032
077
COMO
CMLT
CNVR
CFl S
CTRT
ClST
CLOG
139
074
047
042
085
042
051
DUMP 100
CNVR 111
DPTR 072
OPTS 149
ERDR 070
DPTT 015
FILE 018
DClR all
DPTT 054
F INT 009
OPT S 150
FILE 129
FINT 039
OPTT 068
FILE 140
FILX 467
DClC 065
OCLH 021
OPTT 011
DYPE 213
ERRQ 012
OCLS 005
DeL T 008
DPTT 025
F [L E 026
SSWI 110
CSTS 058
022
026
003
016
048
114
068
073
007
043
056
041
057
040
185
287
042
369
226
010
sswr 047
DClT 041
**
RDH 0 DA,A8
GET CPU KEY
S TPO=Dl
RESTORE CPU KEY INTO Q
RTN
*******************************.**********
*** RESTORE Hi ROUTINE ***
T1=O-KOB
T=OOF4
RDB HI AS,T+O
RTf\!
**********************************
* CROSS REFERENCE FOR CSECT CCOM *
**********************************
CML T 014
UIIN 034
OCLA
DCLA
OClA
DVPE
BSWl
PAGE
CLOG 114
CLOG 118
CLOG 144
CLOG 148
CML T 011
CML T 004
FILE 030
FILE 098
FILX 219
CNVR 017
FILX 355
72
CDMO -- DECIMAL MULTIPLV-DIVIDE ROUTINES
CLOAD=*E60, EC LEVEL=128266
DESCRIPTION CONTINUED
ENTRY POINT
MULTJPLV OP
SSOPFC - THIS IS THE COMMON ENTRV POINT FOR BOTH MULTIPLV
DECIMAL AND DIVIDE DECIMAL.
1.
2.
• MULT DECIMAL. Fe • Ll L2 • B1 01 • 01 01 • B2 02 • 02 02 •
• DIV DECIMAL • FO • Ll L2 • Bl 01 • 01 01 • B2 D2 • 02 02 •
-------------------------------------------------------------
3.
OBJECTIVES
MULTIPLV - THE PRODUCT OF THE MULTIPLIER AND THE
MULTIPLICAND REPLACES THE MULTIPLICAND IN THE
1ST OPERANO LOCATtON.
THE MULTIPLIER SIZE IS LIMITED TO 15 DIGITS
AND SIGN -- LENGTH CODE OF 7 IN L2. ALSO, L2
MUST NOT BE LARGER THAN OR EQUAL TO Ll.
THE MULTIPLICAND MUST HAVE HIGH-ORDER ZERO
RVTES EQUAL TO OR GREATER THAN THE NUMBER OF
BVTES IN THE MULTIPLIER FIELD.
THE MAXIMUM PRODUCT SIZE IS 31 DIGITS. AT
LEAST ONE HIGH-ORDER DIGIT OF THE PRODUCT
FI fLO IS ZERO.
- THE DIVIOEND 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
PORTION OF THE DIVIDEND FIELD. THE REMAINDER
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 -- LEN~TH CODE OF 7 IN L2. ALSO, L2 MUST
NOT BE LARGER THAN OR EQUAL TO Ll.
DJVIDE
DE SC R I PTI ON
4.
1.
2.
4.
STRAIGHT COpy
SKEw!=D COpy
ADDR
WORD
SEQUENCE NO.
l1A8
EIAD
CDMD 001
COMO 002
0018-001F
0038-00 BF
LAREL
T
SSOPFC
NEXTSEQ
NEXTLABEL
TEST FOR ENOUGH ZEROES IN MULTIPLICAND FIELD.
SHIFT THE MOST SIGNIFICANT BVTE AND THE FOLLOWING
BVTES OF THE MULTIPLICAND TO THE HIGH-ORDER POSITIONS
OF THE MULTIPLICAND FIELD. SUPPLY ZEROES FOR THE
VACATED BVTES, REMOVE SIGN •
STARTING WITH THE LOW-ORDER, TEST EACH DIGIT OF
MULTIPLICAND. TRUE ADD IF UNDER 5, SUBTRACT IF OVER
4.
ENTER CALCULATE LOOP FOR EACH DIGIT. FOR THE 1ST
DIGIT, THE STRAIGHT MULTIPLIER WITH 90 AS THE HIGHORDER BYTE IS TIC ADDED TO THE PRODUCT FIELD. THE 9
IS IN ALIGNMENT WITH THE TESTED MULTIPLICAND DIGIT.
TIC ADO CYCLES ARE CONTINUED UNTIL TEST DIGIT IS
FOR ADD OR 9 FOR SUBTRACT.
ALTERNATE MULTIPLICAND DIGITS USE THE SKEWED MULTIPLIER WITH 09 AS THE HIGH-ORDER BVTE UNLESS THE TEST
DIGIT GOES TO 0 FOR ADD OR 9 FOR SUBTRACT. FOR THIS
CASE, THE MULTIPLIER IS NOT SWITCHED.
DO SPECIAL SKEWED ADO IF NECESSARY, INSERT SIGN, AND
END THE OPERATION.
01 VIDE OP
THE ROUTINE CHECKS npERA~D SIZE AND SETS THE SIGN VALUE.
THEN, TWO COPIES OF THE MULTIPLIER OR DIVISOR ARE STORED.
POI NTER FOR
LOW-ORDER BYTE
OOSC
OOSE
13
°
3.
AUX STJR AGE
FIELD
PAGE
5.
STATEMENT
DECIMAL MULTIPLV DIVIDE ROUTINES
004 NOFILe
BR IF S6=1
00 A TRIAL SUBTRACT TO DETERMINE IF THE QUOTIENT AND
REMAINDER CAN BE CONTAINED IN THE DIVIDEND FIELD.
SKEWED DIVISOR IS USED. A CARRV OUT OF THE HIGH-ORDER
POSITION INDICATES A DIVIDE CHECK. IF DIVIDE CHECK
OCCURS, SKEWED DIVISOR IS ADDED BACK TO RESTORE THE
DIVIDEND AND ROUTINE EXITS TO TAKE PROGRAM INTERRUPT.
FOR 1ST CALCULATE CYCLE, STRAIGHT DIVISOR WITH 90 AS
THE HIGH-ORDER BVTE IS ADDEO TO THE DIVIDEND. THE 90
IS IN ALIGNMENT WITH THE HIGH-ORDER DIVIDEND BYTE.
THE ADO CYCLES CONTINUE UNTIL DIGIT TO THE RIGHT OF
THE 9 GOES TO ZERO.
SKEWED DIVISOR WITH 09 AS THE HIGH-ORDER BVTE IS
SUBTRACTED FROM THE PREVIOUS RESULT WITH ALIGNMENT
SHIFTED 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.
COMMENTS
ADOR
WORD
17AA
17AC
11AE
11BO
17B2
11B4
17B6
17B8
17BA
17BC
17BE
17CO
17C2
17C4
17C6
17C8
17CA
17ec
17CE
1700
17D2
1704
17D6
1708
17DA
170C
170E
17EO
17E2
17E4
17E6
l1E8
I7EA
17EC
17EE
17FO
17F2
17F4
17F6
17F8
17FA
1445
C130
AE94
5515
17E3
EOAE
9812
5730
8F2C
5710
3415
8F2C
10CE
55BO
3B83
3B15
7AE2
4CA6
3B25
7AF2
5F3A
5FFB
7FAF
7FCA
'5FFl
C96C
573A
47F3
77AF
7FAA
77CA
57F5
C95F
7FAA
17FC
17FE
17A6
F027
8D82
A5lC
55E5
55FO
7EF 1
2002
71E9
70A9
4206
SEQUENCE NO.
COM!)
COMO
CDMO
COMO
CDMO
COMO
CDMO
COMO
COMO
CDMO
CDMD
COMD
COI"1D
CDMO
COMO
COMO
COMO
CDMO
COMO
COMO
COMO
COMD
CDMO
C!)MD
COMO
COMO
COMO
COMO
COMO
COl",!)
COMD
COMO
Cf)MD
COMO
CD,"-1f)
COt>.1D
COMD
COMO
CO~O
CDMD
CDt>.10
C 0\10
CI)MD
COMO
CDMO
CDMf)
CD~O
251C
251E
B3C8
C 1A4
COMO
COMO
COMO
COMD
LABEL
NEXTSEQ
NEXTLABEL
NOFILC
FLGERR
LENCHK
006
C ICY 010
LENCHK
SPECHK
003
004
005
006
007
008
009
010
all
012
013
014
005
CCOM 056
FLGERR
LSAVE
203
SINSET
203
S I~SE T
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
053
036
SSKEW
029
SMORE
SMORE
SSKEW
*
SOUT
*
*
*
*
DIVIDE
STATEMENT
GO==GO*-K40
BR IF G14==0
BR
Dl==G1XL
Dl=DI-HO
BR IF HlNZ
BAL
RDB Dl V
BAL
RDB 01 U
GO=GO$KIO
BAL
RST S K==FC
Tl=GIL
Tl=T1$K08
T1=Tl$K10
STH T DA,BC
P=T
Tl=Tl$K20
STH T DA,BE
RDB HI V-I
H1==H1H
HIC=H1@TO+C
STB Hl AS,P-1
Hl=HlX
BR IF P14=O
RDB 01 V-I
Hl=D1XH+H1L
D1C=D1@TO+C
STB HI AS,T-1
STB 01 AS, P-1
Hl=01XL
BR IF PI4=1
STB HI AS,T-1
HO=G1 XL
H1=G1l
HO=HO-Hl+1
SET S3
U1C=U1-HO+C
UOC=UO-TO+C
V=U
CLOAD=*E60, EC LEVE L== 12 8266
COMMENTS
FIX ILC FOR EXECUTE
LENGTH CHECK OVER 7
CHECK IF
L2 LARGER
THAN Ll
READ 2ND OPRAND
GO SET THE SIGN VALUE
READ 1 ST OPRANO
ST AP T WITH REMAINDER SIGN +
GO SET THE SIGN VALUE
RESET S REG 0,1,2,3,4,5
-BUILD THE
STRAIGHT AND SKEWED ADDRESSE S
AND PUT THEM IN AUX
OOBC-STRAIGHT
COEF-SKEWED
-THIS STORES THE DIVISOR
PLIER IN AUX STRAIGHT AND
SK EwED
TAKE THIS BR IF 1 POSe fIELD
STORE LAST SKEWED CHAR.
-THIS ADJUSTS THE ADDR ESS 1ST OP
TO THE LEFT MOST POSe
BREAK OUT
THE OP
BR IF G07=1
047 SOUT
CODES
106 MUL TPY
BR
BR
052 DIVIDE
AT THIS POINT THE DIVIDE OPERATION
r s ST AR TED IT GOES BACK TO A COMMON
POINT WI TH ~1UL TI PLY TO SET THE RESULT SIGN
213
056
DVlOOP
VAL IDA
BAL
BR IF S4-=0·
GO SEE IF ANS. WILL FIT
PAGE
14
AD DR
WORD
2520
2522
2524
2526
2528
252A
252C
252E
2530
2532
2534
2536
2538
253A
253C
253E
2540
2542
2544
2546
2548
254A
254C
2500
2502
2504
2506
2508
250A
25CC
250E
2510
2512
2514
2516
2518
251A
254E
2550
2552
2554
2556
2558
255A
255C
255E
2560
2562
2564
8114
9BOC
F580
1002
83CA
8114
2883
89FC
56A2
5070
5DDS
7070
2993
5q81
5004
1042
56E2
B3CC
503C
708F
f08l
7030
A53E
7030
7EA3
C4CF
B3C 8
0090
E08E
2040
5030
5018
7f)qF
470B
7030
f)186
A53C
CIAI
5CC2
2FC3
C958
If6B
E450
3F13
5130
61f5
7730
6443
80C2
SEQUENC E NO.
COMO
COMO
COMO
COMO
Cf)MO
COMO
COMD
COMO
CO""O
COMO
Cr:lMD
C;)1-10
CD"10
CD"1D
CO""O
C!)MD
C f)MD
CO"1D
C1)"10
COMO
COM!)
COMO
CI)MO
COMO
CDMO
COMO
CD"10
COMO
Cf)MD
COMO
COM l)
COMO
COMO
COMO
COMO
COMO
CDMO
COMO
CI)MO
CDMO
COJ\.10
CDMD
COMO
COMO
COMO
COMO
CDMD
COMO
CDMO
COMO
COMO
054
055
056
')57
058
059
060
061
062
LABEL
NEXTSEQ
NEXTLABEL
DATEXP
CCOM 064
CCOM 071
062
LRSTR
FLGOEX
VALIFL
214
CCOM 064
DVLOPB
LRSTR
BPSW 003
PROG
IJ AL IDA
VALIFL
063
064
')65
066
067
ENTYA
ENTYB
068
069
070
071
072
073
014
075
076
077
078
079
215
OVLOPC
011
OTHLOP
069
ENTYB
091
213
CHECK
OVLOOP
084
ARON
080
068
054
OTALOP
ENTYA
OAT EX?
096
ARONB
098
ARONC
138
MEND
OTHLOP
OTALOP
080
081
082
083
084
085
1186
081
ARON
OR8
089
090
CHECK
091
092
093
094
095
096
ARONB
097
098
ARDNC
099
100
101
102
103
104
*
*
STATEMENT
BAL
BR
BR IF S3=0
RST S K=90
BAL
BAL
T1=O$KOB
BR
ROH o OA,AC
ROB PI 0
Pl=PlH
STB PI 0
I1=0$K09
10= 11 X
U=U+l
RST S K=94
ROH 0 OA,BC
BAL
ROB PI V
PIC=PllillO+C
BR IF Ll=O
STB PI V
AR
STB PI V
HO=HO-TO
BR IF Z=O
BAL
Z:::Pl1Al I ZE. REOUIRED
BAL
HO=HO+KFF
DECREMENT FXPONENT
BR IF NOVFl
BR IF AC=l
lERO GUARD-HAVE 1 RC ~)n UNDERFLOW
Gl=O
**
B~
**
BR IF AC=1
BR IF P12=1
EXPONENT HAS UNDERFlOWfD
IF UNOF IS MASKED RESULT I S 0'0 OUT
IF NOT MASKEO CONT NQRM. RUT TAKE INTER.
po=o
SET ceo
BR
BUT NO INT,GO STORE O,REST [,GO ICYC
UNDERFLOW
**
SET S4
REMEMBER INT
HO=HG<1<80
I NV ER T SIGN
D1=O$KOD
UNDERFLOW INT CODE
G1=O
ZERO OUT GUARD
PAGE
86
AOOR
WDRD
OBAn
OBA8
81386
2A13
OBAA
OBAC
OBAI:
OBBO
OBR2
()BR4
OBBn
0888
OBBA
eBBC
OBBE
OBCe
OBC2
ORC4
OBC6
OBC8
2e13
A6"56
5CC2
2A07
2E1B
E4BB
F4BO
SEQUENCE NO.
RBC 2
F4B9
1 f80
2 7C 3
208C'
2C25
C E48
lC70
BIA6
OBCA
OB(e
ORCE
0RDO
OB02
ORD4
ORD6
FD4F
2FC7
1 FB 5
896A
817A
2C07
FD5R
AA76
2RE 3
S9FC
01308
OBOA
OBDC
CFAD
CFAD
CFAD
CFAD
Cl=AO
CFAD
(FAD
CFAD
CFAD
CFAD
SFAD
CFAD
103
104
105
106
Ie 7
108
1129
110
LABEL
NEXTSEQ
085
F RACOV
(FA!)
126
Ct=Af)
CFAD
CFAD
(FAr)
CFAD
CFAD
CFAD
127
12 B
129
130
131
CFCO 007
SHIFR4
114
115
118
113
ACBRAN
EXPOV
UNOREN
NOl BC
121
FIN
N01RC
ACBRAN
E XPOV
UNOREN
FIN
CFHA 032
STORE 1
125
SIGII\lT
CFCO 078
CCOM 067
S TOR E2
LRS TRC
131
CICY 004
TSIGII\l
CHECI(
8PSW 003
PROG
*FRAClO
SIGINT
TSIGIN
132
133
CONOR~
*
111
112
ll1
114
CFM) 115
CFAD 116
CFAD 117
CFAD 118
CFAr) 119
C F~D 1Z0
CFAD 121
CFAD 122
CFAD 123
C FA f) 124
C FA f) 125
NEXTLABEL
CLOAD=*E60, EC LEVEL=128266
COMMENTS
STATEMENT
BR
TO=0$K01
CONTINUE NORMALIZING
FRAC.HAS OVERF. INSERT 01
RIGHT SH 1FT
SET SHIFT COUNT =1
PO=O$KOI
BAL
RDH P OAf B8
RESTORE P
TO=O
HO=HO+K01
INC EXPONENT
BR IF OVFL
CHECK
BR IF AC=1
FOR EXPONENT OVERFLOW
BR ** NO 1RC-NO OVERFLOW-GO SET CC+STORE RESULT
BR IF AC=l
HO=HO,04A
FSE E
9DEC
3002
01BR
C02A
SE~UENCE
CFDV
CFDV
CFnv
(FDV
(FDV
CFf)V
CFOV
C FOV
(FOV
(rOV
CFDV
r: FO V
(FDV
CFOV
CFnv
CFDV
CFDV
CFO\!
CFDV
C FDV
C FDV
CFnv
CFDV
CFOV
CFDV
CFDV
CFDV
CFDV
CFOV
CFDV
CFDV
NO.
001
;)02
'J (' 3
004
0(>5
006
007
OCt8
LABEL
NEXTSEQ
NEXTLABEl
T
*
*
*
*
DIVIDE
*****************************************************************
*
OP CODE TYPE
* BYTE 1 * BYTE 2 * BYTE 3 * BYTE 4 *
*****************************************************************
* RR DIVIDE (LONG)
*
20
* R1
R2 *
*
*
*------------------------*---------*---------*---------*--------*
* RR DIVIDE (SHORT)
*
30
* Rl
R2 *
*
*
*------------------------*---------*---------*---------*--------*
* RX DIVIDE (LONG)
*
60
* R1
X2
82
02
*
02
*
*------------------------*---------*---------*---------*--------*
* RX DIVIDE (SHORT)
*
70
* R1
X2 * B2
02
*
02
*
*****************************************************************
*
009
COMPUT
CFCO 090
RDOPER
')10
(HI
:)12
1)1 ":3
014
C15
016
('17
)18
019
020
021
022
IXUND
"CNOSH
O~2
NCNOSH
CFCO 007
SHIFR4
021
F IXLJND
CFHA 044
OIVIDL
CFCO 120
034
CFHA 044
C;
F
023
024
025
LOOPI
026
LOOP
027
')28
OMPUT
DOADD
DIVIOL
029
')30
031
QUOTCH
THE FIRST OPERAND IS DIVIDED BY THE
SECOND OPERAND. THE QUOTIENT REPLACES
THE FIRST OPERAND.
COMf\1ENTS
STATEMENT
FLOATING POINT DIVIDE
CFCO 120
037
026
S TQUOT
LOOP
95
OP CODES HANDLfD BY THE -CFDV- ROUTINE
OBJECTIVE --
AODR.
PAGE
SET S K=98
BAL
RDH T DA,BC
BAL
O=T
Tl=Tlt.K3C
D1=01$K01
STH 0 DA,RE
BR IF S 3=0
PO=O$KOl
BAL
ROH P OA,AC
PO=PO+KOI
BR IF lNZ
Pl=Pl*-K01
STH P DA,AC
BAL
SET S K-=9C
RST S5
P1=O$KCl
BAL
BR IF S 3=0
BAL
SET S K=90
BR IF $5=1
BR IF P10-=0
SET SO,S3,S4
00 TRIAL SUBTRACT
GET PI
T= R2 SAVE 0038 OR 0078
D=QUOTIENT ADD 10P19
SAVE QUOT ADO
Rl MUST SHIFT RIGHT ONE DIGIT
GET RESULT EXPONENT
INC EXP
CHK FOR PREV.UNDERFLOW
UNDERFLOW-CORRECTED PST IND.
PUT ADJ. RES. EXPONENT BACK
SHIFT LEFT 1
SET SO,S3
SET QUOTIENT FLAG
SUB VISOR FROM DENO
I F NO CA RP Y - DO AN ADD
SHIFT DENO AND QUOT FLAG LEFT 1
BR IF QUOTIENT BYTE FULL
CONTINUE COMPUTE IF NO QUOT FLAG
ADDR
WORD
IFB6
1FB8
IFEE
IFFO
IFF2
IFBA
IFBC
IFBE
lFCO
IFC2
1FC4
IFC6
IFC8
IFCA
IFCC
IFCE
IFDO
1F02
lFD4
IF06
IF08
IFDA
1FDC
1FDE
1FEO
IFE2
1FE4
IFE6
IFE8
1FEA
1FEC
IFF4
IFF6
lFF8
2040
9FAA
9DEO
1002
9FB?
56F2
7068
16F2
F448
07CB
FOA6
9FCC
5119
FOA6
5AE2
SEQUENCE NO.
B42E
R110
0507
fHAO
56A2
5659
5CC2
1585
C762
3585
15AO
F 375
C66B
C080
2 7C 3
BlA 8
27D3
55E9
B19E
CFDV
CFDV
CFOV
CFDV
CFOV
CFDV
CFDV
CFDV
CFOV
CFOV
CFDV
CFDV
C FDV
CFDV
CFOV
CFDV
CFOV
CFDV
CFDV
C.FDV
CFoV
CFDV
CFOV
CFDV
CFf)V
CFDV
CFDV
CFDV
CFDV
CFDV
CFDV
CFnv
CFf)V
CFDV
LABEL
NEXTSEQ
NEXTLABEL
DOADD
026
CFHA 044
LOOP
DIVIOl
030
QUOTCH
044
LONGO
024
046
LOOP!
ENDoIV
024
LOOPl
032
033
034
035
036
1')37
038
039
040
041
042
043
044
045
046
047
048
STQUOT
LONGO
ENDDIV
CfCO 090
CFCO 056
051
CFHA 029
049
050
051
:)52
053
054
0'55
056
057
RDOPER
lTEST
GET EX P
DIVNOI
GETEXP
STOEX P
063
06I
UNDERF
OVFLOW
CFHA 033
DIVOVF
CFHA 028
UNDCHK
S TOEXP
058
059
')60
061
o VFLOW
062
063
064
065
SET S5
BR
GAL
RST S K=90
BR
RDH D DA,BE
STB PI AS,D+l
STH 0 oA,BE
BR IF G03-=O
7TH TIME-DO 1 MORE THE N STORE QU
1=01;07
037
038
Cf]MMFNT5
STATf~ENT
***
*
HTAKE
*
*
PAGE
THE -CFHA- ROUTINE PERFORMS THE EXIT TO I-CYCLES OR
THE INTERRUPT ROUTINE FOR THE FLOATING POINT LOAD OPS,
AND CERTAIN CASES FOR FLOATING DIVIDE, MULTIPLY, AND
ADD OPS.
THE -CFHA- ROUTINE ALSO PERFORMS THE LEFT SHIFT OF
THE QUOTIENT FOR THE. FLOATING DIVIDE OPERATION.
THE -CFHA- ~nUTINE PERFORMS THE FLOATING POINT HALVE
OPERATION. THIS IS DONE BY SHIFTING THE SECOND OPERAND
FRACTION lEFT "3 ~ITS THEN RIGHT 4 BITS.
THE RESULT
IS NORMALIZED ANn STORED IN THE FIRST OPERAND LOCATION.
AD DR
ClOAD=*E60, Ee lEVEl=128266
TEXT
PO=O$KOI
BAl
BAL
SAL
BAL
RDH P OA,B8
BR IF SI-=O
TO=O
Z=Hl*-KOF
BR IF ZNl
BAL
G1=O
HO= HO "'KFF
BR IF NllVFL
BR IF AC=l
BR
BR IF AC=1
BR IF P12=:J
HO=HO(KRC
01=0$KOO
SET S4
BR
BR IF PIZ=1
RST 54
BAL
HO=()
AAL
BAL
BR IF S4=1
BR
Tl=Ol
BR
SET RIGHT SHIFT COUNT
SH 1FT
LEFT
ONE THREE TIMES
RIGHT 1 -= LEFT 3 THEN RIGHT 4
BR IF
ZND OPER WAS 0
CHECK HI DIGIT
GO NORMALIZE
ZERO OUT GUARO
OEC EXPONENT
CHECK
IBC
FOR
UNDE~FLOW
NO IBC=UNDERF
BR IF NO INT. TO BE TAKEN
INVERT THE SIGN BIT
I NT CODE SAVE
REMEMBER INT
BR
[F
INT TO BE TAKEN
ZERO OUT EXPONENT
97
ADOR.
WORD
SEQUENCE NO.
(FHA
CFHA
CFHA
CFHA
eFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
6000
65513
F46F
6110
6000
633D
6220
6990
688D
6FFD
CIFS
6AAD
128E
6EEO
128r::
IDEO
IDE2
IDE4
10E6
lDE8
lOEA
1DEC
IDEE
lDFO
lDF2
10F4
10F6
10FA
IDFA
IOFC
040
041
042
043
044
045
046
047
048
LABEL
NEXTSEQ
NEXTLASEL
**
**
055
0'56
057
lEFT ONE
FOR DIVIDE AND HALVE **
*
*DIVIDL
L EFTl
051
H$HORT
051
DIV
049
050
051
052
053
054
CLOAD=*E60, EC LEVEl=128266
COMMENTS
STATEMENT
HSHORT
DIV
058
PIC=P1+PI+C
GIC·=GI+G1
BR IF G03=1
UIC=U1+Ul+C
UOC=UO+UO+C
VlC:=Vl+Vl+C
VOC=VO+VO+C
I lC = 11 + I 1 +C
IOC=10+10+C
H1C=HI+H1+C
BR IF S4=1
TOC=TO+TO+C
RTN
HOC=HC+HO+C
RTN
SHIFT QUOTIENT FOR DIVIDE
SHIFT DIVIDE GUARD
BR IF SHOR T
HALVE
ONLY
DIVIDE
ONLY
***********************************
CROSS REFERENCE FOR CSECT CFHA *
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
CFHA
(FHA
CFHA
006
014
021
022
023
028
029
030
031
032
033
036
044
046
051
057
CFCY
CFHA
CFHA
CFHA
CFHA
CFOV
CFAD
CFHA
CFHA
CFAD
CFDV
CFHA
CFDV
CFHA
CFHA
CFHA
**********************************
056
021
022
019
CFHA 027
020
065
e98
CFMU 061
CFDV 050
CFMD 020
CFMU 053
CFCY 060
CFMD 015
CFHA 015
CFHA 028
CFOV 028
CFHA 008
CFDV 034
CFHA 009
023
012
121
062
034
022
007
046
054
CFlS 028
CFMU 065
PAGE
98
CFLS
DESCRIPTIVE
THE -CFLS- RQUTTNE HANDLES THE FOLLOWING OP COOESLOAD POSITIVE -20-,-30-,(SHORT) AND (LONG)
LOAD NEGATIVE -21-,-31-,(SHORT) AND (LONG)
LOAD AND TEST -??-,-32-,(SHORT) AND (LONG)
LOAO COMPLEMENT -23-,-33-,(SHORT) AND (LONG)
STORE
-60-,-70-, (SHORT) AND (LONG)
CLOAD=*E60, EC LEVEL=128266
TEXT
ADDR
2150
2152
1REE
lBFO
1BF2
IBF4
IBF6
IBF8
IBFA
1BFC
1BFE
WORD
THE SECOND OPERAND IS PLACED IN THE FIRST
OPERAND LOCATION WITH THE SIGN FORCED
NEGATIVf.
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
CC=2 RESULT IS GREATER THAN ZERO
STORE
THE FIRST OPERAND IS STORED AT THE
SECOND OPERAND LOCATION.
1 E85
9BF2
1 EA5
1 E8D
2C25
CE78
lC7D
B170
D5FF
2C07
B1A6
THE SECOND OPERAND IS PLACED IN THE FIRST
OPERAND LOCATION WITH THE SIGN FORCED
PO SIT I VE •
Sf(JIJENC E NO.
CFL S
CFLS
eFLS
C FL S
CFLS
CFL S
eFL S
CFLS
CFL S
CFL S
eFLS
CFL S
CFL S
CFL S
CFL S
CFL S
CFLS
CFL S
CFLS
eFL S
Ci FL S
CFLS
eFL S
CFL S
CFLS
CFL S
CFLS
eFLS
CFLS
CFLS
CFLS
CFLS
001
002
003
004
005
006
OC7
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
LABEL
NEXTSEQ
NEXTLABEl
*
*LOADP
022
STORE
OPS
FLOATING POINT
*** LOAD NEGATIVE
*
*
*LOADN
*
***
*
*
*LOADC
025
OKSOFA
eFCD 056
ZTEST
CODCOR
$ TORE
BR
028
:ODCOR
**
LOAD COMPLIMENT
HO=HO1INE THE TYPE OF I\lTERRUPT AND HANDLE IT.
OPE RA TI ON
0,1
TEST LOW 4 BITS OF OP CODE AND BRANCH TO
THE PROPER ROUTINE.
2,3,6,7
THESE ARE FLOATING POINT OPS. A BRANCH IS
TAKEN DIRECTLY TO THE *CFCY* ROUTINE. THIS
IS THE FLOATING POINT I-CYCLES ROUTINE.
READ 2ND 2 BYTES O~ INSTRUCTION, FIND THE
EFFECTIVE OPERAND ADDRESS, TEST LOW 4 BITS
OF OP CODE, BRANCH TO PROPER ROUTINE.
8
READ 2ND 2 BYTES OF INSTRUCTION, FINO THE
EFFECTIVE OPERAND ADDRESS. TEST BIT 4 OF
OP CODE, IF A SHIFT OP, BRANCH TO *CSFT*,
IF NOT A SHIFT, TEST LOW 4 BITS OF OP CODE
AND BRANCH TO PROPER ROUTINE.
9
FIND EFFECTIVE OPERAND ADDRESS, TEST LOW
4 BITS OF OP CODE AND BRANCH TO PROPER
ROUTINE.
INCREMENT INSTRUCTION ADDRESS +2 FOR A AND
B, +4 FOR C AND E. FLAG INVALID OP AND
BRANCH TO *BPSW* ROUTINE WHERE THE
OPERATION INTERRUPTION CODE IS STORED IN
THE OLD PSW.
THF ENTRY POINTS CHFCKX, C~ECK, AND ISTART ARE THE NORMAL ENTRY
PDINTS TO THE I-CYCLES ROUTINE.
IF THE FNTRY IS ~-1Af)~ FROM AN EXECUTE INSTRUCTION, THE SAVED
INSTRUCTION ADDRESS IS RESTORED AND THE NEW INSTRUCTION READ OUT
BEGINS.
0
FIND EFFECTIVE OPERAND ADDRESSES, TEST LOW
4 BITS OF OP CODE AND BRANCH TO PROPER
ROUTINE.
F
FIND EFFECTIVE OPERAND ADDRESSES, ADO IN
THE OPERAND LENGTH CODES TO THE EFFECTIVE
ADDRESSES TO POINT TO LOW ORDER BYTES.
TEST LOW 4 BITS OF OP CODE AND BRANCH TO
PROPER ROUTINE.
I~ THE ENTRY IS MADE WITH 3NLY AN INTERRUPT PENDING, THE *BP$W*
ROUTINE IS BRANCHED TO DIRECTLY.
IF THE ENTRY IS ~ADE WITH NO INTERRUPT PENDING AND NO EXECUTE,
THE FIRST 2 INSTRUCTION BYTES ARE READ OUT AND A TEST IS MADE
ON THE HIGH 4 BITS OF THE OP CODE.
AD DR
WORD
SEQUENCf NO.
CICY 001
CICY 002
LABEL
T
*
NEXTSEQ
NEXTLABEL
PAGE 105
STATEMENT
INSTRUCTION CYCLES 360 OP SET
COMMENTS
001
ADDR
WORD
2A74
2A76
2AOO
2AO?
2A04
2A06
2AOS
299C
299E
29AO
2960
2962
2964
2966
2968
296A
2C07
8185
A99C
A99C
8446
5498
B463
5892
2020
8185
B053
B073
ABC4
A8C4
8100
AE8C
A8AO
A8AO
.9044
8108
83B2
83B2
83AO
8104
83BO
8EC8
814C
5SE5
61EB
60AD
6FAD
55ED
63EB
62AD
67AD
6F75
A877
A07D
AA20
2853
89FC
834A
(043
9023
9CFA
834A
B009
A6D8
B055
A6D8
AB25
2Q6C
296E
2970
2972
2974
2976
2971=\
297A
2Q7C
297E
OEC8
OECA
OECC
OECE
OEOO
OED2
OE04
OE06
OED8
OEDA
OEDC
OEDe
OAEO
2A20
2A22
1044
1046
1048
1042
0108
OIOA
0100
0102
2EBC
2E8E
SEQUENCE NO.
CICY
C ICY
CICY
CICY
CICY
CICY
C IC Y
CICY
CICY
CICY
CICY
CICY
C IC Y
C IC Y
CICY
CICV
CICY
CICV
CICY
CICY
C IC Y
CICY
C IC Y
C IC Y
C IC V
CICV
C IC Y
CICY
CICY
CICY
CICV
CICY
CICY
Clr:v
CICY
CICV
CICV
CICV
CICY
C IC Y
CICY
CICY
C ICY
CICV
CICV
CICV
CICY
CICV
CICY
C ICY
CICY
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
029
034
043
044
045
046
047
048
049
050
05l
052
053
054
055
056
LABEL
CHECKX
CHECK
I START
I STAR T
1ST AR T
I START
OPHIBR
EXCHK
OPHI
OPHI
OPHI
OPHI
OPHI
OPHI
OPH I
OPH I
OPHI
OPHI
OPHI
OPHI
OPHI
JPH I
c) PH I
OPHI
S SFX.
1
2
3
NEXTLABEL
005
010
010
BSWI 007
ISTART N
EXCHK
EXCHK
CHECKB
0
1
2
3
4
5
6
7
8
9
A
B
C
0
E
F
CFCY
CFey
CFCY
CFCY
013
OPHI
005
133
169
012
012
064
066
034
034
058
062
076
076
075
I START N
OPOX
N
oPt X
N
RROP
RROP
OPHI4
OPH 15
RXOP
RXOP
OPHIS
OPH 19
R.SINV
RSINV
SSINV
OPHID
SSINV
SSFX
BASE3
073
075
043
111
r\DERR 0
ADDERR 0
OPHI8
ALL SHI
OPHI9
() PH 14
OPHI5
N
267
056
ADERR N
OPFX
N
AOOERR 0
BPSW 003
081
061
217
CSfT 014
081
225
092
185
092
056
PROG
BASEl
ALL SH I
OP8X
N
SH.I FT
BASEl
OP9X
N
BASE2
OP4X
N
BASE2
ADOERR N
055
057
058
059
060
061
062
063
064
065
066
067
0
NEXTSEQ
STATEMENT
PO=O
N=S BITS67
BR
BR
BR
RDH G 1+2
N=GOH
RDH I OA,AA
SET S6
N=S BITS67
N=GOL
N=GOL
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BAL
HO=GIXL
UIC=Ul+HO
1l0C-=UO+TO+C
HlC=H1+TO+C
HO-=G1L
VIC=V1+HO
VOC=VO+TO+C
D1C=01+TO+C
Hl=Hl$Dl
BR IF Hl=Nl
N=GOL
BR
Tl=0$K05
BR
BAL
BR IF G04=1
N=GO BITS567
BR
BAL
N=GOL
BAL
N=GOL
BAL
BR IF Hl=Nl
CLOAD=*E60, EC LEVEL=128266
COMMENTS
SET CC TO EQUAL
TEST FOR EXECUTE OR INTERRUPT
EXECUTE AND INT
EXECUT E NOT INT
I NT NOT EX ECUT E
READ FIRST TWO INST. BYTES
TEST HIGH OP' CODE DIGIT
READ SAVED ADDRESS
TURN OFF EXECUTE
RR OP
CODE BREAKDOWN
FLOATING POINT QPS
FLOATING POINT OPS
RX OP
CODE BASE CALCULATE
FLOATING POINT OPS
FLOATING POINT OPS
RS OPS
SI OPS
INVAL 10
OP
CODES
5S OPS
I NV All 0 OPS
DECIMAL OPS
"
CALCULATE
RIGHT MOST
ADDRESS
ADO IN LENGTH CODES TO
POINT TO LOW BYTE
OF OPERANDS
SS FXOP BREAKOUT
FLAG ADDRESS ERR
MAKE ADDRESSABLE
FLAG ADDRESS ERROR
GO TAKE INTERUPT
RS OP CODE 8X
SHIFT OPS
8X OPS lOW DIGIT TEST
SHIFT OPS EXIT
RS OP CODE 'IX
BREAKOUT
RX GO TO BASE + INDEX
BREAKOUT
RX GO TO BASE AND INDEX
CHECK FOR ADDRESS ERROR
PAGE 106
ADDR
WORD
2E90
2E92
2E94
2E96
2E8A
0104
0106
03BO
03132
03B4
03R6
2DFC
20FE
034A
034C
034E
0350
0352
0354
0356
0358
035A
0346
0348
2608
26DA
26DC
26DE
26Et)
26E2
26E4
26E6
26E8
26EA
26EC
26EE
26FO
26F2
26F4
26F6
26F8
26FA
014C
014E
0150
0152
0154
0156
0158
Ol5A
015C
01C3
FOBB
2B6'3
89FC
B071
814C
B075
6884
6884
2S13
89FC
2823
89FC
5098
50BB
C4C 7
5EA8
561\0
617B
606F
6FAO
128E
2F07
128E
5098
50BB
C4F9
SEAS
56AO
617B
606F
6FAD
5583
C4F7
52A8
56AO
617B
6060
6F3D
128E
2F07
C4E9
5098
50BB
C4C5
5EA8
56AO
617B
606F
6FAD
5298
SEQUENCE NO.
C IC Y
CICY
C IC Y
CICY
CICY
CICY
C Ie Y
C IC Y
C ICY
CICY
CICY
C IC Y
CICY
C IC Y
CICY
CICY
C Ie Y
C Ie Y
CICY
C IC Y
C ICY
C IC Y
C IC Y
CICY
CICY
CICY
C Ie Y
C IC Y
C IC Y
CICY
CICY
CICY
CICY
CICY
C IC Y
C Ie Y
C IC Y
CICY
C IC Y
C IC Y
C IC Y
C IC Y
CICY
C IC Y
C IC Y
CICY
C ICY
CICY
CICY
C ICY
CICY
068
069
070
071
072
073
074
075
076
077
rn8
079
080
081
082
083
084
LABEL
NEXTSEQ
072
SPECHK
C)PHI5A
OPHID
BPSW 003
201
111
251
SSINV
RSINV
OPERR
BPSW 003
PRI VOP
BPSW 003
BASEl
090
!)R 5
086
087
OB8
089
090
091
092
OUTI
BASE2
O<}3
094
095
096
097
09B
099
100
101
102
108
BASE2B
107
103
104
105
106
107
108
109
111
112
113
114
BASE2C
BASE2A
100
BASE3
129
115
116
117
lIB
119
BASE3B
NEXTlABEL
Z=Ul*-KOC
BR IF LZ=O
Tl=0$K06
PROG
BR
OP5X
N N=GOL
BASE3
BAL
OPDX
N N=GOL
1=1+2
1=1+2
Tl=O$KOI
PROG
BR
T1=O$K02
BR
PROG
RDH U 1+2
Tl=LJOH
OUTI
BR IF Z=O
RDH H AS,T+2
RDH 0 AS, T
UIC=U1+Dl
UOC=UOL+DO+C
H1C=Hl+TO+C
RTN
H1=O
RTN
RDH U 1+2
T1=UOH
BR IF Z=O
BAS E2 A
RDH H AS,T+2
RDH o AS,T
UIC=Ul+Dl
UOC=UCL+DO+C
HIC=H1+TO+C
T1=Gl XH
BAS E2 C
BR IF Z=O
RDH V AS,T+2
RDH o AS,T
U1C=Ul+Dl
UOC=lJO+DO+C
HIC=Hl+V1+C
RTN
Hl=O
8AS E2 B
BR IF 1=0
RDH U 1+2
Tl=UOH
BR IF l=O
BAS E3A
RDH H AS,T+2
RDH 0 AS, T
UIC=Ul+Ol
UOC=UOL+DO+C
HlC=Hl+TO+C
ROH V 1+2
OPH I5A
CLOAD=*E60, EC lEVE l= 12 8266
COMMENTS
ST ATEMENT
TEST FOR
S PECI F I CAT[ ON CHECK
FLAG SPEC CHECK
BRANCH TO STORE INTERRUPT CODE
RX 5XOP BREAKOUT
SS DXOP
BREAKOUT
INCREMENT
INSTR ADDRESS
AND FLAG ERROR
BRANCH TO STORE INTERRUPT CODE
FLAG PRIV OP
BRANCH TO STORE INTERRUPT CODE
READ 2ND 2 INS T SYTES
AND PUT IN REG. ADO.
BRANCH IF NO BASE
GET BASE DATA
AND
CALCULATE
EFFECTIVE
ADORE SS
INDICATE ZERO BA SE
READ 2ND 2 INST. BYTES
NO BASE BR
GET
REGISTER DATA
CALCULATE
BASE
VALUE
GET INDEX REG.
NO INDEX AR
GET
REGISTE:R DATA
CALCULATE
INDEX
VALUE
INDICATE l ERO BASE
UNCONDITIONAL BRANCH
READ 2ND 2 INST. BYTES
GET BASE ADDRESS
BRANCH IF NO BASE 1
GET
BASE DATA
CALCULATE
1ST
OPERAND
READ 3RD 2 INST BYTES
PAGE 101
AODR
WORD
Ol5E
0160
0162
·0164
0166
0168
G16A
016C
016E
0144
0146
0148
014A
29CO
29C2
2<}C4
29C6
29C8
29CA
2QCC
29CE
2900
528B
C4C9
6AA4
56AA
6378
626F
56AO
67AD
128E
2F07
r. 4DD
2107
128 E
83B4
83B4
8384
83B4
AE32
A912
AOA8
A93A
AA34
AA34
8364
P. 3B4
8384
83B4
83B4
83B4
AC34
AC28
ACOC
ACOO
8480
B27A
A57C
B48C
AE98
94C2
A4FC
A77C
A06C
8390
AE78
A078
ACD4
AD76
AEA6
A874
A088
A91C
2Q02
2904
2906
2908
29DA
29DC
29DE
29EO
29E2
29E4
29E6
29E8
29EA
29EC
29EE
29FO
29F2
29F4
29F6
29FB
29FA
29FC
29FE
02CO
02C2
02C4
02C6
02C8
02CA
SEQUENCF. NO.
C IC Y
CICY
CICY
CICY
CICY
CICY
CICY
CICY
CICY
CICY
C Ie Y
C IC Y
120
121
122
123
124
125
126
127
128
129
131
BASE3C
C IC Y
C IC Y
CICY
CICY
CICY
CICY
CICY
CICY
CICY
C IC Y
C Ie Y
C Ie Y
C IC Y
CICv
CICV
CICY
CICY
C Ie Y
CICY
CICv
C IC Y
C IC Y
C IC Y
C IC Y
C IC Y
C IC Y
C rcy
CICY
CICY
133
134
135
136
137
138
139
140
141
142
143
146
164
165
166
167
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
OPOX
OPOX
OPOX
OPOX
JPOX
!)POX
r)POX
OPOX
JPOX
131
CICY
C ICY
CICY
CICY
C IC Y
C Ie Y
CICY
CICY 190
NEXTLABEL
BASE3C
BASE3A
130
crcy 132
crcy
NEXTSEQ
LABEL
,)pox
JPOX
fJ 1>0 X
OPOX
OPOX
OPOX
OPOX
OPIX
OPIX
OPIX
[)PIX
OPIX
OPIX
JPIX
JPIX
OPIX
[)PIX
OPIX
OPIX
JPIX
OPIX
oplx
OPIX
OP4X
JP4X
[)P4X
JP4X
QP4X
OP4X
0
1
2
119
BAS E3B
077
077
071
C77
087
023
068
005
OPERR
OPERR
OPERR
OPERR
RROP04
RROP05
RROP06
RROP07
RROP08
RROP08
RROPO A
OPERq,
OPERR
OPERR
OPERR
OPERR
RROPIO
RROPII
RROP12
RROP13
RROP14
RROP15
RROP16
RROP17
RROP18
RROP19
RROPIA
RROP1B
RROPIC
RROPID
RROPIE
RROPIF
RXOP40
RXOP41
RXOP42
RXOP43
RXOP44
RXOP45
3
4 CSTS
5 CBRC
6 CBRC
7 CBRC
8 CSIS 044
9 CSIS 044
A CSTS 098
077
B
077
C
0
077
077
E
F
077
0 CLST 005
1 CLST 030
2 CLST 018
3
CLST 040
4 CLOG 078
5 CLOG 047
6 CLOG 114
7 CLOG 144
8
CLSI 046
9 CBIN 005
A CBIN 022
B CBIN 038
C CML T 007
0
COVD 002
E CBIN 051
F CSIN 071
CLST 055
0
1 CLOG 200
2 CLOG 192
3 CLOG 184
4 caRC 047
5 CSRC 031
CLOAD=*E60. EC LEVEL=128266
COMMENTS
STATEMENT
T1=VOH
BR IF 1=0
T=T+2
ROH D AS,T-2
VIC=V1+D1
VOC=VOL +DO+C
RDH D AS,T
D1C =01 +TO+C
RTN
H1=O
BR IF z-=o
01=0
RTN
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
8R
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BRANCH IF NO BASE 2
CALCULATE
2ND
OPERAND
INDICATE ZERO BASE
UNCONDITIONt\L BRANCH
INDICATE ZERO BASE
*
* INVALID OP CODES
*
SET*
PROGRAM MASK
BRANCH AND LINK RR
BRANCH ON COUNT RR
BRANCH CONDITION RR
SET KEY
INSERT KEY
SUPERVISOR CALL
*
*
INVALI 0 OP CODES
*
*
*
LOAD
POSITIVE
LOAD NEGATIVE
LOAD AND TEST
LOAD COMPLEMENT
AND
COMPARE
OR
EXCLUS IVE OR
LOAD
COMPARE
AOD
SUBTRACT
MULTIPLY
o I VIDE
ADD LOGICAL
SUBTRACT LOGICAL
SUBTRACT HALFWORD
LOA 0 ADO RES S
STORE CHARACTER
INSERT CHARACTER
EXECUTE
RX
BRANCH AND LINK RX
PAGE
108
ADDR
WOR 0
02CC
02CE
0200
0202
0204
0206
0708
020A
02DC
OlDE
28EO
28E2
28E4
28E6
28E8
28EA
28EC
28EE
28FI)
28F2
28F4
28f6
28F8
28FA
28FC
28fE
1120
1122
1124
1126
1128
1I2A
112C
l12E
040('
C402
0404
0406
0408
040A
040C
04(1E
0410
0412
0414
0416
0418
041A
041C
041E
02EO
ADB2
A942
ACCO
A3EE
88E8
969C
8978
8384
AC4E
AC4E
AERE
f\ 3B4
83B4
R3B4
AA3 A
A86A
8CE4
8114
SEQUENCE NO.
AD52
AClR
881) A
A064
B2BC
A042
8E7 A
AA68
83B4
AA24
CICY
CICY
CICY
C IC Y
CICY
CICY
CICY
C Ie Y
C ICY
CICY
CICY
C IC y
C Ie Y
e ICY
C Ie Y
C IC Y
C IC Y
C IC Y
C Ie Y
C IC Y
CICY
CICY
CICY
C IC Y
e I c: Y
e IC Y
CICY
C IC Y
C ICY
1'111,30
C IC Y ?20
8898
8A5E
CICY
CICY
CICY
CICY
CICV
C Ie Y
C IC Y
C IC v
CICY
C IC Y
C IC Y
(ley
C IC Y
CICY
C IC Y
CICY
C Ie Y
C Ie Y
CICY
crcy
CICY
A EI3 2
I\C88
AC88
13412
A 8SA
A9BA
AJ:44
A84C
A816
t\ 87 2
A958
P 42 C'
8384
83f\4
83B4
RR86
8886
8886
8886
83B4
191
192
19 ~
194
195
196
197
198
199
20 I')
21) 1
2C 2
203
204
205
206
207
2(: 8
209
210
211
212
,n3
214
215
216
217
218
219
?21
~2 2
223
224
225
226
2?7
228
229
230
231
232
233
239
241
246
247
248
249
250
251
NEXTSEQ
LABEL
JP4X
OP4X
OP4X
ClP4X
JP4X
JP4X
)P4X
OP4X
JP4X
OP4X
JP5X
OP5X
JP5X
3P5X
OP5X
OP5X
QP5X
OP5X
OP5X
JP5X
()P5X
JP5X
JP5X
OP5X
JP5X
OP5X
OP8X
JP8X
JP8X
OPRX
1P8X
JP8X
OP8X
OP8X
OP9X
OP9X
OP9X
OP9X
OP9X
OP9X
OP9X
np9X
OP9X
OP9X
OP9X
OP9X
J P9)(
OP9X
OP9X
JP9X
OPDX
6
7
8
9
A
B
C
CBRC
CBRC
CLST
CBIN
CBIN
CBIN
CMl T
D
E
F
0
1
2
CNVR
CNVR
CLST
~
4
5
6
7
8
9
A
B
c
0
F
F
0
1
2
'3
4
5
6
7
0
1
2
3
4
5
6
7
8
CLOG
CLOG
CLOG
CLOG
CLST
CBIN
CBIN
CBIN
CMLT
CDVO
CBIN
CBIN
CSTS
CSTS
CSTS
CSTS
CSTS
caRC
CBRC
CLST
CLOG
CLOG
CSTS
CLOG
CLOG
CLOG
CLOG
CLST
9
A
B
C
0
E
F
0
DClA
DClA
DCLA
DCLA
074
011
066
018
034
047
014
077
005
005
078
077
077
077
082
050
118
148
086
008
026
042
002
006
055
076
011
077
003
019
112
113
091
(191
094
174
004
076
093
056
126
156
103
077
077
077
002
002
002
002
077
NEXTLABEL
RXOP46
RXOP47
RXOP48
RXOP49
RXOP4A
RXOP4B
RXOP4C
OPERR
RXOP4E
RXOP4E
RXOP50
OPERR
OPERR
OPERR.
RXOP54
RXOP55
RXOP56
RXO P5 7
RXO P58
RXOP59
R XOP5A
RXOP5 B
RXOP5C
RXOP5 D
RXOP5 E
R XOP5 F
R 50P80
OPERR
RSOP82
RSOP8 3
RSOP84
RSOP85
RSOP86
RSOP86
RSOP90
RSOP91
RSOP92
RSOP93
RSOP94
RSOP9 '5
RSOP96
RSOP97
RSOP98
OPERR
OPERR.
OPERR
IOINST
101 NS T
101 NS T
IOJ NS T
OPERR
CLOAO=*E6Q, EC LE VE L= 12 8266
COMMENTS
ST ATEMENT
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR.
BR
BR
UR
BR
BR
BRBR
BR
BR
RR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BRANCH ON COUNT RX
BRANCH ON COND IT ION
LOAD HAL FWOR 0
COMPARE HALF WORD
ADO HALFwORD
SUB TRACT HALFWORD
MULTIPLY HALFWORD
* INVALID OP CODE
CONVERT TO DEC It"1AL
CONVERT TO BINARY
STORE
*
INVALID OP CODES
*
AND*
COMPARE LOGICAL
OR
EXCLUSIVE OR
LOAD
COMPARE
ADD
SUBTRACT
MULTIPLY
o I VIDE
AOD LOGICAL
SUBTRACT LOG ICAL
SfT SYSTEM MASK
OP CODE
* INVALID
LOAO
PSW
DIAGNOSE
WR I TE DIRECT
READ 01 REC T
BRANCH ON INDE X HIGH
BRANCH ON INDE X LOW OR EQUAL
STORE t.1ULTIPLE
TEST UNDER MASK
MOVE
TEST AND SET
AND
COMPARE LOGICAL
OR
EXCLUSIVE OR.
LOAD MULTIPLE
* INVALID
*
* 1/0
START
OP CODES
TEST 1/0
H,4L T 1/0
TEST CHANNEL
INVALID OP CODE
*
PAGE 109
AOOR
WOR 0
SEQUENCE
02E2
AE56
AE7C
AE20
A944
A828
A9a8
A062
8384
8384
83B4
83B4
AOOO
ADOC
AA78
AA78
8384
8136
AE6F
AE68
C IC Y
CICY
C IC Y
C IC Y
C IC Y
CICY
CICY
C IC Y
C IC Y
CICv
C I( Y
CICY
CICv
CICY
CICY
(ICY
(I C Y
C IC Y
C Ie v
C IC v
C IC Y
C Ie Y
( Ie Y
C IC Y
C Ie Y
C IC Y
C Ie Y
CICY
CICY
02E4
02E6
02E8
02EA
O?EC
02EE
02FO
02F2
02F4
02F6
02F8
C2FA
02FC
02 FE:
OEEO
OEE2
OEE4
OEE6
OEF:8
aEEA
OEEe
8~B4
83B4
8384
P, 3R4
934C
938A
934E
9388
91A P,
OEEE
(-EFO
OFF?
OEF4
OEF6
OEF8
OEFA
OEFC
OEFE
97~8
(ICY 003
(ICY C04
CICY 005
C ICY
CICY
CICY
CfCY
CICY
(ICY
crcy
crcy
83f\4
R3R4
OCR
010
013
043
055
0'56
CICY 058
CICV .061
CICY 062
1'16
COMO 149
BSWI 115
CCO~ 160
CLOG 181
CNVR 0'56
BPSW )61
CICY '1<": '5
CBRC ·')6 ?
CICY 034
CICV 153
BWRP 120
CLOG Oh~
CLST 110
CICY O~l
crcy 059
CICY 022
(CIJM
NO.
252
253
1'54
255
256
257
2'58
259
260
261
262
263
264
265
266
267
2A 8
269
27 ')
772
773
27B
,219
280
?B 1
282
;>83
284
28 '5
2R7
2 R P,
(FAD
COVO
fRIN
CCOM
CLOG
CNVP
CBRC
CICY
(ICY
LABEL
DPOX
JPDX
DPDX
DPDX
OPDX
:J PD X
OPDX
DPDX
OPDX
DPDX
OPOX
JPDX
]PDX
OPDX
OPDX
OPFX
OPFX
J PF X
o PFX
OPFX
JPFX
OPFX
OPFX
OPF X
JPF X
OPF X
OPFX
OPF X
o PF l(
J PF X
Of.lFX
015
087
015
164
189
1?2
066
006
0:)9
BWRP 122
CLOG 093
CNVR OJ5
NEXTSEQ
1
2
3
4
5
6
1
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
8
9
A
P,
C
0
E
F
0
1
;:>
3
4
5
6
7
8
9
A
B
C
n
E
F
CSAS
CFAD
CBIN
CCOM
CLO:;
CSTS
CTRT
CTRT
CTRT
CTRT
016
008
026
102
061
132
162
011
011
011
071
003
003
033
033
017
C03
CMPU
CMPU all
CMPU 008
011
017
011
017
CSAS C06
CSA S 061
CSAS 007
CSAS 060
COMD 002
CDMD 002
071
077
099
130
062
168
191
016
CBRC 047
CLOG 103
CSTS 003
CSFT
CFHA
CBIN
CICY
CLOG
C STS
NEXTLABEL
CLOAD=*E60, EC LEVE L= 12 82 66
COMMENTS
STATEMENT
SSOPD 1
BR
MOVE NUMERIC
S SOP02
BR
"'10VE
BR
SSOP03
MOVE ZONES
SSOPD4
BR
AND
SSOP05
8R
COMPARE LOGICAL
SSOP06
BR
OR
S SOPD7
8R
EXCLUSIVE OR
OPERR
BR
*
OPERR
8R
* INVALI 0 OP CODES
OPERR
BR
*
OPERR
8R
*
BR
S 50POC
TRANSLATE
S50Pf)C
BR
TRAN5L ATE AND P:ST
SSOPDE
BR
EDIT
BR
5S0PDE
EDIT AND MARK
OPERR
OR
* INVALID OP CODE
81<
5 SOPF 1
MOVE WITH OFFSET
5 SOPF 2
BR
PACK
BR
5 SOPF 3
UNPACK
OPERR
BR
* INVALI 0 OP CODES
OPERR
BR
*
OPERR
BR
*
OPERR
BR
*
p'R.
S 50 PF 8
ZERO AND AOD
S SO PF 9
BR
COMPARE DECP1AL
S SOPF A
BR
ADD DECIMAL
S50PF B
BR
SUBTRACT DECIMAL
S SOPFC
BR
MULTIPLY nEC IMAL
S SOPFC
BR
DIVIDE DECIMAL
OPERR
BR
*
OPERR
BR
* INVALID UP CODES
**********************************
* CROSS REFERENCE FOR CSECT CICY *
**********************************
084 CTRT 021 CTRT 060
035 CFLS 043 CML T 083 CSAS 128 CSFT 066 C STS 070
065 CBIN 067 CRIN 069 CBRC 013 CBRC 01A CARC 020
004 C ICV 012 CLOG 006 CLOG 014 CLOG 02 It CLOG 034
204 CL5 T 013 CLST 021 CLST 052 CL ST 062 CLST 083
059 C STS 082 CSTS 084 CSTS 095 CTRT 016
CCOM 012
CLOG 126
C STS 011
CFCY 039
CLOG 13 "3
C STS 047
CICV 055
CLOG 156
C5TS 016
CICY 067
CLOG 163
C TRT 003
CLOG 004
CLOG 174
CTRT CI0
CLOG 009
CLOG 184
C TRT 033
DCHN
CBRC
CLOG
CLST
PAGE 110
126
043 CBRC C86
062 • CLOG 064
091 CMPU 018
CLOG 017
CLOG 192
CTRT 066
CLOG 027
CLST 055
CBRC 118
CLOG 099
CMPU 019
CLOG 056
CLST 066
CICY
CICV
CICV
CICV
CICV
CICv
CICV
CICY
CICV
CICY
CICY
CICY
C ICY
(ICV
CICY
CICY
CICY
CICY
CICY
CICY
CICY
CICV
CICV
CICY
CICV
CICV
CICY
064
066
010
072
013
015
076
077
019
0131
090
092
100
107
108
III
119
129
131
133
169
185
201
217
225
251
267
CICY
CICV
CBRC
CICY
CICY
CICY
CICV
CFey
CICV
CICY
C STS
CICY
CICV
CFCV
CICY
CICY
CICY
CICY
CfCY
CICY
CICV
CICY
CICY
CICY
CICV
CICV
CICV
CICY
CICY
ClOAD~*E60,
**********************************
* CROSS REFERENCE FOR CSECT CICV *
**********************************
017
EC lEVEl=128266
PAGE III
OlR
065
069
026
craM 027
COMD 005
COVO 010
CFCV 051
ClST 063
CMlT 006
CNVR 008
CSFT 023
CSTS 009
02
029
024
133
204
273
004
062
CICY 134
CICV 218
CICY 278
CICY 135
CICY 239
CICY 279
CICV 136
CICV 241
CICY 287
CICY 146
CICV 246
CICV 288
CICV 164
CICV 251
C STS 112
CICY 165
CICV 259
CS TS 113
C IC Y 166
CICV 260
C IC Y 161
CICY 261
058
CICY
CICY
CICY
CICV
CICY
DClA
CICY
083
034
CICY 064
CICY 066
l)
073
069
2') 3
?72
021
109
101
094
043
130
111
121
!113
014
065
072
060
063
074
054
CICY 073
CICY 198
CICV 262
CICV 202
CICY 261
CLOG
--
CLOAD=*E60, EC LEVEL=128266
LOG IC AL OPERATIONS
PAGE l12
*---------------------------------------------------------------I NSTRUC T I ON FORMAT
*
*
•
•
ENTRY
OPFR~TtON
BYTE
1
*
•
•
• BYTE 2 • BYTE 3 • BVTE 4 *
*--------.------------------.--------.--------.--------.--------*
14
*
* RROP14 • AND
•
•
• Rl R2 •
COMPARE
RROP15
15
*
•
•
•
• Rl R2 •
*
16
•
• R1 R2
•
• OR
•
*
** RROP16
RROP17 • EXCLUSIVE OR
17
•
• R1 R2 •
•
*
PXOP41 • LOAD ADrJRESS
41
R1 X2 • 62 02 •
*
•
•
* RXClP42 • STORE CHARACTER • 42 • Rl X2 • 62 D2 • 02
02
*
* RXOP43 • IN SEP T CHARACTER • 43 • Rl X2
02
B2 02 •
*
*
1)2
54
*
* RXOP54 • AND
•
• R1 X2 • B2 02 •
55
02
* RXOP55 • COMPt R E LOGICAL •
• Rl X2 • B2 02 •
*
RXOP56
OR
56
02
Rl
X2
B2
02
*
•
•
•
•
•
*
57
02
* RXOP57 • EXCLUSIVE OR
•
• R1 X2 • B2 02 •
*
91
01
12
*
* RSGP9l • TEST UNDER MASK •
•
• 81 01
•
92
12
01
* RSOP92 • MOVE
•
•
• Bl 01
•
*
RSOP94 • AND
94
Bl
01
01
t2
•
•
•
•
*
RSOP9S • COMPAR E LOGICAL •
95
01
12
•
•
• 31 01
*
RSOPQ6 • OR
96
t2
01
•
• B1 01
•
•
*
97
12
01
•
•
• 81 01 •
*
* RSOP97 • EXCLUSIVE OR
OBJECTIVES
SS FORMAT INSTRUCTIONS
MOVE ZONES
SAME AS MOVE. EXCEPT ONLY THE HIGH-ORDER 4 BITS ARE MOVED.
·
*
*
*
*
--------------------------------------------------------------*
*-----------------------------------------------------*
* OP CODE. l1 L2. 81 01. 01 D1. 82 02. D2 02 *
*-----------------------------------------------------*
ENTRV POINTS
OPERATION
SSOPD1
ssopn2
SSOPD3
SSOP04
SSOPD5
SSO PD6
SSO PD7
SSO PE 8
ADDR
WORD
29BA
29BC
2C)BE
AB25
7510
8185
2E7C
6F75
AND, OR, EXCLUSIVE OR
THE LOGIC FUNCTION IS PERFORMED WITH CORRESPONDING BITS
IN THE 1ST AND 2ND OPERANDS. THE RESULT REPLACES THE
1ST OPERAND. IN THE SI FORMAT, 12 IS THE 2ND OPERAND
AND IS ONE BYTE LONG.
COMPARE
COMPARE 1ST OPERAND TO THE 2ND OPERAND.
TREATED AS UNSIGNED BINARV QUANTITIES.
OPERANDS ARE
STORE CHARACTER
MOVE BYTE 3 OF Rl TO PROGRAM STORAGE ADDRESSED 8Y 2ND
OPERAND.
MOVE
THE 2ND OPERAND IS PLACED IN THE 1ST OPERAND LOCATION.
IN MOVE IMMEDIATE, 12 IS THE 2ND OPERAND.
MOVE NUMERIC
SAME AS MOVE, EXCEPT ONLY THE LOW-ORDER 4 BITS ARE MOVED.
TEST UNDER MASK
THE IMMEDIATE DATA IN BYTE 2 OF [NSTRUCTION IS TESTED
BIT FOR BIT AGAINST THE 1ST OPERAND.
NUMERIC
MOVE
MOVE lONFS
AND
CO MPAR E LOGI CAL
~OVF
LOAD ADDRESS
SET THE EFFECTIVE ADDRESS OF THE 2ND OPERANO INTO THE
LOW 24 BITS OF Rl.
OR
INVERSE MOVE {RPQ)
THE LOW ORDER POSITION OF THE SECOND OPERAND IS MOVED TO
THE HIGH ORDER POSITION OF THE FIRST OPERAND.MODIFYING THE
FIRST OPERAND ADDRESS WITH +1 AND THE SECOND OPERAND
ADORESS WITH -1,THE qPERATION IS TERMINATED WITH LENGTH
COUNT ZERO.
EXCL US I VF OR
MOVE INVERSE
SEQUENC E NO.
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
LABEL
001
002
T'
003
*RSOP92
004
*
005
006
007
008
*
SSOP02
NEXTSEQ
NEXTLABEL
STATEMENT
COMMENTS
LOGICAL OPERATIONS
MOVE IMMEDIATE
CICV 056 AODERR N
BR IF Hl:::NZ
STB Gl U
CICY 005 [START N N:::S BIT567
MOVE CHARACT ERS
Hl=Hl$Ol
MOVE
IMMEDIATE
EXECUTION
MOVE
ADOR
WORD
2E7E
2F80
2E82
2ES4
2E86
2E88
AB25
5738
7718
25FF
F4R 1
8113 5
2E56
2E5S
2E54
2E5C
2E5E
2E60
2E62
2E64
2E66
6F75
AB25
5738
5F1C
4F7R
1718
25FF
F4DB
8185
2E30
6r::75
AB2 '5
5138
5 F1C
4F70
11lR
25FF
F4A5
RIB5
327A
3?7C
8270
A86C
286A
286C
2S36E
2870
2872
[nF6
846C'
['506
F5A5
A820
2816
2818
2AIA
28IC
281£
2820
2822
2824
2826
AB2 5
5FI0
7F51
C407
F4A5
2(55
8185
2C25
8185
2E20
2F?2
2E24
2E26
?E?8
2F2A
2E2C
2E2E
2828
282A
282C
282E
6F75
.6825
5138
'5 F18
SEQUENCE NO.
CLOG
CLOG
CLOG
CLOG
CL'l G
CLOG
CL')G
CLOG
CLOG
CLOG
CLOG
CUlG
CLOG
CLOG
CLOG
CLOG
CLOG
CL~G
C lflG
CLOG
CLOG
CLOG
CLOG
CLOG
CLflG
[. LOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLfJG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLIJG
CLOG
009
010
011
012
013
014
015
016
011
018
LABEL
OP02
*
NEXTLABEL
ST ATEMENT
CICV 056
AOOERR N
BR IF Hl=Nl
RDB 01 V+l
STB 01 U+1
Gl=Gl +I
144
148
149
156
162
165
114
184
192
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG
CLOG 200
CICV
CICV
CLOG
CLOG
CLOG
CICV
CLOG
CLOG
CICV
CLOG
CICY
CICY
CLOG
CICY
CICV
Ct Of,
C Ie Y
(ICY
CLOG
CICY
CICY
CLOG
CICY
CICY
CICY
CICY
**********************************
* CROSS REFEPENCF FOR CSECT CLOG *
**********************************
173
205
079
123
111
229
129
052
2'5 '5
110
175
207
115
231
25 7
140
176
20 R
145
232
258
170
226
188
187
U~6
CLOG 153
CLOG 141
CLOG 171
CLOG 159
CLOG 059
CLOG 075
CLOG 090
CLOG 177
CLOAD=*E60, EC LEVEL=128266
PAGE 111
CLST -- LOAD AND STORE
CLOAD=*E60, EC LEVEL=128266
I~STRUCTIONS
*---------------------------------------------------------------*
INSTRUCTION F OR MAT
•
* ENTRY ••
*
BYTE
1
•
• BYTE 2 • BYTE 3 • 8YTE 4
OPER~TION
*
RR fJP 10
* RROPll
LOAD POSITIVE
f\JEG1TIVE
* RROP12 LOAD
LOAf) ANI) TEST
* RR,OPI3 LOAD :OMPlEMENT
* RROP18
LOAf)
RSOP9G
STORE MULTIPLE
* RSOP9Fl LOAO
UL T I PL!=
* RXOP4O STORE ~ HALFWORD
LOAD HALF\-JDRD
* RXOP48
RXOP50 • STORE
** RXOP58 • LOAD
*
*
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
10
11
12
13
18
90
98
40
48
50
58
• Rl R2
• Rl R2
• Rl R2
• Rl R2
• Rl R2
• Rl R3
• RI R3
• Rl X2
• RI X2
• RI X2
• Rl X2
•
•
•
•
•
82 02
B2 02
B2 02
82 D:'.
• 82 02
• 82 D2
OBJECTIVES CONTINUED
*
*
*
*
•
•
•
•
•
•
•
•
D2
02
D2
02
•
•
•
02
02
PAGE 118
**
*
**
*
*
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 HALFWORD
- PLACE THE HALFWORD 2ND OPERAND INTO THE
1ST OPERAND LOCATION. EXTEND THE SIGN
INTO THE HIGH-ORDER 16 BITS OF THE 1ST
OPERAND.
LO AD MULTI PLE
- THF INFORMATION AT THE EFFECTIVE 2ND
OPERAND ADDRESS IS LOADED INTO GENERAL
REGISTER STARTING WITH THE ONE
SPECIFIED BY R1 AND ENDING WITH THE
ONe SPECIFIED BY R3.
STORE MULTIPLE
- THE INFORMATION IN THE GENERAL REGISTER
STARTING WITH THE REGISTER SPECIFIED 8Y
RI AND AND ENDING WITH THE REGISTER
SPECIFIED BY R3 IS STORED AT THE
LOCATIONS DESIGNATED BY THE EFFECTIVE
2ND OPERAND ADDRESS.
STORE HALFWORD
- MOVE THE 16 LOW-ORDER BYTES OF THE 1ST
OPERAND TO PROGRAM STORAGE ADDRESSED
BY THE 2ND OPERAND.
STORE
- THE 1ST OPERAND IS MOVED TO PROGRAM
STORAGE AT THE EFFECTIVE ADDRESS OF
THE 2ND OPERAND.
*
*- --- ---- -- --- --- -- ---- ------ ------- --------------- -- -- -- -- -_._--*
f1SJFC TI VE S
LOAD pnsln VF:
THE TRUE VALUE OF THE 2ND OPERAND IS
PLACED IN THE 1ST OPERAND LOCATION.
LOAD NEGATIVE
- THF TWOS COMPLIMENT OF THE TRUE VALUE
OF T~E 2ND OPERAND IS PLACED IN THE
1ST ~PERAND LOCATION.
LOAD
- THE TWOS COMPLEMENT OF THE 2ND OPERAND
IS PLACED IN THE 1ST OPERAND LOCATION.
CO~PLEMENT
- PLACE THE 2ND OPERAND INTO THE 1ST
OPERAND LOCATION.
LOAD
AD DR
2C34
2(36
2C38
2C3A
2C3C
2C3F
2C40
2C42
2C44
2C08
2eOA
WORD
BAC 8
C610
P31)A
C610
16A8
7EAA
2C75
CD09
8185
2B83
89Fe
S!=QUENCE NO.
CLST
CLST
CLS T
CLS T
CLST
CLST
CLST
CLST
CLST
CLST
CLST
CLST
CLST
CLST
CLST
CLST
0('1
OC 2
003
004
005
LABEL
T
*
*
*RROPIO
'J(\6
007
PCOMPL
008
009
010
011
012
013
014
015
016
NEXTSEQ
NEXTLABEL
COMMENTS
LOAD AND STORE INSTRUCTIONS
LOAD POSITIVE
CCOM 029 LGET
020 DCHECK
CCOM 076 COMPL
020 DCHECK
J VCHEK
SHFTOV
CICY 005
T AKEOV
I ST ART
BPSW 003
PROG
014
T AKEOV
*
STATEMENT
N
BAL
BR IF 000=0
3AL
BR IF 0('0=0
5TH 0 AS,T+2
STH H AS,T-2
po= Q$K 70
8'<. IF PI0=1
N=S BITS67
Tl=0$K08
BR
SET CC=3-0VERFLGW
ADDR
WORD
2eoc
2COE
2C10
2C12
2C14
2C16
2C46
2C48
2C4A
2C4C
8ACS
C625
4EE6
4666
05C 7
AC30
2(25
76A8
7EAA
8185
2C28
2C2A
2C2C
2C2E
2(30
2C32
2C24
2C26
2COO
2C02
2C04
2C06
lE98
2E9A
2E9C
2E9E
2EAO
2EA2
2EA4
2CD4
2CD6
2CD8
2CDA
2CDC
2CDE
2CEO
2CE2
2CE4
2CCO
2CC2
8ACB
(625
B30A
(625
'2C07
AC48
2C55
AC48
BAC8
C 639
B3DA
ACOE
5583
56A8
5EAA
55B8
76A8
7EAA
8185
AB25
o lE3
FOE4
55BB
2B2B
52AO
7210
8185
AE94
AB25
OlE3
SEQUENCE NO.
ClST
ClST
CLST
ClST
CLST
CLST
ClST
CLST
(lST
ClST
ClS T
ClST
CLST
ClST
ClST
ClS T
CLST
ClST
(LST
ClST
CLST
ClST
CLST
C LST
CLST
ClST
ClST
CLST
ClST
C LST
ClST
CLST
ClST
CLST
. CLS T
CLST
CLST
CLST
ClST
CLST
CLST
CLST
CLST
(LST
CLST
CLST
CLST
CLS T
CLST
CLST
ClST
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
053
054
055
056
057
058
lABEL
NEXTSEQ
R~OP12
lOAD AND TEST
CCOM 029 lGET
036 NEGCC1
*
DBRAN
DCHECK
024
034
NEXTLABEl
TESCC2
NEGCCO
TESCC2
DSTORE
C IC y 005
*
*
RROP11
1ST AR T N
LOAD NEGATIVE
CCOM 02Q lGET
036 NEGCC 1
CCOM 076 COMPl
036 NEGCC 1
NEGCCO
025
DSTORE
025
DSTORE
NEGCC1
*
*RROP13
*
*RROP1R
LOAD COMPl H-1 ENT
CCOM 02Q lGET
007 PCOMPl
CCOM 076 COMPl
019 DBRAN
LOAD OP
C IC Y 005
*
*
RXOP40
I ST ART N
SPEC
059
060
061
062
063
064
065
066
067
RSEND
SPEC
*
*R XOP48
CICY 005
CICY 070
BAl
BR IF 000=1
H=H
D=D
BR IF 51=1
BR
PO= 0$K20
STH 0 AS,T+2
STH H AS,T-2
N=S BIT567
BAl
BR IF 000=1
BAL
BR IF 000=1
Po=o
BR
PO=0$K50
BR
BAl
BR IF 000=1
BAl
BR
RR
STORE HAlFWORD
CICY 056 ADDERR N
063
STATEMENT
I START N
SPECHK
LOAD HALFWORD
CICY 056 ADDERR N
Tl=GlXH
RDH 0 AS,T+2
RDH H AS,T-2
T l=GlH
5TH 0 AS,T+2
STH H AS,T-2
N=S B lTS67
BR IF Hl=Nl
l=Ul*-KOE
BR IF LlNZ
Tl=GIH
Tl=Tl+K02
RDH V AS,T+O
STH V U+O
N=S BITS67
I3R
BR IF Hl=Nl
l=Ul*-KOE
ClOAD=*E60, EC lEVEL=128266
COMMENTS
PAGE 119
ADOR
WORD
2(C4
2CC6
2CC8
2CCA
2CCC
2CCE
2COO
2C02
FOE4
55B8
SElC
2707
r ESO
27F7
5769
AC4P
2EBE
2ECt)
2EC2
2EC4
2EC6
5588
56A8
5 fAA
7618
7E10
2Ee8
8185
2EB2
?EB4
2E86
2EBS
2EBA
2EQC
3412
3414
3416
3418
341A
341C
341E
1420
3422
3424
3426
3428
342A
342C
2CE6
2CE8
2CEA
2CEC
2CEE
2CFO
2CF2
2CF4
2CF6
55RB
5618
5 EIC
76A8
7r::AO
8185
ACE6
S2AB
7218
S2AG
7218
ACFO
P414
ACE6
5218
72A8
5218
72AO
ACFC
R422
AB25
o lC 3
F0E4
55B8
128 E
5531
6351
C4E3
2510
SEQUENCE NO.
(LST
CLST
(LST
CLST
CLST
CLST
CLST
CLST
CLST
CLST
CLST
CLST
(LST
C LS T
(LST
(LST
C LS T
CLST
CLST
(LST
CLST
CLST
(LST
CLST
CLST
CLST
CLST
CLST
CLST
CLST
CLST
CLST
CLST
CLST
CLST
CLST
CLST
CLST
CLST
C LS T
CLST
CLST
CLST
CLSI
CLST
CLST
CLST
CLST
CLST
CLST
CLST
LABEL
068
069
NEXTSEQ
NEX TL AB EL
063
SPEC
074
EXT
025
OSTOR E
BR IF LINI
Tl=G1H
RDH H U
01=0
BR IF HOO=O
D1=0$KFF
DO=01
BR
~)7()
071
072
073
()74
EXT
')75
076
')77
078
079
*
*RXOP50
STORE
OP
RX
N
Tl=G1H
ROH 0 AS,T+2
ROH H AS,T-2
STH o U+2
STH H U
N-=$ BITS67
J ST AR T N
Tl=GlH
RDH 0 U+2
ROH H U
STH D AS,T+2
5TH H AS,T
N=S BITS67
ORI)
081
082
083
084
085
086
087
CICY 005
*
*RXOP58
1ST AR T
LOAD OP
RX
088
089
090
1)91
092
093
094
095
096
OQ7
098
C ICY 005
*
*RSOP90
R.
l15
095
100
101
102
103
1(4
105
STORE MULTI PL E
110 RS9XA
590A
099
*
*RSOP98
~
RS9XB
RS90A
LOAD MULTIPLE
llC RS9XA
S98A
106
le7
10 R
115
Ie 9
11) 4
CICY 056
110
RS9XA
RS9XB
R59 81\
AOOERR N
111
112
063
SPEC
062
RSEND
113
114
115
116
117
118
STATEMENT
~59XB
BAl
RDH
5TH
ROH
STH
BAL
BR
V AS,T+2
V U+2
V AS,T
V U+2
BAL
RDH V U+2
STH V AS.T+2
RDH V U+2
STH V AS,T
BAL
BR
RR IF Hl=NZ
l=Ul*-KOC
BR IF LlNl
Tl=GlH
RTN
V1=GIX
Vl=Vl7(';
897A
Sf()UEt\lCE NO.
C ML T
C ML T
CML T
C ML T
C'4l T
C ~"'l T
C i'4L T
Ci'v\L T
C"1L T
C'-1l T
C"'lL T
C~R T
C"'lL T
001
002
OC 3
004
005
006
007
008
009
010
011
012
013
LABEL
t\lEXTSEQ
NEXTLAREL
STATEMENT
MULT I PL Y a I t\I ARY OP CODES
006 ERRORA
BR IF G13=1
Gl=GltK10
CCOM 045 CXGET
BAl
015 START
BR
ERRORA
BR
C Ie Y 070 SPECHK
RROPIC
009 NEQLAB
BR IF S6=1
GO=GC$K80
NEQLAB
BR IF G13=1
006 ERRORA
Gl=Gl$KlO
CCOM 036 CRGET
BAL
START
BR
015
ASEQ
AL07=78
T
RXOP5C
CLOAD=*E60, EC LEVEL=128266
PAGE 122
THE ROUTINE 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, THE ROUTINE MAKES 4 PASSES THROUGH A LOOP.
IN
THE LUOP,
THE MULTIPLICAND IS STORED, THEN DOUBLED AND
qEDOUBLED.
THEREFORE, THE VALUES STORED IN THE TABLE ARE
MULTIPLICAND TIMES 1, 4, 16, AND 64.
SEE AUX STORAGE MAP
IN SECTION AAAR 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 ADDRESS 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 ROUTINES CHANGE THE MULTIPLY-TABLE ADDRESS IFAX4
OR A Xb4 TABLE VALUE IS NEEDED.
ALSO, COMPLEMENT ADD [S
SET IF A SUBTRACT IS NEEDED.
THEN THE MICROROUTINE IS
DIRECTED TO ADD EJTHER ONCE OR TWICE DEPENDING ON THE
COMPUTE ROUTINE FOR THE CURRENT DIGIT. NOTE THAT FOR SOME
DIGITS, ADDS FROM TWO DIFFERENT TABLE ADDRESSES ARE
NECE SSAR Y.
SHIFTING OCCURS AFTFR 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 FOR~ERLY 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-ADDEO 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 REGISTFRS, AND THE HALFWORD OR FULLWORD
PRODUCT IS STORED AT THE 1ST OPERAND ADDRESS. THEN, THE
MICROPROGRAM RETURNS TO I-CYCLES.
COM"'IfNTS
D. L. SMITH
ADDR
WORD
0918
091A
091C
097E
0980
0982
0984
0986
0988
AE06
9814
2907
C604
29F7
2C13
098~
098C
098E
0990
0992
0994
0 0 96
0998
099A
099C
099E
09AO
09A2
09A4
09A6
09A8
09AA
09AC
09AE
09B0
09R?
0984
09B6
09A8
09BA
09BC
OgRE
09CO
09C2
09C4
09C6
09C8
09CA
09C(
a9CE
0900
0902
09D4
0906
0908
090A
09DC
('27~
E08R
3C23
5989
4A86
ceco
7CF2
4C52
2010
2D8R
C029
78(8
7 AC8
76C8
7F(S
9AFA
9AFA
8994
2007
48C6
4AC6
44C6
46(6
4£:06
40C6
2(13
CSSE
2FIB
F4D3
2015
10C?
B803
0053
C5CC
2FIO
F4f)3
2055
1002
BF03
2C2B
AF4A
C 838
CIDC
A354
54F2
SEQUENCE NO.
CML T
C"'1L T
CML T
CMl T
C'v\L T
CMLT
C~L T
C"4L T
CMl T
CiI1L T
CMLT
C ML T
( iVlLT
CiVlL T
("'1L T
C ML T
C NIL T
C NIL T
('v\L T
C "'1L T
CMlT
C I-1L T
C i>.1L T
C'v1t T
C:4L T
C"1L T
C,"'LT
CML T
CII.1L T
CML T
(>"L T
CML T
C ML T
CML T
CML T
C iI1L T
C Ml T
CML T
CML T
Ci"1L T
C"-1L T
C ML T
C"-1l T
CML T
CML T
CMLT
C Ml T
ORT
C ~4L T
CMl T
CMlT
LABEL
NEXTSEQ
NEXTlABEL
014
015
016
017
018
019
~XOP4C
CCOM 012
CCOM 051
CXGETH
L SAVEA
020
CANOP l
020
CANDPl
023
PlIERP
018
EXIT
104
104
028
DOUBl E
DOUBl E
LOOP
049
LOCHK
059
ADJUST
134
059
056
N
DIG
ADJUS T
HICHK
059
l\ OJ US T
134
OIG
085
ROTA
CHKL04
ALMOST
MUL T
021
022
023
024
025
026
027
028
029
030
031
032
03,
034
035
036
037
038
039
040
041
047
043
044
045
046
047
:)48
049
050
051
052
START
PlIERP
LOOP1
FlTMlJl
LOOP
;: XI T
CI-IKL04
f\IXY
LOCHK
CYCLE
053
054
055
056
nICHK
051
058
059
060
061
ADJUST
FLTMU2
046
063
065
064
065
CFMU 009
ALMOST
N
ST ATEMENT
SAL
SAL
11=0
BR IF 000=0
11=0$KFF
PO=O$KCl
7=VO*-K70
BR IF Hl=O
PO=PO$K02
10= 11
T=1
R ST S K=OC
STH P DA,BE
ROH P OC,9A
P1=Pl+K10
P1=Pl+K08
BR [F Pl 0= 1
STH 1 AS,P+2
STH T AS, P+ 2
STH 0 AS,P+2
STH H AS,P+2
SAL
SAL
BR
P1=O
I=P
T=P
G=P
o=p
H=lJ
u=p
PO=0$K01
8R IF so=o
H1=Hl+KO 1
BR IF AC=l
P1=0$KIO
RST S K=90
N=H1L·
BR IF PI1=1
BR IF 50=0
Hl=Hl+KI0
BR IF AC=l
Pl=O$K50
RST S K=90
N=HIH
po= PO+K02
BAt
BR IF P04=0
BR IF $4=0
BR
RDH G OA,BE
ClOAD=*E60, EC lEVEl=128266
COMMENTS
EXIT TO FLOAT PT MUL T
PAGE 123
ADOR
WORD
0901:
09EO
09E2
09E4
09E6
09E8
09EA
09EC
09EE
09FO
09F2
09F4
09F6
09F8
09FA
C5E9
E06S
3002
2015
A752
8176
2 AC7
55RB
72A8
7 f.AA
F47A
1 B15
76A8
7CAA
AA76
2F 4,1\
2F4C
2F4E
2FSO
2FS2
21=S4
2F56
21=58
2F5A
2!=5C
2F5E
2F60
2F62
2F64
2F66
2F68
2F6A
2F6C
?F6F
lAFA
lAFC
1AFE
lROO
IB02
1804
1 BO 6
IB03
IBOA
2752
2754
2756
2758
275A
275C
275E
5EF9
53Eq
~ 2~9
5129
5019
5709
5679
5B69
5AR9
55A9
5459
2407
(1)6 E
(,5,'3F
E01:::C
C 16E
C SE E
24F7
128 F6FFB
6 EF f)
6770
666D
6BSD
6AAD
t990
6880
128E
1 CFB
3Df1
58CA
719D
708D
58CA
7790
Sf=QUENCE Nn.
CML T
CMl T
CML T
CML T
C ML T
C II.1L T
C~L T
CML T
CMl T
C"'1l T
C Ml T
CMl T
C "1L T
Civil T
C!"1L T
C "'1L T
C '~L T
CA~L T
C"1L T
C'~L T
CMl T
CML T
CML T
C "1l T
C'1L T
CMl T
CII.1L T
CiviL T
C"1l T
CML T
C"lL T
C'''L T
C"1L T
C ~"L T
e '~l T
CML T
C ML T
CII.1L T
CMl T
C ML T
GMl T
C"ll T
C ML T
CMl T
CMl T
CI-1l T
C1'''L T
C'1L T
CMl T
CMl T
CMl T
069
070
071
072
071
')74
075
076
077
078
LABEL
AN SWF. R
NEXTSEQ
074
074
ANS WER
ANSWE R
111
CCOM 065
ADDI
lRSTRA
083
1)79
NEXTlABEl
DONE
080
081
1)82
')8
:3
084
1)85
DONE
AEND
ROTA
C IC Y 004
CHECK
086
C87
088
089
090
091
1)<]2
093
094
091)
096
097
')98
099
100
101
102
1 ('1
104
FlO!=IX
NOFLOW
DOUBLE
10 c;
106
107
108
1(9
110
111
112
113 .
114
ll5
116
117
118
119
ADDl
ADOROU
103
NOFU1W
10 ?
103
103
!=lOFIX
NOFLOW
NOFlOW
ST ATEMENT
BR IF 50=1
BR IF G06=0
SET S K=90
Pl=O$KlO
BAL
BAL
TO=O
T1=GIH
STH V AS,T+2
STH H AS,T-2
BR IF G03=O
Tl=Tl*-K10
STH 0 AS,T+2
STH U AS,T-2
BR
Hl=HC
HO= VI
Vl=VC
VO=Ul
Ul=lJO
UO=D1
01= DC
OO=Tl
Tl=TO
TO=Gl
Gl=GO
GO=O
BR IF GI0=0
l=G1(K88
BR IF H1Nl
Sf< IF G14=')
BR IF So=o
GC=O$KFF
RTN
HIC=Hl+Hl
HOC=HO+HO+C
01C=01+D1+C
DOC=OO+DO+C
TIC=Tl+T1+C
TOC=TO+TC+C
lIe = I 1 + I 1+C
10C=10+IO+C
RTN
po= POI\~
012
013
025
NOSIGN
014
019
I SPLUS
019
026
I SPUJS
I SC OMP
030
029
ENDSGN
ZAPFST
010
CCOM 071
TSTSGN
F LGDEX
C SA S
CSA S
C SAS
C SI\ S
C SA S
C SA S
C SAS
C SA S
CSAS
C SAS
C SAS
CSAS
CSAS
CSAS
CSAS
CSA S
CSAS
CSAS
C SA S
C SA S
CSAS
CSAS
CSAS
CSAS
C SA S
C SAS
CSA S
C SA S
C SA S
C SA S
C SA S
CSAS
CSI\ S
CSAS
CSAS
CSAS
CSAS
CSAS
CSAS
OPERAND 1 ADORE SS IS IN U
OPE RAND 2 ADORE SS IS IN V
*
*ASEQ
TSTSGN
030
031
032
033
034
035
036
137
038
039
040
I SPLUS
\IQSIGN
I SCOMP
019
034
I SASC I
036
DSPLUS
058
DECO-1P
085
051
DESTND
MOR SOR
053
RDOEST
054
COMPUT
085
042
DES TND
ENDSOR
OSPLUS
T STLGT
041
042
043
044
045
046
047
048
049
050
051
I SPlUS
ZAPFST
ENOSGN
ISASCI
ENDSOR
ZRODST
STORED
DECLGT
"10RSOR
HI IS ZERO
Dl IS ZERO
TO IS ZERO
AL07=4C
S SOPF 8
S SOPFA
STUPDC
011
015
016
017
alA
019
020
021
')22
023
024
025
026
027
028
029
CLOAD=*E60, EC LE VE L= 12 8266
COMMENTS
STATEMENT
GO=GO$K04
RST S K=98
HO=O$KI0
ROB Dl V-I
DO=OlL
Z=DO+K06
BR IF Hl=O
RST S K=2C
BR IF 01 BIT7=0
Z=D1(KOF
BR IF OYN B ITT= 1
BR IF SO·=l
SET S K=94
BR IF GO BIT4=0
BR IF GO BIT5=1
GO=GO(K08
H1=DIH
ROB 01 U+O
BR
BR
RST S K=90
SET S5
BR.
RST S K=90
D1=D1H
DIC=D1@Hl+C
BR IF PI BIT4=1
01=01+1(02
BR IF S5=0
D1=D1+K01
D1=Dl+KOA
BR IF GO BIT7=1
STB 01 U-1
T1=G1
BR IF HZ=O
BR IF LlNZ
Dl-=O
HO=O$KOF
BR IF GO 81T5=0
Hl=O
BR
STB HI U-l
Gl=G1-HO
BR IF HZ=O
BR IF lZ=O
ROB 01 V-I
ZERO AND ADD
RESET SO,S3,S4
ADD
SET UP DEC RE~ENT
READ 1 ST 2ND OP BYTE
RESET S2,S4,S5
FOR PLUS A,C,E
FOR F
FOR PLUS
FOR CaMP AOD
SET SO,S3,S5
SIGN TEST ISO VF R
BR IF ZERO AND ADD
I NV ER T G04
STRIP SIGN
READ 2ND OPERAND BYTE
TEST
TEST
TEST
TEST
SET UP FOR TRUE ADD
RESET SO.S3
STRIP SIGN
ADD F!RST CH~R
BR IF ASCII
BR IF PLUS
TEST FOR COMPARE
TEST FOR DEST END
TEST FOR SOURC F LEFT
PAGE 136
AOOR
WORD
l1A8
13AA
13AC
13AE
D018
5FIC
7F7F
FOIE
5006
93AO
5006
938E
1413
3002
9350
573A
F5D1
7A7F
1 A9F
C4F9
0002
J 415
2A07
93F8
E509
7A7F
C4F9
93CA
7A7F
F5E 1
E445
93CA
1420
93F8
77AF
93F6
9372
F OF r)
C5BF
573A
F5E '5
77AF
C4F9
2002
£>5FF
F OEC
CIE9
(591
F589
E588
0101
AA74
F03C
OlAF
A824
1380
13B2
13B4
I1B6
13B8
13BA
13BC
13BE
13CO
13C2
13C4
13C6
13C8
13CA
13CC
13CE
1300
1302
1304
13D6
13D8
13DA
13DC
130E
13EO
13E2
13E4
13E6
13E8
13EA
13EC
13EE
13FO
13F2
13F4
13F6
13F8
13FA
13FC
13FE
1400
1402
1404
1406
1408
140A
140C
SEQUF:NCE NO.
CSAS
CSAS
r: SA S
CSAS
C SAS
C SAS
CSA. S
C SAS
CSAS
C SAS
CSAS
C SA S
C SAS
CSAS
CSAS
CSAS
CSA S
C SA S
C SA S
CSAS
CSAS
C SAS
C SA S
C SA S
C SAS
CSAS
CSA S
CSAS
C SA S
C SAS
C SAS
CSA S
CSAS
CSAS
CSA S
C SA S
C SAS
C SA S
CSA S
CSAS
CSAS
C SAS
CSAS
CSA S
CSA S
CSAS
CSAS
CSAS
CSAS
CSAS
CSAS
052
053
054
055
')56
057
058
LABEL
ROOEST
COMPUT
C69
070
071
072
073
074
07'5
076
077
078
079
080
08l
0132
083
084
n85
086
087
088
089
09C
091
092
093
094
095
096
097
098
099
100
101
102
NEXTLABEL
045
lROOS T
047
STORED
048
DECLGT
039
T STLG T
OECCMP
059
060
061
062
063
064
065
066
067
068
NEXTSEQ
S SOPFB
S SOPF9
C08
STUPDC
072
COMPGO
092
OKSOF A
092
076
OKSOFA
MYBEOK
092
069
OKSOFA
SETOVF
080
066
069
STLOKA
TSTNIN
SETOVF
092
OKS OF A
091
025
094
063
OVFLAA
NOS IGN
ALL END
COMPAD
082
TRUCAR
092
OKSOFA
086
084
104
100
101
136
CICY 003
126
103
CLOG 063
MORDST
NOOSI N
ALENOB
ALENOA
ALENDC
ALENDI
CHECKX
ALENDG
ALENDD
OP95A
COMPAD
TSTNIN
SETOVF
COMPGD
MYBEOK
S TLOKA
TRlJCAR
NOnSI N
DESTNO
MORDST
OVFLAA
OKSOFA
ALL END
ALENDH
ALENOE
ALENOJ
AlENDA
ALENOC
STATEMENT
BR IF GO fH T5=1
RDB HI U+O
HIC=Hl@Dl+C
BR IF GO 81T7=0
U=U-l
BR
U=U-l
BR
GO=GC*-KOI
SET S K=90
BR
ROB 01 V-I
BR IF S 3=1
TOC=TC@Dl+C
TO=TO
093
094
095
096
097
098
067
C IC V 004
075
075
087
*
*
*
LEFT1
a
CLOAD=*E60, EC LEVEL=128266
COMMENTS
ST ATEMENT
BR IF LZ=O
BAL
TO=O
ROH P OA,BR
BR IF G05=O
STH V AS,T+2
STH U AS,T-2
Tl=T1*-K10
STH H AS,T+2
5TH D AS,T-2
BR IF G06=l
BR
BR IF G07=0
BR. IF so=o
RDH D AS,T+O
DO=DC*-K80
BR IF S5=0
DO=DO$K80
STH 0 AS,T+O
BR
BR IF HCO=O
BR
RST S1
H=H
0=0
BR IF G05=0
V=V
U=U
BR IF Sl=l
RR
BR
*** LEFT 1 ROU TI NE
RST 53
BR IF G05=O
U1C=Ul+U1
UOC=UO+UO+C
V1C=Vl+V1+C
VOC=VO+VO+C
DIC=01+01+C
DOC=OO+OO+C
HIC=H1+H1+C
HOC =HC'+HO+C
BR IF NOVFL
SET SO
TOC:TO+TO+C
P1=P1+KOF
8R IF LZNZ
RTN
DO LEFT SHIFT 1 THRU 7 PLACES
REMOVE EXT SIGN
RESTORE MASK
STORE
LOW
DOUBLE
STORE
SINGLE OR HI DOUBLE
LOGICAL GO BACK
BR IF RI GH T- r·.JO nVF CHECK
lEFT ALG CHECK OVF
HAVE OVF FIX SIGN
IvIAKE SIGN +
BR IF C1RIGINAL SIGN +
MAKE SIGN STOR CORR EC T SIGN
CC 1
TEST
HI
SR IF S I NGL E
TEST
lOW DOUBLE
CCO
***
SHIFT
LEFT
ONE
HIT
SAVE CARRY FOR R.IGHT SHIFTS
DEC COUNT
PAGE 142
ADOR
WORD
3340
3342
3344
3346
3348
3344
334C
334E
0052
5115
4013
5005
4303
5335
4233
5225
4123
5715
4613
5665
4F63
5FF5
4EF3
5 EF 5
4AE3
12RE
3350
3352
3354
3356
3358
3354
335C
335E
3360
3362
329A
329C
329E
32AO
32A2
32A4
32A6
32AR
32AA
32AC
32AE
~280
3282
3284
3286
3288
32 SA
328C
~28F
3290
3292
3?94
3296
3?98
3280
3282
32B4
32B6
F COl
nC26
5019
5309
5239
5729
'5679
5FA9
5EF9
5AE9
128 E
6EAl
C48C
018A
CFOF
3000
C Ft'1E
300C'
5FE9
56F9
5769
0031
2707
128E
5279
5329
5039
5109
SEQUENCE NO.
CSF T
C SFT
C SF T
( SFT
C St= T
C SFT
(SFT
C SF T
C SF T
C SFT
C SF T
CSFT
C SF T
C SFT
(SFT
C SFT
C SF T
CSFT
C SF T
CSFT
CSFT
CSFT
C SF T
C SFT
CSFT
C SF T
C SFT
C SFT
C SF T
C <::;FT
CSFT
C SFT
CSFT
C SFT
C SFT
C SF T
CSFT
C SFT
C SFT
C SFT
C SFT
C SFT
C SFT
C SFT
CSFT
C SFT
C <::;FT
C SFT
C SFT
C SFT
CSFT
106
101
LABEL
*RIGHT4
NEXTSEQ
NEXTLABEL
116
R4SHOR
140
13 '5
LEFT8
SHORTR
lOR
109
110
III
112
113
114
115
116
117
~4SHOR
ll8
119
120
121
122
123
124
125
126
127
128
129
4
***IF RIGHT
BR
G05=0
Ul=UlXL
Ul=UOXH+UIL
UO=UC XL
UO=VIXH+UOL
Vl=VlXL
Vl=VOXH+VlL
VO=VOXL
VO=DIXH+VOL
01=OlXl
01=DOXH+01L
OO=OOXL
OO=Hl XH+DOL
Hl=H1XL
HI =HOXH+H1L
HO=HCXL
HO= TO XH+HO L
RTN
ROUTINE
***
*
*
*
*SHIFT8
130
131
132
133
134
135
1""-'6
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
CLO AD=*E60, EC LEVEL=128266
COMMENTS
ST ATEMENT
SHORTR
l EFT8
PLUS
3VF SE T
OK
LONGL8
146
145
147
OVF SE T
PLUS
OK
147
OK
153
LONGL 8
COMMON SHIFT
**
IF
BR
G07=1
RR IF G05=O
Ul=UO
UO=Vl
V1=VG
VO=Ol
01=00
OO=rll
Hl=HO
HO=T0
RTN
HO=HOIt CROSS
REFERENCE FOR CSECT CTRT *
**********************************
LOOIG
086
085
082
082
ISSSTA
SSTAT
NONDEC
DGTlRO
I)RR
089
090
091
092
093
094
095
096
097
098
099
lCO
042
051
048
090
CCOM 071
083
090
NOSGST
095
051
SIGN
098
099
PLUS
"1INUS
101
CICY 264
CTRT 020
01?
017
030
265
037
054
CLOAO=*E60, EC lEVE l= 128266
COMMENTS
LABEL
crcy 266
051
STATEMENT
PAGE 151
CLOAD:*E60,
CTRT
eTRT
CTRT
CTRT
CTRT
CTRT
eTRT
CTRT
CTRT
CTRT
CTRT
CTRT
CTRT
eTRT
CTRT
CTRT
CTRT
051
055
058
060
061
063
064
065
068
IJ 82
083
085
086
090
095
098
099
CTRT
CTRT
CTRT
CTRT
eTRT
CTRT
CTRT
CTRT
eTRT
CTRT
CTRT
CTRT
eTRT
CTRT
eTRT
eTRT
eTRT
094
CTRT 101
047
05?
061
058
059
(145
043
065
072
CTRT 073
OP6
071
069
084
092
095
Og7
CTRT 088
**********************************
* CROSS REFERENCE fOR CSECT CTRT *
**********************************
~C
lEVEl=128266
PAGE 152
ADOR
23F2
23F4
23F6
23F8
23FA
23FC
23FE
2401)
2402
2404
2406
2408
240A
240C
240E
2410
2412
2414
2416
2418
241A
241C
241E
2420
2422
2424
2426
2428
242A
242C
242E
2430
2432
2434
2436
2438
243A
243C
243E
2440
2446
2448
244A
244C
244E
WORD
56f)2
1 771
57B5
1BR,
3BR5
5BAO
5468
C 251
B44A
4052
47.06
0146
ClIO
3485
1583
556A
0119
C1l8
,085
5666
7068
7160
1 768
5068
5260
C21E
C080
55E9
5F59
54F9
5849
0235
3000
2400
(IC3
AGOE
5489
55F9
2135
8AOO
5560
716 A
7060
2080
A428
SEQU~NCE
DCHN
DCI-lN
DCHN
DCHN
f)CH N
f)CHN
f)CHt-.~
NO.
or 1
0,8
03 0
040
('141
LABEL
NEXTSEQ
T
*
*
*
ENTRY
NEXTLABF.L
CHANi'J EL 0 INJERRUPT ROUTINE
053
NTCNTR
1')59
OCHt\j 060
DCI-l~~ ()A 1
OCH"J 0A1
DCHt\j 064
DCHI\,j 065
f)CHN 073
DCHf\J 074
OCHN j75
OCH!\J 076
DCH~~ 177
DCHN ')78
DCYN 079
DCHN 080
OCHf\J 081
OCHN 082
DCHN 083
DSHN 184
DCHN 085
r)CHN 086
f)UiN 087
nCHN 088
f')CHN C8q
DCHN O28
029
030
AORI
069
039
OPI NUP
ClJBUSY
023
ADR 1
033
ADR28
AOR2R
SUN
033
031
032
,')33
034
')35
036
C37
038
039
040
038
ADR33C
I NF CHK
038
060
CCOM 166
DCLR 155
I NF CHK
I Ploa 2
CC3B
I NF CHK
038
I NFCHK
038
C46
I NF CHK
ADR9
042
ADRI0
018
059
059
I NF CH K
S TR TI (1
S TR TI 0
052
ADR28
ADR29
ADR30
INFCHK
CUBUSY
f)41
042
ADR 10
043
044
045
046
047
048
049
0'50
051
052
05 '3
054
()55
056
AOR9
AOR33
ADR33B
ADR33C
ADR34
057
058
059
060
061
062
063
064
065
066
067
068
069
S TRTI 0
{PLOO2
ADR32
CCOM 123
DClT 041
067
DClL 025
050
050
ADR 33A
HAL TI 0
ADREBR
QPINUP
S TA TO S
I NT RT X
ADREBR
I Pl ST P
ADR33
ADR33
CCOM 155
CCOR
170
ADRE
ST ATEMENT
SET GA K=08
GB/OUT=D1
SET GA K=28
SET GA K=2C
BR IF (;T BIT4=1
BR IF GT BIT3=1
00= DO +K02
BR IF 00 BIT2=0
Z=Gl*-KOC
BR IF llNZ
BR IF G1 BIT3=0
VI=0$KO?
vo=o
BR
BR IF GT BIT1=1
SET GA K=OO
BR IF DO BIT7=1
BR IF RA BIT4=1
BR
BR
GO=GBII N
BR IF GS BIT3=1
SET GA K=28
BR IF DO BIT2=1
BR IF GT BIT3=0
OO=DO+K02
BR IF GT BIT3=1
SET GA K=08
BR IF DO BIT7=1
BR IF Gl BIT6=1
BR IF (;1 BIT7=1
Vl=O
VO-=GO
STH V OA,AC
SET GA K=OC
SET MODE K=OO
RDH H DA,AC
TO=O
RAL
i3R
BR IF SA BIT4=O
8R
8R IF G13=1
GO=GO
8R IF ZNZ
SET GA K=OO
BR
SET GA K=28
Vl=O
BR
SET GA K=OC
CLOAD=*E60, EC LEVEL=128266
COMMENTS
SET INl SE l EC T lATCH
PUT AOR ON BUS OUT
SET ADDR-OIJT
SET SEl-O AND AOR-O
BR IF OP IN UP
BR IF STA-IN UP
INCREMENT cnUN TER
BR IF NO TIMEOUT
MASK G1 BITS6 AND 7
BR IF STAR T I/O
BR IF TEST 110
SET INTFCF CTRl CHECK
SET CO UNIT ST ATUS
BR IF
RESET
BR IF
RR IF
SEl IN DOWN
ALL TAGS OUT
CHAINEfJ-TO Ccw
IPL
BUSS IN TO GO
BR IF PARTTY ERROR
DROP SEl-OUT,KEEP AOR-O&INl SEL
BR IF TIIv1EOUT
BR IF STA-IN nOWN
INCREMENT COON TER
BR IF STA-IN STIll UP
DROP ADR-OUT , KEEP lNl SEL ON
BR IF CHAINED-Tf) CCW
BR IF
STAR T I 10
SET Of! CHANNEL STATUS
"10VE UNIT STATUS TO VO
SAVE STATUS
DROP ALL TAGS OUT
RESTDRE CHAf\lNEl STATUS
BAL TO P,THE TO STOqE esw
RTN FROM BAL FOR 110 I NT ONLY
BR IF NOT IPl
GD TO IPl STOP
BR IF 110 INTERRUPT
BR IF STA 'll
RESET INl SEl
S~T CON CODE a f. R TN TO ICYC
RAISE AOR-O AND DROPSEl-O
CHNL S TA TU S = 0
GO SET I/O INTERRUPT
RESET ADR-O
PAGE 164
ADDR
WflR D
OE5E
OE60
OE62
OE64
Of66
OE68
OE6A
OE6C
OE6E
OE70
0E=7?
OE74
OE76
OE78
0010
E61 F
(OE9
2628
CDEO
4F4F
5F4F
FC9F
6471
C49E
0548
C4D7
2BC2
9E86
lE86
IF88
lEBA
lE8e
IE8E
lFge
lE92
lE94
11:96
lE99
lE9A
lE9C
lEgE
lEAC
lEA2
lEA4
lEA6
lEAR
lEAA
lEAC
lFAE
lEBO
lEB2
lEB4
0442
0444
2F70
7F72
2F74
lE84
F 61) '5
F D8F
?62B
FOg6
5F4F
FCR5
F 123
F 123
288 B
F 605
C9AO
262B
C999
8E4C
C4B6
F 23 3
2004
"3685
7 A3 2
1685
D134
2002
1 '543
8442
2 B4B
AF70
1635
C~F7
A7AE
A154
SFQlJENCE NU.
DCle
DClC
DCLe
DClC
OCl':
DelC
Dele
DeLe
DeLe·
DCLe
OCLC
f)ClC
DCle
I)ClC
DCle
DeLC
nClC
DelC
OClC
DClC
DClC
DClC
DCle
DelC
i)ClC
OClC
DClC
DCle
DClC
f)ClC
f)(lr:
DCle
nClC
Dele
f)ClC
I)ClC
f)ClC
OCle
f)ClC
DCLC
DClC
DClC
DCle
Dele
oelC
DClC
OClC
DCle
DelC
OClC
DClC
LABEL
)70
071
072
073
')74
075
07A
077
078
AOR2
NEX TSEQ
NEXTLABEL
075
INFCHK
ADI NU P
071
ADR2
038
1 NFCHK
038
1 NFCHK
066
HAL TI a
085
ADR3
124
089
I NFCKK
STINIJP
085
AOR 3
124
099
099
I NF CK K
NOTTS T
NOTTST
124
e98
I NF CK K
ADR32 B
094
061
126
107
AOR 31
AOR32
NZS TA
NOB UF F
108
NOTBlJF
038
ADINUP
~·7q
G80
081
082
083
084
OR5
08A
087
AEND
AOR3
'J8~
')9('
091
'J92
TSTIS
ADR 31
0Q~
'J94
095
")96
097
098
099
lCO
101
ADR 32 B
'10TTST
ZEROST
111
112
113
114
116
118
11q
FAAEEX
125
206
DClR 155
I PLOD 1
ADR24
I NFCHK
OO=DO*-K30
BR IF BA. BIT4=1
BR
BR
NOBUFF
\l OT BUF
116
ATABLE ADDR=C442
*
122
123
124
I NFCKK
121
FAAEI
*
>:(
*F AAEl
AEND
FAAEEX
I PlBR
PST SUPR OUT
RR IF TIMEOUT
BR IF ADR-IN UP
INCREMENT COONTER
BR IF ADR-IN NUT UP Y
PUT CMD ON BUSS OUT
PIT DEVICE ADR IN GO
BR IF PARITY ERROR
COMPARE ADDRESS
BP IFADR MISMATCH
T ES T FOR HAL T 1/0
BR IF Hl T 1/0
SET C"'1D-O
121
102
103
104
10 '5
106
UH
1r; 8
110
RST GB K=OI
BR IF DC BIT2=1
BR IF GT BITO=l
DO=DO+K02
BR IF GT BITO=O
GB/OUT=GO
GO=GBIIN
BR IF GS BIT3=1
GO=GO
LABEL
034
03 '5
036
037
038
039
E XP STA
840
OCLR 140
016
015
029
"}l4
019
iJ3n
013
NEXTSEQ
DClD 025
OCLO 038
033
NEXTLABEL
STATEMENT
CLOAD=*E60, EC LEVEL:128266
COMMENTS
RTN G MMSKO=C
R E TUR N FOR 11.1 TR AP
Vl=O
GB/OUT=Vl
SET RUSS-OUT TO ZERO
SET GA K·=14
SET CMO OUT
CTCO,t\
RR IF Gl BIT5=1
BR IF CMO n SET PREY
G1=Gl$K04
G1 BIT5=1 CMD-O GIVE
RTN G MMSKO=O
RETURN FORM TRAP
**********************************
* CROSS REFERENCE FOR CSECT OCLD *
**********************************
PAGE 111
DCLE
CLOAD=*E60, EC LEVEl=128266
DESCRIPTIVE TEXT
PAGE 112
CHANNEL LOW PRIORITY TRAP STATUS ROUTINES
PYTE CHANNEL
HURST CHANNEL
WHEN THF BYTE C~ANNEL 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 EITHER -I. DATA SERVICE - BUFFERED DEVICE, OR
2.
STATUS - ANY DEVICE.
RYTE CHANNEL FNTRY POTNTS
BURST CHANNEL ENTRY POINTS
0180
LOw-PRIORITY TRAP-ADDRESS FOR DATA OR STATUS.
STA TUS
i=NTRY LOOP OF -DCLD- WHEN STATUS-IN
RISES. THIS PORTION OF -DCLE- HANDLES
0180
-- LOW-PRIORITY TRAP-ADDRESS AS DESCRIBED ABOVE.
FROM
S T t\ HI S.
hDDR
~;ORD
SfQ1JFNCE NO.
f)~L
0180
0182
0184
2244
C 886
01B6
3613
eCAS
0127
"i 212
5038
0088
FO.A4
0188
018A
D18C
018E
0190
0192
0194
0196
0198
019A
019C
O19E
OIAO
OlA~
01A4
01A6
01AR
OBE6
OBE8
OBE2
OBE4
OBEA
OREC
OREE
OBFO
30B6
0244
~l1g
C4AC
'5230
ovn
FOAC
95F4
'5212
9 '5(2
95FA
AI54
8BI:6
EOE2
8112
FOEA
R09C
2B40
2645
3613
80B6
C087
c
DCl E
'JCLE
!)eL E
DCLf
OC 1
Cleg
LABEL
T
ATABlE
NEXTlABEL
012
""1'
DCle: C'14
DCLE GI5
DCLE 016
OCLE 01 7
ocu: 018
f)CU: 019
Dell': ':'20
'JeL ~ 021
DelF q??
DCl!= ')23
nct E J?4
126
027
PRGERD
028
NOTIC
ADR41
ADR40
AEN!)
ADR40B
029
G3Q
031
,,32
033
0,4
035
036
037
03B
ADR40A
040
013
GO
030
029
ADR40
ADR41
028
NOTIC
026
PRGERD
026
DCLB 081
PRGERD
RDHWI
DeLB 110
OClB 084
DCLR 155
032
PRGERC
NOTIC
I NF CHK
ADR408
034
DCLD 011
036
060
ADR40A
OPBRCH
NTS TI N
CHE ST A
NTS TI N
';39
!\ OR 43
COI'<1MENTS
CHANNEL LOW PRIORITY TRAP STATUS ROUTINES
GO
DCLE 025
STATEMENT
H.E.BERKEBILE
ADDR=0180
:)10
')11
f)CU=
DClE
DClE
OClE
OClE
nCLF
'JCl F
Del::
nCLI::
DCLi=
DeLE
DCL E
!)CLE
DClF
DCLE
DCLE
NEX TSEQ
040
048
ADR 43
ADR44
LINK G MMSK2= 1
BR IF GS RIT4=O
RTN G Mt4SK2=0
00= DO $K01
BR IF GS BITO=O
BR IF Gl BIT5=1
RDH V DA,8A
RDH U V+2
1=UO:<-K08
MASK G1-5,6,7
ADR50
BR IF ll=O
BR IF ClR
V1=V1$K40
PUTINClENGTHINCHNlSTA
AOR 11 A
BR
TRY TO SET INTRUPT BUFFER
MASK CHANNEL S TA TUS
Z=Vl*-K01
AOR 51
BR IF lNZ
BR IF CHNl STATUS NZ
ADRABC
BR
CONTINUE TE ST I NG STATUS
**********************************
* CROSS REFERENCE FOR CSECT OClE *
**********************************
Slq
')'34
G39
STATEMENT
DCLE 067
PAGE 113
**********************************
*
DClE
DeLE
DeLE
DeLE
DClE
060
063
066
072
071
DCLE
DCLE
DCLF
DCLE
DeLE
035
J60
064
274
06'3
CROSS REFERENCE FOR CSECT DCLE
*
**********************************
DClE 070
CLOAD=*E6Q, EC lEVEL=128266
PAGE 114
DCLH
DESCRIPTIVE TEXT
HALT 1/0 RnUTINE
CLOAD=*E60, EC LEVEL=128266
PAGE 175
ENTRY POINTS CONTINUED
THIS QOUTTNF ~XECUTES A HALT 110 INSTRUCTIUN WHEN THE
BURST CHANNEL OPTION IS LOADED IN CONTROL STORAGE.
ADRO
FROM -DCLT- FOR INACTIVE TEST 1/0
TO TRANSFER INFORMATION FROM ONE LOCAL
STORAGE lONE TO ANOTHER.
ADROA
FROM -DCLT- FOR INACTIVE 1/0 INTERRUPT
TO TRANSFER INFURMATION FROM ONE LOCAL
STORAGE ZONE TO ANOTHER.
ENTRY POINTS
ENTRY
ADDR
WORD
2645
2407
D140
HOFA
8DF6
2C25
24F6
221 f)
F04E
OCll~
019
('210
810C
DCLH
I")ClH
DCLH
,)ClH
DCLH
DClH
!)CLH
DClH
DCLH
DClH
020
021
022
1000
2R84
0210
E 5') 0
4006
C400
3445
S02 f
neLT
C07
DelT
OClH
DCLH
')ClH
DCLH
016
022
O?9
001
002
004
"'1('5
006
007
LABEL
T
*
FNTRY
NEXTLABfL
CHANNEL
016
l\DROA
00R
OOq
010
:)11
'H2
013
014
015
016
'n 7
HLTEBR
ADR1
015
DClC 020
DClC 018
J18
022
CCOM 155
ADR6
023
:174
025
026
029
027
02Q
')28
07Q
f\lOINCL
J() ')
:J64
')13
)1"; 4
019
025
NEXTSEQ
1\ ORO
DCLA 123
006
015
NO.
DCLH
DCLH
OCl H
Dr:LH
OCLH
OCLH
DCLH
DCLH
DCL H
DCLH
DCL H
DelH
lJ CL H
DClH
DCLH
DCLH
DCl>-i
565q
004
-DCLA- 110 INSTRUCTIONS ROUTINE WHEN A
HALT 110 INSTRUCTION IS DECODEO.
FRn'~
SFQUE~JCE
CA43
2043
7022
24F6
2 R80
5622
225E
226('
27.62
2264
2266
2268
226A
226C
226E
2270
2272
2240
2242
2244
2246
2248
224A
224C
224E
2250
2252
2254
2256
2258
22511.
2?5C
DClH
DCLH
OClH
DCLH
DCLH
DCLH
DCLH
--
DCLH 027
OClR 067
ADR 1
STATEMENT
HAL T I/O
BR IF 00 RITO=1
LJO=O$KG't
STH U DA,8C
S!=T MODE K=3F
SET GA K=OR
RDH D DA,8C
Gl=OC
00=0$K40
GO=O
BR IF G15=0
BR
BR
PO=O$K2C
SET MODE K=3F
SET MMSK K=Ol
RR IF GO BIT7=0
RST M"'1SK K=01
BR
RST GB K=80
SET GA K=28
RST MMSK K=Ol
BR IE Gl BIT2=1
U=LJ
BR IF l=O
GO=GO$K40
COMMENTS
H. E. BF.RKEB Il E
BR IF ACTIVE
SET UP UOTO INDICATE HLT 1/0
TEMP STORE UNIT IDEN T HWD
SET CHNL 1v10DE f: lONE
SET INl SELECT LTCH
RD OUT UNIT IDENT
G1 = T ST I 10 OR Hl T 110 IDENT
SET 0 TO IDENTIFY BUP ST CHNL
GO = CHNL STATUS
BR IF NOT HALT I/O
HLTfBR
HLTEf\lT
GO GET o EV ICE OM I NT ER FACE
NOPCIB
GO GET DEVICE ON INTERFACE
SET eC2
SET CHNL !I.10DE
SET O.ATA-TRAP PRIORITY
ADR6
13R IF NO STA R ECD
RST DATA-TRAP PRIORITY
CCOB
BP TO CCO SE T RTNE
RST COli. REQ LTCH
SET ADR-OUT AND INL Sf L LATCHE S
RST nATA-TRAP Pl<,IORITY
Nor NCL
BR IF Sl I BIT ON
U=COUNT
BR IF COUNT = C
NOINCl
PUT INC LGTH BIT IN CHNl STATS
PRGECC
BR
BR TO PTNE TO SET INT BUFF ER
**********************************
* CROSS REF ER ENCE FOR CSECT DCLH *
**********************************
DCLL
DESCRIPTIVF.
CLOAD=*E60, EC LEVEl=128266
TEXT
PAGE 116
ENTRY POINTS
ENTRY IS MADE TO THIS LABEL FROM THE -BSYSQOUTINE.
THE FOLLOWING STEPS HAVE TAKEN
PLACE PRIOR TO ENTRY HERE 1. THE LOAD KEY HAS BEEN PRESSED AND
A MACHINE RESET PERFORMED.
2. THE RESIDENT DIAGNOSTIC -BDIAWAS EXECUTED.
3.
THE CHECK SUM ROUTINE -BCHK- HAS
BEEN EXECUTED.
4. THE SYSTEM RESET ROUTINE -BSYSHAS BEEN EXECUTED AND A BRANCH TO
THIS ROUTINE AT LABEL * IPL *
HAS AEEN PERFORMED.
IPL
I
Pl WTt
(BURST CHANNEL), ENTRY IS
MADE AT THIS LABEL FROM THE -DCLC- ROUTINE
TO ENTER THE IPl WAIT LOOP AND ~AIT FOR A
TRAP TO ADDRESS 0170 IN THE -DClDROUTINE, OR, IF BUFFERED DEVICE, TRAP TO
~DnRESS 0180 IN THE
-DCLE- ROUTINE.
fF
OP~RATING
WORD
3390
3392
3394
3396
3398
339A
42A6
44A6
2423
74R8
70B8
2465
74118
339C
339E
33AO
33A2
33A4
33A6
33A8
33A.A
33AC
33AE
33BO
3488
348A
2115
3183
70R8
3R45
46A6
17FD
SADA
1 OF '5
24C3
894E
0214
R48A
SEQ!JENCE NO.
Dell
Dell
DCLL
DCl l
nelL
DCl L
DCll
DeLL
DeLL
DCl L
nell
DCll
DeLL
DCLL
DeLL
DeLL
DCLL
Dell
DCll
DCLl
)C 1
002
,J('3
004
LABEL
T
I Pl
G05
006
007
008
oeq
tHO
.) 11
012
013
014
015
016
')17
018
019
024
I PLWTL
WA I TLP
ENTRY IS MADE TO THIS LABEL BECAUSE OF SOME
UNRECOVERABLE ERROR BEING DETECTED. A HARD
STOP IS EXECUTED.
IPLSTB
ENTRY IS MADE TO THIS LABEL IF OPERATING
(BURST CHANNEL), FROM THE -DCLC- ROUTINE
TO CHECK CHANNEL STATUS AND THE COMMAND
C HA I N I NG FL AG •
IPLSTA
ENTRY
(BYTE
AFTER
ZEROS
ucw.
IS MADE TO THIS LABEL IF OPERATING
CHANNEL), fROM THE -DCLC- ROUTINE
ALL CCWS HAVE BEEN READ, TO STORE
IN THE FLAGS AND OP HALFWORD OF THE
AS
TF OPERATING AS
(BYTE CHANNEll, ENTRY IS
MADE AT TH I S LABEL FROM THE -DCLD- ROUT INE
AFTER OPERATIONAL-IN HAS DROPPED. THE WAIT
lOOP IS ENTERED TO WAIT FOR A T~AP TO
ADDRFSS 0180 IN THE -DClE- ROUTINE.
AODR
IPLSTP
NfXTSEQ
NEXTLt\13EL
ST ATE~ENT
INITIAL PROGRAM LOAD ( I P l )
V=T
G=T
GO=O$KC'2
STH G T+2
STH U T+2
GO=O$K60
STH G T+2
Ul=0$KI0
Ul=Ul$K08
STH U T+2
Tl=Tl$K40
D=T
D1=D1!t-KOB
BR IF 01 BIT3=1
BR IF 01 BIT2=1
RST PRA K=40
RTN
BR IF 01 BIT2=1
PST R K=02
RTN
RST P K=02
RTN
RST TA K=22
BR IF P04=O
PO=PO*-KOB
RTN
RST MMSK K=71
BR IF NO PC I
SET PCI ALONE
BR IF SA '''E IN INT BUFFER
BLOCK TR .L\P S
SR IF IS FULL
TAKE IT
STORE ADDRESS IN [B
ALLOW TRAPS
SET IB BIT
RST REQUEST, BR IF RDR OR TW
BR IF PCH
PST P T R RE QlJ EST
BR IF Tw
PST RDR REQUEST
RST PCH REOUEST
RST SHARE MICRO FORCE
RST END STAT
SOMEONE ELSE IN IB PST MMSK
ADDR
WORD
SEQUENCE NO.
OFEA
OFEC
OFEE
OFFO
OFF2
OFF4
OFFA
OFFC
OFFE
OFF6
OFFR
OFB4
OFB6
OFB8
1683
0575
F77B
E777
2DR8
128E
E 73 '5
2B30
128E
2F30
128E
DCOM 046
OCOM 047
DC(lM 0'57
DCOM 059
DeOM 060
DCGM 061
DCOM 062
OC(Po1 064
DCOM 065
DCOM 066
DrOM 072
OCO M 073
DcnM 074
DCOM 075
OCOM 076
OCO M 077
DeOM 1)78
oeOM 079
DeOM 08C
DeOM 081
oeOM 082
oeOM 083
DC']M ('84
DC]M ORS
DCOM 086
C 838
2F04
128 E
3404
3406
3408
340A
340C
340E
3410
DCOM
DCOM
OCOM
oCOM
DCOM
DCOM
DCOM
DCOM
DCOM
DCOM
OCOM
OCOM
DeOM
oeOM
DCOM
DCOM
DCOM
2E07
7468
7E68
7060
C 511
2 AD7
128F
006
008
012
025
030
034
041
044
045
061
062
066
073
075
080
081
086
DPTP
DPTP
DCOM
ERRQ
DCOM
DeOM
037
025
027
DCO~
030
DCOM
DCOM
OCOM
DCOM
oeOM
DCOM
OCOM
DPrR
DPTR
DCOM
042
069
075
LABEL
NEXTSEQ
RETURN
ROTW2
TW2
RETURN
ROTW2
PCH2
073
TW2
075
T kREXT
*
*
*
*
TWREXT
STATEMENT
OO=DO*-K08
BR IF GIl=l
BR IF 01 BIT3=1
BR IF 01 BIT 2= 1
SET PRA K=48
RTN
BR IF D1 BIT2=I
S~T R K=03
RTN
SET P K=03
RTN
RR IF P04=O
SET TA K=20
RTN
CLO AD=*E60, EC lEVEl=128266
COMMENTS
RST PC I ALONE
DONT QUE PC I CMND 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 MI CRG FORCE
THIS ROUT INE STORES THE CHNl STATUS, FLAGS, UNT T ST ATUS AND
THE COUNT OF THE NATIVE o EV IC E INTO ITS Ucw.
CHANOK
REOSTR
OB6
RETUN
DYPE 040
DYPE 013
DYPE 086
fRRQ 051
010
OCOM 047
057
059
Q6~
073
073
076
OR4
061
062
066
PCH2
00R
006
NEX TL ABEL
OPTS 142
DYPE 238
ERRQ 047
HO=O
STH G AS,0+2
STH H AS,0+2
5TH U AS,D+O
STORE COUNT
RETUN
BR IF Gl BITO=l
BR IF CDA
TO=O
RST TO
RTN
**********************************
* CROSS REFERENCE FOR CSECT DCOM *
**********************************
PAGE 186
ADOR
237E
2380
2382
2384
2386
2388
WOP. 0
1 E70
EOqC
f81C
E B09
F~1D
238C
238F
2390
2 C75
2005
51C0
1385
CAl5
21q2
3385
2~8A
2394
2396
2398
239A
239C
23CA
23CC
23CE
23<)E
23AO
2~A2
73CO
8C.58
E E4A
EP,lF
8C5C
F210
3 F2 3
8C58
74E2
76F2
2Fl('
SEQUENCE NO.
f) MC S
OIvlCS
O~C S
DI-1C S
D~C S
01\1C S
OMC S
f)~C S
O~(
S
2113
72A2
2421
2-l,!lA
25!l3
23AC
23AE
2380
23H2
2384
2386
23B8
23BA
23BC
23BE
23CO
23C2
23C4
23C6
23C8
2300
2302
23D4
2306
2108
Oli 3
004
Or- ')
006
I'JC' 7
or9
013
014
')15
016
C:11
f)'~CS
EBF3FB
'~C S 021
f)"'1C S 022
D''lC S 023
D1I.1C S 024
f) "'1C S 02 I)
f)<"1C S 026
!l'~CS 027
n \1C S :)2 8
02 q
41'+11
SIC q
OMC S D31
4826
6918
68AO
5B38
5098
2C18
6BOl
C401
52A2
6773
012C
21F5
A304
rCFD
C486
497F
2C15
DIK S 038
O"'1C S 039
NEXTLABEL
MC S LOAD ROUTINE
022
022
009
022
CMDREJ
CMOREJ
R ST Bl T
CMOREJ
018
ADACHK
OPTS 125
023
026
OPTS 131
(22
NOOP
GAT EL 0
LOADOK
CMDREJ
CMDREJ
OPTS 125
NOOP
AOACHK
f)
DMC S 030
O"4CS 131
O;4C S 032
NEXTSEQ
R STB IT
020
S 033
O'-1C S 034
nw::s (\35
D"'1C S 036
21)0 I)
T
*
C07318
o "'1 ( S
OMC S
f)MCS
f) "'IC S
O"'1C S 018
f)"'IC S 019
:)1-1CS
23A4
23A6
23A8
1
002
f) ('
LABEL
CMDREJ
GAT ElD
LOADOK
*
*
*
KREPPEL
HO=HOKRIJ
T 1= T1 +KO 1
STB T1 AS,P
BR IF HG I3IT3=1
Pl=Pl+K'+O
DO= DC +1< 4 (I
'3R IF DYN '3IT3=0
HR IF PI< 0 B IT4= 1
RR IF 01 BITI=l
BR IF G1 BITO=O
*
II.1CS
ROUTINE
TARL E
ROUTI NE
READ CHA IN IfI.1AGE BYTE
TURN ON NEW CHAR AC TER SWITCH
INCREMENT PR I NT PO SIT ION COUNTER
STORE PRINT PO S NUMBER IN TABLE
BR AROUND FOLD ROUTINE IF ON
PLUS 40 HE X TO ADDRESS FOR FOLD
ADO 4': TO NUMB ER OF FOLDS CTR
STAY IN LOOP 4 TIMES
BRANCH IF NOT DlJALING
BR AROUND DUAL RTN IF 240 CHAR
BR IF NEW CHARACTER SWITCH OFF
DUAlING
*
TABLE
BUILD CLEAR CHARACTER OF FF
CLEAR TRANSLATE
TABLE TO FF
BUILD 00 I N pas 40 XLA TE TBL
GO STORE 00 IN POS 40 XLATE TBl
LOAD
* RDlOOP
MCS
ROUTINE
*
Gl=O$KI0
<-Dt 1ST
100
CKLAST
091
097
RoLIST
AOOROK
079
S TL GOP
BR IF GI BIT4=1
R. DR I 1 CS,G+l
II=II(PI
BR IF IN Z
BR IF Gl BIT7=1
G=G-2
ROB PI CS,G
BR
ROLOD P
Gl= T1
Gl=Gl(UI
BR IF lNZ
I\ODROK
*CKlA S T
076
*
*
*
SET REG TO DUALED PAIR LIST
BR WHEN REG PO IN TS PAST LI ST
GET ONE OF THE lJ UAL EO CHARACTERS
COf'WAR E TO CHA IN I MAGE CHARACTER
BR IF NOT EOUAL
BR If MATCH WAS FIRST Of PAIR
SET ADDR TO CHAR TO BE DUALEO
GET TABLE ADDR OF DUAL EO CHAR
GO STORE PRINT POSITION NUMBER
IN DUAL CHARACTER pas IT ION
TEST FOR
LA.ST CHARACTER
BRANCH IF NOT lAST CHARACTER
END HOUSEKEEPING
Pl=O$KOO
STB 01 AS,P
RDH G OA,BC
ROH 0 DA,BE
U1=O$KOO
S~T ADDR TO 70(( & 90eO
STORE PCCl CON ST ANT IN TABLE
RESTORE G REG
RESTORE 0 REG
ZERO COUNT
PAGE 188
ADOR
WORD
3276
3278
7E43
8048
220A
Dfw'CS
DMCS
DMCS
OMCS
OMCS
OMes
OMCS
OMCS
DMCS
OMCS
OMCS
OMCS
OMCS
DMCS
OMCS
DII1CS
DMCS
OMCS
OMCS
DMes
SEQUENCE NO.
OIl.1C S
OMC S
OMCS
O'1C S
O"1C S
OMCS
1 028
1)03
009
018
020
022
023
026
036
041
051
053
063
069
076
C79
081
084
C91
097
100
LABEL
111
112
11~
114
115
116
*ATABLE
NEXTSEQ
NEXTLABEL
OPTR 055
CHEND
I~H6
DPTS
DMCS
DMCS
DMes
OMCS
DMes
OMes
DMCS
DMCS
OMCS
DMCS
OMCS
DtJ.CS
DMCS
DMCS
OMCS
OMCS
(193
0,04
**********************************
* CROSS REFERENCE FOR CSECT DMCS *
**********************************
DMCS 005
OMCS 007
DMCS 023
DMCS 086
OMCS 0<)1
021
048
052
045
01)0
061
07C
1(' ?
D'1CS 098
094
095
084
SET DEVICE END
GO TO CHANNEL END ROUTINE
XCTL'1028303C50184C5D6C4D7C7D7B1E'
J20
083
ill?
ORO
HO=O$K04
BR
AODR=220A
C
AEND
OPTS 077
DMes 006
OMes
CLOAD=*E60, EC LEVEL=128266
COMMENTS
STATEMENT
OMCS 085
PAGE 189
ADDR
WOR 0
SEQUENCE
DDTC
OPTC
DPTC
DPTC
DPTC
OPTC
OPTC
OPTC
DPTC
DDTC
ODTC
DPTC
DPTC
ClPTC
OPTC
DPTC
DDTC
!)DTC
DDTe
DPTC
DPTC
DPTC
OPTC
DDTC
DDTC
DPTC
DPTC
DPTC
DPTC
DPTC
OPTC
OPTC
f)PTC
DDTC
DDTC
!) PTC
DPTC
DPTC
DPTC
DDTC
OPTC
NO.
001
002
OC3
004
1)05
006
OC7
OOR
009
:110
all
012
('13
014
015
016
017
018
019
020
021
022
023
024
025
026
027
02B
029
030
031
032
033
034
035
036
0',7
038
039
040
041
[)PTC 042
DDTC 1)43
OPTC 044
DPTC 045
DPTC 046
DPTC 047
DPTC 048
DDTC 049
DPTC 050
OPTC 051
LABEL
T
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
**
*
*
*
*
**
*
*
*
**
*
*
**
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
'*"
NEXTSEQ
NEXTLABEL
CLOAD=*E60, EC LEVEL=128266
COMMENTS
STATEMENT
1403 PRINT BUFFFR SCAN ROUTINE
THIS ROUTINE CAN BE USEO TO DISPLAY THE CONTENTS OF THE 1403 PRINT
LINE BUFFER (PLB). THE PLB CONSISTS OF 8 DATA PLANES PLUS A PARITY
PLANE. IN ADDITION THERE ARE 4 CHECK PLANES WHICH ARE USED TO
INDICATE THE CAUSE OF A HAMMER CHECK AT THE END OF A PRINT OPERATION. THIS ROUTINE WILL PRINT A 4-CHARACTER GROUP ON THE 1052 FOR
EACH PRINT POSITION IN PRINT POSITION SEQUENCE. A SPACE WILL OCCUR
BETWEEN EACH GROUP. AT THE END OF 16 GROUPS A NEW LINE WILL BE
STARTED. THE PRINT-OUT WILL CONTINUE UNTIL 132 GROUPS HAVE BEEN
PRINTED. THIS ROUTINE IS ENTERED BY USING THE ALTER/DISPLAY KEY.
'DB' IS THEN TYPED ON THE 1052. THE 132 GROUPS ARE PRINTED OUT
WITHOUT ANY FURTHER OPERATIONS. 'EOB' AND 'CANCEL' ARE INEFFECTIVE
DURING THE PRINT-OUT. AT THE END OF THE PRINT-OUT THE OPERATION
RETURNS TO THE ALTEP/DISPLAY ROUTINE FOR ADDITIONAL ALTER/DISPLAY
OPERATIONS OR FOR RETURN TO CPU CONTROL.
THE FIRST CHARACTER OF EACH GROUP IS THE CONTFNTS OF THE CHECK
PLANES. LISTED BELOW ARE THE CHARACTERS WHICH MAY BE PRINTED AND
THE CONDITIONS THEY REPRESENT. AHDO MEANS ADDRESSED HD OFF.
0,6
MAY OCCUR IF A COIL PROTECT CHECK TERMINATED
PRINTING
***NO ERROR***
1,2,3
SHOULD NOT OCCUR
4
MAY OCCUR ON A 1403-N1 IF A COIL PROTECT CHECK
TERMINATED PRINTING
***NO ERROR***
5,7,C,D SHOULD NOT OCCUR
R
PRINTED PROPERLY
***NO ERROR***
9
NO COMPARE OCCURRED AFTER SUFFICIENT PRINT SCANS
HAD TAKEN PLACE
***ERROR***
A
THE AHDO CIRCUIT INDICATED THAT A HAMMER DRIVER
WAS ON, BUT NO COMPARE HAD OCCURRED.
***ERROR***
B
THE AHDO CIRCUIT INDICATED THAT A HAMMER DRIVER
WAS ON, BUT BUT A PLC BIT WAS ON DUE TO A
BLANK OR PREVIOUS PRINTING
***ERROR***
E
A COMPARE OCCURRED, BUT THE AHDO INDICATED
THAT THE HAMMER DRIVER DID NOT TURN ON. ***ERROR***
F
A COMPARE OCCURRED, BUT A PLC BIT WAS ON DUE TO
A BLANK OR PREVIOUS PRINTING.
***ERROR***
IF A COIL PROTECT CHECK OCCURRED DURING PRINTIN, AN 'A' OR 'B'
CODE SHOULD BE PRESENT FOR THE POSITION CAUSING THE CHECK.
THE SECOND CHARACTER OF EACH GROUP IS USED TO INDICATE THE PARITY
CONDITION OF THE DATA PLANES. A '1' INDICATES A PLB PARITY CHECK.
THE THIRD AND FOURTH CHARACTERS OF EACH GROUP DISPLAY THE PRINT DATA
IN THE DATA PLANES OF THE PLB AS FOLLOWS.
o PLB 128
4
PLB
8
PAGE 190
ADDR
2F7R
2F7A
2F7C
2F7E
2EBO
2E82
2E84
2FB6
2F8R
2F8A
2FSC
2FSE
2FTR
DPTR
DPTR
DPTR
DPTR
f)OTR
DPTR
DPTR
DPTR
DPTR
DPTR
DPTR
DPTR
DPTR
DPTR
001
003
004
005
006
007
008
009
010
011
012
014
018
019
020
021
022
023
024
025
026
027
LABEL
NEXTSEQ
NEXTLABEL
ST ATEME NT
COMMENTS
1403 WRITE-CHANNEL END,AND CAR RlAG E CTRL ROUTINE
********************************************************************
WRITE COMMANDS ***
***
********************************************************************
AL01=70
BR IF NOT GATE LOAD TAG
009 NOLOAO
BR. IF H16=0
SET PRA K=02·
SET BLOCK 2 HOME PUL SE S LATCH
IO=O$KOI
SET PLBAP COUNT 01
NOlOAD
Il=O$K80
11= I1+KD3
SET ADDRESS CONSTANT TO 131
TO WAS 0 SET PLBAR COUNT TO 132
TOC=TO+l1+1
PO=O$K70
SET PLB TARLE AOOR FOR NOT 24K
ROB PI V+l
READ CHAR FROM DATA ADDR
wXF ER 1
MOVE POSSIBLE 00 TO Tl
Tl=Pl
TEST IF PI WAS 00
025 WXFER2
BR IF z=o
ROB Tl AS,P+O
READ CHAR FROM TA8LE
Z=Tl!<-K40
RESET COMMAND CHAIN FLAG
HO=HC$K08
SET CHANNEL END
GO=GO$K80
SET SECONDARY BIT
075 TAKEIN
!3R IF G1I=Q
BR IF NO CHAIN--TRY CH END INTRP
DCOM 006 PCIBR
SAL
CHECK FOR PCI INTERRUPT
HO=HC*-K08
RESET CHAN END--FOR CHAINING
076 STI NS T
BR IF HC5=O
BR IF NO DEVICE END YET
CCOM 066 LRS TR B
BAL
RESTORE P AND I REGS
OCOM 080 CHANOK
BAL
UPDATE UCW
DCLS 043 CHAIN
8R
GO TO CHAIN
DCOM 008 I NT RP T
SAL
TRY NON-PC I IN TERR UP T
DCOM 081 REDSTR
BAL
UPDATE UCW
BR
BSWI 107 RES TRH
SET CPU MODE-GO TO NATV REQ
***********************************************************************
IMMEDIATE COMMAND CHANNEL END ROUTINE
PAGE 195
ADDR
WORD
006£
0070
0072
0014
0076
0078
OD7A
OD7C
007E
C572
15E5
3485
DPTR
DPTR
DPTR
DPTR
DPTR
DPTR
DPTR
DPTR
DPTR
DPTR
DPTP
DPTR
DPTR
DPTR
DPTR
DPTR
DPTR
DPTR
DPTR
OPTR
oPTR
DPIR
DPTR
OPTR
DPTR
SfQU[NCF NO.
DPTR
OPTR
f')PTR
DPTR
DPTR
OPTR
DPTR
DPTR
DPTR
DPTR
DPTR,
3E83
550
F269
OA7E
14A 5
8C60
I)
007
009
018
025
037
036
039
040
045
046
050
054
055
061
065
066
068
069
(l12
073
075
076
0R2
084
090
OPTS
DPTR
DPTR
DPTR
DPTP
OPTS
DPTR
DPTP
DPTR
DPTR
[)PTR
DPTP
OMCS
OPTS
DPTR
DPTR
EXFP
OPTP
DYPE
DPTQ
AWFJP
081
()82
083
084
LABEL
* IMMEDI
OKCHAI
085
086
087
088
089
090
Ol?1
NOTNOP
AEND
NEXTSEQ
NEXTLABEL
CLOAD=*E6Q, EC LEVEL=128266
COMMENTS
STATEMENT
***********************************************************************
084 OKCHAI
BR IF GIO=O
BR IF NOT CHAIN DATA
G1=Gl*-KEO
RE~ET CC,CD,SLI FLAGS
GO=GO$K80
SET SECONDARY BIT
HO=HO$K08
SET CHANNEL END
069 CMDCHN
BR IF Gl1=1
BR IF THIS COMMAND CHAINED
BR IF D07=1
BR IF LAST COMMAND CHAINED
075 TAKEIN
BR IF H05=O
BR IF NO DEVICE END
090 NOTNOP
GO=GO*-K80
RESET SECONDARY BIT
BR
DPTS 137 PCENTR
**********************************
* CROSS REFERENCE FOR CSECT OPTR *
**********************************
090
007
03R
0? ()
)10
DPTR 023
DPTR 044
DPTR 062
DPTP 064
OPTS 115
DPTR
OCLR
[RDR
OPTS
ERRQ
DPTQ
EXFR
EXFR
047
035
033
037
041
f)46
OS 2
112
114
061
1St)
144
086
162
012
152
DPTP 071
OPTS ('Qq
DPTP 082
DPTR 088
039
053
073
126
•
039
018
142
131
OPTR 068
DPTR 081
OPTS 14C
ERRQ 063
PAGE 196
OPTS
DESCRIPTIVE
CLOAD=*E60. EC lEVEl=128266
TEXT
PAGE 197
ENTRY PfJIf'HS
PPSIO
FNTRY IS MADE AT THIS lAqEl FROM THE -DCLBROUTINE. A START 1/0 WAS DETECTED AND THE CCW
HAS BEEN FETCHED.
SENSf
ENTRY IS MADE AT THIS LABEL FROM THE -DYPERnUTINE TO HANDLE A SENSE COMMAN9 FOR THE
10~2. ENTRY IS ALSO MADE TO THE -DYPE- SENSE
RQUTINE FROM THE -EEDR- AND -ERDR- ROUTINES.
NODP
ADDR
WOP 0
PCfNTR -
ENTRY IS MADE TO THIS LABEL FROM THE -DPTRROUTINE TO UPDATE THE UCW FOR AN IMMEDIATE
COM~AND.
ENTRY IS ALSO MADE TO THIS LABEL
FROM THE -EEDR- AND -ERDR- ROUTINES TO
UPDATE THE UCW WHEN A CMD REJECT IS DETECTED.
TSTPCI -
ENTRY IS MADE AT THIS LABEL FROM THE -DYPEROUTINE TO HANDLE STATUS FOR A 1052 NO-OP OR
NOT READY CONDITION.
ENTRY IS MADE AT THIS LABEL FROM THF -DMCS-,
-FEDR- A~D -EROR- ROUTINES TO SET CHANNEL
fND AND DEVICE END FOR NO-OP OR NO-OP TYPE
CUMMANDS.
SFQIJI:':NCr: NO.
DPT S
OPTS
OPT S
OPT S
i) DT S
!) PT S
OPTS
OPTS
OPTS
OPT S
OPTS
OPT S
I") PT S
OPTS
DOTS
i)!:JT S
DPTS
DOTS
DPT S
f)DTS
[,PTS
f)PTS
f) PT S
f) PT S
OPTS
f)PTS
DDT S
I) PT S
OPTS
DPT S
001
003
004
005
:J06
007
Of'lq
009
(l10
011
012
01,
014
J15
016
J17
)1 R
019
')20
021
0?2
023
024
02')
026
127
028
1)2q
J30
031
OPT S 032
OPT S 033
OPTS 034
LABEL
NEXTSEQ
NEXTLABEL
T
*
**
*
*
*
*
*
*
*
*
1403 START
STATEMENT
COMMENTS
1403 PRINTEP START 110, COM~AND DECOnE AND SENSE
10 ACTIVE a SECONDARY C
COUNT
U
DATA ADDRESS
V
COMMAND BYTE'
GO
FLAGS AND OP
Gl
CHANNEL STATUS HO
UCW ADDRESS 0
OXC8
UCW STATUS BYTE OXCA
UCW SENSE BYTE axeB
*
****************************************
NATIVF 1403 UCW FORMAT
*****************************************
C8
CA
CC
CE
*------------------------------------------------------------------*
*
** CHANNEL** CHANNEL** UNIT ** UNIT **
** NFXT CCW **
RESIDUAL
* STATUS* FLAGS * sr~,TUS * SENSE *
COUNT
*
ADDRESS
*
*
*
*
*
*
*
*
*------------------------------------------------------------------*
*
*
*
*
*
*
*
*
*
*
*
*'
*
*
*
*
*
*
*
CH STAT-C8
O-SEC
i-INC LENGTH
2-PROG CHECK
3-PROT CHECK
4-CH DATA CHK
5-CH CTRL CHK
6-
CHANNEL FlAGS-C9
a-CHAIN DATA
l-COMM CHAIN
2- Sl I
3-SKIP
4- PC I
5-ACT IVE
6-INPUT
UNIT STAT-CA
01-
UNIT SENSE-CB
a-COMM REJ
1-INTERV REQ
2-
2-
3-BUSY
4-CH END
5-DEV END
6-UNIT CHK
3-EQUIP CHK
4-DATA CHK
56-GATE LOAD
ADOR
OBF2
OBF4
CBF6
OBFB
OBFA
OBFC
OBfE
ocon
OCO?
oeC4
oe06
oeOR
OCOA
CCOC
oeOE
OCI0
OC12
OC14
OC16
OC18
OCl.A
OCIC
OCIE
OC20
OC2?
0(24
OC26
OC28
OC2A
OG2C
OC2E
OC30
or32
OC34
OC36
OC38
WORD
2482
5449
C4F(
5460
P 022
9816
54C9
RF7A
DE87
3F45
OC4R
(4BF
OC3B
C407
OE92
1F45
1 DOC
1E97
DF5F
0850
F85C
5CE9
CC27
o EE9
F4AE
A37E
hEE3
EOOD
o E39
F4R7
2E05
4DCF
E 838
8CFC
E S5C
A398
SEQlJ!:"NCE NO.
OPTS
OPTS
OPTS
DPTS
OPTS
f)PTS
OPTS
OPTS
OPTS
OPTS
f)PTS
OPTS
OPTS
OPT S
OPTS
035
036
037
038
039
040
041
042
043
Q44
045
')46
047
048
049
LABEL
*
*
*
*
*
*
*ASEQ
NEXTLABEL
7-INT IN BUFFER
NCHDAT
*
*
7-0UTPUT
7-UNIT EXEC
7-CHAN <1
START 1/0 ACTIVE-O SECONDARY-O
*****************************************
AL07-=72
048
NCHDAT
DPTR 036
CCOM 058
WXFER3
LSAVEB
ERR Q 082
053
R DC HS T
READY
READY
*
CLOAD=*E60, EC LEVEL=128266
COMMENTS
STATEMENT
****************************************
PRSIO
DOTS 050
OPTc; 051
DPTS'i52
OPTS 053
OPTS 054
OPTS 055
OPTS 056
r)PTS t';57
DPTS 0513
OPTS 059
OPTS ')60
r)PTS 061
OPTS 062
OPTS 063
nPTS 064
OPTS 065
OPTS 066
OPTS 067
DPTS 068
DDTS 069
i)PTS eJ70
OPTS J71
OPTS 072
OPTS 073
OPTS 077
OPTS ')79
DPTS 080
OPTS 081
OPTS 085
OPTS 087
OPTS 088
OPTS 089
f)PTS 090
OPTS 092
OPTS 093
OPTS 0<15
NEXTSEQ
104
SENSE
121
NOOPTR
SET MODE K=18
GO=GO
BR IF ZNl
ROH G AS,D+O
Bq,
BAL
pO=GO
B.AL
BR IF PRS f3ITl=l
Hl=H1.$K40
l=PO
DPTS 136
OPTS 137
DPTS 11g
I)PT$ 139
OPTS 140
OPTS 141
DPTS 142
OPTS 143
OPTS 144
OPTS 146
OPTS 147
OPTS 148
OPTS 149
DPTS 150
I)DTS 151
I SLCHK
*
*
*PCENTR
NOTINT
TSTPCI
NOPCIF
AEND
NEXTSEQ
NEXTLABEL
STATEMENT
CLOAD=*E60,
COMMPHS
EC LEVEL=128266
CARRIAGE CONTROL COMMAND
***********************************************************************
SET PRA K=10
SET PRINT BUSY LATCH
DPTR 082
IMMEO[
BR
***********************************************************************
SENSE COMMAND
***********************************************************************
109 SNSRTN
BR IF G13=1
BR IF SKIP FLAG ON
Tl=Hl
MOVE SENSE BYTE
lOR OVER
BR IF 006=1
SKIP NEXT WORD IF 2540 SHARE
Tl=T1*-K02
STRIP SENSE BYTE FOR 1403
STB T1 V+l
STORE SENSE BYTE
HO=OSK04
CLEAR UNIT STATUS SET DEVICE END
U=U-l
UCW COUNT MINUS 1
113 FORGET
BR IF GI0=1
BR IF DATA CHAIN SET WLR BIT
115 SNSEND
8R IF Z=O
8R IF UCW COUNT 0
GO=GO$K40
SET INCORRECT LENGTH
DPTR 061
TSTCDA
BR
BR TO TEST COA AND SLI FLAGS
DPTR 066 fNDOK
BR
BR TO CHANNEL END
***********************************************************************
NO-OP COMMAND
***********************************************************************
132
ISLCHK
RR IF PRS BIT1=0
BRANCH IF PRINT READY IS OFF
H0=OSKCC
SET CHANNEL END DFVICE END
DPTR C82
IMMEOI
RR
GO TO IMMEDIATE COMMAND END
***********************************************************************
1403 INITIAL SELECTION CHECK
***********************************************************************
Hl=Hl$K80
SET COMMAND REJECT
HO=O$K02
CLEAR UNIT STATUS SET UNIT CHECK
***********************************************************************
INITIAL SELECTION CHECK OR NON-CHAINED IMMEDIATE
***********************************************************************
Gl=Gl*-K44
RESET COMMAND CHAIN FLAG
141 NOTINT
BR IF 007=0
BR IF LAST COMMAND NOT CHAINED
Gl=Gl$K04
TURN ON ACTIVE FLAG IF CHAINED
BR
GO TO IMMEDIATE CMD HHERRUPT
DPTR 075 TAKEIN
SAVE UNIT STATUS
V0=H0
DCOM aBC CHANOK
BAL
STORE CH STAT,FlAGS,UNIT STAT
HO=VC
RESTORE UNIT STATUS
GO=GC*-K80
RESET SECONDARY BIT
148 NOPCIF
BR IF G14=0
8R IF NO pcr FLAG
GO=GCSK80
SET PCI INTRPT IN CHAN STATUS
Hl=GO
MOVE CHANNEL STATUS
BAL
RESTORE P AND I REGS
(COM 066 LRST~B
CCOM 135 STATUS
BR
BR TO STORE 3 f RO HW OF CSW
PAGE 199
**********************************
*
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS
043
048
053
062
079
fJ 87
092
098
104
')45
051
115
121
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS
OPTS
125
131
Dt'l(S ell 9
DMC S }? 2
132
137
141
146
148
OPTS "64
DrTP C9r-;
OPTS 1~8
OYPf 153
OPTS 146
lOR
109
113
OhO
<~71
07 '3
;') 85
089
054
106
lel 4
*
**********************************
nCLS 24 '5
DPT~
CROSS REFERENCE FOR CSECT OPTS
DYPE 177
111
112
')56
DMCS
DPTS
OPTS
EROR
025
065
121
145
ERDR 087
OPTS 066
OPTS
~80
OPTS 092
ClOAO=*E60, EC lEVEl=128266
PAGE 200
DPTT
DESCRIPTIVE
CLOAD=*E60, EC LEVEL=128266
TEXT
PAGE 201
ENTRY PO INTS
AODR
DCCR
ceCA
TEST00 -
ENTRY IS MADE AT THIS LABEL FROM THE -DCLARUUTINE FOR A START 110 OR TEST lID TO TEST
THE ACTIVE AND SECONDARY BITS TO DETERMINE
FURTHER OPERATION.
UCENT
ENTRY IS MADE AT THIS LABEL FROM THE -DYPE-,
-EERQ- AND -ERRQ- ROUTINES TO SET UNIT CHECK
ANn TO STORE A CSW WITH ZERO CHANNEL STATUS
WrlEN A NJT READY CONDITION IS DETECTED.
RESTES -
ENTRY IS MAOE AT THIS LABEL FROM THE -DYPE-,
-EERQ- AND -ERRQ- ROUTINES TO CLEAR CHANNEL
END OR CHANNEL END-DEVICE END.
\-;ORD
2482
RF7A
or;cc
015B
OCCE
OCOO
OCD2
OCD4
OC06
OCD8
C421
OEf)4
aloe
2E23
2F07
AOlE
OCDA
CCDC
oeDE
aCEO
OCE2
OC80
OC82
C008
5F8q
E401
AAl<)
AECA
1548
P448
SEQUE\lCE NO.
OPT T
DPTT
DPTT
DPTT
DPTT
ODTT
f)PTT
D PTT
floTT
DPTT
I)PTT
DoTT
!)PTT
I)DTT
OPT T
IJ!>TT
!)PTT
DPTT
f) DT T
DPTT
DPTT
DPTT
DPTT
LABEL
001
or; ,
T
004
00 '5
')06
*
*TESTOQ
NEXTSEQ
*
007
,)C R
009
t'l} (\
011
013
014
015
016
017
018
020
021
021
UCENT
*
*
*
TESTl1
RfSTE S
024
025
026
027
PROGF
0
NEXTLABEl
STATEMENT
SHARE
ENTRY IS ~ADE AT THIS LABEL FROM THE -DYPE-,
-EERQ- AND -ERRQ- ROUTINES. DEVI'E END IS
TESTED.
DE ON IF INTERRUPT HAS BEEN INITIATED,
RESET INTERRUPT LATCH AND STORE
STATUS IN THE CSW.
DE OFF - STORE STATUS WITH BUSY SET INTO
THE C SW.
DEVE
ENTRY IS ~ADE AT THIS LABEL FROM THE -DYPEROUTINE BECAUSE THE SECONDARY BIT IS ON
DURING INITIAL SELECTION FOR START I/O OR
TEST 1/0. RESET INTERRUPT IF ON, AND STORE
STATUS IN THE CSW.
SENCHK -
ENT~Y IS ~ADE AT THIS LABEL FROM THE -DPTQROUTINE TO CHECK DEVICE END SENSE DATA.
RETURN IS MADE TO -DPTQ-.
RESINB -
ENTRY IS ~ADE AT THIS LABEL FROM THE -DCHNROUTINE TO RESET THE INTERRUPT LATCH AND TO
CLEAR THE INTERRUPT IN I.B. AND SECONDARY
BITS FOR CSW STORE. RETURN IS MADE TO -DCHN-.
CllMf"'lENTS
1403 TEST I/O---START I/O WITH SEC .ON
********************************************************************
TEST 110 ACTIVE=O SECONDARY=O
********************************************************************
SET MODE K=18
SET 1403 MODE
ERRQ 082 R DCHS T
BAL
>!t* GO GET CHAN. AND UNIT STATUS IN G,H
020
T ES TIl
BR IF G15=1
BR IF ACTIVE TEOT 100
046 S TT EO 1
BR IF GOO=l
BR ON SEC Ta START OR TEST NO A
BR IF PRS1=O
BR IF NOT READY
013 UCENT
CCOM 155 CCOB
BR ** GO TO COMM MODE RST,CC C SET
HO=O$K02
SET UNIT CHECK IN STA
H1=O
ZERO OUT CHANNEL STATUS
CCOM 121 STAT0S
BR ** STORE O'S IN CSW WITH NEW STATUS
******************************************************************
TEST 1/0 ACTIVE=1 SECONDARY=1
******************************************************************
RST PRA K=40
RST PRINT REQUEST
T1=H1
SAVE SENSE BYTE
BR IF PROGRAM ERROR
026 DROGF o BR IF G02=1
PROGF N RR IF HC=NZ
026
BR IF NO STATUS
CCOM 162 eC2B
BR
GO SET BUSY
G1=G1(K04
RESET ACTIVE BIT
088 RSTINT
BAL
GO RST S7, [NT BUFF 81T,SEC.
ADDR
WORD
SFQ'JENCE NO.
OC84
OC86
OC88
OC8A
OCBC
OAOF
CAO E
E40F
2085
8C9C
DPTT 028
DPTT 029
DPTT 030
DOTT 031
DPTT 03?
DPTT fl33
DDTT ')34
DPTT ')35
nflTT 036
DPTT 037
DoTT 038
DPTT 039
DoTT 040
DoTT D41
DPTT 042
DPTT 043
DDTT ')44
flDTT 046
DPTT ')47
DDTT 0'+9
DPTT 05C
DPTT ')51
DPTT 052
')oTT ")53
I)PTT ')54
DDTT 056
DPTT (i57
DPTT 0'58
DPTT 059
DPTT 01'11
DPTT ')6'2
OoTT 063
DOTT 064
DPTT 065
DPTT ,)A6
OOTT ')67
flPTT 06R
OPTT 069
DOTT 1)71
')PTT ')72
DPTT 073
DOTT C74
I)PTT 07'5
DPTT 076
DPTT'}77
DOTT 078
OPTT 079
I)PTT 080
QPTT 081
DPTT 082
f)PTT 083
a(8E
2007
OC90
CC9?
OC94
OC96
0(98
OC9A
(lCge
OC9F
7068
(116
eCAO
3485
54F9
7A68
5C68
'526C
AOOF
') EZ 9
Of A'-
C CB 1
OCA4
OCA6
OCAR
OCAA
OCAC
DA39
2 E15
54F9
1 F8 5
F246
hOlF
8FOO
OC A f:
OCBO
OCB2
OC84
OCB6
OCRR
orBA
aCBC
OCBf
aeco
OCC?
0(C4
OCC6
OFOO
OF02
CFC4
OF06
OF08
OFOA
OFOC
OFOE
OFlO
OFt?
OF14
OF16
OF18
') F3 9
6664
726A.
P448
7460
54F9
E24 ~
CD08
F 22F
3 Et5
A03r:
FE84
3E13
E ERA
3E23
3Ft3
(RO E
3E23
5E3F
1393
FOgg
3E23
3F1'5
3E43
LABEL
NEXTSEQ
033
033
033
SECON
UCWSTR
1
DONTCH
CALlH
*
*
*STTEGl
SHARE
:;OSTOR
EXTDE
'JEVE
'HHPTR
DEL IC
*SENCHK
CHAN9
DATACH
HAMMER
SETDE
NEXTLABEL
ZSECON
ZSECON
ISECON
STATEMENT
CLOAD=*E60, EC LEVEL=128266
COMMENTS
BR IF HO 5= 1
BR IF DE
BR IF H04=0
8R IF NO CHEND OR NO DEV.ENO
BR IF GO 2= 1
BR IF PRGRAM CHK-DONT SET SEC
UO=OSK80
STORE SEC FOR CHE ALONE-UCW
034 UCWSTR
BR
DE,CHE STAT-CLEAR CH STAT IN UCW
uo=o
STH U AS,D+2
UPDATE UCW CH STAT AND FLAGS
017 DONTCH
BR IF G14=0
BR IF NO PCI FLAG
GO=GO$K80
SET PCI IN CHAN STAT
Hl=GO
MOVE CHANNEL STATUS
STH T AS,D+2
D=OOCC
RDH U AS,O"'2
UCW COUNT=U
RDH V AS,D"'O
CCW ADDRESS=V
CCOM 110 FUlCS W
BR ** STORE C$W RST MODE, SET CCl
******************************************************************
TEST OR START I/O ACTIVE=O SECONDARY=l
******************************************************************
VO=HO
MOVE UNIT STATUS
056 E XTDE
BR IF PRSO=l
BR IF EXT DE
R~ IF HO BIT5=1
~R IF DE.
061 DEVE
HO=OSKIC
SET BUSY
Hl=GO
MOVF CHANNEL STATUS
Hl=Hl*-K80
RST SECONDARY
068 DEL If:
RR IF 007=0
BR IF START-STORE STATUS ONLY
CCOM 123 S T 1\ TO S
8R
THIS IS TFST STORE STAT AND 0,5
071 SENCHK
BAL
GO CHECK SENSE
Vl=Hl
PUT UPDATED SENSE IN VI
0=0+2
UPDATE UCW ADO TO STATUS-CA
STH V AS,0-2
STORE UNIT STAT
088 RST I~ T
RAL ** GO RST S7,INT BI1FF. RIT AND SEC.BIT
STH G AS,D+O
UCW CH STATUS
Hl=GC
MOVE CH ST&TUS
066 NOTPT R
8R IF 006=1
BR IF NOT PRINTER
RST PRA K=40
RST PRINTER REQUEST
054 GOS H)~
BR IF 007=1
HR IF TEST 1/0
HO=HOSKIC
SET BUSY
CCOM 135 STATU S
BR
STnRE STATUS
*****************************************
073 CHAN9
BR IF PRS3=0
BR IF NO CHANNEL 12
HO=HO$KOI
SET UNIT EXCEPTION
076 DATACH
BR IF PRS2=O
BR IF NO CHANNEL 9
HO=HCSKO?
SET UNIT CHECK
H1=Hl$KOl
SET CHANNEL 9 IN SENSE
018
HAMMER
BR IF H14=0
BR IF NO DATA CHECK
HO=HOSK02
SET UNIT CHECK
Vl=PRS
MOVE SENSE
Vl=Vl*-KOQ
LOOK FUR PARITY OR HAMMER CHECK
083 SETDE
BR IF Ll=O
BR IF NO ERROR
HO=HOSK02
SET UNIT CHECK
Hl=HlSKlO
SET EQUIPMENT CHK IN SENSE
HO=HO$K04
SET DEVICE END
PAGE 202
ADDR
WORD
OFIA
OFIC
OD0A
l2ar::
3448
344A
344C
F04E
1413
0010
4046
1485
128E
~44E
3450
3452
DPTT
OPTT
DPTT
OPlT
OPTT
DPTT
DPTT
DPTT
DPTT
DPTT
OPTT
OPTT
DPTT
DPlT
DPTT
DPTT
DPTT
DPTT
DPTT
DPTT
DPTT
DPTT
DPTT
006
013
C20
023
026
033
034
037
046
049
054
056
061
066
068
071
073
[:76
078
083
088
089
091
SEQUENC E "l0.
f)DTT
OPTT
OPTT
DPTT
DPTT
DPTT
f) PT T
DPTT
DPTT
DPTT
DCLA
DPTT
OPTT
DYPE
OPTT
OPTT
OPTT
DPTT
f)PTT
DYPE
DPTT
OPTT
DPTT
DPTT
DPTT
DPlQ
DPTT
DPTT
DPTT
DPTr
DPTT
OCHN
DPTT
084
085
087
088
1")89
090
091
092
093
094
LABEL
NEXTSEQ
RST PRA K=50
*
R ST I NT
RESINB
DEVEND
*
DYPE 214
ERRQ 015
ERRQ 053
DPTT 024
DPTT 029
DPTT 030
108
215
023
(28
032
035
C09
21 R
FRRO 054
')66
047
049
1)64
DYPE 219
053
0') R
OPTT 056
071
;"73
076
080
027
075
DR B
STATEMENT
OPTT 061
091
CLOAD=*E60, EC LEVEL=128266
COMMENTS
RST BUSY AND REQUEST
GO BACK TO TEST 1/0 OR REQ
*****************************************
BR IF G07=O
BR IF NO INT IN BUFF
DEV END
GO=GO*-KOl
RESET INT INDICATOR
RST S7
RESET INT LATCH
U=G
MOVE CHAN STAT+FLAGS
GO=GO*-K80
RST SEC FOR CSW STORE
RTN
**********************************
**********************************
* CROSS REFERENCE FOR CSECT OPTT *
**********************************
RT"l
~92
010
NEXTLABEL
PAGE 203
DUMP
DESCRIPTIVE
THF MICRO cnRE DUMP IS A NON DESTRUCTIVE PROGRAM STORAGE
DU~P. THE DUMP ROUTINE DISPLAYS ONLY ON A NATIVE
14C3. ENTRY IS A FUNCTION OF ALTER DISPLAY. SELECTIVE SECTIONS
OF PROGRAM STORAGE ARE DISPLAYED WITH All OF AUX MODULE ZFRO
PRECEEDING THE PROGRAM STORAGE SELECTION.
THE ALTER DISPUW R()UTINE (ALDP) RECOGNIZES A 'DO XXYY'
ENTRY A.S A DUMP REQUEST. 'XX' DESIGNATES THE START PROGRA~
STORAGE MODULE ADDRESS. 'YY' DESIGNATES THE STOP PROGRAM
STORAGE MODUL f ADOR ES S.
THF LINE FrJRMAT OF THE DUMP ROUTINF IS AS FOLLOWS.
XXXX
YVYY YYYY ETC.
THE FIRST TWO BYTES ARE THE ADDRESS. MODULE ZERO IS DENOTED BY
THE ABSENCE OF THE ~'RST AOD~ESS BYTE(UNOERSTOOD AS 00).
THERE ARE TWO BLANKS AFTER THE ADDRESS. SIXTEEN ,TWO BYTE GROUPS
OF DATA SEPERATEO AY RLANKS FOLLOW.
ADOR
WORD
33B2
3334
3'l.B6
1 F2 A
91H2
2482
30C2
2 FD,
('111
F4C3
211B
4252
4426
A636
33'38
338A
33BC
33BE
33(')
33(2
33C4
33C6
31RE
31CO
31C1
31C4
31C6
31(8
31(A
31((
31CE
3100
3102
3104
3106
31F6
31F8
31FA
3108
2h7'5
2E13
2583
2 '520
2 F85
2F3R
(1"53
2845
A6(,6
A606
4626
SEQUENCE NO.
D;J~P
,)C 1
[) '.I"" P
or; 2
n 1)"1 P
or '3
T
START
CCOM 056
0("4
U"1 P 005
DUMP 0('6
f)! J~~ P (',r7
D!P~P
01)1"11-'
JO 8
f) lJM D
00 9
:)10
D!Y~P
010
AROUND
o llM P {)11
f) I JI4
078
P 012
f) I 1M P
QIY4P
G14
019
INITIL
f)qMP C2r.
DU t-1 P 021
OU"1P 012
DUMP 023
D 1)'4 0 1)24
f)
IY4 p
028
025
C058
RIE2
DUM 0 ,J30
C059
OUMP
DU'vl P
DUMP
DUMP
5638
NEXTSEQ
f)
DU"lP 026
OW4P 027
OUf4P 02R
f) tP~ 0 029
5628
AIDA
LABEL
031
032
054
054
GETADR
GOSEE
035
033
034
035
039
034
PROGOU
NEXTLABEl
ClOAD:*E60, EC lEVEl:128266
TEXT
*********************
EXAMPLE
PAGE 204
********************
IT IS DESIRED TO SEE PROGRAM STORAGE LOCATIONS 0505 THROUGH,
AND INCLUDING, 3050.
PROCEEDURE.
STEP 1. DEPRESS THE ALTER DISPLAY KEY ON THE 2025 CONSOLE
STEP 2. ENTER '000530' ON THE 1052
STEP 3. IF THE PRINTER IS NOT READY, MAKE IT READY.
NOTE. CARRIAGE CONTROL IS PROVIDED BY THE DUMP ROUTINE
ASSUMING A STANDARD CARRIAGE TAPE IS ON THE PRINTER
(CHANNEL 12 TO INDICATE THE END OF A PAGE AND CHANNEL
1 TO INDICATE THE BEGINNING).
A SPECIAL CARRIAGE TAPE MAY HAVE TO BE INSTALLED BEFORE
USING THIS ROUTINE.
STATEMENT
MI CR:l CDR t DUMP ROUT INE
RST TA K-=D2
L SA VE
SAL
SET MODE K=18
SET PRA K=90
H1=O$KOD
Z=Ul+KCl
AROUND
BR IF AC=l
Ul=U1+KOl
RDH V D(,9A
G=V
HR
SKIP
TO:O$K7C
HO=0$KCl
Gl=O$KCB
G1=Gl+K?0
Hl=O$K80
H1=Hl+KC3
GETADR
OR IF GO B1T4:1
T1=\)$K40
LOADS F
BAL
lOADBF
BAL
D:V
FOUR
BR IF GO BIT4:1
TWO
BR
PROGDU
RR IF GO 81T4:1
ROH 0 AS.V+2
FOUR
BR
RDH 0 V+2
CO~~MENT'S
RST 1052
SAVE I REG
SE T PRINTER MODE
SET PR IN T GATE AND BUS Y
SET UP FOR A SKIP
TEST FOR FF
S Tn P ADoR
ZERO OUT V REG
ZERO OUT G REG
GO 00 A SKIP I MMED
SET UP XLATE TABLE ADDRESS
SET UP PLBAR COUNTER
SET UP ENT) OF LI NE COUNTER
SET UP CONSTANT OF 131 DECIMAL
IN HI REG FOR PLBAR INCREM
BR IF NOT MOO 0 hOOR
LOAD BLANK IN T1
GO PUT BLANK IN BUFF EP
GO PUT BLANK IN BUFFER
LOAD ADDR INTO D REG
SR IF oROG AODR
GO LOAD lA ST HALF OF MOD 0 ADDR
SR IF NOT "100 0
READ OUT OF AUX
GO LOAD BUFF ER
READ OUT OF PROG
ADOR
WORD
SEQUENCE NO.
LABEL
31DA
310C
31DE
31EO
31E2
31E4
31E6
31 E8
31FA
31EC
31 EE
31FC
31F2
31F4
25FC
25FE
2600
2602
2604
2606
2608
260A
26CC
26CE
2610
2612
2614
2616
2618
26IA
261C
261E
2620
2622
2624
2626
2628
262A
262C
262E
2630
2632
2634
2636
2638
263A
263C
2631:
2640
2642
2644
56B5
A5FC
C; 6B9
A5FC
5785
A5FC
5189
A5FC
2B45
A606
('53D
C4F4
A606
R1F6
38F5
0B61
F4A6
?81!?2RCD
50AO
4FEF
2D04
2E7B
4RDF
2 EAD
F491
6EF3
2E2B
251B
55C9
CC21
128E
2B45
2C2B
OCBO
C486
CO,1
241 B
C030
5029
2F93
3002
FEB8
3F85
1000
4DFF
FABC
DB42
DUt.1P 035
036
DUMP 031
DU~P 038
DU"'1P 039
DUMP 040
DUMP 041
DUMP )42
DUMP 043
DUMP 044
I)UM P 045
DUMP 046
DUMP 041
DUMP 048
FOUR
1000
CDOA
51E9
DU~P
DW~P
~49
DUMP
O/llvl P
DiJ"" P
D!jIvlP
DU"'1P
DUMP
DllMP
050
:) UM r>
!) ljM,
OS1
152
()53
054
055
056
051
NEXTSEQ
NEX TL A8 f:L
049
UNPACK
049
UNPAC K
049
UNPACK
049
UNPACK
054
LOADBF
048
054
031
NOT ADR
LOADBF
GOSEE
TWO
NOTADR
UNPACK
054
LOAD3F
062
aVE R88
061
LOADlE
LOADBF
P 058
DUIYlP
DUi\1P
DUMP
DUMP
DUMP
OlJ'1 P
DUMP
DUMP
DU"'1P
DUMP
:)59
1)60
061
062
D6,
064
065
066
061
OUM P
069
'170
011
012
073
014
075
076
011
078
019
080
081
OA2
DUMP
DdM P
DUMP
DUMP
DUMP
f)UM P
DUMP
OUMP
DUMP
DUMP
DUMP
DUMP
DUMP
DUMP
DUMP
DUMP
aVERS8
LOADlE
068
lOADBF
PRINT
015
PRINT
019
CARR
081
084
WAIT
DONT
PRINT
SKIP
CARR
WAIT
083
OA4
085
054
015
DONT
STATEMENT
Tl=DOXL
BAL
T1=DO
BAL
Tl=D1XL
BAL
Tl=Dl
RAL
T1=O$K40
BAl
l=Gl52
053
054
055
LABEL
NEX TSEQ
NEXTLABEL
GOB SWI
WROBIT
AD1 M
sswr 107
RES TRH
057
SLION
039
DOC RLF
062
OSNS
067
CHAINl
011
090
NOATEN
READ
191
PUTUCS
BR
GO=GO*-K08
BP, IF G12=1
GO=GO$K40
G1=G1*-KCO
BR IF G16=1
P1=P1
BR IF Z=O
Gl=G1*-KCO
HO=HO$K02
BR IF GIl=l
HO=HO$KOC
GO=GO$K80
BR
BR
GO=GO*-K80
BAL
162
KKKKKK
BR
056
057
058
059
060
061
C62
063
SLION
OSNS
QFLIP
Of,4
C65
066
G67
068
D yp;: 069
DYPF 070
f) yo E 071
DYP!: 072
READOT
: HA IN 1
*
AEND
CRLF
Oyp E 073
DYP~ 074
YP E "75
076
f) YP E 077
n YPE 078
DYPE 079
DYPE J80
nYPf 081
f) YP E 082
DYPE C83
DYPC: ('84
f)YP;: 085
nYPF ';86
DYPE 087
!)YPf 088
f) YP!: 089
Gyp;:: 090
DYPf 091
DYPF n92
DYPE 093
!) YP r: 094
DYPE 095
DYPE 096
[) YP F 097
GYPE 098
DYP::: 099
DYP 1= lCO
DYPE 101
OYPE 102
i)
DYDr:::
OKDE
E XI TA
*
084
OKDE
087
EXI TA
DCOM 008 I NT RP T
191 PUTUC S
BSwt 107 RESTRH
READ OPERATION
READ
SfTEQP
ARNSE T
SKIP
STATEMENT
103
095
ALTCOO
ARNSET
112
EXITB
242
STTRSL
10 2
SKIP
047
WCOMOT
Hl=0$K05
H1=H1$KIO
PST TA K=80
SET TA K=40
TE=Hl
RST TA K=02
GO=GO$K80
GD=GO*-K08
P1=P1
RR IF l=O
HO=HOtK02
GI=G1*-KCO
BR IF Gl1=l
HO=HC$K08
HAL
BAL
CLOAD=*E60, EC LEVEL=128266
COI-1MENTS
RETURN FROM REQUEST
RESET 0 COUNT BIT
BR IF SLI FLAG ON
SET WLR
BREAK CHAIN (R ES ET CC,CD FLAGS)
BR IF WRITE ACR OR READ OP
BR IF SENSE REG IS ZERO
RESET CC, CD FLAGS
SET UNIT CHECK
BR IF CC FLAG
SET CHANNEL END, DEVICE END
SFT SECONDARY BIT
RESET SECONDARY BIT
MOVE IN NEW UN IT S TA TUS REG
STORE UCW
GO RESTORE P , I , THEN CHAIN
SET UP
NEW LINE CHARACTER
RESET READ LATC~
SET WRITE l,~TCH
SEND NL CHAR TO TE DATA REG
ISSUE SHARE RE SE T
SET S FCONO AR Y BIT
RESET o-cnUN T BIT
BR
BR IF SENSE REG IS l EP 0
SET UN IT CHECK
RESET CC, CD FLAGS
BR IF CC FLAG
SET CHANNEL END
TRY FOR NORMAL I "IT RP (NOT PC I)
GET NEW UN [T S TA TUS, STORE UCW
RETURN FROM REQUEST
H1=TI
Hl=Hl*-KCO
RR IF TT 5= 1
SR IF TT4=0
Pl=O$KlO
BR IF G04=1
I=U
BAL
U= I
STPO=PO
BR IF G13=1
STB HI V+ 1
RR
GET KB CHAR FROM TI REG
RESET CASE BITS 0, 1
RR IF AL TEKNATE CODr NG
BR IF NOT KEYBOARD CHECK
CLEAR SENSE REG, SET EQUIP CHK
BR If- O-COUNT BIT SE T
SAVE COUNT
XLATE KB CHAR AND PR INT IT
RESTORE Cf'JtJN T
SET PROTECT KEY
BR IF SKIP FLAG
STORE CHAR READ AT DATA ADOR
GO DECREMENT COUNT
PAGE 209
ADDR
WOR D
SFQUENCE
2IFO
21F2
21F4
21F6
21F8
21FA
2lFC
21FE
21EE
?IEC
OF5B
C4FD
OFAB
C4DA
2El3
1545
C06F
87£=0
DYPc
DYPE
OYPF.
DYPE
DYPE
DYPF
Dypf=
DYPE
DYPf
DYP£:
DYPC
DYPF
DYPE
DYP :::
DYPE
[lYPE
DYP e
OYPE
OYP::
nVPF
f)YPf;:
['lYPE
OYDt:
DYP f=
o yn!=
114
115
116
DyoE
128
259A
259C
259E
25M'
25A2
25A4
25A6
2">AR
25AA
25AC
25AE
25F\C
?SB2
25B4
2586
2'5B8
?5BA
25BC
25B£=
25C (\
25C2
25C4
25C6
25C 8
25CA
25CC
25CE
2500
2502
2504
21306
25 DR
25DA
P 36£=
87DE
CJ 816
54F9
6664
8380
A566
1485
1 C8 3
8171\
2 EC7
5FF9
C4B2
A 82 (\
1045
1F2R
E EBA
3045
CF4R
(400
fED5
(F3P
C495
2007
CFIB
C491
OFCJR
( 48F
OFAR
C487
3085
2 E2 3
15C '5
F ?00
R7F4
2580
1 541
2582
2584
2594
2596
2'59B
258E
8378
8C70
2EC 3
05'58
8062
3523
NO.
103
1G4
10'5
lC6
107
108
1r9
110
111
112
113
LAREL
NEXTSEQ
ALTCOD
Z=H1l= 136
DYPF= 137
OYPE 138
D,(P C 139
OYPE 140
OYPE 141
f)YPF. 146
i) YP '= 147
DYP[ 148
DYPE 149
DVP~
150
[l YP f. 151
Gype: 152
Oyp E 153
[) YPE 159
f)YPE 161
OYPE 162
i) YP E 163
f-.lOTROY
NOTCCB
NOTCCA
NOOPRA
KKKKKK
WRTACR
NEXTLABEL
RONOF
STATEMENT
CLOAD=*E60, EC LEVEL=128266
COMMENTS
BR IF EOR
BR IF NOT CANCEL
SET UN IT E XC EPn ON
RESET CC FLAG
BR IF O-COUNT BIT IS SET
SAVE p AND I
MOVE COMMAND CODE
ADJUS T UC~I ADR REG TO DATA AOR
STORE DATA AOR AND COUNT IN UCW
GET UCW, SEN SE BYTE, SET r.tODE
RESET SECONDAR Y BIT
RESET ENOPJG STATUS BI T
STORE UCw EXCEPT UNIT STATUS
CLEAR UNIT STATUS REG
BR IF NOT CHAIN DATA
GO RFSTORF CPU "'100E
RESET INTERVf:NTION REQUIRED BI T
RST READ. WR IT E, AND SHARE REQ
BR IF READY
SET INTERVENTION REQUIRED
BR IF SENSE CO ",1/-1 AN 0
BR IF NOT READY
BR IF NO-OP COMMAND
CLEAR SENSE REG
BR IF WRITE COMMAND
BR IF WR ITE ACR COMMAND
BR IF READ COMMAND
SET COMMAND REJECT IN SENSE REG
SE T UNIT CHECK IN U-ST ATUS REG
RESET CC, CD IN FLAGS/OP ~EG
BR NOT CHAlNED FROM PRIOR CCw
GO SET SEC BIT, TRY FOR INTRPT
RESET CC FLAG AND AC TI VE BIT
GET NEW UN IT STATUS, STORE UCW
TEST PCI AND STORE C SW STATUS
SET CHANNEL END , DEVICE END
BR IF NO CC FLAG
RESTORE P,I,STORE UCW,CHAIN
SET BIT 6 FLAGS/OP REG
PAGE 210
ADDR
WORD
2590
2592
2586
2588
258A
258C
2'5DC
250E
25EO
25E2
2FOA
87DA
3F20
EB8C
4FFF
87DA
3C83
R37A
5DF9
8C3E
2566
2568
256A
256C
256E
2570
2572
2574
7576
2578
257A
2791
5660
16E3
2404
5C6A
5468
5268
5068
52E9
2111
128E
0118
037A
037C
031£:
0380
0382
0384
5E29
03~6
331C
331E
3320
3322
3324
3326
3328
332A
332C
332E
3330
3332
3334
3338
333A
3~3C
333E
2791
7C68
7468
126R
7068
'1771
128E
2791
51360
5ABS
71:'60
6664
2404
8F7A
OF04
0139
C43B
FEB5
810C
8CD4
8eDE
3623
CE31
8CA4
SEQUENCE NO.
DYPE
DYPE
DYP£:
DYPE
DYP t:
DYPE
DYP!:
DYPE
DyPE
DYP'::
DYPE
DYPE
DYPF
DYP!7
DYPE
DYPf
DYPE
DYPC:
DYPf
DYPE
DYPE
DYPE
DYPE
f) YP E
DYPE
DYPF
OYPE
OYPE
OYPE
OYPF:
DYPE
OYPE
DYPE
DYP E
f) YP F
[) YP E
DYP t:
OYPE
DVPE
OYPE
DYPE
DVPE
DYPE
OYPE
OYPE
DYPE
OYPE
OYPE
DYPE
OYPE
DYPE
164
165
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
18'5
186
181
188
189
190
191
192
193
194
195
196
197
198
199
20r)
201
202
LABEL
WR IT
NEXTSEQ
NEXTLABEL
SET WRITE LATCH
GO STORE UCw, RESTORE CPU MODE
SET READ, INITIAL PRTR LATCHES
BR IF INITIAL PR TR NOT SET
SEND CHARACTER TO 1052 DATA REG
GO STORE UCW, RESTOR E CPU MODE
SET ENDING STATUS BIT
STORE UCW EXCEPT UNIT STATUS
MOVE SENSE REG
GO SHARE PR I NT ER SENSE ROUTINE
GETUCW
D1=O-K09
DO=I)OL
DO=DO*-KOE
SET MODE K=20
RDH P AS,D+2
ROH G AS,D+2
RDH V AS,0+2
RDH U AS,O+2
HO=VO
D1=O-KO 7
RTN
SET AUX STORAGE
ADDRESS
OXF6
SET PR-KR MODE
GET PROTECT KEY, SENSE BYTE
READ CHNL ST ATUS, FLAGS/OP
DATA ADDRESS/UNIT STATUS
COUNT FI ELf')
MOVE UNIT STATUS
RESTORE UCW ADDRESS TO Fa
PUTUCS
PUTUCW
VO=HO
D1=0-K09
STH P AS,D+2
STH G AS,O+2
STH V AS,D+2
STH U AS,D+2
D1=0-K07
RTN
I NNN
SENSE
MORE
173
I NNN
051
MORE
192
PUTUCW
GOCAL
*
OPTS 104
UCW
SENSE
FETCH
PUTUCA
*
*
* TWSEC 1
203
204
205
206
201
208
209
210
211
212
213
214
215
216
217
21A
CLO AD=*E60, EC LEVEL=128266
COMMENTS
SET TA K=40
BR
SET TA K=82
BR IF TU6:0
TE:Hl
BR
PO= PO$K08
BAL
H1=P1
BR
051
READOP
*
ST ATEMENT
TNRCNT
l AISI
lAOSl
ERRQ 082
ROCHS T
215
216
214
CCOM 155
DPTT 013
DPTT 023
lA1Sl
lAOSl
TNRCNT
CCOB
UCENT
RES TE S
219
DPTT 049
ZATEN
SHARE
D1=O-K09
ROB T1 AS,D
Tl=TlH
STB T1 AS,D
0=0+2
SET MODE K=20
BAL
RST TA K=20
BR IF G1 '5= 1
BR IF GOO=1
BR IF TT2=1
BR
BR
BR
OO=DO$K02
BR IF HOO=1
BR
UCW STORE
MOVE UNIT STATUS
SET ADDR ESS TO OXF6
STORE SENSE BYTE
CHANNEL STATUS, FLAGS/OP
DATA ADDRESS/UNIT STATUS
COUNT FIELD
RESTORE ucw ADDRESS TO F8
* START 110 ACT=O, SEC=l (007=0)
* TEST 110 ACT=l, SEC= 1, CC FlAG=O
* TEST I/O ACTIVE=O
SET ADDRESS TO OXF6
READ SENSE BYTE
RESET SENSE BITS 4-7
STORE SENSE BYTE
INCREMENT !JCW ADDRESS TO F8
SET PR-KR MODE
GO READ CHANNEL AND UN IT STATUS
RESET MICROFORCE LATCH
BR IF AC TI VE B.IT I S ON
BR IF SECONDAR Y BI T IS ON
BR IF INTERVENTION REQUIRED
GO SET CPU MODE, COND CODE 0
GO SET UNIT CHECK, STORE CSW
GO TEST UNIT STATUS
SET DO 6 FOR PTR RTN TO BR ON
BR IF ATTENTION BIT IS ON
SHARE PTR RTN, THEN STORE CSW
PAGE 211
ADDR
WORD
3336
8CB8
246C
246E
2470
2472
2474
2476
2460
2478
247.0.
247C
247E
2462
2464
2466
2468
246A
3478
347A
347C
347E
8F7A
2404
C 463
0179
FEFe
ADF6
RA9E
1 ~o ()
2 F08
14·n
8AC2
f!56A
3 EA3
6664
7E6A
8.0.(0
9816
B406
f" 566
8792
157A
157C
157E
Pi 8 C'
1582
1584
1586
1588
15BA
158C
158E
1590
1592
159 f t
1596
15<)8
SAFF
5F19
ItC '5
CFIO
2055
21RD
2188
5 Foa
4FFF
CF20
12A E
( 48 3
F09g
1ICR
C482
F.091
1,)9~
CB? 0
159C
159E
15AO
I5A2
15A4
15A6
l5A8
15AA
15AC
DB0,
EA2D
OllF
C4A9
1 FB f)
C48A
1 F7D
C48A
I11B
15AE
C482
SEQUENCE NO.
DYPE
nYPE
DYPE
IJYPE
DYPE
I)YP'=
DYP!::
~19
220
221
222
*
LABEL
NEXTSEQ
l ATEN
DPTT 061 DEVE
HAL T 10
ERRQ 082 RDCHS T
HLTTW
223
224
225
Oyp!;: 226
DYPf 227
!) Yp E 228
o YDC:: 22 9
[) YP F 23()
DYPF 231
f) YP F 231.
DYP~ 233
DYDF 1.34
DYPC 235
DYP~
236
DynE 237
DYPE 238
I) YP E 239
OVPE 240
DynE 241
f) yD F 242
o yp t: 243
DYPE 244
DYPE 745
f) YP '= 246
DYP ;: 247
!) VP F 248
CYPI= 249
DYDt: 250
f) YP ': 251
f) yp f
252
DYPE 253
DYDE 254
DYPE 255
DYPE 256
DYPf 257
nYPi= 258
D yo F. 259
DYPE 260
DYPE 261
o yp t: 262
DYPE 263
DYPE ?64
DYP I:: 265
DYPE 266
DYPF ,~67
DYPE ;>68
DYPE 269
ZHAO
lHTERM
lHACTV
lHERE
PRGCHK
*
NEXTLABEL
232
228
227
(COM 166
OCLA 285
lHACTV
lHT ER M
ZHAO
CC3B
STORO
OCLA 279
236
HOHO
lHERE
DCLA 278
CCOM C58
DCOM 081
179
011
NEW
DYPADD
L SA VE B
REDSTR
GE TUe~-I
NOATEN
TRANSLATE
STTRSL
253
L OWCS E
246
257
BACK
LOWAQ
246
270
261
246
267
BACK
LOWFQ
L OWBO
BACK
LOWCQ
265
LOWDQ
250
LOWEQ
250
LOWEQ
BACK
LOWEQ
LOwCSE
LOWAQ
LOWRQ
LOWDQ
LOWCQ
*
246
BACK
STATEMENT
CLOAD=*E60, EC LEVE L= 12 8266
COIl1MENTS
BR
GO RESET I .8 • t THEN ST OR E CSW
BAL
SET MODE K=20
BR IF GOO=l
BR IF G15= 1
BR IF TT 2=0
BR
BR
RST TA K=80
seT TA K=40
GJ=GO$K08
BR
BR IF Gl1=!)
HO=HO$K08
D=D +-2
STH H AS,D-2
GO READ CHANN,EL AND UN IT STATUS
SET PR-KB MODE
BR IF SECONDAR Y BI T IS SET
BR IF AC T I VE BIT I S SET
BR I~ NO I NTER VENT ION REQUIRED
GO SET CPU MODE, COND CODE 3
GO ZERO STATUS, STORE CSW
RESET READ LATCH
SET WR ITE LATCH
SET O-COUNT BIT
GO RST CC, CD FLAG S, STORE CSW
BR IF NO CC FLAG
SET CHANNEL END
SET UCW ADDRESS TO UNIT STATUS
STOJ<.E UN I T STATUS IN UCW
GO TEST CC ~LAG
GO SAVE P, I
GO STORE ucw
GET UCW, SEN SE BYT E, SET MODE
GO TO ENDING ROUTINE
BR.
BAL
BAL
BAL
BR
ROUTINE
H1=TI
Ul=H1
Ul=U1*-KCO
BR IF HIO=O
UO=O$K50
U1=!Jl+KRO
Ul=UI+K08
ROB HI AS,U
TE=HI
RST TA K=02
RTN
BR IF l=O
BR IF Ll.Nl
Ul=UI(KOC
BR IF IN Z
BR IF Hl=O
I3R IF H14=O
RR IF H15= 1
BR IF H16=1
Z=U1(Kll
BR IF l-=O
H1=H1(KBO
BR IF lNl
Hl=Hl(K70
BR IF IN l
Ul=Ul(KOl
BR IF lNZ
GET KEYBOARD CHARACTER
MOVE CHAR TO WORK REG
RESET CASE HITS -- 0,1
BR IF LOWER CASE
SET MODLE ADDR OF TABLE 50XX
ADO XXB8
TO BIAS THE TABLE ADDRESS
GET EBCDIC CHAR FROM TABLE
SEND CHAR TO 1052 DATA REG
SHARE RESET TO ALLOW 1C52 CYCLE
RETURN TO LINK ADDRESS
BR IF CHAR IS A BLANK
BR IF NOT DASH, AT, AMPERSAND
MODIFY TARLE AOOR
UNCOND I T toNAL BRANCH
BR IF NUMfR I C OR POUND SIGN
BR IF NOT KB 8 BIT
BR IF KB 't BIT
BR IF KB 2 BIT
BR IF SLASH
TRANSLATE ALPHA CHAR TO EBCDIC
TRANSLATE CHAR TO EBCDIC SLASH
MODIFY TABLE ADDR FOR COMMA,
DOLLAR SIGN, OR PERIOD
PAGE 212
AODR
WORD
15BO
15B2
1584
15B6
1588
15BA
CB34
EB39
1 FFD
C4AA
1148
C482
5088
50CF
50E4
DYPE
OYPE
DYPF
DYPE
DYPE
OYPE
OYPE
DYPF
aYPE
DYPE
DYPF
DVPE
DYPE
OYPF
DYPE
DYPE
OYPE
DYPE
DYPE
OYPF
OYPE
DYPE
DYPE
OYPE
OYPE
DYPE
DYPE
OYPE
DYPE
DypE
OYPE
OYPE
OYPE
DYPE
DYPE
DYPE
SEQUENCE NO.
DYPF.
OYPE
DYP[
i) YPE
OYPE
DYPE
DYPE
OYPE
DYPE
DYPf:
DyoF
OVPE
407E
E6E7
6015
003
:)09
011
010
019
020
021
022
('25
034
039
040
C47
051
OS2
053
054
057
062
064
066
067
072
084
087
oge
094
095
102
103
109
111
112
114
126
130
BSWI
DYPE
QWRP
OYPE
DYPE
DYPE
OYPE
DYPE
[lYPE
aYPE
DYPE
DYPE
DYPE
DYPF
OYPF
DYPE
DYP[
DYPE
DYPE
DYPE
DYPE
OYPE
DYPE
DYPE
DYPE
DYPE
DYPf
DYPE
DYPE
DYPE
DYPE
DYPE
OYPE
DelS
OYPE
DYPE
270
211
212
273
214
215
271
278
279
280
281
282
LABEL
NEXTSEQ
LOWFQ
lOWGQ
212
214
*
AT ABLE
C
C
C
AEND
lOWGQ
LOWHQ
ClOAD=*E60, EC lEVEL=128266
COMMENTS
STATEMENT
BR IF H14=O
BR IF H16= 1
BR
BR
LOWEQ
r
**********************************
* CROSS REFERENCE FOR CSECT DYPE *
**********************************
fl88
IBO
162
C14
:)31
003
C04
007
OVPE 008
DYPE 02S
DVPE 165
OYPE 173
OYPE 028
DYPE 033
DYPE 065
DYPE 240
023
')22
057
037
1" 2
04R
018
043
11 f)
054
034
15 ::
041
049
039
081
08't
066
106
C93
100
092
104
109
095
253
124
128
nYPE 112
DYPE 059
DYPE 062
OYPE 111
IF NOT KB 8 BIT
IF KB 2 BIT
Hl=Hl53
264
245
254
25 Ii
262
260
2') 7
270
271
*
l)YPE 275
CLOAD=*E60, EC LEVEL=128266
PAGE 214
ECOL
DESCRIPTIVE
CLOAD=*E60. EC lEVEL=128266
TEXT
PAGE 215
ENTRY POINTS
MASK
ADDR
1R4A
IB4C
IB4E
1B50
lR52
1P,54
lR56
IB58
ENTRY IS MAOE TO THIS LABEL FROM THE EPCH
ROUTINE WHE~ A COLUMN ~INARY OPERATION
NFFOS 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 REEN SET.
WL~
ENTRY IS MADE TO THIS LABEL FROM THE FPXF
R0UTINE WHEN A WRONG LENGTH RECORD HAS B~FN
DETECTED. THE WLR BIT IS SET AND STORED
IN THE INDICATOR BYTE IN AUXILIARY STORAGE.
THE RESIDUAL COUNT IS STORED AND THF ERRQ
ROUTINE IS BRANCHED TO FOR A UCW READOUT.
MOVWLR
ENTRY IS MADE FROM THE EPXF ROUTINE AFTER
THF. PUNCH DATA HAS BEEN TRANSLATED TrJ ROW
IMAGE. THE RESIDUAL COUNT IS STORED AND
THE ERRQ ROUTINE IS BRANCHED TO FOR A UCW
READOUT.
W0R
D
Sfr)UFNCF NO.
001
2485
2 hF7
ECOL
EU1L
ECOL
EeDt
') AB9
E Gril
005
4EA6
002
003
'5B1)9
011=:1
F CD l
FOEI
fCOl ':nO
Iii SA
211~
FUll ('11
IB5C
1B 5F
IB60
IB6;>
1B64
1B66
1B68
1B6A
IB6C
IB6E
lR24
1B26
1828
1B2A
D861
012
feOL 013
ECfJl 014
ECJL 015
fUll 016
feOl 017
ECOL OIB
FenL 019
f.eOL 020
ECfJL 021
r:CDL 022
tenL 021
[COL 024
IS2e
3118
F824
261 Ii
F 41\4
2 OA 1
5 FCO
3 E13
7ECO
9S7C
5738
E72 A
6541
F72E
6841
T
*
MASK
NEXTSEQ
NEXTLABEL
')C 9
~GAIN
~crlL
ferlL 025
ECOL 026
CTEVEN
ENTRY IS MADE FROM THE ERCX ROUTINE AFTER
THE CCW COUNT IS ZERO FOR A DATA CHAINING
OPERATION. A BRANCH TO DCLB 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 CCW, THE INFORMATION IS READ BACK FROM
THE BUFFER, COMPLETED, AND STORED BACK INTO
THE BUFFER.
NEWMSK
STATEMENT
N
ENTRY IS MADE TO THIS BRANCH SET FROM THE
EPXF ROUTINE TO FETCH A NEW COLUMN MASK
AS INDICATED BY THE CONTROL REGISTER -10-.
COMMENTS
PUNCH COLUMN BINARY AND DATA CHAINING
004
FUll 1)06
EeOl G07
ECQL 003
5899
LABEL
GOCHAN
014
CTE VEN
C14
CTE VEN
022
RDDAT A
022
ROOATA
059
HALF
025
N
021
NE
WLR
RDDATA
FIRST MASK
GO=O$K80
TC'=O$KFF
RST ALL REG'S
Tl=T(
H=T
11=T1
Gl=Tl
MASK FOR ODD CT
l=LJl*-KCE
BR IF Ll=C
8R IF ccw CT EVEI\I
MAKE CT EVEN
Ul=Ul+KOl
BR IF PC BIT5-=1
BR IF TOTAL CT EVEN
Ul=U1-KOl **TOTAL CT ODD, TAKE 1 COL lfSS
BR IF PO B r T6=0
BR IF LOWER HALF
DO=DO+KO 1
WLR CTR + 1
P,R IF NOT WlR
BR If AC=O
Pl=i)-KOA
WLR, P=l OF 5
ROH H AS,P+O
RD IND BYTE
WLQ. INDICATOR
HO=HO$K01
STH H AS,P+O
BR
R DB 01 V+l
READ DATA
BR IF 01 BIT2=0
Gl=Gl(GO
13R IF 01 81T3=0
T1=Tl(GO
ADDR
WOR D
IB2E
C 332
6F41
0336
6941
F33A
lfno
IB 32
1834
11316
1838
IB3A
IB3C
IB3E
1B40
lR42
1844
1~46
11348
1ROC
IBOE
lBl()
1B12
11314
1B16
UHA
IBIA
lfHC
61\41
F33E
6 E41
5224
282B
311R
C480
') 879
13309
75CO
2 DAB
7~CO
2DA8
7 Fce
1 (1 R
F B11
'5959
'5 ~q 9
lRl'=
lR20
lR22
1B70
lB72
IB74
1876
(4FD
l~7R
ORAD
1B7A
181C
1B7E
11380
1B112
1884
IB86
IB88
lB8A
1B8C
IB8E
1B90
1B92
lR86
IRRS
ISBA
lBBC
fOCA
1 C2 B
I:: 814
'5
~f9
2 DAB
OBoe
2 DC 0
2 DF8
5119
56~9
71A2
5(q9
RF64
8,A68
2E07
C53A
F 837
52D9
95CA
3485
C:;FAO
1C~R
9FOl
1800
2F08
1802
1804
98CA
2FOC
SEC)!JENC E NO.
ECJl
FeOL
fell
EeOl
EeOl
I=CDL
fCOl
Ee~Jl
fCOl
ECOL
EUll
ECUl
feOl
EC1L
fCOl
fCOl
ECOL
;:::r:nl
F Cfll
ECrJL
ECOl
fCJl
ECOL
027
028
O?9
030
031
032
,,33
lABEL
NEXTSEQ
NE
029
NEX
\lEX
031
NEXT
'JEXT
033
NEXTB
'JEXTB
035
NEXTBT
041
STORE
127
NEWMSK N
053
DON2NO
041
STORE
059
HALF
003
MASK
095
LOHALF
034
035
\tEXTST
036
037
03R
039
TEMPRY
040
041
042
('43
044
045
046
047
048
049
STORE
ECOL 050
'151
052
E(11 L
ECOl.
fCOl
(Cal
ECOL
'= Ull
FeOl
FeOl
EcnL
FCOL
(COL
FCOL
[Cill
fCOl
ECOL
fCOl
NEXTlABEl
053
054
01)5
0'56
0r;1
DON2ND
058
059
060
:)61
i-fAlF
"10VWLR
062
063
06 /+
ERRO 086
065
ERRQ 091
066
E CCll "67
ECOL (,)£,8
E(flL 069
fU)L 070
fCOL 071
ECOL 082
EeOl 083
ECOL OPI)
ECDL 086
Ecnl 087
ECOL 088
071
071
RPHUC W
RDINO
NOCO
NOCD
SOCHAN
DClA 043
CHAIN
'JOCO
S TKSEl
086
S TKSEl N
091
COUNT
(I
S TKSEl 2
STATEMENT
ClO AD=*E6Q, EC lEVEl=128266
COMMENTS
BR IF 01 BIT4=O
Hl=HlC H 055
EoCH 056
EPCH 057
EPCH 058
f: PC H 059
EPCH 060
EOCH 061
EPCH 062
~PCH 063
E PCH 064
F: PC II 065
FPCH 066
EPCH 067
:: PC H 068
~PCH 06C)
EPCH 070
EP(H 071
E P(H C72
EPCH 074
EPCH 015
EPCH 079
READ
032
053
ERDR 133
;>ICKUP
('55
UEXPFR
SETP4
068
H Ie TO
S ETP4
SETC TR
H IGHC T
HIC TO
ERRQ 101
STI NO
GOBAC K
STAY
074
EROR 146
072
088
STAY
BACK
GOBACK
CCSID
STATEMENT
BR IF HO BIT6=1
BR IF HO BITO=O
8R IF HO BITl=1
PO=PO$K40
BR IF HO 81T1=0
PO=PC$K20
BR IF PC 81T6=1
BR IF HO BIT4=0
PO=PO$K02
SET P K=04
SET MonE K=16
DO=DO>«-K04
BR
BR
BR IF PO 81T4=1
SJ:T MODE K=16
OIJ=DC'$K04
SET MUDE K=10
PO=PO*-K08
BR
BR IF HO B I T6=0
BR IF HO .B IT5=1
l=HO+K4C
BR IF AC=C
BR IF HO BTT2=1
BR IF PS BIT2=0
PO=0
BR
BR IF PC BI T4=0
Pl=0$K02
PO=PO$K08
PO= P('*-K02
OO=0-K50
UO=LJO
BR IF l=O
Pi)= PO $KC 5
T=U
uo=o
Ul=O$KAO
SET S3
TIC=TI-U1+C
TOC=TO-UO+C
STH T DA,BE
BAl
ST8 Ul OA,AC
STH V DAfBC
BR IF D1 BIT~=O
8R
BR IF PC BIT4=1
BR IF PO 13 I TO=O
P1=PO
CLOAD=*E60, EC LEVEL=128266
COMMPJTS
BR IF 7,6 COMB INAT ION
BR IF STKR PI OR P2
BR IF Of:l BITS IN COMM AND
RP3
P2
BR IF PREVIOUS PFR WRITE
BR IF THIS CMD NOT PFR
PFR WRITE C~D,SET INDICATOR
SET PFR RE ST AR T (RU025 )
PUNCH MODE AND lONE
PFR INDICATOR FOR PCH TRAP(ETRP)
BR IF PREV IOUSL Y PFR READ
PCH MODE 2500 10!\JE
SET NOT PF R INDICATOR
SET FEED INDICATOR(RST PFR READ)
BR IF 5-6 BIT CD '''18 [N AT ION
BR IF Of.1 BITS NOT ON
BR IF COL BIN
BR IF NOT UNIT EXCEP TI ON
PFR UNIT E XC EPTI ON ,ALLOW FEED
SHARE UNIT E XC fPTI ON READER
BR IF PREVIJUS CMD I S A FEED
PREV A READ, SE T UNUSUAL C~D BIT
SET READ I ND I C ATOR
RST FEED OR PFR WR ITE INO I CA TO R
SET WLR DO=AF
Bf< IF NO E XCE S S C(]UN T
EXESS COUN T f: WLR INDICATORS
MOVE COUNT TO T REG
GET
EXCESS cn UN T
AND
STORE
IT
STORE •
STORE ADJUSTED COUNT
STORE DATA ADDRESS
BR IF PUNCH
REAOER,GO TO ERDR ROUT I NE
8R IF PFR REAO(CC OR S 10)
BR IF NOT CDA
MOVE IND TO PI TO SAVE CDA INO
PAGE 220
AODR
wOR [)
1532
1534
1536
1538
153A
59C9
C85E
5809
Q83F
5224
2 B2R
5805
15~C
153E
1540
1542
1544
1 r; 46
1548
154A
154C
154E
1550
1552
1554
1556
1558
l55A
155C
155E
1560
1562
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
EPCH
F.PCH
EPCH
EPCH
ErCH
EPCH
EPCH
EPCH
SEQIJENC E NO.
EPCH CAO
F. PC H ")83
1)84
EPCH 085
E DCH 086
FPCH 087
EPCH ·')88
EPCH 089
EPCH 090
EDCH 091
EPCH 09?
EDCY 093
EOCH (94
E peH 095
54AO
78AS
14C8
C04C
094C
5884
E~63
1 C.A"3
ClC(O
qR4A
037
053
055
051
058
n68
072
074
086
088
093
10?
1!J4
ECOL 109
(CSIO
LOOP
093
093
E P(H
~CE9
044
TOTEVN
EPCH CIe
*
*>Ie
ERDR
EROR
ERDP
ERDR
NEXTLABEL
T
ERDR ')06
EROR 007
ERDR 00B
FRf1R 00g
E ROR 015
NEXTSEQ
P
*
*
**
OODA
OODC
00 DE:
0008
*--------------------------------------------------------------*
**NOT
** RESIDUAL ** NEXT CCW
*
*
*
* STATUS * USED * COUNT
* AJDRESS
*
*
*
*
*
*
*
*
*--------------------------------------------------------------*
**
>,'<
CANNEL *CHANNEL
STATUS* FLAGS
**UNIT
ADDR
WORD
SEQUENCE NO.
ERDR 024
fRDR 025
F.R[)R 026
F.RDP 027
ERfJR J?8
ER')R :)29
EROP (nO
ER[)R 031
EROR 032
ERDR 03~
ERDP ;)34
EROR 035
!=RDR
ERDR
\~36
037
ER,)R 03R
fROR ()-:l,9
EROR 040
ERD:<. 041
~RDR 042
EROe<. 041
EROR 044
ERDP. 045
EROR. ·.J46
ERC)£.< C47
FRDQ 048
EROP 049
ERDR ('I5C
r.:RDR 051
::ROP J52
1912
1914
1916
1q 18
191A
unc
191E
1920
1922
1924
1926
1928
192A
192C
192E
1930
1932
1934
1936
1938
193A
193C
54EQ
(4~C
5ER2
5069
RA68
":3C85
950E
C~AE
FROR
t=ROQ
ERfJ q
c:R!)R
ERDR
:= RO P
EPOR
:;:ROR
053
054
LABEL
NEXTSEQ
NEXTLABEl
CH STAT-DR
O-SECONDARY
l-WLR
? -PROG CHK
3-PROT CHK
4-NOT USED
5-NOT USED
6-1 NT FCE CK
7-1 NT IN BFR
*
*
*
*
*
*
*
*
**
*
*
*
*
*
**
*
*
*
*
*
*
*
'*"
*ASEQ
*
AlO7=12
EPf)P
064
OOAF
EROS
065
9F5C
9812
8A68
C ERO
8178
2C75
4452
8DbA
5460
ERD::<' 066
ERDR 067
ERDt< 068
EROR 069
ERDR ')70
ERDR 071
ERDR C72
060
ERDR 073
ERDR 074
NOTCDA
GOSTOP
NOTIPL
~
**
**
*
*
CH FLAGS-D9
O-CHAIN DATA
I-CHAIN CMD
2-SL I
3-SKIP
4-PCI
5-ACTIVE
6-NOT USED
7-NOT USED
*
*
*
**
*
*
*
*
UN IT STA T-DA
O-NOT USED
I-NOT USED
2-NOT USED
3-BlJSY
4-CH END
5-DEV END
6-UNIT CHK
7-UNIT E XC EP T
-----------------------------------------*
NRDR
059
ERDR 061
ERfJR (';62
ERDP 1")63
Xc
:((
*
057
058
F72C
/406
(EAC
3023
*
*
CLOAD==*E6Q, EC lEVEl=128266
COMMENTS
********************************
* INDICATORS AND SENSF BYTE *
***~****************************
*------------------------------------------*
* INDICATORS
* SENSE
*
STORAGE
AUX
*
* AUX STORAGE
*
*
* ADDPESS
* ADDRESS
10
FO
1CF 1
*
*
*-----------------------*------------------**
* O-CHAIN DATA
* 0- CMD REJ EC T
I-STACKER
SEL
*
* 1- NOT READY
*
.2-STACKER
SEl
*
* 2- NOT USED
*
3- EQUIP CHK
* 3-0
*
»:
4-READ
4-VALIDITY
CHK *
*
'
"
S
TO
REO
5
-COUNT
NOT
USED
5*
*'* 6-UNUSUAL CMD '"
6-FEED
*
*
** 7-WLR
* 7- NOT USED
NOTCOA
055
0'56
060
STATEMENT
ERRQ 091
RDIND
EPCH 058
067
066
HIGHC T
NOTIPl
GOSTOP
066
GOS TOP
067
ERRQ 049
CCOM 056
ERRQ 091
074
(COM 066
NDTIPL
STOP
LSAVE
ROIND
AVABL E
LRSTRB
DPTR 076
S TI NS T
VANOT
AVABL E
MOVE CMO INTO HO
BR IF NOT DA TA CHA IN
CDA, RESTORE OLD CMO INTO HO
RESTORE WlR CTR
READ INDICATORS f. SENSE INTO P
SET COA INDICATOR
8R
GO TO ADJUST HIGH COUNT
13R IF BA BIT4=0
BR IF- NOT I P L
BR IF 01 B1T3=0
fiR IF IPL FROM PUNCH
SET MOOE K=30
SET READER ~OOE
BR IF FPS BITO==O
BR IF OFF lINEtSXC41)
P1=P1$KC2
SET WA IT RIT FOR IPL CLUTCHING
BR IF RS BIT1=1
BR IF RDR REA DY( SX04 1 )
:((*IPL NOT AVAILABLE OR NOT READY,OR I PL FROM PCH
BR
BAL
SIO OR ce, SAVE u, G, I & P
BAL
PO==INDICATORS, Pl=SENSE
BR IF RPS BITO=1
SR IF ON lINE(SX041)
RESTORE P AND I
BAl
P()=O$K70
NOT AVAILABLE, SET CONC. CODE 3
RDH G DC,9A
G=OOC o. RS T ACTIVE, SECONDARY
SR
STORE UCW £. GO TO SSWI
RDH G AS,D+O
RO CH.ST. SO LATER CAN STORE UCW
HO=GO
BR IF lNl
RDH H DA,AE
DO=Pl
BAL
PO=PO$K80
PAGE 229
ADDR
WORD
193E
1940
1942
1944
1946
1948
194A
194C
194E
1950
1952
1954
1956
1958
195A
195C
F747
195E
1<)60
1962
1964
1966
1968
196A
196C
196E
1970
1972
1974
1976
1978
197A
197C
197E
1<)80
1982
1984
19R6
1988
198A
198C
1Y8E
1990
1992
19q4
1996
1998
199A
199C
199E
19AO
19A2
20130
OF30
994A
2004
0830
2 J:A 3
OE3R
C4DC
F758
DODA
B43C
8C58
CF05
99B6
Of4B
F76F
FOE9
2007
CFDA
9404
C FF3
3045
9974
FCFA
ODEA
1045
B43C
3623
SEQUENCE NO.
EROR :)75
EqDR
ERnR
E RDR
EROR
EROR
::;RDR
fRDR
ERDR
EROP
cRDP
E'WR
FRDP
Ef(DR
E RC'R
FROR
EROR
ERIJR
FRnR
E RI)R
ERI)R
ERI)R
EROP
~R[)R
2007
OOOA
1 ROO
6CF7
fA34
F A26
E E34
f 835
76F 2
CEI A
nEI B
FA35
::RDR
tRf)R
ERDR
!= RDR
ERDR
E RO(~
FRDR
ERDR
E Rf)R
8F7A
92('A
3C45
DElE
3C25
1C83
3C23
B3E8
076
077
078
079
J80
081
J82
08'5
086
"f<7
ROYNOP
088
PCHI
NOTROY
ENNOOP
079
RDR 1
081
H10A
090
OR8
089
ERRQ 109
OPTS 125
086
139
099
096
089
EPCH 010
PCHSNS
SNSNRY
ROR2
SNS ROY
JOIN
ENNOOP
PCHI
NOTRDY
GUESS
NOOP
ROYNOP
UNI TC K
R DR2
PCHSI\JS
101
NOT ROY
NPCH
SNS RDY
102
105
097
JOIN
NOTSNS
SNSNR Y
ERRQ 109
GUESS
OYPE 176
GOCAl
NOT SN S
106
107
108
089
NOTROY
Ie g
138
127
138
138
CMDREJ
ROORRF
CMDREJ
CMDREJ
121
120
138
S 51 OR 2
RP3
CMDREJ
ERRQ 082
EXFR 114
RDCHST
CHKCHK
123
SSDON E
110
111
112
113
ER.DR 114
EROR, 115
F. RDR. 116
~ROR 117
ERDR US
ERDR 119
ERDR 120
t=ROR 121
ERDR 122
ER!)R
ERDR
ERIJP
NEXTLABEL
110A
084
104
10')
NEXTSEQ
RDR1
')83
089
090
091
092
093
094
095
096
097
E q.r)q 1)98
ERIJR 099
E Rf) R 1CO
ERDR 101
ERDR 102
ERf')R 103
A 5EO
0004
LAB EL
123
124
125
STACKR
RP3
S S 1 OR;>
SSOONE
ERRQ 101
STIND
STATE~ENT
8R IF 01 RIT3=1
SET PP K=08
RST P K=03
BR
SET RP K=20
RST R K=03
Hl=O$KOA
l=HO(K03
BR IF lNl
BR IF Dl BIT3=0
AR IF RS BIT1=0
BAL
BR
BR IF PS BITO=l
BR
Z=HO(K04
BR IF 01 BIT 3= 1
BR IF LI=O
Pl=O
BR IF PS BITO=O
BR
BR IF PS B[TO=l
P1=P1$K40
RR
BR IF LZNl
BR IF RS BIT1=0
P1=P1*-K40
SAL
00=DO$/<.02
BR
Pl=O
Bf<. IF RS BIT1=0
RST R K=80
PO= PO*H 1
8Q IF HO B I T6 =0
BR IF HO BIT7=0
BR IF HO 81T2=0
BR IF PO BIT6=1
STH 0 OA,BE
BR IF HO BITO=O
3R IF HO 81T1=0
BR IF HO BIT7=1
RST RP K=2D
BAL
BR
PO=PO$K40
BR IF HO BIT1=0
Po= PO$K20
po= PO*-KG8
PO=PO$K02
BAL
CLO AD=*E60, EC LEVEL=128266
COMMENTS
BR IF RDP
SET PCH CMD INLK (f<'U031)
RST PCH REQUEST IF HWDE(RU015)
SET ROR CMD INLK (RUO 21 )
RST RDR REQUEST IF HWDE(RlJ015)
SET HI TO LATER RST INDICATORS
MASK FOR NO OP
AR IF NOT Nil OP
NO OP, BR IF PCH
BR IF RDR NOT READY( SX041)
RST CMU INTERLOCK
SHARE 1403 NO OP ROUTINE
BR IF PCH REAOY(SX041)
NOT READY
MASK FOR SENSE CMD
RR IF RDP
RR IF PCH SENSE CMO
NOT SENSE C"1D, ZERO OUT SENSE
BR IF PCH NOT REAOY(SXQ41)
GO TO PCH 010 DECODE
BR IF PCH READY( SXC4U
SENSF CMD, NJT READY
BR IF NOT SENSE CMD
ROR SNS CMD,BR IF NOT ROY( SX041)
SENSE CMO, READY
RST CMO INTERLOCK
SET 6 BIT FOR 1403 TO BR ON
GO TO PICK UP Hl=Pl WORD
ROR. NOT S~J S C ~O, ZERD OUT SNS
BR IF NOT ROY ( SX041 )
R.ST RO £. VAL CHK{RU023)
RST ALL IND. EXCEPT FO IND.
AR IF NO 6 BIT - CMO REJECT
BR IF RD OR RD-FO
CMO REJ IF NO 2 BIT
FEED CMO, BR IF DOUBLE FD
FO ONl Y, IMMEDIATE CMD, SAVE 007
BR IF STKR SEL 1 OR 2
BR IF RP3
BR IF NOT RD, CMD REJECT
RST RDR C~O INLK(RlJ021 )
RESTORE CH. ST ATUS AND FLAGS
RD NO FD, FROM ERCX, NOT PFR
STKR SELECT RP3
BR IF R1 OR RP3
STKR SELECT R2
RST READ I NO IC ATOR
SET FEED INDICATOR
STORE INOI CATORS £. SENSE
PAGE 230
AODR
19A4
19A6
t<:}A8
19AA
19AC
10AE
19AO
10B2
19B4
19B6
19BR
19BA
19BC
19BE
19CO
19C2
19C4
19C6
19C8
19CII,
19CC
19CE
19DO
1902
1904
1906
19D8
190A
190C
190F
19fO
19E?
19E4
19E6
19E8
19EA
19EC
19EE
19FO
19F2
19F4
1AOO
1AC2
1A04
lA06
lA08
lAOA
WORD
SfQIJE"JCI== NO.
9C05
Eqf) P 126
ERDR 127
t:;RDR 12 A
ERDR 129
OA35
EOAF
2B40
9504
3 noo
2EI3
99BR
20B5
2 E2 '3
P, 3E 8
R43C
2A07
C3C2
9F5C
8C60
(C5D
F 753
2445
251 j
40A6
,1RB
<.P
ETRP
ETRP
F TRP
E TPP
ETRP
E TRP
E TRP
E TRP
E TR P
ETR P
ETR P
E TR,P
FTRP
E TRP
F TRP
ETRP
ETRP
E TRP
fTRP
ETRP
ETRP
ETRP
E fRP
ETRP
FTRP
E TRP
ETRP
ETRP
ETRP
ETRP
ETRP
ETRP
ETRP
ETRP
'= TR P
NO.
0(" 2
009
010
011
012
013
("14
015
,')16
011
018
019
020
021
022
023
024
025
026
027
029
030
031
032
LABEL
ATABLE
*
*
*
*
*
**
*
*
*
*
AEND
START
NEXTSEQ
NEXTLABEL
ADDR=OllO
THE REGISTERS ARE USED FOR THE FOLLOWING
GO-TRAP COUNT
V -AUX STORAGE ADDRESS MODIFICATION
005 =1 NORMAL WRITE INDI CATOR
007=1 12 ROW PUNCH
023
START
072
seTUP
057
031
041
ROWl2
PFR
NOTPFR
PFR
C~3
0,4
035
036
031
038
039
()40
041
045
046
047
048
049
050
OSl
052
053
OS4
NOTPFR
056
056
NOEROR
NOE ROR
063
061
RETURN
GOA 006
065
DONE
PCHCHK
055
056
057
OS8
NOEROR
ROWl2
059
060
061
062
CLOAD=*E60, EC LEVEL=128266
COMMENTS
STATEMENT
GOAOO6
LINK
BR
U
MMSK4= 1
BR IF RPS BIT7=0
PO= RP2
H1=RPl
RDB PO AS,V+1
BR IF DO B[T7=1
BR IF 00 BI T5=0
BR IF PS BIT1·=1
V1=V1+K60
V1=Vl+KOC
ROB PI AS,V+O
STB HI AS,V+O
V1=V1-K77
ROB HI AS, V+O
Hl=Hl 1
162
163
F IL X 164
FILX 165
I=ILX 166
F IL X 167
::ORLEN
NTORST
CLDRST
'4 XTCCW
'\IOTREC
ADROK
CE~DE
STASET
*
*
*
*
*
wROARO
WRDARO
WRDARO
WROARO
WRDATA
"'"1
2
3
WRROOP
PITEST
SET04
TOASI
I NVSEQ
WPHAOP
0
WRHA
WRHA
1
WRHA
2
ST ATEMENT
ClOAo=*E60, EC lEVEl=128266
COMMENTS
BR IF FFIO=l
BR IF DATA CHAIN
BR IF FF 17= 1
BR IF SL I ON
TEST FOR CCW COUNT 0
1=1
BR IF INCORRECT LEGNTH
142 STASET
BR IF INZ
BR IF NOT COMMAND CHAIN
141 CEADE
BR IF F F 11 =0
SET FIB K=40
SER FLAG BITS TO ZERO
RST FIB K=20
COLO START RESET
RDH H DA,98
GET CCW ADDR
RDH P H
READ NEXT OP CODE
CHECK FOR SENSE OR TIC
Z=PO*-KOC
BR IF l=O
BR IF SENSE OR TIC
132 NXTCCW
Z=PO'
064
1"67
(;69
078
080
089
092
093
09'5
097
10e
101
lC6
109
11'3
115
116
121
122
123
132
133
140
141
142
149
153
156
158
159
161
162
FIlT
FILX
FILX
fILX
fILX
FILX
F IL X
FILX
FIlX
F I LX
FILX
FILX
J:ILX
FILX
FIlX
FIlX
FILX
FIlX
J:!lX
FIlX
FIlX
FILX
FILT
I=ILX
I=IlX
I=TlX
F Il X
FILX
FTLX
FIlX
I=llX
FIlT
FIlX
FILX
FILX
I=ILX
1= 1LX
FILl(
FILX
F It X
FIlX
FIl)!'
FILX
FIlX
FILT
060
022
030
025
027
:n 1
LABEL
NEXTSEQ
NEXTLABEL
FIlT 115
GOCAT
CLOAD:*E60, EC LEVEL= 128266
COMMENTS
ST ATEMENT
RDH H DA,98
BR
GET ccw AnDRESS
CONTI NUE IPL
AEND
**********************************
* CROSS REF ER ENCE FOR CSECT FILX *
**********************************
FILX 023
FILX 053
F IL X 054
FILX 065
FllX 069
FILX 060
FILX 078
FILX 173
FILX 174
FILX 029
('4'5
or9
056
OI7
')63
01,
'::67
062
'::21
052
J10
C79
FIlX C64
FILX 068
FILX 014
FIlX C18
')44
091
091
279
07'3
F I L X 092
)qA
099
103
104
FILX 106
109
04A
?65
FILX III
FILX 271
FILl( 113
FIlX 378
118
164
FTLX 436
"72
127
12 q
FIlX 130
FtLX 131
13~
121
I=ILX 376
117
FILl( 120
012
149
lC;C
161
066
156
158
FIlX 275
FILl( 188
FILX 028
Flue 155
FILX 157
FILX 185
FILX 187
F IL X 192
PAGE 272
ClOAD=*E60, EC lEVEl=128266
**********************************
* CROSS REFERENCE FOR CSECT FIlX
FIlX
FIlX
FIlX
FILX
FILX
FIlX
FILX
FIlX
FIlX
FILX
FILX
FILX
FILX
FIlX
FIlX
FIlX
FILX
!= I l X
FILX
FIlX
FIlX
FIlX
FIlX
FIlX
FILX
FIlX
FILX
FILX
l=flx
FIlX
FILX
FILX
FILX
FILX
FIlX
FIlX
FIlX
FILX
FILX
FILX
I=ILX
FIlX
FIlX
FIlX
FIlX
FIlX
FIlX
FIlX
FIlX
164
165
171
173
174
176
177
178
1£11
185
188
190
193
197
203
?C4
205
206
208
212
213
214
216
225
229
231
238
241
244
250
254
255
259
261
266
267
271
272
276
280
282
283
288
299
300
303
304
306
307
FIlX 166
F Il X 016
FIlX 015
FTLX 019
FIlX 151
181
t 54
158
16 "'".3
139
FIlX 1R9
FIlX 172
FILX 363
FIlX 196
020
1'32
FILX 198
~IlX
FILX
FILX
FIlX
FIlX
FILX
FILX
FILX
FILX
FIlX
F Il X
008
F rU(
2eo
FIlX 152
FIlX 165
FIlX 183
fllX 195
fIlX 204
101
186
164
FIlX 168
~ILX
FILX
FIlX
F It X
FIlT
F Il X
FIlX
F Il X
FILX
FILX
FILX
FILX
F Il X
1= Il X
F IL X
FIlX
FILX
061
']40
206
FILX 072
FIlX 160
FIlX 175
FILX 170
437
077
470
214
011
227
359
2'55
237
241
248
263
261
240
FIlX 257
FILT :)67
FILX '?64
FIlX
FIlX
FIlX
F Il X
FIlX
FILX
FIlX
FIlx
FILX
F Il X
F IlX
FILX
FIlX
FIlX
260
274
268
F I l X 269
267
273
30 "l
2S1
266
293
100
305
30 ?
301
298
*
**********************************
F
ILX 306
FILX 270
FIlX 311
FIlX 314
FIlX 184
FllX 197
FIlX 199
FIlX 228
PAGE 273
FllX
FIlX
FIlX
J=IlX
FIlX
FIlX
FIU(
FIlX
FILX
FIlX
FIlX
F!lX
FIlX
FIlX
FILX
FILX
FILX
J=IlX
FILX
F IU(
FILX
FIlX
FIlX
FIU(
FILX
FIlX
FIlX
FIlX
FIlX
FILX
FllX
FIlX
FIlX
J=JLX
FIlX
FIlX
FIlX
FIlX
J=tlX
J=IlX
FILX
FIlX
312
321
324
329
330
332
333
336
339
341
346
356
357
359
360
361
364
365
368
371
373
377
379
385
388
389
398
416
421
428
429
434
437
438
439
441
452
453
459
466
468
471
FIlX
FIlT
FIlX
FIlX
FIlX
F Il X
FIlX
FIlX
FIlX
FllX
FIlX
FIlX
FIlX
FILX
F It X
FIlT
FIlX
FIlX
FIlX
FIlX
I=ILX
FIlX
FIlX
FIlX
FIlT
FIlX
F Il X
FIlT
FILX
J= IL X
!= IlX
FIlX
FIlX
!=ItX
FIlT
FIlT
FIlX
FILX
!=ILX
FIlX
FIlX
309
135
OR3
333
**********************************
* CROSS REFERENCE FOR CSECT FIlX *
**********************************
FIlX 351
322
330
331
324
364
05Q
347
354
336
340
F Il X 360
337
157
357
FIlX 339
FIlX 358
FILX 369
FIlX 370
FIlX 335
FIlX 143
FIlX 434
FIlX 287
338
373
375
367
368
374
315
156
387
394
144
411
332
415
431
435
180
084
215
454
451
441.')
'+6 '3
461
FIlT 114
FIlX 473
J= Il X 430
FllX 433
ClOAD=*E60, EC lEVEl:128266
PAGE 214
FI~T
DESCRIPTIVE
CLOAD=*E60, EC lEVEL=128266
TEXT
PAGE 275
ENTRY POINTS
INTRPT
ADOR.
WORD
26FC
26FE
2700
2702
2704
2706
2709
270A
270C
270E
2710
2712
2714
2716
2718
271A
271C
271 F
2720
2722
2724
2726
2728
272A
272C
272E
2730
2732
2734
2736
2738
273A
273C
273E
7CC2
5F59
2740
2742
2744
2746
D9'H::
5A32
2Al'"
7 A32
9130
A024
A74R
C996
2 E07
913R
A70A
2843
4Ff\F
5A.\O
2 Al "3
7~32
(U8
0002
2E25
.~
740
F5AF
A5E4
A740
8F90
4!)B 1)
7A32
FARR
1\ 044
A73E
A044
A5EC
3E43
2F07
24'JO
2A07
AOIE
THIS IS THE NORMAL ENTRY INTO THE ROUTINE
WHEN A FILE INTERRUPT IS DETECTED IN THE
BSWI ROUTINE.
THIS ROUTINE TESTS FOR
FILE CO~DITIONS BEFORE SETTING THE CSW
INFORMATION INTO THE APPROPRIATE REGISTERS
FOR THE CCOM ROUTINE.
SE()I)ENCF
FINT
FINT
FINT
FINT
FINT
FPH
FINT
FINT
FINT
FINT
FUn
FINT
FINT
FINT
FINT
1=INT
FINT
FINT
FPH
FINT
FINT
FINT
FINT
FiN T
FINT
F I\l T
FPH
F PH
FINT
FIN T
CINT
FINT
FINT
FINT
FINT
FINT
FINT
Flf\JT
FINT
NO.
'1 C' 1
002
LABEL
T
I NTRP T
003
004
no 5
006
007
011
OOR
Cl09
S rUFC S
010
(111
}12
T ST PC I .
050
CCOM 127
040
015
054
009
013
014
015
016
/)17
NEXTSEQ
SET 10 A
018
019
:)20
024
t:; 21
022
023
J24
')25
026
027
028
029
030
031
032
033
034
035
036
037
03A
039
TSTDE
RSTDE
SEKINC
036
027
FILE 272
036
FILE 288
033
FILE 344
035
FILE 344
F IL E 276
SETDE
S TOSTA
MODE
CCOM 123
NEXTLABEL
STATEMENT
SETC SW
THIS IS A BAL ENTRY TO SET THE CSW
INFORMATION INTO THE CPU REGISTERS FOR
STORING BY THE CCOM ROUTINE.
COMMENTS
INTERUPT ROUTINE FOR FILES
2311 FEATUQE
STH P DA,B8
SAVE CPU P REG
SAVE CPU HI REG
Gl=Hl
BR IF FF15=0
BR IF NOT INETRUPT LATCH
TSTPe I
RDH T DA,8E
GET STATS A~D lOA
TC=O$KOI
RESET STATS
STH T DA,8E
STORE STATS
SETCSW
SAL
SET REGS FOR CPU CSW STORE
CSWADR
STORE CSW
BAL
GETIOA
BR
SET lOA
BR IF FFI4=O
BR IF NOT PC I
SET DEVICE STATUS
HO=O
PCICSW
SET CHAN STATUS PC I INFO
BAl
S TUFC S
BR
Tl=0$K04
SET AUX ADDR 0004
FOP=Tl
SET CONTIN CONECT CLEAR IND
RDH T AS,T+O
GET BUFFERED 10 ADDR FROM 0004
RESET STAT S
TO=O$KOI
STH T DA,8E
STORE STATS&I/O ADDR
BR IF NOT CUE
TSTDE
BR IF OASI6=0
R ST FIA K=lO
RESET CUB LATCH
HO= O$K 20
SET CUE FOR ST ATUS
S TO ST A
BR
BR IF GATTED ATT ENT ION
RSTDE
BR IF DASI2=1
BAL
ERROR -NO Rr:ASON FOR INT-SET SNS
SNSSTA
BR
S TO ST A
SETDA
SET DEV ADDR&SELECT MODULE
BA.L
Tl=PlL+TlH
BUILD DEVICE ADDRESS AND
5TH T OA,8E
STORE IT IN AUX
BR IF OS7=1
SEKINC
BR IF SEEK I NCOMPL ETE
RSTATT
BAL
RESET GATED ATTN
BR
SETDE
RSTATT
RESET GATED ATTN
BAL
BAL
SNSSTC
SET SEEK CHECK SNS
HO=HO$K04
SET DE FOR. STATUS
ZERO CHAN STATUS
Hl=O
SET MODE K=OO
SET CPU ZONE&MODE
TO=O
ZERO CSW THEN STORE STATUS
STA TO S
BAL
ADDR
WORn
2748
274A
274C
274r:
5A32
F[NT 040
2A13
I=I'\1T 041
1000
5CC2
FIN T 042
FINT 043
1\43C
F PH 044
2750
SEQUENCE NO.
FI'\1T 045
I=I'\1T /)46
2A07
2863
1130
1132
1134
1136
1138
11
FINT
FINT
FINT
F PH
FINT
FINT
FIN T
F 1"1 T
FII\lT
t=INT
FINT
SEAO
0008
526F
5668
2707
(,9C2
3.~
113C
113E
NEXTlABEl
DCHN 104
*
*
*
*
*SETCSW
FRMFIl
5242
128E
PCICSW
1)55
CO2
009
011
01">
024
O?7
031
035
036
040
050
054
059
DflT
FINT
FPH
FINT
FINT
FPH
FINT
FINT
FINT
FINT
FILE
FINT
FINT
NOPC!
062
C'63
"'64
065
SET AUX ADDR 0006
GET BUFFERED STATUS
RESET INTURRUPT LATCH
GET PROTEC T KEY
MODE K=09
I OAtAC
FIA 1<=20
MOOE K=OO
lJ DAtAC
V DA.98
BR IF NOT PCI INT
SET PC I IN STATUS
SET FILE MODE,FllE lONE
BUFFER RESIDUAL COUNT
RESET PCI LATCH
SET CPU MODE AND lONE
GET BUFFERED RESID COUNT
GET CCW NEXT AODR
**********************************
CROSS REFERENCE FOR CSECT FINT *
**********************************
004
') 1 1
0::?,)
FINT 026
)11)
017
BR IF FF14=0
Hl=Hl$1<80
SET
STH
RST
SET
RDH
ROH
RTN
~OPCI
'J I) 3
;)13
C57
RESTORE P REG
01=0
059
r)l4
::24
i)30
032
)23
GET II 0 A0 DR ES S
SET CHAN 1
DO=DOH
056
*
FINT
FINT
FINT
FINT
FINT
FINT
FINT
FINT
F!NT
FINT
FINT
FJNT
FINT
RDH T DA,8E
TO=O$KOI
RST SO
RDH P DA,B8
BR
TO=O
Tl=O$K06
RDH HAS, T+O
RST FIA K=40
OO=STPC
FPH 061
I=INT
FINT
t=tNT
FINT
ClOAD=*E60, EC lEVEl=128266
COMMENTS
STATEMENT
***********************************************************************
*
**
SET CSW
- SUBROUTINE
**
*
**
************************************************************************
053
054
FINT 059
F I ~~ T 060
2490
7 BA2
OD04
2400
5 r;~ 2
NEXTSEQ
GET lOA
0'57
F r "JT 058
3F85
1140
1142
1144
1146
1148
114A
114C
114E
047
048
049
050
051
052
lABEL
FINT 008
PAGE 276
OVLY
DESCRIPTIVE
CLOAD=*E60, EC lEVEl=128266
TEXT
THE OVERLAY ROUTINE - OVLY- IS TO BE USED BY THE CUSTOMER WHEN *******
A CHECK SUM OR STORAGE DATA ERROR OCCURES AND CAN NOT BE CLEARED
BY PERFORMING A CSL. OVLY IS ENTERED BY CONTROL ADDRESS SETTING
TO THE CTRL STORAGE ADDRESS 02BE WHICH IS THE LOCATION OF A UNCONDITIONAL RPANCH TO THE FIRST INSTRUCTION OF THE OVlY ROUTINE.
THE OVLY ROUTINE WILL TRY TO RECONSTRUCT ALL RAD LOCATIONS OF
MODULE ZERO BY DOING A COMPARISON AGAINST TWO OTHER DUPLICATES
OF MODULE 7FPG STOPED IN VARIOUS AUX OR CTRL STORAGE LOCATIONS.
THE LOCATION OF THE TWO COMPARISON MOOULES IS DEPENDENT ON CORE
S I ZE A"10 FE AT URES P Q ESE NT. Hi E TWO COM PAR I S ON MOD UL ES ARE S TOR E 0
AWAY EVERY TIME ~CHK IS SUCCESFULLY EXECUTED.
IF A CSL CAN NOT BE PERFORMED AFTER THE EXECUTION OF THE OVLY
ROUTINE THE CUSTOMER WILL HAVE TO CALL FOR SERVICE.
CUSTOMER PROCEDURE TO RUN OVLY *********************
1. IF A CUSTOMER CSL'S AND STILL HAS CHECK SUM
OR STOR DATA SYSTEM CHECKS
2. SET MODE SWITCH TO ' W • POSITION
3. DEPRESS SYSTEM RESET
4. SET CONSOLE SWITCHES ABCD TO X2BE
(X=C FOR 48K ~ACHINES, X=8 FOR 32K MACHINES
X=8 FOR 24K MACHINES, X=4 FOR 16K MACHINES)
5. DEPRESS CTRl AODR SET
6. MODE SWITCH
THE OVLY ROUTIN~ WILL NOT WORK IN ALL CASES (EX. OVLY ITSELF
CPEA~ED). WHEN OVLY FAILS NORMAL TROUBLESHOOTING METHODS SHOllLD
BE USED.
7. DEPRESS
BAC~
TO PROCESS
START
8. DO ANOTHER CSL
ADDR
WORD
3QEC
3CEE
3('FO
30F2
3CF4
3CF6
"30F8
30FA
30FC
3212
380('
4652
24C 5
5159
2CD,)
5709
3104
4068
5248
6021
C4AA
6131
C48A
3106
F229
3108
310C
BOF8
50C8
61)66
310E
6201
3110
3112
311A
311C
C49A
6311
C49A
6068
B106
4268
6021
31lE
C4,~4
3120
6131
~0FE
3100
31C2
3I
O,~
3114
3116
3118
SEQUENCE NO.
OVL y
OVLY
OVL Y
(1VL V
OVLY
nVl Y
CJ Vl Y
fJVl Y
OVl Y
OVL Y
OVLY
!] VL V
(1 Vl. V
OVLv
OVL Y
OVL Y
OVl Y
OVl y
nVL Y
OVL Y
OVLY
OVL Y
OVL Y
OVLY
nVL Y
OVL Y
OVL V
OVL Y
1)(,1
Q02
LABEL
NEX TSEQ
I XSTR T
003
OK
OKRD
056
I)')
7
')5R
059
OKGO
C60
)62
BAD
079
062
BAD
062
BAD
GOODST
OK
087
RDH U CS,D+2
R')H V AS,G+2
UO=UOF
CICY-091-128E
CICY-088-6FAD
CICY-081-509A
C ICY - 089- 12 8 E
CICY-C82-50BB
OCLA-228-8A8C
CICY-083-C4C7
FILT-078-5E42
0340
0350
0361) FILT-('79-3F71
0370 F Il T -('63-203 5
FIt T-080- 5EE4
FIlT-064-3D43
FILT-081-7E42
FILT-Ob5-5ECO
FIL T-082-2F25
F I l T-066-8!j A3
F I LT-0 83 - 2 EO 7
DYPE-191-5E29
FllT-084-92~A
OYPE-192-2791
FILT-061-4DCF
OypE-193-7C68
FILT-062-2C07
OYPE-194-7468
0360
0370
0380 OYPF -195-726 8
0390 CDVD-,)C'2-E195
f)YPE-196-7068
C"VD-OO 3- 34 85
DYPE-197-2771
:::DVO-OO4-8AC8
o YP E- 19 8- 12 8 E
CDV 1)-00 5-B2C2
~
BCHK-3 24-07F F
CHK-3 21-00C 8
BCHK-324-C4gA
BCHK-321- I)OCO
BCHK-324-8800
OCHK-330-4E08
BCHK- 32 4-4E08
BCHK-330-128E
0380
0390
03Ar CMLT-181-3C02
03BO C ICY -0 75- 6 88 4
CMLT-182-A752
C IC Y-076- 6884
CMLT-183-3002
CICY-077-2B13
CMLT-184-B472
CICY-018-89FC
BCHK-334-0000
BCHK-349-2FF7
BCHK-334-0000
BCHK-349-2F1B
BCHK-334-0000
BC HK - 3 49-C 4BC
BCHK-334-0000
8CHK-349-0F 01
03AO
0380
03CO ROI A-34 7-C4(,)
0300 BOI A-3 55-6 AC ?
q Dl A-348- 4AC2
Ii f) I A- 356- 6C02
BDIA-349-4C02
9DIA-357-6EF2
BOIA-350-4EF2
Bor A-35 8-83 88
BOIA-351-2A1B
BOIA-331-4812
BDIA-352-2CIB
BOIA-332-3935
BOIA-353-2EIB
BDIA-333-2928
BDIA-354-EOF2
BOI A-334-68E2
03CO
0300
03EI) BDIA-335-2A25
03FO BDIA-343-83DO
!j 01 A- 3 36- 2BF5
I1DIA-373-2505
BOIA-337-3B73
8DIA-374-2518
801 A-338-2C25
801 A-375-F4FD
BDIA-339-2015
BOIA-376-C4F4
BOIA-340-30B3
BDIA-377-5007
BOIA-341-2E05
BDIA-381-2413
BOIA-342-2F13
801 A-382-883C
03EO
03FO
CONTPOL STORAGE
2
4
6
8
A
C
E
0200-03FE
(ONTROL STORAGE ADDRESS LIST
0
2
0400-05FE
4
6
CLOAO=*E60, EC LEVEL=128266 ,PAGE 281
8
A
C
E
04--
0400 CICY-225-B412
0410 CICY-23]-B420
CICY-226-A85A
CICY-239-83B4
CICY-227-A9BA
CICY-241-83B4
C ICY-228-AE44
CICY-246-83B4
CICY-229-A84C
CICY-247-8886
CICY-230-A816
C ICY - 2 4 R- 88 86
CICY-231-AB72
CICY-249-8886
CICY-232-A958
C IC Y-250-8886
0400
0410
0420 CSFT -087-0002
0430 CSFT-095-6FFO
CSFT-C88-00ZC
C SFT-096-6EED
CSFT-089-611B
CSFT-097-E4B8
CSF T-09 0-6000
CSFT-098-3000
CSFT-091-633D
CSFT-099-6AAO
CSFT-092-6220
CSFT-10C-2DFB
CSFT-C93-6770
CSFT-I01-FOAO
CSFT-094-6660
CSFT-I02-128E
0420
0430
()440 801A-122-5C07
0450 BSWI -0 13 - 1 EF F
DC t C-1 1 6- 2 B4 8
BSWY-014-C4F7
DC LC-118-AF70
BSWI -0 24-5 E09
BSW I-007-2F07
BSWI-025-6EE3
BSWI-008-3600
BSW 1-0 26 -6EE 3
ASWI-009-00CO
BSWI-027-6E03
BSWI-OIO-81AA
BSWI-034-2B55
BSWI-012-5AEF
BSWI-035-50B8
0440
0450
0460 13 SWI -0 36- 5 213 4
0470 BSWI-047-9?4Q
f\SWI-037-2002
RSW I -049- F5F<~
RSWI-038-72E9
BSWI-050-2608
BSWI-039-71A9
BS'~ I-05l-AB04
BSW 1-040 -70A 9
BSWI-05Z-f976
BSWI-C42-42AF
BSWI-053-8A54
BS WI -0 44- 7 0 B8
FILE-008-7CC2
BSWI-045-72BA
FILE-009-2480
0460
0410
0480 J= I LE-0 10 -C 62 A FILE-Oll-EOl3
0490 FILE-OlB-AO?4 FILE-019-50BF
FI LE-012-F02C
F I LE-O 20-1 BC5
FILE-013-D9AO
FIlE-021-D9A3
FIlE-CI4-671l
FILE-022-3210
FILE-015-C4AO
FILE-023-2D04
FILE-016-7032
FIlE-024-4DBF
FILE-017-9130
F I l E- 0 2 5-12 1 0
0480
0490
C4AO ~ILI.:-026-AFCA
04130 FILf-034-F'5RD
FILE-028-2E07
F I LE-036-F056
FILE-029-D9CO
FILE-037-DBFD
FIlE-030-810C
F ILE-038-8224
FILE-031-3065
FILE-039-DBFC
FILE-032-7032
FILE-C40-2E55
F[LE-033-E023
FILE-041-2002
04AO
0480
FILE-05l-0D02
J=ILE-044-8224
FILE-052-855E
FILE-045-0BBO
F ILE-053-7242
FILE-046-2E43
FILE-C54-42EF
FILE-041-4FEF
F I Lf-055- 5A 30
FlLE -048-2 E2 5
fILE-C56-0A4B
FILE-049-F053
FIlE-051-C4E4
04CO
0400
FIt E-G59-910C
FILE-060-0REB
F I LE-068-FOFD
F IL E-061-82 24
FILE-07t)-0133
F IU:-062-0BBO
F ILE-074-FOFD
FILE-063-CA3B
QLE-075-850F.
F I LE-C 64-C 4FO
FILE-C76-5ECF
FILE-065-0AID
FILE-077-lCA3
04EO
04FO
04(0 F I LE-0 42- 851) !=
0400 F ILF-050-2E3S
04EO J=ILE-I)S8-8F~6
f)4F0 FILE-1)66-[OF6
CONTROL
STORAGE
FIl~-027-F5BD
FILE-035-E1C3
~ILE-043-0BCC
FIt F:-C6 7-0A 7B
2
I)
4
6
8
A
C
E
.
04-05--
0500 FlU: -0 78 -( 4·8 9
0510 I=ILE-GA6-2A45
FlU: -08 7- 8558
F I lE-080-A5E6
>=1 LE-C88-2C85
FtLE-08l-855A FILE-C8Z-8FA6
F IL E-089-8504 . F ILE-090-2El5
FILE-083-EE95
FILE-091-FAAB
FILE-084-0E99
FILE-092-CEBE
F IL E-08 5-AEEC
F I L E-093-E5 B7
0500
0510
(:,S20 F IL E-094-Ff'2 ')
0530 FILE ~ 1 C2 -0 A1 D
F {L E-095- 9068
FILE-l03-EOC6
FI LE-C96-49AF
FILE-l04-9l0C
FILE-097-SCC2
F ILE-105-A044
FILE-098-810C
FILE-I06-2E43
FILE-099-AEEC
FILE-l07-F03F
F ILE-l OO-OA3B
FILE-l08-3El5
FILE-lOl-FOC6
FILE-109-A052
0520
0530
0540 I=ILf-11O-FC61
0550 FILE-119-FO'5f3
1=
It E-1l1-AEEC
F IL E-1l9-3E 15
FILE-112-856A
F I LE-120-855 A
F I L E- 11 3- 2 A13
F ILE-121-A044
FILc:::-114-E5D6
FILE-122-A5EC
FILE-115-A044
FILE-ll6-A~EC
FILE-123-2B4~
FIlE-124-70AO
FILE-111-3E43
FIlE-125-F068
0540
0550
0560 FILE-126-24(10
OS70 F I LE-1 3 4- C2 7 '5
FILc:::-127-5CC2
F ILE-135-2F07
FILE-128-2FQ7
F I LE-136-2A07
F IL E-129-AG IE
FILE-137-C3FF
FILE-130-E073
FILE-138-2400
FILE-131-234B
F I L E-13 g- 5 CC2
FILE-132-5630
FILE-140-A030
F I LE-1 3 3- 2f 8 '5
FILE-141-A708
0560
0570
OS?,) FIl X-149-0FR8
r: I t X- 1 50- OF 8 E
F I LX-l '58-0036
FILX-151-85AC
FIlX-159-2C43
FILX-152-85AC
F IL X-160-85F2
FILX-153-2010
FILX-161-D193
FILX-154-E833
FILX-162-2F15
FILX-15'5-859A
FI LX-163-85B8
FILX-156-C8l9
FILX-164-DF08
0580
0590
FILx-165-85AC F ILX-166- 859E
F ILX-l 73-F81 A FILX-174-0l9A
FILX-167-2C23
FILX-175-FD70
F IL X-163-FFEE
FILX-176-2F43
FILX-169-2C83
FILX-177-2EA5
FILX-170-CFF2
FILX-178-7E52
FILX-171-2F07
FILX-179-2E23
fILX-l72-85B8
FILX-180-92B8
05AO
0580
05QO FILX-157-FCl-\
05AI)
05BO
F I L E-C79- 2C 43
05CO FILX-181-DF90
050t) F ILX-1S9-85R6
F I L X- 182 - OF C8
r:ILX-190-2010
FILX-183-EfF1
FILX-191-01CF
F IL X-IS 4-85 AC
FIlX-192-859A
F ILX-1 85-E8913
FILX-193-2E08
FILX-186-E853
FILX-194-2C15
FILX-187-081A
FILX-l95-DD73
fILX-188-E014
FILX-196-85B6
05CO
0500
OS EO FILX-197-85AC
05FO FIlX-205-ZCC7
FIt X-198-0FC8
F ILX-206-D6F7
FILX-199-85AC
FILX-207-221E
FILX-200-DC6C
F IL X-208-3DOC
FIlX-201-3EOO
F II X-Z09-7C52
F I LX- 202-0E 04
FILX-210-2C15
FIlX-203-2C33
FILX-211-4BCF
F ILX-204-CFF2
FILX-2l2-1000
05EO
05FO
CONTROL STORAGE
2
4
6
8
A
C
E
0400-05fE
CONTROL STORAGE ADDRESS LIST
·0
?
0600-07FE
4
6
CLOAD·=*E60, EC LEVEL= 12 8266 ,PAGE 282
8
A
C
E
06--
0600 FIlX-213-5C3.?
0610 FILX-098-FC94
FILX-214-D686
FILX-099-ED16
FILX-215-0222
FIlX-IOO-98A6
FILX-216-2C85
F I LX -1 C 1- 3013
FtlX-217-7C32
FILX-I02-2C25
FILX-218-021E
FIlX-103-C920
FtLX-219-810C
FILX-104-FD26
F I L X-097-0083
F I L X-I 0 5- 30 F 3
0600
0610
0620 FIlX-IC6-FD.?6
0630 F I l X-114- 3 O,~ I)
F II. X-107-3003
FILX-115-7C52
FIlX-108-1D15
F I LX-116-2 F45
F I L X-I 0 9- C02 F
F IlX-117-CDOR
FILX-IIO-3D85
F I l X-1 18 -F 9 B F
FILX-lll-OD32
FIlX-1l9-4886
FILX-l12-10FD
F I LX -120 -C 4DA
FILX-113-D033
FILX-121-0D08
0620
0630
0640 FJLX-122-2E08
0650 FILX-130-DEOE
F IL X-123-0E04
FILX-LH-fEDF
FILX-124-5E4?
F I lX-132 -830A
FILX-125-5CFC
FILX-140-8D87
F I LX -1 26 -CC C: 3
FIlX-14I-2F07
FILX-127-C4D5
FILX-142-2EC3
FILX-128-0C3B
FIlX-143-92BA
FILX-129-FOOE
FIlX-133-E007
0640
0650
0660 FILX-134-2F63
0670 F IL f -248-2 30,q
F I l. X-I 3 5- 58 F 8
F ILE-249-2308
FILX-136-7E42
FI LE-25C-128E
FILX-137-2F07
FILE-25l-2I12
FILX-138-2E65
FIlE-252-5ECF
FILX-139-85BA
F I LE - 25 3 - 6C 0 I
FIlE-246-2308
FILE-254-C4F5
FILE-247-2308
F Il E- 25 5-90FC
0660
0670
068(1 F IL X-007 -975 B
0690 FILX-015-R5AC
FILX-008-8FFB
F ILX-OI6-8FBB
F I LX-009-EFB8
FILX-017-EFC8
F IL X-Ol O-EF E2
F IL X-018-EF E2
FILX-011-9874
FILX-019-85AC
FILX-012-8F9B
FILX-020-8FDB
FILX-013-EFCC
FILX-021-EFD6
FILX-014-EFE2
F I L X-02 2-EF91
0680
0690
06AQ F I LX -0 23-f)P} 1
06BO FILX-041-?C07
F
FILX-024-5E32
lL X-044-FFE7
FILX-025-FFF6
F I LX-O 45-F 8B4
FILX-026-3EOC'
FILX-046-8632
FILX-027-CD2C
FILX-052-FFDB
FILX-028-859A
FILX-053-DF91
FILX-041-1E45
FILX-054-C!Jl1
FILX-042-7E32
FILX-055-3EOO
06AO
06BO
C6CO FILX-056-F5Cl
0600 FILX-064-FFCI3
FILX-057-2C65
FILX-065-DIC~
FIlX-058-4DCF
fILX-066-8594
FILX-059-872A
F Il X-06 7-FF CE
FtLX-060-FF90
FILX-068-DC4E
FILX-061-R5FO
FILX-069-oC4A
FILX-062-E851
FILX-C70-3EOO
F I L X-06 3-F84A
F I LX-071-0E04
06CO
0600
06EI') FllX-072-R5F'i
06Ff'I F IlX-('94-7C52
F
ILx.-078-DF91
Il X-C95- 5t=42
F I LX-O 79-Q05 8
F!lX-C96-830A
F IL X-089-5DB8
FILX-029-0E2D
FILX-090-5886
F I LX -0 30 -F 5 AB
FILX-091-COEF
FILX-031-EC31
FILX-C92-860E
FILX-032-2C33
FILX-093-C4EC
FILX-033-4FCF
06EO
06FO
C(lNTROL
STORAGE
F
2
\:
4
6
8
A
C
E
06-07--
0700 FILX-034-5DDD
C710 FILX-322-E976
F TL X-035-3085
r=IlX-323-5C52
FILX-036-5F.42
F I LX-324-F 5AO
F Il X-03 7- 3E 00
FJLX-325-2D23
F I L X-0 38 -0 E0 4
FILX-326-3D15
FILX-u39-2C45
FILX-327-1000
FILX-040-85F2
FILX-328-480F
FILX-321-1000
FILX-329-0222
0700
0710
0720 FILl(-336-FFF 1
0730 FILX-344-2D23
FILX-337-CBE9
F I L x-345-4EDF
FILX-338-0BCC
FILX-346-2DIR
FILX-339-C96B
F I L X-34 7-FO 84
FIlX-340-FFF4
FILX-348-4BOF
FILX-341-2E08
F I LX - 34 9- 5E 32
FILX-342-2007
FILX-350-1000
FIlX-343-4Bof
FILX-351-069F
0720
0730
0740 r::ILX-352-2EB5
0750 FILX-~67-FFE1
F
I l X-35"3-7E 32
I L X- 368- F90C
FIlX-354-C3C9
F I LX-369-CDoD
FIlX-355-810C
F Il X-37 0- DO DC
FILX-356-9608
FILX-371-7E32
FILX-364-D8.A6
FILX-372-864?
FlLX-365-5E32
FILX-377-7E32
F I LX- 366-1E45
FILX-378-8634
0740
0750
0760 FIlX-373-F503
0710 FILX-357-CBCa.
FIlX-374-CODF
FILX-358-E96B
FILX-375-DoD9
FI LX-359-9860
FILX-376-R658
FILX-330-CDFB
F I L X-3 60-0914
FILX-331-F9FO
FILX-361-2E25
FILX-332-92,~4
FILX-362-2F43
F ILX -3 33-D09F
F ILX-363-85BA
FILX-334-2E83
0760
0770
0780 FILX-331)-92BA
0790 DVPf-OlO-OFlO
f)YPE:-0O3-FFA3
DVPE-OII-IF28
DY PF. -004-F AA5
o YPE -012 -3 C83
OYPE-005-9R16
DVPE-013-8FBE
DVP E-O 06 -A 566
DVPE-014-CE9C
OVPE-007-C826
DYPE-015-2F04
DYPE -C08-C E92
OYPE-C16-8378
DYPE-C09-3E85
DYPE-018-fEoC
0780
0790
07AO Oyp!: -0 I9-9A0C
07BO DYPE -02 8-oEq 1
OVP F -020- A6B8
Oypc-029-2E07
DYPE-02I-947A
oYPE-030-CE8F
OYPE-022-0130
OVP E-031-FE Al
DVPE-023-CE2o
DVPE-032-3423
OYPE-024-2E43
OVPE-033-8192
OVPE-C' 25-C 413
oVPE-O 34-C4 71
DVPE-027-2485
DYPE-036-2E07
07AO
07BO
07CO DYPE-C37-EEC6
0700 DYP[ -046-0F2 0
DYDF-038-3045
9YPE-047-5006
OYPE -039-836E
,)YPE-048-C40A
DYPE-C ttO-8F BA
DYDE-049-C57B
oYPE-041-DFF8
DYPE-050-3483
oYPE-04 3-CO 5F
oYPE-051-837A
DVPE-044-5F38
oYPE-052-AB20
DYPE-045-4Fff
oYPE-053-1483
07CO
0700
07EO DYPE-054-E567
07FO OYPE-062-D57B
DVPE-055-3445
OYPE-063-3EC3
OVPE-056-15C5
/)YPE-064-3485
OVPE-057-E145
oVPE-065-8792
OYPE-058-5009
OYPE-066-AID2
DVPE- 05 9-C4FI
oVPE-067-1485
DVPE-060-I5C5
OYPE-068-8378
DYPE-061-3E23
DYPE-070-A598
07EO
07fO
CONTROL S fORAGE
F
2
4
6
8
A
C
E
0600-07FE
CONTROL STORAGE ADDRESS LIST
2
0
0800-09FE
4
6
CLOAD=*E60, EC LEVEL=128266 ,PAGE 283
8
A
C
E
08--
08CO BOI A-2 80-4EO 2
0810 BOI A-304-E 190
BOI A-281-2EIB
BDIA-3C5-2EC5
BOIA-282-2F10
BDIA-306-3E43
BOIA-283-CAOO
BDIA-307-2F85
BOIA-284-6E02
AD I A-308 -3FA 3
BOIA-285-8388
BDIA-309-6E12
BOIA-302-EIA3
BDIA-310-2EF7
BOIA-303-2020
BDI A-311-3F89
0800
0810
0820 RDI A-312-8802
0830 BOI A-320-4E2 ~
'1nIA-313-0020
8DIA-321-6J:12
BOIA-314-ElA5
BDIA-322-3EC9
BDIA-315-D1AC
BDIA-323-5EF1
BO I A-316 -0040
BDIA-324-8802
BOIA-317-8308
BDIA-385-6443
BOIA-318-2040
BOIA-386-2505
BDIA-319-D1AE
BOIA-387-7543
0820
0830
0840 RDIA-38R-380Q
0850 801 A-400- 8 86 E
8Dll\-389-0500
ROfA-401-0E3F
BOIA-390-3800
BDIA-402-FE04
BOI A-391-DAC6
BDIA-403-4E80
BDIA-392-l212
BOIA-404-6E80
BDIA-393-2800
BDIA-405-FADA
80 I A-3 94-C43 A
BDIA-406-0E3F
BDI A- 399- 2440
BDIA-407-EADE
0840
0850
0860 RDIA-408-1212
OR70 R 0 I A-4 16 - 3 EH) 4
~
0 I i\ -409- 886E
3f)I A-41 7-6E80
BOIA-410-0F1F
BOtA-418-CAF4
BOIA-411-FEE6
BOI A-419-3~00
BDIA-412-4E80
BO I A-42C -128 E
BOIA-413-6E80
BWRP-050-97F5
BOIA-414-02E2
BWRP-CI1-D4FA
BDI A-415-4E80
BWR P-012-979D
0860
0870
0880 DCLA-121-AFF?
0890 DCLA-007-3883
DClA-122-9C28
!)CLA-008-46A6
OCLA-123-A25E
OCLA-009-17FO
OCLA-002-10CE
OCL A-a 10- 804F
DCLA-003-F90C
CSTS-112-83B4
OCLA-004-AOFC
ALOP-258-2400
OCLA-005-2C07
ALDP-259-AABl
OCLA-006-2B45
ALDP-260-0610
0880
0890
08AO ALDP-261-AR20
08BO /\Lf)P-269-?440
~LDP-262-3BE9
ALDP-270-7R72
dLOP-263-76AA
ALOP-271-2400
ALO p- 264-72 AA
ALDP-272-E33B
ALOP-265-74AA
ALDP-273-1600
AL DP-266-70AO
ALDP-274-AB20
ALOP-267-2B20
ALOP-241-2315
ALDP-268-7EAO
ALOP-242-3353
08AO
08BO
ALDP-253-FEA2
ALOP-244-C4CE
! Tf{ -065 -1545
OPT R- 0 5 4- 3002
DPTR-066-3E83
OPTR-055-1F23
DPTR-067-34R5
OPTR-056-D456
[)PTR-068-D568
OP TR-O 61-C 555
oPTR-069-8FBA
OPTP-062-E554
DPTR-070-1E83
0040
0050
0060 OPTR-O 71-0A6A
0070 DPTR-083-15E 5
OPTR-012-8118
OPTR-084-3485
OPTR-073-B404
DPTR-085-3E83
DPTR-074-95CA
OPTR-086-0550
OPTR-075-8FBE
OPTR-O 87-F269
OPTP-076-B406
oPTR-088-0A 7E
oPTR-077-AB20
OPTR-OS9-1485
OPTR-08 2-C5 72
OPTR-090-8C60
0060
0010
0080 CDt'W-150-A52')
OD90 C OM [) -11 3 - 2 80 7
cnMD-106-57lA
COfvlO-114-ES91
CD MD-l 07-A 31B
cor'1O-115-2040
CDMO-I08-2FFF
COMO-1l6-0004
COMD-l09-F483
COMO-117-71AF
COMO-ll 0-5004
CDMO-118-5710
COMO-111-5224
CO~1D-119-DIAI
COMO-112-5EF9
COMO-120-7718
0080
0090
OOAO COMD-121-7R3B
OOBO CDMO-129-77A F
C OMO-122- 2FFF
COMO-130-C181
CO"'1O-123-C498
CDMD-131-E5C2
COMO-124-5006
COMD-13 2-B12E
COMO-125-5226
COMo-133-0B90
COMO-126-01C3
COMD-134-EOC2
COMD-127-577B
CDMO-135-4086
COMO-128-7110
CDMO-136-1002
OOAO
OOBO
OOCO C OM 0 -1 37 - P. 3C A
0000 COMO -145-5F 1 0
CDMD-138":54F9
COMD-146-6F75
CD MO-139-8174
CDMD-147-7FIO
COMO-140-27C3
CDMO-148-2A07
CDMO-141-C94C
CDMO-149-AA76
CDMO-142-l76B
CDVO-O~6-AEF6
COr.1D-143-EF51
CDVD-C37-3002
CDMD-144-37l3
CDVD-038-19FO
OOCO
0000
ODEO COVO-O 39-78E D
OOFO OCLC -0 15-7602
CDVO-040-7510
OCLC-016-2040
COVO-041-7460
oClC-017-8DF8
CoVO-042-F50B
OCLC-018-0040
CDVD-043-AEF6
OClC-019-2B80
CDVD-044-1002
DCLC-020-4F 7F
COVO-045-800E
oCLC-O 21-2 B84
OClC-014-C176
OClC-022-2BC4
OOEO
OOFO
CONTROL STORAGE
2
4
6
8
A
C
E
OCOO-OOfE
CONTROL STORAGE ADDRESS lIST
o
2
ClOAD=*E60, EC LEVEL=128266 ,PAGE 286
OEOO-OFFE
4
6
8
A C E
OE--
aEOO DClC-023-C9DD
DEIO DCLC-031-2207
DCLC-024-FDAl
OCLC-032-8E3A
OClC-025-262B
OCLC-033-DD9F
OCLC-026-E60a
DCLC-034-2BOC
DClC-027-05C3
DClC-035-F21F
OCLC-028-F094
DCLC-036-C3CB
DClC-029-F514
OCLC-031-ADF6
DClC-030-2323
DCLC-03B-A154
OEOO
OElO
OE20
OE30
DCLC-039-5F4~
DCLC-041-F21~
DCLC-040-FC9F
DCLC-048-EI49
DClC-041-2B84
DClC-049-F149
DClC-042-E61F
OClC-050-2301
DCLC-043-FDAE
DCLC-051-5429
DClC-044-262B
DClC-052-12A2
DClC-045-FDA7
DClC-053-2BOO
DCLC-046-2B80
OCLC-054-2400
OE20
OE30
OE40 DClC-0'55-5EA2
OE50 OClC-063-C4B6
DClC-056-2A07
DCLC-064-2BOO
DClC-051-AOIE
DClC-065-810C
DClC-058-9C6A
DCLC-066-2B84
DCLC-059-C3D8
OClC-061-2301
OClC-060-A1f)6
DClC-068-A1B6
DCLC-061-F531
OCLC-069-2BCO
OClC-062-5449
DCLC-Ol0-0DIO
OEltO
OE50
I
OE60 DCLC-07l-E6lF
OE70 DCLC-019-C4QE
DClC-072-COE9
OCLC-080-054B
DClC-013-262B
DCLC-081-C4Dl
OCLC-074-CDEO
OCLC-082-2BC?
OCLC-075-4F4F
OCLC-083-9E86
DCLC-076-5F4F
CBIN-076-B3F6
DClC-077-FC9F
CBIN-017-B460
DClC-01B-6411
CBIN-078-A046
OE60
OE10
OE80 BWRP-Ol6-F790
O~90 RWRP-083-2A07
BWRP-018-96B4
BWRP-091-EIBC
BWRP-024-8F64
BWRP-093-2440
BWRP-030-904A
BWRP-094-78F2
BWRP-032-904A
BWRP-095-2400
BWRP-040-5007
BWRP-096-56F2
BWRP-042-904A
BWRP-091-16C5
BWRP-046-B490
BWRP-098-37IB
OE80
OE90
OfAO RWRP-099-4660
DEBe BWRP-115-092B
RWRP-IOO-0680
RWRP-116-C4BA
BWRP-IOI-EOAC
RWRP-117-E23B
BWRP-I02-064B
BWRP-118-6R86
BWRP-I03-FOAC
BWRP-119-4452
BWRP-I04-F339
BWRP-120-AA20
BWRP-I06-08CO
BWRP-121-8176
BWRP-114-C48A
BWRP-122-AA20
OEAD
OEBO
OECO
OEOO CICV-041-6FAO
CICY-048-55EO
BCHK-321-0000
CICY-049-63EB
BCHK-321-0COO
CICV-050-62AO
C[CV-043-814C
CtCY-051-61AD
CICY-044-55E5
CICV-052-bF75
CICY-045-6IER
CICY-053-AB17
CICV-046-60AD
CICY-054-B01D
OECO
OEOO
OEEO CICV-267-83B4
OEFO CICY-2A0-934C
CICV-268-8136
CICY-281-93BA
CICV-269-AE6E
CICV-?82-934E
CICV-270-AE68
CICY-283-93B8
CICY-2l2-83B4
CICV-284-91A8
CICV-213-83B4
CICY-285-97A8
CICV-278-83B4
CICV-287-83B4
CICV-219-83B4
CICY-288-83B4
OEEO
OEFO
CONTROL
STORAGE
o
2
4
6
8
A
C
OE-OF--
E
OFO" OPTT-071-FE84
QFlO DPTT-079-1393
DPTT-072-3EI3
DPTT-080-F099
DPTT-073-EE8A
OPTT-081-3E23
OPTT-014-3E23
OPTT-082-3FI5
DPTT-015-3F13
OPTT-083-3E43
OPTT-076-CBOE
DPTT-084-000A
DPTT-071-3E23
DPTT-085-128E
DPTT-078-5E3F
80IA-423-EE9E
OFOO
OFIO
OF2C BOIA-424-1212
CDMD-205-F4B5
BDIA-425-5EFF
COMD-206-A520
BOIA-426-C4A4
CDMO-207-F73C
BOIA-427-2800
O~30
CD~D-208-0719
BOIA-428-2020
COMD-209-F48D
BOIA-432-9324
CDMD-210-143D
CDMO-203-5173
COMD-211-128E
COMO-204-0169
5007
OF20
OF30
OF40 DCLA-Cll-8938
OF50 DClA-044-COIA
DCLA-OI2-894E
DCLA-045-C401
DClA-013-894E
DCLA-047-95BE
OCLA-OI4-5009
OCLA-049-2486
DClA-018-C4DO
DCLA-050-D8CF
DCLA-020-C7CF
OCLA-058-2480
DClA-~41-810C
OClA-059-E9CF
DCLA-042-AEDO
DCLA-064-5632
OF40
OF50
OFbO DCLA-065-C64C
OF70 ERRQ-076-F768
OClA-066-AECA
ERRQ-071-2406
ERRQ-086-4642
ERRQ-079-3743
ERRQ-087-3725
ERRQ-080-50bO
ERRQ-088-2402
ERRQ-OBl-1713
ERRQ-089-C4F4
ERRQ-082-5468
ERRQ-014-4642
ERRQ-083-5E6A
ERRQ-075-3715
ERRQ-084-128E
OF60
OF70
OFBO FILE-325-6CC1
OF90 FILE-288-209S
FILE-326-6CC3
FILE-289-0E08
FllE-321-6CC3
FllE-290-2100
FIlE-328-4BEF
FIlE-295-CCAR
FIlE-334-49CF
FIlE-296-20IS
FILf-336-4EEF
FILE-297-DCA8
FILE-331-40EF
FllE-298-2018
FILE-338-128E
FILE-299-ECA8
OF80
OF90
OFAO fILE-300-201S
OEBO FIlE-323-2C15
FIlE-301-FCAB
FIlE-324-891F
FIlE-305-128E
DCOM-073-C838
FIlE-3I6-5C32
DCOM-014-2F04
FILE-311-0E08
OCOM-075-128E
FIlE-3I8-2E07
OCOM-006-C174
FIlE-3I9-C90B
DCOM-007-2683
FIlE-321-D90B
OCOM-008-f047
OFAO
OF80
OFCO OCOM-009-221E
OFDO DCOM-027-E757
OCOM-OIO-C7E9
DCOM-028-0D08
DCOM-011-2010
DCOM-029-128E
OCOM-012-7602
DCOM-034-0F20
OCO~-013-021E
OCOM-040-128E
DCOM-014-3413
OCOM-030-E161
DCOM-C15-1683
OCOM-032-0B20
DCOM-025-F15B
DCOM-033-128E
OFCO
OFOO
OFEO DCOM-041-0F24
OFFO DCOM-059-E777
DCOM-042-C866
DCOM-060-2088
DCOM-043-IC83
OCOM-061-128E
OCOM-044-128E
DCOM-066-2F30
OCOM-045-02IE
OCOM-012-128E
OCOM-046-1683
DCOM-062-E135
OCOM-047-0515
DCOM-064-2830
DCOM-057-F77B
OCOM-065-128E
OFEO
OFf 0
CONTROL STORAGE
2
4
6
8
A
C
E
OEOO-OFFE
CONTROL STORAGE ADDRESS LIST
0
2
lOOO-llFE
4
6
CLOAD=*E60,
8
A
EC lEVEl= 12 8266 .PAGE 287
C
10--
E
1000 BMCK -032-C69"3
1010 BMCK-063-9034
BMC K-036-0695
AMCK-065-98F8
BMCK-040-E693
BMCK-067-96AC
BMCK-044-F697
BMCK-071-2D02
B MC K-O 45 -C29 B
BMCK-072-B22E
BMCK-058-021A
BMCK-073-2D40
BMCK-060-021C
BMCK -0 74-A 40 8
BMCK-061-021E
5001
1000
1010
1020 DCLB-245-88F 2
1030 BMCK -0 10-2 610
DCU3-247-9912
BMCK-OI1-A28l
DC LB-248-9 912
BMCK-012-2400
DCLB-253-A59A
BMCK-018-2135
BMCK -006-7612
BMCK-O 19-B368
BMCK-OO 7- 566F
CMLT-169-A752
BMCK-008-571F
CMLT-170-3002
BMCK-009-1672
CML T-l 7l-A3 78
1020
1030
1040 DCLB-231-8DEE
1050 AWRP-147-64B5
CICY-061-9CFA
B WR P-148-2543
CICY-Q58-834A
BWRP-149-2EC3
C IC V-05 9-C043
BWRP-150-8761
C ICV-060-9023
FILX-080-3EOO
BWRP-140- 2B A5
FILX-08l-2C25
BWRP-142-2607
FILX-082-7C52
BWRP-146-8F 78
FllX-083-8714
1040
1050
1060 RWR P -1 '5? - 8 06 8
1070 F IL E -158- 2302
BWRP-156-BOIE
FIL~-159-2304
BWRP-157-B01E
FILE-160-3110
BWRP-162-8792
FILE-161-3D29
FILE-149-AEFC
FILE-162-4FOF
FllE-l50-3EOO
FILE-163-43DF
FILE-156-2490
FILE-164-8678
FllE-157-0E08
F IlE-165-5FCF
1060
1070
11')80 FILE-166-lCFF
1090 FILE-174-867A
F ILE-167-C4FC
FIlE-175-5ECF
F I LE-168-4FCf
FllE-176-C4FC
F IL E-16 9-5F CF
FIlE-177-2310
FILE-170-C4fC
FILE-178-2390
FILE-171-a66C
FIlE-179-2Dl3
FIlE-112-866C
FILE-180-4FDF
fIlE-173-58CF
FIlE-181-2D25
1080
1090
IO~O FILE-182-430F
lORO FILE-190-2D85
r.:ILE-183-3ll0
I=ILE-19l-3D23
FILE-184-8670
FIlE-192-867A
FILE-185-20lF
FILE-193-~073
FILE-l86-4FOF
FILF-194-8676
F IlE-187-866C
FILE-195-3114
FIlE-18B-8610
FILE-196-866C
FILE-189-5BCF
FllE-191-2DA3
10AO
lOBO
10CO FILE-198-8676
1000 FILE-206-IDOO
fIlF-199-IDOO
F ILE-201-2390
FILE-200-CAFD
F I lE-208-3114
FILE-201-2380
F IL E-209-23 08
FILE-202-3114
F ILE-210-2075
FILE-203-866C
FILE-211-30A3
fILE-204-3047
FILE-212-86l6
F ILE-205-8676
FILE-213-1000
lOCO
1000
10EO F t l F - ? 1 4- 3 1 I 4
lCF0 FILE-i'22-2055
F I L E-215- 23 80
F IL E-223- 3DB3
FILE-216-2308
FIlE-224-8676
FllE-217-1D45
F IL E-22 5-lDOO
FILE-2l8-86l6
F I L E-2 26 -2480
FIlE-219-IDOO
FILE-227-9108
FILE-220-3114
FIlE-228-2100
FILE-221-2308
FIlE-229-1EOO
lOFO
CONTROL
STORAGE
0
2
4
6
8
A
C
10EO
10-11--
E
1100 F ILE-2 30-0 EO 8
1110 t= I L E - 238 - 204 "3
FILE-231-2480
F I L E- 2 3 9- 4E DF
F I LE-232-3C83
F I LE-240-5CC2
F IL E- 23 3- 8504
FIlE-241-2A01
FILE-234-21CO
FllE-242-2490
FllE-235-3EOO
FILE -24 3-5E 42
FIlE-236-0E08
FILE-244-83lA
FILE-237-0E04
5007
1100
1110
1120 CICY-211-AA68
1130 FINT-050-2A07
CICY-218-83B4
FINT-051-2B63
CICV-219-AA24
F I NT-052-5EAO
C ICY-220-AA30
FINT-053-0008
CICY-221-8898
FINT-054-526f
CICY-222-SA5E
F[NT-055-566B
CICY-223-AC88
FINT-056-2707
CtCY-224-AC88
FINT-051-C9C2
1130
1140 FINT-058-3F85
1150 EXFR-007-2455
F INT-O'59-2490
EXFR-008-2515
F I NT-060-78A2
EXFR-009-3593
FINT-061-0D04
E XF R-01 0- 2045
F tNT -062-2400
EXFR-011-21A5
F I NT -06 3- 50 A2
EXFR-012-22A3
FINT-064-5242
EXFR -013-2363
F INT-065-128E
EXFR-014-4852
1140
1150
1160 EXFR-OI5-4A86
1170 EXFR-023-6B65
EXFR-016-4C86
EXFR-C24-E777
EXFR-017-4E86
EX FR-025-6 065
EXFR-018-2613
EXFR-026-F77B
EXFR-019-5700
EXFR-027-6F65
EX FR -02 O-C76F
EXFR-028-C37F
EXFR-021-6965
EXFR-029-6865
E XFR-02 2-0773
EXFR-030-0303
1160
1170
1180 EXFR -0 31-6 0.6 I)
119C !:=.XFR -040-F41 A
E XFR-032- E307
EXFR-042-21AB
EXFR-033-6C65
EXFR-043-F49S
EXFR-034-F30B
E XF R-044-20 1 D
EXFR-035-6E65
EXFR-045-9168
EXFR-036-6663
EXFR-047-319B
EXFR-037-23FF
EXFR-C48-9168
EXFR-038-C49F
E XF R- 050-7940
1180
1190
11AO EXFR-05l-6444
1180 EXFR-059-D03C
E XFR-052-7B40
EXFR-060-5899
EXFR-053-6444
EXfR-061-5AB9
EXFR-054-7D40
EXFR-062-5CD9
EXFR-055-6444
EXFR-063-5EF9
EXFR -056-7F 40
EXFR-064-9l9E
EXFR-057-6444
EXFR-C65-22FF
E XF R- 05 8-1446
EXFR-066-C4CF
11AO
1180
11CO EXFR-068-f44A
11 DO EXFR-079-CC60
EXFR-070-313D
EXFR-081-F45A
E XFR-071-C048
EXFR-083-211B
E XFR-072-20 FD
E XF R-08 4- 35 AD
EXFR-073-915C
EXFR-085-915A
EXFR-075-213F
EXFR-087-21A7
EXFR-076-915C
EXFR-088-2507
EXFR-078-1488
EXFR-089-915A
11CO
1100
11 EO EXFR-090-F475
lIFO EXFR -098-290 7
E XFR-091- 52E2
E XFR-099- 99DE
EXFR-092-8F64
EXFR-1OO-2466
E XF R-09 3-51 A2
E XF R-10 4-E6 7E
EXFR-094-8A68
EXFR-I05-1625
EXFR-095-54B2
EXFR-I06-2400
EXFR-096-3659
EXFR-107-AB20
EXFR-097-2845
EXFR-108-2406
llEO
CONTROL STORAGE
2
4
6
8
A
C
E
1120
lIfO
lOOO-llfE
CONTROL S TO RAGE ADDRESS LIST
0
2
CLOAD=*E60, EC LEVEl=128266 ,PAGE 288
1200-13FE
4
6
8
A
C
12--
E
1200 EXFR-I09-8F6C
1210 EXFR-117-3D83
E XFR-l10- 8A68
EXFR.-118-2E23
EXFR-11l-5FB2
EXFR-119-3485
EXF R-112-F BOA
EXFR-120-A925
EXFR-113-2643
EXFR-121-2E07
EXFR-114-FD8E
EXFR-122-F822
EXFR-115-3D15
EXFR-123-E523
E XF R-116-C992
EXFR-124-3445
1200
1210
1220 E)(FR-125-1545
1230 EXFR -133-2007
rXFR-126-B3E8
EXFR-134-083A
EXFR-127-0529
EXFR-135-52F2
E XF R-12 8- 3E 8 3
E XF R-136- 613B
EXFR-129-D22E
EXFR-137-602D
EXFR-130-56F2
EXFR-138-C844
EXFR-131-8D6E
EXFR-139-3E43
EXFR-13 2-51 A2
EXFR-140-C3C4
1220
1230
1240 EXFR,-141-2R20
1250 FTLX-386-7f62
EXFR-142- 806A
F Il X-387-FF06
EXFR-143-C3C3
FILX-388-51EF
E XF R-144-8D5A
F IlX-389-51CF
CCO~-182-5682
F IlX-390-200 1
CCOM-183-421F
FIlX-391-4BOF
CCOM-184-128E
FIlX-392-2DI5
F I LX-38 5-3F 85
FIlX-393-7CE3
1240
1250
1260 FIt X-394-F4E 8
1270 F IlX -402-4EE F
F
Il X-395- 2C1B
IlX-403-2E45
FILX-396-1CFF
FllX-404-4BEF
F ILX-391-5FFD
F Il X-40 5-4BSF
FIlX-398-4EDF
F Il X-406 -4EFF
FllX-399-4BDF
FILX-407-2E25
FILX-400-2D07
FIlX-408-4BEF
FILX-401-4BDF
F IlX-409-4BDF
1260
1270
1280 I=IL X-410-0CF F
1290 FILX-418-5E42
F Il.X-411-C496
F I l X-419-1DOO
FllX-412-2F43
F I LX-420-0 222
F Il X-4I3-4EFF
FILX-421-4ECF
FIlX-414-2EC3
FIlX-422-2F85
F IlX-415-DFA6
F I lX-42 3- 4BFF
FILX-416-2D15
FllX-424-4BDF
FllX-417-4BDF
FllX-425-4EEF
1280
1290
12AO F IlX-426-2f!13
1280 FILX-434-DOB R
F ILX-421-4BOF
FILX-435-0A36
F I LX-4 28-2 E83
FllX-436-8640
FILX-429-2F45
F I L X-43 1- 8 5 F E
FILX-430-CDBB
F I LX -4 38-2FO 1
FILX-431-F9Bl
FILX-439-4A52
F I LX-432-4 886
FIlX-440-7A62
FILX-433-C48A
F ILX-441-4DAF
12AO
1280
12CO f ILX-443-4FAI=
1200 FILX-452-A1D8
F
I L X-445-1E 00
FILX-453-0Fa5
FIlX-446-1000
FllX-454-C4DO
F I lX-44 7-2E 08
F IL X-455-2C07
FILX-448-5C32
fILX-456-1C32
FllX-449-C3DE
FILX-451-0212
FILX-450-0EC3
FIlX-458-A7F2
FIlX-451-FOD3
FIl X-459-2843
12CO
1200
12EO 1= ILX-460-7CI18
12FO F I l X-468 - 1 EA')
FILX-461-0C70
F I L X-469- 2008
FllX-462-7A32
F I LX-410-8602
F Il X-463-C9£:C
F ILX-471-5EEF
FILX-464-3Fa5
FILX-472-1EC1
F IlX-465-0D04
fILX-473-C4DO
FILX-466-2410
FILX-474-5E42
Fit X-46 7-A030
fILX-475-960C
12EO
12FO
CONTROL
STORAGE
0
J=
2
4
6
8
A
C
E
12-13--
1300 BCHK -1 05-."4E 6
1310 BCHK-092-42Ab
BCHK-069-4252
RCHK-093-C481
BCHK-010-4C26
BCHK-094-2CE3
BCHK-071-4ACO
BCHK-072-20E B
BCHK-095-~DC5
~CHK-096-3D63
BCHK-073-8258
BCHK-09 7-C 99f
BCHK -0 74-6CC4
13CHK-oC)a-2820
8CHK-083-DCOA
BCHK-IOO-8258
1300
1310
1320 BCHI< -101- 6AC lJ
1330 BCHK-056-6004
BCHI<-1 02- 93 2C
8CHK-05 7- 4208
BCHK-Oll-2404
BCHK-058-2A07
BCHK-051-4632
BCHK-05 9-53 BO
BCHK-O 52 -6662
BCHK-060-C48C
BCHK-053-fA 82
BCHK-061-2B IB
BCHI<-O 54-21C5
BCHK-062-6BB3
BCHK-055-20E3
BCHK-063-42AO
1320
1330
1340 "BCHK-064-6208
1350 CSAS -00S-2El 5
13CHK-065- 0610
CSA S -009- 57 3A
BCHK-066-511R
CSAS-OI0-576D
BCHK-061-2723
CSA S-011-0661
RCHK-068-9A8C
CSA S-O 12 -EOF 3
5001
CSAS-O 13-00 C4
CSAS-006-3443
CSAS-O 14-F 366
CSAS-007-1082
CSAS-015-07FB
1340
1350
1360 CSAS-016-fOE7
1370 CSAS-024-9354
C SAS-017-C5F5
CSA S-025-9BOC
CS AS-O 18-3042
CSAS-026-1002
CSA S-019-CO 1C
CSAS-027-2040
CSAS-020-D07B
CSAS -028-9366
CSAS-021-148B
CSAS-029-1002
CSAS-022-57fB
CSAS-030-577B
CSAS-023-5710
CSAS-031-17Ff
1360
1370
1380 CSA S -0 32-C90 5
1390 CSAS-C40-fOE B
C SA S-033- 212B
CSAS-041-FOA6
CSAS-034-D 188
CSAS-042-2707
CSAS-035-271B
C SA S-04 3- 2E f3
CSAS-036-27AB
C SAS-044-002 A
CSAS-03 7- FO 35
CSAS-045-2F07
CSAS-C38-171A
CSAS-046-93AC
C SA S-03 9-55B9
CSAS-04 7-1F lA
1380
1390
13AO CSA$-048-75E3
13BO CSAS-056-5006
CSAS-049-EOEB
CSAS-057-93AO
CSAS-050-F095
CSAS-058-5006
C SA S-051-573A
CSAS-059-93SE
CSAS-052-D01 B
CSAS-060-1413
CSAS-053-5F10
CSAS-061- 3002
CSAS-054-1F7F
CSAS-062-9350
CSA S-05 5-fO 1 E
CSAS-063-573A
13AO
1380
13eo CSAS-064-F5Dl
13DO CSAS-072-E5D9
CSAS-065-1A7F
CSAS-073-7A7f
CSAS-066-1A9F
CS AS-O 74-C4F9
CSAS-067-C4f9
CSAS-075-93CA
C SAS-068-0002
CSAS-076-7A7F
CSAS-069-1415
CSAS-017-F5E1
CSAS-070-2 AO 1
CSAS-078-E445
CSAS-071-93F8
CSAS-079-93CA
13CO
1300
13EO CSAS-080-142D
13FO CSAS-OB8-F5E5
CSAs-osf-93F8
CSA $-089-77AF
CSAS-082-77AF
CSAS-090-C4F9
CSAS-083-93F6
CSAS-091-2002
CSAS-084-9372
CSAS-092-25FF
CSAS-085-FOFD
CSAS-093-FOEC
CSAS-086-C5BF
CSAS-094-CIE9
CSAS-087-573A
CSAS-095-C591
I3EO
13fO
CONTROL STORAGE
2
4
6
8
A
C
E
1200-13FE
CONTROL STORAGE ADORF.SS lIST
0
2
CLOAO:*E60, EC LEVEL=128266 ,PAGE 289
1400-15FE
4
6
8
A
C
E
14--
1400 CSAS-096-F589
1410 CSAS-104-F'583
C SAS-097-E58B
CSAS-105-F047
CSAS-098-01Dl
CSAS-106-5AB5
CSAS-099-AA74
CSA S-10 7-61 B9
CSA$-lOO-F03C
CSAS-108-60AO
CSAS-IOI-D18F
CSAS-109-5710
CSAS-I02-A824
CSAS-110-57FB
CSAS-103-A820
CSAS-111-3002
1400
1410
1420 CSAS-112-5770
1430 CSAS-120-757F
CSAS-1l3-171B
CSAS-121-751A
CSAS-114-7AFF
CSAS-122-2507
C SA S-115-67 43
CSA S-12 3- 2AfF
CSAS-116-771A
CSAS-124-C4AE
CSAS-117-5BA9
CSAS-125-F447
CSAS-118-C 4BB
CSAS-126-2C 75
CSAS-119-5710
CSAS-127-0043
1420
1430
1440 CSAS-128-AA76
1450 CSAS -136-FOO 7
CSA S-129- 2BA3
CSAS-137-9414
CSAS-130-89fC
COMO-184-5C79
CSAS-131-01CO
C0"10-18 5-4286
CSAS-132-2040
CDMO-186-5030
CSAS-133-9402
COMO-187-5F6A
CSAS-134-0040
COMO-188-70FF
CSAS-135-9402
COMO-189-703A
1440
1450
1460 COMD-19f)-C359
1410 COM 0 -1 98 - B13 E
COMO-191-7BAF
CDMD-199-F004
CD~D-192-0002
COMO-200-5 710
CDMO-193-C5EC
COMD-201-47 BB
COMD-194-0B9F
CDMO-202-B134
COMO-195-2002
BMCK-092-2001
COMO-196-D1f2
BMCI< -0 93-2 400
COMO-197-EOO4
BMCK-094-5E3F
1460
1410
1480 BMCK -095-C4.~ 1
14<)0 BMCK -109-161 B
8MCK-096-1212
BMCK-I10-7318
BMCK-103-5672
8MCI(-111-5710
BMCK-104-2440
8MCK-112-271B
BMCK-105-7672
8MCK-113-7718
BMCK-I06-2400
BM(K-114-5672
BMCK-I07-2185
BMCK-115-16C5
Bto1CK-108-420f
BMCK-116-1713
1480
1490
14AO BMCI( -11 7-6666
14BO BMCK-125-7AOI)
BMCK-118-7618
8MC 1(-126-4632
BMCK-119-9248
BMCK-127-2610
8MCK-120-2404
BMC K-12 8-211 D
BMCK-121-2233
BMCK-129-6662
BMCK-122-1F2E
BMCK-13C-17AB
BI'-1CK-123-2171
8MCK-131-2185
BMCK-124-2B07
BMCK-132-88BC
14AO
14BO
14CO BMCK-133-9A8E
1400 EPCH-042-950 C
CRIN-005-8270
F. PC H-032-99B4
C8 IN-006-AD54
EPCH-010-1FOO
EPCH-034-C860
E PCH-014-FA 74
EPCH-035-2462
E PCH-O 16-6CFl
EPCH-036-3643
EPCH-OI7-EA53
EPCH-037-2402
EPCH-O 18-C E62
EPC H- 03 8-1 C83
EPCH-019-DE53
14CO
1400
14EO EPCH-020-3C45
14fC EPC H-0 29- 1 64 3
EPCH-021-DE66
,=PCH-030-94CC
EPCH-022-3C25
EPCH-044-EA52
EPC H-02 3-E 853
E PC H-045-0A53
EPCH-024-C A46
EPCH-046-0E49
EPCH-02 6-3C 23
EPCH-047-F4D2
EPCH-027-2F40
EPCH-048-EE53
EPCH-028-2462
EPCH-049-EF84
14EO
14fO
CONTROL
STOR AGE
0
2
4
6
8
A
C
E
14-15--
1500 FPCH-050-2C07
1510 EPCH-059-C4A 1
EPCH-051-99BO
E fJC H-060-3C53
EPCH-053-C 808
Ef>CH-C61-4A06
EPCH-054-2D23
EPCH-062-2007
EPCH-055-3C83
EPCH-063-21A5
EPCH-056-1C23
EPCH-064- 2002
EPCH-057-3659
EPCH-C65-7B19
EPCH-058-5009
EPCH-066-7A09
1500
1510
1520 EPCH-067-7AF2
1530 EPCH -/') 19- 5C09
EPCH-068-B3E8
EPCH-080-59C9
E PCH-069-71.A2
EPCH-081-C85E
EPCH-070-72 E2
E PCH-082-5809
EPCH-071-F72C
EPCH-O 83 -D83F
EPCH-07 2- 99C4
EPCH-084-5224
EPCH-O 74-C 82B
EPCH-J85-2828
EPCH-075-CC42
EPCH-086-5805
1520
1530
1540 EPCH-081-9BBO
1550 EPCH-095-74::; R
EPC H-088- 2B07
EPCH-096-C04C
EPCH-08<)-2C45
EPCH-091-094C
EPCH-090-20C 3
EPC H-09 8-58 R4
EPCH-091-28F7
EPCH-099-3CE9
EPCH-09 2- '58 99
EPCH-100-2007
EPCH-093-54AO
EPCH-IOI-EE63
EPCH-094-78A8
EPCH-I02-1CA3
1540
1550
1560 EPCH-l 03-9(e 0
1570 CFCD -1 09-7 88 F3
EPCH-I04-9B4A
CFCO-IIO-7FFB
e FCO-1 03-f 46F
CFCO-111-E079
CFCO-I04-711B
C FCO-l12-DOO2
CFCO-I05-700B
CfCO-113-128E
CFCO-I06-733B
DYPE-242-5AFF
CFCO-I07-7228
DYPE-243-5F19
CFCO-I08-199B
DYPE-244-11C5
1560
1570
1580 OVPE-245-CFI0
1590 f)YPE -253-C48 3
DYP E-246- 2055
DYPE-254-F098
DVPE-247-Z1BO
D'fPE-255-11CB
OVPE-248-218B
OVPE-256-C482
DVPE-Z49-SFOO
DVPE-257-EOBI
DYPE-250-4FFF
OVPE-258-CB20
DVPE-251-0f20
OVPE-259-DB03
DYPE -25 2-12 8E
OYPE-260- EB20
1580
1590
15AO DVPE-261-CllF
15BO DYPE -270-C 834
Oyp E-262- C4A9
OYPE-271-EB39
OVPE-263-1fBO
DYPE-272-1FfO
OVPE-264-C48A
OVPE-273-C48A
OVPE-265-1f10
OVPE-274-114B
OYPE-266-C48A
DVPE-275-C482
DVPE-267-1118
DCHN-127-2400
OYPE-269-C482
OCHN-12 8- 2C 75
15AO
15BO
15CO DCHN-129-9QF 8
15DO OClB-046-5260
DCLB-IIO-6224
DCU3-04 7-02 5A
DCLB-111-6224
DClB-048-1643
OCLB-IIZ-6224
DCl B-04<)-33 63
OClB-113-<)614
DClB-050-6224
OClB-043-1683
OClB-058-0249
DCLB -044-3613
DClB-060-F4C3
OCLB-045-3173
DCLB-06l-S038
15CO
1500
15EO DClB-062-008 B
15fO OClB-079-FOC4
OCLB-063-fOfA
OClB-080-4206
OCl8-065-5119
DC lB-081-503a
DCLB-066-C4C4
OClB-082-008B
OClB-067-5030
OClB-083-FOC5
OCLB-075-0049
OCLB-084-5119
DClB-017-F4C5
OClB-O 85-C4C4
OClB-078-0183
DCLB-086-5049
15EO
15FO
CONTROL STORAGE
2
4
6
8
A
C
E
1400-15FE
CONTROL STORAGE ADORE 55 lIST
0
ClOAD=*E60, EC lEVEl=128266 ,PAGE 290
1600-17FE
4
2
6
8
A
C
16--
E
1600 DClB-O 87-6224
1610 DCLB-095-CC35
DCLS-088-5038
DClf3-096-D033
OClB-089-0083
DClB-097-6224
DCl B-090-FO 94
DCl B-099-0639
DClB-091-C51F
OClB-IOO-3763
DClB-092-1537
DCLB-I04-7260
DClS -0 93-F 031
DClB-I05-B002
OClB-094-E033
DCl B-116-2405
1600
1610
lA20 OCLB-119-l5F 5
1630 DC l B-1 1 4 -1 '53 Ii
DClf3 -120- 6505
oelB-115-l51A
DClR-12l-5038
I)CLB-116-153B
DClB-122-40G6
DCl 3-11 1-9620
DClB-123-C497
OClB-I07-1212
DC lB -12 5 - D6 3D
DClB-I08-BOO2
OClB-121-726A
DCLB-130-7212
DClB-128-963E
OClB-132-6226
1620
1630
1640 OClB-13~-134 '3
1650 DClP,-190-i=?65
OCU3-135-5230
DClB-191-5FF2
OCL8-146-D659
DC lB-192 -1F60
DClB-l48-C54A
DCl B-1 91-9666
OClB-149-1565
OClB-2l5-A041
DClB-174-1763
DClB-2l9-C160
OClB-175-756A
OClB-220-1602
OClB-189-6666
OClB-22l-2D40
1640
1650
1660 DClf.'-223-10JO
1670 CFCO-072-42E6
DCl 11- 227- 0244
CFCn-()73- 40 E6
DClB-194-5F60
SFCO-074-128E
OClB-195-6664
COVD-08A-2002
OClB-196-42FF
CDV!)-089-711B
OCL B- 20 3- 8721
COVD-090-700B
CFCO-069-4E52
CDVD-091-733B
CFCO-011-48E6
CDVD-092-122B
1660
1670
1680 COVO -093-799 B
1690 COVD-l01-10C 2
CDVO-094-788B
COVD-104-711B
CDVD-095-155B
CD VD-l 05-7 OOB
CDVD-096-144B
COVO-I06-733B
CDVO-097-128E
COVD-I07-122B
COVD-lOO-20az
CDVD-108-128E
CD VD -1 0 I-F 581
CBIN-047-AE06
COVO-102-0008
CBIN-048-880C
1680
1690
FIt T-086-
SOFF
FIlT-094-FB36
F I LT- 087 -0 F8 3
FIlT-09S-2f=25
F Il T-088-FORD
FIlT-096-06RO
FIlT-C89-DB2E
FILT-097-2EC3
FILT-090-8220
FIlT-098-977r:
FIlT-091-2F43
FI LT-099-2F07
FllT-092-EB32
FllT-100-C1B8
l6AO
l6BO
1600 FILT-IOQ-4EEF
FIlT-I02-2D45
FILT-11O-FBD6
FIlT-103-4EDF
F Il T-111 -9 73 C
F I l T- 104- 2 E15
F Il T-112-C3FD
FILT-I05-4BEF
FIlT-113-FD59
FllT-I06-2E43
FILT-1l4-92F6
FIlT-107-4BFF
FILT-115-6EE6
FIlT-108-l000
F [ l T-11 6- 6E E6
16CO
1600
l6E0 FILT-117-5CF8
16Ft) FIlT-125-CE04
F I l T- 11 8 - 40 CF
F lL T-126-3DOO
F I l T-119-2 C63
FILT-127-2CI5
F Il T- 120 - 4F CF
FIlT-128-4BCF
FILT-121-5C52
FIlT-129-6EE4
FILT-122-2C07
FILT-13C-C3FB
FI LT-123-F 8EC
F!LT-131-0222
F I LT-12 4- 7C 5 2
F I l T-132-CA 86
16EO
16FO
16AO
16R0 F I l T-0 q ,
-
50) 7
2 F 1 ')
16CI) t= I l T -1 C1- E 5F E
CONTRfll
STORAGE
0
4
2
6
8
A
C
16-11--
E
1700 FILT-13,-DF87
1710 F Il T-14l-5BC F
F I LT- 1 34- 4B F F
FILT-142-6C01
FIlT-135-870E
FILT-143-F098
F IL T-136-5AOF
F Il T -1't4-92 8C
FILT-137-C4CO
FILT-145-2007
FILT-138-5C62
FIlT-146-2C13
FIlT-139-CA9F
FllT-147-976E
FIlT-140-C5CO
FIlT-148-5E52
1100
1110
l72() FIlT-149-EB31
1730 FIlT-157-876A
F IL T-150-C032
F IL T-158-859A
FI IT-151-201B
FILT-159-2D25
F Il T-152-7C62
FIlT-160-2C07
FIlT-153-50F9
FIlT-161-2F07
F I l T-154-00AB
FILT-162-976E
FILT-155-FOB5
FIlT-163-FAC1
FllT-156-9254
FIlT-164-8640
1130
1= I LT -16'5 - 2 [10 7
1750 !=ILT-173-7C6?
F Il T- 16 6- 2C45
F I L T- 1 7 4- 2 EC3
t=IlT-167-DEEE
FILT-175-08F9
F Il T-168-2E 35
FILT-176-C8FB
F IL T-169 -EEDD
F t LT -1 7 7 - 2 DO 7
FIlT-170-FA9B
FILT-178-2E15
FILT-171-5ACF
FIlT-179-2C15
FIlT-172-C4EO
FILT-180-9770
1750
1760 FItT-IRl-5CI)Q
1770 FIlT-1A9-7F62
FIlT-182-1CF5
FILT-190-2EE3
FllT-183-ED68
F I l T-1 91-3 C2 5
F Il T-184-3083
FIlT-192-D8FA
FIlT-185-F06C
FIlT-193-3E13
FILT-186-3D23
F I LT- 1 94- 7C 52
FIlT-187-1035
FILT-195-2F07
FllT-188-2E07
FllT-196-F082
1760
1770
1780 FILT-197-3E45
1790 t= Il T-205-3F45
F IL T-198-C986
F Il T-206-2A07
F
I l T-1 99 - 3 F 85
FIlT-207-0FR5
FILT-200-1004
FllT-208-C49A
F I LT - 2 0 1 -C 8 en
FIlT-209-EA24
F I l T- 202-F993
FIlT-21C'-2B43
FI l T-203-4886
FIlT-211-3B15
FIlT-204-C493
F I l T- 212- 5C 42
1760
1790
17AO FIl T-213-7EA8
17BO COMO-OO6-5575
F I L T- 2 1 4- 7C A0
COMD-007-77E3
FILT-215-92BE
CDMO-OO8-EOAE
COMO-047-A51C
COMO-009-9812
COMO-OO2-EIAO
COMD-OI0-S730
CDMO -00 3-1445
COMO-Oll-8F2C
CDMO-004-C 130
COMO-012-5710
COMO-OO5-AE94
COMO-013-3415
17AO
1780
14-8F2 C
-022 -7 AF 2
CDMD-015-10CE
C01.40-023- 5F 3A
CD MD-O 16-5 5 BO
COMO-024-5FFB
COMO-OJ 7-3B83
CDMO-025-7F AF
COMO-018-3B15
COMD-026-7FCA
CDMD-019-7AE2
COMD-027-5FFl
CDMD-020-4CA6
C01'1D-028-C 96C
COMD-021-3B25
CDMO-029-573A
17CO
1700
I7EO COMO-030-47F 3
17FO CDMD -038-5 SF D
COMD-031-77AF
CDMO-039-7EF1
CD MO-032 -7F AA
(DMO-040-2002
COMO-033-77 CA CDMO-034-51F5
COMO-041-71E9 COMO-042 -70A9
COMD-03 5- C9 5F
COMD-043-4206
COMD-036-1FAA
CDMD-O 45-F 027
CDMO-037-55E5
COMO-046-8082
I7EO
I1FO
1740
17CO
1700
CD~f)-1J
CD~D
CONTROL STORAGE
2
4
6
A
A
C
E
1120
1140
1600-11FE
CONTROL S TORAGf ADDRESS LIST
0
2
CLOAD=* E60, EC lEVEl=128266 ,PAGE 291
1800-19fE
4
6
8
A
C
E
18--
lAOO ECOL-086-2FOR
1810 ECOl-094-9 21 A
ECOL-087-980A
CCOM-056-10A2
EC Ol-088-2 Foe
CCOM-057-74B2
ECOL-089-980A
CCOM-058-1CC2
ECOL-09O-2fOA
CCOM-059-E19E
ECOL-091-221B
CCOM-060-7892
ECOL-C92-f491
CCOM-06l-0020
ECOL-093-3C13
CCOM-062-128E
1800
1810
1820 FILX-276-5C84
1830 FILX-244-7CEQ
FILX-2T7-203f
F ILX-245-5C62
F [ LX- 278-7 ECO
FILX-246-5EOF
F IL X- 279-86 f2
F IL X-24 7-10 A3
F ILX-266-988E
FILX-248-003C
FILX-241-F930
FILX-249-3083
FILX-242-4C52
FILX-250-1CEO
f IL X-243-7C62
F ILX-251-4C52
1820
1830
1840 FILX-252-3FI5
1850 FILX-260-C4FD
F I L X- 2 5 3 - 1C EA
F IL X-261-CB46
FILX-254-1FI0
FILX-262-1FEB
F IL X- 25 5-FB EF
F IL )(-26 3-FF 44
FILX-256-50E8
FILX-264-FBA9
FILX-251-05CF
f I LX- 265- 8634
FILX-258-7088
FILX-229-IC25
FILX-259-5886
FILX-230-7C52
1840
1850
1860 FILX-231-5E32
uno FIlX-239-7DE8
F I L X-232-lE45
I=" I L X-240- 984E
FILX-233-7E32
FILX-225-3EOO
FILX-234-2E07
F ILX-22 6-5F FF
FILX-235-2F25
FILX-227-EODD
FtLx-236-3F43
FILX-228-85AC
F I LX-2 3 7-f BAA
fILX-267-COAl
F I LX- 23 8- 50B8
FILX-268-CB06
1860
1810
1880 FILX-269-FF06
1890 FILX-289-2A25
FILX-270-fB8F
FILX-290-3843
F I LX-211-8634
FILX-291-5CA8
F ILX-272-2F45
FILX-292-4CC6
FIlX-273-FBC7
F IL X-293-C4A4
fILX-274-F985
F I LX- 294- 5C AO
FILX-275-865A
FILX-295-3B17
fILX-288-2A01
F ILX-296-5EAA
1880
1890
18AO FILX-?97-6I==C5
18RO FJLX-308-6B'=,
F Il X-298-C4AF
F IL X-309-f4B8
FILX-299-2C13
F IlX-310-0EFF
F I l X- 300- 2 F 4 5
F IL X- 311-C4A4
FILX-301-CDC5
FILX-312-2CA3
FILX-302-F9CO
FILX-313-7CF3
FILX-303-98CA
FILX-314-F4A4
FILX-307-50E9
F I LX-315-924E
18AO
18BO
18CO FILX-304-4886
1800 F tLX-285-7C52
FIlX-305-C4AO
F Il X- 286- 2EE3
FtlX-306-98CC
FILX-287-92BA
FILX-280-2C13
DClR-136-3415
FILX-281-F9CC
OCLR-137-15C5
fIlX-282-2F07
OCLR-138-1533
FILX-283-3CA5
DCLR-140-81CA
FILX-284-2001
ERC X-054-3B23
18CO
1800
1BEO ERCX-055-9DCC
lAFO r::RCX-066-21="8)
t: RC
ERCX-(,56-90C8
X-06 7- 90CC
ERCX-C 57-9 80E
ERCX-068-2880
ERC X-05'8-98 EE
ERC X-07 0-90CC
ERCX-059-90C A
DC LR-238-2 34 3
ERCX-060-98EE
OCLR-239-5612
ERCX-C61-98EE
OCLR-240-3613
ERCX-065-F775
OCLR-241-A19C
18EO
18FO
CONTROL
0
2
4
6
8
A
C
E
18-19--
STORAGE
1900 FPXF-041-20AB
5007
1910
EPXF-042-20AB
ERDR-05 3- 54 E9
EP XF -043-2 DAB
ERDR-054-C4A0
EPXF-044-2DAB
EROQ..-055-5EB2
EP XF -045 -20A B
ERDR-056-5069
EPXF-046-20AB
ERDR-05 7- 8A68
EPXF-047-9C74
ERDR-058-3C85
E P XF- 04 8- 9C 80
ERDR-059-950E
1900
1910
192(' ERDR-/)60-C3AE
l07
EROR-IOI-ID45
EROR-094-CFOA
ERDR-I02-B43C
EROR-095-9404
ERDR-103-3623
EROR-096-CFF3
ERDR-I04-A5EO
ERDR-097- 3045
ERDR - 105- 2007
ERDR-098-9974
ER. DR-1 06-00DA
EROR-099-FOFA
EROR-107-1BOO
1960
1910
1980 ERDR-108-6CF7
1990 EROR -116-FA3 5
~KDR-109-EA34
r::RDR-l17-0004
EROR-IIO-FA26
F:RDR-118 -8F7 A
ERDR-l11-EE 34
ERDR-1l9-920A
ERDR-112-E835
EROR-120-3C45
ERDR-113-76F2
ERDR-121-DE IE
ERDR-ll4-C E1A
ERDR-122-3C25
EROR-115-0E18
EROR-123-1C 83
1980
1990
19AO ERDR-124-3C23
1980 EROR-133-2E13
EROR-125-B3E8
ERDR-137-99B8
EROR-126-9C05
EROR-138-2085
ERDR-127-DA35
ERDR-139-2E23
EROR-128-EDAF
EROR-140-B3E8
ERDR-129-2B40
ERDR -141- B4 3C
ERDR-130-9504
ERDR-14Z-2A07
EROR-131-3000
EROR-143-C3C2
19AO
1980
19CC ERDR-144-9F5C
1900 EROR -153-915A
ERDR-145- 8C60
ERQR-154- EE 56
ERDR-146-CC5D
EROR-158-36A9
ERDR-148-F753
ERDR-159-2855
ERDR-149-2445
EROR-160-2915
ERDR-150-2513
ERDR-161-3983
ERDR-151-40A6
EROR -162-5E49
EROR-15Z-31BB
EROR-164-F565
19CO
1900
19EO ERDR-168-2A35
19FO EROR-176-Z1FF
ERDR-169-9t:>04
ERDR-177- C4E4
EROR-170-261B
EROR-178-90A8
ERDR-171-F4EA
DCHN-122-2400
EROR-172-90A6
DCHN-123-2A07
ERDR-173-5884
OCHN-124-C3FE
ER DR-l 74-E47l
OCHN-125-A106
EROR-115-5884
OCHN-126-AA 76
19EO
19FO
CONTROL STORAGE
2
4
6
8
A
C
E
1800-19FE
CONTROL STORAGE ADDRESS lIST
C
IAOO ERDR-IRO-2P~B
1AIO Al DP -0 39- 8 8 B C
2
E~DR-181-9t50
ClOAD=*E60,
lAOO-lBFE
4
6
8
A
EC lEVEl=128266 .PAGE 292
C
lA--
E
ALf)P-040-S8C4
ERDR-1S2-2BOC
AL DP-041-3 643
E RDR-18 3-9150
ALDP-042-043D
ERDR-184-2BOA
AlDP-043-EOB3
ERDR-185-9150
AL DP-Q44- 88 RC
AlOP-037-26A3
ALDP-O 45-24B3
AlOP-03S-27S3
ALDP-046-2571
lAOO
1A10
lA30 AlDP-055-9A2R
ALD P-048- B8CE
AlDP-056-044B
AlOP-049-D121
ALDP-057-FOBD
AlOP-050-DOOO
AlDP-058-041R
AlDP-051-7543
AlOP-059-F09A
AlDP-052-F520
AlDP-060-3609
AlOP-053-24F3
Al DP -C 61-8 SC6
AlDP-054-F320
AlDP-062-3645
lA20
1A30
lA40 AlDP-OR5-042l)
1,\ 50 Alf)P-097-F66C
AlDP-OS6-EOCA
AlOP-098-C 9ED
AlOP-OS7-3115
Al OP-l 00-042B
ALDP-088-047B
AlDP-IOI-FOOC
ALDP-OS9-9A5E
ALDP-I02-E61B
Al DP-09C-04 3F
AlDP-I03-AF78
AL DP -0 91-E 09A
ALDP-I05-0418
AlOP-095-FOO4
AlDP-l15-FOE4
1A40
lA50
1.1\60 AlOP-117-3615
11\ 70 AlOP -1 28 - 8 8C 6
ALDP-120-9A6C
6lDP-129-5403
AlOP-121-044B
AL OP-130-88C6
All) P- 12 2 - F I) 9 A
AlD P-131-44 3D
AlOP-123-2115
AlDP-132-S 8C6
ALDP-124-3625
AlDP-133-5413
AL DP-126-6662
AlOP-134-88C6
AlDP-127-88CC
AlDP-t35-441D
1A60
lA70
1A80 ALDP-136-SABC
lA90 AlDP-150-F 73 [)
AlOP-139-C310
AlOP-154-F61F
AlDP-141-FOOC
AlDP-158-00C9
AlOP-142-88CC
AlDP-160-F49E
AlOP-143-SSCC
AlDP-161-3713
AlDP-144-17AO
Al DP-162- 9A tC
ALDP-145-2243
Al DP-165-B 3B2
AlOP-146-2515
ALOP-167-3685
IASO
lA90
lhA0 AlOP-168-E 61<.,)
lAB0 AlDP-179-F711
.AUW-17l-C31C
ALO P-l 80- S8CC
AlDP-173-88C6
AlDP-181-25FF
ALDP-174-54F3
AlDP-182-C490
AlDP-175-8SC6
ALOP-183-88BC
AlOP-176-44FO
AlOP-184-9A8E
AlOP-l 77-1 720
AL f)P-2 02-0049
ALDP-178-S39C
AlDP-204-9A96
1AAO
lABO
1ACO AlOP -206-8 3q C
lAOO ALDP-214-F4D6
.ALOP-207-1645
AlOP-215-237R
ALOP-20S-C74A
AlDP-216-23CO
AlOP-209-l785
ALDP-217-88CE
ALDP-210-5FE9
AlOP-2 18-0761
AlDP-211-5E35
ALDP-219-5E30
AlOP-212-23FO
ALDP-220-1760
AlOP-213-036l
AlDP-221-9ACC
lACO
lAOO
lAEO .I\LDP-2??-174f)
lAFr AlDP-235-8R~C
ALDD-223-E74q
AL[lP-236-8802
Al OP-224-2 2 FF
ALDP-237-2243
AlDP-225-C4R2
ALDP-238-88C4
AlOP-226-3743
Al1)P-2 39 -9AR4
ALDP-232-88CE
CMlT-I04-6FFB
ALDP-233-1743
C"1lT-I05-6EED
AlDP-234-C375
C Ml T-106- 6710
lAEO
lAFO
lA2C' AlOP -0 47 - '5 34 A
CONTROL
STOR AGE
0
2
4
6
8
A
C
E
lA-lB--
lRDe CMLT-ID7-66h!)
1R10 ECOl-043-7 fie ')
CMLT-108-6BBD
E~OL-C44-20AB
CMlT-109-6AAD
EC OL-045 -7 FCC
C ML T-11 0-6990
ECJL-046-1C18
ECOl-047-F871
CMlT-112-128E
ECOL-048-5959
ECOL-041-75CO
ECOL-049-5AB9
ECOL-042-20A8
ECOl-050-5EF9
1800
1810
uno
lR21) FCOl--J51-2CAf3
ECOL. -0 28-6F41
ECOL-052-980C
ECOl-029-D336
EC Ol-022-5 738
EC OL -0 30-6 C}41
ECOl-023-E72A
ECOl-031-E33A
F:COL-024-6541
ECOl-O 32 -6A41
ECOl-025-F72f
ECOL-C33-F33E
ECOL-026-6B41
ECOl-034-6E41
ECOl-027-C332
ECOL-035-5224
IB20
IB30
1840 ECOL-C~6-2R2'3
1850 ECOL-OC6-4EAh
ECOL-037-3t t8
I::COL-007-5B99
ECOL-038-C48D
E C Ol-C08 -5 B59
ECOl-039-5879
ECOL-009-01 E3
ECOl-040-B~C9
ECOl-OIO-FOEt
ECOl-003-2485
ECOl-Oll-211B
ECOl-O 04-2 AF 7
ECOl-C 12-0S61
ECOl-005-5AB9
ECOl-013-311B
1840
1850
1860 ECOl-OI4-fR24
11370 ECOL -053-2 DC 9
fCOl-015-261B
FCOl-054-2DFB
ECOl-016-F4A4
ECOl-055-5119
ECDL-017-2DAl
ECOl-C56-C4FO
ECOl-018-5ECO
ECOl-057-08AD
ECOl-019-3EI3
fCOL-058-EOCA
ECOL-020-7ECO
ECOl-C59-lC2B
ECOl-021-9B7C
ECOL-060-ES14
1B60
IB70
1880 ECOl-061-5629
1890 ECOl -069-520::}
ECOL -062-11 A2
FCOl-070-95CA
EC Ol-063-5C99
ECOL-095-50S9
E COl-06 /-t- RF 64
ECOl-09 6-51 A2
ECOl-065-8A68
F COl-091-52 E 2
ECOL-C66-2E07
ECOL-e98-DB1E
ECOL-C,61-C 536
ECOL-099-5224
ECOl-06S-F837
ECOL-IOO-01E3
1B80
1B90
IBAI) ECOl-lCI-FC'AR
18BO ECOL -109-5 8A 9
ECDl-102-21FF
ECOl-IIO-F08E
ECOl-I03-D829
EC OL -111-9R4A
ECOL-I04-212B
ECOl-071-3485
ECOl-I05-1C4B
ECOL-082-5FAO
ECOl-I06-58D5
EC OL -083-7C A8
fCOl-I07-2DCB
ECOL-) 85-qFOl
ECOL-I08-2030
ECOl-112-2D30
18AO
18BO
IBCO tCOl -113-202 13
1800 fCOL -121-91346
ECOl-114-5FCO
ECClL-122-5FE9
E C Ol-115 -309B
ECOl-123-5BA9
ECO l-116-5BCO
ECOl-124-5599
ECOL-117-309B
ECOL-125-3D9B
ECOL-118-55CO
ECOL-126-9SC2
EC OL -1 19 -1 C18
CCO~-071-2873
ECOl-120-f852
CCOM-072-89FC
18CO
1BDO
IBEO C SFT -0 46-903 A
IBFO CF l S -0 7.1 - 1 E8 0
C SF T-041- 20213
C Fl S-022- 2C 25
CSFT-048-9BES
CFLS-023-CE78
C SF T-049-1 023
CFl S-024-1C 70
CSFT-050-8420
CFlS-025-B170
CSFT-051-B340
CFLS-026-05FF
CSFT-052-9D3A
CFlS-C 27-2C01
CFlS-014-1ES5
CFlS-028-81A6
IBEO
IBFO
CONTROL STORAGE
2
4
6
O~lT-111-688D
8
A
C
E
lAOO-18FE
CONTROL STORAGE ADDRESS LIST
0
2
lCOO-lOFE
4
6
CLOAD=*E60,
8
A
EC lEVEl=128266 ,PAGE 293
C
lC--
E
lCOO ECOL-127-C822
1CIO ECDL -135-248-~
E COL-128- 980e
E CO l - l 3 6- 9C 1 E
EC Ol-129-2445
ECOl-137-2443
ECOL-130-9CIE
ECOL-138-9CIE
ECOl-131-2425
ECOL-139-2423
ECOL-132-9ClE
ECOL -140-9C 1 E
ECOl-133-2415
EeOl-141-2413
ECOl-134-9C1E
ECOl-142-C824
1eoo
1C10
lC20 ECOL-143-9B56
lC30 I)CLT-OI0-ECA6
ECOL-144- 9C9C
DClT-OI1-F026
ECOl-145-9CD2
DC LT-O 12 -2400
DeL T-008-AECA
DeL T-013-52 02
DCLT-003-C62F
OCLT-014-63ll
DCLT-004-2007
oelT-015-C4A6
OClT-005-A262
DCLT-O l6-24F6
DClT-009-24F6
DelT-017-C142
lC20
1C30
1(4(1 OCLT-018-3485
1C50 DCl T-026-0041
DClT-019-70F2
DCL T-027- 02lE
DC l T-020-S419
De l T-028-2400
Del T-02l-5209
Del T-029-46 52
DClT-022-4452
DClT-031-2B87
Del T-023-7432
DCL T -032- 52 Ae
OCl T-C24-0004
Del T-033-526F
DClT-025-70E2
OClT-034-566B
1C40
leso
lC60 DCL T-C16-S212
le 70 OClT-044-2400
f)CLT-031-50F2
DCLT-045-A43E
DelT-038-5EE2
EPXF-049-2DIO
DCL T-039-lF 13
E PX F-05 0- 20 E8
DCl T-040-A024
EPXF-05l-5BCO
DCl T -041-8e 7A
EPXF-052-6841
DCLT-042-5A22
EPXF-O 53-7Beo
DeL T-043-2A13
EPXF-OS4-S805
leba
lC80 EPXF-055-C504
lC90 EPXF-063-C114
F PXF -OS6- 6141
E PXF-064- 6E41
EPXF-057-D508
EPXF-065-282B
EPXF-058-6741
EPXF-066-20FF
EPXF-059-E50e
EPXF-061-e490
EPXF-060-6941
EPXF-068-9CF6
EP XF-O 61-F510
EP XF -069-7leo
EPXF-062-6F41
EPXF-010-20AB
le80
le90
lCAO EPXF-C7l-77CO
lCBO EPXF-079-1:)8D;;
EPXF-072- 2DAB
EPXF-080-5019
EPXF-073-79CO
EP XF-081-C4C6
EPXF-074-2D5D
EPXF-082-9B80
E PXF-O 15-7Feo
fPXF-020-5B38
EP XF-076- 2DAB
EPXF-021-55AO
EPXF-OT7-5EF9
EPXF-C22-157B
EPXF-078-1Feo
EPXF-023-9103
leAO
lCBO
lCCI) EPXF -003-510 9
lCOO EPXF-O 15- 248 5
EPXF-001- 2A 65
EPXF-016-261B
EPXF-009-C05R
EP XF-O 17-F4B8
EPXE-010-21F7
EPXF-018-5019
EPXF-Oll-5119
EPXF-019-9B66
EPXF-012-51F9
EPXF-024-5805
EP XF-O 13-51E9
EP XF-O 25-5889
EPXF-014-5199
EPXF-026-FOC1
leco
leoo
lCEO f P XF -C 2 8 - 5 1C I)
lCFI) F. PXF -036- 5 5C::
EPXF-029-20AB
FDXF-031-55E9
EPXF-030-57CO
EPXF-038-58D5
EPXF-031-2t)i\B
EPXF-039-5859
EPXF-032-5geo
EP XF -0 40 - B 1 0 9
EPXF-033-2050
CSFT-014-10CE
EPXF-034-5Feo
CSFT-CI5-7ce2
EPXF-03 S-20AB
CSFT-016-5109
leEO
1eFO
CONTROL
STORAGE
0
1000 CSFT-017-'55BB
2
4
6
8
A
C
1C10
Ie-10--
E
ID10 CSFT-025-521\8
CSFT-018-5EAB
eSFT-026-50AA
CS FT-019-56AA
CSFT-027-EOle
eSFT-020-0Jo14
CSI=T-028-CE1C
CSFT-021-fSOE
CSFT-029-2AF 7
C Sf T - 02 2 - 5C C 2
CSfT-030-2040
eSFT-023-AE94
CSFT-C 31-50e9
eSFT-024-3B15
CSFT-032-6CC3
1000
1010
1020 CSFT-033-1C85
1030 C SF T -041- 1 DC "3
C SFT-034-EOAB
C SFT-042- 8917
e SFT-035 -B29 A
CSFT-054-1083
C SF T-036-2C FO
CSFT-OS5-FOBB
C SFT -0 37-EOA4
CSFT-056-B420
CSFT -038- FO 35
eSfT-057-2A07
CSFT-C39-0930
CSFT-058-5ee2
CSFT-040-B340
eSF T-059-o046
1020
1030
lD40 CSFT-060-72t.Q
1050 C SFT -068-C50 E
CSfT-06l-70AA
C SFT-069-S6AO
es FT-062-1 B 15
CSFT-070-1685
e SF T-06 3-7EA8
eSFT-071-0lDA
C SFT-064-76AA
CSFT-072-3685
eSFT-C65-E04F
CSFT-073-76AO
CSFT -0 66-AA16
CSFT-014-AC40
CSFT-067-F05E
eSFT-07s-eE64
1040
1050
1060 CSFT-076-A8?O
1070 CSFT-083-D5E1
CSFT-085-A824
C SFT-084-AA14
CSFT-077-0008
BWRP-124-EIF9
CSFT-078-4EE6
BWRP-125-8l74
CSFT-019-4666
BWRP-126-2A07
CSFT-080-0070
BWRP-127-2B43
CSFT-08l-4226
BWRP-128-2F07
eSFT-082-4006
BWRP-129-89fE
1060
1010
1080 ERCX-049-B3E3
lOQO ERCX -0 08-SFF 9
ERe X-053- 99 Be
ERe X-009- E096
ERCX-002-5E88
ERCX-OIO-9,A11
ERe X-OO 3-6F F3
ERCX-OI1-0E83
EReX-004-6FF,3
ERCX-012-FOA4
EReX-005- 5F R3
ERCX-013-3B43
ERCX-006-6BES
ERCX-O 14-eF21
ERCX-001-lB73
ERC X-015-9F 11
1080
1090
lOAO ERCX-016-0F85
lOBO ERCX-036-e536
!:RCX-OI1-EOCO
ER.C X-C3 7- F8 3D
ERCX-O 18-98EE
EReX-038-9B90
EReX-03l-3C13
ERCX-039-221B
ERCX-032-5629
ERCX-040-F4BD
EReX-033-2601
ERCX-041- 3C 13
ERCX-034-54E9
EReX-042-71A2
ERCX-03S-S460
ERCX-044-F10l
10AO
1080
lOCO ERe X-045-CBC 4
1000 ERCX-023-21FF
ERC X-046- 3083
ERCX-024-e4A9
ERCX-047-0D80
ERCX-025-26lB
E RC X-048-9212
ERCX-026-f4A7
ERCX-019-3B23
E RC X -021-E404
ERCX -02 0- 3R 13
ERCX-028- 5F 88
ERCX-O 21-5FAO
ERCX-029-1F38
EReX-022-1F38
ERC X-030-9000
lOCO
1000
IDEO CFHA-044-6DDD
IDFO CFHA-052-688D
C FHA-045- 6S5B
CFHA-053-6FFO
CF HA-046-F 46F
CFHA-OS4-CIFB
eFHA-047-61l0
eFHA-OS5-6AAO
e FHA-048 -6000
eFHA-056-128E
eFHA-049-6330
CFHA-05 7- 6EED
eFHA-O 50-6220
CFHA-058-128E
eFHA-0.Sl-69QO
eFMO-009-3082
IDEO
10FO
CONTROL STORAGE
2
4
6
8
A
C
E
lCOO-loFE
CONTROL STORAGE ADDRESS lIST
0
2
lEOO-lFFE
4
6
ClOAO=*E60, EC lEVEl=128266 ,PAGE 294
8
A
C
E
lE--
lEOO CFMD-OIO-B110
IE 10 CFMD-019-'5CC2
CFMD-OII-D595
CFMD-020-BIAO
CFMD-OI2-D180
CFMD-021-019C
CFMO-OI3-FOOC
CFM D-02 2-5E69
CFMD-O 14-21F 3
CH1O-0 23-3E 8.5
CFMC-OIS-BIA8
CFMD-024-9E22
CFMD-O 16-FOll
CFMD-025-5E79
CFMD-011-1415
CFMD-026-1E85
IEOO
lEIO
lE20 CFMO-027-2E40
1E30 CFMD-035-5ED9
CFMO-028-0FF3
CFMD-036-2E07
CFMD-029-C4AC
CFMD-037-896A
CFMO-030-B2F8
CFMD-038-SAE2
CFMO-031-2EFF
CFMD-039-B42E
CFMO-032-9E22
CFMD-040-2040
CFMO-O 33-0 1 BF
CF ~4D-041-9EOO
CFMO-034-3B3S
CFMD-042-SEC9
IE20
lE30
1E40 CfMD -043-2EO 1 C FMD-044-6761
lE50 CFMD-051-896 A CFMD-052- 3B 35
Cf MD-O 45 -1 7F3
CFMD-053-f058
CFMD-046-7COD
CfMD-054-9F82
CFMD-047-57D9
CFMD-055-l0CE
CFMD-048-F5CF
CfMD-056-2080
CFMD-049-3013
CfMD-OS7-f46E
CFMD-050-7CA2
CFMD-058-42E6
IE40
lE50
IE60 CFMD-05C)-4C86
IE 70 CFMD-067-4606
(FMD-C60-B42E
CFMD-068-B42E
CFMO-061-2B07
CFMD-069-4A86
CFMO-062-46E6
CFMD-010-48E6
CFMD-063-4E86
CFMD-071-4E06
CFMO-064-4SA6
CFMD-072-4066
CF"'D-065-8992
CFMD-073-4626
CFMD-066-4C26
CFMO-074-42C6
lEbO
lE70
lE80 CFMC -075 -S99 2
IF. 90 DCLC -090-FCR '5
DCLC-165-95 DA
DCLC-09l- E123
DC lC-124-A lS4
OClC-092-F 12 3
OClC-085-E60S
OCL C-093-28 88
DCLC-086-FD8f
DCLC-094-E60 5
OClC-087-262B
OCLC-09S-C9AO
DClC-088-F 086
DClC-O 96-2 62B
DClC-089-5F4F
DCLC-097-C999
IE80
lE90
1 r: A.O DCLC -OQ8-8E4C
lERO DCLC-106-200?
DCLC-099-C4B6
OClC-I07-1543
DCLC-IOO-F233
OCLC-I08-8442
DClC-IOl-2D04
DClC-126-C04E
OCLC-I02-3685
OClC-127 -003 C
DCLC-IO 3-76":\2
DCLC-12R-0040
I)CLC-I04-1685
OCLC-129-F44f
OClC-IOS-D134
OClC-130-2D04
lEAO
lEBO
IECO DCLC-13l-D148
1EDO DClC -139-C 55 F
OCLC-132-F247
DCLC-140-0560
DClC-133-2002
DC lC-141-04C7
DCL C-13 4-1543
DCLC-142-C4EO
OCLC-135-2285
OClC-l43-C461
DCLC-136-2307
DCLC-144-D065
DClC-137-7232
DClC-14S-C07B
DClC-138-2307
DClC-l46-lSCS
IEeo
lEOO
IEEO OCLC-t47-0D10
IJ:=FO Del r -160-2 64 c;
nCL C-148- A782
f)CLC-161- 3613
DC LC-154-2D 10
DCLC-162-5212
DCLC-155-2B8S
DCl C-16 3-04 02
DClC-l56-E605
DCLC-164-95D6
DCLC-157-C9FO
DCLC-149-2010
DCLC -158-2 62B
DClC -150-2 B4A
OCLC-159-C9E9
OClC-lSl-240S
IEEO
lEFO
CONTROL
STORAGE
0
2
4
6
8
A
C
E
IE-IF--
IFOI) DCLC-152-1'573
IFIO ERRQ-013-C46B
DClC-153-AF72
ERRQ-014-CFB5
ERRQ-054-8CA4
ERRQ-015-8C04
E RRQ-064-2406
ERRQ- 05 5-E261
ERRQ-065-0B30
ERRQ-O 56-C 3C 5
ERRQ-C66-9816
ERRO-058-C422
ERRQ-067-8A68
ERRQ-059-01SF
ERR Q-06 8-999E
ERRQ-060-CA23
IFOO
IFIO
IF20 ERRQ-061-0A5 f
1F30 ERR.Q-OtO-D094
ERRQ-062-AB20
ERRQ-Oll- 0995
ERRQ-004-8F70
ERRQ-012-810C
ERRQ-005-3623
ERR Q-03 0-8F bC
ERRQ-006-CEAO
ERRQ-031-2466
ERRQ-C07-9936
ERRQ-032-E607
ERRQ-008-F710
ERRQ-033-2406
ERRQ-009-C439
ERRQ-034-0996
lF20
IF30
IF40 ERRQ-03S-0BI0
IF 50 ERRQ-043-C3Df
ERRQ-036-3485
ERRQ-044- 0450
ERRQ-C37-8FCE
ERRQ-04S-EA50
ERRQ-038-D54A
E RRQ-046-4452
ERRO-039-8D64
ERRQ-047-8406
ERRQ-040-3E43
ERRQ-048-A7F2
ERRQ-041-E 261
ERRQ-049-A 708
ERRQ-042-F7SE
ERRQ-063-8D6R
lF40
IF50
IF60 ERRQ-O 50 -2 AO 7
IF10 ERRQ-021-FFC4
ERRQ-051-8FCE
FRRQ-022-9816
ERRQ-052-DI04
ERRQ-023-2015
ERRQ-053-8C DE
ERR Q-024-5CCO
ERRQ-017-8F64
ERRQ-025-B3E8
ER RQ-O 18-0B 96
ERRQ-026-7C AO
ERRQ-019-0FIO
ERRQ-027-1545
ERRQ-020-C442
ERRQ-028-3E23
If60
IF70
IF 80 ERRQ -0 29-9F44
1t=90 CFDV-013-76F2
CFOV-006-30A2
CFDV-014-F5A2
CFDV-007-B04A
CFDV-015-2C13
CFOV-008-5AE2
CFDV-016-A656
CFDV-009-B42E
CFDV-017-5CA2
CFDV-OIO-46A6
CFDV-018-2CIB
CFDV-Oll-3B35
CFDV-019-C4AO
CFOV-012-37I3
CFDV-020-1013
IF80
IF90
IFAO CFOV-021-7CA2
IFBO CFOV-029-3002
CFDV-022':'9DEO
CFDV-030-01BB
CFOV-02.3-3002
CFDV-031-CD2A
CFO V- 02 4-0040
CFOV-032-2040
CFDV-025-2D13
CFDV-033-9FAA
CFOV-026-B04A
CFDV-037-56F2
CFOV-O 27-F 5EE
CfOV-038-7068
CfDV-028-90EO
CFOV-039-76F2
IFAO
IFBO
IFCO CFD V-0 40 - F 44 8
lFOO CFDV-048-8170
CFDV-041- 07CB
CFDV-049- 0507
CFOV-042-FOA6
CFDV-050-BIAO
CFDV-043-9FCC
CFDV-051-56A2
CFDV-044-5719
CFDV-OS2-5659
CFOV-045-FOA6
CFDV-OS3-5CC2
CFOV-046-5AE2
CFDV-054-158S
CFDV-047-B42E
CFOV-055-C762
IFCO
If 00
lFEO CFDV-O 56-3 58 5
IFFO CFDV~03S-1002
CFOV-()57-75AO
CFDV-036-9F82
CFOV-058-F375
CFOV-063-27D3
CFDV-OS9-C66B
CFDV-064-55 E9
CFOV-060-0080
CFOV-065-8I9E
CFDV-061-27C3
5007
CFDV-062-BIA8
BD IA-O 87-2 810
CfOV-034-90EO
BOIA-088-D51F
If EO
IFFO
CONTROL STORAGE
2
4
6
8
A
C
E
lEOO-lFFE
CONTROL S TOPAGE ADDRESS LIST
0
2
CLOAO-=*E60, EC lE VEL=12 8266 ,PAGE 295
2000-21FE
4
6
8
A
C
E
20--
2000 B0 I A-0 91 - 2 81 ')
2010 CCOM-ll4-517B
BDI A-092-25F5
CCOM-115-3763
BOIA-096-E504
CCOM-lI6-5B60
BOIA-091-2810
CCOM-1l1-5B6B
BDIA-I0I-F508
CCOM-118-2707
BOIA-I02-2810
CCOM-120-FOA5
BOIA-I03-A040
CCOM-121-4E52
CCOM-IIO-2607
CCOM-123-4252
2000
2010
2020 CCOM -125-462 6
2030 CCOM-135-2P47
CCOM-126- 4026
CCOM-137-42AF
CC OM-127-2B45
CCOM-139-7EBO
CCOM-12 9-42 AF
CCOM-141-5282
CCOM-131-76B8
CCOM-142-423F
CCOM-132-12B8
CCOM-145-C5J'.lE
CCOM-133-6AA4
CCOM-146-128E
CCOM-134-l0BO
CCOM-147-AEOO
2020
2030
2040 BOIA-I06-2810
2050 FIlE-350-4EOF
BDIA-III-C55F
F I LE- 35 1- 2007
F I lE-344-2C07
FILE-352-4BOF
F Il E-345-4BCF
FILE-353-4EDF
F ILE-346-4EC F
FILE-354-4fOf
F IlE-34 7-2D15
F I LE-355-490F
FllE-348-4BOf
FILE-356-128E
f ILE-349-2045
BOIA-114-2810
2040
2050
2060 BOIA-119-D57F
2070 CMLT-009-F56 ~
CML T-006-AE94
CMLT-OI0-3515
CML T-002-F563
CMlT-Oll-8210
CML T-003-3515
CMl T-012-897 A
CML T-004-B3F6
CBIN-012-8270
CMLT-005-897A
CB IN-073- 8E 7C
CMLT-007-EIFl
5007
CMLT-008-3485
BOIA-125-2800
2060
2070
2080 RDIA-131-3EOQ
2090 ROIA-142-AODA
BOI A-132-C483
QOIA-143-7EEl
BDIA-133-F085
BDIA-147-F494
BDIA-134-E087
BDIA-148-7EE1
BDIA-135-F489
BDIA-149-6EE3
BDIA-136-6EE5
BOIA-150-2E5f
BDIA-137-AOOA
BO 1A-151-6 EE3
BDIA-138-2EOO
BOIA-152-6EE9
2080
2090
20AO BDIA-153-0E5F
20BO BOIA-161-2EF7
eDI A-154-C4A2
~ f) I A- 16 2- 0 E11
f30IA-155-2E87
'30IA-163-FOB4
BDIA-156-3E27
BOI A-164-EO B6
BOIA-157-2EEF
BDIA-165-1EFB
BDIA-158-2E77
BOIA-166-AOE2
BDIA-159-1E87
BOIA-167-1EF3
BDIA-160-1EB7
BOIA-Ill-AOE2
20AO
2060
20CO BOIA-112-3E15
2000 BOIA-189-1FF5
BOIA-176-AOE2
BOIA-190-C4D2
BDIA-117-3EOD
BOoIA-191-2EF5
BDIA-181-2EID
BDIA-192-AOE2
BOIA-182-2FF5
BDIA-193-AOE8
BDIA-183-AOOA
BDIA-195-0fFf
BOIA-184-0FFO
BD IA-196-C4El
BOIA-188-C4CE
BOI A-197-2810
20CO
2000
2CE:0 BDIA-198-128F:
20J:O ROIA-21l-EOFO
PDIA-201-0EfO
80IA-212-FOF2
BD IA-202-C4DE
BOIA-213-2400
BOI A-203-12QE
BD! A-214-574F
BDI A-207-24F 6
8DIA-215-0487
BDIA-208-518F
BDIA-216-EOFA
BOIA-209-1887
BDIA-217-FOfC
BDIA-210-087F
BDIA-221-2EF7
20EO
20FO
CONTROL
STORAGE
0
2
4
6
8
A
C
E
20-21--
2100 BDTA-222-2FF7
2110 BOIA-23C-IEFJ:
BOI A-223-6E02
Bf)IA-231-C492
BDIA-224-2E05
BOIA-232-2E33
BOIA-225-2F05
BOI A- 233- 2F 87
BOI A-2 26-4EO 2
BDIA-234-6FE8
BDIA-227-0FFF
BO I A- 235 -6F EA
BDIA-228-E08C
BOIA-236-44E8
BOIA-229-F08E
BOI A-23 7-2f 13
2100
2110
2120 BD! A-238-048F
2130 BOIA-246-2E4'5
B01 A-239-EOA2
BOIA-247-3FE9
BO I A-240-fOA4
BOIA-248-25F7
BDIA-241-257F
BDIA-249-75EO
BDIA-242-C4A8
BOI A-2 51-250 5
BD IA -243- 2E05
BOIA-252-55EA
BOIA-244-55EA
BDIA-254-05FF
B01 A-245-C4AE
BOIA-255-C4BE
2120
2130
2140 BOlA -2 '56-F 133 4
2150 CFL S -007-1 EB 5
BOI A-257-44E6
CFlS-008-9BF2
BOIA-258-0440
DC lR-155-562F
BOI A-259-C4C6
OCLR-156-221E
BDIA-260-75F 1
OCLR-157-5C3F
BDIA-261-C4CA
DClR-159-7222
BOIA-262-Q060
DClR-163-502F
BDIA-263-88EC
OCLR-164-5E3F
2140
2150
2160 DClR-165-2810
2170 DClR-l 73-33C 5
DClR-166-2407
OCLR-175-5622
OClR-167-2585
DCLR-179-5729
OCLR-168-3573
OClR-180-725A
OCLR-169-765A
OClR-181-577F
OCLR-170-725A
DCLR-182-7650
OCLR-171-5350
DC lR-183-3 573
DClR-172-231B
DCLR-184-5650
2160
2170
2180 OClR-188-E690
2190 DCLR-191-24J:6
OClR-189- 2800
DCLR-192- 2B80
DC lR-190-A 194
DCLR-193-2507
OCLR-229-5349
DCl R-194-021E
DCLR-230-3613
DClR-195-2323
DCLR-231-lDOO
DCLR-196-0D02
DClR-232-B026
DClR-197-C 38f
DClR-152-A706
DCLR-198-2B80
2180
2190
21AO OClR -19Q-C9B 8
21BO OCLR-207-22113
OClR-200-2B84
DCLR-208-C9BS
DC LR-201-2 207
DCLR-209-F4BO
DCL R.-20 2-C988
DCLR-210-0DI0
OClR-203-221B
DClR-212-C687
DCLR -204-f4A6
DCLR-213-E687
DClR-205-2010
OClR -211-F 207
DCLR-206-3B80
DCLR-218-221 E
21AO
2160
21CO DClR -219-7222
2100 DClR-227-~046
DClR-220-D8C6
DYPE-090-5AFF
DClR-221-3413
DYPE-091-1FC5
OCLR-222-2BOO
OYPE-092-DAF1
DClR-223-2400
DYPE-093-CADC
DCLR-224-5E22
DYPE-094- 2015
OCLR -225-021 E
DYPE-095-C060
DClR-226-1000
OVPE-096-4806
21CO
2100
21EO OYPE -097-957 A DYPE-09S:'''4086
21FO OYPE-I03-0F5B DYP E-I04-C4FD
OYPE-099-42CF
OVPE-I05-0FAB
OYPE-I00-F56B
DYPE-I06-C40A
DYPE-I01-7f38
OYPE-I07-2E13
DYPE-I02-8702
DVPE-I08-1545
DYPE-112-8l0E
OVPE-I09-C06F
OYPE-III-B36E
OYPE-IIO-81EO
21EO
2IfO
CONTROL STORAGE
2
4
6
8
A
C
E
2000-2lfE
CONTROL STORAGE ADDRESS LIST
0
2
4
6
8
A
C
E
22--
2200 CMl T-158-302 ';
221" OMCS-115-4C5D
O~CS-115-6C4D
CMlT-160-1025
OMCS-115-1C70
CMl T-161-A754
DMC S-115-19 7E
CMl T-162-89C4
DCLT-047-3000
DMCS-115-10 28
DCLT-049-2480
OMCS-115-303C
OCLT-050-5432
OMC S-115-50 78
OClT-051-C425
2200
2210
2220 DClT-052-E83-7518
CTRT-076-ZF07
CTRT-084-AAEA
2ACO
2AOO
_2AFC' CTRT-085-9!3DC
CTRT-086-E05D
(TQT-094-AA9C
CTRT-087-7B18
CT RT -OQS -F 77 A
CTRT-088-006B
CTRT-096-07FD
CTRT-OS9-3463
CTRT-097-C4FC
CTRT-C90-5773
CTRT-()9fl-1423
CTRT-091-0769
CTRT-099-2707
CTRT-OQZ-F4F5
CTRT-100-3443
ZAEO
2AFO
2~!=1)
CTRT-09~-148~
(rJNT ROl
STORAGE
C Icv-oa6-A99C
ClOAO=*E60, EC lEVE L= 12 8266 ,PAGE 300
2AOO-2BFE
2
C
4
6
8
A
C
E
2A-2B--
21300 (TRT-I01-AA o r.
2810 RSWI-Q68-FS94
0,
RSWI-l88-8A54
5tH -C 70- 9F 68
BSWI-054-DFE6
BSWI-082-2404
BSWI-05R-2G40
ASWT-086-F.:A9A
RSWI-059-2080
SSW 1-088-8782
BSWI-060-2406
BSWI-I0C-24R2
BSW [-0 62 -E 990
BSWI-102-FAAO
BSWI-064-9F36
BSWI-I03-BOC4
ZBOO
2810
2B20 '3SWI-I07-2400
2R30 BSWI-134-A2l8
p,<)WI-I08-2A07
PSWI-144-FB87
BSWi-llC-9248
8SWI-148-5007
BSWI-1l2-EL\/3
BSWI-150-EFBB
RSWI-l13-8178
BSWI-151-A3F2
8 SW I -114-C 1 E1
BSWI-15Z-0BC9
RSWI-115-8185
BSWI-153-0F89
BSWI-132-EBB3
BSWI-162-CBCA
2B20
2B30
2F\41) SSWI -164-2FC 7
2850 !3SWI"':172-3BEQ
RSW1 - 1 h 5- 50 8F
f3SWI-173-56AA
BSWI-166-5l9F
8SWI-174-0258
BSWI-167-0602
BSWI-175-88B4
BSWI-168-AED6
BSWI-176-1F2A
8SWI-16 Q -CF'3C
BSwI-177-24DO
BSWI-170-2404
BSWI-178-E903
BSWI-171-FFOA
BSWI-184-8A4C
2640
2B50
21360 !3SWI-l16-8C7A
2870 BSWT-131-BADO
BSWI-117-01BC
CLOG-126- AB 25
BSWI-118-0040
CLOG -1 27 -5 FlO
BSWI-1l9-FFAF
ClOG-128-6F55
BSWI-123-59BF
ClOG-129-A85 2
BSWI-124-1BFF
CNVR-05 8- 2B 83
B$WI-129-0640
CN VR -059- 3B15
BSWI-130-2115
C NVR -060-4E A6
2B60
2670
:?BRC Cf\JV R-" 61- 5 71 9
21390 CNVR-069-573B
C\lVR-Oh2-77EJ:
C~JVR-C70-8F2C
CNVR-063-F.589
CNVR - 0 71 - 7 ~ AF
CNVR-064-5A E4
CNVR-072-C19A
CNVR -065 -77E8
CNVR-073 -9BOC
CNVR -06 6- OF FB
CNVR-074-73EO
CN VR-C67-F080
CNVR-O 75-5 55B
CNVR-068-5710
CNVR-076-3533
2880
2890
2BAO CNVR-O 77-1(1C E
2BBO CNVR-085-5DEO
CNVR -0 18- E426
CNVR-086-SDC5
CNVR-079-3002
CNVR-087-B070
CNVR-080-2407
CNVR-088-527B
CNVR-081-2907
CNVR-089-0FFB
CNVR-C82-0040
CNVR-090-FOE8
CNVR -::> 83-4EA6
CN VR-O 91-7 7E 0
CNVR-084-2207
CNVR-092-14FF
2BAO
2B80
28CO CNVR -093-C4CA
2800 CNV P -1 1 1- 8 1 7 6
CNVR-094-4203
CI\IVR-112-C50A
CNVR-0<)S-7900
CNVR-113-E5DC
CNVR-096-794A
CNVR-1l4-CF62
CNVR-O 97-C 14F
CNVQ.-1l5-ABOC
CNVR-098-520D
CNVR -1l6-CF 63
CNVR-099-A BA 8
CNVR-117-47BB
CNVR-llO-5QFQ
CNVR-118-0BFB
2BCO
2BOO
2BEO CNVP-119-C4E7
2BFO CNVR-I04-C4F8
CNVR-120- 2B93
CNVR-105-5AA4
CNVR-121-89FC
CNVR-106-77E8
CNVR-122-8185
CNVR-IO 7-A8 BO
CNVR-100-5DCO
CNVR-I08-2040
CNVR-I01-8070
CNVR-IOQ-ABF4
CNVR-102-4275
CDVD-098-8176
CNVR-I0 3-01 F5
CDVO-099-ABE2
28EO
2BFO
CONTROL STORAGE
2
4
6
8
A
C
E
2AOO-2BFE
CONTROL STORAGE ADDRESS LIST
0
2
CLOAD=*E60, EC LEVEL==128266 ,PAGE 301
2COO-20FE
4
6
8
A
C
E
2C--
2COO ClST -040-8 AC 8
2C10 CLST-020-4EE6
CLST-04l-C639
CLS T-0 2 1- 46 66
CL ST-042 -B30A
CL ST-022-05C 7
CLST-043-ACOE
CLST-02 3-AC 30
CLST-014-2B83
CBIN-026-B3F6
CLST-015-89FC
CBIN-027-8462
CL ST -0 IS-8ACB
CBIN-028-E4BO
CLST-019-C625
CBIN-029-E5BO
2COO
2CIO
2C2,) CBIN-030-C62'i
2C30 CLST-034-2CO 7
CBIN-031-AC46
CLST-03 5-AC48
CLST-036-2C55
CLST-005-8AC8
CLST-037-AC48
CLST-006-C610
CLST-030-8AC8
ClST-001-B3DA
CLST-031-C625
CLST-008-C610
CL ST-O 32-B30A
CLST-009-16A8
CLST-033-C625
CLST-OIO-7EAA
2C20
2C30
2C40 CLST -0 11-2C15
2C5e CNVR-006-0 18 3
CLST-012-CD09
CNVR-007-F007
CL ST -0 13-8185
CNVR-008-AE94
CLST-024-2C25
CNVR-009-9814
CLST-025-16A8
CNVR-O 10 -lOC E
Cl ST-026-7EAA
CNVR-01l-FO 5E
CLST-027-8185
CNVR-O 12-AB1A
CNVR-005-AB25
CNVR-013-AE16
2C40
2C50
2C60 CNVR-O 14-2B0 7
2C70 CNVR,-022-2013
CNVR-Ol5-1Al8
CNVR-023-C619
CNVR-O 16-C66A
CNVR-024-ADIC
CNVR-OI1-B30A
CNVR-02 5-C6 74
CNVR-018-2C40
CNVR-026-ACFE
CNVR-019-42 A6
CNVR -02 7-C6 79
CNVR -0 20-44A6
CNVR-028-AOOO
CNVR-021-48A6
CNVR-029-AC1A
2C60
2C10
2C9~
2C80 CBRC-ll9-168D
CBRC -095-55B 3
CBRC-120-C630
CBRC-096-56A8
CBRC-121-F03F
CBRC-097-5CAA
CBRC-12 2-A906
C B~ C-098-6D38
CBRC-09l-9816
CBRC -099-6C2 0
CBRC-092-55BB
CBRC-100-6790
CBRC-093-58A8
CBRC-101-6680
CBRC-094-5iAA
CBRC-l02-3BI5
2C80
2C90
2CAl) CBRC -1 03-5 SA 8
2CBO CBRC-lll-7C2D
CBRC -104- 52AA
CBRC-112-1790
CBRC-l05-55BB
CBRC-113-768D
CBRC-106-76AR
CBRC-1l4-8178
CBRC-I07-1CAA
CBRC-115-E481
CBRC-108-0G04
CBRC-li6-E583
CBRC-l09-3002
CBRC-117-F001
C8RC-I10-1030
CBRC-118-81B5
2CAO
2CBO
2eco CLST-066-AB25
2COO CLST-074-5769
CLST-067-0IE3
CLS T-075- AC48
CLST-068-FOE4
CL ST-055-AB25
CLS T-069-55 BB
ClST-056-01 E3
CLST-070-5EIO
ClST-057-FOE4
CLST-071-2701
CLST-058-55BB
CLST-072-CE50
CLST-059-2B2B
CLST-013-27F1
CLST-060-52AO
2CCO
2COO
2CE0 CLST -061-721 !)
2CF" CLST-115-5531
CLST-062-8185
CLST-116-6351
CL ST-063-AE94
CLST-111-C4E3
CLST-l10-AB25
CLST-1UJ-25l0
CLST-1 11-0 1C 3
ClST-119-558B
CLST-112-F0E4
CLST-120-128E
CL ST-l13-55BB
5007
CLS T-114-12 8E
CNVR-030-3915
2CEO
2CFO
CONTROL
STORAGE
0
2000 CNVR-031-EOl F
2D1" CNVR -0 39-6FF Q,
2
4
6
8
A
C
E
2C-20--
CNVR-032-0002
CNVR-040-6EED
CNVR-033-199F
CN VR-041-6 710
CNVR-034-788F
CNVR-042-6660
CNVR-035-755F
CNVR-043-E01F
CNVR-O 36-744F
CNVP.-044-2DIB
CNVR-031-133F
CN YR. -045-128 E
CNVR-038-722F
CNVR-046-4686
2000
2010
2D20 CNYR-1)41-817 A CNVR-048- 27CB
2D30 CNVR-O 55-761 8 CNVR-056-8185
CNVR-049-C 928
CBIN-068-2C25
CNVR-050-11M3
CBI N-069-8I85
CNYR-051-01AC
CBIN-063-F5BF
CNVR-052-3713
CB IN-C64-2C 55
CNVR-C 53-1218
CBIN-065-8185
CNVR-054-7418
CBI N-066-2C75
2020
2030
2D40 CBIN-061-B18,)
2050 CBIN-062-8185
C[5 11\1-055- B3F6
C8IN-008-B3F6
CBIN-056-B462
CBIN-009-B460
CBI N- 0 5 7- 76 AB
CBIN-OIO-E40A
CF.HN-O 58-1EAA
CBIN-Oll-168D
CBIN-059-E5B9
CBIN-CI2-E5CE
CB IN-060-F 5B5
CBIN-013-C63B
CB I N-06l-2C07
C81 N-014-2C25
2040
2050
2060 CBIN-OI5-818S
2070 CLOG -169-25F F
CLOG-162-6F15
CLOG-170-F4E9
CL OG-163-A B25
CLOG-l 11-A848
CLOG-164-10CE
Ci..pG-200-55BB
ClOG-165-5138
ClOG-20l-2E01
ClOG-166-5FlO
CLOG-202-7EA8
CLOG-161-67Fl
CLOG-203-70AO
CLOG-168-7118
CLOG-204-8185
2060
2010
2080 caRc -066-AAO 6
2090 CB~C-051-7CC 2
CBRC-063- 2B 33
CBRC -052-7B92
CBRC-064-89FE
CB RC-O 53 -1482
CBRC-065- AE94
CBRC-054-4A06
CBRC-041-AB2 5
CBRC-055-0020
CBRC-048-01E3
CBRC -05 6- 55 BB
CBRC-049-F086
CBRC-057-C481
C8RC-050-E182
CBRC-058-5498
2080
2090
?DAO CBRC-059-2B3B CBRC-060-53AO
2DBO CBRC-O 72-50A G CBRC-074-2040
CBRC-061-6535
CBRC-075-55BB
CBRC-062-B463
CBRC-016-56 AB
CBRC-068-0040
CBRC-011-52AA
CBRC-069- 5583
CBRC-078-000A
CBRC-010-C4B5
CBRC-079-13A9
CBRC-07l-5EA8
C8R(-080-72A9
20AO
20BO
20CO CBRC -0 R1-77 A9
2000 CTRT-003-AB25
CBRC-082-16A9
CTRT-004-2601
CBRC-083-76A8
CTRT-005-2E01
C6RC-084-72 AA
CTRT-006-5FI0
CBRC-085-05CO
CTRT-007-6F38
CBRC-CB6-BIB5
CTRT-008-6E20
CBRC-O B1-0 ICA
CTRT-009-6610
CBRC-088-A906
CTRT-OIO-A225
20CO
2000
2DEO CTRT -0 11-5FF 0
20FO CTRT-019-25FF
CTRT-012':"F060
CTR T-020-F4D5
CTRT-013-1FI8
CTRT-021-AA74
CTRT-014-25FF
CCOM-166-2400
CTRT-O 15-F405
CCOM-16"7-2C15
CTRT-Ol6-8185
CCOM-l68-8185
CTRT-OI7-ABOI
CICY-079-2B23
CTRT-018-5004
CICY-OaO-89FC
20EO
20FO
CONTROL STORAGE
2
4
6
8
A
C
E
2COO-20FE
CONTROL STORAGE ADDRESS lIST
0
2
ClOAD=*E60, EC lEVEl=128266 ,PAGE 302
2EOO-2FFE
4
6
8
A
C
E
2E--
2EOO CCOM-a 25-23F 7
21== 10 CCOM-OI7-230'5
CCOM-026-C492
CCOM-018-5329
CCOM-027-AE94
CC OM-O 19-40E6
CCOM-012-AB25
CCOM-020-55 BB
CCOM-013-0IE3
CCOM-021-56A8
CCOM-014-F084
CCOM-022-5EAA
CCOM-O I5-5EI0
CCOM-023-100E
CCOM-Ol6-CEOI
CCOM-024-128E
2EOO
2EIO
2E20 ClOG-O 26-6F75
2E30 CLOG -034-818 '5
ClOG-027- AB25
CST $-087- 558B
Cl OG-028-5 738
CSTS-088-5EAO
ClOG-029-5F 10
CST$-089-4E03
ClOG-030-4F7D
C STS-090-5ECB
CLOG-03l-7718
CSTS-091-1CC5
ClOG-O 32-25FF
CSTS-092-FC40
ClOG-033-F4A5
CSTS-093-3C45
2E20
2E30
2E40 CC)TS-094-7CC2
2E50 CSTS-082-818 5
CST$-095-8I85
CSTS-083:"2C05
CSTS-076-AB25
CS TS-O 84-818 '5
CST S- 077 - 2 F F 7
ClOG-016-6F75
CSTS-078-571 0
ClOG-017-AB25
CSTS-079-7FIO
ClOG-018-5138
CSTS-080-C 752
ClOG-019-5FIO
CSTS-081-2C55
ClOG-020-4F7B
2E40
2E50
2E60 CLOG -021-771 8
2E70 CMPU-C'12-5BF I
ClOG-022-25FF
cr-'PU-013-7F lA
CLOG-023-F40A
CMPU-014-5559
ClOG-02 4- 8185
CMPU-015-8093
CMPU-OCB-27F5
CB IN-051-8270
CMPIJ-009-C96E
CBIN-052-A044
CMPU-O 10-2755
CLOG-008-6F75
CMPU-Oll-5B3A
ClOG-009-AB25
2E60
2E70
2E80 ClOG-O 10-5738
2E90 C ICV -068-0 IC 3
CLOG-Ol1-7718
C Ie V-069-F08B
ClOG-012-25FF
CI CY-070-2B63
ClOG-013-F481
CICY-071-89FC
ClOG-014-8l85
ClST-046-5583
CICY-072-B07l
ClST-047-56A8
CICY-066-A608
ClST-048-5EAA
C ICY-06 7-A825
ClST-049-55BB
2E80
2E90
2EAO CLS T-050 -76A 8
2EP-O ClOG-197-8185
CLST-051-7F.AA
r::LST-OQ6-55B6
Cl5T-052-8l85
Cl ST -087-5618
CLOG-192-AB25
ClST-088-5EIO
CLOG-193-55BB
ClST-089-76A8
ClOG-194-2B3B
ClST-090-7EAO
ClOG-195-57AO
ClST-091-8185
ClOG-196-7710
ClST-078-556B
2EAO
2EBO
2ECO ClS T-079-56A R
2EOO CCOM-158-2400
CLST-080-5EAA
CCOM-159-2C55
ClST-081-7618
CCOM-160-8185
ClST-082-7EIO
BSTP-002-2404
ClST-OB3-8185
8STP-003-CFOF
CCOM-162-2400
BSTP-004-0F OF
CCOM-163-2C25
BSTP-005-CEEO
CCOM-164-8185
BSTP-006-A820
2ECO
2EOO
2EEO '3STP-007-81AA
2EFO FILE -364-5CC4
f:\STP-008-4E86
F IlE-365-7C52
BSTP-021-26C3
J:: I lE -366-128E
6 STP-02 3-2707
COVO-046-2CIB
8 STP-024-2213
COVO-047-611 0
BSTP-025-9ACA
COVO-048-6000
FllE-362-4C52
COVO-C49-6330
F Il E-363-7C62
COVO-050-6220
2EEO
2EFO
CONTROL
STORAGE
0
2
4
6
8
A
C
2E-2F--
E
COVO-052-6990
CDVD-060-78EO
COVD-053-6880
:OVO-061-7570
COVO-054-655D
COVO-062-7460
COVO-055-6440
COVO-063-56C9
COVD-056-128E
COVD-064-5209
CDVO-O 57-C 418
COVD-065-E827
COVO-058-1002
CDVO-066-C436
2FOO
2F 10
2F20 COVD-067-96S A COVD-068-C436
21=30 cova -075-D5J:)A CDVD-076-CD3B
CDVO-069-ABFC
CDVO-077-ABFC
COVD-070-C42B
COVO-078-F82D
CDVO-07l-968A
COVD-079-C 02 5
CDVD-072-F839
CDvo-oaC-5BBB
COVO-073-968E
COVO-081-72A8
COVO-074-5209
COVO-082-70AA
2F20
2F30
2F40 CI)VD-G 83-un 5
2F50 CMl T-O 88 - 512 q
CDVO-084-74A8
CML T-089-5019
CO VO-O 85-7 8AA
CMlT-090-5709
COVO-086-8176
CML T-091-5679
COVO-087-AA76
CMl T-092-5B69
CMlT-085-5EF9
CMLT-093-5AB9
CMLT-086-53E9
CMlT-094-55A9
CMl T-087-5239
CMlT-095-5459
2F40
2F50
2F60 CMt T-096-240 7
2F70 OCle-12l-l635
CMLT-097-C56E
OCLC-122-C3F7
eM l T-098-0 58F
OCLC-123-A7AE
CML T-099-EO EC
OCL C-12 5- B4 88
CMlT-10O-C16E
OPTC-059-2185
CMlT-IOI-C5EE
OPTC-060- 2138
CMlT-l02-24F7
OPTC-061-5404
CMl T-I03-128E
OPTC-062-2413
2F60
2F70
2F80 DPTC-063-88BC
2F90 OPTC-071-10F3
OPTC-064-2482
OPTC-072-EA96
OP TC-065-4F4F
OP TC-O 73-3013
DPTC-066-1DOO
DPTC-074-2404
DPTC-067-2004
OPTC-075-2F43
OPTC-068-2FIO
DPTC-076- 50 35
OPTC -069-5B2F
DPTC-O 77-2 3FD
DPTC-070-5FOF
OPTC-078-0361
2F80
2F90
2FAO OPTC-079-F4A4
2FBO DPTC-O 81-88CC
DPTC-090-13Bl
OPTC-088-2478
OP TC-O 81-8 8C E
DPTC-OaQ-24AO
OPTC-082-503D
OPTC-090-F4BB
DPTC-083-2FFF
OPTC-09l-6413
DPTC-084-FB10
OPTC-092-2428
OPTC-085-5209
DPTC-093-25FF
OPTC-OB6-EBlS
OPTC-094-C4C2
2FAO
2FBO
2FCO OPTC -095-A6A F.
2FOO DClB-O 15-81F 8
DPTC-096-054B
OClB-017-2486
DP TC-097-F08 2
DClS-OlS-2B80
OPT C-09 8- AF 80
OCl8-019-7212
DCl8-006-2045
OClB-020 -24F6
OClS-OO 7-7022
OClB-021-5622
OClB-O 10-2 625
DClB-022-2407
DClB-014-2787
OClB-023-2585
2FCO
2FOO
2FEO OCLB-024-354 "3
2FFO DClB-O 32-AFF 8
OClS-025--5148
DCl8-004-C648
OGl8-026-6I7l
OClB-005-AECA
OClB-027-C4F1
OClB-033-5651
OCl8-028-C162
OClB-034-5212
OClB-029- 25CB
OClB-035-95F4
OClB-030-F563
CMlT-179-3002
OClB-031-2507
CMl1-180-8412
2FEO
2FFO
2FOO COV D-0 '5 1 - ECO f)
2FIO CDVD-059-19FD
CONTROL STORAGE
2
4
6
8
A
C
E
2EOO-2FFE
CONTROL STORAGE ADORE SS lIST
0
2
3000-31FE
4
6
ClOAO=*E60,
8
A
EC lEVEl=128266 ,PAGE 303
C
E
30--
3000 OCLR-076-0240
3010 OCLR -0 33-15C 5
OCLR-002-C3CO
DCLR-034- 34A5
DC lR-003-A 706
!)CLI~-036-C398
OCLR-013-0623
DCl R-03 8-9F 5C
OCLR-019-1173
OCLR-043-E71E
OClR-030-8F 7A
DCLR-047-F71E
OClR-031-C510
DCLR -0 48-B4 78
OCLR-032-2EC3
OClR-052-B43C
3000
3010
3()20 OCLR -0 53-806 8
3030 DClR-068-3413
nCLR-061-2425
OClR-069-2205
DCLR-062-54E9
ac lR-070-7602
OCL R-06 3-15 C5
DClR-071-204C
DCLR-064-1513
OClR-012-C681
DCLR-065-CC AE
OCLR-073-E681
OCLR-066-9660
OClR-074-2BOO
OClR-067-0010
OClR-075-A7A4
3020
3030
3040 OClR-O 04-F 20 7
3050 C FCO -123-F 45 F
OCLR-008-2400
CFCO-124-56AA
OClR-009-2F25
CFCO-125-717o
DCl R-Ol 0-2EOS
CFC 0-126-7060
DCLR-O ll-A030
C FCO-12 7-56AA
CFCO-120-3BE3
CFCO-128-7370
CFCO-121-F452
CFCO-129-726D
CFCO-122-1843
CfCO-130-56AA
3040
3050
3060 CFCO-131-7970
3070 CNVP -123-522 I)
C FCO-132-786D
CNVR-124-6223
CFCO-133-56AO
C NVR-125-5 239
CFCO-134-7F 70
CNVR-126-6223
CFCO-135-CIEo
CNVR-121-6223
CFCO-136-128E
CNVR-128-6233
CFCO-137-7E6o
CNVR-129-62C3
CFCO-138-128E
CNVR-130-128E
3060
3070
3080 OCLE -073-0313
3090 DCLE -0 53-E61F3
OClE-074-C4B4
DCLE-054-FOC}9
DC lE-O 75 -9E02
OCLE-055-262B
OCl E-04 8- 5F 7F
OCl E-056-F090
DCLE-049-FC9B
OCLE-051-A78E
OClE-050-2007
OCLE-047-AI54
OCLE-051-4FOF
DCLE-060-FCA2
OCLE-052-2B02
OCLE-061-0002
3080
3090
DClf?-062-34R ~
f)Cl~ -0 70-FC81
f)CLE-063- 5439
OClE-C71-3345
DC LE-064-C528
DC lE -0 72-A 782
OCL E-06 5-lS 65
DCLE-040-C087
OCLE-066-5F4F
DClE-041-262B
DCL E-06 7-FC 9B
f)ClE-042-C087
OClE-C68-E 501
DClE-043-E 636
OClE-069-0583
oClE-044-oo9S
30AO
3080
30CO OClE -045-2 BOO
3000 OPTQ -009-0 EC 3
DCl E-046- 0244
f)PTQ-OIO-FOEO
OP TQ-003-4642
DPTQ-Oll-0562
OPTQ-004-8F 74
DPTQ-012-8064
DPTQ-005 -015 8
DPTQ-013-C465
OPH.;)-OO 6-C468
OPTQ-OI4-CAE8
DPTQ-007-CE04
DPTQ-015-3485
DPTQ-008-8FOO
OPTQ-016-2E43
30CO
3000
3liEO f)PTQ-017-15C')
30FO OVL Y-004-46S 2
OPTQ-OI8-8D68
IJVL Y-006- 24CS
OPTQ-019-CECF
DVLY-022-57S9
OPTQ-020-DA63
OVL Y-02 4-2C 05
DPTQ-021-A820
OVLY-C42-5709
5007
OVLY-C43-4068
OVLY-C02-3212
OVlY-045-5248
OVLY-003-3800
OVLY-055-6021
30 EO
30FO
30~O
30AO
CONTROL
STORAGE
0
2
4
6
8
A
C
E
30-31--
3100 OVLY-056-C4AA
3110 OVl Y-(l74-C49 A
QVLY-057-6131
o Vl Y-075- 6311
OVLY-058-C48A
JV LY-076-C49A
OVl Y-05 9-F 229
OVLY-077-6068
OVL Y-060-80F 8
OVLY-078-BI06
OVLY-062-50C8
OVlY-079-4268
OVlY-072-6666
OVlY-080-6021
OVlY-073-6201
OVLY-081-C4A4
3100
3110
3120 OVL Y-082-6131
3130 COMO-152-4826
QVl Y-083-C487
C !)~D-153- 57B9
OVlY-084-2820
COMD-154-C 588
OVLY-086-2800
CDMo-155-0B9F
OVLY-087-1212
COMD-156-008E
OVLY-088-5007
COMO-157-01CC
DVLY-089-BI2A
COMO-158-EOEO
CDMO-151-2040
CDMD-159-7BIA
3120
3130
3140 COMO -160-5886
3150 COj\lm-176-2A9~
COMO-161- 5710
CDMD-177-56F2
CI)MO-162-0040
COMo-I 78-5 7Cc}
COMO-16 3- 2E FF
COj\l1D-179-1000
COMO-164-C4B2
COMO-180-0BB1
COMO-165-80B8
CDMO-181-EOOF
CO"1O-174-FOBD
COMO-182-3002
COMO-175-5BBD
CO"'0-183-9456
3140
3150
3160 COMO-166-2040
3170 CFCD -056-000 8
COMD-161-2A95
CFCO-057-6FF5
COMo-168-56E2
CFCO-O 58-4 8R6
C 0"'0-169-57 C9
CFCO-059-F470
CO~0-170-1000
CFCO-060-4226
COMO-171-0BB9
CFCD-061-4006
COMO-172-F4oo
CFCO-062-128E
CDMO-173-9456
CFHA-006-2C 13
3160
3110
3180 CFHA-007-9f1E4
3190 CFHA-O 15-(4A6
CFHA-008-9DE4
CFHA-016-B2F8
CF HA-009-90E4
CFHA-OI7-2507
CFHA-OI0-t\656
CFHA-018-2EFF
CFHA-OI1-5CC2
CFHA-OI9-E482
CFHA-OI2-05A4
CFHA-020-F4B5
CFHA-O 13-2A01
CFHA-021-BI8E
CFHA-OI4-0FF3
CFHA-028-E021
3180
3190
31AO CFHA-029-0080
31130 CFHA-()37-8Q!=C
C FHA-030-:" 96-6C
CFHA-022-F490
CFHA-031-2E07
CFHA-023-E022
CFHA-032-896A
CFHA-024-1E8D
C FHA-033-817 A
CFHA-025-2703
CFHA-034-CIAF
CFHA-026-20S0
CFHA-035-AA16
CFHA-027-Bl8E
CFHA-036-57B9
oUMP-014-2A15
31AO
31BO
31CO OtJMP-019-2E=13
3100 DVMP-027-A606
DUMP-020-25B3
DUMP-028-4626
DUMP-021-252o
OU MP-029-C058
OUMP-022-2F85
DUMP-030-BIE2
DUMP-023-2F3B
OUMP-034-5638
OUMP-C24-C053
DUMP-035-56B5
OUMP-O 25-2 B45
OUMP-036-A5FC
DUMP-026-A606
DUMP-037-56B9
31CO
3100
31EO l)UMP -0 38-A 5F C
31FO DUMP-046-C4F4
OUMP-039';" 57135
DUM P -041- A606
OUMP-040-A 5fC
DUMP-048-BIF6
DUMP-041-57B9
OUMP-031-C059
DUMP-042-A5FC
DUMP-O 32 -562 8
DUMP-043-2B45
oUMP-033-BIOA
OUIt1P-044-A606
BWRP-133-2B95
OUHP-045-0530
BWRP-134-904C
3IEO
31FO
CONTROL STORAGE
2
4
6
8
A
C
E
3000-31FE
CONTROL STORAGE ADDRE SS lIST
2
0
ClOAD=*E60. EC lEVEl=128266 ,PAGE 304
3200-33FE
4
6
8
A
C
E
32--
3200 ETTR-046-3625
3? 10 ETTR -0 2a-CDA 1
ETTR-047-B22E
ETTR -029- 3BOO
ETTR-022-EAB4
ETTR-030-2E15
ETTR-023-5BDF
ETTR-031-51FD
ETTR-024-5FOO
ETTR-032-2FFD
ETTR-025-1D08
ETTR-03 3- 5D EO
ETTR-O 26-6C Fl
ETTR-C34-60C5
ETTR-021-C4Al
ETTR-035-70EO
3200
3210
3220 ETTR -0 36 - 2 71 !3
3230 ETTR-044-0D04
ETTR-037- FOA8
ETTR-045-B236
ETTR-038-276B
ETTR-048-5BDF
ETTR-039-EO AS
ETTR-049-30 B9
ETTR-040-0206
ETTR-050-2lA5
ETTR-041-C081
ETTR-051-2145
ETTR -0 42-00BO
ETTR-052-B224
ETTR-043-2020
OMCS-076-5038
3220
3230
3240 OMCS -0 77-3 58 '5
3250 DMCS -0 85-D76 7
DMCS-078-2BlB
DMCS-086-C566
OMCS-079-7BCO
DMCS-090-2515
DMC S-080-FE4F
DMCS-091-C167
OMCS-08I-2D40
DMCS-092-4948
DMCS-08 2- 264D
OMCS-093-6901
DMCS-083-F4C4
OMCS-094-C406
DMCS-084-CBE7
OMCS-095-f163
3240
3250
3260 DMCS -0 96-6446
3270 DMCS-108-54E2
DMC S-097-4040
DMCS-109-56F2
OMCS-098-B244
OMCS-110-2105
DMC S- 100 - 5 B'59
DMCS-1l1-2E43
DMC$-101-6511
OMCS-112-8D48
OMCS-102-C4BE
Cl OG-04 7- 8210
OMCS -1 06-2 005
ClOG-048-A86C
OMC5-l07-77CO
.5007
3260
3270
3280 CSFT-140-6EA 1
3290 CSFT -148-56F 9
CSFT-14I-C48C
C SF T-149- 5769
CSFT-142-D l8A
CSFT-150-D031
C SF T-l4 3-CFOF
CSFT-151-2707
CSFT-144-3000
CSFT-152-128E
CSFT-l45-CFOE
CSFT-129-F001
CSFT-l46-3000
CSFT-130-0026
CSFT-147-5FE9
CSFT-13I-5019
3280
3290
32AO CSFT-132-5.3C9
32RD CSFT-153-527'1
C SFT-133- 5239
C. SF T-I 54- 5329
CSFT-134-5729
CSFT-155-5039
CSFT-135-5679
CSFT-156-5109
CSFT-136-5F69
CSFT-157-2107
CSFT-137-5EF9
CSFT-158-12 BE
CSFT-138-5AE9
CDVD-006-5618
CSFT-139-128E
CDVD-001-5EIO
32AO
3280
32CO CDVO-008-5 5B B Cf1VO-OO9-F5it6
3200 CDva-o 16-50A A CDVD-OI7-C658
COVO-010-AE94
C[)VD-C18-B3DA
CDVO-011-9814
CDVD-OI9-3B 13
CDVD-012-54A8
CDVD-020-C45E
CDVO-013-58AA
CDVD-021-9616
CDVD-014-3B15
CDVO-022-3B23
CDVO-015-52A8
COVO-023-4C86
32CO
3200
CDVO-025-7DFD
COVO-033-10CE
COVO-026-7CEO
CD VO-O 34-A EF 8
CDV 0-02 7-4C 46
COVO-03 5- SODC
COVO-028-1070
CFCO-O 34-5FF 3
CDVD-029-7C60
CFCO-C35-48F5
CDVO-C 30-F 5FO
CFCO-036-5883
COVD-031-ABFC
CFC 0- 037-4985
32EO
32fO
3?EO CDVO -024-3002
32FO COVO -0 32-4C5?
CONTROL
STORAGE
2
('
4
6
8
A
C
E
32-33--
3300 CFCJ-038-5qq~
3310 CFCO-('46-403 5
CFCO-039-F408
CFCO-041- 5003
CFCO-040-4595
CFCO-048-4105
CFCO-041-128E
CFCO-049-5113
CFCO-042-429S
CFCD-O 50-4S15
CFCO-043-5223
CFCO-C51-12 BE
CFCO-044-4325
DVPE-202-2791
CFCO-045-5333
OYPE-203-5B60
3300
3310
3320 DVPf -204-5BBB
3330 OYPE-212-EFR5
DYPE-205-7B60
OVP E- 213- 81 OC
DVPE-206-6664
DVPE-214-8CD4
DVPE-207-2404
OVPE-219-8CB8
OVPE-208-8F7A
DVPE-215-8CDE
OVPE-2C9-0F04
OYPE-216- 3623
OVPE-210-DI39
DYPE-211-CE37
OYPE-211-C438
OYPE-218-8CA4
3320
3330
334" CSFT-IC7-DC52
3350 CSFT-115-4723
CSFT-I08-S115
C SF T-116-5 775
CSFT-I09-4013
CSFT-117-4673
CSFT-IIO-50C'5
CSFT-1l8-5665
CSFT-111-4303
CSFT-119-4F63
CSFT-112-5335
CSFT-120-5FF5
CSFT-113-4233
CSFT-121-4EF3
CSFT-1l4-52 25
CSFT-122-5EE5
3340
3350
336(~ CSFT-123-4AE3
3370 DYPE-07'3-3FI5
C SFT-124-128E
DYPE-074-1FOO
CS T5-098-55B9
DVPE-075-2F08
CST S-I 0 4- 2125
OYPE-076-4FFF
CSTS-I06-2f07
DYPE-077-0F2C
CSTS-107-2118
DYPE-078-3485
CSTS-I08-8A02
DYPE-019-1483
OVPE-072-2F53
OYPE-080-5D09
3360
3310
3380 DyPE -0 81-C49 1
3390 DCLl-002-42A6
I) YP
F. -082- 3E 23
DCLl-003-44A6
DY PE -083-15C5
DCll-004-2423
DVPE-084-DSOD
OCll-005-74B8
OYPE-085-3E83
DCll-006-70B8
OYPE-086- 8F BE
DCll -007-2465
OYPE-087-8378
DCll-008-74B8
DYPE-088-AB20
OCll-009-2115
3380
3390
33A.O DCll-OIO-3183
33BO DCll-018-894E
DCll-OII-70B8
DUMP-002-1F2A
OCll-O 12-3 B45
DUMP-003-9812
DCl l-013-46 A6
DUMP-004-2482
OCll-014-17FO
DUMP-005-3002
DCll-OI5-8ADA
DUMP-006-2F03
OCll-O 16-10FS
OUMP-C07-0ll1
OCll-017-24C3
OUMP-008-F4C3
33AO
3380
33CO DU~P-009-211 B
3300 CDMD-217 -5F6A
f1UMP-OIO-4252
CDMD-218-7DFF
DUMP-OI1-4426
CDMO-2I9-703A
DUMP-012-A636
CDMO-220-C34F
COMO-213-300 2
COMD-221-128E
COMO-214-56F2
CCOM-076-2002
COMD-215-4206
CCOM-077-7FFB
COMO-216-5030
CCOM-078-7EEB
33CO
3300
33EO CCOM-079-777B
33FO ERRQ-I05-12AE
CCOM~080:"-766B
E RRQ-I06- 2BB1
CCOM-O 81-1 OOA
ERRQ-107-C4EE
CCOM-OB2-12 8E
CCOM-045-5218
ERRQ-IOl-2A15
CCO"1-046-5010
ERRQ-I02-FT72
CCOM-047-55BB
ERRQ-I03-2BF5
CCOM-048-56A8
ERRQ-I04-1CAA
CCOM-049-5EAA
33EO
33FO
CONTROL STORAGE
2
4
6
8
A
C
E
3200-33FE
CONTROL STORAGE
~DDRF.SS
0
LIST
2
CLOAO=*E60, EC LEVEl=128266 ,PAGE 305
3400-35FE
4
6
8
A
C
E
34--
3400 CCOM-OSO-IOO E
3410 DC a M-(186 - 1 2 R E
CCOM-051-128E
CLS T -094- AC E6
DCOM-OAO-2E07
CLST-095-52A8
DCOM- 081-74 68
CLST-096-7218
DCOM-082-7E68
CLST-:)97-52AO
DCOM-OB 3-7060
CLST-098-1218
DCOM -0 84-C 511
CL ST -099-ACFO
DCOM-085-2A01
ClST-IOO-8414
3400
3410
3420 CLST-I03-ACEh
3430 CFCO-091-58AR
CLST-I04-5218
CFCO-092-F439
CLST-105-72A8
CFCO-093-52A8
CLST-I06-5218
CFCO-094-50AO
CLST-I07-72AO
CFCO-095-1B13
CLST-I08-ACFO
CFCO-C96-128E
ClST-I09-B422
ERRQ -1 09-F 744
CFCO-090-5EA8
ERRQ-ll C- 0243
3420
3430
3440
3450
o PTT -092 -148 c;
-111-0 DC> 4
EQ.RQ-1l2-128E
DPTT-O
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 10:41:56-08:00
Modify Date : 2012:11:29 13:15:21-08:00
Metadata Date : 2012:11:29 13:15:21-08:00
Producer : Adobe Acrobat 9.52 Paper Capture Plug-in
Format : application/pdf
Document ID : uuid:1b2439d5-25f8-4bd7-8671-7aca7f347034
Instance ID : uuid:400aff68-61e2-42c8-b906-f6ad7b18ee10
Page Layout : SinglePage
Page Mode : UseNone
Page Count : 311
EXIF Metadata provided by EXIF.tools