IBM 1130 User Manual page 320

Section
Subsections Page
35
20
I
10 95
PAY04 PROGRAM
PAGE 14
C----- PAY04
•
v,'R I T E ( 25 ' NOP LT ) COMP, ICHCK, IWEEK, FIBRE, ITOT, CKM"X, TGRS, PAY04
1
TNET, ICNT PAY04
C-----
-
-
-------
-
- -------
------
-
-
-PAY04
•
C-----
PAY04
C----- STOP PAY04
C----- PAY04
•
CALL EXI T PAY04
C----- -
-
- -
-
-
-
- - - ------- -------------
-PAY04
END
PAY04
)
•
VARIABLE ALLOCA T IONS
ICCL &005B IWVA "'005B MUNC =005B LBO "005B
L8T =0058 LMC
"0058
INl =005C IN2 =005C IN3
"'U05C
IN4 "005C
•
IN5
-005C
IN6 "'005C
F18RE"'0072 QRTD =0084 SPECL=0080 TOT -OOCC YTO -00F6 T =OOF9 XTOT -OOFC XBN =OOFF
XREG "0102 XSP "'0105 TOTRG"O 108
TOTOT=O lOB TOTBN=010E
TOTSP"Olll
CKMAX"'01l4 RGHRS"'0117 OTHRS"'Ol1A BNHRS=O J.l0
ADREG=0120 A::> =0123
HOLDY=0126 CTHER=O 129 SICK .. 012C SPA =012F SPB -0132 VACA "0135 RGERN"0138 BNERN"013B
•
OTERN"013E ERNGS=O 141 GROSS=0144 TAXBL=0147 ATAX =014A
CNET ",0140 TGRS =0150 TNET "0153 A -0156
B
=0159
C =015C 0
=015F
IDATE"016D
INOEX=0267 I SUPP .. 02 74 I TOT =027F KOOE =0282 NAME =028B NOWK =028E NSSAN"0291
COMP =02Al TAX =02A2 IC "02A3 I -02A4 IPAGE=02A5
LlNE :02Ab NOPLT,,02A7 KARD =02A8 ICHCK=02A9 IvlEEK-02AA
•
IN::>X =02AB ILST =O,AC LAST =02AO KPLNT=02AE I CLCK=02AF IF ILL"02BO
KO ,,02B1
INO
=0262 NUM
"02B3
NSTAS-02B4
NOUES=02B5
"WI<.r~P=028b NwKPD"C2B7 MAR
"02B8
NXMPF"02B9 NXMPS"02BA NSEX ,,02BB NRATE:02BC LYRHR"02BD NCU "02BE
,\iCUDD"02BF ;,CHCK=02CO NAOWH=02Cl NSTCK"02C2 NINS "02C3 NMISC"02C4
NUA ,,02C5
NSTKO"02Cb
11' 1 11 T =02C7
K
=02CIl
•
IOTRT=02C9
I V~AT=02C,\ IFICA=02CB LOCAL"02 CC IUD =02CO IUA =02CE IsTCK=02CF I INS =0200 ICU "'0201 IMISC=02Dl
)
IDEO =02::>3 IPO
"0204
ICN T "02D5
•
STATEMENT ALLOCA T IONS
PHIL =0338 1 ",034A 2 =0353 3 -0365 4 =0308 22 =03E8 23 =03EA
24
"03F8
25
"03FA
21 =0410
5 =0412 b =0420 7 =0433 8 "044b 12
=045E
9
=046E 19 =0477 10 =0499 20 =0400 11 =04EE
•
15 "'0507
16 -0515 17 =0524 18 =0532 13 =0540 14 =054E 50 =0589 99999=05A2 51 "05BB 52
=05BF
55 =05C5 bO "05CO b2 =050F 70 =OHE 71 =Ob12 72 "OblC 75
=Ob27 76 =Ob37 77 =Ob30 78 =Ob43
79 =0649 80 "064F 81 "Ob55 83
=Ob59
90
=0674 103
"Ob02
110 =ObOA 100 "ObEO 105 =06EC 115
=0704
•
120 "'0712 125
=0738 135 =077A 13b =0784 600 =07AF bOl "07BC b02 =0708 603
=07F2
bl0 "07F7
b04 =0812
b05 =0819 60b =0820 607 =0831 b08 =083C bll =0849 b09 "0855 139 =08bb
137 =0874 141 =087A 142 =087F
150 "0894 ~ 43 =08Ao 144
=08B3
160
=OBBC
lb5
=08CO 180 "08FO 185 =090b 230 =092A 235 =0932 240
=0948
•
241 =094C
: 42
"0955
250 =09b9 24b =0960 247 =0971 252 =09A3 253 =09A9 251 =09AF 255
z09B5
2bO
=09SB
2bl =09C2 265 =09CC 270 =0902 275 "09Eb 280 =OA05 282 =OA09 2B5
=OAOF 286 =OA15 290 =OA21 295 -OA25
300 "OA30
301 ~OA43 305 =OA4B 309 "OA51 310 =OA59 320 =OAbS 325 =OA70 330
zOA7F
335
=OA87 340 =OA9C
•
345 "OAA4 350 =OABC 355 =OACA 3bO =OAD9 3b5 =OAEl 36b "OAE8 3b7 =OAEF 3b8 "OAF9
370
:(JBOl
375 =OB12
)
500 "OD1E 515 =009C 380 =OE7A 385 =OE98 510 =OEE7 520
=OF9F 550 =103E
•
FEATURES SUPPJRTEO
O",E <lORO INTEGERS
I
EXTENDED PRECISION
•
IOCS
CALLED SuBPROGRAMS
•
_/HCLE
OATSW
STACK IT EA8S EAOO EAOOX ESUB ESU8x EMPY EMPYX EDIV ELO
ELOX E5TO
ESTOX ESBR EDVR EOVRX IFIX FLOAT
TYPEZ
SREO
SWRT SCOMP SFIO SIOAI SIOFX 510IX 5lOF
5101 SUBSC PAUSE
SNR SUBIN CAROZ PRNTZ SOF 10 SOREO SOWRT SOCOM SOAI SOAF
SOIX SLlF
•
SOl
•
REAL CONSTANTS
.500000000E 01"02Eb .100000000E 03=02E9
.000000000E 00=02EC .800000000E 01=02EF .80000.0000E 03"02F 2
.1bOOOOOOOE 02=02F5 .200000000E 01=02F8 .500000000E 00=02FB • 440000000E-0 1=02FE
.290400000E 05=0301
•
.135000000E 04,,0304 .128000000E 04,,0307 .1 08000000E-Ol =0 30A • 200000000E-0 1"030D .153850000E 04=0310
.961500000E 03=0313
•
INTEGER CONST. HS
1=0316 21=0317
0=0318
50"0319
2=031A 6=0318 25~031C 1111=0310
15=031E 14=031F
100"0320
250=0321 90=0322 200=0323 150=0324 30=0325 3=032b
lb448=0327 9=0328 1000"0329
•
377b=032A 3520"032B 32b4=032C 3008=0320
2752=032E 12=032F 10000"0330 4=0331 10=0332 5"0333
7=0334 11=0335
43b9=033b
250"0337
•
CORE REQUIREMENTS FOR PAY04
CO"'MON 0
VARIAI3LES 742 PROGRAM 3466
•
END OF COMPILATION
\
- -
-
-
91