A2SB_1620_Simulator A2SB 1620 Simulator

A2SB_1620_Simulator A2SB_1620_Simulator

User Manual: A2SB_1620_Simulator

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

Download
Open PDF In Browser	View PDF

A2SB

1620 SIMULATOR

lOC OBJECT CODE

PAGE

ADDR1 ADDR2 STMT

SOURCE STATEMENT

2
3
4

*

23
24
25
26
27
28
29
30
31

*

ASH H V OS 22.10 05/07/81

THIS FILE IS AN Al TERA HON OF ORIGINAL SOURCE TO CONFORH TO

HORE SOPHISTICATED ASSEMBLER.
*
* SPECIFICALLY, USING THE CONDITIONAL ASSEMBLY TO PERFORM THE
FUNCTION OF THE EDITOR PROGRAM SUPPLIED WITH THE PACKAGE.
5 *
6 *
7 * FURTHER MODIFICATIONS MADE TO ALLOW RUNNING UNDER CMS
1. CARD 1/0 VIA CMS AND CP SPOOL ONLY
8 *
2. ELIMINATE THE 'B *' WAIT LOOPS
9 *
3. 2 POSITION ADCONS NOW FULLWORDS. I.E. lOTS OF LH CHANGED
10 *
TO L INSNS.
11*
4. STANO-ALONE LOADER STUFF REMOVED
12 *
5. MACHINE CHECK STUFF REMOVED
13 *
6. TERMINAL I/O VIA WRTERH AND LINEDIT
14 *
15 *
16 * HERE ARE THE CONDITIONAL ASSEMBLY TRANSLATIONS
17 *
18 * NOTE: THE SIMULATED 1620 IS AL~AYS ASSUMED TO HAVE
A 2540 READER/PUNCH, 1403 PRINTER, AND A CONSOLE
19 *
20 *
21 * ALL OTHER I/O DEVICES ARE SPECIFIED BY SETTING BITS ON IN
APPROPRIATE BINARY VARIABLES.
22 *

32

33
34
35 *

36*

000000
00000
01000
02000

37
38
39
40
41
42
43
44
45
46
47
48
49
50
51

*

SET
SCORE
&HODEl
&INDEX
&TRANS
&DIVIDE
&FlOAT

*

GBLA
GBlA
GBLB
GBlB
GBlB
GBlB
GBlB
GBlS
GeLe
GBLB
ACTR

SCORE
&HODEL
&R1621P
&R1621R
&INDEX
&INDAD
&TRANS
&DIVIDE
&FLOAT
&DISK
100

VALUE 2,4,6 FOR 20K, 40K, 60K 1620
VALUE 1 OR 2 FOR HODEL OF 1620
SIMULATING A PAPER TAPE PUNCH
SIMULATING A PAPER TAPE READER
INDEXING INSTRUCTIONS ALLOWED
INDIRECT ADDRESSING ALLOWED
FIXED POINT DIVISION ALLOWED
FLOATING POINT INSNS. ALLOWED
ON IF DISK(S) ARE BEING SIMULATED

VALUES FOR TRIAL ASSEMBLY
SETA 2
20K MACHINE
SETA 2
DELUXE ~10DEL
SETB 1
SETB 1
SETB 1
SETB 1

*
*

* STATUS CHANGE VERSION I,LEVEL 2
CONTPR

START
USING
USING
USING

0
*,0
*+4096,3
*+8192,4

2

V1L2

*

A25B

PAGE

1620 SIMULATOR

LOC OBJECT CODE

AilDR! ADDR2 STHT

SOURCE STATEMENT

ASH H V 05 22.10 05/07/81

53 ***********************************************************************
54 *
*
55 *
SIM20
*
56 *
IBM SYSTEH/360 SIMULATOR FOR THE IBM 1620
*
57 *
*
58 *
INTRODUCTION
*

59
60
61
62
63
64

65
66
67

68

69
70
71
72
73
74
75
76
77

78
79

80
81

82
63

84

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

3

*
*
*
- CONSOLE SIMULATION
*
- BASIC INTERPRETIVE ROUTINE (BIR)
*
- CPU SIMULATION
*
- 110 SIMULATION
*
- DISK SIMULATION
*
*
EACH SECTION OF THE SIMULATOR, WITH THE EXCEPTION OF THE BASIC IN- *
TERPRETIVE ROUTINE, CONTAINS ROUTINES WHICH SIMULATE THE CORRE- *
SPONDING FUNCTIONS OF A 1620.
*
*
THE FOLLOWING COHMON INFORHATION IS USED BY MORE THAN ONE SECTION *
*
- SIMULATED 1620 CORE STORAGE
*
*
- SIHULATED INSTRUCTION COUNTER
*
*
- SIMULATED REGISTERS
*
*
- SYSTEH/360 REGISTER ALLOCATION
*
*
- SIMULATED 1620 INDICATORS
*
*
*
*
*
THE SIMULATOR CONTAINS THE FOLLOWING HAJOR SECTIONS =

85 ***********************************************************************

A2SB

1620 SIHUlA TOR

LOC OBJECT CODE

PAGE

ADORI ADDR2 STHT

88
89

SOURCE STATEMENT

ASM H V 05 22.10 05/07/81

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

*

*

90 *
GENERAL REGISTER ASSIGNHENT
*
91 *
*
92 ***********************************************************************

00001
00002
00003
00004
00005
00006
00007
00008
00009
OOOOA
OOOOB
OOOOC
00000
OOOOE
OOOOF

94
95
96
97
98
99
100
101
102
103
104
105
106
107
lOB
109
110
111

R1
R2
SIHB1
SIHB2
CNTR
HAPORG
*
SIZE
*
*
RP
RQ
WR1
WR2
WR3
WR4
WR5
WR6

EQU
EQU
EQU
EQU
EQU
EQU

6

EQU

7

EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU

8

1
2
3
4
5

9
10
11

12
13
14
15

REGISTER 1
REGISTER 2
BASE REGISTER 1 (4096 TO 8192)
BASE REGISTER 2 (8192 TO 12288)
INSTRUCTION COUNTER
GL.REGISTER CONTAINING THE ABSOLUTE ADDRESS OF HAP ORIGIN
GL.REGISTER CONTAINING THE MAXIMUM ABSOLUTE ADDRESS OF SIHULATEO 1620 CORE STORAGE
REGISTER P
REGISTER Q
WORKING REGISTER 1
WORKING REGISTER 2
WORnNG REGISTER 3
WORKING REGISTER 4
WORKING REGISTER 5
WORKING REGISTER 6

113 ***********************************************************************
114*
*
CONDITION CODE HNEHONICS FOR BRANCH INSTRUCTIONS
115 *
*
116*
*
117 ***********************************************************************
OOOOF
00000
00005
00008

ooooe

00080

119
120
121
122
123
124
125

BR
NOP
BOH
BZ
BZM
CONVTB
*

EQU
EQU
EQU
EQU
EQU
EQU

15

a

5

B

12
128

4

*
*
*
*
*

UNCONDITIONAL BRANCH (REGISTER
NO OPERATION
BRANCH ON OVERFLOW OR HINUS
BRt,NCH ON ZERO
BRANCH ON ZERO OR MINUS
ABSOLUTE ADDRESS OF CODE CONVERSION TABLE FOR 1/0 OPERATIONS

A2SB

1620 SIMULATOR

LOC OBJECT CODE

PAGE

ADDR1 ADDR2 STHT
127
128
129
130
131
132

SOURCE STATEMENT

*
CONSOLE SIMULATION
*
* THIS SECTION OF THE SIHULATOR CONTAINS ALL ROUTINES, SUBROUTINES

*

133*
134 *

135
136
137
138
139
140
141
142
143
144
145
146
147

ASH H V 05 22.10 05/07/81

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

*

*
*
*
*
*
*
*
*
*
*

*

5

*
*
*
*
AND TABLES NEEDED FOR SIHULATION OF THE 1620 CONSOLE OPERATIONS. *
*
CONSOLE SIHULATION CONSISTS OF =
*
*
- SIMULATION OF CONSOLE KEYS, SWITCHES AND INDICATORS
*
*
- BASIC SUBROUTINES
*
*
- MESSAGES FROM THE SIMULATOR
*
'*
- INSERT AND AUTOMATIC CARD LOAD OPERATIONS
*
ALTHOUGH THESE ROUTINES AND THEIR CORRESPONDING SUBROUTINES ARE *
RELATED TO CPU OPERATIONS, THEY ARE INCLUDED IN THE CONSOLE SIHUL- *
ATION SmCE THEY MAY BE USED IN CONSOLE KEY OPERATIONS.
*
*

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

A2SB

1620 SIMULATOR

LOC OBJECT CODE

PAGE

ADDRI ADOR2 STMT

SOURCE STATEMENT

ASH H V 05 22.10 05/07/81

149 **************'****'*******'****'******************************************
150 '*
151 *
152 '*
153 *

*
*

SECTION 1
CONSOLE KEYS, SWITCHES AND INDICATORS

*
*
154 '* AN 8-BYTE FIELD. CONTAINING THE BYTES MENTIONED IN THE FOLLOWING *

155
156
157
158
159
000000 80

161
162
163
164
165
166
167
168

'* TABLE. IS USED TO SIMULATE THE 1620 CONSOLE KEYS. SWITCHES AND '*
'* INDICATORS. EACH BIT OF A GIVEN BYTE CORRESPONDS TO A KEY. SWITCH '*
* OR INDICATOR.
'*
'*
'*
**'*'**********************************'******************'**'*'*'*'****'**'*'*'**'*
KEYBIT

'*
'*

DC

X'80'
(BYTE FOR KEY INTERLOCK)
'KEVBIT' BIT 0 = 'STOP' KEY WHEN ONE
= 'START' KEY WHEN ZERO
BIT 1 = 'SAVE' KEY WHEN ONE
BIT 2 = 'CHECK RESET' KEY WHEN ONE
BIT 3 = 'RESET' KEY WHEN ONE
BIT 4 = 'INSERT'KEY WHEN ONE
BIT 5 = 'HODIFY'KEY WHEN ONE
BIT 6 = 'AUTOMATIC LOAD' KEY WHEN ONE
BIT 7 = HAP DUMP FEATURE (FOR MAINTENANCE
PURPOSES ONLY)

DC

X'O'
'PROSWI' BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT

*
'*
'*
'*
'*
169 '*
170 *
171

000001 00

'*

173 PROSWI
174 *

175 '*
176
177

178
179
180
181

ooodOz 00

'*

*
*
'*
'*
'*

183 NYCHEK
184*

DC

185 '*

186 '*
187 *
188 *

189 '*
190
191
000003 00

'*
*

193 HPEZ
194 '*

197
000004 00

201 *

202

*

= CYL. OVERFLOW INDICATOR 38

HIP AND E/Z INDICATORS
BITS 0.1,2 NOT USED
BIT 3 = HIGHIPOSITIVE INDICATOR 11
BITS 4.5.6 NOT USED
BIT 7 = EQUAL / ZERO INDICATOR 12

DC

X'O'

ARITH. AND EXP. CHECK INDICATORS
BITS 0.1.2 NOT USED
BIT 3 = ARITHMETIC CHECK INDICATOR 14
BITS 4.5.6 NOT USED

'*

199 OFLOW

1

2
3
4
5
6
7

INDICATORS

= READ CHECK INDICATOR 06
= WRITE CHECK INDICATOR 07
= NOT USED EXCEPT FOR PAPER TAPE
= NOT USED
= PRINTER CHECK INDICATOR 25
= ADDRESS CHECK INDICATOR 36
= WLR.RBC
INDICATOR 37

X'O'
'HPEZ'

'*

200 '*

0

1311 DISK

DC

195 '*
196

X'O'
'NYCHEK' BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT

SWITCHES

= PROGRAM SWITCH 1
1 = PROGRAM SWITCH 2
2 = PROGRAM SWITCH 3
3 = PROGRAM SWITCH 4
4 = DISK CHECK SWITCH
5 = WRITE ADDRESS SWITCH FOR
6 = 1/0 CHECK SWITCH
7 = O'FLOW SWITCH
0

'OFLO~l'

A2SB

1620 SIHUlA TOR

LOC OBJECT CODE

PAGE

ADDRl ADDR2 STHT

000005 00

205 LASTCD

BIT 7 = EXPONENT

209
210
211
212
213

00000i' 00

215
216
217
218
219
220
221
222
223
224
225
226

00004
000F4

000018 OnOMEl!"

CHECK INDICATOR 15

DC

X'O'
LAST CARD INDICATOR
'LASTCD' BITS 0 TO 6 NOT USED
INDICATOR 09
BIT 7 = LAST CARD

IX BAND

DC

BAND INDICATORS
X'O'
'IXBAND' BITS 0 TO 4 NOT USED
INDICATOR 30
BIT 5 = NO BAND
INDICATOR 31
BIT 6 = BAND 1
INDICATOR 32
BIT 7 = BAND 2

TAPE43

DC

1443 PRINTER TAPE
X'O'
'TAPE43' BITS 0 TO 4 NOT USED
INDICATOR
BIT 5 = CHANNEL 9
INDICATOR
BIT 6 = CHANNEL 12
BIT 7 = PRINTER BUSY INDICATOR
CNOT &DISK).NODSK1

*
207 *
20&

000006 00

ASH H V 05 22.10 05/07/81

SOURCE STATEMENT

203 *

*
*
*
*

*
*
*
*

AIF
.NOOSK1 ANO?
SATT
OS
OH
B
HESSWI+4
BRCC
BAL 15,HESTOP
A

597
598
599
600
601
602
603
604
605
606
607
606

B

TH
BC
B
TM
8Z
01
BAl
B

LA
NV1
LA
B
L

B
B

19

OIsro

L
Rl,RNCSAV
SAL 15,HESSAG
BAL 15,HESSAG
DC A
WR2,CONVTB(WR2)
WR2,BUFF2+1
BUFF2+1,X'AA'
CODINV
NOP,EXPAND
WR2, O(RP)
RP,l(RP)
RP.SIZE
VAWR
WRl,l(WRl>
WR4,VALl
15

22

SET SWITCH FOR CARRIAGE RETURN
LOAD ADDRESS OF 1/0 BUFFER
CLEAR REGISTER WR2
CARRIAGE RETURN SWITCH
IS INSERT BIT PRESENT
NO ,BRANCH
YES,TEST RP EQUAL TO MAPORG+100
YES,RETURN TO CAllER
NO,IS A CARRIAGE RETURN
YES,BRANCH
NO,INSERT DATA BYTE IN WR2
CONVERT IT TO INTERNAL CODE
STORE IN RIGHTMOST POSITION
IS DATA VALID
YES.BRANCH CODINV
NO, FIELD EXPANSION SWITCH

*RP = RP + 1

IS RP GREATER THAN SIZE
YES,BRANCH TO VAWR
NO.WRl=WRl+1
LOOP IF COUNT NOT EQUAL TO ZERO
RETURN TO CALLER

A2S8

PAGE

1620 SIMULATOR

Loe OB,JECT CODe
0004CE 1886
0004D~ 47FO
000t(04 Flll
0004DA 0101
0004[0 4188
OOOl,E4 47FO

ADORI AODR2 STHT

Me4

004C4
09FO 04FO 004FO 004FO
aQoo 04FO 00000 004FO
n001
00001
MBA
004BA

oOMhi 9680 OOOZ
0004£C 47FO Olfi32

00002

004B2

0004FO 0000
OOO'iF2 0000
0004F4 00003066
OOMF$ 45FOOOF4

ooor;!=t

OOOOO~9tl

OOOSOO 47FO asOG
000504 45FO OOBa
000508 000001e7
ooosoe 47FO o50c

OOOF4
00500
00088
OOSOC

ASH H V 05 22.10 05/07/81

SOURCE STATEHENT

B

RP,HAPORG
VAL2
BUFF2(Z),BUFF2(Z)
0(Z,RP),BUFF2
RP, HRP)
FLEXSIHS

*

73 tl

01
B

NYCHEK,X'80'
FLEXSW

SET READ CHECK INDICATOR ON
AND RETURN

736 BUFFZ

DC

X'OOOO'

TWO-BYTE BUFFER

737 LIHITX

DC A(CORES1+100)

HAPORG+100

739 ERROR
740
741
742 PRGERR
743

SAL lS,HESTOP
DC A(CHKSTP)

*

726 VAWR
727
728 EXPAND
729
730
731

HVO
HVN
LA

733 CODINV

744

LR
B

B

BAL
DC

B

23

*
15,HESSAG

A(CHK3bO )

*

LOAD RP WITH HAPORG
RETURN TO VAL2
SHIFT DATA BYTE TO THE LEFT
HOVE 2 NUMERICS TO CORE STORAGE
RP = RP + 1

BRANCH TO HESTOP
PROGRAM CHECK 360
STOP SIHULA HON
AND WAIT

A

A

V1lZ
V1LZ
V1L2 A
V1L2

A2sa

1620 SIHULA TOR

Loe OBJECT CODE

PAGE

ADDRI ADDR2 STMT
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774

775
776
777
778

779

SOURCE STATEMENT

*
*
*
*
*
*

THIS SUBROUTINE HANDLES ANY REQUEST FOR A CODE CONVERSION TABLE
COHING FROM AN 1/0 OPERATION. THERE IS ONLY ONE CODE CONVERSION
TABLE LOCATED AT ABSOLUTE ADDRESS 128 TO 384 (256 BYTES).HOWEVER,
UP TO 18 DIFFERENT CODE CONVERSION TABLES CAN BE REQUIRED BY THE
1620 CONFIGURATION. CONSEQUENTLY, THE UNIQUE CODE CONVERSION TAB* LE HUST BE LOADED AS SOON AS REQUESTED BY THE 'MASK' SUBROUTINE.

*
* OPERATION
* A SPECIFIC HASK BYTE IS PROVIDED TO THE 'MASK' SUBROUTINE BY THE
* CALLING 1/0 OPERATION. THIS MASK IS COMPARED WITH A COMMAND CHECK

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

~O*

781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
000510 9500 0588
000514 078F
000516 92AA OOBO

00588
00080

ASH H V 05 22.10 05/07/81

***********************************************************************
*
*
*
'MASK' SUBROUTINE
*

*
*

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

*
*
*
*
*
*

*
*
*
*
*

BYTE TO CHECK IF THE CALLING I/O OPERATION IS DIFFERENT FROM THE *
PRECEDING ONE.
*

IF DIFFERENT, 'MASK' LOADS THE CODE CONVERSION TABLES WITH THE
DATA CORRESPONDING TO THE 1/0 OPERATION REQUESTED. 'MASK' STORES
IN ITS COHMAND CHECK BYTE THE SPECIFIC MASK PROVIDED BY THE I/O
OPERATION. THUS, IF THE FOLLOWING 1/0 OPERATION IS THE SAME. THE
IDENTITY BETWEEN THE SPECIFIC HASK BYTE AND THE COHMAND CHECK
BYTE IS ESTABLISHED AND LOADING OF THE TABLE WILL BE BYPASSED.
TWO ARGUMENTS SUPPLIED IN REGISTERS WR1 AND WR2 BY THE CALLING
I/O OPERATION ARE REQUIRED FOR LOADING. THE FIRST ONE IS THE ABSOLUTE ADDRESS OF THE BASIC TABLE (TABLE 1, 2 OR 3). THE SECOND
ONE IS THE ABSOLUTE ADDRESS OF AN AUXILIARY TABLE (FOR INSTANCE
'TBRNTY', 'TBRNCD". 'TBPRN', ETC.)
THE BASIC TABLE CONTAINS THE HAXIMUM NUHBER OF BYTES COHMON TO A
GIVEN GROUP OF I/O OPERATIONS (EXAHPLE = 'TABLEl' FOR READ, WRITE
AND DUMP NUMERICALLY, 'TABLE2' FOR READ AND WRITE ALPHAHERICALLY,
'TABLE 3' FOR PRINT OPERATIONS),
THE AUXILIARY TABLE CONTAINS A VARIABLE NUHBER OF BYTES WHICH ARE
ADDED TO THE PREVIOUSLY LOADED FIELDS OR THEIR SCRATCH PAD PARTS.
THE BASIC AND AUXILIARY TABLES CONSIST OF VARIABLE LENGTH FIELDS,
THE LAST ONE BEING A HEXADECIMAL 'EE' BYTE FOR BASIC TABLES, AND
A HEXADECIHAL 'EF' BYTE FOR AUXILIARY TABLES. ALL FIELDS. EXCEPT
THE LAST ONE, CONTAIN =

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

*

*
- ONE BYTE WHICH PROVIDES THE RELATIVE ADDRESS IN THE CODE CONVER- *
SION TABLE AT WHICH LOADING OF THE DATA FIELD STARTS
*
- ONE BYTE WHICH CONTAINS THE ACTUAL LENGTH (L - 1) OF THE DATA *
FIELD TO BE LOADED
*
- 'L' BYTES WHICH FORM THE DATA FIELD PROPER.
*
*

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

797 Mt,SK
798
799 HVTAB

CLI
BER
HVI

COMDB,X'OO'
15
CONVTB.X'AA'

24

IS COHMAND BYTE = MASK
YES,RETURN TO CALLER
RESET CODE CONVERSION TABLE

A2SS

PAGE

1620 SIMULATOR

Loe OBJECT CODE

ADDRI ADDR2

OOOStA D2FE 0081 0080 00081 00080

000520
000524
000526
000528
00052t
000530
000534
000538
00053t
000540
000544

90(E
1800
16EO
41CO
95EE
4780
95EF
4780
43013
43EB
42[;0
418B
4400
4180
47FO
18BA
47FO
0200
98CE
07FF

0570

0080

BOOO
0558
8000

055E

00570

00000
00000

00080
00558
005SE
00001
00000
00S6D
00002
OOSbA
00001
0052C

STHT

SOURCE STATEMENT

BOO
801
802
803
80q
805 AL
801)
807
808
809 AU
810
811
812

HVC
STH
LR
LR
LA
CLI
BE
CLI
BE
Ie
IC
STC
LA

ASH H V 05 22.10 05/07/81

CONVTB+1(2SS),CONVTB
WR3,WR5,HASKRG
WR4,O
WR5,0
WR3,CONVTB
OCWR2) ,X lEE'
AP

O(WR2),X 'EF'
AQ

814
815
816 AP
817
818 AQ
819
820

LA
8
LR
B
HVC
LH
BR

WR4,l(WR2)
WR5, OU4R2)
WR5,HLDT+3
WR2 ,2H1R2)
WR4,HLDT
WR2, l(WR4 ,WR2)
AL
WR2,WR1
AU
COMDBO) ,MASK+!
WR3,WRS,HASKRG
lS

00056A 0200 COOO BOOO 00000 00000

822 HLDT

HVC

0(1 ,WR3), OCWR2)

000570
000588 0000

824 HASKRG
825 COHDB

DS
DC

6F
X'OOOO'

0005~a
OOOS~C

000550
000554
000558
0005S~

000S5E
000S64
000568

0001
0000
05bO
0002

o56A
BOOI
052C

0?3C.
0053C
0588 0511 00588 00S11
0570
00570

813

EX

• TO 'AA'
SAVE REGISTERS WR3 TO WR5
CLEAR WR4 AND WRS

*
WR3:
A(TABLE TO BE BUILT)
*
*
*
*
INSERT LENGTH OF MOVED FIELD
INSERT ADDRESS OF IDENTIFICATION
STORE IT IN FIRST OPERAND
WR2 : WR2 + 2
*
*
*
*
*SET COHMAND BYTE : MASK

LOAD REGISTERS WR3 TO WR5
RETURN TO CALLER

COHMAND CHECK BYTE

828 ******303O***************3O********3O****3O3O*******3O***3O3O3O*3O*303O3O*3O*3O3O3O3O3O3O***
829 *
*
830 *
DEFINITION OF CODE CONVERSION TABLES
*
831 *
*
832 ******3O*3O******3O******303O******3O3O***3O**3O***3O3O*3O*3O3O*3O*****3O****3O****303O3O3O*

OCOS8A
000597
00059A
000SA7
0005AA

DOOA60DlD2D304D5
DFOOllF
FOOAFOr1F2F3F4F5
FC0040
FF006F
0005AD EE
OOOSAE 4000FO
0005El1 4FOODF
000584 SAOOuA
000587 6000DO
OOOSBA 6FOOFF
0005BI,) 7B01FBFC
0005el naOMA
0005C4 DAOSAAAAAAAAAAAA
0005CC FA05AAAAMAAAAAA
000504 EF
0005D5 4BOS0304AAAASF10
00050D 5A075A131404AAAA
000SE7 6B012324

834 TABLE!
83S
836
837
838
839
840 TBRNTY
841
842
843
844
845
846
847
848
849
850 TABLE2
851
8S2

DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC

DC

DC
DC
DC
DC
DC

25

X'DOOA60D1D2D3D4D5D6D7D8D95A ,
X'DF004f'
X'FOOAFOF1F2F3F4F5F6F7F8F9EO'
X'FC0040'
X'FFOOl)F'
X'EE'
X'4000FO'
*
X'4FOODF'
*
X'5AOODA'
X'6000DO'
X'6FOOFF'
X'7BOlFAFC'
X'DOOOAA'
X'DAOSAAAAAAAAAAAA ,
X'FAOSAAAAAAAAAAAA'
X'EF'
X'4B050304AAAA5FIO'
X'SA075A131404AAAA2021'
X'6B012324'

A2SB

LOC OBJECT CODE

ADDRI ADDR2

0005E8 6FOOOF

0005EE
0005f2
0005FE
00060A
000616
000622
000623
00062~

PAGE

1620 SIMULATOR

