04_PHANTOM 04 PHANTOM

04_PHANTOM 04_PHANTOM

User Manual: Pdf 04_PHANTOM

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

Download
Open PDF In Browser	View PDF

~

®
Vl.O Ug/24/74 1901

ASSEM8L~R/OS3

CD

L E j\J G rHO F

PAGE

ItJ?G5

P 1< G

PHANrOH

1

I LJ Ei'-lT

1
2

INCLUDE

;:$
(

:)

4

,ci

C)

00 dU f. P

DUUOl
UOUGl

00002

()

00U03

0002;)

0

OU023

00005
OOOO/'f

UU003

0
0
0
()

OUOiJ2

aODDl

00000

ouo;u

(

13
g

10
L1

12
13
14
15
16
17
11)
1 (3
20

21
22

2 :j

0
0
0

EQU
EQU
EQU
EQU
EQU
EQU
EOU
£QU
EQU
EQU
EQU

263

II AI

r

sum
FP

RFP
EQUIP
UNEQUIP
SAVE
DELETE

238

o

5
4
3
2
1

o

o
32

SIZE OF A
DENOTES A
REFERANCE
REFERANCE

USER VMM
PSA REFERANCE
TO OEVICE MACRO
TO
A CONTROL BLOCK

00000

27
28

GN3U<

J1
32
7' ":7

SCREENL EQU
5CREENLC EQU

250
NUMBER OF WORDS ON A TV SCREEN
SCREENL+SCREENL+SCREENL+SCREENL

3'..
35

50·

42

rVLINEL
TVSENO
rVGR
GOllON
COI'lf'11~
PEFUGO
BLOTCH

4 tt
:4,5

S
W

00000

OU372

Di/5u

29
30

U0037

00036
OOlJ12

DUG?3

00033
00075

dODUU

OOOll2

QOOU"!
QUO!E;;

OOOOT
00010
UCHL21

Q 0 J 2 Lj

OD02j:I

0002U

22
000;:; 5

00031

(J [) ,]3 4

JG

37

:53

;:;: 9
it

U

4t

4 ~}

l}

y. l
i~

8

I~

Ij

50
51

IHPur~E

t<

S

!3

f

3'2

r

54
55
5'1
5(:1

59
GU

61

62

RF20

CLOCK
dU

DATE
RF34
RF40

0005U

65
66
67
68

RF60

OuD6?

70
11

RF62
RF67

(H07l

73

OOU52

OUUbl
DOU1U

U OU7:,

OD076

69

72

! it
7S
76
77

r~F4i

RF42
RF50
RF51
i,

OOOhZ

()

PHAN·Tot'j

IJOUUU

.J d

0

2

ENTRY

:5

b

PHA NTOi'1

o

o

2U8

228

358

'378

348
408

REGISTER FILE FOR NUMBER OF USERS
REGISTER FILE HORD FOR THE DATE
RF WORD THAT POINTS TO PSA

418

o

428

508
518
528

608
618

628

678
lOS
71B

748

758
760

()

SAVE FOR STATISTICAL BUFFER LOCAl

o
ENDPOINT PUT HERE BY INITIAL
SLSBITS STUCK HERE BY INITIAL

o
o

78

0
, _ - - ' - -_ _ _ .

__ ,_ _ ., __ ._ _ ,_ _ .• _ . _ _ ._ _ _ _._._._,._.. _,_._. _ _ _ _ _ .. _ .. _ _ ._ _ ._._. _ _._. _ _ ._ _ . _ _ ._ _ _ _ ._ _._._ _ ._._ _ _ _ _ _ _ _ _ _ _ . _ _ _ _ •_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ______________

~-r

_____________ _

0)

!

!

ASSE:-IJU::R/OSS

I
()

1

Vl .. U

OU02U
00031

DOU:';)

U0171

(jJl24/1L~

1'-301

PASt.

2

PHJHHOH

79
30

\,1 AXHS

82

ALI AS Tl~1'l El1U

a1

FREC:MHI
FRcCl1!~X

Eau

EOU
EQU

.~ 0 l:l
.3113

558
1710

HIGH SPEED TERMINALS
LOW PATCH TERMINAL
HIGHEST GENERAL PATCH TERM
PHANTOM TERM WHEN SOMEONE
MAX TERM FOR

()j

()

01
01

o

1

1

o

1

()

1

I
()

1

(j

I'

()

o

'-' I

o

o

o

o

()

o

(;

o

()

C)

o
C)

()

o
o

()

o

o

o

C)

()

I
1

01
o

1

-__~_J____._____.___________________________________________________________________________.____ ._________ ._____ ._______ _

o
o
o

CD

CD

i

I ASSEddLcR/OS...i

()I

1

()\
I

Vl.0 OJ/24/74 lSUi

P~\Gt:

.~.~~

8S

aG

HI

88

89
'30
::31

01

93

I

95

01
0

1

1

()

I
1

()

I
I

oi

92
94

'36
97

98

99
100
lUi

1[12
10::;

104
1U5
100
107
illS,
10 9

ilD

111
Li2
113

I

lil~

01

6
1

1

o
o
o
o

3

a

a
U
.,I

'.C
-1-

..

~~~~.~

...•. .. .•. ............ .. ......
~¥

~.~~

~

~

~¥

~.~.~¥~.~

......... ..
~

>,t

NOTES TO THE NOVICE
lUNES USED BY P8ANTOM~
1
EQUIPS TO SYSTEM OVERLAY IN INITIAL PHASE
EQUIPS TO t MESSAGEt IN MESS AND DHESS
2
EQUIPS TO TASK TO COpy TASKS TO
J
EQUIPS TO TASK INPUT FILE
10
EQUIPS TO $FllE400 FOR OWNER
11
EQUIPS TO ~SYSTAT FOR INFORHSTION GATHERING
15
EQUIPS TO SCRATCH FILE FOR BACKSPACE
2U
EQUIPS TO ~FORHACC TO WRITE FORMS INFO ON
tHiEN PHl4NTOi'1 IS ENTERED FRON INITIAL THE FOLLOWING INFORMATION
IS IN THE REGISTER FILES:
RF50
NAME OF THE RUN~ING SYSTEM
Rf51
DITI0
RF57
IF SIGN OFF,TPUNITS AVAILABLE ON THE SYSTEM
IF SIGN ON, BITS 22-15 TPUNITS AVAIL ON SYSTEM
BITS 14-D TPUNITS OPERATIONAL
RF70
THE NAME OF THIS PHANTOM
DITTO
F000355 P
I t dOLJOOJ
71L~iJuj52

P

02500067 P

l i U iJ LHl02
JJ:SvOG6U P

o

Q001S
0.0 J is

1200000':+

o

GOLli?
OiJ020
UlJ021

1l;bl10372 P
1 4 'l tJ UII Z Lf
l L1· It 0 0 ::5 52 P

0002;:'$
00024

OSSOOJUU

OQ02Z

()

DOO?5
00026

1J0027
OOO:SO
00031

o

OO(J32
00U33

()

00 [JjLj00 !Li Ij

00036

DUO:}?

o

o U0 £1 0

C)

00042
00043
OOOLfLt
00045
00 Q1~6

(j

000 1+1

I
1

01
01
01
01

1

000i+7

Gauso

000:)1

1.::000006
O~.500056

p

0100001-( P

16577777

1558U02.4
lJS700Glll

UIUUlJiJ55 P

4HI;JU6Gl P

2U000372 P
21i.JUU357 P

OJ5UUu5
iitl00nO

P

p
p

71 LtU03

25UD03

1I--I1UOOO

714UU351 P
025

346 P

141
005
Qu! 2051 P
01000!J~)2

P

01U00052 P
141fHlu23
? i i f D U 351 P
2100[J

1 P

7Sl.tU (I

1 P

Oll056

1410UU02

OOOSO

71 i HIUJSl P
UD06l.J P
14100Q02

Q1000U17 P
UllOSb P

ODOS7

00061 . 71400:)52 P
041UOl]OLl
00062
001163
010aUllbJ P
0006 /-t
530ZUu75
111+777'15
0L1065

00066

53420U75

00Ll67 P

()

1
1

0

UDOll]

00071
1

1

C)

00067

I
1

OODtZ

53020076

030UUtJl2 P
01000071 P

53U2UU50

OU013

530100 1.31

IJ0.10(]

0.iS00346 P
14!ODG04
72400350 P

OLlJl4
OU075
OU076
UOOl7

PAGE

PHANTOi"i
,t.
Z

Lil

132
13J
13<-/
135
136
137
138

OUT BUFF

LH

lQU
00
00
00
OCT

0,1
ltOODa

PHANTOM,1

-0

£ou

1 'I- iJ
14:1
142
143
144
145
146
147
lito
149
15J
151
152
15 ~~
154
155
l56

::;.

RF75

Ttl] A

ANA

AZJ,EQ
LiJAQ

TASKOO

15l
158
15:3

160
161
162

ENI
XREu,I
IJO
SHA
AZJ,LT
SHA
AZJ,LT
EOU
ENA
ENO
READ,I
SHA
AZJ,LT
QSG,S
U

XO
IN
OS

1.63
i6lJ

U

165
166
c:
"~

LOGGED IN

E~U

~7

.L·:' I

168
1 9
t {]

.1.
i

NE

iHl1
i-002

5,Xi
FETCHIH-l

174

T ASKl 0

174+fHll

TASKiO

1?4'HlO,~

SEND,Xi

Id2

T'A.SKLU{\l

1 1+10DllUJ
71LJ-0035U P

IE,1

la9
i90

:1. ':) 1
1'32:

ZfJZ

203

.2 U Lt
2U5

206

,=:U7
.208
c;: 0 'J

210

.211

212
213

TASK25

EODSII-AUOIT
TASK25
=;.
I UFF
I UFFL
T KLUN2
2 AUBIT
TASK20
o
TASKOO
777778
INBUFFL
1
TASK2U
TEI~P
INBUFF
BCOJ08
TASK! {j
UNEQUIP,Xi
TASKLUN

TASKLUN
LOGOUT,Xl

i?O+DUl+
1nl

199
ZOO
201

23-E00811

TASK

170+003

1.93
! 9;(!J95
195
1(37
198

213

SKIPAJOB
TASKFILE
EQUIP.,Xl
TASKLUN2
SKIPAJOB,Xl

EQUIP~Xl

00052 P
1!.+bOUJ7c2 P

00052
00003
OllOS4
00055

1

1

lJ33000bO P
000i7 P

19U1

Et~U

TJ.\SK;'~S

ENI
XREQ,I
EQU
ENI
XREQ'l I
ISE
UJP
TriA

ANA,S

TAM

S!;'-1·, Xl

EQU
LOA

S HI,),

SrLi.\Gi

254

(j6[~73

UJP
lACH
AQJ,EQ
ENQ
EQU

251

2~J

HAP8UfL-l, Xi
HAPBUF,Xl

8LANKS

SET START OF SYMBOL TABLE
BLANK FILL THE MAPP BUFF LINE

U.JP

U.JP

245

g,X3

GET THE FIRST CHAR
i1A P 0 7
JUMP IF A ZERO
START AT COLUMN 2
1,Xl
60B
SPACE
or
MAPBUFl+MAPBUFL+MAPBUFL+MAPBUFl-l,Xl
~t2
l-tA P lJ 1
JUMP IF DONE WITH THE CURRENT LI
MAPGUF.,Xl
GET THE NEXT CHAR
LOOP IF A SPACE
MAP03
SET ADDRESS TO ZERO
o
4if.
PUT ON HIGH END
21
PUT NUMBER TOGETHER
.3
1,X1
INCREMENT THE POINTER
rHIPBUF ,Xi
GET THE NEXT CHAR
SKIP IF NOT A DIGIT
10
i'lAP 04
LOOP IF NOT
PUT VALUE IN A
24
SET THE SUBPROGRAM BIT MAYBE
BITORNOT
SVWLt\B+VALUE, )(3
SAVE THE VALUE WORD
-,O?'"X2
GET 8 CHAR SYMBOL
:;.
1,X1
INCREMENT T
POINTER
GEl A CHAR
NAPB, Xl
rEMP ,X2
SAVE IT
~1APIJ5,X2
JUMF IF NOT DONE
TENP
GET THE SYMBOL
S'(MTAB+NAME, XJ
SAVE THE NAHE
ENTWl:'L,.}(3
FIX THE SYMTA8 POINTER
;·1 A P U6
LOOP BACK

lSI

241
242
243

2il: 7
241:1
24S
2SU

P

45310765 P

NAPDS

246

P
P

P
i~2:40~l313 P
02200146 p
2SiJUu66i P

23b

2Jl

1';;0001]30

.35000347
4l!310l6!
1427777U
oU1 l , b
t511JOO!J1
22432354

4

235

23 i:l

001,:)L, P

[j

00163
OLli64

229

23tl

0:1UOU131

U0134
00135

o01 It (J
00 lit 1
00 i 1. 2

P

ENI
ENI
LDA
STA
IJD
ENQ
ENA
READ,I
lACH
AZJ,EQ
ENI
EQU
ENQ
EOU
tQU

22 B

l L.700042

220,,) 2 3';) it P
0300015b P
141000U1
OU125 P
147Q0060
00126 P
lU1U020 7

PHJ\NTOH

6

22:5

1 1t606 1t73 P

147UOOOU

001

o

[J[)11J

00133

o01S?
()

PAGE

P

00122

()

09/24/74 1901

1430 OOUO

00115
00116

()

• IJ

00112

oUl.U,

o

Vi

~

i1AP

BIT
MAP

()

o

o
()

o
o
o
()
C)

SUBPROGRAM BIT
JUMP IF SET
WE ARE DONE
SET THE BIT

()

LOOP 3ACK

C>

SA'\lE IT

SAVE THE LENGTH OF THE SYMTAB
UNEQUIP THE SYSTEM OVERLAY

()

o

o
o
o

o
o
o

ct,
()

fl.···,.'

\}.,

I
I
I

ASS t: ;1 d L r::r~ I
OUl')?

1 1.01 1l7?
Ij l.11 0764 P
20~~0U!t17 P
u5110765 P

I

Qll1n
0017!.t

I

0

I
I

::>

i

I

llll11t

iJJ172

GU175
00116
00i11
00200
1102tJl
00202

0

0

UU2U6
UU2iJ7
00210
IJ0211
ULl212

00213
DU21 L,

0
0

0

29 ()
291

ZgZ

293
294

2.<:17'
2q8
299

300
301

30.2
3,03

15100003

c"ltiOOSGl P

304
:SuS

30G

311
312
313

00223
OU2:::4

UIJ225

00226
00227
00201

ifutfuOSOl P

U023b
OU237

14600017
ItU Lj·U lE;Z3 P
146llUQOU
4 Q1+ I) 0 S :5 if, D,

OD245
00246

UJP

LU'/\
SSA
AZJ,NE
LlJr\

KEYOl

KEY02

KEYiJ4

307

P

SSJiJOUlHI

2iJOQU641 P

p
2IJUOU636 P
Lfl.,. II 02 2 2 1 P
'+i..1' 0 ClI+561

SWA

r::QU

g, X :3
777776

SYr1LENTH, Xi
KEY \'JORO, X3
SYMfA8+NANE,Xl
;''''''''>...... '''.''''''''"...".''''=.'''',.'''''_,''-''"._~,_ •• ~ ,___ "~""~ ._, ~'_N"._~,..~

"'ii+tilfitfJHifif(ilfi~ffRlUli:M!"M'~'-fJ'}"'!:"NI:rMi;Nii._4'!l"'M>I'.~""''''','_?~'t'IP,,,·,~W'''''~~"""'_'""_.·fflfI"'''_'''i''''''''''_'-''_4-''' ....''"_"",,,,,,,-,,,,,,,,~.......~,,_,.. _·, ... ,,,;

(I''/

I

C) I
I
I

0
0

I

I

I
I
I
I
1

I
I
I

0
0

I

0

0

00416

0

0

0
0
0

oUlti?

0

P ~\Gl:.

426

it 2. 7

4 It 2.5 4 1. 2. 1

'.~-."

_.. ,,, --.-

~~

~12323Lti:)

4.37

lJ U4 i+1

oU4,:13
o lJi., 4 f+
oiJ4 1+0
o IJ '+4 7
oLilt:) :l
UU4~2

o0 Lf ~ It
DU Lt'::>5

00L+57
flOL.CJO
UD4b2
{) lJ ldJ3

OUUtJOLJUU

632S514 Lt

QU3[JOulllJ

rT A8LE

431

UU433
[J[J4J5
OLl4,56

DlJ44U

43d

43:1

440
41.t 1
'.4,2
4L~ ,)

liFO
\/rD
VFu

T ERj"lI NAL

7

SYSGM

9
0

l~nU\RRi\

j f~i~1

L,6

a

1

OOiJOJuOD

31462246

.SKIPUi
y

I08l1UND
FRCNT

OU3UOU08

2G':51~34S

DUl.iJlHJ(JO

0<::235120

LJuoootJUlJ

SCREi'\i~j

Ull3000GD

,iF8LKS

o0 1~o6

442622 l t3

OD471

4426224,)
GU;)UDOGU

NFBLl64

!JeD

I

2,

I ,'·i REt
2,1 HE
I !v~P RE

4gB

1t':3 4

.J02151(~4

H1PUHE, X3
2:
Mt1

SCLl
QO

486

48':3

J;,-TTASLE

au
on'"'
8GO
ou

00
BC;(J
UTAPEMAX DO

FLAGS
FAi
436

23016060

HI8UFF
INBUFFl

.~

UUllitt

OU,)OUO[JfJ

o I~ Sl~

42'1
430

314S3U31

S1462264

e,

PH !~NT 0 j'j

428

OU4:30

'+4625ll Ed

q

422

423
421.,
425

432
433
Ld4

OU'+22
00 1+25

OlJ5Gl

0

3!UOOUU~J

00417 P

OU52j

0

OOU2 L•

iJiJ411 P

UOSiJ7

0

OJ I 2i.17 4 19U1

iJOJ12

DU4b5

0

,11.0

00372 P

I

()
-..,

.

er

I

C] I

0

-~

!

I ASSEdt:JlcR/USS

0

.... ..

,~,

2,CMCODE
X~)
2,FLAGS
IN PURE
2,FAKECBI
H4PURE
2,URBLOK

o
o
o
o
o
o
o

HWUr«

2,UR8LOKI
IHPUf~E
2,URELOKIZ
I NP UR.E
2,lUNLIST
I~IPURE, X3

2,HA1~O~'JARE

Il"iPURf, Xl

2,TAPESAVL

I

~;.

I~PURE

2,SENOTABP

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

0)
I ASSEiH.lUJUO S;:;

()I

(}I
I
()

I
1

°1
1

°1

Qlj5bl
GUij/O

1

1

01
1

01

5U1

SENOTAi3

suc::
su:s

00

Bell
U0

,H2IfLdi~?

OU.)OOOOU

OU[J[]UOOtJ
22632330

587

U06iJ1

5US

B ATCHi'iUl'l 00

00575

U(]6U3

00604
DObUb
OUSJ?
OiJbl1

OO()12

OU61 L+
OuGi')

00617
00b20

006"::2

OOtjZTj
U0626
00650

00631
OQ633

OUUOUOOU

EiJLtS6 f t4 Lt

OUOOOOOu

45222163

000130000
4S222:lb3
00000000

5U6,:\2122

0020UUOU

6321 1.? 2:;
00300000

22.21G323

[)O:iUJuQJ

226323.:;0

OOlOU\JU(j

47212720

OUZDUOGU

6462:;144

OUOUUUUU

00G')7

1.7622122
O[dOOOOU
2243£1623

U0642
IJ 0 \) lt4

224:$462.1
OOUQUiJUU

OUO.s If
UO(h~6

OUG41

0061..5
1

PHANTOi1

u!J0/6
UUE,JO

01
()

10

3ENOTABl
TNUi1LIST
IDLE

1

1

OOlOOUOU

62254'524

PI\ GE

5U4
SUS
51)6

00012

UlEi!3

0062:3

()

Vi-I]

00646

5LJ8

510
511
512
51:5
51 i f

0010iH1Ull
DLlDO(J {jJ

i'iBAT CHQ

51S
516
5ll

OT J\BLE

51g
520
521
522

SA

511:1

523
5
~1

5:'~

r APEL.IST
HQ

GATCHPSA
PJ.\GE r p,BL

USERI'iAX

1

PStlBU<

(~

GLOG15

2721GJ3U
51} 4 52721

lll040
10',3
010 1to

2b6U6060
26432162
23606U60
24606\]60

V
VFIJ
liFO

6Ul

2GSi2525
G260bD6J

01027

E

V

5125b63J.
4231[,343

[J

[HOS1

()

58

1::.P,

.':!J.

I)

o

1 1 DC10

•.#

[jOt'S

01024

PSABLK BIT FOR BLOCKED INPUT OEVI

j:~,

DDr4h p

010(~1

o
o
o

0100(1000
00400DOO

../

0

lllU13
01016

1J400DUJO
0200000IJ

'1

5?"?
S;"7 t11

0777
01002

o

'£

D02UQQOO

lJIJ774

20000000
10000000
I t.OOOOOD

L~

013iJOOOG

U0163
00166
00771

40UOOOOO

()

G
1

:;

1J0737

II U 7.60

1
60000000

1,0 01

,.'

U7'::';2
tJlJ71j5

IJCOFILE+1
2, MESSAGE
A24/IHPURE,A24/IMPURE

568
569

4-

1j

1,SITE
1, !J. ,:;. );.':;.

1,0010

o

()

. Cleo

1,lJONE
3,FILE

:1.,01[10

~

o
o

8CD

1 S'(:) 1
l~PHj~J

81120
HSSIT
ocr
67777771
NBIT21
57777777
NUIT22
OCT
NBIT2322 OCT
1777771'1
I. ,,-,... GET NE 1,
GOIO .SKIP10
[lIT22
l
GENf E
77700UOO
H
U9
o
1, 1000
iJ
UIr

~

()

BCD
BCD
OCD

56
::;,

UUOQuaOQ

U0700

i:ICOSITt:

040QUUOD
U2[J[JUllUU
01000000

1 4 iJ U UiJll~j

OiJ7il

00743

8CUlJOI'iE

BCDFILE

5:51

lJ :)710.

00740

sse 0
BCOPHAC

SY

1000UOUO

ZOOUUGOlJ

QUaOO!)12
OOOU11S!)
00165140

LlIJ712
00713

PHANTOH

11

81T23
BIT22
B1T21

00707

d0706

00747

()

A.

00b'37

UUb/4

I
I

"~)

PAG[
S3d

lit;) 2 I)
626:S
7
LJlo,)(,.J

54SI,S'+5 Lf

I

I

G2?UG2l~

47JU2112
24'tb4525

00656

I

I

Vl.O U'3 I 2(. I 7 1+ 1301

VFO

VFO

bUS

6U7
6UB
6U9

61U
611

612
613
614
615
616

.SKIP20

H48/RElOAD,09/4GO,A1SJRELOAO

H48/REWIND,09/100,A15JREWINOC
H4B/KILL,09/1DO,A15/KIlLG

o

H48/BS,09/00D,A15/BSTAT
H48/00WN,09/100,A15/00WNC
H43JUP,09/100,A15/UPC

o

H4S/BKSP,09/100,AiS/BKSPC
H48/STRT,09/1DO,A15/STRTC

H48/UTAPES,09JI00,A15JUTAPESC
H48/0WNER,09/7DO,A15JOWNER

H4H/FREECHEC,09/S00,A15JFREESTOR

VFD
VFU
H48/QUIET,09/UOO,A15/QUIET
VFU
H4 81 i~ EST ORE, 091 0 0 0 , A15/ REST ORE
VFD
IF GET NE 1, GOTO ~SK1P20
H48JGATHER,09J500,A15JGATHER
VFO
H48/UNGATHER,09/500,A15/UNGATHER
VFO

VFO

H48/F.09/000~A15JFREETERM

VFO

H48/0,09/0,A15/0UHPIT

VF 0
\JED

o

H48/S,09/000,A15/PSALOOK
H48/U,09J200,A15JUSERLIST
H4BIT,09JODO,A15/TRAFFIG

H48/FLASH,09/400,A15/FLASH

H48/C,09JDOO,A15JDEVICE

o
o
o

Q) I

I ASS ;-:: I1£J L E,~ 1 U S,j
,1J:'

\..];:1

VI.U Og/24/74 1901

0105T
01U02

b

utU/D

62;)
6ZI}

o
o
o

t~

12

PHANTot'l
VFr::
VFO

II

621

OlUbS

()

PAGE

62~

U10/3
01076
ill1iJi

625
626

01107

627
628

U11U4

Ou025

Dil1Z
01113

OJDUD;J(]()

01140
01142

5S6270b2

629
630
631
632
bJ3

UudOOU13

63 Lt
635

636

COIHAl3L

VFO
VFLl
VFD
VFD
VFO
VFO
VFO

fGU

PATCHL
EOU
PinCHES OCT
PATGH8UF ass
STATNAMi LIeD
STlHLUN

uEe

H48/MES 09/50U A1SJMESSAGE
H4a/OKE~,09/505,A15/0MESSAGE
H48/MULTI,09;OOO,A15/MULTI
H48/UC,09/000,A15/BC
H4B/8LIST,09/20a,A15/BLIST
H48/BMOVE,09/200,A15/BMOVE
H48/SALL,09JOOO,A15/SALL
H48/L,09/000,AiS/LIST
H48/MOVE,09JO,A15/MOVE
';:'-COMTAB

FREEMAX-FREEMIN+1
U+IMPURE
PATCHL
2,1'SYSTAT
11

NUMBER OF FREE PATCH TERMINALS
NAME OF STATUS DATA FILE

o
o
o

()

o

o

o
o
o

o
o
o

o
o

o

o

()

o
()

o

o
o

o
o

o

o

(J

o

o
o

o
o

o

I

CD
(J)

iASSEilJL[R/OS3vl.U ll:1/24/74 1901

I

I
11'j\.

()

1

I
I

("lI

~

PAGE

!

,

~

(1

1

I
I

Jll1-+3
U1144

U11 !-! 5
1.1 :L I1f 6
J1147

O~lS0

0IlS1
01152
U1103
01154

OLi 5 S

011S6
0 11 5 7
01160

UJOUUO(JO

4/1011~1

II L~ Ll (J
Lf I:' (J

1

13

PH Ai'H 0 r'1

DECi3eO

P

11 5 3 P
U0 0 LJ

S Ii A

ENA
UJP

U10U1151 P

13077747
51000706 P
4S4JOOUU P
lJ4UUUUOO

UJP
Sll
SHAO
OVA

DOOOG U

OCH

OJ001157 P
15 1 7 7n '6
0.260115U P
1 id UU0 0 u
01001143 P

SQCH
1St:
AZJ,EQ
Ii'll

IJBX1SV

IJU

ENI
UJP

Ir~PURE

OBX1SV,Xl
OGH

o

~;"+.2

SAVE Xl UNTIL EXIT
SET LEADING ZERO FLAG
FIX FOR DIVIDE

.,.,. 21+

()

010

OUTBUFF,Xl
HIPURE., 0
OBX1SV

-l,Xl
~t-6

.,X2

IMPURE,X1
DEC BCD

SKIP IF LEADING ZEROS
NUMBER DONE, SPLIT
LOOP TILL ALL DIGITS LISTED
RESTORE Xl
RETURN

()

i
()

I
1

01
1

C)

01161
011S2
Oiled

Ul164
01165
01160
01167

01170

()
()

(] 1171

01172

OL173
0117 it
U1i15
01176
Llill?

01200

o
o
C)

o
()

01201

03001171 P
537UOUOO

654
655

12077755
116UQUT7

bSf'

2(;4UOI+76 P

b50

LOA,!
AZJ,EQ
TAl
LDA,I
SHA
ANA
AQJ,NE

BATCHPSA
R8SlE

GET PSA POINTER
NOT LOGGED IN

?E~ECr,PSA

IJO
RIS
TIA
ENI
ENI
!

X2

GET BATCH QUEUE POINTER
MOVE QUEUE NUMBER 10 LOWER 6 BITS
AND OFF ALL OTHER GARBAGE
THIS QUEUE OIONT SUBMIT THIS JOB
GOUNT JOB FROM THIS QUEUE
LOOK AT NEXT BATCH PSA
COUNT TO A
RESTORE Xi
RESTORE .X3
SAVE Xi
SAVE X3
ZERO COUNTER
COUNT OF BATCH PSAS TO CHECK

D100UllUu

659
bG 0
661
66 (~
663
66 1•
665
666

14ZUUUOO

b Y

S11
STI
ENl

672

UJP

551100[JUU
5j2UUOOU
14100000
1l!-300000

4710 i 1ll! P
473U117'5 P

01c:lJj

54100606 P
554UOQOlJ

012 U't

010011.71 P

RBSLE

RBJCNT

b6?

d

nH

n.
U vi"'

LOI
ROS

6 0
6 1

x:~

a-cit

778

;~8SLE

1,X2
RBSUh X,l
r~PU RE,
H!PIJ!~E,

I

Ii1PURE
>i'-3,Xl

Xi
X3

>:--3,X3
Q,X2

N3ATPSA,Xl

o
o

o

o

R8SLE

o
012J~:;

01l100lJiJU

674

012Ll6

5570000lJ

676
671
678
679

012U7
01210
01211
01212
01213

37000G7? P
1£;·20UIJ05
13lJ7114?
5iOUUlO6 P
434UOOOO P

0121'3

02601211 P

012lL~

15117776

o

o
o
o

01223

14200003
13D77771

01220
01226

15177776
026;]1223 P

01220
01221

01222

01224

01227

01,~JO

012:51
01232
U :L23 3

4:5 i~ 00 0 13 P
0100120'> p

01235

1300U022

J12':)7
oL 2 1.0
012 111
01242

1 Lt2UnOO4

012 itS

012 Lt 4

0

EN

US04

UGDD2 :3

IN

bd2
6tL5
6EP,
685

6(;) U

00D02 :3

6YiJ

699

7 (] U

702
703

70(1

130777 1+7

00002 3

usus

696
6'37

"101

6

'j

SHAQ

-f)

USO?

ENQ

618

EUA
ASG,S
t.NQ
SQOH

GET THE USER CODE
IS IT Nut1ERIC

4 CHARACTERS

OUT8UFF+l1,Xl

-l,Xl

o

o

UJP

PAGKACT

SHAQ

18
1 , ~< 1
5-1 v X2

5 0 I GI T N U11 8 E R

INI
ENI

SHAQ
DVA

70B

IJO

SQCH
Ii'll

o
o

:'<-3 1 X 2

SKIP IF LOGGED IN
MAKE SEPERATOR A OASK If NOT IN
tIt
RETURN

7D5

7Ub
7UI

USC?
'::£ ,X 2

IN!

IJD

PRINT 6

NUM AND VAL CODE

."'GS
IGITS

-1, Xl

S AI1
A G
U P

SQCH

691
692

SAVE JO
REMOVE

o
o

OlD
OUT8UFF,Xl

USOl;,X2

ENI

IN

BIT2322
1, X2.
.- 2.1,

I

E q

638
689

693
6'34
6':3 5

SH Q
1J't,}

sa H

681

6131'

1S1DUU[J.1

51000706 P
43 1fOO013 P
15177776
02601240 P

baD

{~QE

LP

b86

ii+7UOU61

55200000
0540000U
147800 4 iJ

01234
LLLZ3 [)

cauoo

05600011
010012:35 P

1-t0400013 P

IMPUI~
UJP
X3 IS NOT FREE H

675·

55100000
1300000(;;

01217

o

656

03·001171 P
15200001
02501161 P

01202

01216

()

0.53

20 1-t00625 P

o
o

Ht-;t

OUTBUFF+11,Xi

o
o

- Zit

010
OUT8UFF+i1,Xi
-i,Xl
>·<-4·,X2

o
.------,,--~--.---,,-,-,-,--,,--,--.---.-,,-,-.'-,,---,--.---.---.-.-,--.--.---,--,-,-,,-,-.-.-.-~-,,---,--,--,-._---_

o
o
. _--_._--<--_. _. _ _.-._._._---

Q:

I

(J)

OJ

!

. -I
II A'"':" S l:.- i''1 lJ L t.l<
I
I

:J12 11S

0 S-" J

V :1. U·

!]y/241I i t 1':301

UluU1227 P

PAG!:.

PHANTO~1

14

UJP

7J'J

US06
()

1L!llJOU02
2U101255 p
401UOOOlJ P
02S0i21~7 P

711
712
713

012')!.

44[JLl1634 P
010U1271 P

71l

ll125S

3145 Lt76 l 1

()1246

o
()

012:t'1
012'.5 Q

Ll1201
01252

D12':.i3

o
o
0'

Oi2bO
U1261
U1262
U1263

l LH':'U 216 1, I-'

DOUD3

fi8
7ig

E~r'1ES

72iJ

142UU!174
00104U26 P
U100127'1 P

'l2lJ+l104

ERl'1ES L

ILL fERi4

720+003

72U+U05
720+006

ERHESL-l,Xl
OUTEUFF,Xl

LOA

E:HIES,Xl

IJO

.... -2,Xl

ENA
S~J,i\
UJP

715
716

72Ll+OO2

EN!
STI-\

7iLt

U126(J P

Ut1U[lO{~O

Ij~Er~ROI<

Fl~EtH::.f{H

NEXT
TEOUT

~~Rl

BCD
EQU

3,INPlJT ERROR

EQU
ENI

MJ,Xl

';'-ERt1ES

T

C":NI
i;.

..

~

fLASH

!;'

E=Ll4SHFLG,O

NEXT

TO REPEAT THE DISPLAY AS FAST AS

o
o
o
o
o
o
o
o
o
o

()
()

o

o
o
o
o
o
o

o
o
o

o
o
o
o

fi.'.'"
\..Jiy!

(1'
."
~!

j\SSEHJlErUUS3

Vl.U

03/24/7L} 1901

Pi\GE

1S
Fr~tE

812Gb

rs

~~ A I
v
?130~:14

01305
01356
01357

IN 0
LE

JUMP IF T

Qj6U1.J23 P

:53r3 GSU
i.j:i.l!7·?4

Ui332

01.::554

A LARGE

GET SIZ.E

GEl A TIM
JUMP IF I
JUMP IF N

O..LHli353 !:l
iLHJll1323 r1

Ot!!31

01.153

GET STATUS OF LUN 100

SKIP NOTHING WANTED ON TV

,S

n:

SKIP IF FLASH MODE
KEEP GOING IF CNT IS NEG AND SJl
SAY NO LONGER FLASHING

o
o
o

ASH EGU

L:UIGSTt\f

21000QUIJ
S5LlODliuU

J.L.3llUiJl1
D1.315

+1,0

u- !1;:!

()
B

OUT8UFF,Xi

STU

If4011L300 P
Cli30S; P
013(')'5 P

.j132 l t

o
o
o
o
o
o

LJU

.... -1,)(1

01217

J1Jil

o

SCREENL+INBUFFL-l,X1
BLANKS

P
1+110UOOO P

01315

C)

ENI
LOO

U1215
01276

01301
01302
U1303

100

'tjAITLOOP £G.U

210UUb~J:5

WRITE OUT THE CONTENTS OF
ouraUfF

SCREENL

ENQ

WiU f£

fJ1274 P

o

OUT8UFF

IJRITEGUT ENA

tJ1353 P
1'160000U
4U30164\,) P

ENA

STA
L 0/\
UJQ
UJP, I

2uJOlb72 P
2130170 l t

P

OL~6J]

P

017U16G:J P

11~6

0 0 U 7!t

PROC60

EQU
ENA

TH:LOOP5, X3

CALLBAO,X3

GET THE RETURN ED VALUE
IF WHOLE WAIT GO PROCESS
IF CPERATOR 00 HIS THING FIRST
GO PROCESS ROUTINE
TURN OFF THIS RETURN
RESTORE A REG
RESTORE Q REG
Goro ROUTINE

0.0

SET UP FOR

HAITSV
TIMLOOP
REAGIN

o

CALL3n·1,X3
c t\ L L 8 AS V , X3

CALU.lQSV,X3

ANOTHER4.~

o
o
o
o
o
o
o
o

Qj
(1,
J'

()

I
I A S ::'.:
~ r I'1"(' >~ J
I'
::3 L L i<-I u::,

()

4iJ301b i +b

I

01.:)02
U Lh:J3

010015;:0 p
5:>1300b2

I

o13() 4

01:::5\)5

ll1370
UL571
U1372
01373
ll1.374
01375
llL.i76

0

0
0
(~)

0

0
0

83l

b.H1
t.iJY

(5 II IJ

STATGET

l)l.t1

54 Lf

~~A GET NEct~L8l~f~3.SKIP30

LOA ,I

NSTA TGET+Ir·IPUI"IL03

9IJI

gUS
90l)
910
911
912

913
914
9t5

[QU
ROS

L 0.1\
AQJ,

u

8

9 u,~
9 o~)
9 01+
90 £3
gOo

o
SAVE NUMBER OF USERS
GET TERMINAL NUMBER
GET I080UND WOI;:O
MASK OUT TERMINAL NUMBER

o

o
o
o

A

(j

GET WHETHER IN CONTROL MODE
IN

CI'IODE

SIO
IN HU
GET PSA POI
CALCULATE·E

o

BIT

o
o
o
o

TABLE

ZERO COUNTER TEMP
GET ENTRY FOR ZEROPAGE

~Q-f
U.",J..

~19

C)

SKIP IF THERE WAS NO OTHER Bll
PUT TWO BITS TOGETHER

89L1

89

e

22

BEF~

03201453 P
53600000

5.3

"'"+1,

S
I

8]3

B

Lf

2

•

.-'~;

o

JUMP IF RUNNING USER
MOVE BIT INTO GRASP
SAVE LOCATION OF TOP BIT
REMOVE BIT HE KNOW ABOUT
SAVE NEI-I INDEX
FIND NEXT BIT

Q

S

H 1

S54UUOOu
Z(J4UU44b P

fi3 i ,OlLI 6? P

STORE NUMBER OF USERS
MO~E TO VARIQBlE AREA

1<09

Baa

01441 p

FIXSIZ-l.,Xl
FIXSIl,Xl

,in

3 1+
885
8ti6
a5'7

4· l d) (j V"' 6 7 P
53430:160
21lH] U666 ?

U1

01453
01 Lt:.i it

P'

05::;;OUUOO
1561UllOd
4 if 1 iJ 0 nO;)

20ZQUllOU
17 1t7000U
fjS1UiLt67
11+ 2 0 0 II 0 I,

A

81Y

01426 P
55 If UU[J 0 0
5500DOOO

STA
E A~

(

532!~OOOO

01,'.30
ol1d1
014-S2

LuA,r

U)Q , I

3

53630U6iJ

47201421 P

o

3,Xl

GET IDLE RUN TIME
GET READ WRITE COUNT
STORE IN BUFFER

LPt\

03401426 P

011+20

o

RF51,X2
TERIIINAL.,PSA
IOBOUND,PSA

TIN

ROS

GET POINTER INTO BUFFER
FIRST ENTRY IS SIZE OF FIX AREA
GET BUFFER PAGE IN CORE

IOlEtS PSA POINTER STILL IN X3
VML20
LOOK THROUGH THE PSAS

UJP

664
865

20 1-+00 11.43 P
2.14U0457 P

0;

SECOND WAIT

X2

RE1'1

iJMLOO

.~460

PLACE DATE AND TIME

6
NU

T N~\

STA
INl
TAl

859

BbO
861

EQU

55 l tIJOUOO

[] 1",51

0

PHANT Ori

fUS

014U4 P

01445

0

16

840
849

5366,lJ61

U l i t l .1

0

PAGE

2u40US12 P

55000000
03010020

014U l t

o1 i d3

C)

5S 1fiJUUO(J

01001506 P

U1 1t2 7

',-

45100UUl
5 L130060U lj

D1'+03

0140:'>
014-06

1901

8 it 2
dLtS

5::' 0 2 0 0 :)7
5,jOl0fJ22

536UOOn[J

o ll~14

(J

iJ tJ tJ [] 6
ldi lOU iJ (J iJ
Lp)

UiLt 0 2

0
()

i

P

iJOiJU6

01377
Ul l tJfJ

01 it d 1

0

Q'J/2 1j./7 Lt

01":>61

[] LS67

G

jJ

I

OtJfj6

0

Ii L

VMLU6

v

,PSA

Vt'l 10

Vl1 OJ

X2

O,X2
700008

VHL1G

It, X 2
Vi'1L06

ENTRY
IF ZERP AGE IGNORE
JUMP IF NOT LIBRARY PAGE
GET LIB ENTRY
JUt'tP IF ON I'1S
IN CORE - COUNT IT

GE T Vrn'!

o

EQU

SHA
TAL
ANI
1St:
UJP
SHA
.ALJ,lT
ENI
EUU

3

X2
7,X2

O,X2

RETRIEVE PAGE STATUS
SKIP IF PAGE IN CORE

o

TYPE ONE OF ALTERED PAGE

o

Vi1L06

11

~+2

l,X2

o

0
--

.. -

-_._-_._. __ ._. __."----_ __ __._--_ ..
.

.

,

Hiifli'iiMil''.·';"<'''''''~"P''H9''W'~"''f''''''''''''~IWC''''''!?<.'!'7"''''·~''''tr""";_'_'",wwp>r'''''''''m'''·''·.''''''''''~'''''-''"'_''''''_'''''''''''"'''''''''''''''''''.=Y~'·'' = ,,,,",.,,,",",,,,,<=.-=~~_,,,,,,,,,,~,_,w·,,,.,,.~~

C])

