IBM 1130 User Manual page 367

Section
35
Subsections Page
20
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
I
10 142
WAITE'l.'?) MPCO. TOTC. fOTO
7 FOAMATe 13.2F12.2)
C·"--
C·---- GO BACK
C"'---
GO TO 1000
C .. _ .... - .. - .. .. .. .. . . . - • - .. - .. - - - - - • C-----
C .. _· .... THE PROGRAM COMES THRU HERE WHEN THE LAST PLANT HAS BEEN
C ...... _- PROCESSED. STOP
C .. _ .... ..
99 CALL £XIT
C ............... - - - - . . . - - .. - - - .. - ...... - - - - .... - .. ..
END
VARIABLE ALLOCATIONS
ICOL .00S4 IWVA .0054
IN5 .0055 IN6 .0055
IOATE.00A9 11'101 .OOBF
N .0125 IPAGE-0126
NSTAS.012F NDUES.0130
NCU .0139 IIICUOO.OUA
IPO .0143
SfATEMENT ALLOCATIONS
1 .016C 2 .0170
100 -OlES 110 -OlEB
160 .02C2 170 .OU3
FEATURES SUPPORTED
ONE WORD INTEGERS
EXTENDED PREC I S I ON
IOCS
CALLED
SUBPROG~AMS
MUNC .0054 LBO -0054
QRTD -006!'
YTO "008F
11'102 *0005 11'103 .00Ee
MPCO "0127 MPLY -0128
NWKMP-Ol31 NWKPO-0132
NCHCK IO O13B
NAOWH*013C
3 -0113 8 .01811
131 -024C
132
-OB2
175 -0383 180
"OUF
LBT -0054 LMC -0054
tOTA -0092 TOTB -0095
11'104 .0101 ISSAN.010A
LINE -0129 INOX .012A
MAR .OU3 NXMPFIOO134
NSTCK-0130 NINS "OUE
5 -0188 4 -0193
133
-0258 134 -025£
185 -03AO 195 -03A4
PAGE 05
PAV09
PAV09
PAV09
PAV09
PAV09
PAr09
-PAV09
PAV09
PAV09
PAV09
PAV09
PAY09
-PAY09
PAV09
11'11
.0055
tOTC -0098
ISUPP"01l7
LST
=0128
NXMPS·0135
NMI SC-013F
6
-OlA6
135 -0264
27!l
~03F~
INZ
TOTO
NAME
LAST
NSEX
NUA
9
136
99
-0055 11'13
.U055 IN4 -0055
"0098
A -009E FICA -OOAl
-0120
NSSAN-0123 IL
-0124
-012C I
-0120 NUM -012t:
*OUb NRATE"0137 LYRHR-013t1
-0140
NST1'(0-0141
INIT -0142
I
-01B7 7 -OlBA 100U &0107
-026A 140 -U26E 15U -0211C
*048U
WHOLE EABS PuT
EADD
SwAT
EAOOX ESUBX EMPY ED I V EI.O ELOX
5101
ESTO ESTOX ESBR EOVR EOVRX
FLOAT wRTVZ sRltO SCOMP SFIO sIoAI SIOFX SIOF
CARDZ PRNTZ ·SDFIO SDRE:O SOAI
SDAF SDI
REAL CONSfANTS
.OOOOOOOOOE 00.0148
.660000000£ 06.015 7
INTEGER CONSTANTS
16448.015" 2.0158
200.0164 50-0165
CORE REQUIREMENTS FOR PAY09
.500000000E 00-0148
O-OHO
30-0167
COMMON 0 VARIABI.ES 328 PROGRAM
82'
END of COMPILATION
.100000000E 03*014E .100000000E 02-0151
.!;OOOOOOOOE oh0154
3*OUE 3776*OUF
40*0168 4*0169
--
-
138
}
I
\