78013334
C009704142434445
0009505152535455
E0090AAA62636465
F0097071727374i5
EE
000040
03014B4C
OAOOEO
OF016F"50
13015B5C
IF054F6061AA6B6C
33017B7C
4108(lC2(3C4C5C6
500AD00102D3D4D5

0006211
000620
000631
000635
000630
000641
00064C
000659 6207E2~3E4E5E6E7
000663 7009F0t1F2F3F4F5
000{'6F EE

STHT

SOURCE STATEMENT

853
854
855
856
857
858
859
860 TABLE3
861
862
863
864
865
866
867
868
869
870
871

DC
DC
DC
DC
DC
DC
DC
DC
DC
DC

DC

DC
DC
DC
DC
DC
DC
DC
DC

X'6FOOOF'
X'7B013334'
X'C00970414243444546474849'
X'D00950515253545556575859'
X'E0090AAA6263646566676869 ,
X'F00970717273747S76777879'
X'EE'
X'000040'
X'03014B4C'
X'OAOOEO'
X'OF016F50'
X'13015B5C'
X'lF054F6061AA6B6C'
X'33017B7C'
X'4108C1C2C3C4CSC6C7C8C9 ,
X'SOOADODID2D3D4DSD6D7D8D95A'
X'6207E2E3E4ESE6E7E8E9'
X'7009FOF1F2F3F4FSF6F7F8F9'
X'EE'

26

ASH H V 05 22.10 05/07/81

A2sa

PAGE

1620 SIHULA TOR

LOC OBJECT CODE

ADDRI ADDR2 STHT
873
874
875
876
877
878
879
8ao
881
882
883
884
885
886
887

889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905

ASH H V 05 22.10 05/07/81

SOURCE STATEMENT

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

*
*
*

*

1/0 SIMULATION

*
CODE CONVERSION
*
* SIMULATION OF A 1620 1/0 DEVICE REQUIRES CODE CONVERSION OF INPUT
* DATA, SINCE THE BIT CONFIGURATION, AS REPRESENTED IN 1620 CORE
* STORAGE, CANNOT BE DIRECTLY ENTERED INTO SYSTEH/360 HAIN STORAGE.

*
*
*

*
*
*
*
* INPUT DATA ARE THEREFORE FIRST ENTERED INTO AN INPUT BUFFER AREA *
* FOR CONVERSION INTO A FORHAT ACCEPTABLE TO THE SIHULATOR. OUTPUT *
* DATA WILL BE ENTERED INTO AN OUTPUT BUFFER AREA FOR CONVERSION

*
*

INTO AN APPROPRIATE FORHAT BEFORE BEING WRITTEN OR PUNCHED.

*

*
*

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

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

*
*
1/0 OPERATION ENTRIES
*
* THIS SEQUENCE IS USED FOR ALL CONTROL, READ, WRITE AND DUHP OPERA-

*

*
*
*

*
*
*
*
*
*
*
*

TIONS. IT IS ENTERED FROM THE BASIC INTERPRETIVE ROUTINE VIA THE *
OPERATION CODE TABLE.
*

*

ROUTINE TO TEST THE AVAILABILITY OF THE 110 SEQUENCE TO BE USED.

*

ENTRY POINTS
*
THERE ARE SIX ENTRIES CORRESPONDING TO THE 1/0 OPERATION CODES = *
K-34

27

DN-35

WN-38

RA-37

WA-39

RN-36

* AT EACH ENTRY POINT. CONTROL IS FIRST GIVEN TO THE 'OUTIN' SUB-

* THEN, THE ADDRESS OF THIS ROUTINE IS OBTAINED FROM THE FOLLOWING
* HALFWORD TABLE (SIMILAR TO THE OPERATION CODE TABLE), AND THE SE906 * QUENCE BRANCHES TO THIS ADDRESS.
907 *

*
*
*
*
*
*
*
*
*

908 ***********************************************************************

A2se

PAGE

1620 SIMULATOR

LOC OBJECT CODE

000670 45EO 0780
000674 47FO 04F8
000678 4300 06EC
000b7e 4800 070e
000680 07FO

AOOR1 AODR2 STHT

00780
004F8

OObEC

0070C

SOURCE STATEMENT

ASH H V OS 22.10

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

912
913
914
915
916

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

918

K34

*
*
*

919
920

BAL

B

IC
LH
BR

921
922

*
*
*

CONTROL

WR5,OUTIN
SEE1
WR4,WRITAB(WR4)
WR4,KTABA(WR4)
WR4

COHHAND ANALYSIS
BRANCH TO DISK OPERATIONS
INSERT IN WR4 ADDRESS
OF 1620 INSTRUCTION
BRANCH TO INSTRUCTION

924 ***********************************************************************

*
*
927 *
925

READ NUMERICALLY

92E,

*
*
*

928 ***********************************************************************

000682
000686
000(,8A
00068E
000692

45EO 0780
47FO 04F8
4300 Q6FC
4800 0720
07FD

00780
004F8
OObFC

00720

930 RN3t.
931
932

BAl
B

IC
LH
BR

933
934

WR5,OUTIN
RCDIl
WR4,RDTAB(WR4)
WR4,RNTAB(WR4)
WR4

COMMAND ANALYSIS
BRANCH TO DISK OPERATIONS
INSERT IN WR4 ADDRESS
OF 'READ Nut1ERICALLY'
BRANCH TO READ

935 ***********************************************************************

936 *

937

938

*
*

WRITE NUMERICALLY

*
*
*

939 ***********************************************************************
000694

OOOE,98
00069C
0006AO
0006A4

45EO 0780

47FO a4F"e
43DD (}bEe
4800 0730
07FO

00780
004F8

006EC
00730

941 WN38
942
943

944
945

BAL
B

IC
LH
BR

WR5 , OU TIN
WDn
WR4,WRITAB(WR4)
WR4,WNTAB(WR4)
WR4

COHMAND ANALYSIS
BRANCH TO DISK OPERATIONS
INSERT IN WR4 ADDRESS
OF 'WRITE NUMERICALLY'
BRANCH TO WRITE

28

OS/07/81

A2SB

162Q SIHULA TOR

LOC OBJECT CODE

PAGE

ADDR1 ADDR2 STHT

9qa
9q9

ASH H V 05 22.10 05/07/81

SOURCE STATEMENT

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

*

*

950 *
READ ALPHAHERICALLY
*
951 *
*
952 ***********************************************************************

D006A' 45EO 0780
OOObAi~

47FO MFa

ooo6e6

Of 58

0006A~ 43DO
00%B2 48DD
4280

oM:c
074(f

OOObBA 9101 OESS

OODbBE 4780 09FO
0006C2 0680
0006C4 07F[1

00F58

00780
004F8
006FC
00744
OOF58
009FO

954 RA37
955
956
957
958 RA1
959
960
961
962

964
965
966
967
968
0006e6 45EO 0780

oa06e.&. 47fO nCfFS
OOOU:!:: 430D06EC

0006!):Z 41300 0758
OOOf,Ob 47FO llBI:!6

00780
OOQF8
006EC
00758
006B6

004F8
004F8

004F8

BAL
B
Ie
LH
STC
TM
BZ
BCTR

BR

COHMAND ANALYSIS
GO TO ERROR
INSERT IN WR4 ADDRESS OF
OF 'READ ALPHAMERICALLY'

*IS P ADDRESS EVEN

NO,ERROR
RP=RP-1
YES,GO TO READ OR WRITE

WRITE ALPHAHERICALLY

*
*
*

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

970 WA39

BAL

971
972

B

IC
LH

973
974
976
977
978
979
980
981

WR5,OUTIN
ERROR
WR4 ,RDTAB04R4)
WR4,RATAB(WR4)
RP,STC
STC,X'01'
ERRORP
RP,O
WR4

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

*
*
*

B

.NODSK6
SEEl
won
RCOIl
.DSKXl

WR5,OUTIN
ERROR
WR4,WRITAB(WR4)
WR4 ,WATAB(WR4)
RA1

AIF (NOT &DISK).NODSK6
ANOP
EQU ERROR
EQU
ERROR
EQU
ERROR

ANOP

29

COMMAND ANALYSIS
GO TO ERROR
INSERT IN HR4 ADDRESS OF
'WRITE ALPHA11ERICALLY'
BRANCH TO WRITE

DISKS NOT EXISTING

*

*

Alsa

PAGE

1620 SIHULATOR

LOC OBJECT CODE

ADDR! ADDR2 STMT
983
984
985
986
987

OOObO£\ 45EO 07130
00060E 47FO 04F8
000GE2 43DO MEC
0006t~ 4800 onc
0006EA 07FD
0006Ee
0006Fl
0006F6
0006FC
000792
000707
00G70C
000710
000714
000718
ooont
000729
000724
000728
oootze

0002040006
oooOuq~OO8

OODoodoDODOO
00020'840006
OOOOOt15000

oooooqooo
OOOOO~f:8

OO()Olfbt!
OOOOO4FB

ooooallF8
00002290
00OOO4f6
OOOOO~F4

OOOOOAOO
OOOliGZi'2

~~~~~.~ ~~~~if!~~
ooonB OOOO(J~OO
00073C 0000lfSA
000740 0OOO2()tt
0007r:~ 0OOOO9f8
0007413 OOoolt44
00074C nooGaMo
000750 OOOOlFA2
000754 00OO04F8
0007513 OOOOMH:l
0007st 0OOOlE~b
0007~O OOOOO~6(j

000764
000768
OOO?6C
000770
000774
000778
00077C

fHJOO2Qf~

00002224
0OOOO4F8
OOOOlF2A
OOOOOMO
0000209C
00002258

00780
004F8
006EC
0076C

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

*
*

*
*
*

DUMP

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

989 ON35
990
991
992
993
995
9%
997
998
999
1000
1001
1002
1003
1004
1005
100b
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029

ASH H V 05 22.10 05/07/81

SOURCE STATEMENT

*

WRITAB
RDTAB
KTABA

RNTAB
WHTAB

RATAB

WATAB

DNTAB

BAL
B
IC
LH
BR
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC

WRS ,OUTIN
ERROR
WR4,WRITAB(WR4)
WR4 ,DNTABCWR4)
WR4
X'OO02040006'
X'OOOOOOOOOB'
X'OOOOOOOOOOOO'
X'OO0200040006'
X'OOOOOOOOOO'
X'OOOOOOOOOO'
A
A(ONPT)
MONCO)
A(PRD)

*
*
*
*

TABLE FOR DUMP

A
A
A

A
A
A
A

A
A

A
A
A
A
A

A
A
A
A
A
A
A
A
A
'A
A

A
A
A
A

A2sa

1(,20 SIMULATOR

LOC OBJECT CODE

PAGE

ABOR1 ADOR2 5THT
1031
1032
1033
1034
1035
103(,
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046

00078~

0007i9~

00078'A
onD7aE
OD07~2

000796
ooo79A
00079E

0100 Q7A9 5009 OD7A9 00009
4800 a7AS
007A8
nOB 50lH
00001
4780 079E
0079E
90AE 0570
00570
45FO 0906
00906
98AE 0570
00570
9107 5009
00009

OOOlA:? 47tE 0004

0007At. 07FE

0007AS 0000

SOURCE STATEMENT

1057
1058
1059

1060
1061
1062

ASH H V 05 22.10 05/07/81

* DISKV SECTION DELETED
AGO
.NOOI5KV
.NODISKV ANOP
*-*
END
* NISKV SECTION DELETED TOO
AGO
.NONI5KV
.NONISKV ANOP *-*
END

*+* NODSK
COMMON PART OF SIM20
***********************************************************************

*
*
'OUTIN' SUBROUTINE
*
* OPERATION
* 'OUTIN' CHECKS THE TYPE OF 1/0 OPERATION BLOCK PRESENT
* STORAGE. IT GIVES DIRECT CONTROL TO IT.
*

*

IN CORE

*
*
*
*
*
*

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

HVN ACOMA+1(1),9(CNTR)
LH
WR4,ACOHA
l(CNTR) ,X' OB'
TM
BZ
OPROG
STH WR1 ,WR5 ,~tASKRG
BAL 15,CONVP
WRl,WR5,HASKRG
LH
9(CNTR},X'07'
TH
BZH,4(WRS)
BC
BR
WR5
*-*
END
* NASKV SECTION DELETED
AGO .NONASKV
.NONASKV ANOP
ACOMA
DC
X'OOOO'

1048 OUTIN
1049
1050
1051
1052
1053
1054
1055 DPROG
00004 1056

31

YES,INSERT IN WR4 BINARY
EQUIVALENT OF Q9
TEST IF CONTROL COHHAND
YES,BRANCH

*
NO,CONVERT
P ADDRESS
*IS Q9 = X'07'

NO ,RETURN
RETURN TO CALLER

*

A2SB

1620 SIMULAtOR

LOC OBJECT CODE

PAGE

ADDR1 ADDR2 STMT
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077

1079
1080
1081
1082
1083
1084
1085
1086
1087
0007M 1843
0007At 9200 0829

00829

0007139
000780
000784
0007B8
0007BC
0007CO
0007c4
0007C8
0007ce
000700
000704
0007US
0007DC
00070E
0007E2

9102
4711
9180
4780
41FO
47FO
9140
4780
41FO
47FO
9108
0781
41FO
40FO

01CO
07EA

001CO
007EA

0007E6
0007EA
0007EC
0007FO

45FO 0088
0000
00000000
9680 0000

00088

(l001
0000
0002
07C8
0108

O?P
0002
0708
0189
07E2
0002

OOaOl
00002
00002
00002

00000

00000
007C8
0010B
007E2
00708
001B9
007E2

SOURCE STATEMENT

ASH H V 05 22.10 05/07/81

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

*

*

*
BASIC INTERPRETIVE ROUTINE
*
*
*
* THE BASIC INTERPRETIVE ROUTINE ('BIR') CONSISTS OF =
*
*
*
* - SWITCH INTERROGATION ROUTINE
*
* - 'BIR' PROPER REQUIRED IN ALL CASES OF SIMULATION FOR DECODING *
*
OF THE 1620 INSTRUCTION
*
* - ROUTINES FOR CONSOLE KEY SIMULATION
*
* - ADDRESS CONVERSION ROUTINES
*
* - ERROR ROUTINES
*
*
*
***********************************************************************

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

*
*

*

32

SWITCH INTERROGATION

*
*

*

* THIS SEQUENCE CONTAINS THREE SUBROUTINES ('ENTRY4'. 'ENTRY3'. AND *
* 'ENTRYO') WHICH INTERROGATE THE CONDITIONS= DISK CHECK. 1/0 CHECK *
* AND ARITHHETIC CHECK.
*
*
*
***********************************************************************

1089 ENTRY4
1090
1091
1092 .NODSK12

SR
SIHB2,SIMBl
HVI KSAVE+1.X'00'
AIF (NOT &DISK).NODSK12
ANOP

DECREMENT BASE REGISTERS
SET KSAVE + 1 = X'OO'

1094 ENTRV3
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108 01510
1109 *
1110

OS OH SVC 9
TH
PROSIH,X'02'
OCR!)
BO
TH
NYCHEK.X'80'
*+12
BZ
15,REDCHK
LA
B
DIS10
TM
NYCHEK,X'40'
*+12
BZ
LA
15.WRICHK
B
01510
TH
NYCHEK,X'08'
BZR
R1
LA
15,PRICHK
STH 15,*+8
BAL

15,MESSAG

ENABLE INTERRUPTIONS
TEST IF 1/0 SWITCH IS ON STOP
NO, RETURN TO CALLER
TEST IF 'READ CHECK'
IF NO, BY-PASS 3 INSTRUCTIONS
IF YES,LOAD R15=A(HESSAGE)
*
TEST IF 'WRITE CHECK'
*
IF YES,LOAD R15=ACHESSAGE)
*
TEST IF PRINTER CHECK
IF NO,RETURN TO CALLER
IF YES,LOAD R15=ACMESSAGE)
STORE ADDRESS OF HESSAG FOR
BRANCH AND LINK
DISPLAY INDICATOR

1111
1112 IOSWIT

DC
01

MO)

KEYBIT ,X '80'

*

SET STOP BIT AND RETURN

A

A2SB

1620 SIMULATOR

LOC OBJECT CODE
0007F4 07F1

PAGE

ADDRI ADDR2 STMT
1113

SOURCE STATEMENT
BR

33

ASH H V 05 22.10 05/07/81
R1

TO CALLER

A2S8

1620 SIMULATOR

LOC OBJECT CODE

PAGE

AODRl ADDR2 STMT
1116
1117
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147

0007F6 4155 OOOC
0007FA 9180 0000
0007FE
000802
000806
OODSOC
OOOBOE
0001312
000814
000818
00081e

4780
9200
F276
1810
4310
lAll
4811
47FO
9201

0806

0~19

0908
a90C

OAOa
1000
0900

OOOOC 1149
1150
1151
1152
00000
1153
1154
00806 1155
.. OQ819
1156
5000 00908 00000 1157
1158
009DC 1159
1160
00A08 1161
00000 1162
00900
1163

SOURCE STATEMENT

ASH H V 05 22.10 05/07/81

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

*

*
*
*
*
*
*
*
*
*
*
*

*

'BIR'

.

'BIR' DECODES EACH 1620 INSTRUCTION LOCATED IN SIMULATED CORE
STORAGE. THE ABSOLUTE ADDRESS OF THIS INSTRUCTION IS GIVEN BY REGISTER 'CNTR' WHICH FUNCTIONS AS AN INSTRUCTION COUNTER. THE
OPERATION CODE IS PACKED TOGETHER WITH THE P-ADDRESS OF THE CURRENT INSTRUCTION, THEN INSERTED IN REGISTER 1 AND MULTIPLIED BY
2. THE VALUE THUS OBTAINED IS USED AS AN INDEX FOR THE OPERATION
CODE TABLE 'OPTBL'.
'BIR' HAS TWO ENTRY POINTS :

* -ENTRY 1 IS USED TO INCREMENT THE INSTRUCTION COUNTER BY 12
*
* -ENTRY 2 IS USED TO BYPASS INCREMENTING (PRECEDING INSTRUCTION IS
* AN UNCONDITIONAL BRANCH OR A CONDITIONAL BRANCH WHOSE CONDITION
* HAS BEEN SATISFIED).
* IT ALSO TESTS THE PRESENCE OF THE 'STOP' BIT IN THE 'KEYBIT'
* BYTE. IF THIS BIT IS ABSENT (ZERO), THE NOR~jAL DECODING FUNCTION
* OF 'BIR' IS EXECUTED. IF PRESENT (ONE), THE 'START' EXIT IS
* TRANSFORMED TO NO OPERATION ('NOP').
*
* NOTE: THE 'STOP' FUNCTION IS DIRECTLY PERFORMED BY A MANUAL OPER*
ATION ON THE CONTROL PANEL (SEE ALSO 'KEYBIT' BYTE UNDER
*
CONSOLE SIMULATION.)
*
* OUTPUT
OPERATION CODE + P-ADDRESS, IN PACKED DECIMAL FORMAT.
*
IN 'BUFF?'

*

*

*
*
*
*
*
*
*
*
*
*
*

*

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

*

***********************************************************************
ENTRYl LA
*ENTRY2 TH
*
BZ
SAL
*
ENTRY2 TH
TH
*
82

RESTAR

START

HVI
PACK
LR
IC
AR
LH
B

MV!

CNTR,12(CNTR)
KEYBIT ,X' 01'
*+8
15,DUHP~

KEYBIT,X'80'
KEYBIT ,X'80'
*f8

START+1,X'OO'
BUFFP(8),0(7,CNTR)
Rl,O
R1,8UFFP+Q
R1,Rl
Rl,OPTBURl)
O(O,Rl)
SW,X'Ol'

34

INCREMENT INSTR. COUNTER BY 12
TEST IF 'DUHP' BIT(DELETED) VIL2
NO,BY-PASS2 INST (DELETED) V1L2
YES,PRINT DUHP OFF(DELETED) V1L2
TEST IF 'STOP' BIT
V1L2
TEST IF 'STOP' BIT (DELETED VIL2
NO, BY-PASS 2 INSTRUCTIONS
YES, STOP SIMULATION
PACK OPER.CODE + P-ADDRESS
CLEAR REGISTER Rl
INSERT OPERATION CODE AND FORM
A HALFWORD ADDRESS
GET ADDRESS OF CORRESP. ROUTINE
BRANCH TO CORREPONDING ROUTINE
V1L2

A2sa

1620 SIHULATOR

LOC OBJECT CODE

PAGE

ADDR1 ADDR2 STMT
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176

SOURCE STATEMENT

ASH H V 05 22.10 05/07/81

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

*

*

*
SIHULATION OF KEYS
*
*
*
* KEY SIMULATION IS PERFORHED BY MEANS OF A LOOP CONSISTING OF SEV- *
* ERAL SEQUENCES WHICH ARE CONTINUOUSLY SCANNED AS SOON AS SIHULA- *
* TION STOPS. EACH OF THESE SEQUENCES GIVES CONTROL TO THE FOLLOW- *
* ING ONE WHETHER OR NOT ITS FUNCTION HAS BEEN FULFILLED. THE LAST *
* SEQUENCE ('START KEY') RETURNS CONTROL EITHER TO THE FIRST SE- *
* QUEIKE (' SAVE KEY') OR TO 'BIR'.
*
*
*
***********************************************************************

1178 ***********************************************************************
1179 *
SAVE KEY
*
1WO*
*
1181 * THE SAVE FUNCTION IS ONLY OPERATIVE WHEN THE 'STOP'BIT IS PRESENT *
1182 * IN THE 'KEYBIT' BYTE. IN THIS CASE, THE INSTRUCTION COUNTER RE- *
1183 * GISTER 'CHTR' IS STORED IN FIELD 'PR1'. THE SEQUENCE TURNS ON *
1184 * A SWITCH WHICH SIMULATES THE 'BRANCH BACK-42' INSTRUCTION. THIS *
1185 * ALLOWS NORMAL OPERATION OF THE SEQUENCE. CONTROL IS THEN GIVEN TO *
1186 * THE fOLLOWING SEQUENCE.
*

*

lW7*

1188 ***********************************************************************

000820 9200 ai329
000824 9140 11000

000828 9140 0000
00Da2C 4780 083C

000830 5050 08FC

000834 92FO 3109
000838 94BF 0000

1190 *+* OISKV
DISKS RESIDENT
TM
KEVBIT ,X'40'
1191 *KSAVE
END
1192 *-*
1193 *+* NISKV
0,0
1194 *KSAVE
SR
00829
1195
HVI KSAVE+1,X'OO'
00000
11%
TH
KEYBIT.X'40'
END
1197 *-*
1198 *+* NODSK
TM
1199 *KSAVE
KEYBIT ,X'40'
END
1200 *-*
1201 *+* NASKV
00000
1202 KSAVE
TH
KEYBIT,X'40'
END
1203 *-*
OOB3C 1204
BZ
KCHECK
CNTR,PRI
008FC 1205
ST
MVI BB42+l,X'FO'
01109
1206
1207
KEYBIT,X'BF'
00000
NI
1209
1210
1211
1212
1213
1214
1215

35

ON DISK PACK
TEST IF SAVE BIT
NO DISKV VERSION
DECREI-lENT BASE REGISTER
SET KSAVE + 1 = X'OO'
TEST If SAVE BIT
COHHON PART OF SIH20
TEST IF SAVE BIT
TEST IF SAVE BIT IS PRESENT
NO, GO TO NEXT SEQUENCE
YES, STORE COUNTER IN PR-1
SET SWITCH FOR 8B42 = ON
CLEAR 'SAVE' BIT

***********************************************************************
*
*
*
CHECK RESET KEY
*
*
*
* THE CHECK FUNCTION IS ONLY OPERATIVE WHEN A 'CHECK'BIT IS PRESENT *
* IN THE 'KEYBIT' BYTE. It! THIS CASE, CONTROL IS GIVEN TO THAT PART *
* OF THE 'RESET' SEQUENCE WHICH RESETS ONLY THE DISK CHECK AND 1/0 *

A2sa

1620 SIMULATOR

LOC OBJECT CODE

PAGE

ADDRl ADDR2 STHT

SOURCE STATEMENT

ASH H V 05 22.10 05/07/81

1216 * CHECK INDICATORS. CONTROL IS THEN GIVEN TO THE NEXT SEQUENCE.
*
1217 *
*
1218 ***********************************************************************
00083C 9120 ~QOO
000840 4780 084C
00084~ 94DF OQOO
000848 47FO 0864

00084C
000850
000854
000856

9110
4760
94EF
9200
OGoesc 9200
oooaso 9200
0006M 9420

0000
0870
0000
nOG5
0003
0004
0002

000868 9200 0007
00066C 47FO 084C

00000

1220
0084C 1221
00000
1222
00864 1223
1224
1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
00000
QOOOO

00005
00003
00004
00002
00007

00000

TH

BZ
HI
B

KEYBIT ,X'20'
KRESET
KEYBIT ,X'DF'
KRESIO

TEST IF 'CHECK RESET' BIT
NO, GO TO NEXT SEQUENCE
YES. CLEAR 'CHECK RESET' BIT AND
GO TO 'RESET 1/0 INDICATORS'

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

*
*
*
*
*
*
*
*
*

RESET KEY
THE RESET FUNCTION IS ONLY OPERATIVE WHEN A 'STOP' BIT IS FOUND
IN THE 'KEYBIT' BYTE. IN THIS CASE, A POSSIBLE 'HODIFY' BIT IS
CLEARED FROM THE 'KEYBIT' BYTE. THE INSTRUCTION COUNTER REGISTER
'CNTR' IS SET TO THE HAP ORIGIN ADDRESS AND ALL INDICATORS ARE
CLEARED. CONTROL IS THEN GIVEN TO THE NEXT SEQUENCE.

*
*
*
*
*
*
*
*
*

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

1236 KRE5ET
00870 1237
1238
1239
1240
1241
1242 KRESIO
1243 *
1244
0084C 1245

1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
000870 9108 0000

KCHECK

TM
BZ
NI
HVI
HVI
HVI
HI
HVI
HVI
B

KEYBn ,X '10'
KINSER
KEYBIT,X'EF'
LASTCD,X'OO'
HPEZ,X'OO'
OFL014,X'OO'
NYCHEK,X'20'
IXBAND,X'04'
TAPE43.X'OO'
KRESET

TEST IF 'RESET' BIT
NO, GO TO NEXT SEQUENCE
YES,CLEAR RESET BIT
RESET ALL INDICATORS

*
*
*

RESET TO 'NOBAND' (DELETED) V1L2

*

RETURN TO RESET

VIL2

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

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

INSERT KEY
THIS FUNCTION IS ONLY OPERATIVE WHEN THE 'INSERT' BIT IS PRESENT IN THE 'KEYBIT' BYTE. THE INSTRUCTION COUNTER 'CNTR', AND
THE P ADDRESS REGISTER 'RP' ARE SET TO THE HAP ORIGIN ADDRESS AND
CONTROL IS GIVEN TO THE SEQUENCE SIMULATING THE'READ NUMERICALLY'
(TYPEWRITER) INSTRUCTION.
AT THE END OF THIS SEQUENCE, THE INSERT BIT IS TESTED. IF 'ON',
THE 'READ NUMERICALLY' ( TYPEWRITER) INSTRUCTION WAS CALLED BY
THE INSERT FUNCTION AND NOT BY THE 'RNTY-36' INSTRUCTION.
THUS, CONTROL IS RETURNED TO THE FOLLOWING KEY SIHULATION SEQUENCE.

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

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

1266 KINSER

TH

KEYBn ,X'08'

3b

TEST IF 'INSERT' BIT

A2SB

PAGE

1620 SIMULATOR

LOC OBJECT CODE
000S7if 4780 0880

AODRl ADDR2 STHT

SOURCE STATEMENT

00880

1267
1268
1269

B2

001F4

1270

B

000878 1856
aOGa7A 1866

00087C47FO 01F'f

LR
lR

KAUTO
CNTR,HAPORG
RP ,~!APORG

RNTY

37

ASH H V 05 22.10 05/07/81
NO, GO TO NEXT SEQUENCE
YES, RESET INSTRUCTION COUNTER
RESET P-AOORESS REGISTER
GO TO 'READ NUMERIC. TYPEWRITER'

Azsa

PAGE

1620 SIHULAtOR

LOC OBJECT CODE

ADORl ADDRZ 5THT
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290

OOU880 9102 COCO
0008~.4 4780 089E
000888 9401 0000
OODaee 4150 oMc
000890 1155
000892 lA%
000894 1813~
0008% 92Fona19
00089A 47FO 0272

00089E
0008A2
0008A6
0008AA
0008AE

9104
4780
94FB
92FO
D2FB

0000
0806
0000
6000
6001 6000

***********************************************************************
AUTOMATIC CARD LOADING KEY
THIS FUNCTION IS ONLY OPERATIVE WHEN THE 'STOP' BIT IS PRESENT IN
THE 'KEYBIT' BYTE. THE INSTRUCTION COUNTER 'CNTR' IS SET TO THE
VALUE OF MAP ORIGIN MINUS 12, AND THE P-ADDRESS REGISTER 'RP' IS
SET TO THE VALUE OF MAP ORIGIN. ALL BITS IN THE 'KEYBIT' BYTE ARE
CLEARED AND THE 'BIR' SWITCH IS TURNED ON TO RESUME SIMULATION.
FINALLY, CONTROL IS GIVEN TO THE SEQUENCE SIHULATING THE 'READ
NU~lERICALL Y' (CARD) INSTRUCTION.
AT THE END OF THIS SEQUENCE, THE AUTO-LOAD BIT IS TESTED.IF 'ON',
THE' READ NUHERICALLY' CCARD) INSTRUCTION ~lAS CALLED BY THE AUTO
LOAD FUNCTION AND NOT BY THE 'RNCD-3b' INSTRUCTION.
CONTROL IS THUS RETURNED TO THE FOLLO!HNG KEY SIMULATION SEQUENCEo

1292 KAUTO
0089E 1293
00000
1294
ooooe 1295
12%
1297
1298
00819
1299
00272 1300

00000

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

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

00000

1303
1304
1305
1306
1307
1308
1309
1310
1311
1312
1313
1314
1315
1316

ASH H V 05 22.10 05/07/81

SOURCE STATEMENT

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

TM
BZ

NI
LA
LNR
AR
LR
MVI
B

KEVBIT ,X'02'
KSTART
KEYBIT ,X' 01'
CNTR,12
CNTR.CNTR
CNTR,HAPORG
RP.MAPORG
STARHl,X'FO'
RNCD

TEST IF 'AUTOMATIC LOAD' BIT
NO. GO TO NEXT SEQUENCE
YES, CLEAR ALL BITS EXCEPT DUMP
LOAD INSTRUCTION COUNTER WITH
HAPORG-12

*SET P-ADDRESS = MAP ORIGIN
RESTART SIMULATION
GO TO READ A CARD

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

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

START KEY
THE START FUNCTION IS ONLY OPERATIVE WHEN THE 'STOP' BIT HAS BEEN
SET ON IN THE 'KEYBIT' BYTE. THE START FUNCTION ALSO INTERROGATES
THE 'MODIFY' BIT IN THE SAME BYTE. IF THIS BIT IS ON, CLEARING OF
THE 1620 CORE STORAGE WAS PREVIOUSLY REQUESTED AND A SEQUENCE PERFORMS THE CLEARING IN GROUPS OF 250 BYTES UNTIL THE UPPER BOUNDARY
HAS BEEN REACHED. IF THIS BIT IS OFF, ALL BITS IN THE 'KEYBIT'
BYTE ARE CLEARED. TO RESUME SIMULATION, THE 'SIR' SWITCH HAS TO
BE TURNED ON SO THAT CONTROL CAN BE RETURNED TO 'BIR'.

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

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

1318 KSTART
00806 1319
00000
1320
00000
1321
00001 00000 1322

TH
BZ
NI

HVI
MVC

38

KEYBIT,X'04'
KSTAR1
KEYBIT,X'FB'
OCHAPORG),X'FO'
H249,HP,PORG),0(HAPORG)

TEST IF 'MODIFY' BIT
NO, GO TO NEXT SEQUENCE
YES, CLEAR 'MODIFY' BIT
CLEAR FIRST BYTE OF MEMORY HAP
CLEAR FIRST GROUP OF 250 BYTES

A258

PAGE

1620 SIMULATOR

LOC OBJECT CODE

flODR! ADDR2 STMT

00081ll, 9101 ti900
00080A 4710 tlr3EA

00900

()OOBDE 9401 aMO

00000
00819

OOOSEf 92FO Q~19

OOOElE6 47fO oaQ6

~~~.~~~ :;i~ 8J~~
OOOBf~

9200 0900

OCOBFb 47fO 0828

0008FA

0000

OOoBrt 00000000

00000
00900

1333
008EA 1334
1335
13%
1337
1338
00806 1339
1340
0081C 1341
1342
00828 1343

ASH H V 05 22.10 05/07181

SOURCE STATEMENT

1323
oo08B4 1eAb
00088; 41BA OOfA
OOOfA 1324
0008BA 02f9 MFA MOO OOOFA 00000 1325 KCLEAR
0008tO 41BBOOFA
OOOFA 1326
0008C4 41AA OOfA
OOOFA 1327
1328
0008C8 19B7
00000 1329
0008CA 00006000
IEV044 *** ERROR *** UNDEFINED SYMBOL
1Ey029 *-1<,.. ERROR *** INCORRECT REGISTER OR
014D8 1330
0008CE 90BE 1408
00000
1331
OOa8D2 %80 onoo

LR
LA
NVC
LA
LA
CR

BC

LOAD POINTER FOR CORE STORAGE
LOAD POINTER FOR UPPER BOUND
CLEAR FOLLOWING 250 BYTE GROUP
INCREMENT POINTER
INCREMENT POINTER
IS IT HIGHER THAN UPPER BOUNDARY
NO ,LOOP
YES, RESTORE 'STOP' BIT

B

SW,X'01'
KSTAR2
KEYBIT ,X '80'
KSAVE
KEYBIT,X'Ol'
START+1.X'FO'
RESTAR
KEYBIT,X'80'
START+4
SW,X·OO'
KSAVE

V1L2
V1L2
TEST IF 'STOP' BIT(DELETED) V1L2
YES,LOOP
(DELETED) V1L2
NO, CLEAR ALL BITS EXCEPT 'DUMP'
AND RESTART SIMULATION.
GO TO 'BIR'
V1L2
V1L2
VIL2
VIL2

DC

F'O'

PR-1 REGISTER

TH
BO
*KSTAR1 TM
BO
*
HI
HVI

1345 PR1

~lR1,250(WRl)

WR2,S1ZE
BNH,KCLEAR

MASK SPECIFICATION
LM
WR2,WR5,HCLEAR
01
KEYBIT,X'80'

KSTAR1

KSTAR2

WRl,MAPORG
WR2, 250CWR1)
250(250,WR1),0(WR1)
WR2, 25 0(I.jR2)

B

TH
BO
MVI

39

PAGE

1620 SIMULATOR

A2sa

LOC OBJECT CODE

ADOR1 ADDR2 STMT
1347
1348
1349
1350
1351
1352
1353
1354
1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
1365
1366
1367
1366
1369
1370
1371
1372
1373
1374
1375
1376

000900 00

000901 00
000902 9£rOF 0910
000906
000911.4
00090£
000912
00091'
0009111
Ooont
00091E
000924
000928
ooonc
000930
000934
000936
00093:A

9200
%OF
4FDO
41A5
45EO
1880
07FF
F274
9bOF
4FDO
4lAS
45EO
1890
96FO
07FF

09DC
09Df
0908
0002
095C

DC

X'OO'

V1L2

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

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

*

ADDRESS CONVERSION
ADDRESS CONVERSION HAS BEEN SEPARATED FROH 'BIR'. SINCE NOT ALL
1620 INSTRUCTIONS NEED BOTH THE P ADDRESS AND THE Q ADDRESS.
THERE HAY BE THREE DIFFERENT ADDRESS CONVERSION ROUTINES =

- THE STANDARD ADDRESS ROUTINE
- THE INDIRECT ADDRESSING SUBROUTINE ('INDAD')
- THE ADDRESS INDEXING SUBROUTINE ('INDEX') FOR HODEL 2 ONLY
ENTRIES
'CONVP', 'CONVPQ' AND 'CONVQ' FOR P ADDRESS CONVERSION ONLY, P+Q
ADDRESS CONVERSION. OR Q ADDRESS CONVERSION ONLY.
EXITS
ALL ADDRESS CONVERSION ROUTINES RETURN TO THE SEQUENCE WHICH REQUIRED ADDRESS CONVERSION.
EACH ROUTINE HAS TWO ADDITIONAL EXITS FOR INVALID ADDRESSES.
OUTPUT

REGISTER RP CONTAINS THE ABSOLUTE P ADDRESS IN BINARY
FORHAT
REGISTER RQ CONTAINS THE ABSOLUTE Q ADDRESS IN BINARY
FORHAT

*
*
*

AIF

(NOT &INDEX).NOTIX1

INDEX INSTRUCTIONS

00910

1379 CONVPQ

HI

RETtl,X'OF'

SET SWITCH ON

009DC
009DF

1381 CONVP
1382
1383
1384
1385
138(,
1387 RET
1388 CONVQ
1389
1390
1391
1392
1393
1394
1395

HVI
01
CVB
LA
BAL

00908
00002
aOgSC

00910

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

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

1378

09£0 5007 009EO 00007
09E7
009E7
009EO
09EO
0007
00007
095C
0095C
0910

ASH H V 05 22.10 05/07/81

SOURCE STATEMENT
SW

40

BUFFP+4,X'00'
BUFFP+7.X'OF'
WR4,BUFFP
WR1,2(CNTR)
14,INDEX
RP,WR4
LR
BR
15
PACK BUFFQ(8),7(S.CNTR)
01
BUFFQ+7.X'OF'
CVB WR4,BUFFQ
WR1,7WHR)
LA
BAL 14 ,INDEX
RQ,WR4
LR
01
RET+l,X 'FO'
BR
15

CLEAR OPERATION CODE
SET PLUS SIGN
CONVERT P ADDRESS TO BINARY
WR1=CNTR+2
GO TO 'INDEX' SUBROUTINE
RP=WR4
RETURN IF SWITCH OFF
PACK Q ADDRESS IN BUFFQ
SET PLUS SIGN
CONVERT Q ADDRESS TO BINARY
WR1=CNTR+7
GO TO 'INDEX' SUBROUTINE
RQ=WR4
SET SWITCH OFF
RETURN TO CALLER

A2sa

PAGE

1620 SIMULATOR

LOC OBJECT CODE

ooonc

OlOE
00093E 9120 A004
000942 07lE

ADDRI ADDR2 STMT
00004

000944 leAD
000946 4HAO 09PO.
00094A F274 09EO AGOO DD9ED
OOO~Sb 960F 09E7
009E7
000954 4FDO 09EO
000958 47FO 095C

00900
00000
009EO
009SC

1397
1398
1399
1400
1401
1402
1403
1404
1405
1406
1407
1408
1409
1410
1411
1412
1413
1414
1415
1416
1417
1418

ASH H V 05 22.10 05/07/81

SOURCE STATEHENT
INDAD

0,14
INDIRECT ADDRESSING SWITCH
4(WRl),X'20'
TEST FLAG
1,14
IF NONE, BRANCH
WRl,WR4
WR1=WR4
WR1,DEC4
WR1=WR1-4
BUFFQ(8),O(S,WRl)
PACK NEW ADDRESS
01
BUFFQ+? ,X'OF',
SET PLUS SIGN
CVB WR4,BUFFQ
CONVERT TO BINARY
B
INDEX
GO TO INDEX
***********************************************************************