C])i
I

()I

01403
014b4
ulJf-()S

o li .. bG

Uiltb 7

01470

Vi,. U U9/24/14 19lJl

S342UuGU
Ll1 Lfbl

5,S02U06U
1+01000U1

U1477

21400512 P

U11+73

o
o
o
o
o
o
o
o
o
o
o

_ ... __

'"_~.,_ ..... _

,.,_."","._

ll1tl-/o

1115 iJ 0
i.J 15!Jl
0.1.502
ll1503

01504
01SD5

STU

53700UOO
53230061

01:>:30

Ll1532
01533
01534
01535
U1536
Ui5~17

U15 L~ 2
(j 15 1+3

01544

015L~5

015 ItO
01 S it 7
1J1S50
il15S1

lJ1SS2

1,X1

TOTALTHI,PSA

0,1<3

fA I
Hil

2,Xl

HH

p

tlML2G

3 Xl

61, X2

EQU
IJIJ

OS110454 P

E

lSG

UJP
TIA
HH\j$
SHAC

P

SJ1uOclUJ
154b7777 p
.13077?Ljl

14610000 P
7o~t(Jl1Lf2 P
141100UU ,0
015t7 P

Ii

£1\11

ECW
THi

5353U062

CHE

;~040U63b

55000000
04600000
010D15S6 ~)
20301062 P
0560U001

lS100QIJ:L

03201";60 fJ

01553
U1554
iJ1555

14500UlJl

J1556
01557

l c,L.rT777
4fJ.3U1J62 P

P
01Ll01560 P

1t1~;OHlb2

01556 P

01560 P

'l,nlIF V~
';;J.D'"
,A.l.
RF62,Xl

SAVE

BUFFER POSITION

GET NUMBER OF FREE TERMINALS
SKIP IF ENOUGH TERMINALS AROUND
TRY TO FIND SOME
ENOUGH AROUND BUT SKIP IF TIME

PATCHES

,X1

,Xi.

~L!H
~l..

T SV

'PLOCI<20 ,X2

4 MIN
IF FIRST TIME FREE TERMINAL
ENTER RETURN AD
SS

0,;(1
FREEtHN, X3

MIN FREE TERM TO X3

o
o

PlOlJt<07
EClU

ENI
ENI
EQU

>;-

LO;;,I
RIS
AS£::

PSA13LK

RGS

979
98 iJ

981
982

UJ?

983

984

LOA
IN1
AZJ,GE
ENQ,S
STO
UJP
EQU
ENA,S
5T ,L\
EQU
J.\SG

9iEi
9Bb

PL 001< 07

981

9aU

989
990

PLOOI< 1 0

991
9~2

99:3

PlOOl<15

994

o
- --

()

>J..

5

Fl12

17

iUS
T HJ~
ADA

P

o
o

01472

P4GC

ltL;UUIJOO
o1 0 0 l l t i .. 1 P

viltl4
01'+75

o

~_.,

JU'::OOlUl P

814/1

()

''''.""". ", __ ,"~,

SSOiJUUOiJ
53!l20UGlJ

()

o

'''_.~.~~,'~, .~_

I

I ASS[!'1ULi..::UOSJ

C")

.•~~',,,,,"m.''''> ,,_~'"""., ..

jJ

PLOOK10

PATCHBUF-FREEMIN,X3
1

1,X1

PLCOK15

l+IMPURE
PATCHBUF-FREEMIN,X3
PLOOK1?
777778

PATCHBUF-FREEMIN,X3

::;.

LET TERM AGE

GET TERMINAL STATUS
SKIP IF NOT LOGGED IN
SKIP IF TERMINAL NOT FREE
COUNT FREE TERMINAL
JUMP IF WE KNOW THAT ALREADY
WAIT 4 MIN dEFORE GIVING UP TERM

REMEMBER HEtS LOGGED IN

C)

o
o
o
o
o
o
o
o
o

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

G'..'
()

()

C>
()

0
0
{~,

'J

:

I
I AC.:>:Jt.;.
,~- 1LLt.;
l - U '.:.,J
0 ,~ .

0
0
0

()
l')

0
0

e

99£}
9'3ti

O:l5S2

1.+71U1112 P

01S63

tJ1LJU15 112

i.Jl20UUOO

01561t

[) 156 1t

LllSo5
01566
1]1567
G1S70
lJ1511
01572

[JiS?3
Ll15/!+
U1S/S

Oi5b LI F'

[JidJOOU01

010013Ui;) P
lldOO171
5~4UOIJUU

01576

473U1564 P

Uiflll1271 ?

146UU372 P
III 1 UUu (J U

J16iJ3

U16U6
OloU7

J1610
01611

tl1612
J 10 13

01614
U1615
a1616
01617
Q1620

J.LO~3

01624
01625

d16Z6

10U1
1002
1003
100it

100S
1006

:UHl!

U1601

O16J4
Ll15U5

lUOD

Lll0U130S P

OL,SOODU[J

01600

OU7U2USl ,p
D10iJ1634 P

011301634 P
i,71i)U41G P
l i dU 011+0
14577771

U6300752 P
01001634 P
2U[i021 LfS ?
jil0Ll153 P
03001617 P
20002144 P
U1UIH61U p
2010U75 i.j. P
U;:) 3 U1. 6 i4- iJ P

01b21 P
P
P

OLtbG1264
ClIOU162 1f

0:1.00126'-, P
11:40 Q 16.3 t., P

47ilOHd5 ,D
44001561.! ,LJ

101J.*

1015
LOlu
1017

Ulb~5

i~E

ADI N

Q,X2

STORE NUMBER OF FREE TERMINALS
RETURN

l+IMPURE,O

SKIP IF SCREEN NOT ALREADY BLANK

11121

1U28
:UJ J

Nt: X1'lH

Hl4t
1 D1I·2
:L 0 ii· ~'l
1 04i~
1 D ~1 :i

00101621 P
0 D 1 6 ::)If p

o16 i l2 P
541016;:)4 P
1460216L1 P
4400163£, P
JIIJ0163S P

10

lQ5lJ

20

iU5g
105':3

1060
1001

~+3

ITEH

COMMEQ

COi'lTIH3+2,X1

SJ1CK

-'1c-

CHECK THE LAST 4 CHARACTERS
JUMP IT OK
LOAD THE JUMP ADDRESS
JUMP IF SJl REQUIRED
00 NOT CHANGE FOR FLASH
FLASH IS VER Y SPECIAL
SAY OONtT BLANK

ETERrH H~PURE, Xl
Uf KPURE,O
tiL KONCE,O

CHANGE MIN AND BLANK
00 THIS ONLY ONCE
GET ~H E WEtRE GOING
SKIP I NOT TO BLANK SCREEN
SAY IT S ON THE SCREEN

NExrOl
NEXT10

ALLOW IF SJl ON
IF NO SJl FAKE ILLEGAL COMMAND

NEXT2G

1 a[I' f
i 01j· 8

1054
1055
HiS6
1U57

LOOK FOR THE COMMAND

o
o
o
o
o
o
o
o
o

1

.1
ONL'fONGE
;;;.

O,Xl

1051~~

I) 1

ITEM+1
GOMTiU3tl,X1

FLASH
t\{EXT
NEXT20,O
3tNKONCE

1 (J1+ll

START AT THE BEGINNING OF THE LIN

COtHAB,3

Flp.SH
-""+2

Ul38
inJ']

1051.
1052

117778

NE>: L10

,IT

1(1.50

Xl

NEXT10
SAVEX1,Xl
GOMTABL,X1

UJP

10.53

t

NEXT.1G

ENQ.,S
1']EQ

:J.Q3l,i

lQ36
1037

IJ

AZJ,EQ
LOA

.tOJ:!.

GET STATUS OF TERMINALS ALIAS
SKIP IF NO ONE LOGGED IN
REMEMBER ITtS BEEN BLANKED

ioa

FETCHIHl

SOA

l.U")£~

PSABLK

IN8UFF
INBiJFFL

LOp,

t]

x'3

ENA

U"JP

lU2':;l

,(\ L I J.\ S T ;'HI ,

PAUSE
8Lt\KONGE,X3
HRIlfOUT

ENI
RTJ
UJP
UJP
STI
EN!

COi'1I"IEQ

PAUSE

UJP
STI
UJP
EQU
ENG
REAO

t02,:,

4100156'+ P

016 112
016 113
01641.t

P 1\ T CHc S 1 X 1

o

ASE

1U;;:0

Jl635
OHd6

iJ1100001j

RIS

1022

1049

04000UOO

t::QU

102:;;
ill 2£,

II :Lb3 Lt

U3301542 P

lOOI,X2
ENI
,X3
ENI
UJP
CALLBACK
THE AQREGISTER IS RETURNED AND XJ POINTS TO THE CALLBACK TABLES FOR •
•
THIS ENTRY. IF THE ROUTINE WISHES TO 8E CALLED AGAIN SET
CALL8TM,X3 TO ZERO. IF ONE WISHES TO 8E CALLED AGAIN, SET THE
•
NUMBER OF SECONOS INTO CALL8TM,X3.
IN EITHR CASE, AFTER PROCESSING·
JUMP TO tPAUSEt~
•

y

1067
10613
1069
1070
1071
1072
1073
1 (J 7.:..
107S

1

01

PHANTOi1

0
0

0
C)

o

X2

CALl8Hl,X1

TEMP
CAl.LEASV,X1
CALUlQSV,Xl

PAUSE

0

FINe AN EMPTY ENTRY
STORE RETURN ADDRESS
STORE CALL BACK TIME
SAVE A REG
SAVEQ
PROCESS OTHER TIMES

0
('"'
......,1

01

0

1

01

0

I

-_~

()

1

0

1

(I
'--'

0

o

C)

o

C)

o
o
o

0

___ .,_L.._._. _ _ _.____ .___._._,_, _____ ._._,_,, ____,_,_,_. ___._,'_.__ .__ -... ____

0
0
~,

__.___ _._ ____ ._ _ '_____,_. ___,___ ., _ _ _._. _____ , _ _ _ _ _,____,____ '_ _._ _ _ _ _ _ _ _ _ _ _ _ _ ,_.__

~

___

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

-- -

---- -

- - - - - --- - - - -

Qj
ASSE,18l.L::R/OSJ
U17.34
U17jlj
U1(30
017)7
Ui.lcfU
(UTi.i

()

01
1

U 17'03

01
o

01/5 i+

01705
01756
017':57

U17(IO

01761

01762

01763
017G4
Ll1765

1
()

1

01766

O:L707

0177D
01711
01772

illS
111L)
1117
I11d

112U
1121
1122
1123
1124
1125
1126

ll631U7b5 P
01001734 P

20UG21 L,5

D3101146 ~
2U110767 P

112d
1.129

02150 :3

LSllUOU(2;~

iL,lQQiHi

l13U

1131
1132
1133

06102U;53 P
OJ.IHI17~)4
201U;::'Li~n
4 LfIJU1756

P
p

UJP

l:::NA

SHA

ENA

EXPNxr

EXPCNHIU

SH\

HTJ
UJP
UJP
LOl
ENG,S
LOA

1'1 £(J

UJP

LOA
S8A

AZJ,NE
LO{I

1121

iio77l??
Ul0iJUOUO

22Ul0643 P

EXPEVAL

111':;

2 U 0 0 211~ Lf P

147 {j [J tJ 7'1

20

111::;
111 Lf

DO?02U51 P
01002U22 P
01001/56 P

01752

1

I

It Lt iJ U 1 1 :::; b P
1 1tOOUOU8
if lJ lJ U 0 ! it ;~ P

P
31110766 P

PAGE
1111
1112

Ul0tJOOUO

14b01(74 P

S4L10i'b4 P
1 1.577777

01
.1

u{:;l/24/74 .lYOl

Ul7L.2
0174:5
U174 Lt
017 J·t 5
01? it6

01147
0171:50
U1701

\~

\/1.0

ANA

EXPOPJI'1P UJP

i'lEXTOP
LACH
NEXfOPOl ENQ
SHAQ
ENI
1'1EQ
UJP
L [J f~
S v~A
SHA

P

12000010
03301l5b P

Ii1PURE

t:.XP /-\ OU
EXFCPJi'IP
o
EXP
FE"fCHI fl'l
EXPPTCK
E;{POPJt1P
SYMlENTH,Xl
77777B
ITEM
SYMTAB,ENTRYL
EXPEVAL
IT£M+1
SYMTAB+l,Xl
£XPCNTNQ

iJiOIJ1741 P

EXP

EXP

()

S Ytn B t V AL UE , X 1
7777 13
HIP
E

T
7

MCHR

18

lBL,X1
TAI]'l
AL

E

E··
·0

E

E

TAE3,Xl
.Ji'IP

1

()

()

I

U177~)

Ib47(,777

:

01"114
U1775

34000742 P

01776
01717

37tHIU742 P

02U(}0

UIO[Jll5l P

02001

35000742 P

EX OF<

U2003

SUUU07 2 P

EXPt'1 LT

o
o

U2UJ /t

()

U20U5

02002

02006
U2007

o
o
o
o
o
o
o

DiDU1??? P
UiOLli?

l

UZOllf:i P

54tUU41.b P

02017

t ~i 9:)1

400U06b1 r;
!'U[JJU1~·2 p
1::;Q7741'

02U12
U2013

OZ015
02iH6

EXPAND

::::XPSTEXT

P

51UOU661 P

.;

GHlDl17l P

22401?:)1] P
lS1UOOUl
41'10Ctifl6 P
(]1UUi76U

U G3i~' 2

0

1460U001

02021

3 i .·OOi73 t t P
01fJD173 Lf P

02022
U2U23

2201UG i d

P

02150 3

02025

22·4lJ175U P

00372 0
U2150 .3

1173
1174
1175
1176
11?1
1178
1179

02030

4;':010643 P
15100U01
it71UOLj15 P

Ll2USl
U2ll32

01001756 P

1183

0203 j P
20001774

1186

02026

U20Z7

02033

tl2034

020J5

112036

200UUlLt( P

4U001773
/70D1nG

G10lJ2005

XF'

1)

UJP

NEX10

U

UJ

GET NEXT OPERATOR

EXPSTEXT

EQU
S Tt\
L 0 i\
SH /\

EXPSP;"CE LLI

L f;\CH

o
P

STEXT
SAVE:H,Xl

N8UFF,X1.
V,J.
.1.
VEX ,Xi
XT Gl

INI

UJP

tXPTEfH1
EXPPTGK

EXPiJPTAB

1

EXPEVAL
EXPEVAl
LACH
ASE
UJP
LACH
SACH
INI
srI
LDA
UJ;:J
i.QIJ

VFD

VfO

VFJ
"FO

GET

NEXT

CHARACTER

J"

srI

I1B1

1189

EX

S T fl,

,JP

111.)2

I1B7
118d

LPA

DVA

11311

li8!..
lId'.)

XTOP

EXPSTEXT

t·.

if;; ~
1 i 6!~
116:3
:l16ll
l1b::::
11.66
i.to?

1168
:1169
lile
1171
11.7 2

P

LlLy 6LlOU;)3
IJ i UDi 73 1t P

;r

... C)

02020

02lL24

o

4JiJOlJ?!j·2

777778
P

E Pf\lJQ

D100175l P

02010
02Q11

02U1 t+

EXPSUdr

I~

\.,jl

o
o
o
o
o
o
o
o

AZJ,LT
LOI
UJP

341UOltib P

START WITH AN AOD
ZERO EXPRESSION RETURN ORIGIONAll
GO GET NUMBER OR SYMBOL
CHECK FOR POINT tot
NUMBER RETURNED, OPERATE UPON IT
GET SYMBOL TABLE LENGTH
MASK FOR MEQ
GET 4 CHARS OF SYMBOL
LOOK FOR SYt-IBOL
SYMBOL NOT FOUND, ERROR RETURN
GET LAST 4 CHARACTERS
NOT COMPLETE MATCH, LOOK SOME MOR
GET THE VALUE OF SYMBOL
VALUE ONLY - HIT NON-SUBPROGRAM B
PERFORM OPERATION
GET TERMINATING CHARACTER
SHIFT MASK AND CHARACTER TO HIGH
LENGTH OF OPERATOR TABLE
LOOK FOR OPERATOR
CANT FINO OPERATOR, ERROR RETURN
GET OPERATION JUMP ADDRESS
SAVE IN JUMP INSTRUCTION
DO WHAT NEEDS BE DONE
GET INPUT BUFFER POINTER
GO GET OPERAND

fER t'lCHR

PERIOD
EXPEVtlL
INBUFF,Xl
TERMCHR
1,Xl
SAVExl;X1
EXPPOINT
EXPOPJ!'1P

LOCK FOR AN OPERATOR

FIX RETURN ADDRESS
EXIT P+2
GET TERMINATING CHARACTER
SKIP IF A POINT t.t
JUNK IN STRING, ERROR
GET THE NEXT CHARACTER
LOOK AT NEXT CHARACTER
SAVE NEW LINE POINTER
GET THE VALUE OF POINT
GO OPERATE ON IT

OS/20,03/D,A15/EXPAOD

Ob/40,03/0,A15JEXPSUBT

OS/77,03/0,A15/EXPANO

06/61,03/0,A1S/EXPDIV

o
o
o
o
o
o
o

CD
I ASS E : I J L t

(}

o
()

o
()

o
o
o

:~ / 0 :) ;5

\J .1. II

U'J I 24 I (Lt 1 '3 U1

P AGE

IL~

U 37
il2fJ40

5 LtuD2UfJ3
5;':O[j~~lJUi

1190

tJ 20 it 1

\.)0102012
7..51U2017
371U2ul1
OOiJ11

11Y2

O~U42

tJ2U4;.5

11')1

11'13

11 YIt
1195

21

?HAi'ffOH

VFU
VFO

06/54,03/0 A15/EXPMULT

VFO
\JFO
EXeJPrBL EQU

06/37,03/1,A15/EXPTERM

\l f' tJ

06/52,03/0:A15/EXPOR
06/60,03/1,A15/tXPSPACE
06/73,0~/i,A15/EXPTERM

-',<-EXPOPTAB

C~

()

o
o
o
o
o
o
()

I:)

o

()

()

o

o
f)
',-,

()

o

o

()

o

()

o
o
o
o

o
o
o
--.-.-.----.-----------.---- - ---.-.----.-.- - _.-.-.-.-.-_.--_._----_._._--'---,,-------

I ASS E:'18LER/O S2l
I
I

()

I
I

C)

I
I

o
o

I
!

U20 l ,!±
0204':J

if 7

1J(~Ol+G

JltiJO(~IJSl
25LlU21 1+4
471lJU Lt16

020 it 7
02USO
1J2051

02052
020'33
D20S4
02055
02056

o
()

o

051U0121
01IJU2llS;~

1I2U75
02016

1S1lJOiJOi

02077

,.I 21 tl 0
021i.ll
[J,!lU2

021U3
02104
02105
(j ;~1

iJ6

U2107
02110
02111
02112

1]2113

U2114

22L~Lllr:)iJ

?

PHANTOt1
UONLc:rx

OONt::LET

1205
1207
1205
120 ':3
1210
1211
1212

Ou~~12

0

fER~WRO,X3

fU\O

FETCHITt'j

FEcxr
STI
FETCHIH1 UJP
FETO.1
LAGH
IIH
t\ Sf:

I SG

UJP
UJP

S ):\CH

FNNtlLK

fAl

ASG

UJP
liJAQ
SHA,Q

1218

AZJ,GE

1211'

srI

121 ~j
1228
i 2~: 1
1222
122;)

ENI
LOf4Q
<::"T
...,.

ITEM

SAIJEX1,X1

IHPUI~E

INBUFF,Xl

1,X1

GOB

UJP

1216

122.11·

USGOOUIZ

STI
ENA
LUAQ

121Si

0,:)202050 P
142UUQUiJ

U1002105 P

12U4

i21·~
t 21 t t

13300000
47302150 ;:1

2500U653 j:'
ItSU0214'.. P

:J 2 tJ lLt

02150 3

05600fH2
01002115 P
25002151 P

02073

1.1;J8
11Y9
120Q
1201
120c:
12U3

22

12!JS

131002062 P

S37GOiJOU

iJ2iJ72

00572 0

fj l t60LlO6iJ

02062

02i)l1

o
o
o

tJi U tl D lJiJ J

02060
02U61

U2070

.1 Fll

P
P
P

22401750 P
15100U01

PAGE

1901

J U 21 S lJ P

P
42010643 P
01l10205ll P

02003
U20b4
02065
020b6

Zlt / 7.11

lLf60UU02

02G57

;J2i.l6.7

o

VLu II <3 I

FNNBLK
4':'~3

fJSS

;)

BSS
EQU,C

1
T E R I" ~I R0 + ;)

A24/IMPU{~E

17740177,6U077700

SK

EXIT

o
o
o
o
o
o
()

o
o
o

INtcJuT ,tiLL lCOKC::O tH

RETURN
+2
GET NUl'l
R g,\

FETNL.

OCT

TC
,L, !

FETCHITt1

AEU
UJP

VFO

c'. ,

EXIT
IP IF DELH1ETER FOUND
SAVE TERMINATION CHARACTER

i

4

SK

A RAGI
T
?R ER RA IX

1
f
T

F

U2126
02127

o
o

SKIP IF NON-NUMERIC
NUMBERS ARE OK IN SYMBOLS

ETNUI'1

02124

o

SAVE TERMINATING CHARACTER
FIX RETURN ADDRESS
ITEM RETURNED IN AQ
SAVE Xi
GET A CHARACTER
SKIP IF A BLANK
FOUND ANON-BLANK CHARACTER
SKIP IF BUFFER CHECKED
CONTINUE CHECKING
SET TERMINATING CHARACTER
RETURN P+l
SAVE CHARACTER IN INDEX
SKIP IF NON-NUMfRIC
NUHEER FOUND, CONVERT IT
GET CLASIFICATIGN WORD
SHIFT TO APPROPRIATE BIT
SAVE IN CASE HE EXIT
BAD CHARACTER, TO START WITH

o
o
o
o
o
o
o
o

rT)

'.1"

i

(1

i

I ASSE,·jULlR/0SJ

(fbI
I

Cli

I
()

I

I

°1

() I

o~: 1':;i 1+

02150

021':)7

lJ21bO
02151
U2162
02163
02104

02165
02166
O;~1:')7

lJZ 1/0

U21/1

C)

02172
O:?113

()

.1278

L~ 4

U 0 1 6 ;) if P

12tH

U21b4 P
ZUUU1250 P
40000013 P

1283

02/U225U P
14b021S3 P

1279
12(\0
12H2

12d4
12d5
1285

i421J21lG P
010Ll154U P
14100137
1'+3U002 LI

1289

1290
12;.
PATCH8UF,X3

o

NEXT

GET RETURN ADDRESS
CHECK ON FREE TERMINALS
START IN COLUMN 42

Fr~EECHj(

t,tl

1334

;]22'-t7

FREHH106

INA
RTJ
INI
ISG
IJO
LOA

10,Xi

US01XX

.1.

1.331
L332
13J3

0221.3
02244
022 1t5

UJP
-rIA

LOAD THE HIGH fERMINAL NUMBER

j,

02233
022J4

022 Lf2

F RET R I'i 02

UJP
.ENI
ENI
EQ U
LDA
ASE

53100[100

lliOfJ22i3

lJ 221. t 0

Ull

o

~;

.1(J,X.l
USERMAX,X3

S500UQ[lU

U22.,)2

02241

FREErt:RI'l EQU
liM
STA

2

13
13111
t Zl,t ~3't
13

55l/-00000
ObH1UOOU
010U2233 ?

o ~2:) 0

022J7

S~IA

161U
:i
1

20000b?1 F
2100iJbl't P
15777177
5313U061

OU/0223'1' P
1510U05?

022::;1

US01XX

ENI
ENI
RIS
IJD
ENA

13·iJ5
13L16

53S3UU6U

.53130060

USDa
USiJl

L30j
13J4

45iJUOOUD P

'»)·)·'
0 t:..1._'- 0

U2225

12'39

1300
1301
13U2

2500223':5 P

53530061

UJP

12Cj7

2000163£, P
046U2164 P
010U12l1 P

EQU.

ENI

LOI

1"~9u

151uOOS7

02220
02221
02222
02223
02224

USERLIST

1292

OLt600000

022u1
022G2

iJ220iJ

PH ANT Dr'J

123/
123<3

1293
12 (3 I •
12']5

02251

(J

55JUUOllU

Q1002202 P
5330000U
1560UO;)1
oU1 UZZ::J7 P

02227

o
o
o
o
o
o
o

i410[JU12
1430000U

02175
02176
02177

0217L~

o
o
o
o
o
o

1271
1272
12/:1
1274
1215
121G
127!

021'33

D21Si6

23

Vi.U 09/24/74 1901

i-lRITEUUT

()

FORM FREE TERMINAL NUMBER
PRINT TERM NUMBER
POINT TO THE NEXT lINE
IS THE SCREEN FULL

o

SKIP IF REALLY A FREETERM

o

STORE *fREE HSt ON SCREEN
BEGIN IN COLUMN 3
SET MAX H S TERri
SAVE WHERE ON THE SCREEN WE ARE

o
C)

GET HHERER WE WERE LAST
LOOK FOR NEXT NON-LOGGED IN HS
NONE fOUND
REMEMBER WHERE WE ARE
H ARE ON THE SCREEN
GET \~H
T
H N!J['1
PlUNT
X nJ LINE
MOVE r
RE ROOM
SKIP I

WRITE OUT THE SCREEN

2, FREE HS

TE

o
o
()

o
o

ROUTINE TO OUTPUT THREE CHAR TERHINALNUMBER IN A ONTO
•
SCREEN BEGINNING AT CHAR POSITICN IN Xl. USES AQ,X1,X2.
4
WHEN DONE Xl POINTS TO CHAR AFTER TERM NUMBER.
OUTTNUM UJP
IMPURE
ENI
2,X2
OUT THREE CHARS
SHA
15
ENQ
0
SHAQ
3
SQCH
OUTBUFF,X1
TERM NUN IN OCTAL
INI
1"Xl
IJU
'·<-4,X2
UJP
OUTTNUM
>;.

US02

EQ·U
STr
ROS

US01,X5

SAVE THE TERMINAL NUMBER

o
o
o
o

I ASS Et,! 8 L..cRI O:.J.j

al
()

I

I

a

l
I
I

O!

o
o

U22S2
O~21.J;)

02254
02255
02256
02257
02260
02261
fJ2262

02203
IJ 22rJ4
U~265

()

o
o
o
o
o

o
o
(")

o
o
o

20 LtOU630

U560UlJU1

01002157 P

120UU001
033U2151 P

2 S 4 U[j Ll 3 Si
5S0UUOUU

00701205 i'

20002157 P

Ld4UUUOl

Ll227L~

02215

02276

120U0017
l,sOUOO[J;)

P

blGUUUl
026U2271 P

!J22l7

5SL,OOOGO
2U LtOLi523 P

OZJiJ2

u54ClUlJOu

lJ23U3
02304
02305

24

PHANTOI'I

iUS

2GOUUohS P

Ll2:213

d2272

P

U.52U225'3 P
0;)1U2265 P

lit20LJ002
147iJUlIGO

PAGE

hE~,r
UJP
TAl
SHi\
AZJ,LT
LD,C\Q,I

P

537lJlJUUO

022b6
02267
U2210
02271

02300
02301

o
o

Vl.U U9/24/74 1901

Dooon 1

i47QOu50
12000011

AZJ,GE
AZJ,NE
LUA
RTJ
LOA
SI-iA
ENl
ENl~
SHAQ
SQCH

INI
IJO
i~OS
LOA,I
ENQ
.. " t
~ (1 ~~
ASG,S
1

I~

D/1,tI
Hj~

02307
Ll23tU
U2311

12J17771
.17600071
lJ4·bO(JOCO
14700 Q5 Li
05lHJO(JOO

l]~31lt

iSlOOO
OSiiiJ17

IJ2312
U2313

U 2315

0231fJ

U2317
02320

02:521
023.22

02323
02324

·:t3 i tLlOlJ01

""+3
';'+2

8IT2.3
PACI,
THIS MARVEL WILLBACKSPAGE ANY OUTPUT OEVICE~ THE DEVICE
SPECIFIED WILL BE BACKSPACES THE SPECIFIED NUMBER OF RECORDS
AND WILL START THE DE~ICE OUT OF ASSORTED FORMS WAITS ••

~;.

1:598
13'3<3

()

02325
i.l2326
Ll2327
023:10

023:51

02332

02;;33
U2~)31+

o

02335
02336
02337
02340
U2341
U:2 3lf 2

0231..3

()

02344
02345
02346
U23'+7

J2350

0232'5

:.i4ilJiFtlG P
224[J 1lll'/' P
Ui t400iJ73
OHliJ124b P
44U02117 p

OU102051 P
01001245 P
0320234U P

Lll Q012 l , 6 P
U30Ji2 L\t: p
[.01]03120 P
54180603 P

1 LtfjOOOOl

14700002
00703027 P
21003120 P
2JOOO6bl .0
02350 P
I

S5400LlOD
;:)511JULl12

iJ2351

o
o
o

U2354

40100012
550QOOOiJ
J?nOD611 p

U2356

531UOOOO

0235.1

()

o
o
()

02355

02357
023bG

02361

o

p

0237.2
023'13

02374
02375

iJ~376

02311'
021+ 00
024ill
021+02

Lor

LACH
ASE,S
UJP
SWA

140?
J.408
1 tt 0 S

14

fj

R'fJ
U,JP

·1

k

AlJ,GE
UJP

2

,:$

4

AlJ,ElJ

5
5

STA

LuI

[NA
ENQ
HIJ

14 1
1. ttl. 8
141':3
l''+_? u"

1421
1
2
"3
1
1 '-'" "i'

UJ(~

8KSP02

LOA
EQU
FWS
SSA

S
R
L
ti

14~25

14
1

,1:\

O,Xl
GET MAC
SAVEX1,Xl
INBUFF-l,X.1
COl'lMA
INERROR
FFOOOOS
2U100003
15'+/'1775

to,t~2

n,

25200001

.J.

.
fJ

36.:500003

112ItLL~

03002443 P

02415
02416
D2417
02420
U2421

02 l t15 P
5500UOOO
21100U661 P
15477776
5360000[J
14700007

RETURN IN ONE SECOND

o

RESTORE MACRO POINTER
NOTE RECORD COUNT IN Q
CHECK IF READY YET

o

SAV
SAV
LUN:

l"'1

473GU6bi.~

4L130 UDEd.

o

BKSP U~;

P

5,:)6UOOOO

o

TRY TO STOP THE DEVICE

ENIT,Xl+MAG
ENIT,Xl+NAC

D!(SP. CB

47100653 P
IdDilU6S1 P
i L;2 Q. 00 t?

ZiJiOll!H3

o
o

".

14\:)00000

o2_~65

o

WAIT ONE SECOND

02362 P

02404
02 L,05
024U6
J 2 1t U7

FnJ

14202362 P
LJlOO1716 P

01002300 P

O(~370
O~3l1

14D i t
14U5
1406

EOU
ENI

1430 i.HHll

ClZ364

U2:)65
U2366
02367

OOJ7.1 3

BKSPC

:;.

T

53500000

U2 1,\13

o
o
o
o

0::; U02:3 6:,

1403

''I-}

Q

"

02362
tJ2.3b3

1.4U2

141UOUOO
U07027[U P

o

02352

14tH

p

o

II

1455
1456
1451
145a
1455+U01
1460
1461
1462
146:1
1461,
llt65
14Gb
1£167

1468
1469
1470

B:

Ii

I

ASSEl1l1LER/OS,:;

CD 1

U 2 I~ 22

()

[J

72UiJ0017
37llll247S P

1

UJIU2 t ,76 P

I

026lJ2 i t22

jJ

oZit 2b

P

::>54UOUOiJ

1

25300Jtl3

I

1+01UOOOO
2U1DOtJ13

oi

15300002
12000011
1J000017
41100D13
2030UOOl)
1'::>400001
4ULOOOU1

I

01
o

147 (J iLl U L

o

o
o

o
o

tJ2454
02455

02 r. 0b
U2 Lt57
1)2460
02 i.b 1

02462

o
o
()

02463

U2464
D24G5
U2466
02467

U24711

UZit 7 1
OZL;-72

02473

U2 l t74

147S
, 1477
147B
1479

Hf8tJ
:lL,H :1

14B2
148J
140 Lt

0244.:1 P
14'+77777

1494

o
o
o
o
o
o

I~E STaR c: THE MACRO
8KSP1,3
EQU
f< OS
ClJP,X3+CN8LK
LOAGl
STA
FB,X1H1AC
LDA
fJ E V8 L 1< , Xi Hl AC
IN(),S
2

SHAQ
STU
LOA
INI4~S
STA
ENQ
STQ

*

i::li22
025~3
lJ,~ 5 ~4

02525
02526

lJ2527
025",)0
025;)1
U2532
02533
o25 31~

02535
02536

[)2S37
1J25~.O

J2S!-I1.

()

0
0

0
0
0

0

~)LtJ.tO 0[165

Ll2SI.b

0251j7
Ll2550
L12551
lJ2S52
025::>3

02'554

LlZ')S::';

025:;7

02560

ENA,S
STA
EOU
ROS

[QU
lOQ
IUS

lOL

ST;H04

AZJ t HJ
AQA
ROS

EQU

STA

ENA,S
RAC,I
RIS
LGA
AZJ,EQ
RUS

55 1+OOOOIJ

281U0015
15477776
53bDOOOJ
21100005
53040UOO

GET MAG
-1
TEMP
-...
FOI~~jSWRO.,

X1HIAC

81 fig

STRT60

F OF< MS WRO t
-1

Xl+f1AC

SCREMI

POS I, Xi +1'1 AG
X2

GET SIZE OF FORMS RECORD

;r~

1537'7776

?B

S

19

o

iHJ

U 2547 P
200aU665 p

aJ

55400000

58Lt

55000000

586
587
5138

SH::T1iJ

585

,,)51[10001-1
LtGIOlJUULt
20 [JlJU5 t-+S P

02555 P
44DU2573 P
If 7102572 P

1J25S? P
5SiI+OUOO'.l
214LlUS.s7 p

0257U
02571

U2570 P
45002572 P
01DU2551 P

02572

14·100000

P
p
P
P
P

1589
15Y II

1591
1 ~=:J'

•

• co

a'')
oJ

L.

1""'1

~

STRT12

i:.>':lv

1594
1595
1596
1597
iS9a
1599
16UO
1601
1602
lGll3
1 G (] it

1605
1605
1607

GET ADDRESS OF BUFFER
POINT TO END OF BUFFER

GET FORMS MESSAGE •••
•• _AND STORE IN OUT LINE

Oi

Td
t >,J;

,

I,.

1

AC

I
A

GET MESSAGE SIZE AFAIN
OUPUT THE ACCOUNTING INFO

8IT23

ROS
SSA
ST J~

GJ.\LB.l'\I<, XiHIAC
CA L8AK, Xl H"U},C

SET CONTINUE BIT

URBlOI<
STRT16+1
STRT16,Xl

ROUTINE TO GOTO
SlORE INTO PROTO~YPE
STORE t1ACRO ADOR

FLAGS
INTBIT
SHH18
STRI16
STfn ... CB,X2
1,Xl

GET FLAGS WORD
SEE IF WAITING ALREADY
JUMP IF NOTHING WAITING
PLACE TO RETURN TO
TH1E TO ~JAIT

STRT16
STRT12
HIPURE, Xl

RESTORE FLAGS WORD

S
LOJ.\

EQU

S ~~ A

SIr
EQU
ROS
UJQ, I
RIS
LDl

AZJ,EQ

LDAGl

ENI
EN1
UJP
SHH. CB

EOU
STAQ
UJP

3TRT16

EN1

o
o
o
o
o
o
o
o
o

,3

E
L

~102b22 P

U25 L.3
LJr~5i+5

()

1 L,L.77776

211UUOH.l
55000UIJO

• • • • ~.~~~~~.~~ • • ~ • • • • • •

STRT,
THIS ROUTINE AND COMMAND WILL START A DEVICE AFTER IF HAS
BEEN SlJPPED BY A FORMS MESSAGE OF AN INITIAL START CONDITION.

f~

'-IOlJU0661

¥~.~¥~~¥¥~~~~~.~~

~

STRfC

P

••

~"..

is:;; 7

ll2':) 0 .:S
1

27
~~~~~.~9~9~~~~~~~~.~~

EdS

()

()

PAG!::

Jt,.

:~:;.

CALLBACK

PROTOTYPE FOR INTERRUPT FAKING

o
o

()

o
C)

o
o
o

(]),

11'.'\

~/

Vl,,[J

I ASSiilULEJUOS·3

(])I
I
(}

C>

0
C)

1

I

iJ2577
U2600

Ij S it 0

1

1

1

I

02576

J2bUl
026G2
02b03

026 ULt
02bU5

02606
02607
02610
02611

°1

25002 i372 P

4540U542 P

1616

U IJ 0 IJ

5S20iJDQU
1+01+OU537 P

5500000U
U1.UtJ4241 P

02bOG P
21000tlb4 P
0,)002632 P

1 Lt 1+7' 7 7 7 b
55 1tOOOOU

OJ204,Utl P

lL~blG

5:':;000000

02620
02621

2UU0055lJ P
01002555 P

:Jcb22

U2.622 P
177"1?777

1

02623
02b24

U2625

82621

14 if 77776

UJP
EuU
LDA
AOA

I

I~P

a

URE

1NT81T

~\EU

LOAQ

1615

1617
1618

161':1

1620
1621
Ib2

STrU2i.l

ROS
SH\Q,I
EUA
STA,I
RIS
UJP
EQU
lOl

~UJ,,£Q

£NA.,S
ROS

1627
1628
lb2q
1630
1631

STRT40

RAD,I
fQU
LOA

FAKECBI
FLAGS
DEVICE
SIf2322

TURN OFF SCREAMER

F OH NS WRO, Xi +i'l AC

>!-

7 8

M

RO,X1H1AG

STRT60

REMOVE FORMS BITS

777778

-1

L6411

I-l

41100016
55 ao DO

164t
16 l } 2:
.1

, X1+t'LAC

o

REMOVE FORMS BITS
EXIT IF NOTHIN G TO DO
GO START THE DEVICE

UJP

1638

o
o
o

SCREAM

AZ,J,GE

1636
16·31'

SET THE ROUTINE ADDRESS
SET BIT TO FAKE INTERRUPT
QUTPT A SCREEN
JUMP If NOTHING TO START

-1

LOA

1&34
1535

()

snnao

STQ
r";IS

H.:32
163,3

TURN THE BIT ON

STfH16

AN(J

16:59

S 5 1t U U(] 0 D
31+40U4G~i

STRlll3

lbLi

1613
161<1

SS6UDllOU

02617

1.12614

lGOa
1609
1610

PHI~NTO>i

1612

U2blS

lI2613

0~626

o
o
o

i)

34400465 p
2GH10016
026.14 p
11777117
4111HltJ16

0;2012

1

I

o

U;:5/4 P

;~lJlJUUS31.
5 ::; 0 It U0 II iJ

1

()

lJI00UlJlJO

0257 1+
025!5

I
()

U2573

28

03/21+114 19U1

TUR

CLE

o

o

OFF THE SCREAMER
FORMSviAIT

o

o
o
o
o
o

o

o

()

o

C)

02630

02631

OZb32
L126J3
02G34

02bJ5

ZOllO
0100

53 P
5'::i P

U2fd2 P

2U(]UU661 P
030G4;~{!i

ST,,,,n

1
1

SfRTao

~i

L
.)

.J.

P

l i tiOU173

Gi003Q2~)

1

p

E

l

fit

002

Ml.\CRO

,JUMP I f

JtEG,

.UH

UJP

;t I T;tS

i

A

ALLRIGHT
DING, OUMHYt

o
o

o
o
o

C])
1

ASS E:>lI3 Lr: R/ 0 S;)

Vl.U

U9/24/74 19U1

al

PAGE

ZY

IbGiJ

Pd AIHOi'i

••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
T

~:!.

i< ILL, < 0 E Ii 1(; E >
THIS COMMAND HILL KILL THE OUTPUT OF ANY ACTIVE OEVICEG

16G1
H,62

1
()

.1bn.)

1

166 i •

I

°1
0 I
1

I
()

1

U 2t:dG

02637
U26'40

02051

(
j
,-...-'

02655

02653

02654

0265G

1

01
I

000

270fJU605 P

026 1+6

0261:)2

() I

(J

02645

°1

I

llt i t 0

400U0601 P

551.UUOOO

U265U

1

lJU70277U P

U26 Ltl
o26 i t 2
Ll26 i tJ
J 20(,4

t1..:o l t 7
1

U2 1j3b P
iLr l0ULlUIJ

U26'57
026;)U

026;J1

02662

1J26b3
~26Gl+

iJ2SG5

2iiLl0016

550tJOJOLJ

0::5:502670

35400000

fJ

Ib6t3
166'3

!J 1 U 0 [lIH

5500fJUU()
41U006&2 P
14bLlUUOll
147ullOOS

00703027 P
21U00662 P

2-108Q672 P

1610
1671
1b72
1673
Ib74
1675
1676

1lt1:J022S

i;:OS
SWA
STA

illJOc;~.i2U

P

0267D

P

RIS
STu
ENP~
ENG
i~IJ

LOO
LOL
AZJ,NE

16IE;·

1
6
16 7

1 t,SH

826"10
02671

LOO
RIS
LUL
AZJ,LT

1683
1684

J3DfJ2bl!t P
13000030

17677777

S T t\

l6Bi
168.2

1

1

L(;L
RO

d

as

AZ ,EO
Q
AN

i63D

1692
169:5
1694
1695

EQU
ENI
RT .J
fHA,S
FWS

1678
1b79
168U

iJ3102622 P
27u006i'i P
554LlOOOJ

02666
02667

i

1707
170U

THIS WILL SET A GU1PUT DEVICE TO LOAD POINT TO PRINT THE
FILE OVERAGAIN~ YOU ALSO GET TE FORMS RECORDS ALL OVER AGAINQ

1709
1710
1711

0
02672

()

0
0

U2673

026/4
026(1.)
026"16

O;~Gn

J2111D
027 i11
02702

()

0

c)
0

OOlUZ77d
l4GUUOOU

1'+700UU{,
OLl103027 p
2iJIJu1l667 p
t.l21UO p
S ':J i~ U UQ U [)
3:->10D012

171 U

171Y
172u

1721fUIN002

1723
1721J.

1420271.2
l.430DUOl

02712

02712 p
5350UOOl]

1752

1733

1734
17:55
1736
1737

tJ2713
02714

14600000

U2715

471tlU663 p
02716 p
55400UJU
Z8100ll13
5360(]00ll
2':J2GDllOl

1 41
i 42

4:>10DULlU

1

O~71G

02717
02720
U2721
02722
U~723

02724
J2725

02726
U2727
J2730

O~7H

U27J2

Ul(HI27[lU

p

0271S p

1738

ll3·g
1.
U

o
R~1NDFLG
OUTAGe

SSA

ENI T ,Xl H1AC
E NIT , X1 HI AC

lPA
AZJ,EQ

BIT20

STA
RIS
rIA
EIH
EN!

1na

p

i

GETI~AC

B1121

Rt'iNOOS

Xi

RHNC~C8,X2

UJP

R~~

o

N 0 [12

RWNiJOS

SAVE MA

RI·'INOlJl

DE'IfGU<, Xl+MAC
X2

"' X2
13,;(lHiAC

77778
.2
G

it01QULHl3

V

21HlOO13
1.460000Z
1240UOil
:UOOOOll

,Xl+NAC

K,X1+MAC

02733

5S0IJOODU

U27::i5
U27,)6

ltd UD2 1-f!)

o
o
o
o
o
o
o

0 ADDRESS

NT POSITION TO BEGINNIN

STArn THE DEVICE

UltlO(~tf62

[127"35

o

GET POINT
TO 4 HORD FILE BLOQK
GET LP AND TFL
REMOVE RECORD COUNT
PLACE IN t1ACRO
SET FILE BLOCK DONE
SET CUR

401UOO13

()

JUMP IF MACRO SAFE TO TOUCH

RESTORE MACRO POINTER
CHECK AGAIN

£>
'{

o

SET STOP BIT
SET STOP aIT

X.1

ENA

o

~t.

TAL

EQU

RWNO.CB

CHECK FOR DEVICE ACTIVE
GET DEVICE NAME AND MACRO ADORES
ADO NO EXTRA WORDS
OUTPUT ACCOUNTING INFO

WAIT ONE SECOND

1 44
1 5

14G010Hd

O,Xl

.i,X3
CALLBACK

UJP

1.743

17l1777?

o

EQU
ENI
RlJ
ENA
ENG
RTJ
LOA
EQU
ROS

1722

531000LlO

01U01716

REWINDC

1717

J27iJ7
I.lZ7J.O

02701:)

Ll27~)tt

C)

171'0
.1716

112i3
172CJ
173ll

[L2104

' ......

0

1 L.10000U

1725
1726
1,' 21

02711

()

17L:;

1714

p

40100012
5500000U
370,lU671 ,~J
i.JJOOi715 p

(J~~lQ3

02705

0

U2672

()

p

E
E

UiOO3U23

UJP

O,X1
ROUT1

tOEVI

NOT AGTIVEt

0

o

0

o

0

o

0

o

0

o

0

o

0

i
,-----.,-.---._,
__.____.__.____,_., ___ ._.____ __ ,_ . _. __. _A__ ,_·_____·__ _____.__
,~

,~

._,.~_._.~,_"_

..

_,~_._._4_'~

__ ._._. __ ._,_"_, . . , ',_,__ ., __._, ____'.'_. _____._._,___.__________._________,_. ______________.____________

o

~

~

__.__._____

vL

AS:.:>LldLt:iUJ33
02737
02740

J271-~1
ll2 7 LI2

02743

027L~Lr

U27',-5

U271.+6

U21 Lrl
02750
027'51

02752

027';)3

0·2754

02755

iJ2755
027 1=)7
Ll2760

027GL

02762

U2763

02764

D2765
02766
02767

CD
PAGE

0 U'3/24114 Ilj 01

U10UOOU[)
P

04-1UUOOU
01UtJ274 Lt

P

14100003
712[JuODO

16277777
53020034

TO EQUIP L UN SPECIFIED BY
A POINTER TO IrS CONTROL BLOCK
GETCU
UJP
Ii'1PUf~E
OGOFILE
LOAO
ENI
EOUIP,Xl
O,X2
Xf~EQ
O,Xl
ISE
>:-+HALT
U.JP
777T78,X2
XOI
RF3 1..
Ti'lA
-'3
SHA
fAl
X3+PSA
I~OS
LOA,J
LUNLIST,PSA
TAL
X3
::;..
GETca02 EQU
GETCB05,X3
IJI
·+HALT
UJP
GETCBfJS EUU

1767
l76a

~~50LJU65;~

12l17l7b6

53700000
55400000
204UUSS6 P
5;)7UOOOO
0275 il P
02302156 P
OlOLl215S P
02756 P
253777/'0
53700000
120001.111

1!60uJ71
33240[]QO

02)1U2754 P

lJI.lOQLl30
537UOODiJ

010LJ2i'3i' P

ROUTINE

17f:d
1770

1771
1772

177.3
1771;
1715
1716
1777

1778
1779
1780

1781
1732
i 783

17
17
17
17B
178

LDt-\Q

HLI

1. tiS

1
1

ANA

AI/J,
I\ZJ,NE

:l

1

2

i

:-:!,X3
)<. .J

SH.A

[l

SHAQ
fAI
RIS
UJP

3

"
.I..

55000000

PHANTOH

31

1
.1

X2

AND RETUR'N,

IN X3,

QQUIP TO A FILE
GET THE LUN EQUIPPED
SKIP IF NO ERRORS
NEGATE TEH REQUIRED LUN NUM

o

GET PSA POINTER INTO X3
GET POINTER TO LUNLIST

o

END OF LUNLIST AND NOTHING FOUND

o

GET LUNLIST ELEMENT

C)

EXTRACT LUN
SUBTRACT FROM LOOKING FOR
JUMP IF NOT FOUND HERE
PLACE CONTROL BLOCK POINTER IN X
AND RETURN

o
o

o
-~,

LlS8

02770
02771
027/2

02173

O;~774

02775
d2176
027'77

U3fJLJO
030tJt

03002

OJO{]:)

03004
03Q!J5

llsOOb
0.3007
tJ3lHO

03U11
03012
03013
030.L4

03015
03016

:)3017
03020

UiDGOi]OG

L~7i03Q12

P

541U0416 P

L+017'47 P
sa Dr.);' 3
0[11246 P
l02G~)1 P
(J01246 P
0012.4G P
JU3111 P
00ll6::;3 P
U:551J3ll22 P
211i.Hl.3111 P

Hltl!}

?

AN

01

•

ALSO

1i1 2.
i 8tH

5J50[]UJIJ
IJi~ 0 Q iJ U lJ U
iHUG2??:] P

1 iJ e
1

+,1

01002735 P

03022

1 LtlllU1 Ltl

03023

1420U376
UUI'04U26 P
01001271 P

03022 P

OJ023 P

a 1, 7

31.[121
.J.

ia

()

o

GET ACTIVITY FLAG
SKIP IF MACRO ACTIVE
SAV ITS NGT ACTIVE
RETURN

,I

18

,.
SAV

eRG AOOR
INEH
TO ,~
DR
IN X1
OK FOR J~CTIVE

tHZU

:l
1
1
1

o

G_1

HLL8
1 i'Ji £j

55UUU UQ
fJ5GOOGUl

..

o

NUS

1 l::i+f]O:L

1

13

GET

1St

:UH
,1:L
1. lIj

PUT STRING, FIND ITS MACRO
o ADDRESS IN tMACROAt AND Xi
DONtT CHECK FOR DEVICE ACTIVE
SAVE CHECK FU\I;
GET LAST DELIMETER
!'1UST BE ACOMI1J.\

11307

5:54001J1lG

20 ill

GEHIAG

HHl5
18G6

j,

4UOGlJ6b3 P

z

CALLED

lBl]£~

SJ2uUUIJu

010iJ21l11 P

0:::;025

A

1 i5

p

03021

03U24

~~

OG7D45S5 P
otDn302;~

ROU

1799

i
RwN05f.i

GE Tl'1f~C

7+002

1821'+003

ld27+004
1827+U05
1827+006
1827+007

GETi1AC4
ERROUTl

EQU
ENI
EQU
ENI
RTJ
UJP

H7,Xl

•

5~r50+4,

CHAROUI

X2

~JRIIEOUT

tUN KNOWN DEVICE NAMEt
HHERER TO PUT IT

()

()
()

o
o
o
o
o

I

QJ

1
1

A'~" -c. i'l
:')~

L[...
.... ","
b
';0 U:::' J

'-I

Jl.U 09/24/74 19U1

()I

183 f l

1835
1836
1837
15j8
1839
1840
1841
HI42
184:';
1844
1845
1846

I

0 1
1

1

1

01

loLl?

I
() I

o

1848
184Y
185U
1851
1
2

I

1

i
1

0

;:)

5

b

?
iJ

!J

0

(-I
'-"

()

C)
0
0
0
0

U 3030

03031
03032

(] ,) D ,).3
OJ O:5!t
O:3QSS

03036
03037
03U40

O:)Oitl
OJ U l.2

U3U Ld
U 3 G'+4
03 UifS
·030!j·6
030 Lr 7

Q3(JSQ

03051

0::1052
UJtl53

03004
030:5.5
03056
03057
LLH1GO

03U01
03062
03lJ63

0306 f t

03U65
03U66

OJLJ67

0
0
0

PHANTOI"i

03070

Q.3071
ll3tJ72
O,)()73
iJ 3014

LJ3lJ75
03076

5S0lJtHIOO
01(100
f.l

"

t5000J 0
440U31 l P
4100 31 0 ~

53tJZ

530.1
4~-:>l1(J

21}OO[J

• • • • 9 • • • • • • • ~.~.~ • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • •

:=;.
T

•
T

~

ROUTINE TO OU1PUT ACCOUNTING INFO FOR OE~ICES BEING OPERATED ON
•
IF THEY ARE EITHER WAITING FOR FORMS OR HAVE FORMS~ IT WRITES
~
UNTO THE FILE ~FORMAGC A RECORD OF HHE FORM:
•
CONTENTS'
I~ORD
iJI 1S
OPERATION ON DEVICEI 1
STRT
1
23-0
2
Bl

o
H1.FUfH::'

OUftlCC

0 7

371lHHli6

ID

"-

()

o
o

R>,Xl
EX RA WORDS>

OUTA02

U3025 P

D3026

03U27

0

32

4

u..J

()

Q)
99999~9999~9.~~

1830
1dJ1
1632
lb33

I
() I

()

.
PAGE

r +1

f~~

F+2:
0

AREA SIZE
ITE INFO
S
lION
PLACE DATE AND lIME
IN EUFFFER
/:..

G
F

P

C)

p

ANO HA

~iA ILl:
E1 Hi

IF NEl

o
FORMS
R ON

53bUilOiHl

GET JOB NU!'!

2U200003
2110U001

>.)5700[100
21J20Q002

'2, X 2
G !' X:2

2i2UQUOIJ
55GOOOIJJ
40U03116 P
12400006

13000Q22
1757700U
5520UOOO
45003114 P
55100000
4 HI U :3 Ll (' P
U3062 P
25DLlJi l tb P
1 /+10 o11ll 3

7100U02 l ,
02503103
12000005
0320.30'71
Ul0031170
14700005
7200002 11
251)03106
7 51l 00 Q 2 it

14100002
7100U024

P

P
P
P

AGCBUff+6

6

9+9

7'1CJOlJ8

OUTA04

S Q
ELa
STa
EQU
LOAQ
ENI
XREQ
IJO

SHA
j.\ZJ.,GE

UJP
ENO
CrlTl
LDAQ
~~RI IE
ENT
XREr~

ACC8UFF+4
ACGBUFF+7

-.-

GET BLOCKS
OND HERE
SAVE THEM IN
GET PARTS TO RECORD GOUNT
SAVE Tfl
FORM APPROX NUMBER OF RECORDS
STORE INTO OUTPUT IMFO
STORE BLOCKS AHEAD OF HERE

C)

o

o

o

/\CCFILE

EQUIP,Xl
20
au T t\ 1 U, Xi
23-AUBIT

'>'<+2
....··!-HALT

SEFF
20
OUTAWTI

20
UNEQUIP,Xi
20

EQUIP TO ACCOUTING FILE
JUMP IF ANY PROLEMS
JUMP IF FILE ALRIGHT
STOP IF FILE ABNOR~AL
GOTD THE END OF IT
WRITE THE ACCOUNTING INFO
UJEQUIP FROM IT

o
o
o
o

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

(11

I
I ASSC:,'lt.~Lc:r:UOS3

1900

U2i1U4
U31U5

031U3 P
0410J003
U1UU3104 P
010U3{J62 P

1910
1911
1912
1913
191 1+
1Y15
191&

031U6

UOO03110

d::il;JO
JJ1Lll
03102
IJ 3:LJ::;

o
o
o
o
o

PI\Gt::

(Jld (J I) J 0 U

O_SOr?

()

V 1. G Jq/2Lf/7L~ 1':3 0 1

D3110

OH46

UIUU~)1UO

P
S41llU6G3 rJ
lllUU~tJ2i' P

5526 'td 51
OUiJOl

00002
00003

o00 nIt

33

PHiHHOil

ISE
UJP
LOI
UJP

l~Og

1917

lY18
.1919
1928
1921
1922
19j
19
1 J:;
1926

JUTAli1

EQU

1St:

UJP
UJP

lJ

OUT Ace

8SS
BCD

30

STRTFU;

EQU

1

8KSPFLG
KIL FLG

RI"H'i

LG

u~u

EQU

EQU·

SKIP IF .NO ERRORS

STOP DEAD
RESTORE MACRO ADDRESS
RETURN

SKIP IF FILE BUSY
GET A SYSTEMtS PROGRAMMER HERE
OUTA04
WAIT FOR THE DEVCE
09/0,A15/ACC8UFF,09/010,A15/IMPURE

4-1,i<1
-',<+HALT

OUTAHTI
ACCBUFF
ACCFILE

VFiJ

Xl

•...·+Hi\L T
l'lACROA, X1

2,1'FORMACC

2

:3

o
()

o
o
o

i;.

()

C)

o

o

o

C)

(J

(~)

o

o

o
o
o

o

C)

C)

o

o
o

o
o

o
o
o
o

o
o
o
-----------

----------

0)

(]

I

iASSEHLlLtR/OS3

()I

Vl.U

(.) I

1932

U315D

146lJOOUl

1938

U3151

534~OOGO
5 L, 1. U (J 111 b
2 2 1t 01 ! It 7

1.94U

1

O:HS2
() 310~)
1]3154
03105
1J3:lS6
LlHS7

031GO

IJ311.S1

O..H62

d31.G3

03164
03165
1)3166
tl5167
Ll3170

o

0.3171

03172
03113
U3174
03175

()

0-3176
CLHl7
l.!3200
U.32.01

o
o

u:~ZtJ2

03203

03151 P

iJ46LlOUl3

()

OIJ7tJ20S1 fJ
Ol0012L,·6 P

01 0 [) 12 L!. 0 P
20lHJ0653 P

554UOOOO

()

tACH
UJP

PARAI'1ETER DELHi
CHECK
GET THE DEVICE NAMME
NO NUMBERS PLEASE
OLNY FOUR CHARS

A.SE

RT
U

tJ

,NE

Lt

1 ~351
ig~3

iS5

I
H

OOI~N05

o

o mHI1.G

50
RDi\jAF:-

omlN, 

19 LLl.

03501246 P

5Si(}[JIJOOOl

0321.3

o

P

03204

03211
()3212

1939

P

Ul00124G P

DJ;:~04

()

1936
19.37

03150 P

• • • ~.~~~ • • • • • • ~.44 • • ~~~.~~.4.4~44~¥4.~ • • ~.~ • • 4 • • • • • • • • • 4 • • • • • • • • • •

""

19;:;3
lY34

1

o

PHANTOH
V~VV~V.V

19Z9
1930
1931

I

01
o
o

P~\GE

09/24/74 19IJl

ILAB

E DF~
f\Wf

E

TOO FEW

KEEP NEH COUNT

5342UU67
LjOOOt:l3U

o
o
o

5~;lHIOlJlllJ

GIVE OR T j'\KE THE T I~PE

i+DU56 tr P

GOUGOl)

U3225

00342iJ P

7 ) '/ r
0 "),-,-,0
03227

l Lf LtOOlJOLJ
OiU03151 P

03226 P

HV\FFIC
1

UPC

EQU
ENA,S
UJP

o

DOWNQO

00 A T FOR COLOUR

THE UP COMMAND IS LIKE THE DOHN

o

o
o

()
I

0

1

I

o!

0

c:__

---- _J __ --- __________________________________._.___________._. _____.___ .__ .______._______. _.__._. ____________. ______.______._.___ .___ ._ . ________._. __._. ___ .______ ________

G>
!ASSEddLcR/OS.}

(}I
I

U 3230

iJJ2Jl

0323~~

01

0;:;2::;3

I

1)32J6

()

o

U32j4
03235

0..5237

0:)240
03241

03242
0;;)21.3

o ::i2Lf4

U32<1-5

()

032 1.6

0;:;2 L.1'
032:50

2 ;2 It U1 7 It? P
ULrbliu073
o1 0 0 112 it- 6 P

00702051 P

010Ul;~46

P
01LlI1::i24J.. iJ

00371 :3

19CJ9
20Ull

2u02

20J3

o

03266

0'

03273
0::::;274

('--,)
.....

03276
03217

03267
03270
03ill
0~':)272

03~75

O:),)UO

03301
03302

C OMI"I~\

RTJ
UJP

FETCHITM

UJP

HlERi~OR

Il'lERROR

INERr~OR

>,'-+2

f;

2iJiJ5+UOi

21000633 P
03601260 P
40000144 P

ILlTERH

ZOU7+00t

AZJ,LT
LOO
AQJ,GE

01001246 P
033012611

47'10;;:117 P

007U2051 P
0.1001246 f;1

2UOS

2DD?

5~jitOOOOO

G5600UOl

010U320t*

i)

53700lilJtJ
2 U·t U 0 ? ~~ 6 P
2 1 tt U II I) 6 (I P
5S0UJUDQ
41 I] iJ 06 b ;:~ ,)
130777?'1
12 i tU Llll [I b
1:(,60007)1

1?7000T?
31000661 P
34·00066'2.

P

2000iJ5fJt:

p

STA

200'::

2010

USE Ri\;IA X
ILL lER~l

til \IE A

FRCHK,Xl

2Uil

FETCHITt'l

201::5
2lLilk
ZOE;

'1-+

IN RROR

2U12

LO

LOA,I
i~SG

021
022
2D23
2't},:4
2: 0 2:;:
2026

?Jf'j
t....o

<'-"

nn

UHJ,I

TAPE

LDf\11

RIS

STu

SHAQ

'";t?'

we"

I RROR
T P
M A,X3
PS!H:lU<
<,
00 N1G
X~~

~LjP

l]

UTAPAX,PSA
'ilL

l'"EM

-6

Ii

;~Cl:5i

J30\j3 £i P

o

4 LtlJ056

r:~

2,8 l

P

03SiJ.3

03:) Uit

03;:;05
03:::1J6
(J .3 2t i)l
-~.

02
it]

B;

t'nOl

i+J+uua

(l]:11.~;;

lY·llJOlJbU
01JD3~10

P

P

T ?'.P

1

G,

oi.t

0135
+006

OJ,HZ

03J16

"lUST 3E NUHBER

BE NEG
MUST WITHIN RANGE
SAVE IT
MAKE FO OEVIMAL PACKING
GET TAP
NU1'!BER

CANNOT

T
G

UTAPES

EQU

E U

E r
UJP

()

o
o
o

GET

SKIP

A

pon-:

F LOGS

R

IN

GET MAX AND IN U
BY USER
GET AVALIA3LE TA S IN SYSTEM
SAVE TAPES AVALIALE
USf::R I?' 14;.;

UJP

ljT!~PES

o

SAVE NUMBER OF TAPES
GET TERM NUMBER

D:L

03310
03311

03.HS

GET TERN CAHR
CANNOT BE OTHER THEN GOMMA
GET TERN NUMBER
!'lUST BE THEHE

IN Q
COM
E TAPES CHANGE VALUE
E NE~i TAPES AVL
GCH'I
SE TING MAX 8ELOW USAGE
GE TAPES AVAILABLE
ER
IF TAPES NOT AVAILABLE
GET
I~T US
fO BE FREE
IAPES
STOR NEW F
COMPUTE OIFFERA~CE
ADJUST AX USE CAN HAVE

2029
2G30

2000U651 P
03fU3313 P
51~OOO
11,0
562't

MAKE FO OCTAL PACKING

AMX
IN

2(1.26

,J+

()

A::>C::

SAVEX1,Xi
INBUFF-l,X1

U,JP

2 tl 8
20 9

03:~65

FI.51
032U2
03333
03134

o
o
()

u 3:)1 l
'-.4UU3 LI05
iJ .J .:i 2 ~J

fi J\Gt:

f)
5 ttl 0 (Ji-f 16 P
;;:2J~1l17Lt( rl

03336

iJ .)..)::; 7
03340
U"; 3 (t 1
U3342
33LI3
lJ3J44

o

833 1,5
I) :) :3£. b
U 33{; 7
U 3350

U.J351

1J:1552
IJ 33 153
.)._)354
fJ3305

03356
J 3357
O:Lh:JO
83,h1
J3,362

0:)363
0.3364

0336~)

03366
U33ti7

OJ

0

PS.1\U(2

00371 3

OJJ;j03J3~~

P

4700211f 11
OU71.l1?;54 P
iJ1UUJ333 P

20000142 P
1/677777
05680177
01003334 P

PSALl< F

o
o
o
o
o

X3

iL~6LiuDOO

211JlJ~Ljf2

IOEli~D

RESTORE THE CHARACTER POINTER
LOAD THE DELIMITER
NOT COMMA SO USE IOBOUND
SAY OCTAL CONVERSION
GO DECODE PARAMETER
NONSENSE - DO IOBOUND WORD
GET VALUE OF EXPRESSION
IS THE VALUE WITHIN A PSA

PSAlKOl

l41tJ[JJdl

025U3354

USE

1

21JuuOllU
S50UllODJ

1::'2UGGDi

FfU
Ll34i~1

U3462

J 3 l t 74

0

03476

Oj5U~

IJ::lS03

0
0

U 3504
U3505

03506

035fJ7
U3510
[) 3511

03512

03513
lJ3514

U3503432 P
02703lt32 P
0I

Lt24iLHlOU P

15100001
03SU3436 P

EN/:"
S ~~ A

Ti"iA
SHA
ANA

TAL
ENQ
ENI

03723 0
03723 0
DOUGH

a

2136
213 ;,
2138
2139
2140
.2 141
2142

EN!

21,43

{~
'~)J

(_

UJP

DAT2:01

LACH

JATE02

IJO
tACH
INI

Hd

r~QJtN£

Vi
1'1
1 " r
~.

TRAFFIC
NEX T

DATE

178
X3
60B

DATE02

BGfJ~1:ONTH,

42Lf U lHl IJ 1 P
1 1+600D73
i~240 OtHl2 P
14600 [1'1
i. 2 it 0 0 0 IJ if P
14600011
4·i:.'4UUtJUS

OOGOO 1

ODono ...1
00000

'7

5.j·J2UD3f

13000!J:~

53tJ20U31
11GLllJlLn'

q

U";;OO3Su i j. P
L.2!.UOOll P

2:1.66

; ;.: t t:i 7

2"~1.68

2.171.
2:.:t7 ;~'

;;:173
2i ?!t
2!. i 7 ~5,

GOl102 1

15Z0tJOOl

010035 ? P

11.!-lfJOU14

01003 1I?7 P

13000030

42400D11. P
14GOO012 (}
1+2 1fOO012 •
53(JZG022

aOOD2

1,

00u02

2

4240U011 P

03527

53010037
177U0037

2184
2t85
2186
21138
2189

130777/+7

146 {) U 0 4 l f

19
80
81
2182
~~ 18 ;)

21fH

130777[.7

Lj·2 i tDOD13

2176
2177
;;'
~

p

00002

219U
.)

OQOD3 0
{lOU;):;:;

.3

()

a

()

TESPOT+?,X2
8

o

--24

C)

1

o

TESPOT+6,X2

Si\CH
S i\ iJ
H

TE

2t?H

1:3071'7'47
51000706 P

o

7t3

;2;: 1. 6 ~3

li370 ;)ll·76 P

14GOOU4j'

'SH,AQ
t\NQ
OV./\

",

1~j!f7l?6,;j

BCD FOR,

SPOT+5" X2.

~.

i47"(]GGt~~,

a3503~)D7

TESPOT+l,X2
,'""i
TESPOT+2,X2

(~

t;..

13 IJ

o

)(2

",:;3:.

;J

!.II

ATESPOT+1,X2

2
2:
Z

i

o

~+3

2

GOOt!-

o

378

?

Z

o

D,4TE

'-

OOl1£l1 U

o

Xl

UiHESPOT, X2.
1·, Xl

010

152dUUUi
13000030

o

1,Xl
DATE01
OATE01,X3
BCOr-:ONTH,Xl
1,X2

2149
2150
21 i
2'
2
2
2

P
L.2411iJLlUl P

MONTH TO X3

O,Xi
-1,X2

-29

0300':;452

()

"'~·-lf

't?

211:.8

510U0706 P

ONCE A T, ALWAYS A T

-10

2147

U352 Lf

03525
03526

EQU

DATESPOT+150

130i'7142
17700 [J ::';7

51(JDU70b P
P
1':sUODU3J
[.240UU1[. P

tJ3:i22

ffU~FFIC

PLACE FOR SYSTEM NAME

OlHESPOTt42

21 i,+6

03517
D3520

03521

EQU,C

OUTBUFF
OUTBUFF+7

53020D~H

51000710 P

03523

0

15LODllOi

33515
0;3516

IWI~DSPOT

2:Lb

~1

03477
03500
0.:$501

0

01003 1-+35 P
22417514 F

o

03475

0

14277776

42400U07

()

t:uU
I~ U 1'1 USE R SEQ U, C

2133
2134

OJ/+lO

lJ3473

I~Al'lt:,:iPO'

2130
2131
2132

176DllIJ11
5370 0000
l l t7[J0060
i41UiJOOO

c,

U3472

DATFSP0r- EQU

212d+OO2
212'3

OOOGl

l1-1471

PHANTot'i

2128-HHJ1

D3466

03465

034:)7

()

2127
2128

IJO? 731
17l fJ3T7
510 U7'
P
it 2 it ClO
P

OJ463

tJ34b4

37

2L~6

53020U37
12077755

152DClDul

GE

ZlC:3
212'+
21.25

0:3 ii 2 a p
i'+60::h2U r)
[t40tJlb3 l f P

22L;.17514

P}~

2122

p

UU052 P
0022b p

II

I

O')/24/1 i t 1901

DOOUti P

LlLlOU?

I

I
C)
'.

VLU

21Y1

2192
2193

2194
2195
2196

2137
21g8

DiD
;" +4
DtHESPOT+9,. X2
f x;~

tjJP

~";.

+ ·Ef

l\(J~,NE

.;t

-I-

ENQ
UJP
SHAQ
SACH
ENA
SACH
T 11 A
SHAQ

OVA

SHAQ
OVA
S ~\CH
SHAQ

SACH
ENJ\
SACH
ENA
TriQ
ANQ

3

()

2

24

7

DATESPOT+9,X2

12B

DATESPOT+l0,X2

BC~

o

FOR:

CLOCK
-24

()

06DOiJO

-24
010

OATESPOT+l1,X2
OATESPOT+12,X2
4'+8
OATESPOT+15,X2
478
DATE

o

2'+

BCD

FOR H

o

BCD FOR P

378

o

0
,--,_._,--------------------

---~---- -

---

G> ij
A3S bl J LER/ U SJ
I
I

a
()

I
I

I
I

() I
()

iJ3S 30

UJ~31

03532
03:533

U:3034

03:535
0:5536
1J:3S37
iJ 3S LtO
i.J35 Ld
U.F.i42
[J,)l;;43

035:-+4
U::;?4?
0354[)

03547

0

035':)0

D3S5i

lL)552
lJ 3:i::.i 3

0
0

C)
0

0

C)
..

'-<)

\,

llJ6i2
U :16 i 3
0361 1•
0.)015

0
0
0
C)

0

0

i

U3616

o,3G17
03620

U.3621
Q.3622
03623
o3GZ Lt

Tl'lQ
STAQ

RF51

220S
r::.

Lib

l.l

1300001 L,
~ ..Hl2iJU711

2

SHAQ
5TAQ
A

2

Ht\

lf5UIJOOZ3 p

2

5;:;01D071
IJuOiJU14

'7

XOQ

!...

OUllLJ2S
IJ .., (I .) _., _.. P

2

2
2:
:2

(... ~.J U .) ':J

04bOOUGO

14Z00003
141'7777::5

22,1+17647 P
42<+u[;052 P
lS;~OQOOt

P

P
p
P
P

00012 2
00012 :3
'1-{7::::: I

t..

!)

<

~;..b

t..l

012

1...

v'

.J

~i

2
2
2

"to

Z

~I

?',-

INI

I

,~

NU

[) 1

e

()
MOVE THE tUSERSt TEXT
SL+l,Xi
+USERMESL-1,Xl

I

U

NU!1USERS·, XZ

1.., X2
'k.,,-~~

,J ~~

2

Xi

OSPOT
HCHX

22

i:

:::"

')'0"":('

{(,,,~,v
.,.,'~

o
o

-24

22.

"-,, --.(. H,

LOAD

Tt

(. . . r::., "'' ' "'"

r

StWE T

H
':)

POSITI

JUST T
L:JAD T

GO

AD

o
o
o
o

TO Xl
POSITION
SYI'1BOL

1430ULlDG

13
u(]

1. u(,

D::;7:L

dOUG

rqf

r

OSiJU
P
':.J-. :Iv lJ CO
200d Q D
550j "b iJ
Q

O'~·iO;J 3·tt
U1[H.l~i6:L4

1.20/7776
ll;iiO.JOOl
li;·l:'lGUUiJ

,';- fHE

SH~\.

Ii'~ I
E:\~Q
SH/~

130LlOlJl]:3
0070,":)717

10300U07
010J3615 P
152DUU03

22.60

61

0(~

1l;i l~/ /776
44003666 P
lL~2 Ll 00 if I)

P
U300127l P

2Ll20~j7£'iO

P

41.lZUU113 p
02G1l3632 P
143UUUUU

2i.lOOlJ617 P
lt4U036SiJ P

1l;60U7ll l t

ISE

1.1

JP'

P

U3627
036,50

036'+0

Si\ GH

1

~~25b

03637

L/~CH

8

? -?
£;;".L.

()

1

222(~

211DGU~)46

U3636

ADO SPACES

NANESPOT+12
RFli
12
lOU UB
G0608
NAMESPOT+14

b

~:

~2

IN OUTPUT BUFFER

RF?(J

~,i

223tJ
4';,?

(:.

70000B

PUT
SYSTEM NAME
GET PHAN NAI'IE

I.

{~ b

Oll 45

SIiAO
D A

i
2

o 36;~5

UJ6J4
03635

NO,
SIAQ
fHA

2

?0606Q

DOGe "

i'll~

:2

17SrUtlDU
.tf

ANA,S

GET SYSTEM NAt"1E

A i'~ ESP 0 T + 1

60608
12

2203

036.H
05632
IJ :)6;)3

j~

XUA

1661]6060

OS2tJOUl i t
01tJiJ3573 P

03626

RF50

c1
2 12

2

THA

()

NAt~ESPOT

LOQ

0:5600

03611

SYSBeO

5TA
THA

218

09

1710U771
2SZUOijl

u:'lblD

LDA

2.,

U~i57o

03G[)6
D;)()07

OtITESPOT+i4, X2

2100Gb51J P
1747000;]

110Q1.l22G
ftS 0 ~:i? 20
.1-42UGDOU
UJS?.3
2lJ2ULi42i
1+4003607
1,2UOUU11
S'::;SLlOliOU

036LJ4
J'3605

SJ.\GH

RF70
BCDFHAC

J3S10
'j 3571
JJS72

03602

2201
2202
2203
2204

ud

021llJ56'i P

ll3GD3

12

'-

lL1567

1j.~~bOl

OSG
ENA

2.', 07

4200QiE,2 P
it~ (J II U 0 1):3 P

o3l.j77

PHANTOi'l

2199

4S()[JOOliJ P
53020LJ70

03560

035'13
035? 1+
U 3575

OUOJ3 2

133Ul0U~:;1

13077l'+/
'jl0U07UG P

3564
03555
03566

.38

t:l::UU

Z[JOOuGI.+7 P
I-+UOUOUOI P
5302fJ05U

liJ5S5
035::>6
U J5 fj7

I]

0

os 7 0 tJU 1"
1460UO<:::1
l,2 LtUOGlb P

S

J :3562
J 3563

PAGE

09/24/7 1+ 1901

tJ3/j'j4

i.J J561

0

V 1 .• II

LOAcrHE INFORMATION
TO FAKE OUT OPERATORS
SKIP If ~MSQTOTALJ
DIVIDE HSQTOTAL BY 2
PINT OUT THE VALUE IN THE SYM80L

RTJ
1SI
UJP
SKIP IF DONE

226 Lt

2265

2257
2268

225':1
221tl
2271

LOA
AZ J, EO
INA,S
Sf~ A
ENI
LOA

2272

STA

2275

LOA
S~~ A
ENA

22'13
2274

2270
2277

IJJ
E!H

TPUNITS

'rJR I rEOUT
-1

TPO?
TPTITLEL-l,X2
TPTlfLE,X2
OUTBUFF+75,X2
:'<-2,X2
O,X3
TI\PELIST
TPOZ
DRIVSPOT

IF NO TAPES FORGET THIS
MAKE LAST DRIVE NUMBER

COpy TITLE INTO OUT BUFFER
BEGIN WITH DRIVE ZERO

GET BEGINNING OUTPUT POINT

0
-.-:........-.---.-~---.-,~.-,-----"-.-.-.---,---.-"-.----.---._.-.-.-.-.-._--_._

..._-----. __ .__. _._--<--_._---._--.--.-.----.--,--.-.-.-----,-,.-.~-.--- . --.-.---~------------- ---------

C)

o
o

o
o
o
o
o

(])
()

I

I ASS E 1"1 [3 LERJ OS')
I

I

(}

I
I

0

I
I

0

I
I

0
0
()

I

I
I
I

I
I

03\) '+1

oJI)42

O.%ld
iJ364 L•
U 30

SQCH
LUI

OUTEUFF,Xl
TPUNITS,X.1

X3
2 1t

E!\)Q ,S

777"178

SSA
ROS
l-1EQ

81123

X.s

UJP

fPIJ

INI
ENA
EN!
RTJ
EQU
T Iii 1-\
INA
ISI
UJP

"
"-

23D8

S5 l tOOOOU

2040U617 P
03303785 P

TPUNI S,X3
TPl-nSPOT, Xi
TPio
..

T

.t.

'~

s

ooa

s y

1001(~,,":j

(,

U:51il
OJ7c.:iJ

1.. 3400000

010U3717 P

03723
03723

03723 P
601100uQU
604121 Lj-r:i
602(..,2522

70b04421
21 1+75131

43604421
7U6U4164
45256041

0Q

:;;

s

n
6
2,33 -?
2338
2~~3(3

23 1.,.1

255i606 1-1

00005

T

()

o
o
o

R OF FREE DRIVES
ZEROS
TON

SERV 0

o
T!~PE

NUN

D,C
O,C
D

o,e

234 1..

2346

231.+ 7

2351

2.352

2355

U

1''\

2311-?

2;)53
2354

I P
I P
l 1X

H

..~ v

23 /tJ

234'3
2'350

51002425

BCOI'10NTH

2342

62G36U62
6U 1tG236J
6UL~Si+6b5

o

()

:::;QC

234lJ

2348

03744

037'.32

jJ1:jlJ

21b42"16 1•

037'-lb
03750

o

o

ill !J II 0 U iHl

15100llD:1.

1

(; T

C'J

U.H22

03737
037 L,2

"

600001

U3116

0373 L•

:~2

:; Q, ')

.':/"

TPi6

201) L11

U3732
037:)3

GET NUM

DEC

05~?iJ

03721

TAPEStiVL·

7-1

1420UiJUb

03'112

0:1725

1Pl

,-24
t

III i ~~, 3 "
010U12;7:1. ,!],

o

GET BEGINNING POSITION
GET ENTRY
JUMP IF DRIVE ASSIGNED
JUMP IF EMPRY ENTRY
SAY ON LEADING ZEROS
OUTPUT lH TA
NUMBER
HOVE TO N T
NE
LOOK AT NEXT LOC

PELIST
TP1

TP16

IP

I

03721

r

o
o
()

~

13 Gf71lri'
14bGUlHii

00101143 P
15100062
03lU5 1-1

LOOK

..

TPill

~

037 i L~
O,HLS

GET OUTPUT POINTER
POINT TO END OF NUMBER
SPECIFY NO LEADING ZEROS
OUTPUT THE NUMBER
POSITION TO A
HOVE TO NEXT LINE
MOVE TO NEXT TAPE DRIVE

60

O:37111

03713

RF6G.,;<1
9 , >:1

2ECBCfJ

23[1<3
2

550LlOQOU

FOR THE DRIVE
JUMP IF UNASSIGNED
GET ASSIGNED TAPE NUMBER

·7-1,X2

'J

<;.

SAVE IN REG FILE
PLACE POINTER IN Xi
DROVE NUMBER TO A
OUTPUT THE ORIVENUM8ER
PREPERE TO LOOK FOR THE DRIVE

HIPURt: ,1
TP6D
TNUMLIST
1.

;2
2

P

2356

0

TP05

2
2

010U3705 p.
036?3 P

Q3ClUT7U5

5

a

HE

LOG,I
IUS
TMI

Ii

L.

010,]36<'+1. P

1410U735

TP02

22':3 2
22(33
"l (.,

lfjl00tJl1

-r

RF50
RF60,Xl

T Ai'1

TIA

229:1

55IJOulJUU
53130060

EQU
lHI
SHAlJ

22(~ 3
2204
2285
2236

22,'\ d
22d9
229 U

0610UOOO
010U3752 P

5LdLJU61~b

2281
2282

2287

5S400iJOO
211~U

TPOn

554:.JOIHlD
211+0 U':ib4 P
55 G(} Olj 0 J

037:36

0

2 £:"18
227Y

5J i t2UtJbU

PHANTOl.;1

39

0371)6
O.J7U7

O~J7Jl

0

J b It 1 P

P 1\ Gl.

021fJ367:J p

0
0

f)

l:j 01

0:57 U5

03711

0

Vi.Ll [Fj I' ;: 4· J fL.

USER'vIE.S
USERMESL

8 O,C
BCO,C
BCOtG
Bca,C
SCD,C
BCO,C
13GO,G
BCO,e
BCD,G
8CD,G
EQU,C
BSS

o

1,

8, ,jANUI.HH

9"FHlRUARY
6,M.ARCH
b,APRIl
4,MAY
5,JUNE
5.,JUlY
7,AUGUST
1 0 , S E P T HI BE R
8,OCTOBER
9,NCVEi18ER
9,0 E C Ei'1BER
5,USERS
'r-USERI1ES
o

C)

o
o
PERFORM BLACK MAGIC ON THE PC

o
o

Qj

i

I ASSEtvIBLEiVOS3

(ll

I

V.1. U 0':31 2 Lt /74 1 9 0 1

0.51:52

03753
Oj754
03755
03756

()

o ~)757

()

o jib 0

I
()

I

U37'14-

OLdJl1

O',U26

i.e

~~~§

fJ810L.!
o r::s 5

00753

()

Pi.\GE

2::';09

03752 P
5S000000
S;;;23UUbLl
152UOllUJ

1i.,100000
OlJ7D4Ll26 P
OliJ02i66 1-t P

U37bG P

GUblJ611bU

23bO
2361

LIJL~040I.td
Ol1Ll L

+o

01
0

TPRSSPOT EQU

TP60

ENI
UJP

2362+003

rHJ

2"362+004
2370
2~Hl

2376

2377

TPTITLE

RF60,X2
3,X2

1'11,>:1
CHAIWUT
TP05

EQU

/
IOfdVE
TEXT,C /----TPTITLEl EQU,C
8SS
TEXT~C

452
477
1+ 91

CQU

iUS
II'lI
IN I

~362+002

23!H

I

1)~~¥~~8t ~88

2362+001

23dU

o!I
o!

PHANTON

2362

2378
237'3

6U602451

0

GET LINE WE~RE ON
MOVE AFTER NUMBDR
;tUNASSIGNEDt
MOVE MESSAGE TO SCREEN
CHECK NEXT DEVICE
TAPES
WAITING

TEXT~C

(*-lPTITlE)14

!J

DRIVES
UNRESERVED

()
/

I
J

o
o
o
o
o
·0

()

'.....,

o

0

C)

r,

o

'v

0
(1
·oJ

()

0

o

(J

o

0

o

0

o

()

o
o
o

0
C)
---------

CDI

I

I ASSEl'18LL:::fUO::';~

PHANTO~'1

(}I

23nl+003

2381+'009
23BJ.+uiCl

I

2381+011

1

1

lh026

1

01000000
0402:1 P
22420174 P
046tJ005:::f

O·

01D04U33 P
tJiUU4U26 P

42 ifU 0 [) U i.J

o

1520 niHll
l51IJUL)J.}1

()

QUOUD

I

01

1
()

1

o
o
o

1

ROUTINE TO MOVE CHARACTERS. INTO SCREEN BUFFER.
ENI
,Xl
ENI
,X2
RTJ
CHARCUT
X2-POINTS JUST AFTER MESSAGE
XJ AND Q UNCHANGED

.:: 301 -I- 00 5 :;2381+006 >.<
2331+007 -r
2381+008 -,-

() I

0

~

231)1+004 -,'

I

()

••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

:;..

aQUlJ1)

0

2301+016
2.3I:H+017
2381+1J18
2381t·ll19
;;:: :~ d i + !J 20

2.38
025
2::;8 +026
238 +u27

2S2(~::j32i+

U4u i+3

31434325

tJ l~ U47

03632147

OOUi3

U CHllO

tlOO41

llOU60

5125506
[JU11

lJ4062

5S44~65

II it 0 70

2:;5153 it

GLIOl5

iT42~~S.3:~i

04104

S;)4~1+

OidiO

5J24

UOl

OU173

00 ,: 5
63
on ('45,-,,1 :J

238 f
2381+

1''11
i12

2381.+

2'3·!j1+
1
2381+032

+031
038
+339
+

EQU,C
EQU"C
TEXT,C
E u,e
T XT,G
E u,e
XT,C

u,e

T C

2
l+u3:3
2:
i fl34
2 3l+I.L35
2.
1+ ~~6

2
2

1,
1.,

p

i'lE3SES

1'17

fl

:L
lUG

y,+

r

I

GET CHAR
SKIF IF TERM CHAR

NE
Hi:

GH

()

o

Il1PURE

~

UJP

eH

23<3'1+021

2iH 7t., P

O/+OLd

UJP
CHAROUTX EQU
LACH
.AS£.
UJP

CHAfW UI

23[31t022

2~381+fJ2~3
2~)i) +U24

6 1+45216;::

J4114

04037 0

23JH'014
2381+015

01004021' P

U1+ lL) 1

Ll4053

P

23al+0L5

-,-

>t>;

T

tlU

F,X2

CH

IX

STORE CHAR IN SCREEN
MOVE TO NEXT SCREEN POSITION
NOVE NEXT GHAR

o
()
()

E

()

TERI'HNAL$/
/

VEO$/
UNRE
ES IN USE BY U
$1
DEVICE NAME1i/
EADY GOING, DUMMY!I
TO KIlL$/
T ,l\CTIVE$/

REALINE WORD BOUNDRY

o
o
()

C)

()

o
o

()

o
o
o
o

o
o
o
o
0

o
1

i

01

-. _____L___________.____,_.______ .___.__.___,_______.____. ___,__._._,_._._,__._,._._. ___ . __. _. _____. _.___.____._____.__. _ _ __

o
o

0;

I

I ASSENBLt:ruOS::;

V1.il U9/24/74 1901

(])I

PHANTOi'j

42

~~~.~.v

22>84

~

.....

(}I

°1I

I

()

i

J i+liS

ll4116

olti17
U1+120
II [~121
04122
iJL,123

I

J4124

041UD416

r

22 1fG1747 P
U1i·GOOU73

DUHll+232 P

47002117 P
007(J1734 P

°1

17b77'77l
440lJU?47 P

c)

12077l6 1"

I
I

01

I
,-,

\...j

1

.JU1'lP>!E
DUi,,\PENH~

ij56UllUiJO

EGU

LDi
LACH
ASE
UJP
srI
F~ A

2 LdZ
247,)

UJP

nUMPENTR

iJt-lEXT

ENA
UJP

Ii"IPURE

t-lNE1'1ES

BCD
E QU

2471

247 1t
2Lj15

2476
2477

Pl'lEI~ESl

HIPURE

DUMPENTR

00 NEXT I:.
,:r;,

::;~

''i e

7
.1'-\

uun
•

QEI1PTY

EQU
EOu

SnHLOC

EQU

l~_P

NT

-!t .~"!;.

fJUUZ':i

..

~'"

cb
'07
68
f.)~

DUOOO

00081
00002

00003

OUUU4

70
7.1

72
73

7 it

75
76

77

78
19

t"'1PTY+l

POINTER TO NEXT FILE BLOCK
•
COUNT OF BLOCKS IN THIS FILE
•
QUARTER PAGE NUMBER OF CURRENT 4
512 HORD BLOCK
•
POINTER TO NEXT WORD TO 8E
•
LOADED FR
THIS BLOCK. THIS
•
POINTER I RELATIVE TO THE
•
BEGINNING OF THE CURRENT BLOCK •
GO TO THIS ADDRESS WHEN BUFFER •
IS CONE AFTER AN INTERRUPT
•
BIT23 SElZ GALBAK
•
LOCATION WHERE RECORD IS TO BE •
PLACED OR MOVED FROM.
•
MAXIMUM ALLOWABLE RECORD SIZE
•
SII ·,0
•
ENI BLOCK,X1
•
UJP IMPURE
•
TEMP FOR INDEX 3
•
IF B1:T23 OE\HGE MUST BE STlVRTED •
BY OPERATOR
•
IF B1T22 DO NOT PROCESS FORMS ON·
THIS DEVICE
•
IF 81121 THEN STOP MAGRO
•
IF 81T20 THEN BUFFER IS UNSAFE •
81T19 IS A QUEUEING FLAG
•
PNTR TO FOUR WORD BLOCK
•
COUNT OF WORDS IN RECORD
•
RELATIVE LOCATION IN BUFFER
¥
CONTENTS OF PFl
•
•
81T19 SEZ WAITING FOR
•
OPERATOR TO READY DEVICE
•
BIT20 SEZ H HTS FORMS
•
BIT
SEZ H
FORMS
•
8IT
SEl T
FORMS OUT
•
BIT
SEZ S
AS BIT22 BUT
•
ORr
IS H
ING TO OUTPUT NEXT·
FIL
•
BCD IDENr OF THE DEVICE
4
ENI BLOCK,Xl
•
•
UJP IMPURE
ADDRESS TO GO TO WHEN FILES
•
ARE UNEQUIPPED
•
POINTER TO NXPTR AND LXPTR
•
ADDRESS TO TELL DRIVER THAT IT •
HAS TO
RE FILES TO OLTPUl
•
ADDRESS 0 TELL DRIVER TO START •
FILE
•

FcaOEF

6S

()

o

OSI+
FWO

-:..-~

• :"

aua
non

o
o

V8Lt<+1
UNT+:t

t.

" ~l"

o

o
o
o

IT+l

F
E

1<'

·",

o

()

UkUlOCK BLOCK OEFINITIONS

000U6

o

Q>

THIS CODE WILL OUTPUT THE DEVICE STATUS INFORMATION

o

o
o
()

o

o
o
o

o
o

o
o

;w-¥-

.. >F
.t

.,.

FILE CONTROL BLOCK

~~

l~ C Cw 0 ROE U U

LP

Co'.< P:::p
.'. t::

'.

DEFI~ITIONS

:f..

·

[QU

U
1

EOU
EqU

COREP+l

[-nu
....

2

::,l..

cap
cpp
... '::l..

• .;t.

4

ACCOUNTING WORD (MUST BE OJ
•
LOAD POINT BLOCK
•
CORE POINTER IF NON-ZERO
•
IF 8IT23 = 1, CORE BLOCK HAS
•
BEEN WRITTEN INTO
•
BLOCK NUMBER OF THE CURRENT BLOC·
CURRENT POSITION POINTER
•
lREL~ POSIT. WITHIN BLOCK GBP)
•
BIT23SEZ READ-ONLY
•

o

o
o
o

cr

IASSE~8L£~/OSJ

Vl.U U9/24/74 19U1

PAGE
HO
81

o
o

o

OOUUb

{to

~

85
86
87
88

··::

89
90
'31
92
93
9 It

S ,-:J'
000Ll7

. '"

·-.-

3 1-+

OUOJ~I

PH~\I"lTON

a~~

i.lZ

()

45

96
97

'4 .:;.

:~

IJ "',¥

:,"..

..

BLKR

·
t:PP

tQU

5

EQU

6

.:;

.";-

~::;..

..*~

.:;.

.• -r

,7'

TFL

EQU

7

BIl18 SEZ BINARY RECORD PROCESSE¥
BIT17 SEZ ABNORMAL/UNAVAILABLE ¥
BIl16 SEZ ADDRESS ERROR
•
BIT15 SEZ SAVED FILE
•
NUMBER OF BLOCKS BEYOND
•
THE CURRENT BLOCK
•
END POSITION POINTER
•
8IT22 SEZ THE FILE HAS CHANGED •
BIT21 SEZ POSITIONER READY
•
8IT20 SEZ DESTRUCTIVE READ
•
FILE DIRECTORY
•
•
BITS 15-18 CONTAIN THE HT
BITS 00-14 CONTAIN END POSITION ¥
TOTAL LENGTH IN BLOCKS
•

o
o
o

()

()

o
o
o

o
o

()

o
o
o
o
o
o

o

o
o
o

o

o

o
o
o

o

o

o

o

o

i ASSEr'I:JLER/OS3

i]ll

()

()

o

i'IAGRO

N /" l'lE

~49U

Ei'lI

24':H
2 l l(:l2
2495
2496

oif 21ti P
1460 L1-367 P
Lf4UU1S34 P

2498
24<39
25UO
2501

1431]OOfll

2U000644 P
4 L,UU!t371 ?

25[]2
25U3
25J4

2 II ::: 0 4:$7 b

2SD5

14200010

P

2506

Lt0200tlOIJ P

25lJ7

Ll260 1+247 P

25GB
2509

1410014 1j

042:53
04254

LJL.255
UI+2 156

04257

04260
04261

0:.262

D4263
04264

25tH

55 1tOOOOU

2
;.::

204UU041 P

5361J0000
202001111

41304367 P

oooou

G

1

43400001 P
1300000b

UU 0 ilO
(J i]

Cl4;~70

'IJyOOnU2 P
13iJOOJU6
~t 3 4 U L1 G0:3 P

04271
04212
[)1+273

u4274

J4275

a42 76

04277
84300

iJ 4.3 0 1
tJl-d J 2
0'.. 303
U43Cl4
iJ i t305
U'-d06

Ol+307

114310

01+311

OLr312
0 1+313

U4314
04322
04323

OlI324

()

04325

o
o
o
o
o

U i+~).3 0
UI+331
U4332

oLrJ 26

114327

lJld 33

[] 1+334
04335

04336

U:tS37
U4340
o 3 1+1

't

04342
043'-13
043 1.. 4

04345
043'-:>3

[] 't 3:) L,

lS1!Hl1186

OVlP

2515

04265

04266
o!+267

1
2

2
:::;
251 1+

5500000U

1:5000006
1.. :3400000 P
UOOUlJOb

OEVICE

o D[len]

-2Lf

INT
IJD
END

-l,Xl

EQU
ENA
SvlA
ENI
LOA
SWA
ENI
LDA
STA
IJO
ENI
lDA,I
TAI
LOA
RIS
STI
SGC

Sri
SQ

5541J000U

20200010
5SQUUUlJO

35008673 P

OUTBUFF,Xl
J/--4,X3

()
BX3SVE
NEXT

1,X3

i3LCCKSL

i3LOCKSC
DHEAOl-l.,X2
DHEAO,X2
OUTBUFF,X2

Of'-2,X2

100,Xl
8l0CIOUUUO[}
5330UOOO

15100013
lLI 300002
15.l001H4

:::>S200fJUlJ

1~

2546
25 Lr 7

DA

U!'1

os

GNTlP

2552

2553
2554
2555

2556
2557
2558

2559
2560
2561
2562
256:~

2564
2565

GET FOR1"lS INFO

o
o

GHKCNT

AI
UJP
TAL
LUQ
ANQ
EUA
/-\QA
AEU
INI
LOA
ANA
AZJ,NE
IUS.
TIA
INI
ONUl1
INI
EUi\

MESSA

TO HEX

IN LINE

CHAR

GET COUNT OF BLOCKS IN THIS FILE

:;;

5 CHARACTERS. X3=G

I)

U

2545

2551

o
o
o

BLF,X2+MAC

7lT?7B
S

2. 1i-"3
2 44

2550

ADDRESS OF MAGRO FOR DEVICE
MACRO ADDRESS TO X2
GET ~if.\CRO IOENT
SAVE MACRO TABLE peINTER
PUT IDEHT IN OUTPUT LINE

Sl
MO

Li2

2548
2549

o

SET 80TTEI1
CODE FOR FORMS REMOVAL
JUMP IF SIGN BIT ON
FINO NEST BIT DOWN
GET l'1ESSAGE

DDDGU [)
i:,
2
2 39
2
[J
[~ 41

OZ7Qlf3(J'j

t-lOIJE HLCl.OER IN
START OF .INFORHATION LINES

o

TBUFF+3,Xl
tXi

1370000 1i
21J3044(17 P
.14JGtJlHJ3

13U00006

()

OUTBUFF+2,Xi

S
S
I

14300004
03304301 P

4·3 4G 00 U U P

ADDRESS FOR RESTART
SAVE IT
LOOK AT ADDRESS WORD OF MACRO
GET TABLE LENGTH
STORE IN CHECK INSTRUC1IO~
LENGTH OF HEADER LINE

()

SH

S;·

3

010

f\OS

SH.A

fHHJ 2.

,cc
o
tHJ t~
'&CC(1)-1,X3

SHAQ
DV,I\

SOCH

2 (~93
2 Lr'3 4

I

o

PHANT or~

248 9

I
I

()

46

2483

I
I

01
01
o
o
o
o
o

PAGE

Vi.G 09/24/74 1901

QPNT,X2+MAC
X2

CHKCNT
X2

2,X2
777778

1, X3
o , X2
777778

CNTLP
X3

5+3+3,X1
:3

3t3+5,Xl

ZERO FILE SLOCK ACCUH
GET POINTER TO THE QUEUE
ACTUAL QUEUE POINTER IN X2
SEE IF SHOULOCOUNT
GET THIS FILE LENGTH
GET AGCUM FILE LENGTH
ADO TO ACCUt1
SAVE ACCUM
COUNT THIS FILE
GET NEXT POINTER
CHECK ADDRESS FEILD ONLY
JUMP IF NOT LAST BLOCK
NO. OF FILES TO A
SPACEING
CONVERT TO 3 COTAl DIGITS
SPACEING
GET TOTAL FILE GaUNT

()

c)

o
o
o
o
o
o
o
---.------.-----.

I

Cl) i
"

I ASSE"IULc.fUO.sJ

Vl.O 09/24/74 13U1

C)I

14300dlJ5

I

o
o

ISG

SCf'<-DHEAD

F

~~

HLF

T F

T BlK

()

o
o
()

WAITING FOR CPR READY
WAITING FOR FORMS
HAS FORMS AND IS OUTPUTTING
WAITING fOR OORMS REMOVAL

o
()

o
o

c)

C)

e
o

o
o

()

()

o
o
o
o

o

()

()
()

o

o
o
o
o

Cj

()

()

o

_,__ ,_,L,_, __,___,____ ,______ ,____,_ ------'-----,-,--,-------------,-,-------------,--,---,--,,---,,------------------------------

a
CP

I
I

o Lli Lj
541U 416
224U11 Lr7
J4liOUl.ll3

lJ Ii it Z 0
0!·,1+21

01001271 P
OU7(J20S1 P
01 Q [J 12 if 6 P

ol+i.17

I

1]4422

I

o 1+42{f

0
G

0

I

I
I
I

()

0

0

()

II

I
I
I

I
I
I

0
0

I

0
0

o
o

U it 1+::; 4
OtI4,)5

04441+

0't 1+47

1J4 LfSO
o 4 Lf 51
04452
04 L.53

0
0

r.'

olJ ('0 It 555

2lliJOU?4::l" P

2GD?

151/7776

oLI-517
04520

04522

0'+523

24
[)[t525
l) LI-5

04526
O't527
ol~5 3 0
ol~5 31

S yjA
TAL

dGNSfRNG ENG
STQ
STr
.,. T
t.

LISTLPl

~

U P

S

,HIGH

0

I]

1£OUT

CURQPNT
X2

o

LSEQNO
NEWKEXT,O
OJ

;~

1

GO SEE IF WE SHOULD BOTHER

LSEQNO

GET CURRENT SE

1

~

I]

Oli.Hi P
UJOQ P

7116

LSEGNO

OUT8UfF+2·, Xl
-24
Dl0
OUTBUfF+1,X1
24
OUTEUFF,Xl

03

Uj'I~:i!J3

SAVE PART OF NO.

147UU02D

0100L~52b

14600000

OlLlO452J P

2u2DUOfjU

17677771
5360000U

,;.,
9'

...

OOUDU

Q

NO ..

OF 8IT 23
LSO
IT 2.3

o LENGTH IN LINE

c
2

26
2

TBUFF,Xi
LON

p,$

')

26
2
1
2 52
2 ,':J- .:J

EN

S
I
I

")'

2654
2655

2655
2637
2658
2659
2660
2661
2662

2663
2664

2665

2666

2667

t'l E Wl'l EXT

OUTBU F-6,X1
TillI L-9 t X1
seRE LC,X1

CHKN

E i"i A
ASG

11+17

UJP

H1PUi~

LISTCONT
NEWNEXT,O
/Vl0RElIST

SliA
UJP

NEXT
~~RI T EOUT

St,U\
TAL

NEWNEXT

LISTCONT INA

CHKNXT

H;t-ji

U

S1"I
ENA

ROS
LOA

ANA

TAL

o
o
o

GTH ENTERED
iti

o

1~

o

P

UJ

2

SET

BIT 22 NOl SET. I.E. NO
FORMS IN FILE
t+t

JUHP

'r+ 2
8.,

<.

77776 1

PUT PA.

:tIt

"

4700 if 5 i l l P
11.60 LI53"1 P
4 L,OU1634 P
01001271 P
15GOOfJ21
440U L151 L, P

8.

FOR A

aVE BIT 22
JOB NO_ -

ONL Y

2

?

FAi~E

Loap 1 II L

L~

US 600 Q 1+2

?.5S0000Ll
554000Utl

r, 1

2:
"2:

2iJ U iJ 061:::,1 P
J5 i dlUOOU
1 1+7DlllJ 1fO
i,S777(,71 P
15100D';)1

051017S0

R
G

P TILlD

ITION FO

'"j,

P

o
C)

2

JU

o
o
o

POINT TO L 5T LENGTH DIGIT

,::
IJ

o

NO~

SA IJE JOB NUMBER.

778

o

o
GET LENGTH AND JOB

0

lJ /":4 7 t
ll676

0661
0061

CE NO"

-24
01G

21fSZU

1307774
-

NO~

CHKN,XT

2621
2622
:5
OOUlhl

ZERO LINE SEQUENCE

START IN COLUMN 1
POINT OUTPUT POINTER TO FIRST CHR

P

14700012

04516

UJP
UJP
RTJ
UJP

\~fn

FETCHITM
INERHOR
INERROR
Qf"INU
LEEXIT

GET DELIMITER +1 POINTER
.GET DELIMITER
SKIP IF COMMA
GO GET DEVICE NAME
NOTHING RETUI~N
NUMBER HETURN
GO fIND QUEUE ADDRESS
MACRO NOT FOUND
SAVE CURRENT QPNT
THE ACTUAL QUEUE BEGINNING IN X2

D'

2 1tUOO665

DLtS Q 4
ULf S (Ei

I

J

SAVt:Xl,Xl
IN8UFF-1,Xl
CO 11i'1 A

l
p

I

04515

I~T

~~

02i'OI-t45l F

43400UOlJ ,!J

u4513

1

41000661 ,[.)

[J!+5U3

0451 1+

DaUOLl

55DOUJlli.l

04474
04 Lt-l':5
ll4 Lr 76
04477
0£.5UO

I

2

3iOOU706 P

-'

I
I

OiH]

,j

(J

13077747

13UOO0311
434l.lUanO p
5540UOGO
20200002

~\SE

UJP

2609
2610
26ii

13077147

,0

L~l

2£;Ol:3

40UOUlLd P

U4412
04473

OL1510
OL;.511
(J 1+512

2600

1560UOal

I

I

2bllS

5S0UOLlUJ

37000676 iJ
37(J[JU661 p
:L4.300005

04507

Zoot::

i

04465
0 /-1406
U4 Lfb7
0 1+470

oIt 5 fJ 6

2599
2600
2601

E·U
U\CH

2:'>':)2
25'j3
25':3 11
.2595
2590

2603
2604

43L~UUlJIJi

LIs~r

2590
25·31

4/00£,514 P
ii·dOGOUtJ
01004526 Ll

,51000706 P
4::140UU02 P

4::;

25']7
2S9,\

P

1510001 1+

04502

.3

UllJlJ L.S4G P
4 1t004752 P
SS6UOiJDU
1 11./000 U 0
1+100U7 l 1-3 P

(J

O/t i t?1

lJ 0::511

Dl0U12 1ft 1:1

i430UU04
1510 a in
1767 7:7
' ..,
Lj- f
130'1
5iiHlU 06 P
4.340 UIE) IJ P

Ui ,521

0

F'

04454
:J 4 1t 5 5
o·4 1f56
04457
IJ It46 0
Olt 1tol
oif 462
(j1+4u3

'+ if 0 it

'''5~q

P

045U1

I

0

(J lf4~H
It LtJ 2
4 l t33

I
I

0
0

Ui} it 2 7
;J 114::; 0

o44!tS
o4 i+Lt6

I

0

04425
lji.t lt26

I

I

I

0

oLf it23

04 Ld6
tJ 1t Lt 37
J!.4 ItO
0'-+4 1+1
U If 4 4 2
o Lf 4 1f 3

I

b

041.114
oif I·d 5
LJ if Ld b

() I

Pi~Gt:

VL U iF)/24/14 1901

I AS:3EI'It3LER/OS3

17

Xi

Q,X2
77777f3
X2

PLACE DASH IF ABORTED
POSITION FOR NEXT LINE
SKIP IF SCREEN FULL
GET NEXT SCREEN ENTR·Y
GET LAST VALUE OF RESET
SKIP IF THREE COLUMNS CONE
PREPARE FOR NEXT COLUMN
NEXT POISTION ON SCREEN
DO THIS ON NEXT SEND
GO WRITE OUT SCREEN
POSITION FOR NEXT COLUMN
NOW TO INDEX
CHECK NEXT POINTER
AND TO ADDRESS ONLY

NEW POINTER

()

o
o
o

o
o

CI)

i

C[

I

: ASSEI'iJU:1UUSJ
Vi. lJ
I
U..'il04 L.34 P
SSUIJuOOU

(IiI

14604550 P
1.I40u15,14 P
OlOU1271 P

1

C)

I
LJ1t'j 37

()

I
1

() I
1

()

1

1

01

oL,5 It I]

J4'S"fl

1

01
01

1

()

I
I

S:;iUOOOUiJ
':>420 l l"152 P

oLfS:;;7
tJlfl;)6G

