IBM 1130 User Manual page 338

•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
PAY05 PROGRAM
C----
95 CALL PUTCYIN1.1.7.YTO(1) • 10 •• 5 •• 1)
CALL PUTCVIN2.1.6.VTO(3) • 10 •• 5 •• 1)
CALL MOVECMASK2.1.7,VOUT1.1)
CALL MOVECMASK2.2.7.VOUT2.1)
CALL EDIT C
v
IN1, 1.7 .VOUTh 1. 7l
CALL EOIT(VIN2.1.6.YOUT2.1.6l
101-VTO(2l
102-YTO(8l
Section
35
PAGE 06
PAV05
PAY05
PAVO'
PAVOS
PAVO'
PAV05
PAV05
PAVOS
PAV05
C~-~--
- - - .. - - - .. - - - -
- - - - - - - - - - - - - - - -PAV05
c-----
C----- WRITE FOURTH LINE OF CHECK AND GO BACK FOR ANOTHER EMPLOYEE.
C----
WRITEC3.5004l YOUT1. VOUT2,
~.
102
5004 FORMATC' '.13A1.2I5)
C-----
CALL OATSWC15.IPNT)
GO TO (96.700l.IPNT
96 PAUSE 5
C----
C---- GO BACK.
c-...... ·
100 CONTINUE
PAY05
PAY05
PAY05
PAY05
PAY05
PAV05
PAV05
PAVOS
PAV05
PAVOS
PAV05
PAV05
PAY05
C-----
- - - - - - - - - - - - - - - - - - - - - - - -PAY05
C----
PAV05
C---- WRITE
.1
~V
SPECIAL CHECKS. SIGNAL THIS CONDITION WITH DATA SWITCHPAYO'
C----- ZERO.
C-----
CALL OATSWCO.II
GO TO C850.855).1
850 WRlTECl.25)
REAOC6.26l NRITE
GO TO 870
PAVOS
PAV05
PAV05
PAVO'
PAV05
PAV05
PAV05
C----- - - - - .
- - - - - - - - - - - - - - - - - - - - - -PAVO'
C----
C----- WRITE CONTROL TOTALS
C----
855 ICNT-IeNT - 1
IFCICHCK - ICNT) 800,801.800
800 WRITEC1.100l leNT. lCHCK
100 FORMATC'REGISTER CHECK NO '15'
1NO
'15)
GO TO 802
801 WRlTECl.101l
101 FORMATC'CHECK NUMBERS AGREE')
802 AaTGRS - TA
B-TNET - T8
PAV05
PAV05
PAVO'
PAV05
PAV05
PAV05
DOES NOT AGREE WITH THIS RUN CHECK PAVOS
PAVO'
PAVOS
PAVO'
PAVOS
PAVO'
PAV05
WRITEC1.102) TGRS. THET. TA. TB. A. B
PAV05
'2C3X.F9.0)/ PAV05
102 FORMATC'REGISTER TOTALS'2C3X.F9.01/'CHECK TOTALS
109
Subsections Page
20
I
10
113