*
*
*
*
*
*
*
*
*
*
*
'*
14~*
1420 *
1421 *
1422 *
1423 *

BCR
TH
BCR
LR
SH
PACK

INDEX SUBROUTINE
THIS SUBROUTINE li0DIFIES THE P AND Q ADDRESSES IF ANY FLAGS ARE
PRESENT IN THE THOUSANDS, HUNDREDS OR TENS POSITION OF THE ADDRESS FIELD OF THE INSTRUCTION. IT COMPUTES THE INDEX REGISTER
ADDRESS, ACCORDING TO THE BAND SELECTED. IT THEN ADDS THIS ADDRESS TO THE ADDRESS SUBHITTED TO THE ROUTINE. IF THE RESULTING
ADDRESS IS NEGATIVE, NINES COMPLEMENTING TAKES PLACE.
AT THE END OF INDEXING, CONTROL IS GIVEN TO THE 'INDAD' SEQUENCE.
THE FINAL ADDRESSES ARE CONTttINED IN REGISTERS RP AND RQ.
NOTE =
WHEN AN ADDRESS CONTAINS BOTH THE INDEXING AND INDIRECT ADDRESSING FEATURE, PRIORITY IS GIVEN TO THE INDEX SUBROUTINE.

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

*

1424 ***********************************************************************
00095C
000960
000%4
000966
00096A
00096E
000972
000976
00097A
00097E
000982
000986
00098A
Oa09Bt
000990
000994
000998
00099C
0009An
0009A2
0009A8
0009AC
0009AE
0009B2
0009B6

9104
4710
18BO
9120
4770
418B
9120
4770
41BB
9120
4770
418B
12B8
4780
9102
4730
41BB
41B6
070E
F2?4
4FCO
1ADC
47AO
SADO
59DO

0006
0ge2

00006

AOO3
0972
0005
AG02
097E
aODA
ADOI
098A
0014

00003

09C2
0006
099C
0028
B12C

00002
00001

00006

09EO 8000 009EO
09EO
09B6
09CC
09ce

1426
009C2 1427
1428
1429
00972 1430
00005 1431
1432
0097E 1433
OOOOA 1434
1435
0098A 1436
00014 1437
1438
009C2 1439
1440
0099C 1441
00028 1442
0012C 1443
1444
00000 1445
009EO 1446
1447
009B6 1448
009CC 1449
009CC 1450

INDEX

INDX1
INDX2
INDX3

INDX4

INDX6

TM
BC
LR
TM
BC
LA
TM
BC
LA
TM
BC
LA
LTR
Be
TH
Be
LA
LA
BCR
PACK
CVB
AR
BC
A
C

41

IXBAND,X' 04'
1,INDX5
WR2,0
3HlRl),X'20'
7,INDXl
WR2,5(WR2)
2CWRl),X'20'
7,INDX2
WR2,10(WR2)
l(WRl) ,X'20'
7,INDX3
WR2,20(WR2)
WR2,WR2
8,INDX5
IX BAND ,X' 02'
3.INDX4
WR2,40(WR2)
WR2,300(HAPORG,WR2)
0,14
BUFFQ(8),O(5,WR2)
WR3,BUFFQ
I>lR4,WR3
10.INDX6
WR4,HAXVAL
WR4,MAXVAL

IS 'NO BAND' INDICATOR ON
YES,BRANCH
CLEAR WR2
IS 3(WR1) DIGIT FLAGGED
NO,BRANCH
YES,ADD 5 TO WR2
IS 2(WR1) DIGIT FLAGGED
NO,BRANCH
YES,ADD 10 TO WR2
IS 1(WR1) DIGIT FLAGGED
NO,BRANCH
YES,ADD 20 TO WR2
IS WR2 NULL
YES,BRANCH
NO,IS 'BAND l' INDICATOR ON
YES, BRANCH
NO,ADD 40 TO WR2
COHPUTE INDEX REGISTER ADDRESS
RETURN SWITCH FOR IX INSTRUC.
PACK ADDRESS
CONVERT TO BINARY
COMPUTE NEW ADDRESS
BRANCH IF POSITIVE OR EQUAL
COHPUTE 9'S COMPLEMENT
TEST OVERFLOW ON RESULTING ADD

A2SB

LOC OBJECT CODE
Q009BA
00098£
0009C2
0009C6

PAGE

1620 SIMULATOR

4740
5BOO
86D6
47FO

0009CA 07FE

0ge2
09CC
09FO
093C

ADDR1 AODR2 STMT

SOURCE STATEMENT

00ge2
009CC
009FO
0093C

BC

1451
1452
1453 INDX5
1454 INDXa
1455 *
1456

5

BXH
B

B

BR

4.INDX5
WR4,HAXVAL
WR4,HAPORG,ERRORP
INDAD
nmAO
14

42

ASH H V 05 22.10 05/07/81
NO, BRANCH
YES. CLEAR OVERFLOW
ADD BASE AND CHECK
GO TO INDAD SUBROUTINE
V1l2
GO TO INDAD SUBROUCDELETED) VIL2
RETURN TO CALLER
V1L2

A2SB

1620 SIMULATOR

LOC OBJECT CODE

PAGE

ADDRl ADDR2

STMT

SOURCE STATEMENT

1458 .NOTIX1 ANOP
1459
AIF
1460 .NOTIND1 ANOP

0009CC 000186AO
000900 0004

007F6

ASH H V OS 22.10 05/07/81

(NOT SINDAD).NOTIND1

INDIR ADDRESSING
HODEL 1

1462 .NNOD1

1461

AIF
ANOP

(SHODEL NE 1).NMOD1

1464 ENTRYO
1465 HAXVAL
1466 DEC4

EQU
DC
DC

ENTRY!

F'100000'

H'4'

MAXIMUM VALUE FOR 9'S COMPLEMENT
DECIMAL 4

1469 ***********************************************************************
1470

*
*

1471 *
1472

PARAMETERS USED IN ADDRESS CONVERSION ROUTINES·

*
*
*

1473 ***********************************************************************

0009D8
0009EO
0009E8
0009EC

1475 BUFFP
1476 BUFFQ
1477 INITP
1478 INITQ

OS
DS
DS
DS

10
10

1F
1F

43

FOR
FOR
FOR
FOR

P-ADDRESS PACKING
Q-ADDRESS PACKING
STORING INITIAL P-ADDRESS
STORING INITIAL Q-ADDRESS

A2sa

162£1 SIMULATOR

LOC OBJECT CODE

PAGE

AOOR1 ADDR2 STMT
148£1
1481
1482
1483
1484
1485
1486
1487
1488
1489
149£1
1491
1492
1493
1494
1495
1496
1497
1498
1499

0oo5iFO
OQ09F4
0009F8
l)009fC
0001100
0001\00
000."\1)4

45fOollF4
OOQOOl~D

45FQ OOf4
£10000190
45FO OOF4
00000190

SOURCE STATEMENT

ASH H V £15 22.1£1 £15/£17/81

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

*
*
*
ERROR ROUTINES
*
*
*
* THESE ROUTINES ARE ENTERED FROM THE SPECIAL EXITS OF THE ADDRESS *
* CONVERSION ROUTINES IN THE FOLLOWING CASES =
*
*
*
* 1. THE CONVERSION ADDRESS IS GREATER THAN THE AVAILABLE CORE
*
STORAGE SIZE SPECIFIED FOR THE SIMULATOR.
*
* 2. ALPHABETIC OR SPECIAL CHARACTERS ARE ENCOUNTERED IN 'BUFFP'

*
*
*
*
*
*

OR 'BUFFQ' AT THE TIME OF BINARY CONVERSION. AN INTERRUPTION
IS THEN REQUESTED BY THE CONTROL PROGRAM WHICH GIVES CONTROL
TO THE ERROR ROUTINE. THIS SENDS A MESSAGE TO THE 1£152 PRINTER-KEYBOARD ('INVP' OR 'INVQ') AND SIMULATION STOPS UNTIL
OPERATOR ACTION (SEE 'BIR' AND SIMULATION OF KEYS).

*
*
*
*
*
*
*
*
*

*

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

*
*

OOOF4 1501 ERRORP
15£12
QQOF4 15£13 ERRORQ
15£14
15£15 COOERR
QQQF4 1506
1507

SPACE 2
CNOP 2.4

BAL 15,HESTOP
DC ACINVP)
BAL 15,HESTOP
DC ACINVQ)
DS
OH
BAL 15,MESTOP
DC A(INVCOO)

44

*

(DELETED) VIL2
(DELETED) VIL2

*

ERROR ON P ADDRESS

A

ERROR ON Q ADDRESS

A

*

*

ERROR ON OPERATION CODE

A2sa

PAGE

1620 SIHULA TOR

LOC OBJECT tODE

ADDR1 ADDR2 STHT
1509
1510
1511
1512
1513
1514
1515
1516
1517
1518
1519
1520
1521

OOOMa ooonOAGO
OOOADe 0OOOI~f:\8
OOOAlQ OOOO,!~O
OO0A14 0OOOl?6E
OOOAle OOIJOOAOO
OOMlt 9000199~
0001120 00001932
OC(}A2~ 0OOOl~~8

00CA28 0OO0196A
OOOA2C 00001804
000A30 ooooMon
ooeA3~ oonOOtlQo
00aAS6 OGooMoo
oaoAie; 00000/\00
OOOMn 00000$00
OOM41f OOeGOMO
OOOiVf8 OnG01t78
oooMe 00OOl1CA
OOOA5,Q 0OOOl1EC
OOOAS.~ 0OOO13q8
000A58 OOOOCE80
OOOA5.C GOOOOtrO
OOOA60 00000£8':\
000A64 OOOOlOfC
00M6S 00001762
OOOA6C 0OOOl71A
OOOA:(.O OOOOOA.OO
0001\/4 conooMo
O(){}Ai'8 OOOOMeo
oaOA7e oaOCOMO
OOOMO OOODOMO
000A84 ooonOAOO
000A8S 00001CI0
onOMe 00001186
OOOMO 000011D6
OO0A94 0OOO13A6
OOOA98 000000C2
OOOMC OOOOOC7C
OOOMO OOOOOC96
OOOf.IA4 000010CC

ASH H V 05 22.10 05/07/81

SOURCE STATEHENT

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

*
*
*
*
*
*
*
*
*
*
*

OPERATION CODE TABLE
THIS IS A 154 HALfWORD TABLE WHICH CONTAINS THE RELATIVE ADSES IN DISPLACEMENT FORt-tAT OF THE SIMULATION ROUTINES. EACH HALFWORD REFERS TO THE STARTING ADDRESS OF THE ROUTINE WHICH SIHULATES THE EXECUTION OF THE 1620 INSTRUCTION UlDICATED BY THE OPERA HON CODE.
SOHE 1620 OPERATION CODES ARE NOT RELATED TO ANY EXISTING INSTRUCTION. THEY CONTAIN THE ADDRESS OF THE ERROR ROUTINE.

*
*
*
*
*
*
*
*
*

*
*

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

1523 OPTBL
1524
1525
1526
1527
1528
1529
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
1543
1544
1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561
1562

DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC

MCODERR)
A(FADD01)
MFSUB02)
A(FHULO])
A(CODERR)
A TNSWR+2
RP,O
l( 1.RP). O(RQ)
l(RP) ,X'FO'
O(RP).X 'F7'
0(RQ),X'20'
TNFA
ENTRY1
O(RP) ,X 'FS'
TNFA
. TRNSX1

CONVERT P AND Q ADDRESSES
TEST IF P ADDRESS IS ODD

* ,P IS INVALID
NO
DECREMENT RP BY ONE
HOVE Q DIGIT TO P DIGIT
WITH'F'IN ZONE
IS Q DIGIT FLAGGED
YES, BRANCH
NO.PUT'F7'AT RP
TEST FOR WRAP-AROUND
*
MOVE
NUMERIC FROM Q TO P
WITH'F'IN ZONE
PUT'F7'AT RP ADDRESS
IS Q DIGIT FLAGGED
NO. LOOP
YES. EXIT TO 'BIR'
PUT'FS'IN RP BYTE
*

A2SB

PAGE

1620 SIMULATOR

LOC OBJECT CODE

ADDR1 ADDR2 STMT
1992
1993
1994
1995
1996
1997

1999
2000
2001
2002
2003
2004
2005
2006
2007
2008
2009
2010
2011
2012
2013
2014
2015
2016
2017
2018
2019
2020

~~~R~~ ~~~~ a~~~

OOODCA
OO'ODCE
OO'GD02
0000[16
aOODDA
OGO'OOE
00O'OE2
GGO'OE6
OOOOEA
O'OOOEE
OOOOFZ

95FO'
47A(}
9SFQ
4740'
9200'
47FG
9SFO
47AO
9210
91GF
4750

BOnG
O'DE2
9000
OE4e
00'03
ODEE
9000
GE4C
0003
8000
OESC

oaODF6 nOF 9000'
GGODFA 4750 OESC
OOODFE
OOOEOO
000E02
000E06

0680
0690
910F 8000
4750 OE60

0'0'000'
0'00'0'0'
0'0'00'3
00000
0000'3
()()OOO
00'000

00000

0090'2 2022
2023
2024
GGOE2 20'25
20'26
GOE4C 2027
2026
O'GOEE 2029
2030
OGE4C 2031
2032
2033
GOESC 20'34
2035
2036
OOESC 20'37
2038
20'39
2040

***********************************************************************
*
*
*
SECTION 2
*
*
LOGIC OPERATIONS
*

*

*

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

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

*
*
*
*
*
*
*

*

*

*
*
AFTER CONVERSION OF THE P AND Q ADDRESSES.THE P FIELD AND Q FIELD *
SIGNS ARE COMPARED. UNLIKE SIGNS CAUSE THE SETTING OF THE EIZ *
AND HIP INOICATORS. A SCAN THEN DETERMINES IF THE P FIELD AND *
THE Q FIELD ARE ZERO, AND IF THE P FIELD IS LONGER THAN THE *
Q FIELD.
*

COMPARE

*

* IF THE P FIELD AND Q FIELD SIGNS ARE ALIKE, A COMPARISON ON ABSO- *
* LUTE VALUES IS PERFORMED BY THE 'COHP' SUBROUTINE.
*
*
*
* THE COMPARISON IS COMPLETED WHEN THE NUMBER OF BYTES IN THE P *
* FIELD IS GREATER THAN OR EQUAL TO THE NUMBER OF BYTES IN THE Q *
* FIELD*. OTHERWISE. THE ARITHMETIC CHECK INDICATOR IS SET TO OVER- *
* FLOW.
*
* THE MINIMUM LENGTH OF THE TWO COMPARED FIELDS IS TWO DIGITS.
*
* *THE COI'iPARISON IS CORRECT UP TO THE END OF THE SMALLER ONE OF *
* THE COMPARED FIELDS.
*
*
*
***********************************************************************
C24

O'09E8

2041

ASH H V 05 22.10 05/07/81

SOURCE STATEMENT

*

C24A
C24C
*

*

(24E

00E60 2042
2043 *

BAL
ST
CLI
BC

15.CONVPQ
RP,INITP
O(R?) ,x 'FO'
1O',C24A
eLI OCRQ)'X'FO'
BL
C24B
MVI HPEZ,X'OO'
C24C
B
CLI O(RQ),X'FO"
BC
10,C24B
MVI HPEZ,X'10'
O(RP),X'OF'
TH
BOM,C24ARC
BC
aOH,ENTRYO
Be
TH
OCRQ).X'OF'
aOH,C24ARC
BC
BOM,ENTRYO
BC
aCTR RP,O'
SCTR RQ,O
TM
o(RP ) •x ' OF '
BOH,C24AR1
Be
BOH,ENTRYO
BC

57

CONVERT P AND Q ADDRESSES
SAVE P ADDRESS
IS P FIELD POSITIVE
YES,GO TO C24A
NO, TEST Q SIGN POSITIVE
NO,BRANCH
YES,SET H/P.E/Z = OFF

*IS Q FIELD POSITIVE

YES,GO TO C246
NO,SET H/P=ON,E/Z=OFF
IS P FIELD EQUAL TO ZERO
GO TO TEST IF OVERFLOW OCCURV1L2
NO,RETURN TO 'BIR'(OELETED) VIL2
YES,IS Q FIELD EQUAL TO ZERO
GO TO TEST IF OVERFLOW
V1L2
NO RETURN TO 'BIR'(DELETED) V1L2
YES,RP=RP-l
RQ=RQ-1
IS P FIELD EQUAL TO ZERO
GO TO TEST IF OVERFLOW
V1L2
NO.RETURN TO 'BIR'(DELETED) V1L2

A2SB

1620 SmULA TOR

Loe OBJECT CODE

ADDRl ADDR2 STMT

OOCEOA 9l0F SlMO
OOOEOE 4750 OE60

00000

000E12
000E16
OOOEIA
000E1E
000E22
000E26
OnGE2A
000E2E
000E32
OOOE%
000E38
OOOE3C
000E40
000E44
000E48
000E4C
000E50
OOOE54

00000

9120 ~DOO
4780 OE2E
9120 8000
4750 ODFE
9201 OD03
45FO 357C
47FO 07F6
9120 8000
4780 OE44
0680
910F 8000
4750 07F6
47FO DE2E
9201 0003
47FO OiF6
9200 Ot:S5
4SFOQE6C
4700 CE26
OOOE5~ 'lIFO 07t6
ODOEse 0680
000E5E 0690 ,.
OOOE60 9120

000E64
000E68
000E6c
aOOE70
000£74
000E78
OOOE7C

4780
9120
4780
47FO
9120
4780
4?FO

eMo
nE74
9.000

07f6
OE$(

9000
07F6
DE26

PAGE

00000

00003
00000
00000
00003

GOESS

(lOOOO

00000
00000

2044
00E60 2045
2046
2047
00E2E 2048
2049
OODFE 2050
2051
01S7e 2052
007F6 2053
2054
00E44 2055
2056
2057
007F6 2058
00E2E 2059
2060
007F6 2061
2062
OOE8C 20b3
00E26 2064
007F6 2065
2066
2067
20b8
00E74 2069
2070
007F6 2071
OOESC 2072
2073
007f6 2074
00E26 2075

2078
2079
2080
2081

ASH H V 05 22.10 05/07/81

SOURCE STATEMENT
TH

BC
BC
TM
BZ
TM

*

C241
C240

C24F
C24B
NOQEND
C24ARC
C24ARl

C24AR2

a(RQ) ,X'OF'

BOH,C2 l iARl

BOH,ENTRYO
OCRQ),X'20'
C24D
OCRP),X'20'
BOH,C24E
Be
HVI HPEZ,X'Ol'
BAL 15,ARCBK
ENTRYO
B
0(RP),X'20'
TM
BZ
C24F
BCTR RP,O
TH
o(RP ) ,X ' OF '
BOM,ENTRYO
BC
C24D
B
HVI HPEZ,X'Ol'
ENTRYO
B
HVI NOQEND+l,X' 00'
BAL 15 ,CO~IP
NOP,C241
BC
ENTRYO
B
BCTR RP,O
BCTR RQ,O
OCRP),X'20'
TH
Be
8,C24AR2
O(RQ),X'20'
TH
8,ENTRYO
BC
C24ARC
B
0(RQ),X'20'
TM
Be
8,ENTRYO
C24I
B

YES,IS Q FIELD EQUAL TO ZERO
GO TO TEST IF OVERFLOW
V1L2
NO,RETURN TO 'BIR'(DELETED) V1L2
YES,IS Q FIELD FLAGGED
YES ,BRANCH
NO,IS P FIELD FLAGGED
YES ,LOOP
NO, SET H/P=OFF,E/Z=ON
ARITHMETIC CHECK TESTING
RETURN TO 'BIR'
IS P FIELD FLAGGED
YES ,BRANCH
NO,RP=RP-1
IS P FIELD EQUAL TO ZERO
NO,RETURN TO 'BIR'
YES,LOOP
SET H/P=OFF,E/Z=ON
RETURN TO 'BIR'
SET SWITCH NOQEND OFF
COMPARE SUBROUTINE
SWITCH NOQEND
RETURN TO 'BIR'
RP=RP-1
VIL2
RQ=RQ-l
VIL2
IS P FIELD FLAGGED
VIL2
YES,BRANCH
VlL2
NO,IS Q FIELD FLAGGED
V1L2
YES RETURN TO 'BIR'
VIL2
NO ,LOOP
VIL2
IS Q FIELD FLAGGED
VIL2
V1L2
YES RETURN TO 'BIR'
NO GO TO ARITH CHECK SUBR V1L2

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

*
*
*
2082 *
2083 *
2084 *
2085 *

*
*
*
OPERATION IS AS FOR THE ABOVE 'COMPARE' INSTRUCTION EXCEPT THAT *
ONLY THE P ADDRESS IS CONVERTED. THE Q ADDRESS IS GIVEN THE VAL- *
UE CORRESPONDING TO THE RIGHTHOST BOUNDARY OF THE 1620 INSTRUCT- *
COMPARE IMMEDIATE

ION.
*
2086 *
*
2087 ***********************************************************************
000E80 4SFO 0906

00906 2089 CM14

OOOES8 47FO 00C6

OODC6 2091

OOOE84 4195 0008

00008

2090

BAL
LA
B

15,CONVP
RQ.l1(CNTR)
C24+4

58

CONVERT P ADDRESS
RQ = CNTR + 11
GO TO COMPARE

Alsa

1620 SIMULATOR

LOC OBJECT CODE

PAGE

ADDRl AODR2 STHT
2094
2095
209b
2097
2098
2099
2100
2101
2102
2103
2104
2105
2106
2107

41AO
0100
D100
9500
4740
4780
9210
0680
0690
41AA
0100

SOURCE STATEMENT

*
*
*
*
*
*
*
*
*
*
*

'COMP' SUBROUTINE
THIS SUBROUTINE IS USED BY THE FIXED-POINT
AND THE FLOATING-DIVIDE OPERA nON.

00001 2109 COMP
00E9D 00000 2110
OOF30 00000 2111
2112 COMPA
OOF30
DOFlO 2113
00F18 2114
00003
2115
2116 COHPF
2117
{jUGl
00001 2118
u.ECl 9000 OOECI 00000 2119
0100 Of30 flOOO OOF30 00000 2120
9500 Of30
00F30
2121 tOMPC
4720 Gli'20
00F20 2122
4740 ol&Z8
OOFZ8 2123
9120 9900
00000
2124 COMPO
00EE4 2125
4780 ~~E4
9120 ~IOOO
00000
2126
4710 drAc
OOEAC 2127
nFO OE55
00E55
2128
OOEFA 2129
4/FO OEFA

000EE4
000EE8
OOOEEC
OOOEEE
OOOEF2
000EF6

9120
4780
0680
910F
4780
9210

2131 COHPl
OOEFA 2132
2133
00000
2134
00EE4 2135
00003
2136
00000

OOOEFA 5880 09E8
OOOEFE 95FO 8000
OOOf02 07AF

00000

000F04 9501 0003
000F08 07aF

00003

009E8 2138 COHP2
2139
2140
2142
2143

*

*

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

0001
0[9D 9000
ono 8000
Of30
ono
ana
OIH)3

8000
OEE4
0003

'COMPARE' OPERATION,

*
*
*

*
*
THE COMPARISON OF THE P AND Q FIELDS IS HADE,DIGIT BY DIGIT, FROH *
RIGHT TO LEFT. ALL THE INDICATORS ARE SUSEQUENTLY MODIFIED. NEI- *
THER THE P FIELD NOR THE Q FIELD IS ALTERED.
*
*
OUTPUT
UPDATING OF HIP AND E/Z INDICATORS
*

OOUE8C
000E90
OOOE96
OOOE9C
oaOEM
OOOEM
GOOEM
oootAC
OOo£tiE
000E80
OOOE84
OOOEBA
OOOECO
OOOEt4
000Et8
OOOECC
OOOEoo
OOOED4
OOCEIJS
OOOEDC
OOOEEO

8000
OEfA

ASH H V 05 22.10 05/071Bl

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

*

LA
MVN
HVN

59

I-lRl.l
COMPA+l(l),O(RQ)
ACO~1P (1 ) ,0 (RP )
eLI ACOHP.X'OO'
BL
COHPB
BE
COMPE
HVI HPEZ,X'lO'
BCTR RP,O
BCTR RQ,O
WR1,1(WRl>
LA
MVN COHPC+1( 1), O(RQ)
HVN ACOMPO), O(RP)
CLI ACot1P ,X' 00'
BH
COHPB1
COMPEl
BL
0(RQ),X'20'
TH
COMPl
BZ
0(RP),X'20'
TM
BO
COHPF
HVI NOQEND+l,X'FO'
B
COHP2

WR1=1
COMPARE P NUMERIC
WITH Q NUHERIC

*LOWER

EQUAL
SET H/P=ON,E/Z=OFF
RP=RP-1
RQ=RQ-l
WRl=WRl+1
COMPARE P NUMERIC
WITH Q NUHERIC

*HIGHER

LOWER
IS Q FIELD FLAGGED
YES ,BRANCH
IS P FIELD FLAGGED
NO,LOOP
SET SWITCH NOQEND ON

TM
BZ
SCTR
TH
BZ
HVI

0(RP),X'20'
COHP2
RP,O
O(RP),X'OF'
COMPI
HPEZ,X'10'

IS P FIELD FLAGGED
YES,BRANCH
NO,RP=RP-l
IS P FIELD NUMERIC = 0
YES,LOOP
SET H/P=ON,E/Z=OFF

L

eLI
BCR

RP,INITP
O(RP),X'FO'
10,15

RESTORE P ADDRESS
IS P FIELD POSITIVE

*

CLI
BZR

HPEZ,X'Ol'
15

NO,IS ElZ ON
YES,RETURN TO CALLER

A2se

PAGE

1620 SIMULATOR

LOC OBJECT CODE

ADDR1 ADDR2 STMT

OOOFOA 9710 0003
OOOFOE 07FF

00003

OOOFlO 9200 0903
000F14 47FO OEAC
ooona 9201 !lOO3
OOOFle 47FO (lEAC
000F20 9210 0003
000F24 47FO O~CC
OnOFlS 9200 0003
OOOF2C 4?FO OECC

00003

000F30 0000

SOURCE STATEHENT

2145
2146

2148
OOEAC 2149
00003
2150
OOEAC 2151
00003
2152
OOECC 2153
2154
00003
OOEce 2155

COMPB

HPEZ,X'10'
15

NO,EXCLUSIVE OR WITH HIP
RETURN TO CALLER

HVI

B

HPEZ,X'OO'
COHPF
HPEZ,X'Ol'
eOHPF
HPEZ,X'lO'
COtlPO
HPEZ,X'OO'
COHPD

*SET H/P=OFF,ElZ=ONN
*SET HP ON,EZ OFF
*SET HIP, ElZ = OFF
*

DC

X'OOOO'

BYTE FOR COMPARING P AND Q

CCHPE

HVI

COHPB1

HVI

COMPEl

HVI

2157 ACOMP

ASH H V 05 22.10 05/07/81

XI
BR
B

B
B

60

SET H/P,E/Z : OFF

A2sa

1620 SIMULATOR

LOC OBJECT CODE

PAGE

AOORI ADDR2 STHT
2159
2160
2161
2162
2163
2164

OOOF32
OOOF36
OOOF3A
OOOF3E
OOOFtt2
OOOFi'J4

45FO 09iE
910F 9000
478() diFb

45FO
1858
4250
9101

0906
..•
OFS8
OOOF4~
OF58
OOOF4C 4780 07FA
OOOF50 45FO OOr4
OOOF54 OOOa019D
OOOFSS

0091E 2166
2167
007F6 2168
00906 2169
2170
OOFS8 2171
OOF58
2172
007FA 2173
OOOF4 2174
2175
2176

OOOF5E 9120 9000
000F62 478C 07F6
OOOF66 47FO OF3E

00000

ASH H V 05 22.10 05/07/81

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

*
*
*
*

BRANCH ON DIGIT
BRANCH

*
*
*
*

***********************************************************************
BD43

00000

2179
2180
2181
2182
2183
OOOF5A 4SfO 091E

SOURCE STATEHENT

B49
TESTSR

STC

BAL 15,CONVQ
O(RQ) ,X' OF'
TM
BZ
ENTRY1
BAL 15,CONVP
LR
CNTR,RP
STC CNTR,STC
TM
STC,X'OI'
a,ENTRY2
BC
SAL 15,HESTOP
DC A noe

9~OO

OOFBD
00FC9
00000

00008

OOOFBA 4740 Or-BC
OOFBC
OOOFSE F271 O?EO 9000 009EO 00000
OOOF94 %OF 119E7
009E7
()OOF9B 4FAQ O'9EO
009EO
000F9C lOBO
OOOF9E 43BA Of DC
OOFOC
OOOFA2 42130 orB5
OOFBS
OOOFA6 43BA 3QM
010M
OOOFAA 4280 OFCS
OOFCS
OOOFAE lAM
OOOFao 48el>. 3Q04
01004
00000
OOOFB'! 9100 COGO
00FC4
OOOFSS 4770 Qrt4
OOOFBe 4700irfjE
OOF3E
007F6
OOOFCO 47fO P?F6
000FC4 9700 tUDO
00000
OOOFca 4700 ()?F6
007F6
OOOFCC 47FO OF3E
OOF3E

2222
2223
2224
2225
2226
2227
2228
2229
2230
2231
2232
2233
2234
2235
2236
2237
2238
2239
2240
2241
2242
2243

SOURCE STATEMENT

ASH H V 05 22.10 05/07/81

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

*
*
BRANCH INDICATOR
*
* THE DIGITS QS AND Q9 ARE CONVERTED INTO BINARY IN ORDER TO OBTAIN
* AN ADDRESS FOR THE HALFWORD TABLE 'INDICA' AND FOR THE BYTE TAB* LES 'IHDICH' AND INDICX'.
*

* THE HALFWORD TABLE 'INDICA' PROVIDES THE INDICATOR ADDRESS IN THE
* DATA FIELD OF THE SIMULATOR (SEE UNDER 'CONSOLE SIMULATION' - BE*
*
*
*
*
*
*
*

GINNING OF SIMULATION).

THE BYTE TABLE 'INDICH' PROVIDES THE HASK WHICH ALLOWS TESTING OF
THE INDICATOR BIT.
THE BYTE TABLE 'INDICX' PROVIDES AN EXCLUSIVE-OR MASK THAT ALLOWS
CLEARING OF THE INDICATOR BIT AFTER TESTING. IF SO REQUIRED.

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

***********************************************************************
BI46
BIA

BIC
BNISI
BID
BNIS2

MVI
HVI
LA
TH
BC
PACK
OI
CVB
LR
IC
STC
IC
STC
AR
LH
TH
BC
Be
B
XI
BC
B

BNISl+1.0
BNIS2+1.0
RQ,8WHR)
O(RQ) ,X'OC'
4,BNISl
BUFFQ(8), 0(2 ,RQ)
BUFFQ+7,X' OF'
WRl,BUFFQ
WR2,0
WR2,INDICH(WRl>
WR2,BIC+1
WR2, INOICXO-lR1)
WR2,BID+1
WRl,WRl
WR3,INDICAO-lRl>
OnlR3) ,X'OO'
7,BID
NOP,B49
ENTRY1
O(WR3),X'00'
NOP,ENTRY!
849

62

SET BNISI SWITCH OFF
SET BNIS2 SWITCH OFF
LOAD ADDRESS OF Q8
TEST INDICATOR VALIDITY
BRANCH IF INVALID
PACK Q8 AND Q9
SET + SIGN
CONVERT INTO BINARY
CLEAR WR2 REGISTER
GET TESTING MASK AND STORE IT
IN TEST UNDER HASK
GET XOR HASK AND STORE IT IN
EXCLUSIVE OR INSTRUCTION

*LOAD ADDRESS OF TESTED BYTE
TEST INDICATOR BYTE
BRANCH IF INDICATOR ON
SIHTCH 1 FOR BNI47

*SET INDICATOR OFF (IF REQUIRED)
SWITCH 2 FOR BNI47
BRANCH TO B49

A2SB

1620 SIMULATOR

LOC OBJECT CODE

PAGE

ADDR1 ADDR2 STHT

SOURCE STATEMENT

ASH H V 05 22.10 05/0'7/61

2245 ***********************************************************************
2246 *
*

2247
2248
2249
2250
2251
OOFBD
OOFC9

*
BRANCH NO INDICATOR
*
* SAME COMMENTS AS FOR 'BRANCH INDICATOR'.
*

*
*
*
*

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

2253 BNI47
2254
OOF82 2255

NVI
MVI
B

BNIS1+1,X'FO'
BNIS2+1,X'FO'
BIA