Olt561

iJ4562

01t5G3

oLt 5 6 4

Ut tS65
045G6

045b7
()

1

04510
04S71

OL,5/2

o

1 I tiOOOOO

U4SSU

045::56

UJiJ

iHJ

P

50000000

U4505

2671
26(2
26/b

lJiUUL;0S0

lllt '5 4D
1145 1t 7

0455 Lt

2671.1

JiJ704141 P

0100'+/+34 P

OLr S;j3

C< 1 S
ENA
S YI A

;10RfLIST LOA

iSbOU001

0 16 16

04352

2669

2b73
2G7Lj

53GUOtJOU

0!+551

AZJ,NE

266B

20000lif3 P

04542
J4543
OL.544

PHANTO!'1

I]1UU1271

rJ

01004427 P

1430lHlOU
SSQUOlJiJU

01300JOO
54100644 P
14S1?17(
5':)400000
Ob20UfJOQ

01U04553 P
5..5100000

53700000

15.:s0UOtJl
211LjOOb Ld

536UOOOO
01Ll045~)4

2617
2673
2679
2680
ZGBl

2Ed2
2t33
2684
2685
26136
2687
2688
2689
26'-30
2b 1

2G 2

2
:;J
~

3

INA

UJP
TAl

L£EXII

NlIST

