IBM 1130 User Manual page 339

Section
35
Subsections Page
20
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
I
10 114
PAY05
PROGRA~
PAGE 07
1 'DIFFERENCES '2(3X.F9.011 PAY05
C----- - - - - - - - - - - - - - - - - - - - - - -
-PAY05
PAY05
PAY05
PAY05
PAY05
PAV05
C-----
C----- WRITE UPDATED PUNT RECORD TO DISK
C-----
I WEEK-I WEEK
+
1
WRITE(25'NOPLTI COMPo ICHCK. IWEEK. FIBRE. ITOT. CKMAX
C----- - - - - - - - - - - - - - - - - - - - - - - - -
C-----
C----- STOP
C-----
CALL EXIT
-PAV05
PAY05
PAY05
PAY05
PAYO"5
C----- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-PAY05
PAY05
END
VARIABLE ALLOCAT IONS
I COL -005B IWVA -005B MUNC -005B LBO -005B LBT -005B LMC -005B IN1 -005C
INS -005C IN6 -005C FIBRE-0072 QRTD -0084 YTD -OOAE TA -00B1 TB =00B4
TOTSP=OOCO CKMAX-00C3 TGRS -00C6 TNET =00C9 BR
.. OOCC
GROSS=OOCF
RGHRS-00D2
OTERN-OOOE BNERN-00E1 OTHER-00E4 HOLDY=00E7 VACA -OOEA SICK -OOED CNET -OOFO
ISUPP-010B ITOT -0116 JGROS=Ol1D JOUTl"O I I I JOUTl=01l9 JVACA=OllE MASK =0135
NETO =014F NET1 -0156 NET2 -0150 NET4 -0164 NSSAN-0167 COMP -0177 TAX
=0178
YOUT2=0192
IC
-0193
I
=0194
NRI TE"0195
NOPU-0196 KARO =0197 ICHCK=0198
ILST -019C LAST =0190 NUM "019E NSTAS"019F NOUES=OlAO NWKMP .. 01A1 NWKPO=01A2
NSEX -01A6
NRATE=01A7 LYRHR=01A8 NCU -01A9
NCUDD=OlAA
NCHCK=OlAB
NADWH-OIAC
NUA -OlBO NSTKD-01Bl
INIT "OlBl
IPO =01B3 IFILL=01B4 IVRAT=01B5 IOTRT-01B6
ICU =OlBA IUA =OlBB IUD -OlBC IINS =OlBD ISTCK=01BE IMISC=OlBF IPNT =OlCO
14 -01C4 IS -01C5 16 -01C6
17
=01C7 16
=01C8
19 =01C9 101
-OlCA
STATEMENT ALLOCATIONS
1 =OlFC 2 -0204 3 -Ol17 21 "0283 22 "0293 23 -0295 24
-02AB
5000 "02CC
5001 -02E2 5002 "02FE 5004 -0316 100 -0310 101
-033F 102
-034B
52 -03E9 55 "03EF 60 -03F7 62
"040F
70 "0440 71 .. 044B 72 .. 0455
78
-047C 79
,,0482 80
"0488 81 =048E 83 =0492 87u
c049D
860 =0519
510 =05B9
550
=05Cl 10 =05C7
5 =05CE 15
=0503
90 "05F8 91 "05 FA
95 =0705 96 =0769 700 -076B 850 ·0770 855 .0788 800 =0794 801 -079E
FEATURES SUPPI UED
ONE WORD INTEGERS
EXTENDED PRECISION
IOCS
CALLED SUBPROGRAMS
WHOLE
EABS
DATSW PUT MOVE
EDIT
EADD
ESUB EMPY EDIV ELD
IN2
"005C
TOTRG-00B7
OTHRS-00D5
A =00F3
MASKl-013C
Y INl -017F
IWEEK=0199
MAR -01A3
NSTCK=OlAO
KO =01B7
Il =01C1
102 =01C6
25
-OlAD
4
"0397
75 -0460
875
c051F
92 -0690
802
"07A2
ELDX
TYPEZ SRED SWRT SCOMP SFIO
SIOAI
SIOF SIOI
SUBSC
PAUSE CARDZ PRNTZ
•
•
•
•
SDCOM SOAI SDAF
REAL CONSTANTS
.OOOOOOOOOE 00-0100
.500000000E 01-01DF
INTEGER CONSTANTS
l=OlEl 7-01E3
l111=OlEC 15-01ED
7616=01F6 11200 a 01F7
SDF 501
.500000000E
16446=01E4
14=01EE
3=01F8
CORE REQUIREMENTS FOR PAY05
00-0103
4032-01E5
100-01EF
5·0 1F9
• COMMON 0 VARIABLES
4b4
PROGRAM 1544
END OF COMPILIITION
L!---- -
.100000000E 03-0106
23360=01E6
250=01FO
4=01FA
-
110
19264=01E7
90=01Fl
43b9-01FB
-
.100000000E 02"0109
0=01E8
lOO=OlFl
l=01E9
50=01F3
IN3 -005C IN4 -005C
TOTOT-OOBA TOTBN-OOBD
BNHRS-00D8 RGERN-OODB
B "00F6 10ATE-OOFE
NAME -0145 NOIo/K -0148
Ylilil -0185 YOUTl"018C
ICNT =019A INDX -019B
NXMPFc01A4
NXMPS=O lAS
NINS -OlAE
NMISC=OlAF
IFICA-OIB8 LOCAL-01B9
I l
=OlCl
13 =01C3
l6
-OlB7
20
-OlB9
99999-03CC 51 -03E5
76 -0470 77 -0476
505 "052A
50u =053b
93 ·069F 94 =0703
ESTO
EDVR IFIX
SDFIO
SDRED SDwRT
• 500000000E-OI-0 IDC
b·ulEA
150=01F4
-
~5=v1EB
.10=01F~
I
I
I
I