2.0.058_WISAL_Processor_for_Computer_Accounting_Case 2.0.058 WISAL Processor For Computer Accounting Case

2.0.058_WISAL_Processor_for_Computer_Accounting_Case 2.0.058_WISAL_Processor_for_Computer_Accounting_Case

User Manual: 2.0.058_WISAL_Processor_for_Computer_Accounting_Case

Open the PDF directly: View PDF PDF.
Page Count: 148

Download2.0.058_WISAL_Processor_for_Computer_Accounting_Case 2.0.058 WISAL Processor For Computer Accounting Case
Open PDF In BrowserView PDF
-.

\J II V

>-

~~

~-

1620 GENERAL PROGRAM LIBRARY

,~.---=--.---

J

'~"

r

.1

'

~~~.=--~.----~--.

"";

WI SAt Processor for Computer Accounting Case 2. 0.058
.

**,********
fS!M.. **********
**i~**********
*************
* * * * * *-*-* * * * * *
*************
. *************
*************
~, * * * * t * * ~t ~t ~t ~t
I

~

-

~

- -

. -••"..... - , - - -.."" ....'·,I".. ~I'·.. - - - · - - · '

••mIiU\M ~,~oL

.. ' ....

,...0

JIIIQ 'ft)()JO~~H:J'3T II:rru..03
nt~.1~.::~V)~1\,J 3*,t(lt~
.~~;At~'~"';~1J JIi,:::)
~i~f1~' "~ J~*'f.'!J~~~'i;'~:AH

DISCLAIMER

Although each program has been tested by its contributor,
no warranty, express or implied, is made by the contributor
·or any User's Group, as to the accuracy and functioning of
the program and related program material, nor shall the fact
of distribution constitute any such warranty, and no responsibility
is assumed by the contributor or any User's Group, in connection
therewith.
'

o

+,.'

",I;UiW h ItMtt!u4!dtfii"ij'

•

COMMON USERS GROUP PROGRAM REVIEW AND EVALUATION
(fill out in typewriter, ink or pencil)

..
I

"

""'ft'!t4iMIr!er!!!lII'IHM!'ij'H'')1'N']'it'Mltf'lt '

0 ',
I

.~

Program No. _________________

Date_~_-----

Pro9ram Name:_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _- - - - - -

Yes_ _ No

1. Does the abstract adequately describe what the program is and what

it docs?
Conlrnent:.-_ _ _ _ _ _ _- -_ _ _ _ _ _ _ _ _ _ _ _ _ __
()
,: Je

..,

.'.

Does the program do what the aootract says?
Comment

Yes_ _ No

Is the description clear, understandable, and adequate?
C0111nlent

Yes

No

Yes

No

Yes
Yes·

No
.No

11. Are the Operating Instructions understandable and in sufficient detail?

Con1l11ent
Are the Sense Switch options adequately described (if applicable)?
Arc the mnemonic labels' identified or sufficiently understandable?
COlnment
I:,

u.

lO

Does the source program compile satisfactorily (if applicable)?
Comment

6. Does the object program run satisfactorily?

Yes_ _ No
Yes

No_

Yes

No

Yes

No

-

Comnlent

7. Number of test cases run

-

.

Are any restrictions as to data,
size, range, etc. .covered adequately in description?
Comment

" Does the Program meet the minimal standards of COMMON?

L.

C0111ment

l.

t,.,'.

Were all necessary parts of the program received?

COllllnent

-

Yes

No·

i O. Please list on the back any suggestions to improve the usefulness of the program.

These vlill be passed onto the author for his consideration.
Please return to:
Mr. Richard L. Pratt
Data Corporation
7500 Old Xenia Pike
Dayton, Ohio 45432

Your Name
Company
Address
Users Group Code _ _ _ _- _ _ _-

REVIEW ]fORM IS PART OF THE COMMON ORGANIZATION'S PROGRAM REVIEW ANI)
O TILTS
EVALUATION PROCEDURE. NONMEMBERS ARE CORDIALLY INVITED TO PARTICIPATE
IN rrHIS EVALUATION.

11/1/65

~

•

c

•

o

()

,

PROGRAM ABSTRACT
WISAL Processor for Computer Accounting Case
TITLE - ~lISAL Processor for Computer Accounting Case
SUBJECT CLASSIFICATION - Type N, 1620
Craig Mac Kenna

02.0

AUTHOR/ORGANIZATION - Craig MacKenna, University of Wisconsin~
Mihlaukee Computer Center, Users Group Code 3285
DIR::i:CT INQUIRIES TO Richard McCoy, University of Wisconsin, Commerce
Data Processing Center, Madison, Wisconsin 53706. Phone 608-262-3816
DESCRIPTION/PURPOSE A processor for the WISAL language developed
by Mr. McCoy and Mr. Jack Anderson, described in _ Computer Accounting Case - (John Wiley, 1966). WISAL is an accounting language
designed for educational use. This pystem deals with a single preset accounting case, the ~lholesale Paper Company, decks ror which
are included. Input consists of student - prepared programs in the
HISAL language, output being accounting statements.
1>1ETHOD N/A
RESTRICTION/RANGE N/A
SPECIFICATIONS
20 K decimal digits or larger
Requires card reader - punch
1 1311 disk drive
indirect addreSSing

Direct Inquiries To: Richard McCoy
University of Wisconsin
Commerce Data Processing
Center
Madison, Wisconsin 53706

Modifications or revisions to this program, as they occur,
will be announced in the appropriate Catalog of Programs
for IBM Data Processing Systems. When such an announcement occurs, users should order a complete new program
from the Program Information Department.

Software requirement 1620 Monitor I or II
Can utilize 1443 Printer, but not required .."
Problem and Processor 1Hi tten in 1620-1710 SPS II-D
Sample program in HISAL language.

..

TABL~-;;

OF CON"TEUTS

LIST OF SUPPORTING MATERIAL

(Textual material)

vec~;:

LBbe11in;3 Sheet

3

Program :Ir:Li:.eup
Language Speci:::'ication and Definition
~rror ~.iessageB - S-;;uderl"~ Directed
Logging, Error Cut-Off
Punched vs. Printed Output
Tir.1ing
Program Organization and Processing
Organization of the Project
Pre-coding by Instructor
Input and Output Formats
Restrictions, Coding a TIeu Problem.
Halts and ~.Iessages
Error I.Iessages and Hal".:;s - Operator virected
J::::rror ICessages and Halts - Unlilcely
Operating Instructions
.
Loading tile ~:ISAL System to Disl';.
RUt;.nin;3 ~·;ISP.L prograns
Equipment Required, P.ssembler Used
Specifications For Printe::." Panel Board

4
7
8

3
8

Listing Qf source problem
24
Listing of Processor
60
Cross Reference Listing of Processor
113
FloN Charts of Processor
191
Listing of sample program (deck 2)
233
Diagram of 407 iHSAL control board
236
Decks as specified in deck labelling sheet (Decks 3 and 4 optional)

10
11
12,13
13

14
15
16
16

15,17

18

-2-

-1-

(j

tn.,
~ )

(OJ

t

,.

o

o

~

DECK LABELLING SHEET
Deck 1. Problem Object Deck tiThe Wholesale Paper Company. rt
5 Control Records have no sequencing. Subsequent cards
sequenced in columns 76-80, 00001 to 00226.
Deck 2. Processor Object Deck. 4 Monitor Control Records have
no sequencing. Subsequent cards sequenced in cols. 76-80,
00001 to 00284.

PROGRAM WRITE-UP
NAME:

WISAL Processor for Computer Accounting Case

DATE:

6/12/66

PROGRAMMER:

Deck S. Sample Program (correct solution)
2 Control Records have no sequencing
Subsequent cards sequenced in cols. 76-80,
00001 to 00096.
- Deck 4. Complete Sample Solution.
OPTIONA L DECKS:
Deck 1. Problem Source Deck (OPTIONAL MATERIAL)
5 Control Records have no sequencing.
Source cards sequenced in cols. 1-5,
DOOlO to 08340.
Deck 2. Processor Source Deck (OPTIONAL MATERIAL)
4- • Control records have no sequencing
Source cards sequenced in cols. 1-5,
00010 to 14280.
Optional material will be sent when specifically requested.

Craig MacKenna
University of Wisconsin-Milwaukee Computing Center
3203 N. Downer Avenue
Milwaukee, vliscnnsin 53210
4l4-228-4Ll-26
Users Group Code 3285

DESCRIPTION: The WISAL educational accounting 1anggage is described by Mr. R. W. McCoy and Mr. Jack Anderson in "Computer
Accounting Case" (John Wiley, 1966). This book is primarily a
student text to be used in accounting courses utilizing WISAL.
Also available from the same authors and publisher is an Instructor's Manual (title unknown at the time of this writing),
which presents the information necessary to the accounting instructor for presentation and use of the WISAL language. Both
these publications reference the problem included in this 1620
system. The emphasis is this writeup will accordingly be on information necessary to the computing installation at which the
instructor has arranged for the running of the student programs.
I.

Language specification and definition

The langUage which the processor is able to compile is as
described in the student publication. The program is divided
into a number of routines, each corresponding to a type of transaction encountered in the accounting case. Each transaction in
the case is then assigned to a particular routine for processing
in a reference section.
An attempt at a formal definition of WISAL in Backus notation
follows:

-4- 3-

•

•

(rout in':;)



<.l~OlJ~··~..

<:tolXCL18 part>

:: =

(Ja;iel) :: =

<~-lOl!-~)}_D~:·~:.~:>«;:.rr:'~1)0]

"<8~:·~-.1;J.Ql> : ::.-.=

< ~nO')T~Y\e
_

\ ...... _ .. .I.

p~"~-"

.':=
••

CI._ ""'/

 ::

=)

The main purpose of the formal definition, however, 'vas to
illustrate the greater flexibility of the 1620 processor. The
above is a definition or the language as is the student manual.
The 1620 Processor ''li~l also compile under the follov.ring modifications:

"/';'~11'''''',<'''c''1+e''lce'<-~'-;11er> J

, ..... ..:...._

erlpt;;,rl

1·T01'ci.> ::=

>

J <:lS:1-~)J.[l·J.:~:"

1":ln~·J.··~

 :::=
<;:0;)"

f ()yo::,rc,:',:>

'-'-I.. / '



·

....

•

"-.L

/'

-

-- __ _

~~:liC;1.~') ..:-t[!,L1S [,0

2~T ;roI'd>

(simple amount>: :=(1nnemonic>(amfill>Al,jT IAHT(amfillXamt.· no.>IAMT
(amfill>(mnemonic>

I (:;;-,jeci:> 1  : :=e:r.J.ptykstring which contains no key>

J <8Y:·liJ81::-

(key>

 :: ==

J ::::::';:;:;-:,]:1'
 f (CUS1')



<:::;Llpl~ 2,::,01}Xl-C> ,

 :: == 
aI.'101..mt>

(amt • n~ • >

:: =

(string l-'lhich contains no key> is again left undefined.
may vTrite for accounts:

J !'I-7r

:!

=

I

.JI;]C;

ar:~ount>

AMT OF THE DISCOUNT
(VOUCHER AMT MINUS ANT ill)

I f~,:;T(aT.1t. nc.>

and so forth. This should be brought to the attention of the instructor, as he nay find the extended language more natural to
teach.

I -{I0U8~I

II.

·~:·~l::'_le:t·ic>·<~·:~~t::e:"ic)· :: =

c; I 1 I

2

Error

Mes~ages

- Student Directed

Messages to the student are as explained in the student text,
l'lith the folloHing additions:

(opern'col'> ::==:. J -

 :: '" <:;':,:C:~'L'iC!>

Thus, vle

«COl;l;) L1C»)

:: = ~. 1 2 I 3

<~Jne~:l():'liC!> :: = .:~\;~:=
(ctCCQtr.1t)

:=J (operator>, (l)

 ::= +l-Il?LUsIMINUS

 .::== D::=;:CIT

(sirJ.r>le

!

<0i.)jectXJ.~iller)<[:;::10uTi:;>

 ::=

J f, 1D I .... r z I-x- I .: I.::: 1/ I • I ~ I :) J
cl(')h

0-2-8 .on CARD, REPLAC3D BY BLANK
The student should not have to i:lorry about this.
a keypunching error creating a record marlc.

I ... t :

It indicates

PREVIOUS ROUTINE }JOT COMPLETED
 I ~_e(.: . vc to tl~c i.;!~_H:.:::~~_t~8,t~sn
O~~ t:le J...·eatle:!.··" <;:tl"'i::~-;> an.c:. (Le;y ~·.ro1"(:> ~-.~8.--;!in~ LC~c;(l rJc:C'i:"l'2Cl...
1.102.""e restl"e.irlt2 c::"e ~)1...rt O~ -~lle ::::/"l1tCS:, 0:-:-- course, tile j_c. ~)U-~ ~)e'i~1G
col1.11':m-dep8:'lde::t £LY.1 Jc~'lZ:  i')Cil;,.~j requlre;l to:1C 0',112 0": t'!lOGC
senel~al lCclS8::' c.cCQtlnt n1.r]~]eY.'G cte:inc:.l j_r.l t~le pr·o;Jl.e~.l, t") l~l~-_:e
bu~t

The last sentence, on the card preceding that for which this
message vTaS produced (l'lhich has a label in columns 8-11), vlaS not
correctly ended.

LABEL DUPLICATES PREVIOUS LABEL

-:1']"0.

The label in colUlnns 8-11 of the card for which this message
1'laS produced is identical to a previous label.

-:5-

~

~ .. ~

\ )

rl
';;..

,;

t

•

o

o

()

~

TRANSACTION CODED TIlICE, NO nnn
Either A) Two XREF cards (see INPUT) for the same transaction are present, or B) the student has attempted to code a
transaction which the instructor has pre-coded.
The instructor should be advised of the existence and
meaning of these additional student-directed messages.
III.

Logging, Error Cut-off

In a previous presentation by the author (of the program),
much was made of the logging capabilities of the HISAL system,
providing feedback to the instructor of a detailed record of
his students' progress. This has been eliminated in this version,
being replaced by merely 2 lines on the console typewriter for
each student run, of the follovJ"ing form:
(First line) A copy of the TITLE card, the first card of a student's
program •.
(Second line) One of the follovling t"J"o forms:
ERROR CUT-OFF--nnn LANGUAGE ERRORS, nn REFERENCE ERRORS ~r) BALANCE
SHEET ERROR, xx.xx-, LANGUAGE ERRORS nnn, REFERENCE ERRORS nnn
A distinction is made betv.Teen errors in the form of instructions (LANGUAGE ERRORS) and errors in the application of instructions to particular transactions (REFERENCE ERRORS).
The instructor may specify upper limits for each of these
claSSifications, such that if any student's total errors in either
category exceeds the upper limit fb r that category, the du~pm;
phaeefor that student is eliminated. This feature COUl
e
especially convenient in installations not having a printer, where
the punching of 275 cards of output fora student 1'1hose cards i'lere
reversed in the reader might not be relished. The fields in which
these upper limits are punched are found in columns 11-13 and 14-16
of the first card of the processor object deck proper, sequence
nlli~ber 00001.
These upper limits are 10 language errors and 15
reference errors and 15 reference errors vrhen the program is obtained
from the library. These fields, if changed, should of course have
their high-order flags punched.

The typed log from each run should be given to the instructor.

N.

Punched vs. Printed output.

If the installation using WISAL has a 1443 Printer attached
to the 1620, they 1'1il1 probably wish to use it for output, in
i'lhich case a flagged 1 should be placed in column 9 of the first
card of the processor object deck proper, sequence 00001 of deck
1. Othenlise the punched output should be printed on a 407 or
similar device , "lith a special board. A wiring diagram for a 407
rUSAL board is included in this material.
V.

Timing

The time requir ed to load the WISAL processor and problem
from disk storage is considerable, making the system more attractive for batch runs than individual runs, and neceSSitating that
timing be given in terms of the actual processing time for one
student's program.
To process a single student's program on a 1620 Model II with
a 250 CPM reader and a 240 LPM printer, the time ran about 30
seconds in the case of an error cut-off, and slightly under 2 minutes
in the case of a full output.
On a Hodel II ~'lith an 800 CPM reader and 240 LPM printer, both
timings "lere about 10 seconds less.
VI

Program Organization and Processing

The HISAL Processor is stored on disk in Monitor reloadable
format, and has several transfers of control (l1executes") during
the process of loading into core storage. During these, sections
of the problem and processor are llJ'Titten out to the Monitor cylinders.
The minimum v10rk cylinder size, 10 cylinders, is more than sufficient to contain these overlays.

-'7-

-8-

•

The phases of the Processor are described belm'l!

VII.

PHASE Al Reads the problem, l',hich is stored in core image format,
trom the disk and writes it back out to the "fOrk cylinders in
sections, relocating addresses in the problem so that each problem
section may reside as high in core storage as its length dictates.
Any person desiring to "l'rrite a nel', problem is warned that his problem should not be much more lengthy than is the standard problem,·
or core overlap ,'lith PHASE Al will result.

Organization of the Project.

Decisions as to use of WISAL and time spent on the project
are of course up to the accounting instructor and CQ:lputing installat 1. on , but the follol'ring schedule is offered as a guide.
A. Before the sixth "reek before the end of the term. the
students should have obtained and read the student text, "Com_
puter Accounting Case" (John vli1ey, 1966). The sixth week bef'ore
the end of the term is then a good time for the students to write
their programs on the forms provided in the text, and sub~t
them.

INTERPHASES. During these transfers of control, phases of the
processor are written out into the work cylinders.

B. In the fifth week before the end of the term, the program
can be keypunched and the initial run made at the installation.
Keypunching instructions can be found in the subsequent section, INPUT. See also the section OPERATING INSTRUCTIONS. On card system,
the programs and output are then listed on a 407 or similar device.

OUTPUT ROUTINE. Either the card of' printer output routine is selected
and \'/'rl tten out to disk storage for subsequent use, based on the
"printer sl'litch digit" previously mentioned.
PHASE B. This phase reads the program, produces diagnostics it
approprlate, and compiles the instructions into code interpretable
by Phase C.

C. The program and output listings are then returned to the
students, who make corrections and resubmit. This procedure continues until the correct solution is obtained by each student. The
correct ~olution is presented in the student text, in terms of' the
correct figures for each accourrt,-rDr the balance sheet total, etc.
The program to obtain this solution is presented in the instructor's
manual, and also in deck 2 of this 1620 system.

PHASE C. This phase reads the reference section, produces diagnostics
if appropriate, and executes the code from Phase B interpretively to
update the total debits and total credits of general ledger and
accounts receivable sUbledger accounts. In Phase C the decision is
then made l'J"hether to continue on to Phase Dl for a full printout, or
to return to Phase B or to Monitor due to excessive errors.

Due to class scheduling or other reasons, the instructor
might specifY that only a certain number of resubmissions are to be
made or none at all. The starting date for the project could then
be set later.

PHASE DI. Produces the general ledger and accounts receivable subledger as output.
PHASE D2. Derives and produces the income statement and balance
sheet, and returns to Phase B or to Monitor.

-9-10-

e

{-~,

( -'\
'"

I

~

"

o

VIII.

o

n

-'

Depending on the level of advancement of his students
and the degree of difficulty of problem he desires, the instructor may choose to pre-code some of the transactions in
the accounting case. Instructions for so doing are found in
the instructor1s manual.
If he desires pre coding, the instructor will provide
the computing installation with a program in the WISAL language.
This is key-punched just as if it were a student program (see
a subsequent section), except that the word TITLE on the first
card is replaced by ADMIN. Several copies of this deck should
then be made, and ~ WISAL run of student programs should have
this deck inserted-oehrna-th~EQ WISAL card and before the
first student's TITLE card.

The student manuals contain an ample
coding forms, and also a section in which
section where individual transactions are
for processing. The installation and the
option of

supply or WISAL
to code the reference
assigned to routines
instructor have the

1) Letting the accounting students themselves
keypunching

40

the

2) Using student workers to do the punChing

3) Using professional keypunch operators
It is suspected that almost all groups contemplating WISALw1l1
quickly reject the first possibility •. In either or the other
cases, the program coding forms are self-explanatory:
Columns 1-7

Page and line numbers

Columns 8-11 Label of routine (left-justified)
Co1umns12-72 Instructions
Columns73-80 Identification, sequencing, or blank
The student has also written on his coding sheets, either
as the first or last line, his name, section, and other information.
This should be keypunched ~ the ~ card. with the word. TITLE
in columns 1-5.

-11-

~

~

INPUT

Pre-coding by instructor.

•

The sheets constituting the reference section have, associated
with each transaction, 4 boxes in which to enter a label or a routine
to handle that transaction. The number of transactions on a page
varies from 3 toJ2. Follo\,T the follmling rules in punching the cards
in the reference section:

-12-

1)

One page is punched into

~

card

2) The letters 'XREF' are to be punched in columns 1-4
of all cards in the reference section
3) The number of the first transaction on the page is
to be punched ~ncolumns 9-~ight justified

HALTS AND MESSAGES

4) The label that the student has associated \'li th the
first transaction on the page is to be punched in columns 12-15~
that associated i'lith the second in 16-19~ and so on through
successive quadruples of columns until the last label I'rritten
on the page is punched. Should a student leave the 4 boxes for
some transaction blank due to precoding of transactions by the
instructor~ the related four columns on the card should be left
blank. Labels here~ as in the progr~~~ should be left-justified.

In addition to the student-directed diagnostics, messages
to the operator may be typed, as follot-IS:
I.

Operator Directed Messages.
ENTER 4-DIGIT DDf NO. OF PROBLEM

In the case when more than one problem is derined under the
vlISAL processor by a flagged one in column 10 or the rirst sequenced card of the processor deck, the operator should here type a
4-digit DIM number as instructed by the student or instructor.
This message will not occur in the program as received rrom the
library. On Release and Start, operation continues.

5) Again~ columns 73-80 may be used for identification or
sequencing.
OUTPUT
On a system with an on-line printer~ the entire program
and reference section are automatically listed as they are
read~ with diagnostics appearing interspersed in the listing.
On a card system, only input cards in error are repunched,
followed by the diagnostic.

TITLE OR Am-UN CARD MUST BEGIN INPUT
CORRECT, START
The first card following the ~EQ WISAL must bear the letters
ADMIN or TITLE in columns 1-5. A halt occurs. The operator may
correct the card, replace the deck in the card reader with the corrected card first, and press START.

On any system, if the errors discovered do not exceed the
upper limits (see a previous section), a full output is then produced~ consisting OI~ a general ledger, accounts receivable subledger, income sta tement ~ and balance sheet for the lfholesale
Paper Company for the period. Tais amounts to 5 pages of listed
output~ or about 275 cards on a card system.

A TITLE CARD HAS BEEN FOUND IN THE SOURCE PROGRAM
ml 2 OFF TO CONTINUE AND IGNORE, ON TO ACCEPr.
The operator should examine the input deck, including the last
fe ;! cards read. There lIrill be a card bearing the \'lord TITLE or ADMIN
in columns 1-5. If the cards preceding the offending card have the
same identification (columns 73-80) as those follmling it, he may
Simply START. Othen'lise, he should. turn si'litch 2 ON and start. It'
the student, instructor, or some other person ,lith a knotTledge of
UISAL is present, he should be consulted.

On a card system, the output must be listed on a 407 or
similar machine, uith a special panel board. Specifications for
the board, and a diagram ot its \'Tiring for a 407~ are included
here'-lith.

T

RESTRlcTImrs The. use of ~HSAL as submitted is clearly restricted to the single problem, The I'Jholesale Paper Company
Anyone desiring to code a nel" problem must do so in SPS in a
form acceptable to the HISAL processor. Detailed instructions
for coding a problem can be found as comments in the source
listing of the problem included here'-lith.

TITLE CARD MISSING
The operator should examine the input deck, including the last
few cards read. One or more cards have been read with the letters
XREF in columns 1-4. Following these is the last card read. This
card may be one of three types:

-13-

-14-

(j

('

()

--

•

o

o

()

•

•

OPERATING INSTRUCTIONS
1) A card \lith TITLE or ADBIN in COlUl'llIlS 1-5 misspelled.
Also of this type is any card bearing a student's name, section
number, etc., but tdth TITLE entirely missing.

2)

A card Hith XREF misspelled in columns

3)

Some stray card

l_L~

In the case of 3), the operator may just START. In the case
of 1 or 2, the operator should correct the card, place it before
the remainder of the input in the card reader, and START.
II.

Unlikely messages

None of these should occur in the operation of the program
and problem as received from the library. Nost deal "l'Tith the
creation of a ne"l'l problem.
vJISAL VS. PROBLEl'-! FIELD LENGTH NON-HATCH
The length of a field must be the same in the processor and
problem. The processor and problem come from the library i'li th both
7. This calls for a change to the source deck, and re-assembly of,
either the processor or the new problem.
CORE OVERLAP, PROBLEM HITH vlISAL PRll.SE. •
Some section of the neVT problem must be shortened. See the listings of phase Al of the processor, and of the standard problem.
STUDENT PRO GRAN EXCEEDS CORE CAPACITY AT THIS POINT
STUDENT PROGRAM TERNnrATED, JOB TEmm~ATED

I.

Loading the UISAL System to Disk.

Before running deck 0 (the standard problem) to load the
problem on disk, a cold start should have been done to bring
Bonitor into coye. Also, it ,should be determined that DIM
number 361 is available (or 361 should be made available).
Decl,- 0 begins ~-d,th a JOB card. On the first time run,
the *DELET !.'ISPRB card ~'rill produce a DUP*ERROR 20. Thi::; may
be started, and ignored, llith impunity, as may the similar
condition resulting from the *DELET \HSAL in deck 1.
p,t the start of deck 1 thre are message records inquiring
vrhether the problem did indeed load to DIM number 361, and a
;i;iPAUS record. This should be started if the problem did load
as 361-

Deck 2 is the sal'llple (correct) program in the UISAL lalloauage.
This should be run according to the follmring instruction f'or
an individual run with no precoding.
Before running DECK 1, the first sequenced card therein may
be modified as previously described according to the presence of'
ao on-line printer and the choice of the instructor as to error
eut-o:rr point.
II.

Running

~HSAL

pro[Srarns.

It s:-,ouJ. d be dc-ccI'L'l:Lned fl·oE the instructor bei'ore any processit1[S of student prograns uhether running is to be done on an
individual basis o:~ a batched basis, und Hhether precodinG is to
be done or not. These decisions determine four distinct n.odes of'
operation.

This message vlOuld be punched or printed, and a sudden END OF
JOB vTould occur, with cards still remaining to be processed.
Hith the standard problem, if the input is examined, it should
be found that the programs of severa} students i'rere run together
under the same title card. This should be corrected and the run again
performed.
BAD OUTPUT CODE TIT I. S., B. S. LABELS
One of the codes used by the peTson i'lriting a neu problem in
the income statement 01" balance sheet is unlmovm to the processor.
See the listings of phase D2 and tl:.e standard problem.

-]-5-

-16-

!

r

The processor uses the last-card indicator to determine
the end of its input. Thus, at no time should a last-card
condition be allol'Ted to occurexcep't'aT the end of input.
Also, other Nonitor jobs should not be staclced behind a lHSAL
run, except for an individual rurl17ith no precoding.
The use of console
table:
BATCHIm?

s~'li

tch 1 is summarized in the following
PRECODING?

Can utilize l4Lf3 printer, but this is not required

S11 1 - SETTING

No

No

OFF

No

Yes

ON

Yes

No

ON

Yes

Yes

ON

SOFTHARE REQUIREl.fENT:

Moni tor I or I I

ASSEMBLER USED
IBM 1620-1710 SPS II-D as provided with MONITOR I, VERSION 2.

The deck representing liTISAL input should be preceded by
;i;iJOB 5

;i;l'AEQ vTISAL
control records. The printer should be readied if present on-line,
the punch other~·rise. Aside from the previously mentioned error
messages and halts, operation should be straight forward.
The only other factor important in the operation of the program
is the insel'tion of the ADNIN deck if precoding is being done by the
instructor. This is described in a preceding section, PRECODING BY
INSTRUCTOR.
E!l,UIPl·ENT REQUIRi<:D
IBH 1620 Ibdel I 0:::' II
1 1311 Disk Drive
20,000 positions of core storage or more
Card reader-punch
Indirect addressing
No other special fea.tures.

,

-18-

~I

-.LI-

~

()

( )

"

•

o

n

o

•

I
UISAL WARD SPECIFICATI0NS
F¢R UIUT-REC¢RD PRINTER
{No board

1.

2.

dia~ram

has been included in this i'friteup}

On == (3-8 punches) in column 1, restore to new page after
printing
----On

*

{11-4-8 punches) in column 80, restore to nei'l page

~

printing

3.

If alter si'li tch 1 is off, transfer print columns 2-80 in
print positions 20-99

4.

If alter switch 1 is on,

A.

Transfer print columns 2-80 in print positions 20-99 if * (11-4-8) in column 1 or 80.

B.

On any other card, split as follows:

CARD C0LS.
1

5

-...

PRINT P0S.

4

1

-

4

10 - 44
48 - 58

39

40 - 50

51 - 59

61 - 69
73 - 82
86 - 96

60 - 69

70 - 80

(Pages 19 - 23 omitted by author)

-18A-

SYMBOL TABLE
TUBLE 18965
ARlSl
HEDDR
Ll
Lllt
Ll9
L23
L28
L32
L37
L41
L46
L50
L55
L6
L64

o

t>

Tl

no]

n08
Tl12
Tl17
Tl21
Tl3
TlB

122·03

rn.

T27

01
T3(:l

T40
T45
T5

T54
T59

T63
T6P

L

Lil

R
TL..

flO ..
Tl09

TIl3
TllB

18826

L20
L25
L3

13529

1..34

13767
13929
14165
14383
14629
14821
12257

139

00021

S
flOO

L43
L48
L52
L57
L61
L8

17106
18628

Tl05
Til
Tl14
TlI-9
Ti23

18709

00007
12423
12725
12859
131'31
12011
13589
13803
13973
14211
14425
14611
14871

L62

14925

123'l7
00021

L9

1851,1
1864()

TiOl
n06
TllO
Tll5
Ti2
Tl24
Tl6
T20
T25
T3

12343
16552
18580
18652
18121
le188
17147
18931
17219
17261
17310
16972

SPI:C

17123
18769

T41
T46
T'5C
T';')
T6
T64

T65

1797A

T6b

T6q

lRO~l

T7

no

Itll24

T74

T75

18155

18220
18292
18369
1841 ,
1848 (
16559
15070

T79

17051
U:!136
18244

P:!

18316
19381

TB4

1847Q
18504

TQ3
T98

17070
18333
1839,3
18441

19592

Yl

Tl22
T14

TiY
T23
T2fl
T3~

T3 7

T81

18196
18280

T86

1835.7

T90
T95
WPC

18 .. 05
18470

T9t>

V3

11682

Tqt

x
Y4

19767

Llb

Tl5

HEDDSA 19604
Gl TOT 15201
LDSA 19b81

OATEP

18757
18845
18900
17188
17255
17377
17418
17485
17512
17630
17707
17160
17832
17032
17966

T7J
T78
Ttl2
T13 l

TU

19833
lONMl 09244
12497
112
Ll7
12749
12891J
l21
L26
13201
l30
13413
l35
l3631
l4
12111
14009
l44
L49
14279
14411
l53
l58
14733

12381
12649
12043
13059
13361

L7

150N
15215
16941
1A616
18676
18745

HEODSB 19654

ARTOT 16559

ISLBI 0492 7

l2~

14345
14551

I TABLE 08910

LI0
Ll5
L2
L24
1..33
l38
L42
l47
L51
l56
L60

14095

18888
11111
17243
17303
17399
17468
11548
17618
17695
17008
17820
17892
17954
18014
18091

T22

LTABL E 11688
ARNMI 10595

10975
19600
12011
12609
12825
13007
13293
13497
13703
13'851

18864

18919

Ll3
Ll8
L22
L27
L31
[.36
L40
L45
L5
L54
L59
L63

12535
12809
12939
13253
13453

Tl02

186(}4
18664

14055
12157
14503
14775
14991
MONTH 19899
rusws 15070
Tl01

Tlll
TIl6
Ti7

18133
18807
16816
18943
17231

T21

17286

T26

17387
17449
17536
169H4
17678
17743
178D8
17875
17935
18002
1fl074
18172
18261

Ti20
Tl25

T29
T33

1 n07
16960
17351
1743"
17502

T34

17~19

T38

17589

T39

17b06

T4

T42
T47

1764 7
17719
17177

17666
l7731

T44
T49

17844
17911

T43
T48
T52
H7
T61

T2

T24

T51
T56

Tf::>O

T83
T88
T92
T97
X5
Y5

no

f35

T53

17796
17856

T58
T62
T67
T71
T76
T80
T85
T9

17923
17990
18055

TB9

13685
13829

T94

18345
17089

111')23

T99

18453
18542

04926

Y2

09236

1693Fl

o
SVMAOLIC

00010 •••
00020 L
00030 S
00040 R
00050··.

OS

PRO~LEM

PAqA~cT~KS

,7,

LENGTH JF A WISAL FI~LQ
LENGTH OF A GE~ERAL LEDGE~ I~ ~LOCK 4
OS
LEN 1I THO FAG E~ ERA L LED CI: R I 'J BL () CK 2
os
END OF HEADER SECTORS

aU.GO 7 00000

00Q21 000::>:>

...

0.0060 •••••••••• It . . . . . . . . . . It "

00021 00000

.. , . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

00070·

BLOCK 1 -- 1.5.

O'J080.

A~~

B.S. LA6ELS, VECTOR TAHLes

00090·
00100··~··".·.·.·.·········.·······*············~····· ••••••••••••••••••••

00110 VI

OS

OODO

00140
00150
00160

ISLf\!

ADJUST TJ MAKE xr; LESS THAN

00180

00190

OAC

~ETu~~S

10, (JI SCOUOJTSC;, ,
<:;,20

2., 6"

1,26

00230

DAC
DC
OAt:

00240

DC:

'::,34

00250
00260

DAC
DC

(1)2'70

DAC

!1,FR[IGHT-I~2"

00280

DC
DAC

2,16

00220

o

0.)290
0'J30()

00310

~UST

BE

EVE~

"THE DC AFTEK EACH LAB~L
.. EQUAL S Hil C[ THE: "JO.
ANU ALLOWA~CES2" JF :OLU~NS UESIkED +~J~

DAC

a492~

ao:)o::>

19,COST OF GOGDS SOLDO"
2u,HE~(~NI~G

I~VE~TURY2"

04n7 00:>12
0493~

00002

04941 00)58

"

THE 2ND S 1 ~ -SALI:S- ON

')499~

:)0)J2

"
"
"

THE OUTPUT PI\Gt: TO THe:

C)50J1

oon::>

~IGHT

05021 000')2

00200

00210

HE)OR~

0492~

O~C

DC
OAC
DC
DAC
UC

00170

,4926,
YI

00120

E~D

O~

Trl!: LABEL.

(FOR CAqO puSITla~I~G
i>URPUS[Sl.

O~023

~5::)2=)

"

:):):)::>4

05027 00002
00::>3 8

05067 000:)2

"T~t

LAST

C~A~ACT~R

JF

,)~06=}

0004')

"

l<\CH OAC I ~ A CllOt

05109 00.»)2

10,PURCHASES2, ,

"

~~P~tSENT1N~

:)5111 00020

2,14

"

PART I CULM. AC TION
TO 8E TAKtN

t7,LcSS

RtTU~NS

2,28
11, ALlOWA.>oICE S 1, ,

A~DO"

"
"
"

,,0

THE

051 H

:)0002

05133 00022

05155 00002

05157 1)0034
:)5191 1)0002
~EANS

OUTPUT

rHE

05193 )0:)22

00320
00340

DC
DAC
DC

2.38

00350

DAC

14,C05T OF ~OOD50"

00160

2,32

00370

DC
DAC

00380

DC

003c}0

OAC

00400

DC

00410

00330

2,22

00430
00440

DC

00450

DAC

00460

DC

2, 0"
2,00

00470

DAC

13,GROSS

00480

2,]0

00580

DC
DAC
DC
DAC
DC
DAC
DC
DAC
DC
DAC
DC

00490
00500
00510
n0520
00530
00540
00550
00560
00570

17,ENDING INVENTORY9"
2,28

19,COST OF GOODS SOLD8"
2,42

2,22

15,SALES SALARIESl"
2,24

12,ADVERTISING1"
2,18

9,DElIVERYl"
2,12

10, EOIl I pr·iENTl, ,

00620

DC

2,20

00630

Dlle

00640

DC

00650

DAC

I5,STORE SUPPLIESl"
2,24
10, I NSURANCEl, ,

00660
00680

DC
DAC
DC

006c}0

DAC

00700
00710

DC
DAC

00720

DC

2,22

00130

OAC

16.0FFICE SALARIESl"

00740

DC

2,26

00750

OAC

1H,OFFICERS SALARIESl"

00760

DC

2,30

00770

OAC

14,PAYROLL TAXESl"
2.22
5,RENTl"

00820

05327 00002
0532~

00034

05363 00002
05365 00038
05403 00002
05405 00004

,,

DAe

DC
DAC
DC

05317 0001:>

17,SELLING EXPENSESO"

00610

00810

05315 00002

2, 0"
2,00

2,36

00800

05285 00002
05287 00028

05411 00:>26

21,DEPRECIATION - STORED"

DC

05257 00028

"
"
"
.,

PROFIT~"

DC

OAC

.

05255 00002

054:J~

DAC

00780

MEANS ADD THE GENERAL
•• LEDGER FINAL BALANCE
" PRESENTLY REFERENCED
" IN THE VECTOR TABLE
,. TO BLOCK 2 TO THE
" COLUMN 1 TOTAL (THERE
" ARE 4 COLUMNS)., AND
t. ADVANCE THE POINTER
" I N THE VEe TOR TABLE
" TO THE NEXT TOTAL.
" ALSJ DISPLAY GLFB COLI

,,2 MEANS ADD G.L.F.B.

00590

00790

05215 00002
05217 00038

"

,

00600

00670

LABEL ONLY

~,1

14,AVAILABLE FORO"
2,34
5,SALE7"
2,L6

DAC
DC
DAe

00420

It

19,PURCHAse DISCOUNTS4"

?,14

14,MISCELLANEOUS4"
2,22

2, 0"
2,1)0

17.GENERAL EXPENSESO,.

2,04

16,OFFICE SUPPLIESl"
2.26

TO THE COLUMN 2
TOTAL, ADVANCE THE
POI 'HER
ALSO DISPLAY GLFA COL 2

·

05443 00002
05419 00:102
05481 00030
05511 00002
05513 00324
05537 00002
0553~

00018

05557 00002
05559 00042
05601 oo:)n
05603 0002:>
05623 00002

05625 00:>30

,

05655 00002

,,5 MEANS

DISPl~Y RGLFB
I N COL 2, ADD RGLFB
TO ~OL 2 TUTAL, DISPLAY
COL 2 TOTAL IN COL 3
ADD COL 2 TOTAL TO
COL 3 TOTAL, RESET e2T,
AND ADVANCE:

"
"
"
"
"
"

05437 00002
054B 00004
05445 00034

,,3 MEANS ADD TO COLUMN
., 3 TOTAL, ADVANCE
" ALSO DISPLAY IN COL 3
,,4 MEANS DISPLAY REfEREN~E
" 0 FINAL BALANCE COL 1,
" ADD TO COL 1 TOTAL,
" DISPLAY COL 1 TOTAL
" IN COL 2, AOD COL 1
" TOTAL TO COL 2 TOTAL
" THEN RESET COL 1 TOTAL
" TO ZERO, ADVANCE

"

00002

05657 DOn)

05677 OOOO?
056B 00028

057:>7 oO:Jn
05709 00004
05713 00002
05715 00034

,",

05749 00002

,,6 MEANS DISPLAY COL 3
,. TOTAL IN COL 3
" WITH $ IN RIGHT OF C2

05783 00002

05751 00:>32

,,

05785 00036
05821 00002
05823 00028
05851 00002

"

.,7 MEANS DISPLAY e21

05853 00010

"

0')863 00002

,,
••

IN C2

05865 00032
05897 00002

00830

OAC

22,OEPRECIATION - OFFICEO"

,,8 MEANS DISP C2f IN C3,

05899 00:)44

00840

2,38

"
"
"

05943 00002

00870

DC
DAC
DC
DAC

00880

DC

00890

DAC

00900

DC

00910

DAC
DC
DAC

00850
00860

00920
OOc}30

10, EQU IPMENTl"
2,20

10,UTILlTIES1, ,
2,14

·

C3T
C3T + C2T
C2T = 0
ADVANCE

:>5945

:>002~

05965 00002
05967 00020

,

,,9 MEANS DISP RGLFB IN

05987 00002

10,INSURANCE1"
2,14

t, C2, SUBTRACT RGlFB

0598g 00020

"

0600g 00002

10,BAD DEBTSl"

, t

FROM C2T

i,

06011 0002:>

I

2,14

20,REPAIRS ON BUILDINGl"

"

" l MEANS DISP CONTENTS

06031 00002
06033 0004:>

1..7

00Q40

DAC

20.0EPRECIATION - BLOGl ••

00960

DC
OAC
DC
DAC

2,34

DC
DAC

2.22

00geo
009QQ
01000
01010
01020

DC
DAC

06075 00040
061~5

"

"v

15,PROPERTY TAXES1,.
2,24
14,MISCELLANEOUS4,.
2.

06073 OOOO:?

•• OF STOR1 FIELD IN
C1. ADO TO CIT

2,34

00950
00970

o

DC.

It

00002

MEANS OISP CONTENTS
OF STOR2 FIELD IN

06117 00030

Cl. ADD TO Clf

06149 00028

06141 00002
06177 00002

,.

8.,

06119 00004
06183 00002

2.00

2l.NET OPERATING INCOME6"

,.X

DC
DAC

2.46

It

DC
DAC

2,38

DC
DAC

2,,26

DC
DAC

2.28

DC
OA':

?')O

DC
DAe

2.26

".THE FOL(OW!NG :ODES
CAl)SE THE: ASS(]CIATE;D

06319 00002

DC
DAC
DC
DAC

.2 '(,)0

,t MESSAbE: TO fib PLACED
IN THE OUTPUT AREA,
HUT ~O CARD Tn BE
~~CESSARILY PUNCHED.

06365 00002

DC
,)AC

2,00

06391 00002

~.

06399 OOOO't

2.00

01230

DC
DAC

01240

DC

l.20

01030
01040
01050
01060
01070
01080
01090
01100
01110
01120
01130
01140
011 "i0

o l160
01170
01180
01190
01200
01210
01220

25.0THER INCOME AND EXPENSEO ••
Lo.

06185 00042
06227 00002

IN Cl.
,t CIT = CIT + STOR3

06229 00050
06279 00002
06281 00032

INCOMt2,.

I~TlREq

.,~,V.U

11.I~Tt:;qt:ST

It

11. NET

t.
INClJ~t6

06313 00002

DISPLAY

06315 00:>34
06349 00002
06351 0'0004
06355 00002
06351 00022

..

M"

2.00
2. 0 ••

M~AN

STORI. STORZ STOR3
RESPECTIVELY IN C2t
ADD SAMt TO C2T

EXPE.\jSE5 ..

2. () ••

2.

MEANS DISPLAY STnR3

BEGIN AAL SHEET

0"

••

CAUSE C3T TO 6E
LOAnED INTO STORl,
STClR,2. STOR"3

T.S.~

1,ASSETSO, ,

06381 00004
06387 00004
06391 00002
06393 00004

06403 00002
06405 00014
06419 00002

2'
012'i0
01260
01270
01280
01290
01300
01310

DC
OAC
DC
DAC

2, 0.,

It

l~.CURR~NT

2,08
2, I)"

..

7,00

11,CASH IN

RA~K?"

01370

DAC

20,INTERtST RECEIVABLE2"

013HO

DC
DAC

2.22

DC
DAC

2,22

DC
DAC
DC
DAC

01340
01350

01390
01400
01410
01420
01430
01440
01450

06421 00034
06425 00002

,.U,P,l CAUSE C2T TO

ASSET~O.,

01360

01330

RESPECTIVELY

2,00

DC
DAe
DC
DAC
DC

01320

B~

LOADED INTO STORt,
STOR2. STOR3
RtSPECTIVELY

"N

06451 00002
06459 00004
06463

ooon

06465 00026
06491 00002

L,08

i1,PETTY CASH2,.
2,04
11,NOTES R(CEIVA~LEl"

06427 00033

CAUS~S

:;4 T

CIT, e2T, :3T,

TO dE

lE:RO~O

06493 00022
06515 00302
06511 00034

,.

2.16

06551 00002

.,M CAu$tS A TITLE CA~O
COpy ANO THE HtADER

06553 00:>4)
06595 00343

10,LESS ALLOWANCE FORO ••

LINES FJR THE BALANCE
., SHEt T TO Ht PLJ"lCHED
AND THE TOTALS TO BE

~,26

••

20,ACCOUNTS RECEIVABlEl"

I tRJED

06635 00002
06637 OOOja
06675

ooon

06677 OOOl!)

lO,BAD 06BTS4"
2 .18

22.MERCHANDISE

06593 00002

INVENT1~Y2

••

•• L CAIIS(S A TI TLI: CARD
COpy TO HE PlJ~CHED.
AND THE TOTALS lEROED

06691 00302
06699 0034 t t
06743 00002

01460

DC

2.2.6

01470

OAC
DC

15.STORfc SlJPPL ItS2.,

06145 30033

12
Ib,UPFILl

06115

01480

:~.

015CO

DAC
DC

2. l't

01'510

PAC

18.P~cPAIO

01520

DC
DAC

20,,"!,f:t>AI~)

DC
OAC

2.22
14.NflTES PAVAhlE?"

01490

o

DAC
DC
DAC

81530
01540
01550

ooon

06711 00332

SUPPLI~S2,.

06809 00002
I~SURANCt2

••

.,*~UTPUT

conES MAY BE

ADDEO TU THe SlT

7.18

INTEREST £INO"

"

BY

ADDING
~DDRESSES TO THE DSA
TABLE I~ THt WISAL
~IMPLY

061:111 00:>36
061341 00002
06849 00040
09889 ooon
06891 00028

.•.

01560
01570
01580
01590
01600
01610
01620
01630

01640
01650
01660
01670
01680
01690
01700
01710
01720
01730
01740
01750
01760
01770
01780
0179U
01ROO
01810
Ol"!?!)

01830
01A40
01850
01860

01870
01880
01890
01900
01910
01920
01930
01940
01950
01960
01970
0190
01990
02COO
02010

02020
02030
02040
02050
02060
02010
02080
02090

"lUO
U:' 11,")

02120
02130
02140
021'>0
02160
02170

DC
DAC
DC
DAC
DC
DAC
DC
OAC
DC
DAC
DC
DAC
DC
DAC
DC
DAC
DC
DAC
DC
DAC
DC
DAC
DC
OAC
DC
DAe
DC
OAC
DC
OAC
DC

OAe
DC
OAC
DC
OAC
DC
OAC
DC
OAC
DC
OAC
DC
OAC
OC
OAC
DC
OAC
DC
OAC
DC
DAe
DC
OAC
DC
OAC
DC
DAC
DC
OAC
DC
DAC

2,16
2, 0"
2,00

21,TOTAl CURRENT ASSETS8"
2,34
2, 0"

"

OUTPUT PHASE 02
ADDING THE ROUTINES
'f
YOU WANT, AND THEN
" USING THE CODES AS
., THE LAST CHARACTER

06919 00002

ff

06921 00004

"

06971 00004

,,

2,00

OF A LABEL

28,PROPERTY, PLANT + EQUIPMENTO",
2,34
,t
2, 0"
2,00

16,STORE EQUIPMENTl"
2,14

17,lESS ACCUMULATEDO"
L3,DEPRECIATION4"
2, 0"
2,00

06m5 00002
06977 00056
07033 00002

"
"

07041 00032

"

17,OFFICE EQUIPMENT1"
2,16
17,LESS ACCUMULAT~Du"
2,22
13,DEPRECIATIUN4"

06969 00002

07035 00004

.

2,~6

06925 00002
06927 00042

,,

"
"
"
,"

2,L2

--

-.----.--.----.-.-.-.-----..---.--.-.~---." ... ,.--".'~'.......................................

"

07039 00002
07073 00002
07075 00034
07109 00002
07111 00026
07137 00002
07139 00004
07143 00002
07145 00034
07179 00002
07181 00034

07215 00002
01217 00026

2,26

07243 00002

2, 0"

01745 00004

2,00

"

9,BUILDING1"

"

2,00

07249 00002
07251 00018
07269 00002

11,LESS ACCUMULATEOO"

07271 00034

2,22

01305 00002

L3,OEPRECIATION4"
2,26

07307 00026

"

2, 0"
2,00

"
", ,

5,LAN02"
2,~8

'2,

07333 00002
07335 00004
0733::1 00002

07341 OOOD
073'>1 00002
07353 ()0004

0"

2,00

25,TOTAL

01351 00002
P~OP,

PLNT + EQUIP8"

07359 00050

2,42
2, 0"

2,00

07409 00002

"

01411 ooa04

01415 00002

13,TOTAL ASSETS6"

074-17 00026

2,32

0744300002

2, J"
2,00

07445 00004

2, R"

01449 00002

"BEGIN LIABILITIES

2,00

07451 0000401455 00002

2, L"

01457 00004

2,00

07461 00002
07463 00004-

2, 0"

2,00

01467 000;)2

24,LIABILITIES AND CAPITALO,.

07469 00048

2,46

07517 00002
07519 00004-

2, 0"

2,00

20.CURRENT LIABILITIESO.,

,",

07523 00002
07525 00040

2, HI

07')65 00002

14,NOTES PAYABLE2"
2,10
17,INTEREST PAYABLE2"

07561 00026
07595 00002

"

07597 00034

"

.....~.---

1h!r\

fH"

*9rl*&"*",,,

OtItHIlW!!&"U P

Il!wl"!

¥(\YIJ!"UppUI"!!tH"fj!f,"!fl!I"!Ultf·

flHiIIj"""juM!litj!WFf!!l"'U'''N'MSf!l

•

c

DC.

2,16

02190

DAC

17,ACCOUNTS PAYABLE2"

02200

DC

2,16

02210

DAC

29,EMPLOVEES INCOME TAX PAVABLE2"

0'669 00058

02220

::lC

2,40

07721 00002

02230

DAC

23.F.I.C.A. TAXES PAYABLE2 ••

02240

DC

:'.28

02250

DAC

25,STATE

lJNE~~PLOYMENT

"
"

.'

07633 00034,
01661 00002

07129 0001t6
01715

ooon

07771 00050

TAXESO"

07821 00002

2,32

02?60

01829 00016

8,PAYAHLE2 ••

02270

OAC

02280

DC

2,04

01845 00002

02290

DAC

27, FEDERAL U'IIEMPLOVMI::H TAXESO""

071:147 00054

02300

DC

2,36

07901 00J02

.,

I:I.PAVABLE2"

07903 00016

0231Q

OAC

02320

DC

2.04

CJ7919 00:)02

02330

OAe

20,5ALES TAXES PAVABLE2,.

07921 00040

02340

DC

2,22

07961 00:)02

02350

PAC

17.SALARIES PAVAHLE2"

07963 00J34

02360

DC

01999 00062

08061

02370

OAC

2.16
31,CSTIMATtD INCOME TAXES PAYABLE2,.

J2380
,)~ 390

DC

2.44

OAC

l3,DR~PEKTV

DC

2.~!l

'''''·(')0
02410

OAC

0242u

DC

2. Q"
2,00

07991 00002

ooon

Otl063 00046

TAXES °AVARLE2"

Otl109
"

.OO)O~

Olllli 00004
0!:l1l5 00002

CU~RfNT

(le1l7

LIAdILITIES7.,

o.oo~~

02430

OAG

26,TOTAL

02440

DC

2,44

02450
02460

DAC
DC

2,01)

08175 0000<'

02470

OAC

20,LONG-TERM LIASILITVO,.

01)177 00040

02480

DC

2,18

Ob217 OOOO?

02490

17,MORTGAG~

2,16

02510

OAC
DC
OAC

02520

DC

2,00

02500

O!:l169 00:)02

o!:I 1 71

2. 0"

00004

08219 00034

PAYABLE?.,

Od253 00:)02

2, 0"

"

00255 00004
Qtl259 00002

lJ,T{)TAL L1AfHIITIES8 ..
2.ZH

Oi>24

02780

DC

2.36

OH789 00002

02190

DAt

02710

on50

STOCK4""

08,)11 00062

OAC
!;:o

o

07631 00002

02180

08671 00002

08679 00004

2, 0.,

08683 OOOO?

2.00

OtJ685 00014

2. 0,.
n.NET

2, 0"

OH689 00002
INCOME FOR

MO~;THZ

08691 00042

••

"

087Ql 00014

- - - - - - - ----------------------,.__.._._---_._-'....... .. "'...,.,..
,

DC
DAC
DC
DAC
DC
DAC
DC
DAC
DC
DAC
DC

02ROO
02810
02820
02830
02840
02R50
02860
02870
02880
02e"}')
029CO

,,

2,00

08195 00002

2,00

"K MEANS ADD STOR3 TO C3T,
END WISAL PHASE 02
" IF ZERO, OTHERWISE
" DISPLAV C3T IN

2, 0"
2,00

"
"

I4,TOTAL CAPtTAL8"
2,20

2, 0"

,-~"-.-.-~-~

08197 00028
08825 00002
08827 00004
08831 00002
08833 00004

• VOU GOOFED. ~. •

MESSAGE AND THEN OUT.
3a,TOTAL LIABILITIES AND CAPITAL6"GOING OUT INCLUDES
" ZEROING CIT, C2T, C3T
2, K"
" AND C4T.

08831 00002

2,00

08905 00002

,,

08839 00060
08899 00002
08901 00004

END OF LABELS

02910····

02920················································· ••••••••••••••••••••
02930·

THE FOLLOWING VECTOR TABLE REFfRS THE ENTRIES
IN THE PREVIDUS LIST WHICH HAVE THE NOTATION
-ADVANCE- TO PARTICULA~ GENERAL LEDGER
FINAL BALANCES IN BLOCK 4
.T~L SYMBOL P WILL HAVE TO BE DEFINED AS GLTOT+2.L

02940·
02950·
02960·
02910.
)~~

*

•

*
••••••••••••• * ••••••••••••••••••••••••••••••••••••••••••••••••• * •••••

10 I TABLE DSA

08910 00005 15950
08915 00005

1~911

08920 00005 15992

08925 00005 16552
Ob930 00005 16013
08935 00005 16034
08940 00005 16055
08945 00005 16076

NOTE THAT IF VOl) WISH TO REFER TO ANV BEGINNING

BALANCES, THEV MUST BE DEFINED SEPARATELV IN BLOCK 4

0'}040·
03050*

08950 00005 15341

03060

08955 00005 16091
08960 00005 16118
08965 00005 16139
08970

OOOO~

16160

08975 00005 16181
08980 00005 16202
08985 00005 16223
03070

DSA

08990

OOOO~

16244

08995 00005 16265
09000 00005 16286
09005 00005 16307
09010 00005 16328
09015 00005 16349
09020 00005 16370
09025 00005 [6391
DSA

0903a ooa05 16412

09035 00005 16433
09040 00005 16454
09045 00005 16475
09050 00005 16496
09055 00005 16517
09060 00005 16538
03090

DSA

09065 00005 15215
09070 00005 15236
0~015

00005

152~7

09080 00005 15218
09085 00005 15299
09090 00005 15320

...,-----.-.

:1'''.

,d

k&+w ...,*W HLHLHt! '.'!!'Hf

# "!\M,]

111-4'"

IJ.b' W"PD'!"" I, WV 'H

f

!WI

09095 00005 15341
09100 00005 15362
OY105 00005 15383
Og110 00005 15404
OY115

DS4

03100

00~05

15425

09120 00005 15446
09125 00005 15461
09130 00005 15488
09135 00005 15509
09140 00005 15530
09145 00005 15551
09150 00005 15572

DSA

03110

09155 OQ005 15,93
09160 00005 15614
OY165 00005 15635
09170 00005 15656
09175 00005 15671
09180 00005 15698
09185 00005 15119
09190 00005 15740
09195 00005 15161

OSA

03120

09200 00005 15782
09205 00005 15803
0<:)210 00005 15824
09215 00005 15845
09220 00005 15866
09225 00005 15887
09230 00005 15908

DC

03130

5,

I"

sa THAT WiSAL CAN rELL THE ~ND OF rH~ rARLE
WHEN RELOCATING
ACCT 311' -- PROFI' + LOSS 5UMMhRY,

I

03140.
031,0·

DC(S NOT ENTER INTO
END OF tiLOCK I

OH60.
03170*· ••

~ITHER

BALANCE SHEET OR

ALeCK

2 --

03210*
03220'

')OOO~i

~T.

** ....

03IS0················································· ••
031g0'
03200'

INCO~E

0'123'

h.K.

LA~ELS

G.L.
A.R.

~EG

*.....••.•.•.•••••

BALA~CtS, COMREcr TDT DAS+CRS.
tiALS, CORKtCT rOT DBS AND CRS

~~GI~~ING

03230'

03240.·*·······.*······.*···.,··.·.·.··*·*.···········.** •.....•..• ~ ...•.•
03250·
v't.

OAe
DS

LCNMI

OVLC

,L,1')764.10+"

,LdU~08'100+r31

,L,lU'}3'lQO+Z7

03'3l0

DVl C

, l. ,2501"0

, L ,0

,L , tl

0'n65 00021

03320

DVLC

,L,12000*10

,L,D1961

,L,<:)001

09286 00021

03260

03210
03?!lQ'
032<:)0.

onoo

O~2

31 00002

on36
G.L.

~U~F:'{IC

00000

C[lNSTI\~TS

09244 00021

')3330'

eEl; HAL

J~\4()'fORMAT

'3

"

CUI:~EC T
TOTAL DRS

CORRt::cr

TorllL CRS

j~"O·

d

70

, HiO

•

DVLC
v';Le

.L,~?8

,l,468

,L,Y58

OY301 00021

,L,4L12'LOO+d

,L,5Q606'10+5

,L,71804'10+2

09328 00021

,L,~u763

,L,10000

09349 00021

,Ld~698.100+28

09310 00021

: 1<:;0

DVlC

,L,-26292

03400

OVlC

,L,3569A'100+2R ,L,

03410

OVI-C

,L,l':lOOO

,L,11501)

,L, 1 ';>000

1)')3C)1 00021

OH?O

OVLC

,L,9000

,L,4500

,L,9000

09412 00021

03430

OVlC

,Ld12QO·I0

,L,l2650

,L.652'l

09433 00021

03441}

DVLC

,L,O

,L,3533

,L,2001

09454 00021

03450

OVL~

,l,16()OO'lO

,l,';>67':iO·10

,L,21670·10

03460

nVLC

,L,-<:1000*11)

,L,176.10·10

,L,9261

~2.368'100+53

09475 00021

09496

')0021

37

- - - - .. -.....,---"'--".--,." .. -- ....,-".-.........

- ..

--~~

..

-.~

-

•.. ....- ....

~.-."

.....-.... .

03470

OVLC

,L,23000*10·,

,L,75000

,L,O

09517 00021

03480

DVLC

,L,-60000

,L,O

,L,1916

09538 00021

03490

OVLC

,L,42600*100

,L,O

,L,O

09559 00021

03500

DVLC

,L,-27658*100

,L,O

,L,O

09580 00021

03510

OVLC

,L,50000*10

,L,O

,L,O

09601 00021

03520

DVLC

,L,-t4000*lO

,L,14000*10

,L,30000*10

09622 00021

03'53~

DVlC

,L,-773

,L,713

,L,433

09643 00021

,03540

DVLC

,L,-28049*10

,L,11833*100+S7 ,L,14411*100+47

03550

DVLC

,L,-26300

,L,Q

,L,O

09685 00021

03560

DVLC

,L,-9450

,L,O

,L,O

09706 00021

03570

DVLC

,L,-15435

,L,Q

,L,O

09727 00021

03580

DVLC

,L,-2205

,L,O

,L,O

09748 00021

03590

DVLC

,L,19509

09769 00021

DVLC

.L,-61'518
,L,O

,L,C

03600
/)3610

,L,O

,L,17500

0979::1 0:)021

DVLC

,L,O

,L,O

,L,O

09811 00021

096b4 00021

03620

DVLC

.L,O

,L,O

,L ,0

09832 00021

~~630

DVLC

,L,-l2000*100

,L,O

,1,0

on53 00021

:;.,640
:", >·650

DVLC

,L,-lOOOO*lOO

,L,O

,L,O

09874 00021

DVLC

,L,-JOOOO*lOO

,L,O

,L ,0

09895 00021

. C :"60
03670

DVLC

,L,-22000*10

,L,O

,L,O

09916 00021

DVLC

,L,-11983*100-76,L,0

,L,O

03680

DVLC

,L,O

,L,3569S*100+28 ,L,32368*100+53

09958 00021

09937 00021

036t;0

DVLC

,L,O

,L,O

,L,15714*100+93

09979 00021

03700

DVLC

,L,Q

,L,22554

,L,O

10000 00021

03710

DVLC

,L,O

,L,9427

,L,O

10021 00021

03720

,L,O

,L,59326*lO+7

,L,O

10042 00021

03730

• DVLC
DVLC

,L,50601

,L,O

10063 00021

03740

DVLC

,L,O

,L,'39500

10084 00021

03750

DVL::

,L,O

,L,O

,L,4560

10105 00021

03760

DVLC

,L,O

,L,12333

,L,O

10126 00021

03770

DVLC

,L,O

,L,21500

,L,O

10147 00021

OH80

DVLC

,L ,0

,Ltl0320

,L,O

10168 00021

03790

DVLC

,L,O

,L,9262

,L,O

10189 00:>21

03800

OVLC

,L ,0

,L,24705

;L,l1500

10210 00021

03810

DVLC

,L,O

,L,4340

,l.,O

10231 00021

03820

DVLC

,L,D

,L,O

10252 00021

03A30

DVLC

,L,O

,L,6577
,L,51r,7

03840

DVLC

,L,O

,L,O

,L,O
,L,O

10294 00021

03850

DVLC

,L,O

,L,O

, L, 0

10315 00021

03860

DVLC

,t,O

,L"OOOO

,L,O

10336 00021

03870

DVLC

,L,O

OVLC

,L,O

,L,9500
,L,O

10357 00021

03880

.L,l7600
,l,l916

03890

DIILC

,L,£0560

,L,O

10399 00021

,L,2180

,L,O

10420 00021

,L,50000

,L,O

10441 00021
10462 00021

10273 00021

10378 00021

OHeo

DVLC

03no

DVLC

,L,O
,L,O
,L,O

03920

DVLC

,L,ll

,L,J

,L,O

03930

DVLC

,L,O

,L,O

,L,O

10483 00021

03940

OVLC

,L,O

,L,O

,L,O

10504 00021

03950

DVLC

,L,O

,L,2004

,L,O

10525 00021

03960

DVLC

,L,O

,L,958

,L,1618

10546 00021

DVLC

,L,O

,L,3833

,L,2306

10567 00021

,L,20400

,L,28360

,L,20400

10595 00021

,Ltl8615

,L,50235

,Ltl8615

10616 00:>21

03970
03980*

TRAILER

03990
'14000 ARNMl

DC
,DVLC

14010

DVLC

10588 00007

L, '

.'120

DVLC

,L.31500

,L,60398

,L,91898

10637 00021

'14'.;30

DVLC

,L,25200

,L,31479

,L,56679

10658 00021

.,' :'40

DVLC

,L,13352

,L,O

,L,13352

10679 00021

AOSO

DVLC

,L,35700

,L,51971

,L,35700

10700 00021

04060

DVLC

,L, 53300

,L,87220

,L,14052*10

lU721 00021

04070

DVLC

,L,O

,L,37367

,L,O

10742 00021

04080

DVIC

, L, 19000

,L,21420

,L,40420

lU 763 00021

tr

....... * u+tfbb'LTlJLjll:ii44"tu.l.t++dWJ..i4"

'+iwu!hi"'O'

91¥tW""Nf"'!'or'UE

04090

OVLC

,\,.,0

,L,91tJO

.L,O

10184 00021

04100

DI/LC

,1.,20800

,L.O

.L,20800

10805 00021

04110

OVLC

,L,20253

,L,23715

,1..,439f16

10826 00021

04120

OVLC

,L,40300

,L,71910

,L, llZ21-10

10841 00021

04130

OVLC

,\",1002')

.L,D

,L,10025

10868 00021

04140

PVLC

,L,O

,L t36110

,L,O

1088~

041';0

!)VLC

,L,50000

,L,O

,\,.,50000

1091:1 00021

04160

OVlC

,1..,0

.L,86100

.L,4692

10931 00021

04170

OVLC

,\",58763

,L,O

,L,58163

10952 00021

04180..

Don 1

TRALILER

04190

DC

L,'

10973 00007

04200·
A.R. LABELS

04210····
04220*
04230 ARLBI

OAC

16, 10

ACME CO."

10CH5 00032

04240

OAC

L9, 70

S. R. BRUWN"

11007 0003H

04250

OAC

21, 30

COS WELL CORP."

04260

QA:

21, 40

DR,\KE-ELM CO."

11087 00042

04270

DAC

20, 50

FRANK ELKINS"

11129 0004:1

04280

OAC

20, 60

H. b. fISHI::R"

11169 00040

04290

DAC

18, 10

HARRIS GO."

11209 00036

04300

OAe

19, AO

B.

04310

OAC

20, ')0

KING + ALAKE"

11283 D004!)

04320

DAC

21,100

WII..L1AM LEEDS"

11323 00042

04330

DAC

2L,110

MCCLAIN CORP •••

11365 00042

04140

DAC

11:1,120

MILLER CO."

11407 00036

04350

OAC

20,130

04360

OAC

18,140

JAMES PllST"

04310

OAC

22,150

HAROLD f{OBERTS"

04380

OAC

19,160

B.

SCU r r "

11563 00038

043<10

DAC

1 '-1,170

Lt:W I STERR V"

11601 00038

"

11245 00038

D. HOWE."

.NORTON,

N.

11443 00040

INC."

"

GEORGI: WALLACE"
OAe
044CO
a.180
"
"4410* ••••••••• ~ ••••••••••• ~ •• ··.·.·*·········~·*····· ••••••••••••••••••••
RtCCK. 3 -- GENt:RAl LfL)r,cR LABUS,

11045 00042

11483 00036
1151 CJ 0004(t

11639 00041t

VEe TORS INTO BLOCK .3

VEcrORS REFER TO THE FUURTH CHARACTER TO SPEED
COMPILING LOOKUP

04h ,J

DAC

I,'"

11683 00002

045GO Yl

I)S

,·-1

11682 0000')

L1+6,L/+6,Ll+6,L4+6,L5+6,L6+6,L7+6,LS+6,L9+6,LI0+6

11688

04510 LTAnLL DSA

:1000~

12017

11693 00005 12049
1169~

00005 12077

ll703 00005 12117
I11J8 00005 17.163
L1713 00005 12209
1171A 00005 12263
lL723 COG05 12313
1172H 00005

1234~

11733 00005 12387
04520

OSA

Lll+6~LI2+6,L13+b,L14+6,LI5+6,LI6+6.LI7+b,LI9+h,LL9+6,L20+6

11738 00005 12429
ll743 00005 12503
11748 00005 12541
11753

o

OO~05

12615

11758 00005 126S5
11763 00005 12731
11168 00005

121~5

11173 00005 12815
11778 00005 12831
11783 00005 12865

LJI

.i "" .4w

c

± t±s&l&t:ifH

WMILliHW'hntlll!lHHbW4J,!ll!.II'hMhtl.!t,

II

hi

'w

\8

04760
04770
04780
04790
04800
04810
04820
04830

IIhY

HJL!

'bh'I1WW.t.l4MHW

lI8
Lt9
l20
l2I
l22
l23
l24
l25

OAC
OAC
OAC
oAC
oAC
OAC
OAC
DAC

8tl311LANO t t

12809 00016

17,2111NOTES PAYABLE"
20,211ZINTEREST PAYABLE"

"
"

?O,2113ACCOUNTS PAYABLE"
INCOME TAXES PAYABLE"
"
26,2115F.I.C.A. TAXES PAYABLE"
36,21165TATE UNEMPLOYMENT TAXeS PAYABLE" "
38,2117FEO~RAL UNEMPLOYMENT TAXES PAYABLE",
23,2118SALES TAXES PAYABLE"
20,2119SALARIES PAYABLE"
34,2120ESTIMATEO INCUME TAXES PAYABLt"
"
26,21Z1PROPI.,KTY TAXES PAYABLE"
~4,2114EMPLOYEES

04840 l26

OAC

04850 L27
04860 L28
04870 L29

OAC
oAC
OAC

04880 L30
04890 L31

20,2211MORTGA~E

04900 L32
04'HO L33

OAC
OAC
OAC
DAC

04920 L34
'4'l~0 L35

OAC
OAC

21,3114RETAINlD EARNINGS"

.0 l36
:14950 L37

OAC
OAt
OAC
OAC
OAC

9,4111SALES"
32,4112SALES RETURNS AND ALLOWANCES"
18,4113SALfS [)IS([)UNT"

04960 l38
0 .. 970 L39

04980
04990
05000
05010
05020
05030
05040
05050
05060

l40
L41
L42
L43
L44
L45
1.,46
L47
L48

OAC
OAC
[)AC
OAC
OAC
OAC
OAC
DAC

"

PAYABLE"
22,3111PREFERREO 6( STO:K"

"

lo,3112COMMON STOCK"
30,3113PREMIUM ON PREFERRED STOCK"
27,3115PROFIT AND LOSS

SUM~AR~"

"

D007 00052
13059 00072
13131 00076
13207 00046
13253 00~40
13293 00068
13361 00052
13413 00~40
13453 00044
13497 00032
13529 00060
1358~ 00042
13631 00054
1:;3685 00018
137')3 00~64
13767 00036

13,51I1PURCHASES"
14,5112FREIGHT-IN"
36,5113PURCHA~ES RErUMNS AND ALLOWANCES"
22,5114PURCHAS~S DISCUUNT"

"

13803 00026
13829 00028
13857 00072
13929 00044

1~,6111SALES

"

13973 0003f>

"

14009
14055
14095
14165
14217

S4LhRIES"
23,6112ADVERTISING EXPENSE"
20,61t3DELIVERY EXPENSE"
35,6114DEPRECIATION OF STORE ~QUIPM[~T"
26,6115STORE 3UPPLIES EXPENSE"
31,6116INSURANCf EXPENSE -

GE~ERAL"

"
"

12825 00034
12859 00040
12899 00040
129~9 00068

"

00046
OOOitO

oooro
00052
00062

o

10

05070 L49
05080
05090
·05100
05110
05120
05130
05140
05150

OAC
DAr.
OAC
DAC
OAC

~3,6117MISCELLA~EOUS

SELLING EXPENse"
SALARIES"
21,7112oFFICERS SALARIES"
:?3,7113P4YRULl TAX EXPENSE"

L50
L51
L52.
L53
L54
L55
L56
l57

DAr.

27,711~nFFICl

DAC
OAC
CAe

05160 L58
05L70 L59

36,71160EPRECIATIUN uF OFFICE EQUIP~ENT"
21,7117UTll1IIES EXPENSE"
31,7118INSURANCt EXPtNSE - Gl~ERAL"
?1,.,119BAO lJU:lTS EXPENSE"

OAC

05180
05190
05200
05210
052910
05920
05930
05940
05950
05960
05970
05980
OS990

OVlC
OVLC
DVLC
DVLC
DVlC
DVLC
DVLC
DVLC
DVLC
OVLC
DVLC
DVLC
DVLC
DVLC
DVLC
DVLC
DVLC
DVLC
DVLC
DVLC
DVLC
DVLC
DVLC
DVLC
DVLC
DVLC
DVLC
DVlC
DVLC
OVLC
DVLC

15215 00000

,L,O

,L,O

,L,O
,L,O

,L,O
.L,O
,L,O

,L,O
,L,O
,L,O
,L,O

,L,O
,L,O
,L,O
,L.,O
,L,O
,L,O
,L,O
,L,O
,L,O

,L,O

,L,C
,L,O
,L,O
,L,O
,L,O
,L,O

15222 00021

,L,O

15369 00021

,LtO
,LtO
,L,O
,L,O
tL,O
tL,O
,L,O

15390 00021
15411 00021
15432 00021
15453 00021
15474 00021
15495 00021
15516 00021

,L,O

15537 00021

,L,O
,L,O
,L,O
,L,O

15558 00021

,L, a

15642 00021

15579 00021
15600 00021

,L,O
,L,O
,L,O

tL,O

15663 00021

,L,O

,L,O

15684 00021

,L,O
,L,O

,L,O

15705 00021

,L ,0

15726 00021

,L,O

,L,O
,L,O
,L,O
,L.O

15810 00021

,L .0

15831 00021

',l,O

,L,O
,L,O
,L,O

15621 00021

15747 00021
15768 00021
15789 00021

,L ,0

15852 00021

,l,O

,L.O
.L,O
,L,O

.L,O
,L,O..

15B94 00021

,L,O

15873 00021

,L,O

" L, a

.L ,0

15915 00021

,L,O

,L,O

.L.O

15936 00021

,L,O
,L,O
,L,O
,L,O

• L, 0

.L ,0

15957 00021

,L,O

15978 00021

,L,O

.L,O
,L.O
,L,O

,1,.,0

,L,O

,L.O

16041 00021

.L,O
,l,O
,L,O
,L.O

,L,O

,L,O
,L,O

16062 00021

,L .0

16104 00021

,L,O

16125 00021

,L,O
,L,O
,l,O
,L,O

16146 00021

,L, a

16230 00021

,L,O
,L,O
,L,O

16251 00021

,L,O

16314 00021

, l,O
,l,O

,l,O

16335 00021

,L,O

16356 00021

,L,O
,L,O

,L,O

16377 00021

,L,O

16398 00021

,L,O

,L,O

16419 00321

,L,O

,L,O

16440 00021

,L,O

,L,O

16461 00021

,L,O

,L.O

16482 00021

.L,O

,L,O

.l,O

,l,O

,L,O
,L,O
,L,O
,L,O

,L,O

, l.,O
,l,O
,L,O

,L,O

,L,O

,l. ,0

,L.O

,L,O

,L,O
,L,O

,L,O

,L,O

.l.O
,L,O
,L.O
.L,O
,L.O

.L,O
,L,O
,L,O
,L,O

15999 00021
16020 00021

16083 00021

16167 00021
16188 00021
16209 00021

16272 00021
16293 00021

47

!lU!

"t

't#kb'#fJ#hW"

\

.'J","'

h

06000

DVLC

,L,O

,l,O

16503 00021

06010

DVLC

,L ,0

,L, a

16524 00021

06020..

c

*

TPAILER

06030

DC

L, '

06040 SPEC

DC

L,3569828,

16545 00007
BEGIN~ING

~AL

ACCT 1117

16552 00007

06050 ARTOT

DVLC

,L,O

,L,O

,L,O

06060

DVLC

,L,O

,l,O

,L .0

16580 00021

06070

DVLC

,L,O

,L,O

,l,O

16601 00021

06080

DVLC

,L,O

,L,O

,L,O

16622 00021

0('090

DVLC

,L,O

,L,O

,L ,0

16643 00021

06100

DVLC

,L,O

,l,O

,L,O

16664 00021

06110

DVLC

, L, 0

,L,O

,L ,0

16685 00021

16706 00021

16559 00021

06120

DVLC

, L, 0

,L,O

,L,O

06130

DVLC

, L, I)

,L,O

,L ,0

16727 00021

06140

DVLC

, L, 0

,l,O

,L,8

16148 00021

06150

DVLC

,L,O

,L,O

,L,O

16769 00021

06160

DVLC

,L,O

,L,O

,L,O

16790 00021

06170

OVLC

,L,O

,L,O

,L,O

16Hll 00021

06180

DVLC

,1,.,0

,L,u

,L,O

16832 00021

06190

D\lLC

,L,O

,L,O

,L,O

16853 00021

06200

DVLC

,L,O

,L,O

,L, J

16874 00021

06210

DVLC

.L,O

,L,O

,L ,a

1&895 00021

06220

D\lLC

,L,O

,L,O

,L ,0

16916 00021

06230··
06240

fRAILER

L,'

DC

06250···

16937 00007

END Or G.L., A.R. UPDATABLE TOTALS

06260 •••••••••••• ••• •••••••••••••••••••••••• *****.**.* •••••••••••••••• *~ ••
06270*
06280.

TRANSACTIONS aLOCK

06290·
063CO····.·*···**·············· •••••••• *** •••••••••••• ••••••••••••••••••••

c'
06310

DAC

1, , , ,

06320 Y5

DS

,·-1

16938 00000

06330

OS

,ARTor

16559 00000

,06340 T1

DVLC

,7,2 ,3,121

,L,9HOO

06350 T2

DVLC

,2.1 ,3,001

,L,50000
,L,50000

.l,200

16941 00019
16960 00012

06360 T3

DVLC

,;,1 ,3.100

0('370 T4

DVLC

,2,-2,3,120,5,X+03*S,L,24696

,l,504

16984 00024

,L,806'

17008 00::>24

16CJ72 00012

06380 T5

DVLC

,?,-2,),170,5,X+12*S,L,39494

06390 T6

DVLC

,2,2 .3,120

,1.,,19600

,L ,400

17032 00019

06400 T7

DVLC

,2,2 ,3,120

,L,24500

,L,500

1 (051 00019

,L,21560

,L,440

06410 Te

DVLC

,2.,2

06420 T9

DVLC

,2,-I,'3,OOO,5,x

06430 TlO

DVLC

,2,-L,3,000,5,X+07*S,L,37367

06440 Tli

DVLC

,2,-2,3,120,~,Xt08.S,L,1~620

,L,380

06450 H2

[)VLs'

,2,-2,3,120,5,X+'''.5,L,522)4

,1,,lf)6"

06460 Tl3

DVLC

,2,-1,3,lOO,C;,X+OS*S,L.35700

11171 00017
17lfl800019

, '3,120

Tl4

OVLC

.2,2 ,3,002

06480 Tl5

DVLC

,2,1

06490 Tl6

DVtc

064-10

10

16939 00002

,3,1')0

,L,21'l360

1707':) 00319
17089 00017
17106 00017

,L,10000.10

17123 00024
17147 00024

,L,14750*LO

1(207 00012

,2,1 ,3.001

,L,3620

172)9 00012
17231 00012

06500 T17

OVLC

,2,1 ,3,100

,L,3620

06510 Tl8

DVLC

t

2,1 ,3, 00 1

,L,R7640

17?43 00012

06520 Tt9

OVLC

,2,1 ,3,001

,L,69580

17255 00012

06530 T20

DVLC

,2,7 ,3,120

,L,4900

06540 T21

DVL~

,2,-l,3.000,5,X+03·S,L,31479

17267 00019
1"1286 00017

06550 T22

DVL4

,2,-2,3,120.5.X+10·S,l,20~84

,L,416

1 no] 00024

06560 T23

DVLC

.2,-2,3,120,S,X+02*S,l.30870

,L,~'30

17327 00024

,l,2.32791110+3

17351 00019

06570 T24

DVLC

.2.2 ,3.200

06580 T25

OVlC

,2,-1,3,100,5,X+13*S,l,10025

17370 00017

06590 T26

OVLC

,2,1 ,3,001

17387 00012

,L,4503
.L,25960

06600 T27

DVLC

,2,2 ,3,002

,L,1')OO

06610 T28

DVlC

,2,1 ,3,100

.L,lD100*LO

.l,l')100'l10

17399 (l0019
11418 00:>12

11

..
066.20 T29

OVlC

,2,2 .3,120

,l,lOO

17430 00019

06630 T30

OVlC

,2,2 ,3,120

,L,75

17449 00019

06640 T31

DVlC

.2,-1,3.000,S,X+1S*S.l,SOOOO

06650 T32

OVlC
DVLC

,2,-l,3,000.S,X+OZ*S,L,60398

17485 00017

,2,-1.3.000,5.X+06*S,L,87220

17502 00017

06660 T33

17468 00017

06670 T34

OVLC

.2,-li3,OOO,S.X+Ol*S.l,18615

17519 00017

066eO T35

OVLC

.2,1 ,3.000

17536 00012

.2,-2,3.Z00,S,X+12.S.L,400
.2,-1.3,100,5,X+ll.S,L,20253

,L.15000

06690 T36

OVLC

06700 T37

OVLC

06710 T38

OVLC

,2,-1,3,100.S,X

.L,20400

17589 00017

06720 T39

OVL.C

,2,1 ,3,001

,L,7550

17606 00012

,L,40400

17548 00024
17572 00017

06730 T40

OVLC

,2,1 ,3,001

,L,2095Z

17618 00012

06740 T41

OVLC

,2,-1,3,000,5,X+04*S,L,13352

17630 00017

06750 T42

OVLe

,2,Z ,3,120

,L,4900

06760 T43

DVLe

,2,1 ,3,100

,L,11762

17666 00012

06770 T44

OVLC

,2,-1,3,000,5,X+08*S,L,21420

17678 00017

06780 T4S

OVLe

,2,1 ,3,001

,L,3500

17695 00012

06790 T46

OVLC

,2,1 ,3,001

,l,1500

17707 00012

,L,lOO

17647 00019

06800 T47

OVLC

,2,1 ,3,100

,L,3500

17719 00012

06810 T48

OVLC

,2,1 ,3,100

,L,1500

17731 00012

06820 T49

OVLC

,2,-1,3,OOO,5,X+09*S,L,9180

17743 00017

06830 T50
06840 T51

OVLC
OVLC

,2,-1,3.000,5,X+12*S,L,7l910
,2,2 ,3,002
,L,400

17760 00017
17777 00019

06850 T52

DVLC

,2,1 ,3,001

,L,4000

06860 T53
06870 T54

OVLC

,2,1 ,3,001

,L.3250

11808 00012

OVLC

,2,1 ,3,100

,L,40400

1782J 00012

06880 T55

OVLC

,2,1 ,3,100

,L,4000

17832 00012

06890 T56

OVLC

,2,1 ,3,100

,L,3250

06900 T57

OVLC

,2,2 ,3,120

,L.R6764

,L,40400

17796 00012

17844 00012
,L,A76

17856 00019

06910 T58

OVLC

,2,-1,3,000,5,X+06*S,L,9690

06920 T59

OVLC

,2,2 ,3,200

,L,4218

06930 T60

DVLC

,2,1 ,3,001

,L,2115

17911 00012

06940 T61

OVLC

,2,1 ,3,100

17923 00012

06950 T62

OVLC

,2,2 ,3,200

,L,2115
,L,750

06960 T63
06970 T64

OVLC

,2,1 ,3,001

,L,22650

OVLe
OVLe

,2,1 ,3,001

,L,2240

17954 00012
17966 00012

,L,10902*10
,L,22650

17978 00012

OVLC

,2,1 ,3,001
,2,1 ,3,100

OVLC

,2,\ ,3,100

,L,2240

111002 00012

06980 T65
06990 T66
07000 T67
07010 T68

OVLe

07020 T69

OVLC
OVLe

07030 T70

17935 00019

17990 00012
1"8014 00017
,L,f,30

18031 00024

,2,2 ,3,200

,.L,19800*10

18055 00019

,L,2000

OVLC

,2,-1,3,000,5,X+17*S,L,58763

07050 T72

OVLe

.2,4 ,3,004

0(060

OVLC
DVLC

,2,1 ,3,100

DVLC

,2,2 ,3,120

OVLC

,2,-1,3,OOO,5,X+11*S,L,23715

07080 T74
07090 T75

17892 0.0019

,2,-2,3,120,5,X+03*S,L,30849

07040 T71

07070 T73

17875 00017
,L,21477*10+8

18074 00017

,L,40000

,L,20000*10

111091 00019

,L,17500 *10

,L,28000*10

18115 00014

,L,28000*10
,L,53488

,LtlO'J2

18124 00012
IH136 00019
18155 00017

07100 T76
07110 T77

OVLC

,2,-2,3,120,5,X+02*S,L~59190

,Ltl208

DVLC

,2,-2,3,120,5,X+06*S,L,75979

,L,1551

18196 00024

07120 T78

DVLC

,2,-2,3,120,5,X+08*S,L,20992

,L,428

18220 00024

,L,25006*10+3

18261 00019

18172 00024

01130 T79

OVLC

,2,-1,3,OOO.5,X+12*S,L,6550

07140 T80

OVLC

,2,2 ,3,200

,L,4353

07150 181

DVLC

,2,1 ,3,000

,L,24500

07160 T82

DVLC

,2,-2,3,120,5,X+12*S,L,64053

07170 183

OVLC

,~,-1,3,OOO,5,X+01*S,L,50235

07180 f04

OVLe

,2,1 ,3,001

,L,6530

18333 00012

07190 185

OVLC

,L,6530

1<3345 00012

18244 00017
18280 00012
,L,1307

18292 00024
18316 00017

07200 T86

OVle

,2,1 ,3,100
,2,1 ,3,001

,L,92020

18357 00012

07210 T87

OVLC

,2,1 ,3,001

,L,75000

18369 00012

07220 T88

OVLe

,2,1,3,100

,L,7500

18381 00012

07230 T89

OVLC

,2,1 ,3,100

,L,75000

18393 00012

c
51

rttib±Hde

\

/I

07240 T90

DVlC

,2,1 ,3,001

,L,11500

07250 T91

18405 00012

DVLC

,2.1 ,3,100

,L,11500

07260 T92

18417 00012

DVlC

,2.1 ,3,001

,L,65200

07270 T93

DVLC

,2.1

,L,54260

,3,001

072'30 T94

OVLC

,l,-l,3,OOO,5,X+16*S,L,4692

07290 T95

DVLC

,2,-1,3,OOO,5,X+14*S,l,36110

18429 00012
18441 00012
18453 00011
18470 00017

07300 T96

DVLC

,2,-1,3,OOO,5,X+Q5*S,l,51971

07310 T97

DVLC

,2,2 ,3,120

07320 T98

DVLC

,2,2 ,3,120

,L,32195

,L,l05

01330 T99

DVLC

18523 00019

,2,2 ,3,120

,L,5841

,L,59

07340 flOO

DVU;

18542 00019

,2,2 ,3,200

,L,3Clao

07350 T10l

O'hC

,l,-2,3,120,5,X+ll*S,L,23241

,L,31026

07360 fl02

DVLC

,2.1 ,3,001

,L,94595

01370 Ti03

DVLC

,2,1 ,3.001

,L,6205

18487 00017

.Ld13

18504 00019

.l,2D49d-lO+3

18561 00019

,L.474

18580 00024

18604 00012
18616 00012

073ao TI04

DVLC

.?d ,3 , 001

,l,l1l75

013'10 TI05

DVLC

18628 00012

.2,1 ,3,001

, L ,3385

07400 TI06

DVlC

1864:> 00012

,2.1 ,3,OOl

,L,l1846

07410 TIOl

DVlC

,2,1 ,3,001

,L,l0320

07420 n08

onc

,2,4 ,3,(;04

07430

DVlC

,ltl034

lCl6~2

, L, 1622

U!616 00019

,L,l978

07440 T109

DVLC

,2,1,3,100

,L,17175

07450 T110

DVLC

,2,1 ,3.100

, L ,3385

lCl70:> 00014
18709 00012
11:1721 00012

07460 Tll1

DVlC

,2.1 ,3,100

,L,l1846

01470 T112

DVLC

,~,1

,l,l()320

07480 T113

DVLC

,2,1 ,3,100

.L,4634

T114

DVlC

,2,2 ,),200

,L.1796

07')00 T115

DVlC

.2.2 ,3.0JO

,L,15698*100+2B,L,3236d*lQO+5~

07510 Tl16

DVlC

,2,2 ,3.000

,L,15000

0"1490

,3,100

00012

18664 00012

len3 00012
18745 00012
11:1757 00012
,L,~2161

IB769 00019
Id788 OOOIC)

,L,1l500

18807 01)019
.lCl826 00019

07520 T117

DVLr:

,2,2 .3,0'JO

,L .'ClOOO

, L,I'iOO

01530 Tlll:1

QVLC

,2,;> ,3,000

,L.4140

,L,:?l80

07540 Tl19

DVLC

,2,1 ,3,000

,L,4f>8

18845 00019
18864 00012

C,·"·',
"

07550 TI20

DVLC

,2.1 ,3,000

,L,4'n

07560 TI21

lila76 oon2

DVLC

J2,l ,3,000

,Ltl533

11:l8A8 00012

Tin

DVLC

,2,2 ,3,000

07'580 Tt23

DVLC

,2,1

07590 Tl24

Q'/Lt:

,ltl ,3,0')1)

,L,5()OOO

07600 Tl2'5

DVtC

,7,2 ,3.01)0

,L,7562

07570

0.,610 ........

END C~

,L,12333

,3,00~

,L,'l167

lil'-100 00019

,L,15-}

11:!919 00012
lCl931 00012
Ib943 00019

T~ANSACTIQNS

0'62007630..

FOLLOwi"IG IS THE

07640 TTABLE DSA

TRANSACTION LOCi\TP-IG VECTOR TABLE

Tl,f2.T3,T4,T5,T6,T7,T8,T9,TI0

..
189~5

oooo~

16941

18970 00005 16(6)
11:!975 00005 16972
18980 on00S 16984
IH9H5

oooo~

1'008

IH990 00005 11032
10995 00005 Il051
19000 00005 1'0'0
l~OO'5

07650

OSA

00005 1701:!9

19010 00005 17106
fl 1 , fl2,

r L~. Tl 4 , Tl '5, r 16 , Tl 7, T Hl , TL'J. T2 0

19015 00005 17123
lQ020 00005 Il147
19025 00005 17171
19030 00005 11108
19035 00005 11201
19040 00005 1'219
19045 00005 17231

o

19050 00005 11243
19055 00005 17255
07660

1~060

DSf,

00005 17267

19065 00005 17286
19070 00005 11303

19075 00005 17327
19080 00005 17351

-

•

19085 00005 17310
19090 00005 17387

,~

19095 00005 17399
19100 0000'i ! 74!R

\'\~J\j

19105 '00005 17430

-

19110 00005 17449
07670

OS"

T31,T3?,T33,T34,T35,T36,T37,T38,T39,T40

In15 00005 17468

-

1912:) 00005 17485
19125 00005 17502
1913:) 00005 17519
19135 00005 17536
19140 00005 17548
19145 00005 17572
19150 00005 17589
19155 00005 17606
19160 00005 17618
07680

DSA

T41,T42,T43,T44,T45,T46,T47,T48,T49,T50

19165 00005 17630
19170 00005 17647
19175 00005 17666
19180 00005 17678
19185 00005 17695
19190 00005 17707
19195 00005 17719
1'120:) 00005 17731
19205 00005 17743

07690

D~A

T51,T52,TS3,T54,T55,T56,T57,T58,T59,T60

19210 00005 17760
19215 00005 17777

-

19220 00005 17796
19225 00005 11808

ff/

~

I~
1923:1 00005 17820
19235 00005 17832
1924:) 00005 17844
19245 00005 17856
14250 00005 17675
19255 00005 17892
19260 00005 17911
07700

DSA

T61,T62,T63,T64,T65,T66,T67,T68,T69,T70

-

19265 00005 17923
19270 0000'5 17935
19275 00005 1"1954
19280 00005 17966
192fl5 00005 17978
19290 00005 17990
19295 00005 18002
19300 0000'5 18014
19305 00005 18031
19310 00005 18055

07710

DSA

T71,T72,T73,T74,T75,T76,T77,T78,T79,T80

19315 00005 18074
19320 00005 IROn
19325 00a05 18124
19330 00005 18136
19335 00005 U1l5'5
19340 00005 18172
19345 00005 U1l96
1935a 0000'5 1822a
19355

ooaos

18244

19'360 0000'5 18261
07720

DSA

T81,T82,T83,TR4,T85,T86,T87,T88,T69,T90

C

19365 00005 18280
19370 aOOD5 18292

-

19375 00005 18316
19380 00005 18333

s-r

• h

19385 00005 18345

•

19390 00005 18357
19395 00005 18369

o

19400 00005 18381
19405 00005 18393
19410 00005 18405

DSA

07130

19415 00005 16417
19420 00005 18429
19425 00005 16441
19430 00005 18453
19435 00005 16470
19440 00005 18487
19445 00005 18504
19450 00005 18523
19455 00005 18542
19460 00009 18561

l)SA

01740

19465 00005

18~80

19470 00005 18604
19475 00005 18616
19480 00005 18628
19485 00005 18640
19490 00005 18652
19495

OOOO~

18664

19500 00005 18676
19505 00005 18709

19510 00005 18721
19515 00005 18733

DSA

07750

19520 00005 18745
19525 00005 18757
19530 00005 18769
19535 00005 18788

19540 00005 18807
19545 00005 18826
19550 00005 18845
19555 00005 18864
1956:> 00005 18876

DSA

071~0

1~565

Tl21, T 122, rid, r 1 Z4, T 12'5

00005 18888

19570 00005 18900
19~75

00005 18919

1~5BO

00005 18931

19585 00005 18943
01710,,*

T R " It I

07780

DC

07790
07RCO XC;

C' ... r

07flll)··"

Q

I '"

rr~" N SAC

Tit);"

TAR L E

'5,'
1,'"

19590 00005
19593 DODO?

OS
.·-1
THE PROSllM HEAOLM

19592

OOOO~

Sl~TQR

07820 HEDOR

OS

,19600

1'160:) 00000

07830

DOR~

~EnDR

1960:>

07840*
0.,8'50.

0786007810 H[[)DSA nSA

•

THE FOL\.()wP~G ARt ~ELOCHED

BV

WI$AL ~ur

NOT

DESTROVt:O

ISLB1,ITABl.l·.L()f\JM1,At{!'lMl.l\~lHltlTAHLt:.GlTUT,AIUOT,rTAHlEd2~

19():)4 00:)05 34927
196~9

00005 08910

1~614

0000~

09244

1~619

oooo~

1)595

1'1624 00005 10975
19629 00005 11688

19634 00005 15201
19639 00105 16559
19644 00005 lU965
19649 00005 00125
l<,lPI

IS

STAin (JF

INClIM[ Sf.

II\I!) tiM.

SHErT LAFflS

J'l

...
018900190007Ql0.

lTABlE IS
IS
ARN~l IS

LDN~l

VECTOR TABLE FROM I.S.+B.S.LABElS TO G.l.TOTS
START OF G.L. CONSTANTS
START OF A.R. CONSTANTS
START OF A.R. LABELS
START OF VECTOR TABLE TO G.L. lABELS
START OF G.L. UPDATABLE TOTALS
START OF A.R. UPOATABLE TOTALS
START OF TRANSACTIONS VECTOR TABLE
NO. OF TRANSACTIONS IN THIS PROBLEM

01920ARLBI IS
07930LTABLE IS
01940GlTOT IS
01950ARTOT IS
07960TTABLE IS
01970125 IS
07980THE FOLLOWING ARE USED BY WrSAL, MAY BE DESTROYED
079900800008010 HEDDSB OSA

.
/~

"--Y

19654 00005 04926
19659 00005 09236
19664 00005 11682
19669 00005 15070
19674 00005 16938
19679 00005 19592
19681 00002

-

08020 LDSA
0803008040080500806008070*
08080*
08090*
Oal00*
08110*
08120*
08130*
08140*

08150*
08160*
08170*
08180*
OA19008200*
OH210*
08220*
08230*
08240*
08250

DVLC ,2fL
Yl IS
Y2 IS
Y3 IS
Y4 rs
Y5 IS
X5 IS
L IS

START OF I. S. + B.S. BLOCK
START OF G.L. + A.R. CONSTANTS BLOCK
START OF G.L. LABELS BLOCK
STAH OF UPDATABLE BLOCK
START OF TRANSACTIONS BLOCK
END OF TRANSACTIONS BLOCK
LENGTH OF A WISAL FIELD

DURING THE FIRST WISAL TRA-TCD, THIS WHOLE PROBLEM IS
CALLED INTO CORE IN CORE IMAGE FORMAT
IT IS THEN WRITTEN OUT TO THE WORK CYLINDERS AS FOLLOWS--

G.L.LABEL BLOCK, VECTORS RFLOCATED, IS WRITTEN OUT FOR PHASE B USE
TRANSACTION ALOCK, VECTORS RELOCATED, FOR PHASE C USE
G.L. + A.R. LABELS + CONSTANTS FOR PHASE 01 USE
I.S. + B.S. LABELS FOR PHASE 02 USE
AND, AFTER POSSIBLE UPDATING BY -PRECOOE RECORDS,
THE UPOATABLE G.L. AND A.R. TOTALS ARE WRITTEN OUT
FOR USE OF PHASES C, 01, 02
THE ASSOCIATED SWITCH SETTINGS ARE ALSO WRITTEN OUT

08260 .hl'C
08270 DATEP
08280 MONTH
0829008300*
08310*
08320*
08330*
OAj40

DSA

~PC.OATEP.MONTH.DATEP

D<:;AC

:!3,

DSAC
DSAC

33,

33,

THE WHOLESALl PAPER CQ.
APRIL 30, 1964
MONTH E~OED APRIL 30. 1964

THESE HEADING TITLES
SHOULD ALL RE
33 ALPHA LONG

19686 00005 19767
19691 OOOOC; 19833
19696 00005 19899
19701 00005 19833
19767 00066
19833 00066
19899 00066

IF YOU DO NOT WISH TO HAVE THE SAME THING FOR THE
THIRD LINE OF G.L. AND B.S. HEADINGS, AS DATEP AHOVE,
YOU WILL HAVE TO CHANGE HEDDR TO 19500 IN THIS AND INwlSAL
PEND

796

00796

.. ____

~~

__.

_,.-~-.-.----.---.~-~

. . . . . . . . u---.. . . . . . . . . . . . . . . . . . . . .,. . . . . . . . . ., . . . . . -.-. . ... '.
"~

~

~

,."~

~,

00010 •• *••• ***~ ••• * ••••••••••••••••• *.* •••• ·~·.·*·*···* •••••••••••••••••••
00020*
00030*
00040*
OOOSO*
00060*
U0010*
00080*

WISCONSIN-S ACCOUNTING LANGUAGE

WISAL

•
PROCESSOR FOR 1620 MODEL 1 OR 2 WITH 1311 DISK
NO SPECIAL FEATURES
CARD OR PRINTER OUTPUT, CARD INPUT
CRAIG

00090*

MACKEN~A

00100.
00110.

--

U~IVERSITY

OF WISCONSIN
JULY 1, 1966

~

,r""

*

"'-;T-'

•
*

•
•
•
•

MILWAUKEE

00120* •••• *.*************.·*.*.****· ••• *****.* ••••••• ** •• * •• * •• *'•• ****** ••
00130*
SYMROLIC PARAMETERS
00140*
001S0*
00160*
00170 L
00180 LNTH
00190 HEDDR
00200 LOWEST
00210 MONeAL
00220*
00230*
00240 R
002S0 5
00260 HEDDSA
00270 HEDDSB
00280 LOSA
00290 TI TLES
00300
00310 EWC

00320 WC

THE FOLLOWING MAY BE VARIED
OS
DS
OS
OS
DS

,7,
,3000,
,19600,

,2302,
,796,

INDEPENDE~TLY

LENGTH OF WISAL FIELD
CORE ALLoTED FOR STUDENT PROGRAMS, LOG ENT~YS
CORE ADDRESS STARTI~G PROBLE~ HEADER
LOWEST CORE USED -- BEGI~NING DoRG -- DDA-S
THIS SHOULD NOT e~ VA~IED TOO INDEPENDENTLY

OS
OS
OS
OS
DS
DORG
OS'B

DERIVED SYMROLS
,j*L,
LE~GTH OF A LEDGER ACCOUNT IN CONSTANT BLOCK
LENGTH OF A LED~ER AC:OUNT IN JPOATABLE BLOC<
,HEDDR+4
,HEDDSA+IO*S
,HEDOSB+S*5+2
,LDSA+S
LOWEST
20,11"
TRANSFER ODA AREA

00021 00:)90
00021 00000
19604 00000
~96S4 00000
19681 00000
196B~ 00000
02302

OS

,EWC-19

02302 00000

01)450

TFM

00460 NUAD
00470
00480 DDATR

OS
AM
TR

00490

1\

oosoo

8H2
WCOD

00000
00000
00000
00000
00000

OTHE~

Os

00330*
PARAMETE~ SWITCHES AND ALLOWABLE ERROR COUNTS
00340*
MAY BE CHANGED IN OBJECT DR SOURCE BY USER
00350*
00360*
1 ,1 ,.
0 SCI, 0 I F :~ U P R I N T E R
00370 PRSW
DC
00380 MLPRSW OSC
1,0" 1 IF MULTIPLE PROBLEMS
00390 CRITl DC
3,10"ALLOWA~LE LANGUAGE ERRO~S
00400 CRIn DC
3,15"ALLO~ABLE REFEREN:E ERRJRS
00410*
00420*
ROUTINf TO WRITE PROBLEM A~D PRO~ESSDR BLOCKS TO
00430*
00440 PUTADJ PUT
WCDO,RBC

00'5}0

00007
03000
1960:>
02302
00796

00

02522 00001
:->2523 00001
0252~ 00003
02sn 00003
WKCY~S

02530 16 00565
02542 49 00520
0255~ 16 02315
OcS65 00000
02566 11 025B~
02576 31 02302
0259) 21 02307
02602 42 00)00

,*
*+18,20,10
WC,wC,2
wC-t5,WC+i3
,WC" ,A,

WISAL WILL UPOATE TO WORK

02321 00220

CYLI~DERS

ITSELF

02553
02~)4

0:»)0
00)20
02302
02310

0:>0)0

;)2604

ooon

0260~

00)05 023)2

02611

00081 '

2?

on520**********************~**********************************************

00530*
00540*
00550*
00560*
00570*

PHASE Al

CALL LOAD THE PROBLEM
WRITE IT OUT TO WORK CYLINDERS IN BLOCKS
RELOCATED, AND CHECK FuR C~RE OVeRLAP

00580*********************************************************************

c

tit

00600*
00610*
A

o

II,

PHASE Al

it #

"\

iw# *!titb¥m:.lit\t}i"f

ROUTI~E

TO COMPUTE A NEW CORE

PROBLE~

BLOCK GIVEN THE LINKAGE

OF A

ADD~ESS

00620*
00630*

ATM

DKADJ,.+16

00640*

DSA

OLDHI,OLDLO,~UHI

00650*

OLDHI IS THE ADDRESS OF THE

PRtSE~T

UPPEk LIMIT

00660-

OLDlO IS THE ADDRESS OF THE

PRESE~T

LO-:ORE

00670·

NUHl

WHERE

IS THE ADDRESS OF

rH~

EXECUTION UPPER LIMIT

006!l0*
00690 ORGI

NOP

00700

DORG

·-5

00710 DKADJ

SF

*-1

J2618 32 02617 JOll)

00720

TF

WC+I0,DKADJ-l, 11

02630 26 02312 D2S17

02612 41 JOOOO lOllO
02618

0'J730

SM

DKADJ-l,5,10

02642 12 02617 lOllS

00740

S

WL+lu,DKAJJ-l,11

02654 22 02312

00750

TF

WC+13,DKADJ-l,11

0266S 26 01315 02S17

02~17

00760

AM

WC+A,I,IO,

00770

SM

CKADJ-l,':>,10

02690 12 02617 00015

00780

TF

NlJAD,DKADJ-I,11

02702 26 02565 OZS17

NUflD-2,WC+A

02714 22 02563 02310

00800

TF

ADJF,NUAD

Q2726 26

00810

5

ADJF, WC+13

02738 22 02809 02315

00820

Cf

CKADJ-l

02750 13 02617 00000

001330

AM

CKAOJ-l,z,10

00840

A

i~K

00790

ADJ-l"

LENGTH OF

~LOCK

UP TO NEXT

HUNDR~D

02678 11 02310 000)1

0280~

02565

02762 11 02617 00002

6

02774 49 02617 00000

00850*
00860·

ROlIT INE TO R.ElOCATE II VECTOR TAIlLE FRilM THE

00870·

PAkA~lTlR5

~AlCUlAT[D

BY THE ABOVE

0088.0·

o

00a90 VKADJ

TF

00900

AM

0?786 26 02804 027(j5

*-*,*-*

OQ910 ADJF

f)S

, ...

00<)20

liM

*--6,5,10

00930

BNR

*-2'.,.-18,11

00940

BB2

02798 11 00000

OO)~O

02809 00000
02810 11 02804

OO~D5

02822 45 02798 028)4
02834 42 00000 00)00

00950*
00960-

MAI>;llNE PHASE AI, COMING I'J flU}"" RhCK PAU LJF- Al

00970·
00980 PPIN

CAU lfJAD THE

CALL

lOA0,.361 ..

PROBLEM

··CHANGE IF PROHlEM NOT DIM NU. 361 ••

Q2836 16 00565 02855
02848 49 00716 00000
02855 00007 3200361
02862 00001

00990·

NOW CHECK PRi;tlU /.'

01000

CM

LDSfI,L,lO

01010

BE

CHCVLP",

01020

RCTY

02H64 14 19681 00017
(S 1

Tt-IF SAME

02~76

46 0313J 01200

028HB 34 0000) 001)2

01030

ViA IV

"LkC

02900

01040

CALL

HIT

02912 49 on796 OOJDD

41,WISAL VS. PRnRLEM FIELD LENGTh NUN-MATCH'
r,VMES+tlO,*-1

01050 WlRe

DAC

OIOnO OVlAP

TF

01070

RCTY

010130

',}I\ Ty

01090
OllCO OVMt;S

•

•

HEADER

02921 00100

02971 0008?
03012 26

O~127

01011

03014 34 00000 00102
C\'i' C <;

03026 39 03047 00100

t Xi T

DI\C

3~

03038 49 00196 00000

42,CORE iJVI:RLAP, PROBLE..., wITH WISAL PHAS,:

01110 CHOVlP CI.1

b£ODSB,ENOAI

01120

RH

<;ocnGQ

01130

BTl'

CVlAP,4171,H,

03047 0008(t
03130 14 19654 03RgO
03142 46 03166 011))

CHECKKY-ST~PPY

IF IH-Al flAil

03154 17 03002 041(1

01140 •
01150.

COM?UI[ PARAMETE~S AND WRITE OUT PRUBl~M MACROSLOCKS

01160.
01170 GOGUGO HTM
01180

DSA

ESTAHLISH

PARA~S.

UPDATAHLl KLOCK

03166 17 02618 031j2

03182 00005 19674

03187 00005 19669
03192 00005 03880
01190

TF

SM7+11,ADJF"

SAVE UPDATABlE BLOCK ADJUSTMENT

01200

BTM

VKADJ,HEDDSA+5"

RELOCATE B.S •• I.S. LABELS TABLe

01210

BT

PUT AOJ t PUTADJ-1

03194 26 03629 02809
03206 17 02786 19609
03218 27 02530 02529

01220·
THUS UPOATABLE BLOCK IS THE FIRST PERMANENT DDAIN THE
01240·

TABLE, MAy BE OVERLAYED DUE TO .PRECODE

CO~TROL

RECORDS

0125001260

kT~

CKADJ,*+16"

01270

DSA

~EDDSB+5,HEDDSB,WC+20+13

COMPUTE PARAMS. B.S.,I.S. LABELS

03230 17 02618 03246
03246 00005 19659
03251 00005 19654
03256 00005 02335

01280

A

~EDDSA+6·5,SM1+11"

01290

A

~EDDSA+7.5,SM7+11"

01300

BT

PUTADJ,PUTADJ-1"

01310

A

t-EDOSA,ADJF"

01320

A

fooEDf'lSA+5,AOJF

WHOOPS -- UPDATE HEADER DSA-S
FOR UPDATABLE BLOCK
WRITE OUT I.S.,B.S. LABELS BLOCK
FOR PHASE 02 USE

03258 21 19634 03629
03270 21 19639 03629
03282 27 02530 02529
03294 21 19604 02809
03306 21 19609 02809

NOW G.l. LABELS

01330

fHf.'

DKAOJ,*+16"

01340

DSA

~FDDSB+3*5,HeDDSR+2·5,HDSA

FO~

PHAse A

03318 17 02618 03334
03334 00005 19669
03339 Q000519664
03344 00005 03880

01350

IH'"

V~ADJ,HEODSA+5*5

01360

TF

t-EDDSB,HEDOSA+5.5"

01370

A

t-EDOSR, AOJF"

TO SAVE ADJUSTED START OF

01380

'BT

PUTADJ,PUTADJ-l"

G.L.

01390

TF

03346 17 02786 19629
USE HEDDSB IN THE HEADER
LAB~LS

FOR PHASE B

03358 26 19654 19629
03370 21 19654 02809
03382 27 02530 02529

H3'i, ADJF

03394 26 03429 D280Q
03406 16 02809 00000

014CO

TF'-'

/lGJf,O

01410

SM

AOJF,*-*

01420

BT'"

VKAOJ,HEODSA+5*5"

01430

BHo'

CKAOJ,*+16

03418 12 02809 00000
UNRELoeATE VECTORS

03430 17 02786 19629
03442 17 02618 03458

,.~""".

~
01440

DSA

t-EDDSB+3*5,HEDDSR+5,WC+20+13

03458 00005 19669
03463 00005 19659
03468 00005 02335

014'50

RH'

VKADJ,HEDDSA+5.5

03470 17 02786

01460

A

t-EDDSA+2*5,ADJF

03482 21 19614 02809

01470

A

hEDDSA+3*5,ADJF"

01480

A

HEDD5A+4*5,ADJF"

01490

UPDATE HEADER DSA-S
FOR PHASI: Dl USE

19~29

03494 21 19619 02809
03506 21 19624 02809

hE:DDSA+5*5,ADJF

03518 21 19629 02809

PUlADJ,PUTADJ-l

03530 27 02530 02529

01500

AT

01510

BTl-'

CKAOJ,*+16"

01520

DSA

hEDDSR+5*5,HEOOSA+4*5,WC+20+13

NOW FOR THE TRANSACTIONS BLOCK

03542 17 02618 03558
03558 00005 19679

03563 00005 19674
03568 00005 02335
01530

TF

*+23,HEDDSA+8*5"

01540 S2
01550 BNf2

TF
BNF

UPS2,*-*"

01560

AM

PNF2+11,8,10

03606 11 0360'5 00008

01570 SM7

AM

P.NF2+11,*-*,fo.

03618 11 03605 00000

01580 UPS2

A

S2+11,ADJF,6

03630 21 03593 02809

01590

AM

52+11,5,10

03642 11 03593 00015

01600

BNR

52,<;2+11.11

03654 4, 03582 03593

01610

BT

PIJTADJ,PUTADJ-l

03666 27 02530 02529

l'EDDSA+8.5 ,ADJ F

03678 21 19644 02A)9

01620

"+2~,*-*"

TRANSACTIONS ALOCK REQUIRES
SPECIAL RELOCATION
rRANS~CTIONS

HAVING SUBLEDGER HAVE FLAG

03570 26 03593 19644
03582 26 03605 00000
03594 44 03630 00000

01630"

NOW CHECK FOR WISAL PHASE VS. PRUBLEM BLOCK OVERLAPS

01640*
01650*
01660

eM

WC+2*20+13,ENDD2

03690 14 02355 10661

01670

AH

*+24

03102 46 03726 01100

01680

BT~

DVLAP,4472i8

03714 17 03002 04412

016<;0

eM

~C+3*20.13~ENDB

03726 14 02375 11033

01700

BH

03738 46 03762 01100

c

c\

01110

AT'"

CVLAP,420Q,8

01120

CM

WC+4*20+11,ENDDI

03762 14 02395 09625

01130

Bfi

*+:?4

03774 46 03798 01130

01740

AT10I

CVLAP,4471,8

03786 17 03002 04471

01750

Ci~

wC.+5*20+11,E~DC

03798 14 02415 09419

01760

AH

*+24

03810 46 03834 011)0

01770

fH~

OVlAP,4300,8

01780 TRAI

TRA

03753 17 03002 04200

03822 17 03002 04300
BACK TO DO PHASE A2

03834 16 00565 03853
03846 49 00716 00000
03853 00002 22

03855 00005 03861
03860 00001 '
03861 000)6 119783
03867 00003 003
03870 00006 00000'
01790*
?RDeLEM NUW SECURELY TIED

018CO*

OOW~

01810*
01HZO HDSA

DSI

01830 HJOAI

DS

, *,

01840 CNtSAI

nc

G,IDOOOl

03886 00006

01850 SAVAI

OS

,l'J900

19900 00000

03880 00005 19600
PRUHlE"" CA:.j CLOB8ER ANYWHeRE BelOW HeRt:

03880 00000

01860*
~ISAL

01870*

STARTS EXECUTION HERE

01880*
01890 PHASAI TD

5AVAI,lOO,2,

01900

A

*-I,ONf:SAl

SAVE 100-349

0390~

01910

eM

PHASAl+6,SAVAl+50

03912 14 03894 19950

01920

HL

PHASAI

01930

TOM

~OO,

01940

TP'

309,12,711,

03888 25 19900 00300
21 03899 03886

03924 47 03888 01300

1, ,

RIG ADD TASlE MAYBt:

03936 15 00300 00001

KIG IX REGS MAY tiE

03948 16 00309 00012

l'#
01950

TF

~49,

01960

AM

*+11,0,10

309

03960 26

01')70

SD

RE1Al,*-I"

01 ')flO

60

H12,9

019'10

81

'+20,,~,

02DOO

60

~+12,0

020tO RlTAl

fa

BE THIS A LIl Ol MOO

003)9

03984 43 04028 039a!
03996 60 04008 000)9

OR A FANCY MOO 2 MIT INDEX REGISTERS

0400~

49 04028 00000

04016 60 04028 000)0
PUT 300-349 HACK

~n0,~AVA1,2,

02020

~0349

03972 11 03983 00000

04028 25 00300 19900

*-l,ONESAI

0404) 21 04039 03886

()2r130

CM

IU:IAl+o,34')

04052 14 04034

02040

!3r\;"

Kt. T.\l

04064 47 04028 01100

020,0

TR

~r..DR1GDA

02060

TD

1-4C,422"

GET LOCATION UF WI)RK CYLINDERS

(12070

TF

\916 03000

03930 LSMNEM OSAC

4"",

06923 00008

O~940

1,0

06924 00001

A, '

06')31 00008

OSC
OSA
DC

06929 00005 00000

OH70 LABCHK C

TITLfl,INPUT+tl

06938 24 07455

03980

BE

TI Tl ElF

06950 46 07074 01200

02/2~

0.3990

C

1I0~lIN,

04000

HE

rI

04010

C

XREFtl,INPllT+6

06986 24 01073 02r27

04020

HE

GlHOF

06998 46 09168 0120)

INPUT+8

06962 24 07465 02729

TlBF

06974 46 07074 01200

04030 NOCOL7 C

CL~+6,INPUT+20,.

04040

ANE

ISLAA

04050
04060

C'"
BNE

C.at.T

07046 47 078')4 0110J

04070

1'7

PLAO

07U58 49

040AO XREFB

DSAC

t,.

IS MNEMONIC fitLO HLANK

07010 24 03351

a27~1

07022 47 07466 012JO

LSMNEM-4,2323,8.

Y~S.

WAS

Trl~Rt

A~Y

PRtV. LAHEL

01034 14 Ob}19 02323

o
04090 TITLBF RelY
04100

RCTY

04110

WATY

()4120

RCTY

04130

WAry

aOJO~

0/074 34 00000 001)2
0/086 34 00001 OJ1)2
t

07018 39 07255 OOl)J

f3TITL2

07122 39 07355 00100

:~TITl

01110 34 00000 0011?

04140

H

0/134

04150

RClY

0/146 34

04160

•

03~24

o-rOB 0000H

XRfF

4H JOOO)
OOOO~

OOOO~

001)1

01158 47 03424 a020)

04170

nT~

CErAOJ.WC+6.?O

07170 17 02618

04180

sr~

•• 23.7,10

07182 12 07205 OO)?

04190 CCC

C

CLR,INPl)f+lflO.7

07194 24 03345 029Jl

04200

BE

--24

07706 46 07182 01211

04210

AM

LC(+11.2,10

01219 11 07205 OJ3)l

02~??

04220

TO~

C:C+l1.0,6

07230 IS )7205 )01)0

04230

DC

1, ' ••

0'f241

04240

RTM

GffACJ.WC+7.l0.711.RE-CAL~

PHA~E

B

04250 BTlrLl OAe

50,A TllLt CAf
TKSW,O"

04780 TRSW

OS

,*-1

04790

TF

CDLtll,lGCA~D-1,11,PULL

0~100

I:lRANCH IF THE SW IS

04flOO

BNF

PSEEK,I:lOL+ll"

CF

eOLtll, ..

04820 BOL

BNF

04830

TDM

PSfF.l142

eM

CUL,I-*"

HAS ALL THAT MOVED POINTER

05140

BE

UPCOL",

NO,GO TO MOVE IT

05150 SSUf'P

C

CZERO,COL,II, SPACE SUPPRESS, ENTERS HERE

08494 24 10823 086)1

05160

BNL

lJPCOL

08506 46 08602 01310

05170 IFNUM

C

(70S,CUL,II,

CHECK FOR

05180

BH

051110

8D

LSCANS",
AMTN,AMTSW"

NO, GU RU~ THE ALPHA
IS THIS L!KE AMT 'N

05200 TDNUM

TD

ALPHA~-6,CuL,11,

05210

Oi

*-6,ALPHAN"

HAVl

4 NUM[RICS

08566 14 08560 lOBI)

05220

RNL

N~~N",

YES, GO TO PROCESS

08578 46 10474 01300

05230

AM

TDNUM+6,2,lO, NO, THEN FVER

05240 UPCOL

AM

COL,2,10,

ONWARD, LIKE uP UN CARD

08590 11 085~0 OOJ02
08602 11 08697 000ll.

0'5250
0'5260
0.,270

CM

COL,ENOWOS"
SSUP"> .. ,

IF END UF CARD

08614 14 OR697

f:lNI1

'HJ,

TOM

RBSW,Q ..

05280

B7

READ" ,

0'>2110 ENDWDS DS
0'5300 RASW

0848~

17 OR662 09022

AGAI~

~'1

08542 43 10454 03058

Tn

Otl638 15 08611 OO:)JiJ
,Ob650

4~

03474 00000

,INPUT+142

02863 00000

,IJPCilL +9

ot: 6 1 1

Af.I

SCA;'J-l,2,10,

05340 Cl
05350 COL

C

t:flJ,

DS

, ",

05360

HE

IH:CJD, "

AH-$O

0'5370

BNF

PB2 ,OB,J, ,

CULU~N

05380
05390

CF

CJBj, "

AM

SCAN-'l, 1,10,

CLtAR
UP TO

05400

C

CiL ,Clll , 11,

A~U

05410

BE

::'CAN+ll,,,

fOUAI.,

02~b3

08626 47 08494 OIIJJ

SUPPRESS SPAClS

YES, SET SW TO RETURN ru S~UPP
AND /;,) TU REAl) A NEW CARD

05330

000 0 0

Olib"l 000:)5

*- 1 , 11,

*- to, ,

fiRING

A~HI:;

TI

sc,:.rJ'-l,SC,~'J-l,ll,IP440 rrEND

CM

SC AN- 1, 'H,

05450
0,460

8NI:
AM

1\ ()t

0')470

SF

SCAi\J- 1"

~;

K~.lP

1", , •

£:"1,) 'IF

"In,
YI'

SAME

TU

(,i'J

~,

SCAfII-l, ,6,
Clt~n,c..C:L,ll,

0'j5 iO 1\JCU'.j[)

I.t.L,?, 10,

0.,520

C"'-

(.[IL,

05530

ANI-

flPACK,,,

TDt-'

RRSW,l.lJ.,

HI

PtAD,.,

086'H 00000

08734 II

A~AI~

'}"1I46

O~66J.

J8b,l1
012J~

StT UP I'll 'IE>I 'fI(j,C) A'I')

OH770 ?h JSh61

OH~~l

CAKi) c.rJLtmrJ
~:J\i'

I,ltJ,2,--lh,'i,DISC+'J

Od')52

O())f)')

VLC

, 2 , 4 1 , ;> , . ')

I, '; ,

A... H. 7, 4 tj ,

00J13

OH758 46 08674

I~E)(1

YES, SfT ';101 T(i ,{!:.

CO"JTROLwUKUS HIt{

IO~21

:HA~

TI.J

DH~'4

f 'J:

18794 012.lU

Qu722 33 10821 a01JJ

5lJPPRtSS IjLA',KS

II

4h

OH710 44 08200

tLAG
AilLlktSC,

H1UTI''Ir:,wlltl eLl. AT LAST

f:NDWL)')"

05540
05550

~UNAM~IJ

T(l

87
BL
At<'

PI

(,,)

•

C

J8b~J.

24 1')82)

CO~PAq~

lJl'

UNf:QUAL,JUT II-

~UNTRUL

A~RIG

10821

Oh686 24 10821 OOJJJ
C(]~lIN:;

OH698

05430

rF

HAS SloT ::JL '1,'lN-I-ILANK

VS.

2~

08674 11 8H661 JODJ?

WITH OVtRI-L,)W

cn~PAi{r.,

MAli'JLl'lF

<,c.n'-l,'l,lO,

Ob662

liP 1"l :nNTPlJL NOW
MfllN

61:),

TG'It:CE:SSITY Til CF

PJ CtiflR JUf-

05420

f)

086~7

Otl530 46 08302 011jJ
Otl554 25 10813 OR6)f

wr

Ill', I,

0., 0 10 CRf: Ll 1 T

0906~

46 08602 01200

08518 24 10790
GAU~TLCT

NO

DS

05570*

08~30

08470 14 08697 OOOOJ

NUMERICS

TF

RFACK

16 08560 10j13

08386 17 08662

05310

05490
05500

0~314

08326 11 08662 08961

05320 Sr:AN

05480

•

DS

NUMERI~

THIS AINT NO

:' , 1.4 ,

?,

~

4 cl,

:; , f) E 3 11+ l.

, ? , - 6 .~

utI'}'> 1 OClJi'?

DO)))

05620

DVlC

,5,DISC+9,Z,99,5,CRFND

08986 00012

05630 ASH

DVlC

,2,41,2,-86,5,CASH+9

08995 00009

05640 AMT

DVlC

,2,41,Z,54,Z,-63,5,MINUS+Z,2,99,5,AMFNO

09004 0001R

05650 lPAREN DVlC

,2,Z4,Z,99,5,lPFND

09022 00009

05660 CUST

OVlC

,2,43,Z,-64,5,CREDIT+Z,2,62,Z,63.2,04,Z;99,5,CSFND

09031 00022

05610 VOUC

DVlC

,2,65,2,56,Z,64,Z,43,Z,99,5,VCFND

05680 DISC

DVlC

,2,44,2,-49,5,DE8IT+Z,2,62,2,43.2,99,5,DSFND

09068 00020

05690 CASH

~VlC

,2,43,2,-41,5,CREDIT+2,2,-62,5,AMT+2,2,48,2,99,5,CAFNO

09086 00025
09113 00015

051CO PLUS

DVlC

,2,51,2,53,2,64,2,62,2,99,5,PlFND

05110 MINUS

DVlC

,2,54,2,49,2,55,2,64,2,6Z,2,99,5,MNFND

09128 00017

05120 SPlUS

DVlC

,2,I"i2,99,5,PlFND

09145 00009

05730 SMINUS DVlC

,2,20,2,99,5,MNFND

09154 00009

05140 RPAREN DVlC

,2,04,2,99,5,RPFND

09163 00009
09172 25 03055 030,4

05150 lPFNO

TO

05160

TOM

SGSW,O

05710

TOM

LPSW,l,ll

05180

TFM

SCAN-l,CUST"

0'>190

B7

NOEND

05800 PlFND

TOM

SGSW,O"

05810

DC

1, • ,

It, ,

3-WAY, 0 FOR NO SIGN

09239 00001

05820

B7

*+20",

OUTSTANDING, FLAGGED

09240 49 09260 00000

05830 MNFND

TOM

SGSW,I,11"

05840

B7

UPCOl

05850 GOTOF

ATM

LGCAND,OSWNlA"

BOUNCING OUT OF

SCAN WITH ( FOUND

09164 15 03054 00000
0919~

SNEAK 6ACK IN FOR CUST

15 03056 00001

09208 16

08~61

09031

0922P 49 08874 06000
PLUS Ok + FOUND -- THE 2 SIGN SWS ARE

MINUS OR - FOUND

1 FOR MINUS, FLAGGED

09228 15 03054 00000

09248 15 03054 00001
09260 49 08602

~o

TO START MESSAGE

OOO~O

09268 17 08090 09576
09280 44 09316 08100

05860

BNF

*+36,TRSW"

05870

ATM

[RPRNT,BADlAB-l

058AO

AM

PHBER~,

05890

TR

INSAD,ENDRT,t-

09316 31 09974 10806

05900

AM

HlSAD, 6,10

09328 11 09974 00006

05910

C

IN5I1D,TRLAH+6

09340 24 09974 07804

05920

ANl

r,VERB

09352 46 10028 01300

FOUND, GET OUT

1,10

09292 17 03744 079?H
09304 11 03322 00001

05930

TF

WC+18,TRI.AB+6

09364 26 02320 07804

059'10

AM

.. C+18,7,10

0~376

05Q<;0

ATM

~LTSWS,DCDSA?

09388 17 08208 )9571

05960

BTM

GETADJ,WC+8*20,711,LINK TO PHASE C

09400 17 02618 124&7

05970 DBFND

TFM

AOREG,O

09412 16 1082H

05980

B7

*+20

04424 49 09444 00001

11 02320 00)01

OO)O~

16 10828 000)7

O'.i990 ('RFND

TF~1

ADREG,L

OY~32

06000

AD

*+32,*+22

09444 43 09476 09466

06010 TDX

TOM

*·10,1

OY456 15 09466 (0)01

06020

A7

SWi:LL

07468 49 09524 )0)))

Of>030

ATM

LGCAND,DSWNLA

09476 17 0809) 09576

06040

ANI'

.)w~lL,TR~W

0948Q 44 09524

06050

BH'

I:RPRNT,BADDC-l

09500 17 03744 10836

06060

0~10J

AM

PHBERS, 1, 10

09512 11 03322 00001

CF

CS"NLr.

09524 3'3 09516 'J 0 J )

060RO

Rn'

SETSWS, DCDSA2

09?36 17 OR208 19571

06090

SF

CS~NLH

OQ54R 32 19576 100JO

06100

A7

LP(..lll

OY560 49 JB602 ODJJJ

06110 DCDSA2 DSA

-SESw

0')571 :)0005 J3:)59

06120

-DCSw,-O~SW,-CDVSW,-AMT5W

09576 OOJ05 03052

06070

S~Ell

DS\O<~LA

DSA

,J

09581 00105 03053
09~86

00005 03J57

09591 00005 03058
06130 RPDSA

O<;A

-I

PSW,-SGC;W,-SG<'W2

0<)596 000:)5

~3:)56

09611 00005 03054
09606 00005 03855
06140

DC

"i,'

09611 OOOf)?

06150 RPF\jD

ANF

l;PCOL, LPSW

09612 44 )8602 03056

06160

ANF

CLR5N,SGSW

09624 44 09660 )3054

06170

BT:'

ERPRfn,HflDQp-l

09636 17 03744

096~0

06180

AM

PHBERS,l,IO

09648 11

OO))l

~3322

o

06190 ClRSN

ST~

:>I::TSWS,RI>OSA

0966J 17 0820H

Oh2CI')

"7

upr.OL

0~672

06210 BADRP

OAC

18,PARENTHESIS ERROR'

06220 CAFNO

TO",

INST,O"

06230

S7

VCFND+12

06240 OSFND

TO~

INST.O"

062 ~O

OSC

1,

06260

H7

Vl F-:-.iD + 12

06270 VCFNO

TDM

INST,O"

I ,

09~J&

49 08602 000))

09681 00336
09716 15 10629 00300

CASH

09728 49 09768 00030
09736 15 10829 00030

DISC

*

0CJ747 00001
0974M 49 09768 003)0
09756 15 10829 00)00

VOUC FOUND

09767 00001

06280 WISGM

DG'"

06290

AD

RSAMT,Ar~TSW,

06300

SO

*+36,$GSI';

06310

AD

*+ 24, SGSw2"

06320

ANF

UPU~l.

06330

TO""

COVSW.ldl

09816 15 03057

06340 RSAMT

TO'"

ORSW,O

09828 15 03053 00))0

()6350

TOM

AM1SW,O

06360

RNR

S~::2,SG5WI!"

06370 SI::C3

BNF

spas, Sl;SW

06380

BNR

SNCG,SGS,I

0~876

063CiO

B7

SI-'GS

09888 49 09944

06400 SEC2

BNF

SEC3,SGSw2

09896 44 09B64 03)55

,

09768 43 09828

DID 'AMfi SHOw ·UP PREVIOUSLY

030~8

09780 43 09816 03054
IGNORE THE WORD IF NNNN,
O~

,llBSW"

A SIGN HAS NOT

(CUST).

0~192

43 09816 03)5?

09804 44 08602 03053

PRcC~[DLD

000~1

09840 15 03058 00000
DETE~MINE

THE

0~852

SI~N

45 09896 03055

09864 44 09944 03354
45 09932 03054
003)~

06410

ANF

SNI::G,SGSW

09908 44 09932 03)54

00420

8NR

~POS,SGSW

0~923

45 09944

06430 SNEG

SF

)NST

09~32

32 10829 0000)

0305~

09944 15 03054 300)1

06440 SPOS

TD~

::'GSW,O

06450

SO

LPCOL,St$w"

06460

TO

APEA,INST,2

ASS~MBL~ NOTHlN~

IF

StNl~~C~

E~~QM

09956 43 08602
O~~6B

033j~

2S 03916 1082J

064 ·/0 ! NSAO

OS

, .. -5

099'14 00000

06480

I\M

HI' AD,h, 10

09983 11

06490

TF

INSAf),INST+6,6

09992 26 09}74 10H35

Oh5CO

C

IfliSAD, TRLAfH6

10004 24

06510

BL

L.;l-'tlJl

10016 47 08612 013))

Oh520 aVERR

RT",

l:RPRNT

Oh530

H1,..

[RPR"JT,CJVf\"12-1

0997~

00016

c
,CV~V~I;'S-

Oh540

RTM

11'1'·",!r"'t-'ft)IIT+?~7,,HLANK

CALL

~• .<

1004) 17 03744 1017&
ID05?

CARD

11 13744 033)J

10064 49 03796 0000)

I I

l'f:"GRAM lXCU:0S :;C,KE lAPAClTY AT TillS fll1UJ,.

06~AO

nVHMES OAC

06'\ 70

DAC

'2,1'

06580 aVUM2

CAC

4j,STlJDH:T PROGRAM HRMPJAHO,

06590 A,..fND

HD,

066CO

~T~

LPCClL6, Ci'V~"
(',(,,\"JlJ, .H1ilS"2

OM10

TD

HJ~\O;,

';v,srU()[I,T

1 )073 001 YI
1Ul73 00004

JIJB

rEM"'! JATL;)'

10177 000B6
1 ' )262 43 1 03~4 J 305 7

10774 17 0809J 1043(
10286 25 10404 08100

TRS.-I

06620

IIT~

L GC.'\'J[) , AP<\IlSA

1u298 1708090 10411

06630

tlNF

.+4h,TKSI,

\0310 44

1~358

08100

06640

f; T"

1~322

0374~

10836

06650

AM

!'HB I:R. <',1,

06660

TOrJPIJT+8

06986 24 07841 0272)

07510

BE

CIJTC

06998 46 07090 012JU

07520

BLC

curC2

01530

RCTY

01022 34 00000 00102

07540

RCTY

07034 34 00000

rc

0272~

06974 46 07090 01ZJO

07010 46 07158

OO~JO

OOlJ~

o

•

07550

WATY

07560

~C

01570

H

07580

Al

tHITe

0{046 39 07843

TY

01073 48 00000 OOOJl
'~b\[J

07082 49 03424 00000

075CJO OUTC

SM

1C Me + 1 1 , I, I!)

07600 TCMC

C

Cl.R,lNl-'llT+160,1

07610

8E

PUTC

07090 12 07111 OOOJI
01102 24 0334') 02881
07114 46 01090 012JJ

07620

AM

~C~C+l1,2,lO

07630

TDM

TCMC+ll,O,6

07640

DC

1, ', ..

0{126 11 07113 OOO)L
OllHI

076')0

Bl

('(J1C~

rOM

LCSWololl

07610 OUTO

eM

lITSAV+2,4144,B

01150 4CJ 01110 001))

01600

BE

M~TI)CH

07690

TF

r'''JTflOt 11, Ti I",,,, "I)

017CO LPBO

A~

(Ii H\I~+

Oll~H

07182 46 07414 D12J8
011~4

11, I, 1(;

01710

A"1

.+9,1,710

C

Ll-'~nt21,H~0n~'+CJ.5

26

0726~

07812

Ol20& 11

0726~

00)11

0721Q 11 07227 000)1

07730

RH

r;lJl SWL

01740 CNT!3D

BD

LPHO,.-.

07150

TO

"(JCMI:S+'16,LP,\f)+/l

01230 24 07?27 196')
)1242 46 07446 JIIDJ

07l'54 43 07201,

07160

TO

f\OCMES+14, I l-'t1!)t20

07770

TD

~OCMfS+72,LPPD+19

017110

BTM

0126~

~:RPRIIJT,IIJOr.""fS-l

PHCFRS,l,10
B7

15 03326 JOOOI

07170 14 02893 04144

01720

07800

15 07113 JO)'J:)

07149 OOOOL

01660 DUTe2

07190

OOLO~

01G58 34 00000 00112

OO~):):)

25 07411 372/7

0727~

25 07409

)7~JO

~~

~7?l6

Of3}2

17 03744 07334

07407 J722?

0/314 11 :.13325 000)1

LPBu

0132~

07810 NCCMES OAC

40,NO eDGE PROVIDED FDR TRANSAc.rI!Y~ NLJ 711'"

D7820 NOTUCH PUT

Tt"1PC:, , ,

A lA

"'::::l)Y

49 07206 00)J)

Q"/33'> OQJtlO
07414 16 0056? 074Jl
07426 49 00532 07QHO

07830
07840

OUTS;~l

87

flD~l'J .. ,

C

CRITI,Prlt',t:R.S

~U""UVI

IF A[)I.1I'IJ RUr>J '>HOULJ PR1QUCt: dlJlPIJI

J"f438 49 176J2 OO))'j

07446

~4

02526 03321

"

!

.b

•
07850

BL

NOGO

07456 47 07506 01300

07860

C

07870

BL

CRIT3,PHCERS"CHECK CUTOFF
NOGO

07482 47 07506 01310

07470 24 02529 03325

07880

fHM

07890 NOGO

TO

GETADJ,WC+9*20,711, LINK TO 01
FLFX, PHBE::RS

07900

TO

fLFX-2, PHBERS-l

07910

TO

FLFX-4,PHBERS-2

07920

TO

FlF2,PHCERS

07542 25 07771 03325

07930

TO

FLF2-2, PHCERS-l

07554 25 07769 03324

07494 17 02618 02482
07506 25 07725 03322

07530 25 07721 03320

07940

TO

FLf2-4, PHCERS-2

07566 25 07767 03323

07950
07960

RCTY
WAT'f

NQMMS

0/590

07970 BONN
07980

BO

~ONCAl,LCSW

BNC1

~QNCAl",

07990

B~F

*+24,PRSW

08000

K

,971

07638 34 00000 00971

08010

BTM

GETADJ,WC+6*20

07650 17 02618 02422

08020
08030 NUMMS

BTM
DAC

GETADJ,WC+7*20,711,LINK TO
£~,ERROR CUT-OFF --

08040 FLFX

DSAC

3,777

08050

DAt
OSAC
OAC

20, L~NGUAGE
3,777

08060 fLF2
08070

07578 34 00000 00102
39 07675 001~O

07602 43 00796 03326

***. SWITCH 1 ON FOR BATCH RUN **.

01614 47 00796 00100
07626 44 07650 02522

~RRORS

18, REFERENCE

~

"

"

E~RORS'

08080 TOSWAD DSA

07662 17 02618 02442
07675 00046
07725 00006
07727 00040
07771 00006
07773 00036

01812 00005 00000

08090 XP.EFC

DSAC

4,XKEF

07821 OOOOB

08100 TITLC

DSAC

5,TITLE
5,ADMIN

07831 00010

08110 ADM INC DSAC
08120 NTITC

DAC

19,TITLE CARO MISSING'"ACCORDING TO MCCOY

07843 00038

08130 TEMPC

DO

07841 00010

,I-/C+20",A

07880 00002 22
07tl82 00005 02322
01887 00001 '

08140 fCRTHC TO
08150
TO
08160
TD
08170
SF

U.I-2

07924 37 08233 OOOO)

Otl180
08190

SM
TF

CNT,l,lO
TD~TR+ 11, TOSWAD

07936 12 08235 00011
07948 26 08283 }T812

08210

TfM

08220

TFM

CCUl, INPur"?2"
(M(+11,INI'UT+2?

08200

CNT,INPUT+20
CNT-l,INPUT+18

0/900 25 08234 02739

(Nl-2,INPUT+16

01912 25 08233 02731

07888 25 OH235

iD;',TR+ll,UJT

0/~60

SET POINTER UN XREf

~2/~1

21 08283 08235

07972 16 08091

027~3

01984 16 OR175 02743
07996 26 08495 19644

ORno

TF

AGOGO+II,HEnDSA+R*~

08240

"1M

CNT,5,lO

08008 13

08250

A

flGJGO+l1,9,)

0~020

08260

SM

AGUGfJ+ll,5,10

Od032 12 08495 00005

08270 /';ULAB

AM

CMC+ll,8.l0

Otl044 11 08175 00008

OR2BO

THI

OK056 16 08134 093)H

OH23~

00005

21 08495 00099

09290

TF

LA"'+6,CLAGL-6
CL:.BL,CLR+h

08300 Bl <,IJP

C

':ClERO,*-*

Od080 24

08310 CCOL

OS

,*

OHon onoo:}

08320

BE

OHOS8 26 09404 03151
OHll~

OOOOj

CMC-l2

OBO~2

08330
TF'"
08340 CCl ERO 0<;

(A"1+11,0,10

,*

08104 16 08139 OOJOO
Obl15 00000

08350
Ofl3('0 C"M

"
AM

CAM+ll,CCOl,lJ

ORl16 21 08139 08091

Ofl370

AM

CAM+6,2,IO

0 NSLAL

Tn'

:.liflAr, (l

OU858 16

08900

DC

1, , , "

OlJH69

11 08117 00003

Oqi6~

Q~057

OOOJ~

00000

00001

08910*
OBJECT DECODING LO'JP

08920*
08930*

•

0894U TBNR

10

Af..1uZ+!l,a-*

OMP7) 25 09089

OODJ~

08950

RNF

~Dn,AMH2+11

ObbS2 44 1H926

OYOD~

08960

CF

1,11.I2 q

08970

TD~

cn~

08980

B7

*+20

OH91f1 49 OP938

08990 AOO

TDM

CL ~ 1, 1

0~Y2~

1

I,?

OHH94 31 09JR9 00JOJ
0~9D6

15 09367 00002
OOJJ~

15 09367 00001

09000

AM

TeNR + 11, '>,10)

OH938 11

09010

8NR

~CRYET,TBN~+11,11

0~950

09020

B7

OH8~1

OODJ~

45 1817J

~H9HJ

("C E~JD

OH962 49 GB2R4 aODDJ

09030 MORYET BNR

.. OMAMf,AMB2+11

Od970 45

U~046

090"9

09040

BNG

C I SAMT, AM'12+ 11

0"982 5S

~9014

090B9

09050

TOM

AMH2+11,·· ..

Od~~4

09060 l ITS

OS

,*

0900'> 00000

15 09089 DoOJ)

'13

09070

*+20

09006 49 09026 OOJOO

09080 OISAMT TO

B1

AMB2+11,LITS-1

09014 25 09089 090)4

0'}090

BO

SOMAMT,AMB7+11

09026 43 09046

09100

137

SOMAMT+24

09038 49 09010 OODDJ

09110 SOMAMT CM

A1IB?+11, *-*

09046 14 09089 OOJOD

09120 NOAMTS OS

,*

09D~~

011)~

09130

BNH

AMB2

09058 41 09078

09140

137

NXT

09010 49 09378 00000

09150 AMB2

MM

*+9,L*100,710

09018 13 09081 00700

09160

BNZ

f\UMAMT

09090 47 09134 01200

09170

TO

AMB2+11,LITS-2

09102 25 09089 090)3

09180

CF

A"132+11

09114 33 09089 00000

09190

B7

CISAMT+12

09126 49 09026 00000

09200 NUMAMT TF

CO+ 11, TFNO+ 11

09134 26 09311 08771

09210

A

CO+ll,99

09146 21 09371 00099

092 20

TF

CO+6,TBNR+1l,11

09158 26 09372 08881

09230

::M

COfo6,L,lO

09170 14 09312 00007

09240

BH

CO

09182 46 09366 01100

09~50

BNR

SLOKe,SUBAD

09194 45 09354 0936,

09260

TO

SLMES+76,CNT

09206 25 09351 08235

09270

TO

~LMES+74,CNT-l

09218 25 09349 08234

09280

TO

SLMES+12,CNT-2

09230 25 09347 08233

09290

BTM

ERPRNT,SLMES-1

09242 17 03744 092/4

09300

AM

PHCERS, 1, 10

09254 11 03325 00001

093)0

B1

NXT

OAC

40,SUBLEOGER USE0 ERRONEOUSLY,

09330 SLOKC

AM

r:O+6,*-*

09354 11 09312 00000

,*

09365 00000

09320

SL~[S

09266 49 09378 0001)
fRAN NO 117'

09215

oooao

09340 SUSAD

OS

0':1350 DO

A

09360 NXT

A1-1

T ~~! R+ 1 1 .1 01 0

09378 11 OH8B1 00001

09310

B1

TBNR

09390 49 08810 OOOOJ

09380 CLABL

OS

09366 21 00000 00000

c

094880*

OUfPUT LEDGERS

09590*
09600***************··*********************************************** •••• *

09610

rJORG

I

ABCHK

06')'38

'bSNtWf""»W'W¥

•

";.\!iw' 'N

iW"tN'iI,w"w.n!!:',,"w

"'Itt

rri.'.·,.,.....tnH

wsrw

L!

"ILl

't I

It

'raM

It

ttl

, f!t$'b(±""fS±t it trlrlttlfd'#

f

'lfm,.,

09620 EDIT

TF

ED ITA, EOI TF"

09630

TF

EOCM+6,EDIT-l

06950 26 07084 06937

09640

BNF

H20,EI)CM+6,11

06962 44 06982

09650

B7

*+32

06974 49 07006 00000
06982 26 07371 03347

CHAN.(iE Q TO EDI TE l4 HR

00938 26 07371 07311
070~4

09660

TF

EOITA,ClR+Z

09670

CF

t:o IT A-3

06994 33 07308 00000

0'

eL L I N- 1 t 1, 10

0(410 12 07373 00011

10000

BP

BLLlN+12

01422 46

10010

BS2

0252~

01398 49 0)532 03327
~73R6

01110

07434 42 00000 OOOOJ

cr:+ 7, -JOO

01416 38 02719

10030

SM

BLl I (.j- L, 1, 10

0/448

10040

6P

K71

07460 46 07436 011)8

10050

tHI2

0(472 42

10060

OS

O(471:l 0000')

10020 K7L

OO~)O

12 07313 00001
O~:JOO

OOJ):';

10070 HEOLI N BO

K61,PRSW,7

0748) 43 07536 02522

10080

TF

OUTPUT+IL2,HEDLli-1,li

07492 26 03175 :J747)

10090

PUT

CPUNCH

07,04 16 00565 07527

10100

B1

CR:'

07~28

10LlO K61

TF

Ll, 1 P IJ Ttl 3 f, , Hf Li l I '~~ 1 , 1 1

07536 26 03201 07479

10120

PUT

PRINT

0/516 44 on,32 03335
49 07780

0(548 16 0)565

OOOJ~

~7~71

01560 49 00532 )33)4

•

10130

87

CRS

07572 49 07780 ODD:);)

10140 T ITlO

HO

K51,PRS~'

0158) 43 07708 02522

10150

TR

CUT~UT-l,TITS.V-l

07592 31 01062 02890

10160

TFM

TRSC+l1,~()"''''f~'

0(6)4 16 07639

10170

AM

TRSC+l1,2,lO

Olblb 11 07639 00:J02

010.1

10L80 TRSC

liNR

*-12,*-*

01628 45 07616

101'10

TFM

*-l,Q,t>lO

01640 16 0763 00066

L,Q

OB172 00a07

10530 ARTOT2 DC

1..0

Ob I 79 000r)7

10540 ART on DC

L ,0

Odld6 00007

10550 ARTOT4 DC

L,a

10560 TOTARS OSAC
10570 ARTH
DSAC

lI,TUTALS

105HO GLlOOP TF

OtJ2LJ4

INCOME STATEMENT

13,ACCnU~TS

O~llLJ3

q~CEIVAdLE

00007

Ofl21'> OOCl27

$,

TRIAL

BALAN~~

Oti2BI 00066

10590

TF

GLBNF+11,*-"
[;UTPtJT+b,(;LfJ,\JF+l1,11

10600

AM

GLdNF+l1,l,lO

08306 11 OtJ377

10610

GLBNF+ 11, , (,

OH318 32 OR377 00000
OH330 26 O~316 077(&

106~O

SF
TF
AM

10640

AM

10650 GLBNF

9NF

10620

THAfHJ+6,FLDl

CLRNF+l1,2tla
TFLABD+6, 2,10
*-24,*-*
*-1,1,10
*-*,GLBNF+!l,ll

OHZR2 26 as]77 OOJClCl
26 03069 OSlf7
OOJ~I

aHl42 11 OS377

JOOO~

OH354 11 083LJ6

oaoo~

Ob366

44

18342 00000

10660
SM
10670 HLAHD TF
10680
AM

t:DGll+6,S,lO

10690

RT

t[:!T,(DGL 1+11

OH4J2 11 08444 00)21
08414 27 06938 084~7

10700

TF

FlD2,EDITA,o

OH426 26 07981 07371

10710 EDGL 1
10720

TF
flT

*-*,*-*
UjIT,[DGL2+6

Oa43g 26 00110 0000:·
OH450 27 86}3H 085)4

10730
10740

TF
A

f-LD3,I:'DITA,o

08462 26 07986 073'1
OU474 21 08444 08'>J~

10750

EDGLl+o,EDGL2+o,611

OtJ378 12 OR377 00001
OB390 26 GJJOO 08377

AM

£DGLl+11,L,10

aR4H~

10760 EDGL2
10770 OOFL3

OtJ498 22 00000

AM

*-*,tDGLl+l1,ll
EDGL2+o,L,10

10780

8T

EDIT,EDGL2+6

11 08449 OOO)f
084~)

11 08504 ODOlf
Gij ~ 22 27 0693 HOg? h

ObS10

9')

o

t hH+HHie4'iid:wMe

..

o

107')0

TF

Fl D4 , [01 rt. , 0

08534 26 07991 07371

10800

S

EDGLl+6,EOGL2+6,611

08540 22 08444 08534

10810

AM

EDGLl+ll,l,lO

08558 11 08449 00))1

f.DGL2+6,EOGLl+11,611

08570 22 08504 08449

10820
10830 QOFL4

AT

EDlT,EDGLl+6

O"~A2

10840

TF

FLD5,EDITA,b

08594 26 07996 07371

10850

BT

LU TL IN, UU r L I N-- 1

08606 27 07806 078)5

10860

AM

f:DGLl+ll,LtlO

08618 11

10870

AM

EDGL2+6,2*L,10

08630 11 08504 00014

10880

AM

GLLOOPtll.'1,10

08642 11 08293

00)3~

10890

BNR

GLlOOP,GLLOOPtl1,l1

08654 45 18282

082~3

10900

IHM

eLlIN,4,10

08666 17 07374 000)4

27 06938 08444

0044~

000)7

10910

srM

rl:DLIN,ASTS

OH078 ,17 07480 079H

10920

AT

I-E OL IN, T I TL E S

0869) 27 07480 19086

10930

BTM

eLL IN, 1, 10

Od702 17 07374 00001

10940

ATM

HEDlIN,ARTR

08714 17 07480

10950

RTM

eLL IN, 1, 1')

08726 17 07374 00001

10960

8TM

11,:.uL IN, Aj f S

08738 17 07480 07971

10970

eTM

i~

l LIN, .2, 1 a

08750 17 07374 00002

10980

TF

*+30,FLOl

11)990

AM

*t18,20,10

OU774 11 08797. 00)20

11000

TF

*-*,hCTME2

OH/86

11010

AM

*-6,20,10

08798 11 08792 00)20

11070

TF

*-HltTIMES,6

0~~1)

11030

TF

FLD7,eEGBAL,6

08822 2b 07981

11040

TF

FLD3,TOTDA,6

088'4 26 07986 0807'

082~1

08762 26 08792 07)76
26 00000

0801~

26 OA792 1)8)){
08017

11050

TF

FLD4,TOTCR,o

08846 26 07991 08057

11060

TF

FLO;, ENDBAL, 6

08858 26 07996 08099

11070

Bl

Cld L !N,OU I L PJ-l

0~8'0

110eo

ElTM

eLLlNololO

Ob8R2 17 07374 00001

11090

TF

ARBNF+l1,HfDDSA+4.5

08894 76 09037 19624

27 07806

078J~

/IJI)

11100

SM

ARBNFtll,2,10

05406 17 09037 J0002

11110

TF

EDAR 2+0, IH::DOSA +7* 5

08918 26

11120

TF

UJAR Itl1, HEflD511+3*5

ti893) 26 09109 19~1j

11130

Tr

l 0 AR 1 t b , Lt.! J\ K? + 6

OK942 26 09104

11140

Sf-l

I:OARI+n,S-2*L,10

069~4

12 09104 JOO)I
26 39056

196~~

091~H

11150 ARLOOP TF

TFARllitA,llDl

0~966

11160

AM

IFARL(I+6,d, };)

089 fA 11 'H056 JJ)')c

11170

AM

AR tF~ F t I I , 1 , 10

OH490 11 nry037 000)1

lll80

1\1'4

TFARLR+6,2,IO

')')un

11190

AM

AflflNF+ II, ?,10

09014 11 89037 00))2

11200 ARH"lF

RNf

*-24, tI- II

0~02~

11210

5"1

AR fl;\Jf' + 11, I, In

~')018

12 09037 00111

II-",ARLl'IFtll,11

OYJ~J

26 1)80) 09)37
11 09104 )))21

11220 TfARLB Tt'

07~/6

11 (,90'>6 ),),))2
44 ')9002 1001J

11230

AM

EDARI+6, S, I')

O~06~

11240

AT

~OIT,[[)AK.ltll

04074 21 0693H 091J9

11250

TF

FL02,E.Dllh,6

')'J(j.'16

11260 I,:DARI

TF

04098 26 OClJor) ,)OJ J J
09110 21

OQ122 27 J6Y3B J91d8

26 ')7981 0731l

11270

A

*-*,*-*
AR WTl, *-1.1 1

11280

tH

t'DIT,EOAK.!+6

11290

TF

H. iB , t: D I

11300

A

aRTar2,EDA~2+~,11

(l1

0910~

11 140 OOAIO

AM

11 150

AT

EDIT,EDAR2+6

11360

TF

fLD4,EDIrA,b

0421H 26 17991 )7371

11370

h

ARTOT3,fOAR2 t o,ll

O~23J

11 ,AO

5

tDARlt6,kOAR7+6i611

01242 22 191)4 09188

0'12J6 27 06938 091%
21 08186 09186

11390

liM

CIJAR 1 + 1l,l , 1 ~

0~2~4

11

11400

S

EOAR7.(.,,~D4RI+II,6rl

Oq2~6

22 09188 091)1

0910~

)OJ){

IOJ

11410 DOAR4

BT

EDIT,EDARI+6

0927B 27 06938 091)4

11420

TF

FLD5,EDITA,6

09290 26 07996 073/1

11430

BT

CIJTl IN,OUTL IN-l

09302 27 07806

11440

A

ARTOT4,EDARl+6,11

09314 21 08193 09104

11450

AM

EDAR1+11,l,10

09326 11 09109 00007

11460

AM

EDAR2+6,2*L t lO

0933B 11 091B8 00014

11470

ANR

ARLOOP,EDAR1+11,11

09350 45 OB966 09109

078)~

11480

BT'"

BlLIN t 2,10

09362 17 07374 000D2

11490

TF

*+30,FLD1

09374 26 09404 07976

11500

AM

*+18,68,10

09386 11 09404 00068

11510

TF

*-*,TOTARS

0939B 26 00000 OB215

11520

BTM

ED IT, ARrOTl

09410 17 0693B OB172

11530

TF !
BTM

FlD2,EDITA,6

09422 26 07981 07371

11540

EDIT,ARTOT2

09434 17 06938 081/9

11550

TF

FlD3 t EDITA,6

09446 26 07986 07171

11560

BT'"

EQIT,ARTOT3

09458 17

11570

TF

Ft 04,EDITA,6

09470 26 07991 07371

06~38

08186
081~3

11580

AT~

l:DIT,ARTOT4

09482 17 06938

11590

TF

FLD5,EDITA,6

09494 26 07996 07371

11600

BT

OUTLIN,OUTLI"l-l

09506 27 07806 07BD5

11610

BT

T

I TlO, T I TL 0-1

09518 27 07580 07579

11620

FH~

I-'!CDLrN,I'ISTS

09530 17 074BO 07971

11630

BT

HEOllN,TlTLES

09542 27 07480 19680

116',0

BTM

RLLIN, 1, 10

09554 17 07374 00)31

11650

BT",

hEDL Cl, INCSTA

09566 17 07480

11660

BT'"

"lLLIN,l,lO

09578 17 07374 00))1

11670

BT

~f.OLIN,TITLES+2*5

09590 27 07480

11680

BT~

H:DL IN,ASTS

09602 17 07480 07971

11690

RTM

GETADJ,WC+I0*20,711

09614 17 02618 025Jl

11700 GLOUT

Tf

GLLOOP+l1,HEDDSA+5*5

09626 26 08293 19629

11710

TF

EOGL2+6,HEODSA+6*5

0~638

26 08504

081~?

19~96

19~34

11720

IF

EOGL1+11,HEODSA+2*5

0965) 26 08449

no

TF

F.OGLl+6,EDGL2+6

09662 26 08444 085)4

11740

SM

EOGLl+6,S-2*L,lO

09674 12

11750

fiT

TIT L 0 , T I TL 0- 1

0~686

lL

OA4~4

19~14

00001

27 07581 075'9

11760

13TM

hEOlIN,ASTS

09698 17 074BO

07~71

11770

BT

hEDL IN, l 1 fLE::'

09'10 27 07480

19~86

11780

ATM

flLLlN,ltlQ

09722 17 07374 00001

11790

f1T",

I"EDLIN,GLrOG

09734 17 07480

111300

BTM

BLLIN,I,10

0974~

099q~

17 07314 )0031

11810

fiT

rEDLIN,TITLESI5

09758 27 07480

11820

[lTM

hEOLIN,ASTS

0977) 17 07480 07971

1<)~91

11830

fin

BLL Pl, 2, I.)

09782 17 07374 00)32

11840

TF

UUTPlJT+6,IICfMES

09794 26 03069 09933

11850

TF

*+30,FL01

09806. 26 09836

079'~

11860

AM

*+18,40,10

09~lB

11 09836

OO)~O

11870

TF

*-*,TIMES

09830 16 00000 OeO)(

11880

fF

FL02 , 9 E Gd A L , I,

0~H42

11890

FLD3,TOTOH,o

09d54 26 07986 08077

11900

TF
TF

FL04,TOTCR,o

09b66 26 07991 08)57

11910

TF

Fl05,ENOUAL,6

09878 26 07996 OB)99

11920

BT

OUTL IN,OUfL iN-l

09H90 27 07806

11<)10

f3H'

6LLI~,1,10

09902

11940

elM

GETADJ,WC+4*20,711

09914 17 02618 02382

11950 ACTMES

nstc

4,ACCT

09933 00008

11960 GLEDG

OSAC

33,

11970 CITCD

~~I

NOPRD,PRSW

10000 44 10072 02522

11980

TF~

flCl.OUTPUT+16

10012 16 07976 03079

11990

T~M

FL02,OUTPUT+116

10024 16 07981 03179

12000

TFM

FL03, OUT PlH+ 146

10036 16 07986 032)9

12010

TH'

FL04,OUTPUT+176

10048 16 07991

12020

TFI-1

FLD'5,OUTPUT+206

10060 16 07996 0326)

GENERAL LEDGER

26 07981 08031

07HD~

1107374 00001

0'1999 00Cl66

~3231

/03

t tt tt

...

0

1

12030 NOPRD

TFM

WC+4.20+16,GLLOOP

10072 16

12040

TFM

WC+18,GLOUT

10084 16 02320 J9~26

12050

TF~

NUAD,EOlT

10096 16 02565 06938

12060

TFM

"C+l~,EOIT

10108 16 02315 06938

12070

TF

WC+8,DI0SA-2

10120 26 02310 10188

12080

BT

PUTADJ,PUTAPJ-l

12090

TRA

024~0

082~?

10132 21 02530 02529
10144 16 00565 10163
10156 49 00716 OOO?O
1016~

00002 22

10165 00005 10111
10170 00001 •
10171 00006 119783
101H

oooen

003

10180 00006 00000'
12100 DIDSA

DSA

CITCD-EIJITt-IQO

10190

12110

TCC

C1 reo

10000

12120 ENDD1

OS

,GLOlJT-l

12130 ••••••••••••••••••••••••••••••••••••••••••••••••

*•••• * •••••••••••••••

0~625

OOO~5

03162

00000

12140.
12150.

t'HAsr: D2

12160·

OUTPUT INCUMt STATEMENT
~~D

RALANCE SHEET

L2170·
12180 ••••••••••••••••••••••••• * •••••••• * ••••••••••••••••••••••••••••••••••
12190

o

TIMES-l

Ot006

12200 BEGND2 ATM

OORG

GE'TAOJ,WC+2·20

08006 17 02618 02342

12210

TH,

fCIT-tll,[OITl

OB018 16 06949

12220

rF

EDlSt-l1,HEDns~+~

oe030 26 08149 19009

073~1

12230

TF

TFMD2+ 11, FLO 1

08042 26

12240

AM

TFMD2+Ll,20,lG

08054 11 OR221 00020

12750

TF

I SANH 11, HFODS 1\

OH066 26 08125

122M

SM

IS I:lN H LI , ? I 10

O~078

12270 ISLOOP AM

ISBNF+l1,3,10

08090 11

12280

ISB~F+ll,2,10

08102 11 08125 OOOJ2

AM

O~221

07~76

19~J4

12 08125000)2

OS12~

00013

12290 ISBNF

BNF

.-12,*-.

Odl14 44 08102 00000

12300

SM

.-I,t, La

.Od126 12 08125 OOOJI

12310 EDIS

TF

12320

TF

" 12330
12340

08150 26 08245 08125

S~'

TFLAIStll,2,t0

08162 12 08245 000)2

TFM

MMiS+l1,f4,10

08174 16 OH257 00079

MM 1 S + 11, 1 SHNF" 11, 11

OHI86 22 08257

OHI2~

ISt\rJF+ll,2,10

08198 11

0~125

00002

THI

.rLBIS+6,tI-*

OU210 16 08240 OOOD]

A

TFLHISt6,ISB~Ftll,11

12350
12360
12~70

AM
TFM02

12380

Otl138 26 08583 00001)
TFLBIS+ll,ISB'H-tll

1 2390 TH B ISH

*- .. , ,. - ,.

12400 MMIS

~M

OH222 21 08240

O~125

Ob734 26 n0000 000»

,"9,')00,110

Od246 13 08255 n05JJ

TFM

1587+6, ISI3TAI\, 111

0"258 16 OH288 1H213

12420

S

I~R7+~,'Jc)

08270 2? 08288

124;30 ISB7

87

12410

12440 ISBTAA OSA

UOJ~~

06282 49 0000) JOJJJ
08293 00005

1~540

08298

090)0

OOJO~

OH303 00005 08968
OU308 00005 08900
08313 00005 08808
Ou318 00005

•

0811~

O~323

J0005 08&72

0832H

OOOO~

08~&O

08333 00005

0862~

oa3lH 00J05 n860H
12450

OSA

OU343 00005 09056
8H348 on005

)~112

Ou353 00005 OQ132
OU1SH 00005

0~152

loJ

•
OH363 00005 09208
083A8 00005 09228
08313 00005 09248
08378 00005 09268
08388 DODOS 08434
12460

DSA

KR,KQ,KP,KO,KN,KM,KL,KK,KJ

08393 00005 09288
08398 00005 09308
08403 00005 09328
08408 00005 09348
08413 00005 09168
08418 00005 0')424
08423 00005 09528
08428 00005 09670
08433 00005

09~26

12410*
12480*

THIS IS

Y~S,

12490*

01- OUTPUT

TH~

PLACE WHERE ONE CAN ADD ADDRESSES
ru THf' AEl:JVE SET

RlJUTI'~ES

12500*
12510 KElAD

RCTY

12520

WAn

KPAOMS

I<'S30

CALL

l'XIT

08434 34 00000 001J2
08446 39 OH467 001 en
'08458 49 00796 OOOOJ

12540 KElAUMS DAC

)1,liM) GIJII'tlT CUOE

12550 K9

S

f.2T,[f)IH),ll

12560

B7

12510 K2

A

li~

1.5., B.S. LAuEI S'

08461 00374
08~40

22 10619

085~3

OHS52 49 OA572

OO~J~

C7T,EDITQ,11

08560 21 10619 OSSH3
0!:lS83 0')00:)

12580

RTM

12S90 EOTTO

OS

12600

TF

1<'610 ADV

AM

,*
FLD3,EDI fA,6
£0IS+l1,5.10

12620 KO

BT

OlJTLIN,llUTLIN-l

08608 27 07H16 DIA);

12630

H7

ISUliJP

OH62J 49 OR090 OOOJO

12640 KI

OH572 17 0093H 000)0
08SA4 26 07986 07371
OH596 11 08149 000)5

C1T,EDIH.),l1

OHA?B 21 11612

AT

ED IT, f [) I TQ.

OU64J 27 OA938 085K3

12660

TF

HD2,ICDI TII,h

Oe6~2

12610

A7

ADV

Ob664 49 OR596 00000

C3T,EDIT(J,I1

08672 21 10626

OR59~

EDIT,EDITQ

OHhB4 71 OA938

08~~3

12050

12680 K3
12690

AT

0853~

76 07991 D7l71

12100

TF

FL04,fOITA,h

0~696

12110

'17

flr)'./

OM70R 49 08596 000,)0

12120 K4

C1T,F:DITw,l1

OH716 21 10612 08593

12130

fPTT,FDITO

OH72~

08140 26 079Al )7371

2A 07991 07371

27 06938

OB~H3

12140

TF

flD2,EOITfI,6

127"0

RTM

[OTT,Clf

0~{S2

12760

TF

I'LD~~,EDrrA,6

08764 26 )7986 07371

12170

A

C2T, CIT

16776 21 10619 10612

12780

TF

Clf,C2lERlJ

O~7He

12790

fH

ADV

OHROJ 49 08596 00001

12800 KS

17

0~93B

10612

26 In612 10640

C2T,EDITWtll

08HOR 21 10619 08583

12A10

BT

EOIT,i:DlhJ

OHUZ) 27 06938

1<'820

TF

FLD3,EOlTA,6

OB83? 76 07986 073{1

12830

ATM

EOIT,Cn

OHH44 17 06918 1061y

12840

rF

f'L 04,

12fl50

A

CH,C2T

ORHoR 21

12860

TF

C2T,C.?lERO

0~J8J

12870

87

ADV

OH892 49

12880 K6

fHM

cDIT,Cn

Ou~OO

12H90

TF

FLD4,EDITA,A

Doq12 26 07991 07371

to I I A, h

OB5~~

08HS6 26 07991 071{1
10626 1061)

26 10619
OH~96

10G~J

OOJOl

17 06938 106/6

129CO

ft

*+ .hJ, ~

12910

SM

*+18,22,10

06936 12 08954 00022
08948 lh 00000

OOJl~

4ry 08608

)OJJ~

17'120

TP"

*- *,

12')30

87

KO

l n4

1, ,

l(j

D~9?4

~~~bJ

26

OR9~4

01991

107

c

12940 K7

BTM

EOIT.C2T

08968 17 0693B 10619

12950

TF

flD3,EDITA,6

08960 26 07986 07371
08992 49 08608 00000

12960

~7

KO

12'H0 K8

BTM

EDIT,C2f

09000 17 06938 10619

12980

TF

fl 04 , ED I TA , 6

09012 26 07991 07371
09024 21 10626 10619

12990

A

CH,C2T

13000

TF

Cn,C2ZERO

09036 26 10619 10640

13010

B7

KO

09048 49 08608

13020 Kl

TFt-'

*+23,STORl

09056 16 09079 10647

13030

BH1

EDIT,*-*

09068 17 06938

13040

TF

HD2,EDITA.6

09080 26 07981 07371

13050

A

ClT,Kl+23,1l

09092 21 10612 09019

1.l060

B7

KO

09104 49 08608 00000

13070 KY

TFM

Kl+23,STOR.2

OYll2 16 09079 10654

13080

B7

Kl+12

09124 49 09068 00008

oooao
OOO~O

13090 KX

TFM

Kl+23,STOR3

09132 16 09079 106Sl

13100

67

1<;:+12

09144 49 09068 00000

13110 KW

TH'

*+23, S TOR 1

09152 16 09175

13120

BTM

EDIT,*-*

09164 17 06938 OO)JJ

13DO

TF

flD3,EDITA,6

0917b 26 07986 073fl

13140

A

09188 21 10619

11150

87

1..2T,KW+23.11
KO

09200 49 OA608 OOOJr)

10~47

091/~

13160 KV

TF,..

KW+23,STUR2

09208 16

0911~

106~4

13110

B7

1<1'1+12

09220 49 09164

aoooo

13180 KU

TFtJ.

1\101+23, STI]IO

09228 16 09175 10661

13190

87

KW+12

09240 49 09164 00000
09248 26 10647 10626

132CO I

O~496

27 07480 19/Jl

09508 17 07480 079(1

13450

Rl

KN

09520 49 09368 OOJO)

13460 Kl

RT

Tlll0,TIlLi]-1

OY528 27 07580

07~19

13470

Bf,..

HLll"J,l,lO

0~540

OOJ~1

13480

B7

KN

13490 RAlSH

DSAC

33,

13500 KJ

TF

Fl04,ASTS-66+22,6

09552 49 09368 OOOOJ
IHILA"JCf

13510

TFI-'

Fl~)4.0,610

13520

Sf

t.:liIL

13510

17 07374

Ii~,O\Jll

fN-l

/<'UJIJP

13540 K"

Tf

fLD4,ASfS-0h+??,6

13550

TI-"

.. t

4.0. () 11

11

SHteT

09625 0(')066
04626 26 07991 07927
O~638

16 07991 OOJJJ

~~650

27 0'806

11eJ~

09662 49 JRJ90 0000)
O~67J

26 J7q91 JT9?!

~96H2

16 07Q91 OOOOJ

•
13560

AT

UUTL IN,OUTLIN-l

13570

AM

I-ECLlN+ 18, 8,10

09706 11 07498 00008

13580

AM

K61+6,8.10

09718 11 07542 00008

13590

AH

dLLIN ,4,10

09730 17 07374 00004

13600

A

C3T,STOR3

09694 27 07806 07805

13610

ATM

rOlf ,C3T

09754 17 06938 10626

13620

CM

C3T,O

09766 14 10626 00000

13630

8E

!:lINGO

09778 46 09858 01200

13640

A

GOOF, ED I TA

09790 21 10477 07371

13(,50

8TM

.'[DL IN,GOOF

09802 17 07480 10477

13660

TF

COOF,ASTS

09814 26 10477 07971

13670

TF

GOOF-16,ASTS

09826 26 10461

13680

BTM

I-Ef1L

13690
13700 BINGO

07~71

IN. GOOF

09838 17 07480 10477

87

SEER

09b50 49 09894 00000

8TM

I-EDLIN,BING

09858 17 07480 10605
09870 26 10569

1371f)

TF

I: ! f'II G- 36,

13720

BTM

!-EDLIN.RING

09882 17 07480 10605

13730 SEER

0:

Pf 4 BERS.O,210

09894 14 03322 000)0

13740

RN!'

ClJPJOT

09906 47 09962 01200

13750

AM

SctR+o, 3.10

09918 11 09900 00003

13760

CM

SI:I::Rt6,PHC[RS

09930 14 09900 033?5

13770

ANH

SUR

09942 47 09894 01100

I-ILLDON

09954 49 10010 OOJOJ

~

<, T S - 5 h

07~15

13780

B7

13790 OUfNOT

Af~

138CO

TF

CIJ(lF,ASiS

13AI0

TF

COOF-lh,ASTS

0~9B6

13820

AT~

H: Ill! N. GOnF

09998 17 07480 10477

1 ~8 30 All UON AD

*+44,PRSW

10010 43 10054 02522

I~A40

TF~

('LJTPUT.33,10

10022 16 03063 00033

13850

AT

nUTLIN.OUTLPJ-l

10034 27 07806 07805

13860

B7

13870

K

.Ht

10J54 34

13880

Tr

lP,)X-4.EOlfA

10066 26 10279 07371

rY,PHRER.S

10078 25 10291 0332?

09962 17 07480 10559
09<)74 26 10471 07971
26 In461

07~11

10046 49 10066 00000

onooo

00971

1~890

TO

f!

13900

TO

fLFY-2.PHAERS-l

10090 25 11289 03321

13<) 10

TO

FI FY-4.rHR[RS··2

10102 25 10287 03320

13920

TD

fl Y ,"He[1{ S

1 ,) 1 14' 2'i 1033 '> ') 3J? ')

13930

TD

FLY-2.PHC!'RS-I

10126

13<)40

F~Y-4,PHCERS-2

10138 25 10331 03323

13<)50

TO
ROY

13960

WATY

~ONNS

13970

ANe 1

r-'ONCAl

1 )980

,'UNCH,LCS""

139YO

BD
EIT·

crTI\r:J,wr.+A*?O

10198 1702618 0242/

14000

fHM

CfTADJ,WC+7*20,711, LINK TO B

10210 17 07618 02447

2~

10333 033?4

10150 34 0000) 001)?
lU162 ]<) 1022] )0100
IJ174 47

THIS

~1UST

fiE

SET

SUMf'Wt1t::'~[

Yi:f

O~79b

00100

10186 43 01796 0332h

14010 MONNS

DAC

lr,~AL.

14020 TBOX

DC

28,2300

14030 FLF Y

DSAC

4.

14040 flY

DSAC

22.

14050

GAC

18, REFERENCE [RRORS'

103~7

14060 O(lG

fHr-'

CF.TA[lJ.WCtl-, .. 2Q

10372 17 0261H 02427.

SHfET ERROR

1<>223

1))14

1,)2fJ3 00J2i!

777

1)291 OOOOfl

LA~GUAGE

ERRORS

777

IGB5 00044
0001(,

14070

iHM

GETAOJ.WC+7*20.711

14080 GOOF

DSAC

41.YOU GOOFEO, OUT OF

14090 NOT!:

DSAC

41,

141CO BING

DSAC

n, BINGO

10615 JDJ46

14110 Cll

DC

L,a

1'~'hI2

00):17

cn

DC

l.O

l!J61 q

Qr)O')7

14130 C3T

DC

L.a

1 :1 h;c I> 0 \l J :) 7

14140 C4T

14120

~ur

;'·I[,r£

lU3R4 17 0761H 02442
BALANC~

PI{LlGj'.lr~"'I'"'J(;

BY

lll.RClPS ABOVE

10471 OOOR2
105')9 OGOg?

DC

l,O

IJld3 ')")) J1

14150 n2ZERO DC

L.O

1('640 :)O:1Jl

14160 S TOR 1

DC

I .•

0

l:i647 00001

14170 STOl{2

DC

1..0

1 (;654 1)00:)7

II,

!

ttt*H##'i±'#" ,

bt

,n

'IhltIHN

14180 STDR3
14190 OZTCO
14200

0

1

,If

DC

L,O

TFM

WC+1A,BEGND2

10661 00007
10662 16 02320 OB»6
10674 16 01315 ()80:>6

TFtoI

WC+13,KEGND2

14210
14220

TFM

NUAO,BI:'GN02
WC+8,D2DSA-2

14230
14240
14250

BlC
BT
87

*+12
PlJIADJ,PUTAOJ-1
DOG

14260 020SA
14270 ENOD2
14280

OSA

C2TCO-BEGND2+100

OS·
DENO

,C2TCD-l

10661 0000:>

C2TCO

10662

TF

10686 16 02565 08:>J6
10698 26 02310 107lt3
10rl:) 46 10722 009)Q
10722 27 02530 0252<)
10734- 49 10372 00:.l:.l0
10745 00005 02756

III

Uf\Jf')FFfNEO

A

.*.

OO',lOWC!)[)

DO

J'5l3'1H!.1PC OD

,WC",A,
,wC+20",A

WI SAL will UPQATE TO

WJ~K

CYll~DE~S

ITSELF

04320AClAB C

11950llCTMtSOSAC

04290 I 51. AB TFM

ACl~tI+11trNPUT+14"CULLtC'

04360
043flO
043'l0
04400

til

AMR+ll,AClA8+11,11
1\:; lAB + II tl , 10
A:lAR+ll,lNPUT+2?
AClAll

TF

UUTPln +6, AC TME S

II
11'"1

CM

•

llFT-JU~JIFYl~~

lAK~l

~,A(CT

l0460AC1ME2DSAC b,ACT NU,

03950AO

•

08990AOO

OOYlOAOJF

110:)1)

TF

04640

TF

AO,ll\iSAll

08950

aNt'

MlD,AMf-I2+11

OS,\

TOM

O~

OO+l,l

,.
OOr.;uO

ADJF

,f\lUA[)

II ~

00810
all ,),J
01310
01320
01370
01390

S
TF

A
A
A
TF

ADJF,WC+13
S"'7+11 ,ADJF"
HEDDSA,ADJf"
HEDDSA+5,ADJF
HEDDSR,ADJF"
*+35,ADJF

Gi.:.uv

Tfri

AIJJt",U

01410
01460
01470
01480
01490
015ROUPS2
01620

SM
A
A
A
A
A
A

ADJF,*-*
HEDDSA+2*5,ADJF
HEDDSA+3*5,ADJF"
HEODSA+4*5,ADJF"
HEODSA+5*5,ADJF
S?+11,ADJF,6
HEDDSA+8*5,ADJF

03990

C

ADMIN,INPUT+8

07500

C

ADMINC,INPUT+8

026'\0

C

INPUT+A,AUMNA2

SAVE UPDATABLE BLOCK ADJUSTMENT
FOR PHASE D2 USE
.~

TO SAVE ADJUSTED START JF

I

"t"\....p

lJPDA TE HEADER DSA-S
FOR PHASE: 01 USE

04280ADMIN DSAC 5,ACMIN

08110hOMINCOSAC 5,AOMIN

02710ADMNA2DSAC 5,ACMIN

07120AOREG DC

5,')
05970DfH-:m fF",
05990CRFNlJ fFM
0f,920

12610AOV

filA

ADREG,a
Af)~I-:G,L

IF

OBJAD, AfJREG

A7

AOV

:-[1IS"ll ,5, 10
1,,'1.• /0

11'1
12710

12790
12tl70

01}640AGOGO TF

fFN()+II,*-*.,

[37
B7

:n

fiLL

AJ1V

flOV
ADV

I~

FROM HEODSA+8*5

03230
If
08250
A
08260
S~
08430
AM
OR'l4MJnSK r PRIllf-

AGOGO+11,99
AGOGO+11,5,lO
AGOGU+ll,'i,lO

Ofl&"/O

AGOGO+24,AGOGO+35,11

1lNP.

A~OGO+11,H[DOSA+8*5

A~OGO-12,TDMTR+ll,ll

08690
R"lR
')'lnOHAvI I AM
OA7AO
TDM
08-,q~
AM
08800
TF

AGOGO+35,1,lO
AGOGO+35,1,611
AGOGO+ 35,5,1 0
TBNR+ll,AGOG[)+35,ll,An

137RI)

87

ALLDON

05000
05200fDrWM
05210
06811)
06830

fFM
fD
CM

TI)"lUM+6,ALI'HA:\J-6,. THIS AINf NO NJMt:RIC
ALPHAN-6,COL,ll, NO
*-6,l\lPHAN"
HAV[ wt: 4 "JUM[I~,ICS
lDNUM+6,hlPHA'J-6
AU'HAN, *-*

A~nGO+24,AGO~O+35,ll

(Jf-

STAPf OF

fl.iJlJTI~,l-

13C30ALl[)m:8D

07('QOhLPHANDSAC 4,7777

04370AM8

Al1

IFM

C

"'-*,*-*
04H')
04BO

043'.0
04350
04360

TFM
BE
AM
TFI'"

A

AMB+6,HOLAB-8
AM~+12

AMA+6,2,10
AMB+ 11 ,0 tl 0
AMR+ll,ACLAR+ll,ll
I' ~-

(0

~jIV.

06930AMBA

AM
06800
06840

091'SOAMB2

TF
BE
0!1B60
AM
06910CSFNO TFI-I

AMBA+11,HEOOSA+6*5
M-1BA-12
AMRA+11,5,10,
5 LIKl l"l

AMB2+11,*-*
AOO,AMB2+11
AMR2+11
SflMAMT,AMB2+11
OISAMT,AMH2+U
AMB2+11,*-*
AMB2+11,LlTS-l
snMAMT,AMB2+11
AMA2+11,*-*
AMA2
AMR2+11,LITS-2
A"'82+11

SHE[PSH~AO

Ar~BA+ll,O

MM
08940TSNR

TO

OA950

BNF

08960

CF

(l90 30r-l0R YF. TB"lR

09040
BN"
09050
TOM
090800 (SAMUD
09090
BD
09110S0MAMTCM
09130
BNH
0917(1
TO
OqUiO
CF

06f30AMDSA OSA

-AMTSw,HOSW,-DCSW
06620

06750AMDSA20SA

LGCAND,AMOSA

BTM

lGCANO.AMDSA2

-OB~w,-SGSW,-SGSW2

OMOO

06590AMFND BO

HTM

UPCOL6,CDVSW
05640AMT

c

-------------------07160AMMES OAC

--------------------------------------------~----------------~---~----------iii--

19,IMPROPER STATEMENT'
06640
8TM
011KOOKMES OS
0111QRAnOC OS

05640AMT

DVLC ,Z.'.1,2,'i4,;>.-63,S,MINllS+2,2,99,5,AMFND
,')5,HO
')') f,90C" SH

06770AMTN

ERPRNT,AMMES-l
,hMMfS
,AMMES

TO

INST,UlL, II,

tHM
SCMl,I\Mf
D VI. C ,2,4"3, Z, - I t 1 , '> , CI{t::

f)

I T +",2, ... ~; 2,') • AM T + Z. 2.

AMTN.AMTSW"

15 THIS LIKE AMf N

-------------------------------------------------------------"-~--~~--.---------

1,n,.

t\'),f

051'10

LAST FLJUND,
AD

l), V 11'T

llK C,

A~TN,AMTS~.,

IS THIS

LfK~

-D[SW.-OBS~,-Cl)VSW,-A~TSw

[311

RS~~T.A~TSWt,

TOM

066HO

T DI4

A"1'S",v
A"'1TSw,l,ll

AMT

..

-------~-----------

~

DID 'AMT' SHOW UP PI{EVIQJ5LV

(l7010lHlDSA LiSA

- IX: 5 w
D: SW. -llLl<;I.J ,-.\MTSW. -Cwvsw

(J70~1)f)t.lDSI\2D5A

O~SW.-O:Srl,-AMTSA.-(UVS~,-LPSw,-S~~Wl

11 ')'10

TF

Ulao

SM

ARRNF+ 11, 1I1:005,A+4*.,
ARBNF+ll,?,IU
ARf3'U'tll, I,ll)
ARRNF+ 11,,~,l 0
ARRNF i ll,l,lO

- A!o1 T SWt H \) S Wt

*-~4,*-*

•
DSS

'oj

06120DSw~ILBOSA

LL111

A~

11190

AM

11210
S~
112?()TF.,QLBTF

03920AREA

j,W

062'}f)
063')()

06 n')AMflSfI [lSA

11200ARBNF BNF

?, '19, '5. C At"W

AM T "I FDtlNO
AD

02580AMTSW DSC

it M,

*-*.AR8NFt11,Ll

LNT~

06461

TO

AREA,It\JST,?

1/7

11150ARLOOPH

TF4 R lB+6, FLD 1
1147()

10570ARTB

B~R

A~lOnptEDARl+ll,ll

DSAC 33,ACCOUNTS RECEIVABLE TRIAL BALANCE

l0520ARTOT1DC

10530ARTOT2DC

10540ARTOT3DC

10550ARTOT4DC

10940

RTM

HEOLIN,ARTB

11270
11520

A
BTM

ARTOTl,*-l,ll
EDIT,ARTOTl

11300
11540

A
BTM

ARTOT2,EDAR2+6,11
EDIT,ARTOT2

11370
11 ')60

A
BTM

ARTOT3,EDAR2+6,11
EDIT,ARTOT3

11440
11580

A
BTM

ARTOT4,EDARl+6,11
EDIT,ARTOT4

L,D

L,O

L,v

L,O

056"OA5H
05610CKEDITDVLC ,2,43,2,-S9,5,ASH.2,45.2.44,2,-49.5,Of.BIT+2,Z,-63

/18

10190ASTS

OSAC 31,*********************************
10910
109'>!)
11620
116RO
117hf)
11 H?f)
l3JdO

13440
13'iQOK.j
11540KK
13hl)0
131>10
11710
13000
1)810

03490A40SA OSA

HEDLIt\J,ASTS
HEOLlN,ASTS

fHM

TF
TF

HEDLlN,ASTS
HICDLlN,ASTS
HE!)LIN,ASTS
HEOL I~,A.STS
HEDlIN,ASTS
FL04,ASTS-h6+22,6
FL04,ASTS-""+27,h
GrJOF,i\STS

TF

GnOF-ln,,~STS

TF
TF

TF

HI"lG-36,ASTS-'i/)
GnflF,ASrS
C;CH1F -16, "S TS

TF

WC+8,A40SA-2

I1TM
8TM
B 1"14
tHM

TF

WC+13,DCSW
01490A4DSA OSA
TCO

03R40A50SA OSA

B~~

i\41CD-DCSW+I0()
At. Te 0

i\5TCO-DCSW+I00
03810

03790A5TCD

HEOLl~,ASTS

A4TCD-DCSW+l!)8
0:\460

03410A4TCO TFM

fHM
RTM
BTM

TF

WC+-'1,I\')[)SA-2

TRA5,PRSW
03840A50SA OSA
03850
Teo

A5TCO-DCSW+I0J
ASTCD

",

iftHSH

j'til'"jj

I "Iff I

on

... ·n

•

ib,¥nbfd*h!!:ll

'ft

•
03910

o

.**

UCKTO

UND~FINED

DORG A5TCD

***

011AOTRAl

071 70BADAC TOAC

TRA

32, NCt~E X I S rAN r ACCOU'H

BACK TO DU PHASE A2

~HJMBER

USED'

06881)

HTM

ERPRNT,BAO ACT-l

06050

BTM

ERPRNT,BAUOC~L

07190BADDC f)S

04710BADLAHDAC

31,PRtVIOUS ROUTINE NOT COMPLETED'
04460
OStl70

06210BADKP OAC

18,PARE'JrHESI:;

ATM
BTM

BALANCE

33,

IHIO

04880862

HA2

RqUT[~~

t:RRnp,'

061/0

13490BALSH DSAC

FOR BEGINNING A NEW

~RPRNT,BADLAH-I"

ERPRNT,KADLAH-l

",

BrM

E~PRNT,KADR~-l

SHHT

BrM

OR

HEDLIN,AALSH

OUT

BNF

COLUMN VS. C,ONTROt U'lEOUAL,JUTIF

HA2,OBJ"

~[JNA'1JI:;

-------------------------------------------------------------~--------------------------------------I~O

.

04A20BOL

0797QRONN

ANF

BD

PSEEK+12,*-*"

IS

[r

047-90

TF

8DL+11,LGCAND-l,t1,PULL

04800
041"0
~)4~ ,OP<;fU,

Bt~F

PSEfK,Rf1Ldl"

H"MICti If THE Sw IS

CF
RNI'

BDL+ll,,,
ell!.+ 12 "lln+ll,11,

SW DI:SI~U)10 R6 ()"J
S",./ III S I RtD TO Bt OH, H'{A'JCH IF J'J

{)4~,()p·,t ! "

.\ ~ 1, -

H[) L + 1 ? , Ii II L + 1 1 ,L 1 ,

SW

07830

R7

BDNN",

AI)'~(I'!j

110\0
11 HdO

TF

TF

FL02, KE:.,rlAL, 6
H02,REC.tlAL,6

()7l.H()TCOII

TFM

W:+ld,tlEGII\R

094/0

TF~

O?S~OE"J~C

OS

WC+IH,0EGII\C
,REGINe-l

!i

IN

INPUT'SWAODRl:.SS

r. '> I P [

[.

Dl:.SI~ED

TJ BE UFF

Hl tHo d F F, tI R A\I CHI F J \j

MnNCAL,LCSW

RlMI)Vf. If,

flUI\,[ ':.HOULl)

PRODUCl

JUTPUT

104 7QBEG~Al!}SAC 9, BfG nhl

07200REGINRRCTY

O'}410HEGI NC Tf-

-----------------------------.----.------------------------------------------~----~-------~----------

14200

TFM
TFM

WC+.l8,HEliN02
WC+13,REGND2

14210

TFM

~UAD~BE~N02

141Y()Il?fCii

t4100HING

1'.?6f)')?f)SA uSA

f)2TC'')-IiLG\jl~2

13100RINGO DrM

HE[)LIN,OI~G

OSAC 23,HINGO

.. 100

,,.,

•
13710

TF

BING-36,ASTS-56

13 720

BTM

HEDLIN,BING
/"-~,

-------------------~---------------------------------- -----------------------------------------------

137COBINGO BTM

HEDLIN,BING

\1,••;#1

BE

BINGO

09990

SM

10000

BP

13630

09970BLLI N BD

K 71 , r'.{SW

13470

!:lTM

13590

A TM

HLLIN-l,l,lO
BLLIN+12
ALLIN-l,l,lO
BLLI N, 4,10
RLLIN,l,lO
BLLI N,l,10
BLLIN,2,10
BLLI Nd,10
BLLIN,2,10
ALLIN,l,lO
BLLIN,l,IO
ALLIN,I,10
BLLI N,1,10
BLLIN,2,10
BLLI N,l,10
BLLI Nd,10
BLLIN,1,10
I'ILLI".J,l,lO
HLLIN,4,10

OA400

BL

i'lL

10030
10900

SM
BTM
BTM

10930
10950
10970
11080
11480
11640

BTM
BTM
BTM
BTM
IHM
FHM
BTM

11660

11780
IIAOO

BTM

BTM

11H30
11930

BTM

1340Q
134?'1)

IHM
~TM

08300BLSUP C

01550BNF2

RNF

UPS2,.-*"

TRANSACTIONS HAVING SUBLt'DGER HAVE

01560
01570S""7

04250BTITLlDAC

50,~

46,S\~

2 OFF T[J

FLI\(~

BNF2+11,8,l0
B'lF?+ll,*-*,6

I'IJ

HiE

SOURCE

PR.)(,t{At'"

WATY FHITLl

C00JTINlj[

04130

06220CAfND TOM

AM
AM

TITLt' CARD HAS I3Ef::N FOUND

04110

04260lHITL2DAC

SUP

INST,O"

W/ITY

AND

IGNORE, ON

TO

ACCtPl'

IHIlL2

CASd

Q5690CASH

DVLC

,2,43,2,-41,5,CR[DIT+2,2,-62,s,A~r+2,z,4~,2,~9,5,:AF~D

08280

TFM

CAM+6,CLAHL-6

0833:)

TFM

CA'-1+11

08350

A

08310

I\~'I

CIIM+Il,CCOL,ll
CIIM+6,2,10

08360CM'

02470CAPD

02730CA2

DCA

C

,0, 10

,INPUT
02600GETA? r,~T
010AO
GtT

CARD

05070

fHM

SCAr-.J,CASH

05630i\SH

DVLC ,2,41,2,-86,5,CASH+9

CCA2,INPUT+160,7
02720TR'\2

S ....

CAPO

Ii

1TU'!W.'''¥''!.'1P![

b IE • "

o

02790CCA2

04190CCC

08310CCOL

DC

C

•

02750
02760

TOM

02730CA2

C

A~

CA2+11,2,LO
CA2+11,O,6

2,0
CCA?,INPUT+160,7

CLR, INPUT+ 160,7

OS

04210
04220

TOM

08210
08350

A

O~380

Ar~

A~

CCC+li,2,LO
CCC+11,O,6

,*
TFM

08390CMr:
CM
085ClOQCt:NO CM

CCOL,INPUT+22"
SET PUINTER ON XREF
CAM+ll,CCOL,11
CCOL,2,lO
CCOL,*-*
CCOL,INPUT+142" If CARD nVEll

,*

09340CClE~ODS

08300BLSUP C

l,e"

07570COVSW OSC

CASH, DISC,
06120DSWNLI:lDSA
06330
TDM
065<)OA~lF NO BD
06700lJPCOl6TDM
0701008054 D5A
Q70300BOSA?DSA

o

02400CI-'OD

CF

01110CHOl/LPCM

C

•

ocsw,-nI:\SW,-A~TSWt-COVSW

ORSW,-DCSW,-A~TSw,-CDVSW,-LPSw,-SGSW2

B7

CFf')O+12

HE

CrlnVLP",

HEDCSt},f'JDAI
IS L IHE :>AME

*.- .. ,HULAH
04500

AM

04'J 10

117
N.,
UNR
(lN~

CLAB+f>,IRLfltHb
CLAH+6,l,lO
ClAB+36
Cl.MI+6,14,lO
CLAB,CLAB+(;,ll
CLAR,CLAH+6,11

8

08280
08290
08470
08600

OAC

A"lT n'T

UPCOLh,CLJV~W

02390

U4:'50
04,)5,)

03060CLR

:W

COVsw,O

CFOt),*-l"

!,)4'll,:)

09530ClOSA DSA

F[]lnD,

CDV5W.L.LI

()2360Gl::TADJBNF

')4 /t')OLA:; WOK TF

09380CLABl OS

VOUC l.AST

-DCS~,-OI:\5~.-CDVSW,-AMTSw

00+1

DIDIO

04520CLAt:I

O~

TFM
TF
CM
C

CAM+6,CLARL-6
CLhBL,CLR+6
Clhal,O,I011
CUIBl,*-*. ,

SUcK

LAHt:L

THIS

IS

CTCD-lAIlCHK+IC"
09')00

TF

o33'tOOMI:. S

TF
TF
TF

40,
03350

03660

040~ONOC()l7C

OUTPUT+lH,CLK+18
OUTPUT.I~8,CL~+7B

OlJTPUT+46,CLR+46"
CLR+6, 1'~PlJT+2')"

04190C[[

C

CLQ.,I~~PUT+160,l

04300

Tf

H1LAH,CLR+6
CLR.,*-*
CLQ., INPlll+ 160,1

04320ACLAB C
i1760I)TCMC

C

I~

flit

MNEMO~IC

CHITI ~l-i{I\KY
flELU BLANK

I:.'~PR~T

------------------,---,-,-------

08290
09660
10200
10260
10280

06190CLRSN 8TM

TF
TF
TF

~n2g0CRS

TF
TF

10300

TF

CLABL,CLR+6
EDITA,CLR+2
OUTPUT+8,CLR+8
OUTPUT+48,CLR+8
OUTPUT+238,CLR+7A
DUTPUT+158,CLR+78
OUTPUT+78.CLR+7A

BNF

CLRSN,SGSW

TF

CCOL,*-*
08220
TFM
08270NULAA AM
08320
BE

05130CM42

CM

OS

CMC+1l,INPUT+22
CMC+l1,8,10
CMC-12

HAS ALL THAT MOVED
04990L~CANS

08450CNT

/~

"'-.,;;;t.'

SETSWS,~PDSA

06160

CM

t-

TF

POINTE~

CM42+1l,COL, ,

SAVE P[lINTER

,*

oA 140FOR THC TO
08150
08160
08170
OA180
08200
08240
08'120
08,50
08560
08570
08700
08710
08720

TO
TO
SF
SM
A
M"1
AM
TO
TO
TO
TO
TD
TO

CNT,INPUT+ZO
CNT-l,I"lPUT+18
CNT-2,INPUT+16
C'IIT-Z
CIIlT,l ,10
TDMTR+ll,CNT
CNT,5,lO
C"JT,l,lO
TWOME2+2,CNT-2
TW()ME2+4,CNT-l
TWOME2+6,CNT
NLA'~ES+'10,CNT

NLAMES+88,CNT-l
NLAMES+86,CNT-2
I

o 7740CNTflO

05350COL

09260
09270
09280

TO
TO

SLMES+76,CNT
SLMES+74,CNT-l
SU1t S+ 72 ,CNT-2

07690
07100LPBD

rF
AM

C'HBD+ 11, T05WAO
CIIlTBD+ 11,1,10

TO

BO

OS

,*,

MfdNLINE HAS SET COl
04650CDNT TFM
O'.'NOl SC ANS TF
05110CM42 C~
05150SSUPP C
051701FNlJ"1 C
05200TDNUM TI)
05240UPCOL AM
05250
CM
05400
C
05430
SM
05490R~.lACK C
05,10NLlEND A"1
')')')20
CM
06 7 70 A!,l TN rrJ

04650C(,~JT

~I.

TFM

'~O'll-BLA'IIK

ClJMI~~,~

['l

COL,lfIIPUT+22
S<\V[ Pfl[NTff.!.
CM42+11,COL"
COL,*-*..
HAS ALL THH "1lJV[[) P()I'lrER
CIERO,CtlL,l1, SPACE ')UPPIHSS, £NTtiIS HERt
C70B,CUL,11,
CHrCI< flJf{ ~Jll'1t:~ICS
ALPHAN-o,CClL,lI, ~H)
cnL,2,10,
fJrJrJl\RC, L IKE UP in ~Ak~)
C8L,l:~lDWDS"
II- U,D flF Cl\RD
OBJ, COL, 11,
Ai'.Jfl CUMPARE AGA I N
COL,Z,lD,
KLI-~ SAMf CARD C1LJ'1~
CleRf),CllL,ll,
SUPPRESS KLANKS
COL,2,1),
UP ON CARl)
CnL,ENDwUS"
II- [ND OF CARD
["JST,COLdl,
MH i, F,lIJND

cnl, I NPUT+22
04060
04420

BNE
RE

Cn"JT
CO'lT" ,

YtS, CCi'HI'llJ[

Q5610CREDITDVLC ,2,43,2,-59,5,ASH,2,45,2,44,2,-49,5,DEBIT+2,2,-63
05010
05660CllST
05690CASH

BTM SCAN,CREDIT
OVLC ,2.43,2.-64,5,CREDIT+2,2,62,2,o3,2,04,2,y~,5,CSF'l)
OVLC ,2,41,2,-41,5,CREDIT+2,2,-h2,5,A'1r+Z,2,4H,2,?9,5,:AFND

I~

1

[~

~

h\:n"jjidt*'ii
HLWLfLb,l

Jrl'

, "HUfll!'ihlioJhL),!.¥..f

tIt"8ij'hMhI'db'.Y!."""

•
05990CRfND TFM

ADREG,l
DVLC ,5,DISC+9,2,99,5,CRFND

05620

00390CRITl DC

3,lO"ALlOWABlE LANGUAGE ERRORS
07B400UTSWl.C

00400CR IT 3 DC

CR!Tl,PHAERS

3,1S"ALLOWABLE REFERENCE ERRORS
071160

C

CRIT3,PHCERS"CHECK CUTOFF

--------------------------------------------------_._--------~----~---~--------------------.---.-~----

10290CRS

TF

OUTPUT+15H,CLR+7B
10100
10130
10230
10340
10360
10380

B7
B7
IH

B7
BN!
B7

06910CSFND TFM

AMBA+ll,O

09460CTCD

WC+S-20+11!,LABCHK"

TFM

09~30CLDSA
09~40

05660CU5T

DVlC

CRS
CRS
CRS
CRS
CRS-12,3400
CRS-12

BEGIN C wiTH
OSA
TCD

CA~lJ

ALREADY REA:)

CTCD-lABCHK+laO
CTCD

t2,43,2,-64,5,CAEDIT+2,2,b2,2,63,2,04,2,99,~,CS~ND

05780

TFM

SCAN-I,CUST"

SN~AK

RACK IN

~UR

CUST
l2.r

07110CZERU DC

2,0
,) " I

'lO '} J lJ P t' C

(l'>i_'HltU\ACK C

05340C 1

C

en Rfl,COL, 11,
CURD,COL,ll,

MAIN COMPARE, WiTH

OBJ,---"

IINR[I'ER~NCED

14110CIT

DC

•

-**

12640Kl

A

CIT,EUITW,ll

20K/~

A

C1T,EIlITQtll

11.7

14120C2T

QVE~FLOW

L,O

12(':i0
12170

ATM

£I)IT,Clf

A

(.2T,CIT

Clf,D2ZERI)
CIT,Kl+23,11
Clf,DZlERU

12780

TF

13050
11320KN

A
TF

1255'lK')

DC
S
A

C7T,[nIT~,11

12') 701<1
12170

A

12800K5
12830

C?T,CIT
C2T,CZlIf!.J,l1

B""I

lZ85\)

A

C!T,~GITQ,ll

EDIT,C2T

cn ,ClT

1"?H60

rr

12940Kf

8T:4

EDIT,UT

12970K8
129QO
L3000
13140
13260K-i
1121!OKP
13300KU

BTM
A

EDlT,C2T
C3T,C2T
C2T,D2ZERU

13310

TF

A
TF
TF
TF
TF

C2T,D?ll:RU

C2~,KW+23,11

5TOR1,C2T
ST!1R2,C2T
STOR1,C2T
C2T,D2lERll

SPACt: SUPPRESS, f.''lTt:RS HERE
SUPPRESS BLANKS

.,"1

4'i'

wi ... ' J'

I

..

09860CZ301 DC

Z,Z3
09710

14130C3T

14140C4T

07050C70B

u;oou

C

C23Dl,TOEO+6,1l

C

C2~ui"IUi:U.O,

1Z6BOK3
12850
12880K6
12990
13Z00K T
132Z0KS
1'3240KR
13340
13600
13610
13620

A
A
BTM
A

A
ATM
CM

C3T,EDITQ,ll
C3T,CZT
EDIT ,C3T
C3T ,C2T
STOR1,C3T
STOR2,CH
STOR3,CH
CH,02ZERO
C3T, STaR3
EOIT,C3T
C3T,O

13350

TF

C4T,D2ZERO

DC

DC

DC

TF

TF
TF
TF

l ,0

Z,70
05170IF'lUM C

05970DBFND TFM

AOREG,O

061100COSA?OSA

-SESW
R1M

060HO

025200CSW

OSC

fIT M

TCf) TFM
03440
TFM
0349011405/\ DSA
038401\50S/\ DS/\

OS C

T~

CHECK

HI\{

NUMI:IUCS

SfTsw"nCO~Al

I 1(J

SETS w~; , I) CO 5 A l

06120D~WNLBDSA

WC+13,DCSW
NLJAD,DCSW
A4TCD-DCSW+IOO
A5TCD-DCSW+IOO
-DCSw,-OHSW,-CDVSW,-AMfSW

06690
TOM
06730AMDS/\ OS/\
070100BOSA DSA
070300BOSA20SA

-AMTSW,HOSW,-DCSW
OCSW,-OBSW,-AMTSW,-CDVSW
OBSW,-DCSW,-AMTSW,-CDVSW,-LPSw,-SGSW2

ocsw,o

8 , 2 ) n r, no () •

023RO
02400Cf-DIl
0?41.0

SF
CF

Ol420

GET
Wf\j
WN

03700
100201( 71

004HOOfll\TR

C70B,COLdl,

nEAIT UR CREDIT LAST FOUND

1,0"

034 30A4

02441'100

ii

we,

TF

DDt!
DD+l
DD+6,GEfADJ-l
DO
DD+7,900
OD+7,900

,C, 2

*** UNREfERENCED ***

055900EBIf OVLC ,2,44,2,-45,5,ISC,2,42,2,49,2,63,2,99,5,OAFND
05020
ATM SCAN,DEBIT
05610CREDITDVLC ,2,43,2,-59,5,ASH,2,45,2,44,2,-49,~,DEAlf+2,2,-63
05680DISC DVLC ,2,44,2,-49,5.DE~IT+2,2.62,2.43,2.99t~,OSF~J

090eODISAMTTD
09040

BN~

'DISAMT,AMB2+11
I "

0 ,\
,

09190

B7

05060
056001SC
05620

BTM SCAN,OISC
OVLC ,2,49,2,-86,5,0ISC+9
OVLC ,5,0ISC+9,2,99,5,CRFNO

01SAMr+12

,

0568001SC

I'

------------------------------------------------------ -~---------------------------~--~~-~-----~-----

007l00KAOJ SF

*-1

00720
00730
00740
00750

TF

WC+I0,DKADJ-l.l1
DKADJ-l,5,10
S
WC+I0,DKAOJ-l.l1
TF
WC+ 13, DKADJ-l. 11
(iono
S~1
OKADJ-l,5,}0
00180
TF
NUAD,OKADJ-l,11
00820
CF
DKAOJ-l
00830
AM
OKADJ-l,2,10
00840
B
OKAOJ-l •• 6
Ol170GOGOGOBTM OKAOJ,*+16"
J12~()
BrM OKAOJ,-+16"
0133')
BTM OKADJ, .. 16 ..
01430
8rM OKAOJ.*+16
01510
IHM
OKAOJ,-+16"
02350
OORG OKAOJ,

047200LMES DAe

093'5000

A

32.LABEl

~UPLICATES

PREVIOU~

E5TAB~ISH PARA~S. UPDATABLE 8LJ:(
COMPUTE PAHAMS. K.S.,I.S. LABELS
NOW G.l, LABELS ~UR PHASE B

NOW FOR rHE TRANSA:TIJ~S BlJ:K
llAVE PUTAOJ THERE

LABtL'

046800UPlAB8TM

ERPRNT,QLMES-l

08970
TOM
08990AOO
TOM
C9200NUMAMTTF
09210
A
09220
TF
09230
eM

00+1,2
00+ 1,1
00+11, TFfl.Oi-l1
00+11,99
00+6, TBNR+ 11, II
00+6,L,10

09240
BH
09330Sl0KC AM

00+6,*-'*

*-*,*-*

o
11340DDAR3 AM

Sr.1

DO

(DAR2+6,L,lO
lJNRl,FE1~[I\lCEf)

***

----------------------------------------------------------------------------------~--~-----.-----~-~-

114l0DOAR4

IH

EDlr,[IJARI+6

UNREFERi:NCED ***

10770DOFL 3 AM

tOGL2+A,l,10

-*-

UNRFFERE~CbD

._.

------------------------~---------------------------~-----------------~--------------~----------~----

1083000fL4 BT

EDIT,I::DGll~6

UNREFERENCED _ ..

OOPHAS

Ol050DPlJNCHDCA

lJNDlfHJE[, ***
017BOTRAl

TRA

03330

PUT
PUl
PUT

,OIJTP\,T-2
0341(1

lr090

06740DSFND TDM

.1

HACK TU OG PHASE A2

IN~r,o.,

DISC

GPllNCH",
OPllF\iCH
OPlJ~JCH

Ih THf ellS" UF MULTIPLE fRRJR.S

061200SWNLBOSA

-OCSW,-OBSW,-COVSW,-AMTSW
04440
u .... tlU

05850GOTOF
06030
06070SWELL
06090

046800UPLABBTM

BE

DUPLAR

TF

WC+B,DIDSA-2

NOPRO,PRSW
12100DIOSA OSA
12110
TCO

14260D2DSA DSA

01TCD-EOIT+IOO
DITCO

D2TCD-BEGN02+100
14220

1419002TCD TFM

GO TO START MESSAGE

01TCD-EDIT+I00
lL070

1197001TCO BNF

LGCANO,OSWNLB
SETSWS,DSWNLB
LGCANO,DSWNLB"
LGCANO,OSWNLB
OSWNLB
OSWNLR

ERPRNT,DLMES-l
04530

12100010SA OSA

BTM
6TM
8TM
8TM
CF
SF

TF

WC+B,020SA-Z

WC+18,BEGND2
14260D20SA DSA DZTCD-BeGN02+100
14270ENDD2 DS
,021CO-l
142BO
OEND 02TCO

------------------------------------------------------ --------~--------------------------------,-j~--

14150D2lEROOC

L,n
127B()
121360
13000

13320tZQUVEfU\ B i M
fJc','dO
IHM
06540
filM
fl6640
RTM
061:180
BTM

IlllIJIINI

I RI'I{NI-I ,I{MF.S-l
II{I'RNI
II{»RNl,IIADLAK-l"

FOR A[C>INNING A~EW R()UTl~E

tRI'Rt'li ,lJl~'f S-1
LRPRt'lT,t1ADLAlI-L
I.:R.PRNT,3AO[)C-1
E:i{PRNT,I3AnRP-l

ERPRNT,QVKMF.\-1
I:RPRt'll,UVAM2-L
tQPRNT,JUTPlJT+237"RlANK CARO

ERPRNT,AMM[S-1
ERPRt'lT,~AO ACT-L

08730
O<;2 80

IJIAC>N(JSTIC

I II !'1{11l 1- I , H Ml. '>-1
Il{l'kNI
IJlJ1PII1+(,IHPR'IlI-I,11

tRPI{t'lT,LJkMI.:S-l
ERrlR.'H,TITSAV-l
tRP){NT,NUCMES..,l
ERPP,'H, TWUMES-l
tRPf{t'lT, \jL BME 5-1

eTM
iHi-1

0771:10

II 1 Nil III CARD
I tJrl III lA){i)

III IIIJlPIJI

BTM
BTM
!lTM

06960
07260

II

----------------------------------------~---------------------------------------------T--------------

00310t:WC

DSB

TRANSFER OOA

20,11"

00320WC

EXIT

AR£~

[)S

Uf\Dt:FI'-a:O ....

0104:l
OllHO
00,:):'0

12'>30

EXIT
CflLL LXIT
CI\LL EXIT
CALL f;XIT
CALL

-------------------~-----.-----------------------------------~----~--------~-------------~---~---~----

04590F I Nl ZI: TR

INSAO,ENOR1,6

04700

104COFlDl

DSA

FI'lLH

CUTPUTf-6

L06,';)

TF

T F L A i~ I) + 6 , I' L f) l

109HO

TF

H10,fLDI
T F 1\ R UH 6 , F L!) 1
*+10,.lOI

11150AI~l0(1PTf

•

10410FLD2

OSA

1149')

TF

11150

TF

.+10,f-lDl

119AO

TFM

FLDl

122 30

TF

TF~D2+ll,FLDL

10700

TF

FLD2,EDITA,6

11030

TF

H02,f'oEGBAL,6

,~JUTPlJl+

L6

nUTPllT+96

,.,

TF
TF
TF
TFM
TF
TF
TF

FlD2, EDITA,6
FLD2,EDITA,6
FLD2, BEGBAL, 6
FLD2,DUTPUT+116
FLD2,EDITA,6
FLD2,EDITA,6

TF
TF
TF
TF
TF
TFM
TF
TF
TF
TF
TF

FLD3,EDITA,6
FL03,TOTDB,6
FLD3,EnITA,6
FLD3,EDITA,6
FLD3,TOTDB,6
FLD3,OUTPUT+146
FLD3,EDITA,6
FLD3,EDITA,6
FLD3,EDITA,6
FLD3,EDITA,6
FLD3,EDITA,6

TF
TF
TF
TF
TF
TFM
TF
TF
TF
TF
TF
TF
TFM
TF
TFM

FL04,EDITA,6
FLD4,TDTCR,6
FLD4,EDITA,6
FLD4,EDITA,6
FL04,TOTCR,6
FLD4,QUfPUT+176
FLD4,EDITA,6
FLD4,EDITA,6
FL04,[DITA,6
*+30,FLD4
FLD4,EDITA,6
FL04,ASTS-66+22,6
H04,0,610
FLn4,ASTS-66+22,6
FLD4,0,610

10fl40
11060
11420
11590
11910
120'0

TF
TF
TF
TF
TF
TFM

FL05,EOITA,6
Fl05,ENOBAL,6
FL05,EDITA,6
FL05,[OITA,6
FL05,ENDBAL,6
FL05,UUTPUT+206

07890NOGO
07900
07910

TO
TO
TO

FlFX, PHBERS
FLF X-4, PHBERS-2

13890
13900
13910

TO
TO
TO

FLFY,PHBERS
FLFY-2,PH8ERS-l
FlFY-4, PHfH:RS-2

07920
07930
07940

TO
TO
TD

FLF2,PHCERS
FLF1-1,PHCE:RS-l
FLFl-4,PHC£RS-1

11250
11530
118.80
11990
12660
12740
13040

10420FlD3

DSA

DSA

DUTPUT+138
10790
11050
11360
11570
11900
12010
12700
12840
12t190
12900
12980
13500KJ
13510
13540KK
13550

10440FL05

08040FLFX

14030FLFY

08060FLF2

14040FLY

DSA

~."

FL~2;!:C'!!".A;,!;

DUTPUT+118
10730
11040
11290
11550
11890
12000
12600
12760
12820
12950
13130

10430FlD4

4"'"""

DUTPUT+158

DSAC 3,777

DSAC 4,

FLFX-2,PH~ERS-l

777

OSAf 3,7/7

777

OSAC 21, LANGUAGt ERRORS
13920
13930
13940

08L40FCRTHCTU

TO
TO
TO

FLY,PHCERS
HY-2,PHCERS-l
H Y-4, PHCfRS-2

AE

FORTHC

o

CNT .. NPIIT+20
07470

'13

"tid

o

02360GETAOJBNF

i

lIt

t t

CFOC,*-l"

p'

iitrlrt""'wiHiW W

r"

PERMANENT DISK INPUT ROIJTINf
02310
02410
04170
04240
05960
07270
078RO
08010
08020

094-.0
094C;O
11690
11 941J

CF
TF
BTM
IHM
BTM
eTM
RTM
BTM
BTM
I3TM
IHM
BTM
BTH

122r)01'\t:GN02tHM
139')0
13TM
14000
BTM
1406000G
BTM
14010
8TM

02600GETA2 GET

ti" "Mitt " qipd

GETADJ-l
00+ 6, GET AOJ- 1
GETADJ,WC+6*20
GETADJ,WC+7*ZO,711.RI:'-CIILl PHASE B
GETADJ,WC+8*20,711,lINK TO PHASt: c
GETADJ,WC+3*20,711
GETADJ,WC+9*ZO,711, LINK TO D1
GETADJ,WC+6*20
GETADJ,WC+7*20,711,lINK Tn B
GETADJ,WC+20
GETADJ,WC+5*20,711
GETADJ,WC+IO*ZO,111
GETADJ,WC+4*20,111
GETADJ,WC+Z*20
GETAOJ,WCH)*20
GETADJ,WC+7*20.711, LINK TO B
GETADJ,WC+6*20
GETADJ,WC+7*20,711

C~RC

02690
0287.0
O<'AIlO

GrTA?
TCD GI'T A7.
DORG GfTAl
f17

-------------------------------------------------------------------------~------~------------------02180GETNO RCTY ,,2
O(,110WHIITfl HD
02('2\)

liCIt

on3,)
0?l40

SF
TF

1;1·
r;f:

IJIGI T

TI~ll.MLf>R,)W"

[~

pns.

2

OF

SE~TOR

FOR

YES

TNI)
GI-TrW+Z
PRIN+l">.GLHHJ+',

----~---------------------------------------------------------------~---------~----------------------

10650GLANF RNF

*-24,*-*

IO"SOf,llUI1PTF

C,lRNf+ll.*-*

10590
10600
10610

(JU T P I J T+ 6. GL [I N f· + 1 1 ,
GU\NF+ll, 1,10
GlBNF+ll ,,6
Gl RNf + 11,2,10
*-*,c.lRNr+l1,11

o
H

AM
SF
10630
II'"
106 70lfl AI3DTF

11

----~-------------------.----------------------------------------~--------~-~~---~----~---~-----------

GfN(RAL LEOG~R

11960GLEDG DSAC 33,

11190

10580GLlOOPTF

ATM

GlRNF+11,*-1t
HlS60
:'M
108'10
BNR
10H90
8NI{
11700GlOlJT TF
120~O"iIJPRD

117COGLDUT TF

,2040

•

TFM

TFM
OS

WC+IH,GlOUT
,GL0UT-l

ESTABLISH PARAfo.\S.

IlKflCJ,*+16,.
01120

14080GO(lF

GllO(JP+l1,'),l~

GllOOP,GLLOOP+l1,11
GLLOOP,GLLOOP+11,11
GlLOUP+l1,1-1f:ll[)SII+'j*'i
WC+4*ZO+lH,GlLOOP

GLLCOP+l1,HEDOSA+S*5
12120L~nUl

Ol110GOGUGDATM

HEDlIN,~lEOG

BH

GDGO<;{)

OSI\C 41,'(OU GOUFi:il, OUT OF HAlA\JCE tly
13640
13(..50
13""60

13670
~~o80

11·)')1)

13810

II
BTM
TF
Tf
lilM
TF
TF

GOOF, r: 0 I Til
HF.f)L1N,G[)OF
GOOf-. ,\STS
GUOF-16,ASTS
HEf)LIN,GDOF
GOf)F,ASTS
GOOF-16,ASTS

lJPr,r.TIIHL(

t3lGCK

.:.....:,:~

...:..:.;",-.:............i.:-..;.".:.".,.,.••:.•. L'.:".;............:_._.,.•~_ _ _ _ .....,... _,...."~....,........-~- .... """"'''''--~

!i
13820

05850GOTOF BTM

LGCAND,DSWNLB"
04020

08770HAVI T AM

01820HOSA

DSA

00190HEDDR DS

00260HEDOSADS

BTM

HEDLIN,GOOF

GO TO START MESSAGE
BE

GOTOF

OB610

BE

HAVIT

01180
01340

DSA
DSA

HEDOSR+4*5,HEDDSB+3*5,HDSA
HEDDSB+3*5,HEDDSB+2*5,HDSA

AGOGO+35,1,10

HEDCR

,19600,

CORE ADDRESS STARTING PROBLEM HEADER
00260HEDOSAOS
01820HDSA OSA

,HEDDR+4
HEODR

00270HEDOSBDS
01200
BTM
01280
A
01290
A
01310
A
01320
A
01350
RTM
01360
TF
01420
BTM
01450
BTM
01460
A
01470
A
01480
A
01490
A

,HEDDSA+I0*5
VKADJ,HEODSA+'5"
HEDDSA+6*5,SMf+ll"
HEDDSA+7*5,SMf+ll"
HEDDSA,ADJF, ,
HEDDSA+5,ADJF
VKIIDJ,HEDDSA+5*5
HEODSB,HEDDSA+5*5"
VKADJ,HEDDSA+5*5"
VKADJ,HEDDSA+5*5
HEDDSA+2*5,ADJF
HEDDSA+3*5,ADJF"
HEDDSA+4*5,ADJF"
HEDDSA+5*5,ADJF

01')30
TF
01620
A
06800
fF
07720
C
08230
TF
08440
CM
09410AEG I~IC: TF
09430
S
11090
TF
11110
TF
11120
TF
11700GUJlJT TF
11710
TF
11720
TF
12220
TF
122'50
TF

*+23,HEDDSA+8*5,.
HEDDSII+8*5,ADJF
AMAA+ll,HEDOSA+6*5
LPBD+21,HEDDSA+9*5

, HE:LOR+4
RELOCATE B.S.,I.S. LABELS TA~LE
WHOOPS -- UPDATE HEADER DSA-S
fOR UPDATABLE BLJCK
FOR PHASE D2 USE
USE HEDDSB IN THE HEADE~
UNRELOCATE VECTORS
UPDATE HEADER OSA-S
FOR PHASE Dl USE

TRANSACTIUNS KLOCK REQUIRES

Ar,8GO+l1,HEDDSA+8*~

HEDDSA+9*5,O,9
TOSWAO,HEDDSA+6*5
TOSWAD,HEDOSA+9*5
IIRBNF+11,HEDOSA+4*5
EDAR2+6,HEDOSA+7*5
EOARl+1l,HEDDSA+3*5
GLLOOP+l1,HfODSA+5*5
tDGL2+6,HEnDSA+6*~

EOGLl+11,HEDDSA+2*5
~DIS+ll,HEODSII+5

ISBNF+l1,HEDDSA

----------------------------------------------------------------------------------------------------00270HEDDSBD~

,HECDSA+10*5

00280LDSII DS
01110CHOVLPCM
01180
DSA
01180
DSA
01270
DSA
01270
OSA
01340
OSA
01340
DSA
01360
TF
01370
A
01440
OSA
01440
OSA
01520
OSA
01520
OSA
06 790~JNNN TF

,HEDDSB+')*5+2
HE,)OSH,ENDAI
HEDDSA+4*5,HEDDSB+3*5,HDSA
HEDDSf3+4*5, Ht DDSR + 3* 'j, HDS A
HEDDS8+5,HEDDSB,WC+20+13
HEDDSH+5,HEDDSB,WC+20+13
HEnDS~+3*'5,HEDDSB+2*5,HDSA
HEDDSH+3*5.H[O~SR+2*5.HDSA

USE HEDDSB I~ THl HEADER
HEnDs~,ADJF"
TU SAVE ADJUSTED START JF
HEODSH+3*5,HEDDSB+5,WC+20+13
HEDDSB,HEDDSA+5*5"

HEDDSK+3*5,HtODSB+5,WC+20+1~

HEOOSB+5*5,HEDDS8+4*5,WC+20+13
HEDDSB+5*'5,HEODSR+4*5,WC+20+13
fFLB+l1,HEDOSt1

----------------~-------------~---------------------------------------------------------------~------

10070HEOLINIlD

K61.PRSw.7

10080
l0110K61
10910
10920
10940

TF
TF
fiTM
ST
BTM

OUTPUT+112,HEDLIN-l,ll
DUTPUT+138,HEDLIN-l,11
HI::DLlN,ASTS
HEDLIN,TITLES
HEDLIN,ARTB

,d

t

t

$

-

t !Jw'r*M#ri

"ttI""fWr"'

:

10960

RTM
BTM
BT
11650
BTM
11670
ST
11680
BTM
11760
BTM
11770
8T
11790
BTM
11810
BT
I1B20
8TM
13380
iHM
13390
BT
13410
BTM
13430
BT
13440
BTM
13570
AM
13650
BTM
13680
BTM
13700BINGO BTM
13720
aTM
13790au PJOTBTM
13820
BTM

11620
11630

•

HEOLlN,ASTS
HEDLlN,ASTS
HEDL IN, TITLES
HEDLlN,INCSTA
HEDLIN,TITLES+2*5
HE 0 LI N ,A S T S
HEDLlN,ASTS
HEOLlN,TITLES
HEDLlN,GLEDG
HEDLIN,TITLES+5
HEDLlN,ASTS
HEDLlN,ASTS
HEDLlN, TITLES
HEDLlN,BALSH
HEDLIN,TITLES+1*5
HEDLlN,ASTS
HEDLI N+ 18,8,1 0
HEDLlN,GOOF
HEOI.lN,GOOF
HEf)LlN,BING
HEDLlN,t:lING
HEDLIN,NOTE
HEDLI N, GOOF

-~---------------------------.-------------------------------~--~---------~--~---~----------~-------~-

09400HEND

DSAC 4,ENO ••

***

UNREFERENCED

***

------------------------------------------------------ -----------~--------------~--------------------

07060HOLAB OS

8

04300
04310
04410
0457QCLAB
04580

TF
TFM
C
C
TF

HOLAB,CLfH6
AMR +6, thlL AB-tI
I~

HOLA~,LSMNEM"

LABEL SAME AS PREVIUUS

*-*,HOLAB
LSMNEM,HOLAB

-----------------------~,---------------------------------------------~-~~--------~~-~---~------~-----

06720HOSW

OS

.UPCOL6+10

06610
TO
06730AMOSA OSA

HOSW,TRSW
-AMTSW,HOSW,-OCSW

/1/1

-------------~---------------------~------~-----------------------~-----.--------~-.----------------seA II!.- 1 , '1'J , f., I 0 ,
05440lFENO CM
IF END OF CO"JTKOL wnKD

AE

05170IF~UM

AH-SU

IFF"JD."

C

*** IJNREFE'U:NCEO

.**

--------------------------~----------------------------------------_----,--

10510lNCSTAOSilC ]3,

02450lNPUT OAe

('JCIlME

I3TM

Hr:f)l IN, INeSTII

C
C
C

U~PUT+ts,

__

~-T-----~--

__ · ___ -. __ ---

40,
02610
026:11)
0273002
03 )70RUD
o F) {ORLAn
J YYJO

•

STA,~:m:Nr

Tf)
TO
l\"Ji{

TI TLA?
I"JPUf+H.II[)M"JA2
CCA2,INPUT+l~O,7

I"iPUT+l,I"JPlJTt16)"RM Ttl t-VtN

LOCAflT~

If\lPUT+l.INPlJT+l~-)"R"1

LOCATlLJ'~

03170

ff!

():I~'40

TFM

*+3'>,

l)"\S?()

fR

(JIJTPIJT+~9.

:) '3, ~()
C~
03MO
TFM
03710
TR
03970LMlCHKC
03'>90
C
0401Q
C
Q4030NOCIlL7C
041'JOCCr.
C
04290(SLAA rFM
043<;;0
eM
04650CD~;T

rrf'1

0529nt NOWDSOS
072;'0
WAIY
~O
TR

on

fL;

r_Vt~i

". r t JT + 1 "
I F CAR') 1\ CI LJ II L L I'U- II 0
OLJTPlJf-l tl NPUf-l" r-.tO Rf'04'; ALLOWED Ot-j CARL)
R "1 C H K .I

I~WUT-?

INPIJT-l

If\lPUT+2,6349,d
RMSCAN+23,I~PlJT-2

OLJTPUT+)9,INPlJT-l
TITL!-l,If\lPlJl+H
ADM I ~., I NPUT+d
XREFB,INPUf+6
CLR+6,I \jPUT+2') I t
IS MNl':M[t'\jIC f I lLO fllM.toCLR,INPlJf+160,7
IICLAH+1I,INPuT+14"C0LLECT t lEFT-JUSTIFYI\j~ LAKkL
ACLA~+11,I~PU'+22

CnL,I"JPUT+;.'?
,INPUl+142

;"JPUT,,, fiRST l INL UF Lilt;
TITSAV-l,INPUT-l

''I"

---.---.. -.......••.-.-...-...

...

,.,.,,--~~-~.--

.......,,"..."'...... ,.,,,..."' .... ""' ..

--,~,~~~-----------

07460
C
07480
C
07500
C
07600TCMC C
08140FORTHCTD
TO
081 %
08160
TO
CHI" 1'1
T~M
08110
TFM
Ofl'iOOQCEND CM

XREFC,INPUT+6
TlTLe,INPUT+8
ADMINC,INPUT+8
ClR,INPUT+160,7
CNT,INPUT+20
cr'IT-I,INPUT+18
CNT-2,INPUT+16
CCQ!"'; !MPI_IT"'22;;

CMC+ll,INPUT+22
CCOl,INPUT+142"

IF CARD OVER

~""""""""""F
06470INSAO OS

,.-5
04590F I NLZE'TR
0461:)
AM
04620
C
04640
TF
05800
TR
05900
AM
05910
C
06480
i\M
06490
TF
06500
C

07130INST

OSC

ASSI::MBlV AREA TO PUT INTO THE:

1.0 ..
06220CAFNO
06240DSFND
0627'1VCFNO
06430SNEG
06460
06491'1
06770AMTN

12290lSRNF BNF

INSAO,ENORT,6
INSAO,6,10
INSAO, TRLAB+6
AD,INSAD
INSAD,ENORT,6
If\lSAD,6,10
If\lSAD,TRLAB+6
INSAO,6,10
INSAD,INST+6,6
If\lSAD,TRLAB+6

TOM
TOM
TOM
SF
TD
TF
TO

INST ,0"
INST,O"
INST,O"
INST
AREA,INST,2
INSAD,INST+6,6
INST,eOL,l1,

CASH
DISC
VLJUC FOUND

AMT N FOUND

*-12,*-*
12250
TF
12260
SM
12270lSLOOPAM

I SBNF+ II, HEODSA
ISBNF+ll ,2.10
ISBNF+11,3,10

1f'¥J
12280
12320
12350
12360
12380

12440lSBTABDSA

12430lSB7

05600ISC

B7

A"I
TF
S

AM
A

ISBNF+ll,2,l0
TFLRIS+l1,ISBNF+ll
MMIS+ll,ISBNF+l1,11
ISBNF+ll,2,l0
TFLBIS+6,ISBNF+ll,11

K9,K8,K7,K6,K5,K4,K3,K2,Kl,KO
12410

TFM

ISB7+6,ISBTAR,711

12410
12420

TFM
S

ISB7+6,99

*-*
ISB7+~,ISBTAe,711

DVLC ,2,49,2,-86,5,015C+9
055900fBIT OVLe

04290lSlAB TFM

ACLAB+l1,INPUT+14"COLLECT + LEFT-JUSTlfVlf\lG LABEL
04040

12270ISLOUPAM

,2.44,2,-45,5.ISC,L,42.2,49,2,63,2,9~,5,neF~n

BNE

1SLAB

B7
87
B7
B7
87
B7
87
B7
87

ISLOOP
ISLOOP
ISLOOP
ISLOOP
ISlOOP
ISLOOP
ISLOOP
ISLOOP
ISLOOP

ISBNF+l1,3,lO
12630
13210
13230
13250
13270
13290
13310
13360
13530

C

I," ,....

It.

*"rr#ri# WMttd

t ttl.1 t tt" d

12510KBAD

It

"ijLt

H'

¥6M¥6'

ReTY
12450
12450

o

12%OK8ADMSDAC

DSA
DSA

Kl,KY,KX,KW,KV,KU,KT,KS,KBAD,KBAO
KZ,KY,KX,KW,KV,KU,KT,KS,KBAD,K6AD

37,BAD OUTPUT CODE IN I.S., B.S. LABELS'
12520

WATY KRADMS

-------------~--------------------~-----------------------~----------------~--------------~----------

13500KJ

TF

FLD4,ASTS-66+22,6
1<>460

13540KK

TF

DSA

KR,KQ,KP,KO,KN,KM,KL,KK,KJ

DSA

KR,KQ,KP,KO,KN,KM,KL,KK,KJ

DSA

KR,KQ.KP,KO.KN.KM,KL,KK.KJ

FLD4,ASTS-66+22,6
12460

13460KL

BT

r I TL 0 • r IT L[)- 1
12460

13370KM

BT

T I Tl 0 , T I Tl 0- 1

1?460

---------------------~-----------------------------.---------------------.~---------~~-~--------------

13320KN

133COKO

TF

Tf

C1T,02ZERO

STl1R:~

13260K<;;

TF

TF

DSA
B7

KR,KQ,KP,KO,KN.KM,Kl,KK,KJ
KN

B7

K~

12460

OSA

KR,KQ,KP,KU,KN,KM,Kl.KK,KJ

1 :?4hl'J

OSA

KR,KQ,KP,KO,KN,KM,Kl,KK,KJ

;C?T

o
13280KP

12460

13450
13480

STOR2,C2T

STOR1,C2T
1?460

---------------------~-------------------------~----------------~~-------·--~-~-~-----·-~r-----------~

13240KR

TF

STOR'3,C3T

1241)()

STOP2,CH

13220KS

13200KT

1 H80t<,U

•

TF

TFM

12450

[) S A

KI , KY, KX, KW, KV, KtJ , KT , If. .. , KfI;\ 0, K~! II D

12450

nSA

KZ,KY,KX.K~,KV,KU,KT,KS,K~AO,KRAD

1245:)

DSA

KZ,KY,KX,KW.KV,KIJ,KT,KS,K'"ll\O,,,KAO

1<>450

DSA

KI,Ky,KX,KW,KV,KU,KT,KS,KfllI[),K~AO

1<>45'1

U'i"

KZ,KY.KXtKW,KV,KtJ,rCHK
LIIBCHK
01451)
LARCHK
09460CTCD
WC+5*20+18,LABCHK"
WC+ 13, LAHCHK
09480
TFM NIJAO .LABCH"
09490
09530CLOSA OSfI CTCD-lAHCHI(+10Q
DOM', 1 AeCHK
09610

UtGIN C

~ITH

CARD

ALR~AOY

READ

-------------------~-----------~---------------------------------------------~-----------------------

04490LASWOKH

CLAe ... 6,TRLAB+6
04450

•

01360LBOSA OSA

_ _ ..,... _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _

DSC

LII$WOK,TRSw"

TF

WC+8,LBDSA-2

NLlW frST·IF STATUS 5WS ARt ALL

I~

CHDU

rcoe-lSMNEMtl07
07310

03030LCSW

BNF

.""'"~

.. _ _ _ _ _ _ ....-. - - _ _ -

_______________ -

__ - - - - __

--_~

..... _ _ _ _ -r-_ - - - - _ _ _ '""' _ _ _ ._.,...--- -

-

____ ,,... - . - - - - - - - - -

1,0
07660nUJC2 TDM

·LCSW,l,ll

I S"'7

....-.. "" ...•-,."""'"-...

'''~~~~~--------------

01910RDNN
13980

00280LOSA

OS

04710lGCANDTOM

BD
BD

00;:'/01 i ILt:::'U~

,LU~A+~

01000

LDSA,L,lO

CM

TRS~.O"

RESET OUTPUT SW TO OK
04790
04860
04810
04810
05850GOTOF
06030
06600
06620
06940

OS

BTM
TF
AM
BNR
BNR
BTM
BTM
BTM
BTM
BTM

OS

LGCANO,DSWNLB
BOL+ll,LGCANO-l,11,PULL IN INPUT SW ADDRESS
LGCANO-l.5,10,
THAT SW WAS OK
LGCAND+12,LGCAND-l,11, BACK FOR ANOTHER
LGCAND+12,LGCANO-1,11, BACK FOR ANOTHER
LGCANO,DSWNLB"
GO TO START MESSAGE
LGCANO.DSWNLB
LGCAND.AMDSA2
LGCANO.AMDSA
LGCAND,OBOSA

,*
08830
TF
OQ080DI SAMTTO
09110
TO

00180LNTH

THIS MUST BE SET SOMEWHERE VET

.HECDSB+5*5+2

04440

09Q60LITS

MONCAL.LCSW
MONCAL,LCSW"

,3000,

LI TS, TFNO+ 11 ,11

AMB2+11,LITS-1
AM~?+1l,LITS-2

CORE ALLOTED FOR STUDENT PROGRAMS, LOG ENTRVS
03920AREA

DS~

LNTH

*** UNDEFINED ***

LOAD

009AOPRIN

002COLOWESTDS

,2302,

CALL LOAO,361"

**CHANGE IF PROBLEM NOT DIM NO. 361**

LOWEST CORE USED -- BEGINNING DORG -- DDA-S
00300

DORG LDWEST

05650LPARENOVLC ,2.24,2,99,5,LPFND
0'5040

o 71COLPRD

AM

SCAN,LPAREN

C
BO
TO
TO
fO
B7

LPBO+21,HEOOSA+9*5
LPBD,*-*
NOCMES+76,LPBO+21
NOCMES+74,LPBO+20
NOCMES+72,LPBD+19
LPBD

CNTBD+11,1,10
07120
07140CNTBO
07150
07160
07710
o HIOf)

05150LPFNO TO

BTM

BOUNCING OUT OF

SGSw2,SGSW"

05650LP~RENDVLC

02560LPSW

OSC

L,O"

,2,24,2,99,5,LPFND

PARENTHESES NOT CLOSED
0'5710
TOM
06130RPOSII I)SA
061'5f)RPFNO BNF
070300BOSA20SA

04990LSCANSTF

SCAN WITH ( IUUND

CM42+11,COL"

LPSW,l,11
-lPSW,-SGSW,-SGSW2
UPCOL,LPSW
OASW,-OCSW,-AMfSw,-CDVSW,-LPSW,-S~SW2

SAVE POINTER

05180

BH

04050

CM

LSCANS",

NO, GO RUN THE ALPHA GAUNTLET

AGAI~

03930LSMNEMDSAC 4 •• ,.,
. LSMNEM-4,2323,8,

YES, WAS THERE ANY

PR~V.

LABEL

e .. tF et6tt#

04410
04510TRlAB
04570TRLAB
0't580
07290
07300
07360LBDSA

o
09S10LSTED SM

'iI""

DSA

IS LABEL SAME: AS PREVIOUS
LSMN(M+7.LSMNEM+21.2
LSMNEM+7,LSMNEM+21,2
lSMNEM,HOLAB
WC+l'3,LSMNEM-7
NUAD,LSMNEM-7
TCDB-LSMNEM+I07

BD

LSTE:O,EDCM+6,ll

C
TR
TR
TF
TFM
TFM

HOlAA,LSMN~M,.

TDEC+6,2,10
09820

-------------------.---------------------------------- ---------------------------------~--------~---~-

05710MINUS DVLC

,2,54,2,4~,2,~~,2,64,2,62,2,99.5,MNfND

05090
0564()AMT

00380MlPRSWOSC

~2400MMIS

BTM SCAN,M(''IIUS
DVLC .2.41,2,54,2,-63,5,MINUS+2,2,Q9,?,AMFNO

1,0" 1 IF t1LJLflPLE PROBLEMS
02110WHATP BO

GETNO, MLPRSW"

DIGIT IN POSe 2 UF SECTOR FOR YES

123'00
12350

MMIS+11.79,10
MMIS+ll.ISBNF+ll,11

MM

05S30MNFND TOM

TFM
S

MINUS UR . FOUND

SGS~,1,ll.,

1 FOK MINUS.

FLAGG~D

057 tl)'l1 'HJS OVLC ,2,54,2,49.2,55,2,64,2,61.,2, q9,5,
057JO~MINU~DVLC ,2,20,2,99.5,MNFND
.

00210MCNC 4l Os

THIS SHOULD NOT HE: VARIEI) TwO INDE:PUJDENTLY

.796.

DSA

02140

o

MNF'~D

MONCAL

Itll

0"l970BDNN
07980
13970

13'1130

BO
BNC1
B NC 1
RO

MONCAL,LCSW
MONCAl •• ,
110NC AL
MONCAL,LCSW"

***' SWITCH 1 UN FUR QATCH RJN .**
THIS MUST HE SeT SOMEWHERE YET

-----------------------~---------------------------------------··--------~~-~~---------------i~------~

140l0Ml1NNS DAC

l"l,tlAl. SHElr fRROR

WAry MONNS

119bO

Q9030MORYErBNR

SOMAM1,AMR?+11
OqUIO

08760NLRMESDAC

06190Nr\NN

TF-

"'.I\U Pl{lJG

f IltJrj['

R~R

HJR Ttl IS TRAN

OHroa

TO

Oil flO
()8l?0
O!lBO

TO

1 '1H~fJ

')fliI40
Ofld50

078l0NOCMESDAC

~u

177'

NL~MES+qO,CNT

NLflMcS+UH,CNT-l
~LRMES+8h,CNr-2

HTM

ERPRNr,~lflMES-l

f3I1JL

NN"l,'J., ,

YES, CO TO PROCESS

t*
OH~

•

Tn

ryPE, TRANS

T F l " + 1 1 , H[ [) [) <; f~

05.?20

09l20NOAMTSDS

MORYET,rHNR+l1,11

40,r.D

TF

NO'\MTS,*-* ..

HNF
CF

NSUBL,NrJIIMTS

01750

TD

TI)

rRANSACTluN

H~AO~R

WlflMTS

conE PROVIDED FOR TRANSACTrON.NU
0176!)

PKnCl~S

nr'"

II LA MCcOY

NOCMES+76,lPBD+21
NOCMES+14,LPR0+20

'"

TO
BTM

07770
07780

04030NOCOl7C

CLR+6,INPUT+20"

05510NOENO AM

COL.2,10,

IS MNEMONIC FIELD BLANK

UP ON CARD
05450
05790

078QONuGO

TO

NOEND",
NOEND

BL
BL

NOGO
NOGO

WATY NOMMS

WC+4*20+18,GLLOOP
11970DITCD BNF

08540NOSKIPBNF

NOPRD,PRSW

AGOGO-12,TDMTR+ll,ll
08480

14090NOT~

NO, GO TO UP CARD COLUMN

23,ERROR CUT-OFF
07960

12030NOPRD TFM

BNE
B7

Fl F)t' , P ~tB E RS

07H50
07870

08030NOMMS DAC

NOCMES+72,LPBO+19
ERPRNT,NOCMES-l

OSAC 41,

BNE

NOSKIP

BUT NOTE PROGRAMMING ERRORS ABOVE
137900UTNOTATM

HEDLIN,NOTE

/t J...

07820NCTUCHPUT

Q8SQONSUBL TFM

02800NTITA20AC

TE~PC",

ADMIN RUN, WRITE BACK UPDATABLES
07680

BE

NOTUCH

08840

ANF

NSUBL,NOAMTS

SUSAO,O

36,fITLE OR ADMIN CARD MUST
02660

08120NTITC DAC

00460NUAO

OS

08270NULAB AM

19,TITLE

CA~D

BEGI~

INPUT

WI\TY NTITA2

~(SSING'"ACCnRDING

TU MCCOY

07550

WArY NT I TC

0071:10
007<10
00800
03440
07300
09490
12050
14210

TF

NUAO,OK~DJ-l,11

S

TFM

NIJAO-2,WC+8
AOJI-, NUAO
NUAO,OCSW
NIJAD,LSMNEM-7
NUJlO,LABCHK
NIJAO,EOIT
NUAO,IiEGN02

BL

NULAB

,*

TF

TFM
TFM
TFM
TFM

CMC+11,8,10
08510

c

"X'

09200NUMAMTTF

· U~~T-h~\!l.PLftTER
C
. ~ if H

OO+11,TFNO+11
BNZ

NU~AMT

i

o

09360NXT

AM

B7
B7

071COOflJ

OS

NXT
NXT

OCSW,-OBSW,-AMTSW,-COVSW
06940

07030080SA20SA

[ECHNOLOGY

TBNR+l1,l,l0
09140
09310

070100805A OSA

.J

BTM

lGCANO,OBOSA

OBS~,-DCSW,-AMTSW,-CDVSW,-lPSW,-SGSw2

06990

BTM

SETSWS,OBDSA2

05 :iIOSCAN
05)40C 1
05370
05381)
05400

TF
C
BNf'
CF
C

ORJ,--1,11,
OBJ,---"
BF.l2, OBJ"
ORJ" ,
OBJ,COL.l1,

06920
06930AMBA

TF
AM

OBJAD,ADREG
ORJAD,--*

2
t~R I r~r, IN CH.\R OUE TO NEtt:SSITY T:J
MAIN COMPARf:, WITH OVERf'lO~
COLUMN VS. CONTROL lJNEQUAL,:JlJT IF
CLEAR AMBIG FLAG
AND CUMPARt: AGAIN

::F
~O~A\O!IiIG

071400BJAD DSA

------------------------~-----------~------------------------------------.~-------------.--~-----~---

071800BMES OS

()6960

025300BSW

DSC

1,0"

8TM

ERPRNT,ORMES-1

1111 OR (CUST) LAST FOUND
061200SWNLBDSA
06320
BNF
O"340~SA~T TOM
06t>70
TOM
06750AMDSA2DSA
070100BDSA OSA
07030ilBDSA2DSA

-OCSw,-D~Sw,-CDVSW,-A~TSW

UPCOL,OBSW"
ot-\SW,O
OBSW,O
-OBSW,-SGSW,-SGSW2

OR A

S[G~

HAS NOT PRlCEEDED

DCSW,-OBsw,-A~rsw,-covsw
OBSW,-DCSW,-AMTS~,-COVSW'-lPSW,-SuSW2

----------------------------------------------------------------------------------------------~------

033400M[S

Tf

o18400NE;S At DC

OUTPUT+f8,CLR+78

03HOcRP~NrBD

OMES,PSw"

01911(t
02020

A

.-l,(V,lt,~Al

A

*-l,ONESAl

B7

ODG

6,lrOOOl

140600CG

006900RGI

NOP
._-

•
,I
I

021300RIGDADDA

U~RErERcNCED

-_.

,0,0,0,0
02050

TR

VlC,ORIGDA

~rA~OA~O

RUUTINE TO

O~TPUT

DIAG~3~rl:

075900UTC

SM

076600UTC2 TOM

076700UTC3 CM

TCMC-ll,2,l0
07490
07510
07610

BE
BE
BE

OUTC
OUTC
OUTC

07520
08520

BlC
BlC

ourCi!
OUTC2

A7

UUTC3

09750
09920

BE
B7

OUTED
OUTED

108 'H')

AT
BT
AT

OUTU N, QUTU N-l
DUTL I N,l1UTLI N-l
OUTLIN,QUTLIN-l
QUTU N,GUTU N-l
OUTL IN, OUTLl N-l
DUTL IN, OUTLl N-l
OUTLIN,OUTLIN-l
OlJTlIN,QUTLIN-l
oUTlIN,oUTLIN-l
OUTL IN,oUTLIN-l
OUTLIN,OUTLIN-l
OUTLIN,OUTLIN-l
OUTLIN,OUTLIN-l
DUTLIN,OUTLIN-1
oUTLlN,OUTLIN-l
OUTUN,OUTLIN-l

lCSW,l,ll

103200lJTL INAD

••• FIll

IN •••

TITSAY+2,4144,8
07650

098300UTED SM

",

TDEC+b,I,10

K41,PRSW
10850
11070
11070
11430
11430
11600
11600
11920
1192U

12620KO
12620KO
13520
13520
13560
135'>0

IH

BT
BT
AT
BT
BT
BT
BT
BT
AT
BT
AT
AT

I"~

13850
13850

137900UTNOTBTM

OUTLIN,OUTLlN-1
DUTL IN, OUTU N-l

ANE

OUT NOT

MEDLIN,NOTE
13740

029COOUTPUTDAC

AT
AT

40,

"
02~3C

02970
03170
0318C
03J40DMfS
0"350
03360
03370
03'>20
035ilORI~NR

03660
03670
03770
06540
10080
10110K61
10150
10200
10210
l0240K'i1
10260
102"0
10240CR')
103'10
10400FLD 1
10410Fl02
10420FLD3
10430Fl04
10440FLOS
10590
11840
11980
11990

OSA
DSA
TR
KNK
TF
TF

TR
TFM
TR
ANR
TF
TR
TR
BTM
TF
TF
TR
TF
TFM
TR
TF
IF
TF
TF
DSA
DSA
OSA
DSA
OSA
TF
TF
TFM
TFM

PERMANENT

OUTPUT
OUTPUT
fJUTPIH-l, r~Pur-1., NO RMS AllUvJE[) ON CARD
RM[RK,OUTPUT+160
OlJTPUT+78,ClR+f8
OUTPUT+ 158,CLK+ 78
olJTPlJT+7,ERPR!H-l,11
H35,UlITPUT+6
QUTPUT+39,INPUT-1
.+20,olJTPlJT+40+160
OUTPUT+46,ClR+46"
THIS IS THE CHITI~ERARY
olJTPUT+47,*-13.11
OUTPlJT+39,INPlJT-l
~RPRNT.OUTPUT+237"HLA~K CARD

E~PR~r

OUTPUT+112,H[~LI~-l,11
OUTPlJT+138,HlDLI~-I,ll

OlJTPUT-l,TITSI\V-l
OUTPUT+8,CLR+8
olJTPUT+15A,14,lO
OUTPlJT+3~,TITSl\Y-1

GIJH'UT+4il,CLR+R
OUTPUT+l38,Cl~+78

nUTPCJT+l'i8,CLR+7P.
OUTPUT+78,ClR+78
OlJTPUT+6
olJTPUT+96
OUTPUT+118
oUTPUT+138
oUTPUT+158
nUTPUT+6.GlBNF+ll,11
OUTPUT+6.ACTMES
FlOl,OUTPUT+16
FL02,JUTPUT+116
/67

C:

12000
12010
12020
13840

TFM
TFM
. TFM
TFM

TFI'I

101'0

o

018400 l JTSWLC

FL03,OUTPt}T+146
FL04,OUTPUT+116
FL05,OUTPUT+206
OUTPlJT,33,10
TR<:»C. + II, 01.4 T PIA.'"

CRIT1,Pt-1BERS
07130

BH

OlJTSWL

--------------------------------~------------------------------------------~~------------------------

065600VBMESDAC

50,STlJOENT PROGRAM ExCEEDS CORE CAPACITY AT THIS POIN"
065200VERB BTM

065800VRM2 DAC

43,STUDENT PROGRAM TERMINATED, JOB
06530

065200VERB BTM

ERPRNT,OVBMES-1

TERMINAT~D'

BTM

ERPRNT,OVBM2-1

BNL
BNL

OVERB
OVERS

ERPRNT,OVBMES-l
04630
05920

----------------------------------------~------------------~---~---~-------~-----~-----~---.---~---~-

010600VLAP TF

OVMES+80,*-1

01130
01680
OlllO
01740
01770

BTM
ATM
BTM
BTM
BTM

OVLAP,4171,8,
nVLAP,4472,R
OVLAP,4200,8
OVlAP,4471,8
OVlAP,430Q,8

CHfCKKY-SrOppy IF REAL BAD

------------------------------------------------------ ----------------~------~-----~-~~----------.--OllOOOVMES OAC 42,CORE OVERLAP, PRDBL~M WITH WISAl PHASE •• '

010600VLAP TF
OVMES+80,*-1
01080
WATY DVMES

o
--~-------~---------------------

01890PHA$AITD

SAVAl,300,2,

_____ -________________

01910

01920
02260

03010PHBERSDC

CM
AL
TCD

PrlASAl+6,SAVAl+50
PHASAI
PHASAI

A...,
AM
A'"

PHREK$,l,lO
PHBERStltlO
PHrH:RS,1.10
PHAERS,l,lO
PHAERS,l,lO
PHAEKS,l,lO

3,0

04470
04690

05H80
06060

A~

06180
06650
06il90

II'"
A~,

AM
AM
07t\400lJTSWLC

o(,'no

03020PHCERSOC

:.
\
I

------------------_ft~---------------------~----

SAVE 300-349

1'J7fl90'wr;o

TO

07()00
07911)
13730SI:ER
13890
13900
13910

TI)

TO

CM
TO
TD
TI)

PHAERStl ,10
PHAI:KS,1.10
I fl. PHBtRS

C~

FLFx,PHilERS
rLFx-2,fJHFl[RS-l
HFX-4,PHBERS-7
PHAERS,O,210
FLFY, PHBERS
FLFY-2,PH8ERS-l
ILFY-4.PH[\ERS-2

3,0
077<)0

AM

07860

C

07'l20
07930
07940

TO

08590

08740
Oq'lCO
l?o760
1392()

13930
139(.0

TO
TO
AM
AM
AM
CM
TO
TI1
11)

PHCtRS,l,lU
CRln.PHCERS"CHECK CLJTOI-F
FLF2.PHCERS
FLF2-2,PHCERS-l
FLF2-4,PHCERS-2
PHCERStl. )0
PHCE~S,l,lO

PHCERS,l,lO
SEER+6,PHCI:RS
FLY,PHCERS
FLY-2,DrlCEHS-l
FL Y-'4, PdC[RS-2

"1

05BCOPLFNO TOM

SGSw,O"

PLUS OR + FOUND -- THE 2 SIGN SWS ARE
05700PLUS OVLC ,2,57,2,53,2,64,2,62,2,99,5,PLFND
057:'ClSPllIS OVLC ,2,10,2,99,5,PLFND
01320
SF
PLFND+ll

05700PLUS

DVLC ,2,57,2,53,2,64,2,62,2,99,5,PLFND
050BO

00geOPRIN

CALL LOAC,361"

02980PRINTIDS

00370PRSW

DC

SCAN,PLUS

**CHANGE IF PROBLEM NOT DIM NO. 361**
02120
02240
02250

02940PRINT DS

BTM

,>.-4,

87
TF

87

PRIN
PRIN+25,GETNO+5
PRIN

PRINTER 110 CONSTANT
03550
03690
10120
10270
10350K41

PUT
pur
PUT
PUT
PUT

PRINT
PRINT
PRINT
PRINT
PRINT

036PO

PUT

PRINTl

,*-~

1,1"

DSC

1,0 IF NO PRINTER

03450
AD
03790A5TCD R~JF
07240
BD

TRA4,PRSW
TRA5,PRSW
"24,PRSW

/ 7£>
07990
BNF
09970BLliN BD
10070HEDlINAD
10140TITLO 1:10
103200UTL INAO
ll970D1TCD BNF
13830ALLDONBO

c

*+24,PRSW
K71,PRSW
K61,PRSW,7
K51,PRSW
K41,PR5W
NOPRD,PRSW
*+44, PRSW

--------------------_._------------------------------------------------------------------------------04B50PSEEK 8NF

BDL+12,8DL+ll,11,

SW DESIRED TO

04800

BN~

04tl20~Dl

BNF

B~

OFF,

~RANCH

PSEE:K,BDl+ll"
PSEEK+12,*-*"

IF

BI~>ANCH

[S

O~

IF THE:

S~

[S OLS[Rt::O TLJ BE 'JFF

IT

------------------------------------------------------ -----------------------------------------~----03l60PSW
i

os

• *-

03l50RMCHK TOM
03310t:RPPNTBD
03320
TOM
07250
TOM

PSW.O
OMES.PSw.,
PSW,l,Il.
PSW,l,ll

STA~DARD ROUTI~E TO OUTPUT DIAGNOSTIC
PUNCH CIIRll COpy ljNlY (JI\jCE

-----------------~------------------------------------ -----------------------------------------------

03040PUNCH DCA

,OUTPln

09980
10220
10330

PUT
PUT
PUT

PUNCH
PUNCH
PUNCH

----------------------------------------------------------------------------------------------------00440PUTADJPlJT

WC('C,RBC

0J-2l0
01210
01300
01300
01380
01380
01500
01500
01610
01610

BT
ST
AT
RT
BT
RT
BT
BT
BT
BT

PlITADJ,fJUTADJ-l
PUTADJ,PUlADJ-l
PUTAOJ,PUTADJ-l"
PlITAOJ,PUTAOJ-l"
PUTADJ.PUTADJ-l,.
PUTADJ,PUTADJ-l"
PUTADJ.PUTADJ-l
PUTADJ,PUTADJ-l
PllTADJ.PUTADJ-l
PUTADJ.PlJTADJ-l

WRI1E OUl I.S.,B.S. lABELS BLOCK
WRITE our [.S.,B.S. LABELS BLO:,
G.l. LAbELS FOK PHASE B
G.l. LA~tLS FOR PrlASE 13

c
I

I

17{

II
I'~

...
03470
03470
03820
03820
07340
07340
OqS1O
OQS10
12080
12080
14240
142',0

•

BT
BT
BT
BT
BT
BT
BT
BT
BT
BT
tiT
RT

PUTADJ,PUTADJ-l
PUTADJ,PUTADJ-l
PUTADJ,PUTADJ-l
PUTADJ,PUTAOJ-l
PUTADJ,PUTAOJ-l
PlJT ADJ, PUTAOJ-l
PUTAOJ,PUTADJ-l
PUTADJ,PUTADJ-l
PUTADJ,PUTAUJ-l
PUTAOJ,PUTAOJ-l
PUTADJ,PUTADJ-l
PUTADJ,PUTADJ-l

---------------------------------~-----------------------------.--~-----------~---------.--.--~-------

08500QCEND CM

CCOl,INPUT+142"

IF CARD OVER

08460
084QOTDMTR
08600
OH750
09020

Bl
I:l

B7
87
B7

QCEND+24
QCEND,*-*,7
QCEND
QCEND
QCEND

----------------------------------------------------------------------------------------.------------~

00240R

OS

LENGTH OF A lEDGER ACCUUNT IN CONS1ANT KLOCK

***

054QORBACK C

UNR~FERlNCED

CHRO,CCll,ll,

SUPPRESS I3lANKS
BD
BNH

04660
05530

RBC

***

***

RRACK,RBSW
RBACK",

NO, GO TO tllANK-CHECK

***

JNDEFIN~O

00440PU1ADJPUT

WCDD,RRC

------------------------------------------------------ -------------~-~----------

03580RBNR

BNR

*.2C,UUTPUT+40+1bO
01110

o

~--

_________ -r---

RA"IR+52
I ,~

05100RBSW

OS

035',0
03780

BE
B7

RANR, "
RHNK

04't \0
046bO
05270

TOM
fl[)

RBSW,O
RBACK,RB$w

TDM

RR~W,O"

f)5,)40

Tf)~1

RRC;W,loll,

0307QREAD

TO

-

---- -

--- -

T.ITLE

- _ .. -

-

-

- . _ - - - - - - .... - - - - -

--~.,.,...

-

--- --

""!'

-.~-:--

-

-

.... -

67

07'>rr,

117

ROD

OBC:;)1

fl1

REIID

300·,~AV.tJ.l,?,

137

~Ni)

GO TO READ II

AND GO TO KEAO
nfli'. CARn IS IN

i'J!:I~
NE~

CARD

CARD

PUT 300-149 BACK
~D

R[:Thl,*-l"

eM
HNH

RETAl+6,14Y
RETAI

O~O'l[)

HNK

R~CHK,INPUT+l"

03280

R'IICHK+ U
OGR(, RMOIK

BE THIS A llL OL MOO 1

P$W,O

03510

TDM

- - " - - - - - - - - - - - - - - - - - - T"" -

0'55'>0
07310

OlY7Q
02030
07040

032COR~fKK

N~XT

YeS, ~ET SW TO RETURN TO SSUPP
YI.,S, SLT sw TO K(TUKN TfJ KRACK

READ
READ
KEAD
ANC2
AI
REAll" ,
137
READ",
TFM wC+]*20+1d,RfhD,.

O~20()

03150RMCHK TOM

PKl~T

INPl;1+1olNPIJT+160"RM TtJ &VEN lUCArION
03100
04070
04160

020 lORETA lTD

DU"IT

,UPCOl+9

-----------~---------------

•

NOP

____

IF CARD ACTUALLY R(AD

B

WHU(OM+l,'l

03l2UWHOCUMNOP

R'IIERK+32

17J

_

......._.._.._.. - •..... _.. ...- ..

BNR

03180

03110RMES

DAC

03140RMSCANAM

02170RNTY

DTN

05740RPAR~NDVLC

03210
03610

TFM
TFM

ERPRNT-l,RMES-1
ERPRNT-l.RMES-l

03640
03650

TFM

B

RMSCAN+23,INPUT-2
RM'iCAN

02210

GET

RNTY

BTM

SCAN,RPAREN

*+23,2,10

,GfTNO+Z

,2,C4,2,99,5,RPfND

-LP~W,-SGSW,-SG~W2

06190CLRSN BTM

Q6150RPFNO BNF

RMERK,OUTPUT+160

33,C-Z-8 ON CARD, REPLACED BY BLANK'

0'B20

06130RPDSA DSA

_.............. _.................. ,

SFTSWS,RPD~A

UPCGL.LPSW
05740RPARENOVLC ,2,04,2,99,5,KPFNO

06340RSAMT TOM

OHSw,O
06290
06780

130

B7

DID 'AMT' SHOW UP PREVIOUSLY

RSAMT,AMTSW"
RSAMT

174

00250S

os

LHIGTH OF A LEDGER

,3*1..,
06H6f)
106110
11140
11230
11140

Ol850SAVAl OS

AM
AM
SM
AM
SM

TF

T IN UPD"T"BLE BLOCK

AMBA+ll, SolO,
EDGLl+6,S,l0
EDARl+o,S-2*L,lO
EIJARl+6,S,lO
cDGL1+6,S-2*L,10

S LIKE IN SHEEPSH£Af)

SAVAl,300,2,
PHASAl+6,SAVAl+50
30f),SAVA1,2,

SAVE 300-)49

,19QOO
01890PH./lS" 1 TO
01910
CM
02010RHAl TO

0'5320SCAN

ACCOU'~

PUT 300-349 RACK

BRING IN CHAR DUE TO NlCESSI1Y TG CF
05010
0'5020
05030
05040
05050
05060
05070
0501J0
05090
05100
0')110
05120
05330
05390
05410
05420
05420
05440IFEND
05460
05470
05480
05500
05780

BTM
BTM
BrM
fHM
IHM

[JTM
8TM
BTM
BTM'
8TM
BTM
fHM
AM
AM
BE
TF
TF

CM
AM
SF
67
HL
TFM

SCAN,CRcDIT
SCAN,OEBIT
SCAN,AMT
SCAN,LPAREN
SCAN,VOUC
SCAN,DISC
sr.i\f"'!,CASH
SCI\N,PLUS
SC"N,MINUS
SCAN,SPlUS
SCAN,SI.1INUS
SCI\N,RPARcN
SCAN-1,2,10,
UP IN CONTROL ~OW
SCAN-l,3,10,
UP TO AMRIG ADDRESS
SCAN+12",
EQUAL, UP TO NEXT CHI\R
SCAN-1,SCAN-1,ll,lINlQUAL, SET UP IN ;'lfW I.URD AND
SCI\N-l,SCAN-ltll,UN[WUAL, SET UP IN 'JEW WORD AND
SCAN-1,99,610,
IF END OF CONTROL WOND
SCAN-l,S,lO,
YES, GU
SCAN-I",
TO
SCAN-l,,6,
ROUTINE,WITH CJL AT LAST
SCAN" ,
SCAN-I,eUST"
SNEAK BACK IN FfJM CUSl

c
CHA~

------------------------------------------------------ ----------~----------------------~-~----------064COSEC2 BNF SEC3,SGSW2

o

06360

BNR

SEC~,SGSW2"

DeTERMINE THE SIGN

--------------------'------------------------------------------------------~--------~~-~----~-------06370SeC3 BNF SPOS,SGSW

06400SEC2

BNF

SEC3,SGSW2

-----~----------------------------------------------------------~------~-----------~---~-~-----~~---13730SEER CM
PHBf:K<;,n,21n
136qO
13750
13760
13770

B7
AM
CM
BNH

SEER
SEER+6,3,10
SEER+6,PHCERS
SEER

.------~-------------------------------------------------------~--------------~----~-------~------~-02590SesW DSC 1,0,.
ERROR IN SENTENCE

06110DCUSI\20SA
06450
SO
06660
TOM
06QaOWHOP TDM

-SESW
UPCOL,SESW"
SESw,l,lO
SESW,l,l1

ASSEMBLE NOTHING IF

SENTE~CE

E~RDR

---------------~------------------------------------------------------------------------------------04QOOSETS WS TF
TDM,/, * -1,11,

ROUTINE TO SET SWS AS

044AO
04')60
04970
OI.cHO
05950
060RO
061qOCli~S!14

06QQQ

--------------------.

o

BTM
AM
flNR
RNR
fHM
BTM
BTM
BTM

SPECIFI~D

SE rsws, DSWr..JUI
SETSWS-l,5,l0
SET~WS.SETSWS-l,ll

SETSWS.SETSWS-l.11
SETSWS,DCDSA2
SETSWS,[)CDSA2
SETSWS, RPOSA
SETSWS,LJflOSA2

------------------------------------------------~-------------------.---------~~

Ilt
02540SGSW

OSC

1,0.,

SIGN OF LOCAL AMT
05750LPFN[)
05760
05800PLfNO
O'i!nOMNFND
061 HlRPDSA
061hO

TO
TOM
TI1M
TDM
DSA
Ii~f

liD
Ot>3'OSf:C3 8NF
063AO
BNR
0(411)
BNf
064?0
HNR
Ot.440SP(1S TOM
06750AMCSAZOSA
Oh30!)

SGSW2, SGSW"
RullN.C I NG OUT UF SCAN WITH ( FOU"IO
SGSW.O
SGSW,O"
PLUS OR + fOUND
THE 2 SIG~ SWS A~E
SGS\;tl,l1..
MINI)::' OR - fOuND
1 HJR "lINUS, FLAGr.[)
-LPSW,-SGSw,-SGSW2
CLRSN,SGSW
*+36.SGSW
SPOS,SGSW
S~IEG,SGSW

S'JEG,SGSW
SPOS,SGSW
SGSW,O
-ORSW,-SGSW,-SGSW2

------------------------------------------------------------------------------------------------~---OZ550SGSWZ OSC I,D"
SIGN OF PARENTHETICAL EXPRt:SSlljN

OS"'50LPFNJ TO
06130RPC$1\ OSA
Otdl0
BO
06360
8NR
06400SECZ BNF
Q675()AMOSA2DSA
0703"JOB[)SA2DSA

S3Sw2,SGSw"
f',CJUNC I tlG till T UF SCAN wI TH I r~llJ~[)
-lPSW,-SGSw,-SGSW2
*+24,SGSh2"
IGNORE TH~ WORD I~ NN~Nt (CUST),
SfC2,SGSW2"
OETE~~INE THE S(G~
SEC3,SGSW2
-ORSW.-SGSw,-SGSW2
OASW.-OCSW~-AMTSW,-CDVSW,-LPSW,-SGSW2

---------------------------------------------------------------------------~------------------------PQ320SLMES OAC 40,<;UBlE{)Gf:~ lJSf'O I:'RRONEOlJSLY, TRAN NO 177'

09200
09z-,O
09280
092C)O

•

Tn
TO
TO
oTM

SLMES+76.CNT
SLMES+74,CNT-l
SL~ES+72,CNT-2
[RPRNr,SL~ES-1

---------------------------.------------------------------------------------------------------~.----09330SLOKC
AM
00+0,*-*
09250

liNR

SLOKC,SLJ~AD

---------------------------------------------------------------------------------.------------------.
05730SMINLJSOVLC ,2,
)n.?,9q,5,M~tNO

O'illJ

IHM

SCAN,SMINlJS

/11

01510S"'1

06430SNEG

AM

SF

09110S0MAMTCM

01190
01280
01290

TF
A

SM1+11,ADJF ..
HEOOSA+6*5,SM7+11"

A

HFnn~A+7*~~~M7+1~::

06380
06410

BNR
BNF

S~EG,SGSW

INST

06440SPOS

TOM

05150SSUPP C

SNEG,SGSW

AMB,?+11.*-*
09030MORYETBNR
09090
SO
09100
B7

05720SPLUS DVLC

SAVE UPOATABLE BLOCK ADJUSTMENT
WHOOPS -- UPDATE HEADER OSA-S

SOMAMT, AMB2+l1
SDMAMT f AMB2+ 11
SOMAMT+24

,2,10,2,99f5fPlF~D

05100

BTM

SCAN,SPLUS

06370SEC 3
06390
06420

BNF
R7
BNR

SPOS,SGSW
SPOS
SPOS.SGSW

SGS~.u

ClErO,COL,II, SPACE SUPPRESS, ENTERS HERE
04670
05260

B7

BNH

SSUPP
SSUPP",

NO, GO TO SUPPRlSS SPACES

111'
14160STCRl DC

14170STQR2 DC

14lS0STOR3 DC

09140SUBAO OS

06070SWELL CF

01540S2

TF

L,O
1302flKl
13110KW
13200K T
13260KQ

TFM
TFM

13070KY
13160KV
13220KS
132HOKP

TFM
TFM

13090KX
13180KU
13240KR
l3300KO
1HOO

TFM
TFM

TF
TF

*+23,STORI
*+2),STORI
STORl,C3T
SHJRl,C2T

l,O

TF

TF

Kl+23,STOR2
KW+23,STOR2
STOR2,CH
STORZ,C2T

l,O

TF
TF

A

Kl +23, S TOR3
KW+23,STOR3
STOR3,CH
STOR3,C2T
C3T,STOR3

,*
08870
TF
08d90NSUBL TFM
09250
BNR

SUBAD,TFNO+II,ll
SU"AD,O
SLOKC,SUBAD

06020
06040

B7
BNF

SWELL
SWELL,TRSW

A

S?+1l,ADJF.6

DswrilB

*+2"3, *-*, ,
Ol5BOUPS2

SPECIAL RELOCATION

177

o

'L»I+ .,j!m••

I'!!,j/I',!h!

'Ie"

•

•

01510
01600
01600

08940fBNR

14020TBGX

TO

DC

TFM

S2+11,5,10
S2,S2+11,11
S2,S2+11011

TF
AM
BNR

AMB2+11,·-.
08800
09000
09010
0'1220
09360NXT
09370

AM
B1

TBNR+11,AGOGO+35,11,AO OF START OF
TRNR+ll,5,10
MORYET,TBNR+11,11
DO+6, TBNR+ 11 til
TRNR+ll,l,lO
TBNR

13880

TF

TBOX-4, EDI TA

TF

-

~-.--------------------------------------------------.---~~------------~---------

~C+13,A~GINB

07360LRDSA DSA

01600TCMC

C

U (HO

TCD

OHAI'JENDB

DS

TCDB-L SMN~ M+ 1 \)1
TCDR
,TCOB-l

SM
AM
TOM

TCMC+ll,2,10
TCMC+l1,2,10
TSMC+ll,Q,6

TFM
SM
C
SM
SF·

TOELJ+6,EDITA-B
TI)EO+6,2,10
C2301,TOED+o,11
TDED+f,,1,l 0
fDED+6,,6

CLR,INPUT+160,7
075c}00UTC
07620
01630

091C;OToEO

TO

ROUTIN~

28,2300

--~----------------.

012AOTCDB

AM
BNR
BNR

*-*,I:OC"'+6,11
09110

09160
09110
OQS300lJTEO
09840

0

IPo
0(811)LSTED
09880
09900
OC)<) 11)

04950TO~J

TOM

SM
C
TD
CF

*-*,1,11
04900SETSWSTF
04910
B~lf
04910
BNF
04na
CF
04930
TOM
0',940
B1

T0'1J+6,*-1,1l,
TOMJ,TDMJ+6
TDMJ,TDMJ+6
TD"'J+6
TOMJ+6,O,6
TD'-'J+12

08190

TI)~ATR+ 11, TOSWAD
T[)MTR+ 11 ,on
TDMTR+Il,l,lO

TF
A

OAZOO

08410
AM
08,)40NOSKIPBNF
08630
TDM

05200ToNUM TO

AlPbAN-6,COL.l1,
05 r)OO
05230
06HO

•

06010TOX

~------.

TOM

TDED+o,2,t0
C23Dl,TDED+6,11
TDEo+6,EDCM+6,611
rfJED+6" 6

ROUTINf TO SET

OD

AS SPECIFIED

AGOGO-12,TDMT~+11,11

TDMTR+ll,l,611

~o

TFM
AIV!
TFM

TD'JU'4+6,ALPHA"J-6" THI:; AI~T Nfl NlJMEiUC
TDNIJM+6,2,10, NO, rHE~1 r:VEK
TONUM+6,ALPHAN-6

TOM

DX+IO,O

HICd

-- --.---- - --- -,"" -_ . . - ---------------- -- --------------- ---- --- - - -

OAl~OTEIV1PC

~WS

-+.--~-~

--- -----.-.,...--.,..---- __

-r_

"'"1'_-_ -- __

,WC+20",A
078?O~OTUCHPUT

TE~PC",

III

·

......._._.

__

.-

-------------•. ---...-..

--.---.--~----

.-----

•

11220TFARLBTF

.-.,ARBNF+11,11
11150ARLOOPTF
11160
AM
L1180
AM

10670TfLABOTF

06820TFLB

TFARIR+I>~R~ln

TFARLB+6, 2 ,10

.-.,GLBNF+ll,ll
10620
10640

TF

AM

TFLABO+b, FLOI
TFLABO+6,2,lO

06790NNNN
068')0
06870
06870

TF
AM
BNR
BNR

TFLB+ 11, HEDOSB
TFLB+ll,5,lO
TFLB, TFl B+ 11,11
TFLB,TFlB+ll,ll

12320
12330
12HOTFMD2
12380

TF
SM
TFM
A

TFLBIS+ll,ISBNF+11
TFLBIS+ll,2,10
TFlBIS+6,*-*
TFlBIS+6,ISANF+1l,ll

TF
AM

TFMD2+ II, FLDl
TFMD2+11,20,10

TF

12390TFlB I STF

12370TFM02 TFM

.-.,*-.

TFL8IS+6,*-*
12230
12240

08810TFNO

TFARLB+6,FLD1

PROCESS TRANSACTIUN HEADER

TF

08640A('OGO TF

TFNO+ll,*-*, ,

08820
AM
08830
TF
08860
AM
08870
TF
OQ200'IUMA MTTF

TFNO+ 11,3,10
LITS,TF~O+ll,ll

TFNO+ll,5,lO
SUAAD,TFNO+ll,ll
DO+ll,TFNO+ll

10450TIMES DSAC 5,TITLE,

12190

*-18,TIMES,6
*-*,TIMES
DORG TIMES-l

02610

C

11020
111:170

TF
TF

027COTITLA2DSAC 5,f!!Lt
I"JPUT+8,TITlA2

04270TITLB OSAC 5,TITLc
()3970lABCHKC

TITLB,

039BO
04000

HE
BE

TI TLBF
T! TUH-

074'30

C

TITLC,INPUT+B

10920

ST
flT
iH

HEDL I r~, TI fLES
HEDLlN,TITLtS
HEOLIN,TITlES+2*S

INPUT+~

04090T I TL ~FRC TV

08100TITLC OSAC

002<;OTITLESDS

~,TlfLE

,LOS.' +5
11630
11670

FILL IN FROM HtDDSA+8*5

tiN"

11710
11810
13390
13430

o

8T
BT
3T
BT

HEDLI Ill, TITLE S
Ht:DL IN, r I TLES+5
HEDll~, TITLES
HEDlIN,TITlES+3*5

------------------------------------------------------ -----~.---------..,.-,....-----~--,-.-------.- .....

10140T ULO BD
11610
11610
11750
11750
13370KM
13'l rOKM
13460Kl
L3460Kl

BT
BT
BT
BT
BT
BT
~H

BT

-------.--

T ITlO, TI TLo-l
TI TLo, TITLo-l
TI TLo, TI TLO-l
TI TL 0, TI TL 0- 1
TI TLO, TI TLo-l
TITLo,TITlO-l
TI TLo, TI TlO-l
TI TlO, TI TlO-l

------------------------------------------------------ --------------~---------------~-~-.~~----~-~---

02480TITSAVOAC

40,

"SAVE T I HE

07230
07260
076 7JOUTC 3
10l51)
l0240K51

TR
BTM
CM
TR
TR

TITSAV-l,INPUT-l
ERPRNT,TITSAV-l
TITSAV+2,4144,8
OUTPUT-l,TITSAV-l
oUTPUT+39,TITSAV-l

----------------------------------------------------------------------------------------------------OB080TQSWADDSA
o r690
TF
ORl'lO
TF
0941 OREG I NC TF
09420
SM
09431)
S

CNTBD+ll,TOSWAD
TDMTR+l1,TOSWAD
TOSWAO,HEODSA+6*5
TnSWAD,L,10
TQSWAI),HEDDSA+9*5

------------------------------------------------------ --------------.----.~------~-~-------------.---loseOTOlARSOSAC ~1,TOTAlS
$,

11510

TF

*-*, TOTARS

------------------------------------------------------ --------------~-------~---~-~---------~~~-~---~

o

"

10480TCTCR DSAC lO,TOTAL CR

"

1l0'50
11900

TF
TF

fLD4, TOTCR ,6
FlD4,TOTCR,6

TF
TF

FU)3,TOTDB,6
Fl03,TOTDR,6

10490TOTOB DSAC 10.TrTAl DB
11040
11890

01780TRAl

TRA

RACK TO DO

PHA~E

A2

*** I/NRt:FERENCED ***

02720T~A2

03480TRA4

- __--: ___

~-

038l0TRA,)

SM

CAZ+11.2,lO
02620

BF.

0264fJ

BE

03450

F)()

TRA

__ -_-------.- - __ .___ ..... ______ ___ - __ .. --""1'--------- - _______ - - - _____ .. _________

TRA
Ol790A5TCD BNF

•

TR,\?
TRfl2

04$10TRLAR TR

TRA5,P~SW

LSM~EM+l,LSMNEM+21,2
044~OLASWOKTF

04500
04620
05910
05930

S

Cl!\8+6. TRlt.H+6
TRLAB+ll,14S

C

I~<;A[), r~LAB+6

C

INSAD. T;{LAtH6

TF

WC+18.TRlAt3+6

-~----

____ - - ____ .... ..,. __ ,..
~

10IeOT~SC

04180TRSW

8NR

OS

06500

C

INSAD,TRLA8+6

10160
10110

TFM
AM

TRSC+l1,INPUT
TRSC+l1,2,10

.-12,.-*

,*-1
04450
BNF'
04770LGCANOTOM
04830
TOM
05860
BNF
06040
8NF
06610
TO
06630
BNF
06950
ElNF

08610TWOMeSOAC

LASWOK,TRSW"
TRSW,O"
TRSW,I,ll,
.+36, TRSW"
SWELL,TRSW
HOSW,TRSW
*+48,TRSW
*+48,TRSW

NOW TEST IF STATUS SWS ARE ALL
RESET OUTPUT SW TO OK
NO, SET OUTPUT SW TO NOT OK
FOUND, GET OUT

I~

ORDE~

27,TRANSACTION coDeD TWICE, NO
08580

flTM

ERPRNT,TWOMES-l

-----~-.---------------------------------------------------------------------------------------------

08620TWC!ME20AC

5, 777'

08550
08560
08570

093QOTWOSC DC

TO
TO
TO

TWOME2+2,CNT-2
TWOME2+4,CNT-1
TWOME2+6,CNT

6,200002
*** UNREFERtNCED **.

05240UPCOL AM

COL,2,l0,

ONWARD, LIKE UP ON CARD
05140

BE

UPCOL",

NO,GO TO MOVE IT

'"
OS160
OS300RbSW
05840
06100
06150RPFND
06200
U632r)
06450
Ob510
06710
07000

BNL
OS
87
B7
BNF
B7
~NF

RO

ElL
B7
87

UPCOL
,UPCOl+9
UPCOl
UPCOl
UPCOL,LPSW
UreOL
UPCOL,Ot\SW"
UPCOL,StSW"
UPCOL
lJPCOL
UPCOl

OR A SIGN HAS NOT PRECEEDEO
ASSEMHlE NOTHING IF S~NTENCE

E~RDR

-------~--------~------------------------------------- -----------------------------------------------

06700UPCOL6TDM

CDV~W,O

065QOAMFND 80
06720H()SW 05

01580UPS2

A

Sl+1l,AOJF,6
01550BNF2

06270VCFND TOM

UPCOL6,COVSW
,lJPCOL6+10

BNF

UPS2,*~*"

TRANSACTIONS

HAVI~G

SUBLEDGER HAVE

FlA~

VOUC FOtJND

I~sr,o"

05670VOUC
06230
01>260

OVLC ,2,65,2,56,2,64,2,43,2,9J,5,VCFND
VCFND+12
H7
VCFNO+12

87

OOgQOVKADJ TF
01200
013S0
01420
014'50

RTM
BTM
BTM

VKAOJ,HEDOSA+S"
VKAOJ,HEDOSA+S*5
VKADJ,HEDOSA+S*5, ,
VKADJ,HEDOSA+5*5

OS050

BTM

SCAN,VOUC

~TM

RELOCATE d.S.,I.S. LAKtLS TABLE

c

UNRELOCATE VtCTORS

11'7

d

0

* bh 'Mb' '4

rib

*'

Hiullbt"

'bltti,llitiwb"]jijIIBJI

00320WC

OS

b

,EWC-19
00450
004AO[)DATR
0048000ATR
004QO
00490
00510WCOO
00720
00740
00750
00760
00790
00810
01270
01440
01520
01660
01690

1

TFM
TR
TR
A
A
DO
TF
S
TF
AM
S
S

WC+13,*- ..
WC,WC,2
WC,WC,2
WC+5,WC+8
WC+5,WC+8
,WCft,A,
WISAL WILL UPOATE TO WURKCYLIIIIOERSlTSELF
WC+I0,OKADJ-l,ll
WC+IO,OKADJ-l,ll
WC+13,DKAOJ-I,ll
WC+8,l,lO,
LENGTH OF BLOCK UP TO NEXT HU~DRED
NlJAD-2,WC+8
ADJf-,WC+13
HEDrSR+5,HEODSB,WC+20+13
HEDDSB+3*5,HEDDSB+5,WC+20+13
HEDDSR+5*5,HEnOSA+4 .. 5,WC+20~13
WC+2*20+13,ENDD2
WC+3*20+13,ENDB
WC+4"20+13,ENDDl
WC+5*20+13,ENDC
WC,OKIGDA
~:,4?2"
GET LOCATION OF WORK CVLINDERS
WC+3,425"
MO~ITOR COULD DO THIS
WC+13,DCSW
WC+8,A40SA-2
WC+8,A5DSA-2
GETADJ,WC+6*20
GETADJ,WC+7*ZO,711,RE-CALL PHASE B
WC+18, TRLAt\+6
WC+18,7,l0
CETADJ,WC+8*2J,71I,LINK TO PHA$t C
GETADJ,WC+3*20,711
WC+18,BEGINB

OSA
OSA
OSA
CM
CM
CM
OlnO
CM
01750
TR
02050
070f;0
TO
C'ZC'70
TF
0343:)1\4TCD TFM
03460
TF
TF
03810
04170
!:lTM
IHM
04240
05930
TF
05940
AM
BTM
05960
BT11
07270
072AOTcrHI TFM
WC+13,L5~'Nf:M-7
TF-M
07290
onl0
TFM
WC+3*20+18,READ"
TITLE CARD IS I~
WC+B,LBDSA-2
TF
07330
BTM GETADJ,WC+9*20,711, LINK TO Dl
07880
8TM GETADJ,WC+f>*ZO
08010
ATM GETADJ,WC+7*20r711,LINK fn B
OA020
Ofl130TEMPC OD ,WC+20",A
AO OF ~TI\RT OF SVMTAB
OB6.50
TF
*+Z3,WC+lfJ"
GETADJ,WC+20
tlHI
09440

/13

O·
IHM
TFM
TFM
TFM
fF
BTM
11,7

WHOP

0~600

069HOWHCP

TO~1

ITSELF

DIGIT It\j P()S. 2 uF StCroR H.Ji{ YES

GETi\O, 1>lU'K5W.,

Ui~REFER.t:NCf:D

03120WHCCUMNOP

CYLINOE~S

WCDO,RBC

5[5 .... 1,i1

~EAO

06280WISGM OGM

~---,

•
•••

01C50WLRC

OAC

41,WISAL VS. PROBLEM
01030

02160WPRB

OAC

UNREFFRFN~Fn

FIEL~

"'tJ'

•••

LENGTH NON-MATCH'

WATY WLRC

33,ENTER 4-DIGIT DIM NO. OF PROBLEM'
02190

WATY WPRB

04010

C

XR.EFB,INPUT+6

07460

C

XREFC,INPUT+6

04080XREFB DSAC 4,XREF

08090XREFC DSAC

0707014$

DC

4,X~E~

7,1400014
045f>0

TRI.AB+ll,14$

'if 0

c

o

BEEIN

o

20

10

TURN ON INDIRECT
ADDRESSING

*:1=XEQ

WISRL

PHASAl
LOADER TRAvS TO
PHASAI

11

VENTER It-DIGIT OIM
NO. OF PROBlEI'1O

2

SAUE POSITIONS 300
TO 350

12

TURN OFF INDEXING

READ'DIM NUMBER
INTO THE CALL LOAD
AT PRIN

o
3

PUT DIGIT 1 IN 300;
AND -12 IN 305-309
AND 3~5-3'+9

RETA1
13
RES TORt 300 TO 350

23

lit

ADO ZERO TO ZERO

•

SET UP WORIt
CYLINDER D.t.~.
WC

~T

CALL LOAD
PROBLEM

15

GET LOCATION OF
WORIt CVLINDERS FROM
MONITOR; '+22-'+25

TIJ

13

RETAI

TO 20
WHATP

'"

120

SO TO PUTADJ FOR

VWISAL us. PRDBLEM
FIELD LENSTH
NON-MATCH'

B.S.l I.S.

(".,-.,

LABELS BLOCK

~_.;t"

I

EXIT

101

S cSc
SO TO DKADJ FOR
UPDRTA8LE BLOCK
(S.L • .) A.R.
TOTALS)

GO TO DtC.ADJ FOR
S.L. LABELS
BLOCtC. FOR PHASE
8 USE

112

SRVE RELOACTION
FACTOR AT 5"1+11

I

GO TO UtC.RDJ FOR
TABLE IN G.L.
LABELS BlOCtC.

c
DULAP
103
MOUE PHASE NRME
INTO IIIESSRSE

GO TO VtC.ADJ FOR
TABLE IN 1.5.)
B.S. LRBELS
BLOCtC.

GO TO PUTADJ FOR
S.L. LABELS
BLOCK FOR PHASE
B

11 '+

IICORE OVERLRP~
PROBLEM WITH WISRL
PHASE .. 11

124

GO TO PUTADJ FOR
UPDATRBLE f3LOCK

SRVE ADJUSTED START
OF G.L. LABELS AT
HEDDSB

I

125

EXIT

GO TO DtC.RDJ FOR
B~S.·.)

1.5.

LRBELS BLOCtC.

TO 120

REVERSE SIGN OF
ADJF

TO 200

c

220

o

USE V(ADJ TO
LJNRELOCATE TABLE
IN S.L. LABELS
BLOC(

211

GO TO o(RoJ FOR
S.L. AND A.R.
LABELS FOR PHASE
01 USE

221

UP THE CUSTOMER
ADDRESS IN TRANS BY
FACTOR AT SM1+11

UP~2

212

GO TO V(AoJ TO
RERELOCATE TABLE
OF G.L. LABEL
ADS

UP THE ADDRESS AT
POINTER BV ADJF

GO TO PLJTFlDJ FOR
S.L. RNo A.R.
LABELS BLOC( FOR

UP POINTER TO NEXT
ADDRESS

222

TO

00

o
213

223

01

T5
02
2
1

TRA BAel(. TO 00
PHASE A2 AND
lI'HERPHASES

o
PHFlSA2

•

205

MOVE START OF
TRANSACTION ADDRESS
TABLE TO POINTER

TO

210

52

~... j

300

(

SUBROUTINES

PUTADJ
WRITE D.C.F. AT
WC

320

UP D. C. F. SAVE "
POINTER 20

\---------\
301

UO

T
A3
D1
J 0

U~ADJ

<

321

311

"OVE IN START OF
ADDRESS VECTOR
TABLE

PT

"DUE D.C.~. AT WC
TO TRANSFER D.C.F.
AREA

'I

J

O~AOJ

302

r40VE IN PRESENT
UPPER LIr4IT OF
BLOC~TO WC+l'O

U~LDOP

322

312

FlDD RELOCATION
FACTOR AT ADJF

UP SECTOR AD FIT
WC+S BY LENGTH OF
THIS BLOC~

RETURN

303

SUBTRACT PRESENT
LO-CORE FRO~ WC+IO

313

UP POINTER TO NEXT
ENTRY IN TABLE

30'+

r40UE PRESENT
LO-CORE TO WC+13

305

UP WC+8 BY 1 (TO
NEXT HUNDRED)

TO '+00

c

I'"

o

MOVE EXECUTION
LIMIT TO NUAO
AND ADJF

UPPf~

401

SUBTRACT SECTOR
COUNT AT WC+3 FROM
NURO-2

402

SUBTRACT PRESENT
UPPER LIMIT FROM
ADJF

I

10
403

ADJF IS NOW
RELOCATION FACTOR
OF THIS BLOC~

RETURN

•

HASA2
lOADER TCD'S TO
6ETA2

10

A~TCD

SET START OF' 110

SECTION TO DCSW
elf.. TO WC+13)

;r'.~

L...

"

.."

SETA2
6ET A CARD

11

12

TRA

SO TO PUTADJ FOR
CARD OUTPUT
BLOCK

TRA2
13
SCAN CAROl PLACE
AFTER LAST
CHARACTER

*

LOADER TCD'S TO
A5TCD AFTER
OVERLAYING
CARO-O ROUTI NE

5

HALTI
OPERATOR
CORRECTS AND
STARTS

TO
1
GETA2

lOADER TCO'S TO
A'4TCD

TO

10

A~TCD

RESTORE CARRIAGE

TO 100

",

_.

120

SO TO PUTADJ FOR
PRINTER OUTPUT
BLOCK.

LOADER TCDiS TO
CTCO AFTER
LOADING PHASE C

TeOt
III
SET EXECUTION AD OF
TRANS-UPDATABLES
BLOCK. AS LA8CHK

112

SET C EXEC. AD AS
BEGINC~ ORIGIN AS
LASCHK

LOADER Tcoas TO
TCDS AFTER
LOADING PHASE B

121

RESET F1ELO-SPLIT
ADS ~S fOR PRINTER

NOPRO
122
SET EXECUTION AD OF
S.L.l A.R. LABELS
SLOCItAS GLLOOP

c
TCD6
103
SET EXECUTION AD OF
G.L. LABELS BLOCIC.
AS READ

123

TO PUTADJ
PHASE C

1'--------1
GO TO PUTADJ FOR

SET 01 EXEC. AD AS
GLOUT> ORIGIN AS
EDIT

--

10'+

60 TO PUTAOJ fOR
PHASE 01

PHASE 6

I

•

LOADER TCDIIA TO
DITtO AfTER
LOADING PHASE 01

TO 120
01 Teo

44#:

LOADER OENO'S TO
02TCO AFTER
LOAOING PHASE 02

02TCD
201
SET 02 EXEC. AD AND
ORIGIN AS BESND2

202
TURN OFF LRST CARD
SW

GO TO PUTROJ FOR
PHASE 02

DOG
GO TO GETAOJ TO
READ OUTPUT
BLOCK.

205

SO TO GETAOJ TO
READ AND LINK. TO
PHRSE e

BEGINB

I

II'

11

t

•

db

t

tnt Mrirtrittt

W*###tnd

b
h

±MilttH

I

Pi" rll··

I[

11

30.0

o

CLEAR FLAG ON 00+1>
NO LINIt

o
303
Cf0012
MOVE BTM ADDRESS
(OF O.C.F.) TO
00+6

304

READ DISIt THRU
fIIONITOR, OOE5
NOT RETURN IF
LINIt

•

30S

BRANCH BACIt

RETURN

,"

400

ROUTI NE, READ

lILL

*

TO 40Q
RMCHK

READ
~Ol
PUT * IN EVEN
LOCATION INPU1+l

402

READ A CARD> PRINT
OUT IF PRINTER

c

c
1.00

j

tb"l!

. t

. !I!!!!!

!!I

I

.. :.

II

500

•

502

PUNCH CRRD COpy>

SET I"DIC THEREOf:

o

•
~Ol

10

G

SAVE TITLE CARD AT
TITSAV

GO TO READ

TO
3
LABCHIC.

TO
G.L. LABELS
BLOCK) GOES TO

READ AND LI NI(
READ

; ,
~'

,.

(}
3

UTLBF
\I,A TITLE CARD
>----f1lJoJol :'i;

FOUNP'I,..,THE.,

"">SO,lJRCE" 'FfROGRAM'o, .

'IS" 2 OFF TO
CONTINUE AND
IGNORE) ON TO
ACCEPT'

~

14

HALT)
OPERATOR
TAKES ACTION AND
STARTS

TN
DE

W
C

1R
10

TO
ISLAS

c

# "tfttbtd

,. r

rtf

tr trttt

'itt."

wt\:*

rtrt

ttt tt htdrte"

tilt"

"m.

I"

!

120

100

o

REno IN OUTPUT
BLDele. ANEW

PUT THIS LABEL INTO
PREVIOUS LA8EL AREA

FINLIE
121
PUT END OF ROUTINE
CODE AT END Or:
PREVo GENERATED
CODE

101

*

SCAN CRRD> PLACE
AFTER LRST
CHRRACTER

122

112

GO TO GETADJTD
RE-CAl,;L PHASE 6

TO

o

I

"!

UP PHASE S ERROR
COUNT 8Y 1> SET 5W5
IN ORDER

SET NeW ROUTINE SW>
UP CODE POINTt:;R

0

BEGINS

ISLAS

103

COLLECT I '

RND
SPACES OUT
OF' LSAEL

~EFT-JU5TIFVI
S~UR5H

LA5WD~

113

INlTIRLIZE FOR
DUPLICATE SCAN

114

1Ott

TO ERPRNT, 'LABEL
DUPLICATES
~--.....-.i~~PREU! oUS LA6EL'

•

'1'05

RESET IN-SCAN 5W
CR65W)

TO 110

TRLAB
115
PUT PREVIOUS LABEL
AT END OF TABLE
WITH ADDRESS

TO 120

125

ADO 1 rOPHASE 6

ERRORS) GO TO CUT
OFF CODE GENERATED

TO 121
FINLlE

~03

200

SAVE COOE rOINTER
AT AD (START Dr:
ROUTINE ADDRESS}

GO TO SCAN FOR
'CREDIT'

SO TO SCAN FOR
'PLUS') ' .. INUS' ).•

,,,,I)

l-'~

'l'

TC

01'1
It

32

o
CJ

CONT
201
SET COL POINTER TO
COLUMN 12

GO TO SCAN r:OR
'AI'IT'')''''.)
lUOUC'.) vDISCv.)
'tASH'

212

>----~

b~

SCAN
222
SCAN ROUTINE.) ENTRY
POINT FROM I'IAINLINE
LSCRNS

HOEND
213
UP COL 8Y 2

C
30

OL
4

214
LSCANS
SAVE COLUMN POINTER
AT CM'+2+11

SET IN-SCAN SWITCH
TO ON

TO n
NEWCRO

215
RESET NUMERICS
POINTER TO FIRST

TO
FlI'HN

TO

210

225

MOVE IN tONTROL
CHAR FROM' eTM
ADDRtS$ TO oeJ

TO 320
LJP~

o

..

«t

he "» tt
t

t

#1

tint

ttrit ... " # ;

****

'"Ltd" "j

j"

'IF

nj
""

!"iI!

UP2
UP

310

SET IN-SCAN SW TO
oFF~ GO TO READ
CARD

•

TO
5SUPP

TDNU~

320
6T~

ADDRESS 2

TO 11
NEWC:RD

301

~OUE DIsIT TO
NU~ERIC POINTER

TI

oF

E
4 N

00
1

NNNN
I NI TI AL ! l:E G. L •
LABELS POINTER FROM
HEDoSB

o
. l13

UP NUMERICS POINTER

UPC:OL
UP COL POINTER BY 2

INITIALIlE ADDRESS
IN UPOATA"LES, .
RESET NUriERICS
.
PNTR.

TFLB

CLEAR FLAG ON OBJ)
UP BTM ADDRESS 3 TO
AMerG ADDRESS

314

MOUE IN LABEL
ADDRESS FROri

TU
oP

POINTER IN ADDRESS
TAIKE

3
2
~

•

325
T~

01'1

"

SA
o1

MOUE AM6Is ADDRESS
OUER BTM ADDRESS
(ENTER NEW WORD)

1 2.

TO

310

TO

"13

TO '+00

2

~oo

DOWN COL POINTER 2

~02

UP BTM RDDRESS 5)
6RRNCH TO MRTCH
RDDRESS IN CONTROL

TO sao
MRTCH

o

It!

,.

fIIATCH

500

tAFNO

520

SET OP CODE DIGIT
TO 0

o

TU

DC:

F

1 1
o2
2

SOl
BUT SUfIIMARIZE THE
SCAN PROCESS

521

LPFND
512
PUSH SIGN SWITCH TO
EXTERNAL SIGN
SWITCH

522
TO

o5
r:

1N

00
1

C)
PLF"ND
513
SET SIGN SWITCH TO
+ FOUND

523

TV
F

oC
1 N
1 0
0

TO 304UPCDL

MNFND
514SET SIGN SWITCH TO
- FOUND

TA

OM

F

~ N
00

o

TO 304UP COL

•

515

SET SIGN SW TO NO
SIGN~ LEFT PAREN SW

525

IJ(CUSTlIJ

F"OUND

ON

TO
OC;r-NO

TO

600

TO 300
CSFND

207

SOD

SET SCAN BTM
ADDRESS FOR 'CUST)'
CONTROL> SNEAK BACl

620
CRFND
SET INDEX TDLEN6TH
OF' WIS~L FIELD

D8FND
tHO
SET INDEX TO ZERO

TO 213
NOENO

601

611

UP PHASE 6 ERRORS
BV 1

UP

62.
PHASE B ERRORS 1

TO 613
SWELL

GDT036
602
PUT END OF ROUTINE
INDICATION IN CODE
AREA> UP POINTER

603

612

SET NEW ROUTINE SW
OFF

o

613
SWELL
SET SWS FOR GOESIT' T U
OP
DR 'CREDIT' FOUND
C
3D
OL
~

60l+

SET SWS FOR END OF
B

625

GO TO SETADJ TO

UP PHASE B ERRORS 1

READ AND LINIt.
PHASE c:

G
.TD

G21

TO 100
tl.RS"

;loa

. ' !I!!r:I*,j,n*

0

tt

'!l!!lu'2tt'tHftWWfm

'IN'"

!.!rlbtw+*%liiid!:illl"'!!'!!'\",,':!!,'H!!!i!'!!!!'mlttiltt:l,.""""'C'r:bl:'

'''W'

ht

"

r$

"tt

ttirei·

CLRSN
100
SET SWS FOR END OF
SENTENCE

710
VCFNO
SET OP CODE DIGIT
TO GROUP "ARt(

TO 30ll
UPCOL

TO 702
VCFl2

DSFND
701
SET OP CODE DIGIT
TO

VCF36
711
SET MNEMONIC-FOUND
SWITCH

*

b

"iff

120

721

MOVE OP CODE DIGIT
AND ADDRESS TO CODE
POINTER

112
RSRMT
RESET OBJECT
SWITCH> AMOUNT
SWITCH

TU

oP

C
30
oL

II

o
113

TAitE ALGEBRAIC
PRODUCT [IF SIGN)
EXTERNAL SIGN

1l'+

SET FLAG ON OP CODE
DIGIT IF NEGATIVE
PRODUCT

•

115
TU

OP

RESET SIGN SWITCH

TO "ONITOR

C

3 0

OL
'+

TO 711
IJCF'36

TO 72.0

EXIT

aoo

801

AMFqa
a10
RESET OBJECTI DBCR
. SWITCHESI SET
AMOUNT SW

UPCOL6

LOGICAL DR OF
OBJECTI SIGNI AND
EXT SIGN SWITCHES

811

RESET
MNEf'lONIC-FOUND
SWITCH

TA~E

320

PHASE B ERRDRS UP

WHOP
SET SENTENCE
SWITCH

1

821
~RRDR

TO 30'l
UPCOL

802

TAKE LOGICAL AND OF
NO AMT) NO DBCR)
AND PREU RESULT

AIIITN

812

TRANSMIT THE
NUMERIC AT COL TO
OP CODE DIGIT

322
SET SWS FOR OBJECT
FOUND

AHa'la

TO 301J
UPCOL

TO 712
RSAIIIT

o

813

POINTER BV 51 UP
ADDRESS IN
UPOATABLES TO NEXT
ACCT

~P

805

SET SENTENCE ERROR
SWITCH

01
I

TO 320
~,o

I

o

CSFND
900
SET UPDATABLES
ADDRESS TO ZERO

AMBA12
901
MOUE DBeR INDEX TO
OBJECT ADDRESS

AMBA
902
ADO UPDATABLES
ADDRESS TO OBJECT
ADDRESS

o

•

905
UP PHASE B ERRORS 1

TO

~21

WHOP

,..,,

...
BEGINC
o
MOVE ADDR O~ ~IRST
UPDATA6LE AttT
~IElD TO TOSWAD

DUTe

10

SCRN

20
tARO~ PLACE
AFTER LAST
CHARRCTER

*

TD 15
OUTC3

21

11

DOWN TOSWAD 6Y
LENGTH O~ ~IElD TO
LAST TRA~ CODED SW

INITIALIZE IN
TRANS. COOED 5WS TO
TRANS. 1

DOWN T05WAD BY NO.
O~ TRANSACTIONS TO
TRAN °ZERD" SW

o
MOVE TRANS. NO. TO
MESSAGE> UP PHASE [
ERRORS 6V 1

GO TO GETADJ TO
READ UPDATABLE
BLOCIt

TO
5
LA6CH/(

GO TO GETAD,J TO
READ
TRANSACTIONS
BLOCIt AND LINK

14
OUT\:2
SET INTERNAL LAST
CARD SWITCH ON

T

o

2S
LPSD
UP SWITCHES POINTER
l~ TRANS. NO. UP 1

2
1

TD

TD 114

FIJRTHC

~OTUtH

TO 100

1$ t& t t "#¢ itt thhtirt *.hri±ttti#t"t

b#

f"

!!lUI"

""T" 'f"

FORTHC
TC

GET FROM lREF CARD
NUI'IBER 0F FIRST
TRANSPCTI ON (CNT}

oN

o

120

T

e

2 D
2

~

12!

DOWN eNT BY 1 ~ SET
POINTER IN TRANS
CODED 5WITCHES

17

GO TO GETFlDJ TO
REAO AND LIN" TO
PHASE 01

122
SET POINTE R ON CARD
TO COL UMN 12

RESTORE CARRIAGE

\

\
GLDUT

0
?

NOGD
1 :3
MOUE ERROR tOUNTS
TO MESSFIGE

lIN"B
REflD OUTPUT
ROUTINE~ READ
AND LI Nit TO
PtlA5E B
BEGINS

--~.-.-- -~R CUT-OFF --

LANG ERRORS ..•
REF ERRORS ..

123

$ET POI NTER IN
TRANSACTIO N ADDRESS
TAB LE

\.
TO 200
NUL AB

ADMIN RUN~ WRITE
BACIt UPDPTPBLE
BLOCIt

1)

•
EXIT

~13

,----'-.... .. .
~."

,

".,.,","""."".."•. ,"..."'---~-~~--,---------,

NULAB

200

TFNO
220
T
MOVE NU"6ER OF
o
AfIIOUNTS.) LITERAL"
CODES FROM
3.
TRANSACTI ON

COLLECT)
LEFT-JUSTIFV~

SCUASH SPACES
OF

o

TO
OUTC2

201

LABEL AT CARD
POINTER) UP CARD
POINTER

UP ADDRESS IN LABEL
TABLE .. MOVE CODE
ADDRESS TO TBNR

TO 205
CCEND

o

2D2

HtWI T

222
_ _ _ _~UI- ADDRESS IN LABEL
TABLE> SET ROUTINE _
USED DIGIT

UP TRANS AD
POINTER) TRANS ND.~
TRANS CODED POINTER
1

o
MOUE TRANS NO. TO
MESSAGE) UP PHASE [
ERRORS BY 1

TO ERPRNTJ oNO
PROS FOUND FOR
1-----~ _ 1 TH I S TRAN TVPE)
NO ."" \I

.

TO 205
CCENO

214

flG0l2

224

SET THIS TRANS
CODED SWITCH ON

._---------..-----'

215

MOUE TRANS NO. TO
MESSAGE) UP PHASE C
ERRORS BV 1

TO

~lO

ClCEZ4

TO

~ll

AGOGO
225
MOUE TRANS ADDRESS
TO TFNO"'ll)
lNITIALIZE TABLE
SEARCH
TO

212

c

t!

II!

$I

ttt

.11

edtim&ettt i

rttitttiittttt

M1M t i t _ a . dtrtt¢"

Itt

tttri'b

ttf

tit

•

II

'!II

o
CLEAR FLAG ON NO.
OF AMOUNT5J MOVE
CUST AOOR TO 5UBAD

TO 400
TBNR

NSU6L
SET SU6AD AS

o

302

*

TQ 400
TBNR

•
215

TBNR
400
OBJECT DECODING
LOOP

C

·'I
,I

401
MOVE IN OP CODE
DIGIT

DlSAMT
421
MOVE DISCOUNT
LITERAL CODE TO
A"'B2+11

TO 41'"
01512

ADO

412

AM62
422
MULTIPLY DIGIT BY
LENGTH OF WISAL
FIELD

SET 1620
INSTRUCTION AS ADD
N

a
TO 404
A12

o
403

413

CLEAR FLAG> SET
1620 INSTRUCTION AS
SUBTRACT

A12

423

MOVE VOUCHER
LITERAL CODE TO
FlMB2+11

404

UP CODE POINTER TO
ADDRESS PORTION

TN

OX
5
1
5

T

424
MOUE CASH LITERAL
CODE TO AM62+11

TO '+ 1'.J
DI512

T f1

DO
R
'+ V
1E

aT
TO

205

DeEND

TN

OX
T
5
1
5

NUI'1F1MT
425
I'1DIJE TRFlNSfiCTION
flOOR FROM TFNO+l1
TO 1520 INSTRUCTION

o

TO SOD

216

,

!

'rOt")

'it

ttt

tIt $

.t

tt d

t

N

tt ±the

f****.

[

i

t'U

Itt "III!"

500

o

ADD INTO 1620
INSTRUCTION 'CO THE
PRODUCT FROM AM62

501

MOVE ADDRESS FROM
CODE POINTER TO
1620 INSTRUCTION
,po

o
SLOI(C
513
ADD FACTOR AT SU8AO
TO 1620 INSTRUCTION
II P Q

"'----.---.....~

504
MOVE TRANS. NO. TO
MESSAGE~ UP PHASE t
ERRORS 1

•

515

NXT

UP CODE POINTER 1
TO NEXT OP COOE
OIGIT

TO 400
T.,NR

;117

I

~~~_~

_ _ _ _ _ _ _ _ _ _ _ _ _ _' ' ' ' ' ' '_'_ _
~

II:fjr.v' _ _ _ _'''''''H!!t'''~iIi.~~II,'olI.lIhltllO~aIiIlIIrtj"Ia' "'ISdk"··""···"

i\g"'~;;.... ,jji~~.u.lJiI"'IIU".,'I,,,,,,,.'~",,:~~J~IIY~IIoIII~lli"'llh'Wl,11~'oI.w",OIIi,.,.I&iiI.~"""''''''''''''''''''''''''''~'"''''''''.''''''''~'';''''''' •• ''' •• _ _ -'''''''.'-

Ii:

o
SUBROUTINE EDIT

10

SET WORl POINTER AT
THE DECIMAL POINT

o

..
EDIT
1
"DUE EDITING FIELD
TO WORl AREA

11

2

DN2
12
DOWN WORl POINTER 2

MOVE 8TM ADDR TO
DATA POINTER

DOWN WORK POINTER
1~ SET HIGH-ORDER
FLAG

RETURN

3

13

LSTED
DOW~

~

REMOVE - DR CR
I NO I CAlI ON

ED32
5
PlDVE CENTS DIGITS
TO WOR~ AREA~ DOWN
DATA POINTER 2

TD

10

23

WORl POINTER 2

TOED
14
"'DVE DIGIT FROJII
DATA POINTER TO
WORK POINTER

15

DOWN DATA POINTER

TD

1

PlOVE HIGH-ORDER
DIGIT TO WOR"
POrNTER~ CLEAR FLAG

20

21'

. !I'S,,· tt

I

Wit

It

tt

1

ttd*tft

•

r r!ll

"II!!

W"

100

UBROUTINE BLLIN

o
K1l

WRITE LINE FROM

111

*

102

PUNCH

BLAN~

CARD

OOWNBTM COUNT BY 1

o
103

DOWN BTM COUNT BV 1

•
:lJ'

200

SUBROUTINE
HEDLIN

o
211

~61

.MDVE MESSAGE ~ROM
tHM ADDRESS TO
CENTER C~ LINE
I .. AGE

212

MESSAGE FROM
8TM ADDRESS TO
CENTER O~ CARD
IMAGE

MO~E

PRINTOUT LINE

TO 20~
CRS

(}
203

PUNCH OUT CARD

CRS
20~
CLEAR POSITIONS
1-30 OF OUTPUT AREA

RETURN

rtrtu••

tiM

hr. trtt

11

h t tM

t rrit*wtttrtt

!

. !,

b·

It

·!

300

o

SU8ROUTINE TITLD

311
lSI
MOUE TITLE CARD
IMAGE FROM lITSAU
TO PRINT AREA

312

MOVE TITLE CARO
IMAGE FROM TITSAV
TO OUT-CARD IMAGE

RESTORE CARRIAGE)
ItILL "TITLEo

o
303

SCAN CARD) ~ILL
TRAILING *) ~ILL
"TITLEo) PUT. IN
80

WRITE LINE

304

PUNCH OUT CARD

CLEAR POSITlONS
81-120 OF OUTPUT
AREA

TO 204
CRS

TO 204
CRS

•
221

400
SUBROUTINE
OUTLIN

o

402
PUNCH OUT PREVIOUS
SET-UP CARD

TO 204
CRS

c
WRITE OUT
PREVIOUSLY SET-UP
LINE

404

405
RESTORE CARRIAGE

tR12

tt t

o

ht

¢

r 't

_ttlth trt

.Ht

ri

H
t"t , " ht"j

rlm"tie l

ti b"f± .*srriih

GLOUT
0
SET GLLOOP"'ll
POINTER TO FIRST AD
IN ACCT. NO. TABLE

GLLOOP
10
MOVE AD OF ACCT NO.
TO GLSNF+ll

1

SET EDGL2+6 POINTER
IN UPOATABLES TO
FIRST TOT DBS

2

SET EDGll + 11
POINTER TO FIRST
BEG BAL

EDGLl
20
MOVE SEG SAL TO
FINAL SAL

11
~O TO EDIT FOR
TOT 08S> MOUE TO
F'LO:3 LOCATION

MOVE AceT NO. TO
OUTPUT AREA

GLBNF
12
DO RIGHTWARD fLAG
SEARCH TO START OF
NEXT LABEL

22
ADO TOT OB5 TO
FINAL BAL> UP
POINTER to CORRECT
TOTDS$

o
3

SET EOGL1+6 POINTER
TO lERO-TH FINAL
BAL

TFUIBD
13
MOVE REMAINDER OF
LABEL INTO FLDl
LOCATION

DOFL3
24
UP EDGL2+6 POINTER
TO TOT CR$

UP POINTER IN
UPDATABLES TO NEXt
FINAL SAL (AT
EOGLl+6

•

23
EOGL2
SUBTRACT CORRECT
TOT OBS FROM TOT
OB5

5

TO 10
GLLOOP

GO TO ED IT FOR
BEG SAL> MOVE TO
FL02 LOCATION

·GO TO EDIT FOR
TOT CRS> MOVE TO
FLD4 l,DCATION

TO 20
EDGLl

TO 100

100
SUBTRRCT TOT . CRS
FROI'1 FINAL 'BAL

101
UP EDGL1+ll POINTER
TO CORRECT TOT CRS

120

110

UP POINTER IN
UPDATABLES TO NEXT
TOT DBS

111

UP GlLOOP POINTER
TO NEXT AD IN TABLE

102
SUBTRACT CORRECT
TOT'CRS FROM TOT
CRS

SET EOAR 1+11
POINTER TO FIRST·
8EG 6AL

..

o

121
SET EOARl+6 POINTER
TO ZERO-TH FINAL
BAL

ARLOOP
!22
SET TFARLB POINTER
TO '+ COLS PAST FLOl
LOCATION

o
D

123

L4

, GO TO EDIT FOR .
FINRL BAL) MOVE
TO FLD5 LOCATION

UP ARBNF POINTER TO
EVEN LOCATI ON

114

SET AR6NF POINTER
IN A.R.S.L. LABELS

105
UP POINTER IN
CONSTANT BLOC~ TO
NEXT 6EG BAL

115
SET EOAR2 POINTER
IN UPOATABLES TO
FIRST TOT 06S

TO 110

TO 120

124

AR2'+

UP BOTH TFARL6 ~NO
AR6NF POINTERS 1
COL
LOCATIONS)

,2

•

o

DOWN AR6NF POINTER
1 LOC. TO LAST
(000) P~S I TI ON

TFARL6
201
MOVE A.R. LABEL
FROM ARBNF TO
TFARLB POINTERS

202
UP EOAR1+6 POINTER
TO NEXT FINAL 6AL

REMAINDER OF
ARLOOP IS
EXACTLY 5IMILAR
TO GLLOOP
6EGN02

•

----------,-----~',""'..-.~.'-~'.-.

8ESND2

so TO GETADJ TO

(

r

READ I. S .) 8.5. (
LABELS BLOCIC.

1512

10

20

UP ISBNF+ll POINTER

UP IS8NF+1l BY 2 TO
LENSTH FIELD

2

•

\
~Il

21

1

CONSTRUCT RIGHT COL
RD OF LA6EL IN
OUTPUT RREA

CHANGE EDIT
FIELD TO ... AT
END

V

DOWN IS6NF+ll 1 TO
LAST (ODD) POSITION
OF LABEL

TFLBIS
MOUE LABEL WITHOUT
CODES TO
CONSTRUCTED RIGHT
COL ADDR

3

EDIS
13
MOVE DOLLAR AMT
FRO,. EDIS+ll
,.POINTER ADDRESS TO
EDJTIJ

MMIS
PERFORM COMPUTED GO
TO ON LABEL CODE TO
VARIOUS ROUTNS

It

14

2

SET TFMD2+l1
POINTER TO FLDl
POS I TI ON + 10
CHARACTERS

~

SET EOITS+l1
POINTER IN ADDR
TABLE TO DOLLAR
AMTS

o

~~

SET ISBNF POINTER
TO START OF 1.5.)
6.S. LA6ELS

CONSTRUCT ISBNF+ll
POINTER - 2 AT
TFLBIS+ll

l~

ISLOOP
5
UP ISBNF+11 POINTER
3 TO EVEN POSITION
IN LABELS

15

CONSTRUCT 19 LABEL CODE AT
MM1S+11

0
TO 10
IS12

TO

20

1

•
•

o

ADV
110
ADVRNCE THE EDIS+ll
POINTER TO NEXT
RDOR IN TABl.E

120

ADD COL 2 TOTAL TO
COL 3 TOTAL> THEN
ZERO COL 2 TOTA~

121

GO TO EDIT FOR COL
2 TOTAL, MOVE TO
COL :3

TO
ISLOOP .

112

~5

ADO EDIT~ A~T TO
COL 2 TOTAL

122

GO TO EDIT FOR
EOIT~ AMOUNT, MOVE
TO COL 2

o
113

~~

AMT TO
COL 1 TOTAL

~OO EDIT~

~3

GO TO EDIT FOR
AMT AND MOVE
TO COLUMN 1

EDIT~

12~

11~

ADD EOIT~ AMT TO
COL 3 TOTAL

•

123

GO TO. EDIT FOR
COLUMN 1 TOTAL AND
MOVE TO COLUMN 2

125

115

GO TO ~DIT FOR
AMT AND MOVE
. TO COLUMN 3

ADO COL 1 TOTAL TO
COL 2 TOTAL, THEN
ZERO COL 1 TOTAL

TO 110
ROV

TO 110
ROV

EDIT~

r..__

w~

_ _ _ "'·,," _ _ ,,,"_·· _ _ _ "·.. _ · · · _ · · _ _ _ · , · · ·_ _ _

~··~

I

K1

•

210

ADD EDIT[J Ar4T TO
COL 1 TOTAL

TK

OU

o
211

GO TO EDIT FOR
EDITa R~T AND ~OUE
to COLU~N 1

TK

DU

TO 110
ADV

KI

212

SET ItZ II AD AS
STORI FIELD

Tit

oT

213

KV
5ET KZI I AD AS

TK
0S

STOR2 FIELD

KX

214

SET KZ II AD AS
STOR3 FIELD

TK
OR

215
GO TO EDIT WITH
PREY. SET A~T~ MOVE
TO COL 1

o

KIll

TO 420

T

•
310
lP
MOVE COL 2 TOTAL TO
STOR2 FIELD

300

•

0
TO
5
ISLOOP
!!:

301

/~

...
.....

/~

lO
311
MOVE COL 2 TOTAL TO
STOR3 FIELD

S

TO
5
ISLODP

302

o
313

303

"I NTERMED I ATE··
BETWEEN 1.5. AND '
B. '3 ...

PUT OUT TITLE FOR
NEW PAGE~ ONE
) o - - -.........~--\
BLANI(. LINE

y

E
S

•

I(.N
T

o

315

ZERO ALL COLUMN
TOTALS

TO

5

ISLODP

323

PUT OUT TITLE FOR
NEW P~GE (GO TO
f----;"....f!~~
TI TLO)

•
l2
'+10
ADO DOLLAR A~T AT
EDITg ADDR TO
COLU"'" 2 TOTAL

'+20
ADD IC.ZII AMT TO COL
1 TOTAL

TO'tO'+

TO 111
IC.O

()

1C.2II

'+11
GO TO EDIT FOR COL
3 TOTAL> "'DUE TO
COL 3 WITH S

1C.6

'+21

IC.~

SET . '"WI I AD AS
STOR1FIELD

TO III

EXIT

1(0

'-1

'+12
GO TO EDIT FOR COL
2 TOTAL)I'tOUE TO
COL 2

PUT OUT •••••
UNDER COLUMN 3

TO 111

TO
5
ISLOOP

1(9

'-WII
'+22
GO TO EDIT FOR PREU
SET FIELD) ~OVE TO
COL 2

1(0

'+03

SUBTRACT DOLLAR A~T
AT EDITQ ADDR FROM
COL. 2 TOTAL

o

'+13
GO TO EDIT FOR COL
2 TOTAL) MOUE TO
COL 3

'-8

-ADD IC.WII

A~T

2 TOTAL

1+23
TO COL

TO III
'-0

~

'+0'+
SO TO EDIT FOR THE
A~T AT EDITC ROOR>
AND ~OUE TO COL2

1(2 II

TO 110
ROU

1+11+
ADD COL 2 TOTAL TO
COL 3 TOTAL> THEN
ZERO COL 2 TOTAL

TO III
1(0

o

'If!

:wtNNMrW,'fH

ttt

M'

J

#'t-

-W"

"(

"f!

•
500

SET IC.WII AO AS
STOR2 FIELO

o

IC.Q

510

TB

"DUE COL 2 TOTAL TO
STORl FIELD

oI

N

6 G
00

o
TO 422

TO
5
ISLooP

IC.WII

IC.U

---501-

SET IC.WII AO AS
STOR3 FIELO

IC.IC.

521

511

• END OF BALANCE
SHEET I(

MOVE EDITEO ERROR
SUM> PRINT 0YOU
GOOFED ... ' MESSAGE

TO 422
IC.WII

IC.T

502

MOVE COL 3 TOTAL TO
STORl FIELD (00
NOT PRINT LINE)

TA

oL
L

50
20

'+N

TO
5
I5LOOP

o

MOVE COL 3 TOTAL TO
5TOR2 FIELO

MODIFY HEDLIN
MOUE-TO AODR UP
4 COLUfIlNS

TO
5
I-SLOOP

5Q~

514

MOVE COL 3 TOTAL TO
SToR3 FIELD

~R

ADDSTOR3 FIELD TO
COL 3 TOTAL (ASSETS
TO L lAB! TITlES)

TO
5
I5LOOP

•

-525

515

GO TO EDIT FOR SUfIl
IN COL3 TOTAL

TO 520

PUNCH CARD WITH
IN COL. 1

TO

602

AL'+5

l.31

BINGO
PUT OUT 'BINGO'
MESSAGE

TO 522
SEER

ALqq
601
RESTORE CARRIAGE

ALq5
LOGGING LINE)
W/BALANCE ERROR)
LANGUAGE + REF
ERRORS

603

60~

E

X
I
T

GO TO GETflDJ TO
READ OUTPUT)·.
READ ... LIN"
PHASE B BLOC
BEGINS

C

~,
i'

eM

o

o

t.

tl
\

"'

tllnt M

I'

e

'tHltLMNMM

".JOB
.. *XEQ WISAL
TITLE
SAMPLE COMPLETE SOLUTION
010020
CUSTOMER TRANSACTIONS.
010030 Al CASH RECEIPTS ON ACCOUNT. DEBIT AC 1111 BY CASHAMT. DEBlT AC
4113 BY DISCAMT. CREDIT AC 1115 BY ICASHAMT + DISCAMT).
010040
CREDIT SUBLEO(CUSTI BY (CASHAMT + OISCAMTI.
010050
010060 A2 CASH SALES AND SALES TAX. DEBIT AC 1111 BY CASHAMT. CREDIT
AC 2118 BY AMTI. CREDIT AC 4111 BY (CASHAMT - AMTl).
010070
010080 A3 CHARGE SALES. DEBIT AC 1115 BY AMTI. CREDIT AC 4111 BY AMT1.
010090
DEBIT SUBLED(CUSTI BY AMTI.
010100 A4 SALES RETURNS. DEBIT AC 4112 BY AMTI. CREDIT AC 1115 BY AMTl.
OlOllO
CREDIT SUBLED(CUST) BY AMTI.
010120
VOUCHERS.
010130 Bl RENT. DEBIT AC 7114 BY VOlJCtIAMT. CREDIT AC 2113 BY VOUCHAMT.
010140 B2 FREIGHT-IN. DEBIT AC 5112 BY VOUCHAMT. CREDIT AC 2113 8Y
010150
VOUCHAMT.
010160 B3 OFFICE SUPPLIES. DEBIT AC 7115 ~Y VOUCHAMT. CReDIT AC 2113 BY
010170
VOUCHAMT.
010180 B4 STORE SUPPLIES. DEBIT AC 6115 BY VOUCHAMT. CREDIT 211~ BY
010190
VOUCHAMT.
010200 B5 ADVERTISING. O~BIT AC 6112 BY VDUCHAMT. CREDIT AC 2113 BY
VDUCHAMT.
010210
010220 B6 MISCELLANEOUS SELLIN~. DEBIT AC 6117 BY VOUCHA~T. CREOIT AC
010230
2113 flY VUUCHAMT.
020010 B7 PREPAID INSURANCE. DERIT AC 1120 BY VDUCHAMT. CREDIT AC 2113
BY VDUCHAMT.
020020
020030 B8 OFFICE EQUIPMENT. DEBIT AC 1313 BY VOUCHAMT. CREDIT AC 2113
020C40
BY VOUCI·AMT.
020050 89 DELIVERY. DEUIT AC 6113 BY VOUCYhMT. CREDIT AC 2113 BY
vnU(HAMT.
020060
020070 BI0 PETTY CASH. DEBIT AC 5112 BY AMTl. DEBIT AC 4112 BY AMT2.
OE~IT AC 6117 BY AMT3. CREDIT AC 2113 BY VOUCHAMT.
020080
020090 Bl1 MERCHANDISE PURCHASE. DEBITAC 5111 BY VOUCHAMT. CREDIT ~C
2113 BY VOUCHAMT.
020100
02CI10 B12 MISCELLANEOUS GENERAL EXPENSE. DEBIT AC 7123 BY VOUCHAMT.
CREDIT AC 2113 UY VDUCHAMT.
020120
020130 B13 lJTILITIt:S EXPENSE. DEBIT AC 7117 BY VDUCHAMT. CReDIT AC 2113
BY VOUCI-'AMT.
020140
CASH DISBlIRSEMEN1S.
020150
Cl
ISSUE
CHECK. DEBITA\: 2113 ~Y (CASHAMT + DISCAMT) •. CREDIT AC
020160
1111 BY Ci\SI;AMT. SREDIT IIC 5114 BY DISCAMT.
020170
CASH RECEIPTS.
020180
020190 01 ON NOTES. DEBIT AC 1111 BY CASHAMT. CREDIT AC 1113 BY
(CASHAMT - AMTl). CREDIT AC 8111 BY AMTI.
020200
020210 02 DISCCUNTED NOTES. DEBIT AC 1111 BY CASHAMT. DESIT AC 1121 BY

AMTI. CREDIT AC 2111 BY (CASHAMT + AMTl).

020220

MISCELLA~EOUS

0_~OCI0

•

reh ±ttthrit' ht

030C20
030030
030040
0300<;0
030C60
030070
030080
030090
030100
030110
030120
030130
030140
030150
030160
030170
030180
030190
030200
030210
030220
030230
040010
040C?0
0400"0
040040
040C,)0
040C60
040070
040080
0400<>0
040100
040L10
040 110
040130
040140
XREF
XREF
XRH
XRE:F
XREF

XRE:F
XREf
XREF

El

BUY EQUIPMENT WITH NOTE. DEBIT AC 1311 BY (AMTI + VOUCHAMTI.
CRECIT AC 2113 ~Y VOUCHAMT. CREDIT AC 2111 BY AMll.
E2 PAY NOIE. DEBIT AC 2111 BY (VOUCHAMT - AMTl). DEMit At 9111
BY AMTI. CREDIT AC 2113 BY VUUCHAMT.
E3 RECEIVE hnTE. DEBIT AC 1113 BY AMTI. CREDIT AC 1115 BY AMTI.
CREDIT SUBLEO(CUSTI BY AMTI.
E4 RECEIVE CREDT MEMO. DEBIT AC 2113 BY AMTI. CREDIT AC 5113 BY
AMTI.
£5 WRITE OFF BAD DEBT. DEBIT AC 1116 BY AMT1. CRLDIT AC 1115 BY
AMTI. CREDIT SUBLED(CUST) BY AMTI.
t:6 PURCHASE FIXTURES. DEBIT AC 1311 BY VOUCHAMT. CREDIT At 2113
BY VOU(HAMT. DE~IT AC 1312 BY AMT3. DE~IT AC 1311 BY
(AMT2 - AMT3). CREDIT AC 1311 BY AMT2.
ADJUSTMENTS.
fl
ADJuST S10RE SUPPLIES INVENTO~Y. DEBIT AC ~115 BY A~Tl.
CREnlT n r 1118 BU A~Tl. DEBIT AC 1118 BY AMT2. CREDIT AC
6115 Hi ~.~T2.
F2 ADJUST OFFICE SUPPLIES INVEIHORY. OtBIT AC 111<; BY AMTI.
CREDIT AC lllq BY AMB. DEBIT AC 1119 BY AMTl. ~REDIT At'
7115 BY AMT2.
F3
INSURANCE. DEBIT AC 6116 BY AMTI. DEBIT AC 711~ BY AMTl.
CREDIT AC 1120 BY (AMTI + AM121.
F4 INTEREST ON NOTES RECEIVABLE. DEBIT Ae 1114 BY AMll. CREDIT
AC 8111 HY AM Tl.
~~
PREPAIO I~TKREST ON NUTES PAYAdLE. DESIT AC 9111 BY IIMTI.
CREo:r /It; 1121 In AMTI.
F6 ACCRuE SALARIES. DEBIT AC 6111 AY AMll. DEBIT AC 7111 8Y
AMT2. CREDIT AC 2119 BY (A~Tl + AMT2l.
F7 SALES TAX. DEBIT At 6117 BY AMTI. CREDIT At 2118 BY AMT1.
F8 BAD ~EBTS. OERIT At 7'19 BY AMTI. CREDIT AC 1116 BY AMTI.
F9 ADJUST I~VtNTOKliS. DLBI! hC 311<; 8Y AMTI. CREDIT AC 1117 BY
AMTl~ DEBIT AC 1117 BY AMT2. CREDIT AC 3115 BY AMT2.
flO INTEREST ON NOTE~ PAYABLE. DEBIT AC 9111 BY AMT1. CRE~lT At
2112 BY AMTI.
Fll DEPRECIATION. DEBIT AC 6114 BY AMTI. DEBlr AC 7116 BY AMTZ.
CREDIT AC 1312 BY AMTI. CREDIT AC 1314 BY AMT2.
001Cl 81 (1 Al Al Cl Cl C1 A3
010A3 A1 ~l
Al EL Cl B2 Cl Rll
019Bll Cl Al Al Al Al Al bl El
028Cl Cl Cl El Al A3 E3 l4 01 Al Al
03983 B11 L3 Cl C1 A3 B4 B12 Cl
048Cl A3 '3 ~2 e5 86 (1 Cl CI Cl
058A4 A2 d2 CI Dl 67 B6
06<;R5 C1 CI A3 Al 02 [5 Eo

I,. ttt

0001
0002
0003
0004
0005
0006
0007
0008
0009 .
0010
0011
0012
0013
0014
0015
0016
0011
0018
0019
0020
0021
0022
0023
0024
0025
0026
0027
0028

0029
0030
0031
0032
0033
0034

0035
0036
0037
0038
0039
0040
0041
0042
0043
OCl44

0045
0046
0047
0048
0049
0050
0051
0052
0053
OJ54
0<.155
0056
0057
0058
005')
0060
0061
OJ62
0063
0064
0065
0066
0067
0(}68
0009
0070
0071
0072
0073
0074
0075
0076
0071
DOH!
OQ79

00130
OU81
0082
0083
0084
00B5

0086

0087
008A
OOH9

0090

pet

XREF
XREF
XREF
XREf
XREF
XREF

073C1
081E4
089C1
098C 1
10769
115F9

C1
Al
B5
C1

A3

A3
Cl
A2
BIO C1
Fl
Fl

A1

At

A2
Cl
Rll Bll A4 A3 A3 C1
Al
611 64 B13 B13 B2
Cl Cl Cl
A2
Cl
F3
F4
flO F5 F6 F7
62

A1
C1

A4

Bll B8

F8

Fll

0091
0092
0093
0094
0095
0096

•

•
,
TITLE
CCMPLETf SAMPLf SGLUTIQN
OlCD-20--CUSTG"'ER T!UNSACTlCNS.
010030 Al
CASH RECEL'TS 0,," ACCCUNT. DEBIT AC 1111 BY CASHAMT. DEIIlTAC
----o'l~
"113 li..Y......llJ..S-CA.M-f_C.R.Ci. IHL....A.C--l-W-5....~ 'lC tI S~" M·L.4.... 0 l.sCAM!..IJ •. __ ...._.... _ _ .... ~ .. _. _
010050
CRED 1 T SlJ:3LED:l;CIJS To AY %CASr'I>'T & 0 I SCAMTo.
__ . -Ol0.Q.6.Q_A2LASH .. SALESANll SALE!> TA)(.-O£8IT AC 1111 BY-C.ASJ:iAMT. CREDIT
010070
AC 2118 BY AMTI. CREDIT AC 4111 BY ICASHAMT - AMTlo.
010080 ~3 CHARGE ·SAlfS. CEklT At 1115 BY AMT1. CREDIT AC 4111 BY AMTI.
010090
DEAlT SUPLED%CU~Tn BY A,..Tl.
_ 010100 .. A4- . SAUS at;r.u;ms.- OEUH ~.-.U.l,2-R.Y AMll • ....cR£UII AC 1115 BY .\MTL.
010110
CREDIT SU~LEDlCUSTU BY aMTI.
010120
VOUCHfAS.
010130 Bl
RENT. DEAIr AC 71 14 f'Y VCUCHMH. CREDIT AC 2113 AY VOUCIlt\MT.
01011tO-B2 fRfIGHr-iN. DEBlT :lC '3112 i3Y VCUCHAMT. CREDIT AC 2113 ElY
010150
VOUCHAMT •
.. _-11.lJ)l.6.0 .... £3
DF.F1CLSUP ,'LI ES.Di B IT AC 1.1 L!i . il YVDUCJ:iA!H ... CRED IT AC 211.3 BY. ____...
010170
VCUCHANT.
-........ _1)101.80 E4- STGJ1E .sUpPLIES. DEHIT AC 6115 8Y VOUCHAMT. CREDIT .;1113 llY
010190
VCUCHAMT.
010200 B5
AOVERTlSIW;. DUll AC 6112 BY VOUCI1AMT. CRtOIT AC 2113 l;IY
010210
VGUCHAMf •
..01.o22U B6 JUSf..ELllllllLlUS ...SELllNG • .DEUJT._..A.C 61D .BY VillJCHAr-:T. CREDIT AC
010230
2113 ey vnUCHArT.
020010 B7
PREPAID INSURANCE. DEBIT AC 1120 BY VOLJCHAMT. CKEDIT Ae 2113
020020
BY VOUCH~1T.
020030 88
OFFICE EUU[PMENT. DEBIT AC 1313 BY VDUCHAMT. CREDIT AC 2113
020040
BY VOLCHI\~l.
_....02D05U.£. 9D£LIV~.a..y. UEl:lIT /\C6113 llY.VCUCHAMI. CREDIT hC 2U3 tlY
020060
VOUCHAMT.
010070 EI0 I)ETTY Ci\~li. [JEJ:U .\C ~1l2 13Y A(>'T1. DEIHT AC 4112 BY M'T2.
0200no
DEA[T AC,l17 B y \ n l . CReDIr AC 2113!:3Y VOUCHAMr •
. .020090 811 MERCHA!\OIS1; PU!~UL~SE. DE13IT ,A·C !l111 BY VOlJCHAMT. CREDl r hC
020100
2113 BY VUUCHAMT •
..a2011U e-lZ MISCf;LLANUJlli> .. L;£NEllAL t.l(.E8LSE. DElllI AC 1123 BY VLlllCHA"r.
020120
CREDIT AC 2113 PY VCUCHAMT.
02013U G13 UTILITIES l:Xf'E'J~L DEIHT J~C 7111 BY VlJUCHAfot.T. CREOIT AC 2113
O?014()
BY VCllCH!\·"T.
020150
CASh DISHlHSl:rvtH'JT'>.
020160 Cl
ISSUE Cf-lFC:<. 'f)f;PIT /IC 2113 !3Y %CASH1I'-1f [. lJISCAMTo. C:{[i1T ,\C
..a2uno
1111 ljY c..'.S:iM 11Y (\"1Tl.
0300.70
C,U:OI TSU';LUl ... CUS l'u BY IIP-T 1.
0300eo E4
RECEIVf.: U~tOT t. 'I:'·!n. UtHIT .\C 2113 uY MiTl. CREDIT .~C ~)ll\ flV
030090
AMTl.
030100 £=5
WRITE CFF dAJ IiHH. [;Ei.;JT t,C 111(' BY Af-oITl. CREGIT ~C Ill" ny
030110
A'" Tl. (?, E .liT ') Ut~ I.. HL: C LJ STu II YAM T I •
030120 106
PURCHASE FIXTURES. DEHlrAC 1311 MY VOUCHAMT. CqEDIT AC 2113

G

,,jMLI+;w,II:i+ ....IN WHriHtittf·!

It

1M

'U 'W+~!.l.!o+!.IoIel!!k'¥I!"'JfHl·YW' t! tf"·M,,'U'"!a"'Ut!Ll'IJ!"ItMU

o
030lHl
030140
0301 ';()
o lOU.O F L
030170
0~0130

030190 F?
030200

KY VIII,(I,~
:;;II,\~T;i

-

Wit·

!I'IttM'N

'M'H·$*MI¥'ijU'te "IJ'M"l!ftWrM'''Wft'ytUUl'N BU"·" 111 "JWNWtllb

,. i·t ,·11

,\ ·!T Ill.

AC 131/ I~Y AMB. Ot:lj[T AC
I HI flY AMT2.

tid

* tfttht rt

ehl itO 6( *s He

f

fiB'

1311 flY

L'~ f)1 T AC

~lJ.llIST~1 ·d,>.
~!l.JlJS 1 ;, IL:
!>u,'I'lllS

«,

"

\.\jI/..l-:llTL:l,v

DE B IT he .6.lJ..~¥-A.I:\..LJ.---- -

C'~f':ll \C III,··Y f.nl. Ill-kIT AC 1118 BY AMT2. CREDIT AC
611'; l!Y ,\"T 2.
,ID.llI<;J (!~nCt '.IIl'I'LILS P,VC·HllRY. OEl:i1T AC 7115 flY MHI.
CHfllT lie III)
Y A:Y.Tl. DtlllT AC 1119 flY AMT2. CREDIT AC

010?1~)
7!1'",Y/,!J?
Q302.2J:L f3.- _ L:!SUkl_dI.Ct: .• u,-[,1 r

'IC 1..1110 UY AiUI._---Uf:Jl..J...L.AC._7J...lJJ.- ay_A.!U2-.--_
0)0710
CRELIT ~c 112,: ,y ~:''''-111 t, ·\1'120.
040010 f4
INTl~LST CH ,llfi:, 'lU IVAnLt. Ct:~1 T AC 1114 dY AMTI. CREDIT
0'.0020
·~C Bill P. Y 11M r I •
04003(j f5
,'REPAII; INLUf:,r .>_ 'JIITLS 1'''YABlE. DEdIT AC 9111 BY AMTl.
040040
C'lEI:IT AC l l n I·Y ;'~'TI.
040050 Fe
ACCRUE$AL;lKlb. L,t,IT I\C ~lll BY AM.Ll.--OE.lULAC 1J.L! _B¥.- -- -..
040060
4~T?
C'UllII AL 711-: bY '>:'\>1[1 t; AMT20.
0400-'0 F7
SALES U.X. OEulT ,Ie bl17 llY AMTl. CREDLI AC 2.l1ll BY AMTl.
040flfJO F8
'lAC flEJ- PAYhillE. DEBIT AC _!Ull...BY AMll. _CREDiT AC
O'.Ol?()
7ll? I'Y ,\·'TI.
040130 fll DEPR[CIATIL1N. 1.1.: II ;\C 1.114 I!Y AMTl. DEBIT hC 7116 [lY MH2.
040140
C,
l6
0(,',"11 1.1
Cl
1\\
·\1
1:7
/I', ;"2
o nCl
Cl
_\3
H
III
,\1
1;,
..
Cl
PoIF'.
'1~3
(I
,'ll
.~ J
/13
CI
(J,;,CI
'.',
LI
Lill L>l1 .\4
1'1·\ '12
1.'1
\
X')FF
IH,··C I
CI
~"
AI
J: II
'!4
,~ ?
CI
lu"/:H
:.11'; Cl
l.l
(I
(1
XRI'F
1'6
F7
Fll
ll'd:)
Fl
F2
F3
F4
Flu 1-·-,
F8
XR Ef
_ TITLE

,,1

•

o

•

T1TU:
1l1002C
!l1003C
Il IOC4C
010050
(JlOO60
OlU07e
fllOOHC
0100'10_
OlUIU(;
() 10110
010120
0101.10
IlIOI4(;
Olul~(;

010160
01017t;
,l lO I ill;
UWl'oIC
Ol02uO
01021G
fJlll22C
'J 102 3U
')LO() I C
02002U
o2(J030
020(;4(;
OLOO~O

,

42
h3

A4

III
112

,n
IV,
;, ~)

flb
~7

l,tj
Wi

U20CbU
02007G 1110
UZUOI:lO
u;>OCyO

Kll

020lLJU
02011 G KI2
020110
11201 \U ,',II
02014(;
D2DI~C

020100 CI
I)ZO 110
'J201dC
,120I'J(J IJI
OL0200
alone 02

OlO22G
1J.l00lD
03UC2G Ll
'J _\0[;:1(;
U jO[,4(;

E2

'.' ~\)(l.> 0
.D.hJL:c,.d.';

1:.1

'1 IUL,

•

l(.

d.H}t,;bu

SA~PlE SOlUT ION
C~SIOM~~ T~ANSACTIONS.
CA~J! _RIOCEIPTS UN ACCOU~H.

COMPLf-TE.'
Al

LIt

f)'.(}C'IO
0301U(. E:;
01011 C
llJ012L: 1;6
f)3013U
OJOl4C
')301 ~c
:) .\(ll bO F I
"jill "Ie

olOtlIT AC llli flY CASHAMT. CEbIT IIC
10113
,!Y DISCAfH. CKEOIT Ae III'> flY tCIlSHArH r. OISCAMTu.
('\I:1l1 T SUKLELJ.~CUS Tu I!Y 'CASI1A'1 T & (} I SCAMTu.
C~"H SIILES ANI) SAL~S TAX. IlEhlT hC 1111 [IY CI\ShA~H. CREDIT
AC 211ti BY AMII. CR~DIT AC 4111 HY rCASHAMT - IIMTlu.
Ch'\~~GE SIILES. liFtllT AL III-> flY j\nl. C!{EOIT AC 4111 tlY II,.,TI.
lJHI T SUBJ..EU.tCUSTIJ BY MH 1.
SIILES ~UUI~NS. uLBIT AC 4112 '1Y 1\'~T1. C.{EIlIT AC 111~ BY AMT!.
C,{tDI T SUI1LED.l;CUSTU LiY III'TI,
VOUCIIER S.
KEn. DEB I T AC 7114 flY VUUCHAMT. CI{EOI T AC 21l~ flY VOUCHA'11.
FR.!_I'~>iT-IN. IlL.IiT hC :;117'W V(]lJCHA~T. CREDIT AC 2113 MY
VLlUCHI\MT.
UFF ICE SUP:'L Ir.,. [JEll I T ~c 111') by '1UUCHA'1I. CReUIT AC 2113 I'Y
VI,UCHIIMT.
STUKF SUPPLlfS. OEIlIT ~C 611~ BY VGUCHAMT. CREDIT 2113 MY
V(;UCfL\MT.
A,)JL'nISIN". OLdlT AC btl;! 'IY V(JlJCrlIlMT. C'~fDIT AC 2113 HY
VLlUGHil/H.
,'"ISCELLANEOUS ~f:LL(:Itr;. 1l!1J1T AC 6117 KY VuUCHAMT. CREDIT AC
2113 tlY VUUCHI\/'T.
I'Rll'''J!) INSU'~II.Cl. I)FBIT IIC 1120 IIY VUUCH"'i~T. CREDIT A(; 2113
!JY VOlJCHII'H.
:lFf-ICF HllIIPMf-H-. fll:flll ,'c 1313 Illl 'IV VOUCHIIMT. CKFOJ T AC
21B BY VUUCHAMT.
~11 ,Cr'LLANEUlJS Gl"lERIIL ~XI'F: ~::,[. DE'IIT. AC 7\23 BY VUUCHAMT.
C''.f:lJIT IIC 21P bY VIlUCH,\MT.
:JTILlfIES [XPf·')~' I:f-flll AC 1117 'IY VllUCHAIH,C'{F.DIT AC ?III
hV 'JOUCHA"'lT.
CASi! UI SBUKSFME;.TS.
l$~J~ CHtCK. U~HIT AC 2113 BY :CASHA~T & DlSCAI'To. CRELlIT AC
I1I1 \IV C~SHA;~T. C~LIJIT AC 'i114 IlV ,)[SC~'1T.
CA:,'! IU'CEI!'T,.
ri:'l.~f1ns. IlFIIIT lie 1111 I'Y CASHII"f. CRl'(JII II( 1113liY
;;CIISHAMT - Ai"TIa. CKI:(l11 tiC dill I'Y AMII.
UI :;CilU'\JTED '\JOTt:'. PUll T ,IC 1111 flY CASfl.\MT. DEIHT AC 1121 ".Y
I\.'~II. CRElJIT AC 2111 CV :tC.4SIiIll<'T & 4Mflu.
"I ~,CELL ~'JE[lUS
"ltY tW'IIPML'I;T wIlli ~IUH. lJf:tjlT IIC IHl hY ',\AMTI & \/()UCHAMTu.
C.'I_nIT IIC ?l13 !IV VllUCIJAMT. CRFlllT hC
flY A~Tl.
I'AY JOI£. u(f\IT I.C ?Ill :.Y'VOUCHM-q - AMTla. OE~lT IIC 'HII
1-:1 ~IJ 11. C·lE!.J I III 211 \ IlY VOIJCt'~"'T.
,d,CtlliL :mlt:. ut.~III\L 1111 BY JI~Tl. CJ{LUJI AC lll~ IIY AMTl •
C~tlllT SUI'.LtlJ~CU:-'II1 flY A~TI.
fU_CE:IVF CREOT '·L~O. llL".11 ,~L 2113.Y A"11. CRUilT AC 511] BY
1If' II.
i,Kllf: OFF bAll ul~T. UUlf ,~C Illb liY AMTl. CREDIT IIC Ill" ~V
11;"11. CREDIT ,U[ILfl;~CIJ)f[1 "v A"Tt.
PU.~C:IASE FIXTlJIU,S. UEBII AC 1)11 !IY VUUCHAMT. CRElJIT AC 2113
BY VlJUCHA'1T. U~bl T Ae I H2 P,Y 11"1 \. ril::tll I IIC Ill.! hY
r\I"T2 - AIH3lJ. CKt!'IT I\C I HI !>Y ,1','12.
MJ IV, 1"~'jT'.
:\I,JU~T STOKE ~lJt>PLl~S 1·~Vt:::lTl,\{Y. llil II
AC b115 ,'Y A~nl.
r>I-:lIT IIC III" r~ 2AUBl.E
.00
.00
175.00
l75.00CR
2119
SALARIES "AYABLI'
2120
ESTIMATEU INCUME TAXES PAYABLt
.00
.00
.00
.00
i'RflP£-IHY TAXES PAYAI5LE
2121
.00
.00
.00
.00
MOr. TGAG!: I'A Y AtlLE
12,000.00CR
.00
.00
12.000.00CR
2211
PRffERREO 6~ STULK
3111
10,000.00CR
.00
.00
10,000.00CR
$0,000 DoeR
no
--..Q.Q.
.~i1Lo..,.0U-JO.L!O
.......
O....
Ou..CAR_ _ _ __
.-3ll2._ - G.IlM.~,OlILSI1ICJL _ _ _.__ ..... 3113
PREMIUM ON PREFERRED STOCK
2,200.00CK
.00
.00
2,200.00CR
3114
RETAINED EARNI~0S
11 ,983. 76CK
.00
.00
l1,983.76CR
3115
PROFIT "NO LOSS SUM.'1ARY
.00
35,698.28
32,368.53
3,329.75
4111
.00
.00
15,714.93
15,714.93CR
SALES SilLES Rl'TUIH;$ AN£; ALLCWAiIICE'S
4112
.00
225.54
.00
225.54
-----110- .. _ __ --'1!t~!L-...
..00
.~_~ __ .
.!>AJ.£S . W £CUL!li.I.
1t-U3
.00
5,'l32.67
.00
5,932.67
5111
PURCHASeS
FREIGHT-IN
~1l2
.00
511.05
.00
511.05
PU~CHAStS KL TUR"117
AOVERTISllIIt; fXI''':N~l
.DO
103.20
hill
OFt. I VF.RY EXPfNSL
-15..62-t-1-14-· ----·---Uf-.I!-.4.C.l_.A.+..l.W>I-~if .. ~-l 11.11.E EI,).U'!J1~l:;Nr. _________ .___ ~
• 00
247.05
6115
STI'n ~I.JPPLlES U(l)l,~!>1
.00
43.40
bl16
INSU~ANCE fXPENSE - SLLll~G
.00
76.21
1>117
'1ISCI:LL"'~ElJU~ SfLL l'\ii; LXI'ENSI:
.00
51.61
fll1
OFF ICI: SAt.ARIE~
.llO
.00
7112
llFFICE~.S SALARIES
. ___ .. _ _ _ _ _ _UQ.______
..ll.O_.
71 n
PAUJ.l.lL_:u..x _fJUJ-"IIlSI:
500.00
1114
RENT EXPf.'JSI:
.00
165.50
7115
UFF ICE ~UPPLlI:S £:XPb,SE
.00
19.16
7116
Df'PRLCI.\Tlnlll Of OFFICE llJLIPMPH
.00
205.60
7117
LJTILlTI:S £:Xt'fNSf.
.00
11l1!
I'ISU"t,!',':f EXPI:'N!>t - G[ ~['RAL
21.80
.00

o

7 U-q

----I\.AO.-.!l.[~~.\I.:;.E

7120
7121
1122
1123
8111
_9.ll.1.. ______

go

I{EPAII{S eN I',U I 1.1) II~G
OEPHlCIH.lO'J Uf ~UILOli\iG
PRnl'f.~TY TAX r:XI'F',SE
MISCELL.lNEIJUS l;fN~!<"L r..~PI;·JSE
I ~;HRE:S T INCO~;F
l'>!TI:RES [ rxl-'L/IlS£

.00
.00
.00
15.00
.00
33 66 ...

.00
.00
.00
.00
_ _.00
Ull

--*·.*!I_*.• tt_1I1UI.JI.JUtlI.**.~jUUUUUUUUlJtJtJt_-

.00
.00
.00
115.00
.00
.00
.00
.00
.00
.00
'15.00
.00
.00
.00
.00
.00
.00
.00
.00
16.18
.00

<)15.00
103.20

--1.5...6.2---- __ .
132.05
43.40
76.27
51.67
.00

_. ___ OCL__
500.00
10.50
19.16
205.60
21.80

---.-5.0..0 ...a.o... ___ ._. __
.00
.00
.00
15.00
16.1flCR

---3..l...b.lL _ _ _ .

-

THE WHOLESALE PIIPER co.
ACCCUNTS RECEIVABLE TRIAL KALIINCE

* *"* * **. * ••••• * ... *,..*_.* •• ** *.** *.
ACT

t

10
20
30
40
50
hO

70
tiC

')0
_.lilO

tlo
120
13u

140
l'iC

l.n"
170
1 Be·

T I Tt L

'lfj

ce.

AC"l,

s.

R.

PRO"I\

C051,[, LL LCI{I'.
__ .ilR.AKi:-cLM
fRANK ELK 11\ S
h. fl. F I SHE R
HilI< (I S co.
1'1. i). till"f
K IN(; £. BLIIKE
... lLU~l! L.E£CS
~CCUII\ CC~ P.
'''ILUR co.
~ClR lUI\!,
INC.
J M"E 5 POST
t-

.~(]

I ~,714. 9 3-

'LLUWII~CES

225.54
94.00

III SCCl);',TS

3H.~4

1~,39'.3'l-

ens T

OF :;[J[]DS S(JUl
-ll£'w'k'HI\G L!\\lUdO:{Y

1<

3:'.69!l.2!l
'" 'J 32.67

"u!.0045.60-

T UF 1;1:l'Il<,
AVA I LAtiU, FLR
S ~L L
L 1\1; I NC l'-llfl:1\ Tli'IY
COST r,r;I1CIlS )(JtL'

•
•

440.60-

([is

41,701.40
3.',368.53

6,062.5.'Seclll,G t:XPE"SE:,

::>f,Lf::> SIILA!

123.33
I.l ~ .00
10J.2C

AI:VI II TIS I :~I.
ut.LlvcRY

llfFICL'

SALJHlL~

i!l-FlCU~S

PAY, • .07

•
•

51.,,7
.dO

.UO

"1.'.1'
,,[ ) j

7'> .b2
I L' .0')
43. '.0

F,XP~ "S~S

;1 ',!:OIAL

'Jeu. lin

lu. ~o

l. .. SU:'PL j L:,

"l."',L'_I~lll.':\ l.ll,) [P:';!:I, T

1111 Ll

Ift·Il."

r 1:- S

II\~lJK",CE

IJ\8 llf.L1S

•

1').16
2C;'>.I,O
21.00
',CO.l)o

REPAIRS O~ ~UILLI~~
UtI'RECIHIU\ - arc
I'kCPUTY lAX!:.,
M I SCI:Ll AN~LLS

.GO
.00

• uo
1',.00

[,Hi3.73

'~rl

,:lIIL;'.

CPffl\rI'.JC I "'Ll,,vc:
I."'::CI'I: AI\L lJI'E.'J:'t:

I I I .,. S I
r \ I! ,', ~) I

l Xi)'

1

l.lot

n

1,·,(1:, I
. :') i

•

•
•

IIIPo{~I~I.~T(l'"

- STCin
bl:lJ I P~'L:'jT
STUHL SUI'f-'LlI"
II\SlJ!diKl
;'11 SC ~ l LMJtL'l.;,

•

Ih.18-

3.l.66

..."""""."....,-....'._~,.......""...""".-...... -..-....-'..,......,.....- -................................... '~ ........,.»-.....~-........- -....,...........................................................~-------.

TITLE

()-

•

COMPLETE SAMPLE SOLUTION

-

................................
THE WHOLESALE PU'IR CO.
BALANCE SHEST

.............................•...
A"tlL30,1966

L1ABILlTlES AND CAPITAL

ASSETS

---------------

CURRENT LIABILITIES

CURRENT ASSETS
ChSH IN RANK
PEIU- (.ASJ:L---- - . - - - - - - : - - - - - - NOTES RECEIVABLE

1 NTER eST REc E I \I. BLE-____________ .

ACCOUNTS RECEIVABLE

B,B92.27
NOTES PAYABLE
250 no
INTER,..T PAYAB' E
1,119.67
ACCOUNTS PAYABL~
_ _ _ _1l.-'......2:.c6'--_ _ _ _ _----tEJ!I"'I'-P!uOu;'t'f~E~S_JNCOJolL_JAX PAUB! E
2.952.31
F.I.C.A. TAXES PAYABLE

_ _ _ _'uE-O':S>.:S>--..AAL'1-'0UlwIo/.JAI\lN\U.C..tE=----t;ElJ0,l;..R_------_ _-

BAO DFATS

2.777.02

FEDERAL UNEMPLOYMENT TAXES

--.--.-PAYAl!LJ:-______

32.36a~S3

STORE SUPPLIES

115.00

SAl AR I

PROPERTY

TAXES

pAyAB'E

4.67

..
11,125.00

3,050.00

__ ... _____ • ____ • _ _ _ _ _ _ • COf!lMON

619.16-

2,430.84

ACCI!MtJLATEIl
DEPI{FC IATION

27,658.00-

SlOClL_7_ ...s21LP.A~_

SHARES AUTHORIZED, 1500 SHARE;S
--_ ISSUED AND OUTSTANDING..
PREMIUM ON PREFERRED STOCK

42,600.00

Btl I lUI '1[;

12,000.00-

________JOTAl.lIABILITIES.
_________ •
CAPITAL
. PREEEJlJl:8L~ SroC.K- $5Jl,J>-AR. -lO!L.-SHAKES ISSUED AND OUTSTANDING
10.000.00-

10,699.38

L£SS-___ ~CWW.LA.ll.lL, _.
OEPRECIIITU1N

9,913.74-

---------------------

425.62-

OFFICE lilUII'ME'-IT

TOTAL CURRENLLlAB.I1 illES

______ LONG,,"IEJU!!. -LUB ILU_Y __
MORTGA~E PAYA8LE

-------------.--.-~----

STORE EQUIPMENT
lESS
ACCUI!1JLATI:D
O!'PRECIATl.)N

__

46,917.72

ASSETS

PR(1PERTY. PLANT!; EQUIPMENT

lESS

22.05810.27175.00.00
>_00

FS -P.A¥A.6.L.E.- __ .. __ .._ _ _ "___ '___' __

ESTIMATED INCOME TAXES PAYABLE

1,281.30

u

CURR~NT.

______________ .. _____ ._

SALES TAXES PAYAIlLE

9S~-----

E-S

PREPAID INSURANCE
__ PREpAID ,,,TERESI ON
NOTES PAYA8lE
TOTAl,.

3.000.0012.065,382.51______________________ 263.0094.50__________ _

_ _ _ _ _ _ _ _ _ _ _..-:.SclT..AA..LT,l:.f....J'L,lJINlUf~MUP~'lJO~yaMJ;JENIlLTL....JTL.IIAUlX..tf~S~P'.:ytJAUBl1'.tf'___ _ _ __ _ _ _.lJ.2.5·4~3~. _ _ .. __

175.29-

MERC.HA~WLSE-IllLVENI1lR:i..

OFfICE·SU1WL-l

-------_._----

21.913.74-

. ___ . ___ _

__ 30 • .0_00.002.200.00-

42.200.00-

14,-942.00

'),OOQ.OO
TI1['.L

P'-(OP,
TIJT-~L

PLH f.

hSSETS

33,072.22

,-QUIP
~

79,989.94

* *** t.t:JUtJUUULL_

fl 1.11 G_O

lUTAl LIABIlITIES AND CAPITAL

$ 19,989.94-

........... ***

C"·
Source Exif Data: 
File Type                       : PDF
File Type Extension             : pdf
MIME Type                       : application/pdf
PDF Version                     : 1.3
Linearized                      : No
XMP Toolkit                     : Adobe XMP Core 4.2.1-c043 52.372728, 2009/01/18-15:56:37
Create Date                     : 2014:03:13 15:33:33-08:00
Modify Date                     : 2014:03:13 16:04:17-08:00
Metadata Date                   : 2014:03:13 16:04:17-08:00
Producer                        : Adobe Acrobat 9.55 Paper Capture Plug-in
Format                          : application/pdf
Document ID                     : uuid:40f81c80-c312-b842-8b03-8c15f70997cc
Instance ID                     : uuid:d5b9c4ed-17f8-dc40-b41b-9754ac6697fe
Page Layout                     : SinglePage
Page Mode                       : UseNone
Page Count                      : 148
EXIF Metadata provided by EXIF.tools

Navigation menu