QFOLL
NLIST

lISTLP1

RIS
UJP

ARITEOuT

RIS
UJP

CURQPNT,X2
BGNST;~NG

GET CURRENT QUEUE POINTER
GO MAKE LIST

0,:<3

ERROR RETURN

iJFIrWEX
~FHWE

aFHID

H1PURE,X3

13LOCKSL,X1
777778

HIPURE,2

QFINCEX
Xl

?
a

2
2699

27tH
21uJ;

P

2l' 0Li210:;

END FOUND - ~AKE NEW LIST
GET INDEX READY
ZERO OUTPUT LINE POINTER
GO CONTINUE LIST

1j.)P

UH

lDA
fNI
UJP

I"X2HtrtC
j

INDE~

a

FIX FOR NEXT SEND
GO ENPTY SCREEN
GET NUM8ER OF ELEMENTS DONE

X2
Q,Xl

Lt

27t]lZ

JUMP IF MORE TO DO

un

2695
26'16

2

lSEQNO
1

27L1U
P

202DOfJC'3

143U0001

2675

LISTLPl
NLIST
NEXT
VllH rEOUT

LENGTH OF MAGRO TABLE
r-1ASK
LOOK IN THE MONITOR
SEARCH FOR DEVICE
POINTER TO MACRO -1
DUt'1P Hno X3
POINT TO MACRO ADDRESS
GET MAGRO ADDRESS
MACRO ADDRESS TO X2
GET POINTER TO THE QUEUE
GOOD RETURN

