IBM 1130 User Manual page 675

step
2
In order
to
test the program, we make all five sub-
routines LOCAL and find that it now fits in core,
but requires SOCAL level 2. Running of the pro-
gram is accompanied with quite a bit of disk arm
movement, which slows it down considerably.
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
I I
XEQ PAYRO L 2
*FILES(l.FILEN)
*LOCALPAYRO.SUBW.SUBl.SUBY1.SUBY2.SUBY3
FILES ALLOCATION
1 01A3 0001 7061 FILEN
22 0000 0001 7061 01A7
STORAGE ALLOCATION
R 40 03E3 (HEX) ADDITIONAL CORE REQuIRO
R 43 01FC (HEX) ARITH/FUNC SOCAL ~D CNT
R 44 06E8 (HEX) FI/O. 110 SOCAL WD CNT
R 45 02A2 (HEX) DISK FIIO SOCAL WD CNT
R 41 00A4 (HEX) WDS UNUSED BY CORE LOAD
CALL TRANSFER VECTOR
DATSW 1902 SOCAL 1
SUBY3 1701 LOCAL
SUBY2 17C9 LOCAL
SUBY1 17C9 LOCAL
suez 1701 LOCAL
suew 1765 lOCAL
lIBF TRANSFER VECTOR
HOLTB 1EBB SOCAL 2
EADDX 1883 SOCAL 1
XDO 1988 SOCAl 1
FARC 1966 SOCAL 1
XMD 1924 SOCAL 1
ELDX 1528
NORM 1594
HOLEl 1E52 SOCAL 2
EBCTB 1E4F SOCAL 2
GETAo lE06 SOCAl 2
IFIX 1568
PAUSE 18EC SOCAl
ESBR 1808 SOCAl
EADD 1870 SOCAL
EoIV 1824 SOCAl
EMPY 17F6 SOCAl
EDVR 17DE SOCAl
FLOAT 155E
SUBSC 1540
ESTO 1516
ElO 152C
PRNTl 1048 SOCAL 2
CAROl 1C9E SOCAl 2
wRTYl 1C62 SOCAL 2
SFIO 1809 SOCAl 2
SoFIO 1885 SOCAl 3
SYSTEM SUBROUTINES
ILS04 00C4
ILS02 0063
I LS01 1£C2
IlSOO 1EDD
FLIPR 15DC
1467 (HEX)
Section Subsections
90
40
I
10
The subroutines are:
SUBW -- Error message (hardly ever called)
SUBZ -- New page headings (once every 25
employees)
SUBYI -- FICA routine (almost always called)
SUBY2 -- Special deductions (one out of every
six employees).
SUBY3 -- Savings Bond deduction (one out of
every three employees)
LOCAL Sl/4W
LOCAL st//JY I,
SVIIY2,
___
s_v~.,
y
3
LOC.IIL SC/8Z
Page
03