SET BNIS1 SWITCH ON
SET BNIS2 SWITCH ON
GO TO 81-46

2258 ***********************************************************************

2259 *
2260

*

TABLES FOR INDICATOR TESTING

*
*
*

2261 *
2262 ***********************************************************************
OOOFDC 00804020'10008040'
OOOFE6 0010011110010000
OOOFFS 000000100008000'0

OOOFFA 040201~402010(H)2
00100'4 OOOOOFFO
001008 00000001
OOIOOC 00000001

OOHllO 00000001

001014
001018
00101C
001020
001024

001028
00102e

001030
001034

00000001
OOOOOFFO
00000002
00000002
OOOOCFfO
00000(/Q5
OOOOOF!=O
00000003
00000003

0010313 OOOOO()03
00103C 000000(]4
001040
001044
001048
0010t1C
001050
001054
001058
00105e
001060
001064
001068

0000000(1
OOOOOFFO
OOOOOfFO
OOOOOt:"FO
00000002
OOOOOFFO
OOOOOFfO
OOOOOfFO
OOOOOFFO
OOOOOFFO
00000002
00106C OOOOOFFO
001070 OOOOOFFO

2264 IHDlCN
2265

2266 INDERR
2267
2268 INDICA

2269
2270
2271
2272

2273
2274
2275
2276
2277

2278

2279
2280
2281
2282
2283
2284
2285
2286
2287
2288
2289
2290
2291

2292
2293
2294
2295

DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC

63

X'00804020100080400001'
X'001001111001000000CF'
X'00000000000800000000'
X'04020104020104020107'

A(INDERR)
A
WR5,ACARRY-20B(R1)
Rl,ATAB2-20B(R1)
Rl, OO-lR2)
WR5,l-lR5
HULTA
WR2,O
Rl,O(WR2)
R1,HTABl-20!HRl>
HULTB

0(RP),X'20'
TH
BZ
HULTC
BCTR RP,O
BCT WR1,HULTD
TM
BO
C
BE
NI
LA
ST
LM
MVZ
TM
BO
TM
BO

O(RQ) ,x '20'
HULTE
RQ,INITQ
HULTE
0(WR2 LX 'OF f
WR1,99(HAPORG)
RP,FDIC
RP ,RQ, INITP
0(1, RP) ,APSIGN
0(RP),X'20'
HULTl
OCRQ) ,X'20'
HULT2

78

INSERT BINARY
EQUIVALENT OF 10*P
GET FIRST DIGIT OF RESULT
RESET FLAG
INSERT PRODUCT AREA DIGIT
GET ITS BINARY EQUIVALENT
ADD THE TWO DIGITS
ADD CARRY

V1L2

*CLEAR CARRY (IF ANY)

SET NEW CARRY(IF ANY)
NORHALIZE RESULT
STORE RESULT IN PRODUCT AREA

*GET 2ND DIGIT OF RESULT

RESET FLAG
INSERT PRODUCT AREA DIGIT
INSERT PRODUCT AREA DIGIT
GET ITS BINARY EQUIVALENT
ADD TWO DIGITS
ADD CARRY

*SET NEW CARRY(IF ANY)

NORMALIZE RESULT
STORE IT IN PRODUCT AREA
TEST LAST CARRY
IF NONE, BRANCH

*INSERT FOLLOWING DIGIT

GET ITS BINARY EQUIVALENT

*
IS P DIGIT FLAGGED
YES,BRANCH
NO,RP=RP-1
WR1=WR1-1 AND LOOP
IS Q DIGIT FLAGGED
NO ,BRANCH
YES, IS RQ = INITIAL VALUE
YES,BRANCH
NO, SET FLAG ON PRODUCT AREA
LOAD WR1=ADOR. OF PROD.AREA
SAVE RP (FMUl)
RESTORE P AND QADDRESSES
RESTORE P SIGN
IS P FIELD POSITIVE
YES,TEST Q SIGN
NO, IS Q FIELD POSITIVE
YES,SET SIGN

V1L2

A2SB

1620 SIKULA TOR

LOC OBJECT CODE

PAGE

ADDR1 ADDR2

STHT

SOURCE STATEI1ENT

0014AC 9bFO MOO
001480 58FO 3400
001484 07FF

00000

0014B6
0014BA
00148.C
0014eO

009E8 2889 HULTE
2890
013E6 2891
00000
2892 MULTl
014AC 2893
00000
2894 MULT2
01480 2895

5880 09E8
0620
4690 ~?E6
9120 9QOO

~~t~~l ;~~~ R6~~

0014CC 47FO 34BO

2885 HULB
01400 2886 HULT4
28B7

01
L
BR

O(WRl) ,X'FO'

1S,REG1S
15

ASH H V 05 22.10 05/07/61
SET + SIGN IN PROD. AREA
RESTORE RETURN ADDR.
RETURN TO CALLER

RP,INITP
L
SCTR R2,0
BCT RQ,MULTF
O(RQ),X'ZO'
TM
BO
HULT3
O(l.IRl) ,X 'OF'
NI
8
HULT4

RESTORE P ADDRESS
R2=R2-1
RQ=RQ-1,LOOP
IS Q FIELD POSITIVE
YES,GO TO SET + SIGN
NO, SET MINUS SIGN
*

001400
001404 OOOOOQOF
001408 OOOOOOUOOOODDDDO

2697 REGIS
2898 CUTZ
2899 MCLEAR

OS
DC
DC

F
X'OOOOOOOF'
5F'0'

*

0014£( OODOnGFF
0014FO OOOOOOFO

2901 RCLEAR
2902 RfLAG

DC
DC

X'OOOOOOFF'
X'OOOOOOFO'

*

*
VILZ

2904 ***********************************************************************
2905

*

*

2906 *
TA8LES FOR 'HULT' SUBROUTINE
*
2907 *
*
2908 ***********************************************************************
001~&4 64666rl6A6CC8CAtC

0014Ft

CEOOb4~66CC86CC8

oOlsi&

OOOlO~03D40506b7

00l5:U~ OOOHlt03040S06tit
00150C 080900.9104050405
001514 646bb86A6CCBCACC
0015lC tED064p66CC86~C8

00152{ 0809000104050Ci05
001534 FOF1F~PF4F5FsF7
00153E DODlD2D3D4D5D6D7

2910 MQTAB
2911
2912 MTA81
2913
2914
2915
2916
2917
2918 HTABZ
2919

DC
DC
DC
DC
DC
DC
DC
DC
DC
DC

X'6466686A6CC8CACC'
X'CED064666CC86CC8'
X'OOOlO203040S0607'
X'0809000104050405'
X'6466686A6CC8CACC'
X'CED064666CC66CC8'
X'OO01020304050607'
X'0809000104050405'
X'FOFIF2F3F4FSF6F7F8F9'
X'DODID2D3D4D5D6D7D8D9'

79

*
*
**
**
*

*

**
**

A2SB

PAGE

1620 SIHULATOR

LOC OBJECT CODE

ADDR1 ADDR2 STHT
2921
2922
2923
2924
2925
2926
2927
2928
2929
2930
2931
2932
2933
2934
2935
2936
2937
2938
2939
2940

0015~~ 910F AtlOO

00000

Anoo

00000

00IS t iC 4750
001550 06AO
001552 910F
0015S~ 4750
00155A 9120
00lSSE 4710
001562 9201
00I56li> 07ff
0015613 9120
00156C 4780
00157a 9210
001574 07FF
001576 9200
00157A 07FF

3568

$568
AGOO
3550
0003

00000
00003

8000
35;;'6

00000

M03

00003

0003

00003

2942
01568 2943
2944
2945
01566 2946
2947
01550 2948
2949
2950
2951
01576 2952
2953
2954
2955
2956

ASH H V 05 22.10 05/07/81

SOURCE STATEMENT

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

*
*
*

'INDIC' SUBROUTINE

* FUNCTION
* THIS SUBROUTINE IS, IN GENERAL, USED BY BY ARITHMETIC AND FLOAT* ING POINT INSTRUCTIONS AND UPDATES THE HIGH/POSITIVE AND EQUAL/

* ZERO INDICATORS UPON COMPLETION OF THE OPERATION.
*
*
*
*
*

OPERATION
THIS SUBROUTINE STARTS WITH A PRELIHINARY SCAN OF THE P FIELD FOR
ZERO RESULT. IF THE SCAN IS ENTIRELY SUCCESSFUL, THE SIMULATED
EQUAL/ZERO INDICATOR IS SET ON, AND THE SIHULATED HIGH/POSITIVE
* INDICATOR IS SET OFF. IF A NON-ZERO DIGIT IS ENCOUNTERED DURING
* THE SCAN. THE SIMULATED EQUAL/ZERO INDICATOR IS SET OFF. AND THE
* SIMULATED HIGH/POSITIVE INDICATOR IS SET ON OR OFF. DEPENDING
* ON THE PRECEDING SIGN TEST OF THE P FIELD. THEN. THIS SEQUENCE
* EXITS TO THE CALLING SUBROUTINE.

*

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

***********************************************************************
INOIC
IN01

IND2
IND3

TH
BC
BCTR
TH
BC
TH
BO
HVI
BR
TH
BZ
HVI
BR
HVI

BR

80

O(WRl) ,X' OF'
Bot1,IN02
WR1,0
OmRl) .X'OF'
BOH,IN02
O(WRl) .X'20'
IN01
HPEZ,X'Ol'
15

O(RP) ,X '20'
IND3
HPEZ,X'10'
15
HPEZ,X'OO'
15

IS FIRST WRI NUMERIC = 0
NO, BRANCH
YES, WRI = WRI - 1
IS CURRENT WRI NUMERIC = 0
NO, BRANCH
YES, IS WR1 OIGIT FLAGGED
NO. LOOP
YES, PUT EZ=ON. HP=OFF
RETURN TO CALLER
IS P FIELD POSITIVE
NO. BRANCH
YES, PUT EZ=OFF, HP=ON
RETURN TO CALLER
PUT EZ AND HP = OFF
RETURN TO CALLER

A2sa

1620 SIMULATOR

LOC OBJECT CODE

PAGE

ADDR1 ADDR2 STMT
2958
2959
2960
2961
2962
2963
2964
2965
2966
2967
2968
2969
2970
2971
2972
2973
2974
2975
2976
2977
2978
2979
2980
2981

00157C
001580
001584
001588
00158(;
001590
001594
001598
00159C
0015AO

9610
41EO
9101
471F
40EO
45FO

0004
0193
0001
0000
3594
OOF4

OOOOOQQO

%01 tlOO4
41EO 0188
47FO 3584

00004

ASM H V as 22.10 05/07/81

SOURCE STATEMENT

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

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

*
*
*

'ARCHK' AND 'EXCHK' SUBROUTINES

*
*
*

THIS SUBROUTINE IS USED TO PROCESS ARITHMETIC OVERFLOW AND UNDER- *
FLOW CONDITIONS.
*

*

ENTRIES
*
'ARCHK' FOR ARITHMETIC CHECKS CAUSED BY ARITHMETIC OVERFLOW
*
'EXCHK' FOR EXPONENT CHECKS CAUSED BY EXPONENT OVERFLOWIUNDERFLOW *
OPERATION
THE ARITHMETIC CHECK INDICATOR IS TURNED ON. THEN, THIS INDICATOR
IS DISPLAYED ON THE 1052 PRINTER-KEYBOARD IF SO REQUIRED BY CONTROL INFORMATION. THE SIMULATED OVERFLOW SWITCH IS INTERROGATED IF SET TO 'PROGRAH',THE SUBROUTINE RETURNS TO THE CALLING SEQUENCEo IF SET TO 'STOP', A MESSAGE STATING THAT THERE IS AN 'AR!THHETIC CHECK' AND INDICATING THE ADDRESS OF THE INSTRUCTION INVOlVED, IS SENT TO THE OPERATOR. SIMULATION IS SUSPENDED UNTIL OPERATOR ACTION IS TAKEN.

*
*
*
*
*
* NOTE: SAME OPERATION FOR 'EXCHK'.
*

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

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

2983 ARCHK
00193 2984
00001
2985 OFLSWI
00000 2986
01594 2987
OOOF4 2988
2989
00004
2990 EXCHK
00183 2991
01584 2992

01
LA
TH
BO
5TH
SAL
DC
01
LA
B

81

OFLOW,X'10'
WR5,AR
PROSWI,X' 01'
0<15 )
WR5,*+8
I5,HESTOP
MO)
OFLOW,X'Ol'
WR5,EXP
OFLSWI

SET ARITHM. CHECK INDIC. : ON
PREPARE MESSAGE
TEST IF O'FLOW SWITCH: 'STOP'
NO, RETURN TO CALLER

*DISPLAY INDICATOR

* SET EXPONENT CHECK INDICATOR ON
PREPARE MESSAGE
BRANCH

A2SB

1620 SIMULATOR

LOC OBJECT CODE

PAGE

ADDR1 ADDR2 STMT
2994
2995
2996
2997
2998
2999
3000
3001
3002
3003
3004
3005
3006
3007
3008
3009
3010
3011
3012
3013
3014
3015
3016
3017
3018
3019
3020
3021
3022
3023
3024
3025
3026
3027
3028
3029
3030
3031
3032
3033
3034
3035
3036
3037
3038
3039
3040
3041

SOURCE STATEMENT

ASH H V 05 22.10 05/07/81

AIF (NOT &DIVIDE).NODIV1
***********************************************************************

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

82

'FIXDIV' SUBROUTINE
THIS SUBROUTINE IS USED BY FIXED-POINT AND FLOATING-POINT DIVIDE
OPERATIONS.
OPERATION
THE P AND Q ADDRESSES AND THE P FIELD SIGN ARE SAVED. REGISTERS
WRl AND WR2 USED AS POINTERS ARE INITIALIZED. THEN. THE 'ADDPQ'
SUBROUTINE IS ENTERED TO SUBTRACT THE Q FIELD FROH THE DIVIDEND
BY ADDING THE NINES COMPLEMENT OF EACH DIVISOR TO EACH DIVIDEND
(SEE ALSO FIXED-POINT SUBTRACTION)' IF NECESSARY. A NEW CARRY IS
SET.
WHEN A Q FLAG OTHER THAN THE SIGN FLAG IS DETECTED. AN EXTRA ZERO
DIGIT IS SUBTRACTED FROH THE DIVIDEND BEFORE ADDING THE P DIGIT
OF WRl TO THE Q DIGIT.
A TEST IS PERFORMED ON THE LAST CARRY. A CARRY ONE INDICATES THAT
THE SUBTRACTION OF THE Q FIELD HAS NOT EXHAUSTED THE DIVIDEND. THE
LAST CARRY IS ADDEO TO THE UNITS POSITION OF THE RESULTING P
FIELD. THE ZERO-SET QUOTIENT DIGIT IS INCREHENTED BY ONE. WHICH
PROVES mAT ONE SUBTRACTION HAS BEEN SUCCESSFULLY PERFORMED. THE
QUOTIENT DIGIT IS CHECKED AGAINST 9, SINCE HORE THAN NINE
SUBTRACTIONS RESULT IN AN OVERFLOW. IN CASE OF OVERFLOW. THE 'FIXDIV'
SUBROUTINE RETURNS TO THE CALLING SEQUENCE THROUGH A SPECIAL OVERFLOW EXIT.
IF THE QUOTIENT DIGIT IS LOWER THAN, OR EQUAL TO 9. CONTROL IS GIVEN BACK TO THE START OF A NEW SUBTRACTION. THIS PROCESS IS REPEATED UNTIL THE LAST CARRY IS ZERO. IN CASE OF A ZERO CARRY. THE
PARTIAL REMAINDER IS TESTED. IF NULL. THE PROGRAM RETURNS TO
'CARRY ONE'. IF NOT NULL. THE ZERO CARRY INDICATES AN EXCESS
SUBTRACTION AND THE RE-ADOITION LOOP 'ADDPQ' IS ENTERED IN ORDER
TO ADD ONE DIGIT OF THE Q FIELD AFTER THE OTHER TO THE PREVIOUS
FIELD.
FINALLY, THE QUOTIENT DIGIT IS NORMALIZED AND STORED. THE P ADDRESS IS THEN COMPARED TO THE 1620 ADDRESS 99 AND, IF LOWER. IT
IS INCREMENTED BY 1. THE WHOLE PROCESS OF SUCCESSIVE SUBTRACTIONS + RE-ADD IS STARTED ALL OVER AGAIN. UNTIL THE P ADDRESS IS
EQUAL TO 99. THE LENGTH OF THE QUOTIENT IS COMPUTED AND THE QUOTIENT FLAG IS SET. A FLAG IS SET ON THE REMAINDER. WHICH THEN RECEIVES THE P SIGN.

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

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

A25B

1620 SIMULATOR

lOC OBJECT CODE
OOISM 9201
0015A~ 9089
0015~t 0300
0015B2 0300
0015es 96FO
00156C 9200
OOisto 18CO
0015e2 1800
0015C4 1820
0015C6 IBM
0015C8 1889
0015CA 18EO
0015et 4510
(J015Dn 96FO
0015D£t 9120
001508 06AO
00150A 50AD
0015DE 4780
0015E2 £tGBO
0015E6 43DO
0015EA 4510
0015EE 96FO
0015F2 46EO
0015F6 1888
OCl15F8 9109
001sFC 47CO
001600 94FO
001604 5980
001Ms 4780
00160C 4680
. 001610 41£E
001614 43CB
001618 lACE
OOlHA 42CB
0016~t 4122
001622 4110
001946 1921
0016Z~ 4720
00lb~~ 47FO
0016.39 0300
001636 4?FF
00163;3; IBM
001631: 1869
00163E 95F9
001642 4770
001646 9120
OOlMA 4780
00164E OGAO
001650 4680
001654 4lEE
001658 18AS
00165A 18B9
00165C 92FO
001660 4510
001664 9120

!H103

32£8
MOO

Boao

0580
35£6
35CC
3334
32F4
AOOO
363A
8000
3610
BOOO
0580
3610
35f8
0001
0000
0000
OQ01
0039
3~30
~~C6

9QOO

00 or,

A~OO

3654
BOOO
35F6
363E
0001
32ED
32E8
BOOO

AODia ADDR2 STHT

3043
009E8 3044
6063 013M 00063 3045
9000 013A5 00000 3046
30{t7
00000
012ED
3048
3049
3050
3051
3052
3053
3054
012E8 3055
00000
3056
00000
3057
3058
00580 3059
015E6 3060
015CC 3061
01334 3062
012F4 3063
00000
3064
0163A 3065
3066
00000
3067
01610 3068
00000
3069
00580 3070
01610 3071
015F8 3072
00001 3073
00000 30?4
3075
00000 3076
00001 3077
00009 3078
30?9
01(,30 3080
015C6 3081
33A5 00000 013A5 3082
00004 3083
3084
3085
ooaoo
3086
01654 3087
3088
00000
015F6 3089
3090
0163E 3091
00001 3092
3093
3094
012EO
3095
012E8 3096
00000
3097

09£:8.

33M
33A5
9000
32EO

PAGE

00003

SOURCE STATEMENT
FIXDIV

.

FIXD13
FIXDIO
FIXDIA
FlXDA

FIXD1
FIXDIE
FIXD5

FIXD4

FIXD6
FIXD2
FIX[)19

FIX018
FIXD9

HVI
STH

HPEZ,X'Ol'
RP,RQ,nlITP
HVZ APSIGIH 1), 99(HAPORG)
HVZ AQSIGN(U ,O(RQ)
O(RQ),X'FO'
or
Hvr CVQ+1 ,X' 00'
WR3,O
LR
WR4,0
LR
R2,0
LR
WRl,RP
LR
WR2,RQ
LR
WR5,O
LR
BAL R1,AOOPQ
O(WRU,X'FO'
OI
TM
OHlR2),X'20'
BCTR WRl,O
51
WRl,FDIC+16
BZ
FIXDI
BCT WRZ,FIXDA
IC
WR4,ATAB3
SAL Rl,ADDPQX
01
O(WRU ,X'FO'
BCT WR5,FIXD2
LR
WR2,RP
O(WRZ) ,X'09'
TM
BZH,FIXD4
BC
0(WR2) ,X'FO'
NI
C
WR2,FDIC+16
8,FIXD4
BC
BCT WR2,FIXD5
WR5 ,l(WR5)
LA
WR3,O.
OOI93e
00193E
001944

ASH H V 05 22.10 05/07/81

SOURCE STATEMENT

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

*
*
TRANSMIT FLOATING
*
* THE P AND Q ADDRESSES ARE CONVERTED TO BINARY, AND THREE DIGITS
* ARE HOVED FROH THE Q FIELD TO THE P FIELD.
* CONTROL IS THEN GIVEN TO TFA IN THE 'TRANSMIT FIELD' ROUTINE.
*

*
*

*
*
*
*
*

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

45fO 0902
0680
0680
0690
0690

00902 3396 TFL06
3397
3398
3399
3400
D202 Bboo 9000 00000 00000 3401
47FO OCAO
OOCAO 3402

SAL
BCTR
BCTR
BCTR
BCTR
HVC
B

15,CONVPQ
RP,O
RP,O
RQ,O
RQ,O
0(3, RP ) , 0(RQ)
TFA

CONVERT P AND Q ADDRESSES

*RP=RP-2
*RQ=RQ-2
HOVE 3 CHARACTERS FROM Q TO P
GO TO TRANSMIT FIELD

3404 ***********************************************************************
3405 *
*
3406 *
BRANCH AND TRANSMIT
*
3407 *
*
3408 ***********************************************************************
00902 3410 BTFL07
OOOOC 3411
3134
01134 3412
3413
3414
3415
3416
3417
3418
BUOO 9000 00000 00000 3419
30E2
010E2 3420

001948 4SFO 0902
00194C 41A5

001950
001954
0019%
001958
0019SA
00195C
00195E
001960
001%6

SOAO
185B
0680
0660
06BO
0690
0690
0202
47fO

cooe

BAL
LA
ST
LR
BCTR
BCTR
BCTR
BCTR
BCTR
MVC
B

15,CONVPQ
WRl,12(CNTR)
WR1,IR2
CNTR,RP
RP,Q
RP,Q
RP,O
RQ ,0
RQ,Q
O(3,RP),O(RQ)
BT27B

91

CONVERT P AND Q ADDRESSES
WR1=CNTR+12
STORE WR1 IN IR-2
CNTR =RP

*
*RP=RP-3
*RQ=RQ-2

HOVE 3 CHARACTERS FROM Q TO P
GO TO BRANCH AND TRANSHIT

AZ5B

PAGE

1620 SIM!JLATOR

l.OC OBJECT CODE

ADORI ADDR2 STHT
3422

ASM H V 05 22.10 05/07/81

SOURCE STATH1ENT

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

3423 *
3424 *

FLOATING SHIFT RIGHT

~~*

*
*

*

3426 ***********************************************************************
OOl9bA
00196£
001912
001976
00197e
00197E
001980
001986
00198A
00198£
001990
001992
001994
001998

4SFO
45£0
(17FO
0100
0680
0690
0200
9120
4710
1989
078E
0680
92FO
47FO

3428
3429
3430
3431
3432
3433
8000 9000 00000 00000 3434
3435
9000
00000
397C
0197C 3436
3437
3438
3439
00000
3440
8000
O198E 3441
398E
0902
3976
07F6
8000 9000 00000

00902
01976
007F6
00000

3444
3445
3446
34(+7
3448
0019~C

00191\0
OOl9Al
0019A4
0019A8
0019AC
0019B2
0019B4
001988
00198C
0019CO
0019C4
0019C6
0019CA
0019CE
001902
001904
001.9D8
0019DC
0019EO
0019E4

45FO
18A9
06AO
9120
4710
0200
19A9
4780

0902
00000
AOOO
39M
8000 AOOO 00000
39(4

'11M 0001

41138
47FO
1989
4780
96FO
4188
1989
4780
nFO
47FO
94FO
47FO

0001
39AC

07f6
8000
0001
39EO
8000
39CE
9000
0?f6

00000
00000
00000

00902 3450
3451
3452
3453
019A2 3454
00000 3{155
34%
019C4 3457
00001 3458
00001 3459
019AC 3460
3461
007F6 3462
3463
00001 3464
3465
019EO 3466
3467
019CE 3468
3469
007F6 3470

FSR08
FSRA
FSRC
FSRB

15,CONVPQ
14,*+8
ENTRY1
OC 1,RP), O(RQ)
RP,O
RQ.O
O{1.RP),O(RQ)
OCRQ) ,X'20'
FSRA
RP,RQ
14
BCTR RP.O
HVI O(RP),X'FO'
FSRB
B
BAL
Bl\L
B
HVN
BCTR
BCTR
HVC
TM
BO
CR
BER

CONVERT P AND Q ADDRESSES

*
*MOVE

NUMERIC FROM Q TO P
RP=RP-1
RQ=RQ-l
HOVE ONE BYTE FROM Q TO P
IS Q FIELD FLAGGED
NO ,LOOP
YES, IS RP EQUAL TO RQ
RETURN
RP=RP-1
HOVE 'FO' TO P FIELD
LOOP

***********************************************************************
*
*
FLOATING SHIFT LEFT
*
*
*
*
***********************************************************************
FSL05
FSLA
FSLB

BAL
LR
BCTR
TH
BO
HVC
CR
BE

FSLC
FSLE

FSLD

LA
LA
B
CR
BC
01

LA
CR
BE
HVI
B

HI
B

92

lS,CONVPQ
WR1,RQ
WR1.0
o(l.1RU ,X'20'
FSLA
O( l,RP), OCWRU
WR1,RQ
FSLC
WRl,l(WRU
RP,l(RP)
FSLB
RP,RQ
8.ENTRY!
OCRP) ,X'FO'
RP, HRP)
RP,RQ
FSlD
O(RP) ,X 'FO'
FSLE
OCRQ),X'FO'
ENTRYl

CONVERT P AND Q ADDRESSES
WR1=RQ
WR1=WRl-1
IS WR1 FIELD FLAGGED
NO,LOOP
YES.HOVE ONE BYTE FROM WRI TO P
IS WRl=RP
YES ,BRANCH
NO,WR1=WRltl
RP=RP+1
8RANCH
TEST IF RP=RQ
YES,RETURN TO INTER.LOOP
NO,CLEAR POSSIBLE FLAG
RP=RP+1
TEST IF RP=RQ
YES ,BRANCH
NO.HOVE 'FO' TO P ADDRESS
BRANCH
HOVE FLAG FROM Q TO P
RETURN TO INTER. LOOP

A2sa

PAGE

1620 SIMULATOR

Lot OBJECT CODE

ADDRI ADDR2 SIMT
3472
3473
3474
3475
3476
3477
3478
3479
3480

0690
0690
0300 33A5
0680
0680
4120 31FB
D300 33A4
18AS
F271 0908
4FBO Mba
F271 0~p8
4FC009D13
90at: 3At10
ltmc
oOlAte 9089 09t:8
001A2lJ 18C8
00lA22 lJ lOG 0001
OOlA46 06CO
0011128 41DD!YPOl
00lAZG 9120 cooo
001A3U 4710 3A26
OOlA34 128B
OOIME, 078F
OOlA38 4720 3A8A
ODIA3C 0201 SnOl
00lA42 0203 3MO
OOIMS 10BB
a01MA 19BD
OOIA4C 4740 3A72
001A50 0200 SCM
001A56 0300 8000
00lA5C 0680
001l',5E 0690
001A60 D200 BOOO
OOlA~6 9120 9000
001A6A 4710 3A5C
001A(;E 47FO 31362
001A72 1898
001A74 1698
00lA76 45EO 3980
00lA7A 9400 9000
OOlA7E lA9B
001A80 96FO 9000
001A84 9889 09ES

0019E8
0019EA
0019EC
0019F2
0019F4
0019[6
OD19FA
OOlAOO
001A02
00IMa
001Aoe
OOlAll
OOlA1G
OOlAlA

SOURCE STATEMENT

9000 013A5 00000 348(i
3485
34B6
011FB 3487
8000 013A4 00000 3488
3489
8001 00908 00001 3490
009D8 3491
9001 009D8 00001 3492
00908 3493
OlMO 3494
3495
009E8 3496
3497
00001 3498
3499
OOOOI 3500
00000
3501
01A26 3502
3503
3504
OlASA 3505
9001 00001 00001 3506
3AM OlMO 01AM 3507
3508
3509
OlA72 3510
9000 00000 00000 3511
33A5 00000 013A5 3512
3513
3514
900n 00000 00000 3515
00000
3516
01A5C 3517
01862 3518
3519
3520
01980 3521
00000
3522
3523
00000
3524
009E8 3525

ASH H V 05 22.10 05/07/81

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

*
*
*
'SHIFT' SUBROUTINE
*
*
*
* THIS SUBROUTINE IS REQUIRED FOR SHIFT OPERATIONS IN FLOATING-ADD *
* AND FLOATING-SUBTRACT INSTRUCTIONS, WHEN THE P AND Q EXPONENTS *
* ARE DIFFERENT.
*
*
*

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

3482 SHIFT
3483
SHIFTS

SHIFTA

SHIFTE

SHIFTC

RQ,O
RQ,O
AQSIGN(l) ,O(RQ)
RP,O
RP,O
R2,FIXADO
APSIGNCl),O(RP)
WRl,RP
BUFFP(8),1(2,RP)
WR2,BUFFP
BUFFP(8), 1(2 ,RQ)
WR3,BUFFP
WR2,WR3,EPH
WR2,WR3
RP,RQ,INITP
J.lR3,RP
WR4,1
WR3,0
WR4,1(WR4)
O(WR3) ,X '20'
SHIFTA
WR2,WR2
15
SHIFTS
1<2 ,R?), HRQ)
EPH( 4) ,EQH
WR2,WR2
HR2,WR4
SHIFTC
0(1, RP), O(RQ)
0(1 ,RP) ,AQSIGN
HVZ
BCTR RP,O
BCTR RQ,O
HVC O(1,RP) ,O(RQ)
O(RQ) ,X'20'
TM
80
SHIFTE
B
SHIFTF
RQ,RP
LR
RQ,WR2
SR
14,FSRC
BAL
O(RQ),X'OO'
HI
RQ,WR2
AR
O(RQ) ,X'FO'
01
RP ,RQ , INITP
lH

HCTR
HCTR
HVZ
HeTR
BCTR
LA
HVZ
LR
PACK
CVB
PACK
CVB
5TH
SR
5TH
LR
LA
BCTR
LA
TH
BO
LTR
BER
BH
HVC
HVC
LPR
CR
BL
HVC

93

RQ=RQ-2
RQ=RQ-2
SAVE 0 SIGN
RP=RP-2
RP=RP-2
LOAD FIXADD ADDRESS
SAVE P SIGN
WR1=RP
CONVERT EP TO BINARY

*CONVERT EQ TO BINARY
*STORE EP AND EO

WR2=WR2-WR3=EP-EQ
SAVE RP AND RQ
WR3=RP
WR4=1=L
J.lR3=WR3-1
WR4=WR4+1
IS 0(WR3) FLAGGED
NO,LOOP
YES,TEST WR2
ZERO,RETURN
HIGH,BRANCH
LOWER,HOVE EQ TO EP
HOVE EQ TO EP
LOAD POSITIVE D
IS WR2 LOWER THAN L (WR4 = L)
YES ,BRANCH
NO,HOVE 0 DIGIT TO P DIGIT
SET P SIGN
RP=RP-l
RO=RQ-l
HOVE 0 DIGIT TO P DIGIT
IS 0 FIELD FLAGGED
NO,LOOP
YES,GO TO NORMALIZATION
RQ=RP
RQ=RP-D
GO TO SHIFT RIGHT
SET FLAG

*CLEAR FLAG

RESTORE RP,RQ ADDRESSES

A2sa

1620 SIMULATOR

LOC OBJECT CODE
001MS 07Ff
OOlA8A 19BO
001A8C 47AO 3862
oOIMo 189B
001An 4122 0004
00lA96 96FO 32lF
OOlMA 9bFO 8000
OOlA9E 07FF
OOIMO
OOIMO
001AM

PAGE

ADDR1 ADDR2 STHT

SOURCE STATEMENT

3526
3527 SHIFTB

01862 3528
3529
00004 3530
012lF
3531
00000
3532
3533

3535
3536 EPH
3537 EQH

BR
CR
BC
SR
LA

01

or

BR

05

OS
DS

94

ASH H V 05 22.10 05/07/81

15
WR2,WR4
10,SHIFTF
RQ,WR2
R2,4(R2)
AOD5+l,X'fO'
O(RP),X'fO'
15

RETURN
IS WR2 LOWER THAN WR4
NO,GO TO NORMALIZATION
YES, RQ=RQ-WR2
R2=R2+4
SET SWITCH ON
DELETE P SIGN
RETURN

00
F
F

*P EXPONENT
Q EXPONENT

A2SB

Loe

1620 SIMULATOR
OBJECT CODE

PAGE

AOORl AODR2 STHT
3539
3540
3541
3542
3543
3544
3545
3546
35';7
3548
3549
3550
3551
3552
3553
3554
3555
3556
3557
3558

00
45FO
00 C 45FO
OOIABO 18A6
00lAfl;Z 1889
a01AB!! OSF2
00lABE! 47FO
001ABA 12E£
OOll~BC 4780
OOlACO 58BO
OOlAt c, 06BO
00lAC6 0100

05102
3/ftS
3BOE
..
3aOE
09E8

009E8

FLOATING ADD
THE P AND Q ADDRESSES ARE CONVERTED TO BINARY BEFORE ENTERING
THE 'SHIFT' SUBROUTINE. TABLES ARE THEN PREPARED FOR THE 'FIXADD'
SUBROUTINE. ITS SPECIAL EXIT GIVES CONTROL TO NORMALIZATION AND
ITS NORMAL EXIT TESTS TH~ LAST CARRY. IF ONE, A SHIFT OF ONE POSInON TO THE RIGHT OF THE RESULTING FIELD IS PERFORMED, AND A
FLAGGED ONE IS MOVED TO ITS LEFTMOST DIGIT. IF ZERO, CONTROL IS
GIVEN TO NORHALIZA nON. Hm~EVER, BOTH EXITS LEAD TO THE 'EXPOW'
SUBROUTINE WHICH SETS THE INDICATORS TO THE PROPER VALUE ACCORDING TO THE RESULTING EXPONENT AND MANTISSA VALUES.
IN THE NORHALIZA TION SEQUENCE, THE RESULTING FIELD IS SCANNED FOR
HIGH-ORDER ZEROS. THE MANTISSA IS SHIFTED AND THE EXPONENT IS
MODIFIED. IF EXPONENT HODIFICATION IS NOT REQUIRED, CONTROL IS
GIVEN TO THE 'INDIC' SUBROUTINE WHICH UPDATES THE HIP AND E/Z INDICATORS AND THEN RETURNS TO THE CALLING SEQUENCE.

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

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

3568

3569
3570
3571
3572
3573
3574
3575
3576
3577
3578
3579
3580
3581
3582
3583
3584
3585
3586
3587
3588

ASH H V 05 22.10 05/07/81

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

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

00902 3560 FADD01
019E8 3561
3562 FADD5
3563
3564
OIBOE 3565
3566 FADD2
01BOE 3567

aOOl BOOO OOOOI 00000
~~i~55
~~g~
00000 OlADS
00lAD4 46BO 3AC6
GIAC6
0011';'08 9201 BOOO
00000
OOlAoe 18CO
OOHiDE 06eo
009E8
G01AEO 5880 09(;:8
OOlAE4 5800 3AM
OIMO
001AE8 lSDC
01B9A
00lAEA 45FO 3139A
01B62
001AEf: 47FO 3a62
01B02
OOlAF2 47FO 3902
001AF6 9201 (W03
00003
OOlAFA 45FO 3598
01598
001AFE 47FO 0i'F6
007F6
009E8
001B02 58AO 09E8
001B06 45FO 3548
015'~S
OOlBOA 47FO 3P.FA
OlAFA

:M5

SOURCE STATEMENT

FADD1
FADDC
FADDB

FADDX
fADD9
OFL

3590 *

15,CONVPQ
15,SHIFT
WRl,RP
WR2,RQ
15,R2
B
FADDA
LTR WR5,WR5
FADDA
BE
HR2,INITP
L
BCTR HR2,Q
l( l,WR2), o(l.JR2 )
HVN
OU1R2) ,X'20 '
TM
8,FADDC
BC
BCT I~R2,FADD1
HVI O(l.iR2),X'D1'
WR3,0
LR
BeTR I~R3 ,0
RP ,INITP
l
WR4,EPH
L
WR4,WR3
SR
BAL 15,EXPOW
B
SHIFTF
B
OFL
HVI HPEZ,X'Ol'
B,\l 15,EXCHK
B
ENTRYO
HR1, INITP
L
BF,L 15,IN!HC
FADD9
B
BAL
SAL
LR
LR
BAlR

NORHALIZA nON

95

CONVERT P AND Q ADDRESSES
SHIFT SUBROUTINE
WR1=RP
WR2=RQ
rIXADD SUBROUTINE
SPECIAL EXIT,GO TO NORHALIZAT.
NORfiAl EXIT, TEST LAST CARRY
IF ZERO,GO TO NORMALIZATION
IF ONE, I-lR2=RP
I-lR2=RP-1
MOVE NUMERIC FROM 0(WR2)
IS 0(WR2) FLAGGED
YES BRANCH
NO,LOOP
HOVE '01' TO WR2

*WR3=-1

RESTORE P ADDRESS

*
WR4=EP-WR3

EXPOW SUBROUTINE
RETURN TO 'SHIFT' SUBROUTINE
O'FLOW
U'FLOW
EXCHK SUBROUTINE
RETURN TO INTERPRETIVE LOOP
WR1=P ADDRESS
INDle SUBROUTINE
BRANCH

A2sa

Lot OBJECT CODE

AD[)Rl ADOR2 STHT

009E8 3592
3593
3594
00000
3595
BODO
3850
01B50 35%
3597
3862
01862 3598
3599
DODO BODO 00000 00000 3600
3601
t~760 3B3E
01B3E 3602
41BB 0001
00001 3603
4100 0001
00001 3604
01BZ6 %05
47FO 3826
410D 0001
00001 3606
94FO nooo
00000
3607
1908
3608
oOlMB (!780 3AEO
01AEO 3609
001B cIG 47FO 3B3E
01B3E 3610
001850 1988
3611
01862 3612
001852 4780 386Z
001B56 41CC 0001
00001 3613
00001 3614
0018511 41BB 0001
001B5E 47FO 3B16
011316 3615
DOIBCE
001812
0011314
001B16
OOlBlA
001B1E
001B20
001B24
001B26
00lB2e
00lB2E
001832
001B36
001B3A
00lB3E
001842
0018%

PAGE

1620 SIHULA TOR

5880
ISBA
HlCO
91DF
4780
12CC
4780
l8DA
0100
1988

001B62 5BAO
001131)6 16BA
OGIB~6 45FO
001B~t 9501
001B70 4770
001Bl4 92D9
001B78 9209
OOIBle 47FO

09E8

09E8
3548
0003
07F6

S~OI

8nol

07F6

SOURCE STATEMENT
FADDA
FADDU

FADD6

FADD4

FADD3

009E8 3617 SHIFTF
3618
01548 3619
00003
3620
007f6 %21
00001
3622
00002
3623
G07FE. 3624

L
LR
LR
TM
BZ
LTR
BE
LR
HVN
CR
BE
LA
LA
B
LA
NI
CR
BE
B

CR
8E
LA
LA
B

L
LR
BAL

eLI

BHE
HVI
HVI
B

9b

ASH H V 05 22.10 05/07/81

RP,INITP
WR2,WR1
WR3,0
O(WRZ),X'OF'
FADD3
WR3,WR3
SHIFTF
WR4,WR1
O(l,WR4),0(WR2)
~lRZ ,RP
FADD4
WRZ,1(WRZ)
WR4,1(WR4)
FAOD6
WR4,1(f..lR4)
0(l.lR4),X'FO'
WR4,RP
FADDB
FADD4
WR2,RP
SHIFTF
WR3,l(WR3)
WRZ,l(WRZ)
FADDU

RESTORE P ADDRESS
WR2=WRl
WR3=0
IS 0(WR2) NUMERIC =0
YES ,BRANCH
NO, IS WR3=0
YES,BRANCH
NO,WR4=WR1
HOVE NUMERIC FROH WR2 TO WR4
IS WR2= P ADDRESS
YES,BRANCH
NO,WR2=WR2+1
WR4=!"/R4+1
LOOP
WR4=WR4+1
NI WITH 'FO' AT WR4 ADDRESS
IS WR4=RP
YES ,BRANCH
NO,LOOP
IS WR2=RP
YES BRANCH
NO,INCREMENT WR3 BY 1
INCREMENT WR2 BY 1
LOOP

WRl,INITP
RP,WRI
15,INOIC
HPEZ,X'01'
ENTRYO
HRP),X 'D9'
2(RP),X'09'
ENTRYO

WRl= P ADDRESS
RP=P ADDRESS
INOIC SUBROUTINE
IS E/Z ON
NO,RETURN TO INTER. LOOP
YES,SET P EXPONENT = -99

*RETURN TO INTER. LOOP

A2SB

PAGE

1620 SIMULATOR

LaC OBJECT CODE

AOORI ADDR2 STMT
3626
3627
3628
3629
3630
3631
3632
3633
3634

001BBO
001884
001B86
0018S8
00136£
001BgZ
001396

45FO
0690
0690
0300
9720
45FO
47FO

OOln~6

OOH!raa
001e~t

OOHl'M

001B114
OOlBae
OOIBec
0018C2
ODlect
0016t8
0018CC
001BOO
001B02
001B06
OOlBDA
OOIBDC

41AO
19DA
4720
11AA
19Dt-l
4740
trEnD
9101
4710
%OF
F31l
94DF
07FF
92D9
92F9
l8A8
94FO
%09
06AO
94FO

00902 3636 FSUS02
3637
3638
33A5 9000 013A5 00000 3639
013A5
3640
33M
39F2
019FZ 3641
3flBO
01ABO 3642

0063

3ees
3BFO
3MO
3M?
OlAA7
3BSC
3M7
01M7
8001 3M6 00001
8001
00001
80rn
8002

00001
00002

ACOO
AGOO

00000
00000

AOOO

00000

ASM H V 05 2Z.10 05/07/81

***********************************************************************
*
*
*
FLOATING SUBTRACT
*
*
*
* THE P AND Q ADDRESSES ARE CONVERTED TO BINARY BEFORE ENTERING *
* THE 'SHIFT' SUBROUTINE. THE Q SIGN IS INVERTED AND CONTROL IS *
* THEN GIVEN TO THE FLOATING-ADD ROUTINE (FADDS).
*
*
*
***********************************************************************

O~G2

3645
3646
3647
3648
3649
3650
3651
3652
3653
3654
3655
001B9A
OOlB9E
00lBAO
OOlBM

SOURCE STATEMENT

SAL 15,CONVPQ
BCTR RQ,O
BCIR RQ,O
MVZ AQSIGN(1),O(RQ)
XI
AQSIGN,X'20'
BAL 15 ,SHIFTS
B
FADDS

CONVERT P AND Q ADDRESSES
RQ=RQ-2
*
SAVE Q SIGN
INVERT Q SIGN
SHIFT SUBROUTINE
*

***********************************************************************
*
*
*
'EXPOW' SUBROUTINE
*

*

*

* THIS SUBROUTINE IS REQUIRED IN FLOATING-POINT OPERATIONS TO CHECK *
* THE VALUE OF THE RESULTING EXPONENT (OVERFLOW).
*
*
*
* INPUT
WR4 CONTAINS THE EXPONENT RESULTING FROM THE PREVIOUS *
*
OPERATION
*
*
*
***********************************************************************

00063 3657 EXPOW
3658
01BC8 3659
3660
3661
01BFO 3662
OlMO 3bb3
3664
01BBe 3665
3666
01AA6 3667
3668
3669
3670 EXPIAB
3671
3672
3673
3674
3675 EXP3
3676

WR1,99
WR4,WRl
EXP1AB
WRl,WR1
WR4,WR1·
EXP2AB
WR4,EPH
EQH+3,X'01'
1,*+8
EQH+3,X'OF'
1(Z,RP),EQH+2(2)
HRP) ,X'DF'
15
HRP),X'D9'
Z(RP) ,X'F9'
WR1,RP
O(WRl) ,X'FO'
0(!"lRl),X'09'
01
BCTR WR1,0
O(WRl),X'FO'
NI

LA
CR
BH
LNR
CR
BL
CVD
TM
BC
01
UNPK
NI
BR
HVI
HVI
LR
NI

97

WR1=99
IS WR4 GREATER THAN 99
YES ,BRANCH
NO,SET WR1=-99
IS WR4 LESS THAN -99
YES ,BRANCH
NO, CONVERT WR4 TO DECII1AL
TEST SIGN
IF D,BRANCH
IF C,CONVERT TO F
UNPACK EP IN P FIELD
HOVE FLAG
RETURN
*
EP='D9F9'
WR1=RP
*
FILL MANTISSA WITH NINES
WR1=WR1-1
*

A2SB

loe
001BEO
0018E4
001BE8
001BEC
OOlBFO
00lBF4
OOlBFe
001BFA
OOIBFE
001C09
001(04
001C08
OOleoe

162d SINULA TOR

PAGE

OBJECT CODE

ADDRI AODR2 STHT

9609
9120
4710
47FF
92D9
9209
IBM
94FO
06AO
94FO
9120
4710
47FF

AQOO
AQOO
3BOA
0004
BUOI
8002

00000
00000

MOO

00000

MOO
ACOO
3afE
0008

00000

00001
00002

OIBDA
00004

00000
G1BFE
00008

SOURCE STATEMENT

3677
3678
3679
3680
3681 EXP2AB
3682
3663
3684
3685 EXP4
3666
3687
3688
3689
3690
3691 .FLOX1
3692

01
TH

OHlRl),X'09'
O(!"lRl>.X '20'
80
EXP3
4(15)
B
HVI HRP),X'D9'
HVI 2(RP),X'09'
WRl,RP
LR
O(WRl) ,X'FO'
HI
BeTR WR1,0
O(WRl),X'FO'
HI
O(WRl) ,X'20'
TM
EXP4
BO
8(15 )
B
AGO .FLOX1
ANOP
AIF (NOT &INOEX LNOTIX3

98

ASH H V 05 22.10 05/07/81
FILL MANTISSA WITH ZEROS
IS 0(WR1) FLAGGED
NO,LOOP
YES ,RETURN TO 4 (15 )

*EP= '0909'

WRI=RP
O(WRl)='FO'
WR1=WRl -1
SET'FO' OR 'DO' IN MANTISSA
IS 0(WR1) FLAGGED
NO,LOOP
YES,RETURN TO 8(15)

A2SB

Loe

OBJECT CODE

MOR1 ADDR2 STHT

OOlCIO 45FO 0902 '
OOiCl" 41A5

oone

001C1.8 SOM 3134
OOICIC 1858
C01CIE 4180 0004

001C22
001tZ€,
001t2A
00It2E
001C30
001C32
001C36
OOlC3C
COW'tO

001t42
001C41
001t4a
00lC4A
001C4E:
001C52
OOlC56
001CSA
OOlCSC
001e60
001t62
001C66
001C6A
OOlC6E
001C70
001C74

PAGE

1620 SIMULATOR

9200
92BC
41eo
0680
1986
4740
0200
4700
0690
1996
4740
ObBe
9400
9120
4780
47FO
1887
47FO
1897
47FO
96FO
47FO
IBOO
92FO
47FO

SC30

3C49
3t~E

01e30
01C49

3CSA
8000 9000 00000
3C6E
3t60
3t49
9000
3C66
3C2E

01(49

00000

3C36
3(48
3C3D
3C2E

01C3D

3100
OF44

01100

SOURCE STATEMENT

ASM H V 05 22.10 05/07/81

***********************************************************************
*
*
*
SECTION 6
*
*
INDEX REGISTER OPERATIONS
*

3694
3695
3696
3697
3698
3699
3700
3701
3702
3703

*

3705
3706
3707
3708
3709

***********************************************************************
*
*
BRANCH AND TRANSMIT ADDRESS
*
*
*
*
***********************************************************************

* AFTER MODIFICATION OF THE INDEX REGISTERS, THE NEW INDEX REGISTER
* FIELD CONTAINS THE ALGEBRAIC SUH OF THE CONTENTS OF THE OLD FIELD
* AND THE MODIFIER.
*

*

*
*
*
*

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

00902 3711 BTA20
OOOOC 3712 BTAZOA
01134 3713
3714
00004 3715
3716 *
3717 *
3718 *
3719 *
3720
3721
01t2E 3722
3723 BTAZOB
3724
01C5A 3725
00000 3726 BTA20C
G1C6E 3727 BTA20D
3728
3729
01C60 3730
3731 BTA20E
3732
3733
01C66 3734
01CZE 3735
3736 BTAZOF
01C36 3737
3738 BTA20G
01C48 3739
3740 BTA20H
01C2E 3741
3742 BTA20J
3743
OOF44 3744

BAL
LA
ST
LR
LA
SR
LA
SR
MVN
HVI
HVI
LA
StTR
CR
BL
HVC
BC
BCTR
CR
BL
BCTR
HI
TH
BC
B
LR
B
LR
B

01

B
SR
HVI
B

15,CONVPQ
WRl,12(CNTR)
WRl,IR2
CNTR.RP
I~R2.4

RQ,WR2
WR2,HWR2)
RP,WR2
0(5 •RP ) ,0 (RQ)
BTA20D+l.X'OO'
BTA20E+1,X'BC'
WR3.BTAZOB
RP.O
RP,H.o,PORG
BTA20F
O(1,RP) ,O(RQ)
0,BTA20J
RQ.O

RQ.HAPORG
BTA20G

IolR2.~lR3

BTA20E +l,X' 00'
0(RQ),X'20'
8.BTA20H
BTA20B
RP.SIZE
BTAZOC
RQ.SIZE
BTAZOE
BTA20D+l,X'FO'
BTA20a
0,0
5WBB42+1.X'FO'
TESTBR

99

CONVERT P AND Q ADDRESSES
WR1 = CNTR +12
STORE WR1 IN IR2
CNTR= P ADDRESS
(DELETED)
RQ=RQ-4
. THE INSTRUCTION COUNTER IS
3779 * THEN LOADED WITH THE P ADDRESS, BEFORE CONTROL IS GIVEN TO 'BIR'.

*
*
*
*
*
*
*
*
~80*
*
3781 * NOTE = THE 'NO BAND' HODE IS SELECTED AT SIMULATOR INITIALIZATION *
3782 *
*
3783 ***********************************************************************
001(91'1
001C9[
ODICA2
oOlcM
OOlCAA
00lCAE

45FO 0106
4195 OOM
95FO gDoo
4770 3tS2
9204~bOb

47FO :n:t:E
001t~2 9Sfl 9Mo
oou::st> 4770 3C(2
OOlCBA 9202 OllOI)
001tat 47FO 3CEE
aOlee:! 95f2 9000
00ltt~4?70 3(;02
OOlCta 9201 (}006
OOH:C; 47FO 3l;:EE
001ti)2 95F8 91HlO
001CP& 4770 3CE2
00lCDA 92FE 0930
001CI)I:: 47FO 3eEE
001CE2 95F9 9800
001(E(, '1770 3tF4
OOlCEA 9200 0930
DOlCH:: 1858
OOlCFO 47FO OF44
OOlCF4 45FO OOf4
OOleFS 000001Bl

00000
00006
00000
00006
00000
0000(,
00000
00930
00000

00930

0090(, 3785
OOOOB 3786
3787
01CB2 3788
3789
OlCEE 3790
3791
01CC2 3792
3793
OlCEE 379'1
3795
01C02 3796
3797
OlCEE 3798
3799
01CE2 3800
3801
01CEE 3802
3803
01CF4 3804
3805
380(,
00F44 3807
000F4 3808
3809

BSbO

BSI
BS2
BS3
BS4
BSE
ERXOP

l5,CONVP
RQ,lHCNTR)
O(RQ),X'FO'
7.B51
IXBAND,X' 0'1 ,
BSE
O(RQ),X'Fl'
7,8S2
IXBAND,X'02'
BSE
OeRO) ,x 'F2'
7,B53
IXBAND,X'Ol'
aSE
O(RQ),X'F8'
7,BS4
INDAD+l,X 'FE'
BSE
o( RQ ) ,x ' F9 '
7,ERXOP
INDAD+l,X'OO'
CNTR,RP
TESTBR
B
SAL 15,HESTOP
DC A(INVXOP)

BAL
LA
CLI
BC
HVI
B
CLI
BC
HVI
B
eLI
Be
HVI
B
eLI
BC
HVI
B
eLI
BC
MVI
LR

CONVERT P ADDRESS
RQ=DIGIT Q11
Ql1=O
NO,BRANCH
YES,SET INDICATOR 30 ON
RETURN
Q11=l
NO,BRANCH
YES, SET INDICATOR 31 ON
RETURN
Q11=2
NO,BRANCH
YES,SET INDICATOR 32 ON
RETURN
Qll=8

NO.BRANCH
YES, SET IND.ADD.SWITCH OFF
RETURN
Qll=9
NO.INVALID OPERATION
YES,SET IND.ADD.SWITCH ON
CNTR = P ADDRESS
GO TO TEST BRANCH ADDRESS

* ON INDEX OPERATION
ERROR

A2sa

PAGE 103

1620 SIHULA TOR

LOC OBJECT CODE

ADDRI ADDR2 STMT
3811
3812
3813
3814
3815
3816
3817
3818
3819
3820
3B21

3822
3823
3824
3825
3826
3827
3828
3829
3830
3831
3832
3833
3834
3835
3836
3837

SOURCE STATEMENT

ASH H V 05 22.10 05/07/81

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

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

*
*
THE CONDITION SWITCH IS SET OFF.
*
THE Q ADDRESS IS FIRST CONVERTED TO BINARY WITHOUT CONSIDERING *
ANY FLAGS. AND THEN THE P ADDRESS, WHICH HAY BE INDEXED AND AN *
INDIRECT ADDRESS, IS CONVERTED.
*
CONTROL IS THEN GIVEN TO THE 'INDEX' SUBROUTINE WHICH COMPUTES *
BRANCH AND HODIFY

*

*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
NOTE =
*
THE INSTRUCTIONS BX-61, BXH-62, BCX-63, BCXH-64 AND BLX-65 ARE *
THE SYSTEH/360 EFFECTIVE ADDRESS OF THE INDEX REGISTER SPECIFIED
BY THE Q FLAGS. THIS ADDRESS IS LOADED INTO REGISTER WR2.
THE FIELD DESIGNATED BY THE Q ADDRESS (RQ) IS ADDED TO THE SELEeTED REGISTER BY LOADING RP WITH THE INDEX REGISTER ADDRESS IN
WR2. CONTROL IS GIVEN TO THE 'FIXADD' SUBROUTINE AND INDICATORS
HPiEZ ARE UPDATED IN THE 'INDIC' SUBROUTINE.
THE CONDITION SWITCH IS TESTED =
IF ON, THE SELECTED INDEX REGISTER IS TESTED FOR THE THREE CONDInONS' SIGN CHANGE', 'SIGN VALUE NULL', 'LAST CARRY'. IF ONE OF
THESE THREE CONDITIONS IS PRESENT, LOADING OF THE P ADDRESS INTO
'CNTR' WILL BE BYPASSED. IF NONE IS PRESENT, THE P ADDRESS IS
LOADED.
IF OFF,THE THREE PRECEDING TESTS ARE NOT PERFORMED, AND THE COUNTER IS DIRECTLY LOADED.
FINALLY, THE Q FIELD IS TESTED. IF NOT EXHAUSTED, THE OVERFLOW
INDICATOR IS SET ON BY THE 'ARCHK' SUBROUTINE.

'*

3836
3839
BASICALLY THE SAHE ROUTINES. THEREFORE, ONLY BX-61 IS DESCRIB- *
3840
ED IN DETAIL.
*
31341
*
3842 ***********************************************************************
001C{;"!=
0010110
001D04
OOlOOA
0()10QI;:
001012
001016
001Dl~

001020
001024
001D28
001D2C
001030
001D34
001038
OOID3C
001D40
001044
001046
00104A
OD1D4[

nFO
noo
0200
9204
9200
45FO
92FO
B200
451'"0
41A5
soeo
92FE
9200
45EO
9280
920{)
58CO
07FC
92.FC
5080
419B

3844 BX61
01063
3pc3
01045
3Ms
3845
34DO 0006 01400 00006 3846 BXE
oqp6
00006
3847

owe?

g~lE

009C7

009C7
0.006 3400 00006
39Gb
0007
3400
09Al
009A1
00geD
0980
095C
0098D
0180
091H
009A1
3400

9'(7

3045

34DO

OOOq

01045

38 tl8

0091E 3849
3850
01400 3851
00906 3852 BXD
00007 3853
01400 3854
3855
3856
a09SC 3857
3858
3859
01400 3860
3861 BXG
3862
01400 3863
00004 3864

HVI
HVI
HVC
HVI
HVI
SAL
HVI
HVC
BAL
LA
ST
HVI
HVI
BAL
MVI
HVI
L
BR
HVI
ST
LA

BXA+l,X'FO'
BXG+l,O
REG 15 ( 1) , IXBAND
IXBAND,X'04'
INDXB+l ,X' 00 I
15,CONVQ
WDX8+1,X'FO'
IXBAND(I),REGI5
15,CONVP
WR1,7WITR)
12,REG15
INDX4+5,X'FE'
INDX3+3,0
14,INDEX
INDX3+3.X '80'
INDX4+5,0
12,REG15
12
BXG+l,X'FC'
RP,REG15
WR2,4(WR2)

SET CONDITION SWITCH OFF
SET BXG SWITCH OFF
SAVE IX BAND INDICATOR
SET NO BAND INDICATOR ON
SWITCH OFF, NO INDAD FOR Q V1L2
CONVERT Q ADDRESS
RESTORE SWITCH
VIL2
RESTORE IXBAND INDICATOR
CONVERT P ADDRESS
WRl=CNTR+7
SAVE R12
SET RETURN SWITCH ON
SET NOP
GO TO INDEX SUPROUTINE
CLEAR NOP
SET RETURN SWITCH OFF
RESTORE R12
POSSIBLE RETURN TO BLX65/66
SET BXG SWITCH ON
SAVE P ADDRESS
TAKE RIGHT IX ADDRESS

A2sa

LOC 08.JEeT CODE
001052
001054
001058
D0105e
OOlOSE
001062
001066
OOlD6t
001072
001076
DOW7A
OOlD7E
001082
001086

OOlOM
ODIOBE
001092
001096
00109A
DOID9C
OOIOAO
OOlDA FROM Q ADDR
MOVE
(WITH SIGN) TO WR2 ADDRESS
SET IX FLAG
CNTR=P ADDRESS
GO TO TEST BRANCH ADDRESS

Vll2
Vll2
V1l2
Vll2
Vll2
Vll2

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

*
*
BRANCH AND LOAD IMMEDIATE
*
* THE RQ REGISTER IS lOADED WITH CNTR+l1. THEN, THE SEQUENCE CON* TINUES AS FOR BLX-65 EXCEPT THAT IT STARTS WITH P ADDRESS CONVER* SION.
*

*
*
*
*
*
*
*

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

OOOOB 3972 BlXH66
01020 3973
OlOE8 3974

LA
SAL
B

RQ,11(CNTR)
lZ,BXD
BlX1

RQ=CNTR+11
BRANCH
BRANCH

A2SB

PAGE 107

1620 SIMULATOR

LOC OBJECT CODE

ADDRl AODR2 STHT
3976
3977
3978
3979
3980
3981
3982

SOURCE STATEMENT

ASH H V 05 22.10 05/07/81

***********************************************************************
*
*
*
BRANCH AND STORE
*

*
*
* THIS ROUTINE IS THE SAME AS THAT OF BLX-65, EXCEPT THAT FIVE NU- *
* MERIes ARE HOVEO FROM THE INDEX REGISTER TO THE Q ADDRESS.
*
*
*

3983 ***********************************************************************
001E1E 45CO 3D04
001E22
001E26
001E2A
001E2C
OOlE30
001E36
OOlE3e
001E40

4lAO
96FO
0690
46AO
0103
0200
94DF
47FO

0004
9000

00000

3£26
9000 8000 00000
9004 8004 00004
00000
9000
3EOC

01004 3985 BSX67
3986 *
00004 3987
3988 BSX67A
3989
01E26 3990
00000 3991
00004 3992
3993
OIEOC 3994
3995
3996 .IXX3

3997
3998
3999
4000
4001

*+*
*
*
*-*

DISKV

BAL
SH
LA
01
Bcm
BCT
MVN
HVC
NI
B
AGO
ANOP

12,8XE
RQ,DEC4
WR1,4
O(RQ) ,X'FO'
RQ,O
WR1,BSX67A
0(4, RQ) .0 (WR2)
4(1.RQ),4(WR2)
O(RQ) ,X'DF'
BLX2
.IXX3

DISK VERSION
PRINT OFF
PUNCH ' SLC 006000'
PRINT ON
END

*RQ=RQ-4
(DELETED) V1L2
V1L2
*CLEAR RECEIVING AREA
VIL2
VlL2
*
V1L2
*HOVE 5 NUHERICS FROH WR2 ADDRESS
(WITH SIGN) TO RQ ADDRESS
SET IX FLAG
BRANCH

A2sa

PAGE 108

1620 SINULATOR

LOC OBJECT CODE

ADOR1 ADDR2 STHT
4003
4004
4005
400b
4007
4008
4009
4010
4011
4012
4013

001E44
001f.45
OOlE4C
001E50
001E54

41BO
41AO
92FO
9241
47FO

05D5
3ES8
0463
0511
0204

OOlESS 4E021D5FAA
001E5D 7B030A34AA33
001E63 eoooM
00lE6~ 400024
OOl~JJ9 5[10004
00lE6C 4eOOM
00lEtF 6COOM
001E7Z EOOOAf!.
001E75 400000
001E78 EF

ASH H V 05 22.10 05/07/81

SOURCE STATEHENT

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

*
*
*
*
*
*
*
*
*

*
*
*
THIS SEQUENCE LOADS THE ADDRESSES OF THE CODE CONVERSION FIELDS *
FOR SUBSEQUENT USE BY THE 'MASK' SUBROUTINE. THE FIELD EXPANSION *
SWITCH OF THE 'VALIN' SUBROUTINE IS SET ON.
*
THEN, CONTROL IS GIVEN TO THE 'READ NUMERICALLY' (TYPEWRITER) SE- *
QUENCE DESCRIBED UNDER 'CONSOLE SIMULATION'.
*
*
READ ALPHAHERICALLY (TYPEWRITER)

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

00505 4015 RATY
01E58 4016
004B3
4017
4018
00511
00204 4019
4021 TBRATY
4022
4023
4024
4025
4026
4027
4028
4029
4030

LA
LA
MVI
HVI
B

WR2,TABLE2
WR1,TBRATY
FLEXSIHl,X'FO'
HASK+l,X'41'
RNTYGO-4

LOAD ADDRESSES OF CODE CONVERSION TABLE
SET FIELD EXPANSION SWITCH ON
SET COHMAND MASK : 41
BRANCH TO WRITE

DC

X'4E02105FAA'
X'7B030A34AA33'
X'COOOAA'
X'4DOO24'
X'5DOOO4'
X'4COOAA'
X'6COOAA'
X'EOOOAA'
X'400000'
X'EF'

*
*
'*

DC
DC
DC
DC
DC
DC
DC
DC
DC

*
*
*

Azsa

1620 SIMULATOR

LOC OBJECT CODE

PAGE 109

MDR1 ADDR2 STMT
4032
4033
4034
4035
4036
4037
4038
4039
4040
4041
4Q42
4043
4044
4045
4046
4047
4048
4049
4050
4051
4052
4053
4054
4055
4056
4057
4058
4059
4060
4061
4062
4063
4064
4065
4066
4067
4068
4069
4070
4071

001[79
OOlE7A
001E7£
001E82
00lES!;
OOlEM
001£8£
00lEn
001E94
001E98
00lE9C
001EAO
001EA2

00
41BO
41AO
9200
9211
41CO
45FO
18ED

058A
3E£6

43,~9

0511
OUOO
43F6

45fO 0510

9200 3ED9
41FO 0064
19EF
0000 0000

ASM H V 05 22.10 05/071Bl

SOURCE STATEMENT

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

*

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

~iRITE

NUMERICALLY (TYPEWRITER)

*
*
*
*
*
*
*
*

THIS SEQUENCE FIRST PREPARES THE ADDRESSES NECESSARY FOR CODE CONVERSION (SEE 'MASK' SUBROUTINE). IT SETS THE FIELD COMPRESSION
SWITCH IN THE 'VALOUT' SUBROUTINE OFF. WR3 IS GIVEN THE VALUE 0,
CORRESPONDING TO A STEP OF 1, TO AVOID THE 2 BYTES-IN-ONE-BYTE
ALPHABETIC HODE, AND CONTROL IS GIVEN TO THE 'GETEOR' SUBROUTINE
WflICH PROVIDES THE LENGTH OF THE FIELD TO BE WRITTEN. THEN, THE *
SEQUENCE GOES TO THE 'MASK' SUBROUTINE TO PREPARE THE CODE CON- *
VERSION TABLE AT ADDRESS 128 (IF NECESSARY).
*
THE BYTE COUNT OBTAINED FROM THE 'GETEOR' SUBROUTINE IS THEN COMPUTED. IF THE BYTE COUNT IS LOWER THAN OR EQUAL TO 100, ONE
SINGLE 'WRITE' OPERATION WILL BE EXECUTED. IF IT IS GREATER THAN
100, A NEW LINE HUST BE WRITTEN WITH THE REMAINING BYTE COUNT. AN
EXIT SWITCH IS SET TO RESUME THE OUTPUT OPERATION ON THIS REMAINING FIELD. THE LOOP WILL BE PERFORMED UNTIL THE FIELD HAS BEEN
EXHAUSTED.

*
*
*
*
*
*
*
*

*
*
*
*
*
*
*
NORMAL EXIT OF THE SEQUENCE IS TO 'BIR' THROUGH THE 'SWITCH INTER- *
THE COMPUTATION OF THE BYTE COUNT IS TERMINATED, CONTROL IS
GIVEN TO THE 'VALOUT' SUBROUTINE I~HICH CONVERTS THE BYTES TO OUTPUT CODES AND MOVES THEM TO BUFFER 'IOBUFF'. CONTROL IS GIVEN TO
THE 'TYPIO' SUBROUTINE WHICH PERFORMS THE 'WRITE' OPERATION PROPER.

I-lHEN

ROGATION' (ENTRY3) SUBROUTINE. HOWEVER, THE ERROR EXIT OF 'TYPIO' *
GIVES CONTROL TO THE 'EXCRET' SUBROUTINE WHICH DISTINGUISHES BE- *
TWEEN =
*

*
TRIES TO RESUME THE ENTIRE OPERATION
*
- 'UNIT EXCEPTION' WHICH IS CONSIDERED AS A CATASTROPHIC FAILURE *
OF THE 1052
*
-, SENSE INDICA nON' WHICH ALLOWS SETTING THE WRITE CHECK INDICA- *
TOR 07 ON
*
*

- 'INTERVENTION REQUIRED' WHICH GIVES CONTROL TO 'ALARM' AND THEN *

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

0058A 4073 WNTY
01EE6 4074
4075
023A9
4076
00511
00000 4077
023F6 4078 WNTY1
4079
00510 4080
OIED9
4081 WNTYGO
00064 4082
4083
00000 4084

LA
LA
HVI
MVI
LA
SAL
LR
BAL
MVI
LA
CR
BC

WR2,TABLE1
WRl, TBWNTY
FLCOSIHl,X' 00'
HASK+1,X'll'
WR3,0
15,GETEOR
WR5,WR4
I5,HASK
WRISWI+l,X'OO'
15.100
WR5,15
BNH,WNTYG2

LOAD ADDRESSES OF CODE CONVERSION TABLE
SET FIELD COHPRESSION SWITCH OFF
SET COHHAND MASK = 11

*SEARCH RECORD HARK

LOAD LENGTH OF 'WRITE' INTO WR5
PREPARE CODE CONVERSION TABLE
SET EXIT SWITCH TO NORMAL
R15=100
IS WR5 GREATER THAN 100
NO ,BRANCH

A2S9

PAGE 110

1620 SIMULATOR

LOC OBJECT CODE

ADDR1 ADDR2 STHT

IEV044 *** ERROR *** UNDEFINED SYMBOL
IE\l029
ERROR *** INCORRECT REGISTER OR
001EA6 IBEF
4085
OOlEAS 18DF
4086
001EAA 92FO 3E09
01E09
4087
OOlEAE 4200 3EB9
01EB9 4088 WNTYG3
001E82 45FO 43A2
023AZ 4089
4090 *
4091 WNTY3
001E136 000901'64

***

O(.l1E~A DODO. ;,
00lEB~ OOOOOS~3

4092
47FO 3E08
01ED8 4093
4700 OtrDO
00000 4094
47FO 3f5C
01F5C 4095
OOOOIJOOO
00000
409b
WJOl/4 **~ ERROR *** UNDEFINED SYMBOL
001EOO 47803f5C
01F5C 4097
001ED4 9640 DU02
00002
4098
ODIEOa 4700 3E98
01E98 4099 WRISIU
OOlEoe 47FO 02&2
00262 4100
001EEO 180E
4101 WNTYG2
001E£2 47FO 3EAE
01EAE 4102
00l~t6 OfOOA.1'I
4103 TBWNTY
OOlEt9 DAOOiV~
4104
DO IEEe FAooAA
4105
COIEEF fFOOAA
4106
OOlEF2 FeDG7e
4107
00lEF5 EF
4108
001E(0
001EC4
OOlECS
001ECC

ASH H V 05 22.10 05/07/81

SOURCE STATEMENT
MASK SPECIFICATION
SR
I-lR5, 15
LR
WR4,15
HVI I-lRISWI+1.X'FO'
STC WR4,WNTY3+3
SAL IS,VALOUT
SAL Rl,TVPIO
DC
X'00090164'
DC A(IOBUFF )
WRISWI
BC
NOP,O
B
WNTYAL
TM
TYPERR+1,X'30'

B

BZ

01
Be
B

LR

B

DC
DC
DC
DC
DC
DC

WNTYAL
NYCHEK,X'40'
NOP,WIHYGO
TYPSWI+4
WR4,WR5
WNTYG3
X'DFOOAA'
X'DAOOM'
X'FAOOAA'
X'FFOOAA'
X'FCOO?C'
X'EF'

YES,WR5=WR5-100
WR4=100
SET RETRY SWITCH ON
STORE DATA LENGTH IN CCW COUNT
CHECK VALIDITY OF OUTPUT DATA
CALL TYPEWRITER
WRITE 100 BYTES FROH IOBUFF

* OK,EXIT

U E,SHOULD NOT OCCUR,ALARH
INT.REQ.,GO TO ALARM
SENSE EXIT,TEST BITS 2+3

ZERO ,EXIT
SET INDICATOR 07 ON
'EXIT' OR 'RETRY' SWITCH
INTERROGATE 1/0 INDICATOR
WR4= WR5
BRANCH

*

*
*
*

AlSB

PAGE 111

1620 SIMULATOR

LOC OBJECT CODE

ADDR1 ADOR2 STMT
4110
4111
4112
4113
4114
4115
4116
4117
4118
4119
4120
4121

001EF6
001EFA
001EFE
001f02
001f06
001FOA

4180
41AO
92FO
9251
41(0
47FO

0623

3FO[
43A9

0511

9101

3E8£

001F!fE OAn018
OOlFll 33007E
00lF1~ 240(41)
ODIn?

00lf1A
00lF10
001FZO
OOlF23
OOlF26
001F29

22007.~

04005D

1FO(!PiA
100045:

500060

SF004F
EF

18E6
5AEO 3f50
198E
47AO 3F2C

ASH H V 05 22.10 05/07181

***********************************************************************
*
*
*
WRITE ALPHAHERICALLY (TYPEWRITER)
*

*
* THIS SEQUENCE PREPARES THE ADDRESSES FOR CODE CONVERSION SO
* THEY CAN BE USED BY THE 'MASK' SUBROUTINE. IT SETS THE FIELD
* PRESSION SWITCH IN THE 'VALOUT' SUBROUTINE ON. WR3 IS LOADED
* 1 WHICH CORRESPONDS TO A STEP OF TWO. THIS ALLOWS CONDENSING

*
*
*

THAT
COMWITH
TWO
ALPHAMERIC BYTES INTO ONE SINGLE OUTPUT CODE. THEN, CONTROL IS
GIVEN TO THE 'WRITE NUMERICALLY' (TYPEWRITER) SEQUENCE.

*
*
*
*
*
*
*
*

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

00623 4123 WATY
OlFOE 4124
023A9
4125
00511
4126
00001 4127
OIEBE 4128
4130 TBl,lA TV
4131
4132
4133
4134
4135
4136

4137
4138
4139

4141
4142
4143
4144
4145
·4146
4147
4148
4149
4150
4151
4152
4153
4154
4155
001F2A
001F2C
OOlF30
001F32

SOURCE STATEMENT

B

WR2,TABLE3
WRl, TBWATY
FlCOSW+l,X 'FO'
HASKH,X'51'
WR3,1
WNTYl

LOAD ADDRESSES OF CODE CONVERSION TABLE
SET FIELD COMPRESSION SWITCH ON
SET COHMAND MASK : 51
*
*

DC
DC
DC
DC
DC
DC
DC
DC
DC
DC

X'OA007B'
X'33007E'
X'24004D'
X'22007B'
X'04005D'
X' 1FOOAA'
X'lOO04E'
X'500060'
X'5FOO4F'
X'EF'

*

LA
LA
MVI
HVI
lA

*

,.

,.
,.

*

***********************************************************************
*
*
*
DUHP NUMERICAllY (TYPEWRITER)
*

*
*
*
*
*
*
*
*
*
*
*

THIS SEQUENCE COMPUTES THE MAXIMUM ADDRESS OF THE 20K MODULE, AND
COMPARES IT TO THE P ADDRESS. THE BYTE COUNT TO BE WRITTEN IS THUS
OBTAINED.
THEN, THE ADDRESSES FOR CODE CONVERSION ARE LOADED FOR USE BY THE
'MASK' SUBROUTINE. THE FIELD COMPRESSION SWITCH IN THE 'VALOUT'
SUBROUTINE IS SET OFF. WR3 IS LOADED WITH ZERO FOR OPERATION IN
NUMERICAL 110DE. CONTROL IS GIVEN DIRECTLY TO THE 'WRITE NUMERICAllY' (TYPEWRITER) SEQUENCE.

*
*
*
*
*
*
*
*
*
*
*

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

4157 DNTY
01F50 4158
4159
OlF2C 4160

lR
A

CR
BC

WR5,HAPORG
WR5,DEC20K
RP,WR5
10,DNTY+2

COMPARE P ADDRESS WITH MAXIMUM
ADDRESS OF THE 20K MODULE

*
*

A2SB

PAGE 112

1620 5lHULA TOR

LOC OBJECT CODE
001F36 18E8
001F38 4180 OS8A
001F3t 41AO 3FS4
OOlf40 9291 0511

OOlF44 9200 43A9
OOlF48 41CO 0000

001f4C 47FO 3E94

ADDR1 ADDRZ STMT

SOURCE STA TEHENT

4161
0058A 4162
01FS4 4163
00511
4164
023A9
4165
00000 4166
01E94 4167

SR
LA

ASH H V 05 22.10 05/07/81

MVI
HilI
LA
B

WR5.RP
WR2,TABLEI
WRI. TBDNTY
HASK+l,X '91'
FLCOSW+1.X' 00'
WR3,O
WNTY1+6

LOAD ADDRESSES OF CODE CONVERSION TABLE
SET COHMAND HASK = 91
SET COMPRESSION SWITCH OFF

LA

*

~m3=0

BRANCH TO WRITE

OOlF50 000041::20

4169 DEC20K

DC

F'20000'

HAXIMUM ADDRESS OF 20K MODULE

001FS4 FAO(J78
GOIFS7 FeOG7C
001F5A EF

4171 TBDNTY
4172
4173

DC
DC
DC

X'FAOO7B'
X'FC007C'
X'EF'

*
*
*

SAL

R1.ALARl'I
WNTY3-4

001F§8 00
001F5t 4510 0060
001F60 47FO 3E82

00060 4175 WNTYAL
01EB2 4176

B

,.
*

4179 ***********************************************************************
4180 *
*
4181 *
CONTROL OPERATIONS ON TYPEWRITER
*
4W2*

4183
4184
4185
4186
4187
4188
4189
4190
4191
4192
4193
OOlF64 9201 OOBO

*
*
*
'*
*
*
*

*
*
*

*

THIS SEQUENCE USES THE MAJOR PART OF THE 'MESSAG' SUBROUTINE. BUT *
IT FIRST CHANGES THE REQUESTED WRITE COHMAND TO A 'WRITE INHIB- *
IT CARRIAGE RETURN' COHMAND. THIS AVOIDS ANY POSSIBLE INTERFEREN- *
CE BETWEEN THE 1620 CONTROL COHMAND AND THE 'WRITE AUTO CARRIAGE *
RETURN' OF THE NORMAL 'MESSAG' SUBROUTINE.
*

OOlF6S
00lfsA
001F70
OOIF?4

18EO
0100 olM 500B 007A9 OOOOB
48DO g?AO
007A8
43£D 3F92
OlF92

001F78
001F7A
00lF7E
001F8Z
COIF86
OOlF8S
001F8e
00lF90
OOlF92

12EE
4780 07F6
42EO 3F91
45FO Msc
0000
OOOOlf:90
47FO 07F6
0100
0040151625000000

4196

*

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

4195 KTYPE

00080

*

THE 1052 CONTROL CHARACTER IS OBTAINED FROM DIGIT Q11 BY MEANS OF *
TABLE 'KTAB'. IT IS SENT TO THE TYPEWRITER IN THE SAME WAY AS A *
ONE-BYTE MESSAGE.
*

'*

4197
4198
4199
4200
4201 *
4202
OOlF6 4203
01F91 4204
OOOBC 4205
4206
007F6 4207
4208 KHESS
4209 KTAB

HilI

HESSIO+6.X'01'

LR

WR5,0
ACOHA+1(1).11(CNTR)
WR4,ACOHA
WR5.KTAB(WR4)

HVN

LH
IC

LTR

BZ

STC
SAL

WR5.WR5
ENTRY!
WR5.KHESS+l
15.HESSA2

DC A.
IF NECESSARY, THE CODE CONVERSION TABLE IS PREPARED BY THE 'HASK'
SUBROUTINE. A SEARCH FOR RECORD HARK IS HADE BY THE 'GETEOR' SUBROUTINE, AND THE OUTPUT DATA BYTES ARE CONVERTED, CHECKED, AND
HOVED TO 'IOBUFF' BY THE 'VALOUT' SUBROUTINE.
A SUPERVISOR CALL SVC 1 IS ISSUED. AS SOON AS THE REQUEST IS ACCEPTED, 'PRLOCK' STOPS PROCESSING AND WAITS FOR CHANNEL END.

* AT CHANNEL END, 'PRINTER BUSY' INDICATOR 35 IS SET ON AND CONTROL
* IS RETURNED TO 'BIR' BY THE INDICATOR INTERROGATION SUBROUTINE
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*

*

'ENTRY3'. 'PRINTER BUSY' INDICATOR 35 IS SET OFF AS SOON AS
VICE END' OCCURS.
IN CASE OF AN ERROR CONDITION, CONTROL IS GIIJEN TO THE
SUBROUTINE. THERE ARE 5 DIFFERENT EXITS =

'DE-

'EXCRET'

- 'INTERVENTION REQUIRED' WILL CAUSE THE MESSAGE 'INTERVENTION RE-

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

QUIRED ON PRINTER' TO BE TYPED AND SIMULATION TO BE TEMPORARILY
STOPPED, SO AS TO ALLOW THE PRINT OPERATION TO RESTART AS SOON
AS THE PRINTER IS READY.
- 'UNIT EXCEPTION' WILL CAUSE CHANNEL 12 INDICATOR 34 TO BE SET
ON.
- 'SENSE BIT 7' WILL CAUSE CHANNEL 9 INDICATOR 33 TO BE SET ON.
- SENSE BITS 2 AND 3 WILL CAUSE 'PRINTER CHECK' INDICATOR 25 TO
SET ON.
*
- ALL OTHER ERROR CONDITIONS WILL EXIT TO THE 1052 MESSAGE INDI- *
CATING A CATASTROPHIC DAMAGE.
*

*

***********************************************************************
PRN

PRNA

*

PRNB

LA
LA
LA
HVI
HVI
HVI
HVI
TM
BC

WR2,TABLEl
WRl, TBPRN
WR3,0
DUHPRI+1,X'OO'
HASK+1,X'19'
FLCOSW+l ,X' 00'
FLCOSIH1,X' 00'
1HCNTR) ,X '01'
1.PRNDEL

LOAD ADDRESSES OF CODE CONVERSION TABLE

*SET DUHP SWITCH OFF
SET COHMAND MASK = X'19'

SET FIELD COHPRE SWITCH OFF
SET FIELD COHPRE S(DELETED)
PRINT SUPPRESS SPACE
YES BRANCH

V1L2
V1L2
V1L2
VIL2

A2SB

PAGE 119

1620 SIMULATOR

LaC OBJECT CODE
0020E( 47FO 4100
G020rO 9200 42138

0020F4
0020F3
0020FC
002100
OC2itl4
002108
002HlC;
002110
002114
002118

47fO
9201
47FO
9101
4710
9209
47FO
9201
92/=0

4114
4288
4118
500a
4110
&l138
,J14
4288

lt5FO

0510

00211C
002120
002124
002128
00212A
00212E
002130
00213 t,
002138

4110
4700
45FO
1200
4780
1901
4720
4200
45FO

0078
41AO
43F6

~OEO

02288

02288

00008
02288
OnS8
020EO

4lA6
41AO
428F
(13A2

02100 4453
4454
02114 4455
4456
02118 4457
4458
02110 4459
4460
02114 4461
4462
4463
00510 4464
4465
00078 4466
021110 4467
023F6 4468
4469
021A6 4470
4471
021AO 4472
0228F {!473
023A2 4474

OOOE

00213E 0000
002J.lin 0()OO2280
002144
002145 0000000006000000
002150
002158 0OO0217E
0021SCilOOozlBC
002160 9ZFO tan
02177
0021&4 168B
002166 4380 !f288
00216A 418B OMZ
00216£ 45FO ~2F8
(JOOO7
OQ2172 9601 0807
002176 47FO 4176
002I7A '17FO 0262
0021?E
002182
002186
00218A
O{)218E
002192
002196
00219A

9104
5010
4780
94FE
9200
92FF
5810

414C
420C
4l8E
COO?
4177

4150
420C

00219A 0000
00219C 00002150

SPSKBT
PRNDEL
PRN1

PRN2
PRN3

*

DUHPRI

DUHP2R

PRNI

B

MVI
B
MVI
B
TM
BO
HVI
B
HVI
MVI
BAL
SAL
LA
BC
BAL
LTR
BC
CR
BC
STC
SAL

PRICC~,X'OO'

02288
00002
022F8
02176
00262

4479
4480
4481
4482
4483
4484
4485
4486
4487
4488
4{!89
4490
4491
4492

4494
0220C 4495
0218E 4496
4497
00007
02177
4498
4499
02150
0220r 4500
4501
4502
02HC

4503

PRNERR
PRNCSW
PRNPSW

PRLOCK

DC
OS
DC
OS
DC
DC
MVI
SR
IC
LA
SAL
01
B

SPACE SKIP SWITCH
HOVE 'KPRINT' COMMAND TO CCW

PRN2
*SET WRITE WITHOUT SPACE
V1L2
PRICCW,X'OI'
VIL2
PRN3
IHCNTR),X'Ol'
IS Q11 = 1
H12
YES, BRANCH
NO, SET CCW = WRITE + SPACE
PRICCW,X'09'
PRN2
*SET CCW = WRITE WITHOUT SPACE
PRICCW,X'Ol'
SPSKBT+l,X'FO'
SET SPACE SKIP SWITCH = OFF
PREPARE CODE CONVER TABLE V1L2
15 ,MASK
PREPARE CODE CONVE(DElETED) VIL2
15,MASK
Rl,120
PRINT POSITIONS
NOP,DUMP1R
DUMP SWITCH
15,GETEOR
SEARCH FOR RECORD HARK
WR4,WR4
IS WR4=0
YES,BRANCH
8,HVBLAN
WR4,Rl
NO,COHPARE WR4 AND Rl
2,QUHPIR
HIGHER BRANCH
WR4,PRICCIH7
STORE COUIH IN CCW
15,VALOUT
*

4476
CNOP 4,8
4477 PRNGO OS OH SVC 1
4478
DC
X'OOOE'

00213t
00213(:

ooznt

ASH H V 05 22.10 05/07/81

SOURCE STATEMENT

ADDRI ADDR2 STHT

A(PRICCW)
4C
X'OOOOOOOO06000000'
0

A(NRHPRN)
A(EXCPRN)
PRLOCK+1,X'FO'
WR2,WR2
WR2,PRICCW
WR2,2(WR2)
15,SPSKIP
TAPE43 ,X' 01'

* 1/0 REQUEST WAIT CHANNEL END
CHANNEL END (FOR PRINTER)

*
*
*
*NORMAL RETURN (CE,THEN DE)
EXCEPT. RETURN
SET WAIT SWITCH ON
WR2=0
INSERT COMMAND BYTE
INCREMENT WR2 BY 2
BRANCH TO TEST SKIP
SET PRINTER BUSY ON
ACCEPTED WAIT SWITCH
INTERROGATE IIO INDICATOR

B

*TYPSWI+4

NRMPRH

TH
ST

PRNCSW+4 ,X' 04'
Rl,PRNSAV

NRHPR4

HI
HVI
HVI
L
CNOP
SVC

TAPE43,X'FE'
PRLOCKH,X'OO'
PRNPSW,X'FF'
R1,PRNSAV
2,4
3

*RETURN TO POINT OF INTERRUPTION

DC

A(PRNP5W)

*

NRHPRI

*

BZ

*+8

TEST DEVICE END
SAVE Rl
VlLl
NOT YET,BRANCH
YES,SET BUSY INDICATOR 35 OFF
SET WAIT SWITCH OFF
ENABLE INTERRUPTIONS
VILI
RESTORE Rl

A2sa

1620 SIHULATOR

LOC OBJECT CODE
0021AO
OOllAl
OD21A6
0021M
0021AE
002184
0021S8

PAGE 120

ADOR1 ADDR2 snn

SOURCE STATEHENT

1801
4504 DUHP1R
47FO 4134
02134 4505
4100 0001
00001 4506 MVBLAN
9240 03AS
O[l3A8
4507
0276 03A9 03A8 003A9 003A8 4508
4200 428F
0228F 4509
47FO 413C
0213C 4510

002iac 5010 4znc

0220t 4512 EXCPRN
021FO 4513
02204 4514
4515 *
0021C8 9131 4145
02145
4516
OOZltt 0000 O(HlO
00000 4517
IEl/0!14 ***ERROR *** UNDEFINED SYMBOL
002100 4710 41FC
021FC 4518
02145
4519
00210. 9130 9145
002108 4750 41FC
021FC 4520
02145
4521 PXA4PR
00210C 9101 4145
021E8 4522
0021EP 4780 4lEe
00007
4523
0021E4 9604 0007
0021E8 9101 4i4C
0214C
4524 PXA5PR
0021E( 4780 4iF4
021F4 4525
0021FO 9602 0007
4526 PRNUE
00007
007BO 4527 NRHPR5
OQ21f4 4510 (}(80
0218A 4528
DOllfS 'liFO 418A
0021FC 9b08 0002
4529 PXA2PR
00002
002200 47FO 410C
021DC 4530

oontu

4/FO 41FO
0021C4 47FO 4204

002204 45FO OODC
002208 00000121
00220t
002210
002213
002216
002219
00221C

DCOMa

FCGOllO

I='AOOM\
FFOOfilS,
OAOO,o[~

00221F DrOMA

002222 EF

OOODe 4532 PRNIR
4533
4534 PRNSAIJ
4536 TBPRN
4537
4538
4539
4540
4541
4542

LR

B

LA
HVI
HVC
STC
B

ST
B
B
TH
BZ
BO
TH
BC
TH
BZ
OI
TH
BZ

01

BAL
B

01
B

WR4,R1
DUHP2R
WR4,R1
roauFF ,X '40'
IOBUFF+l(119),IOBUFF
WR4,PRICCW+7
PRNGO

ASH H V 05 22.10 05/07/81
WR4=Rl
BRANCH
WR4=Rl
SET BLANKS IN IOBUFF

*STORE COUNT
GO TO WRITE

Rl,PRNSAV
PRNUE
PRNIR
1403 PRINTER
PRNERR+1,X'31'
EXCR3

TEST SENSE BITS 2+3+7
NONE,CATASTROPHIC DAHAGE

PXA2PR
PRNERR+1,X'30'
BOH,PXA2PR
PRNERR+1.X'Ol '
PXA5PR
TAPE43,X'04'
PRNCSW+4,X'Ol'
NRHPR5
TAPE43,X'02'
R1.ENTRY3
NRHPR4
NYCHEK ,X' 08'
PXA4PR

ALL BRANCH
TEST SENSE BITS 2+3
SNIE/ALL BRANCH
TEST SENSE BIT 7
BRANCH
SET INDICATOR
TEST IF UE PRESENT
NO BRANCH
SET INDICATOR UE IS PRESENT
GO TO INTERROGATE INDICATOR
RETURN
SET PRINTER CHECK ON
BRANCH

SAVE R1
VILI
E.EXIT
INT.REQ.,GO TO SEND HESSAGE

U

BAL 15,HESTIR
DC A
00229£ 43AA 4372
02372 4641
WRl, TABIHHHlRl)
0237A 4642
LA
0022Al. 41M 4::l7A
WR2.Qll
02371 4643
IC
0022A,~ 4380 4~71
WR2,0(WR1,WR2)
00000 4644
Ie
0022Al!. 43BA BOOO
Q10,X'01'
02370
4645
TM
0022AE 9101 4370
KPR1
022C6 4646
BO
0022B2 4710 42c6
4647
BCTR WRZ,O
0022B6 06BO
4648
BCTR WR2,0
002288 06BO
STC WR2.SPSKBT+5
00Z2EA 4280 40Fl
020f! 4£.49
020ED
4650
HVI SPSKBT+1.X· 00'
0022BE 9200 40ED
007F6 4651
ENTRY!
0022C2 47FO 117F6
B
STC WR2,KPRCCW
0022C6 42BO 4368
02368 4652 KPRl
(NOP 4,8
4653
002leA 0700
4654 KPRGO DS OH SVC 2
0022CC
4655
DC
X'OOOE'
0022CC OOOE
0022CE 0000
ACKPRCCW)
46%
DC
002200 00002368
4657 KPRERR DS
4C
002204
0022.9~

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

CLEAR WRl
CLEAR WR2
HOVE QI0 AND Ql1 NUMER. TO BUFF.
INSERT Q10 NUMERIC AND USE IT AS
INDEX FOR COHMAND ADDRESS

*INSERT 011 NUMERIC

GET COHMAND BYTE
TEST IF Q10 IS ODD
YES. BRANCH TO IMMEDIATE COHMAND
NO. DELAYED COHMAND. DECREMEN BY
2 TO OBTAIN WRITE COHMAND
AND STORE IT FOR FURTHER USE.
SET SPACE SKIP SWITCH ON
RETURN TO INTERPRETIVE LOOP.
STORE IMMEDIATE COHMAND IN CCW

*

1/0 REQUEST AND CONTINUE

(FOR PRINTER)

*

*

A2SB

1620 SIMULATOR

LOC OBJECT CODE
00220e
0022EO
002lES
0022Et
0()Z2Fil
0022F4
0022F8
0022FA
0022ft:
002300
002304

00002:128
00002:334
45FO 42F8
47FO 07F6
43?F
430A
0007
4387

002310 lj770 q31A

002314
002318
0023iA
00231E
002320
002322
002326

ADDR1 ADDR2 STMT

0000000006000000

IBCC
43CO
19CB
4770
94F9
0023Q~ 07FF
00230A 43CO
00230£ 19CB

9604 IJti07
07FF
43CO 43SC
19C6
077F
9602 0007
07fF

002328 92~F 42EO
00232C 0700

PAGE 124

4658 KFRCSW
4659 KPRPSW
4660
4661
022F8 4662
007F6 4663

4665 SPSKIP
0237F 4666
4(,(,7
0230A 4668
00007
4669
4670
02387 4671 SKIP9A
4672
0231A 4673
00007
4674
4675
0238C 4676 SKIP1A
4677
4678
4679
00007
4680

022EO

00232E 0000
002330 000022EO
002334
002338
00233C
002341
002344
002348

5010 034C
47FO 4358
47FO 434C
5810 034C
45FO OOF4
00000166

00234C 5810 034C
002350 45FO GOOC
002354 00000121
002358 5810 034C
00235C 9602 0007
002360 47FO 4328

SOURCE STATEHENT

0034C
02358
0234C
0034C
OOOF4

002364 00000000
002366 0000236800000001

X'OOOOOOOO06000000'
D
A(NRHKPR)
A(EXCKPR)
15,SPSKIP
ENTRY 1

SR
IC
CR
BC
NI
BR
IC
CR
BC

WR3,WR3
WR3,SKIP1
WR3,WR2
7,SKIP9A
TAPE'i3,X'F9'
15
WR3.SKIP9
WR3,WR2
7,SKIP1A
TAPE43,X'04'
15
WR3,SKIP12
WR3,WR2
7,15
TAPE43,X' 02'
15

01

BR
IC
CR
BCR
01
BR

4683 NRHKPR
4684
4685 *

HVI KPRP5W,X'FF'
CNOP 2,4
SVC 3

4686

DC

4688 EXCKPR
4689
4690
4691
4692
4693

0034C 4695
4696
4697
4698
0034C 4699
00007
4700
4701
02328 4702

ooooe

DC
DS
DC
DC
SAL
B

KPRIR
*KPRIR
KPRUE
*KPRUE

4704 KPRCCW

A(KPRPSW)

ST

ASH H V 05 22.10 05/07/81
if
if

*

if

GO TO TEST SKIP
RETURN TO INTERPRETIVE LOOP
WR3=0
INSERT SKIP TO CHAN 1
TEST IF CHAN 1
NO,BRANCH
RESET INDICATORS 33 AND 34
RETURN TO CALLER
INSERT CHAN 9
TEST If CHANN 9
NO,BRANCH
SET INDICATOR ON
RETURN TO CALLER
INSERT CHAN 12
TEST If CHtJI 12
NO,RETURN TO CALLER
SET INDICATOR ON
RETURN TO CALLER

ENABLE INTERRUPTIONS

*RETURN TO POINT OF INTERRUPTION
*

R1,RNCSAV
KPRUE
KPRIR
R1,RNCSAV
L
BAL 15,HESTOP
DC A(UNTCHK)

SAVE R1
V1L2
U E, GO TO SET CHAN.12 INDIC ON
INT .REQ. ,GO TO SEND MESSAGE
RESTORE R1
V1L2
SEND MESSAGE 'UNIT CHECK'
AND STOP SIMULATION

R1,RNCSAV
L
BAL 15,HESTIR
BAL 15,HESTIR
DC A(INTREQ)
R1,RNCSAV
L
or TAPE43,X'02'
01
TAPE43,X'02'
B
NRHKPR

RESTORE R1
MESSAGE 'INTERV. REQUIRED'
MESSAGE 'INTERV. R(DELETED)
ON PRINTER AND STOP
RESTORE R1
SET CHANNEL 12 INDICATOR ON
SET CHANNEL 12 IND(DELETEO)
AND RETURN

B
8

CCW

X'OO' ,*,0,1

CONTROL CCW

V1L2
VlL2
V1L2
VlL2
V1L2
V1L2

MSS

1620 SIt1UlATOR

LOC OBJECT CODE

PAGE 125

ADDR1 ADDR2 STMT

ASH H V as 22.10 05/07/81

SOURCE STATEHENT

002370 00
002371 00

4706 Q10
4707 Qll

DC
DC

X'OO'
X'OO'

,.
,.

002372 OEOOOOOE04000004

4709 TABQ10

DC

X'OEOOOOOE04000004'

,.

00237.4 000613180388939B
002384 B3BBC3CBOOOOOODB

4711
4712
4713
4714
4715
4716
4717
4718
4719
4720
4721
4722
4723
4724
4725
4726
4727
4728
4729

DC
DC
EQU
EQU
EQU
AIF
ANOP
EQU
EQU
ANOP
AIF
ANOP
EQU
EQU
EQU
EQU
EQU
ANOP
OS

X'000B131B038B939BA3AB' ,.
X'B3BBC3CBOOOOOOOBE3' ,.,.
TABIHHt5
,.
TABIHH+13
,.
TABIHH+18
(NOT &RI621R).NOPT4
PAPER TAPE

0237F
02387
0238C
OO,qOO
. OOAOO
OOAOO
OOADO
OOAOO
OOAGO
OOMO

00238D

TABIHH
SKIP1
SKIP9
SKIP12
.NOPT4
RAPT
RNPT
.PTRX1
.NOPT5
I4NPT
WAPT
PTIOR
ONPT
PTI01
.PTPX1
PTSTAT

READER

COOERR
COOERR

,.PAPER

TAPE READER NOT EXISTING

(NOT &R1621P).NOPT5

PAPER TAPE PUNCH
COHMON PART OF SIH20
PAPER TAPE DOES NOT EXIST

COOERR
CODERR
COOERR
COOERR
CODERR

,.
,.
,.

ZOC

ERROR STATUS

,.

A2sa

PAGE 126

1620' SIMULATOR

LOC OBJECT CODE

ADDR1 ADDR2 STHT
4731
4732
4733
4734
4735
4736
4737
4738
4739
4740
4741
4742
4743
4744
4745
4746
4747
4748
4749
4750
4751
4752
4753
4754
4755
4756
4757
4758
4759
4760

ASH H V OS 22.10 05/07/81

SOURCE STATEMENT

***********************************************************************
*
*
*
'VALOUT' SUBROUTINE
*

*
*
*
*
*
*

*

THIS SUBROUTINE IS ENTERED FROM ALL OUTPUT OPERATIONS AND PERFORMS *
THE INVERSE FUNCTIONS OF THE 'VALIN' SUBROUTINE.
*

OPERATION
'VALOUT' CONVERTS SUCCESSIVELY ALL BYTES INTENDED FOR AN OUTPUT
* OPERATION AND PLACES THEM INTO 'IOBUFF'. BYTE CONVERSION USES
* CODE CONVERSION TABLE 'CNVTB' LOCATED AT ABSOLUTE ADDRESS 128. IT
* INCLUDES A VALIDITY CHECK.

*
* 'VALOUT' MAY BE ENTERED FROM A 'WRITE NUMERICALLY' OR 'DUMP' OP* ERATION. IN THIS CASE, THE FIELD COMPRESSION SWITCH MUST BE OFF,

* AND THE CONTENTS OF WR3 MUST BE ZERO TO INCREMENT THE P ADDRESS
* BY A STEP OF 1.
*
* IT MAY ALSO BE ENTERED FROM A 'WRITE ALPHAMERICALLY' OPERATION.

*
*
*
*
*
*
*
*
*
*

IN THIS CASE, THE CONTENTS OF WR3 HUST BE 1 TO INCREMENT THE
P
ADDRESS BY A STEP OF TWO. THE FIELD COMPRESSION SWITCH MUST BE ON
SO AS TO ALLOW PACKING OF TWO DATA BYTES INTO ONE SINGLE OUTPUT
CHARACTER.

THE WRAP-AROUND FEATURE IS INCLUDED IN THIS SUBROUTINE.
WHEN AN INVALID ERROR CODE IS DETECTED, ERROR EXIT IS AS IN
'VALIN' SUBROUTINE.

THE

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

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

0023Al 00
0023A2 41AO ojAB
003A8 4762 VALOUT
4763
00231'1E. 18BO
02304 4764 FLCOSW
oonAe 4700 4~O4
00231'\C 43B8 0000
00000 4765
00080 4766 PACK2
0023BO 438B 0680
00000 4767
0023B4 42BACQQO
00000
4768
00231.18 95AA f!.~OO
023EE 4769
OG23BC 4780 43tE
00001 4770 PACK3
0023CO 41St 8001
4771
0023(4 1987
023E8 4772
0023C6 4720 43£8
00001 4773 VALOU2
0023CA 41AA 0001
023A8 4774
0023CE 46DO 43A8
4775
002302 07FF
002304 F211 04FO 8000 004FO 00000 4776 PACK1
00230A FIll 04FO 04FO 004FO 004FO 4777
004FO 4778
0023EO 4380 04FO
0023E4 47FO (,380
023BO 4779
4780 VALOU1
0023E8 1686
4781
4782 .NOPT6
0023EA 47FO 43CA
023CA 4783

LA
LR
BC
IC
IC
STC
CLI
BE
LA
CR
BH
LA
BCT
BR
PACK
HVO
IC
B
LR
AIF
ANal'
B

WR1,IOBUFF
WR2,0
NOP,PACK1
WR2, O(RP)
WR2,CONVTBUlRZ)
WR2.00.jRl)
O(WRl),X'AA'
GODINA

LOAD ADDRESS OF IOBUFF

*FIELD COMPRESSION SWITCH

INSERT CURRENT CHARACTER
TRANSLATE CURRENT CODE
STORE DATA
IS DATA INVALID
YES.BRANCH
NO,RP = RP + 1 (OR + 2)
IS RP GREATER THAN SIZE
YES ,BRANCH
NO,WRl=WRl+1
LOOP IF COUNT NOT EQUAL TO 0
RETURN TO CALLER
PACK 2 BYTES IN 1 BYTE

RP, l(WR3 ,RP)
RP,SIZE
VALOUl
WRl,1(WRl)
WR4,FLCOSW
15
BUFF2(2),0(2,RP)
BUFF2(2),BUFF2(2)
*INSERT RESULT IN WR2
Wt:12,BUFF2
PACK2
*RP=MAPORG
RP,HAPORG
(NOT &R1621Pl.NOPT6 PAPER TAPE PUNCH
VALOU2

V1L1
V1L1

A2SB

Loe

PAGE 127

1620 SmULATOR
OBJECT CODE

0023EE 9640 0002
0023F2 47FO 43CO

ADDR1 ADDR2 STHT
00002

SOURCE STATEMENT

4784 COO INA
023CO 4785

01
B

NYCHEK,X'40'
PACK3

ASH H V 05 22.10 05/07/81
SET WRITE CHECK INDICATOR ON
RETURN

A25B

PAGE 128

1620 SIMULATOR

lOC OBJECT CODE

ADDRl ADDR2 STHT
4787
4788
4789
4790
4791
4792
4793
4794
4795
479b
4797
4798
4799
4800
4801
4802
4803
4804
4805
4806
4807
4808
4809

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

*
*
*
*
*
*
*
*
*
*
*

'GETEOR' SUBROUTINE
THIS SUBROUTINE IS CALLED BY OUTPUT OPERATIONS WHICH REQUIRE RECORD HARK SEARCHING. STARTING AT THE P ADDRESS. CORE STORAGE IS
SCANNED FROM LEFT TO RIGHT. WHEN A RECORD HARK HAS BEEN FOUND.
THE DIFFERENCE OF ITS ADDRESS AND THE INITIAL P ADDRESS IS COHPUTED.

OPERATION IN NUMERIC OR ALPHAMERIC MODE REQUIRES INCREMENTING.
THE STEP MAY BE 1 OR 2, DEPENDING ON THE VALUE GIVEN TO REGISTER
* WR3 BY THE CALLING SEQUENCE (1 FOR 'WRITE' OR 'DUMP NUMERICALLY'.
* 2 FOR 'WRITE ALPHAHERICALLY'). THE RESULTING BYTE COUNT IS CON* TAINED IN REGISTER WR4 FOR SUBSEQUENT USE BY THE OUTPUT OPERATION.

*
*
*
*
*
*
*

THIS SUBROUTINE INCLUDES THE WRAP-AROUND FEATURE.
SPECIAL CASE - WHEN A RECORD MARK IS FOUND AT THE P ADDRESS. THE
'GETEOR' SUBROUTINE SENDS THE MESSAGE 'CHECK STOP' AND SIMULATION
STOPS.

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

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

00000 4811 GETEOR
4812
4813
4814 *
00000
4815 GETEOM
0023FE nOA 0000
02426 4816
002402 4710 4426
002406 41DC 0001
00001 4817
4818
00240A 19D7
02418 4819
002 l rOt 4720 4418
4820 *
4821 * EOR2
023FE 4822
002410 46EO 43FE
4823
002'11.4 1801
0024i{' 07FF
4824
4825 EOR2
002418 lBoe
4826
002'111\ 1820
4827
Ooz41t IB28
002411:: 410C 6000
00000 4828
4829 *
002422 47FO 43FE
023FE 4830
4831 EORI
002426 1908
0244E 4832
002428 4720 444E
00242C 4780 443E
0243E 4833
4834
002430 IBD6
4835
002432 lA02
002434 42CO 4438
02438 4836 £OR4
00000 4837
002438 8ADO 0000
4838
00243C 0000
IEV044 *** ERROR *** UNDEFINED SYMBOL
IEV029 *** ERROR *** INCORRECT REGISTER OR
0023F9 41DC 60CO
0023FA ISH
0023FC 1820

ASH H V 05 22.10 05/07/81

SOURCE STATEMENT

l-lR4,0
4864 WCONS
AIF (NOT &R1621P) .NOPT6A
486S
4866 .NOPT6A ANOP
4867 * 14431-1
0213£ 4868 PBB
EQU PRNGO+2
002FA 4869 PBB1
EQU PBB-RATY
062FA 4370 PBB2
EQU PBB1+ADDFQ
4871 PNA?1
DC MPBB2)
022CE 4872 PNBB
EQU KPRGO+2
0048A 4873 PNBBl
EQU PNBB-RIITY
0648A 4874 PNBB2
EQU PNS81+ADDFQ
4875 PNAP2
DC A(PNBB2)
4876
AIF (NOT &R1621R).NOPT7
4877 .NOPT7 ANOP
4878 *+* DISKV
'DISK VERSION
4879 *
PRINT OFF
4880
PUNCH' SLC 006EOO'
4881
PRINT ON
01E44 4882
ORG RIITY
4883 *-*
END
4884 *+* NISKV
NO
'DISKV'
03000 4885
ORG KEYBIT+122S8
03000 4886
USING *,SIHB2
4887 *-*
END
4888
AIF (NOT &DISK).NODSK8A
4889 .NODSK8A ANOP

DISK VERSION
COMMON PART OF SIM20
1622 CARD PUNCH

1052 TYPEWRITER
PAPER TAPE PUNCH
1443 PRINTER

PAPER TAPE READER

VERSION

A2sa

1b20 SIMULATOR

lOC OBJECT tODE
003000 0700
003002 00

PAGE 131

ADDR1 ADDR2 STMT

SOURCE STATEMENT

4891
4892 CORES1
4893
4894 .NODSK9

CNOP 2,4
DC
X'OO'
AIF (NOT &DISK).NODSK9
ANOP

ASH H V 05 22.10 05/07/81
BEGINNING OF 1b20 CORE STORAGE

A2SB

1620 SIMULATOR

LOC OBJECT CODE
003003
004000 41BO 0800
OOljOO~

1MB

0040ar; 1858
004008 1M8
00400A lABS
00400C 4198 5000
004010 1BOO

PAGE 132

AODR1 ADDR2 STHT

SOURCE STATEMENT

04000 48%
04000 4897
05000 4898
00600 4899 DSKINT
4900
4901
4902
4903
00000 4904
4905

ORG
USING
USING
LA
AR
lR

*+40%,9
8,2048

AR
LA
SR

9,0(8,5)
0,0

AR

ASH H V 05 22.10 05/07/81

KEVBIT +16384
*,8

8,8

5,8

8,8
8,8

LOAD BASE REGISTERS
*
*
*
*
*

A2SB

1620 SIMULATOR

toe OBJECT CODE

PAGE 133

ADORI ADDR2

STHT

ASH H V OS 22.10 05/07/81

SOURCE STATEMENT

4908 ***********************************************************************
4909 *
*
4910 *
*
4911 *
BEGINNING OF SIMULATION
*
4912 *
*
4913 *
*
4914 ***********************************************************************
004012 4130 0800
004016 11'133
004018 4143 3000

00800 4916 BEGIN
4917
00000 4918
4920
4921

OMOle 411'10 0008

004020 0000 0000
IEV044 *** ERROR

***

*
*

4923 *
4924 *
00008 4925
00000 4926
UNDEFINED SYMBOL

LA
AR
LA

SIMB1,2048
SIMB!,SIMB!
SIMB2,0(SIHB1,SIHBl)

SIMBI BASE = 4096
SIHB2 BASE = 8192

ENABLE 1/0 INTERRUPTS
SET INPUT COHt1ANO RETURN
LA
ST

WRl,SATT
WRl,REQUST

SIH-20 INITIALIZATION
4928 *
4929 *
004024 1BOO
0,0
4930
SR
004026 1810
4931
LR
R1,O
R2,O
4932
004028 1820
LR
0040ZA 4860 0014
00014 4933
HAPORG,COREST
LH
00402E 58/0 0018
00018 4934
SIZE,CAPACT
L
004032 11'176
4935
SIZE,HAPORG
AR
0040:14 IBM
WR1,0
4936
LR
oOt/OSf, 1856
4937
LR
CNTR,MAPORG
WR6,0
4938
0040313 18FO
LR
4939
HVI KEYBIT+1,X'OO'
0040;t~ 9200 oorn
00001
00000
4940
HVI KEYBIT ,X'94'
~~4g~~ ~~~: ~~~~
00006
4941
HVI IXBAND ,X' 04'
004(J4b 4700 Ufioe
ooooc 4942 BRCC2 BC NOP,BRCC
DISKV VERSION
4943 *+* DISKV
WRl,RATY
00404A 41AO 3E44
01E44 4944
LA
WR3,COREST
00404E 48CO C014
00014 4945
LH
WR3,WR1
004052 1BCA
4946
SR
004054 0000 0000
00000 4947
STH WR3,CCWRD+6
IEV044 *** ERROR *** UNDEFINED SYMBOL
WR2,256
004058 4180 0100
00100 4948
LA
WR4,IOKPR
00405C 0000 0000
00000 4949
LH
IEV044 *** ERROR *** UNDEFINED SYMBOL
004060 19CB
4950 VVV2
CR
WR3,WR2
004062 4740 e07A
0407A 4951
VVVI
BL
004066 02FF AOOO 0000 00000 00000 4952
MVC 0(256,WR1),0(WR4)
00406C 41AA 0100
00100 4953
WR1,2560.JRl)
LA

CLEAR REGISTER 0
LOAD MAPORG REGISTER
LOAD SIZE = MAXIMUM 1620 SIZE
COUNTER

= ADDRESS

00000

RESET SWITCHES
SET RESET AND MODIFY BITS
RESET TO 'NOBANO'
V1L2
SWITCH FOR BEGINNING OF SIM20
SET DATA LENGTH
STORE COUNT FOR FURTHER USE

IS LENGTH BELOW THAN 256
MOVE
,.

A2SB

1620 SIHULATOk

Loe OBJECT CODE

ADDR1 ADDR2 STMT

PAGE 134

WR4,256(WR4)
00100 4954
LA
WR3,WR2
4955
SR
B
WV2
04060 4956
4957 VVVI
STC WR3,W4tl
~~:~;~ ri~~~ ~gh~ 0000 00000 ~ci~~~ 4958 VV4
MVC OCO,WRl),0(WR4)
4959 *-*
END
4960
AIF (NOT &DISK).NOoSK10
4961 .HODSK10 ANO?
4962 *+* DISKV
DISKV VERSION
004084 4110 0000
00000 4963
LA
Rl,O
004088 0000 0000 0000 00000 00000 4964
HVC WHDU2) ,CCWRD+6
IEV044 *~* ERROR *** UNDEFINEO SYMBOL
IEV044 *** ERROR *** UNDEFINED SYMBOL
WR3.CCWRD+6
00408EOOOO 0000
00000 4965
LH
1£\1044 *** ERROR *** UNDEFINED SYMBOL
WR3,cHWR3)
004092 41ct Q008
00008 4966
LA
004096 0000 0000
00000 4967
5TH WR3. CCI-lRIT +6
11:\1044 *** .ERROR ~H;* UNDEFINED SYMBOL
00409A 0000 0\)00
00000 4968 OTHE2
R1,REGl
ST
IE\l044 ***ERROR *** UNDEFINED SYMBOL
00409E 0000 0000 0000 00000 00000 4969
MVC CCWRIT+2CZ),IOKPR
1£:\1044 *** ERROR *** UNDEFINED SYMBOL
I\:\l044 *** ERROR *** UNDEFINED SYMBOL
WRl,WHVDSKCRl)
004uMi 00000.000
00000 4970
LH
IEV044
ERROR *** UNDEFINED SYMBOL
0040A8 0000 tt600
00000 4971
5TH WRl,WIiDEV
IEV044
ERROR *** UNDEFINED SYMBOL
0040AC 0000 0000
00000
4972
MVI WHHH+l,X'OO'
IEV044 *** ERROR *** UNDEFINED S'yMBOL
0040BO 0000 0000
00000
4973
MVI WHCCtl.X'Ol'
lEV044 **~ ERROR *** UNDEFINED SYMBOL
00405'4 0000 0000
00000
4974
HVI WHRO+2,X'01'
IEV044 *** ERROR *** UNDEFINED SYMBOL
OMOBO oooe d.ol)o
00000
4975
HVI WHRO+4.X' 00'
IEVU44 *** ERROR *** UNDEFINED SYMBOL
OOQOBt 0000 0000
00000 4976 A9CD
LA
WR5.CCWINI
IEV044 *** ERROR *** UNDEFINED SYMBOL
WR5,WHDEV+2
0040CO 0000 0000
00000 4977
ST
1E\l044 *** ERROR *** UNDEFINED SYMBOL
WR5,CCWIST
0040C4 0000 0900..
00000 4976
LA
IEV044 *** ERROR *** UNDEFINED SYMBOL
0040CB 0000 0000
00000 4979
STH WR5,J.lHESTC
IEV044 ***.ERROR *** UNDEFINED SYMBOL
0040CC 0000 OQOO .
00000 4980
BAL 15,HHRW
IEV044 *** ERROR *** UNDEFINED SYMBOL
004000 0000 0000
00000 4981
B
WHSKEH
IEV044 **~ ERROR *** UNDEFINED SYMBOL
WR5,CCWLD
004004 0000 0000
00000 4982
LA
IEV044 *** ERROR *** UNDEFINED SYMBOL
004008 0000 0000
00000 4983
WR5,WHDEV+2
ST
lEV044 *** ERROR *** UNDEFINED SYMBOL
00400C 0000 0000
00000 4984
LA
WR5.CCWLOR
IEV044 *** ERROR *** UNDEFINED SYMBOL
0040EO 0000 0000
00000 4985
STH WR5,WHESTC
IEV044 *** ERROR *** UNDEFINED SYMBOL
004070 4100 0100
00407A laca ...
00407~ 4i'FO ~Q60

***
***

ASH H V 05 22.10 05/07/81

SOURCE STATEMENT

DECREMENT WR3 BY 256
LAST MOVE

RETURN 4
HOVE DATA LENGTH
WR3=DL
WR3=DL+8
STORE IT IN CCW FOR WRITE
SAVE REGISTER R1
PLACE 1/0 DEVICE ADDRESS OF
2311 UNIT IN WHDEV

*
HEAD NUMBER = 0
CYLINDER NUHBER =01
RECORD 0 = CYLINDER 01
HEAD 0
PLACE HOME ADDRESS AND RECORD 0
IN CCW ADDRESS
PLACE RESTORE COHHAND IN
'WHESTC' BUFFER
GO TO 'IWHW' SUBROUTINE
GO TO DISK ERROR ANALYSIS ROUT.
STORE CCW ADDRESS IN IORW

*
PLACE RESTORE COMMAND IN
'WHESTC' BUFFER

A2sa

PAGE 135

1620 SIMULATOR

LOC OBJECT CODE

ADDR1 ADORZ STHT

0040t:9 ooooooon
00000 4986
IEV044 **~ ERROR *** UNDEFINED SYMBOL
D040Ia 4lAO 0908
00008 4987
0040t:C ISBA
4988
o04UEE 0000 0000
00000 4989
If;\I044 *~¥.ERROR*** UNDEFINED SYMBOL
0040F2 OOOO~UOO 0000 00000 00000 4990
IEV044 **i ERROR *** UNDEFINED SYMBOL
ootiDF8 0000 MlOO
00000 4991
lEVO'l'l *** ERROR *** UNDEFINED SYMBOL
0040FC 0000 obOO
00000 4992
lEVO'l4 *~* ERROR *** UNDEFINED SYMBOL
004100 '11BB 0006
00008 4993
00410'1 0000 0000
00000 4994
IEV04~ **~ ERROR *** UNDEFINED SYMBOL
00410$ lSBB ..
4995
00410A 0000 unM
00000 4996
IEYO. 2185
00002 aOOOOMO 2375
****UNDEFINED****
00004 OOOFBC 2239
00004
OOOFC8 2242
00004 OOOFOO 2253
OOOM OOOF6A 2197
00001 00000005 0121
****UNOEFINED****
00004
OOOOOC 0224
00002 001CEE 3806
aGOU4 001E1E 3985
001E2(' 3988
OOOO~
oootj~
001eB2 3791
001CC2 3795
ooq9~
001C02 3799
oono~
1.){)()O4
001CE2 3803
001(9A 3785
OOOUlf
001(78 3753
()OdO~
00004 001C10 3711
00004 001C14 3712
00002 GOIC2E 3723
00006 001C3(' 372E.
OOOOq 0Ole3e 3727
00002 001C48 3731
00002 0OlC5A 3736
00002
001C60 3738
00004 001e66 3740
00002
OOl!:6E 3742
001948 3410
0009~
00004 OOlOFe 2340
00004 0010ec 2319
00004 0010DO 2320
00002 0010E2 2325
00008 0009D8 1475
00004
00004
00004
00004

00006
00002
00004
OOOll4
000(14
00004
00006
00002
00002
00004

0009EO 1476
0004FO 0736
001062 3870
OOlOAO 3884
001082 3877
001020 3852
001004 3846
OOlO5e 3868
001044 3861
OOlDAE 3900

PAGE 1li3

REFERENCES
2255
2232
2234
1593
1625
3974
3994
1624
3955
1591
1608
1329
2222
2223
159'1
1592
2034
4838
4942
3790
IE.2E.
3990

ASH H V 05 22.10 05/07/81

2238

1902 4084
2226 2253
2254
2037 20'12 20'15 2050 2058 2943 2946 '1520
5023
3794 3798

3802

3788

3792
3796
3800
1E.19
1539
1555
3755
3722
3737
3720
3721
3725
3730
3734
3727
1530
1546
1562
2342
2329
1157
3355
1386
0714
3844
3870
3873
3933
3949
2498
3845
1621

3735

3741

3740
3732 3739

3420
1159
3370
1389
0715
3900
3876
3875
3973
3985

1381
3371
1390
0728
3913
3887

3862 3932

1382
3373
1402
0728
3926

1383
3374
1403
0729

2432
3376
1404
4776

2433 2434 3259 3260 3261 3262 3352 3353
3377 3379 3380 3490 3'191 3492 3493
1445 1446 2227 2228 2229
4777 4777 4778

3354

SYMBOL
BX61
eZM

Bti9
CAPACT
CCI4r1U
CClHST

CCWLl)
CCI4LDR
CCI.JRD

CCt-lRtT
CF33

CHKSTP
CHK360

CHFt
CNTR

LEN

VALUE

DEFN

001CFC 3844
00004
00001 OOGOOOOC 0123
00OF3E 2169
OOOM
00004
000018 0229
****fJNDEFINED****
****UNDEFINED*l<**
****UNDEFINED****
****UNDEFINED****
****UNDEFItlED****
****UHDEFINiO****
00004
001 44 2411
00001 00000190 0447
00001
0001C7 04lj1
0001::60 2089
00004
oa001 00000005 0098

CODERR

00002

OOOACO 1505

COD INA
CODltN
COHOa
COMP
COHPA
COt1PIl
COMPai
GOHPC
COMP£)
COMPE
C011PEl
COMPF
COMP1
COHPZ
COhl1,)P

00004
00004
OtJb02
0000'1
00004

0023EE
000(IE8
000588
OOOESC
OOOE9C
OOOFlO

00004
00004

{)00906

4784
0733
0825
2109
2112
21(;8
2152
2121
2124
2150
2154
2116
2131
2138
1381

CONVtfQ

00004

000902

1379

00011E

1388
0124
0226
4892
2898
2704
2022
2030
2066
2068
2073
2062

CUTZ

CVQ
C24
C24A
C24ARC
C2{tARl
C2'4AR2
C24B

00004

00004
00004
00004
OOOU4
00004
00002

OOOM

OOOOb

00001
00004
00001
00004
00004
00004
00004
00002
00004
00004
00004

OOOF20

OOOEeo
OOOECC
000F18
00OF28
OOOEAt
000~E4

OOOEFA

OOOOO~$O

000014
003002
0014D4
0012Et
000DC2
000DE2
000E5C
000E60
000E74
OOOE4C

ASH H V 05 22.10 05/07/81

REFERENCES
1620
1056
1596
4934
4976
4978
4982
4984
4947
4967
1574
0740
0743
1543
0378
1391

COIN'll
CONV1B
COREst
CORESI

PAGE 144

CROSS REFERENCE

A2SB

2776
3929
1523
1566
1600
1616
1643
1658
1673
4769
0716
0797
2063
2110
2113
2122
2119
2153
2114
2123
2127
2125
2129
1053
3852
1831
3396
2166
0713
4933
0226
2706
2622
1559
2025
2034
2042
2069
2027

3914
3068 3109
2188 2200 2239 2243

4964 4%5
4%9 4986 4989 4994 5004

5012

1048
1827
3169
3959
1527
1567
1601
1617
1644
1659
1674

1157
2224
3714
4639
1537
1582
1606
1630
1649
1(,(,4
4718

1050
1852
3207
3972
1533
1568
1602
1618
1645
1660
1675

1055
2090
3411
4198
1534
1569
1603
1627
1646
1661
1676

1149
2170
3413
4451
1535
1570
1604
1628
1647
1662
1910

1149
2171
3712
4458
1536
1581
1605
1629
1648
1663
2375

1205
2320
3753
4839
1538
1583
1607
1631
1650
1665
4719

1268
2322
3786
4937
1549
1584
1609
1632
1651
1666
4723

1295 1296 1296 1297 1384 1388
2341 2364 2367 2430 2517 2545
3806 3853 3879 3884 3886 3928
1550
1585
1610
1633
1652
1667
4724

1551
1586
1611
1634
1653
1668
4725

1552
1587
1612
1639
1654
1669
4726

1553
1597
1613
1640
1655
1670
4727

1554
1598
1614
1641
1656
1671

1565
1599
1615
1642
1657
1672

2411 2516 2544 2775

3168

3206

3754

3785

3153

3183

3248

3308

0818
3318

2155
2149 2151
2135
2132
1828 1853 2089 2169 2340 2395
18%
3410
2185
0799
4945
0737

1890 1929 1969 2022 2319 2452 2488
3428 3450 3560 3636 3711 3763
2197 3849
0800 0800 0804 4766

2624 2648 2704
2091
2037 2072
2045
2031

3048

3095

2531 2761

SYMBOL
C24C
C24D
C24E
C24F
C241
OEt20k
DEC4
DISlO
OHSCt!HllB
DHSOOOIC
DHSOOOIE
01119

LEN

VALUE

00004
OooM
00002
00004
00004

OOODEE
OOOE2E
QODDFE
OOOE44

OOOO~

OEFN

2033
2054
2039
2060
OOO~26 2052
OOlFSO 4169
000900 1466
1108

029B

00002
00004
00001 ~~~~~~ 0281
00001 000048 0282
00002 OOnOgC 0283
00004 00171A 3168
00004 00209C 4382
00004 002QAE 4387
00004
0020ElA 4391
00002 OOODMOO 4726
00004 ooonc 1025
00002 001F2A 4157
OOO(,OA 0989
000Q4
00004 0OO79E 1055
oooq~,
004000 4899
****UNDEF INEO****
O(J 0 (}(I
002(310 4300
00004 002120 4467
00002 0021AO 4504
OQU04 002134 4473
001700 3153
oood~
00004 001704 3154
oooqz, 001710. 3157

EN TRY 0

00004 000007F6 1464

DNto

ONCO!
DNCD2
ONPT
DNTAB
DtHy
DN35.
OPROG
OSKINT
DSKPR
DUHCAR
DUMPRI

OUHP1R

DUHP2R

029
D29f'

ENOl

*~**tJNOEFINEO****

ENTRY1

00004

0007F6

1149

ENTRY2
ENTRY 3

00004
00002
00002
00002
00002
00004
00004

0OO7FA
0007BO
002426
002418
00244E
002434
00293E

(1000~

oOIAAO
OOlAM
0004F8
0009FO
0OlCF4
001598
002334
0021Ee
0002fO
000324
00031C
000308
000314

1153
1094
4831
4825
4844
4836
4839
4842
3536
3537
0739
1501
380B
2990
4688
4512
0616
0631
0629
0622
0627

EORI

EORl

EOR3
EOR4

EORS

EORM
EPH
t:QH
ERROR
ERROR?
ERXOP
EXCHK
EXCKPR
EXCPRH
EXCRNC
EXCRN1
EXCRN2
EXCRN3
EXCRN4

PAGE 145

CROSS REFERENCE

A2sa

oooqz

00004
00004
00004
00004
00004
00004
00004
00004
00004
00004
00004
00004

00244A

ASH H V 05 22.10 05/07/81

REFERENCES
2029
20t!8
2050
2055
2064
4158
1401
0630
0276
0278
0279
1548
1028
4389
4393
1027
0992
102£,
1576
lQ51
5024
5004
4280
4447
4467
4505
1564
3170
3155
5017
2053
3585
0373
2457
2173
0538
4816
4819
4832
4845
4833
4840
3322
3507
0955
0960
3804
3282
4661
4484
0593
0627
0608
0620
0621

2059
2075 2504
4387
3950
1100 1104
0277

3156

3383

3878

4160
5025
5011 5012
4303 4306 4348 4384
4560 4593
4472

2058
3621
0540
3196

2061
3624
1464
3430

2065 2071 2074 2506 2765 3159 3279 3283 3286 3359 3362 3365
3881
1833 1862 1893 1946 1986 2168 2187 2199 2240 2242 2397 2413
3462 3470 3768 4203 4207 4651 4663

4320 4527

3357
3664
0971
1453

3367
3666
0978
1932

3494 3507
3667
0979 0980
1972 4B41

3361 3382 3584

3578 3663
0990 1001 1003 1004 1006 1010 1015 1019 1020 1025

A2S8
SYMBOL
EXCR3
EXCWNC
EXP

EXPAND
EXPOW
EXPIAB

EXP2AB
EXP3
EXP4
FADDA
FA[)DS
FADOC
FADDU
FADD01
FADD1
FAD03
FADM
FAOO5
FAD06

FADD9
FDIA
FDlB
FDIC
FDlE
FOIV09
FOIV6
FDIV7
FIXADD
FIXDA
FIXOIA

FIXOIE

FIXDIV

FIXDl
FIX!}10
FIX011
FIX012
FIX013

FIXD15

FIXD16
FIX017

FIXD18
FIX019
FlX02
FIX04
FIXD5
FIX06
FIXD8
nX09
nXOFL
FLCOSW
FLEXSW
FHUL03
FHULI
FHUL2

CROSS REFERENCE

un

VALUE

DEfN

****utmEFINED****
00004 00203e 4314
00001 00018B 0426
00006 0004D4 0728
00004 0OlB9A 3657
DOO()4 0018C8 3670
OOIBFO 3681
00004
00002 00l8DA 3675
00002 001BFE 3685
oooa4 00180E 3592
00004 001AEO 3577
00004
OOlADS 3574
00004 001816 3595
00004 OOIMS 3560
00006 OOllie6 3570
00002 00Hl50 3611
00004 00183E 3606
00002 D01Aeo 3562
00006 001B26 3600
00004 OOlAFA 3584
00004 0018E4 3366
00002 aOlegC 332Z1
00004 00000570 2766

00002
00004

~~~~.~

OOOtJf+

0000'1
OO()O2
00004
OOO~4

00004

oood~

00004
OO()O4

ooq04

OCOIN
00004
00004
OOOCtl
OOOOtf

00002
00004
00004
00006
00004
00004
00004
00004
00004
00004
00006
00004

001852 3328
001804 3308
MlS8C 3344
OOH3D8 3363
0011F8 2619
0015CC 3055
0015(:6 3052
{)OlSF2 3065
0015A4 3043
3062
001~Eb
0OlM2 3114
00168A 3108
0016BE 3122
OO15BC 3048
OOlbF2 3136
0016EC 3134
0016FA 3138
001654 3092
00163E 3086
00163A 3084
001610 3073
0015F8 3067
001630 3082
001672 3101
001660 3096
0016F2 3369
0023A8 4764
000482 0717
00176E 3248
001788 3269
0017BE 3270

PAGE 146

REFERENCES
0623
4297
2991
0717
3278
3659
3662
3679
3688
3565
3609
3572
3615
1524
3573
35%
3602
3642
3605
3588
3320
3368
2877
3930
3332
1532
3348
3351
2495
3061

ASH H V 05 22.10 05/07/81

4315

4318

3358

3580

4517

3567

3610

305g
3g31

3070 3102 3111 3254 3313

3324 3325

3487

3081

3089
3154
3060
3109
3113
3119
3121
3130
3137
3133
3087
3091
3065
3068
3072
3080
3098
3100
3337
4075
0508
1526
3265
3274

3335
3112

3071

4125 4165 4283 4351 4449 4562 4774
0581 0731 0734 4017 4227

3340 3349 3369 3927

3928 3929

A2sa
SYMBOL

LEN

FMUl3

00004
00004
00002

FSLC

00Ga2

FMUL4
FSLA
FSLB

FSLti
FSLE.
fSL05
FSRA
FSRB
FSRC
FSRoa
FSUflo2
GE: TEotI
GETEOR
HLJ
HPEZ
H48

lNDA~

INOERR
INDEX

INOlt

nmrte

INOI01
IND!C){

INDXl
INDX2
INDl{~

nmt:4

INDX5

INDX6

moxa

IN01
IND2
IND3

INITP

OO(lO'~

ODoM

00004

00004

OOOQ~
OOO~2

00066
00004
00004
00004
00004
00001
00001
00092
00002
00010

00004
0'0004
OOCfOlf
00010
o(Hl1o\')
00004
00004
00002
00004
00004
00004
00004
00002
00004
00004
00004

VALUE

DEfN

0017F8 3284
0017FO 3282
0019a2 3452
OG19AC 3455
0019t4 3461
00'19.EO 3469
0019CE 34E',4
00199C 3450
00197e 3432
00198E 3437
001980 3434
001%A 3428
001880 3636
0023FE 4815
0023F6 4811
OOOM5 0432
000003 0193
001150 2430
00093C 1397
OOOFFO 2266
0OO95C
001548
001004
OOOFDC
0010M
000972
00097E
0009BA
00099C
0009(2
000986
0009CE',
0015513
001%8
00157~

OOOs/Ea

1426
2942
2268
2264
2308
1432
1435
1438
1443
1453
1450
l l 154

2944
2951
2955
1477

KCHECK
K(lEAR
KEVaIT

00004 0009EC 1478
00001 000121 0406
00001 00000190 0444
00001 00000190 0445
OOOOI 0000019D 0446
00001
000181 0435
0OO3AS 0670
OOOOB
****UNDEFINED****
00004
001134 2372
OOOOOE', 0209
00001
00004
000880 1292
00004
0OO83C 1220
00006
0008BA 1325
00001
000000 0161

KINSER

00004

INITI1

INTREQ
nNCO\)

INVP
INVQ
INVXOP

WSUFF
WKPR
IR2
IXBANO
KAUTO

PAGE 147

CROSS REFERENCE

000870

1266

REFERENCES
3277
3280
3454
3460
3457
346E',
3468
1528
3436
3441
3521
1531
1525
4822
4078
2434
1240
2281
1595
1454
2268
2297
1385
2502
2236
2231
2233
1430
1433
143E',
1441
1427
1448
3848
2948
2943
2952
2023
3525
2873
0376
1507
1502
1504
3809
0514
4949
2321
1426
0535
1204
1329
0372
1294
1237

ASH H V 05 22.10 05/07/81

4830
44E',8
2436
2028 2032 2051 20E',0 2115 2136 2142 2145 2148 2150 2152 2154 2279 2280
2949 2953 2955 3043 327E', 3281 3319 3350 3583 3620 3874
3801 3805
2273 2276 2278 2284 2285
1392 1405 3657
2764 3158 3257 3339

3856 3858
3855 3859
1439 1451

228E', 2288 2289

3587 3619

2290 2291 2292 2294 2295

2296

3869

~,

3850
2946
2138
3568
3127
4533

2492 2499 2647 2820 2878 2889
3577 358E', 3592 3617
3372
4698

3044

3122

3189 3194 3258 3317 3496

0598 0E',48 0703 4092 4329 4507 4508 4508 4604 4762
4%9
23E',7 2368 3412 3713
1440'2298 2299 2300 3789 3793 3797 3846 3847 3851 4941
1267
0532 053 11 0706 1112 1153 11% 1202 1207 1220 1222 123E', 1238 1266 1292
1318 1320 1331 1337 1340 4885 48% 4939 4940

SYMBOL

LEN

VALUE

KHESS
KPRCCN
KPRGO
KPRIUT

00002
00008
00002
00002
00004

001F90
0023b8
0022CC
002290
00234C
0022EO
002358
0022C6
00064C
000864
000828
000a9E
000806
0008EA

KPRl~.

KPRfiStl

00008

KPRUE

00004
00004

KRESIO

OOOOlf

KPRl
KRESEl
KSAVE

OO~O4

000P4

00004

KSTART
KSTAR1
KSTAR2
KTM
KTABA
KTYPE
K34
LASCAR
LASTCD
LDM18
LD2a
L[)28A
LOZ8e
LIHITX
HAPORG

00001
00001
00004
00004
00004
00004
00n04
00001

MASK

00004

HASKRG

00004
00004

HAXVAL
HA70 .
MCLeAR

MeSSAG
HES5AV

HESSA2
MESSIO
MESSOK

HESS!>{!
MESH!:;

HEstoP

MF71
HLOT
HM13

HQlAB
MTASI
HTAB2

HUll
HULTA

MULTS
HULTC
MULTO

HULTE

PAGE

CROSS REFERENCE

A25B

OOOQ~

0000l;

oocra9

oooM
oooM

ooOOA

oooM
00004
ooaM
00004

OOOO({

00002
00004
00004
00004
00004
OOOO(t

OOOOb

0000'\
00008
00008
00010
00004
00004
00002
00004
00002
00004

OEFN

REFERENCES

4208
4704
4654
4637
4695
4659
4699
4652
1236
1242
1202
1318
1333
1340
OOlF92 4209
00070C 1001
0OlF64 4195
000670 0918
00014A 0414
000ti05 0205
001762 3206
001726 3183
00172A 3184
001742 3190
0004F4 0737
00000006 0099

4206
4656

4204
4652
4872
1005
4690
4683
4689
4646
1221
1223
1090
1293
1319
1334
4200
0921
1002
1575
0643
0644
1547
1563
3208
3193
0708
0726
2431
, 3275
4828
000510 0797
0509
4448
000570 0824
0801
0009CC 1465 1449
001C84 3763 1635
0014pa 2899 1330
0385
000088 0351
0354
000108 0389
ooaose 0353 4205
OOOOM 0360 0351
ooooce 0370 0364
000000 0371
0223
oooon( 037(1 0636
OOotlF4 0380 0224
00116C 2452 1636
0811
OOO%A 0822
001388 2775 1542
001(lfll 2910 2829
001504 2912 2708
001534 2918 2841
0013C4 2816 2762
001468 2866 2860
001442 2854 2864
001476 2871 2667
0013F8 2832 2869
001486 2869 2872

148

ASH H V 05 22.10 05/07/81

4686
1245
1195

1343

1239 2277

1268
2816
3314
4834
0521
4464
0819
1450

1269
2817
3315
4933
0582
4561
1052
1452

1297
2817
3315
4935
0595
4594
1054

1298 1321 1322 1322 1323 1443 1453 1866
2823 2830 2876 3045 3117 3131 3184 3185
3321 3327 3333 3341 3366 3724 3729 4157
4937
0818 4018 4076 4080 4126 4164 4228 4281
2766

2628 2827
0387 0641
0370 0374

3367
0742 1110
0379

0357

0369

0359

0381

4195

0353 0380
4324 4532 4696
0739 1501 1503 1506 2174 2362
0813
2838 2849
2855
3253

2874

2851

2863

3322

2435

2988

3808

3882 4692

1869 1903 1905
3185 3195 3255
4304 4386 4780
4284

4349

4385

AZSB

CROSS REFERENCE

SYMBOL

LEN

I1ULTF

00002
00004
00004
00004
00004
00004
OOOG!!
00004

HULTl

HULTZ
HULT3
HULT4.

HVBLAH

1123

H23A
N08RAO
NOP
NOP41

NOQEND

DEFN

REFERENCES

0013E6
0014eo
0014(8
0014AC
001480
0021A6
0013A6
0013AA
OOOQl 000190
00001 00000000

2826
2892
2894
2885
2886
4506
2761
2762
0430
0120

oood&

001l4e
000E54
002328
00217E
00218A
0021F4
0002EO
00202C
000002

2413
2064
4683
4494
4497
4527
0610
4309
0183

001B02
000004
001584
oaOAoa
004128
004150
00409A
000780
0023D4
002380
0023(0
0000213£
OOOOOZFA
0OOO62FA
000154
000022(£
00OOO48A
00OO648A
002224
002258
0001eo
00217(,
0020e(
0020EO
0020[4
002148
0020F8
002144
00213e
002204
002150
00220e
0021FO
002100

3586
0199
2985
1523
5004
5014
4968
1048
4776
4766
4770
4868
4869
4870
0416
4872
4673
4874
4557
4590
0439
4491
4444
4449
4451
44fH
4456

2891
2881
2883
2893
2895
4470
1558
2777
0444
0304
2704
1588
2062
4660
4483
4528
4525
0592
4296
0520
2307
3582
1241
2992
1161
5000
500(,
5019
0918
4764
4779
4785
4869
4870
4871
4326
4873
4874
4875
1024
1029
1107
4485
1014
4595
4563
4494
4452
4516
4510
4514
4499
4495
4513
4453

NRHPR5
NRH.RNC

00004
00004
00004
00004
00004
00004

NYCHEK

00001

NRMKP~

NRl'fPRN

NRHPf:14

NRHttNt

OFL

OfLOH
OFLSWI

OPTEll
OTHl:
OTHEl
OTHEl
OUTIN
PACKI
PACK2

PACIC~

PBS

PBS 1
PEez

POLOK
PHBB
PHBB!
PHBBZ
PRA
PRO
PRleHK
PRLOCK
PRN
PRNA
PRNB
PRNCSW
PRNDEl

PRNt:RR

PRtlGO

PRNIR
PRNPSW

PRNSAV

PRNUE
PRNI

oaoM
OCIHl4

0000*

OOOOCf

00004
0000(,
0000'1
00004
00006
OC006
00004
00004
00002
00002
00002
00001
00002
00002
OOt}!J2
00004
00004
00001
00004
00004
00004
00004
00008
00094
00001
00002
OOOM

00008
00004
00004
00004

VALUE

4l!80

4477
4532
4 tl82

4534
4526
4458

PAGE 149

ASH H V 05 22.10 05/07/81

0{145 0446 0447 2175 2363 3883
0365 0367 0705 0717 2064 2239 2242 2359 2360 2496 2498 2629 2635
3870 4094 4099 4300 4467 4764 4942

2639

2128
4702

0632
4322
0605 0(,24 0733 1097 1101 1105
4098 4319 4529 4784
2282 2283 2983 2990

0930

0941

4498

4524
4519 4521
4868
4503
4500 4512

0954

0970

0989

1242 2274 2275

2287 2293 2304 2305

2306

A2sa

CROSS REFERENCE

SYHBOL

LEN

VALUE

DEFN

REFERENCES

PRN2
PRN3
PROSIH
PR1
PRICCW

00004
00004
00001
00004
(lOOOa

PXMPR
PXA5PR
Q10
Ql1

OaO(ll

002114
002118
000001
0008FC
002288
0021FC
0021DC
0021E8
002370
002371
a01FA2
OOOOOMO
000?44
001E44
000686
0006A6
000350
0OOO04F8
0014EC
00013E
0OO6FC
0001E2
000108

4463
4464
0173
1345
4604
4529
4521
4524
4706
4707
4225
4718
1015
4015
0958
0954
0648
0980
2901
0412
0998
0451
0448

4455
4457
1095
1205
4454
4518
4530
4522
4639
4643
1018
1017
0957
1016
0974
1578
0587
0931
2842
0638
0932
0225
0629
4968
2821
5014
4926
1339
1379
2836
1009
0618
0599
0645
Ob03
0619
0611
0616
0583
0594
1008
0933
1007
0517
0516
0515
1577
0708
1857
1947
2041
2139
2631
2666
3120

PXA2P~

RAca

RAPT
RATAB
RATY
RA1
RA37
Rcntcw
RCDII

RCLEAR
RDRNOF
ROTAS
READY

REDCHK
REGl

00004
00004
00004
00001

00(104
00002
OOOOA
00004
00004
00004
00008
00004.
00004
oO(J 01

ooMb

oonai

00001

~B!**,\JNf)EfINEO****

REGIS
REG2

0014DO 2897
oOdU~
'It***'UHDEFINED****

RET

OOOUG
OOQ02

REQU15 T
RE5TAR
RF~~!j

RNCO

***~I.lNDEFINED****
OOti~4

OGnail

RNcnJ~

000(14

RNClJ2
RIKERR

00011·4

~~~g·~i oodQ4
DOv04
OOGOI

RNCPS~

00008
OOOO(i

RNCSt41
RNLOCK
RNPT
RNTAB
RNTY
RNTYAL
RNTYGO
RNTYOK
RN36

QOOQI'j

RNCSAV

RP

000806
00091C
0014FO
000272
00032C
000338
000282
000266
000294
OOOlM
00034C
0002ce

Qoa2M
00004
OOO.Q2 OOOOOMO
OOQ~~
000720
OOOtJ.4
00OlF4
ooaM 0002bA
00002 000208
00004 000228
00004 000682
00001 00000008

1157
1387
2902
0579
0635
0640
0583
0540
0588
0591
0646
0603
05%
4719
1006
0506
0541
0511
0521
0930
0104

PAGE 150
ASH H V 05 22.10 05/07/81

4461
2269 2270 2271 2272 2985
2364
4456 4460 4462 4473 4479 4487 4509
4520
4640 4645

4854 4858 4862 4869 4873 4882 4944

0956
1099
5015
2886 3846

3851 3854

3860 3863

3884

1394
2848
1300
0617
4229
0606 0607
0622
0614
0631 0635
0628
0610

0640 4314 4321 4323 4688 4691

4695

4699

0958
1898
1983
2120
2453
2684
3052
3251

0%1
1905
1987
2126
2454
2763
3066
3255

1270
0519
0536 0542 4019
0718
1859
1970
2049
21?C

2640
2868
3120

0719
1864
1973
2054
2322
2642
2877
3123

0719
1865
1974
2056
2323
2647
2878
3124

0720
1866
1975
2057
2324
2650
2879
3157

0726
1873
1978
2066
2325
2657
2880
3186

0729
1891
1980
2068
2327
2669
2889
3188

0730
1897
1981
2111
2396
2675
2951
3191

0730
1897
1962
2116
2412
2677
3044
3249

1269
1930
2023
2131
2456
2818
3084
3256

129B
1933
2024
2133
2491
2819
3093
3258

13B6
1935
2033
2134
2492
2820
3107
3259

1B32
1944
2039
2138
2493
2833
3118
3273

A2SB

SVMBOL

CROSS REFERENCE

lE'l

VAlOE

DEFN

RQ

lioU!!l 000(}0009

Rl

ooo~1 oaOOOOOl 0094

Rll
R12
R2

****UNOEF1NED****
lfd,;!OflDEFIN'ED****
0000'100000002 0095

SAfT
."
SAVUCB

**

SEE!

SF3Z.
Stlttt
5Hlf'TA
SHIFTS
SHIFTt
SHInE

SHlf"tF
~Hln$

SIMB!
SIfUfz
SIZE
SKIP!
SK1P1A
5K1P12
SKlflt,
, 5KI"SfA
5Hlt
SPSKBT
SPSK1P
START
STC

00

f1
00

ooa

00002
OOQH

oaap

oountt

,000"08 0222
DEFINEO****
oooorr 8 0978
2395
GO
d61
3482
001A26 3499
00lMA 3527
OOlA72 3519
0Ola?c 3513
OOil':l62 3617
3485
0096
00000004 0097
00000067 0101
0000237F 4713
00231A 4676
0000238C 4715
00002387 4714
0023DA 4671
0011EC 2544
0020EC 4453
0022F8 4665
000818 1162
000F5a 2176

~~~~~, OO~~~~~~

ooa01

ooob1

00010
00004
00010
00010
OOQO~

MoM

00004
00002
00004
00002

0105

PAGE 151

REFERENCES
3275
3340
3413
3463
3513
3668
3863
4776
1393
1903
2044
2227
2828
3128
3324
3437
3516
3733
3972
0269
0358
1158
2841
2856
4175
4695
0271
0270
2823
4826
4925
0375
0919
1573
3561
3502
3505
3510
3517
3518
3641
1089
1089
0720
4666
4673
4676
4671
4668
1541
4463
4489
1156
0958
3879

3284
3343
3414
3464
3515
3670
3865
4780
1827
1935
2047
2324
2871
3169
3354
3451
3519
3738
3988
0270
0359
1159
2841
2857
4314
4699
0271
0276
2826
4827

ASM H V 05 22.10 05/07/81
3285
3344
3415
3464
3519
3671
3868
4811
1832
1944
2067
2326
2873
3188
3369
3456
3520
3753
3989
0272
0370
1160
2842
2857
4320
4812
0272
0281
2890
4835

3528 3581

3311
3346
3416
3465
3525
3672
3871
4827
1852
1945
2070
2327
2878
'3189
3372
3461
3522
3766
3991
0286
0386
1160
2843
2858
4321
4823
0278

3312
3349
3419
3467
3532
3661
3959
4831
1857
1947
2073
2328
2882
3191
3373
3465
3523
3767
3992
0287
0538
1161
2844
2862
4323
4931

3313
3352
3431
3485
3562
3682
4159
4844
1859
1951
2090
2341
289l
3192
3399
3469
3524
3786
3993
0300
0541
1161
2844
2863
4466
4963

3324
3363
3432
3486
3577
3683
4161

3326
3364
3434
3488
3592
3714
4302

3327
3369
3437
3489
3601
3723
4305

3328
3370
3439
3490
3608
3724
4388

3330
3380
3440
3496
3611
3726
4390

3331
3381
3455
3497
3618
3736
4765

3333
3397
3459
3506
3622
3765
4770

3334
3398
3459
3511
3623
3767
4770

3338
3401
3461
3512
3667
3806
4771

1860
1953
2110
2453
2892
3194
3400
3482
3525
3787

1868
1974
2117
2455
3044
3195
3401
3483
3529
3791

1869
1976
2119
2490
3046
3207
3417
3484
3563
3795

1871
1981
2124
2494
3047
3250
3418
3492
3637
3799

1891
1984
2167
2517
3053
3252
3419
3496
3638
3803

1892
2026
2186
2532
3082
3261
3431
3506
3639
3931

1900
2030
2198
2545
3085
3309
3433
3511
3726
3950

1900
2036
2224
2776
3094
3310
3434
3514
3728
3956

1901
2040
2225
2820
3127
3313
3435
3515
3729
3957

0305
0607
1162
2845
2863
4471
4968

0306
0616
2630
2847
3055
4495
4970

0307
0627
2634
2848
3063
4500
5015

0308
0631
2720
2849
3078
4504
5016

0309
0635
2822
2849
3079
4506
5018

0354
0640
2835
2852
3096
4512
5018

0356
1096
2836
2854
3104
4527

0357
1106
2839
2855
3117
4688

0358
1113
2840
2855
3118
4691

3051 3077 3077 3079 3105 3316 3317 3487 3530 3530 3564 4813
4932 5014 5016

3598 3612

4916 4917 4917 4918 4918
4886 4918
1328 1871 1873 1898 1901 3736 3738 4771 4818 4934 4935

4649 4650
4662
1299 1338 1341
0959 1930 1931 1936 1937 1938 1941 1949 1970 1971 2171 2172 2718 2719
3880

SYMBOL

LEN

5W
51,lBBQZ
522
522A
TABltf.1
TABLEl
TABLE2
TABLE3
TAB!UO
TAPE'l3
TBDNet)
TBDNty
TBPRA

00M1
00004

T8PR!)

TBPRN
TBRAeD

TB~AJY

TBRNtD
TBRNTY

18Wl\CO

TBWAT't

TBWffCO
TBJi.lf.ljv

TDH15
TD25
TESTBR
TFA
TFL06
TFHlb
TF2.b

TNEA
TNFB

TNF73
TN SA
TNSB
TNSC
TNSWA

TNswa

TNSWR
mS72
TRNH30
TRWR
TR31
TR31A
TR31B
TYPCSW
TYPENO
TYPERR
TYPIOSV
TYPSWI
UNTCHK
VALAAB

VALIN

VALOUT
VALOU1

PAGE 152

CROSS REFERENCE

A2SB

VALUE

DEFN

000900 1347
COlloe 2360
ooeOl! 0011D6 2531
OOOOb 0011DA 2532
00010 00237A 4711
0005BA 0834
00O~.3
ooonS 0005D5 0850
00003 000623 0860
00008 002372 4709
00001 000007 0215
00003 0020ta 4395
00003 001F54 4171
OOOP3 002240 4566
000013 002270 4598
00003 002210 4536
00003 001FB6 4230
00nU5 001E58 4021
000358 0650
00003
eooo;:! 0005AE Go40
dooM (J02098 4353
ooaa3 00IFOE 4130
002C78 4330
oOo(J~
001EE6 4103
O!lq~,?
000C70 1827
ooop~
OOO~4
OOOC7e 1831
0(JOF44 2171
OOO~~
oooo~
GOOeM 1858
OO()tl~
001932 33%
0000'1 000C8A 1852
oooe% 1856
00004
00004
oaOD9A 1979
00004 OOOOBA 1987
000Q4 000072 1969
00 (1(!4 000D3E 1943
00004 00006/% 1953
00004 000D5A 1949
OOOO? oooceA 1873
0000:2 oooceo 1868
OOM? oooe86 1864
OOOQtJ 000006 1929
OOOO? OOOOQAOO 1910
oontut OOOCEA 1897
00004
ooocno 1890
ooo(f~
OOOCF'! 1900
OO()O'~.. 000000 1905
. 'DEFINED****
**
OOO~4A 0531
000
****~NOEFINED****

0000
00004
00001
00004
00004
00004
00002

oocose
00025E
000168
00049E
00047A
0023A2
0023E8

0288
05%
0420
0712
0702
4762
4780

ASH H V 05 22.10 05/07/81

REFERENCES
1163
2330
1557
2546
4642
05g6
4015
4123
4641
1244
4383
4163
4558
4591
4445
4226
4016
0580
0507
4347
4124
4279
4074
1544
1560
2331
1861
1529
1545
1561
1985
1977
1638
1940
1939
1942
1667
1874
1858
1637
1571
1894
1572
1906
1899
0524
0526
0518
0269
0522
4693
0705
0531
4089
4772

1333 1342
2369 3743
4713 4714 4715
0579 4073 4162 4278 4382 4444 4590
4225
4346 4557
2301 2302 2303 4490 4497 4523 4526 4669 4674 4679 4700

1829
236b 2370
3402

3744 3807 3%0

1854
1988
1948 1952 1954
1950

1943 1979 3190

1895

4096
0286
0529 0533 4100 4301 4492
0602
4286 4474

CROSS REFERENCE

A2SB
SyMft~t

REFERENCES

VALOU2

4783
0510
0711
0721
4951
4956
4957
4858
4859
4860
1023
1022
0973
1021
1580
4291
0942
4973
4971
4964
4990
4979
4972
4974
4980
4981
4970
4863
4864
1013
4316
4307
4857
4317
4310
4298
1012
0944
1011
4095
4099
4084
4102
4128
4088
1579
1103
4081
0920
0507
1327
2118
2499
2894
3102

VALl
VAl~
VAJ.l~

VVVI

VW2
VV4

WAA
WAA!
WM2

WAeD
WAPt

WAlAS
WATY
WA39

weott}.}

WOlt

WRC(:;i.
WH()£'i1

WHOl

~~~~tc
WHRn

WHRO

WHRW.

WHSKEW
WHVUSK

WHM

WNAAI

WNCO .• ,.

WNCl;fER

WHen 1
WNC02
WHCERR

WNCPSW
14NlOCK
WNPT

WNTAa

UNTt
WNTYAL

WNTV60
WNTYG2
WNTY~~
WNTYI
WNTY3
WN3S

WRICHK

WRISWI

WRITAB

WRI

PAGE 153

ASH H V OS 22.10 05/07/81

0702 0723
0727

5008
4977 4983
4985
4996 5001 5007
4975 5002 5009 5010
4991
4992

4352 4394
4313
4309

4097

4167
4176 4862
4087
0943
0580
1384
2229
2632
2942
3103

4093
0972
0703
1391
2231
2643
2944
3105

0991
0710
1398
2233
2645
2945
3106

0712
1400
2235
2658
2947
3123

0722
1401
2235
2665
3052
3126

0722
1402
2236
2672
3056
3134

0816
1429
2320
2707
3058
3138

1052
1432
2321
2719
3059
3157

1054
1435
2430
2763
3064
3256

1323
1933
2431
2826
3084
3323

1324
1934
2432
2832
3086
3325

1325
1937
2454'
2869
3090
3334

1325
2109
2456
2876
3093
3338

1327
2118
2493
2885
3099
3340

<;~', •

A2Sa

SYft8t:iL

CROSS REFERENCE

LEA

VALUE

IlEFN

WR2

DUng! ooonodM

14ft! "-

tJoo~l 060tH1aOC 0108

wM

oad81

WR5

uoliil ooooooot:: 0110

WR6

OOfJlh

O(lOOOIlOO

OOOOO(lOF

iila7

0109

0111

PAGE 154

REFERENCES
3342
3617
3684
4124
4642
4953
0506
0814
1438
2638
3066
3266
3494
3570
3764
4073
4638
4767
4998
0801
2662
2716
3107
3376
3722
4667
4955
0523
0932
0972
1447
2713
3125
3498
3658
4469
4828
0524
0989
2843
3115
4200
4982
2827

3411
3618
3685
4163
4642
4958
0579
0816
1438
2681
3067
3268
3495
3571
3765
4123
4643
4778
4998
0804
2664
2717
3108
3493
3731
4671
4957
0525
0933
0973
1449
2716
3260
3500
3661
4471
4831
0525
1052
2854
3262
4202
4983
2837

ASH H V 05 22.10 05/07/81
3412
3657
3686
422'6
46'14
4970
0704
0822
1442
2703
3069
3269
3503
3573
3766
4162
4644
4948
4999
0819
2665
2718
3110
3494
3885
4672
4965
0530
0933
0973
1450
2833
3263
3500
3663
4473
4834
0527
1054
2856
3263
4202
4984
2838

3451
3658
3687
4279
4762
4971
0712
1324
1442
2832
3070
3270
3503
3574
38M
4225
4644
4950
5001
0822
2667
2827
3111
3495
3886
4676
4966
0601
0934
0991
1452
2834
3267
3509
4079
4504
4835
0527
1056
2859
3566
4204
4985
2838

3452
3660
3712
4304
4767
4987
0713
1326
1443
2837
3072
3270
3508
3593
3864
4278
4647
4955
5002
1446
2668
2828
3113
3497
4077
4677
4966
0723
0943
0991
1453
2834
3341
3527
4086
4506
4837
0530
1057
2859
3566
4302

3453
3660
3713
4305
4768
4988
0713
1326
1443
2845
3074
3272
3508
3595
3865
4346
4648
4986
5011
1447
2669
2829
3114
3499
4127
4770
4967
0802
0943
0992
2654
2835
3342
3578
4088
4509
4842
0801
1330
2984
3876
4390

3455
3661
3853
4347
4773
4997
0714
1328
1445
2846
3076
3321
3509
3600
3952
4382
4649
4988

3456
3672
3868
4383
4773
4999
0718
1330
2230
2850
3085
3323
3520
3601
3953
4444
4652
4989

3458
3673
3951
4445
4925

3458
3674
3952
4558
4926

3489
3675
3955
4591
4936

3562
3676
3987
4637
4944

3586
3677
3990
4640
4946

3593
3678
4016
4641
4952

3599
3683
4074
4641
4953

0805
1428
2231
2858
3088
3326
3523
3603
3954
4486
4667
4990

0807
1431
2232
2861
3091
3329
3527
3603
3956
4486
4672
4993

0809
1431
2233
2862
3094
3330
3529
3611
3957
4487
4677
4993

0810
1434
2234
2875
3097
3355
3563
3614
3958
4488
4763
4994

0812
1434
2494
3053
3100
3356
3568
3614
3991
4488
4765
4995

0812
1437
2633
3057
3264
3366
3569
3715
3992
4557
4766
4995

0814
1437
2636
3061
3266
3491
3570
3731
4015
4590
4766
4996

2236
2670
2829
3116
3501
4166
4811

2237
2672
2830
3254
3575
4282
4817

2241
2674
2830
3269
3576
4350
4825

2628
2707
2835
3271
3579
4446
4828

2650
2708
2847
3271
3594
4559
4836

2652
2708
3049
3272
3597
4592
4945

2654
2709
3074
3273
3597
4665
4946

2656
2710
3075
3371
3613
4665
4947

2661
2713
3076
3375
3613
4666
4950

0809
0944
0992
2655
2847
3343
3579
4101
4774
4842
0803
2503
2987
4079
4391

0813
0944
0993
2655
3050
3345
3599
4199
4811
4844
0810
2628
2991
4083
4391

0814
0945
1049
2656
3062
3346
3600
4200
4815
4949
0811
2651
3054
4085
4392

0920
0956
1383
2703
3101
3347
3604
4285
4817
4952
0819
2663
3065
4101
4812

0920
0956
1386
2705
3114
3353
3604
4386
4817
4954
0918
2663
3073
4157
4822

0921
0957
1390
2705
3115
3356
3606
4387
4818
4954
0930
2710
3073
4158
4976

0921
0957
1393
2706
3116
3357
3606
4388
4823
4958
0941
2711
3075
4159
4977

0922
0962
1400
2709
3122
3374
3607
4392
4825

0932
0972
1404
2712
3124
3375
3608
4469
4826

0954
2715
3092
4161
4978

0970
2840
3092
4197
4979

2839 2850 2851 2851 2852 4938

DIAGNOSTIC CROSS REFERENCE AND ASSEMBLER SUMMARY

PAGE

155

ASH H V 05 22.10 05/07/81
THE

l0141tt6\ §tATEHEMSMERE

FLAGGED
I) OOZ?i00272U62'6 00278 00281 00375
51t q1f1· 04947 Q99it? 04964 04965 04967
... 79 04~O~981049~2 0'1983 0'1984 0'1985
0500B 05,.05010, !lSDll 05012 05014 05015
6~ STA
TS FI..MtiE:U IN THIS ASSEMBLY

oV~RRlb

6~T.· lONS...
D~tK.

, SIAN

O~I!RIW)

&19$ C
~112 l

00518 00524 00623 01329 01902 04084 04096 04315 04318 04517 04838
0'1968 0'1969 04970 04971 04972 04973 0'1974 0'1975 04976 0'1977 0'1978
04986 04989 04990 04991 0'1992 04994 0'1996 05001 05002 0500'1 05007
05017
8 WAS HIGHEST SEVERITY CODE

'ARAMEt'tItS'" ALIGN.DECK.LIST ,ESD.RlD.XREFCSHORn ,FLAG(OOO) ,NORENT ,NOOBJECT ,NOTEST ,LINECOUNH55)
THIS ASSa-tBLY
..EC.T, .. t. l.STl;. XRE. . F(SHORT);. NOR.ENT. NOTEST, NOBATCH. ALIGN, ESD. RLD, lINECOUNH55), FLAG(O), SYSPARHO
pO N~~':' ;tVSLIN SYSLIB SYSIN SYSPRINT SYSPUNCH SYSUTl
". DO NAHES.:. 110000000 CMSLIB ASSEMBLE LISTING TEXT
SYSUTl
132 CARDS FROM SYSLIB
208 tAROS OUTPUT



---

Source Exif Data:

File Type                       : PDF
File Type Extension             : pdf
MIME Type                       : application/pdf
PDF Version                     : 1.3
Linearized                      : No
XMP Toolkit                     : Adobe XMP Core 4.2.1-c043 52.372728, 2009/01/18-15:56:37
Create Date                     : 2014:03:03 18:54:36-08:00
Modify Date                     : 2014:03:03 18:15:45-08:00
Metadata Date                   : 2014:03:03 18:15:45-08:00
Producer                        : Adobe Acrobat 9.55 Paper Capture Plug-in
Format                          : application/pdf
Document ID                     : uuid:96997d3c-aa5b-5647-921e-630b7e0ccde2
Instance ID                     : uuid:b870875b-ec5a-7e44-8e55-2ef00b11467e
Page Layout                     : SinglePage
Page Mode                       : UseNone
Page Count                      : 154

EXIF Metadata provided by EXIF.tools