()
()

o
()
.......

o

o
()

o
o
o
o
o
o
o
o
o

o
()
()

o
C)

o
o
o
o

I

(])

I

I ASSL1tlLEtUOS3
()

\l1~O

09/24/74

01+573 P

I

tJ 1t573

4/0U4712

J

OI..~j7Ir

SLd 0 OL.f16

() I

l]itS1S
DItS 7 6
0/+5/7

P

22401147 P

I

()

I
I

0

04600

U1t6Ul
o ~+ 6 U2
U'f6J:S

iJ 46:JI+

[lit6 OS

04606

uitO 07
0'+610

()

O!t611
oIt612

04613
[J it Slit

''1

\,......

0
0

04615

04616
J11-617
lJ Ito 20

U4621

o~t62 2

0;.623
0 /+024
[14625

04626

UIt6t.: 7

()

U4bJO

OLt 631

U LtG:) 2

046":;3
,r--.,
\ ....1

0
r)
,~

J4bJ4
U46,35

0'+036

UIto,) 7
oIt Sit 0
U4b 1+1
a lIb 4 2
Ui+6 L13
U4b l t4

U'+oCt5
iJ Lt6 1t6

C'-)

0

U4b47
046S(]
04651
U46'52
a it6':i3

'.::J

OLt!) iJ 0 [J i'.i

00371 :3

01001271 P
lt4002117 P
OU7fJ20S1
U.lUU LI1.36
01 U 0 if /3 b

PAGE

1901

271J7
27J8
270':3

£,:/11

2715

Ull?lj4555 P
010D4736 P

27i7

:'l
04bUO
U100
P
DU70 U51 P

1.1ll7lJ
3b
a10ll
!Ji U U 464 1•
UI00473·6
LHJODOf'46
D
037G i-t?
200IJUl l f
03?1J-465
~.{

210UO

4.1:;

21'24

2)125:

273U
27-~
Ii

au 37.1

-,

,J

~~ :f~

()

0

3 3,

2l' 37

0
0

,/

2[40

t~

"l Lf,1,

oLIf:}? 5

Oi.67&

UllO 7 7

0
0

Olt7UO
iJ i flU1
0 1-+702
U !.. 1i.l3

CHECK FOR COl'1MA

GET SECOND NUMBER

N N-ZERO NUMBER RETURNED
AllOW MOVE,!

FETS PCL!
FEr:::; p

iHiJ 71. .3

T

\:;:S OUT

c~~

:Q

j
"' a.."

~a40R.A.LT.Cl

A
R

T

OK

o
o
o
o
o
o
o
o
o
o
C)

P

p

;3

'i"1 V()

U

i4, S
D

2U.1DUl44 P

--2

ai~ 736

I;: OF{

A,Xi

-':-_,'-1, Xi
;~OS

5560JOOO
2U4lJll?Ll-5 P
4U4007 1+4 P
5S:JOOUUlJ
:3600U711-5 p
210U074 1+ l-'
5 I:) If 0 Uu 0 U
O?oOOUOl

4140071;4 P
204U0746 P
4 0 4 UiJ 7 LIS P
55000000

360U071+6 P

2'7

2

,3

27""14

2775
2776

2777

277B

277Y

2780

27(31

278.2
2783
2784

2713="

LDA,I
AEU
LD!-\ ,I
STA,I
RIS

seA

LOQ
,~()

S

{I,SG
STO , I

LDA.,I
ST f~ J I
RIS
SCA

L TO C

miE !~
tWE8
NVEA
1'1 v E8

STORE LOCATION
(A-i)

o

F

TH

0 l

B TO

(/),-:1)

PA

,IH

METERS

TO TE11P

(A·-1)

r1VEA

1

i"IVEA

I-IVEC
\fVEB

t'lVEC

o

o
o

MlH

iASSE~8LER/OS3

()
I
I

()

I

ULf7l1
U:+172
04773
OLI774

Oltl75

0'177 b

04777

()

O'j[JUO

OSOrJl

U5lJfJ2

OSOOS
0:) [J Ul.

0

051.JUS

OS006
U50J7

0

05010

U!
Vl.0 OJ/2417l.J 1901
01 7/1

44iJU2117
2201uG Ld

U4600073

~

P

UIOu12'-li') P
5 L4100416 P

00702051
010Ll12lJb
01005002
(JU70StJl1

,0
P
P
P

21tlU0611 P
1200U001
ll360.12 LfG P

30UU0622
4i;U04752.
44004712
0J.U04611

P

P

P

,G

U2150

3

r'A GL
2 t:\L~ 2
284 ;S
2 tlit Ii

PHANTOH

'52

l.3r-10'J E

~fl~

LACH
ASE
UJP
lDI
RTJ
UJP
UJP
RTJ
LOQ
SHA
AQJ,GE

2H45

28 Ltb
28 1+ 7

2848

284'-3
2<350

2851
2b52

2053
2B54

2855

2856

ADA
S:'-JA

28Sti

UJP

2857

SIHt

",F;~017
U 'j 020

U5016

05021
U3u22
U:} 023

3bOOG6S;) p
03101246 P

54100712 P
14577777
Obl0Ul13 P
010U1246 iJ
5,HtJUOOJ

01005011 P

286
21.161
2862
2863

286
2865
2866
2861
2868
0i

