IBM 1130 User Manual page 677

Step 4
Making all five subroutines LOCAL again, we find
this is just enough to eliminate SOCALs, but does
•
I I
XEQ MA
Ii"
L
*LOCALMAIN,SUBW,SUBZ,SUBY1,SUBY2,SUBY3
•
*FILES( 1,FIU:,'I)
FILES ALLOCATION
1 01A3
0001 7061 FILEN
•
22 (JOJO 0001 7061 01A7
STORAGE ALLOCATION
R 41
0004 (HEX) wDS UI'IUSED BY CORE L0AD
•
CALL TRAi"SFER VI::CTOR
DATSw 1
t:l7
E
SUtlY3 lE9F LOCAL
•
SUtlY2 IF67 LOCAL
SUBYl IF67 LOCAL
SUtlZ lE9F LOCAL
•
SUBI'i lF03 LOCAL
L I BF
TI~AI\jSFER
VECTOR
HOLTB
1059
•
I:: Al.!OX
lAFF
XOD 1CDC
FARC lCtlA
•
XtvlD lC78
ELDX lA12
,~ORr~
lC4E
•
HOLEl lC18
EBCTtl
lC15
GETAD IdCC
•
IFIX IBAO
PAUSE iB68
ESBR
1B54
•
I::ADD lAF9
EDIV 1AAO
EMPY
1A72
•
EDVR 1A5A
FLOAT 1A48
SUtlSC 1A2A
•
ESTO lAOO
ELO lA16
PRIHZ 193E
•
CAROZ
1894
wRTYZ 1858
SFIO 14CF
•
SOFIO 1109
SYSTEivl SUBROUTINES
ILS04
00C4
•
ILS02 00B3
ILSOl IF74
ILSOO IF8F
FLIPR 107A
•
10CF (HEX) IS THI:: txECUT ION AODR
Section Subsections
Page
90 40
I
10 05
not speed up the program, since SUBY1, the
FICA routine, is called for almost every employee
and causes the disk arm to be moved from the data
file area back to the overlay area, and vice versa.
THE.Se: ARe:
.sTILl.. LINk'S
LOCAL.
S-V4W
L.OCAI..
Sf/BY /,
Sc/8Y 2,
51.181 3
J. OCAL SV8Z