18_ACCOUNTS 18 ACCOUNTS
18_ACCOUNTS 18_ACCOUNTS
User Manual: Pdf 18_ACCOUNTS
Open the PDF directly: View PDF 
.
Page Count: 16
| Download | |
| Open PDF In Browser | View PDF |
ASSEMBLER/OS3
··L.TilGTHOF·ry:rG
V1~O
09/21/74 2232
.... "00'6'22
PA GE
ACCD UN TS
1
1
..__
3
3+001 S YS ~lAC
4 .........." ............................................................
IDENT
ACCOUNTS
INCLUDE ···········1'SYSMAC·
COSY/
03
V401
E NT Ry..··'FORM F t . AG'
ENTRY
ACCWORDS
ENTRY
LOG
................................................................... ENTRY
MESFCAG
."
....................................... '006'21 p.
00602 P
00001 P
0037'3 P
04540
..... 00310 .....
()
(JoaOD P
OU312 P
..·········4:0·43·3····..·. ·············..······
00574 P
o
o
o
o
o
............................. U O.:>.2Jjp ...
8 ...
..
······9·
10,
11
11+001
11+002
08/17/74
....
ENTRY
MSFCHRG
liNT RY··· .PTPCHRG
ENTRY
DAYSCHD
ENTRY
SHIFTRA
............ ..... ·E NT Ry·····.. ·. r . PM WrCH f;'.................................................
ENTRY
UOHASH
. ;N.IBy................
,;()
()
.!J.. Q5 EL.fCT
A
ABORT
o
ACCNUM
A CCPRINT
"AceS'TUFF'"
8IT19
BIT23
BUSy·····. ·
F ASTQN
·F INK ................................................... .
FLAGS
FA.srTMAX
()
UR
o
I·H,;;""''''
HSI LOC ..··
o
C)
o
o
()
FOR USE AS ACCHASK
o
o
o
o
o
q
o
o
o
o
o
0/
1 .._ _._._ _._._ _ ._._ _ _ _ _ ._ _ _._ _ _ _._.___ .. _ _. _ _ _ ._ _ _ _ _ _ _ _ _ ._ _ _ _ _ _ _ _ _ _ ._ _ ._ _ _ ._._ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ .._______
.
ASSEMOLER~OS3
Vl.O 09/21/74 2232
PAGE
ACCOUN rs
EXT ....
EXT
2
71
72
07773
07774
""00000
00001
04000
04003
00000
.. ·\]··0·000
01UOO
o
o
00001
. '0'0002'
OOOU3
00003
QOOOO
00014
00035
00037
o
o
'00
(roo····
73
74
75
DINT
EQU
EINT
EQU
. I'MP URE'···EQU
PFlOC
EQU
CORE
EQU
'ClJREXX
EOlJ
PFR
EOU
P FW
··[QU
rlPF8
EQU
Xl
EQU
76
77
78
79
80
. ·81
82
83
X 2''''
X3
84
85
(\6
87
87+001
88···
89
90
91
92
93
94'
ZlOC
77738
77743
00000' ................
(]
0018
PFlOC"'21'i1
... CORE+3
......
...
o00 a
0000
10008
A.lj
0
. . ·Etl. U
EQU
.
~§H
0
EOU
12
NU
cQll
358
IF SJ3 REQUIRED ON
NUMBER OF USERS
SET
EQU
378
USER DIRECTORY DEFINITIONS
LCGIN
0
Cl~
{'-"
dJ
aDAGe
UOTIMLIM
on 00·3
·UCNFHLTM
UOS F8LHl
00004
I-
0
UOFlAGS
DS'FBtKS
UDT HIE
00005
000
000
()
{
PRIVBIT
DATE
00002
()
b~~TK
. (l
.v
"
ZLIsT
>/- ...... .
"~5f.
0
• • • • • • • • • • • • • • • • • • • • >1- • • • • • • • • • • • • • • • >1->1-.>1- • • • • • • >1- • • • • • • • • • • • • >1- • • • • • • • • • • • •
... .....•. :'1'.....
()
...
00003
oGO 04
.
..,.
.......'1'......................................................
o
. '"
00005
00006
l
o
at:
infO 07
EQU
6
END POSITION POINTER
BIT22 .. SEZTHE FILE HAS CHANGED
81121 SEZ POSITIONER READY
SIT20 SEZ DESTRUCTIVE READ
""FItE 'LJIRE6TGR 'f'"
BITS 15-18 CONTAIN THE HT
BITS 00-14 CONTAIN END .............................
POSITION.
. . . TTOTAC'LENGTHINBLOCKS
•
•
•
•
..
0
0
0
0
0
0
0
0
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
0
00001
00002
······..0 UO'03'"'' ........... ......... ···;:;·;:;.'7·..··················-······
0"
~
.¥
o.
•
OEFI~ITIONS
ACCOUNTING WORD (MUST BE O)
•
LOAD POINT BLOCK
•
. CORE POINT ER' I FNON;';'ZERO
¥
IF 81123 = 1, CCRE 8LeCK HAS
•
BEEN WRITTEN IN~n-·•.
BLOCK NUMBER Of THE CURRENT BLOC·
CURRENT POSITION FOINTER
•
{REL"... POSIT.······WI..THIN···8tOCK . C8PJ·'HJ/.'
8IT23 SEZ READ-ONLY
•
BIT22 SEZ AT LOAD POINT
•
"'HIT2T SEZ E N i J D F D A T A ·
8112U SEZ FILE NARK JUST READ
•
BIl18
8IN~RY RECORD FRCCESSE·
8IT1? SEZ ABNCRMAl/UNAVAllABLE •
·eIliS··S EZ' ADDRESS.ERROR··
....... ,..... .
8IT15 SEZ SAVED FILE
•
OF BLOCKS
.... NUMBER
THE . . CURREN
r £5 LeCk ...BEYOND
. ... .. .......
..•
Oila
DOli
tJ Of!
o
d
FILE CONTROL ELOCK
.~
o
o
.
........ . . . . . . .... .
••
TFILE
EQU
018
TLF
EQU
028
··RTPON·······EQU·· .....,... "038
FILE
LINE~PRINTER
" C A RD PONCH
00004
HTCR
EOU
048
CARD READER
ltOllOS'
..HHLT..........£QO.058.............
MAGNETI C TAPE...
OD006
HTTTY
EOU
068
TELETYFE
00007
211
HTPLOT
EOU
078
XIV PLOTTER
.,"._•... ·•__..m......_,•• ~ ..... '·0· e·u 1: 0..····..·_"·······,.. ··· . •·· -, .... - ...~ .......,., ·,·..2·:1:·2··... ····.. •..······........·H,T,N·U!::·!::··.......··..··EO H····--··,·,········,.··1· aH· ...................,............................., .. , ........... e Nt:'f N·E""·'·ING 'INE R:
Q0011
213
HTTV
EQU
118
CRT DISPLAY
......•.......
0
0
0
0
aD
ASSEMSLER/OS3
()
o
o
o
o
o
V1.0 09/21/74 2232
·····LiOO·I2
00013
U0014
00015
00016
0001:7
PAGE
·'21
215
. ·21: 6
217
218
'219'
220
.~)?
00000
~
1Q~
105+001
3
ACCOUN TS
HTRAF
EQU
HrT ASK
EQU
. HTI"ISF
EQU
HTPTP
EQU
HHIAX
EQU
HH1ASK ·············fQU
.
RifNoaF;"ACCESS F H.E
FUTURE INPUT FOR REMOTE BATCH
USER OISKPAGK
PAPER TAPE PUNCH
(NUM8R OF HARCWARE TYPES) + 1
···MASK···FCR····THE H AROWARETYPE··
~c.
.'f~< "l-
¥ ~>J. 'f¥ 'PPI- >J..~'>f>J..'!:>,' >; >;.
DAYSCHO
ass
1:
>;.>r. >;- "f Jf. >,UP1- >;. >PI- Jf. >;. Jf.4/-. >f:.Jf. Jf. "fJf.>;'>J.:V- Jf.>,f Jf. Jf.JI. "I-
'I Jf. :'1-.lJ.~'!..lJ.."I:¥ ¥!J.Jf.lJ." ¥:>J:"I- ¥ ¥ ¥
LOW HOUR FOR EACH SHIFT
. ......• ;()
o
o
o
o
o
o
c)
o
o
o
o
()
o
o
o
0.;
o
o
o
o
0' ........
0;
():
o
o
o
o
ASSEM8LER/OS3
Vl.0 09/21114 2232
PAGE
110
·111
112
>I>;,
JI.
113
"'$0'
>;,
115
116
117
118
119
120
121
i22
123
()
124
125
126
127
o
12 8
129
"130
1.31
132
1331;34
()
135·····
o
o
136
THE FORt1AT OF THE ACCOUNTING FILE TS·A-SERIES OF ·17 WORD
RECORDS. THE FIRST WORD OF THE RECORD IS 00000017 IF THE
RECORD IS A NORMAL ACCOUNTING RECORD OR A 4COOOOOO IF IT IS
fHEEND OFTHE'FTLE ..
J,<
·····114
o
ACCOUNTS
4
>I-
WORD ~~C·
400000 OOORO 0 oobol 7
WORD 00
DATE AND HOUR FROM RF 37
WORD· 01~ACCOUNTNUM8ER
WORO 02
USER CODE
WORD 03
SAVE FILE SlOCK TOTAL
'HORO'04"TERMTNA L l\UM8ER -INS ITS:1:5-23
TRAFFIC IN BITS 6-14
BATCH QUEUE NUMBER IN 8ITSO-5
CPU TINE IN HIlLISECONOS" ........ .
WdRDO 5
ELAPSED WALL CLOCK TIME IN SECONDS
WC RD 06
WORD 07
REGORDS OUTPUT TO PRINARYL INE ·PRINTER
WORD 08
REGORDS OUTPUT TO THE PUNCH
REGORDS OUTPUl 10 THE PLOTTER
WORD 09
WORD :1:0
NtH18ER OFINPlJT CARDS READ
MILLISECONDS OF TAPE DRIVE ACTIVITY
WORD 11
I;,
>t>IJ{-
.. 'f.
>I"
..
>I~".e_
;;;.
.. 3:'0"
'f.
'"
""'/- ...
>;.
"1-If.'
'f.
... .. :'1'
'f.
. ,.ie)
G
c
o
1,0
o
o
o
o
o
o
o
o
o
Oi
o
o
o
o
0
o
5
o
- -
-
-
-
-
-
-
-- -
-
-
-
-
-
-
-
-
.
----- ----"- - - -
o
_._- -
-
-.- -.- -.-.-.-.-- -- -----.. ----.---- --.--.-- -.-.- --
~,----.-.-.-.-
-
-
--- _.- -,-- ------ - - - --.- - -'-- - --.- - _._._,- - -- --- -
-_.- --- --
(1)
i
~
i
I
ASS El'1 t3LE RIOS 3
Vi.O 09/21/74 2232
141
142·
143
1 Lt4
149
150···,·
0
151
00001 P
14600000
" "'00002' 40 37777 T'X
00001
°
°
.;;.
EXECUTIVE
"EFFECT
rVEAOOR'ES$ OF INS lRUCTI ONSHCiCllD'BET HE LUN
EQU
LOG
00005
20100002
LDA
lt1,Xl
00011
05677777 X
'0001Z' 'Q10uOD14 P
QOiJ13
·,00014
OJ015
U0016
TAr
X1+CN8LK
. ,·tOtl.··'''·''·'···''·'''EPPyX1:+CN8LK·
ANA
1 78
AS;:;
UJF
00021
··",··,"',····,··X2··
LPTI'\G,X2
120777
5
2
·····lfODZZ·'3
l
()
,., ..'.'''' ...,.. ,.......... '.,......... ,'.. ,.. ,.,.,.......",
LOAD THE LINE PRINTER TOTAL
o
PREVENT FURTHER TOIL
o
OOlTZiT
00042
00043
AM AND WtUfFORTHEINTER.RUPT
,Xi
00045
0,
00047
00050
Oi
00053
i·'He,·"·' ,.""", "'" "',,"
00055
UDPFRSTR
'00056"'20'3'77777' X
00057
00060
031U0322 P
20377777 X
. U DU 61' '03Z0IrO'63P
00062
o0 0 6 3
00064
00000431 P
. 2 0 0 0·0 6·0 2·P, .. ,., .. , ... ".,,,",,.,'
40000600 P
14277777 X
00'0 66'14'i3tJtl D70'P
00067
01000537 P
00070
54100603 P
····00071'05100755···'·····
00072
01000116 P
00073, 14417756
00065
00074
n0075
40000603 P
n200001
"'ClOO'7 6 ""141 OOilOO
00077
77650001
UDSRCH03
2.4 ..
lJOPSA,PSA
PFLOG+PFw
'';:l',.', Of""~H1'ir ' '':'; tJ P , " " " ., 'A"" o "t,rv,,,,
AZJ,NE
U6~~aHD5
LOAJ';GF"
ACCNUM
PSA.
"AI
"-¥t2'
..... J ..........
HLT
UDSRCHX5
·.LOA
... ACCWOROS
STA
ADDRESS
ENI
READ,X2
"'EN'f"" "U"", '''''1'-+2 'iX' 3""'"
UJP
UDIOX
Lor
POSITION Xl
~
ISG
UJP
ENA
STA
ENI
"'ENI
PFA
()
o
····FFLOG+PFR
7764000
o
'f),', 'X2'·'''' ,
U CEXIT, X2
24-
OOOST
00052
OOtl54
o
~,
····"'00048
Oi)
.---
LOAD PCINTER TO PRINTER CONTROL
PICK UP PROPER ACCOUNTING
.MACRO
W0 R0""
., ...""
LOAD THE END POINTER
JUMP IF ALREADY ACTIVE
SAVE THE RETURN ADDRESS
.'1!, c'r:I"V'A'T ET HE etJEUE'·'. ·' . ,··. . ,. ,. "',.. ·· . ·. ,.. ··. ··. . ,..,.. ". ,,·. ," . . . . . ,. ". .,. . . ,. ,
ENTER THE INTERRUPT ADDRESS
ENTER THE RETU~N ADDRESS
. Of3TA IN SO HE"CCRETO'PLAY ···\fIT R
MP IF CORE ~AS AVAILABLE
01]037
00Q44
' \ , I."
IF "NOI .4 PRI NTER ... N,UM6ER
·······ADVANCE THE Bt-,O···P·Q·INTER,
0003
0003
0
°
"JD
KIN1JOFP RINTER OO"WE'HAV E
o
.. ·0·0·0··:3
00040
0,)
" WH AT
' ',········ .. ,',··'''';:;Do
0
0'
,
o
. CHARGE FORTHEPRurrERRECORDS
""00036'
0"
o
STANOARDOUTFUT·{}OES·I\'OT EXIST
LOAD THE CONTROL BLOCK ADDRESS
o
1460000
536ilOi}O
2027777
JOO
0
o
'f
MARK THE ENDer THE'PSALIST
LPTABl
" '>1-+2"
........... " . . . . . ,,,'
. "0 O'U 17""3 rt"?7'77"7·J··'V'··"··"·'··'"
OOlJ2Q
THAT
'I'
ENA
0
"STAII,PS'A
1,Xl
2frlfrOfr06-
,....., .,....,.
OF
sa
'I-
ISG
176U0017
UNEQUIPPED
••••• :; . ••• "" •••• * ••••••••••••••••• * •••••• :;;.:;;. •• :;;..;;..'1-:;;..:;;..'1- • • • :;;.'I- • • • • Jf:;;. • • • • • • • • • "..
UJ P , X lOG ., ... ,........,'".."..,.,
00010
uJ
>J.' ,
'f
SiANOARO OUTPUT IF IT HAS NOT YET SEEN
.*.. ,., ... ,.... ,.,., ITCAN8E CHARGED FOR IF NEEDED
05100001
5350DIJOU
>j. ,{o
USER MUST dE IN CONTROL ~ODE AND
. Ip·········LOG IN ""HA VE"\:10 Bf USE R' NUl'IBERINA Q""'"'', 'OR''''''''
IF LOGOFF HAVE 0 IN A
,0·100 OU 2,3, p.
00U06
JJ. 'I-.>J. Jf". >J. 'I- 'If
REQUEST
0
C)
1'1'
i}
Jf
LOG
00003
·0,0004
OO~07
()
ROUTINE
'I-
, :;;. .
145"+
l lt 6
147
14e " ......, "V'"
()
0
LOGOFF
);. 'I-',/- '/-' Jf~<'-'iJ;:-'i~< 4',.<' >j.',/-'¥-'i '¥,,,:i,f,' 1f.':;;' Jf''I-',>/-'Jf 'I-'",'.if. 'f.' >f. '1-Jf .>J. >/:". Jf V·~c.>J.'I- Jf 'I->;"'/-.>J. "i .:iJ'i,f,,,,,.>f'l- ¥ >J. !J. lJ.];I.:;;':;;' 11- ':].'/-
()
I
I
0
I
Aceo UN TS
PA GE
'HPFB~i9,Xl
ACCOl
,S....~,17
POSITION
1,X2
.'''O',X1' ....,. . .
PFlOC+PFR
PAGE FILE WORD
LOAD THE PSA ADDRESS
LOAD THE PAGE FILE WORD
'tOAD THE' "t};CCOlf N'T' NtJ M8ER· .. ·· ...... ,....
JUMF IF LCGIN
IS THE
LeGGED ON .
JUMP
'IF USER
·SO···· ......................................
CONTROL MODE ELEW IT AGAIN
·LOAO THECURRENT·8LOCKNUM8ER
SAVE IT FOR REFERENCE
SAVE
READ
tOAD
THE
IN THE CURRENT BLOCK
THE INTRA-BLOCK FOSITION
SKIP' IF' AN EXT ENSION 'ISkEEOEO ...
WILL8EZERC AT,THE,
OF THE OPERATION
ONE BLOCK IS NEEDED
THLPOSITION
END
·····SEtECT·'MASS'SlORA'GE···DEvTeEz£:RO ..'·'''···~'''··........ , ...
o
o
o
o
, ........................ "
o
o
ASS E M8 LE R /0 S 3
VL D 0 9 j 2 1/ 7 4 22" 2
'00 lGOlf40CO 112 P
D01u1
77730000
QOI02
00771777 X,
00103 40000002 P
00104 40004000
00t05 "'14217777'X
00106 14700577 P
/'lih
001Ll7
141UOOO;:)
OD1I01lf300i12P
00111
01000544 P
(p
1]01121460000u
00113
776 1tU001
J011 Lt
llflIJ0755
001i 5 . 01 ODD 120 P
U0116
20000601 P
00117
401U4023
'00120 T46000Z:C
00121
34000603 P
Q
()
0012215477775
o
00123
00124
U 0125
00126
00127
47100141 P
00700312 P
21177777 X
'0 OT3 0
203001117 "'X'
00131
536JOOOO
I)
o
o
5.3010037
4310lt002
.
0132,,1200 Otl02
00133
00134
17600003
00136
00137
03600140 P
130D0030
00141
1410000Q
53500000
'00135 ······20 100i27X
00140 .. 4!lOQ G5 05 P
.......DO 142.2530 O£l6() .. X
()
4510400 1+
l Lf7JOOOO
00:1:452037'77'77 'X
00143
00144
00146
00147
o
37077777 X
031U0151 P
00150
21377777X
00151
2D377777 X
[1015245104010
o
00153
00154
25277777 X
45104012
'0015520277777 X"
00156
21200000
00157
0450000D
····0016·0 '21601JI1 00
00161
4510
ft
00162 252.7
I.X
o
(J
00163
00164
45104
0
20277 7 X
ilOt65 ·.. ··4018 4·iJ22
00166 147QOOOO
00167
001 TO
00171
Aceo UN
PJ-\GE
svrtr
221
222
223
VFD
·RTJ
STA
STA
224
225
228
EN!
ENQ
227
ENI
228
229 .
230
231···
232
233
234
235
236
'237
ENI
UJP
ENA
····UDXFF ..
APF
Ace 01
.... ··AGC02
TMQ
240
241
. . . . 2 i t 1: + 0 {) i·····
241+002
241+003
241'+0(14
241+005
24"1+006
241+007
STAG
STr
RTJ
LDQ
LOA
TAl
·SHA
ANA
TA I
·······LfJA···
AQJ
241+[JG8
.. 24'1: + fJO g ..
2 t t1+010
241H111
257
258
12'5'9
261]
261
262
263
2&4
265
265
~:::67
A
SHA
'ST A
03
04
ENI
N
ENO
00176
00177
"002 00'
00201
,00202
UOIOZ
PFLOC+PFW
>0'
ST A Q
... LD.AQ....
SlAC
LOA
0
.
ADVANCE THE PCSITION
COMPENS ATE FOR THEI-R GAP
LOAD THE CURRENT DATE AND HOUR
SAVE INDEX CNE.
FINO WHICH SHIFT IT IS.
GET HE RATE FeR THIS SHIFTo
TOOK ATrRE"
X2
u
POINTER TO THE
0
t"
ACCOUNTING STUFF.
FACTOR
RATE
X1
·········.. ·RATETAS·,Xi:
USE
LARGEST RATE.
SAVE FCRCOMP l TIN G
RESTORE THE INDEX 1
LOAD ThE ,ACCOUNT NUMBERS
ACC03
24
Rp.TE FACT
IMPURE,Xl
~IALt
Q
. COX2 X X+ 9, Xl
P
EO, X2
M
IME,X2
C
XX+13,Xl
·eOi,(EXX+·ll3,Xl"·"
~Ul~P
TERi"iINAL ,FSA
GOREXX+3,Xl
oS ElECT·,PSA' . . .
530 2U 0 35'
-24+5
COREXX+4,
Xl.
NU"o ... , ......
12000006
3.411.L400]
6
C OREXX+4, X L
~ATCti
i:,{
0
0
CLOCK THt
:rf
I
0
0
Jv~G=OJ
LOAD THE CPU TIME
--, ..
LOAD LINES PRINTED AND CARDS
PUNCHED
··tOAf]· P1:0TTER"RECOROS'
IS THERE A CARD READER PCINTER
SKIP IF NOT
LO AD THE NUM8 ER'CF CARDS' R.EAD
.LOAD FAFER .TAFEF.UNCH. AN ORE\'10TE
LINE PRINTER RECORDS
LOAD SECONDS CF USER DISK PACK
.... nTIM E'A Nfj-·SAV EIer··
SET SPECIAL I~PLT RECORDS TO 0
SET THE CHARGE TO ZERO
COREXX+l1, X1
... SFI3L KS.,PSA ..
12077754
4410 1+007
THE
GE'r SYSTEM 00 C
GET BATCH BIT
0
;/),
RATEAr'COGON'llME~
GET THE LOGON
·2·
3
o
45104016
:.
·······~~··~·~~,fAEI~6~lt£5Nay28~EMENT
RATETAB,Xl
"ACCSTUFF, PSA"
TOTAL
TXTOT AL, Sll
41000604 P
. 2037 T77T X
()
ENTER THE POSITION OF THE
°pRESENTACCOUN TING'RECOR 0
LOAD THE FILE MARK WORO
DATE
COREXX-1,Xl
·A OCO 4X 1 ' ·
SHIFTRAT
LOA
TOTALTIM,PSA
S~AQCOREXX+5,Xi
LOAQ
LPREC,X2
STAQ
COREXX+7,Xl
···..······t:DA······ ···············'PtOTRECrX2'···
LOO ~
Q X2
0'
')'
y'
.C1
.. ,I,MPURE ..... .
LDASYSeOeE,PSA
t?J~';i
Cl;
OJ
INITIATE THE WRITE OF THE FILE
MARKINJO .IMEEXTENSIO~ BLOCK
+27 X3
LPA
81T19
AlJ,
¥+?
LOQ~~CrnlE, PSA
00174
1+5104Q05
QOii'S'" 2frsT7777 .... X ..
o
Jj.
PREVENT INTERFERENCE
GET A FILE BLCCK
S10RE THE NEW CURRENT BLOCK
STORE THE FCR~ARO POI~TER
LDAQ.ACCNUM, PSA,
STAQ
GOREXX+l,Xl
00172203IZ7l7X
00173
21377777 X
o
A12/0INT
GET8LK
ACCWOROS
CORE
\>1 RITEX2" .
EXPAND
3.,Xl ..
RAD
POSITION
INA,S·-2
-~~
23S
2'41+01'2
241+013
253
254
255
'.
UOXPF·
ENI
WPF6-19,Xl
U::Jp··mA CCU2
LOA
FM
~.~.~
......{9RE,±19, X 1.
?, A
°256
LOGOFF ROUTINE
TS
,
. LOAOTHETAFEACTIVITYWCRD ..
LOAOTHETOIALSAVEOFILESPACE
0
0
0
0
0
LOA 0 THE T E RMIN Jl L N UM8-E R.
L:OA81hE"tlAlCH'TERMINAt··NUMBER·· ....... "" .....
0
'GETNUMBEROF USERS'
AND SAVE FOR THE STATISTICS
0
?,
0"
0
0"
0
0
0
0
1
-_._----,,-,-- _.- -
-.-- --,.-,-,-----.._ - - - - - - , - - ...-
-,._,_._._._-,-_._-------,--_._--_.
__._.-
-.- --'-'-'-'-'-'- - - --_.
__._,---_.-.__ ._.-
ASS E tvl3LE RIOS 3
a:
Vi.D 09;21/74 2232
PAGE
I
~
LOGOFF ROUTIt,E
i;.;';"·'i-if.·J{.'J,;;·if.jriJ.'f·)j.·4""'~ ifiJ.·Jj.jj:~·iJ.·4·''':f;.;,;.·;,;.ft..¥'f··iJ.;';'jj:·!iJ:J;.·¥ ""f.;y.¥¥>i-:iJ.J;.~¥
288
,~
ACCOUN fS
7
'I-;';";"4.y.'44 'f. 4¥-ft..·¥ ¥ :f¥'J. iJ.',/-"''I- 'J. iJ. >J.>J. i:-iJ. iJ.4 4i- ¥
..
J.
....... H··292·
.....J{-........HUSER·IS·CHARGEO······A .. HSERVICECHARGEFOREACH'"
..... ".
~~~
:____
~~~I2~A~S~2~ ~~g~R~H~ko~FE~~H~A~ET~§£EoD~MICES
:
29S"',\<'CHARGEO'FOR THREE RECORDS ANd T H . R E E S E R V I C E . 1 f
296
'f.
CHARGES.
>J.
·····288
290
C)
()
...>r.....
..... '1- ..
29·7
0
299
0020'3' ·····5311)0 000 . . .·....................
c"<.
· H••••••••••• • ...................................................
00204
0
00205
304
002lJ7
11t780000
00·21041104017·
00211
14177777 X
01]212 14700377
00213 ····13000017
00214 OS277777
00215
01000233
J 0216 130((001t'
00217
20100214 X
0
305·
30 E
307
00220.5370·0·0·[10
00221 20300001
00222 53700000
.N····~·········~"O 022"3 ..~·203Q~O(jD O'N~'"
()
00224 0440lJOIJO
00225 15600310
o0 22~6··342U4·lrf7
00227 14600000
0
0
00230
00231
00232
0
00233
1)023.4,.
00235
A04fH1Z 23·
13000030
o
FL~
01000212
P . . .......
0023
~3'P
:3 200
:3
3
~'"
~
~...........
o
... .
m •. · ... ·....... , .. ·.~.••··....· .•
··.·.·M• •,~.<:#.
.
o
.~......
~00236
······1
2
403
·.... ···..·.... ·~OD24l:· ..··1.. 53tJ·
00242 147Q
00243
1307
0
U0237
00240
0
~
...~.. 0 0244 ""37 07
0
a
151iJ
00252
13Ul
I)
i,Xl
-12
'0777
3 ft 6
3 1+73 l +8
0255 .. ·340u n6 G'+
00256
02200237
DV j\
···f~AO
IJI
0'
.....w ••• ,," •••••
Q0·266···,· . ·.. 00" 00- 0266·
OQ267
00270
....... (T027T
00272
......................... 00273
00274
00275
.' ~ .~ .... u'·Oa27 6
00277
UJP
RTJ
ASE,S
o
o
ACCLOOP,X2
LQAD THE ADDRESS Of THIS BLOCK
.AND . ~~RIJE:.JL.qlJJ .
~
.LOA Q.
o
COST +COSTl-1, X2
TOTAL~··
00257 20000600 P
351
LOA
ADDRESS
00260 14200105 PX .................................................................. . . . . . . '352
ENI
OU25r"14300253
353ENT"
" + 2 , 'WRITE,X
X3
354
.. . . . . . . . . . . . . . . . . . . . . . . . . . . 355..
356
357
o
o
34·9
"05'0--
00262
01000537 P
00263 . 253D 0.142 ... X.
00264 00700522 P
00265
04400DOO
CONTROL MODE ROUTINE
SAVE VALUE IN USERS REGISTER FILE
SKIP IF EVEN NUMBER Of EIGHTS
R.OU t\ \J UP .
....... .
MULTIPLY BY THE SHIFT RATE.
SAVE MODIFIED NUM8ER OF RECORDS
'00253176U
00254
5120062Q P
S1
0,
00251
COMRUTE THECHtlRGES FOR THE·
VENT' S IG t\EXTn~STal'C"'"
00245
0400 21+ 6~~.. i5
00247
50 II
00250
4010
()
0
o
'00206' "'17600377
0
0
53600000
13000011
UDIax
ACC.NUM.,.PSA...
OSRCH
. ..... LOAD THE
ACCOUNT.NUM8ERS
SEARCH FOR THIS COMBINATION
WE HAVE TO FINO THE ENTRY
......................,....... ····3 s·c .. ·..···
..... "·Hi:: T....·. · · · ........ ...... ". .
······OrHER~~lSE···· HOYl"OIB .... HE··to G·ON~·"'·"M.'''~''
20300172 X
359
LOA
SF8LKS PSA
LOAD THE TOTAL SAVED FILE SPACE
31377777 X
360
S8A
ISF8LK~,PSA
CALCULATE THE CHANGE IN SPACE
'30 1 U ' 1 + 0 0 5 ' 3 6 1 "
ADA
CORE+~UOSFBCKS,Xr·AOD·TN"THE . . lNTTIAC . . IJA:[OE ........
.
05400000
362..
ASG,S
0
PREVENT NEGATIVE TOTALS
.. 1460UOOO.......
36.3.ENA..
. ........ 0...... ........
. . . ..
401G400G
364
STA
CORE+UOSF8LKS,X1
STORE TOTAL INTC THE DIRECTORY
20000604 P
365
LOA
TOTAL
LOAD THE CPU EQUIVALENT
·403tJ0056X·u,u
"36 6"~···"·'"'" """"STA~"""'''u,", .. 'A,'PSA""
.· ... ·...,~~·......,.u ...•.. ·~"·....·"" ..·..... "··"~."
12077774
367
SHA-3
-'(0 ••.• ,".............................
o
o
.. .....................
o
o
o
o
ASSEM8LER/OS3
rr.'
IJ'
Vl.D 09/21/74 2232
'U0300341u40 07
00301 2U377777 X
~0302
PAGE
ACCOUNTS
B
LOGOFF ROUTINE
3b8'R"AD
LOA
369
SHA
12Q~0012370
00303 17600001
371
ANA
00304 16477777
372
XOA,S
0030534077777-X373
RAO- .
00306 20000600 P
374
LOA
00307
14200260 X
375
ENI
TO 31 0 14300474 P
376
ENI
00311 01000536 P
377
UJP
00312. 01000000
377+001 ···,SHIFTRATUJP
00313 177DU037
377+002
ANQ
00314 14117777 X
377+003
ENI
..... 003"15
00316
00317
o
o
224001} ul} POO(rOOu
Q37U0312 P
02500315 P
····'377+ 0 U4-
377+005
SHFT l '
0
AQJ,LT
IJO
377+006
377+007
377+008
0'032014100 :314 X
00321
01000312 P
'LAeH
.... ENI'
UJP
CORE+U oT 1M E, )( 1
UoesITS,PSA
24-14
000018
-0
····SCREA~I········
UPDATE THE TOTAL FRCCESSCR TtME
TURN OFF THE ~OISE MAKER IF THIS
JOB NUMBER IS 8EINGWATCHED
.
ADDRESS
WRITE,X2
UoSRCH07,X3
UoIO
IMPURE
373
NSHIFT, Xl
oAYSeHDX1
S HIF fRAT
SHFT_.l,XJ
NSHIFT,Xl
SHIFTRAT
cr
" ')(1)
It
REWRITE INTO THE DIRECTORY
ENTERTHERErURN ADDRESS ..
ROUTINE FINDS THE:SHIFT
IS IN Q UPON ENTRY.
RETURN--WEtVE FCUNT IT.
'-'USE THE'UPPER'SCH EDUU:: IF OUr.
RETURN
-,,()
THIS
0
i.
0
u
0
0;
o
. ,a._
:.,U
;: ~
o
C)
o
o
0
'0
0
o
0
o
0
o
0
0
......,.
0
y
d
0
i
o
0
0
0
0'
0
0
o
- - - - - - --- -
-
-
- - ----
-- -
.
---------.---.---------.-,---,-----.---.~.--.-
--.- -.- -,-- -.-._- --.- _._-----,----.------.---_._. __ ._---- - - - - - -
0
----.-.-.~-.--.-
.-,-.-------------"-.-----,-
ASSEW3LER/OS3
09/21/74 2232
Vl.D
PAGE
351
382
~(J)
ACCOUNTS
9
..... 'f. ...
383
,~
384
"385
LOGIN ROUTINE
LCGHI···ROUTINE·
ERROR CODES
.. ········Of····
•• "
••.•••.•
w
388
389
1°
()
.............................
o
00327
. 00700522· p.
00330
00331
P
X
03100474
20300175
'U0332 ·····120'77754
00333 16677777
00334 536uOOOO
'0 033 5'" '20 T04006
00336
40300267
00337 ... 40300270
00340
20104002
U0341
31104007
o
o
391
392
00322 P
Cr03 22"'2 0 '3uOZ 53'X'"
00323
u3300325 P
00324
00000325 P
00'32"525300276 X
00326 45300322 X
399
399+001
"399+'OQ2
X
399+003
399+004........ .
404······
.
u0343
01000346 P
0034[.
05200001
"0'0 34 5' ... 1'460 O:?r4Z
00346 1+0377777
o0347·03 20 0355
00350
12000001
00351
:30104002
.. 0035203200'3'55' P
00353 141ll000t
. QQ3~~ 01000475
P
.......... U0355P
()
o
00357
01000362 P
00360
05200001
··· . 003 6i..i4'o'0035ErX····
00362
40377777 X
00363 20104004
'a03544Q 37777'1 x
00365 1170DOOil
.. 00365... ·37. 1u 4tH) 5....
00367
21300
X
00370 12400
., . . . . . . ~ ....... """Cl03'11 ·.... 1·7·'10 ·;j·7fiU··"
00372 531]40000
00373 16600000
····. .·..· · · · ·. ··················00374
40'377777 X
o
()
o
!
0
1
o
m
... , '
••••••••••
00375
20104005
00376 ,21300i45X
00377
121+00004
00400
05500000
......... .. ..... 0 0401':17 4''1'7756 ..,',.....
00402
00403
"00404'
OOy05
an~Oh
.. ,
0"
.
12000013
0030IFt'iJ6 P
03300474 P
1~000027,
20077777 X
U0415
11002424 P
ODS05
. D0416 1!t70a02Q
00417777:30000
U0420
14200422 P
0042·1··01·IJ7·7777·X" . . ·
00422
0>
14200424 P
TA
CD
X2
··CORE+OO·SF3CKS',Xf
SFBLKS~PSA
Ii
....,
0
o
............. X2~JJg.O..Or:HLlf...fAST. QU.EUE
..ISF.dlK""PSA
CORE+UDTIMLIM,X1
CORE+UDTIME,X1
..... FASTfMAX' ...............,.... ,............... ,', ....... ,
SET
THE
TOTAL
SAVED
FILE
SPACE
"'~SKT
"~
~+3
'····~ '~···'''''E-N··A'··
...
o
o
o
·····~
6--i-5
037uOB. ·······" .·,·........
o +II'IPURE
'RF77PSA
CORE~UDFLAGS,X1
40300301 X
0" -·····. · · · · ..·················8·Ht±·~· .·5l~3·.galr·p
ACCNUWrPSA
·······IS·THE·· USER AlREADy·tOGGEO IN'"
AZJ,LT
.+2
JUMP IF NOT
HLT
·+1
WHAT DO WE.DO.NEX1
CtrAQ'~r,ps/fLOAoTHE' JOBI USER NUMBER
S!AQ
AGGNUM,PSA
SET THE ACCOU~T NUMBERS
Rid
UOSRCH
SEARCH THEU~ER DIRECTORY
AZJ,NE
NORMSYS
JUMP IF NCT FCUNO
LOA
SELECT,PSA
GET QUEUE NUMBER
SHA"'24+ 5
. GET THE ACTU.AL QUEUE NUMBER·'
XO
FASTQN
COMPARE IT WITH THE FASTQ PNTR
••• W'
424
00407
17600001
00410
03000431 P
, .... ",.... '0'0 41:1. . '. . ·;)4 05·030'5-'7( . . . '
00412
If.
P'IF' U S2 R' MA'X" .. ,........... ............... ,..,. . . . . . . ". .". . . . . "..,"' ......... ,.,................................... "..................., . . . . . . . ,. . . . ,. . . ,.....
OTHERWISE SKIP CHECK
.
1 X2
SKIP IF NOT IN FAST QUEUE
'li08+!lOii'
·······ENA
FASrTNAXTHEN SET I r T C',-riEf-fAXTMUR
409
STA
!I~bIM~~SA
SET THE ABSOLUTE TIME LIMIT
.... 4 1 0 . ,.. AlJ· t GE· .. ···..····uD;;,RCH"'··CJ····..··
· ... ·,JUMPIF··· TIME.. I-S··l-EFT..
411
3HA
1
IF USER IS 50% OVER HIS ORGINAL
412
ADA
GORE+UOTIMLIM,Xi
TIME
LIMIT REFUSE TO LET HIM
4 ·:1:'S··. . · ". ..... ,... "......,......... ,...., ,..' . . ,· ..,,··'·..·..AZ· J
:J:i.. +3
.···.. ·t:: O-(j, . . IN········ .. ......,................, ...........,.......... ,................,........... ......,.,... ,., .........., .............., .. ,..'" ....... ,'..", ...
ENI
i.Xi
ENTER THE ERRCR ceDE
UJP
UOSRG
'ECiU'
If.
LOA
ORE+UOMF8LIM,Xi
.····.. ASG,S·......
ASTMMAX····,SKIPIFUSERI'fAXMF8LKS ., .................................................................
+
UJP
4+3
OTHERWISE IGNORE THE CHECK
+
ISG
1,X2
SKIP
NOT
THE
FAST
USER
· .. .
....,. . . . . . . . . . . . . .,p. . AS'-r'Mt'l A. 'X. ··' . . . .· . ........ · ..· . .·. . . . ·· . ·T. H·EN . . .·SIFe·r .....
TO·. ··M1J.
. X'IMtiM
. . . . . . . · ·. ·.....·. . .·... ····· ....... ··. .·".. ·. . . . . . ·., ...., ........................................ ,.................. ". . . . . . . . . . . . . . . . . . . . .,.................. .
,~
4"1'7+'004''''
418
STA
MFBLKLIM,PSA
SET THE SCRATCH FILE SPACE LIMIT
419
LOA
CORE+UDSF8LIM
Xi
·····. .··'snr . .·'· ............ SFHCkCft1; PSl~ . .L.... ..... SE'r'T HE SAG FILE SPACE LIMIT'
... ·4'ZO· .....
6 DOD 0
421
[CHA,S
JDDODDB
;.2.2......................................
.. ,·L? A,
C CRE+UOFLAGS,X 1.
423
SELECT ,PSA
FINO THE INPUT QUEUE NUMBER
• • , ..., , ' . . . . . . . . . . . . . . . . . . . .' . . , .
00355
20104003
ll035 6 . 0 5!,l.7177 ,X
If.''
to·A'·············
4
STA
If
. STA
4
LOA
4
S8A
"408'1'0 tit..···" .. ·.. ,.,' ··,tt::;' GwS'
408+0Q2
UJP'
40e+003
ISG
""'00342 · · ... 054'7~7777·X"·M
o
o
UOSRCH05 EQU
·. ·..····. .3·9·3·····. . ·········, ....· · · · · · .. ···
394
395
396
397
398
tEG'A t ' j OB/US ERG 00 E
JOB NUM8ER OUT OF TIME
ILLEGAL J03/USER CODE
'E XPERi~ENTAL ·OS3 IS RUNNING
•••.• • .•.•.
386
387
..... SET .. ME:'S$AGE81T.FOR DATE.
D
LOAD THE FLAGS ~ORD AGAIN
UJ.Q··· ............. ·5·YS·GODE,PSA
...................................... GET SYSTEMCOCE
SHQ
23-19
BATCH eIT TC FOST
Q~G,S
0
SIP IF NOT BATCH
'AN·A'S-1? . ····.....
.... ................... ,......
. TA i< E"AWf!.;·Y·SA"TC H'US ER S . . . p RI0RITy........ .. ' ...... ',.... ...... .
STA
UDBITS,PSA
AND SAVE IN THE PSA
SHA
23-PRIV8IT
CHECK THE BIT
S J 3 '.... +2 .. ' ............... · · · · J O M p" IF "CHECK I N G'NO TNEE OED
AZJ,LT
UDSRCH07
JUMP FOR FAIL TEST
S8A.· . ·.......,·.··....·........·.. 2· 4+ P.R TV S·IT,""1·4 +·J·CHEC K S CRE AMBIT
ANA
1
MASK TO 1 BIT
AZJ,EQ
UDSRC 5
JUMP IF ALRIGHT
................................... ·R·A·e···.. ····"
. .···S{;RE·A
··'''''PHE···e o-NSO . l:·E-'. . .····.."··. . ·····~·· ............, .......................... ,,, ............,. . . . ~ ......." . .
LOA
BUSY
MAKE SURE THE MESSAGE CAN 8E CUTP
ENO
10
ONLY TEN MESSAGES BACKED UP
AO'J,GE
UDSRGHXS"OON";tTFRIRTnrrSCNE8UI SCREAM
ECHA
STARS
............................ENQ..STARSL ..
VFD
A12/DINT
ENI
"+2,X2
ENTER, . ."...,THE
RETURN
........". . . . . . . ,. . . . . . Udp·" ·. ·". .,··.....··OPMS·G ..··· ... ·,· · · · ................................................".............................
. . . . . . . . ,...............
"..... '... .
ENI
·+2,X2
ENTER THE RETURN
o
o
o
o
o
o
o
o
ASSEM8LER/OS3
Vl.U 09/21/74 2232
Jb423
00424
00425
01077777 X
110J2424 P
14700020·
UO~26
14200430 P
00427
01000421 X
00430 17'74U ;) 00'
00431 14600000
00432
44377777 X
rrD~33
144f7777 X
00434 34300024 X
·00435 5301-0037·
00436
OU700312 P
iJ 0 43 7
:5 310 000 (}
U0440' 12000026
00441 21300130 X
()
o
o
o
00505 U
441
442
443
O~~
450+003
00 4 ... ...................
~450+
~
450+005
450+006
4:50+007
45 e
···45a:
461
5:16QOOOO
462
TIA
SHA
LOQ
STA
ENG!.
TAl
LOA
00465.. 537.130 (l
o
o0 46 6
00467
...... 00470
Q 047 i
o
INDICATE LEGAL JOe/USER NUMBER
. .... SE T TH E . USE RS
SHIFTRAT
Xi
22
ACCSTUFF,PSA
o
o
o
X2
U,X2
O,X2
CHECK FOR A BATCH JOB
ZERO THE CARD COUNTER
CL,EAR.At,L ..EUJJTtlE ....f.IB S T .. WORO ..
ZLIsr ,Xi
LOAD THE NEXT LINK OF THE QUEUE
ZERO OUT THE APPROPRIATE COUNTERS
····0···· .
ZtOCPSA····
. . . ~-?,>(1.
1)0500
0050 i
.......................... lJ 0. 5.0 2.
U 0 50:3
L OJ) F
..
~
c>
I.e)
o
LJ N TI L.DC !'IE.
HEPSAINDEX ..
HE CURRENT FSA ADDRESS
NT INTERFERENCE
o
MpuIF"HOREui NTHEQUEUE'
EAR THE QUEUE POINTER
lC' ..
....:1J• ..
u
2+H-lP
OOit?
~
-".
.
~
ERROR CODE 2/3
ILLEGAL NUMBER
INOICATE USER IS
..... NCi I ..L,.OG.(;..E.QON
40300476
1450Dl102
T H1L IH, PSA
1'1 FBt. KL ! 1.1".8
."'~'J·u···,,·'"'.,"'u.<'-
Xi
00504
_.~.·_
o
X
GO LJ75"'20fj-7?'77
00476
35300326
00477
.
ACCSTUFF,PSA
47 3ll (j 5
777:)00
UQ 47 ,+ ..
1410000
:)0
····0
00472
00473'
00474
IND EX .1
CLEAR THE MASS STORAGE WAIT
GET THE CURRENT DATE
GET THE SHIFT NUMBER FOR HIM.
AND PUT IT IN THE ACCSTUFF WORD
"AND PUYIT IN THE ACCSTUFF'WORO
GET ACCSTUFF POINTER
THROWAWAY
OLD ................
RATE SCHED
ADD
TOGETrlER
' ...
.
1,PSA
1530000:t
00462
02500460
00453 '1:4700002
00464 41377777
0
IN~.!L~SAAI'T
l:::in
I080UNO,PSA
···oATE··
8-1-1
····1,
XZ·' Xi
...........................
1 X2
if: !,Z,Xl
rl,PSA
14100006
o0460"~"'4i's7'7777"X' ..~.,~ ...... ~....,
00461
~tRsa2
ANQ
... .7.177Tp...
AQA······································
0016 3"412 OOC Gr
()0454 15200
00455 .. 0250.0
00456 203UO
00457
14177
o
o
PRINT CUT THE JC8/USERNUKBER
VF 0····· . ' A : t 2 : 1 E1 NT'
447
UOSRCHX5 ENA
448t,JuSgCfjD6 SWA
·····449
ENA;S
RAO
450
450+001 .
THQ·
450+lJ02
RfJ
00447 202lJrJOOO
00'450 " ~046000 GO' .
00 1-151
416JIJOaO
00452
ACCOUNTS
LOGIN ROUTINE
UJ P A G C P RIN T
ECHA
STARS
ENO
·S TARSL
444
u044Si47UOOOU
()
10
445
446
00442
17777777
00443''53040000 .
00444
40300441 X
U0446
PAGE
UDSRCHt16
rIME LIMIT AND THE
FILE SP.pCELIMIT
ODE TO A
o
o
o
o
• • • • •• • • • N
4,·~~~·¥·~·¥·*···h
U 050 5
+
o
o
o
,
10 .
..................................................... ,
...........................................................................................
'.' ............. ...................................................... .u·.· .. ·..••••·... · ...•...•., .......................,..... ............... ..•• ............................. .......................... .. ....................... _ .................... ,
................................................. ,_ ...................................................., . . . . . . .. ,
o
o
o
o
o
ASS E ~18 LE RI as 3
([
V1.0 U9/21/74
'00511"14101.000
00512
20300477 X
,0051314-577171
00514
00515
t
06004000
01000553 P
\J 05162 5 ~~ I) 0 512 . X
00517
33104000
00520
134LlOOOO
00521""""03nr0512 P'
00522
01000000
a~
1()
C)
2232
PAGE
11
. 500
501
502
503
504
'·505
506
507
5uB'
509
··510
511
512
............................. '. ··················5·1·3
514
515
o
o
u···",·,1J0537
()
00540
U0537
13000030
77650001
P
0054-1
12000011
'0054'2-"'1-3000:0'3tl"
005 L,3
14-1010iHl
o
00544
J0:5Lt5
MUA
AQA
o
(J
o
U0571
130UIHl17
00573
01
00574
00000000
0000 0·0 0 u,·,
00000000
77777777
UOSRCH1:0 LOQ·
''''''
UOHASH
AQJ, L T
ENA
519
520
··52t·,
522
523
"'524'-525
526
527
()
·UDlENGT·H,
¥- +2
0
o
S T A A OORESS·" ....... ..
~~I
~B~2c~TI8 X3
··ADAUSERDIR.,L .
EQU
¥-
. . U010
UOIOX
N
••••••••••••••••••••••
SHAQ·24 .
PFA
PFLOC+PFR
SHA
9
···SHA-ct············ . · ·..··········2·/f··
ENI
WPFB Xi
.......
. g~{...
VFO
533
4 ......... ···· . ,,·······················,·,··,R1 J·
535
UDPFRSTR ENA
536
APF
,]{3'7- ·1JOE:XI. T·~U;JP· ·
538
UOSRGH11 LOA
539
AZJ.,.N
. 5q:'0
Sf A
541
ENA
5£.2·,.
UJfL
543
LOA
544
INA
u
20004000
03100560.P'..
J0555 ... 4tf30 0335 x
00556
14600001
0(1557 ... tHOO 0522 P
00560
20000600 P
00561
15600001
00562-01'0 tJ 0530p·"··
o0 '56 3 0 0 17 7 77 ? X
00561+
77740000
·rJO'S6S·!.+730 0552 . P'
00566 54300576 P
00 567,77 650001,-00570
44000550 P
o
517
····518·
····3~:i
00553
00554
,
····gg~g~~~t-~~3
SAVE THE CONTINUATION ADDRESS
RETORNTtfTHt:CCR peET rON ROUTINE
,·CA LLTHE·· MASS··,··STCRAGf,····ORIVER·
RESTORE THE PPGE FILE WORD
A12/DINT
IMPURE
PFLOC+PFW
.... IMPtJR E"
.
EX·IT·'······~······
CORE+UOACC
~ +4
········SFBCRS·,PCLEAR fHt SAliE·FILESPACE COUNTER
1
NON-EXISTANT ACCOUNT/USER CODe
UOSRCH
.......
ADDRESS
LOAD THE CURRENT BLOCK NUMBER
1
ADVANCE TO THE ~EXT BLOCK
.. FINK
IRRECOVERABLE ERROR
A12/EINT
ENABLE THE INTERRUPTS
.........~ . "'U DE:XI r , · X 3 · S A V ETHER £1 URlfA ODR ESS··
UDPSA,PSA
LOAD THE PSA INDEX
..
pr: LQ c·+. P F R
UDPFRSTR
SAVE THE PAGE FILE HaRD
15
to.AO···...TH2.-PAGE.FILE .. WORO ...... .
CONTINUE FRQCESSING
00577
0,
........... ,............. ·.. ···········[J·iJ·60 fj-··,P··········
00601 P
OOE02
00 c04
Oli
no EO 5
o
o
o
o
()
w ••••••. · .....~., •• ·•••
UDIoam
>~
C057S
00576
o
tJDSRCHi·O····················· AND ·····T·Ry·A:GAIN······· .. ····
MACHERR
····00·5·72·········77
\..V
, "/1;;
'UOSELEGTVFO"A91IMPLJRE,AI5/*+ IMPURE, A24/IMPlJRE'
·g·~l
47300573 P
'143li056l~P
-.,.,
'>("1"
,wAQA
528
...•••..'................... ·· .···5·2·9····················, .....
530
Ll05 i t677730000
···,·,···,·[),054;7·,O fJ777 777· X
00550
14600000
(0551
77640001
"00552 '-"'OioOtJOO'u'-"
o
0-.
"'"
'·516
··,0,0530 ····21077177 ,x·
00531
03700533 P
00532
14600DOO
005'33' 4QO 0060 O-PH'
J0534 14200065 X
00535
14300511 P
. II 0536"3 0077 777 'X
USER JIRECiORY SEARCH ROUTINE
UOSRCHoe--'EI'ff
WPF3,;ia
ENTER THE: LENGfH ·bF THE' aIOCk
UDSRCHO 9 LOA
ACCNUM,FSA
LOAD THE ACCOUNT ~UMBER
ENQ,S
777778··,
SE ARCH· ON· ALL BIT S
MEQ
corI-
~<
·.~HEFOLLOWINGTABL~CON~AINS-CONVERSIO~FACTORSFORA
•
APPROXIMATION OF
4,t
Joe COST
ITALICS
· " ' . · · T A 8 t : : EVAL·l:JES'ARE'(u~ITS·21'i2)
eN ROUGH
ROUGH
PE RGENT
. .,...... "1- ,.
IN IHESAt'lEQRDER
A~,
THEY ARE ,IN
580
()
582
583
584
()
585
586
o
o
o
o
··58'9
MACRO
.
>I-
If.
".
tNTiUES IN THIS TA8LE ARE
THE ACGOUNl INC . RECORDS ....
¥ ..
.'•
"PAR
($PAR(Z)¥21'12 BYTE $PAR(1)J/$PAR(1)
.. ,"" .. CHAR GE"
NA·ME
DEC
o
587
588
00606 P
591
592
o
COST
....•. "., •. ".,->f' "
.>,<
., 3(.~60~..rO-)"O.306u-,.gg'~?'20
00606······01700 DOD
00607
.;,..:
$300.00 PER :36000Q.0 .. M. S. E:G
BYTE ·30(fOOT7
joO 00
00611
'j
'0
LINE PRINTER RECORDS
$1.25 PER1DOD
25) 1125·
.. ....
... LINES
.
.....
00610
o
··,··PUNCHEDCAROS .
0
$2.50 PER iODD CARDS
250,1000
CHAr'!GE
{100Q¥2+12 BYTE 25Q)/250
OEC
0004000D
o
PLOTTER RECCRCS
o
00613
()
PER................................
510 RECORDS .
10r.0/ $1.00
10 G········
··00612··
o
o
o
CAROS READ
FER 1000 CARDS
00065252
0
TAPE DRIVE ACTIVITY
0
3110rrO'\<21'1"2
1000
PER iODD MSEC.
fn TE3J 13$0.03
...................................................
CIAl INPUT RECORDS
00615
a\)
PAPER
$0.50
TTOO"'"2'r'128YTE 50T150 ............. .
50,100
CHARGE
OEC
1
00617
o
··00·620·
0
PER. 100 RECORDS
02 GQ D0
··OD 61 6 . ·OiJ Q2Q O!) 0
0
.
WALL,CL OC K· TIME
200,3500
$2.00 PER 3600 SEC
(36GO.2+12 BYTE 2001/2DO
CHARGE
DEC
U02200011
' T,-.;:'
CPU SECONDS
00240000
E PUNCH RECORDS
taq 8ECQ.RD$
\
.....,REMCTCLINE . RRIKIERRECOROS
5u,100U
(10aO·2~12
0005 FOR 10U
BYTE 50)/5D
o
~ECOROS
USER DISK PACK TIME
CHARGE. ·······r
750 3600
$7 .50 PER~6Q.9.;?t:C
36U!J¥21'T2 .. BYT e·7 5·0 177 51r· ...............
o
·OEC
00·046314··
00 013 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ,............................,.......···,uoJ..·t,.I.·················,·,·",·,·,··v,U-.J··I·1... ", ...•.•..•, .... (.,. \0(
:'t:~CO SL
0
... ,"',..... ,"",.".,
"'------,.,--------""" ...---
o
o
o
. ,., . .16667.. ....... ".
•••.,.,." •... ,.••..,.,.....,.....,..•,..... ,.,.".......",.,.,"',····..··,····....··,·,,,il,fl,··,·,'l
~------.~--.----
()
·1··u"'····..· , ,· , ·, ,· ,· .... ,..,·""'·,··,··",··,·,,· .., ,..,,·,,··,.. ,"'··....·,,'·,··'···6,··2 '1" ..·'·······..,· ,· ' ';. .......·.. P··T·p·'e·H·R6t'·,····.. E"f,}·U"..··,··,·..,·,· ,..·..,· ,· ..··..·'''''''2 "Q,f)..."'' ......."..,.............".... "....... , ,.,. ",."."" "..••". .''''''.''.'.''''''. . $.:1.: ·.'·f),O·"·'··F'GR····'· P"/l. P'E"R'· ....T"·'Ap·E..''''·'··HA'N'·D·t··T·N·G..·'·,· , ,....,···"~. . . '''.., . . .,. .,....... ' '.,,-,... "" ...,.,....... ,. ,.~. . ,. ",""'. ,.,."..".,.,."..., .....,.,.,,.......".....
628
o
---- - --- -
........ $ .. 5 UFO RT APE.M CU NTIN G.
- - - - - - --------.- -- ----- ---
~
---.-----.--.-,--.--~--.-
- - _.- _._,-
o
o
~-
- -,_ .....- - - _.- - -.- _._'- -
-- -.,- -- - , - -
--.~
-- -
-.-,~-.-~-.----.---
-,--_.- -
-- -.-.-.- - - - - -.-.- -- -
_.
__._--- - - - - - . - - - - -
ASSEM8LER/GS3
CD
Vl.0
09/21/7~
PAGE
. ·····629
630
04540
~
2232
13
ACCOUN[S
MSFCHRG
EQU
BILLING INFORMATION TABLES
2400
$5.00
FOR DISK PACK MOUNTING
OJ
~'
~
J
J
I
()
.OJl6.ZJ
630+002
FORMFLAG
OCT
669 ...... . . .
............ ··········ENO·
Z6 . ?21 ~..:5L.....
....]6527557
FIRST WQRD .. Of . .t.CRM.S... REC.O.ROS
NO LINES ·.. [;lITH·ERRORS
0
I0
o
0
o
I
0
.......,._ .......................................
1.0
0
0
o
0
o
(:J
o
0
o
()
o
0
o
o:!
..................................._.... C)
Cl'
o
()
o
0
("
1;
0:_
0'
o
II"4;
C)
0"
()
I
..
V1.D 09/21/74 2233
ASSEMBLER/OS3
([,
x
A
'/-
A80RT
16
203
17
235
·····215
237
234
324
310
316
"321
330
348
307
323
"-18205
X
·ACCOi· ................. ···0011 6P
A (C02
00120P
ACC08
OLJ233P
'00223P
"ACCCL:R
QD237P
ACCLOOP
ACCHEQ
X
ACCNUrvf
ACC03·
()
00141P
oQUO 0
A CCWOR. 0
ACC\WRDS
ADDRESS
x
8IT19
8LKR
>f
CNS.LK
GOR!; .
COST
COSTL
00606P
00 Gi:3
DATE
-D.A.Y.S CJ'!-D"
o
OINT
000 72P .
00ll5P
U0215P
0 0230 P
00256P
00232P
OOO~O~
489
0006P
P
o0000
335p··
0366P
I~....
GOGOP
Q124P
tJ 65P
;3 96
25300142P
501 00512P
3550026:3 P
505 00516P
G0 3 2 SF ..
393 00322P"
'397 00326P
'241+4'UU130P
316 00223P
7 OOOODP
351 "OG257p
'''''450+5'00441P ...
20B 00063P
· · · · · · ·. ········· ..······3740
030 6P
458"00444'P
()
224 00103P
····521 . . 0053"3 p'"
Q
163 DOOOlP
225 00104P
407 00340P
429 00375P
254
276
'3'~~O
450+1
EPP
EXPAND
236
00117P
'4'08-· 0034iP~
503 00514P
00143?
0 ...... G0152P
00171P
279 (J0174P
····OO237p·' .. ···.. ·····'..··341 . 00250 p ...
00254P
. . Q.Q 2.2.4.P
2~
a02?1?
364 D0274P
50:6 00517P
538 00553P
361
1i12 .. 003S ip····
263
282
00154P
0Oll?P
417 . iJO·355P
368 00300P
4i9 OO363P
268 00161P
270
285 OQ202P
Q043SP
.3 77+40 0 ·3·lS?
222 OGI01P
547 DOS64P
l
437
U0417P
478 DOlfE?P
533 IJ0546P
FAST M~lAX
FASTCJ,N
FASTHIAX
FINK
FLAGS
FM
x
... x.
x
408+4
OG345P
181 0003!)P
D0601P
"FORrIFL:AG-'''' .... 'u0621P"
GEE1LK
GETBUFF
GTV]UFFP'
'f
HIGHHOUR
>1:. H S1 L 0 C ..
HSITA8
o
X
309 a 214P
3[16 G021iP
H~ITA!3L
J/. ..
1(-
>t>.'
·HfCR·
HTFILE
HTlP
1
¥
312 00217P
HTPTP
U0015
RTPUN
o
o
00U03
>f'HTR AF O l l i n 2
>I- RIIASK
00013
0; · · ..·~·~T+ty·
215
........... ····g8 gft·····~il·· ...
X
"'I~IPU RE···..... ····•······ ..·····~ ..·.. O·G{}O·{} .. ····
:3 0
Ii
7
o
o
o
o
o
o
HTMT
00010
,. . . ·J,l··H TPLOT· ······· ..·····..····tHJ·OB7·
¥
00163P
305 002iOP
RTMAX
RIMSE.................... __ ..
• H1NULL
'I-
.10
o
-RTWISK
>f
>1- ••
488 00476P
()
346
3lj·6
onooop
-
366 00276P
434+1 OD412P
00004
uQ037
EINT
o
o
o
0
COREXX
. QtHl02
04003
Cpp· .. ·
',<
aa
n0056p .
00477P
.. 241+10 00l3.6P
241+1 00125P
441 G0423P
..····· ... 171 . OOO . t7fD
173 OU021P
564 00604P
20 9 . llo·iJ64"·p"
257 00146P
·4870 0475p· .
22+1
,'6'"
87
Q4qao
..................... CORER
o
o
21
.......................... ·22·
00005
X
.... 00003
00000
3U;:'Y
C 8P
>;. '.
00602P
'u0600p
·X
8lT23
o
241 +12
241+13
19
. . 20
71
563
56 f
GO 11+ OP
ACC04
AccpRINT
AGGS'fUPF
()
UO.21~P.
ACCOUNTS
1
PAGE
tg~H
U R···t:.···
;7-6
• ..•....·• .. •·...• • • ..
....
· .. TOHOUNO····· .. ··· X
o . . . . . . . . . .)/.-. . . ISF3llI-
o
238 (10121P
"177 ... GO 024 P
205 OD060P
275
359" D0170P
n026tp
241+4 00130P
397 DD326P
39S+1 00331P
450 OD434P
45D+5 D0441P
G0461P
475 OD464P
OSt}1P ......................... · . 492· . rJO 502P'
423·. · 0 0367P ..
·'~·
405 00336P
U
SYSGN ............. .
339+1
476 DOlto5P
.. ' . ·········5nt··.. ··l10512P·H .... ·· .... ·5·05 . 005·16P ······ .... ,.. ···········5 . 4000555P
w
........• .. • .. • ....
,
~,
...
0
423 00361'P
405 OGl336P
·")!e1··""·9 ..... r\·(1··-! .. '?lC::,. C\· .. ·.......... ·· ...... ·......
7}7·7·+·5·
·(Hl.··..;;:..i ..;;.·:·C\·· ....· . ·· ..··..
0
540 00555P
"3''77'+8 .., OQ32'1p·· .. ···450+2tJ:'04.. 36P
x
()
,.-=
a~
':l J
TERHINAL
'TFC"
.........
. TOTAL.
TOTAL TIt1
_
UOI8ENO
at:JIO~1kIT'"
UDIOX
aOIaz
UO!::ENGTH
UOHF8LIM
. UOPEr~STR .
UOPSA
UOQUEUE
UDSEl::ECT-
UDSF8LIM
--.
········58
ODEXIT'"
o·
,.,'
0
429+1 00376P
TPMNTCHG _
·HT·8T·A!::···
UDACC
UD8ITS
7
.-,~,
0
T. ·1·· . . ·.... ···· . . . . ·. . ··
UDHASH.
UDIO
40e 00337P
0021~7P
359
nfl··!:' ....
SYSCODE
SYSVAL
U JFLA GS
1,0
428 ·0 Q·374P429+1 00376P
458 OQ444P
469 00456P
477 D0466P
488 00476P
2·41·+8· ·!lO·.1··35.fL .
522 OC534P
399+1.
T IfvlLIM
~il
UI
1840 0 0 3 3 P " i 8 7"00036 P 1 9 3 OO"OLt4P
253 00142P
256 00145P
27700172F
27.a 0017.3P
28.0 0.0 175P
36'0 0027QP3'o6'''b0276P
369 00301P
···4200 C364P
4J4
12
"·C¥-
o
D0567P
553 00572P
550
STARS
····.. ·· . ········· .. STARST
. ·····
'1:...
527 00540P
0
>1-. RPSAPT~
"'seRE-AM
SELECT
SFHLKLII1.
SF8LKS
S HFT .1
"S HIFTRAT'::: . .
SPSERGHR
0
00432P
220 00077P
202 00055P
553
00566 P
PTPCHRG
RATE FACT
DOSOSP
····. ··RATETA8 .. ·····. · · · · · . ·..·····x
0
()
430+4 00406P
"158' . 0 (J (J02P ..... ····171 . GO 0 17P '"
...
201 00054P
203 OOD56P
25900150P
26.05"00
JJD151P
32700
235' P
35'
263 P ......................._....
39
D0322P
395 00325P
............................................................................................................... / ... 1<
~
. I'~
. , \.J!J
217 00074P
430+1 00403P
()
()
()
418 003E2P
492 00502P
38
475 00464P
"6'30""10'U 0000 fl'
39
271 00154P
40
175 00023P
'4T
"449 00433P
485
42 oaDnop
399 OG330P
. 377+7· 00320 p.....
41+1377+ 300314F
89
283 002DDP
42+1
336+1 00244P
(,.~····················439·0·0 if·Z1:P········..·
"'445' 0"04'2 7P"
78 DOOOOP
198 0005iP
536 OOSSlP
550 UQ56?P
.. ··19if0I105Ip····
220 OUff77P
202 00055P
232 Ol.l113P
......................................................
.. ···2-6 4···ua·1·55 P
.. ··40
""" ~"'-"""
...................... fl
··9 0 O·fj·O.op····
0
0
ACCO UN IS
2
x
.0
40433
00000
X
0
60
9T
61
409 00345
271400157
565
··63
94
6 1+
····U 0'5 52F ' ' ' 5 3 7 '
00005
Ofl574P
00536P
00573P
·fl 0564P
98
... 557 . .
524
554
547'"
00537P
525
X' 00544P
.
...................................... 531
65'
00003
. D0550P
00576P
0057 SP
"00526P
00004
96
...... 535 .
559
558
...... ·. · ·..·.. · . 51:6···
97
0
26C 00151
6f:
624
12 GOiJDOP
".. ·275 a tl:l:: 7 !Jp ..
503 OOS14P
5(J6 00:517P
538 00553P
ao
"r96"00047F
.. 13 OOUUiJ P
192
Cl43 P"
429 00375P
... 514.00524P
212 G0067P
354 00262P
369 OiJG35P
00301P ........................ .
"nr6
422 00366P
377 00311P
531 00544P
··S·32· . . u054Sp· .......... ..
430 00ir 02P
230 00111P
Sl8GG53Dr417 00355P
......1.99... aO.052P .......................... 481004 Z2P
187 00036P
201 00054P
183 00032P
184 00033P
........... ····:1:4 . 0 00"0 0 . p ..
419 00363P
0
Cl
0
551 .. 0.0570P .
327 00235P
480 00471P
477 00466F
549 00566P
0
... -"'1
U
0'
0
ASS E t'IBLERI OS 3
(Ii
V1..tl
OGOG6
UiJSFGCKS
UDSRCH
UDSRCH01·
UDSRCH02
(]
OOS22P
, 00 Git 4?
00047P
OiJllS5P
GOOS6P
00322P
UOSi~CH03
UDSRGH04 ....
UDSRCH05
UDSRCH06
. UDSRCH 07
UDSRCH08
UOSRGHU9
UOSRCHiO
UDSRGH11
'UDSRGHX5
'
UDSRCHX7
UOSRGHZS
(j
0
()
00432P
OLi474P
0
USERDIR
USRNUt1
, WCTIME
WPF3
ItIRITE
"""X1
.........
'I-
0
196
202
203
392
4 L. 8
4 e4 ..
·501
00475P
486
{] a35 SF
x
99
509
·,·,········1,93
OiJ5i1P
,,00512P
OIJ530P
00553P
'OU if31P
Uti TIM E '
UOTH1Lli'I
. UD,XPF····
Og/21/1 l + 2233
"O'ilOO 7'
aI) 0 I) 2
.. [J 011ZF
x
500
5113
538
447
416
"100
95
···23-1
66
67
X··
PAGE
3
AGGOUNTS
364 [OZ74P
361002/1P
356 00264P
39~
00327P
'43]+~
OU4D5P
. 185 0 0 0 34 p,.
188 U0037P
191 00042P
479'00470P'
204 00057P
494 00504P
37600310F
404 00335P
542 00557P
523 00535P
508,0052iP
545 OOS62P
504 00515P
207 00062 P430+'600 l+iDP ,
415 00354P
41Q 0034'7P
o
"'368 UG30'OP'4080D 34IP'
407 OOJ40F
412 00351P
221 00100 p.,
o
52400536P
Olono
233
352
161
194
O(J114P
""~
0
,--"
GOU02
X2
84
465 00452 P
. ,50 I). ,005,11 P
169 aODiS,p
196 GOO 47P
·······284· [jui:S5P .
710
!.,..Ii""" :;.t
0
..
,.
0
OUOG3
X3·,·
·85
,
375 !:H}.3lJ7P
44'4' '00425 ?
2 ClO534P
:t .. Oil OOS P
1
.J.
XLOG
......, """"
XREOENO
0
ou 023P"
D0226?
Of.l24[lP
:1 GOSl;4P
162 OOlf06P
1'63 flu GOlf'
214 0OO71?
241
254
275
305
351
:;- OiJ2:iOP'
G02S1P
OG31?P
i"£f' oa353'p
0
530 D0543F
..
213 0OO70P
UQ04SP
236- ·OUil7P,··
2: 41 + 13 OOi41P
272 00lSSP
0
SOD aOS!l?
375 O!J307P
00260 P
000'0 SP
,
..
241+1··,·, G0125F
.. 00124F··
261 G0152P
00143P
00171P
279 00174F
'-312-00217P .
364 00274P
0021:1:P'
OIJ2?lP
7+7 0032DP
417' C0355P'
468 00455P
·5··05 OD5!?P
172 0OO2lJP
S.3G
(I
[l·543P·
21 9 OOO/SF
j
. OU:t56P .'.
"'265'
"< ",.?
003.3SF
174 OG022P
210 GOO65P
UiC:
404
4T9" 003€;3P ..
470 DiJ457P
·······267
nOfti GP'H
329 OG2.3EF
408+3 G0344P
"462 D044 7P
G0233P
99+4 00334P
461 uG446P
3·13 00220F
353 OOZ61?
548 OOSESP
o tH.·i·or
GG24iP
IJ0545P
173 O[f02iP
219
241+3
263
282
OOOl6P
··OQ12tF
00154P
00177P
'326'" o0234P'"
368 G0300?
4G7 00340P
'422 00366P
473 00462P
"183'00032P'
228 00107P
241 +8· (10134P
268 00161P
285 00202P
'3'3 0 "OO'237P'
377+3 00314P
408.... OO341P
429 00375P
485 00474P
"'404 uOitS1P
186 0OO35P
241+5 00131P
"'271 00164P
348 00256P
1+38 .. 00420P
"466 00453P
,,3<14 002.21P
376 00310P
315 00222P
481 00472P
182 OOD3iP
226 0010SP
"u269 00162P
346
00254P
417 +3 0036QP
,
o
o
o
o
o
7.LIST
ZLOC'
()
q;;
o
d
,.
0
a
0,
1
o
~ ;,
o
L
Oi'
C)
0'
o
il
o
Q,I
o
0'
- - - - - - - - -
~ _ _ _ • _ _ _ . _• • _ . _ _ _ ,~._._._._.~ ,_. _ _ _ _ _ _ , _ _ _ _ • _ _ _ _ • • _ _ _ _ _ • _ _ _
_ _ _ _ _ _ _ _ _ _ _ _ _ •_ _ _
r ____
. _•• _ .
__
•_ _ _ _ _ _ _ _ _ _
_ _ _ • _ _ _ • _ _ • _ _ _ •_ _ _ _
~_. _ _ _ _ _ , _ _ • _ _ _ _ _ _ . _ . _ _ _ _ • _ _ _ _ _ _ _
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-c041 52.342996, 2008/05/07-21:37:19 Create Date : 2018:04:26 10:54:44-08:00 Modify Date : 2018:04:26 12:01:28-07:00 Metadata Date : 2018:04:26 12:01:28-07:00 Producer : Adobe Acrobat 9.0 Paper Capture Plug-in Format : application/pdf Document ID : uuid:8bbf12d8-a70a-9d40-b4a2-4e4412da2d1e Instance ID : uuid:b1a41117-7e98-9241-b234-03e6f1dadacb Page Layout : SinglePage Page Mode : UseNone Page Count : 16EXIF Metadata provided by EXIF.tools