2d6(J
i~ 870

2871

28"12

2873

ROUTINE TO TA
caORESPONOI
BQNFIND

'!f.
>f

NAME OF A BATCH QUEUE AND FINO ITS

NUr18ER

0

IHFURE

24
13Ul;NKS

INERROR

24

BONA
777:7

U

Iv
A
B

A
Xl
R
FINO

ERROR IF > 4 CHARS
RESTORE A

0

LOOK FOR THE NAME
NOI FOUND
NUNBER TO A

0

A.NO R.ETURN

("""'

'-)

0

o

0

o

0

0
C)

0

o

0

()

0

o

()

()

0

o
o
o

0
0

0

G)

(!:

i
1

i ASS Ul iJ Lt: R/0 S::;
1

1

C)

1

1

()

1

1

°1
(") i
"

1

1

°1
(~)
'.

1

I

() I

05021+

DS02S

0 15026

05027
05030
01) 0.)1

0 13032

DS063
05034
050JS
05036

05037

OSDL.O
U '3 U L~ 1
U':Ju 1t2

US iJ 1.,.3
050 1t'+

Vi-O

PAGt:

tl502i~ P
2ZlJ1U6 Ld P
U4600073
U10012"-,6 P

54100416 P
47fJ02117 P
00701731.. P
U10J1246 P
20U00742 P
210006~n

p

tJ.3601246 P

5~7UOOO(j

5540UOOO
204U0636 P
55tJLJOUUi]

0450000ll

U1DOit12:j p

0100124b P

0215D 3

2875
Zi)76

2877
2818
287'3

ZBd U
2881

2882
2883

2884
2885
2836

2887

2888
2089
2 ,B::l (J
2891
28'92

PHi~NrOjVl

ELlU
U\CH
ASt:

-.-

LUI
STI

SAVEX1 7 Xl
FRCHK,O
E)(PEVAL
INEf~;~OR
EXP
USERMAX

UJP

fH J

UJP

LOA
lOG

AOJ,GE
TAl
ROS
LOA,I
RIS
J~SE
UJP
UJP

TEI~~CHR

CUt-1I"iA

INERI~OR

Il~ERROR

X$

PSA8LJ<
IJ

OUHP!~E
INEi~ROR

GET DELINETER
SEE IF COMMA FOLLOWS THE COMMAND
RESTORE INPUT BUFFER POINTER
SAY OCTAL CONVERSION
GO GET TERMINAL NUMBER
ERRONIOUS NUJ'1BER
GET THE TERMINAL NUMBER
GET THE MAXIMUM POSSIBLE USER NUM
NUMBER TO lI~RGE
TERMINAL NUMBER TO X3
GET PSA ADDRESS
SKIP IF NOT LOGGED IN

()

0
0
0
C)

0
(.)

I

01

0

I

O[

(j

1

()

I
1

0

°1

0

C)

0

o
o
o

I

0

0
I
I

01
o

o
o
o

I

0
0

0
0
0

I

0

_ _ _ ...L...-..-. _ _ _ _ _ _ _ _ _ , _ _ _ _ _ _ _ _ , _ , _ _ _ ,_ _ ,, _ _ ,_ _ _ _ _ , _ _ , _ _ _ _ _ _ , _ _ _ _ ._ _ _ .. _ . _ _ _ _ _ _ _ _ _ _ _ ._ _ , _ . _ _ _ _ _ ' _ ' . _.. _ . _ , _ _ _ . _ _ _ _ _ _ ,_.....---_', _ _ . _ _ _ . _ , _ _ _ _ .. _ _ _ _ . _ _ _ _ _ ._ _ _ _ _ _ _. _ . _ _ _ . _ _ _ _ _ _ _ _ _ _ _ _ .-: _ _ _ _ _ _ ._ _ _ _ _

CD

II

(])

I ASS Ei-Id LUV 0 S3

I

(}

o
o
o
()

I
I

I
I
I
I
I

I

I

()

o
o
o
o

P

22010bl+~

f.l

04600073

05051
03002

135U53
05U54

05055

050'j6
LlSUS?

05060
05061

U5U62

lJ5063
U:; (J;:j '+
J5065

05066
05067
05070
iJ 130 71

OSU13

05iJ74
U? 0 7 15
tJ5Cl16
IJ5Q77

051UO
US10l

aS1ll3

J51,J4

J5105

ll5106

()

oSlP. 0

LlS04l
05050

U51tJ7

o
o
o
o
o
o

01/2417 Lj.

44002111 P

U51U2

o

[J

0'50 Lt 5
OS UIt 5

(1)072

()

Vi.

J.lI0U1246 P

54100£,16 P
00702051 P
010U1246 P
111005lJ5b ?
007U5011 P

1 'j U1

P~\GE

PHANTOH

2 /j ·:34

LUU

-,FRCHK

28'16

LJ-\GH
~\ SE:

TEI:-+2

INERROR
TEMP

i

, I

A8l.E

ERR a R

GEl INPUT dUFFER POINTER
GO GET INFO
NOThING RETU~NEO - ERROR
NUKBER RETURNED
SYMEOl - SEE IF Q NAME
NOW LOCATION AFTER QTABlE IN A
GET COUNT OF BATCH QUEUES
INPUT NUMBER TO LARGE
SAVE FOR A 'rlHILE
GO GOUNT BATCH JOBS FROM THI2 QUE
GET THIS QUEUES POINTER
AOD THE MULTI fACTCR
.~DJUST

A
.A

iH005102 P
IHOO1246 CJ
310U0661 P

1.4b051111 P
4 1.001634 P

TEI'IP., X2

:;.

l.lSGOOU2.U

S5 i "UOUDO
344iJDb:!.L& P
5SQOOLlOIJ

INERROR
FETCHITN
INERROR
""'+2
3QNFINO
1
NBATCHQ
INERROR
TEMP
-24
RBJGNT

SAVEX1,Xl

P
P

iJ36U12 Lj.b
I+OODu661

COM~lA

SET DECIMAL RADIX
GET ENDING CHARACTER

LUE.

SAVE PO ISLE JOB COUNT
RESTORE IHE POINTER
GET THE EXT NUMBER
NOTHING ETURN
NU !~8ER
l URN
SYMBOL
TURN-ERROR
SKIP IF NUMBER TO BIG
NUMBER OK
INPUT ERROR - MUST 8E
WHAT WE AN 00 SUBTRACTED FROM WH
HANT AD 0 TO QTABlE HAKES ADJUST
.lUJJUST

ABLE

OORESS OF

A BJHCH
ONE NOW

TCH CHECK ROUTINE
EGK ON NEXT SEND

()

o
o
o
()

o
o
o
o

o
o

o
o
o
o
o
o
o

o

aj

I

(])

(I .

I
I

I

ASSEi'lULt:R/llSJ

()
()

0

I

29,,)2

P

2936

U5117

LdHOOUOG P
0250 S l1l1 P
lldOU14 Lj

;;~9L.l

0':>120

533000U(]

0:';112

05113
05114
lJ5.115

0'5116

u r:i121
05122
05123
05124
U5125
O~)

0

0

126

0 1:;127

1.l~)1;)0

05131
[]:';132

0

0
0
0

0

0
()

0

05172
05173
05174
1.15175

0
0
0

0

13UOOO06
43[.OUUOO

EilUOUU1

P

431.dJUDOl P

'::5400522

0

5S000000

2

OOuOO 1

5'J,+OOIJOlJ
Ul0lJ5150

15700001

15100012

510007U6 P

U4100UOU

L,3 I tl.l0 U 2:3 P

1510004 11

1::;3ll0002
iJS3UUOOO

iJ 5211

U5211 P
J51U1750
01005120 P
40305211 P

3002

(Jl001211 p

S008

052:L3
Ll52i4
05215

iJ:5215

U5217
05220

3005
3006
3007

143000 U U

:';U09

01005113 P

ADA
I N.D..

SHAG

[iVA

S(~Crl

3010

iJClP

o

X

2 -17

B

PEG
X2
t

BUF +9,:<1
BUFF+8,Xl
p
P+.1

QCCHI<

OUTBUFF+19,X1

UJP
EQU

ISG

UJP
STA
BCX3SV

ENA
S li~rA
UJP
ENI

UJP

GET QUEU NUMBER AGAIN
DIVIDE BY 2
PUT IN OUTPUT BUFFER
HIGH ORDER DIGIT
GET QUEUE POINTER AND MULTI COUNT
SAVE MULTI PROGRAM COUNTER
COUNTER TO ZERO

COMPUTE MULTI PROGRAMING FACTOR
ADJUST RESULT

DiD
OUTBUFF+20,X1

SQl:H

ENi~
S i~ ti

CHKSC

1
-2Lj

-24

INI
IN!
ISG
UJP

PLACE NAME INTO OUTPUT LINE

COUNT ACTUAL WAITING FILES
GET POINTER TO NEXT CONTROL BLOCK
CHECK INDIRECT BIT
GOOD POINTER, CONTINUE COUNTING
LEADING ZEROS
3 DIGIT NU!H3ER
POSITION OUTPUT INDEX
GO CONVERT NUMBER
CURRENT QUEUE TO A
NOW TO Q
GO COUNT RUNN G BATCH JOSS FROM
SAVE IN A GTH
TEMP

1

SHAQ
l~SE

:3 0 Ol,

P
4400 HJ3'<-2,Xl

GET CURRENT QUEUE

f:.

THIS COi'IHANO

:; 6

PH ANT 0,"1

~~~

CfJI

.3013

~.~

~.~~~~

...

~~~

..........

~

... ... .. ......
~~

~~

~

~.~~~.~.~

............ .
>;.

~Dli-f

::lOiS

3U16

:':;017

o

0':)221
0':)222

05223

05221 P

2000U003 P
P
P
[li.O 0 524.3 P

()

05224

L.OUOO661
3CliHJubUG

:JS226

14200000

o
o
o
o
o
o
o

ll5227

o

tJ5225

05230
052S1
iJS2J2

U5233
il5Z:14
052:3':>
tJ32J6

2:542535>0 P

!d40 0 0 G Ll

l~liJUOOl

P

OS 2 1, It

00245

0521.~6

IE;247

J52511

0 13251

(]52~jZ
Ulj2~3
0525 11-

05255
[]1~256

bOSTt

OU/O~.30i'

UiU05250
14605221
44001634
01001271

P
P
P

G1LlO':J(~,'$6

P

BSt\: ES, X2

lSI
UJP

4"'3

ENI

BSTCI<2

srI

EIU

lSI
UJP
A

p

i;)

I

G
P
I

P
P
[t4{}U1634 P

ENA

010U1271

l1J"p

SlU\

BSTC r

05256 P
lLt lOUU62

1)(JSfl6/+2'.J

052"12

6351

5

Xl..

U p

13

ENr

T

,

r

1I0lHl

GO

U 1. 5

EQU

ENf

LDI

p

LllOUS226 P

n

100-Lj';;:SSHESL,X1
TEMP t X2
X2

IN!
LUI
TIA

146052~J6

uSZt,i

SL-i,X2

'>'<-4

EN.~

L,72UU661

i54;~JOGi.')l

OUTBUFF,Xl
1,X

U,JP

051iJ:l75iJ

U52S7
U5260

Q,X2

j~LJ

P
01005242 P

10200000

lQCH

SQCH
11\11

0320GUUU

14200(]OU

U I) 2 !t3

BSTENT

lSlUlH1GD
?4ZIHlo61 p

05~42

S\~A

BATCHNUN
TEMP
NBATPSA
SSTCK2

tWA

Cb212 a
OQ!.l,]u u

START IN ROH 2
GET LOH ORDER BATCH TERM
SAVE IT FOR A 8IT
HIGHEST +1 NOW IN A
SAVE IN CHECK INSTRUCTION

50,Xl

STA

11lDU522'1 P

4l2(J5242 P

EUU
ENI

LDi4

1U200G63

05237
U I:;i 2i+ 0

Ll52id

8STAT

.14.LOOJoi.:

HRITE OUT PSA INFO FOR ALL BATCH JOBS RUNNING

IHLL

UE

1]

LP

30 9

f3S ES

fIX X2
CURRENT T MINAL TO A
SAVE X2 S HONT BE HIG
DUMP APPROPRIATE PSA STATUS
NOT LOGGED ON RETURN. NO PROBLEM
RESTORE X2
ARE WE DONE
DO THIS COMMAND OVER AGAIN
HRI
QUT THE SCREEN
P I
CREEN FULL
TIN
WITH STATUS LISTS
E T
INAL POINTER
FIX fOR NEXT CALL.
GO WRITE GUT FUll SCREEN
START

P,X2

I G
., - B

SKIP WHEN ALL MOVED
CONTINUE MV

Tf!

TH1E

RESTO
MOVE
RUNNING
T L BlKS

.,

.c.

AL POINTER
NO CONTINUE
I'JUL TIl
8 L riJBOUNDI

:;

()

o
o
o
o
()

o
o
o
o
C)

o
()

o
()

o

o
o

o
o
o
o
o
o
o

CD
OJ
()

(1)

I

I

I

I

ASSEdDLtR/l)~)S

IF> -3 iJ 7
dSS10
U':;311
US J12

oS:H3

U 5 31 (.
U5~a5

()
0

C)
()
-.~

0
()

3061

S S l~ 0 U U U lJ

OEd
3054
S065

L1 I0006b2

12UOOU17

05::521
05322

1:5UOUUU3
li'70UrJD7

0532,)

0:)324
OSd25
OS326

05327

05.330
U 5:)31

05332

05333

LlS3,:i4
U 5,) J 5

15100UQ1
Uco05j21 P

U5343

130UOOOb
4J i dl UUO 1 P

o5::l'?o

053S7
05:>60

0
0
C)

0
0

05361
O~)362
05~)cd

05.36 l t

05365

U5366
iJ'53G7
05370

0

0
0

5Sll0QUJU

2U400512 P

130"777 L.I

5111iJ07U7 P
130UOO;)O

142000U3

US413
05411+

15100006

0542iJ
U5421
U5422
U S It23

0

,~

0::; ldllf

0541D
05411
05412

11~6

0 [J U[} 1

JtliltJO

3

PS~~~;T05

U,JP
lOAtI
RIS
EQU
T

Q
1-1

312

J12
312l

GET NAME OF QUEUE

4-1,X2

6

OUTBUFF+l,Xi

1,Xl

Bl,Xl

UTMJEMAX,PSA

12

I

PURE,2
;~

5B

N

1\.8

,fa

f+-'1!;(2
C'
c::

(j:iJT B

1,Xl

F+2,X1

.tt_·3, X2

lDQ·, I

UTAPE AX,PSA

;.."" I. 7('''

SliQ

lH~Q

7?i:l
t:J

18UFF+3,Xl

INl
:ROS
LOA,I
RIS
SHAQ

-2:-

RF" (;:.

IJ

SG1CH

31

8QNAME,X2

SEl Eel, PS.I\

-rrn73

·.31
31
3
3,1

3130

146UU001

PSASTGl

(~SEtS

OOIUl1 Lt3 P

130/7741'

,I

"'.)'

.~

6-2it'-i

;~BCH

"T
nt

a~O

177LlUUn

OUTPUT TERMINAL NUMBER
GET PS,Q tI,DORESS
SEE
NOT
GET
GEl

SYSCOOE,PSA

lHlt\
.ENG,:tS
t1EQ

...

3"
:3
3

8:1"11(:3

7771'8
PS{iiST51J

'""
;;)

iJ il (li G

55 l tiJOlHJO

QS4lJ2

0:;;L+15

j,

31

TEHPtl,X3

ANA

>::::

?

43 LtOOOG3 t-'
i510 U[J:U:
55 LrUOODO

05 1+1.0

~3

:1

-'.<-LI,X2

NO

AlJ"EQ

31

1510D001

04511UDOd

f'.'
l"
S

d.l.

~~;

OUTBUFF,Xl

1,Xl

60 Xt

0"

1:.1[100006

01:13/7
05 l dJO
o':;iL! U1

lJ:3 L~ 17

0

P
P

oj

78

LO

.~UJ~:g

?

<)

'I

,)

::..~

PSASlliJ

3U':i~)

3Hlf.l:
31. £1t
31. i.l 2
~~ it):3

C)

-'.<-3,X2

3(;95
.j fV01
:5 fl:i H

142UOQ03

053"15
O::;Jrb

H

0 ;:,0

3!Ell,

5500DOOO
11:;; 36Lf p
5313t1;Jc'U

12 1.77771

Q

30a':l
~

PSAST
TEMF+l
24-9
2,X2

378
X2

::HldB

30'~3

53040 GU

21400526 Fi1
SSOUOlJU

uSI.~tlb
iJSL~07

n
:..J

30:11
:3 iJ ';) 2

"77~

05':';1:)
05'=;7 1+

0:;;405

'1

P

D2;S053ot. p

oSir U 3

OU030

P

055/1

05372

LDG
ROS
lDL,I
AlJ,EQ
lOtl"I
RIS

3U86
3DLll

20y,OOS2b P
12000014
i7SU i , (
U300
66 e

43 1fUl]OlJ2

LD!

3085

21tH] U74LJ P
5;;;400001)

[J100~i46;:)
2GL~OU557

3lJ7 IS

IJO

301:51

US346 P

145/7 77
OG20U 00

SKIP IF LOGGED IN
NOT LOGGED IN, RETURN F+l
SAVE THE PSA LOCATION
MOVE TO UPPER 9 BITS

ANQ
SQCH
INI

.5lJ82
3083
3[J54

blUOIJUl

I~

1

SHAi~

Ju79

14~ooa03

053 Lt7
115')50
OSi3St
05302
ll5:Ed
05.3':J 1t
OS;)55

QSG
UJP

3073
,307 L,

3i!.A
u .....t

UiJi"l75 1-'t

GET PSA ADDRESS

SHA

3U78

OJUJ546U P
ZOitOU476 ,0
SSIJOflOUO

PSA8LI<

[I'll

3071
3072

SAVE TERMINAL NUMBER IN X3

LOO?I
STO

3D?1

2/40U501 P

S;:;SJOLi6D
5410U572

066

SU75

SS400lHlU

~iJPURE

iUS

3US!

QUOaD U

UJP

TAL

FWS

~U68

543uu662 P
21000612 P

U 53£.6

PSAST

3U70

itJ4GUOUU P

r-)

PHJ\NTOi"l

3069

1l(lUOD37
5SbOGllOiJ
2iJ200/1..:i P

U0544

.~

P

05336
053,37
05340
00.5 Ctl
053[12

!57

,~

14200LJU2

U.:6iJS342

0

")Ub~

21[.0 0 [) ::; ti P
S5UOOOOLl
057UU001
UIU003U7 jJ

05::i17
05~~2U

PJ~Gc.

01ll0fJUDU
::';j(UUUUU

OS 3 L~ S

'-

I

IJ53iG

V1.U U13/24174 190i

o
o
o
o

o
o
o

I ASS E \"i i3 L EFU 0 S 3
I
I

Ll~i424

0 134215
lJi:5 It 2l)
II 5 1.27

I
I

I

() I

o
o
o
o
()

I
I
I
I
I

I
I
I

';iijOllUnOO
l i t2UUu03

JS4J2

146DiJOLJl
iJLl701:LLh)

Ll~J431

0:5433
i)54J4
Q!j43S

1]5436
1l'54J?
OS4'+lJ
tJ t) 4id

00442

LlS4,ct3
tJ5444
lJ l)Lp:l 5
054 1t6
Ll5't 1t7
iJ iJ it 50

tJ5ltSl
0:5 itS 2
U:5 1+'.5.3
lb4S4
U"'>4!35

09/21+171.,

513

PHANT Oi'i
RTJ
tNI
ROS
LOQ,I
IUS
£::1\1 I

Ei\jA

5500000iJ

RTJ
II'J I
ROS
LUQ,I
RIS

00701143 P

l::NA
rH,j

151tJOOOl
5S4tJIJOOU
214UO~dO

P

UEC8CO

CONVERT TO DECIMAL

6,Xl

TF8ll6

55000iJOiJ
2LlOOJ65l;J P

DEC8GD
I080UND,PSA
7,X2

i,X:1

1
PS.L\ST
PSAST

P

FIX RETURN FOR P+2
RETURN

i'1oCH

SKIP IVER BATCH NAME FIELD
PSA:)T5d

p

05466 P

OlOO536~

0

P

05'160 P
5S0tJOtJOlJ
151 U 0 8 Qit
ll10053'+tl P

01005:~6t*

DDLliEl

(j

DEC8CiJ

I::IH

lit 2 U 0 IJ Uit
14600001

l1Sl+~j6

llS4b?
05410

P/\GE

fJ

05463 P

o

1901

oU70 111d P
i'::>l11lJUOb
5S Ldi U 0 U u
21 1.UU'31S P

ll0430

uS46iJ

o

VLtJ

PSASI60

EQU
RIS
UJA

UJP

P

OSITE

o
o
o
o
o
o
o
o
C>

t~ST05

()

()

o

()

o
o

o
o
o
o

o

o
()

o

o

o
o
o

o

o

w

CD
I ASSE>IBLC:iVOS.3

()

()

:,)5471
05 1+12
Ij 54(3
(J

5 1.7 '+

0':5'-175

ll::>476

0

'-

0
0
()

C)
0

00477

05500

OS5tJ1
05502

OSSlJ3

0
C)
()

lJ215D

,:)

U1OO124f:: lJ
K)I+100LI16 P
LlU7UZU51 p
010012'~tb

P

J 19

21lJ01l611 P

14600UOO

~~ZG;_~

!J5522
055;23
OSIj2l~

05525
05527
055JO
05531
055;)2

05 13,34
05Sd5
055,37

05540
iJ5 j41
U5542
055 1.. 3
f

:J5044

05545

[) 5 5[,6
U55 Ltl

lJijS5D
05551
05552

05553
05554
05S:;it:)
OSS'??
lJ5560

05561
LlS562

U5563

400llLl7' l 13 P

1370DUG1

3ZiJ6

142UU002

32.11d

'-,3 P

3-2 [] 7!'

1'-IoUOOOO

U0101143 P

iS1QOOl1?
55 1100000
2530000:5
55lJO ClOUd
U070i20~}

GaODO i

P

INERROR
X3
SATCHQ
XJ
CURGPNT,X3
2,){1
[)

3209
:52:1. !J
3211
3212

GEeD
LLON
TBUFF+1,X1

,X ~.

3.2 t,$

32:1Eii
32:16

PACKAGT

3217
j,

aLE D

53,Xl

NLC,;Ci

i

0100551.5 P
lS;17

G1GD

NLC+.17,Xl

+17,Xl

lEi ill
~,

roe

'14,b05 51
44LJLli6s4 P
lliDU1,~i'1 P

200QO?

J, P
156QQU 1
DD? if? -"i niJ
01005
II to'

LL

BL )(T

S~~lOOUl1!J

,x ~)

lL!l.UUOO2

2" X 1.
l3LSr T
;;'C'f- 3

ill U!J

11;,6 U

15-;; P

r

0"

p

BLE,{T

440Q
34 P
0100
71. P
5Sl]OOOfHI

ND~\10V

DECIMAL CONVERSION
GET TERMINATING CHARACTER
SKIP IF APPROPRIATE
NOT COMMA - ERROR
RESTORE INPUT POINTER
GO GET QUEUE OF INTEREST
NOTHING RETURNED ER~OR
NUMBER RETURNED
IF SYMBOL SEE If NAME OF Q
GET THE NUMBER OF BATCH QUEUES
BAD QUEUE NUMBER
GET BEGINNING OF BATCH QUEUES
ACTUAL START IN X3
SAVE IN FOLLOW SUB-PROGRAM
START AT SCREEN TOP
SAY WE ARE ON ZERO FILE
GET CURRENT SEQUNECE NUMBER
SAVE NEti VALUE

1,X2

3214

J.51Uljv6?
5540UUOiJ
2D3QOlHlD
SJlOOIHI
5S00iJUUD
1200tJOG6
Ll:JZU556U
J5.10175D

COMMA
INEfJ3ATCHQ

~H97

1)5512

III Q 0 U "1

EQU
LACH
ASE
UJP
LDI

S v~A

it

32l.ld

00515
05516
05517
lJS S 2 0
05521

dLIsr

3195
3196

itl3ll4152 P

,)5513
OS51 t •

PHANTOH

J192
3193

120llUOOl

lLtlUOU02

3180
3186
3137

59

31tHl
;)18Y
31':Jo
31'31

01005502 P
U070SU11 P

O~::>11.

05556

0

318 (I

05510

U5536

0

2201.U6 Lf3 P
Q 1toOOU?3

USSOG
05507

Ll55U5

1)5533

0

lJS471 P
44lJ0211? e

O.:.ib0124b P
'5J7iJJiJOiJ
200U06Z,2 P
537 t dlQOU

lJ5504

05SZ6

0

PAGE

Xl

ITEOUT
G QPNT,X3

3 DIGIT SEQUENCE NUMBER
ZEROS
PUT IN OUTPUT BUFFER. AtO HERE
:j:.1:t
PUT IN BUFFER
POSITION FOR JOB NO~ CONVERSION
X3 POINTS TO CONTROL BLOCK WITH I
PUT IN OUTPUT BUFFER
MOVE TO NEXT LINE
LOOK AT POINT
TO NEXT BLOCK
PUT INTO AN I EX INCASE GOOD AOD
LOOK AT T E INfH GT BIT
BAD i~DDR£ s. EXI
SEE IFTH SCREE IS fULL
NOPE,. CON INUE LISTHIG
TRY NEXT
lUMN
SK.IP IF ,1\
COLUMNS USED
CONTINUE
NEXT CClUMN
VI)( TO
ST ON NEXT SEND
(tHlU
SEEN
GET {)
S D SO FAR
HE v~ N
T ERE
GO FOL
TO THIS POINT
131~lCH
GTH HAS CHANGED
FIX TH
START
N
CONTIN
START
SEND
SAY LEADING

\~RITE

o
o

o
()

o

o
o

e
o

o
o
o

OUT SCREEN

0

o
o
o

0

o

0

o

0

Q5 5 bl~
05':165

SLj3U Lt?52

(.}

t

01005511 P

8Gt,,8L

0

0
-----

------------

------------

GET CURRENT BATCH QUEUE
GO START LIST

G)
I ASSt::!'iE:lLER/03.5

Vl.il

09/24/(~

(])I

19i1l

......

P HAHTO,·j

PAGE
~
~~...

~.~

Jt.

THE Fe L L 0 IE i"l G TWO R0 U T:r NE S ARE TO SHU T THE CON SOL E UP
.:HEN IT IS COMPLAINING ABOUT SOMETHING THAT NEEDS OPERATOR
IN rEI~VtN [ION

I

() I

............................................................... .

:;.

I

01

1

°1
0

1
1

o
o

()
05S66
0~.i567

U5570
0557i
05512
05573

U!.5574

0:.557S
11':;516

us???

OSbOO

U1:)6111

()

US602

(JSGiJ3
0060 l t

0560S

o
o

()

05606

05560 P
5S4UJI]UO

:1UIET

EQU

20400465 P

ROS
LOA,l
ENQ

41 l +00465 P
55000GOU
34UU0606 P

RIS

14700UOO

05574 P

S10,1

t~UIET02

1 Lt·GU216 1• P
4i.tUOH)34 P

ass??

p

2UOO:ioU6 P

l l flUUuUlJ
410U:;:iGiJ,i p
5 5l~ U U [) lJ U
3440UI..65 P

55000000

010055"14 P
OOlJOOQUO

SGREMlTi'''!

RiJ.O

c:au

"i'

FREETE
NEXT

EN,~

S ~tD,

UJP

01U01271 P

RESTORE

~WI

U

A
Q
Q
S
U.JP

u

SCREAMfM
SGREM\

1E1'02

3CRi::A Mn! \iF LJ

GET NE 1,

SAVE THE VALUE
DONT REPEAT QUIET

rEOUT

SGREANHI
n,

O,I

S

SCREAM
o
SCREAM

SHUT UP THE CONSOLE
LOAD THE COUNT

RESTORE THE NOISE

o
o
o
o
o
o

GOTO .SKIP40

o

o
o

()

o

()

()

o

o

o

C)

()

o
o
o
o
o

()

o
()

()

o

CLI
[ASSEHilLER/uSj

()i
i

U'.56U7
0 1:5(;10

OSbl1

115612

05613

0561 1l-

()

o
o

o
(j

()

056Ei

21005641 P
0340565::>

aSGS!}
OSEd1

U0bJ2

050c)3

ST/~TGt.r

CNTL,I

0;)20562') P

AlJ,&GE
LOA
S1 1~
iN!

>;'-3
G,I\TH

mO'iORO

7.2L.U1142 P
IJlllU~527

l i t!'U001U

i-

20000641 P
'+llU013b2 P

141.10DuG P

JS635

250J564,3 P

!'~ 1!

SHA

12UUiJiJ02

'3353U062

U563S P

GATHGI+

TV'!
EQU

0:;636 P
L.SOUU1;)·3 P

G.tHHiJ5

UlAQ
EGU
SliHl
,)P

01.002164 P

lllUiJ152ii P

1 i +OOOOOO

Ui00565:~

o

GATHI0+1
GATH3U
STATNAHE
EQUIP,Xl
STATLUN
GATHZO,Xi
GATH18
2'3-AUBIT
GAThld
REWIND
STATlUN

72401L42 P

P

05634

05636
0':>637

LLQ

P

71 LfU1142

147UOOU 11

05624
05625
U5626
056Z7

"'H1PUHE

NUP
L 0 t\

LOAU
ENI
X!~EO, I
IJO
AZJ,LT
SHA
,1\ZJ,LT
ENG.
CNTL,I
UJP

~I

0:';622

lJ5o'Z3

EQU

AQJ,E()

P

2 S UU11. ittJ
1 1tiO(]uOi

0::,620
05621

osell 7

GATHH~

O':.i6[J7 P
1 Lt [J U U(] U U
2lJllOl:jb2 P

Di.:SJ5G53 P
033U5651 P
120000U6
03305651 jJ

u'?tJ16

51

1'301

V Lu

6J4b l j-2bU

SAn-Hi]

p

o
o

2321451'!·

IT

;;::4463145

';<+3

FWSF
srAfLUN
23-EOOBIT

STAT
OBUf,

62:, X1

""OUTSU
Ff';;EET

+91

M

JUMP IF ALREADY BEING DONE

()

TRY TO EQUIP STATISTIC LUN
JUt·IP IF C.~NNOT
JU~P IF FILE PROTECTED
OONtT GATHER IF FILE A/U
REWIND THE BEGGER
CHECK FOR EOO FIRST
PASS THE FILE MARKS
GO UNTIL EOO FOUNO
SET CODE TO HAP FEN
INITIALIZE BUFFER POSITION

o
o
o

PLACE
ADO A

SA
REET

IN eUFFER
M FOR COLOR

UJP

NOP
BCD
BCD
dCO

UJFI

fj
\,.."

o
o
()

o
UNEQUIP IT FOR GOOD MEASURE
C)

o
o
o
o

o

PlA
5~~

OS:

25005 47 P

QIj60 7

20DUUb2 P
21.lIU56
P

OSGS6

l)'jobO
U::ibbl

010U5 J

P

o

P

E)~<~?

O:)Li,u5,6

5~020Q~j2

LJ5666

1307/
14t) 1
704U

U5667

USb/O
U5671

lJ56f'2
U:3673

U5614

U5675

o

o'.;[) lb

o
o

US677

o

o

05701

c

i54·6?1?? P
O:10:]f.J6?O P

o

l~+YiJ

<7

OE1 f"
ST TLU,'J

it

67J P
UC2

1.t+i!lUUU2

714011 L!2 P
20005640 P
48

a lLL36 2

P

010U563:) P

25005701 P
0100':;635 P

TION
Tt-!

I'HUTE IT OUT

0G!4THtG

72ir llll!t2 f1

U5677 P

057DO

PLACE (DOING ITl ON THE SCREEN

~]

05662

05663
IJ 566 it
056;:)5

ON THE S

.¥-

P

05655

IGA!~tT]

'''1_ l,"
. i,\i
"

'
QUIP,X1

TLUN
THiU

"3

..,;'

.53<1·13
:3 J.4· 9

;:; 35 (J
335:1.

3352

J353
3354
3355
3356

ST{\

UJP

UGATH2D
DOi~E:'l

.SKIPlIO

EQU
UJAQ

UJP
BCD

r~rGET

TH04

GONEM

GATH05

2,DGNE

ENC WITH A FILE HARK
UNEQUIP THE THING
MAKE GATHERING STOP HAPPENING
TELL HIl'I ITS OK
TELL HIM ITS DONE ALREADY

o
o
o
o
o
o
o
o
o
o
o

i

al

IASScHdLER/os3

()

1

US703
I]

57 U1.1'

0')"105
05706
057V7
USTiO
rJS711

()

o

US712

OS713
0:571405715
05716
0'::;717

o
o

OS7::::0

05721
05122
OS723
057~4

057215

C)

05726
(] S 12"1

U5730
J0l31
057.32

o

() '5J!.t1
051 f-t2
OS 7 1,3
0'5744
0':; li+S

{) '3 71~6
US?il?

05750
OS?':i1
007::;2
05753
05754-

ANTOII

UitO fJ 0 0 I;)

XREQ
IJD
LOi

00371 :5

UICH
ASE

01005776 P
1I+200UUO

25000653 P

45002144 P
22401750 P

ll0372 0

OL+600ll37

OFLOOP

P

P
P

UJP
ENI
LJAQ
TAQ
ACH

SE
,j

Q 21A4

G

H

378
>"+2
airiNG

BLANK FILL PACK BUFFER
GET CHARACTER
SKIP IF SEND MARK
NO S£NO MARK
EXIT ON SEND MARK

lJXl
7'
{t ., A C
OFLOOP
¥..

SKIF IF DONE HIT NA
CONTINUE GEl CHARACT

IJEt';,!::

P

Ov~NCON

STA T S

L

T
ATUS,

[lOllO

55ZGOOQU

i4606J.d3 P

A
L
R
S

74QOQ[Jl;~

SS6DOODO
120UOJD,3
0:-%30

i6~7

Lf':,

I?Z

77

157U062
O':il[J OU1
OlL!!} 1?2 P

L'iiH!

i

l

I

lJ

NG

• READ NEXT BLOCK
ANE TO A
N THIS GROUP
OOi<.

C·H

1

ITEM

141 DODl

0+7,

45UOOGIJ4 P

05767"

25206475

05772
05773
05774
05775
05776

°1

.250,021, {fif:

OSlb5
USl56

I

1GB

P

06000

06001

26~H432S

06005

i-j;
~.j2G314'::;

?

P
P

P

f~CllLllllJOi
iD2011Lllll
[Jl00S716

-r

EUU

05756
05757

I

0

p;-j

O\:HJER

P

U<::501031.; P
':)41U0-415 P

l L,7tl062U

US7i+D

o
o
o
o

62

7.i.OOUU12

J51,SS

J5737

PAGE

141UUUO;)

O'j733

05736

09/24/74 1901

USIO;) P

200UollOS

120DlJD:J2
0,.5,)007/2

05"1,')4-

o

V1~il

~~

FOUND

o
o
o
o
o

o
o
o

I

ASS E :'18Ll R / 0 S 3

VLU

I
I

I
I

()

I

o

I

I

o
()

()

o
()

o
o

(JoJ07
Of)U10

iJ6Ul1
lJb012
UblJ13

86014
JbiH5

J61115
06017
UOO20

06U21

I

u6Ll22
06D2J

I

JoO~~4

0602:5

I

OGU26

I

06030
JbOJl

I
I

I

fl;:JU27

Oi~OJ2

ub033
QC)u54
060:)15
000,36
U6lL17

060'+0
U6041

060 1+2

OOO~3
U6 UIt't

J;')

0 1.. S

06U46

o
o
o
o
()

IJ

22UI064·j P
OL,6UUU73

Oli70GLr .:l2 P
OU·/Ob471 P
lL,tJUuOOO
UU7U645 L, P
lL,lUtJdll3
2:;000657 p

00057

U6061

00062

06063
U6iJb4

P

2S000651 P
IlOlHiOO!

02506143 P
l Li-bUOO75

42iJuUUUtl Cl
4,iOOi7 l fi' P
j

1460UOOO P

22\JOiJOUU P
04·60UU37
GHHlbl[JO
7i.lOUD2

22 Ldll?50 P
Q

iUQ(JUtj5~'l

SAVE,1= MESSAGE
TROUBLE, - SPLIT
TROUBLE., SPLIT

Q

1J
'-

,:)

4

i

;H=CHK

'')

Q
Q

:.5

::i
b
,

.'H

..,,!

3

SCREENLC-~

H

f
L

(.;U U

F

[l

.;$!t6l
~Y
8r,
3
"::!
3~

0037'2

G

UI

;j{Yi~i

T3

i1ii.iUUGlJ

"_
"

IE P

2';lUJU661 P

D

GbUlU

G6100

:14iOOJOll

P

1 1.20UuOU

F
P
P

53211UOOU

o

U6111
'J6112
06113
06114
U6115
(Jol1S
06120
ub121

Ul00613iJ P

15bOOJ03

1510lJOO1

N~~TSC;R

DUGOD

(j

U641'3

0

P

061117
OE,110

lJ470UOOO
76000;J01
040DOOOO

N

i

22 1ftJOOOO P
Ul. f) 0 UU;) 6

L:;071745
:1 it 6 06473

c)

o

WRITE OUT EMPTY SCREEN FOR INPUT

TYPEO IN
IRST CH;:'\RACTER
!) MfH~K
00 THIS
- NCT END
WRITE FILE MARK ON MESSAGE UNIT
a~ AT NEXT
ARAC
E IF' A PLUS IGN
PE - SPLIT
FILE PROTECT THE MESSAGE fILE
AD M
T sa
IP I

UNECUIP THE MESSAGE FILE
GET PHANTOMS JOB NO.
RESTor~E

5S00UOOll

[11006123
1'+ 6000 (j 0
42.4-S2,s54
1.. 2 l t.32,355
l;2432356

RFP, MESSAGE
SPLIT IF TROUBLE
GET BLOTCH
BEGINNING
AND END OF SCREEN

o

o
o
C)

o

?10UUGOt

01[HlHi3~

061.17

Q

o

I.)

o

o
o

2,Xi
NFCHK
BCOFILE
QlJIP,X1

f'•.

llbU77

U6:1U6

SPMESS
i

CHECK TERMINATING CHARACTER FOR C
SKIP IF COMMA TERMINATING CHARACT
RESTORE INPUT BUFFER POINTER
GO DECODE THE JOB NUMBER INPUT
SEE IF IT EXISTS IN USER DIRECTOR
TEMPORARY FIX - REMOVE LATER
GO CHANGE PHANTOMS JOB NUMGER
EQUIP CODE TO Xi
BCD t MESSAGEt FILE NAME
TRY TO EQUIP THE MESSAGE FILE
SKIP ONLY IF NAME NOT FOUND
CIiECK FURTHER
NAME NOT FOUND ERROR
EQUIP,1=FILE

P

50400UOO
1j. I:) Lt Q QIi· ::P:'; r"

iJ61U4
00105

o

GJOBNO
UDIGET
[j
CHPHJNO
EOUIP,Xl

bGbS

UGlil4
06075

U61U1
06102
06103

RTJ
NOP
RTJ
ENI
LOAQ
XREQ
1SE
UJP
LDAQ

0 6UOO2iJ

n

4ll100QO
Di:SIJ 6

00076

.)

UOlJuGl

5410U41.6 P

lJi)Jul
DGlllO

U60/i

Ui371

SAljEX1,Xl

I~TJ

i41ll03l2

J6Q65

Ll60!2
U6U73

DUUDl] 0

TER IJ,CHR
COMi~l\
INEI~R01~

9

3
3
.J

3

.,-

147110312
76IJOO1Lj·tf

1 (JQ(j5
7iOUUfHJ1.
1410U:ll"':1.

06066

.~

P

74iJOD14i~

051353

UJP

3 LI4
c::;J
J
3 4,6
7
.3
•
:1
d

;:;"

Sf.

UJl

3 1+43

P

EQU
LACH
~\

3441
6442

P

U6051

06054
U6uS:j
06056

I'IES:'>AGE

3440

041UOU02

1 1t 1 0 U 0 0 'i

U

3439

UI00biJ;Jli P
25000652 IJ
141UUGl13

20U00657
141000111
71000U01
U2500143
01006041
025061.43

3l~3

PHAiHOH

JL;.:iG
3 l f37
;:;!.. :1 tl

110UOU01

lliJOGIJUi

~)tt2'~

63

3431
;:; L~:3 2
3433
3434
3435

010U12'.. 1:,) P

1.46UlJJQU ,0

lJ60i~)2

0215ll J

::;410U 1..16 ,p

060L.?
U60S0

UGU60

()

U6fJOl

PAGE

0-)/24/71.' 1901

06L~73 1
06473 2

E
E

NEXTlI
EN
i'jNEXTC R LA H
AS
UJP
LINEEND ENA
SACH
SACH
SACH
IIA
INA

e

D,Xl
O,X2
OUTSUFF,Xl

T \lGI~
NOCR
6fJ!3

BIG8UF,X2
BIG8UF+l,X2
8IGBUF+2,X2

c')
GET CHARACTE,:(

SKIP IF A CARRIAGE RETURN
NOPE
I3LANK fILL

()

C)

X2
;)

·-26

4 CHARACTERS/WORD

QSt:

o

OONTWRITE OUT NOTHING
WRITE OUT LINE ON MESSAGE FILE
SKIP IF NO SEND
.

BIGBUF

14R I IE

1

11'11

NEvlSC
1,Xl

ISE
,UJP

o

GGO D- FJY

S H t~ Q

ENA

TEXTE

T

IT

()

IMPURE,O

o
o

LOOK AT NEXT CHAR.

o

a~

IIASSE~dL[R/OS3
OS12(~

,1;)

~

1

~61~J
06124

1

n.
\..!II

0

I

06125
U6126

06127

1

J 6L>0
061.31

061:';2

()

()
()

o
o
()

o
()

o
o

06133
G6131+

06135
Ob136

U61.;7

0614U
06141
06142

Vl~O

PAGL

lllUU6101 P
U46UUUji

350d

01006127 P

JSllJ

U10U61U2 P
14600U01
010l!GL~5 P

ZOOuub5,:$ P

1410U371
4U10U[)00 P
UIUObiJ Ld

351.5

3516
3517
3S18
3519
3S20
3521
522

NOSENO

SACH
INI

lSI
UJP
ENA
UJP
NOise

4lJ1ULlllUU P
G25U6144 P

20106150 P

~

!J

I

p
[''lESEXT
~5

1.

Z

0000.3

NEXTLII'JE
rVSEND

I~OSEN:J

TEXTE
LINEENO
BIGBUF,X2
1,X2
SGREENLC-1,Xl
HNEXTCHR
1
SENOZ
BLANKS
S REENL'-i, X1
T8UFF,Xl
-1, l-

EXT

!'IWRI

fJ

FT

S

51...

SET TEXT END FLAG
SAVE CHARACTER
SEE IF ALL SCREEN READ

BLANK FILL ALL OUT8UFF
SAY NO SEND CONFRONTED
WRITE AND READ NEXT SCREEN

EQU

BCD

EQU

OUTPUT FILE TROUBLE MESSAGE
EXIT
3,FILE TROUBLE
>';'-FH!ES

o

SAY END OF SCREEN

ENI
LOA
UJP

Fl

SKIP IF SEND CHARACTER

,):.~

~iT A
11oJO

010U6071 P

26314325

LOA'r
.4

P

fJ 6 i!t5

05.150

[J

SENJZ

UJP
iQU
S\·iA
UJP

4/0llbi17 P
fJ61l-f:3 P
1£+100IJ02

UGIL~6
iJ 51 It 7

06473

AS!:

U2S0LIJl P

U61 1t3

U611+4

0511
3512
351.5
3514

I'

424.52-554 P
15<::OU1]01
1U1U11 L.7

UJP

35UY

Ob.1Z5 P
It40Ubl1i' P
I.hUOtd.O::i

PH ANTOi1

o
o
o
o
o
o
o
o
o

()

C)

o

o

o
o

()

''''~,t

()

o

o
o

o
o
o
o
o

a)

I

!~

I ASS E I III L E /0 S 3

()

oij103
b:L5'+
06i'-?5
(j

()

0
0
0

(J6156

OblS7

0

06153 P

2201Ub Lt3 P
uLt·6UUU?3
01001246 p

5 Lll0U 1t1b P
QU1D6 i t32

P

00706 1171 P

U6162

OU!U6 LI'3 li ?

ub:Lb4

2'500U657 P
1 L!100U03

DGlb7

U 2 5 061 1tJ P
11.71 0 0 U elil
2S0fJlJoSl p
710UUlHll

061b1
06163

U6165
06166
U6170
06171

06172

Ub173
U6171+

U6176
06177
Ob200

06281
06202
06203

0620 If

()

(j

!Jo160

Obl(~)

0

V J. • (j

06205

iLtOUUUUO

710UOOOl

14100UOO

2500U657 P

7.lUdOUUi
14-10U002

'3 / 2 Lr J 7 4 1 9 0 i
0215U

·3

P AGE
3S3':3
3S I , U

-.-

TCRt'CHR

3~)S2

IJ

COMI'1A
INERj:WR
SA\lEX.1,Xl
GJG8NO
UDIGET
o
CHPHJNO
SPt1ES:';
EqUIP, ;<1
1
HESEXl,Xl

EN

RF p, Xl

3553
3554
3555
35So

LfJ

SPHESS

t\ SE

3 S!~4
35 1.5
3S IdJ
354"1

i-i:T J

:1549

ENI

:5542
-3?!d

"354B

35 15 G

3551

UJP
LOI

RTJ

i~OP

iHJ
LOIH,l

XR Cl

)(

E

l

35Se

X
E

3561

L
ROS

35:J"l

3t:}59
356U

'+ 5 lil) UIf :3 5 P
55000000
20000651 P

~~)~~6

4000(JUUD P
0.10iJ127i P

DHESSAGE cQU
LACH

35'+1

71U00001
250U0661 P

S54QUOUO

G5

2
356,)
J5i}4
jljb'?
'::;~i66

X

i
DELETE

TRY TO REMOVE FILE PROTECT
t)(1

SPI1ESS

UNECHJIP, Xi
1

TEMP

STACh I

RIS

LliA
STA

UJP

CHECK FOR A COMMA
GET POINTER TO JOB NO.
GO GET THE JOB NUMBER
SEE IF ACTUALLY EXISTS
TEMP FIX - REMOVE LATER
CHANGE PHANTOMS JOB NUMBER
BCD FOR SPACE MESSAGE t MESSAGEt
EQUIP GOOE TO Xl
TRY TO EQUIP ~ MESSAGEt TO LUN 1
JUMP IF ANY PROBLEMS

ONE
U UFF
ITEOUT

o
o

o

TRY TO DELETE THE FILE
TRY TO UN UIP THE FILE
GET PHANT S PREVIOUS JOB NUMBER
RESTORE PHANTOMS JOB NUMBER
SAY THE DEED WAS DONE FOR OPERATO
GO WRITE OUT THE SCREEN

o

()

C)

o
o

0

()

r)

0

o
o

0

o

0

o
o
o

(J

\......

0
0
0
0

o

0

o
.

------------------------------------------_._-_.'---"-,--.-~,,-.- --.--.-,----,----.---.------,-,-.--"'----.--,--,-.--,,--.--.----,----.~=--~.,-.-------,

..

GI
I ASS Etvl t3 L t:: ru 0 SJ
C)

1

<)

I
1

()

1

I
(')

1

1

Ob~12

OG21:)
Ob214
06215
Ub2LG
0621.7

062:20

0622:1

OG224
- ,., :> ,_

~')

06226

I

06227
06230

1

Ob2,:a

1

I
I
I

I

() i
1

01

I

°1
C)
()

o
o
o

o
()

o

471u6263 P

4400b273 P

iLl-GOOGOl
12100001l

FRSCENO,X1
FRCI\T

AZJ,EQ

FRSCENOX

SHA

FRSG2 i i
i
D,Xl

,~

S\>Ul,

44UU627? P

Ot Xl

STI
ROS
LOA,I
tHA
SHA
SWA
ENA

146u;;777
1217 llbS

>t-

EOU

ins
RI

5SLlOOUOO
Q30U6.J7Ll P

1

15100000
47106264, P
IJS4thJU U LJ

FRSGIJ4

20100000

s

37770
-10,Xi

DOES THIS SIZE EXIST
JUMP IF NOT
FORM THE MASK FOR ADDRESS CHECKIN

FRSC26

FORM T
CHECKI

FRSC05

S3StlOtJOD
(J6231 P

FRSCfJ8

2D1UOOOO

·176n777

06233

4l.J1UutJ[IU

06235
Oll236

06237
06240
06241

U ~-) 2 11,2
062 /13

062 1t4
a62 LIS

Jb246
U6247
06250

06201
062':;)2

i3iJUfHl31J

INCREMENT FOR ADDRESS

Lll[J0626u P
01006251 P
03?Ub2S1 P

01(JU6240 P

06260
06261

lJ62b2

0510
U100
0100

06203

i!+1UUQQU

06270
06211
06272
06273

l LdUO

G

L}

,~·7

20300UOU
030U6366 P

S2,;6UiJGOO
176tlOQuO

03106266 P

OfJ3UO

362;]OUOO
!J4. t,) iJ 0 (} 0 (}

O:SOOEd6b P
lS600uOU

Ul(}UbZ66 P
Z02UDODJ
S3()UUOOO

ob3 U6

20200000
21300000

(] E),51 0
06311

lLf417775
JLfLfU0462 P

06307

BLOCK ADDRESS TO

o

U
JI

fF<

i) SG

FH

as

(g)

ANY T

IF T E

in

THE CHAIN
PAGE

SKIP IF REFERENCE BLOCK IS ON AN
ARRAY PAGE
JUMF IF WE WANT TO HOVE
LOOK AT THE NEXT BlO
L ASSGCIATE
MOVE THE BLOCKS AND

L~030000[J

7!

tJ

I

U

f.'

,-,,

~,

C

L.{)

FRSC22
363U
3631

3632
6.633
3634
,3 63:)
3b36
3637
3638
363'3
3640
3 (, L. 1
3642
3643
:3 64 1,
3 blt 5
064b

Fr~SG26

o
o
o
o
o
C)

E.ND
:1,.9

[llDO
70 P
203UU 00
53100lJOtJ
ll6270 P

2(J300UUll

OG3U1
lJb302
06303
Ofd04

SHt\Q

,p

00

Ob274
06275
U 6276

06277

o

QiJ

5JGOOiHlU

iJ

06266

GET THE NEXT BLOCK ADDRESS
SAVE JUST THE ADDRESS PART

~~

01006237 P
06251 P
4U1U GOU

06255
06,256

Ob2fj7

LOf~
ANA
S T ,!\

TJH

FRSCOB
o,:u
Xi
-l;c

537UOJUU

,~l!2(JOOOO

06264
06265

SAVE THE FRPNT POINTER

If 0

D5{UDI](J!j

o
o
()

fRSGi2

LlJOU
27 P
05GOGIJOL!

()

LOAD THE NEXT POINTER

L 0/.\

Ff..~SG10

06237 P
2U3LlULlUll
1767
77

Lt12{lGDGO
4LL30vtlDiJ
"21i-UOOCiO

~i2ij7

STI
UJP

AlJ,EO
TAl

03 UU6263 P
537UUUOU

OG2~.d

Ll6254

11'11
ROS

U1006231 P

062~)2

06305

()

FRSCOl

55LI-OUOOU
20 it U U I! b 2 P

00210

U6234

C)

})

062i1

O0"-

()

iJb;~07

S5000UOll

ENI

1

I

(J

FREES TO,( Equ

0,)2U7

O~,_L.

0

I)

141dOUiJU

06221
O"?)">
()

u620c

062U6

1

PHAHfUil

66

'J1. U

TA

EQ
L

A ,EO
TAl
ANA
AZJ,NE
LOA
AZJ,EQ
I t4A

seA

ASE
UJP
lUA
TAl
LDA
LOQ
STA
ENA,S
I~AD,I

O,X3
FRSCENDY
2
URE
0,

C20
:3

FRSCENDY

H1PURE

O,X2

a

FRSC20
1l,X2

X2

ENTER POINTER TO FRPNT
GET T
NE T ELEMENT

o

o
JUMP IF THE END OF THE CHAIN
ADDRESS
IS THI
GOOD ADDRESS
COMPUTE THE NEXT ADDRESS
JUMP IF DONE
IS IT THE RIGHT ONE
JU11P IF NO GOOD
REMOVE THE BLOCKS
SAVE T

o
o
()

O,X2

lJ,X3

O"X3
-2
FRCNT

o
FIX THE GOUNT

0

IASSE~BLlR/O~J

G)

1

1

C}

1

1

('

1

.....)I

(J.
~

C-)-

U6314
U6315
OS:H6

o6 3 1 7
U6320
06321

Uit 1 U I) I) 1. 2.

JlilUD3~~

12200000
354UU454 P

3651
3602
.3653
3654
36':55

54JOUJU6

I

14EiOlJ023

3661
3662

025U6J27 P
14!OD774

3665

It 5 1

1

06333

1

1

1

06335
iJbnS

141063 L,0 P

U6 ,) 't 0

1 ;) 0 (J l\ 0 2 fi

U6337

06341

OUOOUOOO

5360UOQU. :

063L,2

06343

14bOGUI]O
4040U630 P

J6344

Lt

J6 ,~ if '3
0 f:) :)1+ [)

n-"

J 0 0 2 :.3
1U500000

7JODD06

S Si 0 a 0 0 0 0

iH 0 0 1 27 1 P

SSA~1

HD;'ARRAY

lOI

lDAQ

NEM23.,Xl

A

RIS

5663
36b4

STAQ

I~OS

SET THE BIT IN THE SYSTEM
CHANGE THE INTERRUPT LeCATION
SAVE THE CONTENTS OF HORD 6
SO WE CAN EXECUTE THE APF
MOVE THE STUFF INTO 23

ISD
IJO
ENQ
EHI

SET PAGE FILE TO NON EXISTANT

TAl
ENA

FA

3b68
;3669
c361Ll

rllf
SHAQ

3612
3673
36? i,

SIA

SIX
RIS

,r

PA

a

P,ll,GET
iJ(}[Hl6

t

J6l6

T f
ST

R TO X2
USE THE PAGE

o
o

o
o
o
o

()

()

o
o

o63 ft?

36351
J6352

71oS4tJOU
i S [J 0 U \) 3 IJ
77644000
776jOHQO

U6354

OllGOOOO

J6550

06353

32
Q

00;)06
I'·:: i?
,,

T

1

iJ6J~)6

CU4
G i4

IJ63'37
Ubs60
iJ 6361
U63,:)2
06::;6:3
0630 lt

o
o

01

05366
06367
OEd70

5S00Q(JUU
ij l +lUG263 P

U6372

010012/1 P

06371
1

01

POINT
PUT IH

TH

8LO

Xl BLOCK SIZE

101001liZ

UillDG201 p

F SGEN Y 1,~"L0
LDI
FF417
U642ll
i.l 0 L. 21
UfA22

OoLfe;)

14100006

,Xl

4IJIUOOUU P

F,X1

Ui0012lt p

U1

U2506 l ,17 P

ee

d
B

41 i t62240

noao

U
NME

IE

06432

06435
06'*::;6

o()id 7

o
o
o

0644·3

o64!fl,

CK TO SEE IFA LETTER

!v!P IF NCT
1~31l'l77';;:]

l(I(1j,i

lJOlU2[J'il P
OlD il 12 1+ 6 ;.J
010061.;52
4UUD lS
Q 1 U U i.~-:3

G

IJG45S

II

C
:;

1

u6'-I·60

~:;iS4U

\j' f~,L

r'

'~-4

;)
~J

76 n

o
o

06465
llb466

P

06470

01Uu 6L~5lt P

3769

o

lJb411

J 04':>2
o6 i t6 3
Ol')[.oLt

06467

550U

OllOO

au 00

p
p

P

:.3

p-

ROS

I~C

r

IM~TER
r" "_~
U .~

NlH1E?-.lct';L 'J
S A\I E. VA LID I J

G,j"J

3761
3762
3763
3Y64
3765
3765
3767

06461

T,·r'

NCThIf'lG'~ET

",)1

Si3 I'D UlJO (J

i.\T

lir "v f~ II DrT

.,

UOdDd
20034
777Gb

06 l .S6

06457

C)

R

(] 64(,6

o6 1t:;4

ERROR

ROR

lJ64 LI7

OF)L,Sl
06452
UG4:i3

o

U215G

254U04.:>5
550 0 !J il 0 II
Lt5UQU661
25000750
'3:5 1+ 0 ODOU
45408'435

o

TUi- ~}

oU54!1 P

531

BUSTL
BQ ~\ 111\ tl E

BQN02

0556iJP

04J71P

DllG?5
iJ551SP

Ott/lIP

i

A

i)Olif.·~P

O::HJfJ2P
321 9

~)

3ff77 G
:1.555 tl

27P

l4P

1688 02662P

1726 02704P

IJ0327P

820 ul·345P

1357+3 02264P

p
P
p

2631 04465P

p

272 n0161P

39tl

0
1583 02547P

12

3Hl4
88

2'573
42

3205
281.f2

2792

00266P

352

00276P

0
0

0

3034
403

361

0
";;!

-~.;-

'7

... ;; +J I

OO;~5·0fJ

1.94,8 D3161P

U551i.j·P

2 iti]

tJ411ZP
052:.i6P

003i;2P

0
0

c:'"'

1
1.

1003
2696
529

Ui1 0 VE
BO!4,-

BIT2322

0

P ~\ GE

O.5iSHP

UGi\IS TRNG

0

Oulll
OUU21

B!~ DJ08i~O

BAfCHNUH

I

0<) 1 21j. 174 19U3

U.:>11UP

AU!:.nr

I

U

ACC8UFf
I~CCj~UH
'J-

CD
Vi.

05540

S5

[!1-t Zit

li

G1G?
1455 0240
lUll 0157 P
62.4

332 0024 1tP
331 ilO243P
2503 04245P
.2502 04244P
1373 02303P
3226 05542P
625 01100P
2708 U457JP
:3 oitS 05251P
J79 OU316P
370 00306P
350 OOZo5P

4

1083 O16b1P

2865 05013P

37 l t D0311P

762 01275P
3358 05714P

34"17

Go06oP

1679 G2651P

1881 030 li5P

2~j4 (l

04311P

1220 02072P
3522 06135P

0
0

1487 1.12t,.3GP
1042 Dia20P

1051 01636P

2511 Q4254P

2701 04566P

0

3239 05'?5?P

0

2693 04556P
3456 06041P
3229

05545P

2857 05007P
38.1 00320P

0
0

i

a;

c}) I
i

i ASS E (.. j Ll L E R /0 S J
(J)

I
I

()

I
I

() I
I

()

()

I
I
I

0

I
I

0

II

(J

0
0
0
,--,

l,.J

()

0

UU:'lU3P
(JUJUSP

LlWl15

00322P

dQN J\i1 E

383

OIJ712P

574

lJSi1E3

U'j272P

t3;:;i''1ESL
8S Til

r

8:;; TGK2

BS rCi·IT
DSTENT

13X33VE

CALBAK
CALLJACi<
C~\Lli::l.A 0
CI\LL!3ASV
CI'!..LLdGOT

05dl1P

(~d 5 3
~) o? H

nOlliS

3U59

052:21P

3020

052 1t3P

3039
3051

O'j255P

IJfj226P

Oldo7P
lllllJU4
1J1716P

01660P

3026
2571
1.9

iD(jS

10 a 0

U1612F

1092

Cl\LLUL

00012

107a

CII.LU3QSV
CALLBTH

o17fJl-t P

1.ng'3
1.079

CA ;H,IO

OS645P

cUP

Lll.3:j,3P

0164GP

CHAROUT
CHAROUTX

00003
04026P
[Pt iJ 2 7 P

CH Ki~>.JJ

U416SP

2·43 J

O
2 J+92

2536

P

2

2.
01,
c

05133P

2164 0346SP
2492 04357P
2981 05165P

3244
2174
2611
2989

o3 l f46P

I] 4:~47P

~~2

0 0 05510P

0

055€4P
03477P
04441P
05.175P

0

2129 03 l f22P

2Ht6

O::5443P

2161 03Lj62P

2168 03471P

2143 Q34!.. OP
2165 (] ,)466P
2i93 03522P

2151 03450P
2167 03470P

215 11 03453P
2176 l13S01P

2183

0

22(H 03663P

2316 O':HD3P
3154 05442P

23213 03?1?P
3210 05522P

2975 05157P

3130 05412P

3147 05433P

0

1447 02374P
1823 !J3lJ15P
1620 02605P
25U5 0424TP

1482 02431P
1878 03042P
1633 02617P

1485 D2435P

1742 02717P

1749 02726P

1649 02b33P

1966 03203P

2575 04373P

4

J.

Ll
U

2719

71 ;] 3'0; 3~) p

211.d)

2·l2fl 03420P
2160 0346LP
2191 0352 (J 1'J
647

2414

0

U3f.i35P

Oi154P

219?

Q 35Z J+P

2201

2156 03455P
03510P

03532P

0
0

04143?

2423 04153P

2448 042U4P

2450 04206P

0

()

0

_ _ _ _ ••

_ _ _ _ _ ~_~ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ~ _ _ • _ _ _ _ _ _ _ _ o

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

__.'-_._. __._._------,_._.-,-,--,---_._,-,---_._-_._---,,-,--,,----...---.-._. __ __ ,----.•
.

.•

a::

!

I ASSE!~8lc.Y/OS0

rt]
'-..J

lJNE)(T
00 HI':;r T
OO:~ lL E T

OONc.i'l
OOilltTX

()

00 ~'IN 0 0
,)0 \.jj'-J 0 5

OO'tJlHU

Q

OJ~iNG
00 \1l~1'1

T

DOvll'l;H 10

mUV::;POT

DUMPI::NTK
OUi'IP I T

()

DUI'1P ..1E

O'JLP
EilAD

0

ENOUl:lUF
HlOQPT

0
()

>;.

EN I r
E;'j Ti~ '( L
EOlJOIT
EOFBIT
EPP
EQJH'
ERHES
E!~14t::::;L

0

0
0
r-,

\"'J

0

FEEXT
FETOl

FETCHITl'1

73

,sJIY

U':':U1t'tP

1197
1939
1956
19c5

US701P

O:H51P
O.:5171P

U2i~.j4P

D,'i1S0P

O,:i2U7P

03215P
00704

Oi-ti27P
Ql t115P

U!·tl25P

oIt 2 5 3P
o (HliO

10 it I:; 4 P
04722P

GOU12

3~Ei5

l':jj7

.1974
.1981
2357
2l~ 0 2
2389
2399
25Hl
26
:5 713·4

23DO

28

UOOG3

3792

00006

gG
18

OOiJ25
OQJ2 1..

54
5<:'-'

OJUll3

O125SP
ODU03
Ol7/4P
01776P

EXPTERi'1
FAI(t:CGI
Fn

2t~

u,:;

.1198

U2U

E,{/:JAUD

EXfJANO

t g

1j5F

030Z3i J

EXi:JCiHi'lQ
Et'{PO I V
EXP£VAL
EXerlULT
EX PI\).:;.

0
0

0

FI:(SIZ
FU\G::>
FU\SH
FU\SHGNT
Fli\SHFLG

FLEL_P

Fl'lEX r
Fi'lNf3U<
FI~ rF :1E S
Fi,j fF:'IESL

.~_

02115P
02136P
ol,bjl! P
OLtb33P
01S;~OP

UUOOn
OOS37P

o126 i tP

QU741P

DL1LltlP

U2015P
02131P

1J2U62P

FOi{f'ICONO
F () Rt'i S II Rjj

ObOO1P
QOOU4
04 /- j01P
00U16

FP

DODOS

FK,l\[JIX

0

Q?
·,\7?O
......... L."
i

U2147P

8':t12UP
?b'::>5P
1235 02111P
,33152 OS677P
1230 021D4P
1994 0322"1P
4UO 0034JJP
lCj!j7 U3172P
599 U077 tiP
1.952 03165P
;)97 0033SP
2277 036 1fOP
2l~ 71 lJ42J1P
G16 01 DS 3P
2891 OSlJ43P
2.574 Ol.372P
27 U4241P
940 OlS07P
2721 04610P
36 GI?24·1P
1723 U2l0iP
265 0015LJP
149 £lOO13P
3389 05740P

46
60
720
711
1649+2
1115
11,6 (J

11

11

". .;..
1 J.
"

:1191
.1,182

12 l t :;;
1240
1258
2742
2741

955
852

484
730
578
166
1223
1252
1212
3425

3426
2 J582
40

16
1266

1961 03t7bP

24 Jlf

2020 032.:57P

()

0
21;;)4 OL.71'tP
1424 il23S1P
172 1f 02702P
l1c.:2 01747P
lS1 {JOuiSP

1516 02465P

1517 02466P

1771 02741P
3549 06164P

1896 03063P

3291 05614P

1152 02Q01P

1155 02003P

2398 iJ4124P

1149 01777P
2883 05033P

1136 01?64P
28tH 05U31P

1i72 02020P

1173 G2021P

1177 02024P

1118 iH7 3P

11
11

Oi766P

1140 DIT7DP

1183 fl2032P

1425 U2352P

1515 02464P

3302 05621P

OS'732P

D2635P

1695+2 02671P

02G06P
Oi13:5P

U56 0332lP
at 02\l33P

1757+2 D2736P
1148 OlllSP

0174QP

11[15

U2035P

Ul?72P

Otl'·36l.l

a1

Q 2 0 1t

P

P
P

02 tl3 P

iLL? Ot74 ,0

1.135
Z I.flJ1

rJ2fJ 1flP
02 u lEi?

2lJ:5 l tP

2 i+2P
2
iP

04

DZ

,p
P
P

8 () ;;
7 1t OOQ45P
8 G8 02176P
'?27 !l4S!??
gO 05 t !{oP
63 02143P

()

04233P

fig OO!.l74P
44 06il25P

1195 02

113'-1,

ClY

171HZ O(]041P
3438 DoiH7?
712 01247P

G4122P
H203??
~•

a',:

24J7 U4171P

OGOiDP

0570 LI·P
G1260P
01246P

11 6 U1753P
11 9 02lJ36P
11 3 01150P

86
11

12Q1
12[]3
12 0 2~

PliANro\'1

.3

<}"J ':)/+
~'J

11.49
11l!4
1..(J. ?I ...<1

0
FElNL

cr
P/:,\Gi::

0177l~P

17

P

L1 gil

O~}\J43

11.1

02 LlO
0207

-t L.:;;

i'oSP

21 01.602P
11 5 031SGP

;37 O[~527P
40 1][1434P

0
2054 03325P

04630P
U1670P
01364P
02560P
614- 01045P

747
12J8
1249
1206

01264r

iJ2114P
02126P
02055P
J426 060G?P
3417 05772P
2532 04301P
1551 02!jilJP
1876 03U4UP
3474 06063P
124 l t 0212.1P

0
0
0

11.&3 !J2;

iiP

f)
\...

1481 02430P
1255 D2135P

1746 02723P

1116

1199 fJ2045P

171• .1P

;:::002 iJ3235P
2745 04640P

3751 06447P

2011 03246P
2848 04776P

0
1254 02133P
259 li 04420P
2900 05052P

1410 02334P
2714 04601P
2917 05073P

1 14 02lJ64P
1 51 tl2130P
2 39 04631P

2738
1U9O
841
1594

0
0

oi!126P

136 n"'tot.,,.?-' fJtpp

~_

oi

3383

0

0
0

854 OiLtOOP
i618 026U;.1P
1037 iJ1621P
713

855

0

lJ1401P

1039 01623P

013Di~p

0

:3 LI18 05773P

0

1560 02520P
2526 04273P

1628 02613P

1631 026;L5P

1642 02626P

1573 02643P

0

1260 021 1tOP

0

CIJ

I

I ASSEi'H3LEiUOS,)

()I

Fi-< CH;<

()

oi

I

UGZU6P
U216 LIP

F i~ E T ,<- i1 02
FRt:::TRH 06

02172P

FRE TR,"ll li

1J2221P

FRSCJl

Ub2ll7P

F;1iJW5N_..

_,_"'"""a<,_ _ _ _

'"'~c,"'".'"~.'''''

...,•.,'_~~''"'''_"'''''"''''_''''''''''' .~"'~_".".... .......""'.,... ,,_.=_,..,~<~~~_~'''_, __ ._,, __,~_ •.. __ ~~."_~.~"_"", __ ' __ ... _.

I

CD

CI.

I

I ASSEHuLC:iUOS3
'.
. ' v1 • iJ

U'J I 2.1t1., 4 19U3

I

a
()

I

I

t'1A CROA

I

!vlA PD 1

PU

I-lAP:J7

NI.\ PdUF
HAP8UFL
1'1 A PEim

0

I~AXHS

MEI'123L

I

ME3Exr

I

I"IESSL':;

I

I

0

0
0

I
I
I

Ud134P
U6'!';7~W

00 Olt 2

0OlG3P

UOLl20

ObJ47P

1'-10 II E.f~

~IS

I

G£i7::i24P

1040 0152 i tP

1:389 G23;2.3P

0556

2:376 iJ4374P
299'3 05207P
S2b6 05S75P

Gi611P

iu55 fJ 1S Lt1P

0424

u~;;.i

U

105t.!

01642P

2.100 O.3376P
26Sg 0452.1P

30i)'l 05215P

::n52 05706P

1060
2112
2&71
3042
3487

01644P
03411P
04535F
05246P
ll6077P

0
O

0

Ll2016P

;;:.197 04717P
767 01301P
3354 05733P
839 01362P
853 lJ1377P
2224 83560P
3467 0605 1.P
'343 01512P
3'J77 U5725P
3309 05635P
1U47' 01633P
1877 03041P
1916 03105P

0

o4,<~ "'16P

l L1,h
12d:!.
2i+15

Oli2 tflP
26·70 O!.534P
J494 06UJ4P
.3510 06124P

0

p

P

tC~

.""t,

~,('}:t' t:"

5£:!
;~ 2:

"2

'~"1

~(3

,';491
1131.

0

G47:5:3P

s .2 061
.g
OOi
CI u ""}::;
~'"

lEt,'??

()

0
032 IJI
Q466 P

ij3

8,

0175fP
0176UP
00U11
04S5UP
Ub123P
Ob127P
04727P

uta

u'16
061lJ.1P

260 00147P
241 00126P

0

t6~:1

ill ,)ci 0 t+ a
1.050-

251 00137P
241 OtJ126P

3130 05436P

(14 '? ,3 p
iJ 1t6J4P

('

OJ

()
3655 iJ6322P
35.51 06166P

Stl2
?b3
27li:L

5.1 \~

P
p
P

016

2£.4 00131P
241 00126P

3654 0532iP
3455 U6D4IJP

2658 0 ~;20P
628 0 l11P
28.58, 0
10
868 U 11
622 Q

I
I

.235 00122P
241 00125P

P

D60

~~~[11g

()

f~f~ H~6IBp

:i.32P

'51:1
,,'

lj~~ H~1I~~

()

P

24

34

,"'I'

6 n'

!~~g 8~~~~~

3661 06330P

2

"I
~i

04~~~~
12~2g
4
U2-:i

233 GOi20r
232 a01.17P

OO11SP

U221iP
3689 06355P
3659 ll6325P
2 4*U7 Q l ti34P

iJ~l~~?gP
,jb P

273 0Olb2P

0013DP
00132P
253 OO141P
262 00151P
26b 00155P
24:)

245

It2

3 92
?
71 /1
2 07
2722

DUll/SF

I

0

t"lE 3S:\GE

226

126P

I'lVEd

I

0

Hi:: SE><. T:3

OfJ113P
[J (j

I

I

0

HEHARRAY

547

I

I

0

MH12.:'

I

() I

0

0J

~li\
I.,
M~\POlj
r~L\ P U()

0

0

~IAP

006GJF

iJA Gi:.

2677 04542P

28IJ2

04724P

2804 !]4726P

3:590 0574iP
3314 056411P
2220 iJ3554P
2225 03561P

3394 05745P

3403 lJ5756P

3405 05760P

2229 03565P

945 U1514P

947 G1S16P

3306 05633P

3337 05663P

0

0
'3340 05666P

0
0

0

OJ
<]

(1)

!

!

ASSE;10L[R/O~~:':;

I

Bfo~il;

88Tft68

I

US1IJGf-l

otJri~HI

I

ourOUFF

() I
I
0 I
I

V 1 • 0 rH/24174 19J3

OUOUD?

16

1 13
'c7
1918
134

B3Q~')P
J31~
11+ .
2,5 SP
l86Y 03031P
Lt

20 00360P

fdO

3111 05J67P
341'1 05774P
3478 lJ6D67P

OUTT.·JUf'l
Ol~ I~C IN
OW,\lCSRGH

~-;..

U2237P
OS72:JP
fE.i753P
05/U31)
lI57lGP

O\'jNEi<
OVHIC

325 00235P
865 iJ1406P
137~ 02304P
3U81 05333P
3:15U G5436P

327 00237P
866 01407P
1778 02750P

,2 (llS

2071 03343P

O,32:55P

()

3097 05352P

3157 Q54l.j5P

(j
......

()

119 03!.j1e,,:J

3P

o3 ~.)Lt,lP

n

1.~;;71

2076 (J3~·P30P
2116 a:341:jp

2065 03361P

0
0

3067 OS315P

3156

(]5456P

3182 05 l t70P

3167 05 1+57P

0
0

J010 lJ5220P

57 fl4241P
1/)15 03005P
2705 OL~5 7 2P
2697 04562P
2676

01+541P

2835 04763P
2827 iJ47S3P

2S97 04423P

2717 04604P

0

2766 Q'i661P

3235 05553P

0
0

C])

C)

2703 0457lJP

672 U12U4P

877 Q
1320 0

891 01437P

1940 03151P

229:') fJ

13tH U22.12P
~33 IH !,E>634 P

391 Cl0330P

2'299 1J3664P

1313 02217P
~~336 05662P
1979 G3213P

917 01464P
1963 03200P
2362+1 O'3753P

o
o
o
o
o
()

1.318 02224P
1984 03220P

()
20t U0066P

o

o
p
2P

7P

1201
2391
2899
3543
3275

P
P

42ll iH1360P
3463 06 DSDP

422 00360P
3y76 06D65P

.13.84 Oi?:316P
on3 o52.1.1P

21u3 D34DOP
:3 a4'~ 05250P

2105 03YD.2P
3225 055lf1P

2lS

,) 'f

