IBM 1130 User Manual page 271

Section
35
Subsections Page
20
•
•
•
•
•
•
•
•
•
•
•
•
1
10
46
PAYOl PROGRAM
LAST-ICOL-l
WRITE( IND'l) (INDEX( I) ,1-l,LAST)
PAGE 05
PAYOl
PAYOl
C----- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
C-----
C----- WR I TE
1~E
RECORD FOR TH IS PLANT TO 01 SK, THE NUMBER OF EMPLOYEES
C----- I N THE PLAN T TO THE I NO EX AND STOP. C-----
WRITE(25'NOPt..Tl eOMP, ICHCK, IWEEK, FIBRE. ITOT, CKMAX
e-----
WRITE(IND'LST) LAST
C----- -- -- ------------- -
C-----
C----- STOP
C-----
CALL EXIT
END
VARIABLE ALLOCATIONS
I COL -005B IWVA -005B
IN5 .005C IN6 -005e
NSSAN·01Dl COMP -OlEl
NMISC .. 01EA NSTKO·01EB
NUM -01F4 NRATE-01FS
K -OlFE NSTAS"OlFF
STATEMENT ALLOCATIONS
4 -022F 5 ·0231
58 =0343 54 "0346
101 -030B 102 "O"lEl
110 =0417 600
.. 0461
FEATURES SUPPORTED
ONE WORD INTEGERS
EXTENDED PRECISION
10CS
CALLED SUBPROGRAMS
MUNC -005B LBO -005B
FIBRE-0072
QRTD -0084
IC
,,01E2 INIT "01E3
N\f/KMP-01EC NWKPD.O lED
NSEX .01F6
NXMPF=O 1F7
NXMPS-0200 LAST "0201
3
.023,
1
-0236
55 "0351 56
-0350
103 -03E7
104
"03EO
650 =0465
LBT -005B
YTD -OOAE
IPD ·01E4
M
.. OlEE
NCU =01F8
2 -0239
57 -0361
106 -03Fl
LMC -005B
-PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
Ii'll -005C
CKMAX·OOBl
INDEX-01AD
I
-01E5 LYRHR.01E6
NOPL T.O lEF IWEEK-01FO
NINS .01F9 NSTCK=OlFA
68 *0280
69 ·02F7
59 -0367 60
-0360
115 .03F7 120 -03FB
IN2
-005C
ISUPP-01BA
NAOWH=01E7
ICHCK"OlFl
NUA -OlFB
51 -0327
500 -0379
107
-03FF
•
STACK ELD ELOX ESTO
ESTOX TYPEZ SREO
SFIO SIOAI SIOFX SIOI
SUBSC
SOCOM
SDAI SDAF SOIX SOF SOl
REAL CONSTANT S
.250000000E 05,,020E .OOOOOOOOOE 00-0211
•
INTEGER CONSTI HS
1-0214 0"021$ 13"0216
•
111-0217
620-0218 625-0219 626-021A
627-021B
14.021E 6-021F 100·0220
250-0221 90=0222
200 .. 0223 1723·0224 621-0225
•
30·0228 622-0229 2"022A
9·022B 3-022C
8-0220 25-022E
CORE REQUIREMENTS FOR PAYOl
•
COMMON
0
VARIABLES 526 PROGRAM 672
END OF COMPILATION
G-- -
-
--
-~-----
42
I
IN3 ·005C
IN4
"005C
ITOT "01C5
NAME ·OlCE
NCHCK·01E8 NCUOO=Ol E9
I
INO
.01F2 LST -01F3
NOUES=OlFC MAR -OlFO
52 ·0320 53 ·0339
10
-03AB 100 -0305
108 ·0407 109 -0411
I
CAROZ SOFIO
SOWt<T
I
628-021C
635-0210
50·0226
150·0227