Pi;:'
,.. :;J

32

32 0 uD
Ob;)

34GD

P

P

P

31[15

G5362P

2718
274Q

(lLt6U5P

O£fo32P
2759 04G54P

02U50P
04115P
05 051P
06156F
05603P

1181 020 3DP

02
03
04
C1G

-", J

'C>
G': '2 3
L
"2 0 "i IS:
7 GGt

'5 !J

2 (ll.9 03320P
2i!~1'! (J 5D.2.7P
347il OSGS??
j;ad G557:1P

11

13

iF

:~;

3

o
o
o
o

2726 04614P
2745 D4637P
2767 04662P

2728 04616P
2747 04641P

2730 04620P
2749 04643P

(J
C)

345:5 D6lJ36P
2336 03722P

3548 05163P

3553 06l70P

3556 06173P

3333 05657P
3298 D5623P

3348 05675P
3301 05626P

3323 05652P

3341 05667P

o
o
o

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

__._-------

(VI
I ASSE:H3LEiUOS2i

C)

~
::J

I
>;.

0

'f I~ r:J f\ i'1 E
,~TU::;

SrrH02
31)-1.T03

STRT I)!+
SnnU8

STiHI0
STRTll
SLn .12
SnHi6

0

srrn 18
snnzo

0

STRT 1+ (J

3TiHbO

3TlHSO
STRf.Gl:l

STInG

0
::.
,,-.,

\...)

()

STRn=u;
ST;-~

flOC
SY i1LEiHH

SY(HI~B

SYStJGO
SYSC,1

SYSGODE

SYSLIJN

O~J24114

l0P
oO.ll
U U tJ I]
l

(J.:;:jU7P

190J
l.llt

1::;48

1550

1J2'5..:i5P
02S41P

1S70
1552

lS.59

02555P
02507P
02:'}72F

1589
1:592
16tH

02S?IIP
1J26U6P
0261!-fP

1610
162.2
1629

U25, lUP
02SU3P
UiJiliH

16 U 3

Dun25

lUlb4P

liJf'oSP

oLl

~ P
Oll!fSilP
OIJ5DiP
lHl35tJP

PHMHOH

9

635

U2')10P
U202 fJP

02b22P
Uc:.632P

rAGE:.

1637
1647
1.5~·3

lS23

1G93 J2567P
1576 D2542P
10::::0 02!t71P
1635 OZ621P
lEd 5 02571P
l~

90

02 ljIJ5P

1597 02563P
1556 02515fl

1690 0266lfP
1S Slt 02513P
16
026U7P
15
!l2S65P
aO?lOFJ
5
L5
u25 t+5P

57

3787

Tt\PE3,c\Vl

0

TASK20
TASl<25

1503+3 02525P
1645 02631P
1591 0255SP

1127 017

53a

P

p

,

{)

111<3 01744P
285 aOil2?

287 OUi74P

290 ClOl77P

1122 01747P

2.16

OC1.03P

217 n0104P

234 00121P

2038 03301P

2.322 03707P

!JOO54P

193 [JOOS7P

46 ,~

215 ilUl1J2P

412
09 0367

2:3

03.26

r AS1'1"'l?
(J3273P
,(..1) '...... '290? OS061P
2985 O~? 1 71P
3068 05316P

1106 01730P
1522 02473P
1685 02657P
2034 03275P
2910 050E4P
2'386 05172P
3076 05326P

D G60P
G 7:?P

1234 0211UP
3430 06007P

1252 02131P
3540 06153P

0
U

S'

n

n

0

D
:,t(
,~

()
(j

'-

0
()

TERi"iCHR
rEf~tHNAL

TERHHRO

1217

TIHLIM

0

rnlS[T
T1WHLIST
Tin Al T HI

fPQ2
H)05

IPO?
TPiO
TPlb
TPoU
TPCT1U

TPI~SSPOT

()

0

TPrIlLE

TPTITLEL
TPUdlTS
lP!~ L;;POT
TRAFFIC

TRUNT n1E
TS1

3123 GS4lJ3P

0367 P
0365 P
do 00.)2 P
2327 iJ311l.j.P

231.1 !J3676P

2312 03677P

2:)81J

04U26P

2270

tJJ631P

2271 03G32P

0

2278
2 i:B 9
2298
2301
c:S07'
2313
2361

<3

57(,
!-t:~g

D3667

7%S 03537
70 037.57
1J,}E;,;3G
a370~j

395

OQ,L)3P

2305
bUE)
324
3fj4
405

03671P
01023P
00234P
OOZ6?P
lJ0433P

03625P

2284 03646P

2304 03670P

19B9 03225P
3133 O.5415P

2043+5 03312P

2128+1 03420P

2238 03573P

2243 03600P

~2E:6

o
o
o
o
o
o
o

I:])
ASSEH3LC:R/OS3

TTt\8LEL

U0ol0P

iJ?G17P

33l;.il

U!'! E 11 UI P

o
o
o

LlPG

U;~uA

THE\{

UrJDi\ TEPl
Urwc::.(1 T
UI~BEXI fA
Ll;\BlOl<

URBlOKI
URJlOKIZ

USDO

USlll

US01XX
US02
US U[~

US06
USU7

u·s Ear T

UT/.\PESJ

VALUE:

\j,1l00

V,R 0.3
V,"IUl':J
Vf1 L U6

VdLl£J

o
o
o
o
o
o
o
()

QU55GP
OOS53P
021S6P

02157P
0216112
02250P
01211P
U1227P
01235P

OiJ?OiP

00633F
0375uP

03 lOP

03

3P

033 5P
032 OP

01467P
01 I ,·Y·iP

\JdSIZ

GfJ l f'45P
UOGi.Cl
OOiJ26
UL2/1+

;.Jj.\
~M

rT

lTlOOP

HAlTS\]
AF,'v1

~'IOROUP ll2
i,~JROLJUdP

\'10 :
.20'35 (l3326P
1280 02162P
20 tJ7 03242P

2228 03564P
2228 0356 1fP
21'??
u _<., 032
P

204J+1::'1 [) 33

sab

P

2065 033J5P

2884 05034·P

2042 113305P

3097 lJ535.2P

o
3115 05373P

o

290 n01T1P

o
o

1127 IH j754·P

1 014 If'
2 lH4
P
if.) ',)

1

"I

() ~3 <1.&
l~i, :5
-2 :3

1

2
2

2

5

t:;

c ...

Cl?
J,....

Blt

Dl£-tl2Fs

o

014. 3P
135tJP

967 D.1532P

p

(L1S?5?

6·05;5F)

(l

7

5

035
Oi2

6

Q

;.J

o

Z[J

,)

DOuot

1360 02266P

996

UL261P

0l1IJ i f5P

1355 02257P

683 tl1215P
l(l9 0124SP

6tH Ui221P
918 01.465P
2052 U3323P
605 DI020P
1273
U2154P
'")-7';-- ,
(_ " :? 't C13752P
2227 03563P
137 l j230 1•.
;.::: [J
+-9 03314
+ -'. tJ 3 2 7 l •
2ij

o
o

01,5-1 l'P

OUUG2.
U3GlJ7P

1906 03Q75P

551~p

0337
(Jl." :$0
1Ft S

Xl

2090 U3371P
3509 06123P

6 1+[. fJ2630P

1277
1279

564·

OU;~37P

0601 tlP
0566 11 P
[JS661P

02230P
06053P
02277P
06160P

1322
3466
1::)69
3545

34 02620P

4'30

flJG 2'
Ll1404P
o 4S3P
o 26P
o 63P
U1. 67P

\1i'1LASTA
VHLUUP
V"'1 i'!

3332
1992

007 iF'

n1~306P

327
3435
6338
3335
169
3322
bii

3 Ll2

1347
679
694

PHANTOM

10

2263 fJJ623P
349~j
06103P
12'37 0220UP
420 OUI.loP

19

thlU 2 fJ
ODS!.)5P

Vi'IL2d

\h1L31J

>,<

0322SP
Oif721F
00021

O,HID5
OCl2SP

UTA?ESC
V.i\LCODE

C)

U5657P

U~):: RI'IES L

UTAPlS1
UTAPES2

j

UUU02

03333P
02153P

UT APE;'-j AX

()

nOS2;)p

USEI08NlJ
USERLIST
U3ERHAX
USEiVIES

()

U0002

OlJU.:)7

P,~\(;E

J5

UG.I.\TH1U

()

o

1-;

UGATH20

TJ':)!:NU
UUilJ: TS
UUIGET

o

U lJ U1 £1
(J U ILib

1'303

(Jb l·./lfi

TV LI >IEL

o

U9/2 Lt/74

37
34
36
Lf {6
;1771

TVGf-:

o

Vi.U

a

1'-.6

182
227
250
285
.3 U5

454
61..5

670
702
7111-

[140
869
942
965

U5 ~3
063

0001

DOJ5UP

00113P
00136P

00172P
00214P
OOif62P
iH152P
01202P
U1236P
0125iP
01363P
01412P
01511P
01S:HP

1025 DloU6P
1U82 0166UP

012
OJ4

~~

0: 4, ~3,

'""}

..:...,

i:.

n1+1

J

3

148
192

055
064
00;)

Goa

P

P
P
P
P
p
p

229 a01
251 001
P
287 OOi74P
306 OD21SP
II S6 aOS61P
648 DU.55P
681 U12l3P
706 U1242P
720+3 01260P
042 01365P

8U7 [] 1433f'

947
975
1030
1084

Q3626P
ij Li·417P
052iOP
055l6P

P

G1S16P
U1540P

016l3P
D16b2P

169
195
2:50
259
290
336
501
650
682
707
761
845
928
949
':l85
1034
1085

0OO36P
DO(!60P
DOi16P
(J0146P

U01T?P
00247P
OG567P
011S?P
01214P
01243P
01274P
01370P
U1475P
015.17P.
01551P
O.1b.17P
01663P

L')02 D2205P
2329 D3716P

266G Q£622P
(l521&P
3423 06000P

30U8

170+2 0OO41P

197 001J52P
237
260
297
3313

521

661
690
711
763
851
933
961
997
1049
1099

D012 /fP
00147P
00204P
00251F
00625P
01171P
0122 1fP
01246P
01276P
01376P
01502P
01525P
01562P
01634P
01721P

1328 02234P
2438 G41?2P
2672 !J4536P
3043 G5247P
3566 06205P
170+4
209
241
277
299
339
535

664
691

0OO1f3P
0OO74P
0012aP
00164P
002DaP
OO.252P
00645P
01J74P
01225P
01247P
012?7P
Oi400P
01.503P
01S.26P
01G01P
01637P

712
764
854
934
962
1020
1052
110.3 01?25P

1827+7
2468
2683
3049
3675

03025P
04227P
04547P
05255P
06346P

173 0OO44P
2.11 D0076P
244 00131P
283 DOllOP
304 002l3P
353 002G6P
639 01l1f4P
667 Ol17lP
698 01233P
713 01250P
809 01333P
855 01401P
940 01S0?P
964 01530P
1024 01GOSP
1058 01G42P
1105 01727P

o
o
o

o
o
o
o

_"' ___ ,__ "L. _____ ,_"_, ___ ,_,_,_,__ ._. ______ ,_, _________., __"_,_,_,_, __ ,__ ._,_. __ ._.,__._.________.__ ._. ____,_. __._.___ ._. __ .____ ,____ "___ ._,._.__________ ,_____.___ ._. ___ ,_,_,_,.______,__ ._,_,,~ ___._,_____ ,_ _ _ _ _._._.__....

CD
IASSEd8LCR/OS3

Vl~il

09/24/74 1903

ell

FAGE

11

PHANTO,"I

1107
1137

110. {3
1141
1130
1223
1276
1313
1341
1382
1416
1445
1486
1508
1551

11"/8

1207
1272
1309
1323

I

C)I
0

13a 1

1406
1440
1482
1506

1

o
o
o
o

U 2 075 P

D2156P
02217P
02244P
02314P
02342P
02372P

02Lt35P

02456P
D251DP
15HEi !.12552P
16i.!2 02626P
1695+1 1J2670P
17:39 1J2li5P
1757+1 a2735P
1819 iJz'iUl1P
le96 03063P
1941 03152P
2043+1 03307P

15·~4

1.585

1631
16"19
1,l·:54

175<5

208

±1~~ S~b1~~

01l.:.~2P

01771P
02iJ27P

iJ
U

1181
1224
1288
1318
1342
1384
1424
1447
1489
1515
1560
1591
1649+1
17 5

02D3[JP
U2076P
02170P
02224P
02245P
02316P
02351P
02374P
02440P
02464 P
O.2520P
02556P
02.634P

18
18gS
1942
2043-1-8

1J274iP
03!;1?P
1J3065P
03153P
03313P

17
17

DB? 03363P

60

it 1]3 41P
3 03 iiP

(J

o
IJ

l.l3 60P
03 55P
O/,,32P

?

1-

(J

a

0

02672P

H2?1?P

U OlP
G24P
OSP
fJ
7P
a OP

[j

°

o

I}

2P
2P

iJ

1.1P

G

()

U
f1

(1

C)

74P
57?

ilL! P
027P

GSil6P
115 55P
LiP

1±~~ 8~b~~~

1201
1245
1297
1319
1365
1386
1425
1453
1491
1516
1564
1600
1668
1723
1746
1773

020S0P
02122P
02200P
02225P
02273P
02320P
02352P
02402P
02442P
02465P
02527P
02566P
02636F
02701P
02723P
02743P

1906
1954
2 043·t 12
2092
2227

03075P
03167P
03315P
G3370P
03563P

1527+3 03022P

22:"56

[)

361L~P

231)5 0367iP

2351+16

a 4027P

2409 '04136P
2447 04203P
2465 04225P
2523 04270P
2494 IJ4320P
2494 04361P
261.2 D4442P
26 J £I 0 Lift <> 4 P
f~6/.)2

CPt512P

27tO 04575P
27650f.660P
2<3.16 04741P
23'39 05D51?
!'::9i~1

0511??

2'382
3D2:1

0516·SP
05221P

()

::;(Jn~ 05,323P
3108 05.::H,itP
311+1 05
31,~cl 0

()

;)307
;:; 36 Y-f

?j;Z2'7

"'l'7' <:) F~

ObO

()

OoJ

U60
D61 (,

G6t46

()

0617';
0622 l •

3~'5
06:~f5

06

0

0

00002

10

it/toP

00llf5P
00302P
OIJJ21P

°1
0

,

1

1

01
I

G120iP
708 Oi244P
873 fl1416P
900 01445P
918 D1465P
1219 02Q71P
1343 02246P
1449 02376P
1599 02S65P
17'31 02762P
1884 03D50P
2091 03367P
2135 1J343uP

.341Q D
;3 4lf4 ;J
3470 I)
:~4ai 0
3524 iJ
3543 0
3569 0

U

06367P

D64.16P

261 lHlt50 P
370 lJ03Cl6P

515 0061L~P
678 tH210P
72U+4 Q1261P
875 01420P
903 G14S1P
936 01505P
12J2 fJ21iJ6P
1362 02270P
1469 02420P
1729 02707P
1817 0300]P
;:: 0 43+3 03.310P
2093 03371P
2142 03 t l31P

.262 OUiSt?

372
523
683
802
876
90B
938
1236
1367
1475
1743
1827+5
2066
2103
2143

Oi.J307P
OG630P
o1.215P
01326P
D1421P
Oll.5/·IP
01506P
G2112P
02275P

02425P
02720P
03023P
03336P
03 t.OOP
03440P

300
37'5
649
688
857
879
909

972
1237
1431
1566
1744
1879
2082
2105
2151

1203
1246
1298
1320
1366
1403
1429
.1456
1500
15.17
1567
1607
1673
1724
1748
1803
1876
1908
1998
2049
213lj
2223
2280

2317

2;)81+22
2j~ 16

02052P
02123P
02201P
02226P
02274P
02325P
02356P
02405P
02450P
02466P
02532P
02572P
02643P
02702P
02725P
02771P
03040P
03077P
03231P
03320P
03427P
03564P
OJ642P
03704P
04U35P
04145P
04207P
D4Z26P
04271P
04344P

1204
1247
1305
1322
1380
1405
1435
1481
1502
1531
1577
1628
1678
1728
1749
1804
1878
1910
1999
2050
2137
2231
2283
2327
2391
2433
2458
2508
2535
2493

2451
2467
2524
2552
2567 O,!t363P
2515 04445P
2537 G4473P
2663 04525P
2723 04611P
2758 O,*663P
.2841 04775P
2'316 05D72P
29'S!] 05126P
29.04 OS170P
3074
311.1
314i3
3201
3228

D5324P
05367P
OS434P
OS511P
D554ztP

D0207P
OG312P
01156P
01222P
01402P
o1424P
01455P
o153lP
OZ.113P
02360P
02531P
02721P
03043P
03356P
03402P
03450P

05116P
3420 1l5775P
3447 06030P
3471 D60GGP
3·J70

3 1190

Dbl00P

3525 06140P
3549 06164?
3573 06210P
3590 05230P
~Hi47 G6312P
3667 06336P
3719 06376P
3731 06420P

341
380
663
703
872
899
914
1102
1337
1448
1576
1775
1883
2090
2115
2154

00254P
00317P
01173P
01237P
01415P
01445P
01462P
01724P
02240P
02375P
02542P
02745P
03047P
03366P
03414P
03453P

35'92

302 OOZi1?
377 a0314P
660 01170P
692 01226P
863 01404P
880 G14Z5P
910 01456P
998 01563P
1286 02166P
1442 02367P
1573 02537P
1772 02742P
1880 03044P
2083 03357P
2106 03403P
2152 03451P

0277~P

3659
3688
3720
3732

2617
2638
2679
2724
2769
2868
2937
2951
2990
3029
3089
3112
3155
3212
3238
3345
3375
3421
3449
3474
3492
3530
3551
3579

3028 (F5230P

020S3F
02124P
02210P
02230F
02312P
02327P
02362P
02430P
02452F
02501P
02543P
02613P
02650P
02706P
02726P
0304 F
03101P
03232P
03321P
03432P
035E7P
03645P
03714P
04115P
D416SP
04216P
04252P
04304P
04350P
043E4P
04447P
04474P
04S44P
04612P
04664P
05016P
05113P
05127P
05176P
O.5231P
05343P
05370P
05443P
05524P
05556P
05672P
05723P
D5776P
06032P
06063P
06102P
06143P
06166P
06216P
06231P
0632EP
06354P
06377P
06lt21P

2568

3322 Q5651P

n6256P
D6333P

40QP
X2

0

H:~~ B2~~~~

li~~ 8~bitt~

01

____ J __._._____. ____ . _. _____._. _____ ._._._____ ._.____ . __ ._._._._.__ .__._._._. ___.____.____._.__ ._.____,___._.____.___.__________.__.___ .__._______

a~

()

0
0
0
0
0
0
0
0
0
0

0
()

0
0
0

0
0
0
0

~----

- - ---

~--~--~---

- --,- - - - - -

1

ASSE."Ir3L[FUO:::;"':;

Vi.il

Ug/24/74 1903

GE

1/7 ,U35U2P
22tH 03':;32P

2 ZL} S 03600P
2273 Q363 l tP

1

2~;ol+2fJ

2507

QI+2511')

04326P
04527P
2821 iJ4l45P
2946 05122P
2973 U5.15SP
3035 U5237P
;:;07
0532
:]5 ?
~H
0':) h
J:t
05 5

1

01

.J

fl
q

n

1

1

U4lJ33P
()4174P

2548
2665

1

01
01
01
o

PHANT Or'l

(~

2440

(J

12

2156 o 34SSP

I
I
()

~) ~\

U

00U03

11

OSP

361P
GOltZ?
(l

X3

alP

53?

G01?:LP

00253P
G!J43 P
D041'

00S1

U057

0117
0132

013 1t
lJ.:L~ 6
ill !)

()

[1

0
0

:l

215B 03/,JS7P

;.:183 0351UP
222b

[JjS6~P

2262 03622P
22(36 ()3662P

2381+21 040~S4P
2454 042i2P
·2512 04255P
2SSlJ OJ:'J30P
2667 0453tP
2823 J 4 7 /t 7 P
2947 05123P
3026 05226P
;5 038 05242P
.3085 05337P
;1 2.8 1.l5 l d,!)P
08 0552 P
04 0575 P
ga

Doil

13 0625
S1 0631
.3 97 0536
256 U014
.:2 as n017
357 0.0'27
1.f if:3

004

462 D13
1-174 00
517 00

668
8
I~
.~
,:}

(.)

S

to

12

(]

0
D
0

~t~g 8j~~~~

2229

2263

2315

2413
2461
2513
2551
2678
2828

2948

3027
3039

0356SP
03b23P
03702P
o4.142P
04221P
04256P
04331P
04543P
0475 LIP
05124P
05227P
U5243P
{) 340P

3080
31,37 l)
2IP
3367 D 13P
10
3406 0
6 -,
Jitgg (l611t?
3631 06272P
3653 06320P
[j(j153P
Oil200P

8 OG3:04P
f.l OLr 46P
464 BOS01?
476 00523P
519 OU622P
791}' 0131.4P
808 01332P
U.:£O 01354P
888 01434P
976 01541P
10il Di5'74P
12.27 02.101P
1277 G21S7P
1348
..1. 5 et f.l225fJP
024G3
7 0
.3
.1
0 0
1.
1794 ij 76
.2 071+ U '3
Ift.S

2132 03

2281 03
041
25tH 0 1*2

0

',2>427

0.;,3'",/
4Si i5

0

2t~,(22

,'6':;'3 UE,t~'
2'335 n:Sl
30GS U5'2
32QO U5 f5
3·5\36 iDe

2165
2191
2230
2270
2325
2420
2504
2526
2557
2685
28~1 0
2952
3030
3046

03~b6~

03 2lJ
03566P
03631P
03712P
04150P
04246P
04273P
043,37P

04S51P
04756P
05130P
U5232P

lJ5252P

05341P
3145 U5431P
337 it 05722P
3£+13 05'767P
3515 05127P

3087

3637 06300P

3670 06341P

zr ,-

.0':)

uG154P

293 00201P

:H;9 OOJ05P

447
/.. 66
478
527
792,
812

OOl451P

0050 t tP

00526P
00636P
01315P
013:36P
8~'
Ot355?
" .. ..L
921 Oi46?P
'363 DiSi!'7P
1104 01726P
122'3 o 2HL3P
1279 02161P
135:) D2255P
1.4-55 G2404P
.u.S! 7 02445P
778 02750P
16 03253P
77 O:335iP,
40 03435P
I) 365IJP

!J4i!:J3P
~4260P

:]l.t3:U.. P
0: 43S'SP
D4 I ft3P

i)4",)65 P

Ll 4:)1.2 0 P

2167
2193
2236
2271
2362+1
2424

2505

2540
2600
2702
2836
2967
3033
3053
3091
3152
3376
31+91

';'516:
3640
3683

03~70~

03522
03572P
03632P
03753P
04154P
04247P
04311P
04426P
04567P
04}64P
05147P
05235P
OS257P
05345P
05440P
05724P
06101P
06130P
06303P
06347P

276 00163P

2'9 '-t OO.202P
i

373 GOsiOP
452 00457P
t.08 00507P
482 00534P
529 0064iP
796 01321P
814 01340P
832 D1356P
925 01l.t72P
9S8 01554P
1197 02Q44P
1231 02.105P
1289 02171P
1430 lJ2357P
1458 02407P
i 1q.9:d 02446P
1781 fl2753P
2021 03260P
2095 03.372P
2244 f.l3601P
230·1 03666P
2439 Oi... 17:jP
252S U4276P
2495 U432iP
-24'9~5 G4362P
(?£.?S~
lJ447GP
27 iJ.f.t 04'??1P
2953 05131P
3Ub2 053.10F
32.20 05534P
361,)7 06247P
:~634 062'75P
3748 06444P

2.176
2195

B~~~a~

2272
2362+2
2437
2506
2547
2619
2703
2910

03633P
03754P
04171P
04250P
04325P
04451P
04570P
050E4P
05150P
05236P
05320P
05365P
0544?P
05747P
06106P
062S2P
06304P
06351P

2238 03573P

2968

3034
3070
3109
3159

3396

3496
3611
3641
3685
280
316
378
458
470
494
655
799
816

833

00166F
00224P
00315P
00470P
00512P
00556P
01.163F
01323P
01341P
01357P
01473P
015S7P
020t2P
02136P
02172P
02371P
02412P
02534P
02754P
03335P
03373P
03604P
03670P
04202P
04300P
Ol+336P
04367P
04475P
04751P
05160P
05326F
05535P
06255P

926
993
12.12
1258
1291
1444
1461
1569
1783
2065
2096
2247
2304
2446
2531
2556
2571
2639
2825
2976
3076
3221
3614
3643 06306P
3760 06451P

o
o

o
()
()

o
()

o
(J

o
o

0

o
o
o
o

0

()

0

o

0

o

0

o

0
0

Z

ZE i